X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=adoc%2Fp_within.adoc;h=ca2314685de174eca51c17dce7632017928fffa8;hb=9b8fcf87eaed58b6dfabcf885f8eef5484643de6;hp=3d7ea491c79b35ac3ba44c77d167c3cf42a512f3;hpb=b7da3f7bbd1cb10241163abdb950472e539e796d;p=rrq%2Frrqforth.git diff --git a/adoc/p_within.adoc b/adoc/p_within.adoc index 3d7ea49..ca23146 100644 --- a/adoc/p_within.adoc +++ b/adoc/p_within.adoc @@ -1,9 +1,20 @@ +// logic.asm: WORD p_within, 'WITHIN',fasm + anchor:p_within[] -Word: WITHIN ----------- +=== Word: WITHIN + +.... +Data stack: ( v lo hi -- 0/-1 +.... ----- -logic.asm: WORD p_within, 'WITHIN',fasm ----- +"WITHIN" is a function word that replaces a triple of values with -1 +of the the first, v, is within the value range spanned by the second, +lo, inclusive and third, hi, exclusive. +==== +.Definition concept for WITHIN +**** +: WITHIN 2 PICK > ROT ROT <= AND ; +**** +====