Subversion Repositories Kolibri OS

Rev

Go to most recent revision | 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.  
  29. #define PY_NA_STR 32
  30.  
  31. #define PY_ADD 0
  32. #define PY_POW 1
  33. #define PY_MUL 2
  34. #define PY_SUB 3
  35. #define PY_DIV 4
  36. #define PY_MOD 5
  37. #define PY_XOR 6
  38. #define PY_AND 7
  39. #define PY__OR 8
  40. #define PY_LSH 9
  41. #define PY_RSH 10
  42.  
  43. #define MEMBUF 0xF
  44. #define MEMARR 0xF
  45.  
  46. char   os_name[8]   = {'M','E','N','U','E','T','0','1'};
  47. dword  os_version   = 0x00000001;
  48. dword  start_addr   = #______INIT______;
  49. dword  final_addr   = #______STOP______+32;
  50. dword  alloc_mem    = 160000;
  51. dword  x86esp_reg   = 160000;
  52. dword  I_Param      = #param;
  53. dword  I_Path       = #program_path;
  54. char param[4096]={0};
  55. char program_path[4096]={0};
  56.  
  57. :dword arraySymbolHEX = "0123456789ABCDEF";
  58. :dword HASH = 0;
  59. :dword TEMP = 0;
  60.  
  61. :struct f70{
  62.         dword   func;
  63.         dword   param1;
  64.         dword   param2;
  65.         dword   param3;
  66.         dword   param4;
  67.         char    rezerv;
  68.         dword   name;
  69. };
  70.