Google
 
Trailing-Edge - PDP-10 Archives - bb-h137e-bm_tops20_v6_1_instl - new-subsys/scnmac.unv
There are 80 other files named scnmac.unv in the archive. Click here to see a list.
x
,Q)@P I4 !e
				ND	M8X.A,B
				ND	AXD.A,C
				ND	PD.A,DI?87 !0#-
	XALL
!P

			
DEFINE	X(!p$NAME,$PROC,$POIN"T,$DEFLT,$MAX,$FL"0AGS),<
	EXP  SIX"PBIT  /$NAME/
>
"pAN:	SWTCHS
AL=#=.-AN

			
IF#02,<
DEFINE	X($NA#PME,$PROC,$POINT,$#pDEFLT,$MAX,$FLAGS$),<
..TEMP==0
I$0RP $POINT,<
    $PIFE ..TEMP-1,<
	$p$POINT			;$NAME
%    >
    IFE ..%0TEMP-2,<
	POINT	%P36,$POINT,35	;$NA%pME
    >
    IF&IDN <$POINT><*P>,&0<..TEMP==1>	
   &P IFIDN <$POINT><*&pF>,<..TEMP==2>	
'>

IFB <$POINT>'0,<
	Z			;$NAME
'P..TEMP==1>
IFE .'p.TEMP,<
IFN <$PO(INT>_-^D24,<
..T(0EMP==$POINT
	..T(PEMP			;$NAME
>
(pIFE ..TEMP,<
	PO)INT 36,$POINT,35	)0;$NAME
	>
>>>
)PAP:	SWTCHS

		)p	
			
MX.==0
D*EFINE	X($NAME,$PR*0OC,$POINT,$DEFLT,*P$MAX,$FLAGS),<
I*pF2,<
IFE <$FLAGS+>&FS.LRG,<IFG <$M+0AX>-377777,<PRINT+PX ?MAXIMUM OF /$N+pAME CANNOT BE GT ,377777>>
>
..TE,0MP==1
IFN <$FLAG,PS>&FS.LRG,<IFN <$,pMAX>,<..TEMP==0>>-
IFN ..TEMP,<
	-0XWD	$MAX,$PROC	;$-PNAME
>
IFE ..TE-pMP,<
	XWD	[$MAX].,$PROC	;$NAME
>.0
>
AM:	SWTCHS
.P
			
PD.==0
DE.pFINE	X($NAME,$PRO/C,$POINT,$DEFLT,$/0MAX,$FLAGS),<
IF/P2,<
IFL <$DEFLT>/p,<IFN <$DEFLT>+1,0<PRINTX ?DEFAULT 00OF /$NAME CANNOT 0PBE NEGATIVE>>
IF0pE <$FLAGS>&FS.LRG1,<IFG <$DEFLT>-77107777,<PRINTX ?DEF1PAULT OF /$NAME CA1pNNOT BE GT 7777772>>
>
IFB <$FLAG20S>,<..TEMR==0>
I2PFNB <$FLAGS>,<..T2pEMR==($FLAGS)>
.3.TEMP==1
IFN <$F30LAGS>&FS.LRG,<IFN3P <$DEFLT>,<..TEMP3p==0>>
IFN ..TEMP4,<
	XWD	..TEMR,$40DEFLT	;$NAME
>
4PIFE ..TEMP,<
	XW4pD	..TEMR,[$DEFLT]5	;$NAME
>
>
A50D:	SWTCHS
	PURGE5P	..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 6#C
A.L==0
A.T:  IRP	(B)<6PEXP  SIXBIT /B/
			A.L==A.L+1
			..TEMP==0
		70	IRPC (B)<IFIDN 7P<B><*>,<..TEMP==7p1>
					STOPI>
8			IFE ..TEMP,<A80B==A.L>
		>
	PURGE	..TEMP
	Z:42 ;#_
	EXT	.FM;0SGD
	PJSP	T1,.FM;PSGD
	XLIST
	ASC;pIZ	\A\
	LIST	
Z:43 =P#s
	EXT	.FM=pSGF
	PJSP	T1,.FM>SGF
	XLIST
	ASC>0IZ	\A\
	LIST
Z:46 8p#K
	EXT	.FM9SG
	PJSP	T1,.FMS90G
	XLIST
	ASCIZ	\A\
	LIST
Z:47 9p#U
	EXT	.FM:SGN
	PJSP	T1,.FM:0SGN
	XLIST
	ASC:PIZ	\A\
	LIST
Z:47 <0#i
	EXT	.FM<PSGO
	PJSP	T1,.FM<pSGO
	XLIST
	ASC=IZ	\A\
	LIST
g0 !s

	X	A,C0.T-1,<B>,D,-C.L,E
D\zg8  "
	X	A,0, 0<B>,0,0,FS.NOS!C
g@ p!y

	X	A,C,<B>,PD.D,MX.D,E
PEh6gL P!}
	X	A,0,<B>,C,0,D
oiLtLQP iLtLXP iLtL[P 
;VQ  aDP 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