Power-Programmierung

home *** CD-ROM | disk | FTP | other *** search

/ Power-Programmierung / CD1.mdf / assemblr / library / memory / sems / sems5.asm next >

Wrap

Assembly Source File | 1988-12-22 | 104KB | 4,239 lines

PAGE 80,132 NAME SEMS5 ;************************************************************************ ;* * ;* * ;* EMM/EMS driver program for SUNTAC-62 chip set version B1 * ;* * ;* ONLY EVALUATION * ;* SAMPLE PROGRAM * ;* * ;* Version 4.0/Release 1.x 12/22/1988 * ;* * ;************************************************************************ ; ; physical pages struct ; phys_page_struct STRUC emm_handle2 DW ? ;EMM handle phys_page_port DW ? ;physical page i/o port address phys_seg_addr DW ? ;physical page segment address log_page_data DB ? ;logical page no. data phys_page_struct ENDS handle_page_struct STRUC emm_handle3 DW ? page_alloc_to_handle DW ? handle_page_struct ENDS partial_page_map_struct STRUC mappable_segment_count DW ? mappable_segment DW 4 DUP (?) partial_page_map_struct ENDS log_to_phys_map_struct STRUC log_page_number1 DW ? phys_page_number1 DW ? log_to_phys_map_struct ENDS log_to_seg_map_struct STRUC log_page_number2 DW ? mappable_seg_addr DW ? log_to_seg_map_struct ENDS handle_dir_struct STRUC handle_value DW ? handle_name1 DB 8 DUP (?) handle_dir_struct ENDS map_and_jump_struct STRUC target_address1 DD ? log_phys_map_len DB ? log_phys_map_ptr DD ? map_and_jump_struct ENDS map_and_call_struct STRUC target_address2 DD ? new_page_map_len DB ? new_page_map_ptr DD ? old_page_map_len DB ? old_page_map_ptr DD ? reserved DW 4 DUP (?) map_and_call_struct ENDS move_source_dest_struct STRUC region_length1 DD ? source_memory_type1 DB ? source_handle1 DW ? source_initial_offset1 DW ? source_initial_seg_page1 DW ? dest_memory_type1 DB ? dest_handle1 DW ? dest_initial_offset1 DW ? dest_initial_seg_page1 DW ? move_source_dest_struct ENDS xchg_source_dest_struct STRUC region_length2 DD ? source_memory_type2 DB ? source_handle2 DW ? source_initial_offset2 DW ? source_initial_seg_page2 DW ? dest_memory_type2 DB ? dest_handle2 DW ? dest_initial_offset2 DW ? dest_initial_seg_page2 DW ? xchg_source_dest_struct ENDS mappable_phys_page_struct STRUC phys_page_segment DW ? phys_page_number2 DW ? mappable_phys_page_struct ENDS hardware_info_struct STRUC raw_page_size DW ? alternate_register_sets DW ? context_save_area_size DW ? DMA_register_sets DW ? DMA_channel_operation DW ? hardware_info_struct ENDS HANDLE_CNT EQU 255 ;max handle count PAGE_MAX EQU 216 ;max logical page count BACK_MAX EQU 40 ;max mapping data backup count EMSIOA EQU 0E8H ;EMS i/o port address A EMSIOB EQU 98H ;EMS i/o port address B CHKIOA EQU 9DH ;EMS i/o port A check data CHKIOB EQU 93H ;EMS i/o port B check data I8042 EQU 60H ;i8042 i/o port address TIME_OUT EQU 1000 ; STATSEG EQU 0C000H ;defult start page frame address ROMSEG EQU 0F000H ;option ROM area segment address ENDSEG EQU 0F000H ;BIOS ROM area segment address NOT_USE EQU 0AA55H ;not used logical page code NON EQU 0FFFFH ;non or bad logical page code CR EQU 0DH ;Carriage Return code LF EQU 0AH ;Line Feed code TAB EQU 09H ;TAB code MEMSIZE EQU 413H ;system memory size data area address DIS_EMS EQU 0 ;physical page disable data EMSVER EQU 40H ;EMS version 4.0 HANDLE_NAME_SIZE EQU 8 ;EMM handle name byte size UNMAP EQU 0FFFFH ;unmap code UNALLOC EQU 0FFFFH ;unallocate code PUSH_REG EQU 8 * 2 ;push register size EMMWORK EQU 50 ;EMM driver work area size RET_SP EQU EMMWORK+PUSH_REG+6+10 ;int67 stack size PHYS_PAGES EQU 4 ;physical page count RAW_PAGES EQU 400H ;raw page size (16KB) CONTEXT_SIZE EQU SIZE phys_page_struct * PHYS_PAGES ALTER_REGS EQU 0 ;alter map register set count DMA_REGS EQU 0 ;alter DMA register set count DMA_CHANNEL EQU 0 ;DMA channel number VOLATILE EQU 0 ;volatile NON_VOLATILE EQU 1 ;non volatile F23_RETSP EQU 10 ; LOG_SIZE EQU 2 ;logical page flag data size FLAG_SIZE EQU 2 ;handle flag size ; ; function 15 struct ; f15_struct STRUC DW 8 DUP (?) f15_map_data DB CONTEXT_SIZE DUP (?) f15_struct ENDS ; ; function 16 struct ; f16_struct STRUC DW 8 DUP (?) f16_map_len DW ? f16_map_data DB CONTEXT_SIZE DUP (?) f16_struct ENDS ; ; function 17 struct ; f17_struct STRUC DW 8 DUP (?) f17_ax_save DW ? f17_map_len DW ? f17_map_data DB PHYS_PAGES * 4 DUP (?) f17_struct ENDS ; ; function 22 struct ; f22_struct STRUC DW 8 DUP (?) f22_ax_save DW ? f22_target_off DW ? f22_target_seg DW ? f22_map_len DW ? f22_map_data DB PHYS_PAGES * 4 DUP (?) f22_struct ENDS ; ; function 23 struct ; f23_struct STRUC DW 8 DUP (?) f23_target_off DW ? f23_target_seg DW ? f23_flag DW ? f23_retoff DW ? f23_retseg DW ? f23_ax_save DW ? f23_new_map_len DW ? f23_new_map_data DB PHYS_PAGES * 4 DUP (?) f23_old_map_len DW ? f23_old_map_data DB PHYS_PAGES * 4 DUP (?) f23_struct ENDS ; ; function 24 struct ; f24_struct STRUC DW 8 DUP (?) source_off DW ? source_seg DW ? dest_off DW ? dest_seg DW ? source_pno DW ? dest_pno DW ? region_low DW ? region_high DW ? source_handle DW ? dest_handle DW ? source_type DW ? dest_type DW ? f24_ax_save DW ? overlap_flag DW ? get_source_f DW ? get_dest_f DW ? f24_struct ENDS ; ; function 28 struct ; f28_struct STRUC DW 8 DUP (?) f28_map_data DB CONTEXT_SIZE DUP (?) f28_struct ENDS ; ; register back area struct ; retreg STRUC bx_save DW ? ;BX save area cx_save DW ? ;CX save area dx_save DW ? ;DX save area si_save DW ? ;SI save area di_save DW ? ;DI save area bp_save DW ? ;BP save area es_save DW ? ;ES save area ds_save DW ? ;DS save area retreg ENDS ; ; return address struct ; ret_struct STRUC DW 8 DUP (?) DB EMMWORK DUP (?) ret_offset DW ? ;return offset address ret_segment DW ? ;return segment address ret_flag DW ? ;return flags ret_struct ENDS ;-- EMS REGISTERS -----------------------------------------------------------: ; : ; EMS_R0 : 76543210 (Read/Write) : ; |+-----+--- EMS i/o port address A9 - A3 (defult 13H or 1DH) : ; | * 13H(98H),1DH(E8H) : ; +-(Write)-- [98H/E8H] port read flag (0:not read, 1:read) : ; +-(Read)--- Register data transmit flag (0:end, 1:not end) : ; : ; EMS_R1 : 76543210 (Reserved) : ; : ; EMS_R2 : 76543210 (Write only) : ; | |++--- EMS flag (00:EMS enable , 11:EMS disable) : ; +----+----- System memory size A19 - A14 (A0H = 640KB) : ; : ; EMS_R3 : 76543210 (Write only) : ; | |++--- Bank size (00:16KB) : ; +----+----- EMS page frame segment address A19 - A14 (C0H = C000H): ; : ; EMS_R4 : 76543210 (Write only) : ; +------+--- Bank 0 page number data (1 - 255) : ; * Data 0 = bank 0 disable : ; : ; EMS_R5 : 76543210 (Write only) : ; +------+--- Bank 1 page number data (1 - 255) : ; * Data 0 = bank 1 disable : ; : ; EMS_R6 : 76543210 (Write only) : ; +------+--- Bank 2 page number data (1 - 255) : ; * Data 0 = bank 2 disable : ; : ; EMS_R7 : 76543210 (Write only) : ; +------+--- Bank 3 page number data (1 - 255) : ; * Data 0 = bank 3 disable : ; : ;----------------------------------------------------------------------------: code SEGMENT ASSUME CS:code ORG 0000H ; DEVICE header block emmdrv DW -1,-1 ;Link to next device DW 8000H ; DW OFFSET emmstat ; DW OFFSET emmint ; DB 'EMMXXXX0' ; ptrsav LABEL DWORD parofs DW 0 ; parseg DW 0 ; page_frame_seg DW 0C000H ;physical page frame address total_pages DW PAGE_MAX ;total logical page count un_alloc_pages DW PAGE_MAX ;unallocate logical page count handle_count DW 0 ;EMM handle used count jump_addr DW 0 ;EMM function jump address data area emm_flag DB 0 ;EMM driver install status ; ; Define offsets for io data packet ; iodat STRUC cmdlen DB ? ;LENGTH OF THIS COMMAND unit DB ? ;SUB UNIT SPECIFIER cmd DB ? ;COMMAND CODE status DW ? ;STATUS DB 8 DUP (?) media DB ? ;MEDIA DESCRIPTOR trans DD ? ;TRANSFER ADDRESS count DW ? ;COUNT OF BLOCKS OR CHARACTERS start DW ? ;FIRST BLOCK TO TRANSFER iodat ENDS ; ; Define offsets for io data packet 2 ; iodat2 STRUC DB 13 DUP (?) DB ? brkoff DW ? ;BREAK ADDRESS (OFFSET) brkseg DW ? ;BREAK ADDRESS (SEGMENT) iodat2 ENDS ; ; Simplistic Strategy routine for non-multi-Tasking system. ; ; Currently just saves I/O packet pointers in PTRSAV for ; later processing by the individual interrupt routines. ; emmstat PROC FAR MOV CS:parofs,BX ; MOV CS:parseg,ES ; RET ; emmstat ENDP ; ; Common program for handling the simplistic I/O packet ; processing scheme in MSDOS ; emmint PROC FAR PUSH AX ;Save all nessacary registers. PUSH BX ; PUSH DI ; PUSH DS ; LDS BX,CS:ptrsav ;Retrieve pointer to I/O Packet. MOV AL,[BX].cmd ;Retrieve Command type. (1 => 11) CMP AL,11 ;Verify that not more than 11 commands. JA cmderr ;Ah, well, error out. CMP AL,3 ; JA exit ; CMP AL,0 ;init. command? JNZ emmchk ;check EMS flag. JMP emminit ;EMS Driver initial. cmderr: ; MOV AL,3 ;Set unknown command error #. err_exit: ; MOV AH,10000001B ;Set error and done bits. STC ;Set carry bit also. JMP exit1 ;Quick way out. ; ; EMM driver install check routine ; emmchk: ; CMP CS:emm_flag,1 ;EMM install flag on? JNZ err_exit ;no exit: ; MOV AH,00000001B ;Set done bit for MSDOS. exit1: ; LDS BX,CS:ptrsav ;Retrieve pointer to I/O Packet. MOV [BX].status,AX ;Save operation compete and status. POP DS ;Restore registers. POP DI ; POP BX ; POP AX ; RET ; emmint ENDP ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;-------------------------------------------------------------------- ; int 67H EMM driver main routine ;-------------------------------------------------------------------- int67 PROC FAR CLI ; SUB SP,EMMWORK ; PUSH DS ;Save registers... PUSH ES ; PUSH BP ; PUSH DI ; PUSH SI ; PUSH DX ; PUSH CX ; PUSH BX ; MOV BP,SP ; CLD ; PUSH CS ; POP DS ; ASSUME DS:code CMP AH,40H ;--- function code check --- JB err84 ; FUNCTION 1 - 30 ? CMP AH,5EH ; JNB err84 ;--------------------------- PUSH BX ; MOV jump_addr,AX ; XCHG AH,AL ; XOR AH,AH ; SUB AX,40H ; SHL AX,1 ; MOV BX,OFFSET func_table ; ADD BX,AX ; MOV AX,[BX] ; XCHG AX,jump_addr ; POP BX ; JMP jump_addr ;---- jump to functions ----- noerr: ;normal return point. XOR AH,AH ; err_ret: ;error return point. POP BX ;Restore registers... POP CX ; POP DX ; POP SI ; POP DI ; POP BP ; POP ES ; POP DS ; ADD SP,EMMWORK ; IRET ; int67 ENDP ;-------------------------------------------------------------------- ; EMM driver function jump table ; (40H - 5DH) ;-------------------------------------------------------------------- func_table LABEL WORD DW OFFSET func1 ;function 1 DW OFFSET func2 ;function 2 DW OFFSET func3 ;function 3 DW OFFSET func4 ;function 4 DW OFFSET func5 ;function 5 DW OFFSET func6 ;function 6 DW OFFSET func7 ;function 7 DW OFFSET func8 ;function 8 DW OFFSET func9 ;function 9 DW OFFSET func10 ;function 10 DW OFFSET func11 ;function 11 DW OFFSET func12 ;function 12 DW OFFSET func13 ;function 13 DW OFFSET func14 ;function 14 DW OFFSET func15 ;function 15 DW OFFSET func16 ;function 16 DW OFFSET func17 ;function 17 DW OFFSET func18 ;function 18 DW OFFSET func19 ;function 19 DW OFFSET func20 ;function 20 DW OFFSET func21 ;function 21 DW OFFSET func22 ;function 22 DW OFFSET func23 ;function 23 DW OFFSET func24 ;function 24 DW OFFSET func25 ;function 25 DW OFFSET func26 ;function 26 DW OFFSET func27 ;function 27 DW OFFSET func28 ;function 28 DW OFFSET func29 ;function 29 DW OFFSET func30 ;function 30 ;-------------------------------------------------------------------- ; error status set routine ;-------------------------------------------------------------------- ;The manager detected a malfunction in the EMM software. err80: MOV AH,80H JMP err_ret ;The manager detected a malfunction in the expanded memory hardware. err81: MOV AH,81H JMP err_ret ;The EMM couldn't find the EMM handle your program specified. err83: MOV AH,83H JMP err_ret ;The function code passed to the EMM is not defined. err84: MOV AH,84H JMP err_ret ;All EMM handles are being used. err85: MOV AH,85H JMP err_ret ;The EMM detected a "save" or "restore" page mapping context error. err86: MOV AH,86H JMP err_ret ;There aren't enough expanded memory pages to satisfy your program's request. err87: MOV AH,87H JMP err_ret ;There aren't enough unallocated pages to satisfy your program's request. err88: MOV AH,88H JMP err_ret ;Can't allocate zero (0) pages. err89: MOV AH,89H JMP err_ret ;The logical page is out of the range of logical pages which are allocated to ;the EMM handle. err8a: MOV AH,8AH JMP err_ret ;The physical page to which the logical page is mapped is out of the range of ;physical pages. err8b: MOV AH,8BH JMP err_ret ;The page mapping hardware state save area is full. err8c: MOV AH,8CH JMP err_ret ;The page mapping hardware state save area already has a state associated with ;the EMM handle. err8d: MOV AH,8DH JMP err_ret ;The page mapping hardware state save area doesn't have a state associated with ;the EMM handle. err8e: MOV AH,8EH JMP err_ret ;The subfunction parameter passed to the function isn't defined. err8f: MOV AH,8FH JMP err_ret ;The attrbute type is undefined. err90: MOV AH,90H JMP err_ret ;The system configuration does not support non_volatility. err91: MOV AH,91H JMP err_ret ;The source and destination expanded memory region have the same handle and ;overlap. (move) err92: MOV AH,92H JMP err_ret ;The length of the specified source or destination expanded memory region ;exceeds the length of the expanded memory region allocated to the specified ;source or destination handle. err93: MOV AH,93H JMP err_ret ;The conventional memory region and expanded memory region overlap. err94: MOV AH,94H JMP err_ret ;The offset within the logical page exceeds the length of the logical page. err95: MOV AH,95H JMP err_ret ;Region length exceeds 1M_byte limit. err96: MOV AH,96H JMP err_ret ;The source and destination expanded memory region have the same handle and ;overlap. (exchanged) err97: MOV AH,97H JMP err_ret ;The memory source and destination type are undefined/not supported. err98: MOV AH,98H JMP err_ret ;Alternate map register serts are supported, but the alternate map register set ;specified is not support. err9a: MOV AH,9AH JMP err_ret ;Alternate map/DMA register sets are supported. However, all alternate map/DMA ;register sets are currently allocated. err9b: MOV AH,9BH JMP err_ret ;Alternate map/DMA register sets are not supported, and the alternate map/DMA ;register set specified is not zero. err9c: MOV AH,9CH JMP err_ret ;Alternate map register serts are supported, but the alternate map register set ;specified is not defined, not allocated, or is the currently allocated map ;register set. err9d: MOV AH,9DH JMP err_ret ;Dedicated DMA channels are not supported. err9e: MOV AH,9EH JMP err_ret ;Dedicated DMA channels are not supported. But the DMA channel specified is not ;supported. err9f: MOV AH,9FH JMP err_ret ;No corresponding handle value could be found for the handle name specified. erra0: MOV AH,0A0H JMP err_ret ;A handle with this name already exists. erra1: MOV AH,0A1H JMP err_ret ;An attempt was made to "wrap around" the 1M_byte address space during the ;move/exchange. erra2: MOV AH,0A2H JMP err_ret ;The contents of the data structure passed to the function have either been ;corrupted or are meaningless. erra3: MOV AH,0A3H JMP err_ret ;The operating system has denied access to the this function. erra4: MOV AH,0A4H JMP err_ret ;------ function 1 -------------------------------------------------- ; Get status ; output ; AH : status ;-------------------------------------------------------------------- func1: STI ; CMP emm_flag,1 ;EMM install flag on? JNZ f11 ;no JMP noerr ;exit f11: ; JMP err80 ;error exit ;------ function 2 -------------------------------------------------- ; Get page frame address ; output ; AH : status ; BX : page segment address ;-------------------------------------------------------------------- func2: STI ; MOV BX,page_frame_seg ;get EMM physical page segment f21: ; address. MOV [BP].bx_save,BX ; JMP noerr ;exit ;------ function 3 -------------------------------------------------- ; Get unallocated page count ; output ; AH : status ; BX : unallocate page ; DX : all page ;-------------------------------------------------------------------- func3: ;v0.5.... MOV DX,total_pages ;Get total page count MOV BX,un_alloc_pages ;Get unallocated page count MOV [BP].dx_save,DX ;Save all page count JMP f21 ; ;------ function 4 -------------------------------------------------- ; Allocate pages ; input ; BX : request allocate page ; output ; AH : status ; DX : EMM handle ;-------------------------------------------------------------------- func4: ;v0.6.... OR BX,BX ;request page size 0 ? JZ f49 ;yes f41: ; CMP total_pages,BX ;request total size over ? JB f42 ;yes CMP un_alloc_pages,BX ;request unallocate size over ? JB f43 ;yes XOR DX,DX ; XOR SI,SI ; MOV CX,HANDLE_CNT ; f45: ; CMP [SI].handle_flag,0 ;not used EMM handle ? JZ f44 ; INC DX ; ADD SI,FLAG_SIZE ;add handle flag size LOOP f45 ; JMP err85 ;error exit f44: ; MOV [SI].handle_flag,1 ;handle active flag set INC handle_count ;used EMM handle count up SUB un_alloc_pages,BX ;unallocated page - BX MOV [SI].alloc_page_count,BX;EMM handle used page count set MOV [SI].back_address,0 ;backup address clear MOV DI,page_ptr ; MOV [SI].page_address,DI ;set page buffer pointer PUSH CS ; POP ES ; MOV SI,OFFSET log_page ; XOR AX,AX ; MOV CX,BX ; JCXZ f48 ;CX = 0? f47: ; CMP WORD PTR [SI],NOT_USE ;unallocated page ? JZ f46 ; f4a: ; ADD SI,LOG_SIZE ; INC AX ; JMP f47 ; f46: ; MOV [SI],DX ;EMM handle set STOSW ;logical page no. set LOOP f4a ; f48: ; MOV [BP].dx_save,DX ;return EMM handle MOV [BP].bx_save,BX ;allocated pages count set MOV page_ptr,DI ; JMP noerr ;exit f49: ; JMP err89 ;error exit f42: ; JMP err87 ;error exit f43: ; JMP err88 ;error exit ;------ function 5 -------------------------------------------------- ; Map handle pages ; input ; AL : physical page no. ; BX : logical page no. (if BX=FFFFH then unmap) ; DX : EMM handle ; output ; AH : status ;-------------------------------------------------------------------- func5: ;v0.6.... CMP AL,PHYS_PAGES ;physical page no. ok ? JNB f51 ;no MOV DI,OFFSET map_table ;get phys_page_struct pointer.. XCHG AL,CL ; MOV AX,SIZE phys_page_struct; MUL CL ; ADD DI,AX ; CMP DX,HANDLE_CNT ;check handle data... JNB f5a ; MOV SI,DX ; SHL SI,1 ; CMP [SI].handle_flag,0 ;active handle ? JZ f5a ; CMP BX,UNMAP ;unmap ? JZ f57 ; CMP BX,[SI].alloc_page_count;logical page no. OK ? JNB f53 ; SHL BX,1 ; ADD BX,[SI].page_address ; MOV AX,[BX] ; ADD AL,pageofs ; CMP DX,[DI] ;same handle ? JNZ f54 ; CMP AL,[DI].log_page_data ;same page no. ? JZ f56 ; f54: ; PUSH DX ; MOV DX,[DI].phys_page_port ; CALL emsout ; POP DX ; JB f59 ;error? f58: ; MOV [DI],DX ;set handle MOV [DI].log_page_data,AL ;set logical page no. data f56: ; JMP noerr ;exit f57: ; XOR AL,AL ; CMP WORD PTR [DI],UNMAP ; JNZ f55 ; CMP AL,[DI].log_page_data ; JZ f56 ; f55: ; MOV DX,[DI].phys_page_port ;unmapping... CALL emsout ; JB f59 ;error? MOV DX,UNMAP ; JMP f58 ; f51: ; JMP err8b ;error exit f53: ; JMP err8a ;error exit f59: ; JMP err81 ;error exit f5a: ; JMP err83 ;error exit ;------ function 6 -------------------------------------------------- ; Deallocate pages ; input ; DX : EMM handle ; output ; AH : status ;-------------------------------------------------------------------- f61: ;v0.6.... JMP err83 ;error exit f63: ; JMP err86 ;error exit func6: ; PUSH CS ; POP ES ; CMP DX,HANDLE_CNT ;check handle data... JNB f61 ; MOV BX,DX ; SHL BX,1 ; CMP [BX].handle_flag,0 ;handle OK ? JZ f61 ; CMP [BX].back_address,0 ;backup used? JNZ f63 ; MOV CX,[BX].alloc_page_count; JCXZ f6c ;page = 0 ? MOV DI,[BX].page_address ;deallocate logical page... PUSH BX ; f65: ; MOV BX,[DI] ; SHL BX,1 ; MOV [BX].log_page,NOT_USE ; INC un_alloc_pages ;add unallocated pages INC DI ; INC DI ; LOOP f65 ; POP BX ; MOV SI,DI ;clear & sort page buffer... MOV DI,[BX].page_address ; MOV CX,page_ptr ; SUB CX,SI ; SHR CX,1 ; JCXZ f62 ; REPZ MOVSW ; f62: ; MOV CX,[BX].alloc_page_count; JCXZ f68 ; MOV AX,UNALLOC ; REPZ STOSW ; f68: ; XOR DI,DI ;change page address.... MOV SI,[BX].page_address ;get page address. MOV AX,[BX].alloc_page_count;get allocated page count. SHL AX,1 ; MOV CX,handle_count ; f66: ; CMP [DI].handle_flag,0 ;active handle ? JZ f6b ; CMP [DI].page_address,SI ;page_address > SI ? JNG f64 ; SUB [DI].page_address,AX ;page address - AX f64: ; LOOP f6b ; SUB page_ptr,AX ;SUB page pointer MOV CX,PHYS_PAGES ;deallocate physical page... XOR AL,AL ; MOV SI,OFFSET map_table ; f6a: ; CMP [SI],DX ;same handle no.? JNZ f67 ; CALL reset_phys_page ;reset physical page. JNB f67 ;error? JMP err81 ;error exit. f6b: ; ADD DI,FLAG_SIZE ; JMP f66 ; f67: ; INC AL ; ADD SI,SIZE phys_page_struct; LOOP f6a ; f6c: ; MOV [BX].handle_flag,0 ;clear handle use flag MOV [BX].alloc_page_count,0 ;clear allocate page count MOV [BX].page_address,0 ;clear handle page pointer MOV [BX].back_address,0 ;clear handle back pointer MOV DI,OFFSET handle_name ;clear handle name data... MOV AX,DX ; MOV CL,3 ; SHL AX,CL ; ADD DI,AX ; XOR AL,AL ; MOV CX,HANDLE_NAME_SIZE ; REPZ STOSB ; CMP DX,0 ;system handle? JZ f6d ; DEC handle_count ;not use handle count up JMP noerr ;exit f6d: ; MOV [BX].handle_flag,1 ; JMP noerr ;exit ;------ function 7 -------------------------------------------------- ; Get EMS version ; output ; AH : status ; AL : EMS version number ;-------------------------------------------------------------------- func7: STI ; MOV AL,EMSVER ;get version no. JMP noerr ; ;------ function 8 -------------------------------------------------- ; Save page map ; input ; DX : EMM handle ; output ; AH : status ;-------------------------------------------------------------------- func8: ;v0.6.... PUSH CS ; POP ES ; CMP DX,HANDLE_CNT ;check handle data JNB f81 ; MOV SI,DX ; SHL SI,1 ; CMP [SI].handle_flag,1 ;handle OK ? JNZ f81 ; CMP [SI].back_address,0 ;backup ? JNZ f82 ; MOV AL,backup_count ; CMP AL,BACK_MAX ; JB f83 ; JMP err8c ;error exit f83: ; MOV DI,back_ptr ;copy mapping data -> [DI] MOV [SI].back_address,DI ; MOV SI,OFFSET map_table ; MOV CX,CONTEXT_SIZE ; REPZ MOVSB ; INC backup_count ; MOV back_ptr,DI ; JMP noerr ;exit f81: ; JMP err83 ;error exit f82: ; JMP err8d ;error exit ;------ function 9 -------------------------------------------------- ; Restore page map ; input ; DX : EMM handle ; output ; AH : status ;-------------------------------------------------------------------- f91: ;v0.6.... JMP err83 ;error exit func9: ; PUSH CS ; POP ES ; CMP DX,HANDLE_CNT ;check handle data JNB f91 ; MOV BX,DX ; SHL BX,1 ; CMP [BX].handle_flag,1 ;handle OK ? JNZ f91 ; CMP [BX].back_address,0 ;backup ? JZ f92 ; MOV DI,OFFSET map_table ;disable physical pages... MOV CX,PHYS_PAGES ; f93: ; MOV DX,[DI].phys_page_port ; MOV AL,DIS_EMS ; CALL emsout ; JB f97 ; ADD DI,SIZE phys_page_struct; LOOP f93 ; MOV CX,CONTEXT_SIZE ;move mapping data... MOV SI,[BX].back_address ; MOV DI,OFFSET map_table ; PUSH DI ; REPZ MOVSB ; POP DI ; CALL set_pages_map ;enable physical pages... JB f97 ; DEC backup_count ;backup mapping count DEC MOV DI,[BX].back_address ;clear & sort backup buffer... MOV SI,CONTEXT_SIZE ; ADD SI,DI ; MOV CX,back_ptr ; SUB CX,SI ; JCXZ f96 ; REPZ MOVSB ; f96: ; MOV CX,CONTEXT_SIZE ; MOV AL,0FFH ; REPZ STOSB ; MOV SI,[BX].back_address ;change backup address.... MOV [BX].back_address,0 ; XOR DI,DI ; MOV AX,CONTEXT_SIZE ; MOV CX,HANDLE_CNT ; f95: ; CMP [DI].handle_flag,0 ; JZ f94 ; CMP [DI].back_address,SI ; JB f94 ; SUB [DI].back_address,AX ; f94: ; ADD DI,FLAG_SIZE ; LOOP f95 ; SUB back_ptr,AX ;SUB backup pointer JMP noerr ;exit f92: ; JMP err8e ;error exit f97: ; JMP err81 ;error exit ;------ function 10 ------------------------------------------------- ; Get page mapping register I/O port array ; input ; ES:DI : buffer address point ; output ; AH : status ; AL : board count ;-------------------------------------------------------------------- func10: STI ; MOV SI,OFFSET port_addr ; MOV CX,PHYS_PAGES ; REPZ MOVSW ; MOV AL,1 ; JMP noerr ; ;------ function 11 ------------------------------------------------- ; Get logical-to-physical page translation array ; input ; DX : EMM handle ; ES:DI : buffer address point ; output ; AH : status code ; BX : number of pages allocated EMM handle. ;-------------------------------------------------------------------- func11: STI ; CMP DX,HANDLE_CNT ;check handle data JNB f112 ; MOV SI,DX ; SHL SI,1 ; CMP [SI].handle_flag,1 ; JNZ f112 ; MOV CX,[SI].alloc_page_count; JCXZ f112 ; MOV BX,[SI].page_address ; f111: ; MOV AX,[BX] ; ADD AL,pageofs ; XCHG AH,AL ; STOSW ; INC BX ; INC BX ; LOOP f111 ; MOV BX,[SI].alloc_page_count; MOV [BP].bx_save,BX ; JMP noerr ;exit f112: ; JMP err83 ;error exit ;------ function 12 ------------------------------------------------- ; Get EMM handle count ; output ; AH : status ; BX : active EMM handles ;-------------------------------------------------------------------- func12: STI ; MOV BX,handle_count ; f121: ; MOV [BP].bx_save,BX ; JMP noerr ;exit ;------ function 13 ------------------------------------------------- ; Get EMM handle pages ; input ; DX : EMM handle ; output ; AH : status ; BX : pages EMM handle ;-------------------------------------------------------------------- func13: ;v0.6.... STI ; CMP DX,HANDLE_CNT ;check handle data JNB f131 ; MOV SI,DX ; SHL SI,1 ; CMP [SI].handle_flag,1 ;handle OK ? JNZ f131 ; MOV BX,[SI].alloc_page_count; JMP f121 ;exit f131: ; JMP err83 ;error exit ;------ function 14 ------------------------------------------------- ; Get all EMM handle pages ; input ; ES:DI : buffer address point ; output ; AH : status ; BX : number of active EMM handles ;-------------------------------------------------------------------- func14: STI ; XOR SI,SI ; MOV CX,HANDLE_CNT ; XOR BX,BX ; XOR DX,DX ; f142: ; CMP [SI].handle_flag,0 ; JZ f141 ; MOV AX,DX ; STOSW ; MOV AX,[SI].alloc_page_count;v0.5 STOSW ; INC BX ; f141: ; INC DX ; ADD SI,FLAG_SIZE ; LOOP f142 ; JMP f121 ; ;------ function 15 ------------------------------------------------- ; Get/set page map ; input ; AL : request subfunction no. ; ES:DI : mapping registers buffer address point ; output ; AH : status ;-------------------------------------------------------------------- func15: CMP AL,0 ; JZ get_page_map ; CMP AL,1 ; JZ set_page_map ; CMP AL,2 ; JZ get_set_page_map ; CMP AL,3 ; JZ get_size_page_map ; JMP err84 ;error exit ;-------------------------------------------------------------------- ; Get page map. ; input ; ES:DI : dest_page_map ; output ; AH : status ;-------------------------------------------------------------------- get_page_map: MOV SI,OFFSET map_table ; MOV CX,CONTEXT_SIZE ; REPZ MOVSB ; JMP noerr ;exit ;-------------------------------------------------------------------- ; Set page map. ; input ; DS:SI : source_page_map ; output ; AH : status ;-------------------------------------------------------------------- set_page_map: MOV AX,[BP].ds_save ; MOV DS,AX ; MOV CX,CONTEXT_SIZE ; MOV AX,SS ; MOV ES,AX ; LEA DI,[BP].f15_map_data ;save map data. REPZ MOVSB ; set_page_map3: ; LEA DI,[BP].f15_map_data ; CALL check_map_data ;check map data (ES:DI) JNB set_page_map2 ; JMP erra3 ;error exit set_page_map2: ; MOV AX,ES ; MOV DS,AX ; MOV SI,DI ; PUSH CS ; POP ES ; MOV DI,OFFSET map_table ; MOV CX,CONTEXT_SIZE ; REPZ MOVSB ; CALL set_pages_map ;mapping physical pages. JB set_page_map1 ; JMP noerr ;exit set_page_map1: ; JMP err81 ;error exit ;-------------------------------------------------------------------- ; Get & set page map. ; input ; DS:SI : source_page_map ; ES:DI : dest_page_map ; output ; AH : status ;-------------------------------------------------------------------- get_set_page_map: PUSH DI ;save map data... PUSH DS ; PUSH ES ; MOV AX,[BP].ds_save ; MOV DS,AX ; MOV CX,CONTEXT_SIZE ; MOV AX,SS ; MOV ES,AX ; LEA DI,[BP].f15_map_data ; REPZ MOVSB ; POP ES ; POP DS ; POP DI ; MOV SI,OFFSET map_table ;move current map data... MOV CX,CONTEXT_SIZE ; REPZ MOVSB ; MOV AX,SS ; MOV ES,AX ; JMP set_page_map3 ; ;-------------------------------------------------------------------- ; Get size of page map save array. ; output ; AH : status ; AL : size_of_array ;-------------------------------------------------------------------- get_size_page_map: MOV AL,CONTEXT_SIZE ;map data size set. JMP noerr ; ;------ function 16 ------------------------------------------------- ; Get/set partial page map ;-------------------------------------------------------------------- func16: CMP AL,0 ; JZ get_partial_map ; CMP AL,1 ; JZ set_partial_map ; CMP AL,2 ; JZ get_size_partial_map ; JMP err84 ;error exit ;-------------------------------------------------------------------- ; Get size of partial page map save array ; input ; BX : number of pages in the partial array ; output ; AH : status ; AL : size_of_partial_save_array ;-------------------------------------------------------------------- get_size_partial_map: OR BX,BX ;BX = 0? JZ get_size_partial_map1 ; CMP BX,PHYS_PAGES ;BX > physical page count? JG get_size_partial_map2 ; MOV AX,SIZE phys_page_struct;get size of partial map array. MUL BL ; ADD AX,2 ; JMP noerr ;exit get_size_partial_map1: JMP err8f ;error exit get_size_partial_map2: JMP err8b ;error exit ;-------------------------------------------------------------------- ; Get partial page map ; input ; DS:SI : partial_page_map ; ES:DI : dest_array ; output ; AH : status ;-------------------------------------------------------------------- get_partial_map: MOV AX,[BP].ds_save ; MOV DS,AX ; LODSW ; CMP AX,PHYS_PAGES ; JG get_partial_map1 ;rel. 0.2 MOV CX,AX ; JCXZ get_partial_map5 ;page count = 0? STOSW ; get_partial_map4: LODSW ; PUSH CX ; MOV BX,OFFSET map_table ; MOV CX,PHYS_PAGES ; get_partial_map3: CMP AX,CS:[BX].phys_seg_addr; JZ get_partial_map2 ; ADD BX,SIZE phys_page_struct; LOOP get_partial_map3 ; POP CX ; JMP err8b ;error exit get_partial_map2: PUSH SI ;move map data... PUSH DS ; PUSH CS ; POP DS ; MOV SI,BX ; MOV CX,SIZE phys_page_struct; REPZ MOVSB ; POP DS ; POP SI ; POP CX ; LOOP get_partial_map4 ; get_partial_map5: JMP noerr ;exit get_partial_map1: JMP erra4 ;error exit ;-------------------------------------------------------------------- ; Set partial page map ; input ; DS:SI : source_array ; output ; AH : status ;-------------------------------------------------------------------- set_partial_map: MOV AX,[BP].ds_save ; MOV DS,AX ; LODSW ; MOV [BP].f16_map_len,AX ;save page map data length. MOV CX,SIZE phys_page_struct; MUL CL ; MOV CX,AX ; JCXZ set_partial_map1 ; MOV AX,SS ;save page map data... MOV ES,AX ; LEA DI,[BP].f16_map_data ; REPZ MOVSB ; LEA SI,[BP].f16_map_data ;set page map data... MOV AX,ES ; MOV DS,AX ; MOV AX,CS ; MOV ES,AX ; MOV CX,[BP].f16_map_len ;get page map data length. set_partial_map4: MOV AX,[SI].phys_seg_addr ; CALL change_seg_page ;change segment -> phys_page_no JB set_partial_map3 ; MOV DI,OFFSET map_table ; PUSH CX ; MOV CX,SIZE phys_page_struct; MUL CL ; ADD DI,AX ; REPZ MOVSB ; POP CX ; LOOP set_partial_map4 ; CALL set_pages_map ;mapping physical pages. JB set_partial_map2 ; set_partial_map1: JMP noerr ;exit set_partial_map2: JMP err81 ;error exit set_partial_map3: JMP err8b ;error exit ;------ function 17 ------------------------------------------------- ; Map/unmap multiple handle pages ;-------------------------------------------------------------------- func17: STI ; CMP AL,0 ; JZ log_phys_map ; CMP AL,1 ; JZ log_phys_map ; JMP err84 ;error exit ;-------------------------------------------------------------------- ; Logical page/physical page/segment method ; input ; AL : physical page/segment selector ; DX : EMM handle ; CX : logical to physical map length ; DS:SI : pointer to logical to physical/segment map array ; output ; AH : status ;-------------------------------------------------------------------- log_phys_map: MOV [BP].f17_ax_save,AX ; MOV AX,[BP].ds_save ; MOV DS,AX ; CALL check_handle ;check handle data. JNB log_phys_map2 ; JMP err83 ;error exit log_phys_map2: CMP CX,PHYS_PAGES ; JNA log_phys_map1 ; JMP err8b ;error exit log_phys_map1: JCXZ log_phys_map9 ; MOV [BP].f17_map_len,CX ;save page map data length. MOV AX,SS ; MOV ES,AX ; LEA DI,[BP].f17_map_data ;save page map data. SHL CX,1 ; REPZ MOVSW ; MOV AX,SS ; MOV DS,AX ; LEA SI,[BP].f17_map_data ;set page map data pointer. MOV CX,[BP].f17_map_len ;get page map data length. log_phys_map7: MOV BX,[SI].log_page_number1;get logical page no. CMP BX,UNMAP ;unmapping? JZ log_phys_map6 ; CALL check_log_page ;check logical page no. JNB log_phys_map3 ;error? JMP err8a ;error exit log_phys_map3: MOV BX,AX ;set EMM logical page no. log_phys_map6: MOV AX,[BP].f17_ax_save ; CMP AL,0 ;subfunction 0? JNZ log_phys_map8 ; MOV AX,[SI].phys_page_number1;get physical page no. CMP AX,PHYS_PAGES ;check physical page no. JB log_phys_map4 ; JMP err8b ;error exit log_phys_map8: MOV AX,[SI].mappable_seg_addr;get mappable seg_address. CALL change_seg_page ;change segment -> phys_page_no JNB log_phys_map4 ; JMP err8b ;error exit log_phys_map4: CMP BX,UNMAP ;unmapping? JZ log_phys_mapa ; CALL set_phys_page ;set physical page JNB log_phys_map5 ; JMP err81 ;error exit log_phys_mapa: CALL reset_phys_page ;reset physical page JNB log_phys_map5 ; JMP err81 ;error exit log_phys_map5: ADD SI,SIZE log_to_phys_map_struct; LOOP log_phys_map7 ; log_phys_map9: JMP noerr ;exit ;------ function 18 ------------------------------------------------------ ; Reallocate pages ; input ; DX : EMM handle ; BX : reallocation count ; output ; AH : status ; BX : number of pages allocated to handle after reallocation ;------------------------------------------------------------------------- func18: PUSH CS ; POP ES ; CMP DX,HANDLE_CNT ;check handle data... JNB f181 ; MOV SI,DX ; SHL SI,1 ; CMP [SI].handle_flag,0 ; JNZ f181 ; XOR BX,BX ; MOV [BP].bx_save,BX ; JMP err83 ;error exit f182: ; JMP err87 ;error exit f18a: ; JMP noerr ;exit f181: ; CMP total_pages,BX ;request total size over ? JB f182 ;yes MOV AX,[SI].alloc_page_count;get page size to handle OR BX,BX ;reallocate count = 0? JNZ f184 ; MOV CX,AX ; JCXZ f18a ;CX = 0 case? MOV DI,[SI].page_address ;BX = 0 case... PUSH BX ; f185: ; MOV BX,[DI] ; SHL BX,1 ; MOV [BX].log_page,NOT_USE ;unallocate logical page INC un_alloc_pages ;add unallocated pages INC DI ; INC DI ; LOOP f185 ; POP BX ; JMP f18l ; f184: ; CMP AX,BX ;check reallocation/allocated JNZ f18c ;pages. JMP noerr ;same size case. f18c: ; JNB f183 ;BX < allocated count? JMP f186 ; f183: ; MOV CX,AX ;BX < allocated pages case... SUB CX,BX ; MOV DI,[SI].page_address ;BX = 0 case... MOV AX,BX ; SHL AX,1 ; ADD DI,AX ; PUSH BX ; f18b: ; MOV BX,[DI] ; SHL BX,1 ; MOV [BX].log_page,NOT_USE ;unallocate logical page INC un_alloc_pages ;add unallocated pages INC DI ; INC DI ; LOOP f18b ; POP BX ; f18l: ; MOV CX,page_ptr ;clear & sort page buffer... MOV AX,BX ; SHL AX,1 ; ADD AX,[SI].page_address ; SUB CX,AX ; PUSH SI ; MOV DI,[SI].page_address ; MOV AX,BX ; SHL AX,1 ; ADD DI,AX ; MOV AX,[SI].alloc_page_count; MOV SI,[SI].page_address ; SHL AX,1 ; ADD SI,AX ; SHR CX,1 ; JCXZ f18e ; REPZ MOVSW ; f18e: ; MOV CX,page_ptr ; SUB CX,DI ; SHR CX,1 ; JCXZ f18f ; MOV AX,UNALLOC ; REPZ STOSW ; f18f: ; POP SI ; MOV AX,[SI].alloc_page_count; MOV [SI].alloc_page_count,BX;set EMM handle used page count XOR DI,DI ;change other handle page add- SUB AX,BX ;ress.... SHL AX,1 ; MOV BX,[SI].page_address ; MOV CX,handle_count ; f18j: ; CMP [DI].handle_flag,0 ;active handle ? JZ f18k ; CMP [DI].page_address,BX ;page_address > BX ? JNG f18m ; SUB [DI].page_address,AX ;page_address - AX f18m: ; LOOP f18k ; SUB page_ptr,AX ;page_ptr - AX CMP [SI].alloc_page_count,0 ;allocate page count = 0 ? JNZ f18o ; MOV [SI].page_address,0 ;clear page buffer pointer f18o: ; JMP noerr ;exit. f18k: ; ADD DI,FLAG_SIZE ; JMP f18j ; f186: ; MOV CX,BX ;BX > allocated pages case... SUB CX,AX ; CMP un_alloc_pages,CX ;request unallocate size over ? JNB f187 ;no MOV AX,[SI].alloc_page_count; MOV [BP].bx_save,AX ; JMP err88 ;error exit f187: ; PUSH SI ;move page buffer... MOV DI,page_ptr ; CMP [SI].page_address,0 ;not poniter address? JNZ f18p ; MOV [SI].page_address,DI ;set page pointer JMP f18q ; f18p: ; DEC DI ; MOV AX,CX ; SHL AX,1 ; ADD DI,AX ; MOV AX,[SI].alloc_page_count; SHL AX,1 ; ADD AX,[SI].page_address ; PUSH CX ; MOV CX,page_ptr ; SUB CX,AX ; MOV SI,page_ptr ; DEC SI ; STD ; JCXZ f18g ; REPZ MOVSB ; f18g: ; POP CX ; f18q: ; SHL CX,1 ; ADD page_ptr,CX ;pointer add POP SI ; CLD ; MOV DI,[SI].page_address ;allocate add pages... MOV AX,[SI].alloc_page_count; MOV CX,BX ; SUB CX,AX ; SHL AX,1 ; ADD DI,AX ; PUSH SI ; MOV SI,OFFSET log_page ; XOR AX,AX ; f188: ; CMP WORD PTR [SI],UNMAP ;logical page end? JZ f18d ; CMP WORD PTR [SI],NOT_USE ;unallocated page ? JNZ f189 ; MOV WORD PTR [SI],DX ; STOSW ; DEC un_alloc_pages ;unallocated page - 1 LOOP f189 ; POP SI ; MOV AX,[SI].alloc_page_count; MOV [SI].alloc_page_count,BX;set EMM handle used page count XOR DI,DI ;change other handle page add- XCHG AX,BX ;ress.... SUB AX,BX ; SHL AX,1 ; MOV BX,[SI].page_address ; MOV CX,handle_count ; f18h: ; CMP [DI].handle_flag,0 ; JZ f18i ; CMP [DI].page_address,BX ; JNG f18n ; ADD [DI].page_address,AX ; f18n: ; LOOP f18i ; JMP noerr ;exit f18i: ; ADD DI,FLAG_SIZE ; JMP f18h ; f189: ; ADD SI,LOG_SIZE ; INC AX ; JMP f188 ; f18d: ; POP SI ; JMP err80 ;error exit ;------ function 19 ------------------------------------------------- ; Get/set handle attribute ;-------------------------------------------------------------------- func19: STI ; CMP AL,0 ; JZ get_handle_attr ; CMP AL,1 ; JZ set_handle_attr ; CMP AL,2 ; JZ get_attr_cap ; JMP err84 ;error exit ;-------------------------------------------------------------------- ; Get handle attribute ; input ; DX : EMM handle ; output ; AH : status ; AL : handle attribute ;-------------------------------------------------------------------- get_handle_attr: CALL check_handle ;check handle data JNB get_handle_attr1 ; JMP err83 ;error exit get_handle_attr1: MOV AL,VOLATILE ;handle attribute set JMP noerr ;exit ;-------------------------------------------------------------------- ; Set handle attribute ; input ; DX : EMM handle ; BL : new handle attribute ; output ; AH : status ;-------------------------------------------------------------------- set_handle_attr: CALL check_handle ;check handle data JNB set_handle_attr2 ; JMP err83 ;error exit set_handle_attr2: CMP BL,VOLATILE ; JNZ set_handle_attr1 ; JMP noerr ;exit set_handle_attr1: CMP BL,NON_VOLATILE ;handle attribute check JZ set_handle_attr3 ; JMP err90 ;error exit set_handle_attr3: JMP err91 ;error exit ;-------------------------------------------------------------------- ; Get attribute capability ; output ; AH : status ; AL : attribute capability ;-------------------------------------------------------------------- get_attr_cap: CALL check_handle ;check handle data JNB get_attr_cap1 ; JMP err83 ;error exit get_attr_cap1: MOV AL,VOLATILE ;set attribute capability JMP noerr ;exit ;------ function 20 ------------------------------------------------- ; Get/set handle name ;-------------------------------------------------------------------- func20: CMP AL,0 ; JZ get_handle_name ; CMP AL,1 ; JZ set_handle_name ; JMP err84 ;error exit ;-------------------------------------------------------------------- ; Get handle name ; input ; DX : EMM handle ; ES:DI : pointer to handle name array ; output ; AH : status ;-------------------------------------------------------------------- get_handle_name: CALL check_handle ;check handle data JNB get_handle_name1 ; JMP err83 ;error exit get_handle_name1: ; MOV SI,OFFSET handle_name ; MOV AX,DX ; MOV CL,3 ; SHL AX,CL ; ADD SI,AX ; MOV DI,[BP].di_save ; MOV CX,HANDLE_NAME_SIZE ; REPZ MOVSB ; JMP noerr ;exit ;-------------------------------------------------------------------- ; Set handle name ; input ; DX : EMM handle ; DS:SI : pointer to handle name ; output ; AH : status ;-------------------------------------------------------------------- set_handle_name: CALL check_handle ;check handle data JNB set_handle_name1 ; JMP err83 ;error exit set_handle_name1: ; PUSH CS ; POP ES ; MOV AX,[BP].ds_save ; MOV DS,AX ; MOV BX,DX ; MOV CX,HANDLE_CNT ;check handle name... MOV DI,OFFSET handle_name ; XOR DX,DX ; set_handle_name2: ; CALL check_handle ;check handle data JB set_handle_name3 ; PUSH CX ;compare handle name... PUSH SI ; PUSH DI ; MOV CX,HANDLE_NAME_SIZE ; REPZ CMPSB ; POP DI ; POP SI ; POP CX ; JZ set_handle_name4 ;found same handle name ? set_handle_name3: ; ADD DI,HANDLE_NAME_SIZE ; INC DX ; LOOP set_handle_name2 ; MOV DI,OFFSET handle_name ;set handle name... MOV AX,BX ; MOV CL,3 ; SHL AX,CL ; ADD DI,AX ; MOV CX,HANDLE_NAME_SIZE ; REPZ MOVSB ; JMP noerr ;exit set_handle_name4: JMP erra1 ;error exit ;------ function 21 ------------------------------------------------- ; Get handle directory ;-------------------------------------------------------------------- func21: CMP AL,0 ; JZ get_handle_dir ; CMP AL,1 ; JZ search_for_name ; CMP AL,2 ; JZ get_total_handle ; JMP err84 ;error exit ;-------------------------------------------------------------------- ; Get handle directory ; input ; ES:DI : pointer to handle_dir ; output ; AH : status ; AL : number of entries in the handle_dir array ;-------------------------------------------------------------------- get_handle_dir: MOV CX,HANDLE_CNT ; MOV SI,OFFSET handle_name ; XOR DX,DX ; XOR BL,BL ; get_handle_dir1: ; CALL check_handle ;check handle data JB get_handle_dir2 ; MOV AX,DX ;set EMM handle. STOSW ; PUSH CX ;set handle name... PUSH SI ; MOV CX,HANDLE_NAME_SIZE ; REPZ MOVSB ; POP SI ; POP CX ; INC BL ;inc handle count. get_handle_dir2: ; ADD SI,HANDLE_NAME_SIZE ; INC DX ; LOOP get_handle_dir1 ; MOV AL,BL ; JMP noerr ;exit ;-------------------------------------------------------------------- ; Search for named handle ; input ; DS:SI : search handle_name pointer ; output ; AH : status ; DX : EMM handle ;-------------------------------------------------------------------- search_for_name: PUSH CS ; POP ES ; MOV CX,HANDLE_CNT ; MOV DI,OFFSET handle_name ; MOV AX,[BP].ds_save ; MOV DS,AX ; XOR DX,DX ; search_for_name1: ; PUSH CX ; PUSH SI ; PUSH DI ; MOV CX,HANDLE_NAME_SIZE ; REPZ CMPSB ; POP DI ; POP SI ; POP CX ; JZ search_for_name2 ; ADD DI,HANDLE_NAME_SIZE ; INC DX ; LOOP search_for_name1 ; JMP erra0 ;error exit search_for_name2: ; MOV CX,HANDLE_NAME_SIZE ; XOR AL,AL ; REPZ SCASB ; JNZ search_for_name3 ; JMP erra1 ;error exit search_for_name3: ; PUSH CS ; POP DS ; MOV [BP].dx_save,DX ; JMP noerr ;exit ;-------------------------------------------------------------------- ; Get total handle ; output ; AH : status ; BX : total_handles ;-------------------------------------------------------------------- get_total_handle: MOV BX,HANDLE_CNT ;set max handle count. MOV [BP].bx_save,BX ; JMP noerr ;exit ;------ function 22 ------------------------------------------------- ; Alter page map & jump. ; input ; AL : physical page number/segment selector ; DX : EMM handle ; DS:SI : pointer to map_and_jump structure ; output ; AH : status ;-------------------------------------------------------------------- func22: STI ; CMP AL,0 ; JZ f220 ; CMP AL,1 ; JZ f220 ; JMP err8f ;error exit f220: MOV [BP].f22_ax_save,AX ; CALL check_handle ;check handle data. JNB f221 ; JMP err83 ;error exit f221: MOV AX,[BP].ds_save ;copy calling parameters... MOV DS,AX ; LES BX,[SI].target_address1 ; MOV AX,ES ; MOV [BP].f22_target_off,BX ;offset MOV [BP].f22_target_seg,AX ;segment MOV CL,[SI].log_phys_map_len;get mapping data length. XOR CH,CH ; MOV [BP].f22_map_len,CX ;length JCXZ f22a ; LES BX,[SI].log_phys_map_ptr;get log_phys_map_ptr. LEA DI,[BP].f22_map_data ;copy log_phys_map data... SHL CX,1 ; f228: MOV AX,ES:[BX] ; MOV SS:[DI],AX ; INC DI ; INC DI ; INC BX ; INC BX ; LOOP f228 ; f22a: MOV AX,SS ; MOV DS,AX ; MOV CX,[BP].f22_map_len ;length JCXZ f222 ; LEA DI,[BP].f22_map_data ;get mapping data pointer. f223: MOV BX,[DI].log_page_number1;get logical page no. CMP BX,UNMAP ;unmapping? JZ f22b ; CALL check_log_page ;check logical page no. JNB f224 ; JMP err8a ;error exit f224: MOV BX,AX ;set EMM logical page no. f22b: MOV AX,[BP].f22_ax_save ;get phys_page_no/seg_selector. CMP AL,0 ;sub_function 0? JNZ f229 ; MOV AX,[DI].phys_page_number1;get physical page no. CMP AX,PHYS_PAGES ; JB f225 ; JMP err8b ;error exit f229: MOV AX,[DI].mappable_seg_addr;get mappable segment. CALL change_seg_page ;change segment -> phys_page_no. JNB f225 ; JMP err8b ;error exit f225: CMP BX,UNMAP ;unmapping? JZ f227 ; CALL set_phys_page ;set physical page JNB f226 ; JMP err81 ;error exit f227: CALL reset_phys_page ;reset physical page JNB f226 ; JMP err81 ;error exit f226: ADD DI,SIZE log_to_phys_map_struct; LOOP f223 ; f222: MOV AX,[BP].f22_target_seg ;get target address. MOV [BP].ret_segment,AX ;set FAR:JUMP segment. MOV AX,[BP].f22_target_off ;get target address. MOV [BP].ret_offset,AX ;set FAR:JUMP offset. JMP noerr ;exit ;------ function 23 ------------------------------------------------- ; Alter page map & call ;-------------------------------------------------------------------- func23: STI ; CMP AL,0 ; JZ f2300 ; CMP AL,1 ; JZ f2300 ; CMP AL,2 ; JZ get_page_map_stack ; JMP err84 ;error exit ;-------------------------------------------------------------------- ; Get page map stack space size ; output ; AH : status ; BX : stack space required ;-------------------------------------------------------------------- get_page_map_stack: MOV BX,RET_SP ;set stack space... MOV [BP].bx_save,BX ; JMP noerr ;exit ;-------------------------------------------------------------------- ; Alter page map & call ; input ; AL : physical page number/segment selector ; DX : EMM handle ; DS:SI : pointer to map_and_call structure ; output ; AH : status ; AL : number of entries in the handle_dir array ;-------------------------------------------------------------------- f2300: MOV [BP].f23_ax_save,AX ; CALL check_handle ;check handle data JNB f2301 ; JMP err83 ;error exit f2301: MOV AX,[BP].ds_save ; MOV DS,AX ; LES BX,[SI].target_address2 ;get FAR:CALL target_addr. MOV [BP].f23_target_off,BX ;set offset. MOV AX,ES ;get segment MOV [BP].f23_target_seg,AX ;set segment. MOV CL,[SI].new_page_map_len;get new_page_map_len. XOR CH,CH ; MOV [BP].f23_new_map_len,CX ; LES BX,[SI].new_page_map_ptr;get new_page_map_ptr. JCXZ f2303 ; LEA DI,[BP].f23_new_map_data; SHL CX,1 ; f2302: MOV AX,ES:[BX] ; MOV SS:[DI],AX ; INC DI ; INC DI ; INC BX ; INC BX ; LOOP f2302 ; f2303: MOV CL,[SI].old_page_map_len;get old_page_map_len. XOR CH,CH ; MOV [BP].f23_old_map_len,CX ; LES BX,[SI].old_page_map_ptr;get old_page_map_ptr. JCXZ f2305 ; LEA DI,[BP].f23_old_map_data; SHL CX,1 ; f2304: MOV AX,ES:[BX] ; MOV SS:[DI],AX ; INC DI ; INC DI ; INC BX ; INC BX ; LOOP f2304 ; f2305: MOV CX,[BP].f23_new_map_len ;get new_page_map_len. JCXZ f2307 ;mapping page length = 0? MOV AX,SS ; MOV DS,AX ; LEA SI,[BP].f23_new_map_data;get new_page_map_ptr. f2306: MOV BX,[SI].log_page_number2;get logical page no. CMP BX,UNMAP ;unmapping? JZ f2313 ; CALL check_log_page ; JNB f2309 ; JMP err8a ;error exit f2309: MOV BX,AX ; f2313: MOV AX,[BP].f23_ax_save ; CMP AL,0 ;sub_function 0? JZ f2310 ; MOV AX,[SI].mappable_seg_addr; CALL change_seg_page ;change segment -> phys_page_no. JNB f2311 ; JMP err8b ;error exit f2310: MOV AX,[SI].phys_page_number1;get physical page no. CMP AX,PHYS_PAGES ; JB f2311 ; JMP err8b ;error exit f2311: CMP BX,UNMAP ;unmapping? JZ f2312 ; CALL set_phys_page ;set physical page JNB f2308 ;error ? JMP err81 ;error exit f2312: CALL reset_phys_page ;reset physical page JNB f2308 ;error ? JMP err81 ;error exit f2308: ADD SI,SIZE log_to_seg_map_struct; LOOP f2306 ; f2307: MOV BX,OFFSET f2350 ;get FAR:CALL return_addr MOV [BP].f23_retoff,BX ;set offset. MOV AX,CS ; MOV [BP].f23_retseg,AX ;set segment. MOV AX,[BP].ret_flag ;get flags. MOV [BP].f23_flag,AX ;set flags. MOV AH,0 ; POP BX ; POP CX ; POP DX ; POP SI ; POP DI ; POP BP ; POP ES ; POP DS ; IRET ;FAR:CALL to target ; ; far call return point ; f2350: PUSHF ;push flags. POP AX ;pop flags. CLI ; SUB SP,F23_RETSP ; PUSH DS ;PUSH registers... PUSH ES ; PUSH BP ; PUSH DI ; PUSH SI ; PUSH DX ; PUSH CX ; PUSH BX ; MOV BP,SP ; MOV [BP].ret_flag,AX ;set return_flags. MOV CX,[BP].f23_old_map_len ;get old_page_map_len. JCXZ f2351 ;mapping page length = 0? MOV AX,SS ; MOV DS,AX ; LEA SI,[BP].f23_old_map_data;get old_page_map_ptr. f2352: MOV BX,[SI].log_page_number2;get logical page no. CMP BX,UNMAP ;unmapping? JZ f2359 ; CALL check_log_page ; JNB f2358 ; JMP err8a ;error exit f2358: MOV BX,AX ; f2359: MOV AX,[BP].f23_ax_save ; CMP AL,0 ; JZ f2354 ; MOV AX,[SI].mappable_seg_addr; CALL change_seg_page ;change segment -> phys_page_no. JNB f2355 ; JMP err8b ;error exit f2354: MOV AX,[SI].phys_page_number1;get physical page no. CMP AX,PHYS_PAGES ; JB f2355 ; JMP err8b ;error exit f2355: CMP BX,UNMAP ;unmapping? JZ f2357 ; CALL set_phys_page ;set physical page JNB f2353 ;error ? JMP err81 ;error exit f2357: CALL reset_phys_page ;reset physical page JNB f2353 ;error ? JMP err81 ;error exit f2353: ADD SI,SIZE log_to_seg_map_struct; LOOP f2352 ; f2351: JMP noerr ;exit ;------ function 24 ------------------------------------------------- ; Move/exchange memory region ; input ; AL : move/xchg select data (00 = move,01 = xchg) ; DS:SI : pointer to move/xchg_source_dest structure ; output ; AH : status ;-------------------------------------------------------------------- func24: CMP AL,0 ; JZ f2400 ; CMP AL,1 ; JZ f2400 ; JMP err84 ;error exit f2400: MOV [BP].f24_ax_save,AX ; MOV AX,[BP].ds_save ;get calling parameters... MOV DS,AX ; MOV AX,[SI].source_initial_offset1;get source offset. MOV [BP].source_off,AX ; XOR AH,AH ; MOV AL,[SI].source_memory_type1;get source memory type. MOV [BP].source_type,AX ; CMP AX,0 ;conventional? JZ f2401 ; MOV AX,[SI].source_handle1 ;get source handle. MOV [BP].source_handle,AX ; MOV AX,[SI].source_initial_seg_page1;get source page no. MOV [BP].source_pno,AX ; MOV AX,CS:page_frame_seg ; MOV [BP].source_seg,AX ; JMP f2402 ; f2401: MOV AX,[SI].source_initial_seg_page1;get source segment. MOV [BP].source_seg,AX ; f2402: MOV AX,[SI].dest_initial_offset1;get dest offset. MOV [BP].dest_off,AX ; XOR AH,AH ; MOV AL,[SI].dest_memory_type1;get dest memory type. MOV [BP].dest_type,AX ; CMP AX,0 ;conventional? JZ f2403 ; MOV AX,[SI].dest_handle1 ;get dest handle. MOV [BP].dest_handle,AX ; MOV AX,[SI].dest_initial_seg_page1;get dest page no. MOV [BP].dest_pno,AX ; MOV AX,CS:page_frame_seg ; ADD AX,400H ; MOV [BP].dest_seg,AX ; JMP f2404 ; f2403: MOV AX,[SI].dest_initial_seg_page1;get dest segment. MOV [BP].dest_seg,AX ; f2404: LES DI,[SI].region_length1 ;get region length... MOV [BP].region_low,DI ; MOV AX,ES ; MOV [BP].region_high,AX ; CMP AX,10H ;check region size... JB f2405 ; JZ f2406 ; f2407: JMP err96 ;error exit f2406: MOV AX,ES ; OR AX,AX ; JNZ f2407 ; f2405: CMP [BP].source_type,0 ;check source data... JNZ f2408 ; XOR DX,DX ; MOV AX,[BP].source_seg ;conventional case... MOV BX,10H ; MUL BX ; ADD AX,[BP].source_off ; ADC DX,0 ; CMP DX,10H ;check source address... JB f2409 ; f2411: JMP erra2 ;error exit f2409: ADD DX,[BP].region_high ;add region length... ADD AX,[BP].region_low ; ADC DX,0 ; CMP DX,10H ;check address... JB f2412 ; OR AX,AX ; JNZ f2411 ; JMP f2412 ; f2408: MOV DX,[BP].source_handle ; CALL check_handle ;check handle data. JNB f2413 ; JMP err83 ;error exit f2413: MOV BX,[BP].source_pno ; CALL check_log_page ; JNB f2414 ; JMP err8a ;error exit f2414: MOV DI,DX ; MOV AX,[BP].source_off ; CMP AX,4000H ; JB f2415 ; JMP err95 ;error exit f2415: MOV DX,[BP].region_high ; ADD AX,[BP].region_low ; ADC DX,0 ; MOV CX,4000H ; DIV CX ; CMP AX,0 ; JZ f2416 ; INC DX ; f2416: ADD BX,DX ; MOV DX,DI ; CALL check_log_page ; JNB f2412 ; JMP err93 ;error exit f2412: MOV AX,[BP].dest_type ;check dest data... CMP AL,0 ;conventional? JNZ f2417 ; XOR DX,DX ;conventional memory case... MOV AX,[BP].dest_seg ; MOV BX,10H ; MUL BX ; ADD AX,[BP].dest_off ; ADC DX,0 ; CMP DX,10H ;check dest address... JB f2418 ; f2420: JMP erra2 ;error exit f2418: ADD DX,[BP].region_high ;add region length... ADD AX,[BP].region_low ; ADC DX,0 ; CMP DX,10H ;check address... JB f2421 ; OR AX,AX ; JNZ f2420 ; JMP f2421 ; f2417: MOV DX,[BP].dest_handle ;expanded memory case... CALL check_handle ;check handle data. JNB f2422 ; JMP err83 ;error exit f2422: MOV BX,[BP].dest_pno ; CALL check_log_page ;check logical page no. JNB f2423 ; JMP err8a ;error exit f2423: MOV DI,DX ; MOV AX,[BP].dest_off ; CMP AX,4000H ; JB f2424 ; JMP err95 ;error exit f2424: MOV DX,[BP].region_high ; ADD AX,[BP].region_low ; ADC DX,0 ; MOV CX,4000H ; DIV CX ; CMP AX,0 ; JZ f2425 ; INC DX ; f2425: ADD BX,DX ; MOV DX,DI ; CALL check_log_page ; JNB f2421 ; JMP err93 ;error exit f2421: MOV [BP].overlap_flag,0 ; MOV [BP].get_source_f,0 ; MOV [BP].get_dest_f,0 ; MOV AX,[BP].source_type ;check data overlap... CMP AX,[BP].dest_type ;source and dest same type? JZ f2435 ; CMP AX,0 ;conventional memory? JZ f2436 ; MOV [BP].get_source_f,1 ; JMP f2426 ; f2436: MOV [BP].get_dest_f,1 ; JMP f2426 ; f2435: CMP AX,0 ;conventional memory? JZ f2427 ; MOV AX,[BP].source_handle ;expanded memory case... CMP AX,[BP].dest_handle ; JNZ f2426 ; MOV AX,[BP].source_pno ; MOV BX,4000H ; MUL BX ; ADD AX,[BP].source_off ; ADC DX,0 ; MOV SI,AX ; MOV CX,DX ; MOV AX,[BP].dest_pno ; MOV BX,4000H ; MUL BX ; ADD AX,[BP].dest_off ; ADC DX,0 ; MOV DI,AX ; MOV [BP].get_source_f,1 ; MOV [BP].get_dest_f,1 ; JMP f2428 ; f2427: MOV SI,[BP].source_off ;conventional memory case... MOV CX,[BP].source_seg ; MOV DI,[BP].dest_off ; MOV DX,[BP].dest_seg ; f2428: CMP DX,CX ;CX:SI = source JB f2429 ;DX:DI = dest JNZ f2430 ; CMP DI,SI ; JB f2430 ; f2429: XCHG SI,DI ; XCHG CX,DX ; f2430: SUB DI,SI ;DX:DI - CX:SI... SBB DX,CX ; SUB DI,[BP].region_low ; SBB DX,[BP].region_high ; JNB f2426 ;ok f2431: MOV AX,[BP].f24_ax_save ;get AX CMP AL,0 ; JZ f2432 ; JMP err97 ;error exit f2434: JMP err80 ;error exit f2432: MOV [BP].overlap_flag,1 ;set overlap flag. f2426: CLI ;move/xchg memory... f2449: CMP [BP].get_source_f,1 ; JNZ f2433 ; MOV AX,[BP].source_type ; CMP AL,0 ; JZ f2451 ; MOV DX,[BP].source_handle ; MOV BX,[BP].source_pno ; CALL check_log_page ; JB f2434 ; MOV BX,AX ; MOV AL,0 ;set physical page no. CALL set_phys_page ; JB f2434 ; f2451: MOV SI,[BP].source_off ;set offset address. MOV AX,[BP].source_seg ;set segment address.. MOV DS,AX ; f2433: CMP [BP].get_dest_f,1 ; JNZ f2445 ; MOV AX,[BP].dest_type ; CMP AL,0 ; JZ f2452 ; MOV DX,[BP].dest_handle ; MOV BX,[BP].dest_pno ; CALL check_log_page ; JB f2434 ; MOV BX,AX ; MOV AL,1 ;set physical page no. CALL set_phys_page ; JB f2434 ; f2452: MOV DI,[BP].dest_off ;set offset address. MOV AX,[BP].dest_seg ;set segment address.. MOV ES,AX ; f2445: MOV AX,[BP].source_type ; CMP AX,[BP].dest_type ; JNZ f2437 ; CMP AL,0 ; JNZ f2438 ; MOV DX,[BP].region_high ;conventional... MOV CX,[BP].region_low ; JMP f2440 ; f2437: XOR DX,DX ;expanded/conventional... MOV CX,4000H ; CMP AL,0 ; JNZ f2439 ; MOV [BP].get_dest_f,1 ; SUB CX,DI ; JMP f2440 ; f2439: MOV [BP].get_source_f,1 ; SUB CX,SI ; JMP f2440 ; f2438: MOV DX,4000H ;expanded MOV AX,DX ; SUB DX,DI ; SUB AX,SI ; MOV CX,DX ; MOV [BP].get_dest_f,1 ; CMP AX,DX ; JNB f2440 ; MOV CX,AX ; MOV [BP].get_source_f,1 ; MOV [BP].get_dest_f,0 ; f2440: CMP DX,0 ; JNZ f2441 ; JCXZ f2448 ; f2441: MOV AX,[BP].f24_ax_save ; CMP AL,0 ; JNZ f2443 ; MOV AL,[SI] ; MOV ES:[DI],AL ; JMP f2444 ; f2443: MOV AL,[SI] ; XCHG AL,ES:[DI] ; MOV [SI],AL ; f2444: MOV AX,DS ;DS:SI + 1... ADD SI,1 ; ADC AX,0 ; MOV DS,AX ; MOV AX,ES ;ES:DI + 1... ADD DI,1 ; ADC AX,0 ; MOV ES,AX ; MOV AX,[BP].region_low ;region_low - 1... SUB AX,1 ; MOV [BP].region_low,AX ; MOV AX,[BP].region_high ;region_high - 1... SBB AX,0 ; MOV [BP].region_high,AX ; OR AX,[BP].region_low ; JZ f2448 ; SUB CX,1 ;DX:CX - 1... SBB DX,0 ; MOV AX,CX ; OR AX,DX ; JNZ f2441 ; CMP [BP].get_source_f,1 ; JNZ f2446 ; INC [BP].source_pno ; MOV [BP].source_off,0 ; MOV [BP].get_source_f,0 ; f2446: CMP [BP].get_dest_f,1 ; JNZ f2447 ; INC [BP].dest_pno ; MOV [BP].dest_off,0 ; MOV [BP].get_dest_f,0 ; f2447: JMP f2449 ; f2448: CMP [BP].overlap_flag,1 ;overlap flag on? JNZ f2450 ; JMP err92 ;error exit f2450: JMP noerr ;exit ;------ function 25 ------------------------------------------------- ; Get mappable physical address array ;-------------------------------------------------------------------- func25: STI ; CMP AL,0 ; JZ get_map_phys_addr ; CMP AL,1 ; JZ get_map_phys_ent ; JMP err84 ;error exit ;-------------------------------------------------------------------- ; Get mappable physical address array ; input ; ES:DI : mappable_phys_page ; output ; AH : status ; CX : number of entries in the mappable_phys_page ;-------------------------------------------------------------------- get_map_phys_addr: MOV AX,[BP].es_save ; MOV ES,AX ; MOV CX,PHYS_PAGES ; MOV SI,OFFSET map_table ; XOR DX,DX ; get_map_phys_addr1: MOV AX,[SI].phys_seg_addr ; STOSW ; MOV AX,DX ; STOSW ; INC DX ; ADD SI,SIZE phys_page_struct; LOOP get_map_phys_addr1 ; get_map_phys_addr2: MOV CX,PHYS_PAGES ; MOV [BP].cx_save,CX ;set segment addr entrie JMP noerr ;exit ;-------------------------------------------------------------------- ; Get mappable physcal address array entries ; output ; AH : status ; CX : number of entries in the mappable_phys_page ;-------------------------------------------------------------------- get_map_phys_ent: JMP get_map_phys_addr2 ; ;------ function 26 ------------------------------------------------- ; Get expanded memory hardware infomation ;-------------------------------------------------------------------- func26: STI ; CMP AL,0 ; JZ get_hardware_config ; CMP AL,1 ; JZ get_unalloc_raw_page ; JMP err84 ;error exit ;-------------------------------------------------------------------- ; Get hardware configration array ; input ; ES:DI : hardware_info ; output ; AH : status ;-------------------------------------------------------------------- get_hardware_config: CMP OSE_flag,0 ;OS/E flag enable? JZ get_hardware_config1 ; JMP erra4 ;error exit get_hardware_config1: MOV AX,[BP].es_save ; MOV ES,AX ; MOV AX,RAW_PAGES ; STOSW ; MOV AX,ALTER_REGS ; STOSW ; MOV AX,CONTEXT_SIZE ; STOSW ; MOV AX,DMA_REGS ; STOSW ; MOV AX,DMA_CHANNEL ; STOSW ; JMP noerr ;exit ;-------------------------------------------------------------------- ; Get unallocated raw page count ; output ; AH : status ; BX : unallocated raw pages ; DX : total raw pages ;-------------------------------------------------------------------- get_unalloc_raw_page: JMP func3 ;goto function 3 ;------ function 27 ------------------------------------------------- ; Allocate raw pages ; input ; BX : num_of_raw_pages_to_alloc ; output ; AH : status ; DX : raw handle ;-------------------------------------------------------------------- func27: JMP f41 ;goto function 4 ;------ function 28 ------------------------------------------------- ; Alternate map register set ;-------------------------------------------------------------------- func28: STI ; CMP OSE_flag,0 ;OS/E flag enable? JZ f280 ; JMP erra4 ;error exit f280: CMP AL,0 ; JNZ f281 ; JMP get_alter_map_reg ; f281: CMP AL,1 ; JNZ f282 ; JMP set_alter_map_reg ; f282: CMP AL,2 ; JNZ f283 ; JMP get_alter_map_size ; f283: CMP AL,3 ; JNZ f284 ; JMP alloc_alter_map_reg ; f284: CMP AL,4 ; JNZ f285 ; JMP dealloc_alter_map_reg ; f285: CMP AL,5 ; JNZ f286 ; JMP alloc_DMA_reg ; f286: CMP AL,6 ; JNZ f287 ; JMP enable_DMA_alter_reg ; f287: CMP AL,7 ; JNZ f288 ; JMP disable_DMA_alter_reg ; f288: CMP AL,8 ; JNZ f289 ; JMP dealloc_DMA_reg ; f289: JMP err84 ;error exit ;-------------------------------------------------------------------- ; Get alternate map register set ; output ; AH : status ; BL : current active alternate map register set number ; ES:DI : pointer to a map register context save area ;-------------------------------------------------------------------- get_alter_map_reg: MOV DI,CS:alter_map_off ; MOV AX,CS:alter_map_seg ; MOV ES,AX ; OR AX,DI ; JNZ get_alter_map_reg1 ; JMP get_alter_map_reg2 ; get_alter_map_reg1: MOV SI,OFFSET map_table ; PUSH CS ; POP DS ; MOV CX,CONTEXT_SIZE ; REPZ MOVSB ; get_alter_map_reg2: MOV DI,CS:alter_map_off ; MOV AX,CS:alter_map_seg ; MOV [BP].di_save,DI ; MOV [BP].es_save,AX ; MOV BX,[BP].bx_save ; MOV BL,0 ; MOV [BP].bx_save,BX ; JMP noerr ;exit ;-------------------------------------------------------------------- ; Set alternate map register set ; input ; BL : new alternate map register set number ; ES:DI : pointer to a map register context restore area ; output ; AH : status ;-------------------------------------------------------------------- set_alter_map_reg: CLI ; CMP BL,0 ; JZ set_alter_map_reg1 ; JMP err9c ;error exit set_alter_map_reg1: MOV CS:alter_map_off,DI ; MOV AX,ES ; MOV CS:alter_map_seg,AX ; OR AX,DI ; JNZ set_alter_map_reg2 ; JMP noerr ;exit set_alter_map_reg2: MOV AX,ES ; MOV DS,AX ; MOV SI,DI ; MOV CX,CONTEXT_SIZE ; MOV AX,SS ; MOV ES,AX ; LEA DI,[BP].f28_map_data ; REPZ MOVSB ; LEA DI,[BP].f28_map_data ; CALL check_map_data ; JNB set_alter_map_reg3 ; JMP erra3 ;error exit set_alter_map_reg3: MOV SI,DI ; MOV AX,ES ; MOV DS,AX ; MOV CX,CONTEXT_SIZE ; MOV DI,OFFSET map_table ; PUSH CS ; POP ES ; PUSH DI ; REPZ MOVSB ; POP DI ; MOV CX,PHYS_PAGES ; set_alter_map_reg5: MOV DX,CS:[DI].phys_page_port;mapping physical pages... MOV AL,CS:[DI].log_page_data; CALL emsout ; JNB set_alter_map_reg4 ; JMP err81 ;error exit set_alter_map_reg4: ADD DI,SIZE phys_page_struct; LOOP set_alter_map_reg5 ; JMP noerr ;exit ;-------------------------------------------------------------------- ; Get alternate map save array size ; output ; AH : status ; DX : size_of_array ;-------------------------------------------------------------------- get_alter_map_size: MOV DX,CONTEXT_SIZE ; MOV [BP].dx_save,DX ; JMP noerr ;exit ;-------------------------------------------------------------------- ; Allocate alternate map register set ; output ; AH : status ; BL : alternate map register set number ;-------------------------------------------------------------------- alloc_alter_map_reg: MOV BL,0 ; MOV [BP].bx_save,BX ; JMP noerr ;exit ;-------------------------------------------------------------------- ; Deallocate alternate map register set ; input ; BL : alternate map register set number ; output ; AH : status ;-------------------------------------------------------------------- dealloc_alter_map_reg: CMP BL,0 ; JZ dealloc_alter_map_reg1 ; JMP err9c ;error exit dealloc_alter_map_reg1: JMP noerr ;exit ;-------------------------------------------------------------------- ; Allocate DMA register set ; output ; AH : status ; BL : DMA register set number ;-------------------------------------------------------------------- alloc_DMA_reg: MOV BL,0 ; MOV [BP].bx_save,BX ; JMP noerr ;exit ;-------------------------------------------------------------------- ; Enable DMA on alternate map register set ; input ; BL : DMA register set number ; DL : DMA channel number ; output ; AH : status ;-------------------------------------------------------------------- enable_DMA_alter_reg: CMP BL,0 ; JZ enable_DMA_alter_reg1 ; JMP err9c ;error exit enable_DMA_alter_reg1: JMP noerr ;exit ;-------------------------------------------------------------------- ; Disable DMA on alternate map register set ; input ; BL : alternate register set number ; output ; AH : status ;-------------------------------------------------------------------- disable_DMA_alter_reg: CMP BL,0 ; JZ disable_DMA_alter_reg1 ; JMP err9c ;error exit disable_DMA_alter_reg1: JMP noerr ;exit ;-------------------------------------------------------------------- ; Deallocate DMA register set ; input ; BL : DMA register set number ; output ; AH : status ;-------------------------------------------------------------------- dealloc_DMA_reg: CMP BL,0 ; JZ dealloc_DMA_reg1 ; JMP err9c ;error exit dealloc_DMA_reg1: JMP noerr ;exit ;------ function 29 ------------------------------------------------- ; Prepare expanded memory hardware for warm boot ;-------------------------------------------------------------------- func29: MOV AX,CS ; MOV ES,AX ; MOV DS,AX ; MOV DI,OFFSET map_table ;disable physical pages... MOV CX,PHYS_PAGES ; f291: ; MOV [DI].emm_handle2,UNMAP ; MOV [DI].log_page_data,0 ; ADD DI,SIZE phys_page_struct; LOOP f291 ; CALL set_pages_map ; JNB f292 ; JMP err81 ;error exit f292: ; MOV DI,OFFSET handle_flag ;clear handles... MOV CX,HANDLE_CNT ; XOR AX,AX ; REPZ STOSW ; MOV DI,OFFSET alloc_page_count;clear handles... MOV CX,HANDLE_CNT ; REPZ STOSW ; MOV DI,OFFSET page_address ;clear handles... MOV CX,HANDLE_CNT ; REPZ STOSW ; MOV DI,OFFSET back_address ;clear handles... MOV CX,HANDLE_CNT ; REPZ STOSW ; MOV DI,OFFSET handle_name ;clear handles... MOV CX,HANDLE_CNT ; SHL CX,1 ; SHL CX,1 ; REPZ STOSW ; MOV DI,OFFSET alloc_page ;clear logical page buffer... MOV CX,PAGE_MAX ; MOV AX,0FFFFH ; REPZ STOSW ; XOR DI,DI ;set system handle flag... MOV [DI].handle_flag,1 ; MOV DI,OFFSET log_page ;unallocate all logical pages.. MOV AX,NOT_USE ; MOV CX,PAGE_MAX ; REPZ STOSW ; XOR AX,AX ; MOV handle_count,1 ;set active handle count MOV backup_count,AL ;set backup map count MOV AX,total_pages ; MOV un_alloc_pages,AX ;set unallocate page count MOV AX,OFFSET alloc_page ;set page buffer pointer MOV page_ptr,AX ; MOV AX,OFFSET backup_map ;set backup map buffer pointer MOV back_ptr,AX ; JMP noerr ;exit ;------ function 30 ------------------------------------------------- ; Enable/disable OS/E function set functions ; input ; BX,CX : alternate register set number ; output ; AH : status ; BX,CX : alternate register set number ;-------------------------------------------------------------------- func30: STI ; CMP AL,0 ; JZ enable_OSE_func ; CMP AL,1 ; JZ disable_OSE_func ; CMP AL,2 ; JZ return_access_key ; JMP err84 ;error exit ;-------------------------------------------------------------------- ; Enable OS/E function set ; input ; BX,CX : access_key ; output ; AH : status ; BX,CX : access_key ;-------------------------------------------------------------------- enable_OSE_func: CMP OSE_fast,0 ;OS/E fast access flag enable? JZ enable_OSE_func1 ; CMP access_key_h,BX ;compare access key high JNZ enable_OSE_func2 ; CMP access_key_l,CX ;compare access key low JZ enable_OSE_func1 ; enable_OSE_func2: JMP erra4 ;error exit enable_OSE_func1: MOV OSE_flag,0 ;enable OS/E function MOV OSE_fast,0FFFFH ;set OS/E fast access flag MOV BX,access_key_h ; MOV [BP].bx_save,BX ; MOV CX,access_key_l ; MOV [BP].cx_save,CX ; JMP noerr ;exit ;-------------------------------------------------------------------- ; Disable OS/E function set ; input ; BX,CX : access_key ; output ; AH : status ; BX,CX : access_key ;-------------------------------------------------------------------- disable_OSE_func: CMP OSE_fast,0 ;OS/E fast access flag enable? JZ disable_OSE_func1 ; CMP access_key_h,BX ;compare access key high JNZ disable_OSE_func2 ; CMP access_key_l,CX ;compare access key low JZ disable_OSE_func1 ; disable_OSE_func2: JMP erra4 ;error exit disable_OSE_func1: MOV OSE_flag,0FFFFH ;disable OS/E function MOV OSE_fast,0FFFFH ;set OS/E fast access flag MOV BX,access_key_h ; MOV [BP].bx_save,BX ; MOV CX,access_key_l ; MOV [BP].cx_save,CX ; JMP noerr ;exit ;-------------------------------------------------------------------- ; Return access key ; input ; BX,CX : access_key ; output ; AH : status ;-------------------------------------------------------------------- return_access_key: CMP OSE_flag,0 ;OS/E flag enable? JNZ return_access_key2 ; CMP access_key_h,BX ;compare access key high JNZ return_access_key2 ; CMP access_key_l,CX ;compare access key low JZ return_access_key1 ; return_access_key2: JMP erra4 ;error exit return_access_key1: MOV OSE_flag,0 ;enable OS/E function MOV OSE_fast,0 ;reset OS/E fast access flag XOR AX,AX ; MOV ES,AX ; MOV SI,46CH ; MOV AX,ES:[SI] ; ADD BX,AX ;make access key... MOV access_key_h,BX ; MOV SI,46EH ; ADC AX,ES:[SI] ; ADD CX,AX ; MOV access_key_l,CX ; JMP noerr ;exit ;======================================================================== ;-------------------------------------------------------------------- ; Check mapping data. ; input ; ES:DI : pointer to mapping data ; output ; CF = 0 : OK ; CF = 1 : NG ;-------------------------------------------------------------------- check_map_data PROC NEAR PUSH AX ; PUSH CX ; PUSH SI ; PUSH DI ; MOV SI,OFFSET map_table ; MOV CX,PHYS_PAGES ; check_map_data3: MOV AX,ES:[DI].phys_page_port; CMP AX,CS:[SI].phys_page_port; JNZ check_map_data1 ; MOV AX,ES:[DI].phys_seg_addr; CMP AX,CS:[SI].phys_seg_addr; JNZ check_map_data1 ; ADD SI,SIZE phys_page_struct; ADD DI,SIZE phys_page_struct; LOOP check_map_data3 ; CLC ; JMP check_map_data2 ; check_map_data1: STC ; check_map_data2: POP DI ; POP SI ; POP CX ; POP AX ; RET ; check_map_data ENDP ;-------------------------------------------------------------------- ; Check logical page no. ; input ; BX : logical page number in handle ; DX : EMM handle ; output ; AX : logical page number in EMM ; CF = 0 : OK ; CF = 1 : NG ;-------------------------------------------------------------------- check_log_page PROC NEAR PUSH CX ;v0.6.... PUSH SI ; MOV SI,DX ; SHL SI,1 ; CMP BX,CS:[SI].alloc_page_count; JB check_log_page1 ; STC ; JMP check_log_page2 ; check_log_page1: ; MOV SI,CS:[SI].page_address ; MOV AX,BX ; SHL AX,1 ; ADD SI,AX ; MOV AX,CS:[SI] ;get logical no. in EMM CLC ; check_log_page2: ; POP SI ; POP CX ; RET ; check_log_page ENDP ;-------------------------------------------------------------------- ; Check EMM handle no. ; input ; DX : EMM handle ; output ; CF = 0 : OK ; CF = 1 : NG ;-------------------------------------------------------------------- check_handle PROC NEAR PUSH AX ; PUSH DI ; CMP DX,HANDLE_CNT ; JNB check_handle1 ; CLC ;reset CF MOV DI,DX ; SHL DI,1 ; MOV AX,CS:[DI].handle_flag ;active handle ? OR AX,AX ; JNZ check_handle2 ; check_handle1: ; STC ;set CF check_handle2: ; POP DI ; POP AX ; RET ; check_handle ENDP ;-------------------------------------------------------------------- ; Set physical page map. ; output ; CF = 0 : OK ; CF = 1 : NG ;-------------------------------------------------------------------- set_pages_map PROC NEAR PUSH AX ; PUSH CX ; PUSH DX ; PUSH DI ; MOV DI,OFFSET map_table ; MOV CX,PHYS_PAGES ; set_pages_map2: ; MOV DX,CS:[DI].phys_page_port;mapping physical pages... MOV AL,CS:[DI].log_page_data; CALL emsout ; JB set_pages_map1 ; ADD DI,SIZE phys_page_struct; LOOP set_pages_map2 ; CLC ; set_pages_map1: ; POP DI ; POP DX ; POP CX ; POP AX ; RET ; set_pages_map ENDP ;-------------------------------------------------------------------- ; Reset physical page. ; input ; AL : physical page no. ;-------------------------------------------------------------------- reset_phys_page PROC NEAR PUSH AX ; PUSH CX ; PUSH DX ; PUSH DI ; XOR AH,AH ; MOV DI,OFFSET map_table ; MOV CL,SIZE phys_page_struct; MUL CL ; ADD DI,AX ; MOV DX,CS:[DI].phys_page_port; MOV AL,DIS_EMS ; CALL emsout ; JB reset_phys_page1 ;error ? MOV CS:[DI].emm_handle2,UNMAP; MOV CS:[DI].log_page_data,AL;logical page no. reset_phys_page1: ; POP DI ; POP DX ; POP CX ; POP AX ; RET reset_phys_page ENDP ;-------------------------------------------------------------------- ; Set physical page. ; input ; AL : physical page no. ; BX : logical page no. in EMM (if BX=FFFFH then unmap) ; DX : EMM handle ;-------------------------------------------------------------------- set_phys_page PROC NEAR PUSH AX ; PUSH CX ; PUSH DX ; PUSH DI ; XOR AH,AH ; MOV DI,OFFSET map_table ; MOV CL,SIZE phys_page_struct; MUL CL ; ADD DI,AX ; PUSH DX ; MOV DX,CS:[DI].phys_page_port; MOV AX,BX ; ADD AL,CS:pageofs ; CALL emsout ; POP DX ; JB set_phys_page1 ;error ? MOV CS:[DI].emm_handle2,DX ;handle MOV CS:[DI].log_page_data,AL;logical page no. set_phys_page1: POP DI ; POP DX ; POP CX ; POP AX ; RET ; set_phys_page ENDP ;-------------------------------------------------------------------- ; Change mappable segment address to physical page number. ; input ; AX : mappable segment address ; output ; AX : physical page number ;-------------------------------------------------------------------- change_seg_page PROC NEAR PUSH BX ; PUSH CX ; PUSH DI ; CLC ;reset CF XOR BX,BX ; MOV DI,OFFSET map_table ; MOV CX,PHYS_PAGES ; change_seg_page2: CMP AX,CS:[DI].phys_seg_addr; JZ change_seg_page1 ; ADD DI,SIZE phys_page_struct; INC BX ; LOOP change_seg_page2 ; STC ;set CF change_seg_page1: MOV AX,BX ; POP DI ; POP CX ; POP BX ; RET ; change_seg_page ENDP ;-------------------------------------------------------------------- ; Output EMS i/o port. ; input ; DX : i/o port address ; AL : output data ; output ; CF = 0 : OK ; CF = 1 : NG ;-------------------------------------------------------------------- emsout PROC NEAR PUSH AX ; PUSH CX ; PUSH DX ; OUT DX,AL ; MOV CX,1000 ; MOV DX,CS:emsio ;get EMS status port address. emsout2: ; IN AL,DX ; TEST AL,80H ;check TRS flag JZ emsout1 ; LOOP emsout2 ; INC DX ; 00 -> EMS REGISTER R1... XOR AL,AL ; OUT DX,AL ; STC ;set CF JMP emsout3 ; emsout1: ; INC DX ; 00 -> EMS REGISTER R1... XOR AL,AL ; OUT DX,AL ; CLC ;reset CF emsout3: ; POP DX ; POP CX ; POP AX ; RET ; emsout ENDP ;......................................................................... ;-------------------------------------------------------------------- ; EMM driver work data area ;-------------------------------------------------------------------- emsio LABEL WORD ems_io DW 98H ;EMS i/o port address pageofs DB ? ;logical page no. offset data backup_count DB 0 ;mapping data backup count OSE_flag DW 0 ;OS/E function enable flag OSE_fast DW 0 ;OS/E fast access flag access_key_h DW 0 ;OS/E access key high access_key_l DW 0 ;OS/E access key low alter_map LABEL DWORD alter_map_off DW 0 ; alter_map_seg DW 0 ; page_ptr DW alloc_page ;allocate page buffer pointer. back_ptr DW backup_map ;backup map buffer pointer. ; ; i/o port address buffer ; port_addr LABEL WORD DW PHYS_PAGES DUP (-1) ; ; physical page status data area ; map_table LABEL phys_page_struct DB SIZE phys_page_struct * PHYS_PAGES DUP (-1) ; ; handle name buffer ; handle_name LABEL BYTE DB HANDLE_NAME_SIZE * HANDLE_CNT DUP (0) ; ; handle status flag buffer pointers (handle) ; handle_flag LABEL WORD DW HANDLE_CNT DUP(0) ; ; allocate page count buffer pointers (handle) ; alloc_page_count LABEL WORD DW HANDLE_CNT DUP(0) ; ; mapping data backup buffer pointers (handle) ; back_address LABEL WORD DW HANDLE_CNT DUP(0) ; ; mapping data backup area ; backup_map LABEL WORD DB SIZE phys_page_struct * PHYS_PAGES * BACK_MAX DUP(-1) ; ; allocate pages buffer pointers (handle) ; page_address LABEL WORD DW HANDLE_CNT DUP(0) ; ; allocate data area ; alloc_page LABEL WORD DW PAGE_MAX DUP(-1) ; ; logical page kanri data ; 55AAH:not used , 0 - 254:used , FFFFH:bad or non ; log_page LABEL WORD DB LOG_SIZE * PAGE_MAX DUP (-1) ;******************************************************************** ;-------------------------------------------------------------------- ; EMM driver initilize program ;-------------------------------------------------------------------- emminit: PUSH CX ;Store registers... PUSH DX ; PUSH SI ; PUSH ES ; PUSH BP ; PUSH CS ; POP DS ; XOR AX,AX ; MOV ES,AX ; MOV SI,19CH ; MOV WORD PTR ES:[SI],OFFSET int67;set int67 offset. MOV ES:[SI+2],CS ;set int67 segment. MOV SI,OFFSET start_msg ;display start messege. CALL strdsp ; CALL getprm ;get parameters CALL ckemsio ;check EMS i/o port JB errems ;error ? CALL ramchk ;check EMS memory JB errems ;error ? CALL instmsg ;display install message. XOR AX,AX ; MOV ES,AX ; MOV SI,46CH ; MOV AX,ES:[SI] ; ADD BX,AX ;make access key... MOV access_key_h,BX ; MOV SI,46EH ; ADC AX,ES:[SI] ; ADD BX,AX ; MOV access_key_l,BX ; XOR DI,DI ;set system handle... PUSH CS ; POP ES ; MOV ES:[DI].handle_flag,1 ;set system handle active. INC CS:handle_count ;handle count up MOV AX,OFFSET emminit ;make break address... ADD AX,0FH ; MOV CL,4 ; SHR AX,CL ; MOV CX,AX ; MOV AX,CS ; ADD AX,CX ; MOV emm_flag,1 ;set EMM install flag. LDS BX,ptrsav ; MOV [BX].brkoff,0 ;break address offset set. MOV [BX].brkseg,AX ;break address segment set. JMP emmint1 ; errems: ; MOV SI,OFFSET notinst ;display error message CALL strdsp ; MOV emm_flag,0 ;reset EMM install flag. PUSH CS ; POP ES ; MOV DI,OFFSET func_table ; MOV AX,OFFSET err80 ; MOV CX,30 ; REPZ STOSW ; LDS BX,ptrsav ; MOV AX,OFFSET func2 ;set break address offset. MOV [BX].brkoff,AX ;set break address offset. MOV [BX].brkseg,CS ;set break address segment. emmint1: ; POP BP ;Restore registers... POP ES ; POP SI ; POP DX ; POP CX ; JMP exit ;exit initial program. ;-------------------------------------------------------------------- ; Get CONFIG.SYS parameters. ;-------------------------------------------------------------------- getprm PROC NEAR PUSH DS ; INT 12H ;get system memory size. MOV sysmem,AX ; LES BX,ptrsav ; MOV DI,ES:[BX].count; MOV AX,ES:[BX].start; MOV ES,AX ; XOR CL,CL ; getpr2: ; MOV AL,ES:[DI] ; CMP AL,'/' ;option switch? JNZ getpr3 ; INC DI ; MOV AL,ES:[DI] ; CMP AL,'M' ;set system memory size? JNZ getpr1 ; INC DI ; MOV AL,ES:[DI] ; CMP AL,':' ; JNZ getpr3 ; INC DI ; CALL ascbin1 ;change data ascii -> binary. JB getpr5 ; MOV sysmem,AX ;set system memory size data. JMP getpr5 ;next. getpr1: ; CMP AL,'P' ;set page frame address? JNZ getpr3 ; INC DI ; MOV AL,ES:[DI] ; CMP AL,':' ; JNZ getpr1 ; INC DI ; CALL ascbin2 ;change data ascii -> binary. JNB getpr8 ;error ? JMP getpr5 ; getpr8: ; MOV pageseg,AX ; MOV page_frame_seg,AX; OR CL,2 ;set page frame address change flag. JMP getpr5 ; getpr3: ; CMP AL,'I' ;set EMS i/o port address? JNZ getpr6 ; INC DI ; MOV AL,ES:[DI] ; CMP AL,':' ; JNZ getpr1 ; INC DI ; CALL ascbin2 ;change data ascii -> binary. MOV rqioadr,AX ; MOV emsio,AX ; OR CL,1 ;set EMS i/o port address change flag. JMP getpr5 ; getpr6: ; CMP AL,CR ; JZ getpr4 ; getpr5: ; INC DI ; JMP getpr2 ; getpr4: ; MOV sysflg,CL ;set system option flag. POP DS ; RET ; getprm ENDP ;-------------------------------------------------------------------- ; Check EMS i/o port. ; output ; cf = 0 : OK ; cf = 1 : NG ;-------------------------------------------------------------------- ckemsio PROC NEAR MOV DX,EMSIOA ; MOV AL,CHKIOA ; OUT DX,AL ; IN AL,DX ; TEST AL,80H ;check TRS flag JNZ ckems7 ; MOV AL,CHKIOA ; OUT DX,AL ; IN AL,DX ; TEST AL,80H ;check TRS flag JZ ckems1 ; ckems7: ; MOV CX,1000 ; ckems5: ; IN AL,DX ; TEST AL,80H ;check TRS flag JZ ckems6 ; LOOP ckems5 ; JMP ckems1 ; ckems6: ; MOV BL,CHKIOA ; AND BL,7FH ; CMP AL,BL ; JZ ckems2 ; ckems1: ; MOV DX,EMSIOB ; MOV AL,CHKIOB ; OUT DX,AL ; IN AL,DX ; TEST AL,80H ;check TRS flag JNZ ckems8 ; MOV AL,CHKIOB ; OUT DX,AL ; IN AL,DX ; TEST AL,80H ;check TRS flag JZ ckems3 ; ckems8: ; MOV CX,1000 ; ckems9: ; IN AL,DX ; TEST AL,80H ;check TRS flag JZ ckemsa ; LOOP ckems9 ; JMP ckems3 ; ckemsa: ; MOV BL,CHKIOB ; AND BL,7FH ; CMP AL,BL ; JNZ ckems3 ; ckems2: ; MOV CS:emsio,DX ;set i/o port address. TEST BYTE PTR CS:sysflg,1 ; JZ ckems4 ; MOV AX,CS:rqioadr ; MOV BX,AX ;change EMS i/o port addess. MOV DX,CS:emsio ; MOV CL,3 ; SHR AX,CL ; OR AL,80H ; CALL emsout ; MOV CS:emsio,BX ; ckems4: ; CLC ;reset CF RET ; ckems3: ; MOV SI,OFFSET hard_w_err ;display wardware error messege. CALL strdsp ; STC ;set CF RET ; ckemsio ENDP ;-------------------------------------------------------------------- ; Check system memory size. ;-------------------------------------------------------------------- sysram PROC NEAR PUSH CS ; POP DS ; PUSH ES ; XOR AX,AX ;set system memory size. MOV ES,AX ; MOV AX,sysmem ; CMP ES:WORD PTR MEMSIZE,AX ;memory size same ? JZ sysram1 ; MOV ES:WORD PTR MEMSIZE,AX ; INT 19H ;reboot... sysram1: ; POP ES ; MOV BX,40H ; MUL BX ; MOV DX,emsio ; ADD DX,2 ; MOV AL,AH ; CALL emsout ;output EMS i/o port data. SHR AL,1 ; SHR AL,1 ; MOV pageofs,AL ;set page no. offset data MOV DX,STATSEG ;;;v1.01 RET ; sysram ENDP ;-------------------------------------------------------------------- ; Check expanded memory. ; output ; cf = 0 : OK ; cf = 1 : NG ;-------------------------------------------------------------------- ramchk PROC NEAR PUSH AX ; PUSH BX ; PUSH CX ; PUSH DX ; PUSH BP ; PUSH CS ; POP DS ; MOV SI,OFFSET port_addr ;set phys_page i/o port address MOV DI,OFFSET map_table ; MOV CX,PHYS_PAGES ; MOV BX,emsio ; ADD BX,4 ; ramch14: ; MOV [SI],BX ; MOV [DI].phys_page_port,BX ; MOV [DI].log_page_data,0 ; ADD DI,SIZE phys_page_struct; MOV DX,BX ;disable physical pages --- MOV AL,DIS_EMS ; CALL emsout ;-------------------------- INC SI ; INC SI ; INC BX ; LOOP ramch14 ;------------------------------ CALL SYSRAM ;set system memory size TEST BYTE PTR sysflg,2 ;ver x.x....... JZ ramch20 ; MOV AX,pageseg ;physical page segment set MOV page_frame_seg,AX ; JMP ramch12 ; ramch20: ;.............. XOR SI,SI ; ramch4: ;found 64KB free area... MOV BP,DX ; XOR BX,BX ; ramch6: ; MOV ES,DX ; MOV WORD PTR ES:[SI],0000H ; CMP WORD PTR ES:[SI],0AA55H ; JNZ ckrom1 ; XOR AH,AH ; MOV AL,ES:[SI+2] ; MOV CL,5 ; SHL AX,CL ; ADD DX,AX ; JMP ramch1 ; ckrom1: OR BX,BX ; JNZ ckrom2 ; MOV AX,DX ; AND AX,3FFH ; OR AX,AX ; JZ ckrom5 ; AND DX,0FC00H ; ADD DX,400H ; JMP ramch4 ; ckrom2: ADD DX,80H ; ckrom5: MOV WORD PTR ES:[SI],55AAH ; CMP WORD PTR ES:[SI],55AAH ; JZ ramch1 ; INC BX ; CMP BX,20H ; JNB ramch2 ; CMP DX,ROMSEG ; JB ramch6 ; JMP ramch3 ; ramch1: ; CMP DX,ENDSEG ; JB ramch4 ; ramch3: ; PUSH CS ; POP DS ; MOV SI,OFFSET nomem ; CALL strdsp ; STC ; JMP ramch5 ;........................ ramch2: ; PUSH CS ; POP DS ; MOV AX,BP ; MOV page_frame_seg,AX ; ; TEST BYTE PTR sysflg,2 ;ver x.x............. ; JZ ramch12 ; ; MOV AX,pageseg ;physical page segment set ; MOV page_frame_seg,AX ;------------------------------ ramch12: ; MOV AX,page_frame_seg ;segment start address set MOV AL,AH ; MOV DX,emsio ; ADD DX,3 ; CALL emsout ;EMS i/o port data out MOV DI,OFFSET map_table ;set physical page frame address MOV CX,PHYS_PAGES ; MOV AX,page_frame_seg ;+ ramch18: ;+ MOV [DI].phys_seg_addr,AX ;+ ADD DI,SIZE phys_page_struct;+ ADD AX,0400H ;+ LOOP ramch18 ;------------------------------ MOV SI,OFFSET pagemsg ;display page test msg.. CALL strdsp ; IN AL,I8042+1 ;logical page test... OR AL,4 ;system memory parity disable OUT I8042+1,AL ; MOV SI,OFFSET port_addr ; MOV DI,OFFSET log_page ; MOV DX,[SI] ; CMP DX,0FFFFH ; JZ ramch7 ; XOR AH,AH ; MOV AL,pageofs ;get EMS logical page start no. MOV CX,PAGE_MAX ; XOR BX,BX ; ramch9: ; PUSH CX ; CALL emsout ;EMS i/o port data out CALL imgchk ; JNB ramch17 ; POP CX ; JMP ramch16 ; ramch17: ; CALL pagetst ; JB ramch8 ; MOV [DI],NOT_USE ; INC BX ; ADD DI,LOG_SIZE ; ramch8: ; POP CX ; INC AL ; LOOP ramch9 ; ramch16: ; MOV total_pages,BX ; MOV un_alloc_pages,BX ; MOV CX,PHYS_PAGES ;disable physical pages... MOV DX,CS:emsio ; ADD DX,4 ; ramch19: MOV AL,DIS_EMS ; CALL emsout ; INC DX ; LOOP ramch19 ; IN AL,I8042+1 ;enable system memory parity.. AND AL,0FBH ; OUT I8042+1,AL ; CMP total_pages,0 ;total page zero? JNZ ramch7 ; MOV SI,OFFSET nopage_err ;error message display CALL strdsp ; STC ;set CF JMP ramch5 ; ramch7: ; CLC ; ramch5: ; POP BP ; POP DX ; POP CX ; POP BX ; POP AX ; RET ; ramchk ENDP ;-------------------------------------------------------------------- ; Display EMM install opening message. ;-------------------------------------------------------------------- instmsg PROC NEAR PUSH AX ; PUSH BX ; PUSH CX ; PUSH DI ; PUSH CS ; POP ES ; MOV SI,OFFSET openmsg ; CALL strdsp ; MOV AX,total_pages ; MOV DI,OFFSET total_pg ; CALL dbinasc ; MOV SI,OFFSET install_msg ; CALL strdsp ; MOV AX,page_frame_seg ; MOV DI,OFFSET segadr ; CALL hbinasc ; MOV SI,OFFSET page_msg ; CALL strdsp ; MOV AX,emsio ; MOV DI,OFFSET pioadr ; CALL hbinasc ; MOV SI,OFFSET port_msg ; CALL strdsp ; POP DI ; POP CX ; POP BX ; POP AX ; RET ; instmsg ENDP ;-------------------------------------------------------------------- ; check memory size (1024 KByte) ;-------------------------------------------------------------------- imgchk PROC NEAR CLD ; PUSH AX ; PUSH CX ; PUSH SI ; PUSH DI ; PUSH DS ; MOV AX,page_frame_seg ; MOV ES,AX ; PUSH CX ; XOR AX,AX ; MOV DS,AX ; XOR SI,SI ; XOR DI,DI ; MOV CX,2000H ; REPZ CMPSW ; CMP CX,0 ; JNZ imgch1 ; POP CX ; STC ; JMP imgch3 ; imgch1: POP CX ; CLC ;reset CF imgch3: POP DS ; POP DI ; POP SI ; POP CX ; POP AX ; RET ; imgchk ENDP ;-------------------------------------------------------------------- ; check logical page memory. ; input ; AX : logical page no. ;-------------------------------------------------------------------- pagetst PROC NEAR CLD ;reset DF PUSH AX ;push registers... PUSH BX ; PUSH CX ; PUSH DX ; PUSH SI ; PUSH DI ; PUSH DS ; PUSH CS ;set ES <- CS.. POP ES ; SUB AL,pageofs ;sub page no. - page offset. MOV DI,OFFSET tstpage ; CALL dbinasc ;change binary -> ascii. MOV SI,OFFSET tstpage ;display message.. CALL strdsp ; MOV AX,page_frame_seg ;set page frame address -> ES.. MOV ES,AX ; PUSH CX ; XOR AX,AX ;check 0:0 image data in page_ MOV DS,AX ;frame... XOR SI,SI ; XOR DI,DI ; MOV CX,2000H ; REPZ CMPSW ; CMP CX,0 ;check ok? JZ pagets2 ; PUSH CS ; POP DS ; MOV BX,OFFSET chkchr ;fill pattan data... MOV AX,CS:[BX] ; XOR DI,DI ; MOV CX,2000H ; REPZ STOSW ; MOV CX,2000H ;check pattan data... XOR DI,DI ; REPZ SCASW ; CMP CX,0 ;check ok? JZ pagets1 ; pagets2: POP CX ;pop CX STC ;set CF JMP pagets3 ; pagets1: XOR AX,AX ;clear expand memory... XOR DI,DI ; MOV CX,2000H ; REPZ STOSW ; POP CX ;pop CX CLC ;reset CF pagets3: POP DS ;pop registers... POP DI ; POP SI ; POP DX ; POP CX ; POP BX ; POP AX ; RET ;return. pagetst ENDP ;-------------------------------------------------------------------- ; Change data BYNARY -> ASCII (DEC) ; input ; AX : binary data ; output ; ES:DI : ascii data (DEC) ;-------------------------------------------------------------------- dbinasc: PUSH AX PUSH BX PUSH CX PUSH DX PUSH SI MOV SI,DI MOV CX,4 MOV BX,1000 XOR DX,DX dbinas1: DIV BX OR AL,AL JNZ dbinas2 CMP CL,4 JZ dbinas4 CMP BYTE PTR [SI],' ' JNZ dbinas2 dbinas4: MOV AL,' ' CMP CL,1 JNZ dbinas3 XOR AL,AL dbinas2: ADD AL,'0' dbinas3: MOV SI,DI STOSB PUSH DX XOR DX,DX MOV AX,BX MOV BX,10 DIV BX MOV BX,AX POP AX LOOP dbinas1 POP SI POP DX POP CX POP BX POP AX DEC DI RET ;-------------------------------------------------------------------- ; Change data BYNARY -> ASCII (HEX) ; input ; AX : binary data ; output ; ES:DI : ascii data (HEX) ;-------------------------------------------------------------------- hbinasc: PUSH AX PUSH BX PUSH CX PUSH DX PUSH SI MOV SI,DI MOV CX,4 MOV BX,1000H XOR DX,DX hbinas1: DIV BX CMP AL,10 JB hbinas2 ADD AL,7 hbinas2: ADD AL,'0' hbinas3: MOV SI,DI STOSB PUSH DX XOR DX,DX MOV AX,BX MOV BX,10H DIV BX MOV BX,AX POP AX LOOP hbinas1 POP SI POP DX POP CX POP BX POP AX DEC DI RET ;-------------------------------------------------------------------- ; Change data ASCII (DEC) -> BINARY ; input ; ES:DI = ascii data address (DEC) ; output ; AX = binary data ;-------------------------------------------------------------------- ascbin1: PUSH BX PUSH CX PUSH DX XOR DL,DL MOV CX,4 XOR BX,BX ascbin11: MOV AL,ES:[DI] CMP AL,' ' JZ ascbin13 CMP AL,TAB JNZ ascbin14 ascbin13: OR DL,DL JNZ ascbin12 INC DI JMP ascbin11 ascbin12: OR DL,DL JNZ ascbin16 STC JMP ascbin15 ascbin14: CMP AL,'0' JB ascbin12 CMP AL,':' JNB ascbin12 MOV DL,1 SUB AL,'0' XOR AH,AH XCHG BX,AX PUSH DX MOV DX,10 MUL DX ADD BX,AX POP DX INC DI LOOP ascbin11 ascbin16: MOV AX,BX CLC ascbin15: POP DX POP CX POP BX RET ;-------------------------------------------------------------------- ; Change data ASCII (HEX) -> BINARY ; input ; ES:DI = ascii data address (HEX) ; output ; AX = binary data ;-------------------------------------------------------------------- ascbin2: PUSH BX PUSH CX PUSH DX XOR DL,DL MOV CX,4 XOR BX,BX ascbin21: MOV AL,ES:[DI] CMP AL,' ' JZ ascbin23 CMP AL,TAB JNZ ascbin24 ascbin23: OR DL,DL JNZ ascbin22 INC DI JMP ascbin21 ascbin22: OR DL,DL JNZ ascbin27 STC JMP ascbin25 ascbin24: CMP AL,'0' JB ascbin22 CMP AL,':' JB ascbin26 CMP AL,'A' JB ascbin22 CMP AL,'G' JNB ascbin22 SUB AL,7 ascbin26: MOV DL,1 SUB AL,'0' XOR AH,AH XCHG BX,AX PUSH DX MOV DX,10H MUL DX ADD BX,AX POP DX INC DI LOOP ascbin21 ascbin27: MOV AX,BX CLC ascbin25: POP DX POP CX POP BX RET ;-------------------------------------------------------------------- ; STRINGS DISPLAY SUB ; input ; DS:SI : strings datas ;-------------------------------------------------------------------- strdsp: PUSH AX ; PUSH DX ; PUSH ES ; PUSH CS ; POP ES ; MOV DX,SI ; MOV AH,9 ; INT 21H ;bdos call POP ES ; POP DX ; POP AX ; RET ; ;____________________________________________________________________ ;-------------------------------------------------------------------- ; EMM driver initial routine work data area ;-------------------------------------------------------------------- openmsg DB CR DB 'xxxxxxxxxxxxxxxxxx EMS Driver Version 4.0',CR,LF DB 'xxxxxxxxxxxxxxxxxxxxx 1988 Release x.x',CR,LF DB ' -- ONLY EVALUATION -- ',CR,LF DB ' SAMPLE PROGRAM ',CR,LF DB '$' install_msg DB 'EMM Total Pages : ' total_pg DB '0000',CR,LF,'$' page_msg DB 'EMM Page Segment : ' segadr DB '0000H',CR,LF,'$' port_msg DB 'EMM Port Address : ' pioadr DB '0000H',CR,LF,LF,'$' start_msg DB 'xxxxxxxxxxxxxxxxxx EMS Driver Version 4.0 Release x.x' DB ' -- ONLY EVALUATION --' DB CR,LF,LF,'$' hard_w_err DB 'EMS HARDWARE NOT FOUND !',CR,LF,'$' nopage_err DB 'EMS LOGICAL PAGE NOT FOUND !',CR,LF,'$' notinst DB 'EMM DRIVER FAIL TO INSTALL ABORTED !',CR,LF,'$' nomem DB 'NO FREE MEMORY SEGMENT, EMM DRIVER CAN NOT INSTALL !' DB CR,LF,'$' pagemsg DB '0000 PAGES TESTING',CR,'$' tstpage DB '0000',CR,'$' pageseg DW 0 ;physical page segment rqioadr DW 0 ;request EMS i/o port address sysflg DB 0 ;system option flag sysmem DW 0 ;system memory size chkchr DW 55AAH code ENDS END