mirror of
https://github.com/marketideas/qasm.git
synced 2024-12-27 15:29:30 +00:00
qasm (iigs): AST opcode was using the screen hole x position ($00057b)
Replaced it with _QATabToCol.
This commit is contained in:
parent
e687507a3b
commit
e8472047c5
@ -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 #'*'
|
||||||
|
@ -1,7 +1,5 @@
|
|||||||
tr on
|
tr on
|
||||||
|
|
||||||
tcursx equ $57b
|
|
||||||
|
|
||||||
true equ $FFFF
|
true equ $FFFF
|
||||||
false equ $0
|
false equ $0
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user