X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=adoc%2Fp_nip.adoc;h=8e1494666fca9efed6ee8b21ae0eced2bea94c05;hb=656f37efbd89db1b1088281047a9633cf74e92ec;hp=cc74eb73585ca2ab82e61db927ba2740b985ed96;hpb=b7da3f7bbd1cb10241163abdb950472e539e796d;p=rrq%2Frrqforth.git diff --git a/adoc/p_nip.adoc b/adoc/p_nip.adoc index cc74eb7..8e14946 100644 --- a/adoc/p_nip.adoc +++ b/adoc/p_nip.adoc @@ -1,9 +1,20 @@ +// stack.asm: WORD p_nip, 'NIP',fasm + anchor:p_nip[] -Word: NIP ----------- +=== Word: NIP + +.... +Data stack: ( v1 v2 -- v2 ) +.... +"NIP" is a function word that discards the second of the top two cells +on the data stack. + +==== +.Word: NIP +[caption='Definition concept {counter:exec}: '] ---- -stack.asm: WORD p_nip, 'NIP',fasm +: NIP SWAP DROP ; ---- - +====