stdlib		segment	para public 'slcode'
		assume	cs:stdlib
		extrn	sl_Putc:far
;
;
; Puth- Outputs value in AL as two hex digits.
;
		public	sl_Puth
sl_Puth		proc	far
		push	ax
		mov	ah, al
		shr	al, 1
		shr	al, 1
		shr	al, 1
		shr	al, 1
		add	al, 90h
		daa
		adc	al, 40h
		daa
		call	sl_Putc
		mov	al, ah
		and	al, 0fh
		add	al, 90h
		daa
		adc	al, 40h
		daa
		call	sl_Putc
		pop	ax
		ret
sl_Puth		endp
;
; Putw- Outputs word in AX as four hexadecimal digits:
;
		public	sl_Putw
sl_Putw		proc	far
		xchg	al, ah
		call	sl_Puth
		xchg	al, ah
		jmp	sl_Puth
sl_Putw		endp
;
stdlib		ends
		end