Google
 

Trailing-Edge - PDP-10 Archives - BB-D480F-SB_FORTRAN10_V10 - forprm.unv
There are 32 other files named forprm.unv in the archive. Click here to see a list.
x
,5.@P C
tP C
um6P C
v*7P C
v*7P C
v:7P C
v:7P C
v;zPQCQECmPE!C;PECZPEDG<,QEbDM4kPQE0um6PEE0w)9PEE2]`P 
Q G
tI;P G
tkyP G
uLzP G
ukwP G
vLWPG":=P @G4,YP G4,m`Q @G4- G;D P G;D@P GJ,0P HP HL@Q 8H-iQ HM`Q Hf9Q HmyQ Hu[Q H~	7Q @H~]Q HKvQ H[vQ  HHyQ  H>-Q @IP I[TQ |I4.: RxEK

  IFG S<$P+^D<B>-^D35>,S8<
	$P==-1
	$LOCSX==$LOC+1
	>
  $SxP==$P+^D<B>		;FiTnd end position iT8n word

	DFN (TXA,$LOC)	;Plain ATx is offset
	%A=U=$P	;RH (%NAME) =U8 rightmost bit
UX
  %%DONE==0
  IUxFE <B - ^D18>,<	V;Halfword
	IFE <V8$P - ^D35>,<	;RigVXht halfword

		VxA==A+1B0
		%%DWONE==1
	>
	IFE W8<$P - ^D17>,<	;LeWXft halfword

		WxA==A+1B1
		%%DXONE==1
	>
  >
X8  IFE %%DONE,<			XX;Not a halfword
Xx
		A==A+1B2
	Y	%A==%A+ <<B>_Y8^D30>	;Byte size in LH
  >
ze I6;W YxEW

	DFN	ZA,B	;Check for nZ8ame conflict
			ZX	; and define it Zxthe same
	%A==%B


	%A==%I6= ODx
	$LOC==0
	$P==-1
	==0I6y QE	0

IFGE $Q8P,<
	$P==-1
	$LQXOC==$LOC+1	;Jump Qxto next word
	>

	DFN (A,$LOC)R8
	%A==^D35

	$LOC==$LOC+B
HsE1B

IpQ I0P *IMD@Q IMKQ Ip OHE

	IF1,<Oh
	IFDEF A, PRINPTX ?A ALREADY DEP(FINED
	>;END IF1

	A==B

I$tLuP I$u]P I$u}P I$v+9P I$vMP I'h6P 2I'Q I2-`P mI8rHP I8r$P I8rU+P I8rdJP I8sP I8tI3P I8v>9P ILtI6P ILt^P ILuJ9P ILukzP ILvP ILvQP ILv
WP ILv8;P ILv=1P IN.NV :HCT
	SETZM	A
	SETZM	1+AIPtLuPQIPtMPIIPuLPIPu]PQIPum6PIIPvPIPvZL`P IZL9 P IZMpQ I[&pP I['Q KF:=P K7p <C|

	ENTRY<(	E.B
E.B:				;<HDEFINE THE ERROR <hIF NOT NULL
		"=A"			;ERROR CHARA=(CTER
		SIXBIT	/=HB/		;ERROR PREFIX=h
		EXP	C,D		;E>RROR NUMBERS
		P>(OINT 7,[ASCIZ \E>H\]	;POINTER TO ME>hSSAGE
		EXP	G		?;ATTRIBUTE G
IR?(P F,	<F>			;ARG?HUMENTS, IF ANY

NTS, IF ANY
K:[TQ {K:&P ~K>5`P KJ$BP KJthbP KR:=P Kc P BLP L&LQ  L.LQ @L>LQ MP 	M
e0P LM0P MvL\ 4(C*	ENTRY	A.4H
	SIXBIT	/A./
4hA.:

IFNB <B>5,
<	ENTRY	B.
5(B.:
> ;END IFNB B

END IFNB M&eD@Q jM&eD`Q lM&eh6P :M&f
YP M&f<P M2
|`P M2  ;HC\<A>B<POS(B)><A>B<POS(M28 "hB
 %F==%F_-1
 A==%F_1F_M2:u`P M2>nP M3RP M4tkyP M4v[SP M7%`P M<$P M<$:P M<$;P M<$I3P M<$J;P M<$K6P 
M<$\YP M<$hvP M<$l{P M<$xPP M<$xtP M<$yP M<$yQP M<$yZP M<${P M<%
xP M<%P M<%Y6P M<%kyP M<%lsP M<&:P 
M<&:P M<&<ZP 	M<&=SP 
M<&YP 	M?PQ M?
S 	@HJ

	PURGE		ERJMP,ERCAL,GJFX	 3,GJFX18,GJFX19,G	`JFX24,GJFX27
	PU	RGE	IOX4
	PURGE		 IPCFX6,IPCFX8
	P	@URGE	LNGFX1
	PUR	`GE	NPXAMB,NPXNC,N		PXNOM
	PURGE	OPN		 X2,OPNX9
	PURGE	JS%DEV

URGE	M?i1 #0C

X	INIT&		;FOROTS INITIAL&(IZATION
X	FORER	&H	;ERROR PROCESSOR&h
X	OPEN		;DEVICE' OPEN
X	CLOSE		;'(DEVICE CLOSE
X	E'HXIT1		;CLOSE ALL 'hFILES
X	IN		;FOR(MATTED INPUT
X	O((UT		;FORMATTED OU(HTPUT
X	RTB		;UNF(hORMATTED BINARY I)NPUT
X	WTB		;UNF)(ORMATTED BINARY O)HUTPUT
X	ENC		;EN)hCODE
X	DEC		;DEC*ODE
X	NLI		;NAME*(LIST INPUT
X	NLO*H		;NAMELIST OUTPU*hT
X	IOLST		;INPU+T/OUTPUT LIST ITE+(M PROCESSING
X	F+HIN		;INPUT/OUTPUT+h LIST TERMINATION,
X	MTOP		;DEVICE,( POSITIONING/UTIL,HITY FUNCTIONS
X	,hFIND		;RANDOM ACC-ESS RECORD FIND
-(X	EXIT		;PROGRAM -HTERMINATION
X	AL-hCOR		;DYNAMIC COR.E ALLOCATION
X	D.(ECOR		;DYNAMIC CO.HRE DEALLOCATION
.hX	ALCHN		;ALLOCAT/E AN I/O CHANNEL
X	DECHN		;DEALLO/HCATE AN I/O CHANN/hEL
X	TRACE		;TRA0CEBACK OF ROUTINE0( CALLS
X	FUNCT		0H;GENERAL OTS INTE0hRFACE
X	INQU		;I1NQUIRE BY UNIT
X1(	FOROP		;MISCELLA1HNEOUS LIBRARY UTI1hLITIES
X	IFI		;I2NTERNAL FILE INPU2(T
X	IFO		;INTERN2HAL FILE OUTPUT
X2h	MTHER		;MATH LIB3RARY ERROR
X	ABO3(RT		;ABORT WITH T3HRACE
X	INQF		;IN3hQUIRE BY FILE

IRE BY FILE

MJ,X1P MKQP MK[P MO$P MQ
Q MQP MR=Q MR&:`P MRlQ MRuHhP MS4P MVo	P OpP KQb` oxG)

	IFNB p<C>,< PRINTX ?HXp8L used with more pXthan 2 args - A,px B >

	%%BTS==q<B> & 7B2
	%%IDq8X==<<B>_-^D18> &qX 77	;Get index fiqxeld if any
	%%LFrT==<B> & ^O77777r87
	IFE <%%IDX>,<rXPRINTX %Index is rxzero for HXL A,sB >

  IFE <%%Bs8TS & 3B1>,<
	PRIsXNTX ?HXL ERROR - sxB
  >
  IFN <%t%BTS & 1B0>,<
	Ht8RL	A,%%LFT(%%IDXtX)
  >
  IFN <%%txBTS & 1B1>,<
	HLuL	A,%%LFT(%%IDX)
  >
T(%%IDX)Qbg  uXGW

	IFNB ux<C>,< PRINTX ?HXvLZ used with morev8 than 2 args - AvX, B >

	%%BTS=vx=<B> & 7B2
	%%IwDX==<<B>_-^D18> w8& 77	;Get index fwXield if any
	%%LwxFT==<B> & ^O7777x77
	IFE <%%IDX>,x8<PRINTX %Index isxX zero for HXLZ Axx,B >

  IFE <%y%BTS & 3B1>,<
	Py8RINTX ?HXLZ ERRORyX - B
  >
zIFNyx <%%BTS & 1B0>,<
	HRLZ	A,%%LFT(%z8%IDX)
  >
zIFNzX <%%BTS & 1B1>,<
	HLLZ	A,%%LFT(%%IDX)
  >
T(%Qc {8H

	IFNB {X<C>,< PRINTX ?HX{xR used with more |than 2 args - A,|8 B >

	%%BTS==|X<B> & 7B2
	%%ID|xX==<<B>_-^D18> &} 77	;Get index fi}8eld if any
	%%LF}XT==<B> & ^O77777}x7
	IFE <%%IDX>,<~PRINTX %Index is ~8zero for HXR A,~XB >

  IFE <%%B~xTS & 3B1>,<
	PRINTX ?HXR ERROR - 8B
  >
  IFN <%X%BTS & 1B0>,<
	HxRR	A,%%LFT(%%IDX	)
  >
  IFN <%%	8BTS & 1B1>,<
	HL	XR	A,%%LFT(%%IDX)
  >
T(%%IDX)QcP jF{

	IFNB j8<C>,< PRINTX ?HXjXRE used with morejx than 2 args - Ak, B >

	%%BTS=k8=<B> & 7B2
	%%IkXDX==<<B>_-^D18> kx& 77	;Get index flield if any
	%%Ll8FT==<B> & ^O7777lX77
	IFE <%%IDX>,lx<PRINTX %Index ism zero for HXRE Am8,B >

  IFE <%mX%BTS & 3B1>,<
	PmxRINTX ?HXRE ERRORn - B
  >
nIFNn8 <%%BTS & 1B0>,<
	HRRE	A,%%LFT(%nx%IDX)
  >
oIFNo <%%BTS & 1B1>,<
	HLRE	A,%%LFT(%%IDX)
  >
T(%R5]Q RT\YQ RX`Q @RXhQ  S
 P jSpP S@Q jS P SF,}P Sv@P kS
 'IFN FT10S )IFN FT20SQ HSN[TQ zSnL}P @S~[TQ {S~y`Q bS*5`P LS,t[RP S,t\YP S,tk9P S,tk:P S,u
pP S,u
vP S,uwP S,uyP S,u]P S,uk6P S,v)1P S,v[TP S6<kP S:'Q S;[ZQ zS>5@P S>^yQ `S?X`P S?X@P SC& P jSJY`P SJK@P SJY@P SJmP SJd[@P SKL@P SK@P Y%{1P PY%{;P Y.h`P (Y.m`P YN(`P (YN-`P YFH`P (YFM`P YMH`P (YMM`P Y-h`P Y-m`P YePQ Y&mQ @Y/ P QY:|H`P Y:|M`P Y>
@ [8F
	IFNB <[XC>,< PRINTX ?LOAD[x used with more t\han 2 args - A, \8B >

	%%BTS==<\XB> & 7B2
	%%IDX\x==<<B>_-^D18> & ]^O77	;Get index f]8ield if any
	%%L]XFT==<B> & ^O7777]x77
	IFE <%%IDX>,^<PRINTX %Index is^8 zero for LOAD A^X,B >

  IFE %%^xBTS,<
	MOVE	A,_B
  >
 IFN <%%B_8TS & 1B0>,<
	HRR_XZ	A,%%LFT(%%IDX)_x
  >
  IFN <%%B`TS & 1B1>,<
	HLR`8Z	A,%%LFT(%%IDX)`X
  >
  IFN <%%B`xTS & 1B2>,<
	%%%aS==<%B>_-^D30	;Sa8ize of field
	%%aX%P==<%B> & ^O77	ax;"P"
	LDB	A,[PObINT %%%S,%%LFT(%%b8IDX),%%%P]
  >
X),%%%P]
  >
YB%@PRYC}PYC}PYJ,8SP(YNv[[PYPv[VPYR/tqP [tvP [t*7P [tK8P [u3P [&v[TQ |[>$PQ [?,}P [KRP ]2%SP F]>%h6P )ukzP vP v
TP v=1P N<Q *5`P L,tqP ,t{P 	,t)QP ,t+P ,t+P 
_,t.:P 
_,t8`P _,tI7P 
_,tI;P _,tJ0P _,tJ9P _,tJ9P _,t\YP _,tj6P _,tkP _,tkyP _,tlVP _,uwP _,uyP _,u9<P _,uJ6P _,u[rP _,uh6P _,uhYP _,uk2P _,ulQP _,u|P _,u|SP _,v2P 
_,v9P 	_,v
WP9,v)1P:,v+`P=,v-PiP ,w
zP _HuP _Hv)6P _Hv98P _JY`P _JK@P _JY@P _JmP _J<@Q _Jd[@P _K|`P _KL@P _K@P _LtI6P _Lt^P _Lv8;P _Lv[UP _O$Q a$:Q a&<Q aQ a|RP a$@P at{9Q  at|sQ @a2-`P a>Mm ;CXPOINT WID(B),A,POS(B)(aHt]RP aHuyP aJ~@P JaK$J3P aRD P ec}Q @cv@Q c;}Q eP 	etHqP etI1Q @eLP et Q e<Q e>69:P eK-j:Q }eNO) P ePtI6P ePtj<P ePv93P ePv[RP e^^yQ `fDP fHP fLP fPP guQ gum`P gux P gu|@P gu|[P gu}`P gv=`P gvX P gv\@P gv\[P gv]`P gLNQ guQ gukrP gukyP gukzP guk|P gvP 	gvP gvP gvP 	gv
RP gv
YP gv
ZP gv
\P gv=2P gv=9P gv=:P gv=<P g") Q gByP gPtI6P gPtJ9P gPt^P gPui;P gPum6P gPu{P gPv8;P gPv8yP gPv[UP gR-P ?gR@Q gR\I3 :CPDEFINE A <-B(P)>INE A gR^h9 5hCL
 .L==0
6 IRP A,<.L==.L+16(>		;COUNT ARGS
 6H.N==0

 IRP A,6h<
7IFNB <A>,<
   STKDEF (A,\<7(.L-.N-1>)	;DEFINE7H NAMED ARG
  > ;7hEND IFNB
  .N==.8N+1
>(;END IRP

	ADJSP	P,.L		;8HALLOCATE STACK SP8hACE
	DEFINE	UNST9K <	ADJSP P,-.L >9(	;DEFINE DEALLOCA9HTOR
 PURGE .N
OR
 PURGE .N
gR~)  bxFM
	IFNB <cC>,<PRINTX ?STOREc8 with more than 2cX args - A, B >

	%%BTS==<B> &d 7B2
	%%IDX==<<d8B>_-^D18> & 77	;GdXet index field ifdx any
	%%LFT==<Be> & ^O777777
	IFe8E <%%IDX>,<PRINTXeX %Index is zero fexor STORE A,B >

fIFE %%BTS,<
	MOVEM	A,B
  fX>
 IFN <%%BTS & fx1B0>,<
	HRRM	A,g%%LFT(%%IDX)
  >g8
  IFN <%%BTS & gX1B1>,<
	HRLM	A,gx%%LFT(%%IDX)
  >h
  IFN <%%BTS & h81B2>,<
	%%%S==<%hXB>_-^D30	;Size ohxf field
	%%%P==<i%B> & ^O77	;"P"
	DPB	A,[POINT %iX%%S,%%LFT(%%IDX),%%%P]
  >
X),iPQ i
 P ki@Q liv@P li4tYP i4tK8P i4uRP i4v:<P i4v>
P i4v>9P iC& P liSNpQ jP k@Q k2-`P k;-PQ  kKQP kK[P kNmP kN.*2P %mEP m`P Tm~+zP o& P 
oC& P oJt;ZP oNO P 
oR
 P 
qP 
	
dHX PB
		TLNE	pA,-1	;Skip if loc al address
		 TX 0OA	A,B1WBP7 ;Glo Pbal address, make p BP and skip
		H!RLI	A,(POINT 7,)!0 ;Local address, make BP
	ess, 	 HHDN
IFNB <BHh>,<PRINTX ?DCALL ICONTINUATION ADDRI(ESS SPECIFIED - IIHGNORED>
	EXTERN	IhD.A
	JRST	D.A
A
	JRST	D.AJ(D\
IFNB <BJH>,<PRINTX ?DJCAL JhCONTINUATION ADDRKESS SPECIFIED - IK(GNORED>
	EXTERN	KHD.A
	ERJMP	D.A

	ERJMP	D.A	 LDh
	EXTERN	L(F.A
IFB <B>,<	LHPUSHJ	P,F.A >
ILhFNB <B>,<JRST	[PMUSHJ P,F.A
			JRST B] >
			J	.,@ DhD@

	ENTRYE	F.B
F.B:
		PE(USHJ	P,FORER.##
EH		"A"			;ERROR CEhHARACTER
		SIXBIFT	/B/		;ERROR PRF(EFIX
		EXP	C,DFH		;ERROR NUMBERS
		POINT 7,[ASCIZG \E\]	;POINTER TG(O MESSAGE
		EXP	GHG		;ATTRIBUTE GGh
IRP F,	<F>			H;ARGUMENTS, IF ANY

NTS, IF AN	T86 MHDt
	EXTERN	MhF.A
IFB <B>,<	NERCAL	F.A >
IFNN(B <B>,<ERJMP	[PUNHSHJ P,F.A
			JRST B] >
			JR	&|\Y @HD"

	INTER@hN	E.B
E.B:

A IF2,<IFNDEF %IOEA(RR,<EXTERN %IOERRAH>>
		PUSHJ	P,%IOAhERR
		"A"			;ERBROR CHARACTER
		B(SIXBIT	/B/		;ERRBHOR PREFIX
		EXP	BhC,D		;ERROR NUMCBERS
		POINT 7,[C(ASCIZ \E\]	;POINCHTER TO MESSAGE
	Ch	EXP	G		;ATTRIBUDTE G
IRP F,	<D(F>			;ARGUMENTS, IF ANY

NTS, 	Nu @D
	$ECALL	SNH

	$ECALL	0Q ;ZP 4@P 	iVP 
e;@P 
e<}P 
ej`Q 	
|lrP pP @P ,h2P ,hzQ 
NK@P NLP Q 
D@P v;P v;	P X`P $(2P6-`Q6.`P 5	Q 05Q N+PP N<Q 
|i@P |k@P F@P 
 P J`P MK	Q 
MK	Q 
MKPP MLP MLxP dyP ~+ Q :=P -^P -`P &8@P &:=Q 
&mPP&Tk@PQ&lyVP&tNQ	&|j7PP&~)1PQ&~=1P 'L@P ')3P '+P '-3P ';ZP 'I7P '
6|IQP7:=P:|KPP >%xQ >Tk@P ?)3P ?+P ?-3P ?;ZP ?x7Q ?I7P ?yP ?
HtQ B
LxQ B Q B=yP B6H1P C}P C%@P F=zP FmQ Fv=zQ J
P J,=PDJ-h6QJxQ$J|lrPKRPN8@P R:=Q 
RmP SL@P S'`Q 
Vd[@P Vv[ P W:=P W;ZP W\TP ^
L@P _L@P _@P _$@P b
 P EH1P F(1P S@P %X<P 2}X<P ;P .B
|qPC%X<PJ9WP JX<P JN8P 	Ji9P R5UQP R5UqP R5UzP R5VP R5YP R5Z2P SLLuP SLMP SMLP SM]P SNP SN