1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-26 04:38:06 +11:00
collapseos/blk/427
2020-04-25 21:54:07 -04:00

11 lines
306 B
Plaintext

( During a CASE, the stack grows by 1 at each ENDOF so that
we can fill all those ENDOF branching addrs. So that we
know when to stop, we put a 0 on PSP. That's our stopgap. )
: CASE 0 COMPILE >R ; IMMEDIATE
: OF
COMPILE I COMPILE =
[COMPILE] IF
; IMMEDIATE
: ENDOF [COMPILE] ELSE ; IMMEDIATE