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

Opty and prepare for turbo in C64

Browse Source
This commit is contained in:
Pecusx
2023-10-27 09:55:07 +02:00
parent 0320b000b3
commit 0420ec20c6
7 changed files with 26 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files
scorch.asm
+9 -4
View File
@@ -597,8 +597,7 @@ MakeDarkScreen
;--------------------------------------------------
.proc WaitOneFrame
;--------------------------------------------------
lda CONSOL
and #%00000001 ; START KEY
jsr CheckStartKey ; START KEY
seq:wait ; or waitRTC ?
rts
.endp
@@ -615,6 +614,13 @@ MakeDarkScreen
rts
.endp
;--------------------------------------------------
.proc CheckStartKey
;--------------------------------------------------
lda CONSOL ; turbo mode
and #%00000001 ; START KEY
rts
.endp
;--------------------------------------------------
.proc CheckExitKeys
;--------------------------------------------------
@@ -661,8 +667,7 @@ nokeys
.proc ShellDelay
;--------------------------------------------------
ldy flyDelay
Y lda CONSOL
and #%00000001 ; START KEY
Y jsr CheckStartKey ; START KEY
beq noShellDelay
DelayLoop
lda VCOUNT