title	puts
	include	asm.inc

	.code
	public	puts,put_string
	extn	putchar

;;	put string
;
;	entry	DS:SI	asciiz string
;	uses	AX
;
put_string proc
	push	si
	jmp	put2
put1:	call	putchar
put2:	lodsb
	cmp	al,NULL_CHAR
	jne	put1
	pop	si
	ret
put_string endp


;;	puts
;
;	entry	DS:SI	asciiz string
;	uses	AX
;
puts	proc
	call	put_string
	mov	al,CR_CHAR
	call	putchar
	mov	al,LF_CHAR
	call	putchar
	ret
puts	endp

	end