Letter invader - Modo texto con cadenas

*-----------------------------------------------------------
* Title      : Letter invader en modo texto mediante cadenas
* Written by : Fulgencio
* Date       : 05/2015
* Description: Implementación de avance de caracteres para el juego
*              letter invader mediante uso simple de cadenas de texto
*              Las cadenas se deberían generar aleatoriamente pero en
*              el ejemplo están definidas de manera fija
*-----------------------------------------------------------
    ORG    $1000
START:                  ; first instruction of program


    MOVE.L #14,D0
    MOVE.L #LASTL,A1  *Empieza pintando solo una cadena
    TRAP #15
BUCLEL
    JSR RETARD  *Control de velocidad
    JSR CURORI  *Cursor al origen

    SUB.L #66,A1 *Nos vamos hacia atrás para sacar una línea más
                 *Cada linea son 64 caracteres + 2 de control (13,10)
    TRAP #15
    CMP.L #FIRST,A1
    BNE BUCLEL  *Si no han salido todas repite

    SIMHALT             ; halt simulator

RETARD
    MOVEM.L D0-D1,-(A7)
    MOVE.L #23,D0
    MOVE.L #50,D1
    TRAP #15
    MOVEM.L (A7)+,D0-D1
    RTS

CURORI
    MOVEM.L D0-D1,-(A7)
    MOVE.L #11,D0
    MOVE.L #0,D1
    TRAP #15
    MOVEM.L (A7)+,D0-D1
    RTS


* Put variables and constants here

    ORG $5000
FIRST  DC.B '                                                                ',13,10
       DC.B '                                                                ',13,10
       DC.B '                                                                ',13,10
       DC.B '                                                                ',13,10
       DC.B '                                                                ',13,10
       DC.B '                                                                ',13,10
       DC.B '                                                                ',13,10
       DC.B '                                                                ',13,10
       DC.B '     C         1    2                        J       T          ',13,10
       DC.B '                 S                         P             3      ',13,10
       DC.B '           4    1                 V              9    6         ',13,10
       DC.B '     C         1    2                        J       T          ',13,10
       DC.B '                 S                         P             3      ',13,10
       DC.B '           4    1                 V              9    6         ',13,10
LASTL  DC.B 'A         3        4          Y         H           H          Z',13,10,0


    END    START        ; last line of source