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