forked from KolibriOS/kolibrios
67 lines
1.3 KiB
C
67 lines
1.3 KiB
C
// Author: pavelyakov
|
|
|
|
#pragma option OST
|
|
#pragma option ON
|
|
#pragma option cri-
|
|
#pragma option -CPA
|
|
#initallvar 0
|
|
#jumptomain FALSE
|
|
|
|
#startaddress 65536
|
|
|
|
#code32 TRUE
|
|
|
|
#define PY_NONE 0
|
|
#define PY_BOOL 1
|
|
#define PY_INT 2
|
|
#define PY_FLT 3
|
|
#define PY_STR 4
|
|
#define PY_FNC 6
|
|
#define PY_CPL 7
|
|
#define PY_LST 8
|
|
#define PY_TPL 9
|
|
#define PY_RNG 10
|
|
#define PY_BTS 11
|
|
#define PY_BTA 12
|
|
#define PY_MVW 13
|
|
#define PY_SET 14
|
|
#define PY_FST 15
|
|
#define PY_DCT 16
|
|
|
|
#define PY_ADD 0
|
|
#define PY_POW 1
|
|
#define PY_MUL 2
|
|
#define PY_SUB 3
|
|
#define PY_DIV 4
|
|
#define PY_MOD 5
|
|
#define PY_XOR 6
|
|
#define PY_AND 7
|
|
#define PY__OR 8
|
|
#define PY_LSH 9
|
|
#define PY_RSH 10
|
|
|
|
#define MEMBUF 0xF
|
|
|
|
char os_name[8] = {'M','E','N','U','E','T','0','1'};
|
|
dword os_version = 0x00000001;
|
|
dword start_addr = #______INIT______;
|
|
dword final_addr = #______STOP______+32;
|
|
dword alloc_mem = 160000;
|
|
dword x86esp_reg = 160000;
|
|
dword I_Param = #param;
|
|
dword I_Path = #program_path;
|
|
char param[4096]={0};
|
|
char program_path[4096]={0};
|
|
|
|
dword HASH = 0;
|
|
|
|
:struct f70{
|
|
dword func;
|
|
dword param1;
|
|
dword param2;
|
|
dword param3;
|
|
dword param4;
|
|
char rezerv;
|
|
dword name;
|
|
};
|