Fix bug : gotoxy does not working because Y does not update the adress on the screen

2024-06-08 15:29:37 +00:00 · 2019-07-03 01:13:59 +02:00 · 2019-07-03 01:13:59 +02:00 · 14ac1a7ff6
commit 14ac1a7ff6
parent 5cbbb4597f
1 changed files with 19 additions and 1 deletions
--- a/libsrc/telestrat/gotoxy.s
+++ b/libsrc/telestrat/gotoxy.s
@ -18,9 +18,27 @@ gotoxy: jsr     popa            ; Get Y

 ; 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.
-
        sta     SCRY
        jsr     popa
        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
 .endproc