Programa para convertir a mayúsculas en 68000
Alguien puede echarme una mano con esto. Como dice el titulo estoy haciendo un programa que convierte una frase a mayúsculas y creo que el algoritmo lo tengo bien, pero tengo el problema de que el registro me lee word en vez de byte.
Esto es lo que tengo:
Convertir IDNT 1,1
ORG $2000
BRA.S Begin
*
Cadena DC.B 'hola esto es 1 EJEmplo.'
NumCam DC.W 0
*
* Programa Principal
*
Begin MOVEA.W Cadena,A1
MOVEA.W #NumCam,A2
Sig MOVE.B (A1)+,D0
CMP.B #$2E,(A1)
BEQ.S End
CMP.B #$61,(A1)
BLT.S Sig
CMP.B #$7A,(A1)
BGT.S Sig
Cambio SUBI.B #$20,(A1)
ADDI.W #1,(A2)
BRA.S Sig
End STOP #$2700
END
Muchas gracias por adelantado
Esto es lo que tengo:
Convertir IDNT 1,1
ORG $2000
BRA.S Begin
*
Cadena DC.B 'hola esto es 1 EJEmplo.'
NumCam DC.W 0
*
* Programa Principal
*
Begin MOVEA.W Cadena,A1
MOVEA.W #NumCam,A2
Sig MOVE.B (A1)+,D0
CMP.B #$2E,(A1)
BEQ.S End
CMP.B #$61,(A1)
BLT.S Sig
CMP.B #$7A,(A1)
BGT.S Sig
Cambio SUBI.B #$20,(A1)
ADDI.W #1,(A2)
BRA.S Sig
End STOP #$2700
END
Muchas gracias por adelantado