Fix bug : gotoxy does not working because Y does not update the adress on the screen
This commit is contained in:
@@ -18,9 +18,27 @@ gotoxy: jsr popa ; Get Y
|
|||||||
|
|
||||||
; This function moves only the display cursor; it does not move the prompt position.
|
; This function moves only the display cursor; it does not move the prompt position.
|
||||||
; In telemon, there is a position for the prompt, and another for the cursor.
|
; In telemon, there is a position for the prompt, and another for the cursor.
|
||||||
|
|
||||||
sta SCRY
|
sta SCRY
|
||||||
jsr popa
|
jsr popa
|
||||||
sta SCRX
|
sta SCRX
|
||||||
|
|
||||||
|
lda #<SCREEN
|
||||||
|
sta ADSCRL
|
||||||
|
|
||||||
|
lda #>SCREEN
|
||||||
|
sta ADSCRL+1
|
||||||
|
|
||||||
|
ldy SCRY
|
||||||
|
loop:
|
||||||
|
lda ADSCRL
|
||||||
|
clc
|
||||||
|
adc #$28
|
||||||
|
bcc skip
|
||||||
|
inc ADSCRH
|
||||||
|
skip:
|
||||||
|
sta ADSCRL
|
||||||
|
dey
|
||||||
|
bne loop
|
||||||
|
|
||||||
rts
|
rts
|
||||||
.endproc
|
.endproc
|
||||||
|
|||||||
Reference in New Issue
Block a user