Subversion Repositories Kolibri OS

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
4867 leency 1 
( Èíèöèàëèçàöèÿ USER-ïåðåìåííûõ.
2 
  Copyright [C] 1992-1999 A.Cherezov ac@forth.org
3 
  Ñåíòÿáðü 1999
4 
)
5 
 
6 
VARIABLE MAINX
7 
 
8 
VECT
9 
 
10 
: TITLE
11 
  ." SP-FOPTH ANS FORTH 94 for fasm" CR
12 
  ." A.Cherezov  http://www.forth.org.ru/" CR
13 
  ." M.Maksimov  http://forth.spb.su:8888/  http://www.chat.ru/~mak"  CR
14 
  ." PAGE - Clearing of a screen" CR
15 
  ." WORDS - list of forth-words" CR
16 
  ." BYE - KolibriOS  continuance" CR
17 
;
18 
 
19 
: ERR-EXIT ( xt -- )
20 
  CATCH
21 
  ?DUP IF _BYE THEN
22 
;
23 
 
24 
: HH.
25 
  0x10000000	U/MOD DIGIT> EMIT
26 
  0x1000000	U/MOD DIGIT> EMIT
27 
  0x100000	U/MOD DIGIT> EMIT
28 
  0x10000	U/MOD DIGIT> EMIT
29 
  0x1000	U/MOD DIGIT> EMIT
30 
  0x100	U/MOD DIGIT> EMIT
31 
  0x10	U/MOD DIGIT> EMIT DIGIT> EMIT ;
32 
 
33 
: INIT
34 
 
35 
	CURFILE 0!
36 
[ TDIS-OPT ]
37 
	1 ALIGN-BYTES !
38 
	OP0 0! JP0  JpBuffSize  ERASE
39 
 
40 
 
41 
  TITLE
42 
  ['] AUTOEXEC CATCH ?DUP IF
43 
     ERROR_DO   THEN
44 
  BEGIN
45 
    ['] QUIT CATCH ( 横« ¯à¨¥¬  ⥪áâ )
46 
     ERROR_DO
47 
  AGAIN
48 
;