Trailing-Edge
-
PDP-10 Archives
-
bb-pbdea-bb
-
10,7/scan/scnmac.unv
There are 80 other files named scnmac.unv in the archive. Click here to see a list.
x
,U)@P I4 [0_
ND M[PX.A,B
ND A[pD.A,C
ND PD.A,DI?87 `H&
XALL
`h
DEFINE X(a$NAME,$PROC,$POINa(T,$DEFLT,$MAX,$FLaHAGS),<
EXP SIXahBIT /$NAME/
>
bAN: SWTCHS
AL=b(=.-AN
IFbH2,<
DEFINE X($NAbhME,$PROC,$POINT,$cDEFLT,$MAX,$FLAGSc(),<
..TEMP==0
IcHRP $POINT,<
chIFE ..TEMP-1,<
d$POINT ;$NAME
d( >
IFE ..dHTEMP-2,<
POINT dh36,$POINT,35 ;$NAeME
>
IFe(IDN <$POINT><*P>,eH<..TEMP==1>
eh IFIDN <$POINT><*fF>,<..TEMP==2>
f(>
IFB <$POINT>fH,<
Z ;$NAME
fh..TEMP==1>
IFE .g.TEMP,<
IFN <$POg(INT>_-^D24,<
..TgHEMP==$POINT
..TghEMP ;$NAME
>
hIFE ..TEMP,<
POh(INT 36,$POINT,35 hH;$NAME
>
>>>
hhAP: SWTCHS
i
MX.==0
Di(EFINE X($NAME,$PRiHOC,$POINT,$DEFLT,ih$MAX,$FLAGS),<
IjF2,<
IFE <$FLAGSj(>&FS.LRG,<IFG <$MjHAX>-377777,<PRINTjhX ?MAXIMUM OF /$NkAME CANNOT BE GT k(377777>>
>
..TEkHMP==1
IFN <$FLAGkhS>&FS.LRG,<IFN <$lMAX>,<..TEMP==0>>l(
IFN ..TEMP,<
lHXWD $MAX,$PROC ;$lhNAME
>
IFE ..TEmMP,<
XWD [$MAX]m(,$PROC ;$NAME
>mH
>
AM: SWTCHS
mh
PD.==0
DEnFINE X($NAME,$PROn(C,$POINT,$DEFLT,$nHMAX,$FLAGS),<
IFnh2,<
IFL <$DEFLT>o,<IFN <$DEFLT>+1,o(<PRINTX ?DEFAULT oHOF /$NAME CANNOT ohBE NEGATIVE>>
IFpE <$FLAGS>&FS.LRGp(,<IFG <$DEFLT>-77pH7777,<PRINTX ?DEFphAULT OF /$NAME CAqNNOT BE GT 777777q(>>
>
IFB <$FLAGqHS>,<..TEMR==0>
IqhFNB <$FLAGS>,<..TrEMR==($FLAGS)>
.r(.TEMP==1
IFN <$FrHLAGS>&FS.LRG,<IFNrh <$DEFLT>,<..TEMPs==0>>
IFN ..TEMPs(,<
XWD ..TEMR,$sHDEFLT ;$NAME
>
shIFE ..TEMP,<
XWtD ..TEMR,[$DEFLT]t( ;$NAME
>
>
AtHD: SWTCHS
PURGEth ..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 u(@
A.L==0
A.T: IRP (B)<uhEXP SIXBIT /B/
A.L==A.L+1
..TEMP==0
vH IRPC (B)<IFE <"vhB"-"*">*<"B"-"-w">,<..TEMP==1
w( STOPI>>
wHIFNB<B>,<IFE ..TwhEMP,<AB==A.L>>x
>
PURGE ..TEMP
`tJ9QbZ:42 zh\
EXT .FM{SGD
PJSP T1,.FM{(SGD
XLIST
ASC{HIZ \A\
LIST
QfD[vQfZ:43 }(p
EXT .FM}HSGF
PJSP T1,.FM}hSGF
XLIST
ASC~IZ \A\
LIST
PDkPZ:46 xHH
EXT .FMxhSG
PJSP T1,.FMSyG
XLIST
ASCIZ \A\
LIST
dZ:47 yHR
EXT .FMyhSGN
PJSP T1,.FMzSGN
XLIST
ASCz(IZ \A\
LIST
ngLtZ:47 |f
EXT .FM|(SGO
PJSP T1,.FM|HSGO
XLIST
ASC|hIZ \A\
LIST
PS@P g0 ](l
X A,C]H.T-1,<B>,D,-C.L,E
g8 _(|
X A,0,_H<B>,0,0,FS.NOS!C
g@ ^r
X A,C^(,<B>,PD.D,MX.D,E
gL ^hv
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