Subversion Repositories Kolibri OS

Rev

Rev 7302 | Go to most recent revision | Blame | Last modification | View Log | Download | RSS feed

  1. // Author: pavelyakov
  2.  
  3. #pragma option OST
  4. #pragma option ON
  5. #pragma option cri-
  6. #pragma option -CPA
  7. #initallvar 0
  8. #jumptomain FALSE
  9.  
  10. #startaddress 65536
  11.  
  12. #code32 TRUE
  13.  
  14. #define PY_NONE 0
  15. #define PY_BOOL 1
  16. #define PY_INT 2
  17. #define PY_FLT 3
  18. #define PY_STR 4
  19. #define PY_FNC 6
  20. #define PY_CPL 7
  21. #define PY_LST 8
  22. #define PY_TPL 9
  23. #define PY_RNG 10
  24. #define PY_BTS 11
  25. #define PY_BTA 12
  26. #define PY_MVW 13
  27. #define PY_SET 14
  28. #define PY_FST 15
  29. #define PY_DCT 16
  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.  
  45. char   os_name[8]   = {'M','E','N','U','E','T','0','1'};
  46. dword  os_version   = 0x00000001;
  47. dword  start_addr   = #______INIT______;
  48. dword  final_addr   = #______STOP______+32;
  49. dword  alloc_mem    = 160000;
  50. dword  x86esp_reg   = 160000;
  51. dword  I_Param      = #param;
  52. dword  I_Path       = #program_path;
  53. char param[4096]={0};
  54. char program_path[4096]={0};
  55.  
  56. dword HASH = 0;
  57.  
  58. :struct f70{
  59.         dword   func;
  60.         dword   param1;
  61.         dword   param2;
  62.         dword   param3;
  63.         dword   param4;
  64.         char    rezerv;
  65.         dword   name;
  66. };
  67.