#screen hires
#colors from "ram:luckp"
#picture 0,0,"ram:luckp"
#pens 1,0
#move 110,2
47
#move 208,2
Programación en Ensamblador 6/10
#move 0,20
#pens 1,15
-->
        MOVE.W  #$0080,DMACON         ;Desactivamos el canal del copper
        MOVE.L  SALVA_COPPER,(A0)     ;y dejamos la antigua dirección
        MOVE.W  #$8080,DMACON         ;antivamos de nuevo el canal DMA del 
                                      ;copper

ERROR:
        RTS                           ;Si no ha conseguido abrir la/s
                                      ;librerias finaliza la rutina

NOMBRE_GFX:
        DC.B    'graphics.library',0
        EVEN                          ;alinea con el PC para evitar un error
                                      ;del tipo dirección impar en la etiqueta
                                      ;de GFXBASE
GFXBASE:
        DC.L    0
SALVA_COPPER:
        DC.L    0

MI_COPPER:
        DC.W    $0100,$0000
        DC.W    $3011,$FFFE,$0180,$0333,$3211,$FFFE,$0180,$0444
        DC.W    $3411,$FFFE,$0180,$0555,$3611,$FFFE,$0180,$0666
        DC.W    $FFFF,$FFFE                                                    ¤