Subversion Repositories Kolibri OS

Rev

Blame | Last modification | View Log | Download | RSS feed

  1. ( Èíèöèàëèçàöèÿ USER-ïåðåìåííûõ.
  2.   Copyright [C] 1992-1999 A.Cherezov ac@forth.org
  3.   Ñåíòÿáðü 1999
  4. )
  5.  
  6. VARIABLE MAINX
  7.  
  8. VECT <FLOAT-INIT>
  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.         0 LIT, 0x20 TO MM_SIZE SET-OPT
  40.  
  41.   TITLE
  42.   ['] AUTOEXEC CATCH ?DUP IF
  43.     ERROR_DO   THEN
  44.  BEGIN
  45.    ['] QUIT CATCH ( 横« ¯à¨¥¬  ⥪áâ )
  46.      ERROR_DO
  47.   AGAIN
  48. ;
  49.