;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
;-------------------------------------------------------------------------