提交: 830ad31ed21b8d23acc7e5a4a9a1b8de29d3063a - jmr6809bos (git)

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

Commit MetaInfo

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

Log Message

I think this was improvements to the key translations, and a change in the calendar handling.

Change Summary

• delete: OSKEYT2.AS9 => OSKEY5T.AS9

差異

--- a/OSKEYT2.AS9
+++ b/OSKEY5T.AS9
@@ -16,6 +16,11 @@
 00500 KEYOLD	RMB 8	KEYBOARD SCAN TABLES
 00510 KEYSCN	RMB 8	OLD AND SCAN ARE NEGATIVE LOGIC
 00520 KEYCHG	RMB 8	POSITIVE LOGIC FOR CHANGES IN LAST SLICE
+00530 KEYOPN	RMB 8	POSITIVE LOGIC KEY RELEASE TABLE
+00535 KEYLAS	FCB KMT
+00540 KEYTIM	FCB 0
+00545 KEYRPT	FCB 40	REPEAT PAUSE
+00546 KEYRAT	FCB 6	REPEAT PERIOD
 00550 KEYIN	FDB KEYBUF
 00560 KEYOUT	FDB KEYBUF
 00600 YRBASE	FDB 1900
@@ -155,6 +160,7 @@
 02110 KMT	EQU $F0
 02120 SCRWID	EQU 32
 02130 VSPACE	EQU $60	MC6847
+02140 UNDEF	EQU -1
 02500 NUMWIN	EQU 8
 02502 WINTBL	EQU *
 02504 WSCR	EQU *-WINTBL
@@ -171,6 +177,12 @@
 02600 	FCB 0
 02610 WCURRW	EQU *-WINTBL
 02620 	FCB 0
+02630 WCSCLR	EQU *-WINTBL
+02640 	FCB $8F
+02650 WCSTIM	EQU *-WINTBL
+02660 	FCB 0
+02670 WCSTAT	EQU *-WINTBL	B7=DISPLAY	B6-B0=COUNT
+02680 	FCB $8F
 02700 WINSIZ	EQU *-WINTBL
 02710 	RMB (NUMWIN-1)*WINSIZ
 02900 KSTACO	FDB 0
@@ -279,7 +291,8 @@
 03880 	LDD #TIMOVR
 03890 	STD SYSERR
 03900 *
-03910 KEYRD	LDA KEYROW+1	CONTROL/STATUS REGISTER
+03910 KEYRD	INC KEYTIM
+03915 	LDA KEYROW+1	CONTROL/STATUS REGISTER
 03920 	ANDA #.NOT.4	SELECT DATA DIRECTION REGISTER
 03930 	STA KEYROW+1
 03940 	CLRB	0-7 INPUT
@@ -304,6 +317,11 @@
 04130 	COMA	POSITIVE LOGIC
 04140 	ANDA ,Y	NEW BIT AND NOT OLD BIT?
 04150 	STA KEYCHG-KEYSCN,Y	SAVE NEWLY SET BITS
+04151 	TFR B,A
+04152 	COMA	NOT (NEW OR NOT OLD)
+04153 	ORA ,Y
+04154 	COMA
+04155 	STA KEYOPN-KEYSCN,Y
 04160 	STB ,Y+	SAVE NEW STATE
 04170 	LEAX -1,X
 04180 	ORCC #CARRY	FOR SCAN
@@ -353,56 +371,96 @@
 04620 	BRA KYTRAN
 04630 KYSHFT	LEAX KEYSHF,PCR
 04640 KYTRAN	LDB #7	MAX COL
-04650 	LEAY KEYCHG,PCR
-04660 KYTRLP	LDA B,Y	COL BITS
-04670 	BEQ KYTRAL
-04680 	PSHS B
+04650 KYTRLP	LEAY KEYCHG,PCR
+04660 	LDA B,Y	CLOSURE BITS
+04670 	BEQ KYTRUP
+04680 	PSHU A,B
 04690 	LDB #-1	ROW COUNT
-04700 KYTBIT	INCB	COUNT BIT
-04710 	LSRA
-04720 	BCC KYTBIT
-04730 	PSHS A,B
-04740 	ASLB
-04750 	ASLB
-04760 	ASLB	B*8
-04770 	ADDB 2,S	B+COLUMNS
-04780 	LDA B,X
-04790 	BPL KYTRKY	STRAIGHT CODE
-04800 	CMPA #KMT	NO KEY DEFINED?
-04810 	BEQ KYTRNK
-04820 	CMPA #KBREAK	SYS REQ?
-04830 	BNE KYTRKY
-04840 	STA SYSATT
-04850 	BRA KYTRNK
-04860 KYTRKY	PSHS X
-04870 *BUFFER READ MUST ALSO BE UNINTERRUPTIBLE (SINGLE MPU)
-04880 	LDX KEYOUT
-04890 	PSHS X	FULL TEST
-04900 	LEAX KEYEND,PCR
-04910 	PSHS X	WRAP TEST
-04920 	LDX KEYIN
-04930 	STA ,X+
-04940 	CMPX ,S++
-04950 	BLO KYTRKN
-04960 	LEAX KEYBUF,PCR
-04970 KYTRKN	CMPX ,S++
-04980 	BNE KYTRKK
-04990 	LDA #12
-05000 	ADDA BEEP
-05010 	STA BEEP
-05020 	BRA KYTRKF	DROP KEY
-05030 KYTRKK	STX KEYIN
-05040 KYTRKF	PULS X
-05050 KYTRNK	PULS A,B	ROW PATTERN, COUNT
-05060 	TSTA	MORE ROWS?
-05070 	BNE KYTBIT
-05080 	PULS B
-05090 KYTRAL	DECB	NEXT COL
-05100 	BPL KYTRLP
-05110 *
+04700 KYTRDL	BSR KYTBIT
+04710 	CMPA #KMT	DEFINED?
+04720 	BEQ KYTRDM
+04730 	PSHU A
+04740 	BSR KYBPUT
+04750 KYTRDM	TST ,U	MORE ROWS?
+04760 	BNE KYTRDL
+04770 	PULU A,B
+04780 KYTRUP	LEAY KEYOPN,PCR
+04790 	LDA B,Y
+04795 	BEQ KYTRNX
+04800 	PSHU A,B
+04810 	LDB #-1
+04820 KYTRUL	BSR KYTBIT
+04830 	CMPA KEYLAS
+04840 	BNE KYTRUM
+04850 	CLR KEYTIM
+04860 	LDA #KMT
+04870 	STA KEYLAS
+04880 KYTRUM	TST ,U
+04890 	BNE KYTRUL
+04900 	PULU A,B
+04910 KYTRNX	DECB
+04920 	BPL KYTRLP
+04930 *
+04940 * REPEATS
+04950 	LDA KEYLAS
+04960 	CMPA #KMT	KEY?
+04970 	BEQ KYRPNO
+04980 	LDB KEYTIM
+04990 	CMPB KEYRPT
+05000 	BLO KYRPNO
+05005 	PSHU A
+05006 	BSR KYBPUT
+05010 	SUBB KEYRAT
+05020 	STB KEYTIM
+05050 KYRPNO	BRA DOBEEP
+05060 *
+05065 * WILL HANG IF TOP OF STACK CLEAR
+05070 KYTBIT	LDA ,U	ROW BITS
+05080 KYTBLP	INCB	COUNT BIT
+05090 	LSRA
+05100 	BCC KYTBLP
+05110 	STA ,U
+05120 	TFR B,A	KEEP COUNT
+05130 	ASLA
+05140 	ASLA
+05150 	ASLA
+05160 	ADDA 1,U	COLUMNS
+05170 	LDA A,X	CHARACTER
+05180 	RTS
+05190 *
+05200 *BUFFER READ MUST ALSO BE UNINTERRUPTIBLE (SINGLE MPU)
+05210 KYBPUT	PSHS A,X,CC
+05220 	ORCC #IRQMSK
+05230 	PULU A	KEY CODE
+05240 	CMPA #KBREAK	SYSTEM ATTENTION?
+05250 	BNE KYBPCH
+05260 	STA SYSATT
+05270 	LDA #KMT
+05280 	BRA KYBPF	NO REPEAT
+05290 KYBPCH	CMPA #KMT
+05300 	BEQ KYBPF
+05310 	LEAX KEYEND,PCR
+05320 	PSHS X	WRAP TEST
+05330 	LDX KEYIN
+05340 	STA ,X+
+05350 	CMPX ,S++
+05360 	BLO KYBPNW
+05370 	LEAX KEYBUF,PCR
+05380 KYBPNW	CMPX KEYOUT
+05390 	BNE KYBPNF
+05400 	LDA #12
+05410 	ADDA BEEP
+05420 	STA BEEP
+05430 	LDA #KMT
+05440 	BRA KYBPF
+05450 KYBPNF	STX KEYIN
+05460 KYBPF	STA KEYLAS
+05470 	CLR KEYTIM
+05480 	PULS A,X,CC,PC
+05490 *
 10000 *
 10003 * OTHER HALF OF 60 HZ BEL
-10005 	LDA BEEP
+10005 DOBEEP	LDA BEEP
 10007 	BEQ NOBEEP
 10009 	DECA
 10011 	STA BEEP
@@ -416,149 +474,107 @@
 10062 	SETDP 0
 10070 *
 15000 * Z IS UNDEFINED HANDLER
-15005 CALTBL	FDB Z
-15010 	FDB Z
-15015 	FDB Z
-15020 	FDB Z
-15025 	FDB Z
-15030 	FDB Z
-15035 	FDB Z
-15040 	FDB Z
-15045 	FDB Z
-15050 	FDB Z
-15055 	FDB Z
-15060 	FDB Z
-15065 	FDB Z
-15070 	FDB Z
-15075 	FDB Z
-15080 	FDB Z
-15085 	FDB Z
-15090 	FDB Z
-15095 	FDB Z
-15100 	FDB Z
-15105 	FDB Z
-15110 	FDB Z
-15115 	FDB Z
-15120 	FDB Z
-15125 	FDB Z
-15130 	FDB Z
-15135 	FDB Z
-15140 	FDB Z
-15145 	FDB Z
-15150 	FDB Z
-15155 	FDB Z
-15160 	FDB Z
-15165 	FDB Z
-15170 	FDB Z
-15175 	FDB Z
-15180 	FDB Z
-15185 	FDB Z
-15190 	FDB Z
-15195 	FDB Z
-15200 	FDB Z
-15205 	FDB Z
-15210 	FDB Z
-15215 	FDB Z
-15220 	FDB Z
-15225 	FDB Z
-15230 	FDB Z
-15235 	FDB Z
-15240 	FDB Z
-15245 	FDB Z
-15250 	FDB Z
-15255 	FDB Z
-15260 	FDB Z
-15265 	FDB Z
-15270 	FDB Z
-15275 	FDB Z
-15280 	FDB Z
-15285 	FDB Z
-15290 	FDB Z
-15295 	FDB Z
-15300 	FDB Z
-15305 	FDB Z
-15310 	FDB Z
-15315 	FDB Z
-15320 	FDB Z
-15325 	FDB Z
-15330 	FDB Z
-15335 	FDB Z
-15340 	FDB Z
-15345 	FDB Z
-15350 	FDB Z
-15355 	FDB Z
-15360 	FDB Z
-15365 	FDB Z
-15370 	FDB Z
-15375 	FDB Z
-15380 	FDB Z
-15385 	FDB Z
-15390 	FDB Z
-15395 	FDB Z
-15400 	FDB Z
-15405 	FDB Z
-15410 	FDB Z
-15415 	FDB Z
-15420 	FDB Z
-15425 	FDB Z
-15430 	FDB Z
-15435 	FDB Z
-15440 	FDB Z
-15445 	FDB Z
-15450 	FDB Z
-15455 	FDB Z
-15460 	FDB Z
-15465 	FDB Z
-15470 	FDB Z
-15475 	FDB Z
-15480 	FDB Z
-15485 	FDB Z
-15490 	FDB Z
-15495 	FDB Z
-15500 	FDB Z
-15505 	FDB Z
-15510 	FDB Z
-15515 	FDB Z
-15520 	FDB Z
-15525 	FDB Z
-15530 	FDB Z
-15535 	FDB Z
-15540 	FDB Z
-15545 	FDB Z
-15550 	FDB Z
-15555 	FDB Z
-15560 	FDB Z
-15565 	FDB Z
-15570 	FDB Z
-15575 	FDB Z
-15580 	FDB Z
-15585 	FDB Z
-15590 	FDB Z
-15595 	FDB Z
-15600 	FDB Z
-15605 	FDB Z
-15610 	FDB Z
-15615 	FDB Z
-15620 	FDB Z
-15625 	FDB Z
+15005 CALTBL	FDB YIELD
 15630 	FDB Z
-15635 	FDB Z
-15640 	FDB Z
-15645 * 128 ENTRIES -> NO BOUNDS CHECK ON CALL NUMBER
-15650 Z	EQU *
+15640 CALSIZ	EQU (*-CALTBL)/2-1
+15650 	SETDP  SYSGLO/$100
+15660 Z	STA $5FF
+15670 	LDA #UNDEF
+15680 	STA SYSERR
+15800 YIELD	CWAI #.NOT.IRQMSK
+15810 	RTS
 16000 * SWI DISABLES IRQ
 16010 SWISRV	LEAY CALTBL,PCR
-16900 	PULU A	CALL #
-16910 	ASLA	WORD ADR
-16920 	JSR [A,Y]
-16930 	RTI
-16940 *
+16020 	LEAX SYSGLO,PCR
+16030 	TFR X,D
+16040 	TFR A,DP
+16045 	SETDP  SYSGLO/$100
+16050 * INDEX PROCESS TABLE ENTRY
+16060 	LEAX PROTBL,PCR
+16070 	LDA #PROSIZ
+16080 	LDB CURPRO
+16090 	MUL
+16100 	LEAX D,X
+16110 	STX PROCIX
+16120 	PULU A	CALL #
+16130 	CMPA #CALSIZ
+16140 	BLS SWISC
+16150 	JSR [CALSIZ*2,Y]	UNDEFINED
+16160 	BRA SWISN
+16180 SWISC	ASLA	WORD
+16190 	JSR [A,Y]	SIGNED OFFSET
+16195 SWISN	STU 8,S	BALANCE PARAMETERS
+16200 	RTI
 20000 *
 20010 CLICK	PSHS A
 20020 	LDA VIDMOD
 20030 	EORA #BSOUND
 20040 	STA VIDMOD
 20050 	PULS A,PC
+20060 *
+20070 GETKEY	PSHS CC,A,B,X,Y
+20080 	LEAY KEYEND,PCR
+20090 	PSHS Y
+20095 	BSR IXWIND
+20100 	LDY ,U
+20120 	BSR IXCRSR
+20125 	LDA WCSCLR,Y
+20130 	LDB [,U]	CHARACTER UNDER CURSOR
+20140 	ORCC #IRQMSK
+20150 GETKLP	LDX KEYOUT
+20160 	CMPX KEYIN
+20170 	BNE GETKIN
+20180 	PSHS B
+20190 	LDB WCSTAT,Y	DISPLAY IT?
+20200 	BPL GETKNC
+20210 	ANDB #$7F	FLASH?
+20220 	BEQ GETKNF
+20230 	DEC WCSTIM,Y
+20240 	BGT GETKNF
+20250 	STB WCSTIM,Y	RESTORE COUNT
+20260 	ADDA #$10	NEW COLOR
+20270 	BMI GETKNF
+20280 	LDA #$8F
+20290 GETKNF	STA [,U]	CURSOR ON SCREEN
+20300 GETKNC	PULS B
+20310 	CLR ,-U	YIELD CPU
+20320 	SWI
+20330 	BRA GETKLP
+20340 GETKIN	STB [,U++]	PUT CHARACTER BACK ON SCREEN
+20350 	LDA ,X+
+20360 	CMPX ,S++	WRAP?
+20370 	BLO GETKBF
+20380 	LEAX KEYBUF,PCR
+20390 GETKBF	STX KEYOUT
+20400 	PSHU A
+20410 	PULS PC,CC,A,B,X,Y
+20420 *
+20430 IXWIND	PSHS A,B,Y
+20440 	LEAY WINTBL,PCR
+20450 	PULU B
+20460 	ANDB #NUMWIN-1
+20470 	LDA #WINSIZ
+20480 	MUL
+20490 	LEAY D,Y
+20500 	PSHU Y
+20510 	PULS A,B,Y,PC
+20520 *
+20530 IXCRSR	PSHS A,B,X
+20540 	LDX ,U
+20550 	LDA WSCR,X
+20560 	ASLA
+20570 	PSHS A
+20580 	LDA #SCRWID
+20590 	LDB WCURRW,X
+20600 	ADDB WTROW,X
+20610 	MUL
+20620 	ADDB WLCOL,X
+20630 	ADCA #0
+20640 	ADDB WCURCL,X
+20650 	ADCA ,S+
+20660 	STD ,U
+20670 	PULS A,B,X,PC
+20680 *
 50000 O	EQU *
 50010 * STARTUP CODE
 50020 * INTIALIZE PORTS
@@ -596,28 +612,31 @@
 50350 	TFR Y,D
 50360 	TFR A,DP
 50370 	SETDP SYSGLO/256
-50380 	LEAY KEYEND,PCR
-50390 	PSHS Y
-50400 	ANDCC #.NOT.IRQMSK
-50410 WAITIQ	LDX KEYOUT
-50420 	CMPX KEYIN
-50430 	BEQ WAITIQ
-50440 	ORCC #IRQMSK
-50450 	LDX KEYOUT
-50460 	LDA ,X+
-50470 	CMPX ,S
-50480 	BLO WAITBF
-50490 	LEAX KEYBUF,PCR
-50500 WAITBF	STX KEYOUT
-50510 	ANDCC #.NOT.IRQMSK
-50520 	STA $400
-54910 	BRA WAITIQ
+50380 	LDX #$400
+50390 WAITIQ	CLR ,-U	WINDOW 0
+50410 	LBSR GETKEY
+50420 	PULU A
+50430 	STA ,X+
+50440 	CMPX #$600
+50450 	BLO *+5
+50460 	LDX #$400
+50470 	CMPA #3
+50480 	BNE WAITIQ
+50485 	ORCC #IRQMSK
+50490 	LDA KEYCOL+1
+50500 	ANDA #.NOT.1
+50510 	STA KEYCOL+1
+50520 	LDD SVSAVE,PCR
+50530 	STD SWIVEC
+50540 	LDD IVSAVE,PCR
+50550 	STD IRQVEC
+50560 	SWI
 55990 *
 56000 	FDB 0
-56010 IDLESL	RMB 32
+56010 IDLESL	RMB 128
 56020 IDLESP	EQU *
 56030 	FDB 0
-56032 IDLEUL	RMB 32
+56032 IDLEUL	RMB 128
 56034 IDLEUB	EQU *
 56036 	FDB 0
 56040 IDLLIM	EQU *