mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-24 06:28:09 +11:00
11 lines
306 B
Plaintext
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
|
||
|
|
|