From 2770a6f774945384c67b8c3ffb3025b4291f5fcb Mon Sep 17 00:00:00 2001 From: David Schmenk Date: Tue, 9 Jan 2024 07:43:08 -0800 Subject: [PATCH] Add CR to PBC compiled words for SHOW --- images/apple/PLFORTH.PO | Bin 143360 -> 143360 bytes src/toolsrc/plforth.pla | 2 ++ 2 files changed, 2 insertions(+) diff --git a/images/apple/PLFORTH.PO b/images/apple/PLFORTH.PO index abd4433ecf32f0c4427afc4cd6c37f940fc85646..0683cd3f7464f470fd603144962812b6babdfed5 100755 GIT binary patch delta 3956 zcmYk<3v?4z9>?)J(@C4sScJaQrWxofO(Cg*!h#}gnm%Zoly)d@2%uG1TzM_vBBs|B zP!K#r;DDkotB6}XRkT`^vxrh&E4y-V!PP2CMT!*4Ll9vFcfXZ$_AKXoGQa=-f9DQm zl4fW;VQoBN-9FW#xLZP&&G*M$(A5WoaNAdik6Yqq)x;?KB9rDi`V7jl`htNvqbOkL zGn0gv5m`C6GJGIsuZVRO7S|R9eC7GK3H}_;*(217($IS>I-8^UtLprrF7ovp%_#Q= zLRZMixtgztzDO1#Ggl3khHRw#T#G+YLXk>Qof|{(>#F{gt8+D1Nig5qbA_F`YDqBU zr5jfAELHxZdjH5#RPlLM)>H+9HTkxlb$XuGQ-lm=Wv*CP!T%3erG4n+O|RmSTTdMIf|=;$@emsH}*hnWD*M851xnszN)H#RSpnvWzXSsPcyn zFluu}*ZOPxMMmf-)e%>8X|T4;Z!~sLmE=eJY8m;h7pPWc*<82ElAyot){nI(%hFSf z2;F2spUA-Z>EWr_%EZupDMA$HD3cq@2@mANPV@zim|@t2wb1)z$uz3NEfMq0!1+8CPLEw3_@zwlX~Q5}`BO;tTSFiER|! zF0Hg8P|{npP+W5Nu??wBlbl3P~jZt1)0e1>u%qO_;pwmx4Q z8>}r6aj8OFjpVlHIH$W6kF}Vxz^!I`td*pIJIY5ih{GbY+WQZScSqON6#4vhB1|vQ ztr_EM{Nfq%k8ZWNN`Ia-&#n2&i)!_))qp??-5LZ0f=rI+BHI;05Ek(t_TEm)65%OAH zzgGS8t%cN!z0tQy{a&i)ylhcbVyz~>8}=$L*F;i^H>!BNUpz?s$g9o<{Ah&I&p)9?hr?2E<0P$73OvmWpi@Lp;%ShM!w0TB(XWF~3#} z+bF9%QN^{D!gqwc#A6``1NsSyCp^(T1r+RppSYpJiQ zs53+#3TKP^t7TEj(a831{;e31*H27VjF#ArISPkAd^?ImWZ%i56u+FzRIInp%Ddf| z-fvDM*t^q}&Pd1kK}vl~(uLO)r9QIjViPMKyreq}?*wgJlrWmz4`nCZQ&<%z za_>zuIx=f4!dTq0<0LGM7*v!3MmHCbXgrN6?LH(DQ{_ zg7vt7tB7|CH4z0Eh5)8x9-cxoene^k*TF*ULnqn>Ocd%51B5CD3iT*rJVNzg2#QdJ zdMv>cIE5>S^YSl*6gXiZgvEFc@8YADpRTNk31=h-=|m1(7yvJZ;2zwEVw5Eab5w#& z2FV7-V-lv~LCnS@n1@Ap3=&Ub1)hP4b=ZIx*zZpXwy@kn(S&Bag;uh{=VFns73k$FaOYk@(p2jm+i}l!uO?ZXxrs-llnb;fP-NMClWPzlHxSF za2Z!|9XFsR2^oiYq$UY7KS`4V$amm37=a>`F`LS4I=KNn3&@8t7YmrJVP=xoVf6vN@;gfdR#kwK0|Jtkrb{b_7+KY1o*Q!ilSrSz6l zKMfP>uz}eY`Yq&Ed_etmvL^Yam*3$G&f^lUCv*RA5Y!a@)+xfYrr2a0xi|VE4H@W% zY~*7A3NZ*nFbqEM3?M5}gL?3lFQ;G{8ZZ+NV-6Nz5gNn1EW@){i;dWXt!P3sw&Nr0 z#X%gxF|^}2zQy-Ahb#CAHz87a-yj}+k%V02V;~9<9>&XkC`S$IFcDKQ4Goxy*_eaH zSb{%dIiAKEm{^C6*pw>FS5j?~Cjz+*&ETOxwqOT#Vi!J4<^Jy_9N>gQsqyj?@-ejI zI8NXsvrabS0YNHhLfVjve0VSvBQXkm>&vle!kmz1mm%^DG=MLAxq$woX}#rAj%(8R zB+z>6w9y%>#;e^OA}gf0Eh9ZU6}u}$D3c< z`}C@GhLXzbWK*0>rjvJm_~nIx@JC`o@8!IPm+h| zeNC@}V;9Gm3{8f6W$+ozaLR-XA(LT;gI*y9Wh9usj6|~%qggYC**HwXR5V~F>*g@~ zJ$W&f;Bh>O6c#xqYh&+0h1BJ3^ZUi=3^lq zLm121yD3wXZ;{`@2R+R;9Kgpo%z_RUbdt~D94_HU{0!mbmy}bL@lGKVVMi9dflkdF zj3Lf`<_KrBS?r9K<;=!l9P>%eY;&$tlMBczS@$f~I-_KGJqupMX8Z-O<1Mt}eHQO> zX3ISs_p?D4Cv}ti=$e_Vr^qy&-;Qu12QFQhUfm||B;SSM7=a>`pbRyr!&pq#`TU0n zGcg-;u#in2{2e-C-WmGvz1L qN2rhLS+bqnfm8S%XLbJT@sGX#{Gx8hB#ZKtx7e$q)j`tX`7~yfS|A-N}HrK&?cn~g$hVSLJ|*%iT{<-o2i3af`*II=*M3Ig&Df`H5V0$cZ6_-8riGxzsA&z%`^ zl62B|)Y5p=vSE@*$w@>_tEO~4qO11{;kGXnTM}KT*CZ<+#V0)KxTUnf;tPlBB4we7 z{$Pd>7m z2u1%*HWz8WGWsG@h}0rAToJXBY(=I($WM_)F{~(=;>NCg%4dr-mp@!$>Ab_bBGn&` zdg;b47n!O8W%YsKBdI!yEbOTYhigi#o%_;?way|MVK&H>;wt_B;oM?V>5b{5OeeXN z;P96Ssrkyt;cpNYx=iJP5y4RO9g3G-rm_)b6z@~4aGA!0BEhQYmP~QCXmOdwRtBpA z(a#wrT;|$9O`t3i-A}dMWv&RM%`dRJZkGOVpzh|&+EQTZ zEbff{mklZLzO%ApW1Y(Q=v}>p&5G;p!T0IWan###JZpOLa{+RMnv0 zO}(J7OE44()ZXmOpz}&$O0c>*;16TXlLYqeyqUlYGPo(H)=Oo`TCFKL?1IBrOrtQ)pva~KFE>AE;b=fc(l=Df)Ps=+3z)#m4|C17AHlG*W$WS z<(F9cQBU)lZNO|QRTN(lh?$&ipw>glHO4Ji`0fg;x%%v$3(8E5bG$4J?6SdfVWb7Ox53$e4}Fc z8RZ?Gr1IKP!nc<^!($?cL;6vQ$2{iFf^Fxi4tSD+5ntoa#A}|UnsQ&G*)D|QHPu%I z>muS7itY*bp{68dM|{JPUlo7+Pe&&z{zS^LM--N)zZ=OC-+6p6MaS`6CGI@ANqIMZ z@Z{slnRw`w*BWw8FHVaz^?t0Tn}{2yA|}6gLS$w9+$lfjc~9TQ@&3~u&R%vp+iE6qij|}B#pj+>4#$=AFL%y4D$ViY3m%U37oJz9#*bYn<@9bBcWBM-q95b# z3)xCr{PM*CN+?nI!&*hDi0{7i9y^}AtULVPyR~siBGT-h=InV#zpAdHXqYW>EVsra zBGVF^F5j*wiTL>|pT$ZGggPGc@h-OD3{spz4Ph)+q77G}7YcO@7T^`MpcUKj4bH+` zB-B*cFbvOP9WJ8-X~jaV#@u2NQ;!k`xr90i3-K~mpaltR$6=g7T8U5xq6tTE3LVhg zLd}L7ccK=P@f4bI5|&c#gQ@rkZAkPPFVye)2=x+n^cCt)$n^-d82xbvDlh|&;Q&tH z8WgWklhGZ1)LY*JItoyXQVd9s3FCH#Ln(&ChYE~B7!i!ac-(`@ zcnA+;7G`4(oGE{Vcq3hvZ&JUD_1H}R%XCfdBY%bV7>DCHg|qk`S8xp- zuw)3smZ8a<3?X}?1RnIqAZB4^wd8se3B!~!g2wv7I2atqc| z@5$8UUNVn%c@W=%2fI9r?{NiJ+4pm1%qp)@{06m`kSVa@7No<59Ox)OG29q{!5E6+ zsK7{sz>{9qqX82U#S}b%NALtnYv%MeDR9u1g)D5hZsW??qwU>+nEU=d!(5=K1B zDwmV_0U(>P3ahae>+nAK9UwQMmHk_@QspOEeE)aS*oEEr68jjoaj}c!%eanA8?OSn zaDm6X90DHja)eD7BW-qBL#{(TqL@PeL0fk@lXaerZvwr=rC5R0XvMY|hfnRo_}rdq?6LPS_S>!UE9!Q;)i_4|0~fMp^I=3U z*pZ(ti~-r297^_~0zr(XKRH`7V%ZtS>)9D{E4@AR_OiCK{=_-Ivi_ExCzEo7G$Yo9 zL$@4Z=qSkPX$;6oH-@4tCr<{LRiX-E)T4oYQD*m(r(p(ukH_&Op2o9~Sb#-Xf~B0d zHb*o5j1O{>WGlUGIlTX$5_V!YzQuX`2frZ6A!I6gzz(NF7`HhzIfOilT<1`YaSqLx z=uqWM>e&vHF^~Ct@)Adqv6|Tjj^4({4zsbvVU}NT-d?mbKf~S&j+iQyTwx^Vnha~M zDl>D1%!3mycyKFzhhgwx1V*A7HK;>9Cg46y#Y1=)v$^()Tur`3eh2H3Kr6OjTZ|2R z+0aID5QlIKCvhH^nE%Xwtb?rO@l-?4JYhKUG{cGFyxxW<&urY9XO@GR1yISnD$i-$ zo2SVsr3)iZx5|8SAxhyve+mWiU;?5#@BdUT@*p>uuWRyonlEB0mf=-q z&3ae4igh(>3+p;P&-j3we#rbI>dm^t*sABsPpG$3@6Ze6F7jR+z}NUj7vi(sJN6x{ lOB3SD1N(hxYUlFLP+IE}lk$`rPgC`Unnh{VEb8^*{{g=r8$SR5 diff --git a/src/toolsrc/plforth.pla b/src/toolsrc/plforth.pla index 7b7f5a3..ad42a45 100644 --- a/src/toolsrc/plforth.pla +++ b/src/toolsrc/plforth.pla @@ -1179,6 +1179,7 @@ def newdict#0 end def _plasma_(a)#0 newdict + ^(_ffa_(vlist)) = showcr_flag *(_cfa_(vlist)) = a // PLASMA code address addhash(vlist) end @@ -1258,6 +1259,7 @@ def _colon_#0 ^(_ffa_(vlist)) = itc_flag | showcr_flag *(_cfa_(vlist)) = @_docolon_ else // comp_pbc_flag + ^(_ffa_(vlist)) = showcr_flag _dictaddb_(JSR); _dictaddw_(vmvect) fin if state & trace_flag