Fix race condition

2022-04-19 20:01:47 +03:00
parent f44af28a31
commit 26787ba380
6 changed files with 29 additions and 42 deletions
--- a/libsrc/atari7800/mono_setcursor.s
+++ b/libsrc/atari7800/mono_setcursor.s
@@ -42,7 +42,7 @@
 ;

 blink_time:
-        .byte   140
+        .byte   255

        .code

@@ -175,6 +175,9 @@ umula0:
 ; Offset to cursor zone 5.
 ;
        .proc   mono_blink_cursor
+        lda     blink_time
+        cmp     #255
+        beq     @L3
        inc     blink_time
        bne     @L3
        lda     #140
@@ -197,7 +200,10 @@ umula0:
        .segment        "ONCE"
 mono_init_cursor:
        lda     #0
-        jmp     calccursorzone
+        jsr     calccursorzone
+        lda     #0
+        sta     blink_time
+        rts


 ;-----------------------------------------------------------------------------