Google
 
Trailing-Edge - PDP-10 Archives - BB-KL11J-BM_1990 - t20sub/scnmac.unv
There are 80 other files named scnmac.unv in the archive. Click here to see a list.
x
,U)@P I4  t
				ND	M(X.A,B
				ND	AHD.A,C
				ND	PD.A,DI?87  "<
	XALL
@

			
DEFINE	X(`$NAME,$PROC,$POINT,$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
    >
    IFIDN <$POINT><*P>, <..TEMP==1>	
   @ IFIDN <$POINT><*`F>,<..TEMP==2>	
>

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

		`	
			
MX.==0
DEFINE	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,"<PRINTX ?DEFAULT " OF /$NAME CANNOT "@BE NEGATIVE>>
IF"`E <$FLAGS>&FS.LRG#,<IFG <$DEFLT>-77# 7777,<PRINTX ?DEF#@AULT OF /$NAME CA#`NNOT BE GT 777777$>>
>
IFB <$FLAG$ S>,<..TEMR==0>
I$@FNB <$FLAGS>,<..T$`EMR==($FLAGS)>
.%.TEMP==1
IFN <$F% LAGS>&FS.LRG,<IFN%@ <$DEFLT>,<..TEMP%`==0>>
IFN ..TEMP&,<
	XWD	..TEMR,$& DEFLT	;$NAME
>
&@IFE ..TEMP,<
	XW&`D	..TEMR,[$DEFLT]'	;$NAME
>
>
A' D:	SWTCHS
	PURGE'@	..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 ("V
A.L==0
A.T:  IRP	(B)<(@EXP  SIXBIT /B/
			A.L==A.L+1
			..TEMP==0
		) 	IRPC (B)<IFE <")@B"-"*">*<"B"-"-)`">,<..TEMP==1
		*					STOPI>>
			* IFNB<B>,<IFE ..T*@EMP,<AB==A.L>>*`
		>
	PURGE	..TEMP
	Z:42 -@"r
	EXT	.FM-`SGD
	PJSP	T1,.FM.SGD
	XLIST
	ASC. IZ	\A\
	LIST	
Z:43 0#
	EXT	.FM0 SGF
	PJSP	T1,.FM0@SGF
	XLIST
	ASC0`IZ	\A\
	LIST
Z:46 + "^
	EXT	.FM+@SG
	PJSP	T1,.FMS+`G
	XLIST
	ASCIZ	\A\
	LIST
Z:47 , "h
	EXT	.FM,@SGN
	PJSP	T1,.FM,`SGN
	XLIST
	ASC-IZ	\A\
	LIST
Z:47 .`"|
	EXT	.FM/SGO
	PJSP	T1,.FM/ SGO
	XLIST
	ASC/@IZ	\A\
	LIST
g0 !

	X	A,C .T-1,<B>,D,-C.L,E
g8 !
	X	A,0, <B>,0,0,FS.NOS!C
g@ `!

	X	A,C,<B>,PD.D,MX.D,E
gL @!


	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