提交: dbae67a49d0bb6ac38c6146d1495601739010527 - jmr6809bos (git)

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

Commit MetaInfo

• 修訂: dbae67a49d0bb6ac38c6146d1495601739010527 (tree)
• 時間: 2013-07-08 13:52:10
• 作者: Joel Matthew Rees <reiisi@user...>
• Commiter: Joel Matthew Rees

Log Message

This would have been where I got some windowing functionality running. (Textmode only.)

Change Summary

• delete: OSKEY5RP.AS9 => OSWIND2.AS9

差異

--- a/OSKEY5RP.AS9
+++ b/OSWIND2.AS9
@@ -1,4 +1,4 @@
-00080 	ORG $4000
+00080 	ORG $5000
 00090 SYSGLO	EQU *
 00100 * SYSGLO MUST BE ON EVEN PAGE (256 BYTE) BOUNDARY
 00105 IVSAVE	RMB 2	IRQ VECTOR FOR RETURN TO EDTASM
@@ -166,15 +166,15 @@
 02500 NUMWIN	EQU 8
 02502 WINTBL	EQU *
 02504 WSCR	EQU *-WINTBL
-02506 	FCB 2
+02506 	FCB 2 CONSOLE
 02510 WLCOL	EQU *-WINTBL
-02520 	FCB 13
-02530 WRCOL	EQU *-WINTBL
+02520 	FCB 0
+02530 WWCOL	EQU *-WINTBL
 02540 	FCB 31
 02550 WTROW	EQU *-WINTBL
-02560 	FCB 0
-02570 WBROW	EQU *-WINTBL
-02580 	FCB 0
+02560 	FCB 1
+02570 WLROW	EQU *-WINTBL
+02580 	FCB 15
 02590 WCURCL	EQU *-WINTBL
 02600 	FCB 0
 02610 WCURRW	EQU *-WINTBL
@@ -186,7 +186,19 @@
 02670 WCSTAT	EQU *-WINTBL	B7=DISPLAY	B6-B0=COUNT
 02680 	FCB $8F
 02700 WINSIZ	EQU *-WINTBL
-02710 	RMB (NUMWIN-1)*WINSIZ
+02709 * CLOCK WINDOW
+02710 	FCB 2
+02711 	FCB 13
+02712 	FCB 31
+02713 	FCB 0
+02714 	FCB 0
+02715 	FCB 0
+02716 	FCB 0
+02717 	FCB $8F
+02718 	FCB 0
+02719 	FCB 0
+02720 *
+02890 	RMB (NUMWIN-2)*WINSIZ
 02900 KSTACO	FDB 0
 02910 	RMB $100	KERNEL'S STACK
 02920 KSTACK	EQU *
@@ -388,9 +400,7 @@
 04720 	BEQ KYTRDM
 04730 	PSHU A
 04740 	BSR KYBPUT
-04743 KYTRDM	LDA KEYRAW
-04745 	STA KEYLAS
-04750 	TST ,U	MORE ROWS?
+04750 KYTRDM	TST ,U	MORE ROWS?
 04760 	BNE KYTRDL
 04770 	PULU A,B
 04780 KYTRUP	LEAY KEYOPN,PCR
@@ -449,8 +459,7 @@
 05250 	BNE KYBPCH
 05260 	STA SYSATT
 05270 	LDA #-1
-05275 	STA KEYLAS
-05280 	BRA KYBPF	NO REPEAT
+05280 	BRA KYBPF1	NO REPEAT
 05290 KYBPCH	CMPA #KMT
 05300 	BEQ KYBPF
 05310 	LEAX KEYEND,PCR
@@ -466,9 +475,10 @@
 05410 	ADDA BEEP
 05420 	STA BEEP
 05430 	LDA #-1
-05435 	STA KEYLAS
-05440 	BRA KYBPF
+05440 	BRA KYBPF1
 05450 KYBPNF	STX KEYIN
+05455 	LDA KEYRAW
+05460 KYBPF1	STA KEYLAS
 05470 KYBPF	CLR KEYTIM
 05480 	PULS A,X,CC,PC
 05490 *
@@ -575,6 +585,8 @@
 20520 *
 20530 IXCRSR	PSHS A,B,X
 20540 	LDX ,U
+20545 	PSHU X
+20546 	BSR BWIND
 20550 	LDA WSCR,X
 20560 	ASLA
 20570 	PSHS A
@@ -618,6 +630,222 @@
 20950 VITRDF	LDA #$3F	INVERTED ? FOR BAD CODES
 20960 	BRA VITRET
 20970 *
+20980 * RESTORE CURSOR TO WINDOW BOUNDARIES
+20990 BWIND	PSHS A,Y
+21000 	PULU Y
+21010 	LDA WCURRW,Y
+21020 	BPL BWINRH
+21030 	CLR WCURRW,Y
+21040 	CLR WCURCL,Y
+21050 	BRA BWINQT
+21060 BWINRH	CMPA WLROW,Y
+21070 	BLS BWINCL
+21080 	LDA WLROW,Y
+21090 	STA WCURRW,Y
+21100 	LDA WWCOL,Y
+21110 	STA WCURCL,Y
+21120 	BRA BWINQT
+21130 BWINCL	LDA WCURCL,Y
+21140 	BPL BWINCH
+21150 	CLR WCURCL,Y
+21160 	BRA BWINQT
+21170 BWINCH	CMPA WWCOL,Y
+21180 	BLS BWINQT
+21190 	LDA WWCOL,Y
+21200 	STA WCURCL,Y
+21210 BWINQT	PULS A,Y,PC
+21220 *
+21230 * RETURN POINTER TO HOME IN WINDOW
+21240 IXHOME	PSHS A,B,X
+21250 	LDX ,U
+21260 	LDA WSCR,X
+21270 	ASLA
+21280 	PSHS A
+21290 	LDA #SCRWID
+21300 	LDB WTROW,X
+21310 	MUL
+21320 	ADDB WLCOL,X
+21330 	ADCA ,S+
+21340 	STD ,U
+21350 	PULS A,B,X,PC
+21360 *
+21370 * SPLIT SCREEN AND INSERT LINE AT CURSOR
+21380 USPLIT	PSHS A,B,X,Y
+21390 	LDY ,U	SET UP
+21400 	BSR IXHOME
+21410 	PULU X
+21420 	LDA WCURRW,Y
+21430 	BPL *+4
+21440 	PULS A,B,X,Y,PC	EARLY RETURN
+21450 	LDB #SCRWID-1
+21460 	SUBB WWCOL,Y	WRAP ADJUST
+21470 	PSHS A,B
+21480 	LDB WCURCL,Y
+21490 	CMPB WWCOL,Y
+21500 	BLS USPLCF
+21510 	CLR WCURCL,Y
+21520 	INCA	WRAP ROW
+21530 USPLCF	TSTA	ROW 0?
+21540 	BNE USPLRT
+21550 	LDA #VSPACE
+21560 	LDB WCURCL,Y
+21570 	BEQ USPLQT
+21580 USPLL0	STA ,X+
+21590 	DECB	TO CURSOR
+21600 	BGT USPLL0
+21610 	BRA USPLQT
+21620 * DO WHOLE ROWS
+21630 USPLRT	CMPA WLROW,Y
+21640 	BLS USPLSR
+21650 	LDA WLROW,Y
+21660 	INCA	OVER END
+21670 	STA WCURRW,Y
+21680 USPLSR	DECA	# SCROLL
+21690 	BEQ USPLPS
+21700 	STA ,S
+21710 USPLRL	LDB WWCOL,Y
+21720 USPLCL	LDA SCRWID,X
+21730 	STA ,X+
+21740 	DECB	NATURAL
+21750 	BPL USPLCL
+21760 	LDB 1,S
+21770 	ABX	WRAP LINE
+21780 	DEC ,S	WHOLE CT
+21790 	BGT USPLRL
+21800 * NOW PARTIAL SCROLL LAST
+21810 USPLPS	LDA WCURCL,Y
+21820 	BEQ USPLCE
+21830 	STA ,S
+21840 	LDB #VSPACE
+21850 USPLPL	LDA SCRWID,X
+21860 	STB SCRWID,X
+21870 	STA ,X+
+21880 	DEC ,S	WHOLE CT
+21890 	BGT USPLPL
+21900 USPLCE	DEC WCURRW,Y	BUMP CURSOR BACK
+21910 	LDA WWCOL,Y
+21920 	SUBA WCURCL,Y
+21930 USPLEL	STB ,X+
+21940 	DECA	NATURAL
+21950 	BPL USPLEL
+21960 USPLQT	LEAS 2,S
+21970 	PULS A,B,X,Y,PC
+21980 *
+21990 * PUT CHARACTER ON SCREEN, TTY, WITH CONTROL CHARACTERS
+22000 VPUTCH	PSHS A,X
+22010 	PULU A
+22020 	LBSR IXWIND
+22030 	CMPA #$20
+22040 	BHS VPUTVC
+22050 	ASLA	CTL FN
+22060 	LEAY CTLTBL,PCR
+22070 	JSR [A,X]
+22080 	BRA VPUTQT
+22090 * PUT VISIBLE CHARACTER
+22100 VPUTVC	PSHS A
+22110 	LBSR VITRAN
+22120 	PULU A
+22130 	LDX ,U
+22140 	LBSR IXCRSR
+22150 	STA [,U++]
+22160 	LDA WCURCL,X
+22170 	INCA
+22180 	CMPA WWCOL,X
+22190 	BLS VPUTQT
+22200 	CLRA
+22210 	STA WCURCL,X
+22220 	LDA WCURRW,X
+22230 	INCA
+22240 	CMPA WLROW,X
+22250 	BLS VPUTQT
+22260 	PSHU X
+22270 	LBSR USPLIT
+22280 VPUTQT	PULS A,X,PC
+22290 *
+22300 * TABLE OF CONTROL FUNCTION POINTERS FOR PRINT ROUTINES
+22310 CTLTBL	FDB VNUL	ASCII NUL
+22320 	FDB VNUL
+22330 	FDB VNUL
+22340 	FDB VNUL
+22350 	FDB VNUL
+22360 	FDB VNUL
+22370 	FDB VNUL
+22380 	FDB VBEL
+22390 	FDB VBS
+22400 	FDB VNUL
+22410 	FDB VNUL
+22420 	FDB VNUL
+22430 	FDB VFF
+22440 	FDB VNUL
+22450 	FDB VNUL
+22460 	FDB VNUL
+22470 	FDB VNUL
+22480 	FDB VNUL
+22490 	FDB VNUL
+22500 	FDB VNUL
+22510 	FDB VNUL
+22520 	FDB VNUL
+22530 	FDB VNUL
+22540 	FDB VNUL
+22550 	FDB VNUL
+22560 	FDB VNUL
+22570 	FDB VNUL
+22580 	FDB VNUL
+22590 	FDB VNUL
+22600 	FDB VNUL
+22610 	FDB VNUL
+22620 	FDB VNUL
+22630 *
+22640 * DO NOTHING
+22650 VNUL	LEAU 2,U
+22660 	RTS
+22670 *
+22680 * LOW TONE
+22690 VBEL	PSHS A
+22700 	LEAU 2,U
+22710 	LDA BEEP
+22720 	ADDA #6
+22730 	STA BEEP
+22740 	PULS A,PC
+22750 *
+22760 * BACK SPACE DESTRUCTIVE
+22770 VBS	PSHS A,X
+22780 	LDX ,U
+22790 	DEC WCURCL,X
+22800 	BPL VBSNW
+22810 	LDA WWCOL,X
+22820 	STA WCURCL,X
+22830 	DEC WCURRW,X
+22840 	BPL VBSNW
+22850 	CLR WCURRW,X
+22860 VBSNW	LBSR IXCRSR
+22870 	LDA #VSPACE
+22880 	STA [,U++]
+22890 	PULS A,X,PC
+22900 *
+22910 * CLEAR WINDOW, HOME CURSOR
+22920 VFF	PSHS A,B,X,Y
+22930 	LDY ,U
+22940 	LBSR IXHOME
+22950 	PULU X
+22960 	CLR WCURRW,Y
+22970 	CLR WCURCL,Y
+22980 	LDB #SCRWID
+22990 	SUBB WWCOL,Y
+23000 	LDA WLROW,Y
+23010 	PSHS A,B
+23020 	LDA #VSPACE
+23030 VFFLL	LDB WWCOL,Y
+23040 VFFCL	STA ,X+
+23050 	DECB
+23060 	BPL VFFCL
+23070 	LDB 1,S
+23080 	ABX
+23090 	DEC ,S
+23100 	BPL VFFLL
+23110 	LEAS 2,S
+23120 	PULS A,B,X,Y,PC
+23130 *
 50000 O	EQU *
 50010 * STARTUP CODE
 50020 * INTIALIZE PORTS