Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11k-bm_tops20_v7_0_tsu02_2_of_2 - t20sub/ctermd.unv
There are 13 other files named ctermd.unv in the archive. Click here to see a list.
x
,UE@P E>= XC8
	IFN FTSxHOW,..LOC==.


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

	..MSK==0		
	FIELDM(N8AM,<.FWORD>)	

X	..MSK==0		
	..OxFF==..OFF+NUMB	

>

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

>

DEFINE	FILLER(N8UM),<
	..FLG==POXS(..MSK)
	IFE ..xMSK,<..FLG==-1>
	IFG <^D<NUM>-<^D835-..FLG>>,<PRINTXX ?FILL TOO BIG IxN A STRUCTURE>
	...MSK==MASK.(^D8<NUM>,<..FLG+^D<NXUM>>)
	IFN FTSHOxW,<
	  PHASE ..OFF
	  EXP ...MSK8
	>
	..MSK==..MXSK!...MSK
>

x

DEFINE	HWORD(nam),<
	..FLG==0	8	
	IFE ..MSK&.LHXALF,<FIELDM(nam,.xLHALF)
			  ..FLG==1>
	IFE ..FLG8,<..MSK==..MSK!.LXHALF
		   IFE ..xMSK&.RHALF,<FIELDM(nam,.RHALF)
		8		     ..FLG==1>
		   IFE ..FLG,<xNXTWRD
			      FIELDM(nam,.LHALF8) >
		  >
>

X
DEFINE	FIELD(NAxM,SIZ,POS),<
	..FLG==0		

	IFB 8<POS>,<IFB <SIZ>,X<
	  ...MSK==.RTxMSK(<<^-<<..MSK>>>>) 
	  IFE ...M8SK,<..OFF==..OFF+X1 
	    ..MSK==0x		
	    ...MSK==-1
	  >
	  FIEL8DM(NAM,<...MSK>)	X
	x..FLG==-1		
	>>

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

	IFNB <POS> X,<		
	  FIELDM(N xAM,MASK.(.SIZ,POS!)) 
	  ..FLG==-1!8		
	  ..BITS==MA!XSK.(.SIZ,POS) 
	!x>

	IFE ..FLG,<"IFGE <^D<.SIZ>-^D"836>,< 
	  WORD(N"XAM,<^D<.SIZ>/^D36"x>) 
	  IFN <<^D<#.SIZ>-<^D<.SIZ>/^#8D36>*^D36>>,<	
	#X    FIELD(...,<<^#xD<.SIZ>-<^D<.SIZ>$/^D36>*^D36>>) 
$8	  >

	  ..FLG=$X=-1		
	>>

	IF$xE ..FLG,<		
	  .%.BITS==MASK.(^D<.%8SIZ>,<^D<.SIZ>-1>%X) 

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

	    IFE ..FL'xG,..BITS==..BITS_(<-1> 
	    >
	 (8 >

	IFE ..FLG,(X<		
	  ..BITS==M(xASK.(^D<.SIZ>,<^D)<.SIZ>-1>) 
	  .)8.OFF==..OFF+1	
	)X  ..MSK==..BITS		)x
	>

	MSKSTR(*A'NAM,\..OFFC,..*8BITS) 
	A.'NAM=*X=..OFF
	IFN FTSH*xOW,<
	  PHASE	A+.'NAM
	  EXP	A'+8NAM
	>>

	..OL+XD==..BITS		
	...+xOLD==..BITS		

,>

DEFINE	BIT(N,8AM),<
	..BITS==L,XFTBT.(..OLD)	

,x	IFE ..BITS,<PRIN-TX ?NO ROOM FOR B-8IT IN LAST FIELD>-X

	A%'NAM==..B-xITS_<-<^D35-POS(....OLD)>> 
	A.'N.8AM==..OFF		

	M.XSKSTR(A'NAM,\..O.xFFC,..BITS) 
	I/FN FTSHOW,<
	  P/8HASE ..OFF
	  EX/XP A'NAM
	>

	/x..OLD==..OLD&<^-<0..BITS>> 

>
08
DEFINE	FIELDM(NA0XM,MASK),<
	IFN M0xASK&..MSK,<	
	  1..MSK==0		
	  ..18OFF==..OFF+1
	>X

	..MSK==..MSK!1xMASK	

	MSKSTR(2A'NAM,\..OFFC,M28ASK) 
	A.'NAM==2X..OFF
	IFN FTSHO2xW,<
	  PHASE	A.3'NAM
	  EXP	A'N38AM
	>
>

DEFI3XNE ENDSTR(LENNAM<3xLEN>,LSTNAM<LST>)4,<

	IFN ..MSK,48<..OFF==..OFF+1> 4X

	A.'LSTNAM==4x..OFF	

	IFN FT5SHOW,DEPHASE

	58..LOK==..LOK+1
	5XIFN ..LOK,<PRINTX5x ? MISSING BEGSTR6>

	IF2,<
	  I68FDEF ...MSK,<SUPP6XRESS ...MSK>
	  6xIFDEF ..BITS,<SUP7PRESS ..BITS>
	 78 IFDEF .SIZ,<SUPP7XRESS .SIZ>
	  IF7xDEF ..MSK,<SUPPRE8SS ..MSK>
	  IFD88EF ..OFF,<SUPPRES8XS ..OFF>
	  IFDE8xF ..FLG,<SUPPRESS9 ..FLG>
	  IFDEF98 ..LOK,<SUPPRESS 9X..LOK>
	  IFDEF 9x..LOC,<SUPPRESS .:.LOC>
	  IFDEF .:8.OLD,<SUPPRESS ..:XOLD>
	  IFDEF ..:x.OLD,<SUPPRESS ..;.OLD>
	>

	IF1;8,<
	  IFDEF ...M;XSK,<.XCREF ...MSK;x>
	  IFDEF ..BIT<S,<.XCREF ..BITS><8
	  IFDEF .SIZ,<<X.XCREF .SIZ>
	  <xIFDEF ..MSK,<.XCR=EF ..MSK>
	  IFD=8EF ..FLG,<.XCREF =X..FLG>
	  IFDEF =x..OFF,<.XCREF ..O>FF>
	  IFDEF ..L>8OK,<.XCREF ..LOK>>X
	  IFDEF ..LOC,>x<.XCREF ..LOC>
	?  IFDEF ..OLD,<.X?8CREF ..OLD>
	  I?XFDEF ...OLD,<.XCR?xEF ...OLD>
	>
@
	PURGE WORD,NXTW@8RD,FILLER,HWORD,F@XIELD,BIT,FIELDM
@x
	A.'LENNAM==..AOFF-B
	IFN FTSHA8OW,<RELOC ..LOC>>AX



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

	B8IFDEF ..LOK,<IFL BX..LOK,<PRINTX ? NBxEW BEGSTR WITHOUTC ENDSTR>>

	..LOK==-1


	..L0BEG
	QEg&:=PGt)3PGt91P9GtJ9PVGuQPtGuI7P1GuLzPZGu{qPxGv8sPGwPGX`PyG%`PtGMh`P7G}x@PG9@PGGPR@G,yP1G,Q9G|,8PG,:P9G,*7Py@G,+wPG,8:QG,;PHG,;PIG,;qPIG,;vPJG,;xPG,<SQG;,<}QG,=PqG,=PG,LwPw@G,YP$G,\XPG,kPG,kP1G,k3Q1G,lPGI,lPGJ-P G uLzP G uMtP G uX<P G u\RP G u|zP G v(SP G v(VP G v(qP G v(|P G v)P G v)VP G v*2P G v+P G v-P G v8vP G v<rP G v<}P G v=P G v=P G vHtP G vZ2P G v\yP 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"M`Q G"MX@Q G"Mh`Q xG"e@Q xG"fz P"G"lQ xG"n)Q  G"~=Q xG#)@Q G#+P'G#8@Q G#>Q G#H Q @G#kQ G#Q xG#K@P'G#J P!G#; Q G#9Q G#>@P'G#H Q xG#L`P'G#$: Q  G#'Q xG#-Q G#.<@Q GRD,P GREYvP @GRExUP IL,LqP K:&= rYCN

	IFN .gY.MSK,<..OFF==..OF-F+1> 

	CA.B==-I..OFF	

	IFN FT-hSHOW,DEPHASE

	...LOK==..LOK+1
	.(IFN ..LOK,<PRINTX.H ? MISSING BEGSTR.h>

	IF2,<
	  I/FDEF ...MSK,<SUPP/(RESS ...MSK>
	  /HIFDEF ..BITS,<SUP/hPRESS ..BITS>
	 0 IFDEF .SIZ,<SUPP0(RESS .SIZ>
	  IF0HDEF ..MSK,<SUPPRE0hSS ..MSK>
	  IFD1EF ..OFF,<SUPPRES1(S ..OFF>
	  IFDE1HF ..FLG,<SUPPRESS1h ..FLG>
	  IFDEF2 ..LOK,<SUPPRESS 2(..LOK>
	  IFDEF 2H..LOC,<SUPPRESS .2h.LOC>
	  IFDEF .3.OLD,<SUPPRESS ..3(OLD>
	  IFDEF ..3H.OLD,<SUPPRESS ..3h.OLD>
	>

	IF14,<
	  IFDEF ...M4(SK,<.XCREF ...MSK4H>
	  IFDEF ..BIT4hS,<.XCREF ..BITS>5
	  IFDEF .SIZ,<5(.XCREF .SIZ>
	  5HIFDEF ..MSK,<.XCR5hEF ..MSK>
	  IFD6EF ..FLG,<.XCREF 6(..FLG>
	  IFDEF 6H..OFF,<.XCREF ..O6hFF>
	  IFDEF ..L7OK,<.XCREF ..LOK>7(
	  IFDEF ..LOC,7H<.XCREF ..LOC>
	7h  IFDEF ..OLD,<.X8CREF ..OLD>
	  I8(FDEF ...OLD,<.XCR8HEF ...OLD>
	>
8h
	PURGE WORD,NXTW9RD,FILLER,HWORD,F9(IELD,BIT,FIELDM
9H
	CA.A==..OFF-09h
	IFN FTSHOW,<RELOC ..LOC>W,<RE	H)GRLENF  DgLSTD
	M.,zP!M.,|P @M.DHP M.HpP M.k9P  M2  |hf<<<A>B<POS(<B>)>>&<B>>MS{P SL,8\P Y$- y(J1_<^D35-^L<A>>1_<^D35-^L[3@ ~q<<<1_<A>>-1>B<B>>_<A>>[N^= P Q
	A==C	p	
	IF1,<IFDEF %	A,<PRINTX ?A ALR	0EADY DEFINED>>
		PDEFINE %A (OP,AC	p,Y,MSK)<
	$A==<
Z B>		
	OP (<AC>,B'Y,MSK)><AC_,J9P a? !h<^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 jYFa
	$CACEC=l=<Z 0>		
	A (<B>,0C,D)A (<
J9 lYFq
	$CADIS=n=<Z 0>		
	A(<B>,0C,D)A (<
	$CAINC=p=<Z 0>		
	A(<B>,0C,D)A (<
	$CAOOB=r=<Z 0>		
	A (<B>,0C,D)A (<8s iyFQ
	$CASCF=j=<Z 0>		
	A (<B>,0C,D)A (< iFK
	$CAXXX=i9=<Z 0>		
	A (<B>,0C,D)A (<Dy TIE&
	$CHASR=Ti=<Z 16>		
	A (<B>,16C,D) (<D*7 X)ED
	$CHBIN=XI=<Z 16>		
	A (<B>,16C,D) (<D,H ?iD
	$CHBR1=@	=<Z 4>		
	A (<B>,4C,D)A (<D,I @YD
	$CHBR2=@y=<Z 5>		
	A (<B>,5C,D)A (<D,I AID
	$CHBR3=Ai=<Z 6>		
	A (<B>,6C,D)A (<D,J B9D
	$CHBR4=BY=<Z 7>		
	A (<B>,7C,D)A (<D: ED+
	$CHCHL=E1=<Z 11>		
	A (<B>,11C,D) (<D; SQE
	$CHCLI=Sq=<Z 16>		
	A (<B>,16C,D) (<D;h >	Cr
	$CHCO1=>)=<Z 2>		
	A (<B>,2C,D)A (<D;i >yCy
	$CHCO2=?=<Z 3>		
	A (<B>,3C,D)A (<D;q UAE.
	$CHCOC=Ua=<Z 16>		
	A (<B>,16C,D) (<D= W1E=
	$CHCTM=WQ=<Z 16>		
	A (<B>,16C,D) (<DLw QaE
	$CHDSO=R=<Z 16>		
	A (<B>,16C,D) (<DY :qEh
	$CHEDT=]=<Z 16>		
	A (<B>,16C,D) (<Dk \!Ed
	$CHFL1=\A=<Z 16>		
	A (<B>,16C,D) (<Dk ;ADi
	$CHFLG=M=<Z 16>		
	A (<B>,16C,D) (<E1 Y!EL
	$CHIIC=YA=<Z 16>		
	A (<B>,16C,D) (<E1 <)Cd
	$CHIMB=<I=<Z 0>		
	A (<B>,0C,D)A (<EQ F	D2
	$CHINC=F)=<Z 12>		
	A (<B>,12C,D) (<EJ7 D!D$
	$CHLIN=DA=<Z 11>		
	A (<B>,11C,D) (<EMt ]AEn
	$CHLWI=]a=<Z 16>		
	A (<B>,16C,D) (<EX< IYDO
	$CHMAX=Iy=<Z 14>		
	A (<B>,14C,D) (<E\R NDs
	$CHMRD=N9=<Z 16>		
	A (<B>,16C,D) (<E|z ;F
	$CHOST=bi=<Z 47>		
	A (<B>,47C,D) (<F(S a)F

	$CHRBF=aI=<Z 17>		
	A (<B>,17C,D) (<F(V L1De
	$CHRBL=LQ=<Z 15>		
	A (<B>,15C,D) (<F(q [E[
	$CHRCB=[1=<Z 16>		
	A (<B>,16C,D) (<F(| RYE
	$CHRCX=Ry=<Z 16>		
	A (<B>,16C,D) (<F) ;aDm
	$CHRDA=MY=<Z 16>		
	A (<B>,16C,D) (<F)V C)D
	$CHRFL=CI=<Z 10>		
	A (<B>,10C,D) (<F*2 KAD^
	$CHRID=Ka=<Z 15>		
	A (<B>,15C,D) (<F+ JIDV
	$CHRLN=Ji=<Z 14>		
	A (<B>,14C,D) (<F- _9E}
	$CHRTI=_Y=<Z 16>		
	A (<B>,16C,D) (<F8v ZES
	$CHSCM=Z9=<Z 16>		
	A (<B>,16C,D) (<F<r PiE
	$CHSSD=Q	=<Z 16>		
	A (<B>,16C,D) (<F<} HaDH
	$CHSSZ=I=<Z 13>		
	A (<B>,13C,D) (<F= GqDA
	$CHSTA=H=<Z 13>		
	A (<B>,13C,D) (<F= FyD9
	$CHSTS=G=<Z 12>		
	A (<B>,12C,D) (<FHt V9E5
	$CHTCI=VY=<Z 16>		
	A (<B>,16C,D) (<FN8 *QBW
	$CHTYP=*q=<Z 0>		
	A (<B>,0C,D)A (<FZ2 =Ck
	$CHUID==9=<Z 1>		
	A (<B>,1C,D)A (<F\y `AF
	$CHUSR=b=<Z 37>		
	A (<B>,37C,D) (<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