• R/O
  • HTTP
  • SSH
  • HTTPS

Commit

Frequently used words (click to add to your profile)

javaandroidc++linuxc#objective-ccocoa誰得qtrubybathyscaphegamephpguicwindows翻訳pythonomegattwitterframeworkbtronarduinovb.net計画中(planning stage)directxpreviewertestゲームエンジンdom

学生時代に書いた OS になったはずの起点のソースコードです。(その授業は一応合格できました。)


Commit MetaInfo

Revision5984740ce455e3f08fa4cc3a8f4c4bbf5f092e23 (tree)
Time2013-07-08 13:59:00
AuthorJoel Matthew Rees <reiisi@user...>
CommiterJoel Matthew Rees

Log Message

This was the point at which the functionality was sufficient to pass the class.
I wanted to add disk IO and build a FORTH around it, but I lost my way getting the FORTH running.

Change Summary

  • delete: OSWIND2.AS9 => OSWIND3T.AS9

Incremental Difference

--- a/OSWIND2.AS9
+++ b/OSWIND3T.AS9
@@ -170,11 +170,11 @@
170170 02510 WLCOL EQU *-WINTBL
171171 02520 FCB 0
172172 02530 WWCOL EQU *-WINTBL
173-02540 FCB 31
173+02540 FCB 12
174174 02550 WTROW EQU *-WINTBL
175-02560 FCB 1
175+02560 FCB 0
176176 02570 WLROW EQU *-WINTBL
177-02580 FCB 15
177+02580 FCB 5
178178 02590 WCURCL EQU *-WINTBL
179179 02600 FCB 0
180180 02610 WCURRW EQU *-WINTBL
@@ -189,7 +189,7 @@
189189 02709 * CLOCK WINDOW
190190 02710 FCB 2
191191 02711 FCB 13
192-02712 FCB 31
192+02712 FCB 18
193193 02713 FCB 0
194194 02714 FCB 0
195195 02715 FCB 0
@@ -198,6 +198,18 @@
198198 02718 FCB 0
199199 02719 FCB 0
200200 02720 *
201+02721 * TEST WINDOW
202+02722 FCB 2
203+02723 FCB 0
204+02724 FCB 31
205+02725 FCB 6
206+02726 FCB 9
207+02727 FCB 0
208+02728 FCB 0
209+02729 FCB $8F
210+02730 FCB 0
211+02731 FCB $83
212+02732 *
201213 02890 RMB (NUMWIN-2)*WINSIZ
202214 02900 KSTACO FDB 0
203215 02910 RMB $100 KERNEL'S STACK
@@ -713,10 +725,10 @@
713725 21780 DEC ,S WHOLE CT
714726 21790 BGT USPLRL
715727 21800 * NOW PARTIAL SCROLL LAST
716-21810 USPLPS LDA WCURCL,Y
728+21805 USPLPS LDB #VSPACE
729+21810 LDA WCURCL,Y
717730 21820 BEQ USPLCE
718731 21830 STA ,S
719-21840 LDB #VSPACE
720732 21850 USPLPL LDA SCRWID,X
721733 21860 STB SCRWID,X
722734 21870 STA ,X+
@@ -738,24 +750,23 @@
738750 22030 CMPA #$20
739751 22040 BHS VPUTVC
740752 22050 ASLA CTL FN
741-22060 LEAY CTLTBL,PCR
753+22060 LEAX CTLTBL,PCR
742754 22070 JSR [A,X]
743755 22080 BRA VPUTQT
744756 22090 * PUT VISIBLE CHARACTER
745-22100 VPUTVC PSHS A
757+22100 VPUTVC PSHU A
746758 22110 LBSR VITRAN
747759 22120 PULU A
748760 22130 LDX ,U
749761 22140 LBSR IXCRSR
750762 22150 STA [,U++]
751-22160 LDA WCURCL,X
752-22170 INCA
763+22160 INC WCURCL,X
764+22170 LDA WCURCL,X
753765 22180 CMPA WWCOL,X
754766 22190 BLS VPUTQT
755-22200 CLRA
756-22210 STA WCURCL,X
757-22220 LDA WCURRW,X
758-22230 INCA
767+22210 CLR WCURCL,X
768+22220 INC WCURRW,X
769+22230 LDA WCURRW,X
759770 22240 CMPA WLROW,X
760771 22250 BLS VPUTQT
761772 22260 PSHU X
@@ -776,7 +787,7 @@
776787 22410 FDB VNUL
777788 22420 FDB VNUL
778789 22430 FDB VFF
779-22440 FDB VNUL
790+22440 FDB VCR
780791 22450 FDB VNUL
781792 22460 FDB VNUL
782793 22470 FDB VNUL
@@ -804,7 +815,7 @@
804815 22690 VBEL PSHS A
805816 22700 LEAU 2,U
806817 22710 LDA BEEP
807-22720 ADDA #6
818+22720 ADDA #30
808819 22730 STA BEEP
809820 22740 PULS A,PC
810821 22750 *
@@ -818,6 +829,7 @@
818829 22830 DEC WCURRW,X
819830 22840 BPL VBSNW
820831 22850 CLR WCURRW,X
832+22855 CLR WCURCL,X
821833 22860 VBSNW LBSR IXCRSR
822834 22870 LDA #VSPACE
823835 22880 STA [,U++]
@@ -830,7 +842,7 @@
830842 22950 PULU X
831843 22960 CLR WCURRW,Y
832844 22970 CLR WCURCL,Y
833-22980 LDB #SCRWID
845+22980 LDB #SCRWID-1
834846 22990 SUBB WWCOL,Y
835847 23000 LDA WLROW,Y
836848 23010 PSHS A,B
@@ -846,6 +858,27 @@
846858 23110 LEAS 2,S
847859 23120 PULS A,B,X,Y,PC
848860 23130 *
861+23140 * CLEAR TO END, FEED/HOME
862+23150 VCR PSHS A,B,X,Y
863+23160 LDY ,U
864+23170 LBSR IXCRSR
865+23180 PULU X
866+23190 LDA #VSPACE
867+23200 LDB WWCOL,Y
868+23210 SUBB WCURCL,Y
869+23220 BLO VCRDUN
870+23230 VCRLUP STA ,X+
871+23240 DECB
872+23250 BPL VCRLUP
873+23260 CLR WCURCL,Y
874+23270 INC WCURRW,Y
875+23280 LDA WCURRW,Y
876+23290 CMPA WLROW,Y
877+23300 BLS VCRDUN
878+23310 PSHU Y
879+23320 LBSR USPLIT
880+23330 VCRDUN PULS A,B,X,Y,PC
881+23340 *
849882 50000 O EQU *
850883 50010 * STARTUP CODE
851884 50020 * INTIALIZE PORTS
@@ -883,18 +916,14 @@
883916 50350 TFR Y,D
884917 50360 TFR A,DP
885918 50370 SETDP SYSGLO/256
886-50380 LDX #$400
887919 50390 WAITIQ CLR ,-U WINDOW 0
888920 50410 LBSR GETKEY
889-50411 LDA ,U
921+50411 PULU A
890922 50412 CMPA #3
891923 50413 BEQ IQDONE
892-50419 LBSR VITRAN
893-50420 PULU A
894-50430 STA ,X+
895-50440 CMPX #$600
896-50450 BLO *+5
897-50460 LDX #$400
924+50420 CLRB
925+50430 PSHU A,B
926+50440 LBSR VPUTCH
898927 50480 BRA WAITIQ
899928 50485 IQDONE ORCC #IRQMSK
900929 50490 LDA KEYCOL+1
@@ -916,4 +945,3 @@
916945 56040 IDLLIM EQU *
917946 56050 *
918947 62000 END
919-
\ No newline at end of file