Subversion Repositories Kolibri OS

Rev

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

  1.  REQUIRE INCLUDED_L ~mak/listing3.f
  2.  
  3. 0 VALUE TOUSER-VALUE-CODE
  4. 0 VALUE ---CODE
  5.  
  6. 0 VALUE DO-OFF
  7. 0 VALUE ?DO-OFF
  8.  
  9. 0 VALUE OFF-LOOP
  10. 0 VALUE OFF-+LOOP
  11.  
  12. 0 VALUE 'DUP_V
  13. 0 VALUE 'DROP_V
  14.  
  15. ' DUP  TO 'DUP_V
  16. ' DROP TO 'DROP_V
  17.  
  18. :  'DUP  'DUP_V ;
  19. : 'DROP 'DROP_V ;
  20.  
  21. : M\  POSTPONE \  ; IMMEDIATE
  22. : OS\ ( POSTPONE \) ; IMMEDIATE
  23.  
  24. : [>T]  ; IMMEDIATE
  25. :  >T   ; IMMEDIATE
  26.  
  27. TRUE VALUE J_OPT?
  28. : TT ;
  29. S" src/macroopt.f" INCLUDED
  30.  
  31. : TSET-OPT SET-OPT ;
  32. : TDIS-OPT DIS-OPT ;
  33. : TOMM_SIZE TO MM_SIZE ;
  34.  
  35. REQUIRE GTYPE ~mak/djgpp/gdis.f
  36.  
  37.  TRUE TO ?C-JMP
  38. \ 0    TO ?C-JMP
  39.  
  40. : TC-COMPILE,  \ 94 CORE EXT
  41. \ Èíòåðïðåòàöèÿ: ñåìàíòèêà íå îïðåäåëåíà.
  42. \ Âûïîëíåíèå: ( xt -- )
  43. \ Äîáàâèòü ñåìàíòèêó âûïîëíåíèÿ îïðåäåëåíèÿ, ïðåäñòàâëåíîãî xt, ê
  44. \ ñåìàíòèêå âûïîëíåíèÿ òåêóùåãî îïðåäåëåíèÿ.
  45.     CON>LIT
  46.     IF  INLINE?
  47.       IF     INLINE,
  48.       ELSE   _COMPILE,
  49.       THEN
  50.     THEN
  51. ;
  52.  
  53. : _DABS ( d -- ud ) \ 94 DOUBLE
  54. \ ud àáñîëþòíàÿ âåëè÷èíà d.
  55.   DUP 0< IF DNEGATE THEN
  56. ;
  57.  
  58.  0xE9 ' COMPILE, C!
  59. ' TC-COMPILE, ' COMPILE, - 5 -  ' COMPILE, 1+ !
  60.  
  61.  
  62. : DABS ( d -- ud ) \ 94 DOUBLE
  63. \ ud àáñîëþòíàÿ âåëè÷èíà d.
  64.   DUP 0< IF DNEGATE THEN
  65. ;
  66.  
  67. 0 VALUE TSAVE_LIMIT
  68.  
  69. : TSAVE (  ADDR LEN -- )
  70.  H-STDOUT  >R R/W CREATE-FILE  THROW TO H-STDOUT
  71.   UNIX-LINES
  72.  CR ." MUSEROFFS EQU " USER-HERE RESERVE - 2 MAX .
  73.  CR
  74.  HERE >R
  75.  CONTEXT @ @
  76.  BEGIN
  77.  CR ." AHEADER "
  78.  DUP 1- C@ .   ." ,"
  79.  DUP COUNT ATYPE ." ,"
  80.  DUP COUNT GTYPE
  81.  CR
  82.  R> OVER NAME> GDIS
  83.  DUP NAME>C >R
  84.  CDR
  85.  DUP TSAVE_LIMIT U<
  86.  UNTIL DROP RDROP CR
  87.  H-STDOUT CLOSE-FILE  THROW R> TO H-STDOUT
  88. ;
  89.  
  90. : RN> CHAR SWAP WordByAddr DROP C! ;
  91.  
  92. ' CR CONSTANT '_CR
  93.  
  94.