提交: 4dfebdcc7138810148fd9b7e9c3dae7eb2455cb4 - jmr6809bos (git)

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

Commit MetaInfo

• 修訂: 4dfebdcc7138810148fd9b7e9c3dae7eb2455cb4 (tree)
• 時間: 2013-07-08 13:50:29
• 作者: Joel Matthew Rees <reiisi@user...>
• Commiter: Joel Matthew Rees

Log Message

I think this was where I got keys to repeat.

Change Summary

• delete: OSKEY5T.AS9 => OSKEY5RP.AS9

差異

--- a/OSKEY5T.AS9
+++ b/OSKEY5RP.AS9
@@ -17,7 +17,9 @@
 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
+00535 KEYLAS	FCB -1
+00536 KEYRAW	FCB -1
+00537 KEYVAL	FCB 0
 00540 KEYTIM	FCB 0
 00545 KEYRPT	FCB 40	REPEAT PAUSE
 00546 KEYRAT	FCB 6	REPEAT PERIOD
@@ -199,7 +201,7 @@
 03040 	BEQ *+3
 03050 	RTI
 03060 *
-03065 	CLR OVRDRV	SWITCH TO WARP SPEED
+03065 *	CLR OVRDRV	SWITCH TO WARP SPEED
 03070 * INDEX PROCESS TABLE ENTRY
 03072 	LEAX PROTBL,PCR
 03074 	LDA #PROSIZ
@@ -222,10 +224,15 @@
 03200 	LBSR CLICK
 03205 *
 03210 	LDA TICK
+03211 	SUBA #60
+03212 	LBLO KEYRD
+03213 	INC SECOND
+03214 	STA TICK	ALLOW TICKS TO OVERFLOW
+03215 	LDA SECOND
 03220 	SUBA #60
 03230 	LBLO KEYRD
 03240 	INC MINUTE
-03250 	STA SECOND	ALLOW TICKS TO OVERFLOW SECONDS
+03250 	STA SECOND	ALLOW SECONDS TO OVERFLOW
 03260 	LDA MINUTE
 03270 	SUBA #60
 03280 	LBLO KEYRD
@@ -243,7 +250,7 @@
 03400 	CMPA #2
 03410 	BNE NOLEAP
 03420 	LDB YEAR
-03430 	TSTB #3 	MODULO 4
+03430 	BITB #3 	MODULO 4
 03440 	BNE NOLEAP
 03450 	LSRB	YEAR/4
 03460 	LSRB
@@ -381,7 +388,9 @@
 04720 	BEQ KYTRDM
 04730 	PSHU A
 04740 	BSR KYBPUT
-04750 KYTRDM	TST ,U	MORE ROWS?
+04743 KYTRDM	LDA KEYRAW
+04745 	STA KEYLAS
+04750 	TST ,U	MORE ROWS?
 04760 	BNE KYTRDL
 04770 	PULU A,B
 04780 KYTRUP	LEAY KEYOPN,PCR
@@ -390,10 +399,11 @@
 04800 	PSHU A,B
 04810 	LDB #-1
 04820 KYTRUL	BSR KYTBIT
+04825 	LDA KEYLAS
 04830 	CMPA KEYLAS
 04840 	BNE KYTRUM
 04850 	CLR KEYTIM
-04860 	LDA #KMT
+04860 	LDA #-1
 04870 	STA KEYLAS
 04880 KYTRUM	TST ,U
 04890 	BNE KYTRUL
@@ -403,11 +413,12 @@
 04930 *
 04940 * REPEATS
 04950 	LDA KEYLAS
-04960 	CMPA #KMT	KEY?
+04960 	CMPA #-1
 04970 	BEQ KYRPNO
 04980 	LDB KEYTIM
 04990 	CMPB KEYRPT
 05000 	BLO KYRPNO
+05004 	LDA KEYVAL
 05005 	PSHU A
 05006 	BSR KYBPUT
 05010 	SUBB KEYRAT
@@ -425,7 +436,9 @@
 05140 	ASLA
 05150 	ASLA
 05160 	ADDA 1,U	COLUMNS
+05165 	STA KEYRAW
 05170 	LDA A,X	CHARACTER
+05175 	STA KEYVAL
 05180 	RTS
 05190 *
 05200 *BUFFER READ MUST ALSO BE UNINTERRUPTIBLE (SINGLE MPU)
@@ -435,7 +448,8 @@
 05240 	CMPA #KBREAK	SYSTEM ATTENTION?
 05250 	BNE KYBPCH
 05260 	STA SYSATT
-05270 	LDA #KMT
+05270 	LDA #-1
+05275 	STA KEYLAS
 05280 	BRA KYBPF	NO REPEAT
 05290 KYBPCH	CMPA #KMT
 05300 	BEQ KYBPF
@@ -451,11 +465,11 @@
 05400 	LDA #12
 05410 	ADDA BEEP
 05420 	STA BEEP
-05430 	LDA #KMT
+05430 	LDA #-1
+05435 	STA KEYLAS
 05440 	BRA KYBPF
 05450 KYBPNF	STX KEYIN
-05460 KYBPF	STA KEYLAS
-05470 	CLR KEYTIM
+05470 KYBPF	CLR KEYTIM
 05480 	PULS A,X,CC,PC
 05490 *
 10000 *
@@ -575,6 +589,35 @@
 20660 	STD ,U
 20670 	PULS A,B,X,PC
 20680 *
+20690 VITRAN	PSHS A
+20700 	LDA ,U
+20710 	CMPA #'  '
+20720 	BLO VITRDF
+20730 	CMPA #'?
+20740 	BHI *+6
+20750 	ORA #$40	UNINVERT
+20760 	BRA VITRET
+20770 	CMPA #'^
+20780 	BLS VITRET	PASS IT ON
+20790 	CMPA #$60	GRAVE ACCENT
+20800 	BHS *+6
+20810 	LDA #$20	UNDERSCORE IS INVERTED SPACE
+20820 	BRA VITRET
+20830 	BHI *+6
+20840 	LDA #$27	INVERTED ACCENT
+20850 	BRA VITRET
+20860 	CMPA #$7C	BAR
+20870 	BNE *+6
+20880 	LDA #$3A	INVERTED COLON
+20890 	BRA VITRET
+20900 	CMPA #$7F	DELETE
+20910 	BHS VITRDF
+20920 	ANDA #$1F	LOWER CASE IS INVERTED CAP ALPHA
+20930 VITRET	STA ,U
+20940 	PULS A,PC
+20950 VITRDF	LDA #$3F	INVERTED ? FOR BAD CODES
+20960 	BRA VITRET
+20970 *
 50000 O	EQU *
 50010 * STARTUP CODE
 50020 * INTIALIZE PORTS
@@ -615,14 +658,17 @@
 50380 	LDX #$400
 50390 WAITIQ	CLR ,-U	WINDOW 0
 50410 	LBSR GETKEY
+50411 	LDA ,U
+50412 	CMPA #3
+50413 	BEQ IQDONE
+50419 	LBSR VITRAN
 50420 	PULU A
 50430 	STA ,X+
 50440 	CMPX #$600
 50450 	BLO *+5
 50460 	LDX #$400
-50470 	CMPA #3
-50480 	BNE WAITIQ
-50485 	ORCC #IRQMSK
+50480 	BRA WAITIQ
+50485 IQDONE	ORCC #IRQMSK
 50490 	LDA KEYCOL+1
 50500 	ANDA #.NOT.1
 50510 	STA KEYCOL+1