Bola movimiento Easy68k

*-----------------------------------------------------------
* Title      :
* Written by :FULGENCIO
* Date       :
* Description:BOLA VERDE QUE SE MUEVE
*-----------------------------------------------------------
    ORG    $1000
RED         EQU $0000FF
GREEN       EQU $00FF00
BLUE        EQU $FF0000
YELLOW      EQU $00FFFF
BLACK       EQU $000000

START:                  ; first instruction of program
            MOVE.L #100,D1
            MOVE.L #100,D2
            MOVE.L #200,D3
            MOVE.L #200,D4
            MOVE.L D1,X1
            MOVE.L D2,Y1
            MOVE.L D3,X2
            MOVE.L D4,Y2


BUCLE
            MOVE.L #GREEN,D1
            JSR COLOR

            MOVE.L X1,D1
            MOVE.L Y1,D2
            MOVE.L X2,D3
            MOVE.L Y2,D4
            JSR CIRCULO

            JSR RETARDO
            MOVE.L #BLACK,D1
            JSR COLOR

            MOVE.L X1,D1
            MOVE.L Y1,D2
            MOVE.L X2,D3
            MOVE.L Y2,D4
            JSR CIRCULO

            ADD.L #10,X1
            ADD.L #10,X2
            JMP BUCLE

            SIMHALT             ; halt simulator


CUADRADO
            MOVE.L #87,D0
            TRAP #15
            RTS
CIRCULO     MOVE.L #88,D0
            TRAP #15
            RTS

COLOR
            MOVE.L #80,D0
            TRAP #15
            MOVE.L #81,D0
            TRAP #15   ;PLUMA Y RELLENO MISMO COLOR
            RTS

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


* Put program code here

            ORG $3000
* Put variables and constants here
X1          DS.L 1
Y1          DS.L 1
X2          DS.L 1
Y2          DS.L 1
    END    START        ; last line of source