Google
 

Trailing-Edge - PDP-10 Archives - BB-4171H-BM - new-subsys/scnmac.unv
There are 80 other files named scnmac.unv in the archive. Click here to see a list.
x
,5(@P I4 X!
				ND	MxX.A,B
				ND	AD.A,C
				ND	PD.A,DI?87 `"`
	XALL


			
DEFINE	X( $NAME,$PROC,$POIN@T,$DEFLT,$MAX,$FL`AGS),<
	EXP  SIXBIT  /$NAME/
>
 AN:	SWTCHS
AL=@=.-AN

			
IF`2,<
DEFINE	X($NAME,$PROC,$POINT,$ DEFLT,$MAX,$FLAGS@),<
..TEMP==0
I`RP $POINT,<
    IFE ..TEMP-1,<
	 $POINT			;$NAME
@    >
    IFE ..`TEMP-2,<
	POINT	36,$POINT,35	;$NA ME
    >
    IF@IDN <$POINT><*P>,`<..TEMP==1>	
    IFIDN <$POINT><* F>,<..TEMP==2>	
@>

IFB <$POINT>`,<
	Z			;$NAME
..TEMP==1>
IFE . .TEMP,<
IFN <$PO@INT>_-^D24,<
..T`EMP==$POINT
	..TEMP			;$NAME
>
 IFE ..TEMP,<
	PO@INT 36,$POINT,35	`;$NAME
	>
>>>
 AP:	SWTCHS

		  	
			
MX.==0
D @EFINE	X($NAME,$PR `OC,$POINT,$DEFLT,!$MAX,$FLAGS),<
I! F2,<
IFE <$FLAGS!@>&FS.LRG,<IFG <$M!`AX>-377777,<PRINT"X ?MAXIMUM OF /$N" AME CANNOT BE GT "@377777>>
>
..TE"`MP==1
IFN <$FLAG#S>&FS.LRG,<IFN <$# MAX>,<..TEMP==0>>#@
IFN ..TEMP,<
	#`XWD	$MAX,$PROC	;$$NAME
>
IFE ..TE$ MP,<
	XWD	[$MAX]$@,$PROC	;$NAME
>$`
>
AM:	SWTCHS
%
			
PD.==0
DE% FINE	X($NAME,$PRO%@C,$POINT,$DEFLT,$%`MAX,$FLAGS),<
IF&2,<
IFL <$DEFLT>& ,<IFN <$DEFLT>+1,&@<PRINTX ?DEFAULT &`OF /$NAME CANNOT 'BE NEGATIVE>>
IF' E <$FLAGS>&FS.LRG'@,<IFG <$DEFLT>-77'`7777,<PRINTX ?DEF(AULT OF /$NAME CA( NNOT BE GT 777777(@>>
>
IFB <$FLAG(`S>,<..TEMR==0>
I)FNB <$FLAGS>,<..T) EMR==($FLAGS)>
.)@.TEMP==1
IFN <$F)`LAGS>&FS.LRG,<IFN* <$DEFLT>,<..TEMP* ==0>>
IFN ..TEMP*@,<
	XWD	..TEMR,$*`DEFLT	;$NAME
>
+IFE ..TEMP,<
	XW+ D	..TEMR,[$DEFLT]+@	;$NAME
>
>
A+`D:	SWTCHS
	PURGE,	..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 ,@"v
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 1@#
	EXT	.FM1`SGD
	PJSP	T1,.FM2SGD
	XLIST
	ASC2 IZ	\A\
	LIST	
Z:43 4#&
	EXT	.FM4 SGF
	PJSP	T1,.FM4@SGF
	XLIST
	ASC4`IZ	\A\
	LIST
Z:46 / "~
	EXT	.FM/@SG
	PJSP	T1,.FMS/`G
	XLIST
	ASCIZ	\A\
	LIST
Z:47 0 #
	EXT	.FM0@SGN
	PJSP	T1,.FM0`SGN
	XLIST
	ASC1IZ	\A\
	LIST
Z:47 2`#
	EXT	.FM3SGO
	PJSP	T1,.FM3 SGO
	XLIST
	ASC3@IZ	\A\
	LIST
g0 H!&

	X	A,Ch.T-1,<B>,D,-C.L,E
g8 H!6
	X	A,0,h<B>,0,0,FS.NOS!C
g@ (!,

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