	include	entries.i


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

	gosbvl	SAVPTR
	c=d	a
	c=c+c	a
	c=c+c	a
	c=c+d	a
	c=c-16	a
	gosbvl	RES_STR
	gosbvl	GETPTR
	a=dat1	a
	d1=a
	d1=d1+	5
	a=dat1	a
	cd1ex
	d1=c
	a=a+c	a
	d0=a
	d0=d0-	2
	c=dat0	b
	rstk=c
	c=0	b
	dat0=c	b
	d1=d1+	5
	a=r0	a
	d0=a
	d0=d0+	5
	a=dat0	a
	b=a	a
	b=b-5	a
	bsrb	a
	d0=d0+	5
BCLE	lchex	$7
	p=c	0
	c=p	15
	p=	0
BCL20	p=	15
	la	$4
	p=	0
BCL5	b=b-1	a
	goc	ERR
	a=dat1	b
	?a=0	b
	goyes	FIN
	dat0=a	b
	d0=d0+	2
	d1=d1+	2
	a=a-1	s
	gonc	BCL5
	c=c-1	s
	goc	FBC20
	b=b-1	a
	goc	ERR
	lc	$20
	dat0=c	b
	d0=d0+	2
	goto	BCL20

FBC20	b=b-1	a
	goc	ERR
	lc	$0a
	dat0=c	b
	d0=d0+	2
	goto	BCLE

ERR	gosbvl	GETPTR
	la	$00001
	govlng	ERROR

FIN	b=b-1	a
	goc	ERR
	c=rstk
	dat0=c	b
	d0=d0+	2
	dat1=c	b
	gosbvl	RERESSTR
	gosbvl	GETPTR
	d1=d1+	5
	d=d+1	a
	a=r0	a
	pc=(a)
FinCode