1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-27 22:58:05 +11:00
collapseos/blk/426

9 lines
190 B
Plaintext
Raw Normal View History

2020-04-26 11:54:07 +10:00
: ELSE ( a1 -- a2 | a1: IF cell a2: ELSE cell )
COMPILE (br)
2 ALLOT
DUP H@ -^ SWAP ( a-H a )
!
H@ 2- ( push a. -2 for allot offset )
; IMMEDIATE