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