Next try...

Atari/gr_basics.asm

@@ -220,5 +220,18 @@ ClearPlot
     bne @-
 	rts
 .endp
+;--------------------------------------------------
+.proc SetMainScreen
+;    mva #0 dmactls 
+    SetDLI DLIinterruptGraph  ; jsr SetDLI for graphics (game) screen
+    mwa #dl dlptrs  ; issue #72 (glitches when switches)
+    lda #%00111110
+;    and #$fc
+;    ora #$02     ; 2=normal, 3 = wide screen width
+    sta dmactls
+	mva WallsType COLBAKS	; set color of background 
+    jsr WaitOneFrame
+    rts
+.endp
 
 .ENDIF

C64/gr_basics.asm

@@ -220,5 +220,12 @@ ClearPlot
     bne @-
 	rts
 .endp
+;--------------------------------------------------
+.proc SetMainScreen
+	SwitchVICBank(0)
+	SetScreenMemory(displayC64)
+	SetHiresBitmapMode	; Hires mode on
+    rts
+.endp
 
 .ENDIF

grafproc.asm

@@ -2244,19 +2244,6 @@ quit_seppuku
    
 .endp
 
-;--------------------------------------------------
-.proc SetMainScreen
-;    mva #0 dmactls 
-    SetDLI DLIinterruptGraph  ; jsr SetDLI for graphics (game) screen
-    mwa #dl dlptrs  ; issue #72 (glitches when switches)
-    lda #%00111110
-;    and #$fc
-;    ora #$02     ; 2=normal, 3 = wide screen width
-    sta dmactls
-	mva WallsType COLBAKS	; set color of background 
-    jsr WaitOneFrame
-    rts
-.endp
 ; -------------------------------------
 .proc SetupXYdraw
     lda ytankstable,x

scorchC64.asm

@@ -182,9 +182,6 @@ FirstSTART
 	DisplayCopyPurchaseEnd = 0
 	DisplayCopyPurchaseStart = 0
 	displayC64 = $2000	;	graphics screen memory start
-	SwitchVICBank(0)
-	SetScreenMemory(displayC64)
-	SetHiresBitmapMode	; Hires mode on
 	
 	jsr MakeDarkScreen
 
@@ -219,6 +216,8 @@ FirstSTART
     ; Random INIT
 	InitializeSIDrnd
 
+
+
 ;--------------------------------------------------
 ; Main program of the game
     icl 'game.asm'
@@ -306,30 +305,7 @@ getkeyend
 ;--------------------------------------------------
 .proc WaitForKeyRelease
 ;--------------------------------------------------
-	mva #128-KeyRepeatSpeed pressTimer	; tricky
-StillWait	
-	bit pressTimer
-	bmi KeyReleased
-      lda STICK0
-      and #$0f
-      cmp #$0f
-      bne StillWait
-      lda STRIG0
-      beq StillWait
-    .IF TARGET = 800
-      lda SKSTAT
-      cmp #$ff
-      bne StillWait
-      lda CONSOL
-      and #%00000110	; Select and Option only
-      cmp #%00000110
-      bne StillWait
-	.ELSE
-	lda SkStatSimulator
-	and #%11111110
-	beq StillWait
-    .ENDIF
-KeyReleased
+StillWait
       rts
 .endp
 ;--------------------------------------------------