PDP-10 Archive: t20sub/scnmac.unv from bb-kl11l-bm_tops20_v7_0_tsu03_2_of

Trailing-Edge - PDP-10 Archives - bb-kl11l-bm_tops20_v7_0_tsu03_2_of_3 - t20sub/scnmac.unv

There are 80 other files named scnmac.unv in the archive. Click here to see a list.

x
,U)@P I4 H!x
				ND	MhX.A,B
				ND	AD.A,C
				ND	PD.A,D!rI?87 #`#@
	XALL
$

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

			
IF%`2,<
DEFINE	X($NA&ME,$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
	..T+EMP			;$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	;$0NAME
>
IFE ..TE0 MP,<
	XWD	[$MAX]0@,$PROC	;$NAME
>0`
>
AM:	SWTCHS
1
			
PD.==0
DE1 FINE	X($NAME,$PRO1@C,$POINT,$DEFLT,$1`MAX,$FLAGS),<
IF22,<
IFL <$DEFLT>2 ,<IFN <$DEFLT>+1,2@<PRINTX ?DEFAULT 2`OF /$NAME CANNOT 3BE NEGATIVE>>
IF3 E <$FLAGS>&FS.LRG3@,<IFG <$DEFLT>-773`7777,<PRINTX ?DEF4AULT OF /$NAME CA4 NNOT BE GT 7777774@>>
>
IFB <$FLAG4`S>,<..TEMR==0>
I5FNB <$FLAGS>,<..T5 EMR==($FLAGS)>
.5@.TEMP==1
IFN <$F5`LAGS>&FS.LRG,<IFN6 <$DEFLT>,<..TEMP6 ==0>>
IFN ..TEMP6@,<
	XWD	..TEMR,$6`DEFLT	;$NAME
>
7IFE ..TEMP,<
	XW7 D	..TEMR,[$DEFLT]7@	;$NAME
>
>
A7`D:	SWTCHS
	PURGE8	..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 8@#Z
A.L==0
A.T:  IRP	(B)<9EXP  SIXBIT /B/
			A.L==A.L+1
			..TEMP==0
		9`	IRPC (B)<IFE <":B"-"*">*<"B"-"-: ">,<..TEMP==1
		:@					STOPI>>
			:`IFNB<B>,<IFE ..T;EMP,<AB==A.L>>; 
		>
	PURGE	..TEMP
	Z:42 >#v
	EXT	.FM> SGD
	PJSP	T1,.FM>@SGD
	XLIST
	ASC>`IZ	\A\
	LIST	
Z:43 @@$

	EXT	.FM@`SGF
	PJSP	T1,.FMASGF
	XLIST
	ASCA IZ	\A\
	LIST
Z:46 ;`#b
	EXT	.FM<SG
	PJSP	T1,.FMS< G
	XLIST
	ASCIZ	\A\
	LIST
Z:47 <`#l
	EXT	.FM=SGN
	PJSP	T1,.FM= SGN
	XLIST
	ASC=@IZ	\A\
	LIST
Z:47 ? $
	EXT	.FM?@SGO
	PJSP	T1,.FM?`SGO
	XLIST
	ASC@IZ	\A\
	LIST
g0  @"

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

	X	A,C!@,<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