Google
 
Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - scnmac.unv
There are 80 other files named scnmac.unv in the archive. Click here to see a list.
x
,5(@P I4 W<
				ND	MW X.A,B
				ND	AW@D.A,C
				ND	PD.A,DI?87 \
	XALL
\(

			
DEFINE	X(\H$NAME,$PROC,$POIN\hT,$DEFLT,$MAX,$FL]AGS),<
	EXP  SIX](BIT  /$NAME/
>
]HAN:	SWTCHS
AL=]h=.-AN

			
IF^2,<
DEFINE	X($NA^(ME,$PROC,$POINT,$^HDEFLT,$MAX,$FLAGS^h),<
..TEMP==0
I_RP $POINT,<
    _(IFE ..TEMP-1,<
	_H$POINT			;$NAME
_h    >
    IFE ..`TEMP-2,<
	POINT	`(36,$POINT,35	;$NA`HME
    >
    IF`hIDN <$POINT><*P>,a<..TEMP==1>	
   a( IFIDN <$POINT><*aHF>,<..TEMP==2>	
ah>

IFB <$POINT>b,<
	Z			;$NAME
b(..TEMP==1>
IFE .bH.TEMP,<
IFN <$PObhINT>_-^D24,<
..TcEMP==$POINT
	..Tc(EMP			;$NAME
>
cHIFE ..TEMP,<
	POchINT 36,$POINT,35	d;$NAME
	>
>>>
d(AP:	SWTCHS

		dH	
			
MX.==0
DdhEFINE	X($NAME,$PReOC,$POINT,$DEFLT,e($MAX,$FLAGS),<
IeHF2,<
IFE <$FLAGSeh>&FS.LRG,<IFG <$MfAX>-377777,<PRINTf(X ?MAXIMUM OF /$NfHAME CANNOT BE GT fh377777>>
>
..TEgMP==1
IFN <$FLAGg(S>&FS.LRG,<IFN <$gHMAX>,<..TEMP==0>>gh
IFN ..TEMP,<
	hXWD	$MAX,$PROC	;$h(NAME
>
IFE ..TEhHMP,<
	XWD	[$MAX]hh,$PROC	;$NAME
>i
>
AM:	SWTCHS
i(
			
PD.==0
DEiHFINE	X($NAME,$PROihC,$POINT,$DEFLT,$jMAX,$FLAGS),<
IFj(2,<
IFL <$DEFLT>jH,<IFN <$DEFLT>+1,jh<PRINTX ?DEFAULT kOF /$NAME CANNOT k(BE NEGATIVE>>
IFkHE <$FLAGS>&FS.LRGkh,<IFG <$DEFLT>-77l7777,<PRINTX ?DEFl(AULT OF /$NAME CAlHNNOT BE GT 777777lh>>
>
IFB <$FLAGmS>,<..TEMR==0>
Im(FNB <$FLAGS>,<..TmHEMR==($FLAGS)>
.mh.TEMP==1
IFN <$FnLAGS>&FS.LRG,<IFNn( <$DEFLT>,<..TEMPnH==0>>
IFN ..TEMPnh,<
	XWD	..TEMR,$oDEFLT	;$NAME
>
o(IFE ..TEMP,<
	XWoHD	..TEMR,[$DEFLT]oh	;$NAME
>
>
ApD:	SWTCHS
	PURGEp(	..TEMP,..TEMR
	SALL
MLuvQ MLuTQ 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 ph
A.L==0
A.T:  IRP	(B)<q(EXP  SIXBIT /B/
			A.L==A.L+1
			..TEMP==0
		r	IRPC (B)<IFIDN r(<B><*>,<..TEMP==rH1>
					STOPI>
rh			IFE ..TEMP,<AsB==A.L>
		>
	PURGE	..TEMP
	Z:42 uh4
	EXT	.FMvSGD
	PJSP	T1,.FMv(SGD
	XLIST
	ASCvHIZ	\A\
	LIST	
Q[MLuZ7PZ:43 x(H
	EXT	.FMxHSGF
	PJSP	T1,.FMxhSGF
	XLIST
	ASCyIZ	\A\
	LIST
QBM`vLVQAZ:46 sH 
	EXT	.FMshSG
	PJSP	T1,.FMStG
	XLIST
	ASCIZ	\A\
	LIST
Z:47 tH*
	EXT	.FMthSGN
	PJSP	T1,.FMuSGN
	XLIST
	ASCu(IZ	\A\
	LIST
Z:47 w>
	EXT	.FMw(SGO
	PJSP	T1,.FMwHSGO
	XLIST
	ASCwhIZ	\A\
	LIST
Q@M`tJ9Q?g0 XpI

	X	A,CY.T-1,<B>,D,-C.L,E
g8 ZpY
	X	A,0,[<B>,0,0,FS.NOS!C
g@ YPO

	X	A,CYp,<B>,PD.D,MX.D,E
gL Z0S
	X	A,0,<B>,C,0,D
iLtLQP iLtLXP iLtL[P 
;VQ  `DP 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