	.CODE

	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	A			;dari 10?
	Subb	A,B			;
	Pop	A			;
	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
