From 2770a6f774945384c67b8c3ffb3025b4291f5fcb Mon Sep 17 00:00:00 2001 From: David Schmenk <dschmenk@gmail.com> 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%3e<yi`Toz7+Yh)by$ zxu$1}{>rG4n+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@z<Yq;d(&}bT#9PUeXO)yY3UY|g{ zE~i&T!0^}J>im|@t2wb1)z$uz3NEfMq0!1+8CPLEw3_@zwlX~Q5}`BO;tTSFiER|! zF0Hg8P|{npP+W5<dHRP0z2&p{11owr3>Nu??wBlbl3P~jZt1)0e1>u%qO_;pwmx4Q z8>}r6aj8OFjpVlHIH$W6kF}Vxz^!I`td*pIJIY5ih{GbY+WQZScSqON6#4vhB1|vQ ztr_EM{Nfq%k8ZWNN`Ia-&#n2&i)!_)<fq(9e|<ZlIkLY!E1X)OdR+Q9)MW)xb+tb0 z8DeLFM(nR&CbtcU=B?B-`Gx9-0UB>)qp??-5LZ0f=rI+BHI;05Ek(t_TEm)65%OAH zzgGS8t%cN!z0tQy{a&i)ylhcbVyz~>8}=$L*F;i^H>!BNUpz?s$g9<r2gf$fA&Y^r zJ(*9AuTm_badcp>o<{Ah&I&p)9?hr?2E<0P$73OvmWpi@Lp;%ShM!w0TB(XWF~3#} z+bF9%QN^{D!gqwc#A6``1NsSyCp^(T1<TG-o$^Fg7{119#5iwMO|h>r+RppSYpJiQ zs53+#3TKP^t7TEj(a831{;e31*H27VjF#ArISPkAd^?ImWZ%i56u+FzRIInp%Ddf| z-fvDM<J3FK_Q;V_3zUnI(oSz;eRj`eS-*KTN#cKtWT#;<ypxPKBJG_eY~(zB7q4SZ zd)V&D)4`rg9R2<=MVTBK-Id2ik9I9mx+9mm*7nTLu2q!gNJ_Vd*V68l%EHKz?gCD~ z*}Ye5cIRG>*t^q}&Pd1kK}vl~(uLO)r9QIjViPMKyreq}?*wgJlrWmz4`nCZQ&<%z za_>zuIx=f4!dTq0<<i}X(iZvhhqmybETPW8Ds0CdTtuI2q1Iz6-ascTIYKSO16YSw z(TW2&jI+3o<XoX<A|KUQjh#^Pgc=VWld&pKgw>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;u<e-Pn)6;V?eM zXZQkN;ai--8JxpaT!)e<q=sI&4SivUBT<-oqD|(IT_}JzF)ZXD!f=Ko82ZTNs6+sD z7>h{=VFns73k$FaOYk@(p2jm+i}l!uO?ZX<w<c=l>xrs-llnb;fP-NMClWPzlHxSF za2Z!|9XFsR2^oiYq$UY7KS`4V$amm37=a>`F`LS4I=KNn3&@8t7YmrJVP=xoV<TQd z_|Lp-MHAk{+t`7f_z-P4h`-}=9LGtV#yMPI<I73$@+$cz)MOzo$-<0Hj+Z<+n7xy2 zW=gV6+UYyN6NAi!8+Rs)u)K>f6vN@;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><EiBBJ(rofon%mO)ns27X$hR51i~TrE|5#dI`8mfg(`@E<<TLbdQ1`K`rUQ4_ zE#}=EN5XHnnxi-x7;ld?r*NFf{C9R$&bJG>6w9y%>#;e^OA}gf0Eh9ZU6}u}$D3c< z`<ma`ZSpjAm)&MwqW%vXWu)_FL>}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>O6<CSYFtH9B@d7q;-i{0{Z2mPvGk0f1$pbVG<5L{Nah%7`h;|4Wiv(n% zKinAX5T@Uu$x-Bq<QWdte8{1h4?9%3lzO?tVy<BxA-~{=GFzDKcJwp%JEF~x9ntc0 z2cQ2APVQpCH5T9G#6FqAOv$vE8JVig&E!i0gE15%P>c#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<pL31lh0GXh|So7*O)cyadJDy7LKhPcj``aHy7Q*d>{2e-C-WmGvz1L qN2rhLS+bqnfm8S%XLbJT@sGX#{Gx8hB#ZKtx<a!mJ2b0$Bk#XiupmqT delta 3943 zcmYk;eRLC58prWF(@B~_C>7e$q)j`tX`7~yfS|A-N}HrK&?cn~g$hVSL<Cu1P!v(p zEA#-0E@Kcyw}>J|*%iT{<-o2i3af`*II=*M3Ig&Df`H5V0$cZ6_-8riGxzsA&z%`^ zl62B|)Y5p=vSE@*$w@>_tEO~4qO11{;kGXnTM}KT*CZ<+#V0)KxTUnf;tPlBB4we7 z{$Pd><KxdiIx5y$xI?74`jyv~g?yDI-30%(6@DtzU`2E@o4zU30#$W^=sEJ)LM>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&R<jtE2=k5LUQG5cy61uQ>M%`dRJZkGOVpzh|&+EQTZ zEbff{mklZLzO%ApW1Y(Q=v}>p&<mA`jg^Ekg(>5G;p!T0IWan###JZpOLa{+RMnv0 zO}(J7OE44()ZXmOpz}&$O0c>*;16<heJ+g_-j#8|$g~&9E1k;F=t@GH)8q^D!o)g? z!!E5N81i=)35qi=rC9$PAuZ81t8cJ-#XwQgFDJP`92cD-(c`ZdbCe@-r9G=#Q;9Y< zT<aHIvxGPmFKRE$t92_LOF3n>TXlLYqeyqUlYGPo(H)=Oo<F3c#9UWX<_pw`7(LCc zMH*@XVhQ=ATP?5BUnfm=Yre{|TD^t*lv~NyHxQcRe{U~{SxQxpOFu$As5Ggr)@M0O zY%A4>`TCFKL?1IBrOrtQ)pva~KFE>AE;b=fc(l=Df)Ps=+3z)#m4|C17AHlG*W$WS z<(F9cQBU)lZ<hKns>NO|QRTN(lh?$&ipw>gl<Z9^ZwQD7h#S3HU1fM|<0IrteNs9z z-yGj4F_*@UzFj&SwKqEp>HO4Ji`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+<C<l zXP!}%>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)L<GGV+}SYlCLgIjyZY?sl$n4crg%zFa&q?6h?VZs~kbD!e~S=7Lzaq z4`4bT#^acSXAr{zEXET20n51Ft6cAo<hOc?m|R1659_fJt@s4n@i}&35B6d|+Hn}i zZ~_-`8Nc8<)N~<D=z<=|NEb#{x>Y*JItoyXQVd9s3FCH#Ln(&ChYE~B7!i!ac-(`@ zcnA+;7G`4(o<kEB;RVFG>GE{Vcq3hvZ&JUD_1H}R%XCfdBY%bV7>DCHg|qk`S8xp- zuw)3smZ8a<3?X}?1RnIqAZB4^wd8s<U?T3t6lU|7Npcew;UySYjum(lv9~#_#X4+2 z0{k41f58{njeYnEhj4@oAJ0gYr^pv@1y||)Lhm~3Zy8o2Inye;WD40GJ&*}I_;DZ$ z;X)|}WQv$EC^J<Kp(sNIMj@0bjL}?#UjwoM6R4+TT8)|XW>e3B!~!g2wv7I2atqc| z@5$8UUNVn%c@W=%2fI9r?{NiJ+4pm1%qp)@{06m`kSVa@7No<59Ox)OG29q{!5E6+ zsK7{sz>{9qqX82U#S}b%NALt<cn*s?!wXoB6==pPY{VvP##ZdaF6_p?@HGzM1Ww}u zF5wzFpl0zcKqhQ(K!+P%490N8d>nYv%MeDR9u1g)D5hZsW??qwU>+nEU=d!(5=K1B zDwmV_0U(>P3ahae>+nAK9UwQMmHk_@QspOEeE)aS*oEEr68jjoaj}c!%eanA8?OSn zaDm6X90DHja)eD7BW-qBL#{(TqL@PeL0fk@lXaerZvwr=<d<w#`3mdnwjRctwpg-! zo533J*p}NE?6mceU$FkeW;OPc57PghTCuA}H}tlfj3U;4xXo@chOqh(w5J#$)&}PH z*j0I-UC5bu0`t&>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-$ zo2SVs<fqve!*h8_vWfYNSc=yWdxOJUXu*4Iem~DCKV<!w3$%06VX~rYhFR|=Q*{11 zqB}B>r3)iZx5|8SAxhyve+<MR42KURP>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