Google
 

Trailing-Edge - PDP-10 Archives - bb-y390n-bm_tops20_v41_atpch_19 - autopatch/scnmac.unv
There are 80 other files named scnmac.unv in the archive. Click here to see a list.
x
,S)@P I4 ` 
				ND	MX.A,B
				ND	A D.A,C
				ND	PD.A,DI?87 x!I
	XALL


			
DEFINE	X(8$NAME,$PROC,$POINXT,$DEFLT,$MAX,$FLxAGS),<
	EXP  SIXBIT  /$NAME/
>
8AN:	SWTCHS
AL=X=.-AN

			
IFx2,<
DEFINE	X($NAME,$PROC,$POINT,$8DEFLT,$MAX,$FLAGSX),<
..TEMP==0
IxRP $POINT,<
    IFE ..TEMP-1,<
	8$POINT			;$NAME
X    >
    IFE ..xTEMP-2,<
	POINT		36,$POINT,35	;$NA	8ME
    >
    IF	XIDN <$POINT><*P>,	x<..TEMP==1>	
   
 IFIDN <$POINT><*
8F>,<..TEMP==2>	

X>

IFB <$POINT>
x,<
	Z			;$NAME
..TEMP==1>
IFE .8.TEMP,<
IFN <$POXINT>_-^D24,<
..TxEMP==$POINT
	..T
EMP			;$NAME
>

8IFE ..TEMP,<
	PO
XINT 36,$POINT,35	
x;$NAME
	>
>>>
AP:	SWTCHS

		
			
MX.==0
DFINE	X($NAME,$PR$MAX,$FLAGS),<
I8F2,<
IFE <$FLAGSX>&FS.LRG,<IFG <$MxAX>-377777,<PRINTX ?MAXIMUM OF /$N8AME CANNOT BE GT X377777>>
>
..TExMP==1
IFN <$FLAGS>&FS.LRG,<IFN <$8MAX>,<..TEMP==0>>X
IFN ..TEMP,<
	xXWD	$MAX,$PROC	;$NAME
>
IFE ..TE8MP,<
	XWD	[$MAX]X,$PROC	;$NAME
>x
>
AM:	SWTCHS

			
PD.==0
DE8FINE	X($NAME,$PROXC,$POINT,$DEFLT,$xMAX,$FLAGS),<
IF2,<
IFL <$DEFLT>8,<IFN <$DEFLT>+1,X<PRINTX ?DEFAULT xOF /$NAME CANNOT BE NEGATIVE>>
IF8E <$FLAGS>&FS.LRGX,<IFG <$DEFLT>-77x7777,<PRINTX ?DEFAULT OF /$NAME CA8NNOT BE GT 777777X>>
>
IFB <$FLAGxS>,<..TEMR==0>
IFNB <$FLAGS>,<..T8EMR==($FLAGS)>
.X.TEMP==1
IFN <$FxLAGS>&FS.LRG,<IFN <$DEFLT>,<..TEMP8==0>>
IFN ..TEMPX,<
	XWD	..TEMR,$xDEFLT	;$NAME
>
IFE ..TEMP,<
	XW8D	..TEMR,[$DEFLT]X	;$NAME
>
>
AxD:	SWTCHS
	PURGE	..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 X!c
A.L==0
A.T:  IRP	(B)<EXP  SIXBIT /B/
			A.L==A.L+1
			..TEMP==0
		x	IRPC (B)<IFE <"B"-"*">*<"B"-"-8">,<..TEMP==1
		X					STOPI>>
			xIFNB<B>,<IFE ..TEMP,<AB==A.L>>8
		>
	PURGE	..TEMP
	Z:42 !
	EXT	.FM8SGD
	PJSP	T1,.FMXSGD
	XLIST
	ASCxIZ	\A\
	LIST	
Z:43 !X"
	EXT	.FM!xSGF
	PJSP	T1,.FM"SGF
	XLIST
	ASC"8IZ	\A\
	LIST
Z:46 x!k
	EXT	.FMSG
	PJSP	T1,.FMS8G
	XLIST
	ASCIZ	\A\
	LIST
Z:47 x!u
	EXT	.FMSGN
	PJSP	T1,.FM8SGN
	XLIST
	ASCXIZ	\A\
	LIST
Z:47  8"	
	EXT	.FM XSGO
	PJSP	T1,.FM xSGO
	XLIST
	ASC!IZ	\A\
	LIST
g0 X 

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

	X	A,CX,<B>,PD.D,MX.D,E
gL  
	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