Google
 
Trailing-Edge - PDP-10 Archives - bb-4157j-bm_fortran20_v11_16mt9 - fortran-ots-debugger/mthprm.unv
There are 28 other files named mthprm.unv in the archive. Click here to see a list.
x,Re@P CJ<Q CJ==rQ `CJ>N8Q I6N eq>G
 IRP A,f<
  IRP B,<
  f0 DEFINE TXAB (AfPC,E) <
h0 IFE <fp<E>&777777000000>g,<TRAB AC,<E> ;g0>     IFE <<E>&00gP0000777777>,<TLAgpB AC,(E) ;> 			 h   TDAB AC,[E]
   > ;END TXYZ
hP  > ;END IRP B
hp > ;END IRP A
> ;END IRP A
I` RE1
	XALL
R0
	ENTRY	DFL.A		;RPENTRY POINT TO DFRpL.A
	SIXBIT	/DFSL.A/
DFL.A:	MOS0VEI	A+1,0		;CLEASPR LOW ORDER WORD
	ASHC	A,-8		;MATKE ROOM FOR EXPONT0ENT IN HI WORD
	TPTLC	A,243000	;SETpT EXP TO 27+8 DECUIMAL
	DFAD	A,[EU0XP 0,0]	;NORMALIZUPE
	POPJ	P,		;RETUpURN A=THE DOUBLEV PRECISION RESULT
,LPi@-ZI5 `I5  I5M `I?,+	 _ KJ 4KJU\ 4M8,8QP M8,;yP M8,x2P M8,xtP M8,{zP M8,|P M8,|P M8-YP M8-P M8-\P M8.(2P M8.(tP M8.+ZP M8.+zP M8.,P M8.,P M8.,YP M8.\P 	M8.|YP MO: aQ>+
	SALL
	aqSEARCH	JOBDAT		;[b3207] For  .JBxyzb0   symbols.    ThbPis
				;[3207] *bpMUST* preceed  thce search  of
			c0	;[3207] UUOSYM, cPwhich contains EXcpTERNs
				;[3207d] of the JOBDAT sd0ymbols.
IF10,<	SdPEARCH	UUOSYM,MACTdpEN>

IF20,<	SEAeRCH	MONSYM,MACSYMe0>

	.DIRECT	FLBLST
DIRECT	FLBMQ
PMQQkMR/Q MRlQ MS8zP MS

@Q MVt= QA9
 IF2,<IFqNDEF A,<EXTERN A>>
 .ARGN.=0
 0IRP B,<.ARGN.=.APRGN.+1>
	PUSH	P,pL
	XMOVEI	L,1+[-.ARGN.,,0
		    0 IRP B,<IFIW REMPOVE(B)>] 
	PUSHpJ	P,A
	POP	P,L
 PURGE	.ARGN.
 PURGE	.ARGN.
NDP NHP NLP NPP OI  @O$k hFG
	 XMOVEIh1 A,0		
	 SKIPN	hPA		
	 JSP	A,bhp	
	 XSFM	A		
b:
SFM	A		
O

@ @O&` `OO OO

@ @OfL@ On @O  `O0  O>|H\ AY
	POPJ	P,

	POPJ	P,ONt{  Qf@ +QeK` QAU
 IFNB <qB>,<
  IFDIF <B><.>,<
	ENTRY A0
	SIXBIT /B/
PA:
  > ;END IFDIpF

  IFIDN <B><.>,<
	ENTRY A.0
	SIXBIT /A./
PA.:
  > ;END IFpIDN
 > ;END IFNB

 IFB <B>,<
0	ENTRY A
	SIXBIPT /A/
A:
 > ;END IFB

 > ;S0 VQEi
	XALL
Vp
	ENTRY	IDF.A
	WSIXBIT	/IDF.A/
W0IDF.A:	PUSH	P,L	WP	;SAVE THE SCRATCWpH REG
	HLRE	L,AX		;GET THE EXPONEX0NT
	ASH	L,-9		;RXPIGHT 8 BITS
	JUMXpPGE	A,IDF.XT	;JUYMP IF POS.
	DMOVY0N	A,A		;NEGATE
	TRC	L,-1		;COMPYpLEMENT THE EXPONEZNT
IDF.XT:	TLZ	Z0A,777000	;CLEAR TZPHE EXPONENT
	ASHZpC	A,-201-^D26(L)[	;CHANGE FRACTION[0 TO INTEGER
	TLN[PE	L,400000	;SKIP [pIF POS.
	MOVN	A\,A		;NEGATE
	PO\0P	P,L		;RESTORE T\PHE SCRATCH REG
	\pPOPJ	P,		;RETURN ]A=FIXED NUMBER
20P7pS
 FbIFN FT10S =qIFN FT20SNp @UKI@ +XP [0$P [?7 iQ>a
 IFE <<i1B>&777777000000>,iq<MOVEI A,<B> ;>j  IFE <<B>&00000j00777777>,<MOVSI jPA,(B) ;>  IFE <<jpB>_-22 - 777777>k,<HRROI A,<<B>&k0777777> ;>  IFE <kP<B>&777777-77777kp7>,<HRLOI A,<<Bl>_-22> ;> 			 MOVE A,[B]
 MOV]? ``P `DP `HP `LP `PP a

,TQ  a

,Q a

,*9Q a

,>(Q  a

,>(Q a

,k{Q a

,m3Q a

-J8Q @a

-iQ a

-}SQ @a

.Z7Q a

.\yQ a+= 5a?H6 +dU lQ>e<RADIX50 0,A><RADIX50 0em}R A!A`Hek i1FY
	 TLZ	AiQ,(PC%OVF+PC%FOV+PipC%FUF+PC%NDV) 
	j XMOVEI	A+1,b	
	 TLNE	A+1,-1		jP
	 XJRSTF	A		
jp	 HRR	A,A+1		
k	 JRSTF	(A)		
b:
F	(A)		
eNl DfDP fHP fLP fPP g=Y7 mA

  IFDEm1F $SEG$,<
IF2,<
IFE <$SEG$-1>,<$mpSEG$==2
	TWOSEG	n400000
  > ;END n0IFE $SEG$-1
IFE nP<$SEG$+1>,<$SEG$=np=2
	TWOSEG	40000o0
  > ;END IFE $o0SEG$+1
 > ;END IoPF2
> ;END IFDEF q$SEG$

  IFNDEF $SEG$,<
	TWOSEG0	400000
IF1,<	$SPEG$==1>
IF2,<	$SpEG$==2>
> ;END IFNDEF $SEG$

	$0NAME$=='A'

  PIFE <$NAME$-'DATAp'>,<		
   IFG $SEG$,<
	RELOC
IF01,<	$SEG$==-1>
IPF2,<	$SEG$==-2>>>p

  IFN <$NAME$-'DATA'>,<		
   0IFL $SEG$,<
	RELPOC
IF1,<	$SEG$==p1>
IF2,<	$SEG$==2>>>
 	$SEG$==gh +g6  {g:8 ]QF?
	XALL
]p
	ENTRY	SNG.A
	^SIXBIT	/SNG.A/
^0SNG.A:	JUMPL	A,^PSNG3		;NEGATIVE A^pRGUMENT?
	TLNE	_A+1,(1B1)	;POSITI_0VE. ROUND REQUIRE_PD?
	TRON	A,1		;_pYES, TRY TO ROUND` BY SETTING LSB
`0	  POPJ	P,		;WE W`PON, FINISHED
	MO`pVE	A+1,A		;COPYa HIGH PART OF ARGa0
	AND	A,[777000aP,,1]	;MAKE UNNORMapALIZED LSB, SAME bEXPONENT
	FAD	Ab0,A+1		;ROUND & RbPENORMALIZE
	POPJbp	P,

;HERE IF AcRG IS NEGATIVE
Sc0NG3:	DMOVN	A,A	cP	;MAKE POSITIVE
cp	TLNE	A+1,(1B1)	d;NEED ROUNDING?
d0	TRON	A,1		;YES,dP TRY TO DO IT BY dpSETTING LSB
	JRSeT	SNG4		;DONE
	Me0OVN	A+1,A		;MAKePE RE-NEGATED COPYep OF HIGH PART
	OfRCA	A,[777,,-1]	f0;GET UNNORM NEG LfPSB WITH SAME EXPOfpNENT
	FADR	A,Ag+1		;ROUND & NORMg0ALIZE
	POPJ	P,
gP
SNG4:	MOVN	A,gpA		;RE-NEGATE
	POPJ	P,		;EXIT
h@P hD@ hHP hLP hPP hTP i@*0P i@*PP i@*h]P i@,:P i@,<P i@,LP i@,LP i@,LP i@,LP i@-ZP i@-HVP i@-J:P i@-KsP i@.<P i@.<P i@.YP iX QB!

 TITLEq A  B
 FSRCH

 VMAJOR==<VMINO0R==<VEDIT==<VWHO=P=0>>>
%VWHO==0

 IRPC B,<

  IFLE <"B"-"A">0*<"B"-"Z">,<VMINPOR==VMINOR*^D26 +p "B" - "A" + 1>

  IFLE <"B"-"00">*<"B"-"9">,<VPMAJOR==VMAJOR*^D8p + "B" - "0">

IFIDN <B><(>,0<%VMAJOR==VMAJOR
		VMAJOR==0>

p  IFIDN <B><)>,< VEDIT==VMAJOR
		 0VMAJOR==%VMAJOR>

  IFIDN <B><- p>,<%VMAJOR==VMAJO!R
		VMAJOR==0
	!0	%VWHO==-1>
 > ;!PEND IRPC

 IFN !p%VWHO,<VWHO==VMAJ"OR
	    VMAJOR=="0%VMAJOR>

	DEFI"PNE	VER <	BYTE	(3)"pVWHO(9)VMAJOR(6)V#MINOR(18)VEDIT>
#0
 PURGE %VMAJOR,#P%VWHO

 ASUPPRE#pSS			
 PURGE T0,$T1,T2,T3,T4,T5,L,P	

,T4,T5,L,ib 
    IFE <<B>&7777770000000>,<TRC A,<B> ;P>     IFE <<B>&0p00000777777>,<TLC A,(B) ;> 			  0  TDC A,[B]
   DC A,[B]
  ib q@k
    IFE 

<<B>&77777700000

00>,<TRCA A,<B> 

P;>     IFE <<B>&

p000000777777>,<TL
ibCA A,[B]
    IFE 
<<B>&77777700000
00>,<TRCE A,<B> 
P;>     IFE <<B>&
p000000777777>,<TLCE A,(B) ;> 			0    TDCE A,[B]
ibCE A,[B]
 IFE <<B>&7777770000000>,<TRCN A,<B> P;>     IFE <<B>&p000000777777>,<TL	CN A,(B) ;> 				0    TDCN A,[B]
ibpCN A,[B]
    IFE v<<B>&77777700000v00>,<TRN A,<B> ;vP>     IFE <<B>&0vp00000777777>,<TLNw A,(B) ;> 			  w0  TDN A,[B]
   DN A,[B]
  ibt sq?+
 IFE t<<B>&77777700000t00>,<TRNA A,<B> tP;>     IFE <<B>&tp000000777777>,<TLuNA A,(B) ;> 			u0    TDNA A,[B]
ibtNA A,[B]
 IFE r<<B>&77777700000r00>,<TRNE A,<B> rP;>     IFE <<B>&rp000000777777>,<TLsNE A,(B) ;> 			s0    TDNE A,[B]
ibuNE A,[B]
 IFE p<<B>&77777700000p00>,<TRNN A,<B> pP;>     IFE <<B>&pp000000777777>,<TLqNN A,(B) ;> 			q0    TDNN A,[B]
ibxNN A,[B]
    IFE <<B>&7777770000000>,<TRO A,<B> ;P>     IFE <<B>&0p00000777777>,<TLO A,(B) ;> 			  0  TDO A,[B]
   DO A,[B]
  ib| q@+
 IFE <<B>&7777770000000>,<TROA A,<B> P;>     IFE <<B>&p000000777777>,<TLOA A,(B) ;> 			0    TDOA A,[B]
ib|OA A,[B]
 IFE <<B>&7777770000000>,<TROE A,<B> P;>     IFE <<B>&p000000777777>,<TLOE A,(B) ;> 			0    TDOE A,[B]
ib}OE A,[B]
 IFE <<B>&7777770000000>,<TRON A,<B> P;>     IFE <<B>&p000000777777>,<TLON A,(B) ;> 			0    TDON A,[B]
icPON A,[B]
    IFE ~<<B>&77777700000~00>,<TRZ A,<B> ;~P>     IFE <<B>&0~p00000777777>,<TLZ A,(B) ;> 			  0  TDZ A,[B]
   DZ A,[B]
  icT {q?k
 IFE |<<B>&77777700000|00>,<TRZA A,<B> |P;>     IFE <<B>&|p000000777777>,<TL}ZA A,(B) ;> 			}0    TDZA A,[B]
icTZA A,[B]
 IFE z<<B>&77777700000z00>,<TRZE A,<B> zP;>     IFE <<B>&zp000000777777>,<TL{ZE A,(B) ;> 			{0    TDZE A,[B]
icUZE A,[B]
 IFE x<<B>&77777700000x00>,<TRZN A,<B> xP;>     IFE <<B>&xp000000777777>,<TLyZN A,(B) ;> 			y0    TDZN A,[B]
q  ZN A,[B]
f@ q4Xb Cq+= +q+= +
q6~i4 C qO4Xb C	 >QC
IFNB <B>q>,<PRINTX ?ACALL ?CONTINUATION ADDR?0ESS SPECIFIED - I?PGNORED>
	EXTERN	?pA.A
	PUSHJ	P,A.A

USHJ	P,A.	.,@ .C

	INTER.1N	A.B
A.B:

.P IF2,<IFNDEF %AER.pR,<EXTERN %AERR>>/
		PUSHJ	P,%AERR/0
		"A"			;ERROR/P CHARACTER
		SIX/pBIT	/B/		;ERROR 0PREFIX
		EXP	C,00D		;ERROR NUMBER0PS
		POINT 7,[ASC0pIZ \E\]	;POINTER1 TO MESSAGE
		EX10P	G		;ATTRIBUTE 1PG
IRP F,	<F>	1p		;ARGUMENTS, IF ANY

NTS, IF 	T86 <qCq
IFNB <B=>,<PRINTX ?AJCAL =0CONTINUATION ADDR=PESS SPECIFIED - I=pGNORED>
	EXTERN	>A.A
	ERCAL	A.A

	ERCAL	A.A	.,@ )qBm

	INTER*N	D.B
D.B:

*0 IF2,<IFNDEF %DER*PR,<EXTERN %DERR>>*p
		PUSHJ	P,%DERR+
		"A"			;ERROR+0 CHARACTER
		SIX+PBIT	/B/		;ERROR +pPREFIX
		EXP	C,,D		;ERROR NUMBER,0S
		POINT 7,[ASC,PIZ \E\]	;POINTER,p TO MESSAGE
		EX-P	G		;ATTRIBUTE -0G
IRP F,	<F>	-P		;ARGUMENTS, IF ANY

NTS, IF 	 9qCW
	EXTERN :E.A
IFB <B>,<	:0PUSHJ	P,E.A >
I:PFNB <B>,<JRST	[P:pUSHJ P,E.A
			JRST B] >
			J	T86 ;1Cc
	EXTERN ;QE.A
IFB <B>,<E;pRCAL	E.A >
IFNB< <B>,<ERJMP	[PUS<0HJ P,E.A
			JRST B] >
			JRS	  $QBK


IFNB$q <B>,<
	ENTRY	E%.B
E.B:				;DE%0FINE THE ERROR IF%P NOT NULL
>

I%pF2,<IFNDEF %OTSER&,<EXTERN %OTSER>>&0
		PUSHJ	P,%OTSE&PR	;ERROR CALL
		&p"A"			;ERROR CHA'RACTER
		SIXBIT	'0/B/		;ERROR PREF'PIX
		EXP	C,D		'p;ERROR NUMBERS
	(	POINT 7,[ASCIZ \(0E\]	;POINTER TO (PMESSAGE
		EXP	G(p		;ATTRIBUTE G
)IRP F,	<F>			;A)0RGUMENTS, IF ANY

NTS,IFANYD
IF2,<IFN@QDEF L.A,<	EXTERN@p	L.A >>
IFB <BA>,<	PUSHJ	P,L.A A0>
IFNB <B>,<JRSAPT	[PUSHJ P,L.A
Ap			JRST B] >

	JRST B] >

	2.,@ 21C-

	ENTRY2Q	L.B
L.B:
		P2pUSHJ	P,MTHER.##
3		"A"			;ERROR C30HARACTER
		SIXBI3PT	/B/		;ERROR PR3pEFIX
		EXP	C,D4		;ERROR NUMBERS
		POINT 7,[ASCIZ4P \E\]	;POINTER T4pO MESSAGE
		EXP	5G		;ATTRIBUTE G50
IRP F,	<F>			5P;ARGUMENTS, IF ANY

NTS, IF AN	2T86 B1D
IF2,<IFNBQDEF L.A,<	EXTERNBp	L.A>>
IFB <B>C,<	ERCAL	L.A >
C0IFNB <B>,<	ERJMPCP	[PUSHJ P,L.A
			JRST B] >
		J PqE
IFNDEF	%QLFIXD,<EXTERN	%LFQ0IXD>
	DMOVE	T0,%LFIXD
OVE	T0,%	J&

@ NqD{
IFNDEF	%OLFIXD,<EXTERN	%LFO0IXD>
	DMOVE	T0,%LFIXD
OVE	T0,%	J& OqE
IFNDEF	%PLFIXD,<EXTERN	%LFP0IXD>
	DMOVE	T0,%LFIXD
OVE	T0,%	K

@ MqDs
IFNDEF	%NLFIXD,<EXTERN	%LFN0IXD>
	MOVE	T0,%LFIXD
OVE	T0,%L	N KqDk
IFNDEF	%LLFIXD,<EXTERN	%LFL0IXD>
IFNDEF	%LERLPTP,<EXTERN	%LERTPLp>
	DMOVEM	T0,%LFMIXD
	MOVEI	T0,TPM0%DPX
	MOVEM	T0,%LERTP
VEM	T0,%	N&

@ GqDK
IFNDEF	%HLFIXD,<EXTERN	%LFH0IXD>
IFNDEF	%LERHPTP,<EXTERN	%LERTPHp>
	DMOVEM	T0,%LFIIXD
	MOVEI	T0,TPI0%DPR
	MOVEM	T0,%LERTP
VEM	T0,%	N& IqD[
IFNDEF	%JLFIXD,<EXTERN	%LFJ0IXD>
IFNDEF	%LERJPTP,<EXTERN	%LERTPJp>
	DMOVEM	T0,%LFKIXD
	MOVEI	T0,TPK0%DPX
	MOVEM	T0,%LERTP
VEM	T0,%	O

@ EqD;
IFNDEF	%FLFIXD,<EXTERN	%LFF0IXD>
IFNDEF	%LERFPTP,<EXTERN	%LERTPFp>
	MOVEM	T0,%LFIGXD
	MOVEI	T0,TP%G0SPR
	MOVEM	T0,%LERTP
VEM	T0,%L	R DD+
IF2,<IFND1DEF T.A,<	EXTERNDP	T.A>>
IFB <B>Dp,<	PUSHJ	P,T.A >E
IFNB <B>,<JRSTE0	[PUSHJ P,T.A
			JRST B] >
		R.,@ 6CK

	ENTRY61	T.B
T.B:
		P6PUSHJ	P,%TRPER##
6p		"A"			;ERROR C7HARACTER
		SIXBI70T	/B/		;ERROR PR7PEFIX
		EXP	C,D7p		;ERROR NUMBERS
		POINT 7,[ASCIZ80 \E\]	;POINTER T8PO MESSAGE
		EXP	8pG		;ATTRIBUTE G9
IRP F,	<F>			90;ARGUMENTS, IF ANY

NTS, IF AN|`P F P |@P P P P  P 	0P 	@P 
0P d|`P 20P 7pP ;-T P ;-T@P >,;@P >.`P >5P >L[@P ?'P ?,nP [ P S@P $hhP $hiP $hiP $khP $m(P $m)P %P %WP %ZP %7P %{P %LRP %LzP %m6P %xrP >}{woP