Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99r-bb - scnmac.unv
There are 80 other files named scnmac.unv in the archive. Click here to see a list.
x
,U)@P I4 JhZ
				ND	MKX.A,B
				ND	AK(D.A,C
				ND	PD.A,DI?87 P"
	XALL
P 

			
DEFINE	X(P@$NAME,$PROC,$POINP`T,$DEFLT,$MAX,$FLQAGS),<
	EXP  SIXQ BIT  /$NAME/
>
Q@AN:	SWTCHS
AL=Q`=.-AN

			
IFR2,<
DEFINE	X($NAR ME,$PROC,$POINT,$R@DEFLT,$MAX,$FLAGSR`),<
..TEMP==0
ISRP $POINT,<
    S IFE ..TEMP-1,<
	S@$POINT			;$NAME
S`    >
    IFE ..TTEMP-2,<
	POINT	T 36,$POINT,35	;$NAT@ME
    >
    IFT`IDN <$POINT><*P>,U<..TEMP==1>	
   U  IFIDN <$POINT><*U@F>,<..TEMP==2>	
U`>

IFB <$POINT>V,<
	Z			;$NAME
V ..TEMP==1>
IFE .V@.TEMP,<
IFN <$POV`INT>_-^D24,<
..TWEMP==$POINT
	..TW EMP			;$NAME
>
W@IFE ..TEMP,<
	POW`INT 36,$POINT,35	X;$NAME
	>
>>>
X AP:	SWTCHS

		X@	
			
MX.==0
DX`EFINE	X($NAME,$PRYOC,$POINT,$DEFLT,Y $MAX,$FLAGS),<
IY@F2,<
IFE <$FLAGSY`>&FS.LRG,<IFG <$MZAX>-377777,<PRINTZ X ?MAXIMUM OF /$NZ@AME CANNOT BE GT Z`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 <$FLAGaS>,<..TEMR==0>
Ia FNB <$FLAGS>,<..Ta@EMR==($FLAGS)>
.a`.TEMP==1
IFN <$FbLAGS>&FS.LRG,<IFNb  <$DEFLT>,<..TEMPb@==0>>
IFN ..TEMPb`,<
	XWD	..TEMR,$cDEFLT	;$NAME
>
c IFE ..TEMP,<
	XWc@D	..TEMR,[$DEFLT]c`	;$NAME
>
>
AdD:	SWTCHS
	PURGEd 	..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 d`<
A.L==0
A.T:  IRP	(B)<e EXP  SIXBIT /B/
			A.L==A.L+1
			..TEMP==0
		f	IRPC (B)<IFE <"f B"-"*">*<"B"-"-f@">,<..TEMP==1
		f`					STOPI>>
			gIFNB<B>,<IFE ..Tg EMP,<AB==A.L>>g@
		>
	PURGE	..TEMP
	Z:42 j X
	EXT	.FMj@SGD
	PJSP	T1,.FMj`SGD
	XLIST
	ASCkIZ	\A\
	LIST	
Z:43 l`l
	EXT	.FMmSGF
	PJSP	T1,.FMm SGF
	XLIST
	ASCm@IZ	\A\
	LIST
Z:46 hD
	EXT	.FMh SG
	PJSP	T1,.FMSh@G
	XLIST
	ASCIZ	\A\
	LIST
Z:47 iN
	EXT	.FMi SGN
	PJSP	T1,.FMi@SGN
	XLIST
	ASCi`IZ	\A\
	LIST
Z:47 k@b
	EXT	.FMk`SGO
	PJSP	T1,.FMlSGO
	XLIST
	ASCl IZ	\A\
	LIST
g0 L`h

	X	A,CM.T-1,<B>,D,-C.L,E
g8 N`x
	X	A,0,O<B>,0,0,FS.NOS!C
g@ M@n

	X	A,CM`,<B>,PD.D,MX.D,E
gL N r
	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