IO_CONTROL      EQU         FFFCh
IO_WRITE        EQU         FFFEh
FIM_TEXTO       EQU         '@'

ORIG            2000h

MENSAGEM        STR     'Foda-se joao@'


ORIG            0000h

        MOV     R1, FFFFh
        MOV     M[IO_CONTROL], R1   ;inicializacao do
                                    ;porto de controlo

        MOV     R1, MENSAGEM
        MOV     R2, 0B0Fh
Ciclo:  MOV     R3, M[R1]
        CMP     R3, FIM_TEXTO
        BR.Z    Acabou
        MOV     M[IO_CONTROL], R2
        MOV     M[IO_WRITE], R3
        INC     R2
        INC     R1
        BR      Ciclo
Acabou: BR      Acabou