forked from KolibriOS/kolibrios
43 lines
867 B
FortranFixed
43 lines
867 B
FortranFixed
|
\ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> CASE
|
|||
|
|
\ <20> <20><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> CASE
|
|||
|
|
|
|||
|
|
|
|||
|
|
DECIMAL
|
|||
|
|
VARIABLE CSP \ <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
6 CONSTANT L-CAS# \ <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
CREATE S-CSP L-CAS# CELLS ALLOT \ <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
S-CSP CSP !
|
|||
|
|
|
|||
|
|
: +CSP ( -> P) \ <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
CSP @ DUP CELL+ CSP !
|
|||
|
|
;
|
|||
|
|
: -CSP ( -> ) \ <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
CSP @ 1 CELLS - CSP !
|
|||
|
|
;
|
|||
|
|
|
|||
|
|
: !CSP ( -> ) \ <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
SP@ +CSP !
|
|||
|
|
;
|
|||
|
|
|
|||
|
|
: CSP@ ( -> A)
|
|||
|
|
CSP @ 1 CELLS - @
|
|||
|
|
;
|
|||
|
|
: ?CSP ( -> ) \ <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
\ SP@ CSP@ <> 37 ?ERROR ( ABORT" <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> CSP !")
|
|||
|
|
-CSP
|
|||
|
|
;
|
|||
|
|
: CASE ( -> )
|
|||
|
|
!CSP
|
|||
|
|
; IMMEDIATE
|
|||
|
|
: OF
|
|||
|
|
POSTPONE OVER POSTPONE =
|
|||
|
|
[COMPILE] IF POSTPONE DROP
|
|||
|
|
; IMMEDIATE
|
|||
|
|
: ENDOF
|
|||
|
|
[COMPILE] ELSE
|
|||
|
|
; IMMEDIATE
|
|||
|
|
: ENDCASE
|
|||
|
|
POSTPONE DROP BEGIN SP@ CSP@ =
|
|||
|
|
0= WHILE [COMPILE] THEN REPEAT -CSP
|
|||
|
|
; IMMEDIATE
|