; Cache vid‚otex Sweetel2 - ˝STS

 opt	a+,o+,p+,o1+,o2+

 Move.W	4(Sp),D0	; 3 nombres a tester
 Move.W	6(Sp),D1	
 Move.W	8(Sp),D2
 ;;;;;;;;Andi.W	#%10011111,D2	; Ne pas tester starter/inhib (ici, 2 octets pour update)
 Move.L	10(Sp),A0	; et leurs 3 adr de tableau: Vid-[s&,c&,a|]
 Move.L	14(Sp),A1
 Move.L	18(Sp),A2	; (Vida| sur 1 octet)
 Move.W	22(Sp),D7	; max [0..max]
 Mulu.W	#2,D7		; *2 (Word)	

 t1:	clr.l	d6
 test:	cmp.w	(a0,d6.w),d0
	beq.s	t2
 cont:
 	addi.w	#2,d6
	cmp.w	d7,d6
	ble.s	test
	bra.s	end		; ‚chec

 t2:	cmp.w	(a1,d6.w),d1
 	bne.s	cont		; c pas ca
 	
 t3:	move.w	d6,d5
 	;divu.w	#2,d5
	lsr.w	#1,d5		; + rapide!
 	;;cmp.b	(a2,d5.w),d2
 	move.b	(a2,d5.w),d3
	;;;;;;andi.b	#%10011111,d3	; Ne pas tester starter/inhib
	cmp.b	d2,d3
 	bne.s	cont		; non plus
 	
 	move.w	d5,d0		; trouv‚! on renvoi l'index!
 	ext.l	d0
 	RTS
 
 end:	st.b	d0
 	ext.w	d0
 	ext.l	d0
 	RTS