Next try...

2026-05-20 22:34:21 +02:00 · 2023-05-08 11:54:34 +02:00
parent 56a756f0ba
commit c32d7b0ce4
6 changed files with 23 additions and 40 deletions
@@ -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