#screen hires
#colors from "ram:luckp"
#picture 0,0,"ram:luckp"
#pens 1,0
#move 110,2
46
#move 208,2
Programación en Ensamblador 5/10
#move 0,20
#pens 1,15
-->
INICIALIZACIONES:

        MOVE.L  EXECBASE,A6           ;Puntero base de Exec
        LEA     NOMBRE_GFX,A1         ;Puntero a graphics.library
        MOVE.L  #0,D0                 ;Limpio D0=0
        JSR     OLDOPENLIBRARY(A6)    ;Si al ejecutarse la función sigue
        TST     D0                    ;valiendo cero es que han habido 
        BEQ     ERROR                 ;problemas
        MOVE.L  D0,GFXBASE            ;Si no hay problemas la función deja
                                      ;en D0 la dirección base de la libreria
        MOVE.L  D0,A0                 ;y se copia en A0
        ADD.L   #$32,A0               ;le sumanos el offset de la actual
                                      ;lista de copper 
        MOVE.W  #$0080,DMACON         ;Detenemos el copper
        MOVE.L  (A0),SALVA_COPPER     ;y almacenamos la direcc. en la variable
        MOVE.L  #MI_COPPER,(A0)       ;dirección de nuestra lista de copper
        MOVE.W  #$8080,DMACON         ;y activamos el canal DMA del copper

ESPERA: BTST    #$6,$BFE001           ;Se ha pulsado el boton izq del ratón?

        BNE     ESPERA 

        MOVE.L  GFXBASE,A0            ;Puntero base de graphics.library
        ADD.L   #$32,A0               ;y le sumamos el offset                -->