.data
char1:	.space 1
char2:	.byte  ????	@ Un carácter entre 'a' y 'z'

	.text
main:	ldr  r0, =char2	@ En r0 se pone la dir. de la variable char2
	ldrb r0, [r0]	@  y se lee su contenido (un byte)
	bl   upper	@ Llama a upper(char2)
	ldr  r1, =char1	@ Se pone la dir. de la variable char1 en r1
	strb r0, [r1]	@  y se escribe el carácter en mayúsculas
	wfi

upper:	ldr  r1, =0xDF	@ Máscara para poner a 0 el bit 5
	and  r0, r1	@ AND del carácter con la máscara
	mov  pc, lr