much better handling of this, checking against bit 7 is more correct than z flag

2024-12-21 11:29:28 +00:00 · 2018-02-04 17:00:31 -05:00 · 2018-02-04 17:00:31 -05:00 · 5aa31dfafe
commit 5aa31dfafe
parent ba74870f17
1 changed files with 50 additions and 20 deletions
--- a/src/main.S
+++ b/src/main.S
@ -27,31 +27,22 @@

 ; show the current char on screen
 ; read keyboard then hit strobe to reset
+
            ldx   #0
-eloop       ldal  $00C000
-skip        stal  $000400,X
-            clc
-            bit   %1
-            jsr   handlekey
            ldal  $00C010
-            jmp   eloop

-handlekey   cmp   #$1088
-            beq   left
-            cmp   #$1095
-            beq   right
-outkey      rts
+inloop      clc
+            ldal  $00C000
+            bit   #%1
+            bmi   keybranch
+            jmp   inloop

-left        clc
-            cpx   #0
-            beq   outkey
-            dex
-            rts
+keybranch   jsr   keydown
+            jmp   inloop

-right       clc
-            cpx   #39
-            beq   outkey
-            inx
+keydown     nop
+            stal  $000400,X
+            ldal  $00C010
            rts

 ; working text blit
@ -153,6 +144,45 @@ brkboi      brk



+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+