From d39bad7fef8526a3a518b744dfd50873a0b95932 Mon Sep 17 00:00:00 2001 From: Pecusx Date: Sun, 3 Sep 2023 20:40:22 +0200 Subject: [PATCH] Meteors opty --- Atari/interrupts.asm | 31 +++++++++++++++++-------------- scorch.asm | 4 ++-- scorch.xex | Bin 56646 -> 56635 bytes 3 files changed, 19 insertions(+), 16 deletions(-) diff --git a/Atari/interrupts.asm b/Atari/interrupts.asm index 3f6d350..773ab72 100644 --- a/Atari/interrupts.asm +++ b/Atari/interrupts.asm @@ -143,6 +143,7 @@ lab2 ; ------- RMT ------- SkipRMTVBL ; ------ meteors ------ start + ldx #0 bit Mcounter bpl MeteorOnSky bit MeteorsFlag @@ -163,30 +164,20 @@ SkipRMTVBL sta Mpoint2Y mva #10 Mcounter MeteorOnSky - lda Mpoint1Y - cmp #64 - beq NoFirstPlot - sta EplotY - inc Mpoint1Y - mwa Mpoint1X EplotX - inw Mpoint1X - jsr Explot + jsr GoMplot NoFirstPlot + ldx #2 ; second point coordinates lda Mcounter beq @+ dec Mcounter bpl SkipSecondPlot -@ lda Mpoint2Y +@ lda Mpoint1Y,x cmp #64 bne GoSecondPlot mva #$ff Mcounter bmi SkipMeteors GoSecondPlot - sta EplotY - inc Mpoint2Y - mwa Mpoint2X EplotX - inw Mpoint2X - jsr Explot + jsr GoMplot2 SkipSecondPlot SkipMeteors ; ------ meteors ------ end @@ -293,6 +284,18 @@ exit pla rti .ENDIF +GoMplot + lda Mpoint1Y,x + cmp #64 + beq @+ +GoMplot2 + sta EplotY + inc Mpoint1Y,x + mwa Mpoint1X,x EplotX + inw Mpoint1X,x + jmp Explot +@ rts + .endp .IF TARGET = 5200 .proc kb_continue diff --git a/scorch.asm b/scorch.asm index e9a24d1..6758f80 100644 --- a/scorch.asm +++ b/scorch.asm @@ -42,10 +42,10 @@ AdditionalZPvariables = $20 .zpvar EplotByte .word .zpvar EplotY .byte .zpvar Mpoint1X .word ; meteor first point X position - .zpvar Mpoint1Y .byte ; meteor first point Y position .zpvar Mpoint2X .word ; meteor last point X position - .zpvar Mpoint2Y .byte ; meteor last point Y position + .zpvar Mpoint1Y .byte ; meteor first point Y position .zpvar Mcounter .byte ; meteor length counter ( $ff - no meteor on sky ) + .zpvar Mpoint2Y .byte ; meteor last point Y position .zpvar MeteorsFlag .byte ; $ff - block meteors diff --git a/scorch.xex b/scorch.xex index 6347f929d686fcedd4b60c30481b57286634af9f..455f54d98842b8c7b723cfdfdab20a969e5db51c 100644 GIT binary patch delta 6734 zcmZ`d3s_S}*11V|h1?LK6sUrO;3GmytX09*R$CuPuk}#{ELH+yh3INPw2BXcIDkSV zIDm-~8zUFFND#$VV@>P7t*Oypd+lmpuC(>RO1HJK?rQD!hdnnzyY2S>;LDwv^O$pH z&TEeAgyh{5lFns$l&32{uU|5#C*8bER;9epiSPm>%|@fiy8JO==M6_QxD3Ow49RV{_Qs1Z>v2)Pvxu{_dGLydi#E4EE7mUIepr!NB zj`@IN52Zc+NKd8|9H%14&jkx;c?pu2qM2*ZARXF97HOjc3QJM$26T+*wW+1o)-idr zTiVY$C(xcir-}AR(AVUw(u0oaT9!NIG}g8Oh?g+QuYhb{pvZL`g%7l7o$VP0ml%c3 zMPFz^pG0Sl%oB~?G_`1vbUAuAc_SP-dYYNaczO|1s-13jMG@>`zosLd{DJT3oEVh4QdJE<|7{td+F-JP>;gs-?uQ7nLfAM z`^#J*(W^dJh%*dDGDkp$VYN(yW)g{Rlr%M;D<)K7*wB=9o>=ewax3v+E(0Io^!PK_ z^mDcoe~MB_j&4Y}<_{q|bqp0izS51OQb>4V+=QvW#bQ#{apV7cY2NRb$g09|)KJ0} znkhMXp=ib+?|sU-Q~0vRcfVb`isGr)Y@+zl%Hi>e>Pf;0_VeT6gNNghAnOP`%6qC< zg%da#9*y2hw~5)&9;s`zGURQQdou42Mlc$V>%;W;y~>F_o7v57;#rH-qBQ|J=zW7V(cvse%8UEDcWdDXluzP+(IP+yX z+n#Fop03?{x|~05N8k+uuCNxI0IUOjHpj9s^sMqeSbRQi=R^h>%`P;kW7$lD5wWis z@)1&#F&m>pOBTBoJbgh%D?jpLF(pK^@v)Jx9KeTl$mqUhGUqax+mAPQFOxB_EaxeW zJCT>5dy4^g&&Dz6NCr-Kyq$qFG@KIaID`cYD#EK)bOetMB1<5`VBS(TCmi5#${%Bnu)22aL zdFZ(u)R2e%`YLQ10Q+BNUYReb!pzEX`wJgZxH;^ZX-hzL2{Ua8{~?eoY1ezonD%{& zs;%!a<8xpV)NUP^uC`7DBref_5`XgIG{5K2DVVG!@HHx0w5`d`DEdKlrX`AY zhS3kQNLZO_s33z=kRkGLl)p8Mk%+XuF-pNT9Q?!etJfp`zc<|CEzA*pT$Ho zFi+$IxXE~tFnkh*r+mXC8201WnHj`cmLUK7HOnO0>D!>|A7v?&`pb0Ssx_Puw+%%3 zgG+t3S97RG%W6-z^F11HBuD}|GJM0SBd?byq+MMG^AmKdLziVJk9D5%jVfc&HRsfiLhg+qa5&Ics)D8UKm0mcb&a+M0so8Mw$1o`F}l6k4gnMXFNE z7@5ca)|pd*{GDd4Lr1>ZIy`dnvi4?$ZG@vXR#oaoMt`@aQyet;>H-pjUwdppmbo^z z26W3>W(#xzKbeLFZSIZanIl0q6}ot2nr^Rq}crzqhP6j#J+USi1 z5bAd5L#?6?eJG^$Hb{!?8Ri6;DHZhBacW#xrB+0;x`I(yXB77oGT-Lsr&_5txZT!@ zBuFKnR}6U!f`I{3DUhtBArchR_#k%$7XzC$D1dZr zn;?Ujq180ES2;G2e{7o+G!k;-LVN^qT@$xQQPeFmzj`(##pdcbYAiVezw^m=)reX{ z=o*#$MhWZWC$PEdu~68&So3t$Usj?UB|W9QxJS?GPgn3#w)8aiNSK?%P_yBw8zsqX z*Uc)N!yfGw;aosXW)I(7iL==wFxSA`exJrU_Md10NX8ptXZT1~{*I*T{~;;qSsBTe z6$Iikw$dY4%aU)F^-6Iiqab??5mX|1$1s7KNp2eoLgXbv`NC>bZK4V-x1>zm>a}o91;gKu%%1m$`+*2aAL1MZlzJ?RcRue2l>nxPu(ED z7-Qi#rfw+wKJWcqTo)1gkSS2#0yPi7WmeWbJMyBAZBbDkaEH}`^7enxd?K8{#Px7k zkp&dafjFl_Q%P@K95sy4J74e*USsul%pvo3YQnDoF$6S!Acl%lpp`HINQU*`mzz+udIDmdBv5F4sa1KaUr-KXprGz{nN&ffN-~-Gt@>KnFs+z2+ zpFj;K_WERsBR%zFf<6Zi+ADYvK@CmR6yj_^6eisbBgOyPL;@OBLEC-hCpt$`8dcGz zhqHCATK;>@?@Hg&#)P?&KcPlJkwR)EM$ZdLt){xVEW4*s)Yz`;dnQuUmn6nABJ9)BvuBkL;7)Ao znm^SD2XGHBO@pvcbY&TzFVFv%gNKLDBGdg7_tCb^NO|)$wy_s^(Sw zVtuZDgY!4>vLQFqyMAPG;GK?qQ%ron+JAsZ=ld^WONE zth)d^SU}@~f#NQ99pY=jn69x_uxf=#1D@Z3J}66OvwMdPIM@eek!*IsRGba@MuR>e zs<+~)56CNTMMZs3rV)f?v+-J1gWqIxplZv7xO|uB--@HGr1>o^0qA*tl7tY@Y zo$hjjU<2zerk&JVGpQ@&duzlK)?FPJ=AUbWWtNjqY_CukN$mbK z_+7DoSYo7bpnldo6g*o4YW*q+*W=yVco*XHfm;tZGgT6olXt z&{*<*b86(+685l=U9g7j60#1?^;*SUGL-EC_xTIEXe`JH79iyMA;ttQ1Wx9nuDe6n zmhEu+bqWt+R|o&?0HjZVkldDevo7kKt+bos{hT)1J-#!r&jv@-*D4S)soQ`FfcXFc zC@}`ZhnIA>(%m)zp5K<=TA{51h5on7)d5HO5upx@DE&gHFkrj*2Bic|t$Fw|hmhB* zl6r=jRAL?iU$s5t6L&w1^0&M1dq2>&P`&Sdfe%99+#hE%pKo*1yc#A@Fbi)mq4I+M z26Rx4>Eaj7k)ZMQ@vp-cy@d0JHVj<%W#;i3cj*q`c7D6N7CwR1?soWmRqd|hX?F3< ze!Li*p$X7bFSr$+0(S^NySICvRfW~w2i34@cPuOpsqsF!PF1^y!>q5`{XBdWHSS3e z>!sPifT`VPUnf?DxI;X_t+4kj$IvV$Y&%MMY<{O#Jt%7hHXyv2sU<0`qhoWnIrX%q zn0A)XmX$OE)0L26WH2^<+*eF92gue|RcX#P;MSB3uwE}n0*Kwkw7MIKVr84_(7*c;CB=h5v2Je zevt)Uex1KXi2w_P_RvsxwF~FKWmiCFiPgVG&o3@ zt7Hb14617HZg>_pqXqN5F9Hd3VVm$iZGbKY80P~+dT6tj>qjfdx7-^L{^qs~qqL;B ztx%C>0JNLQ+-tt%vgqJoqBuB14|6q4GPQZJH*_N3sr zTJ{<*L1Rmp@5smPkx)(EYDe%JWFH*aU<8)e1S@8qH-a+?A7M<*L5hly+ z&rmVMYEO7+z|rAF2lnsvb@qL5+EZ8~1bU4F4#p4mQkXaz;_H9L1|Y#M>;{iibR>#@ zsUgq#KH82lDw=%Pkw$$@CLG#CeMsIuG+a8agn5~CABvt;Ph9k1cll8HJ9?0W@wk#J-;5c(@7gs!V8u z3ANL>)yxjq*E<3(oCv)@)*Kl&405Va13(gKg4peT4BY$|VULH=3pEkPkr>tK1}3oK zq2C9z3O*m#054e223Q9|&uXZmr_M$fcXkb-HjwD9h%8@#75M_JpHT_1Q;4Pz`XG=p zhZ~@7YT|6*V?xw~_y!ysYEde~o(4z#q2gb+Qz!DNJ@eV^Cyn@DZfG)O*|yGAM@ zTK6`bRhmHs1)R@CB0oA#eNhK>sW;RM1K`Z;Z1ht4N?q_c*6I%RKjYgk3J!V zM6!j{9u0?F&mOgc{Y`(HEK4>S_R<=7`FVmM!}%rmQgw|QFouEN1vEzvH);-;&X{JJ z6L*i>y?(cIcay2o^1w1=?-cmc!QYgR_;IfUedb4yi57r7b37>?Aguy1mp4E&(PEXN=Dq)6yvMsL zj|WrI$|iW$HagUUzTcC~Uh4J3mt2=1TNlIXXO0BwDIz(ck{;RvQ}qe;pvtC5_EG^L z^*lr>JdrTy3{;3VAhkh-xZib&(GvTKq=4QUcqgM$a{a`()UA8kT{P=dN~)CSHL^D6 z8>Up}Qd6p?6&I$ZrD2^z6xFOtxs&Nx%ye3QyZHA^&&=jR2lVB1jx3^iS5@k}j|^Ps zcsDb$Q0HD^6hq5P2OV}H6iYiF6vU#v7N`{03UdX_DVV#~@}2>dpaB%uTIl_Hk%s&h z2^wr^KESW2N)N2cU^NYx{)(>@nEoDr8|>!8mkAU=fM5d=@~vyE(E~QsHSgp}1*CwG zbM=8;9R890De5RWcrGg7BhKerhLhq(4{k$jS E-x(REF#rGn delta 7050 zcmZ`e4Oml0wz(wyByd9j!JvYJL?MMLT3b-ppFV#|=~e45T2unU0;#nD(ITJ(We}Ap zID&u#W8flJ38J{Rp~m92rUqAg+tsIiR^3*mrS;XUwX3#UeCHc_6^j3?p%=hFHtS%u;uC&EjRJQY1p3bMxsT``UV<_g zqFsxD#u7+7z0eNwV$M5M1o(Ou>B4mX&%)7V*y-|eD5WP0BCSe}P_9+@wz)|>6tJZch*av2;Fh}Ovx@mN25t_Fc$ZOD= z?Jl?sn8pGC7?TCB2d&&+0vn+Z2)a-!3<~#hBI6z!NKa_KmC`7_4!GZlr)`zABitG2 z2y@EO+LHqTlUJri z$~-m?YhjM^$M>5v=_~%pM&>1(2J%=c$<_I5#qW-fyXxnFZX8{{*f0J&3%S`#hy4 zY;HXjLZ;`v6yUl~KduK~*0}GtYhRvFwcrP%Fm^gv(88#XS z)j${xglZsEH7O?dZDuz+kkcnA$>4d3p?XPh{%o=#|9_~zb}d-{k{8&1eNk*8+?NNK zDc5T_>%oZ(=R8cg<|XL%Qno$O;?ldtrFYH?wYKuej+@Db3CDU_2`uV!9J=QbFM{kTNKCO__)VU{qO?PrZn#s+jD)N&JW5O(mwwXSXV?SQNG)sLVWNwoe?R1?Y6&yf6-ZaGMF z`eEdK{qUF@nnZ3%FTk8740Lut6l$C*T0svarG zVH4y~9;@AWc3E|;Bcn>ft*)+hDK4KZD28;w<-H+DtPqCJ z!m!6Z90$WEcqOxdbd|>Vef^qoDs6Lb(DilcBr5LqQsAluUpqXQBmR=?OfU|+QrOEJZTOnDrH74oHESPuGZB{VHtr4~!_h?%LO3HFu6{Rtcxjrey>DjAz z6c=nuP3dTn8+S*1^$#DO>fO~MXTHe<*Ag>V$hocYCEsMWY6rS$;HVZGyJO9bKD@{*+YYD4l(Zud8tR> z3;gOWWgfgATki<1`W|Iw0g!Aio8%RejPtA`iLES@DkN9RMk|xD+FRu2G1lD?>JkU4 z@^WZ8J)|?Pr;;J~wIQh~^}8b~;T)M+W*-}@)!9apEqGGs#*}(iUZMEHBr=Pvto$D$ zp6-!2r584mOE`MsAojL}m0#GHB8X*RvVhTh> zC(h&I@H&WpxsH{*gw;8IBqJ&qYBR~Hm=L!y#c4c;^qJLaCJONj4wHMNjDzkS}A zh1r(Fa`Tr@G18k5G1w{MI0-Va`W^Tk9ri6$q z)qeL1SsNeErpG;pB1uB!gwX42(Y?aH5=e@AR)4k}6jE{)JH^aBvbC~k?7hMSw(Cv> za6Qp4!s$Soz#hA^7MLD~xd!Hzhcr&JJfa08i8Vx|x|gi|-I9v`XGvk-S|wYWjD0TLV1h%Z-2bZziTtH=J8Ngp4?S^=25xH&1@ee5!Y9v;hXcm=g z(H*j4*BsT*JaDbUr_z>zYL^E(QaU}(ohyT|fTnCjUlp@$aI#axzH74A-DJGlcAt3d z&Rv$6=R_zm4_WgVX`V3nDbMN8h2t!+t^|-E4OW^cSW8uu9YXUr!o@%?+h!Tbt0{;D z6y7Gt0eb}Inke*vP@1}Cja%yex&(W zP~)tPu!YjKhYu)VKDk*PNyQTJp6On}>rGzP*GS?XP4FF93^CLT7DI_FtQ9i>#I`3~ z0)WrS%{^h^@T?KxRII^iINc=%`x@`AVKqsoW2kj(yEKA zb<96V8ks~1RFj6!FXD&89Uns8MJCZP9Zm!3s&!xt-bLgd8RsS1fDbWeh-&W~s)oG2 zH=Y_tn)fD9UF5U9)u^R=-K8|TOvcr!rRJY!X|+L6lCQ6gi7bB#D{xiw`xn7Y?&c)8 zllz7G{n`j>3b|AJO5mepY-L$TN|h&fBH<2u*!GD0*S;v~F469b274jazS>Z65ELH#=b8{eSz?$)8GVmNzRLmYLwYfr;$ zikjASb^m0Fx=n(NV}d>}>FrfKh8r>$w0yuV!Dr!a7-NJaw2oOra*aU?qT#g%p;Xpp z_0lI=J@tv2Rr(zL8~V5OMfwx^m3nRI_oa_ZSHkG#mcA`tZ+Wrom9lTQJlgW_Edg7D zw}x$v*h-aomPyN2mc^HCsFm;8&rz19Z{I-{Zph2V4M3)1xvyJnH5& z|JiIgBF8L*^2P+Vx8D=@f+L+r4=UjaDCgw31GVkrJaHpKm6O>`k+QaZh$@GbsGH<9 z&7vNVx0_TmkL&|#UxAGCg%tzXew5!0#`Fbi0;>+K(?AsIKo?5|cN;b6suxQI$C~AK zEOe2CA5aY!U}*qL17}NT(;XrR!)cClonpYRJTR0RAnOlAQb$Pr0WI}0k(ly=J}&2i z`G;_-@3;Wi;>bQIX1AM`P3YSyaF@8bTRs9e@{q|~1RWRY9T2Yq5^Ox(FER3Tr})NI znyDs12O}vfi9Z-e^^xp@>XjcCbAIr03gJDtk*<~S;%Wrz=fM8OZw`h6@taS>S|7)9 zXFK@Y8g8mv5Z?+AsZm(V`?yAKIH=_i6GXl}sG`b9kl8rYyU21Moc7{(^u_x$4C(LS zea&njADZV;*GNcn68ueT9u*rYDB07Lfqds{;Gn-q!nwDu`VQj%p|8q0kd7Q}j)!Gm zHcx!HvmDKu-y?#1@SSg)O7p>xC?HK-gO~u#04Nk%wb@wP8z*Kalxtjaik=?PeWLFL zkJq3wlF^drBM8CAplRepOQLdGA$v^7XIR5_33(2uyDVjZ3}L&#i_Wnto&!0-DunW6 zL{$vu51P5AyU`(R%XTC>U zo3M~sv>liLn)eov;woSG@ZuY7^bNCs&pw>pR<5mp16`@GcYrECA^&O}Q*uivieNic zjY5p(S3YeoKp1ROOPr(X)E+zp!<`oYPaIERv~Gvvq3Z*^7xjCN>AVzyi+`HR+}iG- z`8b$B-7Y*3g`yCeG|&b*qf@PTRg7NTt6B+LJRqDG^pfDZFEbI9j*?x#?dlH4ZukW4 zbhN|g>z$5jo@Q6Q`~l~and9&WZ2u0|W3PCp@UUZ^-RXMfMOC^Ug6DTS zMgve<>6iwe&`QTti2w3bV8AqNw-k7&{o!Hg+Xj2jwW?E?@EvHdZ_-Pba#YyA}|)gN!p-S1C1G>_ITnHXt@*c{1?8z-~pKc9tb3os$Y}* z5xdF2586EfzY}l}L7G3}r_6Ej>-;qdN#TY;-MN7ae`R5v^A@k( zV|TM(@M1Krka=ie-ve*z!5Yi=LM{0(s3lc3I>3?Z?TDI22HJ-!O;xbV7lI8lFIRyp z3Ljxi##^F%=2baHJB5kHG7GYXld)iz2F1&@~;Jiiw_|2%lU2-~2P zzI${6P;`uxgB(k%;TPagd2k=P3neszOzDh#R;ve!-(!ST9Az9PH%n~8qk?yv5D~`Kz%$!f1aMgB zTnFX)toeiL`&HbX*y;N;?lR>yP*62;f#7xgL}Agi!A0bmuCS@6+*mVUg(wU05W2OW z)-oP7Adw(1oZBQ4Sc}{ty{-x#5eHp?qLq|&&4y&v+ZCmN=>DLlS5Xg#l7q&s5$eSA z8P}k+TIWg)!T>lk##+}(cexC1%bFa4PBAD0_JrC5s`FN@60(9&0Kld>@I-_1r-OlP zWPm#H5VU?X+^t`TyQTaP?g(i(VFF{H@)uGvv(C^&Yv8r(ltS9{Oz5YoYc*h1gMArj z{2Z&*9IyL(-QxQAh8YcI4d)sT)$K7#nxdK*_$h)PrU}Zpw7NvArY_OsX>FsEtY%u9 zRDXi5Q2bNiqZ1lPxf&s;cy>O{5%V8Ge-vNhP8bTw+>;^HQIc^o9$dchWTMQ{g#KEO z{#_4Y(d`7CQVdSN5dB~ndC3`6csQU(~ z1@wOMu{CU1r?l^qJ>RKd{th*)8917uhHbWAV%8IL_c-qdm0%F?U!1Gm&nNEQ-)^T_ zn?hWnxS)|8w&m6(+H`e^nl_x9l$3;ZR#9k+Zqkp-oU533jlTtczs&h^ORg0fmO5)D zS@N#B)Vy_!*3LCV#u9r@ol0!O@ zoZstnn#1?mN1^W#)A>;EPdMWNrS;3Mp7T>EFZaO+bzv%fd#Pyx7>Q}V(9P<4<$}}y F{{SW2D#ZW*