forked from KolibriOS/kolibrios
158 lines
6.0 KiB
Plaintext
158 lines
6.0 KiB
Plaintext
|
//===== <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>६<EFBFBD><E0A5AC><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
// ---- <20><><EFBFBD><EFBFBD>ଠ<EFBFBD><E0ACA0><EFBFBD> <20><> tokens
|
|||
|
dword tok=0;
|
|||
|
dword type=0;
|
|||
|
dword src=0;
|
|||
|
dword post=0;
|
|||
|
dword number=0;
|
|||
|
byte string[STRLEN]=0;
|
|||
|
dword tok2=0;
|
|||
|
dword type2=0;
|
|||
|
dword src2=0;
|
|||
|
dword post2=0;
|
|||
|
dword number2=0;
|
|||
|
dword modline=0;
|
|||
|
byte string2[STRLEN]=0;
|
|||
|
// ---- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>ࠢ<EFBFBD><E0A0A2><EFBFBD>騥 䫠<><E4ABA0>
|
|||
|
dword currmod=0; // <20><><EFBFBD><EFBFBD><EFBFBD> ⥪<>饣<EFBFBD> 䠩<><E4A0A9>
|
|||
|
dword displaytokerrors=1;// <20><><EFBFBD><EFBFBD> <20>뢮<EFBFBD><EBA2AE> ᮮ<>饭 <20> <20><> <20><> <20><><EFBFBD>
|
|||
|
dword error=0; // <20><><EFBFBD><EFBFBD>ন<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> ⥪<>饩 <20>訡<EFBFBD>
|
|||
|
dword maxerrors = 16; // <20>।<EFBFBD><E0A5A4> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>訡<EFBFBD><E8A8A1>
|
|||
|
dword makemapfile=0; // <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> MAP-䠩<><E4A0A9>
|
|||
|
dword dbg=0; // <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> TDS-䠩<><E4A0A9> <20><><EFBFBD> TD32
|
|||
|
dword dbginfo=0; // <20><><EFBFBD><EFBFBD><EFBFBD>⥫<EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> dbg <20><><EFBFBD><EFBFBD>ଠ樥<E0ACA0> (<28><>.<2E><><EFBFBD>ᠭ<EFBFBD><E1A0AD> <20> enum dbg_...)
|
|||
|
dword dbgs=0; // <20><><EFBFBD><EFBFBD>騩 㪠<><E3AAA0>⥫<EFBFBD> <20> dbginfo
|
|||
|
dword input=0; // <20><><EFBFBD><EFBFBD><EFBFBD>⥫<EFBFBD> <20><> <20><>砫<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E1AAAE> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20>室<EFBFBD><E5AEA4><EFBFBD> 䠩<><E4A0A9><EFBFBD>
|
|||
|
dword inptr=0; // <20><><EFBFBD><EFBFBD><EFBFBD>⥫<EFBFBD> <20><> ⥪<><E2A5AA> ᨬ<><E1A8AC><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> input
|
|||
|
dword inptr2=0; // <20><><EFBFBD><EFBFBD><EFBFBD> inptr
|
|||
|
dword endoffile=0; // <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> 䠩<><E4A0A9>
|
|||
|
dword totallines=1; // <20><>饥 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⢮ <20>⪮<EFBFBD><E2AAAE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E0AEA2><EFBFBD><EFBFBD><EFBFBD> <20><>ப
|
|||
|
dword linenumber=0; // <20><><EFBFBD><EFBFBD><EFBFBD> ⥪<>饩 <20><>ப<EFBFBD>
|
|||
|
dword linenum2=0; // <20><><EFBFBD><EFBFBD><EFBFBD> <><E1ABA5><EFBFBD>饩 <20><>ப<EFBFBD>
|
|||
|
dword list=0; // <20><><EFBFBD><EFBFBD> <20>뤠<EFBFBD><EBA4A0> <20><><EFBFBD>⨭<EFBFBD><E2A8AD>
|
|||
|
dword label=0; // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>⮪
|
|||
|
dword mapfile=0; // Handle <20><><EFBFBD> MAP 䠩<><E4A0A9>
|
|||
|
dword module=0; // <20><><EFBFBD><EFBFBD>稪 <20>⪮<EFBFBD><E2AAAE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E0AEA2><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>㫥<EFBFBD>
|
|||
|
dword outptr=0; // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> output
|
|||
|
dword output=0; // <20><><EFBFBD><EFBFBD><EFBFBD>⥫<EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
dword localsize=0; // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>⥪<EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>묨 <20><>६<EFBFBD><E0A5AC><EFBFBD>묨
|
|||
|
dword posttype=0; // <20><><EFBFBD><EFBFBD><EFBFBD>⥫<EFBFBD> <20><> ⨯ POST
|
|||
|
dword postloc=0; // <20><><EFBFBD><EFBFBD><EFBFBD>⥫<EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> output
|
|||
|
dword postnum=0; // <20><><EFBFBD><EFBFBD><EFBFBD>⥫<EFBFBD> <20><> <20><><EFBFBD>祭<EFBFBD><E7A5AD> <20><> postloc
|
|||
|
dword posts=0; // <20><><EFBFBD><EFBFBD><EFBFBD> ⥪<>饩 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> posttype, postloc <20> postnum
|
|||
|
dword postsize=0; // <20>㬬<EFBFBD><E3ACAC><EFBFBD><EFBFBD><EFBFBD> ࠧ<><E0A0A7><EFBFBD> <20><><EFBFBD><EFBFBD> post-<2D><>६<EFBFBD><E0A5AC><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
dword poststrptr=MAXDATA-1; // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20>뢮<EFBFBD><EBA2AE> post-<2D><>ப
|
|||
|
dword procedure_start=0;// <20><><EFBFBD><EFBFBD><EFBFBD> <20><>砫<EFBFBD> <20><><EFBFBD>楤<EFBFBD><E6A5A4><EFBFBD>
|
|||
|
dword runfilesize=0;
|
|||
|
dword startptr=0; // <20><><EFBFBD><EFBFBD><EFBFBD>⥫<EFBFBD> <20><> main()
|
|||
|
dword treestart=0; // <20><><EFBFBD><EFBFBD><EFBFBD>⥫<EFBFBD> <20><> <20><>砫<EFBFBD> ᯨ᪠ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>䨪<EFBFBD><E4A8AA><EFBFBD>
|
|||
|
dword treeptr=0; // <20><><EFBFBD><EFBFBD><EFBFBD>⥫<EFBFBD> <20><> ⥪<><E2A5AA><EFBFBD> <09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> ᯨ᪥ <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
|
|||
|
dword locallist = NULL; // <20><><EFBFBD><EFBFBD><EFBFBD>⥫<EFBFBD> <20><> <20><>砫<EFBFBD> ᯨ᪠ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>६<EFBFBD><E0A5AC><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
dword localptr=NULL; // <20><><EFBFBD><EFBFBD><EFBFBD>⥫<EFBFBD> <20><> ⥪<><E2A5AA><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> ᯨ᪥ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
dword DLLcount=0; // <20><><EFBFBD><EFBFBD>稪 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E0AEA2><EFBFBD><EFBFBD><EFBFBD> DLL
|
|||
|
dword APIcount=0; // <20><><EFBFBD><EFBFBD>稪 <20>ᯮ<EFBFBD><E1AFAE><EFBFBD>㥬<EFBFBD><E3A5AC> API
|
|||
|
dword importFlag=0; // <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> DLL
|
|||
|
dword DLLlist[MAXDLLS];
|
|||
|
byte currentfilename[FILENAMESIZE] = 0;
|
|||
|
byte inputfile[FILENAMESIZE]=0;
|
|||
|
byte rawfilename[FILENAMESIZE]=0;
|
|||
|
byte mapstr[120]=0;
|
|||
|
// ---- DOS&PE headers
|
|||
|
word exeheader[34]={
|
|||
|
0x5A4D,0x40,1,0,2,0,0xFFFF,0,
|
|||
|
0,0,0,0,0x40,0,0,0,
|
|||
|
0xC88C,0xD88E,0x0FBA,0xB400,0xCD09,0xB821,0x4C00,0x21CD,
|
|||
|
0x6957,0x336E,0x2032,0x6E6F,0x796C,0x2421,0x40,0,
|
|||
|
0x4550,0};
|
|||
|
// PE Header
|
|||
|
//unsigned dword PEsign = 0x4550;
|
|||
|
word PEmachine=0x14C; // target machine = Intel 386
|
|||
|
word PEnSections=1; // XAC - only .text!!! number of sections in Sections table
|
|||
|
word PEDate=0;
|
|||
|
word PEtime=0;
|
|||
|
dword PEpSymbolTable=0; // Offset within COFF file of the symbol table
|
|||
|
dword PEnSymbols=0; // number of entries in the symbol table
|
|||
|
word PEOptHeaderSize=0xE0; // Size of optional header
|
|||
|
word PECharacteristics=0x30E; //0x30E 32-bit+...
|
|||
|
// Optional header (only in EX image)
|
|||
|
word OptMagic=0x10B; // normal executable
|
|||
|
byte OptLmajor=2; // Linker major version number
|
|||
|
byte OptLminor=0x37; // Linker minor version number
|
|||
|
dword OptCodeSize=0; // Size of the code section
|
|||
|
dword OptInitDataSize=0; // Size of the initialized data section
|
|||
|
dword OptUninitDataSize=0;// Size of the uninitialized data section (BSS)
|
|||
|
dword OptEntryPointRVA=0x1000;// Address of entry point, relative to image base
|
|||
|
dword OptBaseOfCode=0x1000;// Address realtive to image base
|
|||
|
dword OptBaseOfData=0;//Address realtive to image base
|
|||
|
dword OptImageBase=0x00400000;// Preferred address of first byte of image
|
|||
|
dword OptSectionAlignment=0x1000;
|
|||
|
dword OptFileAlignment=0x200;
|
|||
|
word OptOSmajor=1;
|
|||
|
word OptOSminor=0;
|
|||
|
dword OptUserVersion=0;
|
|||
|
word OptSubSysMajor=4;
|
|||
|
word OptSubSysMinor=0;
|
|||
|
dword OptReserved=0;
|
|||
|
dword OptImageSize=0x0; // Size of image, including all headers
|
|||
|
dword OptHeaderSize=0x200; //DOSheader+PEheader+ObjectTable
|
|||
|
dword OptFileChecksum=0; // Image file checksum
|
|||
|
word OptSubSystem=3; // 2-GUI; 3-console
|
|||
|
word OptDLLflag=0;
|
|||
|
dword OptStackReserveSize=0x100000;
|
|||
|
dword OptStackCommitSixe=0x1000;
|
|||
|
dword OptHeapReserveSize=0x100000;
|
|||
|
dword OptHeapCommitSize=0x1000;
|
|||
|
dword OptLoaderSize=0;
|
|||
|
dword OptNumOfDataDirectories=16;
|
|||
|
// Optional header Data Directories
|
|||
|
dword OptExportTableAdr=0;
|
|||
|
dword OptExportTableSize=0;
|
|||
|
dword OptImportTableAdr=0;
|
|||
|
dword OptImportTableSize=0;
|
|||
|
dword OptResourceTableAdr=0;
|
|||
|
dword OptResourceTablesize=0;
|
|||
|
dword OptExceptionTableAdr=0;
|
|||
|
dword OptExceptionTableSize=0;
|
|||
|
dword OptSecurityTableAdr=0;
|
|||
|
dword OptSecurityTableSize=0;
|
|||
|
dword OptBaseRelocationTableAdr=0;
|
|||
|
dword OptBaseRelocationTableSize=0;
|
|||
|
dword OptDebugAdr=0;
|
|||
|
dword OptDebugSize=0;
|
|||
|
dword OptCopyrightAdr=0;
|
|||
|
dword OptCopyrightSize=0;
|
|||
|
dword OptGlobalPtrAdr=0;
|
|||
|
dword OptGlobalPtrSize=0;
|
|||
|
dword OptTLStableAdr=0;
|
|||
|
dword OptTLStablesize=0;
|
|||
|
dword OptLoadConfigTableAdr=0;
|
|||
|
dword OptLoadConfigTableSize=0;
|
|||
|
dword OptReserved2[10]={0,0,0,0,0,0,0,0,0,0};
|
|||
|
// Sections Table
|
|||
|
// TEXT section header
|
|||
|
byte TxtSectionName[8]=".text";
|
|||
|
dword TxtVirtualSize=0;
|
|||
|
dword TxtRVAoffset=0x1000;
|
|||
|
dword TxtSizeOfRawData=0;
|
|||
|
dword TxtPointerToRawData=0x200;
|
|||
|
dword TxtPointerToRelocs=0;
|
|||
|
dword TxtPointerToLinenumbers=0;
|
|||
|
word TxtNumberOfRelocs=0;
|
|||
|
word TxtNumberOfLinenumbers=0;
|
|||
|
dword TxtSectionFlags=0xE00000E0; // can be executed + contain executable code
|
|||
|
// ---- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <09>㥬<EFBFBD><E3A5AC> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
dword stdout; // Handle to stdout
|
|||
|
byte cha,cha2;
|
|||
|
dword numberofids;
|
|||
|
dword current_proc_type; // <20><><EFBFBD> ⥪<>饩 <20><><EFBFBD>楤<EFBFBD><E6A5A4><EFBFBD> (cpt_near, cpt_far)
|
|||
|
dword returntype; // <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>頥<EFBFBD><E9A0A5><EFBFBD><EFBFBD> <20><><EFBFBD>祭<EFBFBD><E7A5AD> (void, byte, word, ...)
|
|||
|
dword paramsize;
|
|||
|
dword relation;
|
|||
|
dword startlabel,endlabel;
|
|||
|
byte modules[MAXMDL*FILENAMESIZE];
|
|||
|
dword St_Mnemonics[26];
|
|||
|
dword St_Registers[26];
|
|||
|
dword St_Directives[26];
|
|||
|
dword St_Sizes[26];
|
|||
|
byte Buffer16[64]; // <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <09><>ப
|