12 lines
244 B
Plaintext
12 lines
244 B
Plaintext
|
: IF ( -- a | a: br cell addr )
|
||
|
COMPILE (?br)
|
||
|
H@ ( push a )
|
||
|
2 ALLOT ( br cell allot )
|
||
|
; IMMEDIATE
|
||
|
|
||
|
: THEN ( a -- | a: br cell addr )
|
||
|
DUP H@ -^ SWAP ( a-H a )
|
||
|
!
|
||
|
; IMMEDIATE
|
||
|
|