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

ischaine	equ	$800F5
compteur	equ	$800FA
taille	equ	$800FF
taille.res	equ	$80104
adr.ecr	equ	$80109
adr.res	equ	$8010E
adr.lec	equ	$80113
marque	equ	$80118
tmpcar	equ	$8011D
car	equ	$80122


	GOSBVL	$0679B
	D0=(5)	$80113
	C=0	A
	C=DAT1	A
	DAT0=C	A
	D1=C
	D0=(5)	$800F5
	C=0	A
	C=DAT1	A
	DAT0=C	A
	LCHEX	$02A2C
	A=DAT0	A
	?C#A	A
	GOYES	LAB0
	GOTO	LAB1
LAB0
	GOSBVL	$067D2
	LAHEX	$00202
	GOVLNG	$05023
LAB1
	D1=D1+	5
	D0=(5)	$800FF
	C=0	A
	C=DAT1	A
	DAT0=C	A
	D1=D1+	5
	A=0	A
	C=0	A
	C=DAT1	8
	LAHEX	$00454C52
	?C#A	W
	GOYES	@CESTOK
	LAHEX	$00202
	GOSBVL	$067D2
	GOVLNG	$05023
@CESTOK
	D0=(5)	$80113
	AD1EX
	D1=A
	DAT0=A	A
	LCHEX	$00005
	D0=(5)	$800FF
	A=DAT0	A
	C=A-C	A
	DAT0=C	A
	LCHEX	$00010
	A=DAT0	A
	?C>A	A
	GOYES	LAB2
	GOTO	LAB3
LAB2
	GOSBVL	$067D2
	A=DAT0	A
	D0=D0+	5
	PC=(A)
LAB3
	LCHEX	$00010
	D0=(5)	$800FF
	A=DAT0	A
	C=C+A	A
	D0=(5)	$80104
	DAT0=C	A
	R0=C	A
	GOSBVL	$067D2
	C=R0	A
	GOSBVL	$05B7D
	GOSBVL	$067D2
	D0=(5)	$8010E
	LAHEX	$8010E
	D0=A
	C=R0	A
	DAT0=C	A
	LCHEX	$0000A
	A=DAT0	A
	C=C+A	A
	D0=(5)	$80109
	DAT0=C	A
	D1=C
	LAHEX	$000454C52
	DAT1=A	9
	D1=D1+	9
	AD1EX
	D1=A
	DAT0=A	A
	D1=A
	D0=(5)	$800FF
	A=DAT0	A
	DAT1=A	A
	D1=D1+	5
	D0=(5)	$80109
	AD1EX
	DAT0=A	A
	LCHEX	$00000
	D0=(5)	$80118
	DAT0=C	A
	LCHEX	$00001
	D0=(5)	$800FA
	DAT0=C	A
	D0=(5)	$80113
	A=DAT0	A
	D1=A
	A=0	A
	A=DAT1	B
	D1=D1+	2
	D0=(5)	$8011D
	DAT0=A	A
	D0=(5)	$80113
	AD1EX
	DAT0=A	A
	D0=(5)	$800FF
	C=DAT0	A
	CSRB	A
	LAHEX	$00001
	C=C-A	A
	DAT0=C	A
	ST=0	15
LAB4
	LCHEX	$00000
	D0=(5)	$800FF
	A=DAT0	A
	?C<A	A
	GOYES	LAB5
	GOTO	LAB6
LAB5
	D0=(5)	$80113
	A=DAT0	A
	D1=A
	A=0	A
	A=DAT1	B
	D1=D1+	2
	D0=(5)	$80122
	DAT0=A	A
	D0=(5)	$80113
	AD1EX
	DAT0=A	A
	D0=(5)	$800FF
	C=DAT0	A
	C=C-1	A
	DAT0=C	A
	D0=(5)	$80122
	C=DAT0	A
	D0=(5)	$8011D
	A=DAT0	A
	?C=A	A
	GOYES	LAB7
	GOTO	LAB8
LAB7
	LCHEX	$000FF
	D0=(5)	$800FA
	A=DAT0	A
	?C=A	A
	GOYES	LAB9
	GOTO	LAB10
LAB9
	D0=(5)	$80109
	A=DAT0	A
	D1=A
	D0=(5)	$80118
	A=DAT0	A
	DAT1=A	B
	D1=D1+	2
	D0=(5)	$80109
	AD1EX
	DAT0=A	A
	D1=A
	D0=(5)	$800FA
	A=DAT0	A
	DAT1=A	B
	D1=D1+	2
	D0=(5)	$80109
	AD1EX
	DAT0=A	A
	D1=A
	D0=(5)	$8011D
	A=DAT0	A
	DAT1=A	B
	D1=D1+	2
	D0=(5)	$80109
	AD1EX
	DAT0=A	A
	LCHEX	$00001
	D0=(5)	$800FA
	DAT0=C	A
	GOTO	LAB11
LAB10
	D0=(5)	$800FA
	C=DAT0	A
	C=C+1	A
	DAT0=C	A
LAB11
	GOTO	LAB12
LAB8
	GOSUB	@NWRITE
	D0=(5)	$80122
	C=DAT0	A
	D0=(5)	$8011D
	DAT0=C	A
	LCHEX	$00001
	D0=(5)	$800FA
	DAT0=C	A
LAB12
	GOTO	LAB4
LAB6
	GOSUB	@NWRITE
	ST=1	15
	AD0EX
	GOSBVL	$067D2
	D1=D1+	5
	D=D+1	A
	GOSBVL	$0679B
	AD0EX
	D0=(5)	$8010E
	A=DAT0	A
	R0=A	A
	D0=(5)	$80109
	A=DAT0	A
	AD0EX
	GOSBVL	$16671
	GOSBVL	$067D2
	LAHEX	$80109
	D0=A
	D0=(5)	$8010E
	A=DAT0	A
	R0=A	A
	GOSBVL	$067D2
	A=R0	A
	PC=(A)


@NWRITE
	LCHEX	$00003
	D0=(5)	$800FA
	A=DAT0	A
	?C<A	A
	GOYES	LAB13
	GOTO	LAB14
LAB13
	D0=(5)	$80109
	A=DAT0	A
	D1=A
	D0=(5)	$80118
	A=DAT0	A
	DAT1=A	B
	D1=D1+	2
	D0=(5)	$80109
	AD1EX
	DAT0=A	A
	D1=A
	D0=(5)	$800FA
	A=DAT0	A
	DAT1=A	B
	D1=D1+	2
	D0=(5)	$80109
	AD1EX
	DAT0=A	A
	D1=A
	D0=(5)	$8011D
	A=DAT0	A
	DAT1=A	B
	D1=D1+	2
	D0=(5)	$80109
	AD1EX
	DAT0=A	A
	GOTO	LAB15
LAB14
LAB16
	LCHEX	$00000
	D0=(5)	$800FA
	A=DAT0	A
	?C#A	A
	GOYES	LAB17
	GOTO	LAB18
LAB17
	D0=(5)	$80109
	A=DAT0	A
	D1=A
	D0=(5)	$8011D
	A=DAT0	A
	DAT1=A	B
	D1=D1+	2
	D0=(5)	$80109
	AD1EX
	DAT0=A	A
	D0=(5)	$800FA
	C=DAT0	A
	C=C-1	A
	DAT0=C	A
	GOTO	LAB16
LAB18
LAB15
	RTN
Fin