From 3080215f0d03403858b04f5bab8332a9b66a4adf Mon Sep 17 00:00:00 2001 From: Ralph Ronnquist Date: Sat, 12 Jun 2021 22:48:45 +1000 Subject: [PATCH] upgrade --- reference.html | 108 ++++++++++++++++++++++++++++++++++++++++++++++++- rrqforth | Bin 2151114 -> 2151833 bytes 2 files changed, 106 insertions(+), 2 deletions(-) diff --git a/reference.html b/reference.html index 04da373..9cb4b59 100644 --- a/reference.html +++ b/reference.html @@ -770,12 +770,18 @@ asciidoc.install(); !   C@   C!   +W@   +W!   +D@   +D!   2@   2!   !+   @n++   @n--   C,   +W,   +D,   S"   >R   R@   @@ -1142,6 +1148,52 @@ at the current free head address, which also is incremented.

_______________________________________________________
+

+ +
+

Word: W,

+
+
+
Data stack: ( v -- )
+
+

"W," (W-comma) is a function word that puts a "word" (double-byte) on +the HERE heap. The two least significant bytes of the value +are put at the current free head address, which also is incremented +accordingly.

+
+
+
+
+
Definition concept for W,
+

: W, HERE @ 2 ALLOT W! ;

+
+
+
+_______________________________________________________ +
+

+
+
+

Word: D,

+
+
+
Data stack: ( v -- )
+
+

"D," (D-comma) is a function word that puts a "double word" +(double-byte) on the HERE heap. The four least significant +bytes of the value are put at the current free head address, which +also is incremented accordingly.

+
+
+
+
+
Definition concept for D,
+

: D, HERE @ 4 ALLOT D! ;

+
+
+
+_______________________________________________________ +

@@ -1174,6 +1226,32 @@ _______________________________________________________
_______________________________________________________
+

+
+
+

Word: W@

+
+
+
Data stack: ( a -- v )
+
+

"W@" is a function word that pushes the "word" (double-byte) value v +from the address a.

+
+_______________________________________________________ +
+

+
+
+

Word: R@

+
+
+
Data stack: ( -- v )   Return stack: ( v -- v )
+
+

"R@" is a function word that "copies" the top return stack value onto +the data stack.

+
+_______________________________________________________ +

@@ -1187,10 +1265,36 @@ significant byte of the cell) at the address a.

_______________________________________________________
+

+ +
+

Word: W!

+
+
+
Data stack: ( v a -- )
+
+

"W!" is a function word that stores the "word" (2-byte) value v (the +two least significant bytes of the cell) at the address a.

+
+_______________________________________________________ +
+

+
+
+

Word: D!

+
+
+
Data stack: ( v a -- )
+
+

"D!" is a function word that stores the "doublw word" (4-byte) value v +(the four least significant bytes of the cell) at the address a.

+
+_______________________________________________________ +

-

Word: R@

+

Word: R@

Data stack: ( -- v )   Return stack: ( v -- v )
@@ -3726,7 +3830,7 @@ is deepest.

diff --git a/rrqforth b/rrqforth index 729f1bb4f4f0e974915eceba48699c6dda0a0dca..0e9771351e5d21651cad70daed8b33087d601c77 100755 GIT binary patch delta 7252 zcmZ{o2~<=^x`3-28rp6n&`Ni+2n7-|C@2y$M-&i*HW$OvvIt7lHad>aEXT0o*zE!(@bVuM~%Z0Ma%x;ot;^}*a(cR) zI+xSS<@9zr^)BZGm($>K8ePtbF6UD&=OmZY$K~{OIsIHtlgl~T<(%Sj`n#NFm(${M zT3yZnmow1i401VxUCya4XNb!gdcuh>muWpxPv*amtsdHKv&gS@VypJmS)_C)&d`R; zB3E|eZ0$fanY9aB4Gqx<6)2@sk46*wE}Wyyi6#}h@KP-j?b;hr#Pmn}eDK~Vgp@vH z+UcN=Bt7epQrzyVl<111NYNkhE5ZK%l6W+e+}VwTNx*LWl6Lb<^7d}LOf!u{@4^Av z3A}B!HuTa-JHbI3lkb3oDMxAh#B=T$^7e=LEA3}3C)e)5-|KYwNhoeV*}4x~g4dT? zH=^|=!4YcM+N*A*&W+>t3#l{v$($qDtjiBW+c<3XUteNX|MHT+wgKirb{xPKU1|~< z7AganMyBu&Kn??$1!NcsKERAyr%-jN00kcqR*8UOlh8U2SuE~NdUuTaaE&m#4!G;U zg`s1d3$hj}B?Wr57Pw=;#g>z$-Po+RWhdv@&|}U95Yqwtv?&qL$AIoF7ab0pi8huq z2hG;P0!3q0?>U6+jpf3}8vw?~qb2~CD;Fao)LH6Kde+Da5j)*QkXvfv;#m|_5oJS6NNJH*G+JJn{- zRnVJ^w1&N>`{HZ2TZz1;bf_M7^~x&Y#+x9cJlMpDD@i_#1Fd@ZZzA;SA|S1Yg%=+KnVOwtN9!4Bu_(pediB9dVR}7)Hx3JTV>#I{ zM*6CCKsEpwQ^AdsZx3Oe<`FkOMX#;}>Jd@J|gD?vHOzZt`)`(*+74Uq5cuEZ9v z?5te0ypk&=FIV7T)9pf`aCxOLf2UIPslEd1v}Y>0v*dgQo@V+TkY|8gc7#n)pf>yn zgXmzEct)u40EHhB>dKFZaI&YRyntR2B-v6)!|C=4VfYmw?+B9AS2Dw#w3_WXcJ&Z| zX8@dcl&=ua#B8J^9Y=9MVDbOzl@c3LmjS6eDvY~08KB8#m?c;#wbAU^qqnOQ0L%t( zl!F$JB($HSW_J-%JC_Rw_X8AIB|jrt`PNihOgKVT`< zLfZ`FSIx8qSbXZc>}m#Je$~QgSvBttu~%VFZ6TEz!dCKH6BliuF$K1g3+~nq{+e>npNfi7+otY*Kp9Hql@K@THast{V5TunkVeO0oeDoV(~3b zPNy41do8IyOS@J(i1mhcKo-=A5y{QYvmviKL0D_C-?Vg4ru2D6xM@)rK!sPGaN=+s zANC3PX}L;TCVI6_4E#H_*kpJWn7ehn=h~Qfa;**rkfB=aYiNVUgkxe@ViJ&n_|?xG5{bZe~D zi@2GFTY&tsp8KE+OF(n$#fUf5VI5g=j6!qkg(rhzflB-NxKR_=uh;hqEPEXHDK~ox7XorxPdK~OCmrnGQ24S_S!LhU9_x@y4 zJ=SYC3(9Y!=H`FXdDsk$rjh9i@UkUmpaG7AlK-j4PyIZq(Sg*rmWp_I0ch_XLbH2r z1WoO}N?&gd!}0*5=ZYB(IK;ZB8I##xDJdVS?)6+6-sJw~9bYkDc6Xk-_75miJ29RrQ4o;?acX zY5g)tLK8h>-bxn}Gw`W{o4k8MWG#DgDr!AJI$CI+UOkK_H95+@^)R%;Xwd_E!%2*_ z4^NA5|Mny{OnXQhH!vl1@_%`T+DcZ0?k8hSrk=vjS(;emz2|?@_;081Y@h#QjrGu& z+Ch$-!qdXvfp@C;=VxjA>pvC#<`fP!JUlIWvE!`RmBP_#`im~e$PLW9jm))EOu@H{ zh4t|_5juMRei|?G323HJ89>yF+s!!0v=QD{Qw^*XHH)>sI5pRno{kcmd8oy{2S*n9 zOs6|ND{_YAj3rVVtXye^tj&~E2qiOQ7|5_G0$2)Hz>>zZr%W9?@&N?7&w(|XuY-z?`nkI6+ z71J!&$ELYJDSm+7o~#rnOrL;|p=d&{ceLW}Q||voT}(|VbK0wUI4E21Fg%|IMN%7` z?+qy;C}6(lrog*0XH>cWT(6#8haaHdcxS7(=z?8A^}PGeA?i(aR}=Vjx=qC0EVQkS zPsOu0p=JEgkDt$N)B#qewL5lp1o= zE>`(-t=Qyqw4HVWEfSre8`H8@yxg=mS-hvvMpkI&XqFGv8audTV5w&Wz2xidbP!(c zpz;fVr)GlMFrN1btDFdxQ6C8<}i})c|{W?ilF;be9yB#8O6kE0pwRG_5Gwr!7 z8e0I0>x9^CW3k)G{qZdI&%aC_w&As=I}3$QZKn{s)5#~?o9(o@=roz#i7nxGLD$}L z0m&#l4MNFXVn&`pK3#l9{@KR|?+!Y?K3(8l7g^XrZyF_npD$-lJ|jg&N6Em;cWJo< z>VMWP;y)z{-4m)Jlu}(6Jzy06-m18Dr|Bzn|vPX`2vYY!s{rN70tjge8xtAAR0b1&z=?dSy$P$7^~=X^r~l1;V8rkjiC1FJGm& zJCxFdiHt4rVUmv(cmG=+hrfP6Ror_>t7Xi806Nx#59xiv7laU5(Tyi-&3$A0r&oj- zTDQYfCU*HOL@)NS4u+e4oG*NP5y;Q`#5Ao$)tm?j`UOotOipb8v>MRpb7I*oV&9S; z^zmgk*+5BF9spEyP8>zI_t2wg!Z~I%AgGS2WT0vRl?mq@ObGRy6O*Ob3eXOKS5nxQ zwyAw_FpL0O`^Ao!nU}GMetx)qj?G30S>B7^jlDfjuuAbGROF%DznZ^+^T1CT70w4CVttn5^T2ga~TMm!*};}l!C#NT9F zmYklKoNJ4Q^X=;ce1**ze+ZCgMOk0APv~hLA=l1f^Dk1EZCZ{Ua?B zKSGI^?(Gi#B2~#Rp7i|tPwVH>(+?~3i`4tn)clOY;+^)CRio<%#MAJxc* zmCL8hjPf~t5Yn2+gMK`Hkvx7#Iq971sBl`!$$5|*?-Bh+op20bv*C3Zq&F^z1v4Mn zF7O%NA|-x6NnA*3l+z)HJ+9Ni+qE!U(&Fc^bYzaVT@ajR5T0BLjUDnApdlc516k0C zjbp^Xxx@kNyCqWf9;p@-NcUp7W+;9Rk!=71YRgY4{Y zCRhK2{j}Q$#q$4fzHn|kKmkL1(U6$)*r2&e@DRqN@I3a7dw$4))HTlvm8U(DxR^|g zW6LxNfUBVHpinn4Ju5jidU0C14Q&__gH8=`6*7j#U#;xC6`>)}Bqu`ycSI>Cmm^)q zTtbG$1K{LMDi8F*G9)W5;E)u#0OcB$_qWgBC@LdE#+;ml4d8s+FwY%i_yYFTZW$(D zUcieCTZV-vks~ZcS-n!}7n8paKlvbI{5t@@9uZ^x?jSa3<3^qkhPV--g60%{>84+6 z7iHzx7NTNW0hcbXh+?3Ags1dUK7WSJkFXRQ78){2C-2=DF?l}?Z?cBwVc$PcXrqRn z^wu#tHHMT8;psuaAQefk?oZ$Nk%m}bkG;%Jffh16gr5yMPU*^`Th9M*qoVuD{n4)T z;7-Iv5pQ#cX}tY)bjm6b3{|W7o)tC5k3L!e<{FjWJNa(B#KbZ<8|2=$sI}@D5qcF{|B)arZ4~i delta 6811 zcmZ{odsI|Mn!t<8qZ?Y6wh@|FOraPBUkK`s5s(HtUJQ@sp%U@YAvzP?#F$w%vwPNf z9k#O)$Do5+@k|y}1eBMeaaaZAC3FT9QIfcu{2@*@ZmV&O|BN}CNAFiv-^GN@)H!gw zs(#<2s=oSe)jiT!<}*-R=CeOs>AZd*@&(htO-gtfxVe>8RG33|Yc9>lr714W*QNQn zG=G;C;L;2(&FInsU0RS!Gr6=0E^VSq`#YBw?9$9GZIVl~xU>+LHrb_xy0kEtW_4-d zE-k{PMY^;omlo~Po^feYT-vkeHTp?~vcT51YCjG4Rgz}2H!Eql5;2?Yt)w~1z%2Gz zB`r{P%wls7((s@)vj{0x_dZiJi#ZO`Ld6@;Y7f$Ur72$YE5DCtmP2$|bXGhes+(9U zo$yFA@&T!3U1qi1e_lM>eu%yn-5vM0i26A8=rE0D5r=81G9!-dJWN+A*Jnxt=V$WH z^@`(0n}g9PAB)ZH?B|LX6bm_`;?v)xtH%8nkT0h6Y` za@(smd+Fk8DeyX6SkJAO zrR6tRScO_{^+cIYkX_aJTNwGIUjSKfQAl!;@(s8cV8c?!j zE%`yP)+n`m)K~Qxb$Ch;{sG~#<8m4^?T#XqlsApMT&(uUCy5Rl7aD4v#+y zu9tk0>Qbp(upgz zazYF8va?A=ExS`k7h77_NaGa<&8p+tto~UJ@&uIeowmN7`dfa5+!N$>)JbKItc(|l z4TOM<zKJ2qG|=O6?N=RJ$N@%f`*ZqSdTlSfP5y^MX6;EjcU1_ zcy=TE8M3R9El4FZ>g9;vJ4pjA3y_;pFYVUrTpHO19IRxRcRTSsTrEv+L+las@sKPi zbdYw*O@H#(PRWtj(hErf z{BEFAEi;ixI3*oxJH;xF(6GQ<`!ZXRooE8HvIh+?h);^8Sq)iZgB`D*!Zipgjm*&qZdWwX2|n3^u&Pfc z$9h5#$ZnLb4K|AX%to7NfbXG3XJv&F%6@2~#vrH=Ud&BAj-z}($IgsqI%(QlE2ZPA z+b`A&#q&#S07^*xQ4GP+Z&||5? zCxzWUNKc3uX#2OwnhN@rjID>*}>gV)2l-9vWIX=mk`J)uDb zb_qL9kHM2R``j}F>NqX^`&6in2(a67NVUXR+WXWP#-Y0Vea<+Er@lb0 zC^#~=m4@4A@sj(fkm~4}usk{jJW*$DyIY8QFGQ!JNV(n4ug}-YOO@THRX==eOc; z&qod^RSv3nnR3=yIcf=Gv(M3q$|%q<^U|l1b2K$15%E#P+W@D5q3r&Lbds{;?2qtg z&eJ4A;5l%xI*+Y7Pk*6o%wq@6!wD-jPnz6uR+_9jCo_V>mPt0BV+R=Q)!8G|e9l?% zwXbP2sNiL^%~{zU70Mzn(jcX-ZETh26zgw^SL*M?`2on>!c zqzkR&xuhi*(x5PqU;tQ2%G%-;ed5st*bKt@dqD@W1}= z4_@yBcU_y4dqh$$$jvd8m@bU@9w%Jh%>CVP0TgDU!tuvo@Oz-0rU&dmzaw(+pOz=Y;*qtyVFC%5=-%|tv|DU(*(S=#wnh|2jufUDtYIkd|}(+ zq>z76=!l=*D;Xal!41i}E}M__FQo&4FJ#(tvWiHH6kk4GJP8kOinDPlZ7uD z`Hk!wvdvK7xesrk)$07NcYm7)f(^av(T|On*a6V4BwZ3SmUIZ)$4~$GRZY4i$8r6V z*nboFFbW;E3_Cdl8u?zG)dhFSLx{y*#=wEWKDsnESXSOeEx|>XVJJnJaww2o8@lLA zA&)a;{Sj*T`ZCXokOI1?QE9s@REP`|!Si&Nk!R_MPEb^Vf?)EEZb}U*Z**p`!`<{* z%TnxY1CzW|b;_tw?FDwSsZ)4v8MrAsH-RKCUv|o+&4649C!?0mr^bCl8*j1P9{P$U zBVGF2fzYzE2wQv@Mkj@;0iN-YecGY_yO1 zDUU$|oLM8ii`24yqvthbA0zu#FGRH|l+Eg=CM6jJxwX808f=+_WOA=`Y@nBI?WYk6 z6Oeo-?n>$V7Tj?gKn-j_H(XXy&WVRCvs<&I+oAPg*Ef40B z->Kd|{fqC32j75-t-N{fcF@>o^t_BZ82Ygj6zhe>yQxK4c4h3HX^dTl-JST<=Uso6 zkbPIgD4%irpMzAvRe7$ZNI&HJelT%YhI zL{F-5eNJwH)b)vD8e97jZ0aq2a-QG*2<{Pglcnt~Nd6T%`Tan(7n2?Yhd6i`!5##& z`sHTLU6GRxH+4%tS1M15Gyg>2O}w;3Dpt$BCEI<~C%0F<%Kaak*nh`!jVKjdSv1J>+<9E>zuR`#=ak<#zbAY{?rqj{v1EpDQB7cDt#`! zz2@hgTm3iILD!FC<%1Ooum&gTMmqdZ=k^dUPfFwCGtuZ`VaX7-UO^;9^laD0b%b zz5d?~@*Kp!_nNsS&%H%*HZA+Kaw;XI$A)zll+{Q%xA27aGh#Dcd)mYpxosyw%GJPLj!b4#x zKK0etS4W@dBk0uE*F=6`)x*@RoVmtYhiQ7ynQPMW>LEtmG~AGxl}loWo_>BXK}9%o z0vcgnC+66)a_86zmKBoCKgOUUu!qnH_ev9dz)a68v@aze4n0j~u^%Ee@4BRQSM}#i z^8L`*ip9A5^MLcblq8q`|3@=RxJjp&F9EdK2To>(I31G2*4?DfMLkHAQgK8rpMDqa zL#n&aQQ-ifi&fvGNzq>bUAO(d_O_R7f1*CQ+50^@w_;d^m+uIK*W}?b_syos!_w^r zAmDn-){MYK_4Q%lF+U~-vfqu+7pmuL(tgJgDKm1F{bhv4S&Fg!b=2j$Azoo@ z>BsOb-El+g0k-yI8WY^X)qIs8)xZaYeIHZnyg&2CeryCk2rv4(9p*r}3H^20kC}YA zSx|&P1c+aHB(25~>*1)UKb;?Jl>Ei$G$Hp^FH8D_PL0>)^>qCjrfa?ZX=JippU}wv E0|{I5-T(jq -- 2.39.2