diff --git a/grafproc.asm b/grafproc.asm index 140feeb..f8fae82 100644 --- a/grafproc.asm +++ b/grafproc.asm @@ -1648,12 +1648,12 @@ EndPut4x4 .endp .proc SetMainScreen - mva #0 dmactl +; mva #0 dmactls VDLI DLIinterruptGraph ; jsr SetDLI for graphics (game) screen mwa #dl dlptrs ; issue #72 (glitches when switches) - lda dmactls - and #$fc - ora #$02 ; 2=normal, 3 = wide screen width + lda #%00111110 +; and #$fc +; ora #$02 ; 2=normal, 3 = wide screen width sta dmactls rts .endp diff --git a/scorch.asm b/scorch.asm index e26a8ac..6ebb21e 100644 --- a/scorch.asm +++ b/scorch.asm @@ -144,7 +144,7 @@ MainGameLoop jsr CallPurchaseForEveryTank ; issue #72 (glitches when switches) - mva #0 dmactl + mva #0 dmactls jsr GetRandomWind @@ -245,9 +245,11 @@ skipzeroing inc CurrentRoundNr lda #$0 - sta dmactl ; issue #72 + sta dmactls ; issue #72 jsr RmtSongSelect mva #sfx_silencer sfx_effect + jsr PMoutofscreen + jmp MainGameLoop @@ -918,9 +920,9 @@ SetunPlots ;setting up P/M graphics lda #>pmgraph sta pmbase - lda dmactls - ora #$38 ; Players and Missiles single lined - sta dmactls +; lda dmactls +; ora #$38 ; Players and Missiles single lined +; sta dmactls lda #$03 ; P/M on sta pmcntl lda #$00 diff --git a/scorch.xex b/scorch.xex index e9263c2..2c0ecd6 100644 Binary files a/scorch.xex and b/scorch.xex differ diff --git a/textproc.asm b/textproc.asm index a8eb1a9..06b809b 100644 --- a/textproc.asm +++ b/textproc.asm @@ -17,9 +17,10 @@ ; - and I am sure maxwind, gravity, no_of_rounds in a game, speed of shell flight mwa #OptionsDL dlptrs - lda dmactls - and #$fc - ora #$02 ; normal screen width +; lda dmactls +; and #$fc +; ora #$02 ; normal screen width + lda #%00110010 ; normal screen width, DL on, P/M off sta dmactls VDLI DLIinterruptText.DLIinterruptNone ; jsr SetDLI for text screen without DLIs @@ -241,13 +242,14 @@ AfterManualPurchase ; Rest of the data is taken from appropriate tables ; and during the purchase these tables are modified. - mva #0 dmactl +; mva #0 dmactl VDLI DLIinterruptText ; jsr SetDLI for text (purchase) screen jsr PMoutofScreen mwa #PurchaseDL dlptrs - lda dmactls - and #$fc - ora #$02 ; normal screen width +; lda dmactls +; and #$fc +; ora #$02 ; normal screen width + lda #%00110010 ; normal screen width, DL on, P/M off sta dmactls mwa #ListOfWeapons WeaponsListDL ;switch to the list of offensive weapons @@ -969,9 +971,10 @@ NoArrowDown .proc EnterPlayerNames ;entering names of players mwa #NameDL dlptrs - lda dmactls - and #$fc - ora #$01 ; narrow screen (32 chars) +; lda dmactls +; and #$fc +; ora #$01 ; narrow screen (32 chars) + lda #%00110001 ; narrow screen width, DL on, P/M off sta dmactls VDLI DLIinterruptText ; jsr SetDLI for text (names) screen