;*********************************
;* ROUTINE KONVERSI HEXA KE ASCII
;*********************************
;----------------------------
;Acc A = Angka -> tambah 30H
;Acc A <> Angka -> tambah 37H

                Org     $
Hex_ASCII2:
        Push    ACC                       ;Simpan Acc A ke SP
	Acall	Hex_ASCII1		;Konversi 1 nibble
	Mov	B,A			;Simpan nibble bawah di Reg B
        Pop     ACC                       ;Ambil Acc A dari SP
	Swap	A			;Tukar
	Acall	Hex_ASCII1		;Konversi 1 nibble
	Ret

Hex_ASCII1:
	Anl	A,#0FH			;Hapus Nibble Atas
        Cjne    A,#10,$+3               ;Acc A = 10 dan carry 0 -> bukan angka 
					;Acc A <>10 dan carry 0 -> bukan angka
	Jnc	Bukan_Angka		;Acc A <>10 dan carry 1 -> tambah 30H
	Add	A,#30H
	Ret

Bukan_Angka:
	Add	A,#37H
	Ret