blob: 38c2c5f15694bf18f91903b8a9f9f8ca683219b8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
: begin here @ ; immediate
: again branch here @ 4 + - d, ; immediate
: / /mod swap drop ;
: mod /mod drop ;
: syswrite ( u c-addr fd -- n ) 1 syscall3 ;
: say ( c-addr u -- ) swap 1 syswrite drop ;
\ : saying begin TESTSTR say again ;
HEREDUMP
\ saying bye
TESTSTR say bye
|
