Google
 
Trailing-Edge - PDP-10 Archives - AP-D480B-SB_1978 - fkaprm.unv
There are no other files named fkaprm.unv in the archive.
x
(4@P B8P&\iCl{P C2B 
QFOROT%+24IXu]PIXu}:C2|B 	IFOROT%+22IXtJ9PIXtJ9C3!lP )CJ8 4CO$kQ E2$\Y A`
		E.==E.B+1
		XWD	A,B
	v[ZPIvi9G tI;P'G v8;P *G"^=6P G"qmP G2~9" FOROT%+3G>t90P GC(P I!mP "IImP 
n1  

aFOROT%+30LEJ1Qt;ZP 	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 IP )FOROT%+12ItmPIu

TImP
PUFOROT%+25IXvFOROT%+23IXtMP IXu@I1l{P XI4 lPi	DD.A==ZZm.
					ZZ.==ZZ.+BI6~i  bP#
	IFL <Z bpB>-<@>,<
	MOVE cA,B
	MOVE A+1c0,1+B>

	IFGE <cPZ B>-<@>,<
	MOVcpEI A+1,B
	MOVEd A,(A+1)
	MOVEd0 A+1,1(A+1)>
I6~i6 eP/
	MOVEM epA,B
	MOVEM A+1,1+B
I6~k@ dp)
	DMOVE eA,B
	DFN A,A+1I?,+ _P
ZZ1.==A_p&<777000,,0>
IFL` ZZ1.,<ZZ1.==-ZZ1`0.-<1000,,0>>
ZZ1`P.==ZZ1.-<033000,,`p0>
IFE B,<ZZ1.=a=0>
ZZ2.==ZZ1.+<a0<B+200>_-8>&<000aP777,,777777>
IFLap ZZ1.,<ZZ2.==0>
b	A
	ZZ2.
SUPPRESSPZZ1.,ZZ2.IXtqP$IXtxP"IXtVPIXt9P!IXtJ9P+IXtJ9PIXtLTP$IXtLuP"IXtMPIXu@PIXuKSPIXuLP@IXu]PIXu}:PIXv,I; o4KH-J1 w10KH-\s u7KH-| m3KH.2 s6KH.<R y11KH.>9 g0KH.[S {14KH.\h }15KH.\h 16KH.\i 17KH.]7 i1KJ!k<P KKlP KKlZP UKKlxP TKKmHP SKKmIP TKKS pc
	A.==(SIPXBIT/A/)
	XWD	A0.,ER%A	;DEFINE T

8HE A ERROR ENTRY
	
9hXP'KKJ9 

x[
	ERRARG	0;FOROTS 
		;EOCODELFOR SYS
		;0  FOROTS DETECTE8D SYSTEM ERROR
	X	;1  CALL TO EXITx THE PROGRAM (PRINT TIME ETC.)
		8;2  ARGUMENT BLOCXK IS NOT IN THE CxORRECT FORMAT
		;3  MONITOR IS NO8T BUILT TO SUPPORXT THE FOROTS SYSTxEM
		;4  FATAL ERROR RETURN TO MO8NITOR VIA EXIT
	X	;5  NO CORE AVAIxLABLE FOR LOW SEG EXPANSION
	ERRA8RG	(UUO)		;1;UUO XERRORS UUO DOES NxOT EXIST
	ERRARG	(APR)		;2;PROCES8SOR TRAPS OVER/UNXDER  FLOW
		;TYPxE CODES FOR APR ERROR CALLS
		;0 8 INTEGER OVERFLOWX
		;1  INTEGER DxIVIDE CHECK
		;2  ILLEGAL TRAP
	8	;3  ILLEGAL TRAPX
		;4  FLOATING xOVERFLOW
		;5  FLOATING DIVIDE CH8ACK
		;6  FLOATIXNG  UNDERFLOW
		x;7  ILLEGAL TRAP
	ERRARG	(OPN)		;83;OPEN ROUTINE ERXROR
		;TYPE CODExS FOR THE OPEN ERROR CALL
		;0  L8OOKUP/ENTER ERRORX MESSAGE DEFINE IxN DD.EXT
		;1  ILLEGAL DATA MODE 8FOR DEVICE
		;2 X ILLEGAL ACCESS FxOR DEVICE
		;3  ACCESS ARGUMENT M8ISSING
		;4  NOTX USED
		;5  DEVIxCE NOT AVAILABLE
		;6  NO SUCH DE8VICE
		;7  NOT UXSED
		;10 TOO MAxNY DEVICES OPEN MAX=15.
		;11 SWI8TCH ERROR DURING XDIALOG MODE
		;1x2 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  ILLE 8GAL CHARACTER IN  XFORMAT STATEMENT
		;2  ILLEGAL BI!NARY RECORD OR RE!8ADING ASCII IN BI!XNARY
		;3  CHECK!x SUM ERROR WHILE "READING BINARY RE"8CORDS
		;4  INPU"XT/OUTPUT LIST GRE"xATER THAN RECORD #SIZE
		;5  FIELD#8 OVER FLOW ASTERI#XCK FILL
		;6  IN#xPUT/OUTPUT LIST W$ITH OUT DATA CONV$8ERSION
		;7  ILL$XEGAL CAHARACTER I$xN DATA
		;10 WRI%TE OPERATION FOLL%8OWED BY A READ OR%X SPACING
	ERRARG%x	(QUE)		;6;QUEUEI&NG ERROR
	ERRARG&8	(MSG)		;7;TYPE T&XHE MESSAGE POINTE&xD 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
	ERRA)RG	(UNF)		;13;UND)8EFINED
	ERRARG	()XUNF)		;14;UNDEFIN)xED
	ERRARG	(US0)*		;15;RESERVED FO*8R THE USERS
	ERR*XARG	(US1)		;16;RE*xSERVED FOR THE US+ERS
	ERRARG	(US2+8)		;17;RESERVED FOR THE USERS
	KK^P #KK|@ nP0
	IFNDEF npER%A,<PRINTX ER%+XA IS AN UNDEFINE+xD ENTRY IN FORERR,>
	IFL 57-B,<PR,8INTX THE ERROR TY,XPE. B FOR ER%A 0@TOO BIG>
	IFG C0`-17,<PRINTX THE S1EVERITY CODE FOR 1 ER%A TOO BIG>
I1@FE CONCEA,<
	XCT1`	ER%A,FORER.##	;2PROCESS A ERROR
>
IFN CONCEA,<
	XCT	ER%A,FORER2`%##	;PROCESS A E3RROR
>
	IFLE	B3 -57,<CODE==JUMP>	3@;[435] JUMP NO-OP3` FOR MSGS 40-57
4	IFLE	B-37,<CODE4 ==CAM>	;[435] CAM4@ NO-OP FOR MSGS 24`0-37
	IFLE	B-175,<CODE==CAI>	;[435 5] CAI NO-OP FOR 5@MSGS 0-17

	COD5`E	B,D(C)	;[4356]
	PURGE	CODE			;[435]
	KKHV B@R

		E.==B`0
		RADIX 10
	BCLDERR	(  0,  0)	;C satisfactory compC@letion, ie, no erC`ror detected
	BLDDERR	(100,999)	;FD OROTS system erroD@r
	BLDERR	(101, D` 0)	;normal end oEf job
	BLDERR	(1E 02, 81)	;argumentE@ block not in corE`rect format
	BLDFERR	(103,999)	;moF nitor not built tF@o support FOROTS
	BLDERR	(104,999G)	;fatal error
	G BLDERR	(105,999)	G@;user program hasG` requested more cHore than is availH able
	BLDERR	(10H@6,999)	;runtime mH`emory management Ierror
	BLDERR	(2I 37, 30)	;DUMP modI@e RANDOM or APPENI`D access not implJemented
				;  tJ ry IMAGE mode
	BJ@LDERR	(238, 30)	;J`DIALOG file cannoKt be opened
	BLDK ERR	(239, 32)	;ilK@legal FORTRAN uniK`t number
	BLDERRL	(240, 30)	;recorL d length missing L@for RANDOM accessL`
	BLDERR	(241, 4M5)	;switch error M during DIALOG or M@OPEN statement scM`an
	BLDERR	(242,N 30)	;too many deN vices open: fifteN@en maximum
	BLDEN`RR	(243,  1)	;uniOdentified entry iO n FORERR
	BLDERRO@	(244, 42)	;no suO`ch device
	BLDERPR	(245, 30)	;deviP ce not available
	BLDERR	(246,  1P`)	;unidentified eQntry in FORERR
	Q BLDERR	(247,699)	Q@;FOROTS system erQ`ror
	BLDERR	(248R, 30)	;illegal ACR CESS for device
R@	BLDERR	(249, 30)R`	;illegal MODE orS MODE switch
	BLS DERR	(250, 29)	;fS@ile was not foundS`
	BLDERR	(251, 3T0)	;no directory T for project,progrT@ammer number
	BLT`DERR	(252, 28)	;DUTA directory is fU ull
				;protectU@ion error
	BLDERU`R	(253, 30)	;fileV was being modifiV ed
	BLDERR	(254,V@ 28)	;RENAME fileV` name already exiWsts
	BLDERR	(255W ,699)	;FOROTS sysW@tem error
	BLDERW`R	(256, 30)	;bad XUFD or bad RIB
	X BLDERR	(257,699)	X@;FOROTS system erX`ror
	BLDERR	(258Y,699)	;FOROTS sysY tem error
	BLDERY@R	(259, 30)	;deviY`ce not available
	BLDERR	(260, 42Z )	;no such deviceZ@
	BLDERR	(261, 8Z`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)	;c_annot supersede a_ n existing direct_@ory
	BLDERR	(268_`, 28)	;cannot del`ete or rename a n` on-empty director`@y
	BLDERR	(269, ``30)	;SFD not founad
	BLDERR	(270, a 30)	;search list a@empty
	BLDERR	(2a`71, 30)	;SFD nestbed too deeply
	Bb LDERR	(272, 30)	;b@"no create" flag b`on for specified cUFD
	BLDERR	(273c ,699)	;FOROTS sysc@tem error
	BLDERc`R	(274, 30)	;filed cannot be updated d
	BLDERR	(275,6d@99)	;FOROTS systed`m error
	BLDERR	e(276,699)	;FOROTSe  system error
	Be@LDERR	(277, 30)	;e`LOOKUP ENTER or RfENAME error
	BLDf ERR	(300,  1)	;unf@identified entry f`in FORERR
	BLDERgR	(301, 62)	;illeg gal character in g@FORMAT statement
	BLDERR	(302, 25h)	;LSCW illegal ih n binary record oh@r reading ASCII
h`				;attempt to riead unwritten ASCi II RANDOM ACCESS i@record
				;  ori` unwritten or desjtroyed record numj ber
	BLDERR	(303j@, 64)	;checksum ej`rror reading binakry records
	BLDEk RR	(304, 67)	;inpk@ut/output list grk`eater than recordl size
	BLDERR	(3l 05, 63)	;optionall@ * fill: unidentil`fied entry in FORmERR
	BLDERR	(306m , 62)	;input/outpm@ut list without dm`ata conversion inn FORMAT
	BLDERR	n (307, 64)	;illegan@l character in dan`ta
	BLDERR	(308,o 24)	;attempt to o READ beyond valido@ input
	BLDERR	(o`309,799)	;variablpe cannot be foundp  in NAMELIST blocp@k
	BLDERR	(310, p`39)	;REREAD beforqe first READ is iq llegal
	BLDERR	(q@311, 26)	;cannot q`RANDOM ACCESS a SrEQUENTIAL file
	r BLDERR	(312, 23)	r@;BACKSPACE illegar`l for device
	BLsDERR	(313, 59)	;is llegal delimiter s@in LIST DIRECTED s`input
	BLDERR	(3t14, 62)	;missing t width field for At@ or R on input
	t`BLDERR	(315, 31)	u;cannot do SEQUENu TIAL ACCESS on a u@RANDOM file
	BLDu`ERR	(400,899)	;wrvite protected
	Bv LDERR	(401,899)	;v@device error
	BLv`DERR	(402,899)	;pwarity error
	BLDw ERR	(403,899)	;blw@ock too large, quw`ota exceeded or fxile structure fulx l
				;nonexistex@nt CDR reader
	Bx`LDERR	(404,899)	;yend of file
	BLDy ERR	(407,899)	;eny@d of tape

		ERy`R.CT==E.-1		;NUMBzER OF ERROR-VALUEz  ENTRIES
		RADIX 8
	KbNA  PEFOROT%+21IXtqPIXtxLEJ1Q LIJ1P LQJ1Q M
9hXP 'MqhXP (M&pP 9FOROT%+16Iv=PIv=M&tA  AFOROT%+20I6~i I6~i6M'4*: : 

	ZZ.==0
	CASE.==0
	IRPC:` A<
	CC.==0
	I;FGE "A"-"A",<IFL; E "A"-"Z",<IFN C;@ASE.,<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.&0177A 77777777>
	EXP	ZZ.
	PIv+SM2

I jp]
	UFA A+k1,1+B
	FADL A,k0B
	JOV c
	UFAkP A+1,A+2
	FADL A,A+2
c: M2%@ hpS
	FDVL Ai,B
	JOV c
	MOi0VN A+2,A
	FMPRiP A+2,1+B
	JFCLip (2)
	UFA A+1,jA+2
	FDVR A+2,j0B
	JFCL
	FADL A,A+2
c: M2n[ f0C
	MOVEM fPA,A+2
	FMPR A+fp2,1+B
	JFCL (2)g
	FMPR A+1,B
g0	JFCL (2)
	UFA gPA+1,A+2
	JFCL
gp	FMPL A,B
	JOVh c
	UFA A+1,Ah0+2
	FADL A,A+2
c: M3)hXP )M3)k<P M3)l}P M3)mP MM7!iP !M?J9 o0
	JRST	1,oPINIT%		; FOROTS IopNITIALIZION ROUTIpNE (ASS DYNAMIC Cp0ORE)
	JRSTI	1,FOpPRER%	;DEFINE THE ppERROR PROCESSOR EqNTRY POINT
	JRSTq0	1,OPEN%		; DEVICqPE OPEN ROUTINE
	qpJRST	1,CLOSE%	; DrEVICE CLOSE ROUTIr0NE
	JRST	1,RELEArP%	; DEVICE RELEASrpE ROUTINE
	JRST	s1,IN%		; FORMATEDs0 INPUT ROUTINE
	sPJRST	1,OUT%		; FOspRMATED OUTPUT ROUtTINE
	JRST	1,RTBt0%		; UN-FORMATED tPBINARY INPUT (CONtpTROL WORDS)
	JRSuT	1,WTB%		; UN-FOu0RMATED BINARY OUTuPPUT (CONTROL WORDupS)
	JRST	1,ENC%	v	; ENCODE ROUTINEv0
	JRST	1,DEC%		;vP DECODE ROUTINE
vp	JRST	1,NLI%		; NwAMES LIST INPUT Rw0OUTINE
	JRST	1,NwPLO%		; NAME LIST wpOUTPUT ROUTINE
	xJRST	1,IOLST%	; Ix0NPUT/OUTPUT LIST xPPROCESSING ROUTINxpE
	JRST	1,FIN%		y; INPUT/OUTPUT LIy0ST TERMINATION ROyPUTINE
	JRST	1,MTypOP%		; UTILITY FIzLE SPACING FUNCTIz0ONS
	JRST	1,FINDzP%		; FIND THE NEXzpT 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%	; ROUTINE TO TRAC0E SUBROUTINE CALLPS
	JRST	1,FUNCT%p	;[232] OVERLAY INTERFACE
	JRST	10,DBMS%		;[475] DBPMS ENTRY POINT
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`j
	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>PG2~9"MVt= P]FOROT%+27KKlxPTKKmHND@ NH@ NL@ NP@ O>|H\ @


	POPJ	P,Av=PIv=QeK` }`
	SALL
	~IFNB <B>,<IFIDN ~ <B>,<.>,<SIXBIT ~@/A/
				 ENTRY ~`A.
				 A.:>
		  IFDIF <B>,<. >,<SIXBIT /B/
	@			 ENTRY A
			`	 A:>
		 >
	IFB  <B>,<SIXBIT / A/
		  ENTRY	A@
		  A:>
IFN F`40LIB,<
	CAIA
	PUSH	P,CEXIT.##
>
+PIv+SS2dYgP $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= P5FOROT%+15Iv+PIv+SU>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~  P=FOROT%+17Il}PIm]2HP P-FOROT%+13IuKsPIu]]2xP 1FOROT%+14Iu|PIvy@tJ0P"@t\YP!@u|P$B-a  FOROT%+2W P FOROT%+6ZmP $`@ `D@ `H@ `L@ `P@ a`P a*n 4 a+= +a+ +a?mP &b@ 

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

gtPSUgal{P %g=Y7 ]
			](CONCEA==-1	;SET H]HIGH SEGMENT CONCE]hALED
			TWOSEGMN^ETS
			RELOC4000007`N
	IFN A&877B5,<A==A_1
	8 		IFE << A&760008@0000000>-740000008`0000>,<
					A=9=A&017777777777>9 
			EXP A!1B35
			A==0
			IFE9` B,<B==36>>
	A==A_5+BgRJ1 lc	A==ZZ.
l0					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 i@.YP iJ

9" YFOROT%+26KkPWK:miKh1P ,idtVP idu@P iduZP iduX7P$idu}:P idv<P idvh9P ig= 6@:
	IF2,<IF6`NDEF TY%STR,<EXTE7RNAL TY%STR>>
	P7 USHJ P,TY%STR
	CAI	AkOlP 
m%P _m<Q Amk`P m

VQ _m~+zP m6MkyP m^EpP oRP !FOROT%+10It-3PIt;ZuhpP YQ S@P *D A  *D *i@A  *i@*

VA  *

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