Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99l-bb - scnmac.unv
There are 80 other files named scnmac.unv in the archive. Click here to see a list.
x
,V.@P I4 u .
				ND	Mu@X.A,B
				ND	Au`D.A,C
				ND	PD.A,DI?87 z8u
	XALL
zX

			
DEFINE	X(zx$NAME,$PROC,$POIN{T,$DEFLT,$MAX,$FL{8AGS),<
	EXP  SIX{XBIT  /$NAME/
>
{xAN:	SWTCHS
AL=|=.-AN

			
IF|82,<
DEFINE	X($NA|XME,$PROC,$POINT,$|xDEFLT,$MAX,$FLAGS}),<
..TEMP==0
I}8RP $POINT,<
    }XIFE ..TEMP-1,<
	}x$POINT			;$NAME
~    >
    IFE ..~8TEMP-2,<
	POINT	~X36,$POINT,35	;$NA~xME
    >
    IFIDN <$POINT><*P>,8<..TEMP==1>	
   X IFIDN <$POINT><*xF>,<..TEMP==2>	
>

IFB <$POINT>8,<
	Z			;$NAME
X..TEMP==1>
IFE .x.TEMP,<
IFN <$POINT>_-^D24,<
..T8EMP==$POINT
	..TXEMP			;$NAME
>
xIFE ..TEMP,<
	POINT 36,$POINT,35	8;$NAME
	>
>>>
XAP:	SWTCHS

		x	
			
MX.==0
DEFINE	X($NAME,$PR8OC,$POINT,$DEFLT,X$MAX,$FLAGS),<
IxF2,<
IFE <$FLAGS>&FS.LRG,<IFG <$M8AX>-377777,<PRINTXX ?MAXIMUM OF /$NxAME CANNOT BE GT 377777>>
>
..TE8MP==1
IFN <$FLAGXS>&FS.LRG,<IFN <$xMAX>,<..TEMP==0>>
IFN ..TEMP,<
	8XWD	$MAX,$PROC	;$XNAME
>
IFE ..TExMP,<
	XWD	[$MAX],$PROC	;$NAME
>8
>
AM:	SWTCHS
X
			
PD.==0
DExFINE	X($NAME,$PROC,$POINT,$DEFLT,$8MAX,$FLAGS),<
IFX2,<
IFL <$DEFLT>x,<IFN <$DEFLT>+1,	<PRINTX ?DEFAULT 	8OF /$NAME CANNOT 	XBE NEGATIVE>>
IF	xE <$FLAGS>&FS.LRG
,<IFG <$DEFLT>-77
87777,<PRINTX ?DEF
XAULT OF /$NAME CA
xNNOT BE GT 777777>>
>
IFB <$FLAG8S>,<..TEMR==0>
IXFNB <$FLAGS>,<..TxEMR==($FLAGS)>
.
.TEMP==1
IFN <$F
8LAGS>&FS.LRG,<IFN
X <$DEFLT>,<..TEMP
x==0>>
IFN ..TEMP
	XWD	..TEMR,$
>
IFE ..TEMP,<
	XW.TEMR,[$DEFLT]	;$NAME
>
>
A8D:	SWTCHS
	PURGEX	..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 
A.L==0
A.T:  IRP	(B)<XEXP  SIXBIT /B/
			A.L==A.L+1
			..TEMP==0
		8	IRPC (B)<IFE <"XB"-"*">*<"B"-"-x">,<..TEMP==1
							STOPI>>
			8IFNB<B>,<IFE ..TXEMP,<AB==A.L>>x
		>
	PURGE	..TEMP
	Z:42 X+
	EXT	.FMxSGD
	PJSP	T1,.FMSGD
	XLIST
	ASC8IZ	\A\
	LIST	
Z:43 ?
	EXT	.FM8SGF
	PJSP	T1,.FMXSGF
	XLIST
	ASCxIZ	\A\
	LIST
Z:46 8
	EXT	.FMXSG
	PJSP	T1,.FMSxG
	XLIST
	ASCIZ	\A\
	LIST
Z:47 8!
	EXT	.FMXSGN
	PJSP	T1,.FMxSGN
	XLIST
	ASCIZ	\A\
	LIST
Z:47 x5
	EXT	.FMSGO
	PJSP	T1,.FM8SGO
	XLIST
	ASCXIZ	\A\
	LIST
g0 w;

	X	A,Cw8.T-1,<B>,D,-C.L,E
LuQQ7g8 yK
	X	A,0,y8<B>,0,0,FS.NOS!C
3iLtL[Pg@ wxA

	X	A,Cx,<B>,PD.D,MX.D,E
M`uiQ0gL xXE
	X	A,0,<B>,C,0,D
1iLtLQP 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 @P 
DSP 
DwP 
D)YP 	DI;P DJ6P DJ9P D\zP 
D^P DkP DkP EI7P Ek6P F;QP 	FLPP FLQP FLWP FLWP Fi9P 
"~\GP 6-GQ ,V6Mc@P 6}c@P ?N'P Cc@Q @UN,3@P ON;GP f,GP a>}{woP