; Doug's Programming Language  -- DPL, Version 2.22
; Copyright (c) 1988 Douglas S. Cody, All rights reserved.
;--------------------------------
; _ I T O H S  - INTEGER TO HEX STRING
;
; ENTRY CONDITIONS:
;	BX HOLDS THE INTEGER VALUE
;	DI POINTS TO THE TARGET 4 BYTE STRING
; EXIT CONDITIONS:
;	ASSUME ALL REGISTERS MODIFIED
;
SUBPGM	_ITOHS
BEGIN	_ITOHS
	MOV	AL,BH
	CALL	@BTOH
	XCHG	AH,AL
	MOV	[DI],AX
	MOV	AL,BL
	CALL	@BTOH
	XCHG	AH,AL
	MOV	[DI+2],AX
	MOV	BYTE PTR [DI+4],0	; SET A TERMINATOR
	RET
;
@BTOH	PROC	NEAR
	MOV	AH,AL
	MOV	CL,4
	SHR	AL,CL
	CALL	@@BH05
	XCHG	AH,AL
	CALL	@@BH05
	RET
;
@@BH05	PROC	NEAR
	AND	AL,0FH
	CMP	AL,9
	JG	@@BH10
	ADD	AL,'0'
	RET
@@BH10:
	ADD	AL,'A'-10
	RET
@@BH05	ENDP
@BTOH	ENDP
ENDPGM	_ITOHS
;