PDP-10 Archive: sources/f20prm.unv from BB-4157D-BM

Trailing-Edge - PDP-10 Archives - BB-4157D-BM - sources/f20prm.unv

There are no other files named f20prm.unv in the archive.

x
(4@P B8P&\iCl{P C2B lPeFOROT%+24M
9hXP'MqhXC2|B kP]FOROT%+22KKlZPUKKlxC3!lP )CJ8 4CO$kQ E2$\Y $ "$
		E.==E.$@+1
		XWD	A,B
	XtLTPIXtLuG tI;P'G v8;P *G"^=6P G"qmP G2~9" %FOROT%+3G>t90P GC(P I!mP "IImP 
n1tPnPuFOROT%+30MPt[PMPt]ItPP 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 IPgP=FOROT%+12Iv=PIv[ZImPFOROT%+23KK^P#LEJ1I1l{P XI4 O}	DD.A==ZZOP.
					ZZ.==ZZ.+BIp Mq	DMOVN A,M0A
IFN < <A+1>&MP17-<B>>,<PRINTX Mp"DMOVN A,A" CANN'T REPLACE "DFN A,B">
I?,+ L8c
	A
	BIXtqP$IXtxP"IXtVPIXt9P!IXtJ9PTIXtJ9PIXtLTP$IXtLuP"IXtMPIXu@PIXuKSPIXuLP:@IXu]PIXu}:PIXvKH,I;!4KH-J1!10KH-\s!	7KH-|!3KH.2 !6KH.<R !
	A.==(SIdXBIT/A/)
	XWD	Acp.,ER%A	;DEFINE TnxHE A ERROR ENTRY
	MPtj7PKKJ9 o8 o
	ERRARG	oX(SYS)		;0;FOROTS oxSYSTEM ERROR
		;pTYPE CODE FOR SYSp8 ERROR CALLS
		;pX0  FOROTS DETECTEpxD SYSTEM ERROR
	q	;1  CALL TO EXITq8 THE PROGRAM (PRIqXNT TIME ETC.)
		qx;2  ARGUMENT BLOCrK IS NOT IN THE Cr8ORRECT FORMAT
		rX;3  MONITOR IS NOrxT BUILT TO SUPPORsT THE FOROTS SYSTs8EM
		;4  FATAL EsXRROR RETURN TO MOsxNITOR VIA EXIT
	t	;5  NO CORE AVAIt8LABLE FOR LOW SEGtX EXPANSION
	ERRAtxRG	(UUO)		;1;UUO uERRORS UUO DOES Nu8OT EXIST
	ERRARGuX	(APR)		;2;PROCESuxSOR TRAPS OVER/UNvDER  FLOW
		;TYPv8E CODES FOR APR EvXRROR CALLS
		;0 vx INTEGER OVERFLOWw
		;1  INTEGER Dw8IVIDE CHECK
		;2wX  ILLEGAL TRAP
	wx	;3  ILLEGAL TRAPx
		;4  FLOATING x8OVERFLOW
		;5  FxXLOATING DIVIDE CHxxACK
		;6  FLOATIyNG  UNDERFLOW
		y8;7  ILLEGAL TRAP
	ERRARG	(OPN)		;yx3;OPEN ROUTINE ERzROR
		;TYPE CODEz8S FOR THE OPEN ERzXROR CALL
		;0  LzxOOKUP/ENTER ERROR{ MESSAGE DEFINE I{8N DD.EXT
		;1  I{XLLEGAL DATA MODE {xFOR DEVICE
		;2 | ILLEGAL ACCESS F|8OR DEVICE
		;3  |XACCESS ARGUMENT M|xISSING
		;4  NOT} USED
		;5  DEVI}8CE NOT AVAILABLE
		;6  NO SUCH DE}xVICE
		;7  NOT U~SED
		;10 TOO MA~8NY DEVICES OPEN M~XAX=15.
		;11 SWI~xTCH ERROR DURING DIALOG MODE
		;182 LOGICAL RECORD XSIZE MISSING (RANxDOM ACCESS)
		;13  FORTRN LOGICAL8 UNIT 0 ILLEGAL
X	ERRARG	(DEV)		;4x;DEVICE ERROR
	ERRARG	(DAT)		;5;D8ATA ERROR FORMATEXD/BINARY
		;TYPEx CODES FOR DATA ERROR CALLS
		;0 8 UNDEFINED ERROR XENTRY
		;1  ILLExGAL CHARACTER IN FORMAT STATEMENT
		;2  ILLEGAL BIXNARY RECORD OR RExADING ASCII IN BINARY
		;3  CHECK8 SUM ERROR WHILE XREADING BINARY RExCORDS
		;4  INPUT/OUTPUT LIST GRE8ATER THAN RECORD XSIZE
		;5  FIELDx OVER FLOW ASTERICK FILL
		;6  IN8PUT/OUTPUT LIST WXITH OUT DATA CONVxERSION
		;7  ILLEGAL CAHARACTER I8N DATA
		;10 WRIXTE OPERATION FOLLxOWED BY A READ OR SPACING
	ERRARG8	(QUE)		;6;QUEUEIXNG ERROR
	ERRARGx	(MSG)		;7;TYPE T	HE MESSAGE POINTE	8D TO
				;   BY 	XTHE RETURN ADDRES	xS
	ERRARG	(LIB)	
	;10;LIBRARY CALL
8
	ERRARG	(SRE)		
X;11;[250] Array b
xounds checking
	ERRARG	(UNF)		;128;UNDEFINED
	ERRAXRG	(UNF)		;13;UNDxEFINED
	ERRARG	(

UNF)		;14;UNDEFIN

8ED
	ERRARG	(US0)

X		;15;RESERVED FO

xR THE USERS
	ERR(US1)		;16;RE
	ERRARG	(US2VED FOR THE USERS
	KK^P #KK|@ Q!D
	IFNDEF Q0ER%A,<PRINTX ER%A IS AN UNDEFINE8D ENTRY IN FORERRX>
	IFL 57-B,<PRxINTX THE ERROR TYPE. B FOR ER%A TOO BIG>
	IFG C -17,<PRINTX THE S@EVERITY CODE FOR `ER%A TOO BIG>
IFE CONCEA,<
	XCT 	ER%A,FORER.##	;@PROCESS A ERROR
>
IFN CONCEA,<
	XCT	ER%A,FORER %##	;PROCESS A E@RROR
>
	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 %%f

		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 0OPEN statement sc0 an
	BLDERR	(242,0@ 30)	;too many de0`vices open: fifte1en maximum
	BLDE1 RR	(243,  1)	;uni1@dentified entry i1`n FORERR
	BLDERR2	(244, 42)	;no su2 ch device
	BLDER2@R	(245, 30)	;devi2`ce not available
	BLDERR	(246,  13 )	;unidentified e3@ntry in FORERR
	3`BLDERR	(247,699)	4;FOROTS system er4 ror
	BLDERR	(2484@, 30)	;illegal AC4`CESS for device
5	BLDERR	(249, 30)5 	;illegal MODE or5@ MODE switch
	BL5`DERR	(250, 29)	;f6ile was not found6 
	BLDERR	(251, 36@0)	;no directory 6`for project,progr7ammer number
	BL7 DERR	(252, 28)	;D7@TA directory is f7`ull
				;protect8ion error
	BLDER8 R	(253, 30)	;file8@ was being modifi8`ed
	BLDERR	(254,9 28)	;RENAME file9  name already exi9@sts
	BLDERR	(2559`,699)	;FOROTS sys:tem error
	BLDER: 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 oAn allocation
	BLA DERR	(267, 30)	;cA@annot supersede aA`n existing directBory
	BLDERR	(268B , 28)	;cannot delB@ete or rename a nB`on-empty directorCy
	BLDERR	(269, C 30)	;SFD not founC@d
	BLDERR	(270, C`30)	;search list Dempty
	BLDERR	(2D 71, 30)	;SFD nestD@ed too deeply
	BD`LDERR	(272, 30)	;E"no create" flag E on for specified E@UFD
	BLDERR	(273E`,699)	;FOROTS sysFtem error
	BLDERF R	(274, 30)	;fileF@ cannot be updateF`d
	BLDERR	(275,6G99)	;FOROTS systeG m error
	BLDERR	G@(276,699)	;FOROTSG` system error
	BHLDERR	(277, 30)	;H LOOKUP ENTER or RH@ENAME error
	BLDH`ERR	(300,  1)	;unIidentified entry I in FORERR
	BLDERI@R	(301, 62)	;illeI`gal character in JFORMAT statement
	BLDERR	(302, 25J@)	;LSCW illegal iJ`n binary record oKr reading ASCII
K 				;attempt to rK@ead unwritten ASCK`II RANDOM ACCESS Lrecord
				;  orL  unwritten or desL@troyed record numL`ber
	BLDERR	(303M, 64)	;checksum eM rror reading binaM@ry records
	BLDEM`RR	(304, 67)	;inpNut/output list grN eater than recordN@ size
	BLDERR	(3N`05, 63)	;optionalO * fill: unidentiO fied entry in FORO@ERR
	BLDERR	(306O`, 62)	;input/outpPut list without dP ata conversion inP@ FORMAT
	BLDERR	P`(307, 64)	;illegaQl character in daQ ta
	BLDERR	(308,Q@ 24)	;attempt to Q`READ beyond validR input
	BLDERR	(R 309,799)	;variablR@e cannot be foundR` in NAMELIST blocSk
	BLDERR	(310, S 39)	;REREAD beforS@e first READ is iS`llegal
	BLDERR	(T311, 26)	;cannot T RANDOM ACCESS a ST@EQUENTIAL file
	T`BLDERR	(312, 23)	U;BACKSPACE illegaU l for device
	BLU@DERR	(313, 59)	;iU`llegal delimiter Vin LIST DIRECTED V input
	BLDERR	(3V@14, 62)	;missing V`width field for AW or R on input
	W BLDERR	(315, 31)	W@;cannot do SEQUENW`TIAL ACCESS on a XRANDOM file
	BLDX ERR	(400,899)	;wrX@ite protected
	BX`LDERR	(401,899)	;Ydevice error
	BLY DERR	(402,899)	;pY@arity error
	BLDY`ERR	(403,899)	;blZock too large, quZ ota exceeded or fZ@ile structure fulZ`l
				;nonexiste[nt CDR reader
	B[ 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)CJ8KbNA  kYFOROT%+21IXvMPKkLEJ1Q LIJ1Q LQJ1Q M
9hXP@'MqhXP(M&pP iPMFOROT%+16IXtLuPIXtMM&tA  jPUFOROT%+20IXv
	ZZ.==0
	CASE.==0
	IRPC  A<
	CC.==0
	I@FGE "A"-"A",<IFL`E "A"-"Z",<IFN CASE.,<CASE.==0
	 					SHIFT (ZZ.,3@7)>
				CC.=="A`"&37>>
	IFGE "A"-"A"-40,<IFLE " A"-"Z"-40,<IFE CA@SE.,<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.
	PIXtxM2

I M2%@ `M2n[ @M3)hXP )M3)k<P M3)l}P M3)mP MM7!iP !M?J9 Qp
	JRST	1,RINIT%		; FOROTS IR0NITIALIZION ROUTIRPNE (ASS DYNAMIC CRpORE)
	JRSTI	1,FOSRER%	;DEFINE THE S0ERROR PROCESSOR ESPNTRY POINT
	JRSTSp	1,OPEN%		; DEVICTE OPEN ROUTINE
	T0JRST	1,CLOSE%	; DTPEVICE CLOSE ROUTITpNE
	JRST	1,RELEAU%	; DEVICE RELEASU0E ROUTINE
	JRST	UP1,IN%		; FORMATEDUp INPUT ROUTINE
	VJRST	1,OUT%		; FOV0RMATED OUTPUT ROUVPTINE
	JRST	1,RTBVp%		; UN-FORMATED WBINARY INPUT (CONW0TROL WORDS)
	JRSWPT	1,WTB%		; UN-FOWpRMATED BINARY OUTXPUT (CONTROL WORDX0S)
	JRST	1,ENC%	XP	; ENCODE ROUTINEXp
	JRST	1,DEC%		;Y DECODE ROUTINE
Y0	JRST	1,NLI%		; NYPAMES LIST INPUT RYpOUTINE
	JRST	1,NZLO%		; NAME LIST Z0OUTPUT ROUTINE
	ZPJRST	1,IOLST%	; IZpNPUT/OUTPUT LIST [PROCESSING ROUTIN[0E
	JRST	1,FIN%		[P; INPUT/OUTPUT LI[pST TERMINATION RO\UTINE
	JRST	1,MT\0OP%		; UTILITY FI\PLE SPACING FUNCTI\pONS
	JRST	1,FIND]%		; FIND THE NEX]0T RECORD FOR RAND]POM ACCESS
	JRST	]p1,EXIT%		; TERMIN^ATE THE PROGRAM E^0XECUTION
	JRST	1^P,ALCOR%	; DYNAMIC^p CORE ALLOCATION _ROUTINE
	JRST	1,_0DECOR%	; DEALLOCA_PTE DYNAMIC CORE
`p	JRST	1,ALCHN%	; `ROUTINE TO GET A `0SOFTWARE CHANNEL
	JRST	1,DECHN%	;`p ROUTINE TO PUT Aa SOFTWARE CHANNELa0
	JRST	1,TRACE%	aP; ROUTINE TO TRACapE SUBROUTINE CALLbS
	JRST	1,FUNCT%b0	;[232] OVERLAY IbPNTERFACE
	JRST	1bp,DBMS%		;[475] DBcMS ENTRY POINT
G tI;PG v8;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= ] %~
	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>P
ItmMVt= nqFOROT%+27M?9 QKMJ)iND@ NH@ NL@ NP@ O>|H\ d& 
	POPJ	P,AtJ9PIXtJ9QeK` ` &
	SALL
	`@IFNB <B>,<IFIDN ``<B>,<.>,<SIXBIT a/A/
				 ENTRY a A.
				 A.:>
a@		  IFDIF <B>,<.a`>,<SIXBIT /B/
	b			 ENTRY A
			b 	 A:>
		 >
	IFb@B