2020-04-25 21:54:07 -04:00
|
|
|
( 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. )
|
2020-04-27 20:44:21 -04:00
|
|
|
: CASE 0 ; IMMEDIATE
|
2020-04-25 21:54:07 -04:00
|
|
|
: OF
|
2020-04-27 20:44:21 -04:00
|
|
|
COMPILE OVER COMPILE =
|
|
|
|
|
[COMPILE] IF COMPILE DROP
|
2020-04-25 21:54:07 -04:00
|
|
|
; IMMEDIATE
|
|
|
|
|
: ENDOF [COMPILE] ELSE ; IMMEDIATE
|
|
|
|
|
|
2020-04-29 21:52:18 -04:00
|
|
|
|
