bool Program::SetEnv(const char * entry,const char * new_string) {
PhysPt env_read=PhysMake(psp->GetEnvironment(),0);
PhysPt env_write=env_read;
char env_string[1024+1];
do {
MEM_StrCopy(env_read,env_string,1024);
if (!env_string[0]) break;
env_read += (PhysPt)(strlen(env_string)+1);
if (!strchr(env_string,'=')) continue; /* Remove corrupt entry? */
if ((strncasecmp(entry,env_string,strlen(entry))==0) &&
env_string[strlen(entry)]=='=') continue;
MEM_BlockWrite(env_write,env_string,(Bitu)(strlen(env_string)+1));
env_write += (PhysPt)(strlen(env_string)+1);
} while (1);
/* TODO Maybe save the program name sometime. not really needed though */
/* Save the new entry */
if (new_string[0]) {
std::string bigentry(entry);
for (std::string::iterator it = bigentry.begin(); it != bigentry.end(); ++it) *it = toupper(*it);
sprintf(env_string,"%s=%s",bigentry.c_str(),new_string);
// sprintf(env_string,"%s=%s",entry,new_string); //oldcode
MEM_BlockWrite(env_write,env_string,(Bitu)(strlen(env_string)+1));
env_write += (PhysPt)(strlen(env_string)+1);
}
/* Clear out the final piece of the environment */
mem_writed(env_write,0);
return true;
}
Bit8u VESA_GetSVGAInformation(Bit16u seg,Bit16u off) {
/* Fill 256 byte buffer with VESA information */
PhysPt buffer=PhysMake(seg,off);
Bitu i;
bool vbe2=false;Bit16u vbe2_pos=256+off;
Bitu id=mem_readd(buffer);
if (((id==0x56424532)||(id==0x32454256)) && (!int10.vesa_oldvbe)) vbe2=true;
if (vbe2) {
for (i=0;i<0x200;i++) mem_writeb(buffer+i,0);
} else {
for (i=0;i<0x100;i++) mem_writeb(buffer+i,0);
}
/* Fill common data */
MEM_BlockWrite(buffer,(void *)"VESA",4); //Identification
if (!int10.vesa_oldvbe) mem_writew(buffer+0x04,0x200); //Vesa version 2.0
else mem_writew(buffer+0x04,0x102); //Vesa version 1.2
if (vbe2) {
mem_writed(buffer+0x06,RealMake(seg,vbe2_pos));
for (i=0;i<sizeof(string_oem);i++) real_writeb(seg,vbe2_pos++,string_oem[i]);
mem_writew(buffer+0x14,0x200); //VBE 2 software revision
mem_writed(buffer+0x16,RealMake(seg,vbe2_pos));
for (i=0;i<sizeof(string_vendorname);i++) real_writeb(seg,vbe2_pos++,string_vendorname[i]);
mem_writed(buffer+0x1a,RealMake(seg,vbe2_pos));
for (i=0;i<sizeof(string_productname);i++) real_writeb(seg,vbe2_pos++,string_productname[i]);
mem_writed(buffer+0x1e,RealMake(seg,vbe2_pos));
for (i=0;i<sizeof(string_productrev);i++) real_writeb(seg,vbe2_pos++,string_productrev[i]);
} else {
mem_writed(buffer+0x06,int10.rom.oemstring); //Oemstring
}
mem_writed(buffer+0x0a,0x0); //Capabilities and flags
mem_writed(buffer+0x0e,int10.rom.vesa_modes); //VESA Mode list
mem_writew(buffer+0x12,(Bit16u)(vga.vmemsize/(64*1024))); // memory size in 64kb blocks
return VESA_SUCCESS;
}
Bit8u VESA_GetSVGAInformation(Bit16u seg,Bit16u off) {
/* Fill 256 byte buffer with VESA information */
PhysPt buffer=PhysMake(seg,off);
Bitu i;
bool vbe2=false;Bit16u vbe2_pos;
Bitu id=mem_readd(buffer);
if (((id==0x56424532)||(id==0x32454256)) && (!int10.vesa_oldvbe)) vbe2=true;
if (vbe2) {
for (i=0;i<0x200;i++) mem_writeb(buffer+i,0);
} else {
for (i=0;i<0x100;i++) mem_writeb(buffer+i,0);
}
/* Fill common data */
MEM_BlockWrite(buffer,(void *)"VESA",4); //Identification
if (!int10.vesa_oldvbe) mem_writew(buffer+0x04,0x200); //Vesa version 2.0
else mem_writew(buffer+0x04,0x102); //Vesa version 1.2
if (vbe2) {
vbe2_pos=256+off;
mem_writed(buffer+0x06,RealMake(seg,vbe2_pos));
for (i=0;i<sizeof(string_oem);i++) real_writeb(seg,vbe2_pos++,(Bit8u)string_oem[i]);
mem_writew(buffer+0x14,0x200); //VBE 2 software revision
mem_writed(buffer+0x16,RealMake(seg,vbe2_pos));
for (i=0;i<sizeof(string_vendorname);i++) real_writeb(seg,vbe2_pos++,(Bit8u)string_vendorname[i]);
mem_writed(buffer+0x1a,RealMake(seg,vbe2_pos));
for (i=0;i<sizeof(string_productname);i++) real_writeb(seg,vbe2_pos++,(Bit8u)string_productname[i]);
mem_writed(buffer+0x1e,RealMake(seg,vbe2_pos));
for (i=0;i<sizeof(string_productrev);i++) real_writeb(seg,vbe2_pos++,(Bit8u)string_productrev[i]);
} else {
vbe2_pos=0x20+off;
mem_writed(buffer+0x06,int10.rom.oemstring); //Oemstring
}
if (vesa_bios_modelist_in_info) {
/* put the modelist into the VBE struct itself, as modern BIOSes like to do.
* NOTICE: This limits the modelist to what is able to fit! Extended modes may not fit, which is why the option is OFF by default. */
uint16_t modesg = int10.rom.vesa_modes >> 16;
uint16_t modoff = int10.rom.vesa_modes & 0xFFFF;
uint16_t m;
mem_writed(buffer+0x0e,RealMake(seg,vbe2_pos)); //VESA Mode list
do {
if (vbe2) {
if (vbe2_pos >= (509+off)) break;
}
else {
if (vbe2_pos >= (253+off)) break;
}
m = real_readw(modesg,modoff);
if (m == 0xFFFF) break;
real_writew(seg,vbe2_pos,m);
vbe2_pos += 2;
modoff += 2;
} while (1);
real_writew(seg,vbe2_pos,0xFFFF);
}
else {
static Bitu INT70_Handler(void) {
/* Acknowledge irq with cmos */
IO_Write(0x70,0xc);
IO_Read(0x71);
if (mem_readb(BIOS_WAIT_FLAG_ACTIVE)) {
Bit32u count=mem_readd(BIOS_WAIT_FLAG_COUNT);
if (count>997) {
mem_writed(BIOS_WAIT_FLAG_COUNT,count-997);
} else {
mem_writed(BIOS_WAIT_FLAG_COUNT,0);
PhysPt where=Real2Phys(mem_readd(BIOS_WAIT_FLAG_POINTER));
mem_writeb(where,mem_readb(where)|0x80);
mem_writeb(BIOS_WAIT_FLAG_ACTIVE,0);
mem_writed(BIOS_WAIT_FLAG_POINTER,RealMake(0,BIOS_WAIT_FLAG_TEMP));
IO_Write(0x70,0xb);
IO_Write(0x71,IO_Read(0x71)&~0x40);
}
}
/* Signal EOI to both pics */
IO_Write(0xa0,0x20);
IO_Write(0x20,0x20);
return 0;
}
void DOS_Shell::CMD_TIME(char * args) {
HELP("TIME");
if(ScanCMDBool(args,"H")) {
// synchronize time with host parameter
time_t curtime;
struct tm *loctime;
curtime = time (NULL);
loctime = localtime (&curtime);
//reg_cx = loctime->;
//reg_dh = loctime->;
//reg_dl = loctime->;
// reg_ah=0x2d; // set system time TODO
// CALLBACK_RunRealInt(0x21);
Bit32u ticks=(Bit32u)(((double)(loctime->tm_hour*3600+
loctime->tm_min*60+
loctime->tm_sec))*18.206481481);
mem_writed(BIOS_TIMER,ticks);
return;
}
bool timeonly = ScanCMDBool(args,"T");
reg_ah=0x2c; // get system time
CALLBACK_RunRealInt(0x21);
/*
reg_dl= // 1/100 seconds
reg_dh= // seconds
reg_cl= // minutes
reg_ch= // hours
*/
if(timeonly) {
WriteOut("%2u:%02u\n",reg_ch,reg_cl);
} else {
WriteOut(MSG_Get("SHELL_CMD_TIME_NOW"));
WriteOut("%2u:%02u:%02u,%02u\n",reg_ch,reg_cl,reg_dh,reg_dl);
}
};
void DOS_SetupTables(void) {
dos_memseg=0xd000;
Bit16u seg,seg2;Bitu i;
dos.tables.mediaid=RealMake(DOS_GetMemory(4),0);
dos.tables.tempdta=RealMake(DOS_GetMemory(4),0);
dos.tables.tempdta_fcbdelete=RealMake(DOS_GetMemory(4),0);
for (i=0;i<DOS_DRIVES;i++) mem_writew(Real2Phys(dos.tables.mediaid)+i*2,0);
/* Create the DOS Info Block */
dos_infoblock.SetLocation(DOS_INFOBLOCK_SEG); //c2woody
/* create SDA */
DOS_SDA(DOS_SDA_SEG,0).Init();
/* Some weird files >20 detection routine */
/* Possibly obselete when SFT is properly handled */
real_writed(DOS_CONSTRING_SEG,0x0a,0x204e4f43);
real_writed(DOS_CONSTRING_SEG,0x1a,0x204e4f43);
real_writed(DOS_CONSTRING_SEG,0x2a,0x204e4f43);
/* create a CON device driver */
seg=DOS_CONDRV_SEG;
real_writed(seg,0x00,0xffffffff); // next ptr
real_writew(seg,0x04,0x8013); // attributes
real_writed(seg,0x06,0xffffffff); // strategy routine
real_writed(seg,0x0a,0x204e4f43); // driver name
real_writed(seg,0x0e,0x20202020); // driver name
dos_infoblock.SetDeviceChainStart(RealMake(seg,0));
/* Create a fake Current Directory Structure */
seg=DOS_CDS_SEG;
real_writed(seg,0x00,0x005c3a43);
dos_infoblock.SetCurDirStruct(RealMake(seg,0));
/* Allocate DCBS DOUBLE BYTE CHARACTER SET LEAD-BYTE TABLE */
dos.tables.dcbs=RealMake(DOS_GetMemory(12),0);
mem_writed(Real2Phys(dos.tables.dcbs),0); //empty table
/* Create a fake FCB SFT */
seg=DOS_GetMemory(4);
real_writed(seg,0,0xffffffff); //Last File Table
real_writew(seg,4,100); //File Table supports 100 files
dos_infoblock.SetFCBTable(RealMake(seg,0));
/* Create a fake disk buffer head */
seg=DOS_GetMemory(6);
for (Bitu ct=0; ct<0x20; ct++) real_writeb(seg,ct,0);
real_writew(seg,0x00,0xffff); // forward ptr
real_writew(seg,0x02,0xffff); // backward ptr
real_writeb(seg,0x04,0xff); // not in use
real_writeb(seg,0x0a,0x01); // number of FATs
real_writed(seg,0x0d,0xffffffff); // pointer to DPB
dos_infoblock.SetDiskBufferHeadPt(RealMake(seg,0));
/* Set buffers to a nice value */
dos_infoblock.SetBuffers(50,50);
/* case map routine INT 0x21 0x38 */
call_casemap = CALLBACK_Allocate();
CALLBACK_Setup(call_casemap,DOS_CaseMapFunc,CB_RETF,"DOS CaseMap");
/* Add it to country structure */
host_writed(country_info + 0x12, CALLBACK_RealPointer(call_casemap));
dos.tables.country=country_info;
}
void DOS_FCB::SetResult(Bit32u size,Bit16u date,Bit16u time,Bit8u attr) {
mem_writed(pt + 0x1d,size);
mem_writew(pt + 0x19,date);
mem_writew(pt + 0x17,time);
mem_writeb(pt + 0x0c,attr);
}
void DOS_SetupTables(void) {
Bit16u seg;Bitu i;
dos.tables.mediaid=RealMake(DOS_GetMemory(4),0);
dos.tables.tempdta=RealMake(DOS_GetMemory(4),0);
dos.tables.tempdta_fcbdelete=RealMake(DOS_GetMemory(4),0);
for (i=0;i<DOS_DRIVES;i++) mem_writew(Real2Phys(dos.tables.mediaid)+i*2,0);
/* Create the DOS Info Block */
dos_infoblock.SetLocation(DOS_INFOBLOCK_SEG); //c2woody
/* create SDA */
DOS_SDA(DOS_SDA_SEG,0).Init();
/* Some weird files >20 detection routine */
/* Possibly obselete when SFT is properly handled */
real_writed(DOS_CONSTRING_SEG,0x0a,0x204e4f43);
real_writed(DOS_CONSTRING_SEG,0x1a,0x204e4f43);
real_writed(DOS_CONSTRING_SEG,0x2a,0x204e4f43);
/* create a CON device driver */
seg=DOS_CONDRV_SEG;
real_writed(seg,0x00,0xffffffff); // next ptr
real_writew(seg,0x04,0x8013); // attributes
real_writed(seg,0x06,0xffffffff); // strategy routine
real_writed(seg,0x0a,0x204e4f43); // driver name
real_writed(seg,0x0e,0x20202020); // driver name
dos_infoblock.SetDeviceChainStart(RealMake(seg,0));
/* Create a fake Current Directory Structure */
seg=DOS_CDS_SEG;
real_writed(seg,0x00,0x005c3a43);
dos_infoblock.SetCurDirStruct(RealMake(seg,0));
/* Allocate DCBS DOUBLE BYTE CHARACTER SET LEAD-BYTE TABLE */
dos.tables.dbcs=RealMake(DOS_GetMemory(12),0);
mem_writed(Real2Phys(dos.tables.dbcs),0); //empty table
/* FILENAME CHARACTER TABLE */
dos.tables.filenamechar=RealMake(DOS_GetMemory(2),0);
mem_writew(Real2Phys(dos.tables.filenamechar)+0x00,0x16);
mem_writeb(Real2Phys(dos.tables.filenamechar)+0x02,0x01);
mem_writeb(Real2Phys(dos.tables.filenamechar)+0x03,0x00); // allowed chars from
mem_writeb(Real2Phys(dos.tables.filenamechar)+0x04,0xff); // ...to
mem_writeb(Real2Phys(dos.tables.filenamechar)+0x05,0x00);
mem_writeb(Real2Phys(dos.tables.filenamechar)+0x06,0x00); // excluded chars from
mem_writeb(Real2Phys(dos.tables.filenamechar)+0x07,0x20); // ...to
mem_writeb(Real2Phys(dos.tables.filenamechar)+0x08,0x02);
mem_writeb(Real2Phys(dos.tables.filenamechar)+0x09,0x0e); // number of illegal separators
mem_writeb(Real2Phys(dos.tables.filenamechar)+0x0a,0x2e);
mem_writeb(Real2Phys(dos.tables.filenamechar)+0x0b,0x22);
mem_writeb(Real2Phys(dos.tables.filenamechar)+0x0c,0x2f);
mem_writeb(Real2Phys(dos.tables.filenamechar)+0x0d,0x5c);
mem_writeb(Real2Phys(dos.tables.filenamechar)+0x0e,0x5b);
mem_writeb(Real2Phys(dos.tables.filenamechar)+0x0f,0x5d);
mem_writeb(Real2Phys(dos.tables.filenamechar)+0x10,0x3a);
mem_writeb(Real2Phys(dos.tables.filenamechar)+0x11,0x7c);
mem_writeb(Real2Phys(dos.tables.filenamechar)+0x12,0x3c);
mem_writeb(Real2Phys(dos.tables.filenamechar)+0x13,0x3e);
mem_writeb(Real2Phys(dos.tables.filenamechar)+0x14,0x2b);
mem_writeb(Real2Phys(dos.tables.filenamechar)+0x15,0x3d);
mem_writeb(Real2Phys(dos.tables.filenamechar)+0x16,0x3b);
mem_writeb(Real2Phys(dos.tables.filenamechar)+0x17,0x2c);
/* COLLATING SEQUENCE TABLE + UPCASE TABLE*/
// 256 bytes for col table, 128 for upcase, 4 for number of entries
dos.tables.collatingseq=RealMake(DOS_GetMemory(25),0);
mem_writew(Real2Phys(dos.tables.collatingseq),0x100);
for (i=0; i<256; i++) mem_writeb(Real2Phys(dos.tables.collatingseq)+i+2,i);
dos.tables.upcase=dos.tables.collatingseq+258;
mem_writew(Real2Phys(dos.tables.upcase),0x80);
for (i=0; i<128; i++) mem_writeb(Real2Phys(dos.tables.upcase)+i+2,0x80+i);
/* Create a fake FCB SFT */
seg=DOS_GetMemory(4);
real_writed(seg,0,0xffffffff); //Last File Table
real_writew(seg,4,100); //File Table supports 100 files
dos_infoblock.SetFCBTable(RealMake(seg,0));
/* Create a fake DPB */
dos.tables.dpb=DOS_GetMemory(2);
for(Bitu d=0;d<26;d++) real_writeb(dos.tables.dpb,d,d);
/* Create a fake disk buffer head */
seg=DOS_GetMemory(6);
for (Bitu ct=0; ct<0x20; ct++) real_writeb(seg,ct,0);
real_writew(seg,0x00,0xffff); // forward ptr
real_writew(seg,0x02,0xffff); // backward ptr
real_writeb(seg,0x04,0xff); // not in use
real_writeb(seg,0x0a,0x01); // number of FATs
real_writed(seg,0x0d,0xffffffff); // pointer to DPB
dos_infoblock.SetDiskBufferHeadPt(RealMake(seg,0));
/* Set buffers to a nice value */
dos_infoblock.SetBuffers(50,50);
/* case map routine INT 0x21 0x38 */
call_casemap = CALLBACK_Allocate();
CALLBACK_Setup(call_casemap,DOS_CaseMapFunc,CB_RETF,"DOS CaseMap");
/* Add it to country structure */
host_writed(country_info + 0x12, CALLBACK_RealPointer(call_casemap));
dos.tables.country=country_info;
}
bool INT10_VideoState_Restore(Bitu state,RealPt buffer) {
Bitu ct;
if ((state&7)==0) return false;
Bit16u base_seg=RealSeg(buffer);
Bit16u base_dest;
if (state&1) {
base_dest=real_readw(base_seg,RealOff(buffer));
Bit16u crt_reg=real_readw(base_seg,base_dest+0x40);
// reprogram for full access to plane latches
IO_WriteW(0x3c4,0x0704);
IO_WriteW(0x3ce,0x0406);
IO_WriteW(0x3ce,0x0005);
IO_WriteW(0x3c4,0x0002);
mem_writeb(0xaffff,real_readb(base_seg,base_dest+0x42));
IO_WriteW(0x3c4,0x0102);
mem_writeb(0xaffff,real_readb(base_seg,base_dest+0x43));
IO_WriteW(0x3c4,0x0202);
mem_writeb(0xaffff,real_readb(base_seg,base_dest+0x44));
IO_WriteW(0x3c4,0x0402);
mem_writeb(0xaffff,real_readb(base_seg,base_dest+0x45));
IO_WriteW(0x3c4,0x0f02);
mem_readb(0xaffff);
IO_WriteW(0x3c4,0x0100);
// sequencer
for (ct=1; ct<5; ct++) {
IO_WriteW(0x3c4,ct+(real_readb(base_seg,base_dest+0x04+ct)<<8));
}
IO_WriteB(0x3c2,real_readb(base_seg,base_dest+0x09));
IO_WriteW(0x3c4,0x0300);
IO_WriteW(crt_reg,0x0011);
// crt controller
for (ct=0; ct<0x19; ct++) {
IO_WriteW(crt_reg,ct+(real_readb(base_seg,base_dest+0x0a+ct)<<8));
}
IO_ReadB(crt_reg+6);
// attr registers
for (ct=0; ct<4; ct++) {
IO_WriteB(0x3c0,0x10+ct);
IO_WriteB(0x3c0,real_readb(base_seg,base_dest+0x33+ct));
}
// graphics registers
for (ct=0; ct<9; ct++) {
IO_WriteW(0x3ce,ct+(real_readb(base_seg,base_dest+0x37+ct)<<8));
}
IO_WriteB(crt_reg+6,real_readb(base_seg,base_dest+0x04));
IO_ReadB(crt_reg+6);
// attr registers
for (ct=0; ct<0x10; ct++) {
IO_WriteB(0x3c0,ct);
IO_WriteB(0x3c0,real_readb(base_seg,base_dest+0x23+ct));
}
IO_WriteB(0x3c4,real_readb(base_seg,base_dest+0x00));
IO_WriteB(0x3d4,real_readb(base_seg,base_dest+0x01));
IO_WriteB(0x3ce,real_readb(base_seg,base_dest+0x02));
IO_ReadB(crt_reg+6);
IO_WriteB(0x3c0,real_readb(base_seg,base_dest+0x03));
}
if (state&2) {
base_dest=real_readw(base_seg,RealOff(buffer)+2);
mem_writeb(0x410,(mem_readb(0x410)&0xcf) | real_readb(base_seg,base_dest+0x00));
for (ct=0; ct<0x1e; ct++) {
mem_writeb(0x449+ct,real_readb(base_seg,base_dest+0x01+ct));
}
for (ct=0; ct<0x07; ct++) {
mem_writeb(0x484+ct,real_readb(base_seg,base_dest+0x1f+ct));
}
mem_writed(0x48a,real_readd(base_seg,base_dest+0x26));
mem_writed(0x14,real_readd(base_seg,base_dest+0x2a)); // int 5
mem_writed(0x74,real_readd(base_seg,base_dest+0x2e)); // int 1d
mem_writed(0x7c,real_readd(base_seg,base_dest+0x32)); // int 1f
mem_writed(0x10c,real_readd(base_seg,base_dest+0x36)); // int 43
}
if (state&4) {
base_dest=real_readw(base_seg,RealOff(buffer)+4);
Bit16u crt_reg=real_readw(BIOSMEM_SEG,BIOSMEM_CRTC_ADDRESS);
IO_WriteB(0x3c6,real_readb(base_seg,base_dest+0x002));
for (ct=0; ct<0x100; ct++) {
IO_WriteB(0x3c8,ct);
IO_WriteB(0x3c9,real_readb(base_seg,base_dest+0x003+ct*3+0));
IO_WriteB(0x3c9,real_readb(base_seg,base_dest+0x003+ct*3+1));
IO_WriteB(0x3c9,real_readb(base_seg,base_dest+0x003+ct*3+2));
}
IO_ReadB(crt_reg+6);
IO_WriteB(0x3c0,0x14);
IO_WriteB(0x3c0,real_readb(base_seg,base_dest+0x303));
Bitu dac_state=real_readb(base_seg,base_dest+0x000);
if (dac_state==0) {
IO_WriteB(0x3c8,real_readb(base_seg,base_dest+0x001));
} else {
IO_WriteB(0x3c7,real_readb(base_seg,base_dest+0x001));
}
}
if ((svgaCard==SVGA_S3Trio) && (state&8)) {
base_dest=real_readw(base_seg,RealOff(buffer)+6);
Bit16u crt_reg=real_readw(BIOSMEM_SEG,BIOSMEM_CRTC_ADDRESS);
Bitu seq_idx=IO_ReadB(0x3c4);
IO_WriteB(0x3c4,0x08);
// Bitu seq_8=IO_ReadB(0x3c5);
IO_ReadB(0x3c5);
// real_writeb(base_seg,base_dest+0x00,IO_ReadB(0x3c5));
IO_WriteB(0x3c5,0x06); // unlock s3-specific registers
// sequencer
for (ct=0; ct<0x13; ct++) {
IO_WriteW(0x3c4,(0x09+ct)+(real_readb(base_seg,base_dest+0x00+ct)<<8));
}
IO_WriteB(0x3c4,seq_idx);
// Bitu crtc_idx=IO_ReadB(0x3d4);
// unlock s3-specific registers
IO_WriteW(crt_reg,0x4838);
IO_WriteW(crt_reg,0xa539);
// crt controller
Bitu ct_dest=0x13;
for (ct=0; ct<0x40; ct++) {
if ((ct==0x4a-0x30) || (ct==0x4b-0x30)) {
IO_WriteB(crt_reg,0x45);
IO_ReadB(crt_reg+1);
IO_WriteB(crt_reg,0x30+ct);
IO_WriteB(crt_reg,real_readb(base_seg,base_dest+(ct_dest++)));
} else {
IO_WriteW(crt_reg,(0x30+ct)+(real_readb(base_seg,base_dest+(ct_dest++))<<8));
}
}
// mmio
/* IO_WriteB(crt_reg,0x40);
Bitu sysval1=IO_ReadB(crt_reg+1);
IO_WriteB(crt_reg+1,sysval|1);
IO_WriteB(crt_reg,0x53);
Bitu sysva2=IO_ReadB(crt_reg+1);
IO_WriteB(crt_reg+1,sysval2|0x10);
real_writew(0xa000,0x8128,0xffff);
IO_WriteB(crt_reg,0x40);
IO_WriteB(crt_reg,sysval1);
IO_WriteB(crt_reg,0x53);
IO_WriteB(crt_reg,sysval2);
IO_WriteB(crt_reg,crtc_idx); */
}
return true;
}
bool DOS_IOCTL(void) {
Bitu handle=0;Bit8u drive=0;
/* calls 0-4,6,7,10,12,16 use a file handle */
if ((reg_al<4) || (reg_al==0x06) || (reg_al==0x07) || (reg_al==0x0a) || (reg_al==0x0c) || (reg_al==0x10)) {
handle=RealHandle(reg_bx);
if (handle>=DOS_FILES) {
DOS_SetError(DOSERR_INVALID_HANDLE);
return false;
}
if (!Files[handle]) {
DOS_SetError(DOSERR_INVALID_HANDLE);
return false;
}
} else if (reg_al<0x12) { /* those use a diskdrive except 0x0b */
if (reg_al!=0x0b) {
drive=reg_bl;if (!drive) drive = DOS_GetDefaultDrive();else drive--;
if( !(( drive < DOS_DRIVES ) && Drives[drive]) ) {
DOS_SetError(DOSERR_INVALID_DRIVE);
return false;
}
}
} else {
LOG(LOG_DOSMISC,LOG_ERROR)("DOS:IOCTL Call %2X unhandled",reg_al);
DOS_SetError(DOSERR_FUNCTION_NUMBER_INVALID);
return false;
}
switch(reg_al) {
case 0x00: /* Get Device Information */
if (Files[handle]->GetInformation() & 0x8000) { //Check for device
reg_dx=Files[handle]->GetInformation();
} else {
Bit8u hdrive=Files[handle]->GetDrive();
if (hdrive==0xff) {
LOG(LOG_IOCTL,LOG_NORMAL)("00:No drive set");
hdrive=2; // defaulting to C:
}
/* return drive number in lower 5 bits for block devices */
reg_dx=(Files[handle]->GetInformation()&0xffe0)|hdrive;
}
reg_ax=reg_dx; //Destroyed officially
return true;
case 0x01: /* Set Device Information */
if (reg_dh != 0) {
DOS_SetError(DOSERR_DATA_INVALID);
return false;
} else {
if (Files[handle]->GetInformation() & 0x8000) { //Check for device
reg_al=(Bit8u)(Files[handle]->GetInformation() & 0xff);
} else {
DOS_SetError(DOSERR_FUNCTION_NUMBER_INVALID);
return false;
}
}
return true;
case 0x02: /* Read from Device Control Channel */
if (Files[handle]->GetInformation() & 0xc000) {
/* is character device with IOCTL support */
PhysPt bufptr=PhysMake(SegValue(ds),reg_dx);
Bit16u retcode=0;
if (((DOS_Device*)(Files[handle]))->ReadFromControlChannel(bufptr,reg_cx,&retcode)) {
reg_ax=retcode;
return true;
}
}
DOS_SetError(DOSERR_FUNCTION_NUMBER_INVALID);
return false;
case 0x03: /* Write to Device Control Channel */
if (Files[handle]->GetInformation() & 0xc000) {
/* is character device with IOCTL support */
PhysPt bufptr=PhysMake(SegValue(ds),reg_dx);
Bit16u retcode=0;
if (((DOS_Device*)(Files[handle]))->WriteToControlChannel(bufptr,reg_cx,&retcode)) {
reg_ax=retcode;
return true;
}
}
DOS_SetError(DOSERR_FUNCTION_NUMBER_INVALID);
return false;
case 0x06: /* Get Input Status */
if (Files[handle]->GetInformation() & 0x8000) { //Check for device
reg_al=(Files[handle]->GetInformation() & 0x40) ? 0x0 : 0xff;
} else { // FILE
Bit32u oldlocation=0;
Files[handle]->Seek(&oldlocation, DOS_SEEK_CUR);
Bit32u endlocation=0;
Files[handle]->Seek(&endlocation, DOS_SEEK_END);
if(oldlocation < endlocation){//Still data available
reg_al=0xff;
} else {
reg_al=0x0; //EOF or beyond
}
Files[handle]->Seek(&oldlocation, DOS_SEEK_SET); //restore filelocation
LOG(LOG_IOCTL,LOG_NORMAL)("06:Used Get Input Status on regular file with handle %d",handle);
}
return true;
case 0x07: /* Get Output Status */
LOG(LOG_IOCTL,LOG_NORMAL)("07:Fakes output status is ready for handle %d",handle);
reg_al=0xff;
return true;
case 0x08: /* Check if block device removable */
/* cdrom drives and drive a&b are removable */
if (drive < 2) reg_ax=0;
else if (!Drives[drive]->isRemovable()) reg_ax=1;
else {
DOS_SetError(DOSERR_FUNCTION_NUMBER_INVALID);
return false;
}
return true;
case 0x09: /* Check if block device remote */
if (Drives[drive]->isRemote()) {
reg_dx=0x1000; // device is remote
// undocumented bits always clear
} else {
reg_dx=0x0802; // Open/Close supported; 32bit access supported (any use? fixes Fable installer)
// undocumented bits from device attribute word
// TODO Set bit 9 on drives that don't support direct I/O
}
reg_ax=0x300;
return true;
case 0x0B: /* Set sharing retry count */
if (reg_dx==0) {
DOS_SetError(DOSERR_FUNCTION_NUMBER_INVALID);
return false;
}
return true;
case 0x0D: /* Generic block device request */
{
if (Drives[drive]->isRemovable()) {
DOS_SetError(DOSERR_FUNCTION_NUMBER_INVALID);
return false;
}
PhysPt ptr = SegPhys(ds)+reg_dx;
switch (reg_cl) {
case 0x60: /* Get Device parameters */
mem_writeb(ptr ,0x03); // special function
mem_writeb(ptr+1,(drive>=2)?0x05:0x14); // fixed disc(5), 1.44 floppy(14)
mem_writew(ptr+2,drive>=2); // nonremovable ?
mem_writew(ptr+4,0x0000); // num of cylinders
mem_writeb(ptr+6,0x00); // media type (00=other type)
// drive parameter block following
mem_writeb(ptr+7,drive); // drive
mem_writeb(ptr+8,0x00); // unit number
mem_writed(ptr+0x1f,0xffffffff); // next parameter block
break;
case 0x46:
case 0x66: /* Volume label */
{
char const* bufin=Drives[drive]->GetLabel();
char buffer[11] ={' '};
char const* find_ext=strchr(bufin,'.');
if (find_ext) {
Bitu size=(Bitu)(find_ext-bufin);
if (size>8) size=8;
memcpy(buffer,bufin,size);
find_ext++;
memcpy(buffer+size,find_ext,(strlen(find_ext)>3) ? 3 : strlen(find_ext));
} else {
memcpy(buffer,bufin,(strlen(bufin) > 8) ? 8 : strlen(bufin));
}
char buf2[8]={ 'F','A','T','1','6',' ',' ',' '};
if(drive<2) buf2[4] = '2'; //FAT12 for floppies
mem_writew(ptr+0,0); // 0
mem_writed(ptr+2,0x1234); //Serial number
MEM_BlockWrite(ptr+6,buffer,11);//volumename
if(reg_cl == 0x66) MEM_BlockWrite(ptr+0x11, buf2,8);//filesystem
}
break;
default :
LOG(LOG_IOCTL,LOG_ERROR)("DOS:IOCTL Call 0D:%2X Drive %2X unhandled",reg_cl,drive);
DOS_SetError(DOSERR_FUNCTION_NUMBER_INVALID);
return false;
}
return true;
}
case 0x0E: /* Get Logical Drive Map */
if (Drives[drive]->isRemovable()) {
DOS_SetError(DOSERR_FUNCTION_NUMBER_INVALID);
return false;
}
reg_al = 0; /* Only 1 logical drive assigned */
return true;
default:
LOG(LOG_DOSMISC,LOG_ERROR)("DOS:IOCTL Call %2X unhandled",reg_al);
DOS_SetError(DOSERR_FUNCTION_NUMBER_INVALID);
break;
}
return false;
}
static bool DOS_MultiplexFunctions(void) {
char name[256];
switch (reg_ax) {
case 0x1216: /* GET ADDRESS OF SYSTEM FILE TABLE ENTRY */
// reg_bx is a system file table entry, should coincide with
// the file handle so just use that
LOG(LOG_DOSMISC,LOG_ERROR)("Some BAD filetable call used bx=%X",reg_bx);
if(reg_bx <= DOS_FILES) CALLBACK_SCF(false);
else CALLBACK_SCF(true);
if (reg_bx<16) {
RealPt sftrealpt=mem_readd(Real2Phys(dos_infoblock.GetPointer())+4);
PhysPt sftptr=Real2Phys(sftrealpt);
Bitu sftofs=0x06+reg_bx*0x3b;
if (Files[reg_bx]) mem_writeb(sftptr+sftofs,Files[reg_bx]->refCtr);
else mem_writeb(sftptr+sftofs,0);
if (!Files[reg_bx]) return true;
Bit32u handle=RealHandle(reg_bx);
if (handle>=DOS_FILES) {
mem_writew(sftptr+sftofs+0x02,0x02); // file open mode
mem_writeb(sftptr+sftofs+0x04,0x00); // file attribute
mem_writew(sftptr+sftofs+0x05,Files[reg_bx]->GetInformation()); // device info word
mem_writed(sftptr+sftofs+0x07,0); // device driver header
mem_writew(sftptr+sftofs+0x0d,0); // packed time
mem_writew(sftptr+sftofs+0x0f,0); // packed date
mem_writew(sftptr+sftofs+0x11,0); // size
mem_writew(sftptr+sftofs+0x15,0); // current position
} else {
Bit8u drive=Files[reg_bx]->GetDrive();
mem_writew(sftptr+sftofs+0x02,(Bit16u)(Files[reg_bx]->flags&3)); // file open mode
mem_writeb(sftptr+sftofs+0x04,(Bit8u)(Files[reg_bx]->attr)); // file attribute
mem_writew(sftptr+sftofs+0x05,0x40|drive); // device info word
mem_writed(sftptr+sftofs+0x07,RealMake(dos.tables.dpb,drive)); // dpb of the drive
mem_writew(sftptr+sftofs+0x0d,Files[reg_bx]->time); // packed file time
mem_writew(sftptr+sftofs+0x0f,Files[reg_bx]->date); // packed file date
Bit32u curpos=0;
Files[reg_bx]->Seek(&curpos,DOS_SEEK_CUR);
Bit32u endpos=0;
Files[reg_bx]->Seek(&endpos,DOS_SEEK_END);
mem_writed(sftptr+sftofs+0x11,endpos); // size
mem_writed(sftptr+sftofs+0x15,curpos); // current position
Files[reg_bx]->Seek(&curpos,DOS_SEEK_SET);
}
// fill in filename in fcb style
// (space-padded name (8 chars)+space-padded extension (3 chars))
const char* filename=(const char*)Files[reg_bx]->GetName();
if (strrchr(filename,'\\')) filename=strrchr(filename,'\\')+1;
if (strrchr(filename,'/')) filename=strrchr(filename,'/')+1;
if (!filename) return true;
const char* dotpos=strrchr(filename,'.');
if (dotpos) {
dotpos++;
size_t nlen=strlen(filename);
size_t extlen=strlen(dotpos);
Bits nmelen=(Bits)nlen-(Bits)extlen;
if (nmelen<1) return true;
nlen-=(extlen+1);
if (nlen>8) nlen=8;
size_t i;
for (i=0; i<nlen; i++)
mem_writeb((PhysPt)(sftptr+sftofs+0x20+i),filename[i]);
for (i=nlen; i<8; i++)
mem_writeb((PhysPt)(sftptr+sftofs+0x20+i),' ');
if (extlen>3) extlen=3;
for (i=0; i<extlen; i++)
mem_writeb((PhysPt)(sftptr+sftofs+0x28+i),dotpos[i]);
for (i=extlen; i<3; i++)
mem_writeb((PhysPt)(sftptr+sftofs+0x28+i),' ');
} else {
size_t i;
size_t nlen=strlen(filename);
if (nlen>8) nlen=8;
for (i=0; i<nlen; i++)
mem_writeb((PhysPt)(sftptr+sftofs+0x20+i),filename[i]);
for (i=nlen; i<11; i++)
mem_writeb((PhysPt)(sftptr+sftofs+0x20+i),' ');
}
SegSet16(es,RealSeg(sftrealpt));
reg_di=RealOff(sftrealpt+sftofs);
reg_ax=0xc000;
}
return true;
case 0x1607:
if (reg_bx == 0x15) {
switch (reg_cx) {
case 0x0000: // query instance
reg_cx = 0x0001;
reg_dx = 0x50; // dos driver segment
SegSet16(es,0x50); // patch table seg
reg_bx = 0x60; // patch table ofs
return true;
case 0x0001: // set patches
reg_ax = 0xb97c;
reg_bx = (reg_dx & 0x16);
reg_dx = 0xa2ab;
return true;
case 0x0003: // get size of data struc
if (reg_dx==0x0001) {
// CDS size requested
reg_ax = 0xb97c;
reg_dx = 0xa2ab;
reg_cx = 0x000e; // size
}
return true;
case 0x0004: // instanced data
reg_dx = 0; // none
return true;
case 0x0005: // get device driver size
reg_ax = 0;
reg_dx = 0;
return true;
default:
return false;
}
}
else if (reg_bx == 0x18) return true; // idle callout
else return false;
case 0x1680: /* RELEASE CURRENT VIRTUAL MACHINE TIME-SLICE */
//TODO Maybe do some idling but could screw up other systems :)
return true; //So no warning in the debugger anymore
case 0x1689: /* Kernel IDLE CALL */
case 0x168f: /* Close awareness crap */
/* Removing warning */
return true;
case 0x4a01: /* Query free hma space */
case 0x4a02: /* ALLOCATE HMA SPACE */
LOG(LOG_DOSMISC,LOG_WARN)("INT 2f:4a HMA. DOSBox reports none available.");
reg_bx=0; //number of bytes available in HMA or amount successfully allocated
//ESDI=ffff:ffff Location of HMA/Allocated memory
SegSet16(es,0xffff);
reg_di=0xffff;
return true;
case 0x1300:
case 0x1302:
reg_ax=0;
return true;
case 0x1605:
return true;
case 0x1612:
reg_ax=0;
name[0]=1;
name[1]=0;
MEM_BlockWrite(SegPhys(es)+reg_bx,name,0x20);
return true;
case 0x1613: /* Get SYSTEM.DAT path */
strcpy(name,"C:\\WINDOWS\\SYSTEM.DAT");
MEM_BlockWrite(SegPhys(es)+reg_di,name,(Bitu)(strlen(name)+1));
reg_ax=0;
reg_cx=strlen(name);
return true;
case 0x4a16: /* Open bootlog */
return true;
case 0x4a17: /* Write bootlog */
MEM_StrCopy(SegPhys(ds)+reg_dx,name,255);
LOG(LOG_DOSMISC,LOG_NORMAL)("BOOTLOG: %s\n",name);
return true;
case 0x4a33: /* Check MS-DOS Version 7 */
reg_ax=0;
return true;
}
return false;
}
static bool DOS_MultiplexFunctions(void) {
switch (reg_ax) {
/* ert, 20100711: Locking extensions */
case 0x1000: /* SHARE.EXE installation check */
if (enable_share_exe_fake) {
reg_ax=0xffff; /* Pretend that share.exe is installed.. Of course it's a bloody LIE! */
}
else {
return false; /* pass it on */
}
break;
case 0x1216: /* GET ADDRESS OF SYSTEM FILE TABLE ENTRY */
// reg_bx is a system file table entry, should coincide with
// the file handle so just use that
LOG(LOG_DOSMISC,LOG_ERROR)("Some BAD filetable call used bx=%X",reg_bx);
if(reg_bx <= DOS_FILES) CALLBACK_SCF(false);
else CALLBACK_SCF(true);
if (reg_bx<16) {
RealPt sftrealpt=mem_readd(Real2Phys(dos_infoblock.GetPointer())+4);
PhysPt sftptr=Real2Phys(sftrealpt);
Bitu sftofs=0x06+reg_bx*0x3b;
if (Files[reg_bx]) mem_writeb(sftptr+sftofs,Files[reg_bx]->refCtr);
else mem_writeb(sftptr+sftofs,0);
if (!Files[reg_bx]) return true;
Bit32u handle=RealHandle(reg_bx);
if (handle>=DOS_FILES) {
mem_writew(sftptr+sftofs+0x02,0x02); // file open mode
mem_writeb(sftptr+sftofs+0x04,0x00); // file attribute
mem_writew(sftptr+sftofs+0x05,Files[reg_bx]->GetInformation()); // device info word
mem_writed(sftptr+sftofs+0x07,0); // device driver header
mem_writew(sftptr+sftofs+0x0d,0); // packed time
mem_writew(sftptr+sftofs+0x0f,0); // packed date
mem_writew(sftptr+sftofs+0x11,0); // size
mem_writew(sftptr+sftofs+0x15,0); // current position
} else {
Bit8u drive=Files[reg_bx]->GetDrive();
mem_writew(sftptr+sftofs+0x02,(Bit16u)(Files[reg_bx]->flags&3)); // file open mode
mem_writeb(sftptr+sftofs+0x04,(Bit8u)(Files[reg_bx]->attr)); // file attribute
mem_writew(sftptr+sftofs+0x05,0x40|drive); // device info word
mem_writed(sftptr+sftofs+0x07,RealMake(dos.tables.dpb,drive)); // dpb of the drive
mem_writew(sftptr+sftofs+0x0d,Files[reg_bx]->time); // packed file time
mem_writew(sftptr+sftofs+0x0f,Files[reg_bx]->date); // packed file date
Bit32u curpos=0;
Files[reg_bx]->Seek(&curpos,DOS_SEEK_CUR);
Bit32u endpos=0;
Files[reg_bx]->Seek(&endpos,DOS_SEEK_END);
mem_writed(sftptr+sftofs+0x11,endpos); // size
mem_writed(sftptr+sftofs+0x15,curpos); // current position
Files[reg_bx]->Seek(&curpos,DOS_SEEK_SET);
}
// fill in filename in fcb style
// (space-padded name (8 chars)+space-padded extension (3 chars))
const char* filename=(const char*)Files[reg_bx]->GetName();
if (strrchr(filename,'\\')) filename=strrchr(filename,'\\')+1;
if (strrchr(filename,'/')) filename=strrchr(filename,'/')+1;
if (!filename) return true;
const char* dotpos=strrchr(filename,'.');
if (dotpos) {
dotpos++;
size_t nlen=strlen(filename);
size_t extlen=strlen(dotpos);
Bits nmelen=(Bits)nlen-(Bits)extlen;
if (nmelen<1) return true;
nlen-=(extlen+1);
if (nlen>8) nlen=8;
size_t i;
for (i=0; i<nlen; i++)
mem_writeb((PhysPt)(sftptr+sftofs+0x20+i),filename[i]);
for (i=nlen; i<8; i++)
mem_writeb((PhysPt)(sftptr+sftofs+0x20+i),' ');
if (extlen>3) extlen=3;
for (i=0; i<extlen; i++)
mem_writeb((PhysPt)(sftptr+sftofs+0x28+i),dotpos[i]);
for (i=extlen; i<3; i++)
mem_writeb((PhysPt)(sftptr+sftofs+0x28+i),' ');
} else {
size_t i;
size_t nlen=strlen(filename);
if (nlen>8) nlen=8;
for (i=0; i<nlen; i++)
mem_writeb((PhysPt)(sftptr+sftofs+0x20+i),filename[i]);
for (i=nlen; i<11; i++)
mem_writeb((PhysPt)(sftptr+sftofs+0x20+i),' ');
}
SegSet16(es,RealSeg(sftrealpt));
reg_di=RealOff(sftrealpt+sftofs);
reg_ax=0xc000;
}
return true;
case 0x1605: /* Windows init broadcast */
if (enable_a20_on_windows_init) {
/* This hack exists because Windows 3.1 doesn't seem to enable A20 first during an
* initial critical period where it assumes it's on, prior to checking and enabling/disabling it.
*
* Note that Windows 3.1 also makes this mistake in Standard/286 mode, but it doesn't even
* make this callout, so this hack is useless unless you are using Enhanced/386 mode.
* If you want to run Windows 3.1 Standard mode with a20=mask you will have to run builtin
* command "a20gate on" to turn on the A20 gate prior to starting Windows. */
LOG_MSG("Enabling A20 gate for Windows in response to INIT broadcast");
XMS_EnableA20(true);
}
/* TODO: Maybe future parts of DOSBox-X will do something with this */
/* TODO: Don't show this by default. Show if the user wants it by a) setting something to "true" in dosbox.conf or b) running a builtin command in Z:\ */
LOG_MSG("DEBUG: INT 2Fh Windows 286/386 DOSX init broadcast issued (ES:BX=%04x:%04x DS:SI=%04x:%04x CX=%04x DX=%04x DI=%04x(aka version %u.%u))",
SegValue(es),reg_bx,
SegValue(ds),reg_si,
reg_cx,reg_dx,reg_di,
reg_di>>8,reg_di&0xFF);
if (reg_dx & 0x0001)
LOG_MSG(" [286 DOS extender]");
else
LOG_MSG(" [Enhanced mode]");
LOG_MSG("\n");
/* NTS: The way this protocol works, is that when you (the program hooking this call) receive it,
* you first pass the call down to the previous INT 2Fh handler with registers unmodified,
* and then when the call unwinds back up the chain, THEN you modify the results to notify
* yourself to Windows. So logically, since we're the DOS kernel at the end of the chain,
* we should still see ES:BX=0000:0000 and DS:SI=0000:0000 and CX=0000 unmodified from the
* way the Windows kernel issued the call. If that's not the case, then we need to issue
* a warning because some bastard on the call chain is ruining it for all of us. */
if (SegValue(es) != 0 || reg_bx != 0 || SegValue(ds) != 0 || reg_si != 0 || reg_cx != 0) {
LOG_MSG("WARNING: Some registers at this point (the top of the call chain) are nonzero.\n");
LOG_MSG(" That means a TSR or other entity has modified registers on the way down\n");
LOG_MSG(" the call chain. The Windows init broadcast is supposed to be handled\n");
LOG_MSG(" going down the chain by calling the previous INT 2Fh handler with registers\n");
LOG_MSG(" unmodified, and only modify registers on the way back up the chain!\n");
}
return false; /* pass it on to other INT 2F handlers */
case 0x1606: /* Windows exit broadcast */
/* TODO: Maybe future parts of DOSBox-X will do something with this */
/* TODO: Don't show this by default. Show if the user wants it by a) setting something to "true" in dosbox.conf or b) running a builtin command in Z:\ */
LOG_MSG("DEBUG: INT 2Fh Windows 286/386 DOSX exit broadcast issued (DX=0x%04x)",reg_dx);
if (reg_dx & 0x0001)
LOG_MSG(" [286 DOS extender]");
else
LOG_MSG(" [Enhanced mode]");
LOG_MSG("\n");
return false; /* pass it on to other INT 2F handlers */
case 0x1607:
/* TODO: Don't show this by default. Show if the user wants it by a) setting something to "true" in dosbox.conf or b) running a builtin command in Z:\
* Additionally, if the user WANTS to see every invocation of the IDLE call, then allow them to enable that too */
if (reg_bx != 0x18) { /* don't show the idle call. it's used too often */
const char *str = Win_NameThatVXD(reg_bx);
if (str == NULL) str = "??";
LOG_MSG("DEBUG: INT 2Fh Windows virtual device '%s' callout (BX(deviceID)=0x%04x CX(function)=0x%04x)\n",
str,reg_bx,reg_cx);
}
if (reg_bx == 0x15) { /* DOSMGR */
switch (reg_cx) {
case 0x0000: // query instance
reg_cx = 0x0001;
reg_dx = 0x50; // dos driver segment
SegSet16(es,0x50); // patch table seg
reg_bx = 0x60; // patch table ofs
return true;
case 0x0001: // set patches
reg_ax = 0xb97c;
reg_bx = (reg_dx & 0x16);
reg_dx = 0xa2ab;
return true;
case 0x0003: // get size of data struc
if (reg_dx==0x0001) {
// CDS size requested
reg_ax = 0xb97c;
reg_dx = 0xa2ab;
reg_cx = 0x000e; // size
}
return true;
case 0x0004: // instanced data
reg_dx = 0; // none
return true;
case 0x0005: // get device driver size
reg_ax = 0;
reg_dx = 0;
return true;
default:
return false;
}
}
else if (reg_bx == 0x18) { /* VMPoll (idle) */
return true;
}
else return false;
case 0x1680: /* RELEASE CURRENT VIRTUAL MACHINE TIME-SLICE */
//TODO Maybe do some idling but could screw up other systems :)
return true; //So no warning in the debugger anymore
case 0x1689: /* Kernel IDLE CALL */
case 0x168f: /* Close awareness crap */
/* Removing warning */
return true;
case 0x4a01: { /* Query free hma space */
Bit32u limit = DOS_HMA_LIMIT();
if (limit == 0) {
/* TODO: What does MS-DOS prior to v5.0? */
reg_bx = 0;
reg_di = 0xFFFF;
SegSet16(es,0xFFFF);
LOG(LOG_MISC,LOG_DEBUG)("HMA query: rejected");
return true;
}
Bit32u start = DOS_HMA_FREE_START();
reg_bx = limit - start; /* free space in bytes */
SegSet16(es,0xffff);
reg_di = (start + 0x10) & 0xFFFF;
LOG(LOG_MISC,LOG_DEBUG)("HMA query: start=0x%06x limit=0x%06x free=0x%06x -> bx=%u %04x:%04x",
start,limit,DOS_HMA_GET_FREE_SPACE(),(int)reg_bx,(int)SegValue(es),(int)reg_di);
} return true;
case 0x4a02: { /* ALLOCATE HMA SPACE */
Bit32u limit = DOS_HMA_LIMIT();
if (limit == 0) {
/* TODO: What does MS-DOS prior to v5.0? */
reg_bx = 0;
reg_di = 0xFFFF;
SegSet16(es,0xFFFF);
LOG(LOG_MISC,LOG_DEBUG)("HMA allocation: rejected");
return true;
}
/* NTS: According to RBIL, Windows 95 adds a deallocate function and changes HMA allocation up to follow a
* MCB chain structure. Which is something we're probably not going to add for awhile. */
/* FIXME: So, according to Ralph Brown Interrupt List, MS-DOS 5 and 6 liked to round up to the next paragraph? */
if (dos.version.major < 7 && (reg_bx & 0xF) != 0)
reg_bx = (reg_bx + 0xF) & (~0xF);
Bit32u start = DOS_HMA_FREE_START();
if ((start+reg_bx) > limit) {
LOG(LOG_MISC,LOG_DEBUG)("HMA allocation: rejected (not enough room) for %u bytes",reg_bx);
reg_bx = 0;
reg_di = 0xFFFF;
SegSet16(es,0xFFFF);
return true;
}
/* convert the start to segment:offset, normalized to FFFF:offset */
reg_di = (start - 0x10) & 0xFFFF;
SegSet16(es,0xFFFF);
/* let HMA emulation know what was claimed */
LOG(LOG_MISC,LOG_DEBUG)("HMA allocation: %u bytes at FFFF:%04x",reg_bx,reg_di);
DOS_HMA_CLAIMED(reg_bx);
} return true;
}
return false;
}
bool device_EMM::ReadFromControlChannel(PhysPt bufptr,Bit16u size,Bit16u * retcode) {
Bitu subfct=mem_readb(bufptr);
switch (subfct) {
case 0x00:
if (size!=6) return false;
mem_writew(bufptr+0x00,0x0023); // ID
mem_writed(bufptr+0x02,0); // private API entry point
*retcode=6;
return true;
case 0x01: {
if (size!=6) return false;
if (GEMMIS_seg==0) GEMMIS_seg=DOS_GetMemory(0x20);
PhysPt GEMMIS_addr=PhysMake(GEMMIS_seg,0);
mem_writew(GEMMIS_addr+0x00,0x0004); // flags
mem_writew(GEMMIS_addr+0x02,0x019d); // size of this structure
mem_writew(GEMMIS_addr+0x04,GEMMIS_VERSION); // version 1.0 (provide ems information only)
mem_writed(GEMMIS_addr+0x06,0); // reserved
/* build non-EMS frames (0-0xe000) */
for (Bitu frct=0; frct<EMM_PAGEFRAME4K/4; frct++) {
mem_writeb(GEMMIS_addr+0x0a+frct*6,0x00); // frame type: NONE
mem_writeb(GEMMIS_addr+0x0b+frct*6,0xff); // owner: NONE
mem_writew(GEMMIS_addr+0x0c+frct*6,0xffff); // non-EMS frame
mem_writeb(GEMMIS_addr+0x0e + frct*6,0xff); // EMS page number (NONE)
mem_writeb(GEMMIS_addr+0x0f+frct*6,0xaa); // flags: direct mapping
}
/* build EMS page frame (0xe000-0xf000) */
for (Bitu frct=0; frct<0x10/4; frct++) {
Bitu frnr=(frct+EMM_PAGEFRAME4K/4)*6;
mem_writeb(GEMMIS_addr+0x0a+frnr,0x03); // frame type: EMS frame in 64k page
mem_writeb(GEMMIS_addr+0x0b+frnr,0xff); // owner: NONE
mem_writew(GEMMIS_addr+0x0c+frnr,0x7fff); // no logical page number
mem_writeb(GEMMIS_addr+0x0e + frnr,(Bit8u)(frct&0xff)); // physical EMS page number
mem_writeb(GEMMIS_addr+0x0f+frnr,0x00); // EMS frame
}
/* build non-EMS ROM frames (0xf000-0x10000) */
for (Bitu frct=(EMM_PAGEFRAME4K+0x10)/4; frct<0xf0/4; frct++) {
mem_writeb(GEMMIS_addr+0x0a+frct*6,0x00); // frame type: NONE
mem_writeb(GEMMIS_addr+0x0b+frct*6,0xff); // owner: NONE
mem_writew(GEMMIS_addr+0x0c+frct*6,0xffff); // non-EMS frame
mem_writeb(GEMMIS_addr+0x0e + frct*6,0xff); // EMS page number (NONE)
mem_writeb(GEMMIS_addr+0x0f+frct*6,0xaa); // flags: direct mapping
}
mem_writeb(GEMMIS_addr+0x18a,0x74); // ???
mem_writeb(GEMMIS_addr+0x18b,0x00); // no UMB descriptors following
mem_writeb(GEMMIS_addr+0x18c,0x01); // 1 EMS handle info recort
mem_writew(GEMMIS_addr+0x18d,0x0000); // system handle
mem_writed(GEMMIS_addr+0x18f,0); // handle name
mem_writed(GEMMIS_addr+0x193,0); // handle name
mem_writew(GEMMIS_addr+0x197,0x0010); // system handle
mem_writed(GEMMIS_addr+0x199,0x00110000); // physical address
/* fill buffer with import structure */
mem_writed(bufptr+0x00,GEMMIS_seg<<4);
mem_writew(bufptr+0x04,GEMMIS_VERSION);
*retcode=6;
return true;
}
case 0x02:
if (size!=2) return false;
mem_writeb(bufptr+0x00,EMM_VERSION>>4); // version 4.0
mem_writew(bufptr+0x01,EMM_VERSION&0x0f);
*retcode=2;
return true;
}
return false;
}
