refactor this to be more legible, but the problem still remains: how can we debug the stuck cursor?

2025-02-21 05:29:14 +00:00 · 2018-01-30 23:15:31 -05:00 · 2018-01-30 23:15:31 -05:00 · fbf0a03b36
commit fbf0a03b36
parent aed2add6ce
1 changed files with 18 additions and 10 deletions
--- a/src/main.S
+++ b/src/main.S
@ -28,26 +28,34 @@
 ; show the current char on screen
 ; first check and discard to clear strobe, then enter loop

+
+
+
            ldx   #0
-eloop       stal  $000400,X
-            clc
+eloop       stal  $000480,X
            ldal  $00C010
+            clc
            bit   %1
-            bne   hndlkey
+            jsr   handlekey
            jmp   eloop

-hndlkey     cmp   #$1088
+handlekey   cmp   #$1088
            beq   down
-            clc
            cmp   #$1095
            beq   up
-            jmp   eloop
+outkey      rts

-up          inx
-            jmp   eloop
+up          clc
+            cpx   #39
+            bcs   outkey
+            inx
+            jmp   outkey

-down        dex
-            jmp   eloop
+down        clc
+            cpx   #0
+            bcs   outkey
+            dex
+            jmp   outkey


 ; working text blit