提交: 07f658df0080cf0c0a56e361fab7b2270c9d697e - jmr6809bos (git)

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

Commit MetaInfo

• 修訂: 07f658df0080cf0c0a56e361fab7b2270c9d697e (tree)
• 時間: 2013-07-08 12:03:27
• 作者: Joel Matthew Rees <reiisi@user...>
• Commiter: Joel Matthew Rees

Log Message

2nd step: gettin a keyboard press into the video buffer.

Change Summary

• delete: EKYTS.AS9
• add: TIMKEY.AS9

差異

--- a/EKYTS.AS9
+++ /dev/null
@@ -1,55 +0,0 @@
-00100 O	LDU #$8000
-00110 	LDS #$7800
-00120 KR	EQU $FF00
-00130 KC	EQU $FF02
-00140 	LDA KC+1
-00150 	ANDA #.NOT.4
-00160 	STA KC+1
-00170 	LDB #$FF
-00180 	STB KC
-00190 	ORA #4
-00200 	STA KC+1
-00210 KLOOP	LDA #7
-00212 	BSR HOME
-00215 	LDB #$FF
-00216 	STB KC
-00220 	ANDCC #.NOT.1
-00230 KILOOP	ROL KC
-00250 	LDB KR
-00260 	PSHU B
-00270 	BSR HXOUT
-00271 	LDB KC
-00272 	PSHU B
-00273 	BSR HXOUT
-00280 	DECA
-00281 	ORCC #1
-00290 	BPL KILOOP
-00300 	BRA KLOOP
-00310 *
-00320 HOME	PSHS A,B
-00330 	LDD #$400
-00340 	STD $88
-00350 	PULS A,B,PC
-00360 *
-00370 HXOUT	PSHS A
-00380 	LDA ,U
-00390 	LSRA
-00400 	ASRA
-00410 	ASRA
-00420 	ASRA
-00430 	BSR DIGOUT
-00440 	LDA ,U+
-00450 	ANDA #$F
-00460 	BSR DIGOUT
-00465 	LDA #' 
-00466 	JSR [$A002]
-00470 	PULS A,PC
-00480 *
-00490 DIGOUT	CMPA #9
-00510 	BLS HXODEC
-00520 	ADDA #'A-'9-1
-00530 HXODEC	ADDA #'0
-00540 	JSR [$A002]
-00550 	RTS
-00560 	END
-
\ No newline at end of file

--- /dev/null
+++ b/TIMKEY.AS9
@@ -0,0 +1,97 @@
+00100 KR	EQU $FF00
+00110 KC	EQU $FF02
+00120 VSAVE	RMB 2
+00130 IRQV	EQU $10C
+00140 COUNT	FCB 0
+00150 OLDKEY	FCB 0
+00160 FLAG	FCB $80
+00200 O	LDU #$8000
+00210 	LDS #$7800
+00220 	LDA KC+1
+00230 	ANDA #.NOT.4
+00240 	STA KC+1
+00250 	LDB #$FF
+00260 	STB KC
+00270 	ORA #4
+00280 	STA KC+1
+00290 	LDB #$BF
+00295 	STB KC
+00300 	LDD IRQV+1
+00310 	STD VSAVE
+00315 	ORCC #$10
+00320 	LDD #CKEY
+00330 	STD IRQV+1
+00340 	LDB KC+1
+00350 	ANDB #$FD
+00360 	ORB #1
+00370 	TST KC
+00380 	STB KC+1
+00390 KTIME	CWAI #$EF
+00400 	LDB COUNT
+00410 	BEQ KTIME
+00420 	LBSR HOME
+00430 	PSHU B
+00440 	LBSR HXOUT
+00442 	LDA FLAG
+00444 	JSR [$A002]
+00446 	INCA 
+00448 	STA FLAG
+00450 	BRA KTIME
+00460 *
+00470 CKEY	LDA KR
+00475 	CMPA #$FF
+00480 	BEQ CKEY0
+00490 	CMPA OLDKEY
+00495 	BEQ CKEYLD
+00500 	STA OLDKEY
+00505 	BRA CKEY0
+00510 CKEYLD	INC COUNT
+00515 	BRA CKEYBK
+00520 CKEY0	CLR COUNT
+00525 CKEYBK	TST KC
+00530 	RTI
+00535 *
+01110 KLOOP	LDA #7
+01120 	BSR HOME
+01130 	LDB #$FF
+01140 	STB KC
+01150 	ANDCC #.NOT.1
+01160 KILOOP	ROL KC
+01170 	LDB KR
+01180 	PSHU B
+01190 	BSR HXOUT
+01200 	LDB KC
+01210 	PSHU B
+01220 	BSR HXOUT
+01230 	DECA
+01240 	ORCC #1
+01250 	BPL KILOOP
+01260 	BRA KLOOP
+01270 *
+01280 HOME	PSHS A,B
+01290 	LDD #$400
+01300 	STD $88
+01310 	PULS A,B,PC
+01320 *
+01330 HXOUT	PSHS A
+01340 	LDA ,U
+01350 	LSRA
+01360 	ASRA
+01370 	ASRA
+01380 	ASRA
+01390 	BSR DIGOUT
+01400 	LDA ,U+
+01410 	ANDA #$F
+01420 	BSR DIGOUT
+01430 	LDA #' 
+01440 	JSR [$A002]
+01450 	PULS A,PC
+01460 *
+01470 DIGOUT	CMPA #9
+01480 	BLS HXODEC
+01490 	ADDA #'A-'9-1
+01500 HXODEC	ADDA #'0
+01510 	JSR [$A002]
+01520 	RTS
+01530 	END
+
\ No newline at end of file