*20
	PMODE
	BOTTOM=35
	FCOS=5177
	FLAC=44
	EFUN3I=136
	PFZ=412
	PFX=PFZ-1
	PFNEW=PFZ-2
	*BOTTOM
	FX-1
	*PFX
	FX
	*FCOS-20
FX,	HLT
	CLA CLL
	TAD FLAC
	HLT
	CLA CLL
	TAD FLAC+1
	HLT
	CLA CLL
	TAD FLAC+2
	HLT
	JMP I EFUN3I
	LISTAP-7