void DOS_InfoBlock::SetLocation(Bit16u segment) { seg = segment; pt=PhysMake(seg,0); /* Clear the initial Block */ for(Bitu i=0;i<sizeof(sDIB);i++) mem_writeb(pt+i,0xff); for(Bitu i=0;i<14;i++) mem_writeb(pt+i,0); sSave(sDIB,regCXfrom5e,(Bit16u)0); sSave(sDIB,countLRUcache,(Bit16u)0); sSave(sDIB,countLRUopens,(Bit16u)0); sSave(sDIB,protFCBs,(Bit16u)0); sSave(sDIB,specialCodeSeg,(Bit16u)0); sSave(sDIB,joindedDrives,(Bit8u)0); sSave(sDIB,lastdrive,(Bit8u)0x01);//increase this if you add drives to cds-chain sSave(sDIB,diskInfoBuffer,RealMake(segment,offsetof(sDIB,diskBufferHeadPt))); sSave(sDIB,setverPtr,(Bit32u)0); sSave(sDIB,a20FixOfs,(Bit16u)0); sSave(sDIB,pspLastIfHMA,(Bit16u)0); sSave(sDIB,blockDevices,(Bit8u)0); sSave(sDIB,bootDrive,(Bit8u)0); sSave(sDIB,useDwordMov,(Bit8u)1); sSave(sDIB,extendedSize,(Bit16u)(MEM_TotalPages()*4-1024)); sSave(sDIB,magicWord,(Bit16u)0x0001); // dos5+ sSave(sDIB,sharingCount,(Bit16u)0); sSave(sDIB,sharingDelay,(Bit16u)0); sSave(sDIB,ptrCONinput,(Bit16u)0); // no unread input available sSave(sDIB,maxSectorLength,(Bit16u)0x200); sSave(sDIB,dirtyDiskBuffers,(Bit16u)0); sSave(sDIB,lookaheadBufPt,(Bit32u)0); sSave(sDIB,lookaheadBufNumber,(Bit16u)0); sSave(sDIB,bufferLocation,(Bit8u)0); // buffer in base memory, no workspace sSave(sDIB,workspaceBuffer,(Bit32u)0); sSave(sDIB,minMemForExec,(Bit16u)0); sSave(sDIB,memAllocScanStart,(Bit16u)DOS_MEM_START); sSave(sDIB,startOfUMBChain,(Bit16u)0xffff); sSave(sDIB,chainingUMB,(Bit8u)0); sSave(sDIB,nulNextDriver,(Bit32u)0xffffffff); sSave(sDIB,nulAttributes,(Bit16u)0x8004); sSave(sDIB,nulStrategy,(Bit32u)0x00000000); sSave(sDIB,nulString[0],(Bit8u)0x4e); sSave(sDIB,nulString[1],(Bit8u)0x55); sSave(sDIB,nulString[2],(Bit8u)0x4c); sSave(sDIB,nulString[3],(Bit8u)0x20); sSave(sDIB,nulString[4],(Bit8u)0x20); sSave(sDIB,nulString[5],(Bit8u)0x20); sSave(sDIB,nulString[6],(Bit8u)0x20); sSave(sDIB,nulString[7],(Bit8u)0x20); /* Create a fake SFT, so programs think there are 100 file handles */ Bit16u sftOffset=offsetof(sDIB,firstFileTable)+0xa2; sSave(sDIB,firstFileTable,RealMake(segment,sftOffset)); real_writed(segment,sftOffset+0x00,RealMake(segment+0x26,0)); //Next File Table real_writew(segment,sftOffset+0x04,100); //File Table supports 100 files real_writed(segment+0x26,0x00,0xffffffff); //Last File Table real_writew(segment+0x26,0x04,100); //File Table supports 100 files }
Bitu XMS_Handler(void) { // LOG(LOG_MISC,LOG_ERROR)("XMS: CALL %02X",reg_ah); switch (reg_ah) { case XMS_GET_VERSION: /* 00 */ reg_ax=XMS_VERSION; reg_bx=XMS_DRIVER_VERSION; reg_dx=0; /* No we don't have HMA */ break; case XMS_ALLOCATE_HIGH_MEMORY: /* 01 */ reg_ax=0; reg_bl=HIGH_MEMORY_NOT_EXIST; break; case XMS_FREE_HIGH_MEMORY: /* 02 */ reg_ax=0; reg_bl=HIGH_MEMORY_NOT_EXIST; break; case XMS_GLOBAL_ENABLE_A20: /* 03 */ case XMS_LOCAL_ENABLE_A20: /* 05 */ SET_RESULT(XMS_EnableA20(true)); break; case XMS_GLOBAL_DISABLE_A20: /* 04 */ case XMS_LOCAL_DISABLE_A20: /* 06 */ SET_RESULT(XMS_EnableA20(false)); break; case XMS_QUERY_A20: /* 07 */ reg_ax = XMS_GetEnabledA20(); reg_bl = 0; break; case XMS_QUERY_FREE_EXTENDED_MEMORY: /* 08 */ reg_bl = XMS_QueryFreeMemory(reg_ax,reg_dx); break; case XMS_ALLOCATE_ANY_MEMORY: /* 89 */ reg_edx &= 0xffff; // fall through case XMS_ALLOCATE_EXTENDED_MEMORY: /* 09 */ { Bit16u handle = 0; SET_RESULT(XMS_AllocateMemory(reg_dx,handle)); reg_dx = handle; }; break; case XMS_FREE_EXTENDED_MEMORY: /* 0a */ SET_RESULT(XMS_FreeMemory(reg_dx)); break; case XMS_MOVE_EXTENDED_MEMORY_BLOCK: /* 0b */ SET_RESULT(XMS_MoveMemory(SegPhys(ds)+reg_si),false); break; case XMS_LOCK_EXTENDED_MEMORY_BLOCK: { /* 0c */ Bit32u address; Bitu res = XMS_LockMemory(reg_dx, address); if(res) reg_bl = (Bit8u)res; reg_ax = (res==0); if (res==0) { // success reg_bx=(Bit16u)(address & 0xFFFF); reg_dx=(Bit16u)(address >> 16); }; }; break; case XMS_UNLOCK_EXTENDED_MEMORY_BLOCK: /* 0d */ SET_RESULT(XMS_UnlockMemory(reg_dx)); break; case XMS_GET_EMB_HANDLE_INFORMATION: /* 0e */ SET_RESULT(XMS_GetHandleInformation(reg_dx,reg_bh,reg_bl,reg_dx),false); break; case XMS_RESIZE_ANY_EXTENDED_MEMORY_BLOCK: /* 0x8f */ if(reg_ebx > reg_bx) LOG_MSG("64MB memory limit!"); //fall through case XMS_RESIZE_EXTENDED_MEMORY_BLOCK: /* 0f */ SET_RESULT(XMS_ResizeMemory(reg_dx, reg_bx)); break; case XMS_ALLOCATE_UMB: { /* 10 */ if (!umb_available) { reg_ax=0; reg_bl=XMS_FUNCTION_NOT_IMPLEMENTED; break; } Bit16u umb_start=dos_infoblock.GetStartOfUMBChain(); if (umb_start==0xffff) { reg_ax=0; reg_bl=UMB_NO_BLOCKS_AVAILABLE; reg_dx=0; // no upper memory available break; } /* Save status and linkage of upper UMB chain and link upper memory to the regular MCB chain */ Bit8u umb_flag=dos_infoblock.GetUMBChainState(); if ((umb_flag&1)==0) DOS_LinkUMBsToMemChain(1); Bit8u old_memstrat=DOS_GetMemAllocStrategy()&0xff; DOS_SetMemAllocStrategy(0x40); // search in UMBs only Bit16u size=reg_dx;Bit16u seg; if (DOS_AllocateMemory(&seg,&size)) { reg_ax=1; reg_bx=seg; } else { reg_ax=0; if (size==0) reg_bl=UMB_NO_BLOCKS_AVAILABLE; else reg_bl=UMB_ONLY_SMALLER_BLOCK; reg_dx=size; // size of largest available UMB } /* Restore status and linkage of upper UMB chain */ Bit8u current_umb_flag=dos_infoblock.GetUMBChainState(); if ((current_umb_flag&1)!=(umb_flag&1)) DOS_LinkUMBsToMemChain(umb_flag); DOS_SetMemAllocStrategy(old_memstrat); } break; case XMS_DEALLOCATE_UMB: /* 11 */ if (!umb_available) { reg_ax=0; reg_bl=XMS_FUNCTION_NOT_IMPLEMENTED; break; } if (dos_infoblock.GetStartOfUMBChain()!=0xffff) { if (DOS_FreeMemory(reg_dx)) { reg_ax=0x0001; break; } } reg_ax=0x0000; reg_bl=UMB_NO_BLOCKS_AVAILABLE; break; case XMS_QUERY_ANY_FREE_MEMORY: /* 88 */ reg_bl = XMS_QueryFreeMemory(reg_ax,reg_dx); reg_eax &= 0xffff; reg_edx &= 0xffff; reg_ecx = (MEM_TotalPages()*MEM_PAGESIZE)-1; // highest known physical memory address break; case XMS_GET_EMB_HANDLE_INFORMATION_EXT: { /* 8e */ Bit8u free_handles; Bitu result = XMS_GetHandleInformation(reg_dx,reg_bh,free_handles,reg_dx); if (result != 0) reg_bl = result; else { reg_edx &= 0xffff; reg_cx = free_handles; } reg_ax = (result==0); } break; default: LOG(LOG_MISC,LOG_ERROR)("XMS: unknown function %02X",reg_ah); reg_ax=0; reg_bl=XMS_FUNCTION_NOT_IMPLEMENTED; }