Google
 
Trailing-Edge - PDP-10 Archives - AP-D480B-SB_1978 - fkiprm.unv
There are no other files named fkiprm.unv in the archive.
x
(4@P B8P&\iCl{P C2B h~FOROT%+24@P C2|B ~hvFOROT%+22C3!lP )CJ8 4CO$kQ E2$\Y 78=
		E.==E.7X+1
		XWD	A,B
	G tI;P'G v8;P *G"^=6P G"qmP G2~9" >FOROT%+3G>t90P GC(P I!mP "IImP 
n1tPhFOROT%+30P 	It;[P ItI7P 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 IPzhVFOROT%+12ImPFOROT%+23I1l{P XI4 b(	DD.A==ZZbh.
					ZZ.==ZZ.+BIp `(
	DMOVN A,`HA
IFN < <A+1>&`h17-<B>>,<PRINTX a"DMOVN A,A" CANa('T REPLACE "DFN A,B">
I?,+ P
	A
	B*LAIXtxP"IXtVP IXt9P!IXtJ9P IXtJ9PIXtLTP$IXtLuP"IXtMPIXu@P IXuKSP IXuLP@IXu]PIXu}:P IXv5KH,I; 4KH-J1 %10KH-\s #7KH-| 3KH.2 !6KH.<R '11KH.>9 0KH.[S )14KH.\h +15KH.\h -16KH.\i /17KH.]7 1KJ!k<P KKlP KKlZP UKKlxP TKKmHP SKKmIP TKKS vH
	A.==(SIw(XBIT/A/)
	XWD	Aw.,ER%A	;DEFINE THE A ERROR ENTRY
	-3PIt;ZKKJ9 P	
	ERRARG	p(SYS)		;0;FOROTS SYSTEM ERROR
		;0TYPE CODE FOR SYSP ERROR CALLS
		;p0  FOROTS DETECTED SYSTEM ERROR
	0	;1  CALL TO EXITP THE PROGRAM (PRIpNT TIME ETC.)
		;2  ARGUMENT BLOC0K IS NOT IN THE CPORRECT FORMAT
		p;3  MONITOR IS NOT BUILT TO SUPPOR0T THE FOROTS SYSTPEM
		;4  FATAL EpRROR RETURN TO MONITOR VIA EXIT
	0	;5  NO CORE AVAIPLABLE FOR LOW SEGp EXPANSION
	ERRARG	(UUO)		;1;UUO 0ERRORS UUO DOES NPOT EXIST
	ERRARGp	(APR)		;2;PROCES	SOR TRAPS OVER/UN	0DER  FLOW
		;TYP	PE CODES FOR APR E	pRROR CALLS
		;0 
 INTEGER OVERFLOW
0
		;1  INTEGER D
PIVIDE CHECK
		;2
p  ILLEGAL TRAP
		;3  ILLEGAL TRAP0
		;4  FLOATING POVERFLOW
		;5  FpLOATING DIVIDE CH

ACK
		;6  FLOATI

0NG  UNDERFLOW
		

P;7  ILLEGAL TRAP

p
	ERRARG	(OPN)		;R
		;TYPETCODEEN ER
		;0  LOOKUP/ENTER ERROR0 MESSAGE DEFINE IPN DD.EXT
		;1  IpLLEGAL DATA MODE FOR DEVICE
		;2 0 ILLEGAL ACCESS FPOR DEVICE
		;3  pACCESS ARGUMENT MISSING
		;4  NOT0 USED
		;5  DEVIPCE NOT AVAILABLE
		;6  NO SUCH DEVICE
		;7  NOT U0SED
		;10 TOO MAPNY DEVICES OPEN MpAX=15.
		;11 SWITCH ERROR DURING 0DIALOG MODE
		;1P2 LOGICAL RECORD pSIZE MISSING (RANDOM ACCESS)
		;103  FORTRN LOGICALP UNIT 0 ILLEGAL
p	ERRARG	(DEV)		;4;DEVICE ERROR
	E0RRARG	(DAT)		;5;DPATA ERROR FORMATEpD/BINARY
		;TYPE CODES FOR DATA E0RROR CALLS
		;0 P UNDEFINED ERROR pENTRY
		;1  ILLEGAL CHARACTER IN 0FORMAT STATEMENT
		;2  ILLEGAL BIpNARY RECORD OR READING ASCII IN BI0NARY
		;3  CHECKP SUM ERROR WHILE pREADING BINARY RECORDS
		;4  INPU0T/OUTPUT LIST GREPATER THAN RECORD pSIZE
		;5  FIELD OVER FLOW ASTERI0CK FILL
		;6  INPPUT/OUTPUT LIST WpITH OUT DATA CONVERSION
		;7  ILL0EGAL CAHARACTER IPN DATA
		;10 WRIpTE OPERATION FOLLOWED BY A READ OR0 SPACING
	ERRARGP	(QUE)		;6;QUEUEIpNG ERROR
	ERRARG	(MSG)		;7;TYPE T0HE MESSAGE POINTEPD TO
				;   BY pTHE RETURN ADDRESS
	ERRARG	(LIB)	0	;10;LIBRARY CALLP
	ERRARG	(SRE)		p;11;[250] Array bounds checking
	0ERRARG	(UNF)		;12P;UNDEFINED
	ERRApRG	(UNF)		;13;UNDEFINED
	ERRARG	(0UNF)		;14;UNDEFINPED
	ERRARG	(US0)p		;15;RESERVED FO R THE USERS
	ERR 0ARG	(US1)		;16;RE PSERVED FOR THE US pERS
	ERRARG	(US2!)		;17;RESERVED FOR THE USERS
	KK^P #KK|@ d(]
	IFNDEF dHER%A,<PRINTX ER%!0A IS AN UNDEFINE!PD ENTRY IN FORERR!p>
	IFL 57-B,<PR"INTX THE ERROR TY"0PE. B FOR ER%A &TOO BIG>
	IFG C&8-17,<PRINTX THE S&XEVERITY CODE FOR &xER%A TOO BIG>
I'FE CONCEA,<
	XCT'8	ER%A,FORER.##	;'XPROCESS A ERROR
>
IFN CONCEA,<
	XCT	ER%A,FORER(8%##	;PROCESS A E(XRROR
>
	IFLE	B(x-57,<CODE==JUMP>	);[435] JUMP NO-OP)8 FOR MSGS 40-57
)X	IFLE	B-37,<CODE)x==CAM>	;[435] CAM* NO-OP FOR MSGS 2*80-37
	IFLE	B-17*X,<CODE==CAI>	;[43*x5] CAI NO-OP FOR +MSGS 0-17

	COD+8E	B,D(C)	;[435+X]
	PURGE	CODE			;[435]
	KKHV 8

		E.==880
		RADIX 10
	B8XLDERR	(  0,  0)	;8xsatisfactory comp9letion, ie, no er98ror detected
	BL9XDERR	(100,999)	;F9xOROTS system erro:r
	BLDERR	(101, :8 0)	;normal end o:Xf job
	BLDERR	(1:x02, 81)	;argument; block not in cor;8rect format
	BLD;XERR	(103,999)	;mo;xnitor not built t<o support FOROTS
	BLDERR	(104,999<X)	;fatal error
	<xBLDERR	(105,999)	=;user program has=8 requested more c=Xore than is avail=xable
	BLDERR	(10>6,999)	;runtime m>8emory management >Xerror
	BLDERR	(2>x37, 30)	;DUMP mod?e RANDOM or APPEN?8D access not impl?Xemented
				;  t?xry IMAGE mode
	B@LDERR	(238, 30)	;@8DIALOG file canno@Xt be opened
	BLD@xERR	(239, 32)	;ilAlegal FORTRAN uniA8t number
	BLDERRAX	(240, 30)	;recorAxd length missing Bfor RANDOM accessB8
	BLDERR	(241, 4BX5)	;switch error Bxduring DIALOG or COPEN statement scC8an
	BLDERR	(242,CX 30)	;too many deCxvices open: fifteDen maximum
	BLDED8RR	(243,  1)	;uniDXdentified entry iDxn FORERR
	BLDERRE	(244, 42)	;no suE8ch device
	BLDEREXR	(245, 30)	;deviExce not available
	BLDERR	(246,  1F8)	;unidentified eFXntry in FORERR
	FxBLDERR	(247,699)	G;FOROTS system erG8ror
	BLDERR	(248GX, 30)	;illegal ACGxCESS for device
H	BLDERR	(249, 30)H8	;illegal MODE orHX MODE switch
	BLHxDERR	(250, 29)	;fIile was not foundI8
	BLDERR	(251, 3IX0)	;no directory Ixfor project,progrJammer number
	BLJ8DERR	(252, 28)	;DJXTA directory is fJxull
				;protectKion error
	BLDERK8R	(253, 30)	;fileKX was being modifiKxed
	BLDERR	(254,L 28)	;RENAME fileL8 name already exiLXsts
	BLDERR	(255Lx,699)	;FOROTS sysMtem error
	BLDERM8R	(256, 30)	;bad MXUFD or bad RIB
	MxBLDERR	(257,699)	N;FOROTS system erN8ror
	BLDERR	(258NX,699)	;FOROTS sysNxtem error
	BLDEROR	(259, 30)	;deviO8ce not available
	BLDERR	(260, 42Ox)	;no such deviceP
	BLDERR	(261, 8P81)	;argument blocPXk not in correct Pxformat
	BLDERR	(Q262, 28)	;no roomQ8 or quota exceedeQXd
	BLDERR	(263, Qx47)	;write lock eRrror
	BLDERR	(26R84,699)	;not enougRXh monitor table sRxpace
	BLDERR	(26S5, 30)	;partial aS8llocation only
	SXBLDERR	(266, 30)	Sx;block not free oTn allocation
	BLT8DERR	(267, 30)	;cTXannot supersede aTxn existing directUory
	BLDERR	(268U8, 28)	;cannot delUXete or rename a nUxon-empty directorVy
	BLDERR	(269, V830)	;SFD not founVXd
	BLDERR	(270, Vx30)	;search list Wempty
	BLDERR	(2W871, 30)	;SFD nestWXed too deeply
	BWxLDERR	(272, 30)	;X"no create" flag X8on for specified XXUFD
	BLDERR	(273Xx,699)	;FOROTS sysYtem error
	BLDERY8R	(274, 30)	;fileYX cannot be updateYxd
	BLDERR	(275,6Z99)	;FOROTS systeZ8m error
	BLDERR	ZX(276,699)	;FOROTSZx system error
	B[LDERR	(277, 30)	;[8LOOKUP ENTER or R[XENAME error
	BLD[xERR	(300,  1)	;un\identified entry \8in FORERR
	BLDER\XR	(301, 62)	;ille\xgal character in ]FORMAT statement
	BLDERR	(302, 25]X)	;LSCW illegal i]xn binary record o^r reading ASCII
^8				;attempt to r^Xead unwritten ASC^xII RANDOM ACCESS _record
				;  or_8 unwritten or des_Xtroyed record num_xber
	BLDERR	(303`, 64)	;checksum e`8rror reading bina`Xry records
	BLDE`xRR	(304, 67)	;inpaut/output list gra8eater than recordaX size
	BLDERR	(3ax05, 63)	;optionalb * fill: unidentib8fied entry in FORbXERR
	BLDERR	(306bx, 62)	;input/outpcut list without dc8ata conversion incX FORMAT
	BLDERR	cx(307, 64)	;illegadl character in dad8ta
	BLDERR	(308,dX 24)	;attempt to dxREAD beyond valide input
	BLDERR	(e8309,799)	;variableXe cannot be foundex in NAMELIST blocfk
	BLDERR	(310, f839)	;REREAD beforfXe first READ is ifxllegal
	BLDERR	(g311, 26)	;cannot g8RANDOM ACCESS a SgXEQUENTIAL file
	gxBLDERR	(312, 23)	h;BACKSPACE illegah8l for device
	BLhXDERR	(313, 59)	;ihxllegal delimiter iin LIST DIRECTED i8input
	BLDERR	(3iX14, 62)	;missing ixwidth field for Aj or R on input
	j8BLDERR	(315, 31)	jX;cannot do SEQUENjxTIAL ACCESS on a kRANDOM file
	BLDk8ERR	(400,899)	;wrkXite protected
	BkxLDERR	(401,899)	;ldevice error
	BLl8DERR	(402,899)	;plXarity error
	BLDlxERR	(403,899)	;blmock too large, qum8ota exceeded or fmXile structure fulmxl
				;nonexistennt CDR reader
	Bn8LDERR	(404,899)	;nXend of file
	BLDnxERR	(407,899)	;enod of tape

		ERo8R.CT==E.-1		;NUMBoXER OF ERROR-VALUEox ENTRIES
		RADIX 8
	KbNA  ~(rFOROT%+21LEJ1Q LIJ1P LQJ1Q M
9hXP 'MqhXP (M&pP |hfFOROT%+16M&tA  }hnFOROT%+20M'4*: /x7
	ZZ.==0
	CASE.==0
	IRPC08 A<
	CC.==0
	I0XFGE "A"-"A",<IFL0xE "A"-"Z",<IFN C1ASE.,<CASE.==0
	18					SHIFT (ZZ.,31X7)>
				CC.=="A1x"&37>>
	IFGE "A2"-"A"-40,<IFLE "28A"-"Z"-40,<IFE CA2XSE.,<CASE.==1
		2x				SHIFT (ZZ.,373)>
				CC.="A"&3837>>
	IFE CC.,<I3XFN "A"-" ",<PRIN3xTX A IS ILLEGAL 4IN FIVE BIT CODE>48>
	SHIFT (ZZ.,CC4X.)>
	IFN ZZ.,<DE4xFINE FILL<IFE ZZ.5&77B5,<ZZ.==ZZ._558
					FILL>
			5X	>
		FILL>
	ZZ.5x==ZZ._1
	IFE << 6ZZ.&760000000000>68-740000000000>,<
			ZZ.==ZZ.&01776x77777777>
	EXP	ZZ.
	M2

I M2%@ `M2n[ @M3)hXP )M3)k<P M3)l}P M3)mP MM7!iP !M?J9 e2
	JRST	1,e(INIT%		; FOROTS IeHNITIALIZION ROUTIehNE (ASS DYNAMIC CfORE)
	JRSTI	1,FOf(RER%	;DEFINE THE fHERROR PROCESSOR EfhNTRY POINT
	JRSTg	1,OPEN%		; DEVICg(E OPEN ROUTINE
	gHJRST	1,CLOSE%	; DghEVICE CLOSE ROUTIhNE
	JRST	1,RELEAh(%	; DEVICE RELEAShHE ROUTINE
	JRST	hh1,IN%		; FORMATEDi INPUT ROUTINE
	i(JRST	1,OUT%		; FOiHRMATED OUTPUT ROUihTINE
	JRST	1,RTBj%		; UN-FORMATED j(BINARY INPUT (CONjHTROL WORDS)
	JRSjhT	1,WTB%		; UN-FOkRMATED BINARY OUTk(PUT (CONTROL WORDkHS)
	JRST	1,ENC%	kh	; ENCODE ROUTINEl
	JRST	1,DEC%		;l( DECODE ROUTINE
lH	JRST	1,NLI%		; NlhAMES LIST INPUT RmOUTINE
	JRST	1,Nm(LO%		; NAME LIST mHOUTPUT ROUTINE
	mhJRST	1,IOLST%	; InNPUT/OUTPUT LIST n(PROCESSING ROUTINnHE
	JRST	1,FIN%		nh; INPUT/OUTPUT LIoST TERMINATION ROo(UTINE
	JRST	1,MToHOP%		; UTILITY FIohLE SPACING FUNCTIpONS
	JRST	1,FINDp(%		; FIND THE NEXpHT RECORD FOR RANDphOM ACCESS
	JRST	q1,EXIT%		; TERMINq(ATE THE PROGRAM EqHXECUTION
	JRST	1qh,ALCOR%	; DYNAMICr CORE ALLOCATION r(ROUTINE
	JRST	1,rHDECOR%	; DEALLOCArhTE DYNAMIC CORE
s	JRST	1,ALCHN%	; s(ROUTINE TO GET A sHSOFTWARE CHANNEL
	JRST	1,DECHN%	;t ROUTINE TO PUT At( SOFTWARE CHANNELtH
	JRST	1,TRACE%	th; ROUTINE TO TRACuE SUBROUTINE CALLu(S
	JRST	1,FUNCT%uH	;[232] OVERLAY IuhNTERFACE
	JRST	1v,DBMS%		;[475] DBv(MS ENTRY POINT
M?\B BFOROT%+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= p8
	SALL
	pXC.....=0
	IRP Bpx,<C.....=C.....+1q>
	IF2,<IFNDEF q8A,<EXTERNAL A>>
	IFNB <B>,<
	PqxUSH	P,L
	MOVEI	Lr,[XWD -C.....,0
r8		IRP B,<B>]+1>rX
	PUSHJ	P,A
	IrxFNB <B>,<
	POP	P,L>MVt= (
FOROT%+27PGC(PND@ NH@ NL@ NP@ O>|H\ w9
	POPJ	P,AQeK` s85
	SALL
	sXIFNB <B>,<IFIDN sx<B>,<.>,<SIXBIT t/A/
				 ENTRY t8A.
				 A.:>
tX		  IFDIF <B>,<.tx>,<SIXBIT /B/
	u			 ENTRY A
			u8	 A:>
		 >
	IFuXB  <B>,<SIXBIT /uxA/
		  ENTRY	Av
		  A:>
IFN Fv840LIB,<
	CAIA
	vXPUSH	P,CEXIT.##
>
S2dYgP $S8( FFOROT%+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= |(bFOROT%+15U>l{P 

UKJ  +UVn	 46UVn
  58UVn` 48UVn

x 56W
P W$k@  W%
PX@ Y&93 ^H
				Y?9l}P XYBqhXP (YO!mP *[>ql{P [R~  }(jFOROT%+17]2HP {(ZFOROT%+13]2xP {h^FOROT%+14@tJ0P"@t\YP!@u|P$B-a  @FOROT%+2W P HFOROT%+6ZmP $`@ `D@ `H@ `L@ `P@ a`P a*n 4 a+= +a+ +a?mP &b@ 

cDP cV.Y9Q d cDEFINE B
	<FOROT%+A>e>3HP +e>3HP +e>3IP ,edX" DFOROT%+4el{P %eH chDEFINE B
	<A>eRP JFOROT%+7eVqmP 

gtPSUgal{P %g=Y7 ]
			](CONCEA==-1	;SET H]HIGH SEGMENT CONCE]hALED
			TWOSEGMN^ETS
			RELOC400000-8{
	IFN A&-X77B5,<A==A_1
	-x		IFE << A&76000.0000000>-74000000.80000>,<
					A=.X=A&017777777777>.x
			EXP A!1B35
			A==0
			IFE/8 B,<B==36>>
	A==A_5+BgRJ1 ah	A==ZZ.
b					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" hFOROT%+26P*G"^=6PiKh1P ,idtVP idu@P iduZP iduX7P$idu}:P idv<P idvh9P ig= ,g
	IF2,<IF,8NDEF TY%STR,<EXTE,XRNAL TY%STR>>
	P,xUSHJ P,TY%STR
	CAI	AkOlP 
m%P _m<Q Amk`P m

VQ _m~+zP m6MkyP m^EpP oRP yhNFOROT%+10uhpP YQ S@P *D A  *D *i@A  *i@*

VA  *

V*|A  *|*|A  *|*)6A  *)6*8 A  *8 *LA  *LR4I7P >}{woP