Google
 
Trailing-Edge - PDP-10 Archives - SRI_NIC_PERM_SRC_1_19910112 - 6-1-monitor/ctermd.unv
There are 13 other files named ctermd.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(NHAM,MASK.(.SIZ,POSh)) 
	  ..FLG==-1		
	  ..BITS==MA(SK.(.SIZ,POS) 
	H>

	IFE ..FLG,<hIFGE <^D<.SIZ>-^D36>,< 
	  WORD(N(AM,<^D<.SIZ>/^D36H>) 
	  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>>

	..LOK==-1


	..L#y#z0#|BEG
	QEg&:=PGt)3PGt91P9GtJ9PVGuQPtGuI7PZGuLzPxGu{qPGv8sPGwPyGX`PtG%`P7GMh`PG}x@PG9@PRGGP1@G,yP9G,QxG,8P9G,:PyG,*7P@G,+wPG,,8:QG,;PIG,;PJG,;qPG,;vPG,;xPhG,<SQiG;,<}QG,=PwG,=PG,LwP@G,YP$G,\XP1G,kPQG,kP7G,k3Q7GL,lPGM,lPGX-P G u\RP G v(SP G v(VP G v(|P G v)P G v)VP G v*2P G v+P G v-P G v<rP G v<}P G v=P G v=P G vHtP G vZ2P G"<@Q G"@Q G"$ Q G"$@Q G"$`Q G"%Q G"P'G"J Q G"t Q G"t@Q G"x`Q @G"K Q G"&;`Q G",MP$G"5D P'G"5I`Q xG"MX@Q G"Mh`Q xG"e@Q xG"fz P"G"lQ xG"n)Q  G#)@Q G#+P'G#>Q G#H Q @G#kQ G#Q xG#K@P'G#J P!G#9Q G#>@P'G#H Q xG#L`P'G#$: Q  G#'Q xG#-Q GRD,P GREYvP @GRExUP IL,LqP K:&= 1

	IFN .1.MSK,<..OFF==..OFN1F+1> 

	CA.B==Ni..OFF	

	IFN FTOSHOW,DEPHASE

	O(..LOK==..LOK+1
	OHIFN ..LOK,<PRINTXOh ? MISSING BEGSTRP>

	IF2,<
	  IP(FDEF ...MSK,<SUPPPHRESS ...MSK>
	  PhIFDEF ..BITS,<SUPQPRESS ..BITS>
	 Q( IFDEF .SIZ,<SUPPQHRESS .SIZ>
	  IFQhDEF ..MSK,<SUPPRERSS ..MSK>
	  IFDR(EF ..OFF,<SUPPRESRHS ..OFF>
	  IFDERhF ..FLG,<SUPPRESSS ..FLG>
	  IFDEFS( ..LOK,<SUPPRESS SH..LOK>
	  IFDEF Sh..LOC,<SUPPRESS .T.LOC>
	  IFDEF .T(.OLD,<SUPPRESS ..THOLD>
	  IFDEF ..Th.OLD,<SUPPRESS ..U.OLD>
	>

	IF1U(,<
	  IFDEF ...MUHSK,<.XCREF ...MSKUh>
	  IFDEF ..BITVS,<.XCREF ..BITS>V(
	  IFDEF .SIZ,<VH.XCREF .SIZ>
	  VhIFDEF ..MSK,<.XCRWEF ..MSK>
	  IFDW(EF ..FLG,<.XCREF WH..FLG>
	  IFDEF Wh..OFF,<.XCREF ..OXFF>
	  IFDEF ..LX(OK,<.XCREF ..LOK>XH
	  IFDEF ..LOC,Xh<.XCREF ..LOC>
	Y  IFDEF ..OLD,<.XY(CREF ..OLD>
	  IYHFDEF ...OLD,<.XCRYhEF ...OLD>
	>
Z
	PURGE WORD,NXTWZ(RD,FILLER,HWORD,FZHIELD,BIT,FIELDM
Zh
	CA.A==..OFF-0[
	IFN FTSHOW,<RELOC ..LOC>W,<RE	sLEND[rLST=.M.,zP!M.,|P @M.DHP M.HpP M.k9P  M2  y8'K<<<A>B<POS(<B>)>>&<B>>MS{P SL,8\P Y$- vx/71_<^D35-^L<A>>1_<^D35-^L[3@ {`/^<<<1_<A>>-1>B<B>>_<A>>[N^=  0>
	A==C	@	
	IF1,<IFDEF %`A,<PRINTX ?A ALREADY DEFINED>>
	 DEFINE %A (OP,AC@,Y,MSK)<
	$A==<`Z B>		
	OP (<AC>,B'Y,MSK)><AC_,J9P a? P1U<^L<<A>&<-<A>>>><<A>&<e
4;ZP (e,8:P e,8SP e,8rP e,99P e,9RP e,;P e,;qP e,;{P e,<P e,=P e,=P e,=3P e,=9P e,=QP e,>P e-]P gH,=Q gH,=Q gH,HqQ `gH,HrQ `gH,I2Q @gH,M9Q  gH,kyQ gH-9Q 0gH.(2P gH.(2Q @gH.(4Q `gH.(7Q  gH.I1Q gH.J6Q gH.MQQ gH.YQQ @gH.YTQ @gH.YZQ gH/	P gH/	Q gH/	Q 0gH/	Q  gH/	1Q kH,[8P o

,LzP oH,*zQ oH,+9Q oH,;Q  oH,;Q @oH,;8Q oH,<RQ @oH,=Q @oH,[9Q oH,l[Q oH.qQ `oH.vQ @oH.wQ  oH.

QQ `oH.

VQ @oH.

WQ  oH.;rQ oH.LQ 

91 1G
	$CACEC=q=<Z 0>		
	A (<B>,0C,D)A (<

J9 	1W
	$CADIS=
q=<Z 0>		
	A(<B>,0C,D)A (<
	$CAINC=

q=<Z 0>		
	A(<B>,0C,D)A (<
	$CAOOB=q=<Z 0>		
	A (<B>,0C,D)A (<8s Q7
	$CASCF=q=<Z 0>		
	A (<B>,0C,D)A (< q1
	$CAXXX==<Z 0>		
	A (<B>,0C,D)A (<Dy ui0
	$CHASR=v	=<Z 16>		
	A (<B>,16C,D) (<D*7 yIN
	$CHBIN=yi=<Z 16>		
	A (<B>,16C,D) (<D,H a	

	$CHBR1=a)=<Z 4>		
	A (<B>,4C,D)A (<D,I ay
	$CHBR2=b=<Z 5>		
	A (<B>,5C,D)A (<D,I bi
	$CHBR3=c	=<Z 6>		
	A (<B>,6C,D)A (<D,J cY
	$CHBR4=cy=<Z 7>		
	A (<B>,7C,D)A (<D: f15
	$CHCHL=fQ=<Z 11>		
	A (<B>,11C,D) (<D; tq)
	$CHCLI=u=<Z 16>		
	A(<B>,16C,D) (<D;h )
	$CHCO1=_I=<Z 2>		
	A (<B>,2C,D)A (<D;i `
	$CHCO2=`9=<Z 3>		
	A (<B>,3C,D)A (<D;q va8
	$CHCOC=w=<Z 16>		
	A (<B>,16C,D) (<D= xQG
	$CHCTM=xq=<Z 16>		
	A (<B>,16C,D) (<DLw s
	$CHDSO=s!=<Z 16>		
	A (<B>,16C,D) (<DY -Q[
	$CHEDT={9=<Z 16>		
	A (<B>,16C,D) (<Dk zYW
	$CHFL1=zy=<Z 16>		
	A (<B>,16C,D) (<Dk \as
	$CHFLG=n9=<Z 16>		
	A(<B>,16C,D) (<E1 ]I
	$CHIMB=]i=<Z 0>		
	A (<B>,0C,D)A (<EQ g)<
	$CHINC=gI=<Z 12>		
	A (<B>,12C,D) (<EJ7 eA.
	$CHLIN=ea=<Z 11>		
	A (<B>,11C,D) (<EMt {ya
	$CHLWI=|=<Z 16>		
	A (<B>,16C,D) (<EX< jyY
	$CHMAX=k=<Z 14>		
	A (<B>,14C,D) (<E\R o9}
	$CHMRD=oY=<Z 16>		
	A (<B>,16C,D) (<F(S a
	$CHRBF==<Z 17>		
	A (<B>,17C,D) (<F(V mQo
	$CHRBL=mq=<Z 15>		
	A (<B>,15C,D) (<F(| sy!
	$CHRCX=t=<Z 16>		
	A (<B>,16C,D) (<F) ]w
	$CHRDA=ny=<Z 16>		
	A (<B>,16C,D) (<F)V dI&
	$CHRFL=di=<Z 10>		
	A (<B>,10C,D) (<F*2 lah
	$CHRID=m=<Z 15>		
	A (<B>,15C,D) (<F+ ki`
	$CHRLN=l	=<Z 14>		
	A (<B>,14C,D) (<F- }qq
	$CHRTI=~=<Z 16>		
	A (<B>,16C,D) (<F<r r	
	$CHSSD=r)=<Z 16>		
	A (<B>,16C,D) (<F<} jR
	$CHSSZ=j!=<Z 13>		
	A (<B>,13C,D) (<F= iK
	$CHSTA=i1=<Z 13>		
	A (<B>,13C,D) (<F= hC
	$CHSTS=h9=<Z 12>		
	A (<B>,12C,D) (<FHt wY?
	$CHTCI=wy=<Z 16>		
	A (<B>,16C,D) (<FN8 Kq

a
	$CHTYP=L=<Z 0>		
	A(<B>,0C,D)A (<FZ2 ^9
	$CHUID=^Y=<Z 1>		
	A (<B>,1C,D)A (<8u\uQ 8u{P :P :5I`Q :ex`P(:ez`P :n:`Q :|i@P :}IP +5P HzP LP kP lRP [P zP 

P :=P 
MiP 
tLP 
tLP 
tLP 
uYHP 
uYIP ?
vVP 
vP 
v6P 

8qP 

8tP 

8yP 

8|P 4XwP 5[rP 6i9P DYP DXwP DiyP E:7P E[rP Fi9P \iyP diyP f*7P }[P S@P iyP H:P 9P kwP |lP +8P ,lP ,rP ,vP ,yP ,zP -P D(P DHP k9P t+PP t+YP t9P tH:P vXWP =|RQ &iyP &t;ZP &v=P 'iyP 2DQ x>iyP >|(tP JiyP J9P J$H:P J$iyP JDP'NO P OX2P OiyP OP OKP O$I6P O$kRP O%TP O&-7P O&:P VlXP Vl}P WX2P WiyP ^iyP iyP P P HvP >}{woP