cseg
;============================================================================
; POTONGAN PROGRAM PENGUBAH BESARAN DESIMAL 1 BYTE KE BENTUK HEXA
;============================================================================
; - Nilai desimal ada di akumulator
; - Contoh : 12h => 0CH
; - Hasil tersimpan di akumulator

DesimalHex:
	Push	Acc		;Simpan nilai asli di stack
	Anl	A,#0F0h		;Ambil nible atas
	Swap	A		;pindah ke nible bawah
	Mov	B,#10		;x 10
	Mul	AB		;
	Mov	B,A		;Simpan dahulu hasil di Register B
	Pop	Acc
	Anl	A,#0Fh		;Ambil nible bawah
	Add	A,B		;Tambahkan nibble bawah dengan nibble atas x 10
	Ret