qasm (iigs): AST opcode was using the screen hole x position ($00057b)

Replaced it with _QATabToCol.
2024-12-27 15:29:30 +00:00 · 2024-09-06 14:41:52 -04:00 · 2024-09-06 14:41:52 -04:00 · e8472047c5
commit e8472047c5
parent e687507a3b
2 changed files with 5 additions and 10 deletions
--- a/src/asm/asm.opcodes.s
+++ b/src/asm/asm.opcodes.s
@ -3722,14 +3722,11 @@ astop         lda       passnum
              lda       #forwardref
 :sec1         sec
              rts
-:ok           ldal      tcursx
+:ok           lda   tabs
              and   #$ff
-              cmp       #21
-              bge       :ast
-              lda       #' '
-              jsr       drawchar
-              jmp       :ok
-:ast          lda       lvalue
+              pha
+              _QATabToCol
+              lda       lvalue
              and       #$00FF
              tay
 :loop         lda       #'*'
--- a/src/asm/asm.vars.s
+++ b/src/asm/asm.vars.s
@ -1,7 +1,5 @@
                tr    on

-tcursx          equ   $57b
-
 true            equ   $FFFF
 false           equ   $0