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

Replaced it with _QATabToCol.
This commit is contained in:
Kelvin Sherlock 2024-09-06 14:41:52 -04:00
parent e687507a3b
commit e8472047c5
2 changed files with 5 additions and 10 deletions

View File

@ -3722,14 +3722,11 @@ astop lda passnum
lda #forwardref lda #forwardref
:sec1 sec :sec1 sec
rts rts
:ok ldal tcursx :ok lda tabs
and #$ff and #$ff
cmp #21 pha
bge :ast _QATabToCol
lda #' ' lda lvalue
jsr drawchar
jmp :ok
:ast lda lvalue
and #$00FF and #$00FF
tay tay
:loop lda #'*' :loop lda #'*'

View File

@ -1,7 +1,5 @@
tr on tr on
tcursx equ $57b
true equ $FFFF true equ $FFFF
false equ $0 false equ $0