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

ready for dispchar!!
2018-02-08 00:15:46 -05:00 · 2018-02-08 00:15:46 -05:00 · 34495ef9d3
parent 4a4a86082d
commit 34495ef9d3
1 changed files with 10 additions and 4 deletions
--- a/src/main.S
+++ b/src/main.S
@ -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



+
+
+