mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-20 17:38:10 +11:00
16 lines
305 B
Plaintext
16 lines
305 B
Plaintext
|
: +! SWAP OVER @ + SWAP ! ;
|
||
|
|
: -^ SWAP - ;
|
||
|
|
: ALLOT HERE +! ;
|
||
|
|
|
||
|
|
: 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
|
||
|
|
|