Google
 
Trailing-Edge - PDP-10 Archives - bb-l014r-bm_tops20_v6_1_atpch_18 - autopatch/nipar.unv
There are 3 other files named nipar.unv in the archive. Click here to see a list.
x
,S@P E>= 
p#c<P
	IFN FTSHOW,..LOC==.

0
DEFINE	WORD(NAM,PNUMB<1>),<
	IFN p<..MSK>,<..OFF==.

.OFF+1> 

	..MS

0K==0		
	FIELDM(N

PAM,<.FWORD>)	



p	..MSK==0		
	..O..OFF+NUMB	

>

DEFINE	NXT>),<
	.MSK==0
	..OFF=..OFF+NUMB

>
0
DEFINE	FILLER(NPUM),<
	..FLG==POpS(..MSK)
	IFE ..MSK,<..FLG==-1>
0	IFG <^D<NUM>-<^DP35-..FLG>>,<PRINTpX ?FILL TOO BIG IN A STRUCTURE>
0	...MSK==MASK.(^DP<NUM>,<..FLG+^D<NpUM>>)
	IFN FTSHOW,<
	  PHASE ..O0FF
	  EXP ...MSKP
	>
	..MSK==..MpSK!...MSK
>



DEFINE	HWORD(n0am),<
	..FLG==0	P	
	IFE ..MSK&.LHpALF,<FIELDM(nam,.LHALF)
			  ..FL0G==1>
	IFE ..FLGP,<..MSK==..MSK!.LpHALF
		   IFE ..MSK&.RHALF,<FIELD0M(nam,.RHALF)
		P		     ..FLG==1>
		   IFE ..FLG,<NXTWRD
			      0FIELDM(nam,.LHALFP) >
		  >
>

p
DEFINE	FIELD(NAM,SIZ,POS),<
	..0FLG==0		

	IFB P<POS>,<IFB <SIZ>,p<
	  ...MSK==.RTMSK(<<^-<<..MSK>>0>>) 
	  IFE ...MPSK,<..OFF==..OFF+p1 
	    ..MSK==0		
	    ...MSK==0-1
	  >
	  FIELPDM(NAM,<...MSK>)	p
	..FLG==-1		
	>>

	IFNB <SI0Z>,<.SIZ==^D<SIZ>P> 

	IFNB <POS>p,<		
	  FIELDM(NAM,MASK.(.SIZ,POS0)) 
	  ..FLG==-1P		
	  ..BITS==MApSK.(.SIZ,POS) 
	>

	IFE ..FLG,<0IFGE <^D<.SIZ>-^DP36>,< 
	  WORD(NpAM,<^D<.SIZ>/^D36>) 
	  IFN <<^D<0.SIZ>-<^D<.SIZ>/^PD36>*^D36>>,<	
	p    FIELD(...,<<^D<.SIZ>-<^D<.SIZ>0/^D36>*^D36>>) 
P	  >

	  ..FLG=p=-1		
	>>

	IFE ..FLG,<		
	  .0.BITS==MASK.(^D<.PSIZ>,<^D<.SIZ>-1>p) 

	  REPEAT <^D36-^D<.SIZ>+1>,0< 
	    IFE ..FLPG,<	
	      IFE p<..BITS&..MSK>,<  
			..MSK==..MSK 0!..BITS 
		..FLG P==-1 
	       >  p

	    IFE ..FL!G,..BITS==..BITS_!0<-1> 
	    >
	 !P >

	IFE ..FLG,!p<		
	  ..BITS==M"ASK.(^D<.SIZ>,<^D"0<.SIZ>-1>) 
	  ."P.OFF==..OFF+1	
	"p  ..MSK==..BITS		#
	>

	MSKSTR(#0A'NAM,\..OFFC,..#PBITS) 
	A.'NAM=#p=..OFF
	IFN FTSH$OW,<
	  PHASE	A$0.'NAM
	  EXP	A'$PNAM
	>>

	..OL$pD==..BITS		
	...%OLD==..BITS		

%0>

DEFINE	BIT(N%PAM),<
	..BITS==L%pFTBT.(..OLD)	

&	IFE ..BITS,<PRIN&0TX ?NO ROOM FOR B&PIT IN LAST FIELD>&p

	A%'NAM==..B'ITS_<-<^D35-POS(.'0..OLD)>> 
	A.'N'PAM==..OFF		

	M'pSKSTR(A'NAM,\..O(FFC,..BITS) 
	I(0FN FTSHOW,<
	  P(PHASE ..OFF
	  EX(pP A'NAM
	>

	)..OLD==..OLD&<^-<)0..BITS>> 

>
)P
DEFINE	FIELDM(NA)pM,MASK),<
	IFN M*ASK&..MSK,<	
	  *0..MSK==0		
	  ..*POFF==..OFF+1
	>p

	..MSK==..MSK!+MASK	

	MSKSTR(+0A'NAM,\..OFFC,M+PASK) 
	A.'NAM==+p..OFF
	IFN FTSHO,W,<
	  PHASE	A.,0'NAM
	  EXP	A'N,PAM
	>
>

DEFI,pNE ENDSTR(LENNAM<-LEN>,LSTNAM<LST>)-0,<

	IFN ..MSK,-P<..OFF==..OFF+1> -p

	A.'LSTNAM==...OFF	

	IFN FT.0SHOW,DEPHASE

	.P..LOK==..LOK+1
	.pIFN ..LOK,<PRINTX/ ? MISSING BEGSTR/0>

	IF2,<
	  I/PFDEF ...MSK,<SUPP/pRESS ...MSK>
	  0IFDEF ..BITS,<SUP00PRESS ..BITS>
	 0P IFDEF .SIZ,<SUPP0pRESS .SIZ>
	  IF1DEF ..MSK,<SUPPRE10SS ..MSK>
	  IFD1PEF ..OFF,<SUPPRES1pS ..OFF>
	  IFDE2F ..FLG,<SUPPRESS20 ..FLG>
	  IFDEF2P ..LOK,<SUPPRESS 2p..LOK>
	  IFDEF 3..LOC,<SUPPRESS .30.LOC>
	  IFDEF .3P.OLD,<SUPPRESS ..3pOLD>
	  IFDEF ..4.OLD,<SUPPRESS ..40.OLD>
	>

	IF14P,<
	  IFDEF ...M4pSK,<.XCREF ...MSK5>
	  IFDEF ..BIT50S,<.XCREF ..BITS>5P
	  IFDEF .SIZ,<5p.XCREF .SIZ>
	  6IFDEF ..MSK,<.XCR60EF ..MSK>
	  IFD6PEF ..FLG,<.XCREF 6p..FLG>
	  IFDEF 7..OFF,<.XCREF ..O70FF>
	  IFDEF ..L7POK,<.XCREF ..LOK>7p
	  IFDEF ..LOC,8<.XCREF ..LOC>
	80  IFDEF ..OLD,<.X8PCREF ..OLD>
	  I8pFDEF ...OLD,<.XCR9EF ...OLD>
	>
90
	PURGE WORD,NXTW9PRD,FILLER,HWORD,F9pIELD,BIT,FIELDM
:
	A.'LENNAM==..:0OFF-B
	IFN FTSH:POW,<RELOC ..LOC>>:p



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

	;PIFDEF ..LOK,<IFL ;p..LOK,<PRINTX ? N<EW BEGSTR WITHOUT<0 ENDSTR>>

	..LOK==-1


	..L#f#f0#hBEG
	  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= T %0
	A==<-1T@B<C>+1B<C-D>> T`
	IF1,<IFDEF %AU,<PRINTX ?A ALREU ADY DEFINED>>
	DU@EFINE %A (OP,AC,U`Y,MSK)<
	$A==<ZV B>		
	OP (<AC>,B'Y,MSK)><AC>K:&= ~Ls<

	IFN .qi.MSK,<..OFF==..OF#9F+1> 

	PC.B==A..OFF	

	IFN FT~1SHOW,DEPHASE

	xi..LOK==..LOK+1
	BYIFN ..LOK,<PRINTXC ? MISSING BEGSTRC0>

	IF2,<
	  ICPFDEF ...MSK,<SUPPCpRESS ...MSK>
	  DIFDEF ..BITS,<SUPD0PRESS ..BITS>
	 DP IFDEF .SIZ,<SUPPDpRESS .SIZ>
	  IFEDEF ..MSK,<SUPPREE0SS ..MSK>
	  IFDEPEF ..OFF,<SUPPRESEpS ..OFF>
	  IFDEFF ..FLG,<SUPPRESSF0 ..FLG>
	  IFDEFFP ..LOK,<SUPPRESS Fp..LOK>
	  IFDEF G..LOC,<SUPPRESS .G0.LOC>
	  IFDEF .GP.OLD,<SUPPRESS ..GpOLD>
	  IFDEF ..H.OLD,<SUPPRESS ..H0.OLD>
	>

	IF1HP,<
	  IFDEF ...MHpSK,<.XCREF ...MSKI>
	  IFDEF ..BITI0S,<.XCREF ..BITS>IP
	  IFDEF .SIZ,<Ip.XCREF .SIZ>
	  JIFDEF ..MSK,<.XCRJ0EF ..MSK>
	  IFDJPEF ..FLG,<.XCREF Jp..FLG>
	  IFDEF K..OFF,<.XCREF ..OK0FF>
	  IFDEF ..LKPOK,<.XCREF ..LOK>Kp
	  IFDEF ..LOC,L<.XCREF ..LOC>
	L0  IFDEF ..OLD,<.XLPCREF ..OLD>
	  ILpFDEF ...OLD,<.XCRMEF ...OLD>
	>
M0
	PURGE WORD,NXTWMPRD,FILLER,HWORD,FMpIELD,BIT,FIELDM
N
	PC.A==..OFF-0N0
	IFNFTSHOW,<RELOC..LOC>W,<RE	SbLwLENDREQgLSTPMS{P [3@ w(/:<<<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 ALRHEADY DEFINED>>
	hDEFINE %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 aN@Q a,- Q a? 11<^L<<A>&<-<A>>>><<A>&<i)3 ?9L	
	..LOC==?Y.
	..FRST==<A>
	..LAST==<B>
	@IFL ..LAST-..FRST@8,<PRINTX ? TABBEG@X - A greater tha@xn last.>

	DEFIANE ..DFLT <C>
	 ..DFLT <C>
	i[R >YJq
	..X==..>yFRST
	   REPEAT ?..LAST-..FRST+1,<,8
	   RELOC ..LOC,Y+..X-..FRST
	   ,x.TABND (\<..X-..F-RST>)
	   ..X==.-8.X+1
	   >
	REL-XOC ..LOC+..LAST-.-x.FRST+1
	PURGE ...X,..FRST,..LAST,..DFLT,..LOC
	i[Z AYKg
	.TABNT(Ay\<A-..FRST>)
	I;8FL A-..FRST,<PRI;YNTX ? TABENT - A;x out of range.>
<	IFG A-..LAST,<P<8RINTX ? TABENT - <XA out of range.><x
	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 /YKIF1,<IFDEF/y A,<PRINTX ? A 0is not unique>>
			A==:.VAL.
m6kWP m6m9P m6nP (r Qe
	$CCBCE=9=<Z CC.RFM>		
	XA (<B>,CC.RFMC,D)B>,CC.RFMC,.9 IP
	$CCBYR=i=<Z 3>		
	A (<B>,3C,D)A (<.9 QP'
	$CCBYS=q=<Z 5>		
	A (<B>,5C,D)A (<8s !Q&
	$CCCCF=A=<Z CC.SFM>		
	`A (<B>,CC.SFMC,D)B>,CC.SFMC,Iy YP/
	$CCDGR=y=<Z 7>		
	A (<B>,7C,D)A (<Iy aP8
	$CCDGS==<Z 11>		
	A (<B>,11C,D) (<K{ 	Qz
	$CCDOV=)=<Z 35>		
	A (<B>,35C,D) (<Lh PZ
	$CCDS1=!=<Z 21>		
	A (<B>,21C,D) (<Lr 	yPQ
	$CCDSD=
=<Z 17>		
	A (<B>,17C,D) (<Lv 

	Pb
	$CCDSM=

)=<Z 23>		
	A (<B>,23C,D) (<^ !Q.
	$CCEXC=A=<Z CC.SFM>		
	`A (<B>,CC.SFMC,D)B>,CC.SFMC,i9 Q]
	$CCFER=9=<Z CC.RFM>		
	XA (<B>,CC.RFMC,D)B>,CC.RFMC,k AQE
	$CCFLE=a=<Z CC.RFM>		
	YA (<B>,CC.RFMC,D)B>,CC.RFMC,m QU
	$CCFTL=9=<Z CC.RFM>		
	XA (<B>,CC.RFMC,D)B>,CC.RFMC,Kq yPv
	$CCLOC=Oq=<Z CC.SFM>		
	aA (<B>,CC.SFMC,D)B>,CC.SFMC,XY iP@
	$CCMBR=	=<Z 13>		
	A (<B>,13C,D) (<Y qPI
	$CCMDR=	=<Z 15>		
	A (<B>,15C,D) (<iQ QM
	$CCNFB=9=<Z CC.RFM>		
	XA (<B>,CC.RFMC,D)B>,CC.RFMC,x` !Q
	$CCOC==A<Z CC.SFM>		
	A` (<B>,CC.SFMC,D)B>,CC.SFMC,)@ 	Q:
	$CCRF==)<Z 30>		
	A (<B>,30C,D) (<)R !Q
	$CCRFD=A=<Z CC.SFM>		
	`A (<B>,CC.SFMC,D)B>,CC.SFMC,)V yQA
	$CCRFM==<Z 31>		
	A (<B>,31C,D) (<8Z  R
	$CCSBU= 1=<Z 37>		
	A (<B>,37C,D) (<8` !Q
	$CCSC==A<Z CC.SFM>		
	A`(<B>,CC.SFMC,D)B>,CC.SFMC,9@ 
	$CCSF==
	A (<B>,25C,D) (<9V Pr
	$CCSFM=!=<Z 26>		
	A (<B>,26C,D) (<; AP
	$CCSLZ=a=<Z 1>		
	A (<B>,1C,D)A (<XZ !R
	$CCUBU=!9=<Z 41>		
	A (<B>,41C,D) (<YR Qr
	$CCUFD=!=<Z 33>		
	A (<B>,33C,D) (<X !P~
	$CCXBP=A=<Z CC.SFM>		
	`A (<B>,CC.SFMC,D)B>,CC.SFMC,	V !Q
	$CCXFL=A=<Z CC.SFM>		
	`A (<B>,CC.SFMC,D)B>,CC.SFMC,6$ yP
	$MDALA==<Z 5>		
	A (<B>,5C,D)A (<6$ ~QOw
	$MDALL=~q=<Z 4>		
	A (<B>,4C,D)A (<6$< |Oc
	$MDAUX=|9=<Z 2>		
	A (<B>,2C,D)A (<6$.: }	Oj
	$MDBYT=})=<Z 3>		
	A (<B>,3C,D)A (<6%n zYOW
	$MDNXT=zy=<Z 0>		
	A (<B>,0C,D)A (<6&
	$MDPTR={I=<Z 1>		
	A (<B>,1C,D)A (<6&k1 y)Oo
	$MDVMC=}q=<Z 4>		
	A (<B>,4C,D)A (<B.9 $iR(
	$PCBYR=%	=<Z 3>		
	A (<B>,3C,D)A (<B.9 &yR9
	$PCBYS='=<Z 7>		
	A (<B>,7C,D)A (<BIy %qR1
	$PCDGR=&=<Z 5>		
	A (<B>,5C,D)A (<BIy (RB
	$PCDGS=(!=<Z 11>		
	A (<B>,11C,D) (<B; #aR 
	$PCSLZ=$=<Z 1>		
	A (<B>,1C,D)A (<BXZ )	RJ
	$PCUBU=))=<Z 13>		
	A (<B>,13C,D) (<Vt TM'
	$UNADS=Ty=<Z 0>		
	A (<B>,0C,D)A (<Vt)P daN(
	$UNBFA=e=<Z 7>		
	A (<B>,7C,D)A (<Vt,} c	N-
	$UNBSZ=eQ=<Z 11>		
	A (<B>,11C,D) (<Vt89 jNS
	$UNCAR=j9=<Z 17>		
	A (<B>,17C,D) (<Vt8P cQN
	$UNCBA=cq=<Z 6>		
	A (<B>,6C,D)A (<Vt: QAM
	$UNCHN=Qa=<Z 0>		
	A (<B>,0C,D)A (<VtH2 g1N=
	$UNDAD=gQ=<Z 14>		
	A (<B>,14C,D) (<Vt^ d9NF
	$UNEXI=!y=<Z UN.SPI>		
	hiA (<B>,UN.SPIC,D)B>,UN.SPIC,Vt^ bN
	$UNEXS=b!=<Z UN.STA>		
	b@A (<B>,UN.STAC,D)B>,UN.STAC,Vu2 k	NZ
	$UNHAD=k)=<Z 21>		
	A (<B>,21C,D) (<Vu|Q lINf
	$UNORC=li=<Z 23>		
	A (<B>,23C,D) (<Vu~ iqN_
	$UNOXM=ky=<Z 23>		
	A (<B>,23C,D) (<Vv2 R!M
	$UNPAD=RA=<Z 0>		
	A (<B>,0C,D)A (<Vv
2 ]	Mj
	$UNPID=])=<Z 2>		
	A (<B>,2C,D)A (<Vv9 \Mc
	$UNPMS=\1=<Z 1>		
	A (<B>,1C,D)A (<Vv

W Y)ML
	$UNPRO=YI=<Z 0>		
	A (<B>,0C,D)A (<Vv
	$UNPTR=V)=<Z 0>		
	A (<B>,0C,D)A (<Vv*2 ^iMx
	$UNRID=_	=<Z 4>		
	A (<B>,4C,D)A (<Vv,x ViM>
	$UNRSP=Wa=<Z 0>		
	A (<B>,0C,D)A (<Vv-7 QN
	$UNRUN=Py=<Z UN.STA>		
	`AA (<B>,UN.STAC,D)B>,UN.STAC,Vv82 fAN6
	$UNSAD=fa=<Z 12>		
	A (<B>,12C,D) (<Vv< fNB
	$UNSPI=h!=<Z 16>		
	A (<B>,16C,D) (<Vv<z aN


	$UNSST=a!=<Z UN.STA>		
	a@A (<B>,UN.STAC,D)B>,UN.STAC,Vv= _YM
	$UNSTA=_y=<Z 5>		
	A (<B>,5C,D)A (<VvI [!M\
	$UNTDR=[A=<Z 1>		
	A (<B>,1C,D)A (<VvZ2 ]yMq
	$UNUID=^=<Z 3>		
	A (<B>,3C,D)A (<Vw,W SM
	$UNZRO=SQ=<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 .YJy
	IFNDEF .y..VLA,..DFLT
	I/FDEF ..VLA,PURGE ..VLA
	PURGER

+Z =9Kq
	IFDEF .=Y.VLA,<PRINTX ? T=xABENT - Duplicate> table entry # num.>
	..VLA==1Z<..VAL==..VAL+1>..VAL==..>}{woP