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

duree	equ	$800F5
freq	equ	$800FA


	GOSBVL	$0679B
	LCHEX	$003E8
	D0=(5)	$800F5
	DAT0=C	A
	LCHEX	$00000
	D0=(5)	$800FA
	DAT0=C	A
LAB0
	LCHEX	$003E8
	D0=(5)	$800FA
	A=DAT0	A
	?C>A	A
	GOYES	LAB1
	GOTO	LAB2
LAB1
	D0=(5)	$800FA
	C=DAT0	A
	D=C	A
	D0=(5)	$800F5
	C=DAT0	A
	GOSBVL	$017A6
	GOSBVL	$067D2
	LAHEX	$800F5
	D0=A
	LCHEX	$000C8
	D0=(5)	$800FA
	A=DAT0	A
	C=C+A	A
	DAT0=C	A
	GOTO	LAB0
LAB2
	GOSBVL	$067D2
	A=DAT0	A
	D0=D0+	5
	PC=(A)
Fin