.h8300s
		
		.data
text1:	.ascii	"A1B2C3D4"
text2:
		.align	2			; zarovnani adresy
		.space	100			; stack
stck:						; konec stacku + 1

		.text
		.global	_start

_start:	mov.l	#stck,ER7
		mov.l	#text1,ER6
		mov.w	#text2-text1,R1
		
lab1:	jsr		@convert
		dec.w	#1,R1
		bne		lab1
							
lab2:	jmp	@lab2

convert:
		mov.b	@ER6+,R0L
		add.b	#-'0',R0L
		cmp.b	#9,R0L
		ble		lab3
		add.b	#'0'-'A'+10,R0L
lab3:	rts
		
		.end