WaitOneFrame fixed

2026-05-21 06:39:46 +02:00 · 2022-08-10 00:56:56 +02:00
parent f14b64a7f6
commit f807fe8876
3 changed files with 6 additions and 4 deletions
@@ -76,11 +76,10 @@
         .MACRO WAIT
 ;	WAIT
 ;	waits one frame (1/50 s(PAL) or 1/60s(NTSC))
-        lda CONSOL
-        cmp #6  ; START KEY
-        beq ?nowait
 ?zero	 LDA VCOUNT
 		 beq ?zero
+		 bpl ?WA
+		 sbc #10	; last lines correction
 ?WA		 cmp VCOUNT
 		 beq ?WA
 		 bcc ?WA
@@ -1518,8 +1518,11 @@ noKey
 	rts
 .endp
 .proc WaitOneFrame
+	lda CONSOL
+	cmp #6  ; START KEY
+	beq @+
 	wait
-	rts
+@	rts
 .endp
 .proc PauseYFrames
 ; Y - number of frames to wait (divided by 2)