nasmjf

A NASM assembler port of JONESFORTH

git clone http://ratfactor.com/repos/nasmjf/nasmjf.git

nasmjf/jonesforth/test_stack.f

Download raw file: jonesforth/test_stack.f

1 ( -*- text -*- ) 2 3 : TEST 4 DEPTH . CR 5 6 42 DUP . . CR 7 23 DROP DEPTH . CR 8 1 2 SWAP . . CR 9 1 2 OVER . . . CR 10 1 2 3 -ROT . . . CR 11 1 2 3 ROT . . . CR 12 1 2 3 4 2DROP . . CR 13 1 2 3 4 2DUP . . . . . . CR 14 1 2 3 4 2SWAP . . . . CR 15 16 DEPTH . CR 17 ;