Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-07 - 43,50453/scnmac.unv
There are 80 other files named scnmac.unv in the archive. Click here to see a list.
x*@P I4 h@&H
				ND	Mh`X.A,B
				ND	AiD.A,C
				ND	PD.A,D~-P I?87 m@(
	XALL
m`

			;
DEFINE	Xn($NAME,$PROC,$POIn NT,$DEFLT,$MAX,$Fn@LAGS),<
	EXP  SIn`XBIT  /$NAME/
>o
AN:	SWTCHS
ALo ==.-AN

			;
o@IF2,<
DEFINE	X($o`NAME,$PROC,$POINTp,$DEFLT,$MAX,$FLAp GS),<
..TEMP==0
IRP $POINT,<
qp`  IFE ..TEMP-1,<
	EXP <$POINT>			q ;$NAME
    >
qq@  IFE ..TEMP-2,<
	POINT	36,$POINTr,35	;$NAME
    >r 
    IFIDN <$POIr@NT><*P>,<..TEMP==r`1>	;
    IFIDN <s$POINT><*F>,<..TEs MP==2>	;
>

IFs@B <$POINT>,<
	Z	s`		;$NAME
>
IFNBt <$POINT>,<IFE ..t TEMP,<
	EXP <$POt@INT>			;$NAME
>>t`
>>
AP:	SWTCHSu

			;
			;
Mu X.==0
DEFINE	X($u@NAME,$PROC,$POINTu`,$DEFLT,$MAX,$FLAvGS),<
IF2,<
IFEv  <$FLAGS>&FS.LRG,v@<IFG <$MAX>-37777v`7,<PRINTX ?MAXIMUwM OF /$NAME CANNOw T BE GT 377777>>
>
..TEMP==1
IFw`N <$FLAGS>&FS.LRGx,<IFN <$MAX>,<..Tx EMP==0>>
IFN ..Tx@EMP,<
	XWD	$MAX,x`$PROC	;$NAME
>
yIFE ..TEMP,<
	XWy D	[$MAX],$PROC	;$y@NAME
>
>
AM:	y`SWTCHS

			;
PzD.==0
DEFINE	X($z NAME,$PROC,$POINTz@,$DEFLT,$MAX,$FLAz`GS),<
IF2,<
IFL{ <$DEFLT>,<IFN <${ DEFLT>+1,<PRINTX {@?DEFAULT OF /$NAM{`E CANNOT BE NEGAT|IVE>>
IFE <$FLAG| S>&FS.LRG,<IFG <$|@DEFLT>-777777,<PR|`INTX ?DEFAULT OF }/$NAME CANNOT BE } GT 777777>>
>
I}@FB <$FLAGS>,<..TE}`MR==0>
IFNB <$FL~AGS>,<..TEMR==($F~ LAGS)>
..TEMP==1~@
IFN <$FLAGS>&FS~`.LRG,<IFN <$DEFLT>,<..TEMP==0>>
I FN ..TEMP,<
	XWD@	..TEMR,$DEFLT	;$`NAME
>
IFE ..TEMP,<
	XWD	..TEMR ,[$DEFLT]	;$NAME
>
>
AD:	SWTCH`S
	PURGE	..TEMP,..TEMR
	SALL
MLuvQ 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)<`EXP  SIXBIT /B/
			A.L==A.L+1
			..TEMP==0
		@	IRPC (B)<IFIDN `<B><*>,<..TEMP==1>
					STOPI>
 			IFE ..TEMP,<A@B==A.L>
		>
	PURGE	..TEMP
	Z:42  (8
	EXT	.FM@SGD
	PJSP	T1,.FM`SGD
	XLIST
	ASCIZ	\A\
	LIST	
Z:43 `(L
	EXT	.FM	SGF
	PJSP	T1,.FM	 SGF
	XLIST
	ASC	@IZ	\A\
	LIST
Z:46 ($
	EXT	.FM SG
	PJSP	T1,.FMS@G
	XLIST
	ASCIZ	\A\
	LIST
Z:47 (.
	EXT	.FM SGN
	PJSP	T1,.FM@SGN
	XLIST
	ASC`IZ	\A\
	LIST
Z:47 @(B
	EXT	.FM`SGO
	PJSP	T1,.FMSGO
	XLIST
	ASC IZ	\A\
	LIST
g0 j(&T

	X	A,CjH.T-1,<B>,D,-C.L,E
 S\zg8 l(&d
	X	A,0,lH<B>,0,0,FS.NOS!C
MP SL^g@ k&Z

	X	A,Ck(,<B>,PD.D,MX.D,E
P S=rgL kh&^
	X	A,0,<B>,C,0,D
ViLtLQP iLtLXP iLtL[P mKc@ *`XBYTE (3)A+WHO (9)AVER (6)AMIN (18)AEDT
Q $J
;VQ ADP DRP D[sQ D[vQ DlVP EXP ELzP EkzP ExUP E|@P E}:P F<QP FK`P S@Q duP f4P fI6P DSP 
DwP 
D)YP 	DI;P DJ6P DJ9P D\zP 
D^P DkP DkP EI7P Ek6P F;QP 	FLPP FLQP FLWP FLWP Fi9P 
>}{woP