From 2fcffa911e705e51913eb4d1e072686fea2e82f7 Mon Sep 17 00:00:00 2001 From: crc Date: Tue, 24 Oct 2017 21:03:00 +0000 Subject: [PATCH] add a note FossilOrigin-Name: 10d4b88c51339262b91262fd5631eced0418825de29cd262a563d1a6169c0d09 --- literate/RetroForth.md | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/literate/RetroForth.md b/literate/RetroForth.md index 771e142..046e3a9 100644 --- a/literate/RetroForth.md +++ b/literate/RetroForth.md @@ -157,10 +157,17 @@ With the @ and ! prefixes this can become: @Name #10 * !Name +When compiling, these will generate packed Nga instructions +corresponding to: + + lit + fetch + nop + nop 'life.... #3841 + lit + store + nop + nop 'list.... #4097 + ~~~ :prefix:@ (s-n) d:lookup d:xt fetch &Compiler fetch [ #3841 , , ] [ fetch ] choose ; immediate + :prefix:! (s-n) d:lookup d:xt fetch &Compiler fetch [ #4097 , , ] [ store ] choose ; immediate