Pecus/scorch_src
1
0
Fork 0
mirror of https://github.com/Pecusx/scorch_src.git synced 2026-05-20 22:33:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

WaitOneFrame fixed

Browse Source
This commit is contained in:
Pecusx
2022-08-10 00:56:56 +02:00
parent f14b64a7f6
commit f807fe8876
3 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lib/macro.hea
+2 -3
View File
@@ -76,11 +76,10 @@
.MACRO WAIT .MACRO WAIT
; WAIT ; WAIT
; waits one frame (1/50 s(PAL) or 1/60s(NTSC)) ; waits one frame (1/50 s(PAL) or 1/60s(NTSC))
lda CONSOL
cmp #6 ; START KEY
beq ?nowait
?zero LDA VCOUNT ?zero LDA VCOUNT
beq ?zero beq ?zero
bpl ?WA
sbc #10 ; last lines correction
?WA cmp VCOUNT ?WA cmp VCOUNT
beq ?WA beq ?WA
bcc ?WA bcc ?WA
scorch.asm
+4 -1
View File
@@ -1518,8 +1518,11 @@ noKey
rts rts
.endp .endp
.proc WaitOneFrame .proc WaitOneFrame
lda CONSOL
cmp #6 ; START KEY
beq @+
wait wait
rts @ rts
.endp .endp
.proc PauseYFrames .proc PauseYFrames
; Y - number of frames to wait (divided by 2) ; Y - number of frames to wait (divided by 2)
scorch.xex
BIN
View File
Binary file not shown.