Google
 

Trailing-Edge - PDP-10 Archives - FORTRAN-10_Alpha_31-jul-86 - scnmac.unv
There are 80 other files named scnmac.unv in the archive. Click here to see a list.
x
,R)@P I4 [0_
				ND	M[PX.A,B
				ND	A[pD.A,C
				ND	PD.A,DI?87 `H&
	XALL
`h

			
DEFINE	X(a$NAME,$PROC,$POINa(T,$DEFLT,$MAX,$FLaHAGS),<
	EXP  SIXahBIT  /$NAME/
>
bAN:	SWTCHS
AL=b(=.-AN

			
IFbH2,<
DEFINE	X($NAbhME,$PROC,$POINT,$cDEFLT,$MAX,$FLAGSc(),<
..TEMP==0
IcHRP $POINT,<
    chIFE ..TEMP-1,<
	d$POINT			;$NAME
d(    >
    IFE ..dHTEMP-2,<
	POINT	dh36,$POINT,35	;$NAeME
    >
    IFe(IDN <$POINT><*P>,eH<..TEMP==1>	
   eh IFIDN <$POINT><*fF>,<..TEMP==2>	
f(>

IFB <$POINT>fH,<
	Z			;$NAME
fh..TEMP==1>
IFE .g.TEMP,<
IFN <$POg(INT>_-^D24,<
..TgHEMP==$POINT
	..TghEMP			;$NAME
>
hIFE ..TEMP,<
	POh(INT 36,$POINT,35	hH;$NAME
	>
>>>
hhAP:	SWTCHS

		i	
			
MX.==0
Di(EFINE	X($NAME,$PRiHOC,$POINT,$DEFLT,ih$MAX,$FLAGS),<
IjF2,<
IFE <$FLAGSj(>&FS.LRG,<IFG <$MjHAX>-377777,<PRINTjhX ?MAXIMUM OF /$NkAME CANNOT BE GT k(377777>>
>
..TEkHMP==1
IFN <$FLAGkhS>&FS.LRG,<IFN <$lMAX>,<..TEMP==0>>l(
IFN ..TEMP,<
	lHXWD	$MAX,$PROC	;$lhNAME
>
IFE ..TEmMP,<
	XWD	[$MAX]m(,$PROC	;$NAME
>mH
>
AM:	SWTCHS
mh
			
PD.==0
DEnFINE	X($NAME,$PROn(C,$POINT,$DEFLT,$nHMAX,$FLAGS),<
IFnh2,<
IFL <$DEFLT>o,<IFN <$DEFLT>+1,o(<PRINTX ?DEFAULT oHOF /$NAME CANNOT ohBE NEGATIVE>>
IFpE <$FLAGS>&FS.LRGp(,<IFG <$DEFLT>-77pH7777,<PRINTX ?DEFphAULT OF /$NAME CAqNNOT BE GT 777777q(>>
>
IFB <$FLAGqHS>,<..TEMR==0>
IqhFNB <$FLAGS>,<..TrEMR==($FLAGS)>
.r(.TEMP==1
IFN <$FrHLAGS>&FS.LRG,<IFNrh <$DEFLT>,<..TEMPs==0>>
IFN ..TEMPs(,<
	XWD	..TEMR,$sHDEFLT	;$NAME
>
shIFE ..TEMP,<
	XWtD	..TEMR,[$DEFLT]t(	;$NAME
>
>
AtHD:	SWTCHS
	PURGEth	..TEMP,..TEMR
	SALL
MLu	6Q @MLuvQ MLuTQ MLuQQ  MLuLSQ  MLuZ7P"MLu[zP$MLuhvQ MLuiYQ @MLukyQ MLum2Q MLux[Q MLvlXQ M`tI7P pM`tI\Q M`tJ9Q M`uiQ @M`ukvQ M`um6Q  M`v9P M`v
Q M`v
WP M`v
ZQ M`v=Q M`v=8Q M`vLVQ `U_9hwP U_9iVP U_9lP WN0 u(<
A.L==0
A.T:  IRP	(B)<uhEXP  SIXBIT /B/
			A.L==A.L+1
			..TEMP==0
		vH	IRPC (B)<IFIDN vh<B><*>,<..TEMP==w1>
					STOPI>
w(			IFE ..TEMP,<AwHB==A.L>
		>
	PURGE	..TEMP
	Z:42 z(X
	EXT	.FMzHSGD
	PJSP	T1,.FMzhSGD
	XLIST
	ASC{IZ	\A\
	LIST	
QX
:QSZ:43 |hl
	EXT	.FM}SGF
	PJSP	T1,.FM}(SGF
	XLIST
	ASC}HIZ	\A\
	LIST
PDJ9PZ:46 xD
	EXT	.FMx(SG
	PJSP	T1,.FMSxHG
	XLIST
	ASCIZ	\A\
	LIST
Z:47 yN
	EXT	.FMy(SGN
	PJSP	T1,.FMyHSGN
	XLIST
	ASCyhIZ	\A\
	LIST
PWN0(Z:47 {Hb
	EXT	.FM{hSGO
	PJSP	T1,.FM|SGO
	XLIST
	ASC|(IZ	\A\
	LIST
PE|@Pg0 ](l

	X	A,C]H.T-1,<B>,D,-C.L,E
g8 _(|
	X	A,0,_H<B>,0,0,FS.NOS!C
g@ ^r

	X	A,C^(,<B>,PD.D,MX.D,E
gL ^hv
	X	A,0,<B>,C,0,D
iLtLQP iLtLXP iLtL[P 
;VQ  aDP DRP D[sQ D[vQ DlVP EXP ELzP EkzP ExUP E|@P E}:P F<QP FK`P S@P DSP 
DwP 
D)YP 	DI;P DJ6P DJ9P D\zP 
D^P DkP DkP EI7P Ek6P F;QP 	FLPP FLQP FLWP FLWP Fi9P 
>}{woP