ENTRY IOPT
	DUMMY IARG

IARG,	BLOCK 2
ERR1,	5117; 2024	/ IOPT ERROR
IOPT,	BLOCK 2
	TAD I IOPT
	DCA IARG
	INC IOPT#
	TAD I IOPT
	DCA IARG#
	INC IOPT#
	TAD I IARG
	DCA IARG
	TAD IARG
	TAD (-14
	SMA CLA
	JMP ERR
	TAD IARG
	IAC
	CIA
	DCA IARG
	STL
IOPT1,	RAR
	ISZ IARG
	JMP IOPT1
	DCA IARG
	CLA OSR
	AND IARG
	SNA CLA
	SKP
	IAC
	RETRN IOPT
ERR,	CLA CLL
	CALL 1,ERROR
	ARG ERR1
	TAD ERR1
	RETRN IOPT
	END