From f662c66cf9843f70fec534c5048513a60d23e6e9 Mon Sep 17 00:00:00 2001
From: Pecusx <Pecus@poczta.fm>
Date: Tue, 13 Aug 2024 13:41:36 +0200
Subject: [PATCH] Clouds colors (DLI)

---
 dino.asm |  50 ++++++++++++++++++++++++++++++++++++++++++++++++--
 dino.xex | Bin 7193 -> 7264 bytes
 2 files changed, 48 insertions(+), 2 deletions(-)

diff --git a/dino.asm b/dino.asm
index 52cb8b5..cfa7e21 100644
--- a/dino.asm
+++ b/dino.asm
@@ -62,9 +62,9 @@ GameDL
 status_line_addr
     .word status_line_r    
     :4 .byte SKIP8
-    .byte MODE2
+    .byte MODE2+DLII
 
-    .byte SKIP8,SKIP8 ; empty lines
+    .byte SKIP8,SKIP8+DLII ; empty lines
 
     .rept SCR_HEIGHT, #
       .byte MODE2+LMS+SCH   ; gr.0+LMS+HSCRL
@@ -1173,6 +1173,7 @@ FadeColor
 .endp
 ;-----------------------------------------------
 .proc SetGameScreen
+    SetDLI CloudsDLI     ; clouds on grey
     mwa #GameDL dlptrs
     lda #@dmactl(standard|dma|players|missiles|lineX1) ; normal screen width, DL on, P/M on
     lda #%00111110
@@ -1225,8 +1226,53 @@ FadeColor
     beq pressed
     jmp @-
 pressed
+    ; wait for releasing keyz
+@   lda CONSOL
+    cmp #7
+    bne @-
+     ; check keyboard
+@   lda SKSTAT
+    cmp #$f7    ; SHIFT
+    beq @-
+    cmp #$ff
+    bne @-
+@   lda TRIG0
+    beq @-
     rts   
 .endp
+;--------------------------------------------------
+.proc CloudsDLI
+    pha
+    lda VCOUNT
+    sta $500
+    cmp #$3f
+    bcc other
+    sta WSYNC
+    lda COLOR1
+    sta COLPF1
+    pla
+    rti
+other
+    lda #$a
+    sta COLPF1
+    pla
+    rti
+.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
 ;--------------------------------------------------
     icl 'artwork/shapes.asm'
 ;--------------------------------------------------
diff --git a/dino.xex b/dino.xex
index 4302433b132274009852d753cf9f5040c50ae64d..0466496f98672f6bd279cd860ceecad74679c1a3 100644
GIT binary patch
delta 1571
zcmb_bU1$?o6h660Q;6L*ZBvuBile6aaZ#&_>j<JTy-MAUT1TsG^V2*ix<9Z*7nW8q
zsSx$S(c%U5fMO8KlCraFeNYB0o0qQ5gLRaGPhx#p^<lFk>?-2#WMZ4fR<Pha+<VV=
znD2b&JNF_#&i6Tqn-01vto28_Q~}xqXcwSEfS>>&0m1@A1n6Wf)~5@u`MDqcoV=FX
zvVrrj;k59V4czZ~cwP%xw6d!*ApS@CZNoP8Rf>qFu~Z9tSXpD+SwKx1%Kfx9)yyna
zi-cx`0747GP8pUUEJIj{@HN6W2wM>Zgk3UxiLe~uD}>bu-y&>7*nzNH1~0;98I~e!
zkzobGb{SS7w6eohjj<d)Fa+j&E`Q49^QTrBJo!^m`8-rqIS&<zjwt7&NjN7usn|e8
z7Zu$UVKIUep#i~#;2u%3$x^no+BvrqA%YM_2q6R!IuP0s+StD8@8^4H%E!O{f({Jb
z;+1ue$9>8($#U0gP*+MG%CglfHaTgwfo5Ga>wdpRN1b%EfsVT9sQdjI&Gzt851*-1
z_>@)b;j`Vm)SU~xTG-8JHLAU~2ys$2Y;(o_ZA!%DH%*D&Bn-wIjTa!~=#PI#67fFr
zcW)jEPeUTpkWRio{=}S!Um<_>J|0OE<!V$eP#Zo<?VQFm12;Qa<A@#13GLQ|rcG)%
zU81(@f~`XkR?Vqk;+R4P;}<~JS~96#OGl=rb@D=5YgZR;nG{~43`8#<mAy1W)Soj(
z#TZDh%b2unSK0cBf}yF5x?Kgv+3I13=GMi6ITMOFW>q3*eQ^g9v+O7)*4mw^RM`~&
zLX5N5S=&GOkKM2@WIx!;+old7s10Fv(xi=cwoQM)t_^|Ru~+ZcO+TQUF8XxS@A)S9
zXJtq+|Fk>60uIOL^!&K>x2UdD^Y_ynH>WI<H#WrnaX4mjd@<u|Hxli&#%gPFuk}pr
ztJ37#OMY%%6FXgZz<<jxEl@J0$_uIDZsxiABJ)=HU$QFd%V@JSXH0~W%=*4LqGe1P
zCZb*0?@L+oTlxf$lLjJ|k1=z7pltP~);%6ilm4+teOE;+cI@J*U(fz={m+}X?>%_L
Y?$<A=^3q0XAV!nPNDSlTAt_(;4oL5EX#fBK

delta 1501
zcmb_bUr19?9R7JWHHPTasZ*0yO-svCqq>6F+%YqorPqJ^Lv>#wi=ZJv=|h_jD_?F1
z2f`mH>>;5^R`wG2LGVR!4~<I%Jxw<sLLV9nq9>#7Hg&BTDD-mf`F%g`_xsNGofG1a
z8#j^=ovX^zmJ_Fwhh84~c<AS0fCnoNHXiIeI9QkV+o3mR!#%S>YBF@T7|e|ZrF__8
zcpWb%m68eh&ir=qJDJuk>Y|%IBC0?6EG(Q~r0YteY6UgiZ}PP=O~Dbq6`>u$g3u*F
z4Z<me28446Z3rC*R}pv#P9U5{ID>E=;S$0Xglh;r5>z8xl%N*jvIO-Aof4cy=w^=#
z>Rd5=W*)K<y~HloPwcuSIG)(0j88x*lM_&K=(0R1cws^eQgMZft5gh8grf*Xgi3@e
zgk#Hc#GB1(3ysAN1UrHa!HO_|(2vlE(93QY-mM5zpNadqL}%tdaB}l{$Rz)m)qJeZ
zh&IfIDT@@=w*_frg+^9sB(${(fgla6(7-AUgtk^8GQ!P{aQ-rx^J&EqE;7u`4#&!B
zr5xrW3e_#$4HBemQCH=9Nj+}qJ@t%wVa{ErngXkS+I@$3+~efSXacdNA@(%H!A-k2
zvOMm$WNCDLd4b691Sv_K@lR@F8q+S^>{*eXo{R}?P=qe1qt_QQqqewU?L63`Sw4s7
zsZ8eFQxMmhxuafb+mmh9QBvue5neoz)~KIEANW<W%CgYxS1X^K3)_6w<PTeJr10&1
z+!WYju4r~#$&{xACKexX4a82J!n&`af3wagmoMRPe=4yO=We5N{xHnS3?*fieQE#g
z!o+Ttl%>SrP+}PHs+H0Ejo~m0mShjcQy7Y;Ae!PSd^T;<?aPo<^{JsNDKLv(|35t+
z)4meoIu(C+@hMGB>@1p{D{5t5_4++JUQ^mbl=tc?EsDL@=cStr%ZA93nRS+1a-zR-
yE5c#3nNqWvO_w|KIL>5k7rF+WkKAM96JBOKSW~b@H)sY?snsfy5h7ud+xQzSy<5xx