From cdc50ed22cabde7af4ec2d5757ee239ac822256f Mon Sep 17 00:00:00 2001
From: Pecusx <Pecus@poczta.fm>
Date: Thu, 3 Aug 2023 19:38:58 +0200
Subject: [PATCH] Initial attemp - cartridge menu

---
 artwork/CartMenu/menu.asm |  87 ++++++++++++++++++++++++++++++++++++++
 artwork/CartMenu/menu.xex | Bin 0 -> 2200 bytes
 2 files changed, 87 insertions(+)
 create mode 100644 artwork/CartMenu/menu.asm
 create mode 100644 artwork/CartMenu/menu.xex

diff --git a/artwork/CartMenu/menu.asm b/artwork/CartMenu/menu.asm
new file mode 100644
index 0000000..c59c025
--- /dev/null
+++ b/artwork/CartMenu/menu.asm
@@ -0,0 +1,87 @@
+
+      icl '../../Atari/lib/ATARISYS.ASM'
+      icl '../../Atari/lib/MACRO.ASM'
+
+    org $2000
+
+WeaponFont
+    ins '../weapons_AW6_mod.fnt'  ; 'artwork/weapons.fnt'
+
+main
+    ldx #3
+@   lda colors,x
+    sta COLOR0-1,x
+    dex
+    bpl @-
+    mva #>WeaponFont chbas
+    mwa #MenuDL dlptrs
+    lda #@dmactl(narrow|dma) ; narrow screen width, DL on, P/M off
+    sta dmactls
+
+stop
+    jmp stop
+
+; DL for menu
+MenuDL
+        .byte $70,$70,$70,$70
+        .byte $4e
+        .word picData
+        :29 .byte $0e
+        .byte $70,$70
+        .byte $47
+        .word MenuTitle
+        .byte $30,$70
+        .byte $42
+        .word MenuOptions
+        .byte $10,$02
+        .byte $10,$02
+        .byte $41
+        .word MenuDL
+
+
+; Picture data (narrow screen)
+picData
+    .byte 0   ; offset
+ .BYTE $00,$00,$01,$55,$15,$40,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$15,$55,$00,$00,$00,$00,$00,$00,$00,$00
+ .BYTE $00,$00,$05,$55,$45,$40,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$15,$55,$00,$00,$00,$00,$00,$00,$00,$00
+ .BYTE $00,$00,$05,$55,$55,$40,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$15,$56,$00,$00,$00,$00,$00,$00,$00,$00
+ .BYTE $00,$00,$15,$7D,$55,$C0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$15,$57,$00,$00,$00,$00,$00,$00,$00,$00
+ .BYTE $00,$00,$15,$3F,$55,$C0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$2E,$5B,$00,$00,$00,$00,$00,$00,$00,$00
+ .BYTE $00,$00,$55,$C0,$C7,$C0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$5B,$00,$00,$00,$00,$00,$00,$00,$00
+ .BYTE $00,$00,$55,$F0,$3F,$C0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$5F,$00,$00,$00,$00,$00,$00,$00,$00
+ .BYTE $00,$00,$57,$C0,$3F,$C0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$5F,$00,$00,$00,$00,$00,$00,$00,$00
+ .BYTE $00,$00,$55,$C0,$0F,$C0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$54,$00,$00,$00,$00,$00,$00,$00,$00
+ .BYTE $00,$00,$55,$70,$00,$00,$00,$D5,$5F,$54,$00,$F5,$56,$F0,$09,$55,$68,$56,$00,$15,$55,$40,$00,$55,$05,$50,$00,$00,$00,$00,$00,$00
+ .BYTE $00,$00,$A9,$57,$00,$00,$02,$55,$56,$54,$03,$95,$55,$7C,$09,$55,$69,$54,$00,$55,$55,$50,$00,$55,$55,$54,$00,$00,$00,$00,$00,$00
+ .BYTE $00,$00,$3D,$55,$80,$00,$09,$55,$55,$58,$02,$55,$55,$5F,$09,$55,$65,$5A,$05,$55,$55,$50,$00,$55,$55,$55,$00,$00,$00,$00,$00,$00
+ .BYTE $00,$00,$3F,$55,$50,$00,$35,$5F,$F5,$5C,$0D,$56,$E5,$5B,$09,$55,$55,$7C,$05,$5B,$E5,$5C,$00,$56,$A9,$55,$00,$00,$00,$00,$00,$00
+ .BYTE $00,$00,$0F,$D5,$57,$00,$15,$7F,$FD,$7C,$05,$5F,$FD,$57,$0F,$D5,$55,$FC,$15,$7F,$FE,$BC,$00,$57,$FF,$55,$00,$00,$00,$00,$00,$00
+ .BYTE $00,$00,$03,$F5,$55,$C0,$15,$FC,$0F,$FC,$35,$7F,$FD,$57,$00,$D5,$5F,$FC,$D5,$FC,$0F,$F0,$00,$57,$00,$D7,$00,$00,$00,$00,$00,$00
+ .BYTE $00,$00,$00,$FF,$55,$70,$D5,$F0,$03,$FC,$35,$70,$03,$57,$00,$D5,$7F,$00,$55,$F0,$03,$C0,$00,$5F,$00,$97,$00,$00,$00,$00,$00,$00
+ .BYTE $00,$00,$00,$3F,$D5,$70,$57,$C0,$00,$FC,$15,$F0,$03,$57,$00,$D5,$7C,$00,$57,$C0,$00,$00,$00,$5F,$00,$57,$00,$00,$00,$00,$00,$00
+ .BYTE $00,$00,$00,$0F,$D5,$70,$57,$C0,$00,$00,$15,$F0,$03,$57,$00,$D5,$F0,$00,$57,$C0,$00,$00,$00,$5F,$00,$57,$00,$00,$00,$00,$00,$00
+ .BYTE $00,$00,$00,$00,$F5,$70,$57,$C0,$00,$00,$15,$F0,$03,$5F,$00,$D5,$C0,$00,$57,$00,$00,$00,$00,$5F,$00,$57,$00,$00,$00,$00,$00,$00
+ .BYTE $00,$00,$00,$00,$D5,$70,$57,$C0,$00,$00,$15,$F0,$03,$5F,$00,$D5,$C0,$00,$57,$C0,$00,$00,$00,$5F,$00,$57,$00,$00,$00,$00,$00,$00
+ .BYTE $00,$00,$55,$00,$15,$F0,$57,$C0,$00,$00,$15,$F0,$03,$5F,$00,$D5,$F0,$00,$57,$C0,$00,$00,$00,$5F,$00,$57,$00,$00,$00,$00,$00,$00
+ .BYTE $00,$00,$55,$F0,$15,$F0,$55,$F0,$00,$00,$15,$70,$01,$5F,$00,$D5,$F0,$00,$55,$C0,$00,$00,$00,$5F,$00,$57,$00,$00,$00,$00,$00,$00
+ .BYTE $00,$00,$55,$C0,$15,$F0,$D5,$70,$03,$70,$35,$7F,$0D,$5C,$00,$D5,$F0,$00,$D5,$40,$01,$40,$00,$57,$00,$57,$00,$00,$00,$00,$00,$00
+ .BYTE $00,$00,$55,$73,$D5,$F0,$FD,$5C,$0D,$5C,$3F,$57,$CD,$7C,$00,$D5,$FF,$00,$3D,$50,$01,$50,$00,$57,$00,$57,$40,$00,$00,$00,$00,$00
+ .BYTE $00,$00,$55,$5C,$57,$F0,$3F,$57,$35,$5C,$0F,$D7,$F5,$7C,$00,$D5,$7F,$C0,$3C,$54,$05,$50,$00,$55,$00,$55,$40,$00,$00,$00,$00,$00
+ .BYTE $00,$00,$96,$55,$5B,$F0,$3F,$95,$55,$7C,$0F,$E5,$55,$F0,$05,$55,$55,$C0,$3F,$15,$55,$7C,$15,$55,$50,$55,$54,$00,$00,$00,$00,$00
+ .BYTE $00,$00,$5F,$D5,$5F,$C0,$0F,$E5,$55,$F0,$03,$F5,$56,$F0,$05,$5B,$A5,$C0,$0F,$E5,$56,$F0,$15,$6E,$A0,$5B,$A8,$00,$00,$00,$00,$00
+ .BYTE $00,$00,$FF,$F5,$7F,$C0,$03,$FD,$5F,$FC,$00,$FF,$5F,$F0,$05,$7F,$FF,$C0,$03,$FD,$5F,$F0,$15,$FF,$F0,$4F,$FC,$00,$00,$00,$00,$00
+ .BYTE $00,$00,$3F,$3F,$FF,$00,$00,$FF,$FF,$C0,$00,$3F,$FF,$C0,$04,$FF,$FF,$C0,$00,$FF,$FF,$C0,$13,$FF,$F0,$3F,$FC,$00,$00,$00,$00,$00
+ .BYTE $00,$00,$FF,$CF,$FC,$00,$00,$3F,$FF,$00,$00,$0F,$FF,$00,$0F,$FF,$FF,$C0,$00,$0F,$FC,$00,$0F,$FF,$F0,$FF,$FC,$00,$00,$00,$00,$00
+ 
+; Color data
+colors
+    .BYTE 0,14,10,4
+ 
+MenuTitle
+    dta d" select  option "*
+MenuOptions
+    dta d"     E - English Manual         "
+    dta d"     P - Polska instrukcja      "
+    dta d"     G - Start Game             "
+
+    run main
diff --git a/artwork/CartMenu/menu.xex b/artwork/CartMenu/menu.xex
new file mode 100644
index 0000000000000000000000000000000000000000..ca8e4ea2539aca80947a6bb1403b0928e40a4f36
GIT binary patch
literal 2200
zcmaJ?e`phT6o0*#EgfwVs5cH4x=tb%=``D{93v(%bnK6bmXU8FCL^t*oj<a8*eb!@
zF4+(nj1Jb}_K(vk2#YfOb0Er&1u_tK^Ph{u%FNvQ9UB@C*Q&_%Ztr_(le)4!lDzl6
zpZ7lZ-uFE&whetB_rsEiC?G;9)-Q<QatXnqtvil=SQ6xG^0RUXK)WeQv<eW6+wmYK
zg+h1;@Kl$8()E-&f(M}ym3e|<+W@XEQ8}M<=tWUNEju>*!6$K;h~XuWtA9P92nk|A
z6j967UfE~>SRaLZHFmx^uUTI7>vLY_%XO39NB#I%pdcZwtjUfqpVSmDo-=a%fGAtj
ziGDwf+ovC%w!tqZ{QiXK2ekZ&8o;C$VEqF0-0ER9$r`mN1u!*}Qj_`hI;+dvP95JG
zd8FR9u#Vl2>h-#VH|P-nO06o(lS6oc7_V&eI(5><&vWb?gX`a8UbS(t#(etVal?t%
zkhjTiHu)&MbJ%$v766c;1*d=OWoI(@97<XLl;$Q`8<f^AHmZzwQq16eX_}VrHL<==
z!iD?jhvOeGff;)|Ua3?dJdVGpnLjgAiO0|WF;=mP03(qR);|;?1xF7=A_L6GZGJU}
zO6}`e?eRdoA`EO2DseH9n4X4d<lm(TAYj0%H#g<NXdHhle@+SG0T#yu@7d8paG(!i
zaVW7fhBrPmeeTSO7>i@mK`9TdU+qC1*t|Z#)Q0y68V62Y$l55W&n~3DeZ#i*pB%ff
zQNMTvyeOya!<T2^p>g+@?@-@;?%Fqp!2<%T1{WsGs$uiDELj9kAW{q<aUf8P1U#U`
z<8dXZ*f$W(a~y|tE+)ucMZ^2An>bDr3FK=1whZ7^s+y)SUu&r7_lk<Z_6v?worQDa
zDRv9a{(1uVq`-*+)M?|<?>I*ZWp^0k?^v}O&I>LfKb|AMGk?c7>kc0h0^Fp|enF-#
zvwapVT&!M<#{oC6K3t%jbF<Z2&0+(hIDf5)=X){1>JlZ~xAV95ZNhsfTs?a9s`9i;
zP<DNKZ+u+v2oWVBc(7|(kp(}Taa|VrzpQXq{13~0Q*&H-%~Xgh2d7@*$}dc9<hDH@
zWDRUj1=+p-r%2N4f&P#bAL#dUes1d;_JZgjd<@kS!jrb^Ca=ZXUekIKCoAz}JA;3p
zsBN!l@u~I+A6<!WNVjpK{-CzKMQb^3L|5Y3c1BA5f1IekmHCNwK9SJYvk90_8l7ZM
z5_s&FxQCY_%Ge7>k_p#wB6pI#2_R$`zb%F>qy(LW?Boc^c9OAO?k3*4;V6a=X6G~A
z$=Ni<$?o)Q29o6#?$cAi7Z+rAb|K}{iOCnOOOUc#xNDxMyy-Isiwh~N)6`9$0V%k?
zR3F$x(hZk6D7g?X0x?`FWZ{bz9@V9k3MOwbTn4lOaqMbQd=3sx9H~`2Uyj2(%V&5N
zbhVlI1m4PT;{VDgnAy%>$xjU4AO`YF9hh%`vn|W`v3o<8T+(2%JHv22))B)ZTJ@6&
z-B`$UXQHVeWzcQdGTbrD@EEqigk(}iG&Pv<U7tt1sD=|bTLL8Jpa7qfv=PPG`euoN
zvs0ryk$E!Q8gN$6stj}Cez?<T(M}qC{;TxYi~06^QFSe3O|Y|uyJ$1p;B8}vxrj%j
z_$O@JDnxB{71Q|bv5n{wZvTW9i}Bg`LELAeHta>*`^>7+-?MjSf14|n?iq7`-fNT`
z;<eBXYxD2q_D<}97f17lM%g=PnS>Az9mq}WABDa7iOGY9_P@PvbQ!)5@mD5C4^G0m
Q(Ras|0r=|We&rze4^thBl>h($

literal 0
HcmV?d00001