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