projects
/
rrq
/
jonasforth.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
df2d231a8266511b8dcfe5cc251f1be28bd4055f
[rrq/jonasforth.git]
/
sys.f
1
S" :" CREATE ] DOCOL
2
READ-WORD CREATE
3
LIT DOCOL ,
4
]
5
EXIT [
6
7
: ;
8
LIT EXIT ,
9
[ S" [" FIND >CFA , ]
10
EXIT
11
[ IMMEDIATE
12
13
: / /MOD DROP ;
14
: MOD /MOD SWAP DROP ;
15
: NEG 0 SWAP - ;
16
17
: IF IMMEDIATE
18
' 0BRANCH ,
19
HERE @
20
0 ,
21
;
22
23
: THEN IMMEDIATE
24
DUP
25
HERE @ SWAP -
26
SWAP !
27
;
28