Opty and prepare for turbo in C64

ai.asm

@@ -787,8 +787,7 @@ SetStartAndFlight    ; set start point (virtual barrel end :) ) and make test fl
     sta ytraj+1
     mva #0 ytraj+2
     mva NewAngle Angle
-    lda CONSOL
-    and #%00000001 ; START KEY
+    jsr CheckStartKey ; START KEY
     beq @speedup
     jsr MoveBarrelToNewPosition
     bit escFlag

game.asm

@@ -16,8 +16,7 @@ START
     jsr MakeDarkScreen
     bit escFlag
     bpl @+
-    lda CONSOL
-    and #%00000001 ; START KEY
+    jsr CheckStartKey ; START KEY
     bne START
     jmp StartAfterSplash    ; reset all game option if Start key pressed (and Esc)
 @
@@ -385,11 +384,7 @@ RoboTanks
     ;ldx TankNr
     jsr DisplayStatus    ; to make visible AI selected defensive (and offensive :) )
     jsr MoveBarrelToNewPosition
-    lda kbcode
-    cmp #@kbcode._esc ; 28  ; ESC
-    bne @+
-    jsr AreYouSure
-@    bit escFlag
+    jsr CheckExitKeys
     spl:rts        ; keys Esc or O
 
 

grafproc.asm

@@ -800,8 +800,7 @@ DoNotDrawTankNr
 ; number of blinking tank in TankNr
     mva #18 fs  ; temp, how many times flash the tank
 tankflash_loop
-    lda CONSOL  ; turbo mode
-    and #%00000001 ; START KEY
+    jsr CheckStartKey ; START KEY
     sne:mva #1 fs  ; finish it
     mva #1 Erase
     ldx TankNr
@@ -1313,8 +1312,7 @@ NoClearTanks
 .IF TARGET >= 800
     lda FastSoilDown
     bne GoFast
-    lda CONSOL
-    and #%00000001 ; START KEY
+    jsr CheckStartKey ; START KEY
     bne @+
 GoFast
     jmp SoilDownTurbo.NoClearTanks
@@ -1363,8 +1361,7 @@ FoundPeek1
 ; main loop starts here
 MainFallout2
 .IF TARGET >= 800
-    lda CONSOL
-    and #%00000001 ; START KEY
+    jsr CheckStartKey ; START KEY
     bne NoFastDown
     jmp SoilDownTurbo.NoClearTanks
 NoFastDown
@@ -1873,8 +1870,7 @@ quit_areyousure
 
     mva #20 fs  ; temp, how many times blink the billboard
 seppuku_loop
-      lda CONSOL  ; turbo mode
-      and #%00000001 ; START KEY
+      jsr CheckStartKey ; START KEY
       sne:mva #1 fs  ; finish it
 
       mva #4 ResultY  ; where seppuku text starts Y-wise on the screen

scorch.asm

@@ -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

scorchC64.asm

@@ -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