File: ERROR.RA of Tape: Various/ETH/fc-files

(Source file text) 

---

/^   OCTOBER   14    1976
/A USELESS RUTINE ! GENERATES A FATAL ERROR IN FIV
/CALLING   CALL ERROR(I,TEXT)
/I CAN BE ANY VALUE BUT NOTE CONVERTED TO OCTAL 1-7 PREFERED
/TEXT MAX 6 CHAR USED
/IF I= ZERO  USER ERROR TEXT LINE NUMBER =ABS (I)
/IF I> 0 ARG ERROR TEXT LINE NO = I
/+TRACEBACK
/NO FILES CLOSED
/IF I=0 RETURNS IE
/IT IS EQUIVALENT TO THE LOGIC
/	IF(IER)GOTO 99
/

/99	WRITE(0,  )TEXT,IER
/	STOP
/
/*****
/ALSO THE LOGIC    LOGICAL BATCH
/	IF(BATCH(0).....
	ENTRY BATCH
	SECT8	ERROR
	JA #ST
#XR,	0
TXT,	TEXT	+ERROR+
/MUST BE HERE FOR TRACEBACK !
#RET,	SETX	#XR
	SETB	#BASE
#BASE,	ORG	.+6
I,	ORG	.+3
A,	ORG	.+3
M1,	F -1.
USER,	FMUL M1	/CONVERT TO POSITIVE
	ATX 0
	TRAP3 #UE
	ORG	#BASE+30
	FNOP
	JA	#RET
	FNOP
#GOBAK,	0;0
	BASE	#BASE
	JA	#GOBAK
#ST,	STARTD
	0210
	FSTA	#GOBAK,0
	0200
	SETX	#XR
	SETB	#BASE
	LDX	0,1
	FSTA	#BASE
	FLDA%	#BASE,1+
	FSTA I
	FLDA%	#BASE,1+
	FSTA	A
	STARTF
	FLDA% A
	FSTA	TXT
	FLDA%	I
	ATX 0	/TRACEBAC LINE NO=I
	JEQ #GOBAK
	JLE USER
	EXTERN #UE
	EXTERN #ARGER
	TRAP4 #ARGER
BASE 0
BATCH,	STARTD
	FLDA 30
	FSTA RTN
	STARTF
	TRAP4 BTEST
	FLDA ARG
RTN,	FNOP
	JA .
BTEST,	0
	CLA
	CDF
	TAD% P7777
	RTL
	SZA
	JMP BEXT
	DCA ARG
	DCA ARG1	/NOT BATCH
BEXT,	CIF 0
	JMP% BTEST
ARG,	F 1.
ARG1=ARG+1
P7777,	7777

---