much better handling of this, checking against bit 7 is more correct than z flag

This commit is contained in:
David Stancu 2018-02-04 17:00:31 -05:00
parent ba74870f17
commit 5aa31dfafe

View File

@ -27,31 +27,22 @@
; show the current char on screen ; show the current char on screen
; read keyboard then hit strobe to reset ; read keyboard then hit strobe to reset
ldx #0 ldx #0
eloop ldal $00C000
skip stal $000400,X
clc
bit %1
jsr handlekey
ldal $00C010 ldal $00C010
jmp eloop
handlekey cmp #$1088 inloop clc
beq left ldal $00C000
cmp #$1095 bit #%1
beq right bmi keybranch
outkey rts jmp inloop
left clc keybranch jsr keydown
cpx #0 jmp inloop
beq outkey
dex
rts
right clc keydown nop
cpx #39 stal $000400,X
beq outkey ldal $00C010
inx
rts rts
; working text blit ; working text blit
@ -153,6 +144,45 @@ brkboi brk