Google
 
Trailing-Edge - PDP-10 Archives - bb-4157h-bm_fortran20_v10_16mt9 - fortran-ots-debugger/forprm.unv
There are 32 other files named forprm.unv in the archive. Click here to see a list.
x
,51@P C

tP C

um6P C

v*7P C

v*7P C

v:7P C

v:7P C

v;zP CQ CmP #C;P CZ P DG<,Q bDM4kP E0um6P E0w)9P E2]`P E2^>@Q  E2u0Q E>69:P EC8P ENO Q NEV4P 

EV4=QEV5k P Eg%`P Eg&

Q G

tI;P G

tkyP G

uLzP G

ukwP G

vLWP G"n:=P @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.: 9	

  IFG Y<$P+^D<B>-^D35>,x<
	$P==-1
	$LOC

==$LOC+1
	>
  $

8P==$P+^D<B>		;Fi

Xnd end position i

xn word

	DFNL(	;Plain A
	%A=RHo(%NAME) =

  %%DONE==0
  I8FE <B - ^D18>,<	X;Halfword
	IFE <x$P - ^D35>,<	;Right halfword

		8A==A+1B0
		%%DXONE==1
	>
	IFE x<$P - ^D17>,<	;Left halfword

		8A==A+1B1
		%%DXONE==1
	>
  >
x  IFE %%DONE,<			;Not a halfword
8
		A==A+1B2
	X	%A==%A+ <<B>_x^D30>	;Byte size in LH
  >
ze I6;W 9	

	DFN	YA,B	;Check for nxame conflict
				; and define it 8the same
	%A==%B


	%A==%I6= I<
	$LOC==0
	$P==-1
	==0I6y 	IWFp

IFGE $	yP,<
	$P==-1
	$L
OC==$LOC+1	;Jump 
8to next word
	>
X

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

	$LOC==$LOC+B


7H1B

IpQ I0P ,Ip 	F

	IF1,<)
	IFDEF A, PRINHTX ?A ALREADY DEhFINED
	>;END IF1

	A==B

I$tLuP I$u]P I$u}P I$v+9P I$vMP I'h6P 4I'Q I2-`P OI6

,`P NI6|I Q NI8rHP I8r$P I8rU+P I8rdJP I8sP I8tI3P I8v>9P IJ&i@Q ILtI6P ILt^P ILuJ9P ILukzP ILvP ILvQP ILv

WP ILv8;P ILv=1P IN.NV s	
	SETZM	A
	SETZM	1+AIPtLuPQIPtMPIIPuLPIPu]PQIPum6PIIPvPIIPv IZMpQ IZUj`Q IZlIQ IZmmQ I['Q KF:=P K7p tI@

	ENTRYti	E.B
E.B:				;uDEFINE THE ERROR u(IF NOT NULL
		"uHA"			;ERROR CHARAuhCTER
		SIXBIT	/vB/		;ERROR PREFIXv(
		EXP	C,D		;EvHRROR NUMBERS
		PvhOINT 7,[ASCIZ \Ew\]	;POINTER TO MEw(SSAGE
		EXP	G		wH;ATTRIBUTE G
IRwhP F,	<F>			;ARGxUMENTS, IF ANY

NTS, IF ANY
K:[TQ {K:&P K>5`P KR:=P Kc P DLP L&LQ  L.LQ @L>LQ MP 	M,kyP!M0P MvL\ kif	ENTRY	A.l	
	SIXBIT	/A./
l(A.:

IFNB <B>lH,
<	ENTRY	B.
lhB.:
> ;END IFNB B

END IFNB M&eh6P <M&f

YP M&f<P M2

|`P M2  t	 <A>B<POS(B)><A>B<POS(M28 Z)R
 %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 :!



	PURGE:A	ERJMP,ERCAL,GJFX9a3,GJFX18,GJFX19,G:JFX24,GJFX27
	PU@ARGE	IOX4
	PURGE	@`IPCFX6,IPCFX8
	PAURGE	LNGFX1
	PURA GE	NPXAMB,NPXNC,NA@PXNOM
	PURGE	OPNA`X2,OPNX9
	PURGE	JS%DEV

URGE	M?i1 ZqZ

X	INIT]I		;FOROTS INITIAL]hIZATION
X	FORER	^	;ERROR PROCESSOR^(
X	OPEN		;DEVICE^H OPEN
X	CLOSE		;^hDEVICE CLOSE
X	E_XIT1		;CLOSE ALL _(FILES
X	IN		;FOR_HMATTED INPUT
X	O_hUT		;FORMATTED OU`TPUT
X	RTB		;UNF`(ORMATTED BINARY I`HNPUT
X	WTB		;UNF`hORMATTED BINARY OaUTPUT
X	ENC		;ENa(CODE
X	DEC		;DECaHODE
X	NLI		;NAMEahLIST INPUT
X	NLOb		;NAMELIST OUTPUb(T
X	IOLST		;INPUbHT/OUTPUT LIST ITEbhM PROCESSING
X	FcIN		;INPUT/OUTPUTc( LIST TERMINATIONcH
X	MTOP		;DEVICEch POSITIONING/UTILdITY FUNCTIONS
X	d(FIND		;RANDOM ACCdHESS RECORD FIND
dhX	EXIT		;PROGRAM eTERMINATION
X	ALe(COR		;DYNAMIC COReHE ALLOCATION
X	DehECOR		;DYNAMIC COfRE DEALLOCATION
f(X	ALCHN		;ALLOCATfHE AN I/O CHANNEL
X	DECHN		;DEALLOgCATE AN I/O CHANNg(EL
X	TRACE		;TRAgHCEBACK OF ROUTINEgh CALLS
X	FUNCT		h;GENERAL OTS INTEh(RFACE
X	INQU		;IhHNQUIRE BY UNIT
Xhh	FOROP		;MISCELLAiNEOUS LIBRARY UTIi(LITIES
X	IFI		;IiHNTERNAL FILE INPUihT
X	IFO		;INTERNjAL FILE OUTPUT
Xj(	MTHER		;MATH LIBjHRARY ERROR
X	ABOjhRT		;ABORT WITH TkRACE
X	INQF		;INk(QUIRE BY FILE

IRE BY FILE

MJ,X1P MKQP MK[P MO$P MQ
P MQQ MR=Q MR&:`P MRlQ MRuHhP MS4P MVo	P OpP MOP,SP  OP,(9Q Qb` (9
m

	IFNB (Y<C>,< PRINTX ?HX(xL 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 HXL A,+XB >

  IFE <%%B+xTS & 3B1>,<
	PRI,NTX ?HXL ERROR - ,8B
  >
  IFN <%,X%BTS & 1B0>,<
	H,xRL	A,%%LFT(%%IDX-)
  >
  IFN <%%-8BTS & 1B1>,<
	HL-XL	A,%%LFT(%%IDX)
  >
T(%%IDX)Qbg  .

	IFNB .9<C>,< PRINTX ?HX.XLZ used with more.x than 2 args - A/, B >

	%%BTS=/8=<B> & 7B2
	%%I/XDX==<<B>_-^D18> /x& 77	;Get index f0ield if any
	%%L08FT==<B> & ^O77770X77
	IFE <%%IDX>,0x<PRINTX %Index is1 zero for HXLZ A18,B >

  IFE <%1X%BTS & 3B1>,<
	P1xRINTX ?HXLZ ERROR2 - B
  >
2IFN28 <%%BTS & 1B0>,<
	HRLZ	A,%%LFT(%2x%IDX)
  >
3IFN3 <%%BTS & 1B1>,<
	HLLZ	A,%%LFT(%%IDX)
  >
T(%Qc 3yI

	IFNB 4<C>,< PRINTX ?HX48R used with more 4Xthan 2 args - A,4x B >

	%%BTS==5<B> & 7B2
	%%ID58X==<<B>_-^D18> &5X 77	;Get index fi5xeld if any
	%%LF6T==<B> & ^O77777687
	IFE <%%IDX>,<6XPRINTX %Index is 6xzero for HXR A,7B >

  IFE <%%B78TS & 3B1>,<
	PRI7XNTX ?HXR ERROR - 7xB
  >
  IFN <%8%BTS & 1B0>,<
	H88RR	A,%%LFT(%%IDX8X)
  >
  IFN <%%8xBTS & 1B1>,<
	HL9R	A,%%LFT(%%IDX)
  >
T(%%IDX)QcP "Y
?

	IFNB "y<C>,< PRINTX ?HX#RE used with more#8 than 2 args - A#X, B >

	%%BTS=#x=<B> & 7B2
	%%I$DX==<<B>_-^D18> $8& 77	;Get index f$Xield if any
	%%L$xFT==<B> & ^O7777%77
	IFE <%%IDX>,%8<PRINTX %Index is%X zero for HXRE A%x,B >

  IFE <%&%BTS & 3B1>,<
	P&8RINTX ?HXRE ERROR&X - B
  >
'IFN&x <%%BTS & 1B0>,<
	HRRE	A,%%LFT(%'8%IDX)
  >
'IFN'X <%%BTS & 1B1>,<
	HLRE	A,%%LFT(%%IDX)
  >
T(%R5]Q RT\YQ RX`Q @RXhQ  SpP S P SF,}P Sv@P 
  tIFN FT10S  vIFN 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

vPYS,uwPKS,uyPYS,u]PmS,uk6P[S,v)1PLS,v[TPS6<kPkS:'QS;[ZQzS>5@P S>^yQ `S?X`P S?X@P SC& P 
  IF2,<ImIFNDEF E.IJE,<EXTEmhRN E.IJE>>
	ERCAL	E.IJE
 	ERCAY%{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:|H`P Y:|M`P Y>

@ y	W
	IFNB <C>,< PRINTX ?LOAD8 used with more tXhan 2 args - A, xB >

	%%BTS==<B> & 7B2
	%%IDX8==<<B>_-^D18> & X^O77	;Get index fxield if any
	%%LFT==<B> & ^O7777877
	IFE <%%IDX>,X<PRINTX %Index isx zero for LOAD A,B >

  IFE %%8BTS,<
	MOVE	A,XB
  >
 IFN <%%BxTS & 1B0>,<
	HRRZ	A,%%LFT(%%IDX)8
  >
  IFN <%%BXTS & 1B1>,<
	HLRxZ	A,%%LFT(%%IDX)
  >
  IFN <%%B8TS & 1B2>,<
	%%%XS==<%B>_-^D30	;Sxize of field
	%%%P==<%B> & ^O77	8;"P"
	LDB	A,[POXINT %%%S,%%LFT(%%xIDX),%%%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 ,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 a5| Aa$@P a2-`P a>Mm sIPOINT WID(B),A,POS(B)(aBv=P aHt]RP aHuyP aJ~@P LaK$J3P c}Q @cv@Q c;}Q eP 	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 gP-I7Q gP.N8Q ~gPtI6P gPtJ9P gPt^P gPui;P gPum6P gPu{P gPv8;P gPv8yP gPv[UP gR-P ?gR@Q gR\I3 rIDEFINE A <-B(P)>INE A gR^h9 n)
 .L==0
nI IRP A,<.L==.L+1nh>		;COUNT ARGS
 o.N==0

 IRP A,o(<
oIFNB <A>,<
   STKDEF (A,\<oh.L-.N-1>)	;DEFINEp NAMED ARG
  > ;p(END IFNB
  .N==.pHN+1
>h;END IRP

	ADJSP	P,.L		;qALLOCATE STACK SPq(ACE
	DEFINE	UNSTqHK <	ADJSP P,-.L >qh	;DEFINE DEALLOCArTOR
 PURGE .N
OR
 PURGE .N
gR~)  9

	IFNB <YC>,<PRINTX ?STOREx with more than 2 args - A, B >

	%%BTS==<B> &X 7B2
	%%IDX==<<xB>_-^D18> & 77	;Get index field if8 any
	%%LFT==<BX> & ^O777777
	IFxE <%%IDX>,<PRINTX %Index is zero f8or STORE A,B >

IFE %%BTS,<
	MOVEM	A,B
  >
 IFN <%%BTS & 81B0>,<
	HRRM	A,X%%LFT(%%IDX)
  >x
  IFN <%%BTS &  1B1>,<
	HRLM	A, 8%%LFT(%%IDX)
  > X
  IFN <%%BTS &  x1B2>,<
	%%%S==<%!B>_-^D30	;Size o!8f field
	%%%P==<!X%B> & ^O77	;"P"
	DPB	A,[POINT %"%%S,%%LFT(%%IDX),%%%P]
  >
X),iPQ i4tYP i4tK8P i4u	P i4uRP i4v:<P i4v>9P i7j6P iSNpQ jP k@Q k2-`P k;-PQ  kKQP kK[P kNmP kN.*2P 'mEP m`P Om~+zP o& P 

oC& P oJt;ZP oNO P 

oR

 P 
qP 
q4Xb CqO4Xb C	
dHX VyE
		TLNE	WA,-1	;Skip if locW8al address
		 TXWXOA	A,B1WBP7 ;GloWxbal address, makeX BP and skip
		HX8RLI	A,(POINT 7,)XX ;Local address, make BP
	ess, 	 	
IFNB <B)>,<PRINTX ?DCALL HCONTINUATION ADDRhESS SPECIFIED - IGNORED>
	EXTERN	(D.A
	JRST	D.A
A
	JRST	D.Ai 
IFNB <B	>,<PRINTX ?DJCAL (CONTINUATION ADDRHESS SPECIFIED - IhGNORED>
	EXTERN	D.A
	ERJMP	D.A

	ERJMP	D.A	 I,
	EXTERN	iF.A
IFB <B>,<	PUSHJ	P,F.A >
I(FNB <B>,<JRST	[PHUSHJ P,F.A
			JRST B] >
			J	.,@ })

	ENTRY}I	F.B
F.B:
		P}hUSHJ	P,FORER.##
~		"A"			;ERROR C~(HARACTER
		SIXBI~HT	/B/		;ERROR PR~hEFIX
		EXP	C,D		;ERROR NUMBERS
		POINT 7,[ASCIZH \E\]	;POINTER ThO MESSAGE
		EXP	G		;ATTRIBUTE G(
IRP F,	<F>			H;ARGUMENTS, IF ANY

NTS, IF AN	T86 	8
	EXTERN	)F.A
IFB <B>,<	HERCAL	F.A >
IFNhB <B>,<ERJMP	[PUSHJ P,F.A
			JRST B] >
			JR	&|\Y y	f

	INTERy)N	E.B
E.B:

yH IF2,<IFNDEF %IOEyhRR,<EXTERN %IOERRz>>
		PUSHJ	P,%IOz(ERR
		"A"			;ERzHROR CHARACTER
		zhSIXBIT	/B/		;ERR{OR PREFIX
		EXP	{(C,D		;ERROR NUM{HBERS
		POINT 7,[{hASCIZ \E\]	;POIN|TER TO MESSAGE
	|(	EXP	G		;ATTRIBU|HTE G
IRP F,	<|hF>			;ARGUMENTS, IF ANY

NTS, 	Nu xID
	$ECALL	SNH

	$ECALL	0Q ;ZP 4@P 	iVP 
e;@P 
e<}P 
ej`Q 	
|lrP pP @Q 

,h2P ,hzQ 

NK@P NLP Q 
v;P v;	P X`P $(2P-`Q.`PN+PP N<Q44-P 5rP 5`Q 5+UQ 5YQ 5[ZQ 6N8Q |i@P |k@P F@P 

PMKPPMLPMLxPZdyPm~+Q:=P -^P -`P &mP &Tk@P &lyVP &tNQ &|j7P &~)1P &~=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 ClzP C}P F=zP FmQ Fv=zQ J

P=J,=PDJ-h6QJxQ$J|lrPKRPNn	TP S'`Q 

Vd[@P Vv[ P W:=P W;ZP W\TP Z.+@P ^

L@P _L@P _@P _$@P b

PEH1PF(1PS@P4LuP4MP5LP5]P 5m6P 6P 6
 P BmK{P Bn)9P B|P B|P B|=P B|=	P B|H:P B|y:P B~
P C4;ZP C5Y6P C5h6P C6>6P I*	P NTIP NTK+P NTK,P NTK0P NTK1P NTK4P O$H:P O%I7P O&