Google
 
Trailing-Edge - PDP-10 Archives - BB-D480C-SB_1981 - scnmac.unv
There are 80 other files named scnmac.unv in the archive. Click here to see a list.
x
,(@P I4 }8o
				ND	M}XX.A,B
				ND	A}xD.A,C
				ND	PD.A,DI?87 @6
	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	;$NAME
    >
    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

`XM?MAXIMUM OF /$N
>
..TE1
IFN&<$FLAG<IFN <$MAX>,<..TEMP==0>> 
IFN ..TEMP,<
	@XWD	$MAX,$PROC	;$`NAME
>
IFE ..TEMP,<
	XWD	[$MAX] ,$PROC	;$NAME
>@
>
AM:	SWTCHS
`
			
PD.==0
DEFINE	X($NAME,$PRO C,$POINT,$DEFLT,$@MAX,$FLAGS),<
IF`2,<
IFL <$DEFLT>,<IFN <$DEFLT>+1, <PRINTX ?DEFAULT @OF /$NAME CANNOT `BE NEGATIVE>>
IFE <$FLAGS>&FS.LRG ,<IFG <$DEFLT>-77@7777,<PRINTX ?DEF`AULT OF /$NAME CANNOT BE GT 777777 >>
>
IFB <$FLAG@S>,<..TEMR==0>
I`FNB <$FLAGS>,<..TEMR==($FLAGS)>
. .TEMP==1
IFN <$F@LAGS>&FS.LRG,<IFN` <$DEFLT>,<..TEMP==0>>
IFN ..TEMP ,<
	XWD	..TEMR,$@DEFLT	;$NAME
>
`IFE ..TEMP,<
	XWD	..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  L
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  h
	EXT	.FM@SGD
	PJSP	T1,.FM`SGD
	XLIST
	ASCIZ	\A\
	LIST	
Z:43 `|
	EXT	.FMSGF
	PJSP	T1,.FM SGF
	XLIST
	ASC@IZ	\A\
	LIST
Z:46 T
	EXT	.FM SG
	PJSP	T1,.FMS@G
	XLIST
	ASCIZ	\A\
	LIST
Z:47 ^
	EXT	.FM SGN
	PJSP	T1,.FM@SGN
	XLIST
	ASC`IZ	\A\
	LIST
Z:47 @r
	EXT	.FM`SGO
	PJSP	T1,.FMSGO
	XLIST
	ASC IZ	\A\
	LIST
g0 (|

	X	A,CH.T-1,<B>,D,-C.L,E
Ek6Pg8 (


	X	A,0,H<B>,0,0,FS.NOS!C
g@ 

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