	include	entries.i

	con(5)	DOCODE
DebutCode	con(5)	FinCode-DebutCode

	GOSBVL	SAVPTR
	A=DAT1	A
	R0=A	A
	GOSBVL	GETPTR
	GOSBVL	PUSH_R0
	A=DAT0	A
	D0=D0+	5
	PC=(A)
FinCode