Google
 

Trailing-Edge - PDP-10 Archives - bb-d549g-sb - scc6.unv
There are no other files named scc6.unv in the archive.
x#@P CNX %H"0
	EXT	ASK%h.
	PUSHJ	P,ASK.
	XLIST
	ASCIZ	\A\
BUQ RI4 	 M
				ND	M	0X.A,B
				ND	A	PD.A,C
				ND	PD.A,D $4qI?87 "
	XALL
(

			;
DEFINE	XH($NAME,$PROC,$POIhNT,$DEFLT,$MAX,$FLAGS),<
	EXP  SI(XBIT  /$NAME/
>H
AN:	SWTCHS
ALh==.-AN

			;
IF2,<
DEFINE	X($(NAME,$PROC,$POINTH,$DEFLT,$MAX,$FLAhGS),<
..TEMP==0
IRP $POINT,<
(  IFE ..TEMP-1,<
	$POINT			;$NAMEh
    >
    IFE ..TEMP-2,<
	POIN(T	36,$POINT,35	;$HNAME
    >
    hIFIDN <$POINT><*P>,<..TEMP==1>	;
(    IFIDN <$POINTH><*F>,<..TEMP==2>h	;
>

IFB <$POINT>,<
	Z			;$NA(ME
..TEMP==1>
IHFE ..TEMP,<
IFN h<$POINT>-^D24,<
..TEMP==$POINT
(	..TEMP			;$NAME
>
IFE ..TEMP,<
	POINT 36,$POINT,35	;$NAME
	>
>(>>
AP:	SWTCHS
H
			;
			;
MX.h==0
DEFINE	X($NAME,$PROC,$POINT,$(DEFLT,$MAX,$FLAGSH),<
IF2,<
IFE <h$FLAGS>&FS.LRG,<IFG <$MAX>-377777,(<PRINTX ?MAXIMUM HOF /$NAME CANNOT hBE GT 377777>>
>
..TEMP==1
IFN (<$FLAGS>&FS.LRG,<HIFN <$MAX>,<..TEMhP==0>>
IFN ..TEMP,<
	XWD	$MAX,$P(ROC	;$NAME
>
IFHE ..TEMP,<
	XWD	h[$MAX],$PROC	;$NAME
>
>
AM:	SW(TCHS

			;
PD.H==0
DEFINE	X($NAhME,$PROC,$POINT,$DEFLT,$MAX,$FLAGS(),<
IF2,<
IFL <H$DEFLT>,<IFN <$DEhFLT>+1,<PRINTX ?DEFAULT OF /$NAME (CANNOT BE NEGATIVHE>>
IFE <$FLAGS>h&FS.LRG,<IFG <$DEFLT>-777777,<PRIN(TX ?DEFAULT OF /$HNAME CANNOT BE GTh 777777>>
>
IFB <$FLAGS>,<..TEMR(==0>
IFNB <$FLAGHS>,<..TEMR==($FLAhGS)>
..TEMP==1
 IFN <$FLAGS>&FS.L (RG,<IFN <$DEFLT>, H<..TEMP==0>>
IFN h ..TEMP,<
	XWD	.!.TEMR,$DEFLT	;$NA!(ME
>
IFE ..TEMP!H,<
	XWD	..TEMR,[!h$DEFLT]	;$NAME
>"
>
AD:	SWTCHS
	PURGE	..TEMP,..TEMR
	SALL
MLuvQ MLuLSQ  MLuZ7P"MLu[zP$MLuiYQ @MLukyQ MLum2Q MLux[Q MLvlXQ M`tI7P M`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"(
A.L==0
A.T:  IRP	(B)<#(EXP  SIXBIT /B/
			A.L==A.L+1
			..TEMP==0
		$	IRPC (B)<IFIDN $(<B><*>,<..TEMP==$H1>
					STOPI>
$h			IFE ..TEMP,<A%B==A.L>
		>
	PURGE	..TEMP
	Z:42 (h"L
	EXT	.FM)SGD
	PJSP	T1,.FM)(SGD
	XLIST
	ASC)HIZ	\A\
	LIST	
P:B5 +("`
	EXT	.FM+HSGF
	PJSP	T1,.FM+hSGF
	XLIST
	ASC,IZ	\A\
	LIST
Q C$lvQ Z:46 &H"8
	EXT	.FM&hSG
	PJSP	T1,.FMS'G
	XLIST
	ASCIZ	\A\
	LIST
RZ:47 'H"B
	EXT	.FM'hSGN
	PJSP	T1,.FM(SGN
	XLIST
	ASC((IZ	\A\
	LIST
Q JBx5Q QZ:47 *"V
	EXT	.FM*(SGO
	PJSP	T1,.FM*HSGO
	XLIST
	ASC*hIZ	\A\
	LIST
P Cj9P g0 
x Y

	X	A,C.T-1,<B>,D,-C.L,E
$;vP 
g8 
x i
	X	A,0,,FS.NOS!C
%J6P g@ X _

	X	A,Cx,<B>,PD.D,MX.D,E
$MVP $gL 
8 c
	X	A,0,<B>,C,0,D
iLtLQP iLtLXP iLtL[P 
;VQ  DP D[sQ D[vQ S@Q DSP 
DwP 
D)YP 	DI;P DJ6P DJ9P D\zP 
D^P DkP DkP EI7P Ek6P F;QP 	FLPP FLQP FLWP FLWP Fi9P 
>}{woP