;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; RDOS operating system
; Copyright (C) 1988-2000, Leif Ekblad
;
; This program is free software; you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version. The only exception to this rule
; is for commercial usage in embedded systems. For information on
; usage in commercial embedded systems, contact embedded@rdos.net
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
; GNU General Public License for more details.
;
; You should have received a copy of the GNU General Public License
; along with this program; if not, write to the Free Software
; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
;
; The author of this program may be contacted at leif@rdos.net
;
; EMS.ASM
; EMS emulation
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
						
		NAME ems

GateSize = 16

INCLUDE protseg.def
INCLUDE os.def
INCLUDE user.def
INCLUDE virt.def
INCLUDE os.inc
INCLUDE user.inc
INCLUDE virt.inc
INCLUDE driver.def
INCLUDE system.inc

ems_data_seg	SEGMENT AT 0

device_seg	DW ?

ems_data_size	DB ?

ems_data_seg	ENDS

ems_handle_seg	SEGMENT AT 0

ems_page_count		DW ?
ems_handle_name		DB 8 DUP(?)
ems_handle_pages	DB ?

ems_handle_seg	ENDS

ems_process_seg	SEGMENT AT 0

ems_handles		DW 256 DUP(?)

ems_process_size	DB ?

ems_process_seg	ENDS

	.386p

code	SEGMENT byte public use16 'CODE'

	assume cs:code

emm_device_begin:
	dd -1
	dw 08000h
	dw OFFSET ems_strat - OFFSET emm_device_begin
	dw OFFSET ems_int - OFFSET emm_device_begin
	db 'TMMXXXX0'
	sti
	EmmHandler
	retf 2
ems_strat:
	retf
ems_int:
	retf
emm_device_end:

emm_read	PROC far
	stc
	ret
emm_read	ENDP

emm_write	PROC far
	stc
	ret
emm_write	ENDP

ems_name	DB 'Ems Handler',0

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;		NAME:			EMS_GET_STATUS
;
;		DESCRIPTION:	GET EMS STATUS
;
;		PARAMETERS:		
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

ems_get_status	PROC far
	pop bx
	mov ax,0
	ret
ems_get_status	ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;		NAME:			EMS_FRANE_SEG
;
;		DESCRIPTION:	GET PAGE FRANE SEGMENT
;
;		PARAMETERS:		BX		PAGE FRAME
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

ems_frame_seg	PROC far
	pop bx
	mov bx,ems_linear SHR 4
	mov ax,0
	ret
ems_frame_seg	ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;		NAME:			EMS_GET_PAGE_COUNT
;
;		DESCRIPTION:	GET UNALLOCATED PAGE COUNT
;
;		PARAMETERS:		BX		UNALLOCATED PAGES
;						DX		TOTAL PAGES
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

ems_get_page_count	PROC far
	pop bx
	push eax
	GetFreePhysical
	shr eax,14
	mov bx,ax
	shr ax,2
	sub bx,ax
	pop eax
	mov dx,bx
	mov ax,0
	ret
ems_get_page_count	ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;		NAME:			EMS_ALLOCATE
;
;		DESCRIPTION:	Allocate
;
;		PARAMETERS:		BX		NUMBER OF PAGES
;						DX		EMS HANDLE
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

ems_allocate	PROC far
	push eax
	GetFreePhysical
	shr eax,14
	mov bx,ax
	shr ax,2
	sub bx,ax
	pop eax
	mov ax,bx
	pop bx
	cmp ax,bx
	jc ems_allocate_fail
ems_allocate_do:
	push ds
	push es
	push eax
	push si
	push di
	mov ax,ems_process_sel
	mov ds,ax
		assume ds:ems_process_seg
	mov si,OFFSET ems_handles
	mov cx,0FFh
	add si,2
ems_allocate_search_handle:
	lodsw
	or ax,ax
	jz ems_allocate_handle
	loop ems_allocate_search_handle
	pop di
	pop si
	pop eax
	pop es
	pop ds
	mov ax,8500h
	ret
ems_allocate_handle:
	sub si,2
	movzx eax,bx
	shl eax,4
	add ax,OFFSET ems_handle_pages
	AllocateLocalMem
		assume es:ems_handle_seg
	xor di,di
	mov cx,ax
	xor al,al
	rep stosb
	mov es:ems_page_count,bx
	mov [si],es
	sub si,OFFSET ems_handles
	shr si,1
	mov dx,si
	pop di
	pop si
	pop eax
	pop es
	pop ds
	mov ax,0
	ret
ems_allocate_fail:
	mov ax,8700h
	ret
ems_allocate	ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;		NAME:			EMS_FREE
;
;		DESCRIPTION:	Free
;
;		PARAMETERS:		DX		EMS HANDLE
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

ems_free	PROC far
	pop bx
	push ds
	push si
	mov ax,ems_process_sel
	mov ds,ax
		assume ds:ems_process_seg
	mov si,dx
	add si,si
	add si,OFFSET ems_handles
	mov ax,[si]
	or ax,ax
	jnz ems_free_do
	pop si
	pop ds
	mov ax,8300h
	ret
ems_free_do:
	mov word ptr [si],0
	push es
	mov es,ax
		assume es:ems_handle_seg
	mov cx,ems_page_count
	shl cx,2
	mov si,OFFSET ems_handle_pages
	push eax
free_ems_pages_loop:
	lodsd
	or eax,eax
	jz free_ems_pages_next
	and ax,0F000h
	FreePhysical
free_ems_pages_next:
	loop free_ems_pages_loop
	pop eax
	FreeMem
	pop es
	pop si
	pop ds
	mov ax,0
	ret
ems_free	ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;		NAME:			EMS_VERSION
;
;		DESCRIPTION:	VERSION
;
;		PARAMETERS:		AL		VERSION
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

ems_version	PROC far
	pop bx
	mov ax,40h
	ret
ems_version	ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;		NAME:			EMS_GET_HANDLE_PAGES
;
;		DESCRIPTION:	GET HANDLE PAGES
;
;		PARAMETERS:		DX		HANDLE
;						BX		NUMBER OF PAGES
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

ems_get_handle_pages	PROC far
	pop bx
	mov ax,8300h
	xor bx,bx
	ret
ems_get_handle_pages	ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;		NAME:			EMS_GS_HANDLE_NAME
;
;		DESCRIPTION:	GET / SET HANDLE NAME
;
;		PARAMETERS:		DX		HANDLE
;						ES:DI	HANDLE NAME
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

ems_gs_handle_name	PROC far
	pop bx
	mov ax,8300h
	ret
ems_gs_handle_name	ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;		NAME:			EMS_ILLEGAL
;
;		DESCRIPTION:	UNDEFINED FUNCTION
;
;		PARAMETERS:		
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

ems_illegal	PROC far
;	int 3
	pop bx
	mov ax,8400h
	ret
ems_illegal	ENDP

ems_tab:
ems40	DW OFFSET ems_get_status
ems41	DW OFFSET ems_frame_seg
ems42	DW OFFSET ems_get_page_count
ems43	DW OFFSET ems_allocate
ems44	DW OFFSET ems_illegal
ems45	DW OFFSET ems_free
ems46	DW OFFSET ems_version
ems47	DW OFFSET ems_illegal
ems48	DW OFFSET ems_illegal
ems49	DW OFFSET ems_illegal
ems4A	DW OFFSET ems_illegal
ems4B	DW OFFSET ems_illegal
ems4C	DW OFFSET ems_get_handle_pages
ems4D	DW OFFSET ems_illegal
ems4E	DW OFFSET ems_illegal
ems4F	DW OFFSET ems_illegal
ems50	DW OFFSET ems_illegal
ems51	DW OFFSET ems_illegal
ems52	DW OFFSET ems_illegal
ems53	DW OFFSET ems_gs_handle_name
ems54	DW OFFSET ems_illegal
ems55	DW OFFSET ems_illegal
ems56	DW OFFSET ems_illegal
ems57	DW OFFSET ems_illegal
ems58	DW OFFSET ems_illegal
ems59	DW OFFSET ems_illegal
ems5A	DW OFFSET ems_illegal
ems5B	DW OFFSET ems_illegal
ems5C	DW OFFSET ems_illegal
ems5D	DW OFFSET ems_illegal
ems5E	DW OFFSET ems_illegal
ems5F	DW OFFSET ems_illegal
ems60	DW OFFSET ems_illegal

ems_handler:
	push bx
	sub ah,40h
	jc ems_call_fail
	mov bl,ah
	xor bh,bh
	add bx,bx
	cmp bx,40h
	jc ems_call_do
ems_call_fail:
	mov bx,40h
ems_call_do:
	push word ptr cs:[bx].ems_tab
	retn

PAGE

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;	
;
;		NAME:			INIT_PROCESS
;
;		DESCRIPTION:	Init per process memory
;
;		PARAMETERS:		
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

init_process	PROC far
	push ds
	push es
	pusha
	mov ax,ems_data_sel
	mov ds,ax
		assume ds:ems_data_seg
	mov dx,device_seg
	mov ax,vm_int_sel
	mov ds,ax
	mov bx,67h SHL 2
;	mov word ptr [bx],12h
;	mov [bx+2],dx
;
	mov ax,ems_process_sel
	mov es,ax
		assume es:ems_process_seg
	mov cx,100h
	mov di,OFFSET ems_handles
	xor ax,ax
	rep stosw
	popa
	pop es
	pop ds
	ret
init_process	ENDP

PAGE

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;	
;
;		NAME:			INIT
;
;		DESCRIPTION:	Init device
;
;		PARAMETERS:		
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

init	PROC far
	pusha
	push ds
	push es
	mov bx,ems_code_sel
	InitDevice
;
	mov ax,cs
	mov ds,ax
	mov bx,OFFSET emm_device_begin
	mov cx,OFFSET emm_device_end - OFFSET emm_device_begin
	mov si,OFFSET emm_read
	mov di,OFFSET emm_write
	RegisterDevice
;
	mov eax,OFFSET ems_data_size
	mov bx,ems_data_sel
	AllocateFixedSystemMem
	mov ds,bx
		assume ds:ems_data_seg
	mov device_seg,dx
;
	mov eax,OFFSET ems_process_size
	mov bx,ems_process_sel
	AllocateFixedProcessMem
;
	mov ax,cs
	mov ds,ax
	mov es,ax
	mov si,OFFSET ems_handler
	mov di,OFFSET ems_name
	xor cl,cl
	mov ax,ems_handler_nr
	mov dx,virt_ds_in OR virt_es_in
	RegisterVirtGate
;
	mov di,OFFSET init_process
	HookCreateProcess
	pop es
	pop ds
	popa
	ret
init	ENDP

code	ENDS

	END init