Subversion Repositories Kolibri OS

Rev

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

  1. #pragma option OST
  2. #pragma option ON
  3. #pragma option cri-
  4. #pragma option -CPA
  5. #initallvar 0
  6. #jumptomain FALSE
  7.  
  8. #startaddress 65536
  9.  
  10. #code32 TRUE
  11.  
  12. #define PY_NONE 0
  13. #define PY_BOOL 1
  14. #define PY_INT 2
  15. #define PY_FLT 3
  16. #define PY_STR 4
  17. #define PY_FNC 6
  18. #define PY_CPL 7
  19. #define PY_LST 8
  20. #define PY_TPL 9
  21. #define PY_RNG 10
  22. #define PY_BTS 11
  23. #define PY_BTA 12
  24. #define PY_MVW 13
  25. #define PY_SET 14
  26. #define PY_FST 15
  27. #define PY_DCT 16
  28. #define PY_CLS 17
  29. #define PY_MDL 18
  30.  
  31. #define PY_STD_FNC 30
  32.  
  33. #define PY_NA_STR 32
  34. #define PY_SYM_STR 33
  35.  
  36.  
  37. #define PY_ADD 0
  38. #define PY_POW 1
  39. #define PY_MUL 2
  40. #define PY_SUB 3
  41. #define PY_DIV 4
  42. #define PY_MOD 5
  43. #define PY_XOR 6
  44. #define PY_AND 7
  45. #define PY__OR 8
  46. #define PY_LSH 9
  47. #define PY_RSH 10
  48. #define PY_FDV 11
  49. #define PY_TDV 12
  50.  
  51. #define MEMBUF 0xF
  52. #define MEMARR 0xF
  53.  
  54. char   os_name[8]   = {'M','E','N','U','E','T','0','1'};
  55. dword  os_version   = 0x00000001;
  56. dword  start_addr   = #______INIT______;
  57. dword  final_addr   = #______STOP______+32;
  58. dword  alloc_mem    = 160000;
  59. dword  x86esp_reg   = 160000;
  60. dword  I_Param      = #param;
  61. dword  I_Path       = #program_path;
  62. char param[4096]={0};
  63. char program_path[4096]={0};
  64.  
  65. :dword arraySymbolHEX = "0123456789ABCDEF";
  66. :dword libPath = "/sys/lib/";
  67. :dword HASH = 0;
  68. :dword TEMP = 0;
  69. :dword RDATA[30] = {0};
  70.  
  71. // global variable
  72. :dword X = 0;
  73. :dword Y = 0;
  74. :dword Z = 0;
  75. :dword A = 0;
  76. :dword B = 0;
  77. :dword C = 0;
  78. :dword D = 0;
  79. :dword E = 0;
  80. :dword F = 0;
  81.  
  82. :dword beginStack = 0;
  83.  
  84. :dword COUNT_CONST = 0;
  85.  
  86. :byte std__STRING = 0;
  87. :byte std__INTEGER = 1;
  88.  
  89. :byte S = 0;
  90. //--------------
  91.  
  92. :struct f70{
  93.         dword   func;
  94.         dword   param1;
  95.         dword   param2;
  96.         dword   param3;
  97.         dword   param4;
  98.         char    rezerv;
  99.         dword   name;
  100. };
  101.