Google
 
Trailing-Edge - PDP-10 Archives - bb-4157h-bm_fortran20_v10_16mt9 - fortran-ots-debugger/mthprm.unv
There are 28 other files named mthprm.unv in the archive. Click here to see a list.
x,5e@P CJ<Q CJ==rQ `CJ>N8Q I6N y0c
 IRP A,yP<
  IRP B,<
  yp DEFINE TXAB (AzC,E) <
{p IFE <z0<E>&777777000000>zP,<TRAB AC,<E> ;zp>     IFE <<E>&00{0000777777>,<TLA{0B AC,(E) ;> 			 {P   TDAB AC,[E]
   > ;END TXYZ
|  > ;END IRP B
|0 > ;END IRP A
> ;END IRP A
I` dp&G
	XALL
e
	ENTRY	DFL.A		;e0ENTRY POINT TO DFePL.A
	SIXBIT	/DFepL.A/
DFL.A:	MOfVEI	A+1,0		;CLEAf0R LOW ORDER WORD
	ASHC	A,-8		;MAfpKE ROOM FOR EXPONgENT IN HI WORD
	g0TLC	A,243000	;SEgPT EXP TO 27+8 DECgpIMAL
	DFAD	A,[EhXP 0,0]	;NORMALIZh0E
	POPJ	P,		;REThPURN A=THE DOUBLEhp PRECISION RESULT
,x2PM8,xtI5 `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: uG
	SALL
	u0SEARCH	JOBDAT		;[uP3207] For  .JBxyzup   symbols.    Thvis
				;[3207] *v0MUST* preceed  thvPe search  of
			vp	;[3207] UUOSYM, wwhich contains EXw0TERNs
				;[3207wP] of the JOBDAT swpymbols.
IF10,<	SxEARCH	UUOSYM,MACTx0EN>

IF20,<	SEAxPRCH	MONSYM,MACSYMxp>

	.DIRECT	FLBLST
DIRECT	FLBMQ
P MQQ MR<kP MR]@Q MRlQ MS8zP MS

@Q MVt= ("U
 IF2,<IF(0NDEF A,<EXTERN (PA>>
 .ARGN.=0
 (pIRP B,<.ARGN.=.A)RGN.+1>
	PUSH	P,)0L
	XMOVEI	L,1+[-)P.ARGN.,,0
		    )p IRP B,<IFIW REM*OVE(B)>] 
	PUSH*0J	P,A
	POP	P,L
 PURGE	.ARGN.
 PURGE	.ARGN.
NDP NHP NLP NPP OI  @O$k zp']
	 XMOVEI{ A,0		
	 SKIPN	{0A		
	 JSP	A,b{P	
	 XSFM	A		
b:
SFM	A		
O

@ @O&` `OO OO

@ @OfL@ On @O  `O0  O>|H\ .P"u
	POPJ	P,

	POPJ	P,ONt{  Qf@ +QeK` +"q
 IFNB <+0B>,<
  IFDIF <B+P><.>,<
	ENTRY A+p
	SIXBIT /B/
,A:
  > ;END IFDI,0F

  IFIDN <B>,P<.>,<
	ENTRY A.,p
	SIXBIT /A./
-A.:
  > ;END IF-0IDN
 > ;END IFNB-P

 IFB <B>,<
-p	ENTRY A
	SIXBI.T /A/
A:
 > ;END IFB

 > ;S0 i0&
	XALL
iP
	ENTRY	IDF.A
	ipSIXBIT	/IDF.A/
jIDF.A:	PUSH	P,L	j0	;SAVE THE SCRATCjPH REG
	HLRE	L,Ajp		;GET THE EXPONEkNT
	ASH	L,-9		;Rk0IGHT 8 BITS
	JUMkPPGE	A,IDF.XT	;JUkpMP IF POS.
	DMOVlN	A,A		;NEGATE
	TRC	L,-1		;COMPlPLEMENT THE EXPONElpNT
IDF.XT:	TLZ	mA,777000	;CLEAR Tm0HE EXPONENT
	ASHmPC	A,-201-^D26(L)mp	;CHANGE FRACTIONn TO INTEGER
	TLNn0E	L,400000	;SKIP nPIF POS.
	MOVN	Anp,A		;NEGATE
	POoP	P,L		;RESTORE To0HE SCRATCH REG
	oPPOPJ	P,		;RETURN opA=FIXED NUMBER
a

,TQa

,S
'xIFNFT10S@XP [0$P [?7 }}
 IFE <<|pB>&777777000000>,}0<MOVEI A,<B> ;>}P  IFE <<B>&00000}p0777777>,<MOVSI ~A,(B) ;>  IFE <<~0B>_-22 - 777777>~P,<HRROI A,<<B>&~p777777> ;>  IFE <<B>&777777-7777707>,<HRLOI A,<<BP>_-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  <RADIX50 0,A><RADIX50 0em}R "=Aek |'o
	 TLZ	A|0,(PC%OVF+PC%FOV+P|PC%FUF+PC%NDV) 
	|p XMOVEI	A+1,b	
	 TLNE	A+1,-1		}0
	 XJRSTF	A		
}P	 HRR	A,A+1		
}p	 JRSTF	(A)		
b:
F	(A)		
eNl DfDP fHP fLP fPP g=Y7 P";

  IFDEpF $SEG$,<
IF2,<
IFE <$SEG$-1>,<$0SEG$==2
	TWOSEG	P400000
  > ;END pIFE $SEG$-1
IFE <$SEG$+1>,<$SEG$=0=2
	TWOSEG	40000P0
  > ;END IFE $pSEG$+1
 > ;END IF2
> ;END IFDEF #0$SEG$

  IFNDEF#P $SEG$,<
	TWOSEG#p	400000
IF1,<	$S$EG$==1>
IF2,<	$S$0EG$==2>
> ;END I$PFNDEF $SEG$

	$$pNAME$=='A'

  %IFE <$NAME$-'DATA%0'>,<		
   IFG $S%PEG$,<
	RELOC
IF%p1,<	$SEG$==-1>
I&F2,<	$SEG$==-2>>>&0

  IFN <$NAME$&P-'DATA'>,<		
   &pIFL $SEG$,<
	REL'OC
IF1,<	$SEG$=='01>
IF2,<	$SEG$==2>>>
 	$SEG$==gh +g6  {g:8 p0'U
	XALL
pP
	ENTRY	SNG.A
	ppSIXBIT	/SNG.A/
qSNG.A:	JUMPL	A,q0SNG3		;NEGATIVE AqPRGUMENT?
	TLNE	qpA+1,(1B1)	;POSITIrVE. ROUND REQUIREr0D?
	TRON	A,1		;rPYES, TRY TO ROUNDrp BY SETTING LSB
s	  POPJ	P,		;WE Ws0ON, FINISHED
	MOsPVE	A+1,A		;COPYsp HIGH PART OF ARGt
	AND	A,[777000t0,,1]	;MAKE UNNORMtPALIZED LSB, SAME tpEXPONENT
	FAD	Au,A+1		;ROUND & Ru0ENORMALIZE
	POPJuP	P,

;HERE IF AupRG IS NEGATIVE
SvNG3:	DMOVN	A,A	v0	;MAKE POSITIVE
vP	TLNE	A+1,(1B1)	vp;NEED ROUNDING?
w	TRON	A,1		;YES,w0 TRY TO DO IT BY wPSETTING LSB
	JRSwpT	SNG4		;DONE
	MxOVN	A+1,A		;MAKx0E RE-NEGATED COPYxP OF HIGH PART
	OxpRCA	A,[777,,-1]	y;GET UNNORM NEG Ly0SB WITH SAME EXPOyPNENT
	FADR	A,Ayp+1		;ROUND & NORMzALIZE
	POPJ	P,
z0
SNG4:	MOVN	A,zPA		;RE-NEGATE
	POPJ	P,		;EXIT
h@P hD@ hHP hLP hPP hTP i@*@P i@*0P i@*PP 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 /#7

 TITLE/0 A  B
 FSRCH
/P
 VMAJOR==<VMINO/pR==<VEDIT==<VWHO=0=0>>>
%VWHO==0

 IRPC B,<

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

  IFLE <"B"-"1p0">*<"B"-"9">,<V2MAJOR==VMAJOR*^D820 + "B" - "0">
2P
3IFIDN <B><(>,2p<%VMAJOR==VMAJOR
		VMAJOR==0>

30  IFIDN <B><)>,<3PVEDIT==VMAJOR
		3pVMAJOR==%VMAJOR>

  IFIDN <B><-40>,<%VMAJOR==VMAJO4PR
		VMAJOR==0
	4p	%VWHO==-1>
 > ;5END IRPC

 IFN 50%VWHO,<VWHO==VMAJ5POR
	    VMAJOR==5p%VMAJOR>

	DEFI6NE	VER <	BYTE	(3)60VWHO(9)VMAJOR(6)V6PMINOR(18)VEDIT>
6p
 PURGE %VMAJOR,%VWHO
%VMAJOR,ib !0"
    IFE !P<<B>&77777700000!p0>,<TRC A,<B> ;">     IFE <<B>&0"000000777777>,<TLC"P A,(B) ;> 			  "p  TDC A,[B]
   DC A,[B]
  ib 0"
 IFE P<<B>&77777700000p0>,<TRCA A,<B>  ;>     IFE <<B>& 0000000777777>,<TL PCA A,(B) ;> 			 p    TDCA A,[B]
ibCA A,[B]
 IFE P<<B>&77777700000p0>,<TRCE A,<B> ;>     IFE <<B>&0000000777777>,<TLPCE A,(B) ;> 			p    TDCE A,[B]
ibCE A,[B]
 IFE P<<B>&77777700000p0>,<TRCN A,<B> ;>     IFE <<B>&0000000777777>,<TLPCN A,(B) ;> 			p    TDCN A,[B]
ibpCN A,[B]
    IFE 	P<<B>&77777700000	p0>,<TRN A,<B> ;
>     IFE <<B>&0
000000777777>,<TLN
P A,(B) ;> 			  
p  TDN A,[B]
   DN A,[B]
  ibt 0 G
 IFE P<<B>&77777700000p0>,<TRNA A,<B> ;>     IFE <<B>&0000000777777>,<TLPNA A,(B) ;> 			p    TDNA A,[B]
ibtNA A,[B]
 IFE P<<B>&77777700000p0>,<TRNE A,<B> ;>     IFE <<B>&0000000777777>,<TLPNE A,(B) ;> 			p    TDNE A,[B]
ibuNE A,[B]
 IFE P<<B>&77777700000p0>,<TRNN A,<B> ;>     IFE <<B>&0000000777777>,<TLPNN A,(B) ;> 			p    TDNN A,[B]
ibxNN A,[B]
    IFE P<<B>&77777700000p0>,<TRO A,<B> ;>     IFE <<B>&0000000777777>,<TLOP A,(B) ;> 			  p  TDO A,[B]
   DO A,[B]
  ib| 0!G
 IFE P<<B>&77777700000p0>,<TROA A,<B> ;>     IFE <<B>&0000000777777>,<TLPOA A,(B) ;> 			p    TDOA A,[B]
ib|OA A,[B]
 IFE P<<B>&77777700000p0>,<TROE A,<B> ;>     IFE <<B>&0000000777777>,<TLPOE A,(B) ;> 			p    TDOE A,[B]
ib}OE A,[B]
 IFE P<<B>&77777700000p0>,<TRON A,<B> ;>     IFE <<B>&0000000777777>,<TLPON A,(B) ;> 			p    TDON A,[B]
icPON A,[B]
    IFE P<<B>&77777700000p0>,<TRZ A,<B> ;>     IFE <<B>&0000000777777>,<TLZP A,(B) ;> 			  p  TDZ A,[B]
   DZ A,[B]
  icT 0!
 IFE P<<B>&77777700000p0>,<TRZA A,<B> ;>     IFE <<B>&0000000777777>,<TLPZA A,(B) ;> 			p    TDZA A,[B]
icTZAA,[B]
P<<IFE7777700000;>     IFE <<B>&0000000777777>,<TLPZE A,(B) ;> 			p    TDZE A,[B]
icUZE A,[B]
    IFE P<<B>&77777700000p0>,<TRZN A,<B> 

;>     IFE <<B>&

0000000777777>,<TL

PZN A,(B) ;> 			

p  TDZN A,[B]
q  ZN A,[B]
f@ q4Xb Cq+= +q+= +
q6~i4 C qO4Xb C	 Q0%
IFNB <BQP>,<PRINTX ?ACALL QpCONTINUATION ADDRRESS SPECIFIED - IR0GNORED>
	EXTERN	RPA.A
	PUSHJ	P,A.A

USHJ	P,A.	.,@ @p$%

	INTERAN	A.B
A.B:

A0 IF2,<IFNDEF %AERAPR,<EXTERN %AERR>>Ap
		PUSHJ	P,%AERRB
		"A"			;ERRORB0 CHARACTER
		SIXBPBIT	/B/		;ERROR BpPREFIX
		EXP	C,CD		;ERROR NUMBERC0S
		POINT 7,[ASCCPIZ \E\]	;POINTERCp TO MESSAGE
		EXDP	G		;ATTRIBUTE D0G
IRP F,	<F>	DP		;ARGUMENTS, IF ANY

NTS, IF 	T86 OP%
IFNB <BOp>,<PRINTX ?AJCAL PCONTINUATION ADDRP0ESS SPECIFIED - IPPGNORED>
	EXTERN	PpA.A
	ERCAL	A.A

	ERCAL	A.A	.,@ <P$

	INTER<pN	D.B
D.B:

= IF2,<IFNDEF %DER=0R,<EXTERN %DERR>>=P
		PUSHJ	P,%DERR=p
		"A"			;ERROR> CHARACTER
		SIX>0BIT	/B/		;ERROR >PPREFIX
		EXP	C,>pD		;ERROR NUMBER?S
		POINT 7,[ASC?0IZ \E\]	;POINTER?P TO MESSAGE
		EX?pP	G		;ATTRIBUTE @G
IRP F,	<F>	@0		;ARGUMENTS, IF ANY

NTS, IF 	 LP$m
	EXTERN LpE.A
IFB <B>,<	MPUSHJ	P,E.A >
IM0FNB <B>,<JRST	[PMPUSHJ P,E.A
			JRST B] >
			J	T86 N$y
	EXTERN N0E.A
IFB <B>,<ENPRCAL	E.A >
IFNBNp <B>,<ERJMP	[PUSOHJ P,E.A
			JRST B] >
			JRS	  70#a


IFNB7P <B>,<
	ENTRY	E7p.B
E.B:				;DE8FINE THE ERROR IF80 NOT NULL
>

I8PF2,<IFNDEF %OTSER8p,<EXTERN %OTSER>>9
		PUSHJ	P,%OTSE90R	;ERROR CALL
		9P"A"			;ERROR CHA9pRACTER
		SIXBIT	:/B/		;ERROR PREF:0IX
		EXP	C,D		:P;ERROR NUMBERS
	:p	POINT 7,[ASCIZ \;E\]	;POINTER TO ;0MESSAGE
		EXP	G;P		;ATTRIBUTE G
;pIRP F,	<F>			;A<RGUMENTS, IF ANY

NTS,IFANY%%
IF2,<IFNS0DEF L.A,<	EXTERNSP	L.A >>
IFB <BSp>,<	PUSHJ	P,L.A T>
IFNB <B>,<JRST0T	[PUSHJ P,L.A
TP			JRST B] >

	JRST B] >

	2.,@ E$C

	ENTRYE0	L.B
L.B:
		PEPUSHJ	P,MTHER.##
Ep		"A"			;ERROR CFHARACTER
		SIXBIF0T	/B/		;ERROR PRFPEFIX
		EXP	C,DFp		;ERROR NUMBERS
		POINT 7,[ASCIZG0 \E\]	;POINTER TGPO MESSAGE
		EXP	GpG		;ATTRIBUTE GH
IRP F,	<F>			H0;ARGUMENTS, IF ANY

NTS, IF AN	2T86 U%3
IF2,<IFNU0DEF L.A,<	EXTERNUP	L.A>>
IFB <B>Up,<	ERCAL	L.A >
VIFNB <B>,<	ERJMPV0	[PUSHJ P,L.A
			JRST B] >
		J cP&!
IFNDEF	%cpLFIXD,<EXTERN	%LFdIXD>
	DMOVE	T0,%LFIXD
OVE	T0,%	J&

@ aP&
IFNDEF	%apLFIXD,<EXTERN	%LFbIXD>
	DMOVE	T0,%LFIXD
OVE	T0,%	J& bP&
IFNDEF	%bpLFIXD,<EXTERN	%LFcIXD>
	DMOVE	T0,%LFIXD
OVE	T0,%	K

@ `P&	
IFNDEF	%`pLFIXD,<EXTERN	%LFaIXD>
	MOVE	T0,%LFIXD
OVE	T0,%L	N ^P&
IFNDEF	%^pLFIXD,<EXTERN	%LF_IXD>
IFNDEF	%LER_0TP,<EXTERN	%LERTP_P>
	DMOVEM	T0,%LF_pIXD
	MOVEI	T0,TP`%DPX
	MOVEM	T0,%LERTP
VEM	T0,%	N&

@ ZP%a
IFNDEF	%ZpLFIXD,<EXTERN	%LF[IXD>
IFNDEF	%LER[0TP,<EXTERN	%LERTP[P>
	DMOVEM	T0,%LF[pIXD
	MOVEI	T0,TP\%DPR
	MOVEM	T0,%LERTP
VEM	T0,%	N& \P%q
IFNDEF	%\pLFIXD,<EXTERN	%LF]IXD>
IFNDEF	%LER]0TP,<EXTERN	%LERTP]P>
	DMOVEM	T0,%LF]pIXD
	MOVEI	T0,TP^%DPX
	MOVEM	T0,%LERTP
VEM	T0,%	O

@ XP%Q
IFNDEF	%XpLFIXD,<EXTERN	%LFYIXD>
IFNDEF	%LERY0TP,<EXTERN	%LERTPYP>
	MOVEM	T0,%LFIYpXD
	MOVEI	T0,TP%ZSPR
	MOVEM	T0,%LERTP
VEM	T0,%L	R Vp%A
IF2,<IFNWDEF T.A,<	EXTERNW0	T.A>>
IFB <B>WP,<	PUSHJ	P,T.A >Wp
IFNB <B>,<JRSTX	[PUSHJ P,T.A
			JRST B] >
		R.,@ Hp$a

	ENTRYI	T.B
T.B:
		PI0USHJ	P,%TRPER##
IP		"A"			;ERROR CIpHARACTER
		SIXBIJT	/B/		;ERROR PRJ0EFIX
		EXP	C,DJP		;ERROR NUMBERS
		POINT 7,[ASCIZK \E\]	;POINTER TK0O MESSAGE
		EXP	KPG		;ATTRIBUTE GKp
IRP F,	<F>			L;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