	include	entries.i

	con(5)	DOCOL
	con(5)	$1884d	CLRCL
	con(5)	$18ab2	CHK1

	con(5)	DOCODE
Debut	con(5)	Fin-Debut

	gosbvl	SAVPTR
	st=0	15
	INTOFF
	gosbvl	GARBAGECOL	on fait le vide
	gosbvl	GETPTR
	a=dat1	a
	d1=a
	r2=a	a
	a=dat1	a
	lchex	$02a2c	est ce une chaine dans la pile ?
	?a=c	a
	goyes	SUITE

	st=1	15
	INTON
	gosbvl	GETPTR
	lahex	$00202
	govlng	ERROR

FINI	st=1	15
	INTON
	gosbvl	GETPTR	on sort sinon ...
	a=dat0	a
	d0=d0+	5
	pc=(a)

MEM	gosbvl	GETPTR
	st=1	15
	INTON
	lahex	$00001
	govlng	ERROR

SUITE	d1=d1+	10
	lchex	$00454c52
	p=	8
	a=dat1	wp
	?a#c	wp	
	goyes	FINI
	p=	0
	d1=d1+	9
	a=dat1	a
	d1=d1+	5
	r1=a	a	sauvegarde taille chaine
	c=a	a
	c=c+10	a
	b=a	a
	gosbvl	FREEMEMQ	nombre de quartets dans C.A
	a=b	a
	?c<a	a	si pas assez de mem on sort
	goyes	MEM
	c=a	a
	gosbvl	RES_STR
	ad0ex
	r3=a	a	r3 contient d0 chaine memoire
	gosbvl	GETPTR
	a=r3	a	on replace l'adresse chaine mem
	d0=a
	a=r2	a	on replace l'adresse chaine pile
	d1=a
	d1=d1+	9	on se place sur le 1er caractere
	d1=d1+	15
	a=r1	a	rcuperation de taille chaine
	c=r3	a	recupration de adresse chaine
	c=c+a	a
	b=c	a
	lchex	$00
	goto	BOUCLE

FIN	gosbvl	RERESSTR
	gosbvl	GETPTR
	d1=d1+	5
	d=d+1	a
	a=r0	a	probleme de saut : que l....
	pc=(a)

BOUCLE	a=dat1	b
	d1=d1+	2
	?a=c	b
	goyes	ECRIT
	dat0=a	b
	d0=d0+	2
	
LABEL	ad0ex
	d0=a
	?b=a	a	est-ce la fin de la chaine ?
	goyes	FIN
	goto	BOUCLE

ECRIT	a=dat1	b
	d1=d1+	2
	c=dat1	b
	d1=d1+	2
	a=a-1	b
FOR	dat0=c	b
	d0=d0+	2
	a=a-1	b
	gonc	FOR
	lchex	$00
	goto	LABEL

Fin
	con(5)	SEMI