;-----------------------------------------------------------------------
;  Written by Keith P. Robison    Copyright Syracuse University 1988
;-----------------------------------------------------------------------
	name	SETDOS_Interface


	assume	cs: Code

Code 	segment	public	'Code'


;
;
;	PC DOS interfaces
;
	public	attrib 	  ;  DOS write file attribute


attrib	proc	far

	push	bp
	mov	bp,sp
	mov	cx,[bp+06H]
	mov	dx,[bp+08H]
	INC	DX
	mov	ax,[bp+0AH]
	push	ds
	mov	ds,ax
	mov	ax,4301H
	int	21H
	jc	attrib_error
	mov	ax,0000H
attrib_error:
	pop	ds
	pop	bp
	ret	06H

attrib	endp

Code 	ends

	end
