mirror of
https://github.com/zellyn/a2audit.git
synced 2024-11-22 13:33:35 +00:00
40 lines
540 B
NASM
40 lines
540 B
NASM
|
;;; Apple II keyboard and keyboard audit routines
|
||
|
|
;;; Copyright © 2017 Zellyn Hunter <zellyn@gmail.com>
|
||
|
|
|
||
|
|
!zone keyboard {
|
||
|
|
KEYBOARDTESTS
|
||
|
|
+print
|
||
|
|
!text "PRESS 'Y', 'N', SPACE, OR ESC",$8D
|
||
|
|
+printed
|
||
|
|
jsr YNESCSPACE
|
||
|
|
rts
|
||
|
|
|
||
|
|
YNESCSPACE
|
||
|
|
lda KBDSTRB
|
||
|
|
-- lda KBD
|
||
|
|
bpl --
|
||
|
|
sta KBDSTRB
|
||
|
|
cmp #$a0 ; SPACE: bmi/bcc
|
||
|
|
bne +
|
||
|
|
clc
|
||
|
|
lda #$a0
|
||
|
|
rts
|
||
|
|
+ cmp #$9B ; ESC: bmi/bcs
|
||
|
|
bne +
|
||
|
|
sec
|
||
|
|
lda #$9B
|
||
|
|
rts
|
||
|
|
+ and #$5f ; mask out lowercase
|
||
|
|
cmp #$59 ; 'Y': bpl/bcc
|
||
|
|
bne +
|
||
|
|
clc
|
||
|
|
lda #$59
|
||
|
|
rts
|
||
|
|
+ cmp #$4e ; 'N': bpl/bcs
|
||
|
|
bne --
|
||
|
|
sec
|
||
|
|
lda #$4e
|
||
|
|
rts
|
||
|
|
|
||
|
|
} ;keyboard
|