Google
 
Trailing-Edge - PDP-10 Archives - BB-L665B-BM - binary/scnmac.unv
There are 80 other files named scnmac.unv in the archive. Click here to see a list.
x
,5(@P I4 !


				ND	M(X.A,B
				ND	AHD.A,C
				ND	PD.A,DI?87 "S
	XALL
0

			
DEFINE	X(P$NAME,$PROC,$POINpT,$DEFLT,$MAX,$FLAGS),<
	EXP  SIX0BIT  /$NAME/
>
PAN:	SWTCHS
AL=p=.-AN

			
IF2,<
DEFINE	X($NA0ME,$PROC,$POINT,$PDEFLT,$MAX,$FLAGSp),<
..TEMP==0
IRP $POINT,<
    0IFE ..TEMP-1,<
	P$POINT			;$NAME
p    >
    IFE ..TEMP-2,<
	POINT	036,$POINT,35	;$NAPME
    >
    IFpIDN <$POINT><*P>,<..TEMP==1>	
   0 IFIDN <$POINT><*PF>,<..TEMP==2>	
p>

IFB <$POINT>,<
	Z			;$NAME
0..TEMP==1>
IFE .P.TEMP,<
IFN <$POpINT>_-^D24,<
..TEMP==$POINT
	..T0EMP			;$NAME
>
PIFE ..TEMP,<
	POpINT 36,$POINT,35	;$NAME
	>
>>>
0AP:	SWTCHS

		P	
			
MX.==0
DpEFINE	X($NAME,$PROC,$POINT,$DEFLT,0$MAX,$FLAGS),<
IPF2,<
IFE <$FLAGSp>&FS.LRG,<IFG <$M AX>-377777,<PRINT 0X ?MAXIMUM OF /$N PAME CANNOT BE GT  p377777>>
>
..TE!MP==1
IFN <$FLAG!0S>&FS.LRG,<IFN <$!PMAX>,<..TEMP==0>>!p
IFN ..TEMP,<
	"XWD	$MAX,$PROC	;$"0NAME
>
IFE ..TE"PMP,<
	XWD	[$MAX]"p,$PROC	;$NAME
>#
>
AM:	SWTCHS
#0
			
PD.==0
DE#PFINE	X($NAME,$PRO#pC,$POINT,$DEFLT,$$MAX,$FLAGS),<
IF$02,<
IFL <$DEFLT>$P,<IFN <$DEFLT>+1,$p<PRINTX ?DEFAULT %OF /$NAME CANNOT %0BE NEGATIVE>>
IF%PE <$FLAGS>&FS.LRG%p,<IFG <$DEFLT>-77&7777,<PRINTX ?DEF&0AULT OF /$NAME CA&PNNOT BE GT 777777&p>>
>
IFB <$FLAG'S>,<..TEMR==0>
I'0FNB <$FLAGS>,<..T'PEMR==($FLAGS)>
.'p.TEMP==1
IFN <$F(LAGS>&FS.LRG,<IFN(0 <$DEFLT>,<..TEMP(P==0>>
IFN ..TEMP(p,<
	XWD	..TEMR,$)DEFLT	;$NAME
>
)0IFE ..TEMP,<
	XW)PD	..TEMR,[$DEFLT])p	;$NAME
>
>
A*D:	SWTCHS
	PURGE*0	..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 *p"i
A.L==0
A.T:  IRP	(B)<+0EXP  SIXBIT /B/
			A.L==A.L+1
			..TEMP==0
		,	IRPC (B)<IFIDN ,0<B><*>,<..TEMP==,P1>
					STOPI>
,p			IFE ..TEMP,<A-B==A.L>
		>
	PURGE	..TEMP
	Z:42 /p#
	EXT	.FM0SGD
	PJSP	T1,.FM00SGD
	XLIST
	ASC0PIZ	\A\
	LIST	
Z:43 20#
	EXT	.FM2PSGF
	PJSP	T1,.FM2pSGF
	XLIST
	ASC3IZ	\A\
	LIST
Z:46 -P"q
	EXT	.FM-pSG
	PJSP	T1,.FMS.G
	XLIST
	ASCIZ	\A\
	LIST
Z:47 .P"{
	EXT	.FM.pSGN
	PJSP	T1,.FM/SGN
	XLIST
	ASC/0IZ	\A\
	LIST
Z:47 1#
	EXT	.FM10SGO
	PJSP	T1,.FM1PSGO
	XLIST
	ASC1pIZ	\A\
	LIST
g0 x!

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

	X	A,Cx,<B>,PD.D,MX.D,E
gL 8!#
	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