	include	entries.i
	con(5)	DOCODE
Debut	con(5)	Fin-Debut

C	equ	$800F5
I	equ	$800FA
ADR.M	equ	$800FF
ADR.OBJ	equ	$80104


	GOSBVL	$0679B
	ST=0	15
	D0=(5)	$80104
	A=DAT1	A
	DAT0=A	A
	D1=(5)	$806D0
	D0=(5)	$800FF
	A=DAT1	A
	DAT0=A	A
	LCHEX	$00092
	D0=(5)	$800FA
	DAT0=C	A
LAB0
	LCHEX	$00000
	D0=(5)	$800FA
	A=DAT0	A
	?C#A	A
	GOYES	LAB1
	GOTO	LAB2
LAB1
	D0=(5)	$80104
	C=DAT0	A
	D1=C
	D0=(5)	$800F5
	C=0	A
	C=DAT1	B
	D1=D1+	2
	DAT0=C	A
	D0=(5)	$80104
	AD1EX
	D1=A
	DAT0=A	A
	D0=(5)	$800FF
	C=DAT0	A
	D1=C
	D0=(5)	$800F5
	C=DAT0	A
	DAT1=C	B
	D1=D1+	2
	D0=(5)	$800FF
	AD1EX
	D1=A
	DAT0=A	A
	D0=(5)	$800FA
	C=DAT0	A
	C=C-1	A
	DAT0=C	A
	GOTO	LAB0
LAB2
	ST=1	15
	GOSBVL	$067D2
	A=DAT0	A
	D0=D0+	5
	PC=(A)
Fin