h57872
s 00034/00000/00000
d D 1.1 83/03/23 15:30:19 bog 1 0
c date and time created 83/03/23 15:30:19 by bog
e
u
4
U
t
T
I 1
	Extrn	Em4010	:Far
	Extrn	KIToCh	:Far

Data	DSeg	Word	Public
SLast	Equ	Ds:Word Ptr .00012h
SBase	Equ	Ds:Word Ptr .00015h

Sp_Save	Equ	Ds:Word Ptr .0005ch
Ss_Save	Equ	Ds:Word Ptr .0005eh

CGroup		Group	@4010_Code
@4010_Code	CSeg

	Mov	Ss_Save,Ss		; Save caller's stack pointers
	Mov	Sp_Save,Sp

	Mov	Ax,SLast		; Offset of last byte in stack
	Inc	Ax			; Now just beyond end of stack
	Mov	Ss,SBase		; Point Ss at base of stack segment
	Mov	Sp,Ax			;  & Sp at top of stack

	Callf	Em4010			; Call mainline

	Mov	Ax,0			; If not from Death, no error

	Mov	Ss,Ss_Save		; Restore stack
	Mov	Sp,Sp_Save		;  pointers

	Retf				;  & quit

	Public	GIToCh
GIToCh:	Jmpf	KIToCh

	End
E 1
