From 34495ef9d3bee6b244ebd3363a282ee3ae433063 Mon Sep 17 00:00:00 2001
From: David Stancu <dstancu@nyu.edu>
Date: Thu, 8 Feb 2018 00:15:46 -0500
Subject: [PATCH] increment columns via centralized method, snap back to 0 and
 inc row, ready for dispchar!!

---
 src/main.S | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/src/main.S b/src/main.S
index 7801476..94f4541 100644
--- 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
 
 
 
+
+
+