;rockyone                       pour MI-3                      
;
;
;       CYCLE COULEURS  : ART DIRECTOR  : ART  ( basse r�solution )
;       ------------------------------------------------------------
;
;Anime          buffer 512 octets
;       +0    8 palette 16 words colors
;       +256  8 octets   1 octet par palette valeur 0 � 9
                         nombre de vbl pour chaque palette
;                        0 = pal not display
;    
;       +287  1 byte    numero de la palette de l'image   0 � 8
;                        
;       +288 a +512     inutilis�
;                              
;                       call Art_cycle( L Anime)
;                      
;              
;------------------------------------------------------------------------
        movem.l d0-d7/a0-a6,-(a7)
        move.l  64(sp),a5

        lea.l   256(a5),a6      ; Adresse des nombres de vbl par palette
        moveq.l #0,d6
        move.b  287(a5),d6      ; Num�ro de la palette affich� 0 a 7
        move.w  d6,d7
       
        lsl.b   #5,d7           ; *32
        adda.w  d7,a5           ; addresse de la palette a l'�cran

*       d4                      ; Compteur vbl
        move.b  d6,d3           ; Compteur palette
        moveq.l #9,d7           ; Stop en fin de cycle quand  d7 = d3  
;                               ; apr�s barre espace
;
;........................................................................
next_pal:
        lea.l   32(a5),a5       ; Adresse Palette suivante
        addq.b  #1,d3           ; Conpteur palette +1
        cmpi.b  #8,d3           ; Derniere palette du buffer ?
        bne.s   nb_vbl

first_pal:
        moveq.l #0,d3           ; Compteur palette sur premi�re palette
        move.l  64(sp),a5       ; Adresse premi�re palette du buffer

nb_vbl:
        moveq.l #0,d4
        move.b  0(a6,d3.w),d4   ; Nombre de VBL pour cette palette
        beq.s   next_pal        ; 0 = not display this palettte

        lsl.b   #1,d4           ;
        subq.b  #1,d4           ; -1 pour dbra
                                                                                               
        moveq.l #7,d5           ; 16 couleurs
        movea.l #$ffff8240,a3
 pal_display:
        move.l  (a5)+,(a3)+
        dbra.w  d5,pal_display
        suba.l  #32,a5

        move.b  $fffffc02.w,d0
        cmp.b   #$39,d0         : barre espace ?
        bne.s   no_key
        move.b  d6,d7           ; Force fin cycle
no_key:
        cmp.b   d3,d7           ; Fin cycle ?
        beq.s   end_prg

vsync:  
        move.w  #37,-(sp)      
        trap    #14    
        addq.l  #2,sp
        dbra.w  d4,vsync

        bra.s   next_pal

;..............................
end_prg:
        movem.l (a7)+,d0-d7/a0-a6
        rts

        end
;-------------------------------------------------------------------------