Warning: this is an htmlized version!
The original is here, and the conversion rules are here. |
lua add_SFprims("STO S> TOS >S") end; % &FOO AT: -- &FOO ( -- adr ) % FOO! TO: -- FOO! ( w -- ) % FOO CON: nasm( 4, "\tdd 0x12345\n"); -- FOO ( -- w ) : S$@, S> COUNT 2DUP + >S ; -- S$@, ( -- :RSR <."> : S<."> S$@, TYPE ; :RSR 2<."> : S2<."> S<."> S<."> ; g: DEMO 2<."> dbstuff( 6, "Hello\n", 6, "There\n"); FOO FOO + FOO! ;