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

		Org	*
Hex_ASCII2:
	Push	A			;Simpan Acc A ke SP
	Acall	Hex_ASCII1		;Konversi 1 nibble
	Mov	B,A			;Simpan nibble bawah di Reg B
	Pop	A			;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