Google
 
Trailing-Edge - PDP-10 Archives - FORTRAN-10_Alpha_31-jul-86 - forprm.unv
There are 32 other files named forprm.unv in the archive. Click here to see a list.
x
,R3@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.: 	lpO

  IFG 	m<$P+^D<B>-^D35>,	m0<
	$P==-1
	$LOC	mP==$LOC+1
	>
  $	mpP==$P+^D<B>		;Fi	nnd end position i	n0n word

	DFN (	nPA,$LOC)	;Plain A	np is offset
	%A=	o=$P	;RH (%NAME) =	o0 rightmost bit
	oP
  %%DONE==0
  I	opFE <B - ^D18>,<		p;Halfword
	IFE <	p0$P - ^D35>,<	;Rig	pPht halfword

			ppA==A+1B0
		%%D	qONE==1
	>
	IFE 	q0<$P - ^D17>,<	;Le	qPft halfword

			qpA==A+1B1
		%%D	rONE==1
	>
  >
	r0  IFE %%DONE,<				rP;Not a halfword
	rp
		A==A+1B2
		s	%A==%A+ <<B>_	s0^D30>	;Byte size in LH
  >
ze I6;W 	spO'

	DFN		tA,B	;Check for n	t0ame conflict
				tP	; and define it 	tpthe same
	%A==%B


	%A==%I6= 	iNH
	$LOC==0
	$P==-1
	==0I6y 	kNc
(@

IFGE $	k0P,<
	$P==-1
	$L	kPOC==$LOC+1	;Jump 	kpto next word
	>

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

	$LOC==$LOC+B
RDNT1B

IpQ I0P IMD@Q IMKQ Ip 	i@NR

	IF1,<	i`
	IFDEF A, PRIN	jTX ?A ALREADY DE	j FINED
	>;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 	T@M$
	SETZM	A
	SETZM	1+AIPtLuPQIPtMPIIPuLPIPu]PQIPum6PIIPvPIPvZL`P IZL9 P IZMpQ I[&pP I['Q KF:=P K7p 	VML

	ENTRY	V 	E.B
E.B:				;	V@DEFINE THE ERROR 	V`IF NOT NULL
		"	WA"			;ERROR CHARA	W CTER
		SIXBIT	/	W@B/		;ERROR PREFIX	W`
		EXP	C,D		;E	XRROR NUMBERS
		P	X OINT 7,[ASCIZ \E	X@\]	;POINTER TO ME	X`SSAGE
		EXP	G			Y;ATTRIBUTE G
IR	Y P F,	<F>			;ARG	Y@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\ 	N Lz	ENTRY	A.	N@
	SIXBIT	/A./
	N`A.:

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

END IFNB M&eD@Q ^M&eD`Q _M&eh6P ,M&f

YP M&f<P M2

|`P M2  	U@M,<A>B<POS(B)><A>B<POS(M28 	:@KT
 %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
X	ERJMP,ERCAL,GJFX
83,GJFX18,GJFX19,G
JFX24,GJFX27
	PU
!hRGE	IOX4
	PURGE	
"IPCFX6,IPCFX8
	P
"(URGE	LNGFX1
	PUR
"HGE	NPXAMB,NPXNC,N
"hPXNOM
	PURGE	OPN
#X2,OPNX9
	PURGE	JS%DEV

URGE	M?i1 	;Ln

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	@ UT		;FORMATTED OU	@@TPUT
X	RTB		;UNF	@`ORMATTED BINARY I	ANPUT
X	WTB		;UNF	A ORMATTED BINARY O	A@UTPUT
X	ENC		;EN	A`CODE
X	DEC		;DEC	BODE
X	NLI		;NAME	B LIST INPUT
X	NLO	B@		;NAMELIST OUTPU	B`T
X	IOLST		;INPU	CT/OUTPUT LIST ITE	C M PROCESSING
X	F	C@IN		;INPUT/OUTPUT	C` LIST TERMINATION	D
X	MTOP		;DEVICE	D  POSITIONING/UTIL	D@ITY FUNCTIONS
X		D`FIND		;RANDOM ACC	EESS RECORD FIND
	E X	EXIT		;PROGRAM 	E@TERMINATION
X	AL	E`COR		;DYNAMIC COR	FE ALLOCATION
X	D	F ECOR		;DYNAMIC CO	F@RE DEALLOCATION
	F`X	ALCHN		;ALLOCAT	GE AN I/O CHANNEL
X	DECHN		;DEALLO	G@CATE AN I/O CHANN	G`EL
X	TRACE		;TRA	HCEBACK OF ROUTINE	H  CALLS
X	FUNCT			H@;GENERAL OTS INTE	H`RFACE
X	INQU		;I	INQUIRE BY UNIT
X	I 	FOROP		;MISCELLA	I@NEOUS LIBRARY UTI	I`LITIES
X	IFI		;I	JNTERNAL FILE INPU	J T
X	IFO		;INTERN	J@AL FILE OUTPUT
X	J`	MTHER		;MATH LIB	KRARY ERROR
X	ABO	K RT		;ABORT WITH T	K@RACE
X	INQF		;IN	K`QUIRE BY FILE
IF	L20,<
X	DELTR		;D	L ELETE [5000]
X	R	L@EWRF		;REWRITE (F	L`ORMATTED) [5000]
X	REWRU		;REWRIT	M E (UNFORMATTED) [	M@5000]
X	UNLOC		;	M`UNLOCK [5014]
> ;End IF20

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

	IFNB 

<C>,< PRINTX ?HX

0L used with more 

Pthan 2 args - A,

p B >

	%%BTS==
<B> & 7B2
	%%ID
0X==<<B>_-^D18> &
P 77	;Get index fi
peld if any
	%%LF

T==<B> & ^O77777

07
	IFE <%%IDX>,<

PPRINTX %Index is 

pzero for HXL A,
B >

  IFE <%%B
0TS & 3B1>,<
	PRI
PNTX ?HXL ERROR - 
pB
  >
  IFN <%
%BTS & 1B0>,<
	H
0RL	A,%%LFT(%%IDX
P)
  >
  IFN <%%
pBTS & 1B1>,<
	HL
L	A,%%LFT(%%IDX)
  >
T(%%IDX)Qbg  
PQ'

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

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

  IFE <%
%BTS & 3B1>,<
	P
0RINTX ?HXLZ ERROR
P - B
  >
  IFN
p <%%BTS & 1B0>,<

	HRLZ	A,%%LFT(%
0%IDX)
  >
  IFN
P <%%BTS & 1B1>,<
p
	HLLZ	A,%%LFT(%%IDX)
  >
T(%Qc 
0QU

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

	%%BTS==
P<B> & 7B2
	%%ID
pX==<<B>_-^D18> &
 77	;Get index fi
0eld if any
	%%LF
PT==<B> & ^O77777
p7
	IFE <%%IDX>,<
PRINTX %Index is 
0zero for HXR A,
PB >

  IFE <%%B
pTS & 3B1>,<
	PRI
NTX ?HXR ERROR - 
0B
  >
  IFN <%
P%BTS & 1B0>,<
	H
pRR	A,%%LFT(%%IDX
)
  >
  IFN <%%
0BTS & 1B1>,<
	HL
PR	A,%%LFT(%%IDX)
  >
T(%%IDX)QcP 
PK

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

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

  IFE <%
P%BTS & 3B1>,<
	P
pRINTX ?HXRE ERROR
 - B
  >
  IFN
0 <%%BTS & 1B0>,<
P
	HRRE	A,%%LFT(%
p%IDX)
  >
  IFN
	 <%%BTS & 1B1>,<
	0
	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>

@ 	u0Oc
	IFNB <	uPC>,< PRINTX ?LOAD	up used with more t	vhan 2 args - A, 	v0B >

	%%BTS==<	vPB> & 7B2
	%%IDX	vp==<<B>_-^D18> & 	w^O77	;Get index f	w0ield if any
	%%L	wPFT==<B> & ^O7777	wp77
	IFE <%%IDX>,	x<PRINTX %Index is	x0 zero for LOAD A	xP,B >

  IFE %%	xpBTS,<
	MOVE	A,	yB
  >
 IFN <%%B	y0TS & 1B0>,<
	HRR	yPZ	A,%%LFT(%%IDX)	yp
  >
  IFN <%%B	zTS & 1B1>,<
	HLR	z0Z	A,%%LFT(%%IDX)	zP
  >
  IFN <%%B	zpTS & 1B2>,<
	%%%	{S==<%B>_-^D30	;S	{0ize of field
	%%	{P%P==<%B> & ^O77		{p;"P"
	LDB	A,[PO	|INT %%%S,%%LFT(%%	|0IDX),%%%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 	UM(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 	TM DEFINE A <-B(P)>INE A gR^h9 	O`M
 .L==0
	P IRP A,<.L==.L+1	P >		;COUNT ARGS
 	[email protected]==0

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

	ADJSP	P,.L		;	R@ALLOCATE STACK SP	R`ACE
	DEFINE	UNST	SK <	ADJSP P,-.L >	S 	;DEFINE DEALLOCA	S@TOR
 PURGE .N
OR
 PURGE .N
gR~)  	|pP
	IFNB <	}C>,<PRINTX ?STORE	}0 with more than 2	}P args - A, B >

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


  IFE %%BTS,<
0
	MOVEM	A,B
  
P>
 IFN <%%BTS & 
p1B0>,<
	HRRM	A,
%%LFT(%%IDX)
  >
0
  IFN <%%BTS & 
P1B1>,<
	HRLM	A,
p%%LFT(%%IDX)
  >

  IFN <%%BTS & 
01B2>,<
	%%%S==<%
PB>_-^D30	;Size o
pf field
	%%%P==<
%B> & ^O77	;"P"
0
	DPB	A,[POINT %
P%%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, 	6`KH	;[5011]Ne	7w for sixbit stri	7 ngs
		TLNE	A,-1	7@	;Skip if local a	7`ddress
		 TXOA		8A,B1WBP6 ;Global 	8 address, make BP 	8@and skip
		HRLI		8`A,(POINT 6,) ;Lo	9cal address, make BP
	ess, make	
dHX 	4@K2
		TLNE		4`A,-1	;Skip if loc	5al address
		 TX	5 OA	A,B1WBP7 ;Glo	5@bal address, make	5` BP and skip
		H	6RLI	A,(POINT 7,)	6  ;Local address, make BP
	ess, 	 	b@N
IFNB <B	b`>,<PRINTX ?DCALL 	cCONTINUATION ADDR	c ESS SPECIFIED - I	c@GNORED>
	EXTERN		c`D.A
	JRST	D.A
A
	JRST	D.A	d N,
IFNB <B	d@>,<PRINTX ?DJCAL 	d`CONTINUATION ADDR	eESS SPECIFIED - I	e GNORED>
	EXTERN		e@D.A
	ERJMP	D.A

	ERJMP	D.A	 	fN8
	EXTERN		f F.A
IFB <B>,<		f@PUSHJ	P,F.A >
I	f`FNB <B>,<JRST	[P	gUSHJ 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	` EFIX
		EXP	C,D	`@		;ERROR NUMBERS
		POINT 7,[ASCIZ	a \E\]	;POINTER T	a O MESSAGE
		EXP		a@G		;ATTRIBUTE G	a`
IRP F,	<F>				b;ARGUMENTS, IF ANY

NTS, IF AN	T86 	g@ND
	EXTERN		g`F.A
IFB <B>,<		hERCAL	F.A >
IFN	h B <B>,<ERJMP	[PU	h@SHJ P,F.A
			JRST B] >
			JR	&|\Y 	Z@Mr

	INTER	Z`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 	ZMP
	$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