Google
 
Trailing-Edge - PDP-10 Archives - AP-D483B-SB_1978 - scnmac.unv
There are 80 other files named scnmac.unv in the archive. Click here to see a list.
x(@P I4 P
				ND	MpX.A,B
				ND	AD.A,C
				ND	PD.A,DI?87 P	W
	XALL
p

			;
DEFINE	X($NAME,$PROC,$POI0NT,$DEFLT,$MAX,$FPLAGS),<
	EXP  SIpXBIT  /$NAME/
>
AN:	SWTCHS
AL0==.-AN

			;
PIF2,<
DEFINE	X($pNAME,$PROC,$POINT	,$DEFLT,$MAX,$FLA	0GS),<
..TEMP==0
IRP $POINT,<
 	p  IFE ..TEMP-1,<

	$POINT			;$NAME
0
    >
    IFE 
P..TEMP-2,<
	POIN
pT	36,$POINT,35	;$NAME
    >
    0IFIDN <$POINT><*PP>,<..TEMP==1>	;
p    IFIDN <$POINT

><*F>,<..TEMP==2>

0	;
>

IFB <$PO

PINT>,<
	Z			;$NA

pME
..TEMP==1>
IE ..TEMP,<
IFNPINT>-^D24,<
..TEMP==$POINT
	..TEMP			;$NAME
>
IFE ..TEMP,<
	POINT 36,$POINTP,35	;$NAME
	>
>p>>
AP:	SWTCHS

			;
			;
MX.0==0
DEFINE	X($NAPME,$PROC,$POINT,$pDEFLT,$MAX,$FLAGS),<
IF2,<
IFE <0$FLAGS>&FS.LRG,<IPFG <$MAX>-377777,p<PRINTX ?MAXIMUM OF /$NAME CANNOT 0BE GT 377777>>
>P
..TEMP==1
IFN p<$FLAGS>&FS.LRG,<IFN <$MAX>,<..TEM0P==0>>
IFN ..TEMPP,<
	XWD	$MAX,$PpROC	;$NAME
>
IFE ..TEMP,<
	XWD	0[$MAX],$PROC	;$NAPME
>
>
AM:	SWpTCHS

			;
PD.==0
DEFINE	X($NA0ME,$PROC,$POINT,$PDEFLT,$MAX,$FLAGSp),<
IF2,<
IFL <$DEFLT>,<IFN <$DE0FLT>+1,<PRINTX ?DPEFAULT OF /$NAME pCANNOT BE NEGATIVE>>
IFE <$FLAGS>0&FS.LRG,<IFG <$DEPFLT>-777777,<PRINpTX ?DEFAULT OF /$NAME CANNOT BE GT0 777777>>
>
IFBP <$FLAGS>,<..TEMRp==0>
IFNB <$FLAGS>,<..TEMR==($FLA0GS)>
..TEMP==1
PIFN <$FLAGS>&FS.LpRG,<IFN <$DEFLT>,<..TEMP==0>>
IFN0 ..TEMP,<
	XWD	.P.TEMR,$DEFLT	;$NApME
>
IFE ..TEMP,<
	XWD	..TEMR,[0$DEFLT]	;$NAME
>P
>
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 0	m
A.L==0
A.T:  IRP	(B)<pEXP  SIXBIT /B/
			A.L==A.L+1
			..TEMP==0
		P	IRPC (B)<IFIDN p<B><*>,<..TEMP==1>
					STOPI>
0			IFE ..TEMP,<APB==A.L>
		>
	PURGE	..TEMP
	Z:42  0
	
	EXT	.FM PSGD
	PJSP	T1,.FM pSGD
	XLIST
	ASC!IZ	\A\
	LIST	
Z:43 "p

	EXT	.FM#SGF
	PJSP	T1,.FM#0SGF
	XLIST
	ASC#PIZ	\A\
	LIST
Z:46 	u
	EXT	.FM0SG
	PJSP	T1,.FMSPG
	XLIST
	ASCIZ	\A\
	LIST
Z:47 	
	EXT	.FM0SGN
	PJSP	T1,.FMPSGN
	XLIST
	ASCpIZ	\A\
	LIST
Z:47 !P

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

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

	X	A,C8,<B>,PD.D,MX.D,E
gL x'
	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@Q DSP 
DwP 
D)YP 	DI;P DJ6P DJ9P D\zP 

D^P DkP DkP EI7P Ek6P F;QP 	FLPP FLQP FLWP FLWP Fi9P 

>}{woP