From f12b3f82de72e4459b088f43d23b75504fc93ea8 Mon Sep 17 00:00:00 2001
From: David Stancu <dstancu@nyu.edu>
Date: Sun, 28 Jan 2018 23:13:32 -0500
Subject: [PATCH] movable text cursor impl half working, need to figure out why
 keys stick?

---
 src/main.S | 28 +++++++++++++++++++++++-----
 1 file changed, 23 insertions(+), 5 deletions(-)

diff --git a/src/main.S b/src/main.S
index 3745e00..6e1d061 100644
--- a/src/main.S
+++ b/src/main.S
@@ -22,14 +22,32 @@
             stal  $00C051     ; select text mode only. "only"?
             ldal  $00C054     ; select text page 1 (there are 2)
             ldal  $00C056     ; select "low res" graphics
-            rep   #$30        ; go back to 16-bit mode
+
+            rep   #$30
 
 ; show the current char on screen
 ; first check and discard to clear strobe, then enter loop
-            ldal  $00C010
-:eloop      ldal  $00C010
-            stal  $000400
-            jmp   :eloop
+
+            ldx   #0
+eloop       stal  $000400,X
+            ldal  $00C000
+            clc
+            cmp   $8888
+*            bcs   down
+            clc
+            cmp   $9595
+            bcs   up
+            jmp   eloop
+
+down        dex
+            dex
+            jmp   eloop
+up          clc
+            cpx   #50
+            bcs   eloop
+            inx
+            inx
+            jmp   eloop
 
 ; working text blit
 *            ldx   #hithere+2 ; strl, first two bytes are strlen, # denotes immediate addr val