forked from KolibriOS/kolibrios
49 lines
984 B
Forth
49 lines
984 B
Forth
( ⻏儗魰錒諘灕<EFBFBD> USER-櫇謥懤臇𤒼.
|
||
Copyright [C] 1992-1999 A.Cherezov ac@forth.org
|
||
栫艜<EFBFBD>摫<EFBFBD> 1999
|
||
)
|
||
|
||
VARIABLE MAINX
|
||
|
||
VECT <FLOAT-INIT>
|
||
|
||
: TITLE
|
||
." SP-FOPTH ANS FORTH 94 for fasm" CR
|
||
." A.Cherezov http://www.forth.org.ru/" CR
|
||
." M.Maksimov http://forth.spb.su:8888/ http://www.chat.ru/~mak" CR
|
||
." PAGE - Clearing of a screen" CR
|
||
." WORDS - list of forth-words" CR
|
||
." BYE - KolibriOS continuance" CR
|
||
;
|
||
|
||
: ERR-EXIT ( xt -- )
|
||
CATCH
|
||
?DUP IF _BYE THEN
|
||
;
|
||
|
||
: HH.
|
||
0x10000000 U/MOD DIGIT> EMIT
|
||
0x1000000 U/MOD DIGIT> EMIT
|
||
0x100000 U/MOD DIGIT> EMIT
|
||
0x10000 U/MOD DIGIT> EMIT
|
||
0x1000 U/MOD DIGIT> EMIT
|
||
0x100 U/MOD DIGIT> EMIT
|
||
0x10 U/MOD DIGIT> EMIT DIGIT> EMIT ;
|
||
|
||
: INIT
|
||
|
||
CURFILE 0!
|
||
[ TDIS-OPT ]
|
||
1 ALIGN-BYTES !
|
||
OP0 0! JP0 JpBuffSize ERASE
|
||
0 LIT, 0x20 TO MM_SIZE SET-OPT
|
||
|
||
TITLE
|
||
['] AUTOEXEC CATCH ?DUP IF
|
||
ERROR_DO THEN
|
||
BEGIN
|
||
['] QUIT CATCH ( 璅物 能言<E883BD> 漭花<E6BCAD>)
|
||
ERROR_DO
|
||
AGAIN
|
||
;
|