1999-03-30 02:03:22 117504 KCEMU.EXE
1999-03-30 02:03:26 18176 KCLOAD.EXE
1999-03-26 04:28:34 29606 KCEMU.HLP
1998-12-19 23:59:48 143956 KCBASIC.HLP
1999-03-30 01:59:14 103758 SRC/KCEMU.PAS
1999-03-17 00:47:08 766 KCEMU.ICO
1998-11-02 00:02:28 993 KCEMU.386
1999-01-18 00:35:00 208184 KCCAOS.HLP
1999-03-11 21:44:12 104951 KCZ9001.HLP
1999-03-25 00:15:06 99137 KCZ1013.HLP
1998-04-01 18:44:24 14336 KCAPP/CHESS.KCC
1998-01-25 23:26:16 32384 KCAPP/JUNGLE.KCC
1999-03-10 11:07:22 13413 SRC/KCDEB.PAS
1999-03-10 10:51:58 530 SRC/KCHDR.PAS
1998-06-03 13:38:26 39281 SRC/KCLOAD.PAS
1998-10-06 07:22:08 39664 SRC/KC880.ASM
1998-10-06 21:48:26 24490 SRC/KCSCR.ASM
1999-03-11 00:02:08 10443 SRC/DISASM.ASM
1998-09-30 18:54:54 4339 SRC/KCEMUVXD.ASM
1994-09-01 22:00:00 5195 DVA.386
1994-09-20 22:00:00 92208 WING.DLL
1994-09-20 22:00:00 12800 WING32.DLL
1994-08-23 22:00:00 188960 WINGDE.DLL
1994-09-20 22:00:00 6736 WINGDIB.DRV
1994-09-20 22:00:00 5024 WINGPAL.WND
	IDEAL
	%MACS
	%NOINCL
	%TITLE "KCEMU pagemap support"
	include "tvmm2.inc"	;Generelles
	include	"debug2.inc"	;wegen Debugging
KCEMU_Device_ID	equ	3E69h	;von Kleinstweich
KCEMU_Major_Ver	equ	1
KCEMU_Minor_Ver	equ	0

ifdef DEBUG
	DISPLAY	!Assembliere Debugversion!
endif

Declare_Virtual_Device  KCEMU, KCEMU_Major_Ver, KCEMU_Minor_Ver,\
			KCEMU_Ctl, KCEMU_Device_ID,\
			Undefined_Init_Order, , KCEMU_API

;*********************************************************
;*** Obligatorischer VxD-Botschafts-Funktionsverteiler ***
;*********************************************************
VxD_Locked_Code_Seg
BeginProc KCEMU_Ctl
;	Control_Dispatch Device_Init, KCEMU_Init
;	Control_Dispatch System_Exit, KCEMU_Exit
;	Control_Dispatch 1bh, KCEMU_Dynamic_Init
;	Control_Dispatch 1ch, KCEMU_Dynamic_Exit
	cmp	eax,1bh
	jnz	@@ok
	VMMCall	Get_VMM_Version
	cmp	ah,4		;hier: Windows95 erforderlich!
	ret			;Win 3.11 VXDLDR untersttzt keine PM-API
@@ok:	clc
	ret
EndProc KCEMU_Ctl
VxD_Locked_Code_ends

;********************************************************
;*** Residenter Datenbereich und Konstantendefinition ***
;********************************************************

;API-Beschreibung (Parameter-šbergabe via FAR-PASCAL-Stack-Rahmen):
;AH=0 Versionsnummer holen, PA: AH=Major, AL=Minor
;AH=1 PageAlloc, PE: WORD Kilobytes (=0: 64K-Fenster), PA: AX: Selektor
;AH=2 PageFree, PE: WORD Selektor, PA: AX=0 wenn OK
;AH=3 PageMap, ???
;AH=5 Benutzungs-Z„hler setzen, PE: INT Inkrement, PA: (neuer) Z„hlerstand

;**********************
;*** API-Funktionen ***
;**********************

VxD_Locked_Data_Seg
Usage	dd	0
List	dd	?
FFPage	dd	?
struc TListNode
hmem	dd	?	;Speicher-Handle von _PageAllocate
sel	dw	?	;Selektor
inst	dw	?	;HInstance (=DS der anfordernden Anwendung)
ends
AListNode TListNode <>
VxD_Locked_Data_Ends

VxD_Locked_Code_Seg
KCEMU_Dynamic_Init:		;Einsprung Dynamische Initialisierung
	VMMCall	Get_VMM_Version
	cmp	ah,4		;hier: Windows95 erforderlich!!
	ret
proc PageMap
	ret
endp

proc PageFree
	ret
endp

proc PageAlloc
	movzx	eax,[word edi+6]	;Gr”įe des RAM-Bereichs (KB)
	BRES	ah,bit 7		;AlwaysMapped ignorieren
	or	eax,eax
	jz	@@1
	mov	esi,eax			;retten
	add	eax,3
	shr	eax,2			;aufrunden zur 4-KB-Grenze
	VMMCall	_PageAllocate,<eax,PG_VM,ebx,0,0,0,0,PageFixed>
	or	eax,eax			;Speicher-Handle
	jz	@@e
	mov	[AListNode.hmem],eax
	shl	esi,10			;KBytes-->Bytes
	xor	eax,eax
	cmp	esi,10000h		;mehr als 1MB?
	jc	@@s
	add	esi,0C00h		;3 KBytes dazurechnen
	shr	esi,12			;in Pages wandeln
	BSET	eax,D_Gran_Page
@@s:	dec	esi			;L„nge-->Limit
	VMMCall _BuildDescriptorDWords,<edx,esi,RW_Data_Type,eax,0>
@@sel:
	VMMCall _Allocate_LDT_Selector,<ebx,eax,edx,1,0>
	mov	[AListNode.sel],ax	;Selektor in die Liste tun
	mov	[PClient._AX],ax	;Rckgabewert
	mov	ax,[PClient._DS]
	mov	[AListNode.inst],ax
	mov	esi,[List]
	mov	eax,offset AListNode
	VMMCall	List_Attach

@@1:	VMMCall	_PageAllocate,<16,PG_Hooked,ebx,0,0,0,0,0>
	or	eax,eax			;Speicher-Handle
	jz	@@e
	mov	[AListNode.hmem],eax
	push	edx
	 VMMCall _PageAllocate,
	pop	edx
	VMMCall _BuildDescriptorDWords,<edx,0FFFFh,RW_Data_Type,0,0>
	jmp	@@s
@@e:	ret
endp

proc GetVer
	mov	ax,KCEMU_Version
	jmp	SetAX
endp

proc SetUsage
	movsx	eax,[word EDI+6]
	mov	edx,[Usage]
	add	eax,edx
	mov	[Usage],eax
	or	edx,edx
	jnz	SetAX
	or	eax,eax
	jz	SetAX
	push	eax
	 xor	eax,eax
	 mov	ecx,size TListNode
	 VMMCall List_Create		;bei Erstbenutzung anlegen
	 mov	[List],esi
	 VMMCall _PageAllocate,<1,PG_Sys,0,0,0,0,0,PageFixed>
	 mov	[AListNode.hmem],eax
	 mov	edi,edx
	 mov	ecx,400h
	 stc
	 sbb	eax,eax			;FFFFFFFF
	 cld
	 rep	stosd			;Seite mit FF fllen
	 mov	[FFPage],edx		;Lineare Adresse speichern
	 xor	eax,eax
	 mov	[dword AListNode.sel],eax
	 mov	eax,offset AListNode
	 mov	edi,[List]
	 VMMCall List_Attach
	pop	eax
SetAX:	mov	[PClient._AX],ax
	ret
endp

BeginProc KCEMU_Api
	Client_Ptr_Flat eax,ss,bp	;Stack-Rahmen
	xchg	edi,eax			;EDI+6=letzter Parameter
	mov	al,[PClient._AH]	;AH laden
Debug_Out "ApiCall Fkt=#AL"
	cmp	al,1
	jc	GetVer
	jz	PageAlloc
	cmp	al,3
	jc	PageFree
	je	PageMap
	cmp	al,5
	je	SetUsage
	mov	[PClient._AX],1		;Fehlercode (<32 wie bei WinExec)
	ret
EndProc KCEMU_Api

VxD_Locked_Code_Ends

	END