From 8985011207cea6ce2e3d37c4e9d34bdc344de141 Mon Sep 17 00:00:00 2001 From: David Schmenk Date: Tue, 9 Jan 2024 12:37:07 -0800 Subject: [PATCH] Can't believe I got OVER wrong --- images/apple/PLFORTH.PO | Bin 143360 -> 143360 bytes src/toolsrc/plforth.pla | 14 +++++++------- 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/images/apple/PLFORTH.PO b/images/apple/PLFORTH.PO index c8f61ce037ab50226b1a6f51638f2e3ff1783142..fef4d41e9dbee092a214c1cbcc9721de5152048a 100755 GIT binary patch delta 5232 zcmZA44Rljwp2zX$-rSTFN-2F$+O$cVrs)f9c@a44h$jaS`88fubPbfPgZvh_c_bxMya1&L{Wx z|3CM6?rVBZB4SNgq?$(j<5Cky{#uGwzy(~-bSxG)Y?te<%+2e1Z%vZ z$Q7zV1u>o=LtfJzs$b{Exq8d0fVZjls*dIwqs8dfzG*^O9a6EWn4nianiQVnkS4eK zsmk-DDUor6hP>FxooY==S-24K-p2jkP&ag=sWlY@t+Q3J{VDWk-o=0%=5{!9$!z%+;5i z%&ERv5YyD?_IR7bQ}n(sP(l+Mz2Z6YsY1EZZ+nF_xlr-cx`Vb(@`6Gs$F_&Cp-^e! z?2Xa0AFiK1nHH9cspA;*6r$Ui5 z@@FN=L*slQQy#gi)ab4Z1Vg656bDL8uAVBVz%+{bRB23aX{)2UTgnptD$^u#Mz~CJ zxn_|>siAVBS1cmtmnluPf$@>$c}msqa_Ak$P+PIg!s0^&{*k-BoS|y7@PgRrjW>@nAbVt(_cx_WBQTLM)BG2)M#mG zXWglVlC($PbNaBfPG56okkqB`Ix||DtKU46MNaL`CJ*n<88+A6S}ytHMVkn9*jqz& zmd5;Oj<)3=+tWj%EsY7HFvKup>-49(cceu3u)Ssyvm8m~WfA`v(I$uH>dj}%Sbo*n zHGLJijaHkOr0CYqU#EHe^N~_lXTLA3l5J~F!tDG64l=(@M8i7!!sw9C{GI+DSWr8e1-S)-8c|0X_B})kj5!!6$vrR0VBuA@m z`@$AyOA>>O=*bsyGorJU-dWM9a_`ihnR@WT5UE>#{DO}&J9eQ!+T8iS7lKl_IzM`u zZ*!TKE%Y{hv@wHU-xsaOq})0#F6rg(_4B^t>xa)dY5s25k2dB zYxWlRF5#apOo{HJAH8H9@PR87$($$qQ+Nl4@m}1%^b={R{_s~eUV-pe>m}ocLg$%u zecu&}UUoS_+Mv5HuaTzehc6d#LANgNr?clumUK-2^onC-^i@mnzY%>e*V(7@upDu{ z@9Sc@v2SmhzF2OPr!Q6-pB5#OEqY%Sjym$|T3&PY>%(d5?8{0MX1kL7v4YQLrp>hI5*%Uns$ijtmpd(YKOzA`7T`k9%3t%9?DK9IIh|bcyK8 z!E0Y=<5|rfoWR5BeSf0g#sNK}_r8v!dWz^RkbfM|k6jz*tPi0&Ku3NJSh7Q}G&(VN0=)Kfy)p z86@PZNGsvapb+<=qMVNzn1iGE4Bz55M5&NXn1?PLz$x5CMwyWFJLlZE8x!6#P-uq+ zD(aDeLVXt}@G(BcS;h>BiW-wB)L8UK0+L{X6?rH^86H3dsuP74OpMp2B_?VMurhI= zwmLCR-ND$KjO`=uC;uf;gw-R2lq8{LB*m+aB%!)cguxhwk$4au)M6|e(8QePq&Rgl zxfL@p3v=)&mf{y!ft6T|wO9uo&*FuouuxwjY{F(1{38o)Bk#Z)*n_w6XZ#h%@jgDm zDV)VQT)-7v!wuYmoGer$`Xd3UFe3|26eJ6+IGh}(4yG7}5qJ<4s9~^d)Q@tB0E z_z7m=XK2SlEJg$?u?lOj7Qe!?coF}F-{BQ(W&Qt7Rs(!t-B6Sc7M< z9?#-=yo61766|T^`PVWZWTPbmxNR3kssayd1 zVE~d+dHxxMEZE^dajMYDQsdR3Mx+;F+79y*nsEo2mA@!@jCY69UQ=4 z@jrMUpWzJ7<08JrO?-zRFd&_aKx#VA-%QAb3xjb#%2938ZUnTqr+nDfrdc3-mych4_0RDo* zj2&aKFUgm10|U%l1^7jv+EIX^7>+S!p?S;})kpRtfQgtwf4X^q+QxQ?nQuav<}WE$ znd8)_+3My*?OAgl^?CX)Vk>sh-)l}(_p#k?j?<2ikJCR#ecLQ+F&0^~Sd3aW+X9qW zOxjSkqflvy)oR!V86R(v)fS6T+b|DH5MIH@6IhQ9Y{M?>wg~MlOT2c_lBgZA#HsI6 zzh{ZlPEucBA!7zFBNC8=j12ypWhm+}aycqci8}g|GZbxUMvA6qq^PgcJ4o*k+xId= zSi8!kZ)n`g$X4&rybD97P-8NMW=3Xal2)9VtPR5hnc3=S#@z6t76Am=Zz5w4lc!+@ z9>HA9$D>$`WmpaskK>8Vu+U!0RJ50|In$tSqqz&au@?vMA-=%ZxQ;vMW96R+l3=w8 zt;DLRL&;TSzg5;AvMO4$RaV=m+pR`z3FH4xe%xx%IvCq*wQF0gFw$S3U6*VLePfm`hJ9peTY?+4;B5NXInwoPccHiznBTWoV^wKhc?OKxYo$d;xqVV`AKj+OWi zTbTdTwm5Yig^uUYfsObrUdC(Kjvd&Iy*P+NIEoV-;6n~@&8DcgsK3JxknQ~2whOJF zy`LJ-b|Bkiw(0h4&1#QRZH(u-XgKXwt-zk87SkxD9%9c`N0KYxK{b3k?;0heyh=7n LJ7tsnL;n8(y)|+c delta 5210 zcmZA44Rljwp2zX$-rkh74N%&qv`y2zv<+zsDFQ-OD5Pyl18Gv)3lu0)5DT&gp}-(; zbdn3Jyo@eh0%s9+>cB3m;w}muWx%2wMa7*mysV-kFU2A-BFKw^a6tE)7Wd3d&-vW@ z`~RQkzUAKJ^hP?2kq+aV(+sjHsdc*H<(Ww#hy1t@!?IS1L9I!1G=pSmePNzY>O0sG zSM3jqkJE%0P4w1_W5g-Zzs|Qyu4rO&ad^8!t}PYCW+6IBqr^ibi!(kD3XL6KBg(1X zEQ+rQckXDy74#JR?aDtO z65Ip-wzW6^eIffR8$V?F@qEP>sPi@6BA?4w)GA-FQA!s=aw+9r`aQ`BE;&@$m`O@= z8GOMCihPO^R}YGEZBzI@vAxM{OopoYI(4uM(EK4Q0O3{$OKx zC)EpXgLkx-YA?llw_$ux^#>Y1rr6>(Osw(;e2t${>~P1|`f7Y$wec)fn>)TTR6E+I zMy^m57sQv>GUPMfrFtpXsg{k4WdD4`| z099$eG&M4wP?Mi9r94z!!=a}(K1w4spIcpB6AA_<*=JFQ^Ar6+)mPiySwiQ<`~-h> zwXed@N!VA>*uveZ_p7rvk=yd5M;c!z{E%lT4{?2BH^moj9*bZ_me^0x>6ZH04-t|I z;sSnEiG9SmtydPB{mIvdh=PHpq+HP{x7l~7a^iGie)Opm z&dS>b@pU!ca$lWzp58A7iaM#rCtf0V6v|}*`zxfWg-Usqx7OZDURWqO?fVED3za&~ z-Vi(clIWQeeZz4@vd3-zjSadoxj#+$^WMGDbr7n$7F{_#ADv5_RIQ~edbQ);9y z`HV*yH{P!r^T}<+25(uYRy96Aaj@9v?y8&x#u3yV#qr&xeGHW}kX-~SjFZXM@IcA! zo=uXAw*t7WoWFH7pq zXyrG>($47OZ}M1f{$}`a4p;i?Ca!mL?{Cw+am(LrTzDWh*y1ROzrXL6XzKaO^q+IN zioymipm}`k`rF3r<+f?q}v}?;~&BZ}dXLQ9yKWBF6Vu7^1_148&DO}Yr zcA4*UnQTF9h~1y$K$38+Nsryels;)t z@9(p_xPJ+McVS9wPPF}7Yws`IY9#wfIbh}~7{ZhB)3=XF%c2dJ>^uU`Tv{hd8>7jW zJuF9FUL#G9{?FwiF68Fr19aZGk|Q0Bp16|dj6Gz@fjzM&a-CxaH!085{iH6IYZALs z)c(CW_9%Z}#WMVTd*5}AWyQ&J+^K;C!EyrA=D1RMW@lUt^kg5)+^H_Fr|T(x=V~@z zjxVkT*fRgxNY3u@YfdRKy6T$MoLC(D5QN~%IB(JHhwX*?g_;=M%XnM#)HS=ct$4Ch zA1Bm}g>-v*Ejuo6A+ePdl;PEcBb5G_xkjzc!eokWFyWU-+ z_rG`}x{BB(%fAjp4_zP3c}X`$OFN?e8?(X|hmc(ujM12ad02+$unsNQj!sydLe51A zf|!I^cnYhr7CYh06|xu2cnR;~2!4hwPslSdH&2A+Ho^}`%@=YhY7oYY*n(Zyi{m&4 z$tC0jq@e^$unphgHj?@YxeAN%6$ZJ5JQ>UJ0@h;-cA(827V;N_P9zoZn~exg;4E(A z7o-;oIUf(98dI?l8_|KdA`XPTa&!#ny2y}gg39quEvV>phla2n?rGo&b*F-2%e z=#3PZkqsOAVE_hUIJ~Gz5xSbvOMfgSMPG<#Q~Ky@QcT)z#@=P@1M)}YKc|SWc9_sN zRp{2#UYaXaXoVPn!5E5%F#VFbMJGZe1vu!XW&YjqFp2Zh@T*txf=99B9f7bY`DxqA7)mx zhsh&RfzjX%L>mVc^=QB}<}PLK)8q(Nn7RMFWoXYs$9inS@39rz@H%#&6}#~P4&pC3 zhR<<=9iKM$($11E;xew%`+**>8~PoyNte@2njxJF0IwQaADGj*|5kz>xp2XgF7!d^ zy|f3(yjEylRKia`z)nJB6})BW)6z})YN={`B;W$umaCP$9inUX8af4Kr7w`F9O#L!2>o9&Oqx#K zfQ{IU7Hq{fyqdxNf1U6KcCo?R8NIYUb*Z$g;nKU1vEG-)rg-jJE1Z_4bU{ht0G zuoHXf@6Sxp__tmEDAS}LCVxu*0`=WYSvO|MdUlpUcd#zPz$~NwAnTE+$V$-ttX0M* zWy#v3SwfqQ`B;i@gvIZ$9xd2~z1Wu}^!KxR>7Qh!=!dgR+A-?SvP}9(>TlUm4+{?? zQecMF!mpV{(T0*s;Y9@k^ru=BeVN6qZ?KrPx9NRCubuU077^C3v(b+rf#+x^rejdmb}s$r?)V+-RjVHTI2P%!q#~012$~OXH4j1@ysn2EZC5X0t~|h`E(>q|x)4yb=C&|~@(JkCz&OOErcAgI; zBNds*fx|BJe0!c&$l7Di)5q8qy_($2da=E)wv;(fBaCOU${yx-+HTU;QEb3wv|tPV z1Fzssv|=~*VLv`WJC5Ku2l$c$+^{R!9qM}!4t}=L!y)vZjwCIabt>z0)>#glZgZG4 vC*%2U8g7SGFLLB)9vTl&4{_vb50ky{p$cPn-!n)Cd8J~Mb}L5tZomHnkU(m> diff --git a/src/toolsrc/plforth.pla b/src/toolsrc/plforth.pla index 3e4d293..dbec5bc 100644 --- a/src/toolsrc/plforth.pla +++ b/src/toolsrc/plforth.pla @@ -94,7 +94,7 @@ const interponly_flag = $80 // // Predefine instrinsics // -predef _swap_(a,b)#2, _dashdup_(a)#1, _over_(a,b,c)#4, _rot_(a,b,c)#3 +predef _swap_(a,b)#2, _dashdup_(a)#1, _over_(a,b)#3, _rot_(a,b,c)#3 predef _abs_(a)#1, _max_(a,b)#1, _min_(a,b)#1, _wplusset_(a,b)#0 predef _ffa_(a)#1, _lfa_(a)#1, _hfa_(a)#1, _cfa_(a)#1, _pfa_(a)#1, _allot_(a)#0 predef _branch_#0, _0branch_(a)#0, _if_#0, _else_#0, _then_#0 @@ -307,15 +307,15 @@ byte = interponly_flag word = @d_var, 0, @_const_ // CMOVE char d_cmove = "CMOVE" -byte = 0 +byte = showcr_flag word = @d_const, 0, @_cmove_ // MOVE char d_move = "MOVE" -byte = 0 +byte = showcr_flag word = @d_cmove, 0, @_move_ // FILL char d_fill = "FILL" -byte = 0 +byte = showcr_flag word = @d_cmove, 0, @_fill_ // HERE char d_here = "HERE" @@ -327,7 +327,7 @@ byte = 0 word = @d_here, 0, @_pad_ // ALLOT char d_allot = "ALLOT" -byte = 0 +byte = showcr_flag word = @d_pad, 0, @_allot_ // BRANCH ( not in vocabulary ) char d_branch = "(BRANCH)" @@ -1071,8 +1071,8 @@ def _dashdup_(a)#1 if a; (@push)(a)#0; fin return a end -def _over_(a,b,c)#4 - return a,b,c,a +def _over_(a,b)#3 + return a,b,a end def _rot_(a,b,c)#3 return b,c,a