Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0003/scnmac.unv
There are 80 other files named scnmac.unv in the archive. Click here to see a list.
x(@P I4 H
				ND	MhX.A,B
				ND	AD.A,C
				ND	PD.A,DI?87 H	V
	XALL
h

			;
DEFINE	X($NAME,$PROC,$POI(NT,$DEFLT,$MAX,$FHLAGS),<
	EXP  SIhXBIT  /$NAME/
>
AN:	SWTCHS
AL(==.-AN

			;
HIF2,<
DEFINE	X($hNAME,$PROC,$POINT	,$DEFLT,$MAX,$FLA	(GS),<
..TEMP==0
IRP $POINT,<
 	h  IFE ..TEMP-1,<

	$POINT			;$NAME
(
    >
    IFE 
H..TEMP-2,<
	POIN
hT	36,$POINT,35	;$NAME
    >
    (IFIDN <$POINT><*PH>,<..TEMP==1>	;
h    IFIDN <$POINT
><*F>,<..TEMP==2>
(	;
>

IFB <$PO
HINT>,<
	Z			;$NA
hME
..TEMP==1>
IE ..TEMP,<
IFNPINT>-^D24,<
..TEMP==$POINT
	..TEMP			;$NAME
>
IFE ..TEMP,<
	POINT 36,$POINTH,35	;$NAME
	>
>h>>
AP:	SWTCHS

			;
			;
MX.(==0
DEFINE	X($NAHME,$PROC,$POINT,$hDEFLT,$MAX,$FLAGS),<
IF2,<
IFE <($FLAGS>&FS.LRG,<IHFG <$MAX>-377777,h<PRINTX ?MAXIMUM OF /$NAME CANNOT (BE GT 377777>>
>H
..TEMP==1
IFN h<$FLAGS>&FS.LRG,<IFN <$MAX>,<..TEM(P==0>>
IFN ..TEMHP,<
	XWD	$MAX,$PhROC	;$NAME
>
IFE ..TEMP,<
	XWD	([$MAX],$PROC	;$NAHME
>
>
AM:	SWhTCHS

			;
PD.==0
DEFINE	X($NA(ME,$PROC,$POINT,$HDEFLT,$MAX,$FLAGSh),<
IF2,<
IFL <$DEFLT>,<IFN <$DE(FLT>+1,<PRINTX ?DHEFAULT OF /$NAME hCANNOT BE NEGATIVE>>
IFE <$FLAGS>(&FS.LRG,<IFG <$DEHFLT>-777777,<PRINhTX ?DEFAULT OF /$NAME CANNOT BE GT( 777777>>
>
IFBH <$FLAGS>,<..TEMRh==0>
IFNB <$FLAGS>,<..TEMR==($FLA(GS)>
..TEMP==1
HIFN <$FLAGS>&FS.LhRG,<IFN <$DEFLT>,<..TEMP==0>>
IFN( ..TEMP,<
	XWD	.H.TEMR,$DEFLT	;$NAhME
>
IFE ..TEMP,<
	XWD	..TEMR,[($DEFLT]	;$NAME
>H
>
AD:	SWTCHS
	PURGE	..TEMP,..TEMR
	SALL
MLuvQ 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 (	l
A.L==0
A.T:  IRP	(B)<hEXP  SIXBIT /B/
			A.L==A.L+1
			..TEMP==0
		H	IRPC (B)<IFIDN h<B><*>,<..TEMP==1>
					STOPI>
(			IFE ..TEMP,<AHB==A.L>
		>
	PURGE	..TEMP
	Z:42  (

	EXT	.FM HSGD
	PJSP	T1,.FM hSGD
	XLIST
	ASC!IZ	\A\
	LIST	
Z:43 "h

	EXT	.FM#SGF
	PJSP	T1,.FM#(SGF
	XLIST
	ASC#HIZ	\A\
	LIST
Z:46 	t
	EXT	.FM(SG
	PJSP	T1,.FMSHG
	XLIST
	ASCIZ	\A\
	LIST
Z:47 	~
	EXT	.FM(SGN
	PJSP	T1,.FMHSGN
	XLIST
	ASChIZ	\A\
	LIST
Z:47 !H

	EXT	.FM!hSGO
	PJSP	T1,.FM"SGO
	XLIST
	ASC"(IZ	\A\
	LIST
g0 0

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

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