Google
 

Trailing-Edge - PDP-10 Archives - tops20_v6_1_tcpip_installation_tp_ft6 - new-subsys/scnmac.unv
There are 80 other files named scnmac.unv in the archive. Click here to see a list.
x
,Q(@P I4 !e
				ND	M8X.A,B
				ND	AXD.A,C
				ND	PD.A,DI?87 ! #,
	XALL
!@

			
DEFINE	X(!`$NAME,$PROC,$POIN"T,$DEFLT,$MAX,$FL" AGS),<
	EXP  SIX"@BIT  /$NAME/
>
"`AN:	SWTCHS
AL=#=.-AN

			
IF# 2,<
DEFINE	X($NA#@ME,$PROC,$POINT,$#`DEFLT,$MAX,$FLAGS$),<
..TEMP==0
I$ RP $POINT,<
    $@IFE ..TEMP-1,<
	$`$POINT			;$NAME
%    >
    IFE ..% TEMP-2,<
	POINT	%@36,$POINT,35	;$NA%`ME
    >
    IF&IDN <$POINT><*P>,& <..TEMP==1>	
   &@ IFIDN <$POINT><*&`F>,<..TEMP==2>	
'>

IFB <$POINT>' ,<
	Z			;$NAME
'@..TEMP==1>
IFE .'`.TEMP,<
IFN <$PO(INT>_-^D24,<
..T( EMP==$POINT
	..T(@EMP			;$NAME
>
(`IFE ..TEMP,<
	PO)INT 36,$POINT,35	) ;$NAME
	>
>>>
)@AP:	SWTCHS

		)`	
			
MX.==0
D*EFINE	X($NAME,$PR* OC,$POINT,$DEFLT,*@$MAX,$FLAGS),<
I*`F2,<
IFE <$FLAGS+>&FS.LRG,<IFG <$M+ AX>-377777,<PRINT+@X ?MAXIMUM OF /$N+`AME CANNOT BE GT ,377777>>
>
..TE, MP==1
IFN <$FLAG,@S>&FS.LRG,<IFN <$,`MAX>,<..TEMP==0>>-
IFN ..TEMP,<
	- XWD	$MAX,$PROC	;$-@NAME
>
IFE ..TE-`MP,<
	XWD	[$MAX].,$PROC	;$NAME
>. 
>
AM:	SWTCHS
.@
			
PD.==0
DE.`FINE	X($NAME,$PRO/C,$POINT,$DEFLT,$/ MAX,$FLAGS),<
IF/@2,<
IFL <$DEFLT>/`,<IFN <$DEFLT>+1,0<PRINTX ?DEFAULT 0 OF /$NAME CANNOT 0@BE NEGATIVE>>
IF0`E <$FLAGS>&FS.LRG1,<IFG <$DEFLT>-771 7777,<PRINTX ?DEF1@AULT OF /$NAME CA1`NNOT BE GT 7777772>>
>
IFB <$FLAG2 S>,<..TEMR==0>
I2@FNB <$FLAGS>,<..T2`EMR==($FLAGS)>
.3.TEMP==1
IFN <$F3 LAGS>&FS.LRG,<IFN3@ <$DEFLT>,<..TEMP3`==0>>
IFN ..TEMP4,<
	XWD	..TEMR,$4 DEFLT	;$NAME
>
4@IFE ..TEMP,<
	XW4`D	..TEMR,[$DEFLT]5	;$NAME
>
>
A5 D:	SWTCHS
	PURGE5@	..TEMP,..TEMR
	SALL
MLuvQ MLuTQ 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 6#B
A.L==0
A.T:  IRP	(B)<6@EXP  SIXBIT /B/
			A.L==A.L+1
			..TEMP==0
		7 	IRPC (B)<IFIDN 7@<B><*>,<..TEMP==7`1>
					STOPI>
8			IFE ..TEMP,<A8 B==A.L>
		>
	PURGE	..TEMP
	Z:42 ;#^
	EXT	.FM; SGD
	PJSP	T1,.FM;@SGD
	XLIST
	ASC;`IZ	\A\
	LIST	
Z:43 =@#r
	EXT	.FM=`SGF
	PJSP	T1,.FM>SGF
	XLIST
	ASC> IZ	\A\
	LIST
Z:46 8`#J
	EXT	.FM9SG
	PJSP	T1,.FMS9 G
	XLIST
	ASCIZ	\A\
	LIST
Z:47 9`#T
	EXT	.FM:SGN
	PJSP	T1,.FM: SGN
	XLIST
	ASC:@IZ	\A\
	LIST
Z:47 < #h
	EXT	.FM<@SGO
	PJSP	T1,.FM<`SGO
	XLIST
	ASC=IZ	\A\
	LIST
g0 !r

	X	A,C(.T-1,<B>,D,-C.L,E
DJ9Pg8  "
	X	A,0, (<B>,0,0,FS.NOS!C
g@ h!x

	X	A,C,<B>,PD.D,MX.D,E
E[vPgL H!|
	X	A,0,<B>,C,0,D

iLtLQP iLtLXP iLtL[P 
;VQ  `DP 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