.TITLE	OTSERR
	.ENABL	LC
;
;	CALL OTSERR( IERR )  --  This subroutine provides the user
;	with a means to generate OTS error messages and traceback
;	information.  IERR is the OTS error code, some of which
;	are listed below.  A complete list of error codes may be
;	obtained by accessing, HELP MYLIB OTSERR NUMBERS.
;
;	IERR	Description
;
;	1	Invalid error call.
;	80	Wrong number of arguments.
;	81	Invalid argument.
;	98	User requested traceback.
;
	.PSECT	OTSERR
OTSERR::MOV	@2(R5),TRAPIT		;GET ERROR NUMBER
	BIC	#177600,TRAPIT		;INSURE VALID INSTRUCTION.
	BIS	#104600,TRAPIT		;MAKE INTO TRAP INSTRUCTION.
TRAPIT:	.WORD	0			;LOCATION FOR TRAP INSTRUCTION
	RTS	PC			;RETURN
	.END