SDACS_TEXT	segment byte public 'CODE'
	public	_SaveDACs
	extrn	_write:far
   ;
   ;	int  SaveDACs(int fh, char *savearea)
   ;	
saveseg		equ	word ptr [bp+0ah]
saveoff		equ	word ptr [bp+08]
fileh		equ	word ptr [bp+06]
	assume	cs:SDACS_TEXT
_SaveDACs	proc	far
	push	bp
	mov	bp,sp
	push	es
   ;
	mov	ax,saveseg
	mov	es,ax
	mov	dx,saveoff
	mov	ax,1017h
	xor	bx,bx
	mov	cx,256
	int	10h
   ;
   ;	   return(write(fh, savearea, 768));
   ;	
	mov	ax,768
	push	ax
	push	saveseg
	push	saveoff
	push	fileh
	call	far ptr _write
	add	sp,8

	pop	es
	pop	bp
	ret	
_SaveDACs	endp
SDACS_TEXT	ends
	end
