Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99p-bb - scnmac.unv
There are 80 other files named scnmac.unv in the archive. Click here to see a list.
x
,S)@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)<IFE <"vhB"-"*">*<"B"-"-w">,<..TEMP==1
		w(					STOPI>>
			wHIFNB<B>,<IFE ..TwhEMP,<AB==A.L>>x
		>
	PURGE	..TEMP
	`tJ9QbZ:42 zh\
	EXT	.FM{SGD
	PJSP	T1,.FM{(SGD
	XLIST
	ASC{HIZ	\A\
	LIST	
QfD[vQfZ:43 }(p
	EXT	.FM}HSGF
	PJSP	T1,.FM}hSGF
	XLIST
	ASC~IZ	\A\
	LIST
PDkPZ:46 xHH
	EXT	.FMxhSG
	PJSP	T1,.FMSyG
	XLIST
	ASCIZ	\A\
	LIST
dZ:47 yHR
	EXT	.FMyhSGN
	PJSP	T1,.FMzSGN
	XLIST
	ASCz(IZ	\A\
	LIST
ngLtZ:47 |f
	EXT	.FM|(SGO
	PJSP	T1,.FM|HSGO
	XLIST
	ASC|hIZ	\A\
	LIST
PS@P g0 ](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  bDP 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