Base7:
		mov bl, 7

		div bl			;divide by 7
		mov dl, al		;move quotient to dl
		mov al, ah		;move remainder to al
		mov ah, 0		;reset ah
		mov al, dl

		call writedec	;write al
						;start loop again