From 9919aebe4f5760fd4edb226df7e367435d2402bd Mon Sep 17 00:00:00 2001 From: Peter Ferrie Date: Thu, 21 Jul 2022 17:36:12 -0700 Subject: [PATCH] convert Bellhop demo, save 13kb --- res/DEMO/BELLHOP | Bin 13342 -> 116 bytes res/DEMO/_FileInformation.txt | 2 +- src/demo/bellhop.a | 46 ++++++++++++++++++++++++++++++++++ 3 files changed, 47 insertions(+), 1 deletion(-) create mode 100644 src/demo/bellhop.a diff --git a/res/DEMO/BELLHOP b/res/DEMO/BELLHOP index 08773435c27db725c4e067f1f321e7d210248f85..0896f4061ed4602d0d4b4a4b425f9b091c9734c3 100755 GIT binary patch literal 116 zcmdOCKA_WlKwrT8NJNcGI|-WtxV_@=1^eZSn1QN zpU`_HyZ2JsB8EPLgubiUFZv7<`mSa7T}fN{uJ=^h%EaE&X)Bp~&!j1Ax!>D#z=t8> RuV93}ldF%9hkpQ!1^`SYG%f%D literal 13342 zcmd^G4R91kcJ9@zRze;SAZ!P(8N3om)(Z1uO!m&$b(AUaxrSdMVS?1X zl`jNlB_Q-hgr4*@sQ+V9Pn5vUXt~ zN#&w^uXjhRWC<-clzqNd&2;zce&6fY-S73!tm4cZE;3YWVI!<*MvSS|DpNI0V_%8T zq&6}7)AT02$v?45hH8Xk2BR)u)tV7j4TEV$^~4NrNeN?KH~mG#lgJN44K<9np~b2V zXb3%7qXzAuF$)_p=u1Hj1f=pYjfG=c3q9NutFhRZ&p($8k|5wq-(2Qu*VCaM@ykb$Z5Y>oYg(F`yiTzCu@HuNNnzwyq z{*MC%ouC?&sZwJ!#xQ~?3lRZih8SLeg68v)M<5S@TIh!8_`2(`E%%X(h4w$TOjfwg zuNlB|AA;_j-&y90aOo8116jTbyQi^)wy`KFXy8r#P!Ni>lLD6Cie#~RDF&vzsu(I$ zln7?N5xG9R(y^3mM0x4MU6i>d5{BOu;lU z>NKX-DPwAllbyu=#^JcWq)FsQHK+sSSU|<-LPMiY+CLHo9xbHS$@Uo1{xSXvGkl8A zFnpuTW2DWs>q?mWNa7-9y8g$dQ+&fh2*~b3Lik+n${(Rqc|NEyLs9DtRW*D}(G=Ae zQ_vwkOmGkiLa}yI!17y>ELJbYz&24;VtM;-(u&yn7SjP&*5CT_reHA~*H{Pke>JyK zto>s{81>T@(I_K>!FCa+Ak39X!zA`MDgWoKFo}E(18RiBDl3Ei$Dkp68`l3AsTyNp zRaJA_V6uNX{@DNfHGf$1PhkJwfc@tm+4MsDA6xc$bsLZ0wSCvdAD{pD$ofCF4E!*3 z1wKGkH9rnQn(C+hzu^ZtJnA%9teuS4q%SkA$m9Po`NV+Q;I99X(cba1Yk0-}8iP&x zXUCb4vu1A1i2om_(iQoXnmEATqrL`r{WpBE2Gy@Nd77P4NtpCOKeiVID1+S>e^S>H0ikSMvV2`pt zy%>&btW&i8!~a|b8k!fJ{|#(_VgE*S)EY4^d!hY}Tj4qr$DVNu<&Q0cXxKllG^$jb z|5bVZ$KjV%VfRZbBZ%(#pU(So{6R#$D)h#<4X>Sn^*{f}3MI83*WI{uif>pLYyXq4 z|8%W^eGbn5&=v|J;;G?%zh8KdvGSQ>5_zKR{Ck_y1ph`!Cdg9Q()4zX{e3FQ94i{vR7( z=Fi=3!V>6uO!f+$2;}%{I3Z}*Fi&**PWO-Wr|IqR zL)R2W?GGp9oJ9VFe4n*o8W`P&Fbd_nbc%0KaPR&pmZ8L3a>f3~d>goiHWYhKW&1sB z z>{%`bg8$>N-k>keJn>DY?bW;gcj%Tx=9fdEgcC~i4=4ZKnVndm0BdM=!X5@AfxOKl zl@NeT4(@GE!gdJI*7fSEb|Ll)Duc$p5v`PQTPQ813{F15f*kM;%uW|=C zFSIzVqW?g4sf})6+lfNL8j!cBE#e|FI(#O80f7W~X26NL8mVbfmQO z2OTLLNHxwG-tWnjJFoHnl9L{@Z|DpkM7W?PpUw-upkyC`+^>{ zZzbWb6b{S;xWPQ`vaLCS1Iq*M?@L@+ID)%K;?@&xy~JH9;$TCQ>j@f=s|b3PaA1Cb zo|%XK%dI(r1B(W9Ttdsj5okj~FCpk95_*-0gALG22pW(N5cC7Wfms8(IuHHptvP}N zPXXw!NoZL(0=-y5FD2-u68ZrV2OFT55;P!Ji;NPVw(az4;p99ekD_GGpg+0p7#;ypny}V6fohCfC*O%n6NHj!gB>oxK_Y~?-Hr$FwIJr z1$i%(_^3`f)rLPI79jWuD@dr*O?#L;L`llmhxNf`xr{eej_l<;7TnWP>7M?s9dJKw z2i)m)z`foMxOdwD_fb3G{;wTQq=KBtOmZSMa3bKE?Yg2}{=Jm&Soj$icqQserC8~tmW#}o}W4+Gp9_t;h|E2}Y#U2b45T=7;VM~`U zhmqbXUOvaOzJcI>ftuz*mfFKu^e`HGgubvv|HEB+yv5Y_g6YUvPIab&4HKq|9h9f!}*s*>{doZ)?g7ktUL;VQ9CQKxoyu_I?VYCq#0M0LDrS-?v1@~b>KIJP*{ zs*kR5(d=Hc1|pBjX#=O)^A6A99V{W~iXPqpyuLi(d*2drOEoSm{}>M!_$f13IR%4r47Oe2%nAWm$6 zXVeeuj6d2+?zlXCKUw3WtxlWB+~({M{fDxF{%5jY+mo4waa*6WjP>G}dbmwktpXz# zYE`?+1|sv%_wdYRfCqgSeA(%l(hDrB4q%i+t%36qak30!*e0@f^t{DSw+YmXlxHi3 z+C+R>YhQeL$DzY-aeyuGWE8!MwjV)inJ7 zbi4G~idLzuwm6!B!Ov&Kcq}FNb84{s<@^VG^Tt zx#Z7G_=Wd)S1C-{{%7kIE_(zfjGagQ`xWF^U*XgZ3$jyGD1@FFdWD}p%Y$!F%cN4r zA!9*yO}BY?koTbT*6utp$PXbh)6w>ncaYvb`7W353i(#$+b`ci`JQfeJ8$#M?4#dd z2R+AXok;JYjQ3wX+46zRC(pCEwbQgiuzb_*r9rE;F411|9eTlS{HDdkp1l9S$pH4+ zJ+l(QQu`Tfu1)fQ!O|T&uu(_0{|A{{P@eBl>P?yraw_ycjS2TQe{dKZbyP9?lbK4y z5;XbWNcAV-3~zpd2!E5D(f^~9(-xFrwpn`xZISj0B&h5!G7(I(yy*-?O3(i>?B>X~ z1-4Y#nR#2hTV!v73mJ}-V34rlLL9U>%TN5A!v{&v=X}7kWwsvLR+`_+_2nF4`tjZ9 zQaHn*v)nn$`^%FVEO@3p4V_^B7~KKC`>?Qn&cDA}|JD;bjt>O0wl-2$lHNAD%*64< zEk(0G;9cJIulQ(o2C_*bqua;2>lgk9UwDxx6%0>XTie$z((E{N6plVVcbDBv<8zFi zdVW{mPw=40aBOI7ubTWN(O(1|&lP$wNB=44cs@lx13I27bixT9)c5Oqh7-fPhqvmx z_1(dp!Itut@~vL{mE$jnKfOh7iR_N-rc`9-@SfrQ!w2=bwRc4p*EhQHoZA=t-aYp& zxzCMj=H0PyQFLjO8{ann&by7ehL{_>d~WRWxv|UV#x9>5yL@i!^0~3g=f*Cd8@s3D z1Nm^R`PzKw&WCHwug!-{K3r=aSH$?mBz{L7jcU!zjpbrr z0KYs?lm?>-Um%E$ews}|V~rt%DnB!-0%d_J1D{|Kz=vB|RHH8zb+HDjPdVIRl02Wp z15i~He#dQui4XYU2+Cvl;7Pc$I`YH>Su!8PPrQ+(rpp)=S1jKh>M4;VG-9di&a&8B+rLDBby_339j-NzcY7+L_{y($CkFiPHP` zp-v#SpXyAMHsU5zrmEXfhc$beadi}*^<=Qw_Xy#2l0?v$<`r6no-T8&{rr{ zn5MiNLMCH@Mu9q>Ks8$L3vD5deUw&I`A-E(p;j&*#Z-qeMfOl(Ix6X9lD@s&M4f<4 zZ;@$LrXOgJFpnqHh(bm+m=bEn+hgM8rYY%$hZ@_N$2aRC-U z-9s(=|E%(^6^|tj{}B6orL26)RDa;+${Dj}SB3RCx6hkj6MJmWpS}dntAzFJX#3H8 z`M4mAEkpPw!WM*;4=-ExAi}a`53j62s74rtKBsBplh3?3io~95uV24jFDK%;K(yh^?I$V|bXrkx mJhB-w&*D&1YRyOtRVJLuM1NUQ!F3od#FYt2myl+@h5rvH{8EVk diff --git a/res/DEMO/_FileInformation.txt b/res/DEMO/_FileInformation.txt index 4bac2c02d..7e5d58599 100644 --- a/res/DEMO/_FileInformation.txt +++ b/res/DEMO/_FileInformation.txt @@ -12,7 +12,7 @@ AQUATRON=Type(06),AuxType(BD00),Access(C3) AXIS.ASSASSIN=Type(06),AuxType(0300),Access(C3) BATTLEZONE=Type(06),AuxType(0300),Access(C3) BEER.RUN=Type(06),AuxType(0300),Access(C3) -BELLHOP=Type(06),AuxType(3FFD),Access(C3) +BELLHOP=Type(06),AuxType(0300),Access(C3) BB=Type(06),AuxType(0300),Access(C3) BOLO=Type(06),AuxType(0300),Access(C3) BORG=Type(06),AuxType(0310),Access(C3) diff --git a/src/demo/bellhop.a b/src/demo/bellhop.a new file mode 100644 index 000000000..b6367df0c --- /dev/null +++ b/src/demo/bellhop.a @@ -0,0 +1,46 @@ +;license:MIT +;(c) 2022 by qkumba + +!cpu 6502 +!to "res/DEMO/BELLHOP",plain +*=$300 + + !source "src/constants.a" ; no code in these + !source "src/macros.a" + + +READ_RAM2_WRITE_RAM2 + jsr EnableAccelerator + +LOAD_FILE_AT title, $00 + lda #$60 + sta $0813 + jsr $0800 ; decompress + lda #$4C + sta $602F + sta $6BD4 + sta $66D2 + ldx #0 + stx $6030 + stx $6BD5 + inx + stx $6031 + stx $6BD6 + stx $66D4 + lda #$EE + sta $66CA + lda #counter + sta $66CC + jsr DisableAccelerator + +READ_ROM_NO_WRITE + jmp $6000 + +counter !byte $FD + +title !byte x_e-x_b +x_b !text "X/BELLHOP/BELLHOP" +x_e + +!if * > $3F0 { + !error "code is too large, ends at ", * +}