From b5b6324407c256d8ec20edbe6c174a5ef0d425af Mon Sep 17 00:00:00 2001
From: Pecusx <Pecus@poczta.fm>
Date: Thu, 3 Aug 2023 21:18:44 +0200
Subject: [PATCH] 50% of Tetryx

---
 artwork/CartMenu/menu.asm |  59 ++++++++++++++++++++++++++++++++++++--
 artwork/CartMenu/menu.xex | Bin 2200 -> 2303 bytes
 2 files changed, 57 insertions(+), 2 deletions(-)

diff --git a/artwork/CartMenu/menu.asm b/artwork/CartMenu/menu.asm
index c59c025..62b3d37 100644
--- a/artwork/CartMenu/menu.asm
+++ b/artwork/CartMenu/menu.asm
@@ -2,12 +2,22 @@
       icl '../../Atari/lib/ATARISYS.ASM'
       icl '../../Atari/lib/MACRO.ASM'
 
+    .zpvar dliCounter        .byte = $80
+    .zpvar TetryxColor       .byte
+
     org $2000
 
 WeaponFont
     ins '../weapons_AW6_mod.fnt'  ; 'artwork/weapons.fnt'
 
 main
+    lda #0
+    sta TetryxColor
+    lda RANDOM
+    bmi TnotVisible
+    lda #10
+    sta TetryxColor
+TnotVisible
     ldx #3
 @   lda colors,x
     sta COLOR0-1,x
@@ -15,19 +25,62 @@ main
     bpl @-
     mva #>WeaponFont chbas
     mwa #MenuDL dlptrs
+    VMAIN VBLinterrupt,7          ;jsr SetVBL
+    SetDLI DLIinterrupt
     lda #@dmactl(narrow|dma) ; narrow screen width, DL on, P/M off
     sta dmactls
 
 stop
     jmp stop
 
+;--------------------------------------------------
+.proc DLIinterrupt
+    pha
+    lda dliCounter
+    bne SecondDLI
+FirstDLI
+    lda #0
+    ;sta WSYNC
+    sta COLPF2
+    beq EndOfDLI
+SecondDLI
+    lda TetryxColor
+    sta COLPF1
+EndOfDLI
+    inc dliCounter
+    pla
+DLIinterruptNone
+    rti
+.endp
+;--------------------------------------------------
+.proc VBLinterrupt
+    mva #0 dliCounter
+    jmp XITVBV
+.endp
+;--------------------------------------------------
+.macro SetDLI
+;    SetDLI #WORD
+;    Initialises Display List Interrupts
+         LDY # <:1
+         LDX # >:1
+         jsr _SetDLIproc
+.endm
+.proc _SetDLIproc
+    LDA #$C0
+    STY VDSLST
+    STX VDSLST+1
+    STA NMIEN
+    rts
+.endp
+;--------------------------------------------------
+
 ; DL for menu
 MenuDL
         .byte $70,$70,$70,$70
         .byte $4e
         .word picData
         :29 .byte $0e
-        .byte $70,$70
+        .byte $70,$70+$80
         .byte $47
         .word MenuTitle
         .byte $30,$70
@@ -35,6 +88,7 @@ MenuDL
         .word MenuOptions
         .byte $10,$02
         .byte $10,$02
+        .byte $10+$80,$02
         .byte $41
         .word MenuDL
 
@@ -78,10 +132,11 @@ colors
     .BYTE 0,14,10,4
  
 MenuTitle
-    dta d" select  option "*
+    dta d" SELECT  OPTION "
 MenuOptions
     dta d"     E - English Manual         "
     dta d"     P - Polska instrukcja      "
     dta d"     G - Start Game             "
+    dta d"     T - Start Tetryx Game      "
 
     run main
diff --git a/artwork/CartMenu/menu.xex b/artwork/CartMenu/menu.xex
index ca8e4ea2539aca80947a6bb1403b0928e40a4f36..1aee0e0694ccdb4a440807ef2ffc7b31cd2d0001 100644
GIT binary patch
delta 215
zcmbOs_+OCq|9=LBPa9boS@Kpgv^K8gx@5qzlB>0G5%b=7jk$-JP6>QpsnGj{X=Qq^
z0n<vAUPGn@A&XR2vMa<qSzy0NMIl;crDCr>laGyx$I^xi>?;|1B`$nmUE0_ye&Ja|
zh6B*d2A`xSD-ZNAF!eDq_3~XwC;$S#c`B0)S)@hy_zFI_Cu<lKI2CIMFbObCU~){~
z9K&*qS%AS<RYz6Xgn>cdz(iADk72SAM}isy2$(SNG8mU67L_oVq?Qy_Rxqe1=B9#W
M7#=V^WMWVO0KO<i;{X5v

delta 134
zcmew_I75*2|9=LB?v1RBEMbe7_eyBYJ<N1U;QLC2-Y-lmm3j@BR;u(GGObkX)o1dN
zS1AAjzi<^ke4wDfT}H#8z)43#fJuPKQEBsHmSfBU4WFOBdHVQEL&N(IUtYd{*D$$~
NBZ2J!(?cc(6#(PPE4}~#