From 04335fc40a735b9772d292edc298be3e087cb656 Mon Sep 17 00:00:00 2001 From: Virgil Dupras Date: Mon, 25 May 2020 20:28:30 -0400 Subject: [PATCH] wip --- blk/288 | 2 +- blk/382 | 2 +- blk/399 | 2 +- emul/forth.bin | Bin 6217 -> 6196 bytes 4 files changed, 3 insertions(+), 3 deletions(-) diff --git a/blk/288 b/blk/288 index 0ae793b..9891b95 100644 --- a/blk/288 +++ b/blk/288 @@ -4,7 +4,7 @@ PC ORG @ 0x22 + ! ( litWord, 0xf7, tight on the 0x100 limit ) called, puts the string's address on PS ) IY PUSHqq, HL POPqq, ( <-- IP ) E (HL) LDrr, D 0 LDrn, - DE INCss, DE INCss, + DE INCss, DE ADDIYss, HL PUSHqq, JPNEXT, diff --git a/blk/382 b/blk/382 index d9a7282..7084dd5 100644 --- a/blk/382 +++ b/blk/382 @@ -4,7 +4,7 @@ AGAIN ; : LIT" 34 , ( litWord ) H@ 0 C, ," - DUP H@ -^ 1- ( a len ) SWAP C! 0 C, + DUP H@ -^ 1- ( a len ) SWAP C! ; IMMEDIATE : ." [COMPILE] LIT" COMPILE (print) ; IMMEDIATE : ABORT" [COMPILE] ." COMPILE ABORT ; IMMEDIATE diff --git a/blk/399 b/blk/399 index 67d9653..ac0af60 100644 --- a/blk/399 +++ b/blk/399 @@ -1,4 +1,4 @@ -: LIT< WORD 34 , DUP C@ 1+ MOVE, 0 C, ; IMMEDIATE +: LIT< WORD 34 , DUP C@ 1+ MOVE, ; IMMEDIATE : BEGIN H@ ; IMMEDIATE : AGAIN COMPILE (br) H@ - _bchk , ; IMMEDIATE : UNTIL COMPILE (?br) H@ - _bchk , ; IMMEDIATE diff --git a/emul/forth.bin b/emul/forth.bin index 63bbaf6d366356acf1bfc4f48653c2e1731dd13a..0fa74cef66f8907e8811d1e165940c9371e8f2d1 100644 GIT binary patch literal 6196 zcma)Ae{9oddVjw^{3A|cI|=zgX^I^O;*f;=pxU)ve%X#gJsdk{J1Jd6SptNzLc%3* zw7nBak7cJ#=uYC)o3{N^g`LEti>S19x7?~~X;exNl>-GPU4>V|E-fU>ZY^tzO5N=9 zd0(4Qoiwc}_WL~V^E~hK`+Z)|=V|j>H6hl@#ry?r{-3n@A#MJMwsJ?z|CKg>TDv2@ z5O;(S^Z5T)pyT&>^&Q?FNeN+=zrR5&Wftcj5&ogES|<>h=R~Go%WNd71Gpk#DPR2l z8~%?ozKjn@{O3PBI(oFWOjyg)j|-2Heq2kR6zR9V_RObGYU#JuJpYoeQ-2k|YENtt zdimn}MMCkmv?rXxD8EX~$^&eoy%Eti`&2g*9^DSN9^vFjOv!47- zn*y8a9(l{7yYF3H^p`Dd+O+BV%5%Q{#h3rVZ>%O(7CqO_w=T}Tm-gZBxJVz<-b;^& z^sq*|-n06T4<9~J>wQsM9nf#9Q-0&UxAu$GvEN*&xcz>mNG~lG3BZXbK3La%1zN9^ z+{r9S<8hh~uCKU5ldiA$d_YwEM|gKQ)Rzi>Eo|jiA*bR}BA#-<8;e)x0A62u2gF@{ zy>6m_SfUF$fMDn(0-@4~>`KIYi;2WK`AncUk86sQ4vqJR6RsTQx*z_loyRTJXVy#zXyMqlXXIK8Bz#cJ(~zOYNzvTm5I?TX@h0CJ9e!fhvxN!U3+Bu%t{%d6Z>WlVD9D1f)m4 zP7g~z{t-<|k9?IL&Tu>UY?x*BT`c`$2gZ}VwFSr^ltmViNTRrHr7 zZ>O(BmBP9MLp{BooVVdKZ1^q46MBCBJ7C{Cd}w6(7hx*X_}+bs=r2&wDj zej@pFq&roF{G1~)U|RgvORbkG-CvSBDt9-1a~FB8b`yb~x{bngdW5)LX#_IYTCf+&L=O-H}*VJ_P<0P@_I! z21O*+j(~x?NpeSGeiQ=07J%fA#1JqdI>i+Wb?_e=89t0|Y<13)oav!Anyt6E|$pQhmf%dx}D)v6sf+@F1ou>4}d<@iNrFT8SOlLzhE{J<*h>p zb#AtuH5L$zP$zONM{z4l(U7CK1&U}m(2okUI4_IK!l&OfZkgxAIS~|nv1mNrTaK_? z7B|Fcow&V6_Ydyd$53T74>}C>w1aCFf*A06gLnthye&F6I6`qe`uRAm$iBr6BILmXUtgd}fOSoEa03e%ONJF>@~!Ldy*4oF|9Ll`Lg%=>*6 zW=*BQjc<6m_K(pCB6g;2Q2cB5JCvv3Z)M>sVey|B8J5*&NA)FX4azCh+R=)H^uX(? z9fVrZ?EtgB&lpY_5jwm;!YuIm$6)p}ihtVji8+dINU1LZ)3oI*a0^*nFp}zIyI?Jp zT0BA%tUzGB#L}M{yt>1(tTB<8fH(A{aN?*n@hQsbyz#EysGo)OXObOFQb#5@I!Zj% zk?WCc7J%z>aJ3^SQt@Zvi7uDyUq1bJ@Z%|m-3aJEaoo@kivL zk0}9~dCf6pT!RpbD1x5X91G?fj*Rvb2kYmw{#)z?pw)u;yF8}vc1U0%pOV5qT5Hs= zIqFff*BoaJ#q(PSeNCB>o}O@5B#;XCi#*w&Z<$O$4{GN|)>KK-Q3>5|$tszYPOHNW zuA_&XLFF~-ba=ya#5C&6v_^K$L8Ay+idljUXwYEy3PhvvQ~^54sO40CP}Fp=C*E_s z4vTBZaxq_}$a-q12A+sVqm?jS#hyvE06kOCkPWrXIIi=k77ljRkj~0UVT+$Ya{|PW zCee5EiN1@&dqB;wvx7iu+p^YSn-rg~odyf{8Xf`5W?LmZw~U%*cUEgM#6Ui1Yt$cR zsNW8TX-hzVGrv*aSr8PxiEuvy#uM50&KUH~z=4rtV=wI~Lxt4aHrrk;n6~g{tT)__ zY6sVJre6}(;);TM-iEADB8(^%A_^ZDctpNnR`mxGkw7pCE9}lMfYrsDu#0KpcSDto zrUEvBfKi1?d3<*~u``@vI2ZEKs|r~ye_x;j zGrHq&G+B60S<&Ws1yJC7QiKxg-3sPec^YGT~%4BbdU4)8}F&51+svBWlgO9MQ z9;ln);40x7KQ_4U1<&!3{RhT|509ScM0b|A4n}zAwCk>`N;pr9j_vo1j2`n0kAjXA z^;M5TP4;PzsFD+iiflC+=Q6wifNHzRGMK+kbduA6|1dDQQtk;_%@>`kSJsm>N&W6ycOhjfinPgejC5dp3=>7BjZ= z4Rx8qKskrIkUWJC5{<*AJh=8aEcncFw3x-mN&54(i>@mc>K_z|u4t_FF{CjCoyYyc zp+$+KYPX9Oe#RWPs#z+>RNcbdM>phqYsy%(T(Q&}Z{~kysTO%9YOJDO>rC5Q8WCn? zmwI>Hbuov+@n{F%E;;QRF`C^#1B^zJsZ!v7h}?F|$lk{xF#|Su!feU$>})c`c93 zY3;*2!i9n*u8+Pj?b6&y@h)>?Xms>gYi$@IWoog5sOQlvt_y{sr=sxye+7}(!8rt6 zO`lw;xs)r#eNOyPUN?lMjA{|upr{{q;{B4#S$f{0IoICAc}gx5)G41=mmw_)w~h1kX&l_3Pzhf3d>PS+8O>Itxesob6#oN5X+ffnSG{6s)N|kYrRYbU z+bU$@w?l1$Y^mL)y!QZkx2Y$2r`q&#b6;+g;}P#^Ry8{pFQQcGvbNdA)ptr+)f}VL zE4&5@+%It>r}=B8y4rMzJq2f}@j^Ln{Rz(%FPAC2ggkyxR;#9<&k>fV+(MI6oD)+VhhM&LGun4B`{wRZH|`m$crEX5%aY>X!4m0i zmghq^oR*vPIA4`Q3w7^A%G4YljwUe?Qa5CgL(%4yPg^wV9Z9ur#NIvNd2=!E7tB{N zUk1ZFBe4oGg}#93?+ip@4ggBVx_y1IR3us^HnHBH$`7wNk7U$QOIHkN3sx@20F26bu2%8EpExvGwiAbMn!sY-8I+6CC>^S*XM zb<(sD@cTUP^Stl#`*~hZ+O^4QO^D)hF?mayd{3J^tWEZ7OZUa(pJ|g9wEN<}#eE^f zB>qo#M}ldEfge>(8AooQc+a2vVr7gAQns3 zf4i1)i#7M?qQ_j^nk78?;*#5 zjqkhk{6{l$-qM9ln>O8EI#}5?_r~9Qjpg{#oNM;)8s|RvI8}+C6CyRDeVpnSsa}nW zeQfof=skX_#(i2_-mfpJTYl+&wD#We&@VqNU;JdVNG;422*B~@K6@(s62x9Ay1%j@ zwa0ChuzmS`>U4XlvJ!~$`Ow}_urnE26SlG$oKrp(k0tFe$K1>Z0B09SY>me{3W>xz@p4N?HrG5-S~S)biaRry+Y;3g4(`b(YHG_=@$=Ej zwk7ws)ZnvGjhA|d296)Esesq#THBwmOdhDMUH(Vl8+cJMql7m#KotABb16x}=Y)50 z7=h}9oq!O}6KaXJ=1S!t*N^^U;EhYih>gV=4pP`3y*u#6KS<=>SiI;7>E8~#@i!71 zjU^=({BORC&~|CYhd80OP-yA^86$PM01LbeOl2j z*8>vlXpgnJp@*b--I@=w-<>KbTmHl4xKH1Zm;Ye5^n}|j?-{Nf0#CD@0M3LX>C>Rw zA=Mb>x;dL`Z1z7Zqr4;Nc0!#G=9c@g-4SeN%u}Fe#qukZAWRWe%t^314+o_BS5v*x zjz6SIss6{Q-W6^K_Jx>NC$aPn9UV?|)Z`+9kQQk~Jb~=Cl`%$axJPjBCA^))V# zEO-46(7r54nrodW)4Ye7tQf@cY(IBL*mHY9; zi{Z9p0pjxmB3n$0*E-cWwK@M=a!2Iurtj_|&ed+brM-58FdZ%-7AuT^2!x}xc?uSU zUkt@V3N}TDB_M*G@pvej+*%;A!1L02T)wb5&RH&!i7s~x%5_^f+M0s{-v;E8Lj+Oqa+4`7c&shp4KfOi0=l}`vm_obPhl)>Zz`MrKTx;?L}Pcd;Orag}Q{EqGGcMX+u0! z?#EfH+BtdC1t?ARXfspnM2d`x&(ew>>RKmS{Sy&r_V0?&Q&YWOgr5J82+w5ywg}fv zCBWz3v2@MvqZUN67`6d1nf`3cR`3gH*dr|7Q~kXv{j!jL36L`dgN;qQ5RopJT~&l& zBMKg1ruap}DP2N~=Sr9TJ@vV>LXU&D}Z*-CF`%QP94Myo{=*HJ_+ zBK3Sa4PJMU7@y8i+riS=V-zDyF;1`o^%yK)Es;npnTt{~Xn89qAgY^K6d&8KLgQ+( z{9BHSk#(`5YIr;riBv#$<$Q+KEClU@h%Bjou^ zrZv5is0LjM_PK?#g7FaClm|C_nd=fcf??Iw5)ZcoBG4ks@fcWL+<;z;6K_65S=E%s z&cb69p+a8Y7K`r=CF##!oLqH+7;Ce)DWKT2R zEOg9H8TLT9F`*LiI~jyu<-v0qxHY+tiR2P5WH4Su(FmAw;1JYx(@_W-Vall{vZsoe zapXLy#-NcfZ{+-yeZtfoW5zA>t2`Q=*KYycSJ3BI_`R#C{eWnTbS7S;VRXkuGz3!| zOp8zVo`$8#!d7KPrDqr5f&VU#P{+DCfLxci(YdenjX*|DG&kw&SC5{?*lGdzDZo%$ z0zrOX|7-_l2BY7 zNUBIU8cI+Q7p_3MChPX@Q=kDCH?^z5%Ow)h@k&pUBpo0_ET5(>r@l$VAgZS?Ht&S_94I)bbt6pW0~NQP1Mgr^dG ziCy(d{T>YL5zgU}?!<PV^r+I@Ei7;FJiUK+Ddv8H!$Ze&h5A$Eks#Bd-2|5m)a3 z2qnoj&t?e9TI~`ZIff|TdQm+81NM%Dlb-L1bCAe`q!_nMm|lBd{;D=^`STo(E0@s6 znWWo2mEtFkKgq8Wmz_)=IgWY?#F*nMa6hmTcL;A99Q13H(pAJ911SrN`rv~MtS;x6 z)B`H+vG69uuOP~H4os>!=Yp*c7P@8njaf*;355fsVn6Rph%dp=v>gl=jiLfv&ALmv zY)MxLemja4r^q2P9FOL zgjv;27kuMn*fAPd2a$gWZJ$o!Z=4UzQJAy}T4hO!9X1NYpEHkIX(z3bC9T55oRtakmj$EZF%-qyp=Y>;)#fH@!wmYOs!oLFO}->da*f@2{i)&6mgNK$k3z>o(sUNOQJ7+AEKOo|*k!WKD zVwneBL7U<5qK>0zzbRDs3G<{?%~Tntss=EzCi3YuX56#PSn7-$IS(yWqNGTTSCs21 z)AoiPaI?}&JwU#3GKNC2NE0718R>l((NZXbk#Hhe0{jKUcE0rN9Hx{vix>;dV$SfR zgjL7~L9>kJYrs)~pBHhYuF_A~r~rMw2%nFNoA78jnheF!Sd*Ms9%Bq*FljPnRE%G> zsDK&ICi7iwKAW&ZFwgaYSCNIb{Dk-y21n1pz(`|F8+^*xVj)ovrR(S#3PV#xVlDhe zM0SPC@VFX7xl#ivSBm?xxFEX@p)sRMbQCM<^;WbMPp9eGO*6Kg!+q*pMyNwRw5D-d z0(K*ndfoE*rR1soQ@D;jr@|O1R;V~zKHo^R;;L3uV9OsV9u>cVqSPQ>%a*TLe0t`y zyaWZQd26|hd_Tk{$jX{1VfzE*-m0GG&1%!l&B4qj$0W9ErZr0!`%!nvlIF2-b*6-A z&2dV-$g3fMt+)U|&2KJMhtqNFIT%Zg8Om@^pYvR?$6!LiikYcacDYgp<|}~4zG5Uw z_<6|~#OKqnwH5!c$Ro@{!>5PEtz3_=2k~`Y_u%l+SVG3aHJIQ~&*4{IrAZmVXAz5> z_*pg!1SYVap}K*Sy~jb#=SgeqS=93?yvZJh3;kF!<@#83@rZ>bu}Ly-igLkgDwwW8fvHg3@=csSX(0eg>uXA5KO&zkS# zsyV643(90?VQw=j(Ub6EzxKaIzX{Kwd!?S3x{=T)H}7TeWf`>PM+i$9WVs)?n) hnsPO}_@$N0?ZPxy<*IgZn&P^7D{vB&TW*5p{{rH2t(^b>