	include	entries.i


	con(5)	DOCOL
	con(5)	$1884d	CLRCL
	con(5)	$18a8d	CHK2
	con(5)	SWAP
	con(5)	$1a2bc	NEWOB
	con(5)	SWAP

	con(5)	DOCODE
DebutCode	con(5)	FinCode-DebutCode

	gosbvl	SAVPTR
	ST=0	15
	INTOFF

	gosub	DEPLACEMENT

	a=a-10	a
	?a=0	a
	goyes	CODE	
	lahex	$00203
	GOTO	SORTIE

CODE	a=dat1	a
	d1=d1+	2
	r0=a	b
	a=dat1	a
	d1=d1+	2
	r1=a	b
	a=dat1	a
	d1=d1+	2
	r2=a	b
	a=dat1	a
	d1=d1+	2
	r3=a	b
	a=dat1	a
	d1=d1+	2
	r4=a	b

	gosbvl	GETPTR
	d1=d1+	5
	d=d+1	a
	gosbvl	SAVPTR
	gosub	DEPLACEMENT

REGISTRATOR	a=dat1	a
	c=r0	b
	a=a+c	b
	dat1=a	b
	d1=d1+	2
	gosub	CONTROLE

	a=dat1	a
	c=r1	b
	a=a+c	b
	dat1=a	b
	d1=d1+	2
	gosub	CONTROLE

	a=dat1	a
	c=r2	b
	a=a+c	b
	dat1=a	b
	d1=d1+	2
	gosub	CONTROLE

	a=dat1	a
	c=r3	b
	a=a+c	b
	dat1=a	b
	d1=d1+	2
	gosub	CONTROLE

	a=dat1	a
	c=r4	b
	a=a+c	b
	dat1=a	b
	d1=d1+	2
	gosub	CONTROLE

	goto	REGISTRATOR

SORTIE	INTON
	ST=1	15
	gosbvl	GETPTR
	gosbvl	ERROR

DEPLACEMENT	a=dat1	a	
	d1=a
	a=dat1	a
	lchex	$02a2c
	?a=c	a
	goyes	OK
	a=0	a
	lahex	$202
	goto	SORTIE

OK	d1=d1+	5
	cd1ex
	d1=c	
	a=dat1	a
	c=c+a	a
	d0=c
	d1=d1+	5
	a=a-5	a
	?a=0	a
	goyes	FIN
	RTN

CONTROLE	ad1ex
	d1=a
	cd0ex
	d0=c
	?a=c	a
	goyes	FIN
	RTN

FIN	ST=1	15
	INTON
	gosbvl	GETPTR
	a=dat0	a	
	d0=d0+	5
	pc=(a)
FinCode
	con(5)	SEMI