From e4d0ce8a8bc0e4abb17fae36499e0bb96eee82eb Mon Sep 17 00:00:00 2001 From: Vince Weaver Date: Sun, 27 May 2018 01:03:45 -0400 Subject: [PATCH] entropy: add initial port not working --- still_alive/objects_shape.inc | 161 ++++++++++++++++++++++++++++++++++ two-liners/Makefile | 18 ++++ two-liners/entropy.dsk | Bin 0 -> 143360 bytes two-liners/entropy.s | 101 +++++++++++++++++++++ 4 files changed, 280 insertions(+) create mode 100644 still_alive/objects_shape.inc create mode 100644 two-liners/Makefile create mode 100644 two-liners/entropy.dsk create mode 100644 two-liners/entropy.s diff --git a/still_alive/objects_shape.inc b/still_alive/objects_shape.inc new file mode 100644 index 00000000..1867cc90 --- /dev/null +++ b/still_alive/objects_shape.inc @@ -0,0 +1,161 @@ +; Applesoft Shape Table + +; Size +.byte $07,00 +; Offsets +.byte $10,$00 ; 0 +.byte $1b,$00 ; 1 +.byte $2e,$00 ; 2 +.byte $42,$00 ; 3 +.byte $61,$00 ; 4 +.byte $80,$00 ; 5 +.byte $8a,$00 ; 6 + +; Shape 0 +; "Cross Hair" (why is this in quotes?) +; # +; # +; # +; # +; ##.## +; # +; # +; # +; # +; START +; NLT NLT +; RT RT NRT NRT LT LT +; NDN NDN NDN NDN UP UP UP UP UP UP UP UP UP +; STOP +; +.byte $1b,$6d,$39,$97,$12,$24,$24,$24,$24, $04,$00 + + +; Shape 1 +; +; "Portal" +; # +; # # +; # # +; # # +; # # +; # # +; # * # +; # # +; # # +; # # +; # # +; # # +; # +; +; START +; NLT NLT UP UP UP NRT UP UP UP NRT RT NDN +; DN DN DN NRT DN DN DN DN DN NLT DN DN DN NLT +; UP NLT UP UP UP NLT UP UP UP +; STOP + +.byte $1b,$24,$0c,$24,$0c,$15,$36,$0e,$36, $36,$1e,$36,$1e,$1c,$24,$1c,$24 +.byte $04,$00 + +; Shape 2 +; Sideways Portal +; #*#*#*#*#*#*# +; #*# #*# +; *# . #* +; #*# #*# +; #*#*#*#*#*#*# +; START +; NDN NDN NRT RT NRT RT NRT RT NRT UP +; RT NRT UP UP LT NLT UP +; LT NLT LT NLT LT NLT LT NLT LT NLT LT NLT DN +; LT NLT DN DN RT NRT DN +; RT NRT RT NRT RT +; STOP + +.byte $52,$0d,$0d,$0d,$6c,$24,$1f,$fc, $1f,$1f,$1f,$1f,$1f,$fe,$36,$0d +.byte $6e,$0d,$05,$00 + +; Shape 3 +; Chell Right +; +; B B +; B ## +; B ### +; B ## +; B O ###### +; O O ## ## +; O O .###### +; O O +; O O +; O O +; B O +; B O +; B O O +; START +; NLT NLT DN DN DN DN DN DN RT NRT LT NLT NLT NLT NLT +; # FALL ARRESTOR BEGIN +; UP UP UP NRT UP UP UP UP UP NLT +; # HAIR +; UP UP UP UP NRT NRT RT NRT DN +; # FACE +; NLT LT DN RT RT DN NLT LT DN NRT DN RT NRT +; # GUN +; RT UP RT RT RT RT RT DN NLT LT LT NLT NLT NDN RT RT RT RT RT RT +; STOP + +.byte $1b,$36,$36,$36,$0d,$df,$1b,$24, $0c,$24,$24,$1c,$24,$64,$69,$1e +.byte $37,$2d,$1e,$77,$6e,$25,$2d,$2d, $f5,$ff,$13,$2d,$2d,$2d,$00 + +; Shape 4 +; Chell LEFT +; +; START +; NRT NRT DN DN DN DN DN DN LT NLT RT NRT NRT NRT NRT +; # FALL ARRESTOR BEGIN +; UP UP UP NLT UP UP UP UP UP NRT +; # HAIR +; UP UP UP UP NLT NLT LT NLT DN +; # FACE +; NRT RT DN LT LT DN NRT RT DN NLT DN LT NLT +; # GUN +; LT UP LT LT LT LT LT DN NRT RT RT NRT NRT NDN LT LT LT LT LT LT +; STOP + +.byte $09,$36,$36,$36,$1f,$4d,$09,$24, $1c,$24,$24,$0c,$24,$e4,$fb,$0e +.byte $35,$3f,$0e,$f5,$fe,$27,$3f,$3f, $77,$6d,$11,$3f,$3f,$3f,$00 + +; Shape 5 +; FireBall +; +; # +; # # +; # . # +; # # +; # +; START +; NDN NDN UP NRT UP NRT UP NLT UP NLT DN NLT DN NLT DN NRT DN NRT +; STOP + +.byte $12,$0c,$0c,$1c,$1c,$1e,$1e,$0e, $0e,$00 + +; Shape 6 +; Blue Core +; ####### +; ## ## +; ## # # # ## +; ## # . # ## +; ## # # # ## +; ## ## +; ####### + +; START +; # Inner +; NDN LT NLT UP UP RT NRT RT NRT DN DN LT NLT NDN NDN +; # Outer +; LT LT LT UP LT UP LT UP RT UP LT UP NRT RT UP RT RT RT RT RT RT DN +; # Upper Left +; RT DN RT DN LT DN RT DN NLT LT DN LT LT LT +; STOP + +.byte $fa,$24,$0d,$0d,$36,$9f,$3a,$3f, $3c,$3c,$2c,$3c,$0c,$25,$2d,$2d +.byte $2d,$2e,$2e,$3e,$2e,$1e,$37,$3f, $07,$00 diff --git a/two-liners/Makefile b/two-liners/Makefile new file mode 100644 index 00000000..fa22e2b6 --- /dev/null +++ b/two-liners/Makefile @@ -0,0 +1,18 @@ +include ../Makefile.inc + +DOS33 = ../dos33fs-utils/dos33 +TOKENIZE = ../asoft_basic-utils/tokenize_asoft + +all: entropy.dsk + +entropy.dsk: ENTROPY + $(DOS33) -y entropy.dsk BSAVE -a 0x0C00 ENTROPY + +ENTROPY: entropy.o + ld65 -o ENTROPY entropy.o -C ../linker_scripts/apple2_c00.inc + +entropy.o: entropy.s + ca65 -o entropy.o entropy.s -l entropy.lst + +clean: + rm -f *~ *.o *.lst ENTROPY diff --git a/two-liners/entropy.dsk b/two-liners/entropy.dsk new file mode 100644 index 0000000000000000000000000000000000000000..719ccb6084730827845b0b4bf9d86336c7d1e512 GIT binary patch literal 143360 zcmeI&eS8yTo&fO4D`{G2S`{k_KD<~8iq!S3axAo^ffR=p%8TF&j;m;7L2-pU&bw1~ zmvEKq^uoFd)dq&pw4E{2rldnCG*F<$ra~RwR1~GIQrZG_5QWN1bH67A-M!D<`dR5t?wXJy_gWT5Eqt$~Dr!l;DLl>M z`ekd>0->&vt-Y4=I~Pr0x_d3~M_%tGZ}gI}mmutlh3Ow3*Ux0o4M?zB%tn18L!PM! zSVX3he`3p;Ou0#650=YMY|$*;VMR4`?@&YrV%W((zFr}f<)q8Y{+n00p(b0svAN-9 z^@4CqO?F9{(%djuJ(_Exc@oNmbl{1 zQ1OM3sN;J=d{;`G)yU%I<}lw7E^bKwSDC4IrHWC{ ze>My*YH&Ea1f#=A>b4fDJ>n6vb*m`RjSQQ0!W`95$JEb@ZkNKNwv~_cKnX<+h3Y9^ zYS%m_7Ff01+!tEMY;RV(`qGi@TgA_RDC!j5i^2wu4%xXBhZC~Eu{nY9&S^=%1X<@Z z^`q%~&4lL0RP_`mkV5S#NNl^5dqn-VE4CMr)Nh12eY>)HQe+BOrq06aKh!4sm-dfJyko`7k@<6uEoRA41Ixb(WALW z#=eYprN%z*NG-XGv5zdYovc(teaSvotA5B^mcp&N(=~eka-%jA@}|nmjjoXyCq`@c z2KwbjyO$f?rssQGmm8Z>-FjbYBq5-y%pl!$bxGR@v&}a$g`BOc8%+1xQ`J52kpcyb zGK@CeDTP-wl;6oog5XVRQLnU5R`u;upew2xr%O*8L52*zjlP!Ll{)P9tNU-Qefu5H z`VHk3@A~Dc>dnDgWlN}T+xGhKj-BuCZ~frVhaVmNV{#fBnt5 zZ@)W#;rol1E??=527^Lda8J{Z+hCI<{4N;VHU)!H;qR_)8-syDMz^j+ZzwgI%)&qG>2Wkc++LDrQ*m~nl18+{bWl+Pe-Fq6F_P*B~X}NXZZG(rX2M*qT z_y`&L@vz||?noV(*7n7pzWi#`=sP>^8guv9^m~4xoxS(I`yY5PqvxS<|1kcS6DI1c zNdpq@B6^!y|4V(GW%w}5AibWkFp0w~7KRzk*wO~+8NDURYSE`9=^h$(kIs}r(rEHH zz3DC+W4W6#>C;m5>BIHp7se$0je3i22pKSTcsl$g+&p^X$l>V^4o^=WWJwD{VVHo;Td?tEk;Zyo4&6+on=E^deWGKkX+qz?;Ea>V;d&SkuH`uedns4Pf~(1( zU}slXSDe(<6&oDjJLk$>>5!Syh^!h&XDKm;uYD;fP2r-^LuKso`dmR@)MFNmMLkAA zSL2X`!~+iP*3}N!bvo8K;2?q}Ttw@wo`>ojYF_Oq2@J?G=Z@!beqDf8v=&#e>6OMf0{*&7y7})S*TvD z>M;q%8V7lFN1B>cHpSLoNG^0 z%rw@qLwks=-T^gsIDBJ;0c#vi&C)bhGm1q0LNL`hD(klHY#O7kO>^Hyj%~FBiqpKz zs#LOjE7TxmM265Gs0tf6GJ3096K#QR2Vjn0=yY4GP_c#2-Vf=W);~|e(dxOfM9DQlm;)nXPDyk- zxWTLiTX8zHNlbIup&LEAgY@4iS^^`)bbh%h18}rkfGO~uZ;W~tsvkJrp5x1j40j(& zahqt>GicqR#EHTRRbOT&bLs=XhNc9bZJ+3y7_qre3yCWy#tJK`+*xS52uc2ZXWt*p zeuYpdls?=yM!QM0HQ9akPMymhF$Iz`I2vJsL%MH+TJ)uh_l=1ps9@M;@yv3c<&#RaNf<-zEb$Z7Y5!D8{j_;QzcXx_&}sohMSNK1`-Y%X8n(aCXMI zdYzq&D=M-)6Bdv2y0BQ!>%*-&Piub!ZFf<3`hceJ$RG%VsS#8!|HeJUh$h#^?LkxSKqn_>a5ZiCO`rQ$oV zjAN&UIJvD`7{LT-B09|&(ZkoM zV1%!NQA~mlT^ua-B<6Nld2Xv^FICG|N;O~W(B`;~Wzcd572JIL4MOY|M{dA)1B zE4+(+zwnOtrg_JBr+fd|=kcX)dVCYV>0iB<%PyBK_?T%MfB2ij4|JR;`|?Ys&CvGe zp=O`i_nd8|XMDmp336wMuC4inlH3*Ios!J7J)?EiE% zyLWK-4au`iYO!6AYb5>=m|-g9prpk)h^O2sFl#d5vXP&ZRN@^Qp0VDe8feOy>-lqr zTp$0fK`vO&e`65Ms!9Hpq?!3AC3eL|j@{{j9|P!qQ^hL!^yiP|1ODRXH<4| zvGXpn3!?1YDBUiIE{Ku?>*X1ec9TPXTw0UnOgFHp@I%N`HbUgqq|xda$nVNU1GI*0 z+d#Ih=O34fAC=hPhD8|+&08Q@rErqR5w>|~5nNw<(PPrKj*jAalGhNPDZTkXi>-&N z3PEA)@(opRI7?)wwyf!1ZKPLUTp;b=EUCA&z)nl?6H?U^l84cEz+Qw`m$Cadz{kIN z8Hi=eHpD(7yw;D_>^XJ5BLjAzGtDn|x=&X@y>6n(O`?g`cR)E?vH{B0T#?nUv_#tQrVY?AXcfdl zuBv&`+t675V-g%QgIn|fBl2w11|eGXq|{vWE2;ZQ$;(*6v4T|{Z3`*eIO?@|D=V9= zn%-$~YiSy(TUn`oc=g~0Xq&9lL*31A(%CmRu#M#do|ODgO3*ZSf~bEePSi|dBK&}D zFsu5N_lksuJVo9VEKsyI#OgM|sbhqN>^yrU8s6ek{3vW zt>P0_QGKK8X-WG>m?uC;J?6E3mISiC0_YUaNc7-d`5DP-t@PQ| zIA6}u*`mA1XFobubjPc|hwqPwZoT@Q{IsP0aoto%RPvnU%PDzQVmkzfxT3El=cw2E zL(P^-YNu98R%~Q{zX7yK)ke6=r10&~iHCR`9CSc9bI{4mu}sbX6J#{y}KD114D~j4ABl3eiL)FWdLvE2Eh57n*#r~F(~`VMQmyi0 z2`(@loLu-yvo4k(E8IJQ6JubT%UxN%99JfpR6+78$e;>1Bm8!Stt^jqHSG?1OJ*Fo z96LsJ1(ZbV8>E4AR5V$ zP4df<|2Gn8+XNNyFN*ENLfGggQt1_68?#%1HLHPD%VWvOD`m6;j?$^-;@?O`FG~CC7U-gOSDt&T(l_nI`!wSHvKENocPkD!wv%nFDB7hI?NJ~A7Q@>WV2j;pl6Nco9*RQa8Wp&9 zR&9YBP~Z;LgfmAgJ{&5pX^@lFB@HT3QwCK{S@4{+Zh^CDX<&&f;99t_-JS^aSMwDG9!{ zF-Y$3fwqY8w8O96B%0w<-l;$Y7n`oNyP@e@Bw+|yD|q9=A<45;g2`TNpvOH>CK8y^ zVcgZh*aith5=^c8nKo?zzoLPDn)%<-PY$Xk=SzI8Bu|%kMS`vlomw66L$yy`tF}?Q zRenKIEmbc{T2kwaQtJy6TxMDZ9T~L~91Qk>XJKN26Z2z#fo?*>^F%Y9)Zn5_giAp* z?1yQrRWw1(B5iK{sMlbAg2_mWYk|QlZUs!CFh@J+*%(m%j~!b7@_XAp)A~76IN#Cq z@15|o;Ify_G{Ft9*q~RQLEYGQ?yq&xJqjl)k}FHDm0Xz|F~92`2zO8;COGNyx3GWM z0zY-TV77#0V!UdFp~Nf>fT5*7)PuC|qz5+oK29ItWr)6_3c~aiefGWmST zm&H$)IAL(zGHFd_AuKV3AvKvLBHXY|RnNnXxuO|TQ2`wiVW9p)1^aRZ9a09vXac`& zGF>^oESFt9Eex*7Ji1I$zbv$!hmo6;8BdkYqgsVKYBIGrsjwzaXR2*^^d#FtJh?c8}SV~ux)0N4dsDK4N1i~NHjd!}1 zx|TRyFS}mkoUUoE_nj`*)x!B6+Hde^$^0D2m%-1LWWC3gAsaldhkOt2H_?b$lJ5b2 zrX(9Zt_Nh3$MqnWo0of-&ChC_nKh@WV0P;yM^gxNm;Y9*!=gV<+tYL!)AKH zrrf+u)3WAH&SmX~Cabx5hqLK{vgr}C;c#>81-X-tGDDXLOE$urT>Zx}!^~vqF!M0u z@a4mnq%X-_lDQ&tg#~Vn85!7ThW;~o3H~klu<_8ogS&U_iF}YrY!;(l*C4nV2JSU8 zdU*GPcl0&p$9J@UKc3CXn=(6Vik;-;&mviKvU1t1Y__QYLhZy}P>_F+w$Dzc7v#^f zPnuh*-AC`LpvH=j5}qr`gH0+?ms|W=(3&9h={mKPPwQ!({So zc3&(x@I7pAoH;LVR@U6U_`H0QJ$v$Gd%?^f4|@U?UcPdjw0+E4hS9Fvdc|NkZB65?43n&5 z;&m|&Gf>1{2~2a-zI`7EKksE&358@byHs^w)1eRc9_|Qj4{onz8eRBCH>NfQ*42E6QrxMKNR4}b zacK}HrEr{BRT`Wc=np?>A`Pm6eKN?t9E4{k9krs)bFvmvk(|wt#PeP)e^B8MEAm;z zv$vK%pzwzjdAH(et|bo!NJ2IFFhs^xLrNHRo0M=YNjR1%+*}KjB7a^9pRDD(m2gKb z|Fu$lR1u?mo5Fvg$bSm*pC~Ep{A!VrJO`AHwlQiC%sKF6n)#?AcPmhT`D+E50yU%}Y46JC zmGnD-!<8-XP+XIsw&b?WeX;OV25$dQ%66bUK`EaLvi}mKS$g^+yCL!$h&&6Cgb9*L zKV6eR!LYB?z*h(H)(DJqO*Z?MpKJ*P;%l-UeK5A@TTdGRH3m*tm9G!>$@dl2*E)L0ue-le z)brgZ6!up6hxD*2`RveVpKTTyFAR~ept#7<{zgw2Jre_Y zPmqkQfMIJ(1 zJweq%60V3hLB%*hFES4J0aO-rCx2fSglWwVH<0Yk=NSh(rOFu>fE~;!#WxeYqgQg4fH+8+ZBY~c`69k-RYn=1FoX&!4CDJH=(Ua zyHPOI2|>@fAgy6rj(XbbP&>#MrCw&WXL~KABKClo<*EsA!wMF(ac`Gs`nbh??HbKH$#8s?mD6@(Q)LfYRFa)5O>10 z0X>P6k0|L7{P5M_*RBOe6#5LZg+7j~ik)B1La(ZatD!HX1>&j>DE@;At5m~{;cU$! z(Jles=%8cN^z=sQW8 zBnb64O7M)g>Y^erkk|rpX#tBr9IUDjs@AIdS{3RBWW{TPMeE>Xz(JvCd!TA<&=24B zkVkHkXv_CXZ~(42_N*2j_rg6nbN`swwdb<(1%>Yn$vp~v)chxf|0X1Vsqp9M^W}~Z z+#-S-Mex`c`ZX-Pp!c5&1$3PJT}bE`A(}-nMr@j1u&jf-w(?iX{x$`cKqr*_UnttM zFn-b9&lLA<5D1aS6n8QWIj*>EeIcJKZZlk%?vG%3^p$evm|}fCp%P9EJZw+=@f6%w z!;%{Q!x-d83OQB{X<=A}qF`htwrYPnxE8_Xn6ugM2{y0E=08&U&KG2YcsOHXLtmr0 zsxGBCtW=#+igzegrxpJhrFf@O)Sz^zy5@bIikft~Ls1jp0W{OyMgKbhBs{GYol&^% zc4!(McnmP`aQ;0?Rim;pd)1`wJv68hf_6cIDp>XPYu&B1!cQYQU|pz&(GW)BM(DW! z>Vav8|5!=s{#cq-Aya| zwIXZK+Zg^V{f!4>?uF_U`BZT6>7W+3|LdUpMllM%=wV2H5URXB2p4+F^YogB^p$Y0 z#cNEdJ0J8w`DVEOOU?%iThwkhy?HEaL0(hT*ZU5y>Np1!?bj4%N^Bg3{BY0Ld->J# zbTDY%rv=q-pgb)RuJ5zTE$4%MWu4<-_Tt;2KPoVT@o=tB(R!Xx1e+wcD^ml8)$Rc) zaP}8>C=j}Oai_BIg%ipPUnwuN!(Et9=})=S%3>&>JvOzTQ5HiPUqKm*p~t|Cbr6+&?GZf6sHRZa?Ew|1%9E~uC+fo zQQzFOZ{G*P|Mt=|$&9h7_3*(D)T94Pn*Y~7Cg^Yb>+Y5CC?igH4H6Svw~~*~iAGlx z-d9A%)hp^;C(C-vulS-Q>09q~Awguw6X$(bQl2-{1Pgjyz1pX~E0KYLBfcmNj7GwN z-K-@cdE$r>W5zu2z{Kkg6B~>ID1ZVefC4Ch0w{n2DDZz-;2!2Cishape_table + sta HGR_SHAPE+1 + + +loop: + jsr HGR2 ; HGR2 + +eloop: ; FOR E=.08 TO .15 STEP .01: + + lda #4 + sta YPOS +yloop: ; FOR Y=4 to 189 STEP 6 + lda #4 + sta XPOS + lda #0 + sta XPOSH +xloop: ; FOR X=4 to 278 STEP 6 + + lda #1 + sta HGR_SCALE + + ; SCALE=(RND(1)shape_table + lda #0 ; ROT=0 + + + jsr XDRAW0 ; XDRAW 1 AT X,Y + +; NEXT X + lda XPOS + clc + adc #6 + sta XPOS + lda #0 + adc XPOSH + sta XPOSH + beq xloop + lda XPOS + cmp #22 + bcs xloop +nexty: + +; NEXT Y + lda YPOS + clc + adc #6 + sta YPOS + cmp #189 + bcs yloop +; NEXT E + + + + jmp loop + +shape_table: +; .byte 1,0 ; 1 shape +; .byte 4,0 ; offset at 4 bytes + .byte 18,63,36,36,45,45,54,54,63,0 ; data