;; Show a decimal value

	INCLUDE	PCMAC.INC 

        .MODEL  SMALL

        .STACK  100h

        .DATA

        .CODE
PutUDec PROC
	EXTRN GetDec : NEAR
        mov     ax, @data
        mov     ds, ax
	mov	cx, SP

	call	GetDec
	cmp	ax, 0

Lab1:
	sub	dx, dx
	mov	bx, 10
	div	bx
	push	dx

	cmp	ax, 0
	jne	Lab1
Lab2:
        cmp	SP, cx
	je	Lab3
	pop	ax
	add	al, 48
	_PutCh	al
	jmp	Lab2
Lab3:
	_PutCh	13,10


        mov     al, 0   ; Return code of 0
        mov     ah, 4ch ;       Exit back to MS/PCDOS
        int     21h
PutUDec  ENDP

        END     PutUDec