Listing of file='HEXOUT.MAC;02' on disk='vmedia/asm_utility_4-sideB-sector.ccvf'
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; HEX OUTPUT ROUTINE ; ; VALUES ON ENTRY: ; A = BYTE TO OUTPUT IN HEX ; HL => POINTER TO BUFFER FOR ASCII EQUIVALENT ; ; RETURNS: ; NOTHING ; ; DESTROYS: ; NOTHING ; ENTRY HEXOUT HEXOUT: PUSH PSW ANI 0F0H ;GET HIGH DIGIT FIRST RRC RRC RRC RRC ADI '0' ;CONVERT TO ASCII CPI '9'+1 ;MAY BE A-F JC TYHX10 ADI 7 ;ADJUST IF A-F TYHX10: MOV M,A ;STORE THE DIGIT POP PSW ;GET BACK THE BYTE PUSH PSW ANI 0FH ;PICK OFF LOW DIGIT ADI '0' CPI '9'+1 JC TYHX20 ADI 7 TYHX20: INX H MOV M,A ;STORE LOW DIGIT TOO POP PSW RET END