mirror of
https://github.com/KolibriOS/kolibrios.git
synced 2025-09-12 13:37:45 -04:00
34 lines
580 B
Forth
34 lines
580 B
Forth
|
|
|
|
VARIABLE CSP \ Óêàçàòåëü ñòåêà êîíòðîëÿ
|
|
|
|
: CASE
|
|
CSP @ SP@ CSP ! ; IMMEDIATE
|
|
|
|
: ?OF_
|
|
POSTPONE IF POSTPONE DROP ; IMMEDIATE
|
|
|
|
: OF
|
|
POSTPONE OVER POSTPONE = POSTPONE ?OF_ ; IMMEDIATE
|
|
|
|
: ENDOF
|
|
POSTPONE ELSE ; IMMEDIATE
|
|
|
|
: DUPENDCASE
|
|
BEGIN SP@ CSP @ <> WHILE POSTPONE THEN REPEAT
|
|
CSP ! ; IMMEDIATE
|
|
|
|
: ENDCASE
|
|
POSTPONE DROP POSTPONE DUPENDCASE
|
|
; IMMEDIATE
|
|
|
|
: OF\
|
|
POSTPONE OVER POSTPONE <> POSTPONE IF ; IMMEDIATE
|
|
|
|
: OF;
|
|
POSTPONE OVER POSTPONE = POSTPONE IF 2>R
|
|
POSTPONE DUPENDCASE 2R>
|
|
POSTPONE DROP ; IMMEDIATE
|
|
|
|
HEX
|