; Recherche caractŠre <>0
 ; NewOffset%=Rec0(L:Adr0%,L:OldOffset%,L:BlkLen%%)
 ; Retour: Offset absolu au caractŠre

 Opt a+,o+,o1+,o2+
 
 Move.L	4(Sp),A1	; adresse "primaire"
 ;
 Move.L	8(Sp),D1	; ancien offset absolu
 Move.L	A1,A0
 Add.L	D1,A0		; adresse "v‚ritable"
 ;
 Move.L	12(Sp),D0	; taille
 Sub.L	D1,D0		; -offset
 Beq.s	End
 Subq.L	#1,D0		; dbra
 ;
DoTest:
 Tst.b	(A0)+
 Bne.S	Okay
 Dbra	D0,DoTest 

End:			; fin (-1)
 St.b	D0
 Ext.W	D0
 Ext.L	D0
 RTS
 
Okay:
 Move.L	A0,D0		; adresse actuelle+1
 Subq.L	#1,D0		; adresse de pointage
 Sub.L	A1,D0		; -adresse primaire -> offset
 RTS