collapseos/blk/427

( 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 ; IMMEDIATE
: OF
    COMPILE OVER COMPILE =
    [COMPILE] IF COMPILE DROP
; IMMEDIATE
: ENDOF [COMPILE] ELSE ; IMMEDIATE
Copy core words to blkfs 2020-04-26 11:54:07 +10: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. )`
Give CASE's default branch access to its input value ref #97 2020-04-28 10:44:21 +10:00			`: CASE 0 ; IMMEDIATE`
Copy core words to blkfs 2020-04-26 11:54:07 +10:00			`: OF`
Give CASE's default branch access to its input value ref #97 2020-04-28 10:44:21 +10:00			`COMPILE OVER COMPILE =`
			`[COMPILE] IF COMPILE DROP`
Copy core words to blkfs 2020-04-26 11:54:07 +10:00			`; IMMEDIATE`
			`: ENDOF [COMPILE] ELSE ; IMMEDIATE`