DRY on up down logic, need to do the same for l/r logic, and then stepping logic for the row interleave (probably with y register)

This commit is contained in:
David Stancu 2018-02-05 23:11:30 -05:00
parent 85da0e6b65
commit 8305686468

View File

@ -51,24 +51,32 @@ keydown nop
jmp dispchar
up clc
cpx #1488
beq rtsout
rep #$30
pha
txa
sbc #128
tax
pla
sep #$20
phy
ldy #0
jsr updown
ply
jmp rtsout
down clc
phy
ldy #1
jsr updown
ply
jmp rtsout
updown clc
cpx #1488
beq rtsout
rep #$30
pha
txa
adc #128
tax
cpy #0
beq linedown
bne lineup
lineup adc #128
jmp linecont
linedown sbc #128
linecont tax
pla
sep #$20
jmp rtsout
@ -125,190 +133,3 @@ hithere strl "this was excruciating"
brkboi brk