Desplazamiento del texto en diagonal suave a nivel de pixel

*-----------------------------------------------------------
* Title      :
* Written by :Fulgencio
* Date       :
* Description:Desplaza una cadena de texto en modo gráfico
*             suavemente a nivel de pixel
*-----------------------------------------------------------
    ORG    $1000
START:                  ; first instruction of program

    MOVE.L #95,D0  ;Texto en X,Y modo gráfico
    MOVE.L #30,D1  ;X=D1
    MOVE.L #0,D2   ;Y=D2

BUCLE
    MOVE.L #CADNUM,A1
    TRAP #15       ;Pinta el texto en coordenada gráfica

    JSR RETARD
    ADD.L #1,D1 *Lo movemos en diagonal x++ e y++
    ADD.L #1,D2
    CMP.L #460,D2 *Llegó abajo ?
    BEQ SALIR

    JMP BUCLE
SALIR

    SIMHALT             ; halt simulator

* Put program code here

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


* Put variables and constants here
CADNUM DC.B '123',0
    END    START        ; last line of source