DRY on up down logic, need to do the same for l/r logic, and then stepping logic for the row interleave (probably with y register)

2018-02-05 23:11:30 -05:00 · 2018-02-05 23:11:30 -05:00 · 8305686468
parent 85da0e6b65
commit 8305686468
1 changed files with 19 additions and 198 deletions
--- a/src/main.S
+++ b/src/main.S
@ -51,24 +51,32 @@ keydown     nop
            jmp   dispchar

 up          clc
-            cpx   #1488
-            beq   rtsout
-            rep   #$30
-            pha
-            txa
-            sbc   #128
-            tax
-            pla
-            sep   #$20
+            phy
+            ldy   #0
+            jsr   updown
+            ply
            jmp   rtsout
+
 down        clc
+            phy
+            ldy   #1
+            jsr   updown
+            ply
+            jmp   rtsout
+
+updown      clc
            cpx   #1488
            beq   rtsout
            rep   #$30
            pha
            txa
-            adc   #128
-            tax
+            cpy   #0
+            beq   linedown
+            bne   lineup
+lineup      adc   #128
+            jmp   linecont
+linedown    sbc   #128
+linecont    tax
            pla
            sep   #$20
            jmp   rtsout
@ -125,190 +133,3 @@ hithere     strl  "this was excruciating"
 brkboi      brk


-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-