working single line with drop arrow key write

This commit is contained in:
David Stancu 2018-02-04 19:21:35 -05:00
parent 5aa31dfafe
commit f68a7a36c4

View File

@ -36,13 +36,42 @@ inloop clc
bit #%1 bit #%1
bmi keybranch bmi keybranch
jmp inloop jmp inloop
keybranch jsr keydown keybranch jsr keydown
jmp inloop jmp inloop
keydown nop keydown nop
stal $000400,X cmp #$8B ; up
ldal $00C010 beq up
cmp #$8A ; down
beq down
cmp #$88 ; left
beq left
cmp #$95 ; right
beq right
jmp dispchar
up nop
jmp rtsout
down nop
jmp rtsout
left clc
cpx #0
beq rtsout
dex
jmp rtsout
right clc
cpx #39
beq rtsout
inx
jmp rtsout
dispchar stal $000400,X
jmp rtsout
rtsout ldal $00C010
lda #0
rts rts
; working text blit ; working text blit
@ -187,6 +216,21 @@ brkboi brk