Google
 

Trailing-Edge - PDP-10 Archives - SRI_NIC_PERM_SRC_3_19910112 - monitor/ctermd.unv
There are 13 other files named ctermd.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
	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:&= ;)8Lp

	IFN .0).MSK,<..OFF==..OFz)F+1> 

	CA.B==za..OFF	

	IFN FT{SHOW,DEPHASE

	{ ..LOK==..LOK+1
	{@IFN ..LOK,<PRINTX{` ? 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 @..LOK>
	  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
`
	CA.A==..OFF-0
	IFN FTSHOW,<RELOC ..LOC>W,<RE	hRLENDfLST=.M.,zP!M.,|P @M.DHP M.HpP M.k9P  M2  ((<<<A>B<POS(<B>)>>&<B>>MS{P SL,8\P Y$- H01_<^D35-^L<A>>1_<^D35-^L[3@ 00;<<<1_<A>>-1>B<B>>_<A>>[N^= p1
	A==C		
	IF1,<IFDEF %0A,<PRINTX ?A ALRPEADY DEFINED>>
	pDEFINE %A (OP,AC,Y,MSK)<
	$A==<0Z B>		
	OP (<AC>,B'Y,MSK)><AC_,J9P a? & 22<^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 3)&
	$CACEC=4i=<Z 0>		
	A (<B>,0C,D)A (<
J9 5)6
	$CADIS=6i=<Z 0>		
	A(<B>,0C,D)A (<
	$CAINC=8i=<Z 0>		
	A(<B>,0C,D)A (<
	$CAOOB=:i=<Z 0>		
	A (<B>,0C,D)A (<8s 2I
	$CASCF=2i=<Z 0>		
	A (<B>,0C,D)A (< 1i
	$CAXXX=2	=<Z 0>		
	A (<B>,0C,D)A (<Dy !a
	$CHASR="=<Z 16>		
	A (<B>,16C,D) (<D*7 %A.
	$CHBIN=%a=<Z 16>		
	A(<B>,16C,D) (<D,H 
	$CHBR1=
	A(<B>,4C,D)A (<D,I 
	$CHBR2==<Z 5>		
	A (<B>,5C,D)A (<D,I ax
	$CHBR3==<Z 6>		
	A (<B>,6C,D)A (<D,J Q
	$CHBR4=q=<Z 7>		
	A (<B>,7C,D)A (<D: )
	$CHCHL=I=<Z 11>		
	A (<B>,11C,D) (<D;  i
	$CHCLI=!	=<Z 16>		
	A (<B>,16C,D) (<D;h !\
	$CHCO1=A=<Z 2>		
	A (<B>,2C,D)A (<D;i 
c
	$CHCO2=
1=<Z 3>		
	A (<B>,3C,D)A (<D;q "Y
	$CHCOC="y=<Z 16>		
	A (<B>,16C,D) (<D= $I&
	$CHCTM=$i=<Z 16>		
	A (<B>,16C,D) (<DLw yy
	$CHDSO==<Z 16>		
	A (<B>,16C,D) (<DY YI;
	$CHEDT='1=<Z 16>		
	A (<B>,16C,D) (<Dk &Q7
	$CHFL1=&q=<Z 16>		
	A (<B>,16C,D) (<Dk YS
	$CHFLG=1=<Z 16>		
	A (<B>,16C,D) (<E1 	AN
	$CHIMB=	a=<Z 0>		
	A (<B>,0C,D)A (<EQ !
	$CHINC=A=<Z 12>		
	A(<B>,12C,D) (<EJ7 9
	$CHLIN=Y=<Z 11>		
	A (<B>,11C,D) (<EMt 'qA
	$CHLWI=(=<Z 16>		
	A (<B>,16C,D) (<EX< q9
	$CHMAX==<Z 14>		
	A (<B>,14C,D) (<E\R 1]
	$CHMRD=Q=<Z 16>		
	A (<B>,16C,D) (<F(S +Y_
	$CHRBF=+y=<Z 17>		
	A (<B>,17C,D) (<F(V IN
	$CHRBL=i=<Z 15>		
	A (<B>,15C,D) (<F(| q
	$CHRCX= =<Z 16>		
	A (<B>,16C,D) (<F) yW
	$CHRDA=q=<Z 16>		
	A (<B>,16C,D) (<F)V A
	$CHRFL=a=<Z 10>		
	A (<B>,10C,D) (<F*2 YG
	$CHRID=y=<Z 15>		
	A (<B>,15C,D) (<F+ a@
	$CHRLN==<Z 14>		
	A (<B>,14C,D) (<F- )iP
	$CHRTI=*	=<Z 16>		
	A (<B>,16C,D) (<F<r r
	$CHSSD=!=<Z 16>		
	A (<B>,16C,D) (<F<} y1
	$CHSSZ==<Z 13>		
	A (<B>,13C,D) (<F= 	*
	$CHSTA=)=<Z 13>		
	A (<B>,13C,D) (<F= #
	$CHSTS=1=<Z 12>		
	A (<B>,12C,D) (<FHt #Q
	$CHTCI=#q=<Z 16>		
	A (<B>,16C,D) (<FN8 wi@
	$CHTYP=x	=<Z 0>		
	A (<B>,0C,D)A (<FZ2 
1U
	$CHUID=
Q=<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