.MACRO	.IOER.	SYM,LO,MSG
	DEFIN$	SYM,LO
	.IF	GT,$$MSG
	.MCALL	.IOMG.
	.IOMG.	SYM,LO,<MSG>
	.ENDC
	.ENDM	.IOER.
	.MACRO	ERR$	ERR
	.IF NB	<ERR>
	.NLIST
	.NTYPE	$$$T1,ERR
	.LIST
	.IIF EQ	^O<$$$T1-27>,	BCC	.+6
	.IIF EQ	^O<$$$T1-37>,	BCC	.+6
	.IF GE	^O<$$$T1-60>
	BCC	.+6
	.IFF
	.IF NE	^O<$$$T1-27>
	.IIF NE	^O<$$$T1-37>,	BCC	.+4
	.ENDC
	.ENDC
	CALL	ERR
	.ENDC
	.ENDM	ERR$