Google
 
Trailing-Edge - PDP-10 Archives - k20v7c - subsys/scnmac.unv
There are 80 other files named scnmac.unv in the archive. Click here to see a list.
x
,S)@P I4 8!w
				ND	MXX.A,B
				ND	AxD.A,C
				ND	PD.A,DP I?87 #P#?
	XALL
#p

			
DEFINE	X($$NAME,$PROC,$POIN$0T,$DEFLT,$MAX,$FL$PAGS),<
	EXP  SIX$pBIT  /$NAME/
>
%AN:	SWTCHS
AL=%0=.-AN

			
IF%P2,<
DEFINE	X($NA%pME,$PROC,$POINT,$&DEFLT,$MAX,$FLAGS&0),<
..TEMP==0
I&PRP $POINT,<
    &pIFE ..TEMP-1,<
	'$POINT			;$NAME
'0    >
    IFE ..'PTEMP-2,<
	POINT	'p36,$POINT,35	;$NA(ME
    >
    IF(0IDN <$POINT><*P>,(P<..TEMP==1>	
   (p IFIDN <$POINT><*)F>,<..TEMP==2>	
)0>

IFB <$POINT>)P,<
	Z			;$NAME
)p..TEMP==1>
IFE .*.TEMP,<
IFN <$PO*0INT>_-^D24,<
..T*PEMP==$POINT
	..T*pEMP			;$NAME
>
+IFE ..TEMP,<
	PO+0INT 36,$POINT,35	+P;$NAME
	>
>>>
+pAP:	SWTCHS

		,	
			
MX.==0
D,0EFINE	X($NAME,$PR,POC,$POINT,$DEFLT,,p$MAX,$FLAGS),<
I-F2,<
IFE <$FLAGS-0>&FS.LRG,<IFG <$M-PAX>-377777,<PRINT-pX ?MAXIMUM OF /$N.AME CANNOT BE GT .0377777>>
>
..TE.PMP==1
IFN <$FLAG.pS>&FS.LRG,<IFN <$/MAX>,<..TEMP==0>>/0
IFN ..TEMP,<
	/PXWD	$MAX,$PROC	;$/pNAME
>
IFE ..TE0MP,<
	XWD	[$MAX]00,$PROC	;$NAME
>0P
>
AM:	SWTCHS
0p
			
PD.==0
DE1FINE	X($NAME,$PRO10C,$POINT,$DEFLT,$1PMAX,$FLAGS),<
IF1p2,<
IFL <$DEFLT>2,<IFN <$DEFLT>+1,20<PRINTX ?DEFAULT 2POF /$NAME CANNOT 2pBE NEGATIVE>>
IF3E <$FLAGS>&FS.LRG30,<IFG <$DEFLT>-773P7777,<PRINTX ?DEF3pAULT OF /$NAME CA4NNOT BE GT 77777740>>
>
IFB <$FLAG4PS>,<..TEMR==0>
I4pFNB <$FLAGS>,<..T5EMR==($FLAGS)>
.50.TEMP==1
IFN <$F5PLAGS>&FS.LRG,<IFN5p <$DEFLT>,<..TEMP6==0>>
IFN ..TEMP60,<
	XWD	..TEMR,$6PDEFLT	;$NAME
>
6pIFE ..TEMP,<
	XW7D	..TEMR,[$DEFLT]70	;$NAME
>
>
A7PD:	SWTCHS
	PURGE7p	..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 80#Y
A.L==0
A.T:  IRP	(B)<8pEXP  SIXBIT /B/
			A.L==A.L+1
			..TEMP==0
		9P	IRPC (B)<IFE <"9pB"-"*">*<"B"-"-:">,<..TEMP==1
		:0					STOPI>>
			:PIFNB<B>,<IFE ..T:pEMP,<AB==A.L>>;
		>
	PURGE	..TEMP
	Z:42 =p#u
	EXT	.FM>SGD
	PJSP	T1,.FM>0SGD
	XLIST
	ASC>PIZ	\A\
	LIST	
Z:43 @0$	
	EXT	.FM@PSGF
	PJSP	T1,.FM@pSGF
	XLIST
	ASCAIZ	\A\
	LIST
Z:46 ;P#a
	EXT	.FM;pSG
	PJSP	T1,.FMS<G
	XLIST
	ASCIZ	\A\
	LIST
Z:47 <P#k
	EXT	.FM<pSGN
	PJSP	T1,.FM=SGN
	XLIST
	ASC=0IZ	\A\
	LIST
Z:47 ?#
	EXT	.FM?0SGO
	PJSP	T1,.FM?PSGO
	XLIST
	ASC?pIZ	\A\
	LIST
g0  0"

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

	X	A,C!0,<B>,PD.D,MX.D,E
gL !p"
	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