Google
 

Trailing-Edge - PDP-10 Archives - BB-D480G-SB_FORTRAN10_V11.0_short - forprm.unv
There are 32 other files named forprm.unv in the archive. Click here to see a list.
x
,S3@P C
tP C
u9<P C
um6P C
v*7P C
v*7P C
v:7P C
v:7P C
v;zP CQ C;P CZ P 
DG<,Q JDG<,Q bDM4kP E0um6P E0w)9P E2]`P 
E2^>@QE2u0Q E>69:P EC8P ENO P >EV4P ]EV4=Q EV5k P Eg%`P Eg&
Q G
tI;P G
tkyP G
uLzP G
ukwP G
vLWPG":=P@@G4,YPG4,m`Q@G4-G;DPG;D@PGJ,0PHu[Q H~	7Q @H~]Q HKvQ Hz Q H[vQ  HHyQ  H>-Q @IP I[TQ |I4.: 	mPO!

  IFG 	mp<$P+^D<B>-^D35>,	n<
	$P==-1
	$LOC	n0==$LOC+1
	>
  $	nPP==$P+^D<B>		;Fi	npnd end position i	on word

	DFN (	o0A,$LOC)	;Plain A	oP is offset
	%A=	op=$P	;RH (%NAME) =	p rightmost bit
	p0
  %%DONE==0
  I	pPFE <B - ^D18>,<		pp;Halfword
	IFE <	q$P - ^D35>,<	;Rig	q0ht halfword

			qPA==A+1B0
		%%D	qpONE==1
	>
	IFE 	r<$P - ^D17>,<	;Le	r0ft halfword

			rPA==A+1B1
		%%D	rpONE==1
	>
  >
	s  IFE %%DONE,<				s0;Not a halfword
	sP
		A==A+1B2
		sp	%A==%A+ <<B>_	t^D30>	;Byte size in LH
  >
ze I6;W 	tPO-

	DFN		tpA,B	;Check for n	uame conflict
				u0	; and define it 	uPthe same
	%A==%B


	%A==%I6= 	i`NN
	$LOC==0
	$P==-1
	==0I6y 	k`Ni
) 

IFGE $	lP,<
	$P==-1
	$L	l0OC==$LOC+1	;Jump 	lPto next word
	>p

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

	$LOC==$LOC+B
RJNZ1B

IpQ I0P IMD@Q IMKQ Ip 	j NX

	IF1,<	j@
	IFDEF A, PRIN	j`TX ?A ALREADY DE	kFINED
	>;END IF1

	A==B

I$tLuP I$u]P I$u}P I$v+9P I$v,sP I$vMP I'h6P $I'Q I2-`P `I8rHP I8r$P I8rU+P I8rdJP I8sP I8tI3P I8v>9P ILtI6P ILt^P ILuJ9P ILukzP ILvP ILvQP ILv
WP ILv8;P ILv=1P IN.NV 	U M*
	SETZM	A
	SETZM	1+AIPtLuPQIPtMPIIPuLPIPu]PQIPum6PIIPvPIPvZL`P IZL9 P IZMpQ I[&pP I['Q KF:=P K7p 	V`MR

	ENTRY	W	E.B
E.B:				;	W DEFINE THE ERROR 	W@IF NOT NULL
		"	W`A"			;ERROR CHARA	XCTER
		SIXBIT	/	X B/		;ERROR PREFIX	X@
		EXP	C,D		;E	X`RROR NUMBERS
		P	YOINT 7,[ASCIZ \E	Y \]	;POINTER TO ME	Y@SSAGE
		EXP	G			Y`;ATTRIBUTE G
IR	ZP F,	<F>			;ARG	Z UMENTS, IF ANY

NTS, IF ANY
K:[TQ {K:&P ~K>5`P KJ$BP KJthbP KR:=P Kc P 4LP L&LQ  L.LQ @L>LQ M
e0P ?M0P MvL\ 	OM	ENTRY	A.	O 
	SIXBIT	/A./
	O@A.:

IFNB <B>	O`,
<	ENTRY	B.
	PB.:
> ;END IFNB B

END IFNB M&eD@Q ^M&eD`Q _M&eh6P ,M&f
YP M&f<P M2
|`P M2  	V M2<A>B<POS(B)><A>B<POS(M28 	; KZ
 %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 
XR

	PURGE
8	ERJMP,ERCAL,GJFX
3,GJFX18,GJFX19,G
xJFX24,GJFX27
	PU
"HRGE	IOX4
	PURGE	
"hIPCFX6,IPCFX8
	P
#URGE	LNGFX1
	PUR
#(GE	NPXAMB,NPXNC,N
#HPXNOM
	PURGE	OPN
#hX2,OPNX9
	PURGE	JS%DEV

URGE	M?i1 	;hLt

X	INIT	>`		;FOROTS INITIAL	?IZATION
X	FORER		? 	;ERROR PROCESSOR	?@
X	OPEN		;DEVICE	?` OPEN
X	CLOSE		;	@DEVICE CLOSE
X	E	@ XIT1		;CLOSE ALL 	@@FILES
X	IN		;FOR	@`MATTED INPUT
X	O	AUT		;FORMATTED OU	A TPUT
X	RTB		;UNF	A@ORMATTED BINARY I	A`NPUT
X	WTB		;UNF	BORMATTED BINARY O	B UTPUT
X	ENC		;EN	B@CODE
X	DEC		;DEC	B`ODE
X	NLI		;NAME	CLIST INPUT
X	NLO	C 		;NAMELIST OUTPU	C@T
X	IOLST		;INPU	C`T/OUTPUT LIST ITE	DM PROCESSING
X	F	D IN		;INPUT/OUTPUT	D@ LIST TERMINATION	D`
X	MTOP		;DEVICE	E POSITIONING/UTIL	E ITY FUNCTIONS
X		E@FIND		;RANDOM ACC	E`ESS RECORD FIND
	FX	EXIT		;PROGRAM 	F TERMINATION
X	AL	F@COR		;DYNAMIC COR	F`E ALLOCATION
X	D	GECOR		;DYNAMIC CO	G RE DEALLOCATION
	G@X	ALCHN		;ALLOCAT	G`E AN I/O CHANNEL
X	DECHN		;DEALLO	H CATE AN I/O CHANN	H@EL
X	TRACE		;TRA	H`CEBACK OF ROUTINE	I CALLS
X	FUNCT			I ;GENERAL OTS INTE	I@RFACE
X	INQU		;I	I`NQUIRE BY UNIT
X	J	FOROP		;MISCELLA	J NEOUS LIBRARY UTI	J@LITIES
X	IFI		;I	J`NTERNAL FILE INPU	KT
X	IFO		;INTERN	K AL FILE OUTPUT
X	K@	MTHER		;MATH LIB	K`RARY ERROR
X	ABO	LRT		;ABORT WITH T	L RACE
X	INQF		;IN	L@QUIRE BY FILE
IF	L`20,<
X	DELTR		;D	MELETE [5000]
X	R	M EWRF		;REWRITE (F	M@ORMATTED) [5000]
X	REWRU		;REWRIT	NE (UNFORMATTED) [	N 5000]
X	UNLOC		;	N@UNLOCK [5014]
> ;End IF20

> MJ,X1P MKQP MK[P MO$P MQ
QMQPMR=Q MR&:`P MRlQ MRuHhP MS4P MVo	P 

PP

	IFNB 

p<C>,< PRINTX ?HX
L used with more 
0than 2 args - A,
P B >

	%%BTS==
p<B> & 7B2
	%%ID
X==<<B>_-^D18> &
0 77	;Get index fi
Peld if any
	%%LF
pT==<B> & ^O77777
7
	IFE <%%IDX>,<
0PRINTX %Index is 
Pzero for HXL A,
pB >

  IFE <%%B
TS & 3B1>,<
	PRI
0NTX ?HXL ERROR - 
PB
  >
  IFN <%
p%BTS & 1B0>,<
	H
RL	A,%%LFT(%%IDX
0)
  >
  IFN <%%
PBTS & 1B1>,<
	HL
pL	A,%%LFT(%%IDX)
  >
T(%%IDX)Qbg  
0Q-

	IFNB 
P<C>,< PRINTX ?HX
pLZ used with more
 than 2 args - A
0, B >

	%%BTS=
P=<B> & 7B2
	%%I
pDX==<<B>_-^D18> 
& 77	;Get index f
0ield if any
	%%L
PFT==<B> & ^O7777
p77
	IFE <%%IDX>,
<PRINTX %Index is
0 zero for HXLZ A
P,B >

  IFE <%
p%BTS & 3B1>,<
	P
RINTX ?HXLZ ERROR
0 - B
  >
  IFN
P <%%BTS & 1B0>,<
p
	HRLZ	A,%%LFT(%
%IDX)
  >
  IFN
0 <%%BTS & 1B1>,<
P
	HLLZ	A,%%LFT(%%IDX)
  >
T(%Qc 
Q[

	IFNB 
0<C>,< PRINTX ?HX
PR used with more 
pthan 2 args - A,
 B >

	%%BTS==
0<B> & 7B2
	%%ID
PX==<<B>_-^D18> &
p 77	;Get index fi
eld if any
	%%LF
0T==<B> & ^O77777
P7
	IFE <%%IDX>,<
pPRINTX %Index is 
zero for HXR A,
0B >

  IFE <%%B
PTS & 3B1>,<
	PRI
pNTX ?HXR ERROR - 
B
  >
  IFN <%
0%BTS & 1B0>,<
	H
PRR	A,%%LFT(%%IDX
p)
  >
  IFN <%%
BTS & 1B1>,<
	HL
0R	A,%%LFT(%%IDX)
  >
T(%%IDX)QcP 
pPQ

	IFNB 
<C>,< PRINTX ?HX
0RE used with more
P than 2 args - A
p, B >

	%%BTS=
=<B> & 7B2
	%%I
0DX==<<B>_-^D18> 
P& 77	;Get index f
pield if any
	%%L
FT==<B> & ^O7777
077
	IFE <%%IDX>,
P<PRINTX %Index is
p zero for HXRE A
,B >

  IFE <%
0%BTS & 3B1>,<
	P
PRINTX ?HXRE ERROR
p - B
  >
  IFN
	 <%%BTS & 1B0>,<
	0
	HRRE	A,%%LFT(%
	P%IDX)
  >
  IFN
	p <%%BTS & 1B1>,<


	HLRE	A,%%LFT(%%IDX)
  >
T(%R5]Q RT\YQ RX`Q @RXhQ  R-y@Q S
 P ]SpP S@Q ^S P SF,}P Sv@P ^S
 JIFN FT10S LIFN FT20SQ HSN[TQ zSnL}P @S~[TQ {S~y`Q bS*5`P ?S,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 ^SJY`P SJK@P SJY@P SJmP SJd[@P SKL@P SK@P YH`P YM`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 DY:|H`P Y:|M`P Y>
@ 	vOi
	IFNB <	v0C>,< PRINTX ?LOAD	vP used with more t	vphan 2 args - A, 	wB >

	%%BTS==<	w0B> & 7B2
	%%IDX	wP==<<B>_-^D18> & 	wp^O77	;Get index f	xield if any
	%%L	x0FT==<B> & ^O7777	xP77
	IFE <%%IDX>,	xp<PRINTX %Index is	y zero for LOAD A	y0,B >

  IFE %%	yPBTS,<
	MOVE	A,	ypB
  >
 IFN <%%B	zTS & 1B0>,<
	HRR	z0Z	A,%%LFT(%%IDX)	zP
  >
  IFN <%%B	zpTS & 1B1>,<
	HLR	{Z	A,%%LFT(%%IDX)	{0
  >
  IFN <%%B	{PTS & 1B2>,<
	%%%	{pS==<%B>_-^D30	;S	|ize of field
	%%	|0%P==<%B> & ^O77		|P;"P"
	LDB	A,[PO	|pINT %%%S,%%LFT(%%	}IDX),%%%P]
  >
X),%%%P]
  >
YB%@PRYC}PYC}PYC<H`PYC<M`PYJ,8SP(YNv[9PYPv[VPYR/tlP [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 ?,tqP ,t{P 	,t)QP ,t+P ,t+P 
_,t.:P 
_,t8`P _,tI7P 
_,tI8P _,tI;P _,tIZP _,tJ0P _,tJ9P _,tJ9P _,t\YP _,tj6P _,tkP _,tkyP _,tlVP _,uwP _,uyP _,u9<P _,u>2P _,uJ6P _,u[rP _,u\WP _,uh6P _,uhYP _,uk2P _,ulQP _,u|P _,u|SP _,v2P 
_,v9P 	_,v
WP9,v)1P:,v+`P<,v-P=P ,vi9P ,w
zP _JY`P _JK@P _JY@P _JmP _Jd[@P _K|`P _KL@P _K@P _LtI6P _Lt^P _Lv8;P _Lv[UP _O$Q a$:Q a&<Q aQ a$@P 	at{9Q  at|sQ @a2-`P a>Mm 	U`M.POINT WID(B),A,POS(B)(aHt]RP aHuyP aJ~@P <aK$J3P aRD P Xc}Q @cv@Q c;}Q etHqP etI1Q @eLP et Q e<Q e>69:P eK-j:Q }eNO) P ePtI6P ePtj<P ePv8yP ePv93P ePv;P ePv[RP ePv[YP e^^yQ `fDP fHP fLP fPP guQ guj`P gum`P gux P guz`P gu|@P gu|[P gu}`P gv:`P gv=`P gvX P gvZ`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 gByP gPtI6P gPtJ9P gPt^P gPui;P gPum6P gPu{P gPv8;P gPv8yP gPv[UP gR-P ?gR@Q gR\I3 	T`M&DEFINE A <-B(P)>INE A gR^h9 	P@M"
 .L==0
	P` IRP A,<.L==.L+1	Q>		;COUNT ARGS
 	Q .N==0

 IRP A,	Q@<
	QIFNB <A>,<
   STKDEF (A,\<	R.L-.N-1>)	;DEFINE	R  NAMED ARG
  > ;	R@END IFNB
  .N==.	R`N+1
	>;END IRP

	ADJSP	P,.L		;	S ALLOCATE STACK SP	S@ACE
	DEFINE	UNST	S`K <	ADJSP P,-.L >	T	;DEFINE DEALLOCA	T TOR
 PURGE .N
OR
 PURGE .N
gR~)  	}PP#
	IFNB <	}pC>,<PRINTX ?STORE	~ with more than 2	~0 args - A, B >

	%%BTS==<B> &	~p 7B2
	%%IDX==<<	B>_-^D18> & 77	;G	0et index field if	P any
	%%LFT==<B	p> & ^O777777
	IF
E <%%IDX>,<PRINTX
0 %Index is zero f
Por STORE A,B >
p

  IFE %%BTS,<

	MOVEM	A,B
  
0>
 IFN <%%BTS & 
P1B0>,<
	HRRM	A,
p%%LFT(%%IDX)
  >

  IFN <%%BTS & 
01B1>,<
	HRLM	A,
P%%LFT(%%IDX)
  >
p
  IFN <%%BTS & 
1B2>,<
	%%%S==<%
0B>_-^D30	;Size o
Pf field
	%%%P==<
p%B> & ^O77	;"P"

	DPB	A,[POINT %
0%%S,%%LFT(%%IDX),%%%P]
  >
X),iPQ i
 P _i@Q _iv@P `i4tYP i4tK8P i4uRP i4v:<P i4v>
P i4v>9P iC& P _iSNpQ jP k@Q k,hzQ k2-`P k;-PQ  kKQP kK[P kNmP mEP m`P Gm~+zP o& P oC& P 
oJt;ZP oNO P 
oR
 P 		
d, 	7@KN	;[5011]Ne	7`w for sixbit stri	8ngs
		TLNE	A,-1	8 	;Skip if local a	8@ddress
		 TXOA		8`A,B1WBP6 ;Global 	9address, make BP 	9 and skip
		HRLI		9@A,(POINT 6,) ;Lo	9`cal address, make BP
	ess, make	
dHX 	5 K8
		TLNE		5@A,-1	;Skip if loc	5`al address
		 TX	6OA	A,B1WBP7 ;Glo	6 bal address, make	6@ BP and skip
		H	6`RLI	A,(POINT 7,)	7 ;Local address, make BP
	ess, 	 	c N$
IFNB <B	c@>,<PRINTX ?DCALL 	c`CONTINUATION ADDR	dESS SPECIFIED - I	d GNORED>
	EXTERN		d@D.A
	JRST	D.A
A
	JRST	D.A	eN2
IFNB <B	e >,<PRINTX ?DJCAL 	e@CONTINUATION ADDR	e`ESS SPECIFIED - I	fGNORED>
	EXTERN		f D.A
	ERJMP	D.A

	ERJMP	D.A	 	f`N>
	EXTERN		gF.A
IFB <B>,<		g PUSHJ	P,F.A >
I	g@FNB <B>,<JRST	[P	g`USHJ P,F.A
			JRST B] >
			J	.,@ 	_@N

	ENTRY	_`	F.B
F.B:
		P	`USHJ	P,FORER.##
	` 		"A"			;ERROR C	`@HARACTER
		SIXBI	``T	/B/		;ERROR PR	aEFIX
		EXP	C,D	a 		;ERROR NUMBERS
		POINT 7,[ASCIZ	a` \E\]	;POINTER T	bO MESSAGE
		EXP		b G		;ATTRIBUTE G	b@
IRP F,	<F>				b`;ARGUMENTS, IF ANY

NTS, IF AN	T86 	h NJ
	EXTERN		h@F.A
IFB <B>,<		h`ERCAL	F.A >
IFN	iB <B>,<ERJMP	[PU	i SHJ P,F.A
			JRST B] >
			JR	&|\Y 	[ Mx

	INTER	[@N	E.B
E.B:

	[` IF2,<IFNDEF %IOE	\RR,<EXTERN %IOERR	\ >>
		PUSHJ	P,%IO	\@ERR
		"A"			;ER	\`ROR CHARACTER
			]SIXBIT	/B/		;ERR	] OR PREFIX
		EXP		]@C,D		;ERROR NUM	]`BERS
		POINT 7,[	^ASCIZ \E\]	;POIN	^ TER TO MESSAGE
		^@	EXP	G		;ATTRIBU	^`TE G
IRP F,	<	_F>			;ARGUMENTS, IF ANY

NTS, 	Nu 	Z`MV
	$ECALL	SNH

	$ECALL	0Q 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 $(2P -`Q .`P 5	Q 05Q N+PP N<Q d[@P 4-P 5rP 5`Q 6M`P 6N8Q 
|i@P |k@P F@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 ?I7P ?yP ?
HtQ B
LxQ B=Q B6H1PC}P C%@PF=zPFmQ Fv=zQ J,=P J-h6Q JxQ J|lrP KRP N
RmP SL@P S'`Q 
VYQQ 

Vd[@P Vv[ P W:=P W;ZP ^
L@P _L@P _@P _$@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