mirror of
https://github.com/Pecusx/scorch_src.git
synced 2026-05-20 22:33:43 +02:00
Opty and prepare for turbo in C64
This commit is contained in:
+10
-2
@@ -321,7 +321,8 @@ MakeDarkScreen
|
||||
;--------------------------------------------------
|
||||
.proc WaitOneFrame
|
||||
;--------------------------------------------------
|
||||
wait ; or waitRTC ?
|
||||
jsr CheckStartKey ; START KEY
|
||||
seq:wait ; or waitRTC ?
|
||||
rts
|
||||
.endp
|
||||
|
||||
@@ -337,6 +338,12 @@ MakeDarkScreen
|
||||
rts
|
||||
.endp
|
||||
|
||||
;--------------------------------------------------
|
||||
.proc CheckStartKey
|
||||
;--------------------------------------------------
|
||||
lda #%00000001 ; START KEY not pressed
|
||||
rts
|
||||
.endp
|
||||
;--------------------------------------------------
|
||||
.proc CheckExitKeys
|
||||
;--------------------------------------------------
|
||||
@@ -352,7 +359,8 @@ MakeDarkScreen
|
||||
;--------------------------------------------------
|
||||
.proc ShellDelay
|
||||
ldy flyDelay
|
||||
Y
|
||||
Y jsr CheckStartKey ; START KEY
|
||||
beq noShellDelay
|
||||
DelayLoop
|
||||
lda $d012
|
||||
@ cmp $d012
|
||||
|
||||
Reference in New Issue
Block a user