Google
 
Trailing-Edge - PDP-10 Archives - SRI_NIC_PERM_SRC_3_19910112 - monitor/nipar.unv
There are 3 other files named nipar.unv in the archive. Click here to see a list.
x
,S@P E>= x$SJX
	IFN FTSHOW,..LOC==.

8
DEFINE	WORD(NAM,XNUMB<1>),<
	IFN x<..MSK>,<..OFF==..OFF+1> 

	..MS8K==0		
	FIELDM(NXAM,<.FWORD>)	

x	..MSK==0		
	..OFF==..OFF+NUMB	
8
>

DEFINE	NXTXWRD(NUMB<1>),<
	x..MSK==0
	..OFF=..OFF+NUMB

>
8
DEFINE	FILLER(NXUM),<
	..FLG==POxS(..MSK)
	IFE ..MSK,<..FLG==-1>
8	IFG <^D<NUM>-<^DX35-..FLG>>,<PRINTxX ?FILL TOO BIG IN A STRUCTURE>
8	...MSK==MASK.(^DX<NUM>,<..FLG+^D<NxUM>>)
	IFN FTSHOW,<
	  PHASE ..O8FF
	  EXP ...MSKX
	>
	..MSK==..MxSK!...MSK
>

 

DEFINE	HWORD(n 8am),<
	..FLG==0	 X	
	IFE ..MSK&.LH xALF,<FIELDM(nam,.!LHALF)
			  ..FL!8G==1>
	IFE ..FLG!X,<..MSK==..MSK!.L!xHALF
		   IFE .."MSK&.RHALF,<FIELD"8M(nam,.RHALF)
		"X		     ..FLG==1>
		   IFE ..FLG,<#NXTWRD
			      #8FIELDM(nam,.LHALF#X) >
		  >
>

#x
DEFINE	FIELD(NA$M,SIZ,POS),<
	..$8FLG==0		

	IFB $X<POS>,<IFB <SIZ>,$x<
	  ...MSK==.RT%MSK(<<^-<<..MSK>>%8>>) 
	  IFE ...M%XSK,<..OFF==..OFF+%x1 
	    ..MSK==0&		
	    ...MSK==&8-1
	  >
	  FIEL&XDM(NAM,<...MSK>)	&x
	'..FLG==-1		
	>>

	IFNB <SI'8Z>,<.SIZ==^D<SIZ>'X> 

	IFNB <POS>'x,<		
	  FIELDM(N(AM,MASK.(.SIZ,POS(8)) 
	  ..FLG==-1(X		
	  ..BITS==MA(xSK.(.SIZ,POS) 
	)>

	IFE ..FLG,<)8IFGE <^D<.SIZ>-^D)X36>,< 
	  WORD(N)xAM,<^D<.SIZ>/^D36*>) 
	  IFN <<^D<*8.SIZ>-<^D<.SIZ>/^*XD36>*^D36>>,<	
	*x    FIELD(...,<<^+D<.SIZ>-<^D<.SIZ>+8/^D36>*^D36>>) 
+X	  >

	  ..FLG=+x=-1		
	>>

	IF,E ..FLG,<		
	  .,8.BITS==MASK.(^D<.,XSIZ>,<^D<.SIZ>-1>,x) 

	  REPEAT <-^D36-^D<.SIZ>+1>,-8< 
	    IFE ..FL-XG,<	
	      IFE -x<..BITS&..MSK>,< .
			..MSK==..MSK.8!..BITS 
		..FLG.X==-1 
	       > .x

	    IFE ..FL/G,..BITS==..BITS_/8<-1> 
	    >
	 /X >

	IFE ..FLG,/x<		
	  ..BITS==M0ASK.(^D<.SIZ>,<^D08<.SIZ>-1>) 
	  .0X.OFF==..OFF+1	
	0x  ..MSK==..BITS		1
	>

	MSKSTR(18A'NAM,\..OFFC,..1XBITS) 
	A.'NAM=1x=..OFF
	IFN FTSH2OW,<
	  PHASE	A28.'NAM
	  EXP	A'2XNAM
	>>

	..OL2xD==..BITS		
	...3OLD==..BITS		

38>

DEFINE	BIT(N3XAM),<
	..BITS==L3xFTBT.(..OLD)	

4	IFE ..BITS,<PRIN48TX ?NO ROOM FOR B4XIT IN LAST FIELD>4x

	A%'NAM==..B5ITS_<-<^D35-POS(.58..OLD)>> 
	A.'N5XAM==..OFF		

	M5xSKSTR(A'NAM,\..O6FFC,..BITS) 
	I68FN FTSHOW,<
	  P6XHASE ..OFF
	  EX6xP A'NAM
	>

	7..OLD==..OLD&<^-<78..BITS>> 

>
7X
DEFINE	FIELDM(NA7xM,MASK),<
	IFN M8ASK&..MSK,<	
	  88..MSK==0		
	  ..8XOFF==..OFF+1
	>x

	..MSK==..MSK!9MASK	

	MSKSTR(98A'NAM,\..OFFC,M9XASK) 
	A.'NAM==9x..OFF
	IFN FTSHO:W,<
	  PHASE	A.:8'NAM
	  EXP	A'N:XAM
	>
>

DEFI:xNE ENDSTR(LENNAM<;LEN>,LSTNAM<LST>);8,<

	IFN ..MSK,;X<..OFF==..OFF+1> ;x

	A.'LSTNAM==<..OFF	

	IFN FT<8SHOW,DEPHASE

	<X..LOK==..LOK+1
	<xIFN ..LOK,<PRINTX= ? MISSING BEGSTR=8>

	IF2,<
	  I=XFDEF ...MSK,<SUPP=xRESS ...MSK>
	  >IFDEF ..BITS,<SUP>8PRESS ..BITS>
	 >X IFDEF .SIZ,<SUPP>xRESS .SIZ>
	  IF?DEF ..MSK,<SUPPRE?8SS ..MSK>
	  IFD?XEF ..OFF,<SUPPRES?xS ..OFF>
	  IFDE@F ..FLG,<SUPPRESS@8 ..FLG>
	  IFDEF@X ..LOK,<SUPPRESS @x..LOK>
	  IFDEF A..LOC,<SUPPRESS .A8.LOC>
	  IFDEF .AX.OLD,<SUPPRESS ..AxOLD>
	  IFDEF ..B.OLD,<SUPPRESS ..B8.OLD>
	>

	IF1BX,<
	  IFDEF ...MBxSK,<.XCREF ...MSKC>
	  IFDEF ..BITC8S,<.XCREF ..BITS>CX
	  IFDEF .SIZ,<Cx.XCREF .SIZ>
	  DIFDEF ..MSK,<.XCRD8EF ..MSK>
	  IFDDXEF ..FLG,<.XCREF Dx..FLG>
	  IFDEF E..OFF,<.XCREF ..OE8FF>
	  IFDEF ..LEXOK,<.XCREF ..LOK>Ex
	  IFDEF ..LOC,F<.XCREF ..LOC>
	F8  IFDEF ..OLD,<.XFXCREF ..OLD>
	  IFxFDEF ...OLD,<.XCRGEF ...OLD>
	>
G8
	PURGE WORD,NXTWGXRD,FILLER,HWORD,FGxIELD,BIT,FIELDM
H
	A.'LENNAM==..H8OFF-B
	IFN FTSHHXOW,<RELOC ..LOC>>Hx



	..MSK==0I		
	..OFF==B		
	A.D==B	

	IXIFDEF ..LOK,<IFL Ix..LOK,<PRINTX ? NJEW BEGSTR WITHOUTJ8 ENDSTR>>

	..LOK==-1


	..L$V$W0$YBEG
	  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

vYRPP G@Q G`Q G9@P G$|@Q G$|`Q G%}@Q G&4 Q G&9Q G&; Q G/`P G4\@P G5I P G6KP  Gex`P Gl,@Q GlL@Q Gth@P @G|0P @G`Q GiP Gk Q G- Q G0P  G`Q Gk Q GN@Q G,- Q G,iQ GD,P GDkP I6= b(& 
	A==<-1bHB<C>+1B<C-D>> bh
	IF1,<IFDEF %Ac,<PRINTX ?A ALREc(ADY DEFINED>>
	DcHEFINE %A (OP,AC,chY,MSK)<
	$A==<Zd B>		
	OP (<AC>,B'Y,MSK)><AC>K:&= 5a0sh

	IFN .)9.MSK,<..OFF==..OF[	F+1> 

	PC.B==9..OFF	

	IFN FT6SHOW,DEPHASE

	09..LOK==..LOK+1
	z)IFN ..LOK,<PRINTXza ? MISSING BEGSTR{>

	IF2,<
	  I{ FDEF ...MSK,<SUPP{@RESS ...MSK>
	  {`IFDEF ..BITS,<SUP|PRESS ..BITS>
	 |  IFDEF .SIZ,<SUPP|@RESS .SIZ>
	  IF|`DEF ..MSK,<SUPPRE}SS ..MSK>
	  IFD} EF ..OFF,<SUPPRES}@S ..OFF>
	  IFDE}`F ..FLG,<SUPPRESS~ ..FLG>
	  IFDEF~  ..LOK,<SUPPRESS [email protected]>
	  IFDEF ~`..LOC,<SUPPRESS ..LOC>
	  IFDEF . .OLD,<SUPPRESS ..@OLD>
	  IFDEF ..`.OLD,<SUPPRESS ...OLD>
	>

	IF1 ,<
	  IFDEF ...M@SK,<.XCREF ...MSK`>
	  IFDEF ..BITS,<.XCREF ..BITS> 
	  IFDEF .SIZ,<@.XCREF .SIZ>
	  `IFDEF ..MSK,<.XCREF ..MSK>
	  IFD EF ..FLG,<.XCREF @..FLG>
	  IFDEF `..OFF,<.XCREF ..OFF>
	  IFDEF ..L OK,<.XCREF ..LOK>@
	  IFDEF ..LOC,`<.XCREF ..LOC>
	  IFDEF ..OLD,<.X CREF ..OLD>
	  I@FDEF ...OLD,<.XCR`EF ...OLD>
	>

	PURGE WORD,NXTW RD,FILLER,HWORD,F@IELD,BIT,FIELDM
`
	PC.A==..OFF-0
	IFNFTSHOW,<RELOC..LOC>W,<RE	4LENDRE$LSTMS{P [3@ 00;<<<1<A>>-1>B<B>><A>>[tP [tP [t<P [t)3P [t.:P [uI7P [uLzP [unP [v
	A==C		
	IF1,<IFDEF %0A,<PRINTX ?A ALRPEADY DEFINED>>
	pDEFINE %A (OP,AC,Y,MSK)<
	$A==<0Z 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 aN@Q a,- Q a? & 22<^L<<A>&<-<A>>>><<A>&<i)3 w	F
	..LOC==w).
	..FRST==<A>
	..LAST==<B>
	whIFL ..LAST-..FRSTx,<PRINTX ? TABBEGx( - A greater thaxHn last.>

	DEFIxhNE ..DFLT <C>
	 ..DFLT <C>
	i[R v).
	..X==..vIFRST
	   REPEAT vh..LAST-..FRST+1,<d
	   RELOC ..LOCd)+..X-..FRST
	   dH.TABND (\<..X-..FdhRST>)
	   ..X==.e.X+1
	   >
	RELe(OC ..LOC+..LAST-.eH.FRST+1
	PURGE .eh.X,..FRST,..LAST,..DFLT,..LOC
	i[Z y)$
	.TABNT(yI\<A-..FRST>)
	IsFL A-..FRST,<PRIs)NTX ? TABENT - AsH out of range.>
sh	IFG A-..LAST,<PtRINTX ? TABENT - t(A out of range.>tH
	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 k8v9P 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 pk:$Q k:%lbP 	k:/bP k:/
 Q `k:/

`P k:DQ 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:lPk:v	"Pk:v)"P 	k:v8bPk:v<Pk:~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 xk;-Q k;V+`Q kX g)>IF1,<IFDEFgI A,<PRINTX ? A ghis not unique>>
			A==:.VAL.
m6kWP m6m9P m6nP (r Si"
	$CCBCE=T	=<Z CC.RFM>		
	T(A (<B>,CC.RFMC,D)B>,CC.RFMC,.9 ;[
	$CCBYR=;9=<Z 3>		
	A (<B>,3C,D)A (<.9 <!d
	$CCBYS=<A=<Z 5>		
	A (<B>,5C,D)A (<8s Kqc
	$CCCCF=L=<Z CC.SFM>		
	L0A (<B>,CC.SFMC,D)B>,CC.SFMC,Iy =)l
	$CCDGR==I=<Z 7>		
	A (<B>,7C,D)A (<Iy >1u
	$CCDGS=>Q=<Z 11>		
	A (<B>,11C,D) (<K{ VY7
	$CCDOV=Vy=<Z 35>		
	A (<B>,35C,D) (<Lh BQ
	$CCDS1=Bq=<Z 21>		
	A (<B>,21C,D) (<Lr AI
	$CCDSD=Ai=<Z 17>		
	A (<B>,17C,D) (<Lv CY
	$CCDSM=Cy=<Z 23>		
	A (<B>,23C,D) (<^ Lqk
	$CCEXC=M=<Z CC.SFM>		
	M0A (<B>,CC.SFMC,D)B>,CC.SFMC,i9 Ri
	$CCFER=S	=<Z CC.RFM>		
	S(A (<B>,CC.RFMC,D)B>,CC.RFMC,k N
	$CCFLE=N1=<Z CC.RFM>		
	P)A (<B>,CC.RFMC,D)B>,CC.RFMC,m Qi
	$CCFTL=R	=<Z CC.RFM>		
	R(A (<B>,CC.RFMC,D)B>,CC.RFMC,Kq 9I3
	$CCLOC=A=<Z CC.SFM>		
	F1A (<B>,CC.SFMC,D)B>,CC.SFMC,XY ?9}
	$CCMBR=?Y=<Z 13>		
	A (<B>,13C,D) (<Y @A
	$CCMDR=@a=<Z 15>		
	A (<B>,15C,D) (<iQ Pi

	$CCNFB=Q	=<Z CC.RFM>		
	Q(A (<B>,CC.RFMC,D)B>,CC.RFMC,x` IqS
	$CCOC==J<Z CC.SFM>		
	AJ0 (<B>,CC.SFMC,D)B>,CC.SFMC,)@ NYw
	$CCRF==Ny<Z 30>		
	A (<B>,30C,D) (<)R GqC
	$CCRFD=H=<Z CC.SFM>		
	H0A (<B>,CC.SFMC,D)B>,CC.SFMC,)V OI~
	$CCRFM=Oi=<Z 31>		
	A (<B>,31C,D) (<8Z Wa@
	$CCSBU=X=<Z 37>		
	A (<B>,37C,D) (<8` Jq[
	$CCSC==K<Z CC.SFM>		
	AK0 (<B>,CC.SFMC,D)B>,CC.SFMC,9@ Da(
	$CCSF==E<Z 25>		
	A (<B>,25C,D) (<9V EQ/
	$CCSFM=Eq=<Z 26>		
	A (<B>,26C,D) (<; :S
	$CCSLZ=:1=<Z 1>		
	A (<B>,1C,D)A (<XZ XiH
	$CCUBU=Y	=<Z 41>		
	A (<B>,41C,D) (<YR UQ/
	$CCUFD=Uq=<Z 33>		
	A (<B>,33C,D) (<X Fq;
	$CCXBP=G=<Z CC.SFM>		
	G0A (<B>,CC.SFMC,D)B>,CC.SFMC,	V HqK
	$CCXFL=I=<Z CC.SFM>		
	I0A (<B>,CC.SFMC,D)B>,CC.SFMC,6$ 7I>
	$MDALA=7i=<Z 5>		
	A (<B>,5C,D)A (<6$ 6!4
	$MDALL=6A=<Z 4>		
	A (<B>,4C,D)A (<6$< 3i 
	$MDAUX=4	=<Z 2>		
	A (<B>,2C,D)A (<6$.: 4Y'
	$MDBYT=4y=<Z 3>		
	A (<B>,3C,D)A (<6%n 2)
	$MDNXT=2I=<Z 0>		
	A (<B>,0C,D)A (<6&
	$MDPTR=3=<Z 1>		
	A (<B>,1C,D)A (<6&k1 0y,
	$MDVMC=5A=<Z 4>		
	A (<B>,4C,D)A (<B.9 \9e
	$PCBYR=\Y=<Z 3>		
	A (<B>,3C,D)A (<B.9 ^Iv
	$PCBYS=^i=<Z 7>		
	A (<B>,7C,D)A (<BIy ]An
	$PCDGR=]a=<Z 5>		
	A (<B>,5C,D)A (<BIy _Q
	$PCDGS=_q=<Z 11>		
	A (<B>,11C,D) (<B; [1]
	$PCSLZ=[Q=<Z 1>		
	A (<B>,1C,D)A (<BXZ `Y
	$PCUBU=`y=<Z 13>		
	A (<B>,13C,D) (<Vt ad
	$UNADS=

I=<Z 0>		
	A (<B>,0C,D)A (<Vt)P 1e
	$UNBFA=Q=<Z 7>		
	A (<B>,7C,D)A (<Vt,} Yj
	$UNBSZ=!=<Z 11>		
	A (<B>,11C,D) (<Vt89 !i
	$UNCAR="	=<Z 17>		
	A (<B>,17C,D) (<Vt8P !\
	$UNCBA=A=<Z 6>		
	A (<B>,6C,D)A (<Vt: 	K
	$UNCHN=	1=<Z 0>		
	A (<B>,0C,D)A (<VtH2 z
	$UNDAD=!=<Z 14>		
	A (<B>,14C,D) (<Vt^ 	
	$UNEXI=YI=<Z UN.SPI>		
	 9A (<B>,UN.SPIC,D)B>,UN.SPIC,Vt^ QQ
	$UNEXS=q=<Z UN.STA>		
	A (<B>,UN.STAC,D)B>,UN.STAC,Vu2 "Y
	$UNHAD="y=<Z 21>		
	A (<B>,21C,D) (<Vu|Q $#
	$UNORC=$9=<Z 23>		
	A (<B>,23C,D) (<Vu~ !A
	$UNOXM=#I=<Z 23>		
	A (<B>,23C,D) (<Vv2 	qQ
	$UNPAD=
=<Z 0>		
	A (<B>,0C,D)A (<Vv
2 Y'
	$UNPID=y=<Z 2>		
	A (<B>,2C,D)A (<Vv9 a 
	$UNPMS==<Z 1>		
	A (<B>,1C,D)A (<Vv

W y	
	$UNPRO==<Z 0>		
	A(<B>,0C,D)A (<Vv
	$UNPTR=
	A (<B>,0C,D)A (<Vv*2 95
	$UNRID=Y=<Z 4>		
	A (<B>,4C,D)A (<Vv,x 9{
	$UNRSP=1=<Z 0>		
	A (<B>,0C,D)A (<Vv-7 iA
	$UNRUN=I=<Z UN.STA>		
	A (<B>,UN.STAC,D)B>,UN.STAC,Vv82 s
	$UNSAD=1=<Z 12>		
	A (<B>,12C,D) (<Vv< i
	$UNSPI=q=<Z 16>		
	A (<B>,16C,D) (<Vv<z QI
	$UNSST=q=<Z UN.STA>		
	A (<B>,UN.STAC,D)B>,UN.STAC,Vv= )<
	$UNSTA=I=<Z 5>		
	A (<B>,5C,D)A (<VvI q
	$UNTDR==<Z 1>		
	A (<B>,1C,D)A (<VvZ2 I.
	$UNUID=i=<Z 3>		
	A (<B>,3C,D)A (<Vw,W 
QZ
	$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 :}IQ p;4P 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 xJDP'NO P R

+R f)6
	IFNDEF fI..VLA,..DFLT
	IfhFDEF ..VLA,PURGE ..VLA
	PURGER

+Z u	.
	IFDEF .u).VLA,<PRINTX ? TuHABENT - Duplicateuh table entry # num.>
	..VLA==1Z<..VAL==..VAL+1>..VAL==..>}{woP