.GLOBL	GLOP,FFILE
/
/
GLOP	XX
	LAC*	FFILE
	TAD	FFILE
	TAD	(-1
	DAC	BIN
/
	LAC	FFILE
	TAD	(1
	AND	(17777
	XOR	(400000
	DAC*	BIN
	LAC	FFILE
	TAD	(1
	IOT	606
	JMP*	GLOP
BIN
	.END