kolibrios-gitea/programs/develop/cmm/outle.cpp

#include "tok.h"
#include "le.h"

#define _OUTLE_

unsigned short swapshort(unsigned int var)
{
unsigned short h,l;
	l=var>>8;
	h=var<<8;
	return l|h;
}

int MakeBin32()
{
	hout=CreateOutPut(outext,"wb");
	if(fwrite(output,outptr,1,hout)!=1){
		ErrWrite();
		fclose(hout);
		hout=NULL;
		return(-1);
	}
	return 0;
}

unsigned int EntryParamStr()
{
ITOK btok;
int bb=tk_id;
unsigned char *buf=(unsigned char *)"__bufcomstr";
	btok.number=0;
	searchtree(&btok,&bb,buf);
	if(bb==tk_id)btok.number=0;
	else{
		btok.number+=outptrdata;
		if((outptrdata%2)==1)btok.number++;	/* alignment of entire post data block manditory */
	}
	return btok.number;
}

int MakeMEOS()
{
MEOSheader hdr;
	hout=CreateOutPut(outext,"wb");
	strcpy((char *)hdr.sign,"MENUET01");
	hdr.vers=1;
	hdr.start=EntryPoint();
	hdr.size=outptr;
	hdr.alloc_mem=Align(outptr+postsize+stacksize,16);
	hdr.esp=hdr.alloc_mem-4;
	hdr.I_Param=EntryParamStr();
	hdr.I_Icon=0;
	memcpy(output+startptr,&hdr,sizeof(MEOSheader));
	if(fwrite(output,outptr,1,hout)!=1){
		ErrWrite();
		fclose(hout);
		hout=NULL;
		return(-1);
	}
	return 0;
}

int MakeLE()
{
LE_Header hdr;
Object_Table ot[2];
Page_Map_Table *pmt;
unsigned int i;
int headerofs;
int headsize=sizeof(LE_Header);
unsigned long *fpto;
int sizeb;
	CreatStub(stubfile);
	memset(&hdr,0,sizeof(LE_Header));
#ifdef _WC_
	hdr.Signature='EL';
#else
	hdr.Signature='LE';
#endif
	hdr.CPU_Type=i80386;
	hdr.Target_OS=1;
	hdr.Type_Flags=0x200;
	hdr.Number_Of_Memory_Pages=outptr/0x1000+1;
	hdr.Initial_CS=1;
	hdr.Initial_EI=EntryPoint();
	hdr.Initial_SS=2;
	hdr.Initial_ESP=stacksize;
	hdr.Memory_Page_Size=0x1000;
	hdr.Bytes_On_Last_Page=outptr%0x1000;
	hdr.Object_Table_Offset=sizeof(LE_Header);
	hdr.Object_Table_Entries=2;
	headerofs=ftell(hout);
	if(fwrite(&hdr,sizeof(LE_Header),1,hout)!=1){
errwrite:
		ErrWrite();
		fclose(hout);
		hout=NULL;
		return(-1);
	}

	ot[0].Virtual_Segment_Size=outptr+postsize;//hdr.Initial_ESP;
	ot[0].Relocation_Base_Address=0x10000;
	ot[0].ObjTableFlags=0x2045;
	ot[0].Page_MAP_Index=1;
	ot[0].Page_MAP_Entries=hdr.Number_Of_Memory_Pages;
	ot[1].Virtual_Segment_Size=hdr.Initial_ESP;
	ot[1].Relocation_Base_Address=Align(outptr+postsize,0x10000)+0x10000;
	ot[1].ObjTableFlags=0x2043;
	ot[1].Page_MAP_Index=2;
	ot[0].Reserved=ot[1].Reserved=ot[1].Page_MAP_Entries=0;
	if(fwrite(&ot,sizeof(Object_Table)*2,1,hout)!=1)goto errwrite;
	hdr.Object_Page_Map_Table_Offset=headsize+=sizeof(Object_Table)*2;

	sizeb=sizeof(Page_Map_Table)*hdr.Number_Of_Memory_Pages;
	pmt=(Page_Map_Table *)MALLOC(sizeb);
	for(i=0;i<hdr.Number_Of_Memory_Pages;i++){
		(pmt+i)->High_Page_Number=swapshort(((i+1)/256));
		(pmt+i)->Low_Page_Number=(unsigned char)((i+1)%256);
		(pmt+i)->FLAGS=0;
	}
	if(fwrite(pmt,sizeb,1,hout)!=1)goto errwrite;
	free(pmt);
	hdr.Resource_Table_Offset=hdr.Resident_Names_Table_Offset=headsize+=sizeb;

	i=strlen(rawfilename);
	string2[0]=(unsigned char)i;
	strcpy((char *)&string2[1],rawfilename);
	*(long *)&string2[i+2]=0;
	if(fwrite(string2,i+5,1,hout)!=1)goto errwrite;

	hdr.Entry_Table_Offset=headsize+=i+4;
	headsize++;
	sizeb=sizeof(unsigned long)*(hdr.Number_Of_Memory_Pages+1);
	fpto=(unsigned long *)MALLOC(sizeb);
	hdr.Fixup_Page_Table_Offset=headsize;
	memset(fpto,0,sizeb);
//	for(i=0;i<(hdr.Number_Of_Memory_Pages+1);i++){
//		fpto[i]=0;
//	}
	if(fwrite(fpto,sizeb,1,hout)!=1)goto errwrite;
	headsize+=sizeb;

//Fixup_Record_Table
int sizefixpage=0;
	hdr.Fixup_Record_Table_Offset=headsize;
	for(i=0;i<hdr.Number_Of_Memory_Pages;i++){
		unsigned int startblc=i*4096;	//<2F><><EFBFBD><EFBFBD><EFBFBD> <20><>ࢮ<EFBFBD><E0A2AE> <20><><EFBFBD><EFBFBD><EFBFBD>
		for(unsigned int j=0;j<posts;j++){	//<2F><>室<EFBFBD><E5AEA4> <20><><EFBFBD> ⠡<><E2A0A1><EFBFBD><EFBFBD> post
			if(((postbuf+j)->type==CALL_32I||
	    ((postbuf+j)->type>=POST_VAR32&&(postbuf+j)->type<=FIX_CODE32))&&
			(postbuf+j)->loc>=startblc&&(postbuf+j)->loc<(startblc+4096)){
				int sizerec;
				string2[0]=7;
				*(unsigned short *)&string2[2]=(unsigned short)((postbuf+j)->loc-startblc);
				string2[4]=1;
				unsigned int val=*(unsigned long *)&output[(postbuf+j)->loc];
				if(val<65536){
					string2[1]=0;
					*(unsigned short *)&string2[5]=(unsigned short)val;
					sizerec=7;
				}
				else{
					string2[1]=0x10;
					*(unsigned long *)&string2[5]=val;
					sizerec=9;
				}
				sizefixpage+=sizerec;
				if(fwrite(string2,sizerec,1,hout)!=1)goto errwrite;
			}
			fpto[i+1]=sizefixpage;
		}
	}
	headsize+=sizefixpage;

//Imported_Procedure_Name_Table
	hdr.Imported_Module_Names_Table_Offset=
			hdr.Imported_Procedure_Name_Table_Offset=headsize;
	string2[0]=0;
	if(fwrite(string2,1,1,hout)!=1)goto errwrite;
	headsize++;


	hdr.Fixup_Section_Size=headsize-hdr.Fixup_Page_Table_Offset;//9+sizefixpage;
	hdr.Loader_Section_Size=headsize-sizeof(LE_Header);
	hdr.Automatic_Data_Object=2;
	hdr.Data_Pages_Offset=Align(headsize+headerofs,16/*1024*/);
	ChSize(hdr.Data_Pages_Offset);

	fseek(hout,headerofs,SEEK_SET);
	if(fwrite(&hdr,sizeof(LE_Header),1,hout)!=1)goto errwrite;
	fseek(hout,headerofs+hdr.Fixup_Page_Table_Offset,SEEK_SET);
	if(fwrite(fpto,sizeof(unsigned long)*(hdr.Number_Of_Memory_Pages+1),1,hout)!=1)goto errwrite;
	free(fpto);

	fseek(hout,0,SEEK_END);
	return 0;
}