include	clib.inc

	public	@wcputnum	; Output Number to WORD *

_TEXT	SEGMENT

@wcputnum PROC
	aam			; AH := AL / 10
	add	ax,3030h	; AL := AL mod 10
	mov	es:[bx],ah	; AX := AX + '00'
	mov	es:[bx+2],al
	ret
@wcputnum ENDP

_TEXT	ENDS

	END