DispHexHL:
	push af
	ld a,h
	call DispHexA
	ld a,l
	call DispHexA
	pop af
	ret
DispHexA:
	push	af
        push    hl
        push    bc
        push    af
        rrca
        rrca
        rrca
        rrca
        call    dispha
        pop     af
        call      dispha
        pop     bc
        pop     hl
	pop	af
        ret
dispha:
        and     15
        cp      10
        jp      nc,dhlet
        add     a,48
        jp      dispdh
dhlet:
        add     a,55
dispdh:
       call   IPutC
        ret
IPutC:
        push af
        push bc
        push de
        push hl
        push ix
        bcall(_PutC)
        pop ix
        pop hl
        pop de
        pop bc
        pop af
        ret