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

K	equ	$800F5
J	equ	$800FA
C	equ	$800FF
I	equ	$80104


	GOSBVL	$0679B
	LCHEX	$00000
	D0=(5)	$80104
	DAT0=C	A
	LCHEX	$00001
	D0=(5)	$800FF
	DAT0=C	A
	LCHEX	$00002
	D0=(5)	$800FA
	DAT0=C	A
	LCHEX	$00003
	D0=(5)	$800F5
	DAT0=C	A
	D0=(5)	$80104
	A=DAT0	A
	R0=A	A
	GOSBVL	$067D2
	GOSBVL	$06537
	GOSBVL	$0679B
	LAHEX	$80104
	D0=A
	D0=(5)	$800FF
	A=DAT0	A
	R0=A	A
	GOSBVL	$067D2
	GOSBVL	$06537
	GOSBVL	$0679B
	LAHEX	$800FF
	D0=A
	D0=(5)	$800FA
	A=DAT0	A
	R0=A	A
	GOSBVL	$067D2
	GOSBVL	$06537
	GOSBVL	$0679B
	LAHEX	$800FA
	D0=A
	D0=(5)	$800F5
	A=DAT0	A
	R0=A	A
	GOSBVL	$067D2
	GOSBVL	$06537
	GOSBVL	$0679B
	LAHEX	$800F5
	D0=A
	GOSBVL	$067D2
	A=DAT0	A
	D0=D0+	5
	PC=(A)
Fin