mirror of
https://github.com/hsoft/collapseos.git
synced 2024-09-16 13:48:45 +10:00
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
|
|
|