From f53f91558b43025fcdd15ba6c998f9d5b4708aa8 Mon Sep 17 00:00:00 2001 From: Virgil Dupras Date: Wed, 3 Jun 2020 20:57:29 -0400 Subject: [PATCH] find: don't protect BC not needed --- blk/291 | 1 - blk/296 | 1 - emul/forth.bin | Bin 6189 -> 6187 bytes 3 files changed, 2 deletions(-) diff --git a/blk/291 b/blk/291 index 3a22926..33e6ecc 100644 --- a/blk/291 +++ b/blk/291 @@ -2,7 +2,6 @@ PC ORG @ 4 + ! ( find ) ( Find the entry corresponding to word name where (HL) points to in dictionary having its tip at DE and sets DE to point to that entry. Z if found, NZ if not. ) - BC PUSHqq, HL PUSHqq, ( First, figure out string len ) A (HL) LDrr, A ORr, diff --git a/blk/296 b/blk/296 index 9e8b9b2..da781c2 100644 --- a/blk/296 +++ b/blk/296 @@ -3,5 +3,4 @@ A INCr, L2 FSET ( end ) HL POPqq, - BC POPqq, RET, diff --git a/emul/forth.bin b/emul/forth.bin index 9cd6b223972bce201e8ad566563f85ad8c20b9eb..eeb152e7b6b93e1a81e344f0965b8437653e4216 100644 GIT binary patch literal 6187 zcma)A4{Xy{et*9|wi73@ofwkPG(9^Bjh$ecFOm&rS+OkO3hn2PBYC zXt^GQ%hqYAH?e8!RB6(JdYh^-I-R(RizYSe0^0Q$(IO3@qZdkU$~BOstzha<(=_{h z-m`(*Nzh{?;^o$XS6%w zzr`IP#3cUz8R+H4o$X8dBsKQdoo&e!CK3VnXTZ)(>JG5KvVck)u8K4}-Zm2=n2p7`~tabI3p zS!-GC6Ce0=&x7gNK=E8zS=sf4U6tLlCoTqzMQdT!_wWDEIQ!8|CH`I!Ge@I7+4=r}V0oOgrI=+361fUZ1-H;us4Wtj5+E}qln)RIS1w==PpEMbL61U{CQtCH_i9m{nOmoM zH~a39;F*qOn;&*anpf=}kp1q}!ji@BE?RZ^ngY+gEiw{*zdUESatJ&vP6CjLKr*Hg zze}1i%ymmH*Vr6*TBdks#P5bVAI>iB$989=g$YlEo)(KQQ-c^)R5>TX>H-Lu8Te+V zPx|rqXwuBU*E4;~+zxM#vZ#(>85r6(oazkbBZE*B8HANWX*)_-BEY0JGYHZlD1qE9 zm0nc|j~p23==5d14WD5nU^AZ6^YX5My{B*gK<|?bIr9nWAIO;l1-Gtin*0vzKU5#| zfn>3J3Fx{UXqzFa&*fT?h3aKCtVomUYYEUtl{BdyQBzgV!q4>i*PJaTcBV; z_=TtyRj?^KY+(`UvaDz#T~jD>!1JBQaUS7towl7N6GQGgB-ib+L|YyN{yCtK{(Unn zVu>aM4BT~+JC+Eb5CAp+BzG)5t^Eol?BQDYSN?{vjb z0;X%ddEWGi9I%fX_iYuz9yqjn|3L6Pn_vG}3yaop(n_xtHdncsYY&U4WudFMDug3& zcxeB?QPA}ZQ+%w|V{>z<&|JGrJES)va9Cb8w*%jV1P5?Q0(FgfFwZAeP95RaW;x-v& z#(6-2!@Gxu_w@!NNVg4+X8i)NqzH-a(gV{7J-se!cq&6#7*;@G-Zw@W9eLl`2OIgP9~#3R#A z=PYTbqc=M2U3sgu5@%veW9v@O<}j&_S&*`;rrOh6wh=Vr!KNzz;n-EYe(8Iew_#Wk*@ zd7MSvg>*Xn8C=}19>a~Y!w|u4(_^r0wZ`MgbUxa~A=?{yVNu=8uC(NQ4^~#Q%TDC| z?{rX|+e*gcJgJWKcIYz{nD`&vMz0eb2DR-2?Tl1)6wq>;@!#0o~aD?>78P=@_!A zLEKGn&p2d7tSBN=0MFmb_lZ2gOzLj6Vy)pgtjKYF2CObF!Y-ypzynp5G!>*%2ohB& zlgGCwtu4_sL-_N&C9R}@6*88uPHjs@Q%$APQ?-Ihoiq5Um`OM#yf`IRlwVNN34A(#%WhJg7zKh7ov%sOWKlili4pGtS|u-t_r84*5X@R@JeA^o|TCX zgdbBW5gW3ICYAZmW#P8;c9xD$Y|LT;ilPxP)qs#7)nL;QrkrHrTdRl}LzRr@()bB9vJF(_p?NPh)Hk?LP_~ImJvc)(7^zhEdf9@EX8qdkTZF9K^I9>HCR? zp8|K;I9ia2iPLcLo;!zz{{?ymxcuM#Ke-e=>)8|&8Lmh&o>E+$sHu1?5lvAMAC5q= zrbFAdE6@%OOtSdINgZm~@`;pmc|N*Uwq=jQFPUM=C-a-?Zg3oPkBF~i{KKi$nf86m zjRV`&{NxmbB9?**GElsok-g@gz+S2|!Y)F^NScUe8PzTDNP`*ds+Z}v;NS}39zMEz z?*ZQ{1HJo(`VI~rZ$d|wHw|WY*W2#9?h4^LJ~-6t8yGz5>l*|eDb`gy2{qZ9eWF56 z7%H;WXqI>3?RYF*@h$NO(5C_wF=jh&Ry((Omb5Wj(7}0$*TQ;G{J?d>QzhPZvufn@ zSy3q7aQzi<^>*TV@PdJmPti7)kZnw%9GF-K?`L6kFh`*tP;rk=_QOMG8!yD@@@IRBegSZIkbYA0zfZhPODBH7tc6{l=O*|#DT+!^fyIY5j8#~Q-mWeH6q6O7^XmCax!UDUc}haH`HYmL*xYR zLh=+mOf)(0^5Ebru;9L}zlg=hvH8oD3HOwZ`iF(p7Ed%jg*2w13%Fl6s3>t%?UN#f zKW`qftNAI*RMh~cF?2&dv__3jY*V%x<6_=@Ta^%AHA+#hM@;J*oh<`>zV~KRs!i}2dbh3nzhsmVLl2JMSo=qjpJGo^3So>8j;R3-D z*9Q;0?S6nF_!s8Jp25MRjln2F%G6>9QE#D3xGofio{A@1`SXXo4&Ft;)x^n_nnk%% z-0zB$^12~3YE+4hs}%L)PQ2%x%Fy!`&ARp$&Qo%kpf35Anu4?x+(s((l;sOc=~MeB zh#W7QGGo^&g|c|n^A$%YE@|I*9=La{8WH~mLur9k%d1|og!JsUz8d|grKVISeiPIt z$d+#fxa`>Upi)!PU#FS=Ah))bqO<3f%L$ z@Z#Z*l%9V032Yx#Hg0Xouzt0&j;rmh6 z-t+#Bw?ddb!>_T_Y@M5qdj}3M_}&S zGZY#;)_3r2H=iMG$+hU^Rd|B2+tahjPB;306=q{%YK)d*_H*0|2_`;UnAb@Re$qIN zYe);KDd#4RR&d%ZlrU!Ino z^f+Iwh8F7HX(?8-cQl^DL`dCIpjNb^WX!gL06@RSHRJ%EHy87M+I$o9WjMMemM9f} zh`xa6Z)uGsoB))JNA`6k(y@54+)%1y4c}1&Gw*rBVy7L(WfC@)ZdK8)$~YsE?C6Ze zqebG6Fns=XNfx~$gU3w#$Jn6THswHG6|OAw`#3&v-BJUb1m%{Wp!q*KR;Ygf literal 6189 zcma)Ae{9oddVjw^Y$r})=Lh*gX^I_(#wH2*LA9e@e%X!#9*&*bP72LYngF4>h6E*0 zXs?3wSav-L^&~cJohnUQSSS9th)O-~mQ|{hi=b**DOJWFRCptFxdTF`wt}u==VqVJ z``WBafSgm-Y<=Kv!8f=Ksi>9s_)16L$0<%_SM z^ZqXFNqd0Af8LR?v4g%cVJ%NRC0s`8DJ^wOq(1!KHJ>`Br9NDBeUPeEe-)p!#Wx7O zeDTvFp?I6y;tpYye@@Ku18lsl7*x~+RL$|WJdgldCguuI8Kt0sgq9XxC=(^=wWKx! zu~@R{{%XoCR^5{~tIV4lb3~PXbJ=ZbpBiF*vpBzW?AP9=m{sI@maeRO?6=2fU3u%) z`PbDx_MuBJ{OU&u@YZibp7kumc_Y`Qy%;s7O6wp$Ei_~ z8q#Rj$5!v*p^+m#_fc)7U%#nNx$6FI_17!oS1(uG{IpV}mKKWy;P{p=9_qdft(Qw~ zrI)1fIL!msSKOjWSC%~XlcDd0t^9Myskj)ACGGIW;^%V!uPmJhac6H& zAyGgq(FN^5Fmw`uP-#SV#$!FjL}HzI&fk;EHAPB?#`;2WXBKlsqI$x??S({L+;DNt z(@{^?vim+Q_~N+6L%ri;BO|^i5cI{)?x#J;UA46<{{(z94_d<{;YrO<#r}v~YLaMl zBDfGnpeA7_AjH#z{L#*QX&m(W@w;QM{lk7@V{vAKRQAW`#$NlSMDB>iOCFHUjJ@^? ziH*jR5)1y<&mps2nsFWyYKw)Y1jrnz&j*NOL61U{wnE>PB-k3G)Jw4Ap60^qVkm=t;8GkwFQOWY?YC4yX83(o^kMW*a<);0?C*L z-41ES1lJw8Tw`O-haaJ~fo)c3@|SW%UY{-tm1Ci5_1*G6-dnLBta%Zd*Bv1eioCgCHG(8pz%1 zDN&{H(1F439#_`e@EJC|7GsN^mv$GoO(D-kc>+aO;Yu$#3uQfhL~| zBrARY4Rm7;w9Sw-<#Mga>YHRXtV)xbY6;Ls9-7pIs41|PU~_F2^vLbzdOC#EwQ@h6 z*cR?e79l_9i1eEluk~Wf#md6_&7;un&Egu0&Okaa0y)`^$F{3?Y1^y{Yb}oZ7r?k(%szox!n1=-02QS%fSA( zAg6i_x(DRl{vE{9Eu{@8{AHJH|T!Q*T2AH8}vHZ6YM~e8IH7e7I9cG z8?YU8*P@#`*4s`S3kXcG19_LFxRIf#&r;j~MI_|!L$z5Pm&7IE(XSgf%roMQ2#DTj zBo^x_M~E(oYvQC%-0p*W2lnh?*wUH{-G(~nfNK_l82mbecsuYphT6G+od%t_R-@9G z0pvY6Fg~$wuP=yn+hX(UXMrU}z37)7SU~9M%~|1xHkHO%;}^F5A|I#Rz|PyYfS44& zU2Ongmd7e)%vu|DP_p;VAkuM;=1{HaCHzOaYej`kI zT3muM_KZ;hLHq!qp$GWqU~B+N(LinqB+dnfH!N;XQ2aE!^Z|sl~ zpqW?gQ^r*Yp@<^rdDXsP{GMs(RXloH>erv z8FLna-eSA0ZMRK|Z&y!(g?sgnfn~j|65hIvI%Zo|Ycf0!@&mR8{ZWRxO<?&C6Nzz z6WsFwWCi0PM5X|qzn12M`sE(bwC~xB`i$-f98DJ9LsqnQ zwtWixjTE88x}OB|tUQgeJurL-I&zAcW2|4^_bNtJ3&76+hPo0MgykTn4M^Y5J@^#3 z%VyDnO!1jvaqylyjfVdfdIq@MoBvNPMbCOR#axCf7>gtnR}X3`5{`xvRK$fNP^`)N z9Xl0h1qUWseBz{THEg*=Lb}|6u9a=sAHXk}Vag@*o9b?{9d%BM`!fE4L}{jdA9dou zE;T>d1)*SEK?NBo(#6Pr=A6S`q9@2MLd8fLjbs_sE$~o-f5)zRnXZR}tAumn(7>LT zU57{a?i(K(89UN}jx28)%-f^;Ouwjcff7761N*K7zp_t+GZNr#uUndiH-1n7FGvy6dC{(_t<0;;yTpW)B<*O59foe z9=^F?wiKcaUQLXDQ9qfY+A-j21Iy#ZsWXozCj`6>1pD3jKPitad>aLfZXK$j3m>IR*} zcbs3FlW?a8R^>>FEjDuU?-<6F>@euUEyfJGv3egzcJ_An3?MJ&ob*PH^a@Lo1K_Oq z%c4o~dl-tB!r+8&15#iPUEwnBK-HEA-7xuXcptHUAM&<`c2>*G>iwf^{)E{)zISAF z51w&0DQQtk;=o}?`kSJwm>M6KDZ-JK8WCfE1XCa}IhizCU(DFjH`HYcL*yLpLh=+m zNHjU{@?hU#Sa8oWT+HI**!=D4ob$4U`Ugb3GZJli0%=S^XK}x9P*LKj+G4T7&zKWd zH9uvUs++;YZpeq$l(A^JY^gKO<=wMX3%x{*Qq=1q)28MIgjw089vpX^%%M;$(#}Uq zR{I8wW7p6CBjH4{6!=NxcA<>ybxb6~CCr5maouP|^Qx3Xe}~NGS>R~Ei4soF9{re& z1~BF~5%Wp$8$>i5O@`vQQInib(inM|OqwhimE-SORKmQQOXigJAGw4J1WQ~Wd-)yb zeH6h*%#FdZu|qAs5JJk-Vh2%gp;=rP3PVptVt)SoA+Lio2)LR!xl*$zSBm?Ln3UHI zp(&$Uw5(Cok2>*g$)yZEZ_%u4uj4!=mkH{SZ>dX=mVnzxrJk~UVJUrT-$LYg*;E=Y zu2HBsuX?`X=)|-pitamKTr(-|!cbZeujN&*SQ_-~w^@pQ)UmNbCVm^#CdiiBUdnq9 zkb9$gi+89^H#dKn-Q;-0dzux;&c%zUyY#lU-p19BN?Fw$qtx@e1`6CQDa4D1KU1o! zO^4VMaF!Y`l;a-0-MQlBGKJTVORzB2$}U&R!5sMM?6XFDDZft}Kg9RLti43B9 z5te5Pg(jys2c|djjL4JZ97+SM6n1Y_Mj;Yg@h{1n6I z-