Bit8u DOS_FCBWrite(Bit16u seg,Bit16u offset,Bit16u recno) {
DOS_FCB fcb(seg,offset);
Bit8u fhandle,cur_rec;Bit16u cur_block,rec_size;
fcb.GetSeqData(fhandle,rec_size);
if (fhandle==0xff && rec_size!=0) {
if (!DOS_FCBOpen(seg,offset)) return FCB_READ_NODATA;
LOG(LOG_FCB,LOG_WARN)("Reopened closed FCB");
fcb.GetSeqData(fhandle,rec_size);
}
fcb.GetRecord(cur_block,cur_rec);
Bit32u pos=((cur_block*128)+cur_rec)*rec_size;
if (!DOS_SeekFile(fhandle,&pos,DOS_SEEK_SET)) return FCB_ERR_WRITE;
MEM_BlockRead(Real2Phys(dos.dta())+recno*rec_size,dos_copybuf,rec_size);
Bit16u towrite=rec_size;
if (!DOS_WriteFile(fhandle,dos_copybuf,&towrite)) return FCB_ERR_WRITE;
Bit32u size;Bit16u date,time;
fcb.GetSizeDateTime(size,date,time);
if (pos+towrite>size) size=pos+towrite;
//time doesn't keep track of endofday
date = DOS_PackDate(dos.date.year,dos.date.month,dos.date.day);
Bit32u ticks = mem_readd(BIOS_TIMER);
Bit32u seconds = (ticks*10)/182;
Bit16u hour = (Bit16u)(seconds/3600);
Bit16u min = (Bit16u)((seconds % 3600)/60);
Bit16u sec = (Bit16u)(seconds % 60);
time = DOS_PackTime(hour,min,sec);
Bit8u temp=RealHandle(fhandle);
Files[temp]->time=time;
Files[temp]->date=date;
fcb.SetSizeDateTime(size,date,time);
if (++cur_rec>127) { cur_block++;cur_rec=0; }
fcb.SetRecord(cur_block,cur_rec);
return FCB_SUCCESS;
}
Bit8u DOS_FCBIncreaseSize(Bit16u seg,Bit16u offset) {
DOS_FCB fcb(seg,offset);
Bit8u fhandle,cur_rec;
Bit16u cur_block,rec_size;
fcb.GetSeqData(fhandle,rec_size);
fcb.GetRecord(cur_block,cur_rec);
Bit32u pos=((cur_block*128)+cur_rec)*rec_size;
if (!DOS_SeekFile(fhandle,&pos,DOS_SEEK_SET,true)) return FCB_ERR_WRITE;
Bit16u towrite=0;
if (!DOS_WriteFile(fhandle,dos_copybuf,&towrite,true)) return FCB_ERR_WRITE;
Bit32u size;
Bit16u date,time;
fcb.GetSizeDateTime(size,date,time);
if (pos+towrite>size) size=pos+towrite;
//time doesn't keep track of endofday
date = DOS_PackDate(dos.date.year,dos.date.month,dos.date.day);
Bit32u ticks = mem_readd(BIOS_TIMER);
Bit32u seconds = (ticks*10)/182;
Bit16u hour = (Bit16u)(seconds/3600);
Bit16u min = (Bit16u)((seconds % 3600)/60);
Bit16u sec = (Bit16u)(seconds % 60);
time = DOS_PackTime(hour,min,sec);
Files[fhandle]->time = time;
Files[fhandle]->date = date;
fcb.SetSizeDateTime(size,date,time);
fcb.SetRecord(cur_block,cur_rec);
return FCB_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=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 {
Bitu XMS_MoveMemory(PhysPt bpt) {
/* Read the block with mem_read's */
Bitu length=mem_readd(bpt+offsetof(XMS_MemMove,length));
Bitu src_handle=mem_readw(bpt+offsetof(XMS_MemMove,src_handle));
union {
RealPt realpt;
Bit32u offset;
} src,dest;
src.offset=mem_readd(bpt+offsetof(XMS_MemMove,src.offset));
Bitu dest_handle=mem_readw(bpt+offsetof(XMS_MemMove,dest_handle));
dest.offset=mem_readd(bpt+offsetof(XMS_MemMove,dest.offset));
PhysPt srcpt,destpt;
if (src_handle) {
if (InvalidHandle(src_handle)) {
return XMS_INVALID_SOURCE_HANDLE;
}
if (src.offset>=(xms_handles[src_handle].size*1024U)) {
return XMS_INVALID_SOURCE_OFFSET;
}
if (length>xms_handles[src_handle].size*1024U-src.offset) {
return XMS_INVALID_LENGTH;
}
srcpt=(xms_handles[src_handle].mem*4096)+src.offset;
} else {
srcpt=Real2Phys(src.realpt);
}
if (dest_handle) {
if (InvalidHandle(dest_handle)) {
return XMS_INVALID_DEST_HANDLE;
}
if (dest.offset>=(xms_handles[dest_handle].size*1024U)) {
return XMS_INVALID_DEST_OFFSET;
}
if (length>xms_handles[dest_handle].size*1024U-dest.offset) {
return XMS_INVALID_LENGTH;
}
destpt=(xms_handles[dest_handle].mem*4096)+dest.offset;
} else {
destpt=Real2Phys(dest.realpt);
}
// LOG_MSG("XMS move src %X dest %X length %X",srcpt,destpt,length);
mem_memcpy(destpt,srcpt,length);
return 0;
}
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;
}
static Bitu DOS_21Handler(void) {
if (((reg_ah != 0x50) && (reg_ah != 0x51) && (reg_ah != 0x62) && (reg_ah != 0x64)) && (reg_ah<0x6c)) {
DOS_PSP psp(dos.psp());
psp.SetStack(RealMake(SegValue(ss),reg_sp-18));
}
char name1[DOSNAMEBUF+2+DOS_NAMELENGTH_ASCII];
char name2[DOSNAMEBUF+2+DOS_NAMELENGTH_ASCII];
static Bitu time_start = 0; //For emulating temporary time changes.
switch (reg_ah) {
case 0x00: /* Terminate Program */
DOS_Terminate(mem_readw(SegPhys(ss)+reg_sp+2),false,0);
break;
case 0x01: /* Read character from STDIN, with echo */
{
Bit8u c;Bit16u n=1;
dos.echo=true;
DOS_ReadFile(STDIN,&c,&n);
reg_al=c;
dos.echo=false;
}
break;
case 0x02: /* Write character to STDOUT */
{
Bit8u c=reg_dl;Bit16u n=1;
DOS_WriteFile(STDOUT,&c,&n);
//Not in the official specs, but happens nonetheless. (last written character)
reg_al = c;// reg_al=(c==9)?0x20:c; //Officially: tab to spaces
}
break;
case 0x03: /* Read character from STDAUX */
{
Bit16u port = real_readw(0x40,0);
if(port!=0 && serialports[0]) {
Bit8u status;
// RTS/DTR on
IO_WriteB(port+4,0x3);
serialports[0]->Getchar(®_al, &status, true, 0xFFFFFFFF);
}
}
break;
case 0x04: /* Write Character to STDAUX */
{
Bit16u port = real_readw(0x40,0);
if(port!=0 && serialports[0]) {
// RTS/DTR on
IO_WriteB(port+4,0x3);
serialports[0]->Putchar(reg_dl,true,true, 0xFFFFFFFF);
// RTS off
IO_WriteB(port+4,0x1);
}
}
break;
case 0x05: /* Write Character to PRINTER */
E_Exit("DOS:Unhandled call %02X",reg_ah);
break;
case 0x06: /* Direct Console Output / Input */
switch (reg_dl) {
case 0xFF: /* Input */
{
//Simulate DOS overhead for timing sensitive games
//MM1
overhead();
//TODO Make this better according to standards
if (!DOS_GetSTDINStatus()) {
reg_al=0;
CALLBACK_SZF(true);
break;
}
Bit8u c;Bit16u n=1;
DOS_ReadFile(STDIN,&c,&n);
reg_al=c;
CALLBACK_SZF(false);
break;
}
default:
{
Bit8u c = reg_dl;Bit16u n = 1;
DOS_WriteFile(STDOUT,&c,&n);
reg_al = reg_dl;
}
break;
};
break;
case 0x07: /* Character Input, without echo */
{
Bit8u c;Bit16u n=1;
DOS_ReadFile (STDIN,&c,&n);
reg_al=c;
break;
};
case 0x08: /* Direct Character Input, without echo (checks for breaks officially :)*/
{
Bit8u c;Bit16u n=1;
DOS_ReadFile (STDIN,&c,&n);
reg_al=c;
break;
};
case 0x09: /* Write string to STDOUT */
{
Bit8u c;Bit16u n=1;
PhysPt buf=SegPhys(ds)+reg_dx;
while ((c=mem_readb(buf++))!='$') {
DOS_WriteFile(STDOUT,&c,&n);
}
}
break;
case 0x0a: /* Buffered Input */
{
//TODO ADD Break checkin in STDIN but can't care that much for it
PhysPt data=SegPhys(ds)+reg_dx;
Bit8u free=mem_readb(data);
Bit8u read=0;Bit8u c;Bit16u n=1;
if (!free) break;
free--;
for(;;) {
DOS_ReadFile(STDIN,&c,&n);
if (c == 8) { // Backspace
if (read) { //Something to backspace.
// STDOUT treats backspace as non-destructive.
DOS_WriteFile(STDOUT,&c,&n);
c = ' '; DOS_WriteFile(STDOUT,&c,&n);
c = 8; DOS_WriteFile(STDOUT,&c,&n);
--read;
}
continue;
}
if (read == free && c != 13) { // Keyboard buffer full
Bit8u bell = 7;
DOS_WriteFile(STDOUT, &bell, &n);
continue;
}
DOS_WriteFile(STDOUT,&c,&n);
mem_writeb(data+read+2,c);
if (c==13)
break;
read++;
};
mem_writeb(data+1,read);
break;
};
case 0x0b: /* Get STDIN Status */
if (!DOS_GetSTDINStatus()) {reg_al=0x00;}
else {reg_al=0xFF;}
//Simulate some overhead for timing issues
//Tankwar menu (needs maybe even more)
overhead();
break;
case 0x0c: /* Flush Buffer and read STDIN call */
{
/* flush buffer if STDIN is CON */
Bit8u handle=RealHandle(STDIN);
if (handle!=0xFF && Files[handle] && Files[handle]->IsName("CON")) {
Bit8u c;Bit16u n;
while (DOS_GetSTDINStatus()) {
n=1; DOS_ReadFile(STDIN,&c,&n);
}
}
switch (reg_al) {
case 0x1:
case 0x6:
case 0x7:
case 0x8:
case 0xa:
{
Bit8u oldah=reg_ah;
reg_ah=reg_al;
DOS_21Handler();
reg_ah=oldah;
}
break;
default:
// LOG_ERROR("DOS:0C:Illegal Flush STDIN Buffer call %d",reg_al);
reg_al=0;
break;
}
}
break;
//TODO Find out the values for when reg_al!=0
//TODO Hope this doesn't do anything special
case 0x0d: /* Disk Reset */
//Sure let's reset a virtual disk
break;
case 0x0e: /* Select Default Drive */
DOS_SetDefaultDrive(reg_dl);
reg_al=DOS_DRIVES;
break;
case 0x0f: /* Open File using FCB */
if(DOS_FCBOpen(SegValue(ds),reg_dx)){
reg_al=0;
}else{
reg_al=0xff;
}
LOG(LOG_FCB,LOG_NORMAL)("DOS:0x0f FCB-fileopen used, result:al=%d",reg_al);
break;
case 0x10: /* Close File using FCB */
if(DOS_FCBClose(SegValue(ds),reg_dx)){
reg_al=0;
}else{
reg_al=0xff;
}
LOG(LOG_FCB,LOG_NORMAL)("DOS:0x10 FCB-fileclose used, result:al=%d",reg_al);
break;
case 0x11: /* Find First Matching File using FCB */
if(DOS_FCBFindFirst(SegValue(ds),reg_dx)) reg_al = 0x00;
else reg_al = 0xFF;
LOG(LOG_FCB,LOG_NORMAL)("DOS:0x11 FCB-FindFirst used, result:al=%d",reg_al);
break;
case 0x12: /* Find Next Matching File using FCB */
if(DOS_FCBFindNext(SegValue(ds),reg_dx)) reg_al = 0x00;
else reg_al = 0xFF;
LOG(LOG_FCB,LOG_NORMAL)("DOS:0x12 FCB-FindNext used, result:al=%d",reg_al);
break;
case 0x13: /* Delete File using FCB */
if (DOS_FCBDeleteFile(SegValue(ds),reg_dx)) reg_al = 0x00;
else reg_al = 0xFF;
LOG(LOG_FCB,LOG_NORMAL)("DOS:0x16 FCB-Delete used, result:al=%d",reg_al);
break;
case 0x14: /* Sequential read from FCB */
reg_al = DOS_FCBRead(SegValue(ds),reg_dx,0);
LOG(LOG_FCB,LOG_NORMAL)("DOS:0x14 FCB-Read used, result:al=%d",reg_al);
break;
case 0x15: /* Sequential write to FCB */
reg_al=DOS_FCBWrite(SegValue(ds),reg_dx,0);
LOG(LOG_FCB,LOG_NORMAL)("DOS:0x15 FCB-Write used, result:al=%d",reg_al);
break;
case 0x16: /* Create or truncate file using FCB */
if (DOS_FCBCreate(SegValue(ds),reg_dx)) reg_al = 0x00;
else reg_al = 0xFF;
LOG(LOG_FCB,LOG_NORMAL)("DOS:0x16 FCB-Create used, result:al=%d",reg_al);
break;
case 0x17: /* Rename file using FCB */
if (DOS_FCBRenameFile(SegValue(ds),reg_dx)) reg_al = 0x00;
else reg_al = 0xFF;
break;
case 0x1b: /* Get allocation info for default drive */
if (!DOS_GetAllocationInfo(0,®_cx,®_al,®_dx)) reg_al=0xff;
break;
case 0x1c: /* Get allocation info for specific drive */
if (!DOS_GetAllocationInfo(reg_dl,®_cx,®_al,®_dx)) reg_al=0xff;
break;
case 0x21: /* Read random record from FCB */
{
Bit16u toread=1;
reg_al = DOS_FCBRandomRead(SegValue(ds),reg_dx,&toread,true);
}
LOG(LOG_FCB,LOG_NORMAL)("DOS:0x21 FCB-Random read used, result:al=%d",reg_al);
break;
case 0x22: /* Write random record to FCB */
{
Bit16u towrite=1;
reg_al=DOS_FCBRandomWrite(SegValue(ds),reg_dx,&towrite,true);
}
LOG(LOG_FCB,LOG_NORMAL)("DOS:0x22 FCB-Random write used, result:al=%d",reg_al);
break;
case 0x23: /* Get file size for FCB */
if (DOS_FCBGetFileSize(SegValue(ds),reg_dx)) reg_al = 0x00;
else reg_al = 0xFF;
break;
case 0x24: /* Set Random Record number for FCB */
DOS_FCBSetRandomRecord(SegValue(ds),reg_dx);
break;
case 0x27: /* Random block read from FCB */
reg_al = DOS_FCBRandomRead(SegValue(ds),reg_dx,®_cx,false);
LOG(LOG_FCB,LOG_NORMAL)("DOS:0x27 FCB-Random(block) read used, result:al=%d",reg_al);
break;
case 0x28: /* Random Block write to FCB */
reg_al=DOS_FCBRandomWrite(SegValue(ds),reg_dx,®_cx,false);
LOG(LOG_FCB,LOG_NORMAL)("DOS:0x28 FCB-Random(block) write used, result:al=%d",reg_al);
break;
case 0x29: /* Parse filename into FCB */
{
Bit8u difference;
char string[1024];
MEM_StrCopy(SegPhys(ds)+reg_si,string,1023); // 1024 toasts the stack
reg_al=FCB_Parsename(SegValue(es),reg_di,reg_al ,string, &difference);
reg_si+=difference;
}
LOG(LOG_FCB,LOG_NORMAL)("DOS:29:FCB Parse Filename, result:al=%d",reg_al);
break;
case 0x19: /* Get current default drive */
reg_al=DOS_GetDefaultDrive();
break;
case 0x1a: /* Set Disk Transfer Area Address */
dos.dta(RealMakeSeg(ds,reg_dx));
break;
case 0x25: /* Set Interrupt Vector */
RealSetVec(reg_al,RealMakeSeg(ds,reg_dx));
break;
case 0x26: /* Create new PSP */
DOS_NewPSP(reg_dx,DOS_PSP(dos.psp()).GetSize());
reg_al=0xf0; /* al destroyed */
break;
case 0x2a: /* Get System Date */
{
reg_ax=0; // get time
CALLBACK_RunRealInt(0x1a);
if(reg_al) DOS_AddDays(reg_al);
int a = (14 - dos.date.month)/12;
int y = dos.date.year - a;
int m = dos.date.month + 12*a - 2;
reg_al=(dos.date.day+y+(y/4)-(y/100)+(y/400)+(31*m)/12) % 7;
reg_cx=dos.date.year;
reg_dh=dos.date.month;
reg_dl=dos.date.day;
}
break;
case 0x2b: /* Set System Date */
if (reg_cx<1980) { reg_al=0xff;break;}
if ((reg_dh>12) || (reg_dh==0)) { reg_al=0xff;break;}
if (reg_dl==0) { reg_al=0xff;break;}
if (reg_dl>DOS_DATE_months[reg_dh]) {
if(!((reg_dh==2)&&(reg_cx%4 == 0)&&(reg_dl==29))) // february pass
{ reg_al=0xff;break; }
}
dos.date.year=reg_cx;
dos.date.month=reg_dh;
dos.date.day=reg_dl;
reg_al=0;
break;
case 0x2c: { /* Get System Time */
reg_ax=0; // get time
CALLBACK_RunRealInt(0x1a);
if(reg_al) DOS_AddDays(reg_al);
reg_ah=0x2c;
Bitu ticks=((Bitu)reg_cx<<16)|reg_dx;
if(time_start<=ticks) ticks-=time_start;
Bitu time=(Bitu)((100.0/((double)PIT_TICK_RATE/65536.0)) * (double)ticks);
reg_dl=(Bit8u)((Bitu)time % 100); // 1/100 seconds
time/=100;
reg_dh=(Bit8u)((Bitu)time % 60); // seconds
time/=60;
reg_cl=(Bit8u)((Bitu)time % 60); // minutes
time/=60;
reg_ch=(Bit8u)((Bitu)time % 24); // hours
//Simulate DOS overhead for timing-sensitive games
//Robomaze 2
overhead();
break;
}
case 0x2d: /* Set System Time */
LOG(LOG_DOSMISC,LOG_ERROR)("DOS:Set System Time not supported");
//Check input parameters nonetheless
if( reg_ch > 23 || reg_cl > 59 || reg_dh > 59 || reg_dl > 99 )
reg_al = 0xff;
else { //Allow time to be set to zero. Restore the orginal time for all other parameters. (QuickBasic)
if (reg_cx == 0 && reg_dx == 0) {time_start = mem_readd(BIOS_TIMER);LOG_MSG("Warning: game messes with DOS time!");}
else time_start = 0;
reg_al = 0;
}
break;
case 0x2e: /* Set Verify flag */
dos.verify=(reg_al==1);
break;
case 0x2f: /* Get Disk Transfer Area */
SegSet16(es,RealSeg(dos.dta()));
reg_bx=RealOff(dos.dta());
break;
case 0x30: /* Get DOS Version */
if (reg_al==0) reg_bh=0xFF; /* Fake Microsoft DOS */
if (reg_al==1) reg_bh=0x10; /* DOS is in HMA */
reg_al=dos.version.major;
reg_ah=dos.version.minor;
/* Serialnumber */
reg_bl=0x00;
reg_cx=0x0000;
break;
case 0x31: /* Terminate and stay resident */
// Important: This service does not set the carry flag!
DOS_ResizeMemory(dos.psp(),®_dx);
DOS_Terminate(dos.psp(),true,reg_al);
break;
case 0x1f: /* Get drive parameter block for default drive */
case 0x32: /* Get drive parameter block for specific drive */
{ /* Officially a dpb should be returned as well. The disk detection part is implemented */
Bit8u drive=reg_dl;
if (!drive || reg_ah==0x1f) drive = DOS_GetDefaultDrive();
else drive--;
if (Drives[drive]) {
reg_al = 0x00;
SegSet16(ds,dos.tables.dpb);
reg_bx = drive;//Faking only the first entry (that is the driveletter)
LOG(LOG_DOSMISC,LOG_ERROR)("Get drive parameter block.");
} else {
reg_al=0xff;
}
}
break;
case 0x33: /* Extended Break Checking */
switch (reg_al) {
case 0:reg_dl=dos.breakcheck;break; /* Get the breakcheck flag */
case 1:dos.breakcheck=(reg_dl>0);break; /* Set the breakcheck flag */
case 2:{bool old=dos.breakcheck;dos.breakcheck=(reg_dl>0);reg_dl=old;}break;
case 3: /* Get cpsw */
/* Fallthrough */
case 4: /* Set cpsw */
LOG(LOG_DOSMISC,LOG_ERROR)("Someone playing with cpsw %x",reg_ax);
break;
case 5:reg_dl=3;break;//TODO should be z /* Always boot from c: :) */
case 6: /* Get true version number */
reg_bl=dos.version.major;
reg_bh=dos.version.minor;
reg_dl=dos.version.revision;
reg_dh=0x10; /* Dos in HMA */
break;
default:
LOG(LOG_DOSMISC,LOG_ERROR)("Weird 0x33 call %2X",reg_al);
reg_al =0xff;
break;
}
break;
case 0x34: /* Get INDos Flag */
SegSet16(es,DOS_SDA_SEG);
reg_bx=DOS_SDA_OFS + 0x01;
break;
case 0x35: /* Get interrupt vector */
reg_bx=real_readw(0,((Bit16u)reg_al)*4);
SegSet16(es,real_readw(0,((Bit16u)reg_al)*4+2));
break;
case 0x36: /* Get Free Disk Space */
{
Bit16u bytes,clusters,free;
Bit8u sectors;
if (DOS_GetFreeDiskSpace(reg_dl,&bytes,§ors,&clusters,&free)) {
reg_ax=sectors;
reg_bx=free;
reg_cx=bytes;
reg_dx=clusters;
} else {
Bit8u drive=reg_dl;
if (drive==0) drive=DOS_GetDefaultDrive();
else drive--;
if (drive<2) {
// floppy drive, non-present drivesdisks issue floppy check through int24
// (critical error handler); needed for Mixed up Mother Goose (hook)
// CALLBACK_RunRealInt(0x24);
}
reg_ax=0xffff; // invalid drive specified
}
}
break;
case 0x37: /* Get/Set Switch char Get/Set Availdev thing */
//TODO Give errors for these functions to see if anyone actually uses this shit-
switch (reg_al) {
case 0:
reg_al=0;reg_dl=0x2f;break; /* always return '/' like dos 5.0+ */
case 1:
reg_al=0;break;
case 2:
reg_al=0;reg_dl=0x2f;break;
case 3:
reg_al=0;break;
};
LOG(LOG_MISC,LOG_ERROR)("DOS:0x37:Call for not supported switchchar");
break;
case 0x38: /* Set Country Code */
if (reg_al==0) { /* Get country specidic information */
PhysPt dest = SegPhys(ds)+reg_dx;
MEM_BlockWrite(dest,dos.tables.country,0x18);
reg_ax = reg_bx = 0x01;
CALLBACK_SCF(false);
break;
} else { /* Set country code */
LOG(LOG_MISC,LOG_ERROR)("DOS:Setting country code not supported");
}
CALLBACK_SCF(true);
break;
case 0x39: /* MKDIR Create directory */
MEM_StrCopy(SegPhys(ds)+reg_dx,name1,DOSNAMEBUF);
if (DOS_MakeDir(name1)) {
reg_ax=0x05; /* ax destroyed */
CALLBACK_SCF(false);
} else {
reg_ax=dos.errorcode;
CALLBACK_SCF(true);
}
break;
case 0x3a: /* RMDIR Remove directory */
MEM_StrCopy(SegPhys(ds)+reg_dx,name1,DOSNAMEBUF);
if (DOS_RemoveDir(name1)) {
reg_ax=0x05; /* ax destroyed */
CALLBACK_SCF(false);
} else {
reg_ax=dos.errorcode;
CALLBACK_SCF(true);
LOG(LOG_MISC,LOG_NORMAL)("Remove dir failed on %s with error %X",name1,dos.errorcode);
}
break;
case 0x3b: /* CHDIR Set current directory */
MEM_StrCopy(SegPhys(ds)+reg_dx,name1,DOSNAMEBUF);
if (DOS_ChangeDir(name1)) {
reg_ax=0x00; /* ax destroyed */
CALLBACK_SCF(false);
} else {
reg_ax=dos.errorcode;
CALLBACK_SCF(true);
}
break;
case 0x3c: /* CREATE Create of truncate file */
MEM_StrCopy(SegPhys(ds)+reg_dx,name1,DOSNAMEBUF);
if (DOS_CreateFile(name1,reg_cx,®_ax)) {
CALLBACK_SCF(false);
} else {
reg_ax=dos.errorcode;
CALLBACK_SCF(true);
}
break;
case 0x3d: /* OPEN Open existing file */
MEM_StrCopy(SegPhys(ds)+reg_dx,name1,DOSNAMEBUF);
if (DOS_OpenFile(name1,reg_al,®_ax)) {
CALLBACK_SCF(false);
} else {
reg_ax=dos.errorcode;
CALLBACK_SCF(true);
}
break;
case 0x3e: /* CLOSE Close file */
if (DOS_CloseFile(reg_bx)) {
// reg_al=0x01; /* al destroyed. Refcount */
CALLBACK_SCF(false);
} else {
reg_ax=dos.errorcode;
CALLBACK_SCF(true);
}
break;
case 0x3f: /* READ Read from file or device */
{
Bit16u toread=reg_cx;
dos.echo=true;
if (DOS_ReadFile(reg_bx,dos_copybuf,&toread)) {
MEM_BlockWrite(SegPhys(ds)+reg_dx,dos_copybuf,toread);
reg_ax=toread;
CALLBACK_SCF(false);
} else {
reg_ax=dos.errorcode;
CALLBACK_SCF(true);
}
modify_cycles(reg_ax);
dos.echo=false;
break;
}
case 0x40: /* WRITE Write to file or device */
{
Bit16u towrite=reg_cx;
MEM_BlockRead(SegPhys(ds)+reg_dx,dos_copybuf,towrite);
if (DOS_WriteFile(reg_bx,dos_copybuf,&towrite)) {
reg_ax=towrite;
CALLBACK_SCF(false);
} else {
reg_ax=dos.errorcode;
CALLBACK_SCF(true);
}
modify_cycles(reg_ax);
break;
};
case 0x41: /* UNLINK Delete file */
MEM_StrCopy(SegPhys(ds)+reg_dx,name1,DOSNAMEBUF);
if (DOS_UnlinkFile(name1)) {
CALLBACK_SCF(false);
} else {
reg_ax=dos.errorcode;
CALLBACK_SCF(true);
}
break;
case 0x42: /* LSEEK Set current file position */
{
Bit32u pos=(reg_cx<<16) + reg_dx;
if (DOS_SeekFile(reg_bx,&pos,reg_al)) {
reg_dx=(Bit16u)(pos >> 16);
reg_ax=(Bit16u)(pos & 0xFFFF);
CALLBACK_SCF(false);
} else {
reg_ax=dos.errorcode;
CALLBACK_SCF(true);
}
break;
}
bool INT10_VideoState_Save(Bitu state,RealPt buffer) {
Bitu ct;
if ((state&7)==0) return false;
Bitu base_seg=RealSeg(buffer);
Bitu base_dest=RealOff(buffer)+0x20;
if (state&1) {
real_writew(base_seg,RealOff(buffer),base_dest);
Bit16u crt_reg=real_readw(BIOSMEM_SEG,BIOSMEM_CRTC_ADDRESS);
real_writew(base_seg,base_dest+0x40,crt_reg);
real_writeb(base_seg,base_dest+0x00,IO_ReadB(0x3c4));
real_writeb(base_seg,base_dest+0x01,IO_ReadB(0x3d4));
real_writeb(base_seg,base_dest+0x02,IO_ReadB(0x3ce));
IO_ReadB(crt_reg+6);
real_writeb(base_seg,base_dest+0x03,IO_ReadB(0x3c0));
real_writeb(base_seg,base_dest+0x04,IO_ReadB(0x3ca));
// sequencer
for (ct=1; ct<5; ct++) {
IO_WriteB(0x3c4,ct);
real_writeb(base_seg,base_dest+0x04+ct,IO_ReadB(0x3c5));
}
real_writeb(base_seg,base_dest+0x09,IO_ReadB(0x3cc));
// crt controller
for (ct=0; ct<0x19; ct++) {
IO_WriteB(crt_reg,ct);
real_writeb(base_seg,base_dest+0x0a+ct,IO_ReadB(crt_reg+1));
}
// attr registers
for (ct=0; ct<4; ct++) {
IO_ReadB(crt_reg+6);
IO_WriteB(0x3c0,0x10+ct);
real_writeb(base_seg,base_dest+0x33+ct,IO_ReadB(0x3c1));
}
// graphics registers
for (ct=0; ct<9; ct++) {
IO_WriteB(0x3ce,ct);
real_writeb(base_seg,base_dest+0x37+ct,IO_ReadB(0x3cf));
}
// save some registers
IO_WriteB(0x3c4,2);
Bit8u crtc_2=IO_ReadB(0x3c5);
IO_WriteB(0x3c4,4);
Bit8u crtc_4=IO_ReadB(0x3c5);
IO_WriteB(0x3ce,6);
Bit8u gfx_6=IO_ReadB(0x3cf);
IO_WriteB(0x3ce,5);
Bit8u gfx_5=IO_ReadB(0x3cf);
IO_WriteB(0x3ce,4);
Bit8u gfx_4=IO_ReadB(0x3cf);
// reprogram for full access to plane latches
IO_WriteW(0x3c4,0x0f02);
IO_WriteW(0x3c4,0x0704);
IO_WriteW(0x3ce,0x0406);
IO_WriteW(0x3ce,0x0105);
mem_writeb(0xaffff,0);
for (ct=0; ct<4; ct++) {
IO_WriteW(0x3ce,0x0004+ct*0x100);
real_writeb(base_seg,base_dest+0x42+ct,mem_readb(0xaffff));
}
// restore registers
IO_WriteW(0x3ce,0x0004|(gfx_4<<8));
IO_WriteW(0x3ce,0x0005|(gfx_5<<8));
IO_WriteW(0x3ce,0x0006|(gfx_6<<8));
IO_WriteW(0x3c4,0x0004|(crtc_4<<8));
IO_WriteW(0x3c4,0x0002|(crtc_2<<8));
for (ct=0; ct<0x10; ct++) {
IO_ReadB(crt_reg+6);
IO_WriteB(0x3c0,ct);
real_writeb(base_seg,base_dest+0x23+ct,IO_ReadB(0x3c1));
}
IO_WriteB(0x3c0,0x20);
base_dest+=0x46;
}
if (state&2) {
real_writew(base_seg,RealOff(buffer)+2,base_dest);
real_writeb(base_seg,base_dest+0x00,mem_readb(0x410)&0x30);
for (ct=0; ct<0x1e; ct++) {
real_writeb(base_seg,base_dest+0x01+ct,mem_readb(0x449+ct));
}
for (ct=0; ct<0x07; ct++) {
real_writeb(base_seg,base_dest+0x1f+ct,mem_readb(0x484+ct));
}
real_writed(base_seg,base_dest+0x26,mem_readd(0x48a));
real_writed(base_seg,base_dest+0x2a,mem_readd(0x14)); // int 5
real_writed(base_seg,base_dest+0x2e,mem_readd(0x74)); // int 1d
real_writed(base_seg,base_dest+0x32,mem_readd(0x7c)); // int 1f
real_writed(base_seg,base_dest+0x36,mem_readd(0x10c)); // int 43
base_dest+=0x3a;
}
if (state&4) {
real_writew(base_seg,RealOff(buffer)+4,base_dest);
Bit16u crt_reg=real_readw(BIOSMEM_SEG,BIOSMEM_CRTC_ADDRESS);
IO_ReadB(crt_reg+6);
IO_WriteB(0x3c0,0x14);
real_writeb(base_seg,base_dest+0x303,IO_ReadB(0x3c1));
Bitu dac_state=IO_ReadB(0x3c7)&1;
Bitu dac_windex=IO_ReadB(0x3c8);
if (dac_state!=0) dac_windex--;
real_writeb(base_seg,base_dest+0x000,dac_state);
real_writeb(base_seg,base_dest+0x001,dac_windex);
real_writeb(base_seg,base_dest+0x002,IO_ReadB(0x3c6));
for (ct=0; ct<0x100; ct++) {
IO_WriteB(0x3c7,ct);
real_writeb(base_seg,base_dest+0x003+ct*3+0,IO_ReadB(0x3c9));
real_writeb(base_seg,base_dest+0x003+ct*3+1,IO_ReadB(0x3c9));
real_writeb(base_seg,base_dest+0x003+ct*3+2,IO_ReadB(0x3c9));
}
IO_ReadB(crt_reg+6);
IO_WriteB(0x3c0,0x20);
base_dest+=0x303;
}
if ((svgaCard==SVGA_S3Trio) && (state&8)) {
real_writew(base_seg,RealOff(buffer)+6,base_dest);
Bit16u crt_reg=real_readw(BIOSMEM_SEG,BIOSMEM_CRTC_ADDRESS);
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_WriteB(0x3c4,0x09+ct);
real_writeb(base_seg,base_dest+0x00+ct,IO_ReadB(0x3c5));
}
// 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);
real_writeb(base_seg,base_dest+(ct_dest++),IO_ReadB(crt_reg+1));
real_writeb(base_seg,base_dest+(ct_dest++),IO_ReadB(crt_reg+1));
real_writeb(base_seg,base_dest+(ct_dest++),IO_ReadB(crt_reg+1));
} else {
IO_WriteB(crt_reg,0x30+ct);
real_writeb(base_seg,base_dest+(ct_dest++),IO_ReadB(crt_reg+1));
}
}
}
return true;
}
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;
}