.386p
	page	0,132
;ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
	.xlist
	include	macro0.mac
	.list
;ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
csg0	segment	use16
	assume	cs:csg0,ds:csg0,es:csg0
;............................
	org	100h
;ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
start:	mov	ax,cs
	add	w ds:[jmp00+03],ax
jmp00:	jmp	f init0
csg0	ends
;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
csg1	segment	use16
	assume	cs:csg1,ds:csg1,es:csg1
;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
beg00:

	db	5000h dup (55h)

	align	16
end00	equ	$+0000
;ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
init0:	push	es
	mov	es,ds:[2ch]		;®á¢®¡®¤¨¬ ¡«®ª
	mov	ah,49h			;¯¥à¥¬¥­­ëå
	int	21h			;á।ë.
	pop	es
;............................
	mov	bl,01h			;ãáâ ­®¢¨¬
	mov	ax,5801h		;®¯â¨¬ «ì­ãî
	int	21h			;áâà â¥£¨î
;............................
	mov	bx,(end00-beg00)/16	;§ ¯à®á¨¬
	mov	ah,48h			;¯ ¬ïâì
	int	21h			;¤«ï TSR.
	mov	bp,ax			;§ ¯®¬­¨¬ ᥣ¬¥­â.
	jnc 	init1			;ãà ! ãᯥ譮.
;............................
	mov	ah,49h			;®á¢®¡®¤¨¬
	int	21h			;®á­®¢­ãî ¯ ¬ïâì.
	mov	bx,-1			;¯à®¢¥à¨¬
	mov	ah,48h			;¬ ªá¨¬ «ì­ãî.
	int	21h			;¯ ¬ïâì DOS.
	mov	ah,48h			;§ ¯à®á ¢á¥©
	int	21h			;¯ ¬ïâ¨.
	mov	bp,ax			;§ ¯®¬­¨¬ ᥣ¬¥­â.
;............................
	mov	dx,ds			;¢ëç¨á«¨¬
	add	dx,csg2			; ¤à¥á
	mov	ah,55h			;¡«®ª  PSP.
	mov	si,ds:[02h]		;ᮧ¤ ¤¨¬
	int	21h			;­®¢ë© PSP.
;............................
	push	w ds:[16h]		;ª®à४æ¨ï
	mov	ds,dx			; ¤à¥á 
	pop	w ds:[16h]		;த¨â¥«ï.
;............................
	mov	bx,dx			;ãáâ ­®¢¨¬
	mov	ah,50h			;­®¢ë© PSP
	int	21h			;⥪ã騬.
;............................
init1:	lea	ax,[bp-01]		;Œ‘‚ ᥣ¬¥­â
	mov	es,ax			;TSR ¯à®£à ¬¬ë.
	mov	ax,ss			;Œ‘‚ ᥣ¬¥­â
	dec	ax			;¨á室­®© TSR
	mov	ds,ax			;¯à®£à ¬¬ë.
;............................
	mov	cx,04			;ç¨á® á«®¢.
	mov	di,08h			;¯¥à¥¬¥á⨬
	mov	si,di			;¨¬ï TSR
	rep	movsw			;¯à®£à ¬¬ë.
;............................
	sub	si,si			;TSR ᬥ饭¨¥ ¨
	movsr	ds,cs			;ᥣ¬¥­â ¨á室­¨ª .
	mov	cx,(end00-beg00)/2	;¤«¨­­  ¨á室­¨ª .
	rep	movsw			;¯¥à¥¬¥á⨬ ­  ¬¥áâ®.
;............................
	push	es
	mov	es,bp
	mov	bx,(end00-beg00)/16	;¤«¨­­  TSR.
	mov	ah,4ah			;®á¢®¡®¤¨¬
	int	21h			;¯ ¬ïâì.
	pop	ds			;­®¢ë© TSR-
	mov	w ds:[01],es		;宧鶴 Œ‘‚.
;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
beg08:	mov	ax,4c00h		;¢ë室 ¨§
	int	21h			;¯à®£à ¬¬ë.
;ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
csg1	ends
;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
csg2	segment use16			;¯®á«¥¤­¨©
csg2	ends				;ᥣ¬¥­â.
;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
	end	start