提交: 5984740ce455e3f08fa4cc3a8f4c4bbf5f092e23 - jmr6809bos (git)

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

Commit MetaInfo

• 修訂: 5984740ce455e3f08fa4cc3a8f4c4bbf5f092e23 (tree)
• 時間: 2013-07-08 13:59:00
• 作者: Joel Matthew Rees <reiisi@user...>
• Commiter: Joel 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

差異

--- a/OSWIND2.AS9
+++ b/OSWIND3T.AS9
@@ -170,11 +170,11 @@
 02510 WLCOL	EQU *-WINTBL
 02520 	FCB 0
 02530 WWCOL	EQU *-WINTBL
-02540 	FCB 31
+02540 	FCB 12
 02550 WTROW	EQU *-WINTBL
-02560 	FCB 1
+02560 	FCB 0
 02570 WLROW	EQU *-WINTBL
-02580 	FCB 15
+02580 	FCB 5
 02590 WCURCL	EQU *-WINTBL
 02600 	FCB 0
 02610 WCURRW	EQU *-WINTBL
@@ -189,7 +189,7 @@
 02709 * CLOCK WINDOW
 02710 	FCB 2
 02711 	FCB 13
-02712 	FCB 31
+02712 	FCB 18
 02713 	FCB 0
 02714 	FCB 0
 02715 	FCB 0
@@ -198,6 +198,18 @@
 02718 	FCB 0
 02719 	FCB 0
 02720 *
+02721 * TEST WINDOW
+02722 	FCB 2
+02723 	FCB 0
+02724 	FCB 31
+02725 	FCB 6
+02726 	FCB 9
+02727 	FCB 0
+02728 	FCB 0
+02729 	FCB $8F
+02730 	FCB 0
+02731 	FCB $83
+02732 *
 02890 	RMB (NUMWIN-2)*WINSIZ
 02900 KSTACO	FDB 0
 02910 	RMB $100	KERNEL'S STACK
@@ -713,10 +725,10 @@
 21780 	DEC ,S	WHOLE CT
 21790 	BGT USPLRL
 21800 * NOW PARTIAL SCROLL LAST
-21810 USPLPS	LDA WCURCL,Y
+21805 USPLPS	LDB #VSPACE
+21810 	LDA WCURCL,Y
 21820 	BEQ USPLCE
 21830 	STA ,S
-21840 	LDB #VSPACE
 21850 USPLPL	LDA SCRWID,X
 21860 	STB SCRWID,X
 21870 	STA ,X+
@@ -738,24 +750,23 @@
 22030 	CMPA #$20
 22040 	BHS VPUTVC
 22050 	ASLA	CTL FN
-22060 	LEAY CTLTBL,PCR
+22060 	LEAX CTLTBL,PCR
 22070 	JSR [A,X]
 22080 	BRA VPUTQT
 22090 * PUT VISIBLE CHARACTER
-22100 VPUTVC	PSHS A
+22100 VPUTVC	PSHU A
 22110 	LBSR VITRAN
 22120 	PULU A
 22130 	LDX ,U
 22140 	LBSR IXCRSR
 22150 	STA [,U++]
-22160 	LDA WCURCL,X
-22170 	INCA
+22160 	INC WCURCL,X
+22170 	LDA WCURCL,X
 22180 	CMPA WWCOL,X
 22190 	BLS VPUTQT
-22200 	CLRA
-22210 	STA WCURCL,X
-22220 	LDA WCURRW,X
-22230 	INCA
+22210 	CLR WCURCL,X
+22220 	INC WCURRW,X
+22230 	LDA WCURRW,X
 22240 	CMPA WLROW,X
 22250 	BLS VPUTQT
 22260 	PSHU X
@@ -776,7 +787,7 @@
 22410 	FDB VNUL
 22420 	FDB VNUL
 22430 	FDB VFF
-22440 	FDB VNUL
+22440 	FDB VCR
 22450 	FDB VNUL
 22460 	FDB VNUL
 22470 	FDB VNUL
@@ -804,7 +815,7 @@
 22690 VBEL	PSHS A
 22700 	LEAU 2,U
 22710 	LDA BEEP
-22720 	ADDA #6
+22720 	ADDA #30
 22730 	STA BEEP
 22740 	PULS A,PC
 22750 *
@@ -818,6 +829,7 @@
 22830 	DEC WCURRW,X
 22840 	BPL VBSNW
 22850 	CLR WCURRW,X
+22855 	CLR WCURCL,X
 22860 VBSNW	LBSR IXCRSR
 22870 	LDA #VSPACE
 22880 	STA [,U++]
@@ -830,7 +842,7 @@
 22950 	PULU X
 22960 	CLR WCURRW,Y
 22970 	CLR WCURCL,Y
-22980 	LDB #SCRWID
+22980 	LDB #SCRWID-1
 22990 	SUBB WWCOL,Y
 23000 	LDA WLROW,Y
 23010 	PSHS A,B
@@ -846,6 +858,27 @@
 23110 	LEAS 2,S
 23120 	PULS A,B,X,Y,PC
 23130 *
+23140 * CLEAR TO END, FEED/HOME
+23150 VCR	PSHS A,B,X,Y
+23160 	LDY ,U
+23170 	LBSR IXCRSR
+23180 	PULU X
+23190 	LDA #VSPACE
+23200 	LDB WWCOL,Y
+23210 	SUBB WCURCL,Y
+23220 	BLO VCRDUN
+23230 VCRLUP	STA ,X+
+23240 	DECB
+23250 	BPL VCRLUP
+23260 	CLR WCURCL,Y
+23270 	INC WCURRW,Y
+23280 	LDA WCURRW,Y
+23290 	CMPA WLROW,Y
+23300 	BLS VCRDUN
+23310 	PSHU Y
+23320 	LBSR USPLIT
+23330 VCRDUN	PULS A,B,X,Y,PC
+23340 *
 50000 O	EQU *
 50010 * STARTUP CODE
 50020 * INTIALIZE PORTS
@@ -883,18 +916,14 @@
 50350 	TFR Y,D
 50360 	TFR A,DP
 50370 	SETDP SYSGLO/256
-50380 	LDX #$400
 50390 WAITIQ	CLR ,-U	WINDOW 0
 50410 	LBSR GETKEY
-50411 	LDA ,U
+50411 	PULU A
 50412 	CMPA #3
 50413 	BEQ IQDONE
-50419 	LBSR VITRAN
-50420 	PULU A
-50430 	STA ,X+
-50440 	CMPX #$600
-50450 	BLO *+5
-50460 	LDX #$400
+50420 	CLRB
+50430 	PSHU  A,B
+50440 	LBSR VPUTCH
 50480 	BRA WAITIQ
 50485 IQDONE	ORCC #IRQMSK
 50490 	LDA KEYCOL+1
@@ -916,4 +945,3 @@
 56040 IDLLIM	EQU *
 56050 *
 62000 	END
-
\ No newline at end of file