;;

	INCLUDE	USEFUL.INC
	INCLUDE	PCMAC.INC 

        .MODEL  SMALL

        .DATA

        .CODE
PutHex  PROC
	EXTRN	PutBin : NEAR
	_PushRegs
	mov	cl, 12
Start:
	mov	bx, ax
	cmp	cl, 0
	je	ToAnd
	shr	bx, cl
ToAnd:
	and	bx, 000Fh
	cmp	bx, 10
	jnge	Here
	add	bx, 'A'-10
	jmp	Out1
Here:
	add	bx, '0'
Out1:
	push	ax
	_PutCh	bl
	pop	ax
	sub	cl, 4
	cmp	cl, 0
	jge	Start
	_PopRegs
	ret
PutHex  ENDP


        END