;--------------------------------------------------------------------
;
;(C) tolkien / Goblins 2019.
;
;--------------------------------------------------------------------
    opt c-,p=68000
    section demophase,code

;Activa o desactiva el canal DMA deseado
COPPER      =   1
BLITTER     =   1
SPRITE      =   0
DISK        =   0
NASTY       =   0   ;Activa Nasty Mode del Blitter
TOPAZ       =   0   ;Usa Topaz
VBI         =   0   ;activa VertivalBlankInterrupt
CPI         =   0

;Este include contiene las rutinas asesinas del sistema
    include includes/SkyInit.s
    include includes/GoblinsCustom.i

;-----------------------------------------------------------
; Precalculos de la demo. SinTables, etc.
; Invocada ANTES de tomar el sistema.
;-----------------------------------------------------------
_Precalc:


    rts


;-----------------------------------------------------------
; Seccion principal
; Invocada por SkyInit. La demo termina cuando se sale
; de esta rutina.
;-----------------------------------------------------------
_Main:
        move.l  #screen,d0
        lea     Planes,a1
        move.w  d0,6(a1)
        swap    d0
        move.w  d0,2(a1)
        swap    d0

        move.l  #copperlist,COP1LCH+CUSTOMBASE
        clr.w   COPJMP1+CUSTOMBASE

_Wait
    btst    #6,$bfe001
    bne.s   _Wait

    rts

;-----------------------------------------------------------
; Finalizacion de la demo (respuesta a WB).
; Invocada tras la restauracion del sistema.
;-----------------------------------------------------------
_Exit:

    rts



;-----------------------------------------------------------
; Invocado por la interrupcion vblank. Se invoca 50 veces
; por segundo.
;-----------------------------------------------------------
_Interrupt:

    rts


;SECCIONES EN MEMORIA CHIP PARA BITPLANOS Y COPPERLIST

    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

        dc.w    $0180,$0000,$0182,$0000     ;color 0 y 1 a negro

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