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

taille	equ	$800F5
adr.fin	equ	$800FA
adr.deb	equ	$800FF


	GOSBVL	$0679B
	LCHEX	$02710
	D0=(5)	$800F5
	DAT0=C	A
	R3=C	A
	R4=A	A
	C=DAT0	A
	R0=C	A
	GOSBVL	$067D2
	C=R0	A
	GOSBVL	$05B7D
	GOSBVL	$067D2
	D0=(5)	$800FF
	LAHEX	$800FF
	D0=A
	C=R0	A
	DAT0=C	A
	C=R3	A
	A=R4	A
	LCHEX	$0000A
	A=DAT0	A
	C=C+A	A
	D0=(5)	$800F5
	A=DAT0	A
	C=C+A	A
	D0=(5)	$800FA
	DAT0=C	A
	R2=A	A
	R4=C	A
	D0=(5)	$800FF
	A=DAT0	A
	R0=A	A
	D0=(5)	$800FA
	A=DAT0	A
	AD0EX
	GOSBVL	$16671
	GOSBVL	$067D2
	LAHEX	$800FA
	D0=A
	A=R2	A
	C=R4	A
	D0=(5)	$800FF
	A=DAT0	A
	R0=A	A
	GOSBVL	$067D2
	A=R0	A
	PC=(A)

Fin