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

car	equ	$800F5
c	equ	$800FA
taille	equ	$800FF
adr.deb	equ	$80104
adr.max	equ	$80109
adr.tmp	equ	$8010E
adr	equ	$80113


	GOSBVL	$0679B
	GOSUBL	TEST
	LCHEX	$00005
	D0=(5)	$800FF
	A=DAT0	A
	?C=A	A
	GOYES	LAB0
	GOTO	LAB1
LAB0
	GOSBVL	$067D2
	A=DAT0	A
	D0=D0+	5
	PC=(A)
LAB1
	D0=(5)	$8010E
	C=DAT0	A
	D0=(5)	$800FF
	A=DAT0	A
	C=C+A	A
	LAHEX	$00005
	C=C+A	A
	D0=(5)	$80109
	DAT0=C	A
	LCHEX	$0000A
	D0=(5)	$8010E
	A=DAT0	A
	C=C+A	A
	DAT0=C	A
	D0=(5)	$80113
	DAT0=C	A
	D0=(5)	$8010E
	C=DAT0	A
	D0=(5)	$80104
	DAT0=C	A
	AD0EX
	GOSBVL	$067D2
	D1=D1+	5
	D=D+1	A
	GOSBVL	$0679B
	AD0EX
	GOSUBL	TEST
	D0=(5)	$800FF
	C=DAT0	A
	CSRB	A
	DAT0=C	A
	LCHEX	$0000A
	D0=(5)	$8010E
	A=DAT0	A
	C=C+A	A
	DAT0=C	A
	ST=0	15
LAB2
LAB3
	D0=(5)	$80109
	C=DAT0	A
	D0=(5)	$80113
	A=DAT0	A
	?C>A	A
	GOYES	LAB4
	GOTO	LAB5
LAB4
	LCHEX	$00002
	D0=(5)	$800FF
	A=DAT0	A
	?C=A	A
	GOYES	LAB6
	GOTO	LAB7
LAB6
	ST=1	15
	GOSBVL	$067D2
	A=DAT0	A
	D0=D0+	5
	PC=(A)
LAB7
	D0=(5)	$80113
	C=DAT0	A
	D1=C
	D0=(5)	$800FA
	C=0	A
	C=DAT1	B
	D1=D1+	2
	DAT0=C	A
	D0=(5)	$80113
	AD1EX
	D1=A
	DAT0=A	A
	D0=(5)	$8010E
	C=DAT0	A
	D1=C
	D0=(5)	$800F5
	A=DAT1	A
	DAT0=A	A
	D0=(5)	$800FA
	C=DAT0	A
	D0=(5)	$800F5
	A=DAT0	A
	C=A-C	A
	DAT0=C	A
	DAT1=C	B
	D1=D1+	2
	D0=(5)	$8010E
	AD1EX
	D1=A
	DAT0=A	A
	D0=(5)	$800FF
	C=DAT0	A
	C=C-1	A
	DAT0=C	A
	GOTO	LAB3
LAB5
	D0=(5)	$80104
	C=DAT0	A
	D0=(5)	$80113
	DAT0=C	A
	GOTO	LAB2


TEST

ischaine	equ	$80118

	D0=(5)	$8010E
	A=DAT1	A
	DAT0=A	A
	C=A	A
	D1=C
	D0=(5)	$80118
	A=DAT1	A
	DAT0=A	A
	LCHEX	$02A2C
	A=DAT0	A
	?C#A	A
	GOYES	LAB8
	GOTO	LAB9
LAB8
	GOSBVL	$067D2
	LAHEX	$00202
	GOVLNG	$05023
LAB9
	D1=D1+	5
	D0=(5)	$800FF
	A=DAT1	A
	DAT0=A	A
	RTN

Fin