;pintamos el grafico en screen
    move.l  #grafico,a0
    move.l  #screen,a1

    ;Siempre hay que esperar a que el blitter esté libre
    ;antes de volver a usarlo.
.waitblitter
    btst    #14-8,dmaconr+custombase
    bne .waitblitter

    ;move.l #-1,BltAFwm+CustomBase
    move.l  #$09f00000,bltcon0+CustomBase   ;Copia lo que hay en A en D
    move.w  #0,BltAMod+CustomBase           ;modulo del gráfico
    move.w  #38,BltDMod+CustomBase          ;modulo de la pantalla
    move.l  a0,BltApth+CustomBase           ;direccion del grafico
    move.l  a1,BltDpth+CustomBase           ;dirección de la pantalla
    move.w  #16<<6+1,BltSize+CustomBase     ;tamaño del gráfico a pintar