miniforth/crim/demo1.mflua (htmlized)

Warning: this is an htmlized version!
The original is here, and
the conversion rules are here.

lua-until EOL
  dofile("crim/crim.lua")        -- (find-miniforth "crim/crim.lua")
  dofile("crim/crimextras.lua")  -- (find-miniforth "crim/crimextras.lua")
EOL

% 2 H_CON  nasm( 4, "\tdd 2\n" )

: SQUARE DUP * ;
: CUBE DUP SQUARE * ;

: DEMO 2 CUBE ;

asm/C-files: crim/demo1.asm crim/demo1.c
e exit()


#*
cd ~/miniforth/crim/
make clean
# (+ 7 16 32 64 128)
make CFLAGS=-g demo1
./demo1 7
./demo1 15
#*