Trailing-Edge
-
PDP-10 Archives
-
decuslib10-07
-
43,50460/scnmac.unv
There are 80 other files named scnmac.unv in the archive. Click here to see a list.
x*@P I4 h@&H
ND Mh`X.A,B
ND AiD.A,C
ND PD.A,D~-P I?87 m@(
XALL
m`
;
DEFINE Xn($NAME,$PROC,$POIn NT,$DEFLT,$MAX,$Fn@LAGS),<
EXP SIn`XBIT /$NAME/
>o
AN: SWTCHS
ALo ==.-AN
;
o@IF2,<
DEFINE X($o`NAME,$PROC,$POINTp,$DEFLT,$MAX,$FLAp GS),<
..TEMP==0
IRP $POINT,<
qp` IFE ..TEMP-1,<
EXP <$POINT> q ;$NAME
>
qq@ IFE ..TEMP-2,<
POINT 36,$POINTr,35 ;$NAME
>r
IFIDN <$POIr@NT><*P>,<..TEMP==r`1> ;
IFIDN <s$POINT><*F>,<..TEs MP==2> ;
>
IFs@B <$POINT>,<
Z s` ;$NAME
>
IFNBt <$POINT>,<IFE ..t TEMP,<
EXP <$POt@INT> ;$NAME
>>t`
>>
AP: SWTCHSu
;
;
Mu X.==0
DEFINE X($u@NAME,$PROC,$POINTu`,$DEFLT,$MAX,$FLAvGS),<
IF2,<
IFEv <$FLAGS>&FS.LRG,v@<IFG <$MAX>-37777v`7,<PRINTX ?MAXIMUwM OF /$NAME CANNOw T BE GT 377777>>
>
..TEMP==1
IFw`N <$FLAGS>&FS.LRGx,<IFN <$MAX>,<..Tx EMP==0>>
IFN ..Tx@EMP,<
XWD $MAX,x`$PROC ;$NAME
>
yIFE ..TEMP,<
XWy D [$MAX],$PROC ;$y@NAME
>
>
AM: y`SWTCHS
;
PzD.==0
DEFINE X($z NAME,$PROC,$POINTz@,$DEFLT,$MAX,$FLAz`GS),<
IF2,<
IFL{ <$DEFLT>,<IFN <${ DEFLT>+1,<PRINTX {@?DEFAULT OF /$NAM{`E CANNOT BE NEGAT|IVE>>
IFE <$FLAG| S>&FS.LRG,<IFG <$|@DEFLT>-777777,<PR|`INTX ?DEFAULT OF }/$NAME CANNOT BE } GT 777777>>
>
I}@FB <$FLAGS>,<..TE}`MR==0>
IFNB <$FL~AGS>,<..TEMR==($F~ LAGS)>
..TEMP==1~@
IFN <$FLAGS>&FS~`.LRG,<IFN <$DEFLT>,<..TEMP==0>>
I FN ..TEMP,<
XWD@ ..TEMR,$DEFLT ;$`NAME
>
IFE ..TEMP,<
XWD ..TEMR ,[$DEFLT] ;$NAME
>
>
AD: SWTCH`S
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 (
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 (8
EXT .FM@SGD
PJSP T1,.FM`SGD
XLIST
ASCIZ \A\
LIST
Z:43 `(L
EXT .FM SGF
PJSP T1,.FM SGF
XLIST
ASC @IZ \A\
LIST
Z:46 ($
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 @(B
EXT .FM`SGO
PJSP T1,.FMSGO
XLIST
ASC IZ \A\
LIST
g0 j(&T
X A,CjH.T-1,<B>,D,-C.L,E
S\zg8 l(&d
X A,0,lH<B>,0,0,FS.NOS!C
MP SL^g@ k&Z
X A,Ck(,<B>,PD.D,MX.D,E
P S=rgL kh&^
X A,0,<B>,C,0,D
ViLtLQP iLtLXP iLtL[P mKc@ *`XBYTE (3)A+WHO (9)AVER (6)AMIN (18)AEDT
Q $J
;VQ ADP DRP D[sQ D[vQ DlVP EXP ELzP EkzP ExUP E|@P E}:P F<QP FK`P S@Q duP f4P fI6P DSP
DwP
D)YP DI;P DJ6P DJ9P D\zP
D^P DkP DkP EI7P Ek6P F;QP FLPP FLQP FLWP FLWP Fi9P
>}{woP