; test string
 ; teste si la chaine contient des ops "%",des ""+"" ou rien...
 ; renvoi 0 si aucune ops (chaine simple)
 ;	  1 si chaine avec %
 ;	  2 si chaine avec ops et/ou %

 opt a+,o+,p+,o1+,o2+
 
 move.l 4(sp),a0	; addr
 cmpi.b	#34,(a0)	; 1er char = chaine?
 bne.s	erreturn	; non, alors abandonner!
 addq.l	#1,a0		; sauter "
 move.w	8(sp),d0	; boucle
 ext.l	d0		; 'never know
 subi.w	#3,d0		; dbra + -1 pour " et -1 pour eviter le " de fin de chaine
 blt.s	return2		; chaine vide?	

 clr.b	d1 
 loop:	cmpi.b	#34,(a0)	; "  
	beq.s	return2		; retour imm‚diat!
	cmpi.b #"%",(a0)+
	bne.s	NoPc
 	st.b	d1		; ops avec "%"
 NoPc: 	dbra	d0,loop
 
 tst.b	d1
 bne.s	return1
 
 return0:	clr.l	d0
 		rts
 return1:	moveq.l	#1,d0
 		rts
 return2:	moveq.l	#2,d0
 		rts
 erreturn:	st.b	d0
 		ext.w	d0
 		ext.l	d0
 		rts