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