section bitplanes,data_c
screen:
    ds.b    40*256      ;40 bytes por linea * 256 lineas

    section copperlist,data_c
;------------------------------------------------------------------
;   MAIN COPPERLIST
;------------------------------------------------------------------

copperlist:
    DC.W    DiWStrt,$2C81,DiWStop,$2cC1,DdfStrt,$0038,DdfStop,$00D0
    DC.W    BplCon0,$1200,BplCon3,$0000,AgaFMode,$0000
    DC.W    BplCon1,$0000,BplCon2,$0000
    DC.W    Bpl1Mod,$0000,Bpl2Mod,$0000

Planes:
    DC.W    Bpl1Pth,$0000,Bpl1Ptl,$0000     ;punteros del Bitplano

    dc.w    $8c01,$fffe     ;Wait linea 8C
    dc.w    $0180,$0f00     ;Cambia el color 0 (registro $180) a Rojo

    dc.w    $ffff,$fffe