01: ;rockyone                       pour MI-3                      
02: ;
03: ;
04: ;       CYCLE COULEURS  : ART DIRECTOR  : ART  ( basse r�solution )
05: ;       ------------------------------------------------------------
06: ;
07: ;Anime          buffer 512 octets
08: ;       +0    8 palette 16 words colors
09: ;       +256  8 octets   1 octet par palette valeur 0 � 9
10:                          nombre de vbl pour chaque palette
11: ;                        0 = pal not display
12: ;    
13: ;       +287  1 byte    numero de la palette de l'image   0 � 8
14: ;                        
15: ;       +288 a +512     inutilis�
16: ;                              
17: ;                       call Art_cycle( L Anime)
18: ;                      
19: ;              
20: ;------------------------------------------------------------------------
21:         movem.l d0-d7/a0-a6,-(a7)
22:         move.l  64(sp),a5
23: 
24:         lea.l   256(a5),a6      ; Adresse des nombres de vbl par palette
25:         moveq.l #0,d6
26:         move.b  287(a5),d6      ; Num�ro de la palette affich� 0 a 7
27:         move.w  d6,d7
28:        
29:         lsl.b   #5,d7           ; *32
30:         adda.w  d7,a5           ; addresse de la palette a l'�cran
31: 
32: *       d4                      ; Compteur vbl
33:         move.b  d6,d3           ; Compteur palette
34:         moveq.l #9,d7           ; Stop en fin de cycle quand  d7 = d3  
35: ;                               ; apr�s barre espace
36: ;
37: ;........................................................................
38: next_pal:
39:         lea.l   32(a5),a5       ; Adresse Palette suivante
40:         addq.b  #1,d3           ; Conpteur palette +1
41:         cmpi.b  #8,d3           ; Derniere palette du buffer ?
42:         bne.s   nb_vbl
43: 
44: first_pal:
45:         moveq.l #0,d3           ; Compteur palette sur premi�re palette
46:         move.l  64(sp),a5       ; Adresse premi�re palette du buffer
47: 
48: nb_vbl:
49:         moveq.l #0,d4
50:         move.b  0(a6,d3.w),d4   ; Nombre de VBL pour cette palette
51:         beq.s   next_pal        ; 0 = not display this palettte
52: 
53:         lsl.b   #1,d4           ;
54:         subq.b  #1,d4           ; -1 pour dbra
55:                                                                                                
56:         moveq.l #7,d5           ; 16 couleurs
57:         movea.l #$ffff8240,a3
58:  pal_display:
59:         move.l  (a5)+,(a3)+
60:         dbra.w  d5,pal_display
61:         suba.l  #32,a5
62: 
63:         move.b  $fffffc02.w,d0
64:         cmp.b   #$39,d0         : barre espace ?
65:         bne.s   no_key
66:         move.b  d6,d7           ; Force fin cycle
67: no_key:
68:         cmp.b   d3,d7           ; Fin cycle ?
69:         beq.s   end_prg
70: 
71: vsync:  
72:         move.w  #37,-(sp)      
73:         trap    #14    
74:         addq.l  #2,sp
75:         dbra.w  d4,vsync
76: 
77:         bra.s   next_pal
78: 
79: ;..............................
80: end_prg:
81:         movem.l (a7)+,d0-d7/a0-a6
82:         rts
83: 
84:         end
85: ;-------------------------------------------------------------------------