void DOS_SetupMisc(void) { /* Setup the dos multiplex interrupt */ call_int2f=CALLBACK_Allocate(); CALLBACK_Setup(call_int2f,&INT2F_Handler,CB_IRET,"DOS Int 2f"); RealSetVec(0x2f,CALLBACK_RealPointer(call_int2f)); DOS_AddMultiplexHandler(DOS_MultiplexFunctions); /* Setup the dos network interrupt */ call_int2a=CALLBACK_Allocate(); CALLBACK_Setup(call_int2a,&INT2A_Handler,CB_IRET,"DOS Int 2a"); RealSetVec(0x2A,CALLBACK_RealPointer(call_int2a)); }
void DOS_UninstallMisc(void) { /* these vectors shouldn't exist when booting a guest OS */ if (call_int2a) { RealSetVec(0x2a,0); CALLBACK_DeAllocate(call_int2a); call_int2a=0; } if (call_int2f) { RealSetVec(0x2f,0); CALLBACK_DeAllocate(call_int2f); call_int2f=0; } }
void BIOS_Init() { Mem_rStosb(0x400, 0, 0x200); // Clear the Bios Data Area (0x400-0x5ff, 0x600- is accounted to DOS) // Setup all the interrupt handlers the Bios controls CALLBACK_SetupExtra(0, CB_IRQ0, dWord2Ptr(BIOS_DEFAULT_IRQ0_LOCATION)); RealSetVec(0x08, BIOS_DEFAULT_IRQ0_LOCATION); BIOS_HostTimeSync(); // Initialize the timer ticks CALLBACK_Install(0x11, &INT11_Handler, CB_IRET); // INT 11 Get equipment list CALLBACK_Install(0x12, &INT12_Handler, CB_IRET); // INT 12 Memory size default at 640 kb Mem_Stosw(BIOS_MEMORY_SIZE, 640); CALLBACK_Install(0x13, &INT13_DiskHandler, CB_IRET_STI); // INT 13 BIOS Disk support Mem_Stosb(BIOS_HARDDISK_COUNT, 2); // Setup the Bios Area CALLBACK_Install(0x14, &INT14_Handler, CB_IRET_STI); // INT 14 Serial ports CALLBACK_Install(0x15, &INT15_Handler, CB_IRET_STI); // INT 15 Misc calls BIOS_SetupKeyboard(); // INT 16 Keyboard handled in another file CALLBACK_Install(0x17, &INT17_Handler, CB_IRET_STI); // INT 17 Printer Routines CALLBACK_Install(0x1a, &INT1A_Handler, CB_IRET_STI); // INT 1A Time and some other functions // These are already setup as dummy by CALLBACK_Init() // CALLBACK_SetupDummyIRET(0x1c); // INT 1C System timer tick called from INT 8 // CALLBACK_Install(0x71, NULL, CB_IRQ9); // Irq 9 rerouted to irq 2 // CALLBACK_SetupDummyIRET(0x18); // Reboot dummies // CALLBACK_SetupDummyIRET(0x19); // set system BIOS entry point too Mem_aStosb(0xffff0, 0xEA); // FAR JMP Mem_aStosd(0xffff1, Mem_Lodsd(0x18*4)); Bitu cbID = CALLBACK_Allocate(); // Irq 2 CALLBACK_Setup(cbID, NULL, CB_IRET_EOI_PIC1, dWord2Ptr(BIOS_DEFAULT_IRQ2_LOCATION)); RealSetVec(0x0a, BIOS_DEFAULT_IRQ2_LOCATION); Mem_aStosb(BIOS_DEFAULT_HANDLER_LOCATION, 0xcf); // BIOS default interrupt vector location -> IRET Mem_aWrites(0xfff00, "vDos BIOS", 9); // System BIOS identification Mem_aWrites(0xffff5, "01/01/99\x00\xfc\x24", 11); // System BIOS date + signature for (Bitu i = BIOS_COM1_TIMEOUT; i <= BIOS_COM4_TIMEOUT; i++) // Port timeouts Mem_Stosb(i, 1); }
void CALLBACK_HandlerObject::Set_RealVec(Bit8u vec){ if(!vectorhandler.installed) { vectorhandler.installed=true; vectorhandler.interrupt=vec; RealSetVec(vec,Get_RealPointer(),vectorhandler.old_vector); } else E_Exit ("double usage of vector handler"); }
CALLBACK_HandlerObject::~CALLBACK_HandlerObject() { if (!installed) return; if (m_type == CALLBACK_HandlerObject::SETUP) { if (vectorhandler.installed) { // See if we are the current handler. if so restore the old one if (RealGetVec(vectorhandler.interrupt) == Get_RealPointer()) RealSetVec(vectorhandler.interrupt, vectorhandler.old_vector); else LOG(LOG_MISC,LOG_WARN)("Interrupt vector changed on %X %s", vectorhandler.interrupt, CALLBACK_GetDescription(m_callback)); } CALLBACK_RemoveSetup(m_callback); } else if (m_type == CALLBACK_HandlerObject::SETUPAT) E_Exit("Callback: SETUP at not handled yet."); else if (m_type == CALLBACK_HandlerObject::NONE) { // Do nothing. Merely DeAllocate the callback } else E_Exit("What kind of callback is this!"); if (CallBack_Description[m_callback]) delete [] CallBack_Description[m_callback]; CallBack_Description[m_callback] = 0; CALLBACK_DeAllocate(m_callback); }
void BIOS_SetupDisks(void) { call_int13 = CALLBACK_Allocate(); CALLBACK_Setup(call_int13, &INT13_DiskHandler, CB_IRET_STI, "Int 13 Bios disk"); RealSetVec(0x13, CALLBACK_RealPointer(call_int13)); vPC_rStosb(BIOS_HARDDISK_COUNT, 2); // Setup the Bios Area }
void DOS_SetupMemory(bool low) { /* Let DOS claim a few bios interrupts. Makes vDos more compatible with * buggy games, which compare against the interrupt table. (probably a * broken linked list implementation) */ Bitu cbID = CALLBACK_Allocate(); // DOS default int CALLBACK_Setup(cbID, &DOS_default_handler, CB_IRET, 0x708); RealSetVec(0x01, 0x700008); RealSetVec(0x03, 0x700008); RealSetVec(0x04, 0x700008); // Create a dummy device MCB with PSPSeg=0x0008 DOS_MCB mcb_devicedummy((Bit16u)DOS_MEM_START); mcb_devicedummy.SetPSPSeg(MCB_DOS); // Devices mcb_devicedummy.SetSize(1); mcb_devicedummy.SetType(0x4d); // More blocks will follow // mcb_devicedummy.SetFileName("SD "); Bit16u mcb_sizes = 2; // Create a small empty MCB (result from a growing environment block) // DOS_MCB tempmcb((Bit16u)DOS_MEM_START+mcb_sizes); // tempmcb.SetPSPSeg(MCB_FREE); // tempmcb.SetSize(4); // mcb_sizes += 5; // tempmcb.SetType(0x4d); int extra_size = low ? 0 : 4096 - DOS_MEM_START - mcb_sizes - 17; // Disable first 64Kb if low not set in config // Lock the previous empty MCB DOS_MCB tempmcb2((Bit16u)DOS_MEM_START+mcb_sizes); tempmcb2.SetPSPSeg(0x40); tempmcb2.SetSize(16+extra_size); mcb_sizes += 17+extra_size; tempmcb2.SetType(0x4d); DOS_MCB mcb((Bit16u)DOS_MEM_START+mcb_sizes); mcb.SetPSPSeg(MCB_FREE); // Free mcb.SetType(0x5a); // Last Block // mcb.SetSize(0x9FFE - DOS_MEM_START - mcb_sizes); mcb.SetSize(EndConvMem - 1 - DOS_MEM_START - mcb_sizes); dos.firstMCB = DOS_MEM_START; dos_infoblock.SetFirstMCB(DOS_MEM_START); }
void INT10_SetupBasicVideoParameterTable(void) { const unsigned char *copy = NULL; size_t copy_sz = 0; Bitu ofs; switch (machine) { case MCH_TANDY: copy = vparams_tandy; copy_sz = sizeof(vparams_tandy); break; case MCH_PCJR: copy = vparams_pcjr; copy_sz = sizeof(vparams_pcjr); break; default: copy = vparams; copy_sz = sizeof(vparams); break; } if (BIOS_VIDEO_TABLE_LOCATION == ~0 || BIOS_VIDEO_TABLE_SIZE != (Bitu)copy_sz) { if (rom_bios_vptable_enable) { /* TODO: Free previous block */ BIOS_VIDEO_TABLE_SIZE = copy_sz; if (mainline_compatible_bios_mapping) BIOS_VIDEO_TABLE_LOCATION = RealMake(0xf000,0xf0a4); else BIOS_VIDEO_TABLE_LOCATION = PhysToReal416(ROMBIOS_GetMemory(copy_sz,"BIOS video table (INT 1Dh)")); /* TODO: make option */ /* NTS: Failure to allocate means BIOS_VIDEO_TABLE_LOCATION == 0 */ } else { BIOS_VIDEO_TABLE_LOCATION = 0; } } RealSetVec(0x1d,BIOS_VIDEO_TABLE_LOCATION); ofs = RealToPhys(BIOS_VIDEO_TABLE_LOCATION); if (ofs != 0) { if (copy && copy_sz <= BIOS_VIDEO_TABLE_SIZE) { for (size_t i=0;i < copy_sz;i++) phys_writeb(ofs+i,copy[i]); } else { E_Exit("Somehow, INT 10 video param table too large"); } } }
void INT10_SetupBasicVideoParameterTable(void) { /* video parameter table at F000:F0A4 */ RealSetVec(0x1d,RealMake(0xF000, 0xF0A4)); switch (machine) { case MCH_TANDY: for (Bit16u i = 0; i < sizeof(vparams_tandy); i++) { phys_writeb(0xFF0A4+i,vparams_tandy[i]); } break; case MCH_PCJR: for (Bit16u i = 0; i < sizeof(vparams_pcjr); i++) { phys_writeb(0xFF0A4+i,vparams_pcjr[i]); } break; default: for (Bit16u i = 0; i < sizeof(vparams); i++) { phys_writeb(0xFF0A4+i,vparams[i]); } break; } }
bool DOS_Execute(char * name,PhysPt block_pt,Bit8u flags) { EXE_Header head;Bitu i; Bit16u fhandle;Bit16u len;Bit32u pos; Bit16u pspseg,envseg,loadseg,memsize,readsize; PhysPt loadaddress;RealPt relocpt; Bitu headersize,imagesize; DOS_ParamBlock block(block_pt); block.LoadData(); if (flags!=LOADNGO && flags!=OVERLAY && flags!=LOAD) { E_Exit("DOS:Not supported execute mode %d for file %s",flags,name); } /* Check for EXE or COM File */ bool iscom=false; if (!DOS_OpenFile(name,OPEN_READ,&fhandle)) return false; len=sizeof(EXE_Header); if (!DOS_ReadFile(fhandle,(Bit8u *)&head,&len)) { DOS_CloseFile(fhandle); return false; } if (len<sizeof(EXE_Header)) { if (len==0) { /* Prevent executing zero byte files */ DOS_SetError(DOSERR_ACCESS_DENIED); DOS_CloseFile(fhandle); return false; } /* Otherwise must be a .com file */ iscom=true; } else { /* Convert the header to correct endian, i hope this works */ HostPt endian=(HostPt)&head; for (i=0;i<sizeof(EXE_Header)/2;i++) { *((Bit16u *)endian)=host_readw(endian); endian+=2; } if ((head.signature!=MAGIC1) && (head.signature!=MAGIC2)) iscom=true; else { if(head.pages & ~0x07ff) /* 1 MB dos maximum address limit. Fixes TC3 IDE (kippesoep) */ LOG(LOG_EXEC,LOG_NORMAL)("Weird header: head.pages > 1 MB"); head.pages&=0x07ff; headersize = head.headersize*16; imagesize = head.pages*512-headersize; if (imagesize+headersize<512) imagesize = 512-headersize; } } Bit8u * loadbuf=(Bit8u *)new Bit8u[0x10000]; if (flags!=OVERLAY) { /* Create an environment block */ envseg=block.exec.envseg; if (!MakeEnv(name,&envseg)) { DOS_CloseFile(fhandle); return false; } /* Get Memory */ Bit16u minsize,maxsize;Bit16u maxfree=0xffff;DOS_AllocateMemory(&pspseg,&maxfree); if (iscom) { minsize=0x1000;maxsize=0xffff; if (machine==MCH_PCJR) { /* try to load file into memory below 96k */ pos=0;DOS_SeekFile(fhandle,&pos,DOS_SEEK_SET); Bit16u dataread=0x1800; DOS_ReadFile(fhandle,loadbuf,&dataread); if (dataread<0x1800) maxsize=dataread; if (minsize>maxsize) minsize=maxsize; } } else { /* Exe size calculated from header */ minsize=long2para(imagesize+(head.minmemory<<4)+256); if (head.maxmemory!=0) maxsize=long2para(imagesize+(head.maxmemory<<4)+256); else maxsize=0xffff; } if (maxfree<minsize) { DOS_SetError(DOSERR_INSUFFICIENT_MEMORY); DOS_FreeMemory(envseg); return false; } if (maxfree<maxsize) memsize=maxfree; else memsize=maxsize; if (!DOS_AllocateMemory(&pspseg,&memsize)) E_Exit("DOS:Exec error in memory"); if (iscom && (machine==MCH_PCJR) && (pspseg<0x2000)) { maxsize=0xffff; /* resize to full extent of memory block */ DOS_ResizeMemory(pspseg,&maxsize); /* now try to lock out memory above segment 0x2000 */ if ((real_readb(0x2000,0)==0x5a) && (real_readw(0x2000,1)==0) && (real_readw(0x2000,3)==0x7ffe)) { /* MCB after PCJr graphics memory region is still free */ if (pspseg+maxsize==0x17ff) { DOS_MCB cmcb((Bit16u)(pspseg-1)); cmcb.SetType(0x5a); // last block } } } loadseg=pspseg+16; if (!iscom) { /* Check if requested to load program into upper part of allocated memory */ if ((head.minmemory == 0) && (head.maxmemory == 0)) loadseg = ((pspseg+memsize)*0x10-imagesize)/0x10; } } else loadseg=block.overlay.loadseg; /* Load the executable */ loadaddress=PhysMake(loadseg,0); if (iscom) { /* COM Load 64k - 256 bytes max */ pos=0;DOS_SeekFile(fhandle,&pos,DOS_SEEK_SET); readsize=0xffff-256; DOS_ReadFile(fhandle,loadbuf,&readsize); MEM_BlockWrite(loadaddress,loadbuf,readsize); } else { /* EXE Load in 32kb blocks and then relocate */ pos=headersize;DOS_SeekFile(fhandle,&pos,DOS_SEEK_SET); while (imagesize>0x7FFF) { readsize=0x8000;DOS_ReadFile(fhandle,loadbuf,&readsize); MEM_BlockWrite(loadaddress,loadbuf,readsize); // if (readsize!=0x8000) LOG(LOG_EXEC,LOG_NORMAL)("Illegal header"); loadaddress+=0x8000;imagesize-=0x8000; } if (imagesize>0) { readsize=(Bit16u)imagesize;DOS_ReadFile(fhandle,loadbuf,&readsize); MEM_BlockWrite(loadaddress,loadbuf,readsize); // if (readsize!=imagesize) LOG(LOG_EXEC,LOG_NORMAL)("Illegal header"); } /* Relocate the exe image */ Bit16u relocate; if (flags==OVERLAY) relocate=block.overlay.relocation; else relocate=loadseg; pos=head.reloctable;DOS_SeekFile(fhandle,&pos,0); for (i=0;i<head.relocations;i++) { readsize=4;DOS_ReadFile(fhandle,(Bit8u *)&relocpt,&readsize); relocpt=host_readd((HostPt)&relocpt); //Endianize PhysPt address=PhysMake(RealSeg(relocpt)+loadseg,RealOff(relocpt)); mem_writew(address,mem_readw(address)+relocate); } } delete[] loadbuf; DOS_CloseFile(fhandle); /* Setup a psp */ if (flags!=OVERLAY) { // Create psp after closing exe, to avoid dead file handle of exe in copied psp SetupPSP(pspseg,memsize,envseg); SetupCMDLine(pspseg,block); }; CALLBACK_SCF(false); /* Carry flag cleared for caller if successfull */ if (flags==OVERLAY) return true; /* Everything done for overlays */ RealPt csip,sssp; if (iscom) { csip=RealMake(pspseg,0x100); sssp=RealMake(pspseg,0xfffe); mem_writew(PhysMake(pspseg,0xfffe),0); } else { csip=RealMake(loadseg+head.initCS,head.initIP); sssp=RealMake(loadseg+head.initSS,head.initSP); } if (flags==LOAD) { DOS_PSP callpsp(dos.psp()); /* Save the SS:SP on the PSP of calling program */ callpsp.SetStack(RealMakeSeg(ss,reg_sp)); /* Switch the psp's */ dos.psp(pspseg); DOS_PSP newpsp(dos.psp()); dos.dta(RealMake(newpsp.GetSegment(),0x80)); block.exec.initsssp = sssp; block.exec.initcsip = csip; block.SaveData(); return true; } if (flags==LOADNGO) { /* Get Caller's program CS:IP of the stack and set termination address to that */ RealSetVec(0x22,RealMake(mem_readw(SegPhys(ss)+reg_sp+2),mem_readw(SegPhys(ss)+reg_sp))); SaveRegisters(); DOS_PSP callpsp(dos.psp()); /* Save the SS:SP on the PSP of calling program */ callpsp.SetStack(RealMakeSeg(ss,reg_sp)); /* Switch the psp's and set new DTA */ dos.psp(pspseg); DOS_PSP newpsp(dos.psp()); dos.dta(RealMake(newpsp.GetSegment(),0x80)); /* save vectors */ newpsp.SaveVectors(); /* copy fcbs */ newpsp.SetFCB1(block.exec.fcb1); newpsp.SetFCB2(block.exec.fcb2); /* Set the stack for new program */ SegSet16(ss,RealSeg(sssp));reg_sp=RealOff(sssp); /* Add some flags and CS:IP on the stack for the IRET */ reg_sp-=6; mem_writew(SegPhys(ss)+reg_sp+0,RealOff(csip)); mem_writew(SegPhys(ss)+reg_sp+2,RealSeg(csip)); /* DOS starts programs with a RETF, so our IRET should not modify critical flags (IOPL in v86 mode); interrupt flag is set explicitly, test flags cleared */ mem_writew(SegPhys(ss)+reg_sp+4,(reg_flags&(~FMASK_TEST))|FLAG_IF); /* Setup the rest of the registers */ reg_ax=reg_bx=0;reg_cx=0xff; reg_dx=pspseg; reg_si=RealOff(csip); reg_di=RealOff(sssp); reg_bp=0x91c; /* DOS internal stack begin relict */ SegSet16(ds,pspseg);SegSet16(es,pspseg); #if C_DEBUG /* Started from debug.com, then set breakpoint at start */ DEBUG_CheckExecuteBreakpoint(RealSeg(csip),RealOff(csip)); #endif /* Add the filename to PSP and environment MCB's */ char stripname[8];Bitu index=0; while (char chr=*name++) { switch (chr) { case ':':case '\\':case '/':index=0;break; default:if (index<8) stripname[index++]=toupper(chr); } } index=0; while (index<8) { if (stripname[index]=='.') break; if (!stripname[index]) break; index++; } memset(&stripname[index],0,8-index); DOS_MCB pspmcb(dos.psp()-1); pspmcb.SetFileName(stripname); DOS_UpdatePSPName(); return true; } return false; }
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; }
void DOS_PSP::RestoreVectors(void) { /* Restore interrupt 22,23,24 */ RealSetVec(0x22,sGet(sPSP,int_22)); RealSetVec(0x23,sGet(sPSP,int_23)); RealSetVec(0x24,sGet(sPSP,int_24)); }
void INT10_SetupBasicVideoParameterTable(void) { RealSetVec(0x1d, SegOff2dWord(0xF000, 0xF0A4)); // video parameter table at F000:F0A4 Mem_aWrites(0xFF0A4, (const char*)vparams, sizeof(vparams)); }
void MOUSE_Init(Section* /*sec*/) { // Callback for mouse interrupt 0x33 call_int33=CALLBACK_Allocate(); // RealPt i33loc=RealMake(CB_SEG+1,(call_int33*CB_SIZE)-0x10); RealPt i33loc=RealMake(DOS_GetMemory(0x1)-1,0x10); CALLBACK_Setup(call_int33,&INT33_Handler,CB_MOUSE,Real2Phys(i33loc),"Mouse"); // Wasteland needs low(seg(int33))!=0 and low(ofs(int33))!=0 real_writed(0,0x33<<2,i33loc); call_mouse_bd=CALLBACK_Allocate(); CALLBACK_Setup(call_mouse_bd,&MOUSE_BD_Handler,CB_RETF8, PhysMake(RealSeg(i33loc),RealOff(i33loc)+2),"MouseBD"); // pseudocode for CB_MOUSE (including the special backdoor entry point): // jump near i33hd // callback MOUSE_BD_Handler // retf 8 // label i33hd: // callback INT33_Handler // iret // Callback for ps2 irq call_int74=CALLBACK_Allocate(); CALLBACK_Setup(call_int74,&INT74_Handler,CB_IRQ12,"int 74"); // pseudocode for CB_IRQ12: // push ds // push es // pushad // sti // callback INT74_Handler // doesn't return here, but rather to CB_IRQ12_RET // (ps2 callback/user callback inbetween if requested) int74_ret_callback=CALLBACK_Allocate(); CALLBACK_Setup(int74_ret_callback,&MOUSE_UserInt_CB_Handler,CB_IRQ12_RET,"int 74 ret"); // pseudocode for CB_IRQ12_RET: // callback MOUSE_UserInt_CB_Handler // cli // mov al, 0x20 // out 0xa0, al // out 0x20, al // popad // pop es // pop ds // iret Bit8u hwvec=(MOUSE_IRQ>7)?(0x70+MOUSE_IRQ-8):(0x8+MOUSE_IRQ); RealSetVec(hwvec,CALLBACK_RealPointer(call_int74)); // Callback for ps2 user callback handling useps2callback = false; ps2callbackinit = false; call_ps2=CALLBACK_Allocate(); CALLBACK_Setup(call_ps2,&PS2_Handler,CB_RETF,"ps2 bios callback"); ps2_callback=CALLBACK_RealPointer(call_ps2); memset(&mouse,0,sizeof(mouse)); mouse.hidden = 1; //Hide mouse on startup mouse.timer_in_progress = false; mouse.mode = 0xFF; //Non existing mode mouse.sub_mask=0; mouse.sub_seg=0x6362; // magic value mouse.sub_ofs=0; Mouse_ResetHardware(); Mouse_Reset(); Mouse_SetSensitivity(50,50,50); }
static void Tandy_SetupTransfer(PhysPt bufpt,bool isplayback) { Bitu length=real_readw(0x40,0xd0); if (length==0) return; /* nothing to do... */ if ((tandy_sb.port==0) && (tandy_dac.port==0)) return; Bit8u tandy_irq = 7; if (tandy_sb.port) tandy_irq = tandy_sb.irq; else if (tandy_dac.port) tandy_irq = tandy_dac.irq; Bit8u tandy_irq_vector = tandy_irq; if (tandy_irq_vector<8) tandy_irq_vector += 8; else tandy_irq_vector += (0x70-8); /* revector IRQ-handler if necessary */ RealPt current_irq=RealGetVec(tandy_irq_vector); if (current_irq!=tandy_DAC_callback[0]->Get_RealPointer()) { real_writed(0x40,0xd6,current_irq); RealSetVec(tandy_irq_vector,tandy_DAC_callback[0]->Get_RealPointer()); } Bit8u tandy_dma = 1; if (tandy_sb.port) tandy_dma = tandy_sb.dma; else if (tandy_dac.port) tandy_dma = tandy_dac.dma; if (tandy_sb.port) { IO_Write(tandy_sb.port+0xc,0xd0); /* stop DMA transfer */ IO_Write(0x21,IO_Read(0x21)&(~(1<<tandy_irq))); /* unmask IRQ */ IO_Write(tandy_sb.port+0xc,0xd1); /* turn speaker on */ } else { IO_Write(tandy_dac.port,IO_Read(tandy_dac.port)&0x60); /* disable DAC */ IO_Write(0x21,IO_Read(0x21)&(~(1<<tandy_irq))); /* unmask IRQ */ } IO_Write(0x0a,0x04|tandy_dma); /* mask DMA channel */ IO_Write(0x0c,0x00); /* clear DMA flipflop */ if (isplayback) IO_Write(0x0b,0x48|tandy_dma); else IO_Write(0x0b,0x44|tandy_dma); /* set physical address of buffer */ Bit8u bufpage=(Bit8u)((bufpt>>16)&0xff); IO_Write(tandy_dma*2,(Bit8u)(bufpt&0xff)); IO_Write(tandy_dma*2,(Bit8u)((bufpt>>8)&0xff)); switch (tandy_dma) { case 0: IO_Write(0x87,bufpage); break; case 1: IO_Write(0x83,bufpage); break; case 2: IO_Write(0x81,bufpage); break; case 3: IO_Write(0x82,bufpage); break; } real_writeb(0x40,0xd4,bufpage); /* calculate transfer size (respects segment boundaries) */ Bit32u tlength=length; if (tlength+(bufpt&0xffff)>0x10000) tlength=0x10000-(bufpt&0xffff); real_writew(0x40,0xd0,(Bit16u)(length-tlength)); /* remaining buffer length */ tlength--; /* set transfer size */ IO_Write(tandy_dma*2+1,(Bit8u)(tlength&0xff)); IO_Write(tandy_dma*2+1,(Bit8u)((tlength>>8)&0xff)); Bit16u delay=(Bit16u)(real_readw(0x40,0xd2)&0xfff); Bit8u amplitude=(Bit8u)((real_readw(0x40,0xd2)>>13)&0x7); if (tandy_sb.port) { IO_Write(0x0a,tandy_dma); /* enable DMA channel */ /* set frequency */ IO_Write(tandy_sb.port+0xc,0x40); IO_Write(tandy_sb.port+0xc,256-delay*100/358); /* set playback type to 8bit */ if (isplayback) IO_Write(tandy_sb.port+0xc,0x14); else IO_Write(tandy_sb.port+0xc,0x24); /* set transfer size */ IO_Write(tandy_sb.port+0xc,(Bit8u)(tlength&0xff)); IO_Write(tandy_sb.port+0xc,(Bit8u)((tlength>>8)&0xff)); } else {
void DOS_SetupMemory(void) { /* Let dos claim a few bios interrupts. Makes DOSBox more compatible with * buggy games, which compare against the interrupt table. (probably a * broken linked list implementation) */ Bit16u ihseg = 0x70; Bit16u ihofs = 0x08; real_writeb(ihseg,ihofs,(Bit8u)0xCF); //An IRET Instruction RealSetVec(0x01,RealMake(ihseg,ihofs)); //BioMenace (offset!=4) RealSetVec(0x02,RealMake(ihseg,ihofs)); //BioMenace (segment<0x8000) RealSetVec(0x03,RealMake(ihseg,ihofs)); //Alien Incident (offset!=0) RealSetVec(0x04,RealMake(ihseg,ihofs)); //Shadow President (lower byte of segment!=0) RealSetVec(0x0f,RealMake(ihseg,ihofs)); //Always a tricky one (soundblaster irq) // Create a dummy device MCB with PSPSeg=0x0008 DOS_MCB mcb_devicedummy((Bit16u)DOS_MEM_START); mcb_devicedummy.SetPSPSeg(MCB_DOS); // Devices mcb_devicedummy.SetSize(1); mcb_devicedummy.SetType(0x4d); // More blocks will follow // mcb_devicedummy.SetFileName("SD "); Bit16u mcb_sizes=2; // Create a small empty MCB (result from a growing environment block) DOS_MCB tempmcb((Bit16u)DOS_MEM_START+mcb_sizes); tempmcb.SetPSPSeg(MCB_FREE); tempmcb.SetSize(4); mcb_sizes+=5; tempmcb.SetType(0x4d); // Lock the previous empty MCB DOS_MCB tempmcb2((Bit16u)DOS_MEM_START+mcb_sizes); tempmcb2.SetPSPSeg(0x40); // can be removed by loadfix tempmcb2.SetSize(16); mcb_sizes+=17; tempmcb2.SetType(0x4d); DOS_MCB mcb((Bit16u)DOS_MEM_START+mcb_sizes); mcb.SetPSPSeg(MCB_FREE); //Free mcb.SetType(0x5a); //Last Block if (machine==MCH_TANDY) { /* memory up to 608k available, the rest (to 640k) is used by the tandy graphics system's variable mapping of 0xb800 */ mcb.SetSize(0x9BFF - DOS_MEM_START - mcb_sizes); } else if (machine==MCH_PCJR) { /* memory from 128k to 640k is available */ mcb_devicedummy.SetPt((Bit16u)0x2000); mcb_devicedummy.SetPSPSeg(MCB_FREE); mcb_devicedummy.SetSize(0x9FFF - 0x2000); mcb_devicedummy.SetType(0x5a); /* exclude PCJr graphics region */ mcb_devicedummy.SetPt((Bit16u)0x17ff); mcb_devicedummy.SetPSPSeg(MCB_DOS); mcb_devicedummy.SetSize(0x800); mcb_devicedummy.SetType(0x4d); /* memory below 96k */ mcb.SetSize(0x1800 - DOS_MEM_START - (2+mcb_sizes)); mcb.SetType(0x4d); } else { /* complete memory up to 640k available */ /* last paragraph used to add UMB chain to low-memory MCB chain */ mcb.SetSize(0x9FFE - DOS_MEM_START - mcb_sizes); } dos.firstMCB=DOS_MEM_START; dos_infoblock.SetFirstMCB(DOS_MEM_START); }
static Bitu DOS_21Handler(void) { if (((reg_ah != 0x50) && (reg_ah != 0x51) && (reg_ah != 0x62) && (reg_ah != 0x64)) && (reg_ah < 0x6c)) if (dos.psp() != 0) // No program loaded yet? { DOS_PSP psp(dos.psp()); psp.SetStack(SegOff2dWord(SegValue(ss), reg_sp-18)); psp.FindFreeFileEntry(); } char name1[DOSNAMEBUF+2+DOS_NAMELENGTH_ASCII]; char name2[DOSNAMEBUF+2+DOS_NAMELENGTH_ASCII]; switch (reg_ah) { case 0x00: // Terminate Program DOS_Terminate(Mem_Lodsw(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 = Mem_Lodsw(0x40, 0); if (port != 0 && serialPorts[0]) serialPorts[0]->Getchar(®_al); } break; case 0x04: // Write Character to STDAUX { Bit16u port = Mem_Lodsw(0x40, 0); if (port != 0 && serialPorts[0]) serialPorts[0]->Putchar(reg_dl); } break; case 0x05: // Write Character to PRINTER parallelPorts[0]->Putchar(reg_dl); break; case 0x06: // Direct Console Output/Input if (reg_dl == 0xff) // Input { // 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); } else // Ouput { Bit8u c = reg_dl; Bit16u n = 1; DOS_WriteFile(STDOUT, &c, &n); reg_al = reg_dl; } break; case 0x07: // Character Input, without echo 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_Lodsb(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_Lodsb(data); if (!free) break; Bit8u read = 0; Bit8u c; Bit16u n = 1; for(;;) { DOS_ReadFile(STDIN, &c ,&n); if (c == 8) { // Backspace if (read) { // Something to backspace. DOS_WriteFile(STDOUT, &c, &n); // STDOUT treats backspace as non-destructive. c = ' '; DOS_WriteFile(STDOUT, &c, &n); c = 8; DOS_WriteFile(STDOUT, &c, &n); --read; } continue; } if (read >= free) // Keyboard buffer full { Beep(1750, 300); continue; } DOS_WriteFile(STDOUT, &c, &n); Mem_Stosb(data+read+2, c); if (c == 13) break; read++; } Mem_Stosb(data+1, read); } break; case 0x0b: // Get STDIN Status reg_al = DOS_GetSTDINStatus() ? 0xff : 0x00; break; case 0x0c: // Flush Buffer and read STDIN call { Bit8u handle = RealHandle(STDIN); if (handle != 0xFF && Files[handle] && Files[handle]->IsName("CON")) // flush buffer if STDIN is CON { Bit8u c; Bit16u n; while (DOS_GetSTDINStatus()) { n = 1; DOS_ReadFile(STDIN, &c, &n); } } if (reg_al == 0x1 || reg_al == 0x6 || reg_al == 0x7 || reg_al == 0x8 || reg_al == 0xa) { Bit8u oldah = reg_ah; reg_ah = reg_al; DOS_21Handler(); reg_ah = oldah; } else reg_al = 0; } break; case 0x0d: // Disk Reset break; case 0x0e: // Select Default Drive DOS_SetDefaultDrive(reg_dl); reg_al = DOS_DRIVES; break; case 0x0f: // Open File using FCB reg_al = DOS_FCBOpen(SegValue(ds), reg_dx) ? 0 : 0xFF; break; case 0x10: // Close File using FCB reg_al = DOS_FCBClose(SegValue(ds), reg_dx) ? 0 : 0xFF; break; case 0x11: // Find First Matching File using FCB reg_al = DOS_FCBFindFirst(SegValue(ds), reg_dx) ? 0 : 0xFF; // No test for C:\COMMAND.COM! break; case 0x12: // Find Next Matching File using FCB reg_al = DOS_FCBFindNext(SegValue(ds), reg_dx) ? 0 : 0xFF; break; case 0x13: // Delete File using FCB reg_al = DOS_FCBDeleteFile(SegValue(ds), reg_dx) ? 0 : 0xFF; break; case 0x14: // Sequential read from FCB reg_al = DOS_FCBRead(SegValue(ds), reg_dx, 0); break; case 0x15: // Sequential write to FCB reg_al = DOS_FCBWrite(SegValue(ds), reg_dx, 0); break; case 0x16: // Create or truncate file using FCB reg_al = DOS_FCBCreate(SegValue(ds), reg_dx) ? 0 : 0xFF; break; case 0x17: // Rename file using FCB reg_al = DOS_FCBRenameFile(SegValue(ds), reg_dx) ? 0 : 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 reg_al = DOS_FCBRandomRead(SegValue(ds), reg_dx, 1, true); break; case 0x22: // Write random record to FCB reg_al = DOS_FCBRandomWrite(SegValue(ds), reg_dx, 1, true); break; case 0x23: // Get file size for FCB reg_al = DOS_FCBGetFileSize(SegValue(ds), reg_dx) ? 0 : 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, reg_cx, false); break; case 0x28: // Random Block write to FCB reg_al = DOS_FCBRandomWrite(SegValue(ds), reg_dx, reg_cx, false); break; case 0x29: // Parse filename into FCB { Bit8u difference; char string[1024]; Mem_StrnCopyFrom(string, SegPhys(ds)+reg_si, 1023); // 1024 toasts the stack reg_al = FCB_Parsename(SegValue(es), reg_di, reg_al, string, &difference); reg_si += difference; } 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()); break; case 0x2a: // Get System Date { _SYSTEMTIME systime; // Return the Windows localdate GetLocalTime(&systime); reg_al = (Bit8u)systime.wDayOfWeek; // NB Sunday = 0, despite of MSDN documentation reg_cx = systime.wYear; reg_dx = (systime.wMonth<<8)+systime.wDay; } break; case 0x2b: // Set System Date (we don't!) reg_al = 0xff; daysInMonth[2] = reg_cx&3 ? 28 : 29; // Year is from 1980 to 2099, it is this simple if (reg_cx >= 1980 && reg_cx <= 2099) if (reg_dh > 0 && reg_dh <= 12) if (reg_dl > 0 && reg_dl <= daysInMonth[reg_dh]) reg_al = 0; // Date is valid, fake set break; case 0x2c: // Get System Time { _SYSTEMTIME systime; // Return the Windows localtime GetLocalTime(&systime); reg_cx = (systime.wHour<<8) + systime.wMinute; reg_dx = (systime.wSecond<<8) + systime.wMilliseconds/10; } break; case 0x2d: // Set System Time (we don't!) if (reg_ch < 24 && reg_cl < 60 && reg_dh < 60 && reg_dl < 100) reg_al = 0; // Time is valid, fake set else reg_al = 0xff; 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 else if (reg_al == 1) reg_bh = 0; // DOS is NOT in HMA reg_al = dos.version.major; reg_ah = dos.version.minor; reg_bl = 0; // Serialnumber reg_cx = 0; 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 = 0; SegSet16(ds, dos.tables.dpb); reg_bx = drive; // Faking only the first entry (that is the driveletter) } else reg_al = 0xff; } break; case 0x33: // Extended Break Checking switch (reg_al) { case 0: // Get the breakcheck flag reg_dl = dos.breakcheck; break; case 1: // Set the breakcheck flag dos.breakcheck = (reg_dl > 0); break; case 2: { bool old = dos.breakcheck; dos.breakcheck = (reg_dl > 0); reg_dl = old; } break; case 3: // Get cpsw case 4: // Set cpsw, both not used really break; case 5: reg_dl = 3; // Boot drive = C: break; case 6: // Get true version number reg_bx = (dos.version.minor<<8) + dos.version.major; reg_dx = 0x1000; // Dos in ROM break; default: reg_al = 0xff; } break; case 0x34: // Get address of INDos Flag SegSet16(es, DOS_SDA_SEG); reg_bx = DOS_SDA_OFS + 0x01; break; case 0x35: // Get interrupt vector reg_bx = Mem_Lodsw(0, ((Bit16u)reg_al)*4); SegSet16(es, Mem_Lodsw(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 reg_ax = 0xffff; // invalid drive specified } break; case 0x37: // Get/Set Switch char Get/Set Availdev thing switch (reg_al) { case 0: reg_dl = 0x2f; // Always return '/' like dos 5.0+ break; case 1: reg_al = 0; break; case 2: reg_al = 0; reg_dl = 0x2f; break; case 3: reg_al = 0; break; } break; case 0x38: // Get/set Country Code if (reg_al == 0) // Get country specidic information { PhysPt dest = SegPhys(ds)+reg_dx; Mem_CopyTo(dest, dos.tables.country, 0x18); reg_ax = reg_bx = 1; CALLBACK_SCF(false); } else // Set country code CALLBACK_SCF(true); break; case 0x39: // MKDIR Create directory Mem_StrnCopyFrom(name1, SegPhys(ds)+reg_dx, DOSNAMEBUF); rSpTrim(name1); if (DOS_MakeDir(name1)) { reg_ax = 0xffff; // AX destroyed CALLBACK_SCF(false); } else { reg_ax = dos.errorcode; CALLBACK_SCF(true); } break; case 0x3a: // RMDIR Remove directory Mem_StrnCopyFrom(name1, SegPhys(ds)+reg_dx, DOSNAMEBUF); rSpTrim(name1); if (DOS_RemoveDir(name1)) { reg_ax = 0xffff; // AX destroyed CALLBACK_SCF(false); } else { reg_ax = dos.errorcode; CALLBACK_SCF(true); } break; case 0x3b: // CHDIR Set current directory Mem_StrnCopyFrom(name1, SegPhys(ds)+reg_dx, DOSNAMEBUF); rSpTrim(name1); if (DOS_ChangeDir(name1)) { reg_ax = 0xff00; // AX destroyed CALLBACK_SCF(false); } else { reg_ax = dos.errorcode; CALLBACK_SCF(true); } break; case 0x3c: // CREATE Create or truncate file Mem_StrnCopyFrom(name1, SegPhys(ds)+reg_dx, DOSNAMEBUF); rSpTrim(name1); 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_StrnCopyFrom(name1, SegPhys(ds)+reg_dx, DOSNAMEBUF); rSpTrim(name1); 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)) 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_CopyTo(SegPhys(ds)+reg_dx, dos_copybuf, toread); reg_ax = toread; CALLBACK_SCF(false); } else { reg_ax = dos.errorcode; CALLBACK_SCF(true); } dos.echo = false; } break; case 0x40: // WRITE Write to file or device { Bit16u towrite = reg_cx; Mem_CopyFrom(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); } } break; case 0x41: // UNLINK Delete file Mem_StrnCopyFrom(name1, SegPhys(ds)+reg_dx, DOSNAMEBUF); rSpTrim(name1); 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); } }