Google
 
Trailing-Edge - PDP-10 Archives - bb-l014r-bm_tops20_v6_1_atpch_18 - autopatch/scnmac.unv
There are 80 other files named scnmac.unv in the archive. Click here to see a list.
x
,S)@P I4 
				ND	MX.A,B
				ND	A0D.A,C
				ND	PD.A,DI?87 ":
	XALL
(

			
DEFINE	X(H$NAME,$PROC,$POINhT,$DEFLT,$MAX,$FLAGS),<
	EXP  SIX(BIT  /$NAME/
>
HAN:	SWTCHS
AL=h=.-AN

			
IF2,<
DEFINE	X($NA(ME,$PROC,$POINT,$HDEFLT,$MAX,$FLAGSh),<
..TEMP==0
IRP $POINT,<
    (IFE ..TEMP-1,<
	H$POINT			;$NAME
h    >
    IFE ..TEMP-2,<
	POINT	(36,$POINT,35	;$NAHME
    >
    IFhIDN <$POINT><*P>,<..TEMP==1>	
   ( IFIDN <$POINT><*HF>,<..TEMP==2>	
h>

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

		H	
			
MX.==0
DhEFINE	X($NAME,$PROC,$POINT,$DEFLT,($MAX,$FLAGS),<
IHF2,<
IFE <$FLAGSh>&FS.LRG,<IFG <$MAX>-377777,<PRINT(X ?MAXIMUM OF /$NHAME CANNOT BE GT h377777>>
>
..TEMP==1
IFN <$FLAG(S>&FS.LRG,<IFN <$HMAX>,<..TEMP==0>>h
IFN ..TEMP,<
	XWD	$MAX,$PROC	;$(NAME
>
IFE ..TEHMP,<
	XWD	[$MAX]h,$PROC	;$NAME
> 
>
AM:	SWTCHS
 (
			
PD.==0
DE HFINE	X($NAME,$PRO hC,$POINT,$DEFLT,$!MAX,$FLAGS),<
IF!(2,<
IFL <$DEFLT>!H,<IFN <$DEFLT>+1,!h<PRINTX ?DEFAULT "OF /$NAME CANNOT "(BE NEGATIVE>>
IF"HE <$FLAGS>&FS.LRG"h,<IFG <$DEFLT>-77#7777,<PRINTX ?DEF#(AULT OF /$NAME CA#HNNOT BE GT 777777#h>>
>
IFB <$FLAG$S>,<..TEMR==0>
I$(FNB <$FLAGS>,<..T$HEMR==($FLAGS)>
.$h.TEMP==1
IFN <$F%LAGS>&FS.LRG,<IFN%( <$DEFLT>,<..TEMP%H==0>>
IFN ..TEMP%h,<
	XWD	..TEMR,$&DEFLT	;$NAME
>
&(IFE ..TEMP,<
	XW&HD	..TEMR,[$DEFLT]&h	;$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 'h"T
A.L==0
A.T:  IRP	(B)<((EXP  SIXBIT /B/
			A.L==A.L+1
			..TEMP==0
		)	IRPC (B)<IFE <")(B"-"*">*<"B"-"-)H">,<..TEMP==1
		)h					STOPI>>
			*IFNB<B>,<IFE ..T*(EMP,<AB==A.L>>*H
		>
	PURGE	..TEMP
	Z:42 -("p
	EXT	.FM-HSGD
	PJSP	T1,.FM-hSGD
	XLIST
	ASC.IZ	\A\
	LIST	
Z:43 /h#
	EXT	.FM0SGF
	PJSP	T1,.FM0(SGF
	XLIST
	ASC0HIZ	\A\
	LIST
Z:46 +"\
	EXT	.FM+(SG
	PJSP	T1,.FMS+HG
	XLIST
	ASCIZ	\A\
	LIST
Z:47 ,"f
	EXT	.FM,(SGN
	PJSP	T1,.FM,HSGN
	XLIST
	ASC,hIZ	\A\
	LIST
Z:47 .H"z
	EXT	.FM.hSGO
	PJSP	T1,.FM/SGO
	XLIST
	ASC/(IZ	\A\
	LIST
g0 h!

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

	X	A,Ch,<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