
	name	lib

	include	dos.mac

X	EQU	4		; defined for near procedures
;X	EQU	6		; defined for far procedures

LIBTCP_TEXT	SEGMENT
	public	_dfputs
_dfputs	proc near
comment	*
	push	bp
	mov	bp,sp
	push	ds
	push	si

	lds	si,[bp+X]
	ASSUME	ds: nothing
	cld
$T0:
	lodsb
	or	al,al
	jz	$T1
	mov	dl,al
	mov	ah,02h
	int	21h
	jmp short $T0
$T1:
	pop	si
	pop	ds
	pop	bp
	*
	ret
_dfputs	endp
LIBTCP_TEXT	ends
	end
