CSEG
        Org     $

;Subroutine Konversi Hexa 1 byte ke Desimal
;Bilangan yang dikonversi di Akumulator
;Jumlah digit yang dihasilkan disimpan di R6
;Hasil tersimpan di Tabel Desimal
Konversi1BDesimal:		
	Mov	R6,#00H
	Jz	TidakKonversi		;Bila 0 tidak perlu konversi

LoopKonversi:
	Mov	B,#10			;Bilangan yang dikonversi lebih besar
        Push    ACC                     ;dari 10?
	Subb	A,B			;
        Pop     ACC                     ;
	Inc	R6			;Jumlah digit + 1
	Jc	KonversiSelesai		;Bila lebih kecil dari 10, konversi selesai
	Div	AB			;Bilangan yg dikonversi dibagi 10
	Mov	@R0,B			;Sisa disimpan di Tabel Desimal
	Inc	R0			;
	Ajmp	LoopKonversi

KonversiSelesai:
	Mov	@R0,A
TidakKonversi:
	Ret