From ed3952e89e65793c996fea928e595bb1ae10a22c Mon Sep 17 00:00:00 2001 From: pkali Date: Sun, 21 Aug 2022 00:13:22 -0400 Subject: [PATCH] narrow purchase screen #118 --- display.asm | 31 +++++++++-------- scorch.asm | 47 +++++-------------------- scorch.xex | Bin 50899 -> 50390 bytes textproc.asm | 93 +++++++++++++++++++++----------------------------- variables.asm | 14 +++++--- weapons.asm | 8 ++--- 6 files changed, 76 insertions(+), 117 deletions(-) diff --git a/display.asm b/display.asm index bd6dfc2..7d4d0ab 100644 --- a/display.asm +++ b/display.asm @@ -20,10 +20,11 @@ OptionsHere OptionsScreenEnd ;----------------------------------------------- ListOfWeapons - :36 dta d" " + ; 0123456789012345678901234567890123456789 + :36 dta d" " ListOfWeapons1End ListOfDefensiveWeapons - :16 dta d" " + :16 dta d" " ListOfDefensiveWeaponsEnd ;constant useful when clearing NameScreen dta d" Enter names of players " @@ -49,7 +50,7 @@ textbuffer dta d"Energy: Angle: Force: " dta d"Round: Wind: " textbuffer2 - dta d"Player: Cash: 0 " ; ZERO TO MAKE YOU RICHER ON THE SCREEN + dta d"Player: Cash: 0" ; ZERO TO MAKE YOU RICHER ON THE SCREEN ; DLs fragments (modified by game code) ; all Purchase DL :) @@ -115,21 +116,21 @@ MoreDown dta 93,93,93 dta d" " WeaponsDescription - dta d" " + ; 0123456789012345678901234567890123456789 dta d"Tab"* - dta d" - Defensive/Offensive weapon " + dta d ": Defensive/Offensive weapon " PurchaseDescription - dta d" " + ; 0123456789012345678901234567890123456789 dta d"Space"* - dta d" - Purchase " - dta d"Return"* - dta d" - Finish " + dta d": Purchase " + dta d"Return"* + dta d": Finish" ActivateDescription - dta d" " + ; 0123456789012345678901234567890123456789 dta d"Space"* - dta d" - Activate " - dta d"Return"* - dta d" - Finish " + dta d": Activate " + dta d"Return"* + dta d": Finish" EmptyLine dta d" " ;--------------------------------------------------- @@ -138,9 +139,9 @@ OptionsTitle DifficultyTitle dta d" difficulty "* PurchaseTitle - dta d" weapons purchase " + dta d"purchase weapons" InventoryTitle - dta d" weapons activate "* + dta d"activate weapons"* GameOverTitle dta d" game over "* GameOverTitle2 diff --git a/scorch.asm b/scorch.asm index b2ecc90..d59e44a 100644 --- a/scorch.asm +++ b/scorch.asm @@ -40,7 +40,6 @@ .endm icl 'definitions.asm' -; icl 'artwork/sfx/rmt_feat.asm' .zpvar xdraw .word = $64 ;variable X for plot @@ -141,29 +140,13 @@ .zpvar DifficultyLevel .byte .zpvar goleft .byte .zpvar OffsetDL1 .byte - - - - displayposition = modify + .zpvar L1 .byte - - ;* RMT ZeroPage addresses + ;* RMT ZeroPage addresses in artwork/sfx/rmtplayr.a65 .zpvar RMT_Zero_Page_V .byte -; .zpvar p_tis .word -; .zpvar p_trackslbstable .word -; .zpvar p_trackshbstable .word -; .zpvar p_song .word -; .zpvar ns .word -; .zpvar nr .word -; .zpvar nt .word -; .zpvar reg1 .byte -; .zpvar reg2 .byte -; .zpvar reg3 .byte -; .zpvar tmp .byte -; IFT FEAT_COMMAND2 -; .zpvar frqaddcmd2 .byte -; EIF -; p_instrstable = p_tis + + displayposition = modify + ;------------------------------- @@ -172,6 +155,8 @@ ;splash screen and musix icl 'artwork/Scorch50.asm' + + ;Game loading address ORG $3000 WeaponFont @@ -1057,7 +1042,8 @@ setBmissile deletePtr = temp ; clean variables - lda #0 + lda #0 + sta escFlag tay mwa #variablesStart deletePtr @ tya @@ -1093,9 +1079,6 @@ SetunPlots ;setting up P/M graphics lda #>pmgraph sta pmbase -; lda dmactls -; ora #$38 ; Players and Missiles single lined -; sta dmactls lda #$03 ; P/M on sta GRACTL jsr SetPMWidth @@ -1114,18 +1097,6 @@ MakeTanksVisible mva #1 CurrentRoundNr ;we start from round 1 mva #6 NTSCcounter -; ; RMT INIT -; lda #$f0 ;initial value -; sta RMTSFXVOLUME ;sfx note volume * 16 (0,16,32,...,240) -; -; lda #$ff ;initial value -; sta sfx_effect -; -; lda #0 -; jsr RmtSongSelect -; -; VMAIN VBLinterrupt,7 ;jsr SetVBL - rts .endp ;-------------------------------------------------- diff --git a/scorch.xex b/scorch.xex index 0521340a161a86d4b602332f5a49a886f607c1a2..7e2fcd9e0fbeb9969fd4b8470e338f90089efe7b 100644 GIT binary patch delta 15935 zcma)j31Ae((*GX02uBtXSU_NafCLbNphh7O4k3`0%f}N1b&*^PB;nd{2@A-C5Hh%7 ze4hl}=k&l#G9il_Jf2Y(;t|M(;~NoBe1ZWgwvM z>h9{Q>fSFo^XaW-pLv{V{Frw_$9>-R9mlj>W7mH3m#23(=pW0H$tMzKd>R*TAD_cp zX7ul#laMfeV1i+MV#2sN@ii}LOke$D8aJ1pK4Z7>IsVFwm>1qXf1$e}IwdtFbGais zC2Ck|`&peHN^6 zWY1smhid+lkb(RMGozU$P3?nZm!JRsYQwMRuhwq3UVC2q`O+0WWY(DQeF;mJjNcv4 zPnq>_zoFxnO#YOXD@Mhdd?t&@WQsMJ#w{9W7+*2kw8=8vV&TcGDZKCL5dOzm>)Pie zjN3GBNy6mI3DalvK+OYu!PCQrgpJ!U-oR`yHT@a?7Oxn%VJ2pFl420X6!sNzEx!p5 zl^5m}&gXx6I>EI*NmwFIQNo#d7nyE}iiugD#9Us`)F%3LYy&fRQLExN%qLUCP$kUM ziBwx|FvnAx>XwrTwgO# zy#ZwzAfE?vpsW3YvcPjd@Ej35UkFOQ#}!T#v!^{#Uhv!!6r;yTm@88}g*iEyIkGOO%Oy%Ada(mZg@QW@9J&RiI~b46vbmm^EHCl%0-IIhKOm@Pn|Tt(>l?r32bX@H|9h%b3EXR!mDqBSg;0qDn9`175DST#+~CWR>l(%FS8K>uaQyY!((f z4E$|{$5oiTRe9Ve zCT}2*`_$yE&f`8ad5`3AhfQ{ItYWB%RZUnWkBXjb(eu9O`Bn5hy4#bzyIM0_&fAp* z>P2Ylbg}X(>r@0bduM^O&Z(N}vZd^RtcFO=z%unmu$v+)AzZ4g+~N9(?B{ekGoD0d z`jyE_EO*r;hA0-#UV<-~K%n=Ca>wI?No!CdxbTyTnd_<2)!c{6GGQTN5ih{BskZ#4 z7&$EeF!t~EpcUl*@oev&-{qBF$@}4lAGoe+zE!PzGrc%Hfm(vDs`pABf92Uh#=d;7 z=lTqLZVEWx#D$);dS8!s4CG#qcbhNmjQ8%04?L)b0v1r!NJRr&VYr>~eCBgcCiW9z z%}i8@at906Tms4^>9&_HiiSK7FVxqBsn_kIflie0%2MBTz?$E4oO_&SctN|AYq?SH z;rUz7^>HQ3m8;Ov0=aUfug;qqETy32{#sfI3nZ*A9ruo=|4y7C8y_{Kn;}B|C#{tP<~CQTUmcGTRkDI zRIBYw4_=!);J*C@YPff^Nj;&o6RkM{1rMAzv?EMbTi8J%iCK|k`%4n@4WBlzZxmRa zos|b+g6T9=Dycov^KYYQnTu1`PP*$ib zQ`)lonD_;@iL)BZ9h=J`dVROXvTK$S1oUo32oeZ3U?$FzvJ!PYH*Temt;a@?&Sp*8 zoho`C5?M)U#|m-Mk%mzAh|hHBC=>lGEaxmG3iO68puPXEG+h4+kq%1xW+ITpURS0| zCslDD6Dh#?iQX-DfJjFh4BSBiu{-Mx{;bDVGJt!Oij+|9Bf^h*p^xih!d7|xgbjEP z5cY`oAYqSEsUQk;2x;0GtRoRr+qk4=Uu zQqcIWDyx+2n8YT#O?7uynV1p$*%tUU7NF}rM2o(}3e_ySD? zU+BDXVdf2^)jf4i@vhtt1sb@;bd1__lL^e(Bx0+d{s*}EKfuF-@O_hrliu#4MC^KK?w>,`0} zI>QQ>qY>tyFlxxQ#4<7A)^&3TI`G@EWug!N91^H8MY&#=19}%8m6X_W)zJxrNxoxJAU)VKzLjadNRYQD)PC>@J^N4g_u%{q-1WW zD5Y@2L@AYv6{R$8xG1G_4~vq68zD*yxsjr@h|dsSe@J3;kTVbb~3no0PJ zQ%2X;u=!GcjByIqt#_!%CVPj8Y>GElWK+GvMK;a*u!w#~i0F2t$hsDK9}(F_lptsw z%2zAtdjGR_;O_wQ&P!P1p+Yj|INfIy?AS|J)+u$0q*U&6U%>`ZRG*{hFdcG@QqwsN zt}(c;zt6&wvO3IcI#!rI4nv_q*uG1QB8I;4=dNjxfws*7T041ZCkcVGp&fZk`)ld2;{rE@?kCJ#32f zE}JU7$EH!k1!GFhxnNMxnX;RYO&KulNg}-**o~RLHt@dISy~I;Up}<9Y%O|F4ZaYF z_jwSTec39lO-TlqFQ=riFQe5Sz16Q;&pNcKdzrT3_oPG{OZY%aFU#ztJ(YBY8MW}u zhnT$^`0FX-pG=1V;T*)9j&d-AcM%B~-~lbfLo?f~vuU7Gj5Tww&!c-gLC=RqI|zW_ z>C8^@Mx6-U!91(_Yv8*6KoAsjFc9HV+XdsG@8GCPV1N^mz0`2?Yh(ZP3h$U1R)>89RutvG_R9}JX zD+JRB`tSqPPvH6qjR+VSyh#`yNHX!ScC4kqqrRI6JrUg+)AaxolWG^iWCjC_+7U`E zf-XdMH)5b&MC}0evZCKe0O*EM9VfFA-6yKN*d_vWn>d0dd)TAwVYZqrEVfEjutH8L z04tO&9r?oPi(sPp;R_k~%7M13u`0iiNJlsVw~rGEyurUyZ}2UmBw)_~r4QMU*pJx* z)R$pX*|acmz;0RE{*YKR*WC_${VOi7;kgpq#%F>0uQ=toTB*c;W*fJgNFw`BX*c^V z;Ah2%%-zJ@$twLbD!c#*pDP$T{xl3pQG|Iiyk%Z;_Zui^a7J~d3-g`Dji0% z!%|hs$841pNb$3QA-nj(MLk`Ar)K9Zm>n;Hd*Bt}9!OPex)fj?(h+u{bd+6${h~#( z7HOjkW7|qaT8MN}H8bDBH&y2i*+ncd($Uyx_sp})&n^%oClZK`iK(1rZHP*P1ZG4Vi1niq)EC|+YSqQXCv zzqvTZ$ngC#hIMG%;1J)_J&w0$^l;JWf`%D%-QBedQY1Q80+=(+8zN+>f-HeJ2t$Jr zh|^$zBM)0_8}Y0@J6k5=|1k-Rgk;6&VlSeh7$P0^I5EvUYcS0`E+T#8*-WI5JzI(7 z_iU#@JP*I`8>{q@Bbj4S<1lb}sKet`L?|CMBy%}{HW;{Vfa2lCw(^mqirW&z%@5)h z=(tr}ZV;Cv(jbbw1Jjz-vog>(5;fwT?K{b(oy5D71VZUz=XR2PJNe?wK?A;B;O7Yx zeES8f-$~YOCScpYhOFC4z`EZ>)@>(XpMP^vH)OxKHwgD8R*)qej?9|`v+9WM-6o&_ zT+F0Uv<)P{;oSgSFHkxmW_^RiwzG`D!!i`3ec=T#g=MB34rY>QwFMxoIy8n0?4n!i z_b%JQ=Ud8{;jUCn@iZV(e_`KFg8B296&Q5cqYYj6fejUmiB>_&?^l1AkDw9 zq^kpoK_vd@l*EQ9ZA2(Z6U>jTr|Zj3^K(eQ>9ur1(=8sUFQjmg&x89$bE}A>X%t00 zdt^~7#Z`MMneSh$uD0C7CQM7pZ1xZ!{JAAPJHg}of<1vL@Fi%TL^sT{e21l7Tq}qY zLA^O{1%aO#=%_u~*r#^|=7l>PT^BJ2*HRA7jU<;=5V#S+sz}`#(raxd>V@cdy z7XtUI#viO8=zykBl?JC4qc{{Q)Dib?s7r>6m7=)9&~X!?Cg|}MgeJg1aPI~=OZQl` z2Lso&e$-bP+v1wMh4hD(6$sb*>yAU#eA_Jh-9Ey*_MnfTS5ZgUY|EN27~vc@N{I=~ z7K1N+nhr#w*Vp#;KsZ~shZ0+t`HC5;xer?<^_}3}%ucdRvV)8^p*4*r5^&2PCX{A5 zH;~Xb_*v&b=Y=30@g6$JRt_aD>daBxoo-`pJ_dtMhpg4NN789U-&z!h5aD8$mP|wO z7XgiHXhRuqFdz&!eV*(~+G%y%Pa%#*i2HG5I)mgWtsyH&Y*dqMx=`wU=LWi3F{(6j zXnSpbwdHSU3`f2d0rVMj+cS{Bdv+>V2Uf|s4x{Rnve#i;X%R8A6FCVixiV*PJ{?;@ zw4RMLm?C`^K{Tq(qP0|;(_AmSD1cbzFFtSR_n_dKL$ek@_~|S9xF*2iPkEc0NW2sEN#mVB0%P5g%2;j!%|%Rv@lCGX$BhG8 z?c3aV;vKI$iU6P>oj5k0sG-sq$HozNq<0+FBvgjG;a|vce{MCUSDJQjH@R;k1~jROA~>+l?l!!%3+$(c5Pm zw@B~~*v2h}KgX7~I>>S9CpkyfLF-NDJl8P}>1-)XNP)mGDaN`+c<|%nktlc-Nx+@O4Ee$2exqwh0=7PTo<>TipwWuj|rPEL`JTg&%c`8*I2;s z&z|K%4mOM#yVZ7+8ZR3A=mIvzLHc`LmXw7vmoM#t9cPg(%7o^WIaK@cRQr9PeWgcq zt;MADq(M^xmm04;!llJyB=ut|J=G7*M2m1!5YduK4<@iU{>;&_BnqAzOmu zM0T$-i(Re6vul_y7Q?QmE03@a(XhRbxV^8KjwC1Qz^(y7wuI@F zAv-C&8{k3kXZc{~m3($D*burYAqDBSQE5tAbAK0F^+%^`Ii0S1oMpRo_Jq!gp&-4g zf>CcuPRww&gi<#)QP=x3`Jd)rUDd_KvAd*f2gkl4gq7{0jk>7Uhx8NmbmKv->reee z^*(R3s784Ei0na|nC9(^XI@RLuWe}`v9N($>LaRcO8bh19mPw1McNU=ro&)4>TzNd zp;SPJkF$=N1kG&AO_dH-*85CsJtdZoad)`H(6ICYj%xKLZJAIE`JwTg^gOVFz06Tj zfpY*y&Ex9Nv|qi+T`ekT3()^Vi&5&&m=nDz>z(xlFBr}=5UpKRMXdU(fGD3CzHswF z#RnbxROLZmc${>wA&RX>OK7DY zt*00{u->C(I!m=!FVhwVF=($!1)b@SW2Wm>!&_BhcDg`Ajo5Rryn)#M;=r?`C}$PZ z^YNRX(-u6g(W@ z1m86s^mB`qw3h8!ZRQGg1(Mw%%7TJj5a6Kg`Bd6}d%b@+S=|WKt1|%u8yK!eDGy*9 z#F@8?9=h6kE<`?}to2ONn6V&KuWZ0~O@wx8dwnxRM$)p_Q^jnAW2A4zpVfal$9_|;J{F33`>bri78q2L)T=we>B`=8ElDqOXT z5&ps35TlIbZ?1d1*Zn&R2Z*_r3xWZg;{dV7pmwMT(ISuCzXOTG-u#U9eFrw8T=WhQ zDLBmAdj~f_6pTPGSdAX-<(nG-R^xtW?yBV-E=7)#E!+w z>IwV4F|vQKhZ`mP|L);N%k_A$*?{0oL~{NcR98yb{|4PvxQW0rQ#0)Pm|Go#;e;9- zf(wZqCt8ES(XtR;=ET^mH>)M(WgGjwvVr{?)Ax)t zl~%9HY^>IiFD$`~3k+7nfOJ})BB$ZlB9!1MJ-D#nCbXPPRJWZ8aq8VqyjLvmVDXqk&<3!s5@jpann2fD2Kc{#*A`)evTA+w zD^N&uYZQ z<%SI00xACro)AW1ui|Xv8IDkQE*mbPK1qtp*2avj_hblFH4*9+G+HCT!CEUQ8GkAl zCGKh(@rb3z7s;`ajojGgVFIvUDam(BU|W@m5c{qPK|#y^0K)h;-h{fojQMeyGMAdg z@l6i75>4-D6eq$VACARTX<|3wZqy-@aPcn3Jg5@E5L8A<4)qxe`|}4jb$4x8nw}^a zOZ=U86gUNQv+G#kgso@`uOtgs6@sdw%eNi8t852cI_fwYSOii22I^CO51*3Oclu-f zHCq33V|}ky^+G@I{X1L*&h+9csxY%HZD~cA1_NE#U#L>A;))5qcA{^KxSE9fD@q4= zzG5gNEQ9?PLm>sS4vD_@dT1BSbg)k$3q6w1EwT-s!G9EOhA#}L5pFYD)6f{Zt{H)3 zwaZe@3{O(`LwN{qZ~*b+GCjK-8FUUjBWZ>qU_j|T-!(+xO{GD;YcaR2>!xf&RO_F< z&0+8i)iD`2PO!0o+mXhh--Z&8fvKdn&VE4MowGzZ2E})SmBkoj3+6EAfb3igd`qW; z*X=6@XjGZA@T<|V$2htj5U;f19*d_^M?%s8@hB+6?rrY+L;DBg(H^&`FafmYu0i1P zXzt2r?&@gn+GsEWWj{bO8(o1GfjZ?%3vL^rNXNj`aadb5ww>bQqT@lKPrTMOPBGLv zDHFBX(8_ww)rZzZ$4|;mb+-O5IYGEDXwrbCQwA&!%3Yhw-~hS(5}MoJi%S7baSgyY zr+7|__H_Wdi!)NDJ-m@!_9M9IKCWQ?bfJI&l9MSwwSj;0Qe z4!Q~UJ*Bzj9r#%}J5BF8`JZxzo4$AQy|?r=TKVx?1{v*q#+K>EO}u|gf79M<{^FKs z)A4LRGPlq8U$Wz*br3mOS`U#^hP*0RBI;@o0GwB!nvp17Y>&*g8Hp>Jij>k~N9c#b z>X6_8VDNTDMy|DA2FY(sr6;WfcHJwWuvyw%nTM(LO669BAanWRTw9OJE9;h9CDswa zveGuKU2J4rE!z;nZnOP!B_Fl5OX!}J%;lB*psoE~Swwmdt2&KaLO?K1dbc*8o|HBK zq?h;CE(g=^pqzrTH;X3fmmpD(0&aGs% z8A!04u=eOZMFUqyxPKw1#nltJ6zeZ0y!i7{-&J@S>d)mviTZ=pTSwMS%m-fKK!QtU z|03Rhk;0+mQa#yMPY~5t1#gMO zQM(2cK^ENdKw2%FyGV0upR%7-TfT!gk%&`ydMaL*C1=sATsRS@F8C2a9pL{m4^yfp zM2+A=R4!E2qH03%9;R~Ps%G{WR5{D`Uu!--lSe1%T%QRUiN&~En)wPdYNH&Ih2}f9 zjSN4w4QKgZZsSL7d)nBWe|6gf!w;{q<*s24uVLcWHomN*F9<3Y!_37sM6ju#AQ+`$ z&6vBnh}pz{yREz9&DBUcuAoP)2uzs9687~|cBGsd%)y&N3NDjiK%0*24>{Fe;3TvL z1rx8R_^}bU8GtQP$K+qk?`*>Pc6NSmR|}~inm&_~8`?MCOKQs4)&=hh?A@UAf~zz1 z)>535+R&Cw#cLX}NIDNl`W{L-luX&OD<)msfW;lDOT1E7Tb5l<8=Hb@<1Tsv(4?o1 z>D3+ch@+xMwTQrDT1a3NmX<8Z4=p8H z8z3$vtrDA(jPrcDiBPqAmlJgebi48u3dTb#GKaau!L}IvJ8B=&@eU{K=mA^b-?Vl>a)KQvw`kih`@nqzOOjMRw|g;miRJVAx5pUvOzFXYG!%^^7YL-VQdm#rW>%{rk$=kdLpDt)TEzKnsLqI zZ*1?^?R^;6-7GzvC_<`tb)ZTM*Uv*b@*`jElhRmAYjh~)$ZCwhn&1SInyw`!sAp-E zCw&3CbAnB=N?+)4#R+=ELJQZ~jnWCn9{57~F%U*UYYRi3TClOeY1_nq_-gzV8i)J| zzL9+koo@^r_6^?r7KX84Bi56)L8XakdYgi#r`gmpC#`Z~d40BlPjF9geNWBP1){vc zeNSK-BTqcESYSV;&qV_J8MRqPu2w&*h$^YCuit)=Fe6t7&H8HnqRSd7RWKB+_SO=O ziSu3{wV#5V_j^+N87Sfz80hPd1YIq$eeSZNKBcifMXw(N1YC0#jX+>i?^Tu-ar`1t zU$rH=>>wc#|6al_^~;1^=6{bA`+bB@DCpxV*?{BPbSVX=zv(gITn(AzNKH>|{J$rC zpG0=zqOhFmU($w6NBg))*1;~@S3{&CwS8GS_aW&yG9L-N#T)cO{Ad)=$onC|)naKW zt{Y3saNSr8DV4}i6482rjWc_R+6A1Pk%2yFjc7ELF))~#JAR(<8+Y`0@>4cL%5?ml z%|wuwG38F7igW0~uSu@u7ps(k-7&*$s%xsNz(^KW(Ykxo!JpsJ+f_rf!P77 zy=O%fiB}0yhIp?c@m~{uJKyukrPK_W5S=WMy-Ve(Yz9=5Nd+6VT0I)%kwkxEF}GqWhA_LMS%TR>A9$uneJVaFAGGp^t>x2D+rNpjDba?j^w?IFAdp7XVdYX}WQ z`r5dAS{egRGfdN+z{%)EurUSSY#uyjb>r70|t7=$3OL7(XJrvyGb(-O_fgJ zrx5Uf@oNaU!1zIgz~q)WwOjPJA9m&x%iLs{4O_G*Y30Z*n>DB4&aDnM9p-9o``|ro-E9t?I<#7|*fP*eL^BZ{ zcW1quKxa4YRL<2|xU17veY);pxJ_NK)AOx6J#-4*ss8(?DlBV<0e6I8 z?GTO~!KfXTPQkK8)eST zsC;Dp9_QmpoaTDTmcR9nH4`{(%AV|U9I`pfambcUPybfZ)4x^Hs>*Emj4Lah?g!(f zmAE}F;MXs;**FAkSt>XZu`YE67P#?yqyi^(x!2-CMdJZUobMWwz4g#q^%4@353Z$P zx{#xq!FB`$t?Fwxwi(ajh1Amc0IHlLCh29?9yDRU-ntMzux@WdC!NBetVed%{Skf^R~@oo-b^Fr>M+k8hv^5 zl|*439F_0nT=h30r0g50gpr)aE}9uZR!IcU(plwa6i z_+jrd?X|#d-$TV^KY428vP=BDcdZ#3%~5Oa9(BLi{!yagF0A&QU@Fr}s>(F>mmEzr zXz#(rXuDUuQ-AI!Ssm}Mk=e`si!yuV<9hjayG?@+LYbO+1OKEO{P}mg4Zjgnp|t^5sJDet?(qUbc$aR(wxiOt-Al{IOOSJKgEBw( zy?(AAJRwEwuT^C~cp{3}>!5BcDlYrglTcKJZ;SqYzy2Lt>Vo?& zUEZtQ(eK^RqJiTV+`Ad;9wz%x-J72y3Ta@XO@&6AwU5rxz delta 15825 zcmb8W3w#qr_dlGZS6ZOqCgD<85P>2}y%P1IEf=9cj0wO}V%tczGT{P+D6rup)?ff&X_lX(`C_dp~a|*_|_I z&YW{*=FFLMCZDbj`-Bbig^e|Rm%Jll?7r9?+AX|sN5EEW9AYpSZhmTUW?wuF2DAQc zSTw06WyapmlkDSOOEHW~xrcjpT0gE}T6jN{Q^pMkY(~mhL-NVF8Z%h`n8q&UDyD5Q z{+pXRJs}!I-aPfSp$nHcz5m1@#U0wIZ<-8U42jO?=4C#$INe~_-gN%LxibI_b!0gf zXXFO$7y9(u}02eJP6;jhmXxy)fg>n{8tkP5PXc?PC&6K9kvGG9{W!V^@zgjI$@1 zo;Oc7o4Hdn#&g+1%fvN4E zaZIveU`Lr4=TybOCza>&#pd7m+iK6ODSw+A`f!SC^Hkm~PFA9rCr>jEq$(z6^Hk>6 zw6-=wK22<83ZCvz{10<#vKXO6dNPGZ^RG-)Mq3?|Gl^L_fjK_`ZQhy@X8Xqk#Xzzd zd5U5rmCUxKC{;55outIl9)8Pa{y9~yZuGl)2rG<&$0)eNF8|ICFbYY(^A`UFo&qoM z{W+62+&5YA@@JP2(w|WRkZfJhC0gOt;-8|^og(-r2$aMG z`qD;XiVz|(MQ~9XIu@ldL9orBG^Wtk#>6n&+vB}wc&%%@jEkPNjURtzjTi)Mo~raB zJcP16GhT_Lay6u)rryNXnW{Xm%Pl8|tG_~72FT|D6X+^RQ094h2p&f83>B0XkLyW6 z3G>Vqlz)0=2#V1&OJI6T@$hn^xe;`k<~$~5B@?lf$#*fr3(PN*7-nTqmy47b^kU}? zMGsLuGJpzT;g-3;)?H^nMd6)@K=7Yt4AFstT{vtUW1!ln%Z>J-H z{%SN6n?2-Hv(auVeUN!zD${e8^r>dFW4I|5P*@@a?$&w+61A8>vf76U{0n_BoAvM8 z>@Fy0iGcQX_A^a9^W8j=kCGFDg2G1oTsbOlTc9>04jTXj~u9UJ# zAw*u4O_dPFf&;T|@Lk%Qtv#8!isrW^c)jCy|#EB-Qsz9i|5#uMlH;I%C1DuQ%@^~O64^7%wv|PKUTj-Z~J5= zoUN0UE9~#*xqWXMQwg9vobS< z8i3xaH?@Sjb@m8jE;noTpi#>vV|bruBaT|U$;po4Y;v+Y>`Y3sHzheROpO36psF#7 z2DrkoDao8X`$1zK_rvTyx3};uCnMF1cF_QpCq&g%`!0G~=*$bguX1j6e$m2fXNt|g zws=~&yB;6p`cSUR1JS*5U9PX$TNfr3qTGVol9SDx9ol)17*2Rf%RLAZ46I4^5m-I14h+2)*bLjMM$U3}EA1{~^K ziv~X|&z(Zc>1y=?U7ciy^k%ycAsss?Qz=$+c}%(p?TAC zr&(+kTj}(dr*EEKIJ0bK#q=H1cTfLp`q}B7W)7Np-^`ga=gf4>6lOYSQoQXm?MejU zn`@L}^XUlsyRPNSZ4%h4Zgvzdml^|eXJ3^2^umO|zu#}yu>p8SrmQq`vNwOzy z$q>DzB9WBNgttluS|i8-pQ-*JGy8EE$A^_T(94`hd;dRaxc(0!U6n5FL?DU1xki^x zYGC_`Qh@C*>fN&OqI9s;zzz^0b}zlbje6`L1Gq=2LWyAeirnHS2f6x*q`})?Bmr-{ zNDg=hh~yxZ3Zg)VkS3Ojp{q3S;lq7JbsMJPX|SUNl}0tljGKmDnMbBsrL@+YNg7m< zj>gwiS)??_M3Uw1u?3CAadQ{akGYp)SoG%MX{fX(oOK^T)(S^S`NgK}E*|v#od} zsPf*Wd52|Fqm1@X#V=JAb>l# zcQa=wE~;bNVWh3BeUPUGgFm0d4FtQ?sajl49d`ZMGxE4$_lHqlWWWKjdL?7!!^udW_fp@(~o~CWltiDvO zqbuHfgJ$4m7xTkhtnvsx4O5)%Gzzxo`rKxvS&@{wZSJ43MO3t`QgoOOab3_22<0lc zn&70~@d(@~izAF=Vl7#)rW|mitgWV?xESaS&de(5l=`@IvTmF25ow#X>7>PBjERY< zr0(c_+AVU*s%&g+3Uz~U zgxR-L&W2T^rvv3-eT6D9&|14B87gcEQ_nf(#?PgKQ6W@a20L^2-<7U}r;DT)$*1Om zEawe1`RuC#HY@!7rG{h_&DX{sdR5R&?!Q@q*J=bPs6_Qv=H3FXW$vU~?k$kEQ{zI? zr8h~2^cI;M$wdA}3Oy(A$8T{lMKyN zpCM(G<%8P_#!~3rhjYu}I^pm>!CNQ5hDQJrz%bfukJ4jECDz6D?vC#01f3pwmcj7` zPL6Y`H||K_3g*`zvjP|O2aY%iy93cKwR7;4^Ocf9KDA#x^?YOxbW!gCBW)*K!(8S@G0#D2RMxKwxu{F*?P_jtVIuxJr;Ngk5?WGRO699J0UsHReK~5hr)u# z;JJj^B4!7oR9Bd7`(uGYD84;AFcOd1vjex_@$&3I5+0SaZR2Kn^GpeGfjBLyvNmd+ zZQm^FDN%fI1&T1RTg20`%AA#4N##LjinAG(h`cy%n{sItkhZa1y`7lZ&6< z`)|jW!GnbH3S7}>ow5TbU_5d5fd8p$_xLhYTd{QjDO~5V4T%zP9bX1VloEI|NWgew z0xQk3H~f0kf_q*y8g~Yq-oy-#|pw_3FZi8)YY0Ff;GyOhjMw= zmCFau|N6)RmdCSsd$`+ABaWr?ti31;w)T>MX$l4ywHwq` zfeMjq!5QX~pmv4gi0Gds0MG~H#mhvZR=$B+`2e-@+?|=-yHO7$0F#m<9r)Pki)LnX zk7hFPc>}Skv7z)=K{~)1;J&d&5nkP&0=&A*f|3HWivHds?~|Qm7fB=OB!kS46o+n+ zrM0Ev$$z*zgOzWsYg(VEvc2^1&`ii_Gz1wOa?@G1!t~GZKYJ;wT z*f|zyKZxy@8q#-?1}Tv4CxMZdIKLx)`k&OYT!v-w8tC3+#NH$|kW48+9MS=@KsrdC z#$Iq$-m5woQl1zqRcPVTX*G=Ll_u>{p9IZ>1p~V5r+!X@fOWIWR>b{%!H5C(7T6wp zLfQip`vH2|4~N3r0EYr3!l(&0&l@=RuO_(qS3!#^hTd(TJPGxj9#U=&vn_iP9npvW zE@!u#-lcVFyqrW=qgAMCq`T7?Ah@2yrbO{V@q#`6A};>v1moYiNl%Y*g*GFc$*=B5 zZS2vrf*sC0ue@pfu~Z}y1<)mgv&GeYj5gg*8cBd0yoN*rBn(&~B0XY2NQ}inG_J7C ze_S6BeI~l}sd$5FcmQ&41w~4^f=@%k(`YD$OZz<^2~vaSC?=if3qg9%b3%~b_k1Hr zJ3TFeEvTDbObCS%pzV{dr>%ZQSe?A0ugk{vloSJ7rFh< zj2PN0&3_JYB-`kJS^OUfE4~rHyZ@-LqD27z{x5_TKMIh6+vDhi*cJPm!2T{s2hCA% zn|>ECr4HyGY6=R#g(De(wt*Bltp&jK0;LCzqrVA>oy~XQVZI#`q2Is26jq+HKNtt1 z)n=$(Fv=-R5%(+^|^mb)ne$NLY^#`_H6fm_$TYv%Q!ihH26z~S!7%eA0T}fA+okrIXJkx9GT&G(&B3X#U zAQ}fRj7COrM5dlQ_0ACktrPRM)-nCQ?}Fp@F@`>cd;*$B z(G8m0{fjz5Fl!7IYVwsbr(NmB9u|~nEFA-0;86y;Y4?Vh@E*oQaYuod3a00B%F>B7 z!kNPY{DxpvjPCvDwYCSS+o9tPgt_h`xB@*@<98NNbU=5gn-BL@j{#!PDW;*YISo!# zx)Oj-sd*?}lHx71Upe9Bg04>|>| zHm~4Ed(bP;>%f?f#v9@GcF;9kYJJ|WMBLUFdwC_bO+|uj`cq06RMQ5@IBCn4)y(L6%0Ed(%>6zaYREs z+-=YG9TwW~?2TrhT~}rJHL7fZD$Nu(>$yR$a=7&A|7JG{-c9-}@s>d6u5=%Gy%{>hhOP}wFsb?euakWK!LCFIqbO?K}<74yIA zwr_cF?9oH9N44J@)eClHP!t=RXi~w{6Y*iMM(G+q`-A<+pXLD76QG zC;*84sS?!`x3l`sFq}c!l3umbN|5)Wq1Ln2@A9>el#s8g zYx&yQCG2vc`aQmOP6@k3%PiFhQ-;CpsWR_!axWO-giGCeJ9H@ZCp=!}ma!VlKABk~hE--&YAQ%d{2DS903>{-Z^fnp#J};Uhfw^1j{loL3+THtts78AWM6%oV?R;+`o@-7f`eLgK z#PU?}Oo6C&sxB1E7l~&IMcVUlk_q$WXt@VDm}uoBG<-jCoJ`TeY#(GuyX#tfCelKw zInYI>7(LNJ^FPBEWMnp~KNAO+lH1#L5^;aW$@|r_w6`1M(Vk9LLa!jcDsv53$42Pb zW7k`bQO{z!45W6^_`>@-#D-*Bb^tDYifGA4$WxnoUb*vt^qCY3^`kUfCv{p;t0!k6rX0;bLV8 zP@vu|jBDTyHBRY|J&)$AkuSA9w*bM0SY-e}J(2xa861{-9AAR-sS-a2z)+e{>kAL9 z_T4g1AK_~6HJfy!4e}VqC4$x&1Gz}lq8j#?=|CPV6n&S9b_eafUWrjg<#4^SfU8;B zXL@KlHk!|ZXKhs5gp_w{T|3OyM)jQHD$5jK<5SkgB$vh}uT4xYy(8J)W+B?qxjxI{ zU2Qbga|nlaO-490E}1r!TC{NSLq0i30+XBqt*zY>qw8AS;i3V=Lu6OC?=5%0x?N}f zpyTYSPzL?Ir#o88Ry$0i?8-)Nmo&Gms!~?NmW_ce%UsC(@r)P^Wv(BCv}4c=!Zm^+ zTt6mg2W!{kgouP+gHixkX_45r<%mO%_g)utx#Rs~)@>^iRZ~JT2(>5$_&yn}9a~!@ z+QOf~MiOT8KNE0`)NX^nn1IDH8cSq6mday+yHy`rYQ{#r5g2)SjOUdx!G_JvQgfh_ zo*QolpCDBa2m(vdBvh7~X;>CW?kK4lPT5tswH0tPpcY3Pbn-KDw$$wL!Gm8z%{_wR zJP#kc&-yV5E=X9Zb>j^XH^Jp8;C128+5MHJZH4o8G1^~H0w;bo_ecJH103thiCAp@ znm1rmB;rYf+I3I37IVn44k5uM+#|~e4-cW7_7ahTBfU%3u|(vJKrdU09__W%hpR2( zJjV*EkcBSylGF zCdb5B7H*IUs~8q;l*w9exlCSSwmpC5H4r=WnyenNZ}Z6h0uQ@M_W$f*UzJ<%AUS{_ zqaite1l3$A=SR@Z!wmw$yuQ$`&jgF30N$p-!MhOUaiTRCd{yS7YMhu6>ZOJvvNf9` z^M=y>`gMfr{j&5m*#3qdau8j+8T?6~6IS|ytd%~~nX*Wq!&Chnrv8gF`(@jwS#~79 ze3FlR#!Puu@*!kKe1Lqdl#*|h0`fT~^%v3#q)+uJ@+mx6 zoEbPu55DSulpfbn(TQ-`D{paK?dbw=N;>p(qmJ5%-jHA$SM{8FqP|3R+nL9mdiN8q z7t6awJhY3~hLWyT$_Xq$USEL9F>a8nhwD(5Hb}p$q%_}Kygqif3qSwFjB zgX?i=zQPAba&4mwmF1)N<=Yx%ng`DY>Vvx8!`Qw2*6iAm0;z)D-%uJuT*Bq)%N~I9 zr%#K@n*4<17SCS3;bgS>GcGZF#KV&l#bSi4tP=7c$jg^!SpD+WQ`&=uMlu2_x( z9vbxt4Fm@we-f(wR)M@h>wEmQehRIh5UL;0p`O3l>saS1b7odHP=$rrc0Ri&QiEkK zU&c46=Wz{$UJcQAJ=_|?6%(Z^oLVu0x$qnew-^B_5J5;qE;)FJ1wWPKAq1M&2y_SR zglF)NqRsF{0yWwlhSv0$i(M62sQgBkxt5tZRoxEd>38^`Vm*EwgH3*r?}BFyjTQt9 zD7}ReFSnIO_%0+|wyfA(f)lELYl*|)Dbg_+HylFj&&a&#--arWfoVDUllrS&al*8$ zBRPsjautT;A#{`zh+2=Vk2CNz_pj#>lU#iDjtaKwomoO{CCfgSgs`>lt}07H4mmty z8q21p>N+>IMK_@=pm8c-av~+ox)wk?F1C*5STg)gQ_NWR$T19BvAMu zN$YJ@3{6xghNc{7WhEQ+0j=4W#Q9$6<=Wd$14aad-)S$SM}+IEXpHm?<&6+{DAfou z4^L=Ad|iR=Vg*WUbCNc|s=WCpBKlS6VKapZNm>j_^o0Um??4!KJ+uP4!5^3(Iv3fu zRu|XK;~p*AXzG;1oh`b`cxm=f3 zgT_tFwMr`>Vw$uPBBqZ#&6}f}Ps05^r9LzxRXW`T5$rI;rf6JInxA-=p1M^>2D5d+ z+YXCXS#I7hl!l_^d@hY-y#NYDQc>L+Or00%R^zEs$pLx|IlV_l89V<(AnH5On(ROP;E-+6cv>e<>NLH*9+eNbFcUJAVO zmAE8#W}@hwD3%uqXC{f;CW$z)Hw3SD4YVMFgawPMutkC%`iVoyM}ubmP_&7j?~mFa zq*0!g2;-=|gFziL?qMKC7R8PSA7n52u+jV#Jcd*x(`o9uIa|&~!wX1TQx}^N)S>?2 zC0t$cp!n~X?YzB&&dh)KOo%AJA;UF4#$5V0Z>5&Whp90Ab!JRcglKq6+3S z?yJ>(T|X^F@NoT9u#GbZ6DncbK4wQGsWmKkyGOxI4~(UR+f^q-7I zh}zbt*QZg2?21VjG+=he=&~LR>d~&peNDl*uO7iO>7idbACaS{LU6a0FeW^vmkdZV zK=lY8vj+wCkU(UFst(Z1AT)ok79AL^g$EwM`jRF2wgZCJ35W-T4v|SoMh2el98{m) zLxMUIN%n{5%XBD!?Hml z0M!$i%7HMqMW68@%vQQ#;T#Rjurr5fgjA9PVJfa^&^Rd-EX?LvPFICd z>!lR%MoKM=URT^uv=J7^vz+d_dYjI=?r4rjm#9rY5l|4bkNds!=03e(Vz&~SZm7U* zjHQ7FElSUDWN@R|LES^Ov_^+woEETs@B8m0>0_9cBP87-eXJi1j?nxFEzBZ?(h-LQ zU&lamI8eA23(K8RR#@h=ea89OF+J%~;(C0p>sm|vgM}&$5Yu}N=+Q|sYMdCkGAGuH zrH~uHcD!pGH8o>Jq>!?hNNsdlCqfz zQEaj}(UFmv5&FM1b6dE$5jSz=44RS2M0@099OSue$)Z%DcB#o^`-t(YOA$=_pg=E- zDMJB`ynRI6-IbojeO~D~PlPCjSBHx~gp1k$u<=EVsNMulzK9Ub$e{NWzvzjG4LB+X zQ$N4-w=R^Ty(Uv9X6NGEeOxt}ldp_fT}qQT^OXi`QwEzNLhCkHVF;~5oZ)basJ7ar zX9)E(vmzG`%^Di|Z;=)vQn*mca=cEma5P&u`AYdHTr(~ojkD=bv^JV7#A&OoZXm|9 zd>HCnKmDItk}|BVQB}H%bOk{@TH3UMV%9Km8Y5;67pDypvl7HAD#l_+Le#jHETtoy{QJH@Q~#jLx;q^t+Tth>dm zzlmA*h*@LAtb4_*B(YI_4F)?-xgth+Mv0!$xGQ~8G}L6q4;06Y5)rP$>o9T5Xpt)` zi=V4f`(wi4<0ILt%2R^cp)zmKHL@8RF^FL`3rBt=o5M%o(Rhdq##YFF3IGySI6{Z(?jPmbRyYq$BUxc=+=^z+HB5gy#} z*(t+1;|@?6f%Og;^oy)B)(>$7>0C>Od1#7s48L1|ON^f`z$eD97kH+)#;N^If0tor zMyz6{tzwS7sKrUSQ>IM8l}`uG1G3sVRGb`z5*2`+aXR@fRM*RvrF~a{@sX5qBm1GO z?4*2~=7DkOz2B6pn&{Zmg6Eb!zh>Pgv3uXax88aGxG6X`1P1u}^LK!k7z;8=PCd{` z!4bX)B@vs2e$q0c-*DdrY-j`hOE}ldy?VAqH+AM$t+KsCf)&Uz2g9DB3TFL_rLPFg zfZ`4eg|~}tl|)==*egq0TA_W}90OTG8nj3v?m+BAl>=vHIvP-%zJY}_wrbUlXuGZ@ ze&_!te&_#x;#X-)A|`>f1v8+XCB8^WC%L!|K?-pe*_W*it3_INu-`3w;TC*xwLJv< z7NG}z5|h_lsKy41;j~z6KC(4WDzr18a0SQCb^@a)fe|4BJ*>5E;ZHXu(mO;X&WgHA zIw(Y_aVyttL!#?l95D?)DAB{AGae=K@%WJ?G@A-hm9C@&&<4)WX-E@@2dau>@R=z9{u2Bc`qt8Z`JzuHvif=@u9Tb z;`KG}ei=4$%2V#`U!FG&x+UqMw1V})&&%|~{aGCyhvzFDK3q3%4{n4vj=R%4EW$%S zJO1IdnZn-Yzu8gsZ=1>SQ_;Cpeg&MCujFF&H$J@PC-(ds4fuYyijS`Osr-~d&+25R zA_|^*~A5qsicNO2SHy0T(PiKgew;Q!*~% zPr8_(dCtox!_+rH^4%)-$qJkGi8lhtT0d0n(K{qdcrHng@&3|Pjm(O1zp-IDr+uyQYsqoZPveg>febKo(cNPZ2h}` z1vGiVGlUi@Yu8nHhF9=0H5WL3N6&5-Jb$Zj7(AUTl+GS2CCAn681&G2G0Y!bp`9b= z{OIzhot-PF;NXM&O1~~OY&>qRaK|8iS>Ul$_0ECK*KQC9-8Wi%I^lL)b%G&2E z$j{Pm++A-z6ng>m$S*ss73iVl%@Mc!>Pf9gSfoWrmu$aR`!(5;e#x@p?ux(|dMnEF V_X;JsvgYR<|9SJbIMY|-{vUXBd`$oV diff --git a/textproc.asm b/textproc.asm index caf52c8..8ccf2a9 100644 --- a/textproc.asm +++ b/textproc.asm @@ -278,10 +278,7 @@ AfterManualPurchase VDLI DLIinterruptText ; jsr SetDLI for text (purchase) screen jsr PMoutofScreen mwa #PurchaseDL dlptrs -; lda dmactls -; and #$fc -; ora #$02 ; normal screen width - lda #%00110010 ; normal screen width, DL on, P/M off + lda #@dmactl(narrow|dma) ; narro screen width, DL on, P/M off sta dmactls lda #song_supermarket @@ -328,7 +325,7 @@ AfterPurchase sta decimal lda moneyH,x sta decimal+1 - mwa #textbuffer2+28 displayposition + mwa #textbuffer2+26 displayposition jsr displaydec5 ; in xbyte there is the address of the line that @@ -373,34 +370,34 @@ CreateList ; first parentheses and other special chars ; (it's easier this way) - ldy #22 - lda #08 ; "(" - STA (XBYTE),y - ldy #32 - lda #09 ; ")" - sta (xbyte),y - ldy #25 + ;ldy #22 + ;lda #08 ; "(" + ;STA (XBYTE),y + ;ldy #32 + ;lda #09 ; ")" + ;sta (xbyte),y + ldy #24 lda #15 ; "/" sta (xbyte),y - ldy #31 + ldy #30 lda #16 ; "0" sta (xbyte),y ;now number of units (shells) to be purchased - adw xbyte #23 displayposition ; 23 chars from the beginning of the line + adw xbyte #22 displayposition ; 23 chars from the beginning of the line lda WeaponUnits,x sta decimal jsr displaybyte ldx temp ;getting back index of the weapon ; and now price of the weapon - adw xbyte #26 displayposition ; 26 chars from the beginning of the line + adw xbyte #25 displayposition ; 26 chars from the beginning of the line lda WeaponPriceL,x sta decimal lda WeaponPriceH,x sta decimal+1 jsr displaydec5 - ldy #26 ; overwrite first digit (allways space - no digit :) ) + ldy #25 ; overwrite first digit (allways space - no digit :) ) lda #04 ; "$" sta (xbyte),y @@ -422,11 +419,11 @@ itIsInventory jeq noWeapon ; clear price area - ldy #22 ; beginning of the price area + ldy #21 ; beginning of the price area lda #0 @ sta (XBYTE),y iny - cpy #32+1 ; end of price + cpy #32 ; end of price bne @- notInventory @@ -502,7 +499,7 @@ DefenceList inc HowManyOnTheListDef ; If everything is copied then next line NextLineOfTheList - adw xbyte #40 + adw xbyte #32 TooLittleCash NoWeapon @@ -531,27 +528,20 @@ WeHaveOffset ; now we have to erase empty position of both lists. - ; Multiply number on list 1 by 40 and set address + ; Multiply number on list 1 by 32 and set address ; of the first erased char. ; (multiplying taken from book of Ruszczyc 'Assembler 6502' lda HowManyOnTheListOff - sta xbyte+1 ; multiplier (temporarily here, it will be erased anyway) - lda #$00 ; higher byte of the Result - sta xbyte ; lower byte of the Result - ldx #$08 -Rotate04 - lsr xbyte+1 - bcc DoNotAddX01 - clc - adc #40 -DoNotAddX01 - ror - ror xbyte - dex - bne Rotate04 - sta xbyte+1 - + sta xbyte ; multiplier (temporarily here, it will be erased anyway) + lda #$00 ; + sta xbyte+1 ; higher byte of the Result + ldx #$05 ; 2^5 +@ asl xbyte + rol xbyte+1 + dex + bne @- + ; add to the address of the list clc lda xbyte @@ -579,21 +569,14 @@ DoNotIncHigher1 ; Multiply number on list 1 by 40 and set address ; of the first erased char. lda HowManyOnTheListDef - sta xbyte+1 ; multiplier - lda #$00 ; higher byte of the Result - sta xbyte ; lower byte of the Result - ldx #$08 -Rotate05 - lsr xbyte+1 - bcc DoNotAddX02 - clc - adc #40 -DoNotAddX02 - ror - ror xbyte - dex - bne Rotate05 - sta xbyte+1 + sta xbyte ; multiplier (temporarily here, it will be erased anyway) + lda #$00 ; + sta xbyte+1 ; higher byte of the Result + ldx #$05 ; 2^5 +@ asl xbyte + rol xbyte+1 + dex + bne @- ; add to the address of the list clc @@ -957,7 +940,7 @@ DefActivationEnd EraseLoop tya ; lda #$00 sta (xbyte),y - adw xbyte #40 + adw xbyte #32 dex bpl EraseLoop @@ -970,7 +953,7 @@ EraseLoop ldx PositionOnTheList beq SelectList2 ; if there is 0 we add nothing AddLoop2 - adw xbyte #40 + adw xbyte #32 dex bne AddLoop2 SelectList2 @@ -992,7 +975,7 @@ CharToList1 ldx PositionOnTheList beq SelectList1 ; if there is 0 we add nothing AddLoop1 - adw xbyte #40 + adw xbyte #32 dex bne AddLoop1 SelectList1 @@ -1003,7 +986,7 @@ SelectList1 ldx OffsetDL1 beq SetWindowList1 ; if zero then add nothing LoopWindow1 - adw xbyte #40 + adw xbyte #32 dex bne LoopWindow1 SetWindowList1 diff --git a/variables.asm b/variables.asm index c9470c1..5ed36e3 100644 --- a/variables.asm +++ b/variables.asm @@ -10,6 +10,10 @@ ;===================================================== OneTimeZeroVariables OneTimeZeroVariablesCount = variablesToInitialize-OneTimeZeroVariables ; MAX 128 bytes ! + .if OneTimeZeroVariablesCount > 127 + .error "OneTimeZeroVariablesCount too large, ",OneTimeZeroVariablesCount + .endif + noMusic .by 0 ; 0 - play music, $ff - do not play music noSfx .by 0 ; 0 - play SFX, $ff - do not play SFX ;---------------------------------------------------- @@ -17,7 +21,7 @@ noSfx .by 0 ; 0 - play SFX, $ff - do not play SFX .by $00 ; labels line color GameOverColoursTable .BYTE $80,$40,$c4,$20,$c0,$e4 ;---------------------------------------------------- -TanksNames ; DO NOT ZERO ON RESTART GAME - ticket #24 +TanksNames ; DO NOT ZERO ON GAME RESTART - ticket #24 :6 dta d" " ;---------------------------------------------------- skilltable ; computer controlled players' skills (1-8), 0 - human (no cleaning, ticket #30) @@ -122,7 +126,7 @@ WeaponDepleted .DS 1 ; if 0 deactivate the weapon and switch to Baby Missile ; 20203.5 => 128 : <20203 : >20203 ;---------------------------------------------------- -L1 .DS 1 ; variable used in multiplications (by 10:) +;L1 .DS 1 ; variable used in multiplications (by 10:) ;gravity .DS 1 ;only the decimal part (1/10 = 25) ;---------------------------------------------------- @@ -162,8 +166,8 @@ WeaponRangeRight .DS 2 ;HowMuchToFall .ds 1 HeightRol .DS 1 ;digger -digstartx .DS 2 -digstarty .DS 2 +;digstartx .DS 2 +;digstarty .DS 2 diggery .DS 1 DigLong .DS 1 digtabxL .DS [8] @@ -204,7 +208,7 @@ FloatingAlt .DS 1 ; floating tank altitude xtraj00 .DS [5] ; 3 bytes of xtraj times 5. Lowest byte xtraj01 .DS [5] ; middle byte xtraj02 .DS [5] ; high byte -vx00 .DS [5] +;vx00 .DS [5] ; looks like it is not really used anywhere vx01 .DS [5] vx02 .DS [5] vx03 .DS [5] diff --git a/weapons.asm b/weapons.asm index 87831c6..56a0919 100644 --- a/weapons.asm +++ b/weapons.asm @@ -465,8 +465,8 @@ EndNurnedCheckLoop .endp ; ------------------------ .proc xdigger - mwa xdraw digstartx - mwa ydraw digstarty + ;mwa xdraw digstartx + ;mwa ydraw digstarty ldx diggery WriteToBranches lda xdraw @@ -2012,8 +2012,8 @@ MIRVcopyParameters sta xtraj01,x lda xtraj+2 sta xtraj02,x - lda vx - sta vx00,x + ;lda vx + ;sta vx00,x lda vx+1 sta vx01,x lda vx+2