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

tP C

u9<P C

um6P C

v*7P C

v*7P C

v:7P C

v:7P C

v;zPCQ !CmP KC;P CZ P DG<,Q JDG<,Q bDM4kP E0um6P E0w)9P E2]`P E2^>@Q   E2u0Q E>69:P EC8P ENO Q SEV4P EV4=Q !EV5k P Eg%`P Eg&

G

P 

yP 
G

}P G

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 Hz Q H[vQ  HHyQ  H>-Q @IP I[TQ |I4.: G14o

  IFG GQ<$P+^D<B>-^D35>,Gp<
	$P==-1
	$LOCH==$LOC+1
	>
  $H0P==$P+^D<B>		;FiHPnd end position iHpn word

	DFN (IA,$LOC)	;Plain AI0 is offset
	%A=IP=$P	;RH (%NAME) =Ip rightmost bit
J
  %%DONE==0
  IJ0FE <B - ^D18>,<	JP;Halfword
	IFE <Jp$P - ^D35>,<	;RigKht halfword

		K0A==A+1B0
		%%DKPONE==1
	>
	IFE Kp<$P - ^D17>,<	;LeLft halfword

		L0A==A+1B1
		%%DLPONE==1
	>
  >
Lp  IFE %%DONE,<			M;Not a halfword
M0
		A==A+1B2
	MP	%A==%A+ <<B>_Mp^D30>	;Byte size in LH
  >
ze I6;W N14{

	DFN	NQA,B	;Check for nNpame conflict
			O	; and define it O0the same
	%A==%B


	%A==%I6= CA4
	$LOC==0
	$P==-1
	==0I6y EA47@

IFGE $EqP,<
	$P==-1
	$LFOC==$LOC+1	;Jump F0to next word
	>P

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

	$LOC==$LOC+B
84(1B

IpQ !I0P %Ip D4&

	IF1,<D!
	IFDEF A, PRIND@TX ?A ALREADY DED`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 TI6

,`P SI6|I Q SI8rHP 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 /2x
	SETZM	A
	SETZM	1+AIPtLuPPIPtMPQIPuLPIIPu]PIPum6PQIPvPIIPv #IZL9 P IZMpQ #IZUj`Q #IZlIQ #IZmmQ #I['Q #KF:=P K7p 0A3 

	ENTRY0a	E.B
E.B:				;1DEFINE THE ERROR 1 IF NOT NULL
		"1@A"			;ERROR CHARA1`CTER
		SIXBIT	/2B/		;ERROR PREFIX2 
		EXP	C,D		;E2@RROR NUMBERS
		P2`OINT 7,[ASCIZ \E3\]	;POINTER TO ME3 SSAGE
		EXP	G		3@;ATTRIBUTE G
IR3`P F,	<F>			;ARG4UMENTS, IF ANY

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

IFNB <B>(@,
<	ENTRY	B.
(`B.:
> ;END IFNB B

END IFNB M&eh6P 5M&f

YP M&f<P $M2

|`P M2  03<A>B<POS(B)><A>B<POS(M28 1 
 %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 v7p

	PURGEuY	ERJMP,ERCAL,GJFXv93,GJFX18,GJFX19,GuyJFX24,GJFX27
	PU|aRGE	IOX4
	PURGE	}IPCFX6,IPCFX8
	P} URGE	LNGFX1
	PUR}@GE	NPXAMB,NPXNC,N}`PXNOM
	PURGE	OPN~X2,OPNX9
	PURGE	JS%DEV

URGE	M?i1 I2:

X	INITA		;FOROTS INITIAL`IZATION
X	FORER		;ERROR PROCESSOR 
X	OPEN		;DEVICE@ OPEN
X	CLOSE		;`DEVICE CLOSE
X	EXIT1		;CLOSE ALL  FILES
X	IN		;FOR@MATTED INPUT
X	O`UT		;FORMATTED OUTPUT
X	RTB		;UNF ORMATTED BINARY I@NPUT
X	WTB		;UNF`ORMATTED BINARY OUTPUT
X	ENC		;EN CODE
X	DEC		;DEC@ODE
X	NLI		;NAME`LIST INPUT
X	NLO		;NAMELIST OUTPU T
X	IOLST		;INPU@T/OUTPUT LIST ITE`M PROCESSING
X	FIN		;INPUT/OUTPUT  LIST TERMINATION@
X	MTOP		;DEVICE` POSITIONING/UTILITY FUNCTIONS
X	 FIND		;RANDOM ACC@ESS RECORD FIND
`X	EXIT		;PROGRAM TERMINATION
X	AL COR		;DYNAMIC COR@E ALLOCATION
X	D`ECOR		;DYNAMIC CO RE DEALLOCATION
 `X	ALCHN		;ALLOCAT @E AN I/O CHANNEL
X	DECHN		;DEALLO!CATE AN I/O CHANN! EL
X	TRACE		;TRA!@CEBACK OF ROUTINE!` CALLS
X	FUNCT		";GENERAL OTS INTE" RFACE
X	INQU		;I"@NQUIRE BY UNIT
X"`	FOROP		;MISCELLA#NEOUS LIBRARY UTI# LITIES
X	IFI		;I#@NTERNAL FILE INPU#`T
X	IFO		;INTERN$AL FILE OUTPUT
X$ 	MTHER		;MATH LIB$@RARY ERROR
X	ABO$`RT		;ABORT WITH T%RACE
X	INQF		;IN% QUIRE BY FILE
IF%@20,<
X	DELTR		;D%`ELETE [5000]
X	R&EWRF		;REWRITE (F& ORMATTED) [5000]
X	REWRU		;REWRIT&`E (UNFORMATTED) ['5000]
X	UNLOC		;' UNLOCK [5014]
> ;End IF20

> MJ,X1P MKQP MK[P MO$P MQ
PMQQMR=QHMR&:`PMR/P OpP FOP,SP  OP,(9Q Qb` d16M

	IFNB dQ<C>,< PRINTX ?HXdpL used with more ethan 2 args - A,e0 B >

	%%BTS==eP<B> & 7B2
	%%IDepX==<<B>_-^D18> &f 77	;Get index fif0eld if any
	%%LFfPT==<B> & ^O77777fp7
	IFE <%%IDX>,<gPRINTX %Index is g0zero for HXL A,gPB >

  IFE <%%BgpTS & 3B1>,<
	PRIhNTX ?HXL ERROR - h0B
  >
  IFN <%hP%BTS & 1B0>,<
	HhpRL	A,%%LFT(%%IDXi)
  >
  IFN <%%i0BTS & 1B1>,<
	HLiPL	A,%%LFT(%%IDX)
  >
T(%%IDX)Qbg  j6{

	IFNB j1<C>,< PRINTX ?HXjPLZ used with morejp than 2 args - Ak, B >

	%%BTS=k0=<B> & 7B2
	%%IkPDX==<<B>_-^D18> kp& 77	;Get index flield if any
	%%Ll0FT==<B> & ^O7777lP77
	IFE <%%IDX>,lp<PRINTX %Index ism zero for HXLZ Am0,B >

  IFE <%mP%BTS & 3B1>,<
	PmpRINTX ?HXLZ ERRORn - B
  >
nIFNn0 <%%BTS & 1B0>,<
	HRLZ	A,%%LFT(%np%IDX)
  >
oIFNo <%%BTS & 1B1>,<
	HLLZ	A,%%LFT(%%IDX)
  >
T(%Qc oq7)

	IFNB p<C>,< PRINTX ?HXp0R used with more pPthan 2 args - A,pp B >

	%%BTS==q<B> & 7B2
	%%IDq0X==<<B>_-^D18> &qP 77	;Get index fiqpeld if any
	%%LFrT==<B> & ^O77777r07
	IFE <%%IDX>,<rPPRINTX %Index is rpzero for HXR A,sB >

  IFE <%%Bs0TS & 3B1>,<
	PRIsPNTX ?HXR ERROR - spB
  >
  IFN <%t%BTS & 1B0>,<
	Ht0RR	A,%%LFT(%%IDXtP)
  >
  IFN <%%tpBTS & 1B1>,<
	HLuR	A,%%LFT(%%IDX)
  >
T(%%IDX)QcP ^Q6

	IFNB ^q<C>,< PRINTX ?HX_RE 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> & ^O7777a77
	IFE <%%IDX>,a0<PRINTX %Index isaP zero for HXRE Aap,B >

  IFE <%b%BTS & 3B1>,<
	Pb0RINTX ?HXRE ERRORbP - B
  >
cIFNbp <%%BTS & 1B0>,<
	HRRE	A,%%LFT(%c0%IDX)
  >
cIFNcP <%%BTS & 1B1>,<
	HLRE	A,%%LFT(%%IDX)
  >
T(%R5]Q RT\YQ RX`Q @RXhQ  R-y@Q SpP S P SF,}P Sv@P S
 !RIFN FT10S !TIFN 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 UL-krQ @UND )!2N
  IF2,<I)AFNDEF E.IJE,<EXTE)`RN E.IJE>>
	ERCAL	E.IJE
 	ERCAWOI7P YH`P YM`P Y%{1P PY%{;P Y
xP 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>

@ Oq57
	IFNB <PC>,< PRINTX ?LOADP0 used with more tPPhan 2 args - A, PpB >

	%%BTS==<QB> & 7B2
	%%IDXQ0==<<B>_-^D18> & QP^O77	;Get index fQpield if any
	%%LRFT==<B> & ^O7777R077
	IFE <%%IDX>,RP<PRINTX %Index isRp zero for LOAD AS,B >

  IFE %%S0BTS,<
	MOVE	A,SPB
  >
 IFN <%%BSpTS & 1B0>,<
	HRRTZ	A,%%LFT(%%IDX)T0
  >
  IFN <%%BTPTS & 1B1>,<
	HLRTpZ	A,%%LFT(%%IDX)U
  >
  IFN <%%BU0TS & 1B2>,<
	%%%UPS==<%B>_-^D30	;SUpize of field
	%%V%P==<%B> & ^O77	V0;"P"
	LDB	A,[POVPINT %%%S,%%LFT(%%VpIDX),%%%P]
  >
X),%%%P]
  >
YB%@PRYC}PYC}PYC<H`PYC<M`PYJ,8SP(YNv[	PYPv[VPYR/F91P [F[TP 1[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 _HuP _Hv)6P _Hv98P _Hv[UP _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 "_O'P 

a$:Q a&<Q aQ !a|RP Ga5| Aa$@P a2-`P a>Mm /A2|POINT WID(B),A,POS(B)(aBv=P aHt]RP aHuyP aJ~@P EaK$J3P c}Q @cv@Q c;}Q eP 	eLP et Q !eP 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

\Pgv=2PBgv=9PPgv=:Pgv=<Pg")QP!gBPtJ9P gPt^P gPui;P gPum6P gPu{P gPv8;P gPv8yP gPv[UP gR-P ?gR@Q "gR<kP gR\I3 .A2tDEFINE A <-B(P)>INE A gR^h9 *!2p
 .L==0
*A IRP A,<.L==.L+1*`>		;COUNT ARGS
 +.N==0

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

	ADJSP	P,.L		;-ALLOCATE STACK SP- ACE
	DEFINE	UNST-@K <	ADJSP P,-.L >-`	;DEFINE DEALLOCA.TOR
 PURGE .N
OR
 PURGE .N
gR~)  W15q
	IFNB <WQC>,<PRINTX ?STOREWp with more than 2X args - A, B >

	%%BTS==<B> &XP 7B2
	%%IDX==<<XpB>_-^D18> & 77	;GYet index field ifY0 any
	%%LFT==<BYP> & ^O777777
	IFYpE <%%IDX>,<PRINTXZ %Index is zero fZ0or STORE A,B >

ZIFE %%BTS,<
	MOVEM	A,B
  [>
 IFN <%%BTS & [01B0>,<
	HRRM	A,[P%%LFT(%%IDX)
  >[p
  IFN <%%BTS & \1B1>,<
	HRLM	A,\0%%LFT(%%IDX)
  >\P
  IFN <%%BTS & \p1B2>,<
	%%%S==<%]B>_-^D30	;Size o]0f field
	%%%P==<]P%B> & ^O77	;"P"
	DPB	A,[POINT %^%%S,%%LFT(%%IDX),%%%P]
  >
X),gSP 
gS0P iPQ "i4tYP i4tK8P i4u	P i4uRP i4v:<P i4v>9P i7j6P iSNpQ  jP k
xPPk@QP!k,hzQk!k2-`PPk;-PQPk?`Po& P oC& P oJt;ZP oNO P oR

 P qP 
q4Xb CqO4Xb C	
d, 	1	;[5011]Ne)w for sixbit striHngs
		TLNE	A,-1h	;Skip if local address
		 TXOA	(A,B1WBP6 ;Global Haddress, make BP hand skip
		HRLI	A,(POINT 6,) ;Lo(cal address, make BP
	ess, make	
dHX
		TLNE		A,-1	;Skip if loc(al address
		 TXHOA	A,B1WBP7 ;Glohbal address, make BP and skip
		H(RLI	A,(POINT 7,)H ;Local address, make BP
	ess, 	 =3r
IFNB <B=!>,<PRINTX ?DCALL =@CONTINUATION ADDR=`ESS SPECIFIED - I>GNORED>
	EXTERN	> D.A
	JRST	D.A
A
	JRST	D.A>a4
IFNB <B?>,<PRINTX ?DJCAL ? CONTINUATION ADDR?@ESS SPECIFIED - I?`GNORED>
	EXTERN	@D.A
	ERJMP	D.A

	ERJMP	D.A	 @A4


	EXTERN	@aF.A
IFB <B>,<	APUSHJ	P,F.A >
IA FNB <B>,<JRST	[PA@USHJ P,F.A
			JRST B] >
			J	.,@ 9!3d

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

NTS, IF AN	T86 B4
	EXTERN	B!F.A
IFB <B>,<	B@ERCAL	F.A >
IFNB`B <B>,<ERJMP	[PUCSHJ P,F.A
			JRST B] >
			JR	&|\Y 53F

	INTER5!N	E.B
E.B:

5@ IF2,<IFNDEF %IOE5`RR,<EXTERN %IOERR6>>
		PUSHJ	P,%IO6 ERR
		"A"			;ER6@ROR CHARACTER
		6`SIXBIT	/B/		;ERR7OR PREFIX
		EXP	7 C,D		;ERROR NUM7@BERS
		POINT 7,[7`ASCIZ \E\]	;POIN8TER TO MESSAGE
	8 	EXP	G		;ATTRIBU8@TE G
IRP F,	<8`F>			;ARGUMENTS, IF ANY

NTS, 	Nu 4A3$
	$ECALL	SNH

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

,h2P ,hzQ 

NK@P NLP 

:P 

:P Q 
v;P v;	P X`P $(2P -`Q .`P N+PP N<Q d[@P lYP myQ MSQ 4`Q 4wQ 4@Q 4-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

RP 6|I=Q 7:=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-h6QJ4PJxQ J|lrPKRP N&0P O&`P R Q Rn	TP S'`Q 

VYQQ 


Vd[@P Vv[ P V~@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&