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
1 changed files with 50 additions and 20 deletions

View File

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