Mirror of CollapseOS
No puede seleccionar más de 25 temas Los temas deben comenzar con una letra o número, pueden incluir guiones ('-') y pueden tener hasta 35 caracteres de largo.

10 líneas
310B

  1. ( During a CASE, the stack grows by 1 at each ENDOF so that
  2. we can fill all those ENDOF branching addrs. So that we
  3. know when to stop, we put a 0 on PSP. That's our stopgap. )
  4. : CASE 0 ; IMMEDIATE
  5. : OF
  6. COMPILE OVER COMPILE =
  7. [COMPILE] IF COMPILE DROP
  8. ; IMMEDIATE
  9. : ENDOF [COMPILE] ELSE ; IMMEDIATE