From 1597f1e131233bfe87ecd4a831172e793a2402de Mon Sep 17 00:00:00 2001 From: Virgil Dupras Date: Fri, 15 May 2020 14:07:22 -0400 Subject: [PATCH] Don't generalize XYPOS just yet It was ill-advised. --- blk/081 | 4 ++-- blk/083 | 4 ++-- blk/393 | 1 - blk/623 | 1 + emul/forth.bin | Bin 5936 -> 5919 bytes recipes/sms/xcomp.fs | 1 + 6 files changed, 6 insertions(+), 5 deletions(-) diff --git a/blk/081 b/blk/081 index e216810..c894fc6 100644 --- a/blk/081 +++ b/blk/081 @@ -1,6 +1,6 @@ RAMSTART FUTURE USES +3c BLK(* -+02 CURRENT +3e XYPOS -+04 HERE +40 FUTURE USES ++02 CURRENT +3e FUTURE USES ++04 HERE +06 CUTxZxC82bzfh4|gNxT@F*-jQ@vA~jsqEU!| zC{!9T&Dw5>#6x$bYI~?q_Rt5UsGXvcQB9gM-X;}gYt|{5#?}durK^xqRe8(U?|j#6 z(w_EU?C+fKeCOZq{0<+qF0}eq{H~R>i|F%T`rdZCd$ai-zx{#x+3F2zkWEG1Vsd|Fa7bi!@r(5WTdxQk7yY55TwUb=>pdi(xPOtpAB3vGmj%f0* zBo7BV{iNsyZB=8e>f%$tBW=2T_#KnKzjxqB7duMH(~(Zr7^G0I67xKEJ$A)Bzfs`u zNN3j$5;aY`)U-=YUpC(a^S5!G#HWmD9C+aK2@W7Bw7tNAmDJr3h^fu?QEn@YKm?+AI|$D~cc-fnw@ z!ZI(tE+hRT{HE+P-uFzgNe_FlmR^`Tl9``$SESwq72;;55~X zrj~H~zJ0*=>uLbKvI^y+L0N5qyySWR_Ib)@Qn~QmLa`@A9(_?nl@6a!KJ}5>rfm4` zp;DV$Cb536d_kw2+p7uaII}io7MS6`cSVP<4K;Zldam84(stv8E$*N}Y!;VBTtZPZ zEOqw}AXI(3R34Pdq$ztr+qvV4Hs+p3>yj#e+xR5aif_tZ)tc0_wqQTh=AUc!o77#j zGG!}>;Qyc*Gt`^7^p| zu0IM2g-v)uJeUwh@ldd7Ry``;aNdnS1M4L*X&=^euB-M>^l#wruk?e}4xJ}Ol1GB- zWX}u=%0VHOf#P)Uj$Wd5K*lUJ%hC7J9T?_%9rDoRsk`W$g0)kwm*JQW?FyMx>hEU$ zFaQ%a%;#!`_A8+VSBL$>(7x&hnkezU2cd50RwzN2CnnDu;}g@yg^5e!=ZSCZPwYVe zjAnxp2y;8@7u1w*Gb5uvO4pF&C6(7B_MMj?Ak|0iVk z-H^rUYyb!{=po=Kltu6e&jK?MR}^RaaQK-_3eo_i&m)f&(XQ%Yj^ta!#O73=OZ5dJ zIogWn=GDHiNoN_Ge9uQQ`xoKVi{Akv!!)2?3*XWCg9y*WWMRoQpxz4KVk5m~^b%YN z^?rX^`Hl^WCv+d2CCRtY`mIn~!cjE?LI z#iiW<5@j&m1+gvD-|SZ-hpICXMr?X?{K8mEL{i60L@1+?S(OnA`S+(7+G~klj87xX**fxsuFZT%qHPxXJTlA$VRoP!B5wGNCY%bXqP7UBvxG-D-2L~TUxKsS#th$77nlZ}`n4R7*i%ZWfmyp7{ zk*$b9ZsNW3WNTMwCNdfs;4F(hxqRo>078E0ri?y7&U+l&<$6cHC}JK18Sy|nM#)1k z;we8Qh1Vi8k)%50e>ak(pV?39mla}6ScTkCUY6S-#<5oJVR&=dQaK9wQ}9Pv z_VzQ-@K(JQGUyn6rnakBgHgE}k5LpIT!xH;j5Y8giz+|&bCBHif1vAg^jknNn=f0% z{$ht!K21J74WhrPGSxePz2SBi+9NMpuDjA$6C)@uPvFE4Ffk>2wc$nAknL`4ZhjhM zVr!KNCTX>StIri!65F-7Zl7%2r*lViT17ys^fYMCH0~`jNk!E!8<1lm(^CwiSa-2e zIRT;cg-f9?8|LUMo?%u$w--HfOyZK?IN5g^(ZN@TN5@-sLwntR*w|O)7y|zrL&L}Q z2|7FV+7vBl3F@908ymhj^>U%a*@W)lm7c%9{2~e_XC%D_622GO!ZvIye8TU(>4p0;)~xcs8G) zH-SEo+wn{`ui=oyEOB;DE~oP4Y_3s?9j}hK5=KJT(Ud_CvfzfvwDE7@8$gOfqgOPC zMp2FoW7D8ytsLEj?!NwP&Z?&$>mT{;rfqqpyCCI*O>_+kuH0e#%Y=}yIDL+nN@_4n MKVmcctESF>14kP#zW@LL delta 2790 zcma)8Uu;w76+gcB^S|r(`d=JC;Bsx;CUIyM2uy?}fn3J{Z;l<=CM9ANr34~W*C7cA zQ7Lm6VOt*34&8@I@X&`%LyOdk@sJ6r(mGc4zw_ri|9SDj5qM}`We26E~K9i*Joq=9U{-*3I= zOx12VqsofIq&~AyEbm|uaTfxaVo@ViPf*L*sWa7ct#r#dPJ&h(kHPHOOb-3HAl0O9 zk9=JgVV6n0nmjDYLr1rd6c}8urI^*jrU46|C&D4taJ$ZW6#E0@(icTk$$EwI$V+Oc^4$9=^73rm zB<9ED4LZ=YMHAq0WSzXjBJ1r$&R+$eGxbR7ezj*ku0%m*wYXH$P#{rPETxA= z;HtinDi=~^(wy~Rojp^_^9TlnG4JLk1eY_{c8_1x6O)(&#(UD{3SGi{-5 zkI$rZG1FJh_z}&Qnn6C|2#5QM**-IuiJ+dBdm6TWTbFhV=x%06|Ji4!_S;li zfAy7OPav$)6I?r37>2q)if$7Zcg^v4tGi*R^C{let+yI}==<0wlp75d=ZyMG>rO)| zT7ltoAzv!@<;%^|aK-zDav)`Q_96(hTNooK^?_!#bNW&-nk>C!<*5}mqF%09{8pB!4Sk>_=UnM+y^f7 zfk}LBno)=39rnHPSD?KlE?X%*=di2``uFg>q3^0?b)?#!2??Z{Yh{pMwgagQ5W8yk z^%AWBDrRYi>}U_&hhlEPo(Y;frHl5-Uq9sr7=~Sewtz{cp)`*L1MpzQe6Fr&y%vZ# zveuh{?X~BqmBjfrxcXcl4kYNp#MGEkoj7Nlo;Y6}BbL~i*aim}#Retd=0?nO-V!~A zgSl)uv7P2%DM1zQM}bAb2x(7*=%@PEfh0ZGxo~nig7!20KcGE!f)=L}4FHNkj{r-d zEMi)45AeL8WR zIWJ+Z1)FPc0C+(fQLhE>>->X@#%qJ zso_A(`di4T9c7$Nja8~ATN!68a7~Ky#L$RG+7n!CP)!!q_SS<)nQNDV{Rg5H&IZS6 z7yqLWmxu40QI}wH5Bk(buni3!*)3BwSZ+NJKR*Zs!v;BtcgjE4+XC|;_R^$ce=gts z5|GC?y^jUMWw!5Q-+mFc>5C%eGSCy;#kNv%H z{yRuf)ay2A>~1PDjzmS3MIXD%MgAH!o~1iLVm4pS6o-oYGUZ|NVw&>K;|Xt1i(5{6 zkG=4)=8B^W+hH7u<_4U26Ad$F{W0==$E5X5WXBF&=egD{gG$na2-ksgu_QLKa^2eB zxLxPk==2F3`h=h}-WV(LjEbsiBVsJ{^%sLk+dV8&4nQcc2gd?x<1Br{EzIn;7>Z@9 z#N~M7U~fRV<*m^()z+=xUbjAL9IUYq^(24iL*(;tf=*0doTi&vg3=R}%IMkYQ-u;o z6Zi*i=`UQwKuFSU42e~ZZ5DDWfRbH=F&kW66ZY;5Zarjv_aczzWv(dS%|fnC!4xHKj=7M4)?a3&vx z6GBbOh`Ibf~+n19e-7;{TKK)Gl#PI1YH3RG20IHW%C*iNpuxQXUB3R zU(V(lCE2!WlaB=v(DjH($6bhm3ns(H$KD)}Vo%X`v8Z^8A{~8Gxr00DZwQZnzof=&BudunboW>o4Wr8vcNj^ diff --git a/recipes/sms/xcomp.fs b/recipes/sms/xcomp.fs index 9353fe6..e3fa460 100644 --- a/recipes/sms/xcomp.fs +++ b/recipes/sms/xcomp.fs @@ -3,6 +3,7 @@ 0xdd00 CONSTANT RS_ADDR ( Memory register at the end of RAM. Must not overwrite ) 0xddca CONSTANT PS_ADDR +RAMSTART 0x70 + CONSTANT VDP_MEM 0xbf CONSTANT VDP_CTLPORT 0xbe CONSTANT VDP_DATAPORT 32 CONSTANT VDP_COLS