projects
/
rrq
/
jonasforth.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Define ELSE
[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
29
: ELSE IMMEDIATE
30
' BRANCH ,
31
HERE @
32
0 ,
33
SWAP DUP HERE @ SWAP - SWAP !
34
;
35