increment columns via centralized method, snap back to 0 and inc row,

ready for dispchar!!
This commit is contained in:
David Stancu 2018-02-08 00:15:46 -05:00
parent 4a4a86082d
commit 34495ef9d3

View File

@ -50,13 +50,13 @@ keydown cmp #$8B ; up
cmp #$88 ; left
beq left
cmp #$95 ; right
beq right
beq colinc
cmp #$FF ; backspace
beq backspace
cmp #$8D ; return
beq down
inx
jsr drawchar
jmp colinc
finkey ldal $00C010 ; clear strobe bit
lda #0
rts
@ -73,10 +73,13 @@ left cpx #0
beq finkey
dex
jmp finkey
right cpx #39
beq finkey
colinc cpx #39
beq :rolcol
inx
jmp finkey
:rolcol ldx #0
jmp down
backspace lda #$A0
jsr drawchar
jmp left
@ -243,6 +246,9 @@ bufbase da #40