	include	entries.i

	con(5)	DOCODE
DebutCode	con(5)	FinCode-DebutCode
	gosbvl	SAVPTR
	D0=(5)	$806D0
	A=DAT0	A
	D0=A
	C=0	A
	LCHEX	$91
	A=DAT1	A
	D1=A
BOUCLE	A=DAT1	B
	DAT0=A	B
	D1=D1+	2
	D0=D0+	2
	C=C-1	A
	GONC	BOUCLE
FIN	gosbvl	GETPTR
	a=dat0	a	
	d0=d0+	5
	pc=(a)
FinCode
