mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-24 03:28:07 +11:00
baf725aa38
That makes it easier to write drivers that can be xcompiled.
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
|
|
|