Trailing-Edge
-
PDP-10 Archives
-
SRI_NIC_PERM_SRC_1_19910112
-
6-1-monitor/nipar.unv
There are 3 other files named nipar.unv in the archive. Click here to see a list.
x
,5 @ P E>=
IFN,FTSC==.
DEFINE WORD(NAM,NUMB<1>),<
IFN (<..MSK>,<..OFF==.H.OFF+1>
..MShK==0
FIELDM(NAM,<.FWORD>)
( ..MSK==0
..OHFF==..OFF+NUMB
h
>
DEFINE NXTWRD(NUMB<1>),<
(..MSK==0
..OFF=H..OFF+NUMB
>
h
DEFINE FILLER(NUM),<
..FLG==PO(S(..MSK)
IFE ..HMSK,<..FLG==-1>
h IFG <^D<NUM>-<^D35-..FLG>>,<PRINT(X ?FILL TOO BIG IHN A STRUCTURE>
h ...MSK==MASK.(^D<NUM>,<..FLG+^D<N(UM>>)
IFN FTSHOHW,<
PHASE ..OhFF
EXP ...MSK
>
..MSK==..M(SK!...MSK
>
H
DEFINE HWORD(nham),<
..FLG==0
IFE ..MSK&.LH(ALF,<FIELDM(nam,.HLHALF)
..FLhG==1>
IFE ..FLG,<..MSK==..MSK!.L(HALF
IFE ..HMSK&.RHALF,<FIELDhM(nam,.RHALF)
..FLG==1>
IFE ..FLG,<HNXTWRD
hFIELDM(nam,.LHALF) >
>
>
(
DEFINE FIELD(NAHM,SIZ,POS),<
..hFLG==0
IFB <POS>,<IFB <SIZ>,(<
...MSK==.RTHMSK(<<^-<<..MSK>>h>>)
IFE ...MSK,<..OFF==..OFF+(1
..MSK==0H
...MSK==h-1
>
FIELDM(NAM,<...MSK>) (
H..FLG==-1
>>
IFNB <SIhZ>,<.SIZ==^D<SIZ> >
IFNB <POS> (,<
FIELDM(N HAM,MASK.(.SIZ,POS h))
..FLG==-1
..BITS==MA (SK.(.SIZ,POS)
H>
IFE ..FLG,< hIFGE <^D<.SIZ>-^D 36>,<
WORD(N (AM,<^D<.SIZ>/^D36 H>)
IFN <<^D< h.SIZ>-<^D<.SIZ>/^ D36>*^D36>>,<
( FIELD(...,<<^ HD<.SIZ>-<^D<.SIZ> h/^D36>*^D36>>)
>
..FLG= (=-1
>>
IF HE ..FLG,<
. h.BITS==MASK.(^D<.!SIZ>,<^D<.SIZ>-1>!()
REPEAT <!H^D36-^D<.SIZ>+1>,!h<
IFE ..FL"G,<
IFE "(<..BITS&..MSK>,< "H
..MSK==..MSK"h!..BITS
..FLG#==-1
> #(
IFE ..FL#HG,..BITS==..BITS_#h<-1>
>
$ >
IFE ..FLG,$(<
..BITS==M$HASK.(^D<.SIZ>,<^D$h<.SIZ>-1>)
.%.OFF==..OFF+1
%( ..MSK==..BITS %H
>
MSKSTR(%hA'NAM,\..OFFC,..&BITS)
A.'NAM=&(=..OFF
IFN FTSH&HOW,<
PHASE A&h.'NAM
EXP A''NAM
>>
..OL'(D==..BITS
...'HOLD==..BITS
'h>
DEFINE BIT(N(AM),<
..BITS==L((FTBT.(..OLD)
(H IFE ..BITS,<PRIN(hTX ?NO ROOM FOR B)IT IN LAST FIELD>)(
A%'NAM==..B)HITS_<-<^D35-POS(.)h..OLD)>>
A.'N*AM==..OFF
M*(SKSTR(A'NAM,\..O*HFFC,..BITS)
I*hFN FTSHOW,<
P+HASE ..OFF
EX+(P A'NAM
>
+H..OLD==..OLD&<^-<+h..BITS>>
>
,
DEFINE FIELDM(NA,(M,MASK),<
IFN M,HASK&..MSK,<
,h..MSK==0
..-OFF==..OFF+1
>(
..MSK==..MSK!-HMASK
MSKSTR(-hA'NAM,\..OFFC,M.ASK)
A.'NAM==.(..OFF
IFN FTSHO.HW,<
PHASE A..h'NAM
EXP A'N/AM
>
>
DEFI/(NE ENDSTR(LENNAM</HLEN>,LSTNAM<LST>)/h,<
IFN ..MSK,0<..OFF==..OFF+1> 0(
A.'LSTNAM==0H..OFF
IFN FT0hSHOW,DEPHASE
1..LOK==..LOK+1
1(IFN ..LOK,<PRINTX1H ? MISSING BEGSTR1h>
IF2,<
I2FDEF ...MSK,<SUPP2(RESS ...MSK>
2HIFDEF ..BITS,<SUP2hPRESS ..BITS>
3 IFDEF .SIZ,<SUPP3(RESS .SIZ>
IF3HDEF ..MSK,<SUPPRE3hSS ..MSK>
IFD4EF ..OFF,<SUPPRES4(S ..OFF>
IFDE4HF ..FLG,<SUPPRESS4h ..FLG>
IFDEF5 ..LOK,<SUPPRESS 5(..LOK>
IFDEF 5H..LOC,<SUPPRESS .5h.LOC>
IFDEF .6.OLD,<SUPPRESS ..6(OLD>
IFDEF ..6H.OLD,<SUPPRESS ..6h.OLD>
>
IF17,<
IFDEF ...M7(SK,<.XCREF ...MSK7H>
IFDEF ..BIT7hS,<.XCREF ..BITS>8
IFDEF .SIZ,<8(.XCREF .SIZ>
8HIFDEF ..MSK,<.XCR8hEF ..MSK>
IFD9EF ..FLG,<.XCREF 9(..FLG>
IFDEF 9H..OFF,<.XCREF ..O9hFF>
IFDEF ..L:OK,<.XCREF ..LOK>:(
IFDEF ..LOC,:H<.XCREF ..LOC>
:h IFDEF ..OLD,<.X;CREF ..OLD>
I;(FDEF ...OLD,<.XCR;HEF ...OLD>
>
;h
PURGE WORD,NXTW<RD,FILLER,HWORD,F<(IELD,BIT,FIELDM
<H
A.'LENNAM==..<hOFF-B
IFN FTSH=OW,<RELOC ..LOC>>=(
..MSK==0=H
..OFF==B
A.D==B
>IFDEF ..LOK,<IFL >(..LOK,<PRINTX ? N>HEW BEGSTR WITHOUT>h ENDSTR>>
..L OK==-1
..L #y #z 0 #| BEG
G
t)3P G
t.9P G
t.9P G
tIyP G
tIyP G
tK{P G
tLhP G
tLrP G
tLvP G
uI7P G
uLzP G
uXYP G
uYP G
v)@P
G
v)VP
G
v8ZP G
v9@P
G
v9VP G
v; P G
vXZP G
vYRP P G @Q G `Q G 9@P G$|@Q G$|`Q G%}@Q G&4 Q G&9 Q G&; Q G/`P G4\@P G5I P G6K P Gex`P Gl,@Q GlL@Q Gth@P @G|0 P @G` Q Gi P Gk Q G - Q G 0 P G ` Q G k Q G N@Q G,- Q G,i Q GD, P GDk P I6= VX%C
A==<-1VxB<C>+1B<C-D>> W
IF1,<IFDEF %AW8,<PRINTX ?A ALREWXADY DEFINED>>
DWxEFINE %A (OP,AC,XY,MSK)<
$A==<ZX8 B>
OPp(<AC> ,B'Y,MSK)><AC>K:&= i
IFN .}A.MSK,<..OFF==..OF/F+1>
PC.B==
IFN FT
SHOW,DEPHASE
A..LOK==..LOK+1
N1IFN ..LOK,<PRINTXNi ? MISSING BEGSTRO>
IF2,<
IO(FDEF ...MSK,<SUPPOHRESS ...MSK>
OhIFDEF ..BITS,<SUPPPRESS ..BITS>
P( IFDEF .SIZ,<SUPPPHRESS .SIZ>
IFPhDEF ..MSK,<SUPPREQSS ..MSK>
IFDQ(EF ..OFF,<SUPPRESQHS ..OFF>
IFDEQhF ..FLG,<SUPPRESSR ..FLG>
IFDEFR( ..LOK,<SUPPRESS RH..LOK>
IFDEF Rh..LOC,<SUPPRESS .S.LOC>
IFDEF .S(.OLD,<SUPPRESS ..SHOLD>
IFDEF ..Sh.OLD,<SUPPRESS ..T.OLD>
>
IF1T(,<
IFDEF ...MTHSK,<.XCREF ...MSKTh>
IFDEF ..BITUS,<.XCREF ..BITS>U(
IFDEF .SIZ,<UH.XCREF .SIZ>
UhIFDEF ..MSK,<.XCRVEF ..MSK>
IFDV(EF ..FLG,<.XCREF VH..FLG>
IFDEF Vh..OFF,<.XCREF ..OWFF>
IFDEF ..LW(OK,<.XCREF ..LOK>WH
IFDEF ..LOC,Wh<.XCREF ..LOC>
X IFDEF ..OLD,<.XX(CREF ..OLD>
IXHFDEF ...OLD,<.XCRXhEF ...OLD>
>
Y
PURGE WORD,NXTWY(RD,FILLER,HWORD,FYHIELD,BIT,FIELDM
Yh
PC.A==..OFF-0Z
IFN FTSHOW,<RE LOC ..LOC>W,<RE @ [ 3@ {`/^ <<<1<A>> -1>B<B>><A>>[tP [tP [t <P [t)3P [t.:P [uI7P [uLzP [unP [v
A==C @
IF1,<IFDEF %`A,<PRINTX ?A ALR EADY DEFINED>>
DEFINE %A (OP,AC@,Y,MSK)<
$A==<`Z B>
OP (<AC >,B'Y,MSK)><AC]Tt;P ]Tt>P ]TtK0P ]Tt[0P ]TuX<P ]Tu|P ]Tv(qP ]Tv(tP ]Tv(vP ]Tv({P ]Tv,P ]Tv,P ]Tv,P ]Tv8pP ]Tv8yP ]Tw :P a
t)3P a
t.9P a
t.9P a
tIyP a
tIyP a
uI7P a
uLzP a
v; P a
vXZP a @Q a `Q a$|@Q a$|`Q a N@Q a,- Q a? P1U <^L<<A>&< -<A>>>><<A>&<i)3 K
g
..LOC==K1.
..FRST==<A>
..LAST==<B>
KpIFL ..LAST-..FRSTL,<PRINTX ? TABBEGL0 - A greater thaLPn last.>
DEFILpNE ..DFLT <C>
..DFLT <C>
i[R J1 O
..X==..JQFRST
REPEAT Jp..LAST-..FRST+1,<8
RELOC ..LOC81+..X-..FRST
8P.TABND (\<..X-..F8pRST>)
..X==.9.X+1
>
REL90OC ..LOC+..LAST-.9P.FRST+1
PURGE .9p.X,..FRST,..LAST, ..DFLT,..LOC
i[Z M1
E
.TABNT(MQ\<A-..FRST>)
IGFL A-..FRST,<PRIG1NTX ? TABENT - AGP out of range.>
Gp IFG A-..LAST,<PHRINTX ? TABENT - H0A out of range.>HP
RELOC ..LOC+A -..FRST
B
k8tP k8t)3P k8t)PP k8t,}P k8t89P k8t8PP k8t:P k8tH2P k8u2P k8uI7P
k8uLzP
k8u|QP k8u~P k8v2P k8v
2P k8v 9P k8v
WP k8v*2P k8v,xP k8v82P k8v<P k8v=P k8vIP k8vZ2P k8w,WP k: i;P k: lP k: m;P k:
L`Q k:
k:h Q k:>@Q k: BP k: @Q k: ( Q k: 9BP
k: @Q p k:$ Q k:%lbP k:/bP k:/
Q ` k:/
`P k:D Q k:L,P k:L,bP k:L8"P k:L;P k:L<BP k:L<bP k:LhBP k:LhbP k:MX"P
k:NX"P
k:NlP' k:d\BP k:l P k:v "P k:v)"P k:v8bP k:v<P k:~ BP "P k;+`P 'k;L@Q @ k;|bP k;BP k;KP k;\bP k;iP k; Q k;< Q k;[@Q @ k;hUP k;hyP k;iP k;iP k;j7P k;k<P k;ksP k;lRP k;lWP k;lYP k;mSP k; Q k;
Q k; = P '~ k; H Q k;$L@Q x k;- Q k;V+`Q kX ;1 _ IF1,<IFDEF;Q A,<PRINTX ? A ;pis not unique>>
A==:.VAL.
m6kWP m6m9P m6nP (r 'qC
$CCBCE=(=<Z CC.RFM>
(0A (<B>,CC.RFMC, D)B>,CC.RFMC, .9 !|
$CCBYR=A=<Z 3>
A (< B>,3C,D)A (< .9 )
$CCBYS=I=<Z 5>
A (< B>,5C,D)A (< 8s y
$CCCCF= =<Z CC.SFM>
8A (<B>,CC.SFMC, D)B>,CC.SFMC, Iy 1
$CCDGR=Q=<Z 7>
A (< B>,7C,D)A (< Iy 9
$CCDGS=Y=<Z 11>
A (< B>,11C,D) (< K{ *aX
$CCDOV=+=<Z 35>
A (< B>,35C,D) (< Lh Y7
$CCDS1=y=<Z 21>
A (< B>,21C,D) (< Lr Q/
$CCDSD=q=<Z 17>
A (< B>,17C,D) (< Lv a@
$CCDSM==<Z 23>
A (< B>,23C,D) (< ^ y
$CCEXC=!=<Z CC.SFM>
!8A (<B>,CC.SFMC, D)B>,CC.SFMC, i9 &q;
$CCFER='=<Z CC.RFM>
'0A (<B>,CC.RFMC, D)B>,CC.RFMC, k "#
$CCFLE="9=<Z CC.RFM>
$1A (<B>,CC.RFMC, D)B>,CC.RFMC, m %q3
$CCFTL=&=<Z CC.RFM>
&0A(<B>,CC.RFMC, D)B>,CC.RFMC, Kq
$CCLOC=[I=<Z CC.SFM>
9A (<B>,CC.SFMC, D)B>,CC.SFMC, XY A
$CCMBR=a=<Z 13>
A (< B>,13C,D) (< Y I&
$CCMDR=i=<Z 15>
A (< B>,15C,D) (< iQ $q+
$CCNFB=%=<Z CC.RFM>
%0A (<B>,CC.RFMC, D)B>,CC.RFMC, x` ys
$CCOC== <Z CC.SFM>
A 8 (<B>,CC.SFMC, D)B>,CC.SFMC, )@ "a
$CCRF==#<Z 30>
A (< B>,30C,D) (< )R yc
$CCRFD= =<Z CC.SFM>
8A (<B>,CC.SFMC, D)B>,CC.SFMC, )V #Q
$CCRFM=#q=<Z 31>
A (< B>,31C,D) (< 8Z +i`
$CCSBU=, =<Z 37>
A (< B>,37C,D) (< 8` y{
$CCSC== <Z CC.SFM>
A 8 (<B>,CC.SFMC, D)B>,CC.SFMC, 9@ iH
$CCSF== <Z 25>
A (< B>,25C,D) (< 9V YO
$CCSFM=y=<Z 26>
A (< B>,26C,D) (< ; s
$CCSLZ=9=<Z 1>
A (< B>,1C,D)A (< XZ ,qi
$CCUBU=-=<Z 41>
A (< B>,41C,D) (< YR )YO
$CCUFD=)y=<Z 33>
A (< B>,33C,D) (< X y[
$CCXBP==<Z CC.SFM>
8A (<B>,CC.SFMC, D)B>,CC.SFMC, V yk
$CCXFL= =<Z CC.SFM>
8A (<B>,CC.SFMC, D)B>,CC.SFMC, 6$ Q_
$MDALA= q=<Z 5>
A (< B>,5C,D)A (< 6$
)T
$MDALL=
I=<Z 4>
A (< B>,4C,D)A (< 6$ < qA
$MDAUX==<Z 2>
A (< B>,2C,D)A (< 6$.: aH
$MDBYT= =<Z 3>
A (< B>,3C,D)A (< 6%n 15
$MDNXT=Q=<Z 0>
A (< B>,0C,D)A (< 6&
$MDPTR=!=<Z 1>
A (< B>,1C,D)A (< 6&k1 L
$MDVMC= I=<Z 4>
A (< B>,4C,D)A (< B .9 0A
$PCBYR=0a=<Z 3>
A (< B>,3C,D)A (< B .9 2Q
$PCBYS=2q=<Z 7>
A (< B>,7C,D)A (< B Iy 1I
$PCDGR=1i=<Z 5>
A (< B>,5C,D)A (< B Iy 3Y
$PCDGS=3y=<Z 11>
A (< B>,11C,D) (< B ; /9}
$PCSLZ=/Y=<Z 1>
A (< B>,1C,D)A (< B XZ 4a(
$PCUBU=5=<Z 13>
A (< B>,13C,D) (< Vt _i
$UNADS=`Q=<Z 0>
A (< B>,0C,D)A (< Vt)P p9
$UNBFA=pY=<Z 7>
A (< B>,7C,D)A (< Vt,} na
$UNBSZ=q)=<Z 11>
A (< B>,11C,D) (< Vt89 uq1
$UNCAR=v=<Z 17>
A (< B>,17C,D) (< Vt8P o)|
$UNCBA=oI=<Z 6>
A (< B>,6C,D)A (< Vt: ]
$UNCHN=]9=<Z 0>
A (< B>,0C,D)A (< VtH2 s
$UNDAD=s)=<Z 14>
A (< B>,14C,D) (< Vt^ p$
$UNEXI=-Q=<Z UN.SPI>
tAA (<B>,UN.SPIC, D)B>,UN.SPIC, Vt^ mYq
$UNEXS=my=<Z UN.STA>
nA (<B>,UN.STAC, D)B>,UN.STAC, Vu2 va8
$UNHAD=w=<Z 21>
A (< B>,21C,D) (< Vu|Q x!D
$UNORC=xA=<Z 23>
A (< B>,23C,D) (< Vu~ uI=
$UNOXM=wQ=<Z 23>
A (< B>,23C,D) (< Vv2 ]y
$UNPAD=^=<Z 0>
A (< B>,0C,D)A (< Vv
2 haH
$UNPID=i=<Z 2>
A (< B>,2C,D)A (< Vv 9 gi@
$UNPMS=h =<Z 1>
A (< B>,1C,D)A (< Vv
W e*
$UNPRO=e!=<Z 0>
A (< B>,0C,D)A (< Vv
$UNPTR=b=<Z 0>
A (< B>,0C,D)A (< Vv*2 jAV
$UNRID=ja=<Z 4>
A (< B>,4C,D)A (< Vv,x bA
$UNRSP=c9=<Z 0>
A (< B>,0C,D)A (< Vv-7 \qa
$UNRUN=\Q=<Z UN.STA>
lA (<B>,UN.STAC, D)B>,UN.STAC, Vv82 r
$UNSAD=r9=<Z 12>
A (< B>,12C,D) (< Vv< qq
$UNSPI=sy=<Z 16>
A (< B>,16C,D) (< Vv<z lYi
$UNSST=ly=<Z UN.STA>
mA (<B>,UN.STAC, D)B>,UN.STAC, Vv= k1]
$UNSTA=kQ=<Z 5>
A (< B>,5C,D)A (< VvI fy9
$UNTDR=g=<Z 1>
A (< B>,1C,D)A (< VvZ2 iQO
$UNUID=iq=<Z 3>
A (< B>,3C,D)A (< Vw,W ^Y
$UNZRO=_)=<Z 0>
A (< B>,0C,D)A (< 8u\uQ 8u{Q p : Q p :5I`Q :ex`P( :ez`P :n:`P :|i@P :}I Q p ;4 P EiUP S@P N8UP N8yP N9P N9P N:7P N;<P N;sP N<RP N<WP N<YP N=SP f
tP =|RQ 2DQ x JDP' NO P R
+R :1 W
IFNDEF :Q..VLA,..DFLT
I:pFDEF ..VLA,PURGE ..VLA
PURGE R
+Z I
O
IFDEF .I1.VLA,<PRINTX ? TIPABENT - DuplicateIp table entry # nu m.>
..VLA==1 Z <..VAL==.. VAL+1>..VAL==..>}{woP