Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0003/forprm.unv
There are 32 other files named forprm.unv in the archive. Click here to see a list.
x
(4@P B8P&\iCl{P C2B laFOROT%+24KK^P#LEJ1C2|B kYFOROT%+22IXvMPKkC3!lP )CJ8 4CO$kQ E2$\Y #`" 
		E.==E.$+1
		XWD	A,B
	Xt9PIXtJ9G tI;P'G v8;P *G"^=6P G"qmP G2~9" !FOROT%+3G>t90P GC(P I!mP "IImP 
n1tPnqFOROT%+30M?9 QGMJ)iItPP ItI;P It\[P It\zP 
ItmP Iu
TP Iu
WP IuJ6P IuKsP Iu]P Iuh6P 
IuhpP Iu|P IvyP Iv
P 	Iv
[P Iv+P Iv+SP Iv:=P Iv<P 
Iv=P Iv=P Iv[ZP Ivi9P 
Il}P IPg9FOROT%+12Iv+SPIv:=ImP 
9hXP'MqhXI|B kP]FOROT%+23KKlZPUKKlxI1l{P XI4 NPy	DD.A==ZZO.
					ZZ.==ZZ.+BIp LPm	DMOVN A,LpA
IFN < <A+1>&M17-<B>>,<PRINTX M0"DMOVN A,A" CANMP'T REPLACE "DFN A,B">
I?,+ Kx_
	A
	BIXtqP$IXtxP"IXtVPIXt9P!IXtJ9PTIXtJ9PIXtLTP$IXtLuP"IXtMP  IXu@P IXuKSP IXuLP @IXu]P IXu}:P IXv
K:mPKH,\{2KH,H:\!5KH,I;]4KH-J1k!10KH-\sl!7KH-|}3KH.2 !6KH.<R !	11KH.>9  w0KH.[S !14KH.\h !
	A.==(SIcPXBIT/A/)
	XWD	Ac0.,ER%A	;DEFINE Tn8HE A ERROR ENTRY
	!MPtKvPKKJ9 nx k
	ERRARG	o(SYS)		;0;FOROTS o8SYSTEM ERROR
		;oXTYPE CODE FOR SYSox ERROR CALLS
		;p0  FOROTS DETECTEp8D SYSTEM ERROR
	pX	;1  CALL TO EXITpx THE PROGRAM (PRIqNT TIME ETC.)
		q8;2  ARGUMENT BLOCqXK IS NOT IN THE CqxORRECT FORMAT
		r;3  MONITOR IS NOr8T BUILT TO SUPPORrXT THE FOROTS SYSTrxEM
		;4  FATAL EsRROR RETURN TO MOs8NITOR VIA EXIT
	sX	;5  NO CORE AVAIsxLABLE FOR LOW SEGt EXPANSION
	ERRAt8RG	(UUO)		;1;UUO tXERRORS UUO DOES NtxOT EXIST
	ERRARGu	(APR)		;2;PROCESu8SOR TRAPS OVER/UNuXDER  FLOW
		;TYPuxE CODES FOR APR EvRROR CALLS
		;0 v8 INTEGER OVERFLOWvX
		;1  INTEGER DvxIVIDE CHECK
		;2w  ILLEGAL TRAP
	w8	;3  ILLEGAL TRAPwX
		;4  FLOATING wxOVERFLOW
		;5  FxLOATING DIVIDE CHx8ACK
		;6  FLOATIxXNG  UNDERFLOW
		xx;7  ILLEGAL TRAP
	ERRARG	(OPN)		;y83;OPEN ROUTINE ERyXROR
		;TYPE CODEyxS FOR THE OPEN ERzROR CALL
		;0  Lz8OOKUP/ENTER ERRORzX MESSAGE DEFINE IzxN DD.EXT
		;1  I{LLEGAL DATA MODE {8FOR DEVICE
		;2 {X ILLEGAL ACCESS F{xOR DEVICE
		;3  |ACCESS ARGUMENT M|8ISSING
		;4  NOT|X USED
		;5  DEVI|xCE NOT AVAILABLE
		;6  NO SUCH DE}8VICE
		;7  NOT U}XSED
		;10 TOO MA}xNY DEVICES OPEN M~AX=15.
		;11 SWI~8TCH ERROR DURING ~XDIALOG MODE
		;1~x2 LOGICAL RECORD SIZE MISSING (RAN8DOM ACCESS)
		;1X3  FORTRN LOGICALx UNIT 0 ILLEGAL
	ERRARG	(DEV)		;48;DEVICE ERROR
	EXRRARG	(DAT)		;5;DxATA ERROR FORMATED/BINARY
		;TYPE8 CODES FOR DATA EXRROR CALLS
		;0 x UNDEFINED ERROR ENTRY
		;1  ILLE8GAL CHARACTER IN XFORMAT STATEMENT
		;2  ILLEGAL BINARY RECORD OR RE8ADING ASCII IN BIXNARY
		;3  CHECKx SUM ERROR WHILE READING BINARY RE8CORDS
		;4  INPUXT/OUTPUT LIST GRExATER THAN RECORD SIZE
		;5  FIELD8 OVER FLOW ASTERIXCK FILL
		;6  INxPUT/OUTPUT LIST WITH OUT DATA CONV8ERSION
		;7  ILLXEGAL CAHARACTER IxN DATA
		;10 WRITE OPERATION FOLL8OWED BY A READ ORX SPACING
	ERRARGx	(QUE)		;6;QUEUEING ERROR
	ERRARG8	(MSG)		;7;TYPE TXHE MESSAGE POINTExD TO
				;   BY 	THE RETURN ADDRES	8S
	ERRARG	(LIB)		X	;10;LIBRARY CALL	x
	ERRARG	(SRE)		
;11;[250] Array b
8ounds checking
	
XERRARG	(UNF)		;12
x;UNDEFINED
	ERRARG	(UNF)		;13;UND8EFINED
	ERRARG	(XUNF)		;14;UNDEFINxED
	ERRARG	(US0)
		;15;RESERVED FO
8R THE USERS
	ERR
XARG	(US1)		;16;RE
xSERVED FOR THE US
	ERRARG	(US2VED FOR THE USERS
	KK^P #KK|@ PP!@
	IFNDEFAPpER%A,<PRINTX ER%
	IFL 57-B,<PR8INTX THE ERROR TYXPE. B FOR ER%A @TOO BIG>
	IFG C`-17,<PRINTX THE SEVERITY CODE FOR  ER%A TOO BIG>
I@FE CONCEA,<
	XCT`	ER%A,FORER.##	;PROCESS A ERROR
>
IFN CONCEA,<
	XCT	ER%A,FORER`%##	;PROCESS A ERROR
>
	IFLE	B -57,<CODE==JUMP>	@;[435] JUMP NO-OP` FOR MSGS 40-57
	IFLE	B-37,<CODE ==CAM>	;[435] CAM@ NO-OP FOR MSGS 2`0-37
	IFLE	B-17,<CODE==CAI>	;[43 5] CAI NO-OP FOR @MSGS 0-17

	COD`E	B,D(C)	;[435]
	PURGE	CODE			;[435]
	KKHV $@%b

		E.==$`0
		RADIX 10
	B%LDERR	(  0,  0)	;% satisfactory comp%@letion, ie, no er%`ror detected
	BL&DERR	(100,999)	;F& OROTS system erro&@r
	BLDERR	(101, &` 0)	;normal end o'f job
	BLDERR	(1' 02, 81)	;argument'@ block not in cor'`rect format
	BLD(ERR	(103,999)	;mo( nitor not built t(@o support FOROTS
	BLDERR	(104,999))	;fatal error
	) BLDERR	(105,999)	)@;user program has)` requested more c*ore than is avail* able
	BLDERR	(10*@6,999)	;runtime m*`emory management +error
	BLDERR	(2+ 37, 30)	;DUMP mod+@e RANDOM or APPEN+`D access not impl,emented
				;  t, ry IMAGE mode
	B,@LDERR	(238, 30)	;,`DIALOG file canno-t be opened
	BLD- ERR	(239, 32)	;il-@legal FORTRAN uni-`t number
	BLDERR.	(240, 30)	;recor. d length missing .@for RANDOM access.`
	BLDERR	(241, 4/5)	;switch error / during DIALOG or /@OPEN statement sc/`an
	BLDERR	(242,0 30)	;too many de0 vices open: fifte0@en maximum
	BLDE0`RR	(243,  1)	;uni1dentified entry i1 n FORERR
	BLDERR1@	(244, 42)	;no su1`ch device
	BLDER2R	(245, 30)	;devi2 ce not available
	BLDERR	(246,  12`)	;unidentified e3ntry in FORERR
	3 BLDERR	(247,699)	3@;FOROTS system er3`ror
	BLDERR	(2484, 30)	;illegal AC4 CESS for device
4@	BLDERR	(249, 30)4`	;illegal MODE or5 MODE switch
	BL5 DERR	(250, 29)	;f5@ile was not found5`
	BLDERR	(251, 360)	;no directory 6 for project,progr6@ammer number
	BL6`DERR	(252, 28)	;D7TA directory is f7 ull
				;protect7@ion error
	BLDER7`R	(253, 30)	;file8 was being modifi8 ed
	BLDERR	(254,8@ 28)	;RENAME file8` name already exi9sts
	BLDERR	(2559 ,699)	;FOROTS sys9@tem error
	BLDER9`R	(256, 30)	;bad :UFD or bad RIB
	: BLDERR	(257,699)	:@;FOROTS system er:`ror
	BLDERR	(258;,699)	;FOROTS sys; tem error
	BLDER;@R	(259, 30)	;devi;`ce not available
	BLDERR	(260, 42< )	;no such device<@
	BLDERR	(261, 8<`1)	;argument bloc=k not in correct = format
	BLDERR	(=@262, 28)	;no room=` or quota exceede>d
	BLDERR	(263, > 47)	;write lock e>@rror
	BLDERR	(26>`4,699)	;not enoug?h monitor table s? pace
	BLDERR	(26?@5, 30)	;partial a?`llocation only
	@BLDERR	(266, 30)	@ ;block not free o@@n allocation
	BL@`DERR	(267, 30)	;cAannot supersede aA n existing directA@ory
	BLDERR	(268A`, 28)	;cannot delBete or rename a nB on-empty directorB@y
	BLDERR	(269, B`30)	;SFD not founCd
	BLDERR	(270, C 30)	;search list C@empty
	BLDERR	(2C`71, 30)	;SFD nestDed too deeply
	BD LDERR	(272, 30)	;D@"no create" flag D`on for specified EUFD
	BLDERR	(273E ,699)	;FOROTS sysE@tem error
	BLDERE`R	(274, 30)	;fileF cannot be updateF d
	BLDERR	(275,6F@99)	;FOROTS systeF`m error
	BLDERR	G(276,699)	;FOROTSG  system error
	BG@LDERR	(277, 30)	;G`LOOKUP ENTER or RHENAME error
	BLDH ERR	(300,  1)	;unH@identified entry H`in FORERR
	BLDERIR	(301, 62)	;illeI gal character in I@FORMAT statement
	BLDERR	(302, 25J)	;LSCW illegal iJ n binary record oJ@r reading ASCII
J`				;attempt to rKead unwritten ASCK II RANDOM ACCESS K@record
				;  orK` unwritten or desLtroyed record numL ber
	BLDERR	(303L@, 64)	;checksum eL`rror reading binaMry records
	BLDEM RR	(304, 67)	;inpM@ut/output list grM`eater than recordN size
	BLDERR	(3N 05, 63)	;optionalN@ * fill: unidentiN`fied entry in FOROERR
	BLDERR	(306O , 62)	;input/outpO@ut list without dO`ata conversion inP FORMAT
	BLDERR	P (307, 64)	;illegaP@l character in daP`ta
	BLDERR	(308,Q 24)	;attempt to Q READ beyond validQ@ input
	BLDERR	(Q`309,799)	;variablRe cannot be foundR  in NAMELIST blocR@k
	BLDERR	(310, R`39)	;REREAD beforSe first READ is iS llegal
	BLDERR	(S@311, 26)	;cannot S`RANDOM ACCESS a STEQUENTIAL file
	T BLDERR	(312, 23)	T@;BACKSPACE illegaT`l for device
	BLUDERR	(313, 59)	;iU llegal delimiter U@in LIST DIRECTED U`input
	BLDERR	(3V14, 62)	;missing V width field for AV@ or R on input
	V`BLDERR	(315, 31)	W;cannot do SEQUENW TIAL ACCESS on a W@RANDOM file
	BLDW`ERR	(400,899)	;wrXite protected
	BX LDERR	(401,899)	;X@device error
	BLX`DERR	(402,899)	;pYarity error
	BLDY ERR	(403,899)	;blY@ock too large, quY`ota exceeded or fZile structure fulZ l
				;nonexisteZ@nt CDR reader
	BZ`LDERR	(404,899)	;[end of file
	BLD[ ERR	(407,899)	;en[@d of tape

		ER[`R.CT==E.-1		;NUMB\ER OF ERROR-VALUE\  ENTRIES
		RADIX 8
	P\iCl{KbNAI1jPUFOROT%+21IXv
9hXP 'MqhXP (M&pP iIFOROT%+16IXt9PIXtJ9M&tA  jQFOROT%+20IXuLP@IXu]M'4*:  "
	ZZ.==0
	CASE.==0
	IRPC` A<
	CC.==0
	IFGE "A"-"A",<IFL E "A"-"Z",<IFN C@ASE.,<CASE.==0
	`					SHIFT (ZZ.,37)>
				CC.=="A "&37>>
	IFGE "A@"-"A"-40,<IFLE "`A"-"Z"-40,<IFE CASE.,<CASE.==1
		 				SHIFT (ZZ.,37@)>
				CC.="A"&`37>>
	IFE CC.,<I FN "A"-" ",<PRIN  TX A IS ILLEGAL  @IN FIVE BIT CODE> `>
	SHIFT (ZZ.,CC!.)>
	IFN ZZ.,<DE! FINE FILL<IFE ZZ.!@&77B5,<ZZ.==ZZ._5!`
					FILL>
			"	>
		FILL>
	ZZ." ==ZZ._1
	IFE << "@ZZ.&760000000000>"`-740000000000>,<
			ZZ.==ZZ.&0177# 77777777>
	EXP	ZZ.
	wIpM2
I M2%@ `M2n[ @M3)hXP )M3)k<P M3)l}P M3)mP MM7!iP !M?J9 Q0
	JRST	1,QPINIT%		; FOROTS IQpNITIALIZION ROUTIRNE (ASS DYNAMIC CR0ORE)
	JRSTI	1,FORPRER%	;DEFINE THE RpERROR PROCESSOR ESNTRY POINT
	JRSTS0	1,OPEN%		; DEVICSPE OPEN ROUTINE
	SpJRST	1,CLOSE%	; DTEVICE CLOSE ROUTIT0NE
	JRST	1,RELEATP%	; DEVICE RELEASTpE ROUTINE
	JRST	U1,IN%		; FORMATEDU0 INPUT ROUTINE
	UPJRST	1,OUT%		; FOUpRMATED OUTPUT ROUVTINE
	JRST	1,RTBV0%		; UN-FORMATED VPBINARY INPUT (CONVpTROL WORDS)
	JRSWT	1,WTB%		; UN-FOW0RMATED BINARY OUTWPPUT (CONTROL WORDWpS)
	JRST	1,ENC%	X	; ENCODE ROUTINEX0
	JRST	1,DEC%		;XP DECODE ROUTINE
Xp	JRST	1,NLI%		; NYAMES LIST INPUT RY0OUTINE
	JRST	1,NYPLO%		; NAME LIST YpOUTPUT ROUTINE
	ZJRST	1,IOLST%	; IZ0NPUT/OUTPUT LIST ZPPROCESSING ROUTINZpE
	JRST	1,FIN%		[; INPUT/OUTPUT LI[0ST TERMINATION RO[PUTINE
	JRST	1,MT[pOP%		; UTILITY FI\LE SPACING FUNCTI\0ONS
	JRST	1,FIND\P%		; FIND THE NEX\pT RECORD FOR RAND]OM ACCESS
	JRST	]01,EXIT%		; TERMIN]PATE THE PROGRAM E]pXECUTION
	JRST	1^,ALCOR%	; DYNAMIC^0 CORE ALLOCATION ^PROUTINE
	JRST	1,^pDECOR%	; DEALLOCA_TE DYNAMIC CORE
`0	JRST	1,ALCHN%	; PROUTINE TO GET A pSOFTWARE CHANNEL
	JRST	1,DECHN%	;`0 ROUTINE TO PUT A`P SOFTWARE CHANNEL`p
	JRST	1,TRACE%	a; ROUTINE TO TRACa0E SUBROUTINE CALLaPS
	JRST	1,FUNCT%ap	;[232] OVERLAY IbNTERFACE
	JRST	1b0,DBMS%		;[475] DBbPMS ENTRY POINT
@P Cl{M?\B %FOROT%+1M?}A  M?}M?9 Q MJ)iP  MO!iP !MPtKvP MPt[P MPt]P"MPt^P MPtj7P MPtlrP  MPt}P!MPuLXP  MPuLrP @MPuLzP MPuk6P @MPum6P MPv
QP$MPvzP MPv8vP MPv;P MPv;P MPvNP MVt= \`%z
	SALL
	]C.....=0
	IRP B] ,<C.....=C.....+1]@>
	IF2,<IFNDEF ]`A,<EXTERNAL A>>
	IFNB <B>,<
	P^ USH	P,L
	MOVEI	L^@,[XWD -C.....,0
^`		IRP B,<B>]+1>_
	PUSHJ	P,A
	I_ FNB <B>,<
	POP	P,L>7PItI;MVt= mPmFOROT%+27M3)mPMM7!iND@ NH@ NL@ NP@ O>|H\ c@&
	POPJ	P,AtqPIXtxQeK` _`&
	SALL
	`IFNB <B>,<IFIDN ` <B>,<.>,<SIXBIT `@/A/
				 ENTRY ``A.
				 A.:>
a		  IFDIF <B>,<.a >,<SIXBIT /B/
	a@			 ENTRY A
			a`	 A:>
		 >
	IFbB  <B>,<SIXBIT /b A/
		  ENTRY	Ab@
		  A:>
IFN Fb`40LIB,<
	CAIA
	cPUSH	P,CEXIT.##
>
l{PXI4S2dYgP $S8( )FOROT%+5S:NA  FOROT%+0S<t,rP S<t8qP S<tYP S<t[sP @S<t[vP S<tk:P S<uWP$S<uZP S<ukwP S<u|P"S<v(7P S<v+SP!S<v:7P S<v:7P S<v;zP S<v=P  S<vMP  S<vMP @S>aiiP S>aijP S>alP 	S>al	P 	S>al	P 
S>al{P S>f= hPEFOROT%+15I?,+]IXtqU>l{P 
UKJ  +UVn	 46UVn
  58UVn` 48UVn
x 56W
P W$k@  W%
P X@ Y&93 JpW	SALL
				Y?9l}PPXYBqhXP(YO!mP*[>ql{P%[R~ iPMFOROT%+17IXtLuPIXtM]2HP@gP=FOROT%+13Iv=PIv[Z]2xPhAFOROT%+14ImPa?mP &b@ 
cDP cV.Y9Q d O0{DEFINE B
	<FOROT%+A>e>3HP +e>3HP +e>3IP ,edX" 'FOROT%+4el{P %eH PDEFINE B
	<A>eRP -FOROT%+7eVqmP 
gtP Ugal{P %g=Y7 I0S	SALL
			IPCONCEA==-1	;SET HIpIGH SEGMENT CONCEJALED
			TWOSEGMNJ0ETS
			RELOC 400000g"Lm `!^
	IFN A&77B5,<A==A_1
	 		IFE << A&76000@0000000>-74000000`0000>,<
					A==A&017777777777> 
			EXP A!1B35
			A==0
			IFE` B,<B==36>>
	A==A_5+BgRJ1 Ns	A==ZZ.
N0					ZZ.==ZZ.+BgRYl{P -gRYl}P  gS;UP ggI;A ggh@@ hD@ hH@ hL@ hP@ hT@ imP Vi| 	`6i@,;vP i@,KyP i@,KzP i@-ZP i@-HVP i@-J:P i@-KsP i@-xzP i@.)0P [email protected]P iJ
9" miFOROT%+26M2n[bM3)hXiKh1P ,idtVP idu@P iduZP iduX7P$idu}:P idv<P idvh9P ig= @!J
	IF2,<IF`NDEF TY%STR,<EXTERNAL TY%STR>>
	P USHJ P,TY%STR
	CAI	AkOlP 
m%P _m<Q Amk`P m
VQ _m~+zP m6MkyP m^EpP oRP f1FOROT%+10Iu]PIuh6uhpP YQ S@P *D A  *D *i@A  *i@*
VA  *
V*|A  *|*|A  *|*)6A  *)6*8 A  *8 *LA  *LR4I7P >}{woP