Google
 

Trailing-Edge - PDP-10 Archives - BB-L014Z-BM_1990 - t20sub/ctermd.unv
There are 13 other files named ctermd.unv in the archive. Click here to see a list.
x
,UE@P E>= Cx
	IFN FTS8HOW,..LOC==.

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

	..MSXK==0		
	FIELDM(NxAM,<.FWORD>)	

	..MSK==0		
	..O8FF==..OFF+NUMB	
X
>

DEFINE	NXTxWRD(NUMB<1>),<
	..MSK==0
	..OFF=8..OFF+NUMB

>
X
DEFINE	FILLER(NxUM),<
	..FLG==POS(..MSK)
	IFE ..8MSK,<..FLG==-1>
X	IFG <^D<NUM>-<^Dx35-..FLG>>,<PRINTX ?FILL TOO BIG I8N A STRUCTURE>
X	...MSK==MASK.(^Dx<NUM>,<..FLG+^D<NUM>>)
	IFN FTSHO8W,<
	  PHASE ..OXFF
	  EXP ...MSKx
	>
	..MSK==..MSK!...MSK
>

8

DEFINE	HWORD(nXam),<
	..FLG==0	x	
	IFE ..MSK&.LHALF,<FIELDM(nam,.8LHALF)
			  ..FLXG==1>
	IFE ..FLGx,<..MSK==..MSK!.LHALF
		   IFE ..8MSK&.RHALF,<FIELDXM(nam,.RHALF)
		x		     ..FLG==1>
		   IFE ..FLG,<8NXTWRD
			      XFIELDM(nam,.LHALFx) >
		  >
>


DEFINE	FIELD(NA8M,SIZ,POS),<
	..XFLG==0		

	IFB x<POS>,<IFB <SIZ>,<
	  ...MSK==.RT8MSK(<<^-<<..MSK>>X>>) 
	  IFE ...MxSK,<..OFF==..OFF+1 
	    ..MSK==08		
	    ...MSK==X-1
	  >
	  FIELxDM(NAM,<...MSK>)	 
	 8..FLG==-1		
	>>

	IFNB <SI XZ>,<.SIZ==^D<SIZ> x> 

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

	IFE ..FLG,<"XIFGE <^D<.SIZ>-^D"x36>,< 
	  WORD(N#AM,<^D<.SIZ>/^D36#8>) 
	  IFN <<^D<#X.SIZ>-<^D<.SIZ>/^#xD36>*^D36>>,<	
	$    FIELD(...,<<^$8D<.SIZ>-<^D<.SIZ>$X/^D36>*^D36>>) 
$x	  >

	  ..FLG=%=-1		
	>>

	IF%8E ..FLG,<		
	  .%X.BITS==MASK.(^D<.%xSIZ>,<^D<.SIZ>-1>&) 

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

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

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

	MSKSTR(*XA'NAM,\..OFFC,..*xBITS) 
	A.'NAM=+=..OFF
	IFN FTSH+8OW,<
	  PHASE	A+X.'NAM
	  EXP	A'+xNAM
	>>

	..OL,D==..BITS		
	...,8OLD==..BITS		

,X>

DEFINE	BIT(N,xAM),<
	..BITS==L-FTBT.(..OLD)	

-8	IFE ..BITS,<PRIN-XTX ?NO ROOM FOR B-xIT IN LAST FIELD>.

	A%'NAM==..B.8ITS_<-<^D35-POS(..X..OLD)>> 
	A.'N.xAM==..OFF		

	M/SKSTR(A'NAM,\..O/8FFC,..BITS) 
	I/XFN FTSHOW,<
	  P/xHASE ..OFF
	  EX0P A'NAM
	>

	08..OLD==..OLD&<^-<0X..BITS>> 

>
0x
DEFINE	FIELDM(NA1M,MASK),<
	IFN M18ASK&..MSK,<	
	  1X..MSK==0		
	  ..1xOFF==..OFF+1
	>

	..MSK==..MSK!28MASK	

	MSKSTR(2XA'NAM,\..OFFC,M2xASK) 
	A.'NAM==3..OFF
	IFN FTSHO38W,<
	  PHASE	A.3X'NAM
	  EXP	A'N3xAM
	>
>

DEFI4NE ENDSTR(LENNAM<48LEN>,LSTNAM<LST>)4X,<

	IFN ..MSK,4x<..OFF==..OFF+1> 5

	A.'LSTNAM==58..OFF	

	IFN FT5XSHOW,DEPHASE

	5x..LOK==..LOK+1
	6IFN ..LOK,<PRINTX68 ? MISSING BEGSTR6X>

	IF2,<
	  I6xFDEF ...MSK,<SUPP7RESS ...MSK>
	  78IFDEF ..BITS,<SUP7XPRESS ..BITS>
	 7x IFDEF .SIZ,<SUPP8RESS .SIZ>
	  IF88DEF ..MSK,<SUPPRE8XSS ..MSK>
	  IFD8xEF ..OFF,<SUPPRES9S ..OFF>
	  IFDE98F ..FLG,<SUPPRESS9X ..FLG>
	  IFDEF9x ..LOK,<SUPPRESS :..LOK>
	  IFDEF :8..LOC,<SUPPRESS .:X.LOC>
	  IFDEF .:x.OLD,<SUPPRESS ..;OLD>
	  IFDEF ..;8.OLD,<SUPPRESS ..;X.OLD>
	>

	IF1;x,<
	  IFDEF ...M<SK,<.XCREF ...MSK<8>
	  IFDEF ..BIT<XS,<.XCREF ..BITS><x
	  IFDEF .SIZ,<=.XCREF .SIZ>
	  =8IFDEF ..MSK,<.XCR=XEF ..MSK>
	  IFD=xEF ..FLG,<.XCREF >..FLG>
	  IFDEF >8..OFF,<.XCREF ..O>XFF>
	  IFDEF ..L>xOK,<.XCREF ..LOK>?
	  IFDEF ..LOC,?8<.XCREF ..LOC>
	?X  IFDEF ..OLD,<.X?xCREF ..OLD>
	  I@FDEF ...OLD,<.XCR@8EF ...OLD>
	>
@X
	PURGE WORD,NXTW@xRD,FILLER,HWORD,FAIELD,BIT,FIELDM
A8
	A.'LENNAM==..AXOFF-B
	IFN FTSHAxOW,<RELOC ..LOC>>B



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

	BxIFDEF ..LOK,<IFL C..LOK,<PRINTX ? NC8EW BEGSTR WITHOUTCX ENDSTR>>

	..LOK==-1


	..L !0#BEG
	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:&= s)CSX

	IFN .h).MSK,<..OFF==..OF-aF+1> 

	CA.B==...OFF	

	IFN FT.8SHOW,DEPHASE

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

	IF2,<
	  I/XFDEF ...MSK,<SUPP/xRESS ...MSK>
	  0IFDEF ..BITS,<SUP08PRESS ..BITS>
	 0X IFDEF .SIZ,<SUPP0xRESS .SIZ>
	  IF1DEF ..MSK,<SUPPRE18SS ..MSK>
	  IFD1XEF ..OFF,<SUPPRES1xS ..OFF>
	  IFDE2F ..FLG,<SUPPRESS28 ..FLG>
	  IFDEF2X ..LOK,<SUPPRESS 2x..LOK>
	  IFDEF 3..LOC,<SUPPRESS .38.LOC>
	  IFDEF .3X.OLD,<SUPPRESS ..3xOLD>
	  IFDEF ..4.OLD,<SUPPRESS ..48.OLD>
	>

	IF14X,<
	  IFDEF ...M4xSK,<.XCREF ...MSK5>
	  IFDEF ..BIT58S,<.XCREF ..BITS>5X
	  IFDEF .SIZ,<5x.XCREF .SIZ>
	  6IFDEF ..MSK,<.XCR68EF ..MSK>
	  IFD6XEF ..FLG,<.XCREF 6x..FLG>
	  IFDEF 7..OFF,<.XCREF ..O78FF>
	  IFDEF ..L7XOK,<.XCREF ..LOK>7x
	  IFDEF ..LOC,8<.XCREF ..LOC>
	88  IFDEF ..OLD,<.X8XCREF ..OLD>
	  I8xFDEF ...OLD,<.XCR9EF ...OLD>
	>
98
	PURGE WORD,NXTW9XRD,FILLER,HWORD,F9xIELD,BIT,FIELDM
:
	CA.A==..OFF-0:8
	IFN FTSHOW,<RELOC ..LOC>W,<RE	H.GWLENF  DlLSTD
	M.,zP!M.,|P @M.DHP M.HpP M.k9P  M2  }(j<<<A>B<POS(<B>)>>&<B>>MS{P SL,8\P Y$- yhN1_<^D35-^L<A>>1_<^D35-^L[3@ ~Pu<<<1_<A>>-1>B<B>>_<A>>[N^= 	 U
	A==C		0	
	IF1,<IFDEF %	PA,<PRINTX ?A ALR	pEADY DEFINED>>
	
DEFINE %A (OP,AC
0,Y,MSK)<
	$A==<
PZ B>		
	OP (<AC>,B'Y,MSK)><AC_,J9P a? @!l<^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 k)Ff
	$CACEC=li=<Z 0>		
	A (<B>,0C,D)A (<
J9 m)Fv
	$CADIS=ni=<Z 0>		
	A(<B>,0C,D)A (<
	$CAINC=pi=<Z 0>		
	A(<B>,0C,D)A (<
	$CAOOB=ri=<Z 0>		
	A (<B>,0C,D)A (<8s jIFV
	$CASCF=ji=<Z 0>		
	A (<B>,0C,D)A (< iiFP
	$CAXXX=j	=<Z 0>		
	A (<B>,0C,D)A (<Dy UE+
	$CHASR=U9=<Z 16>		
	A (<B>,16C,D) (<D*7 XyEI
	$CHBIN=Y=<Z 16>		
	A (<B>,16C,D) (<D,H @9D
	$CHBR1=@Y=<Z 4>		
	A (<B>,4C,D)A (<D,I A)D

	$CHBR2=AI=<Z 5>		
	A (<B>,5C,D)A (<D,I BD
	$CHBR3=B9=<Z 6>		
	A (<B>,6C,D)A (<D,J C	D
	$CHBR4=C)=<Z 7>		
	A (<B>,7C,D)A (<D: EaD0
	$CHCHL=F=<Z 11>		
	A (<B>,11C,D) (<D; T!E$
	$CHCLI=TA=<Z 16>		
	A (<B>,16C,D) (<D;h >YCw
	$CHCO1=>y=<Z 2>		
	A (<B>,2C,D)A (<D;i ?IC~
	$CHCO2=?i=<Z 3>		
	A (<B>,3C,D)A (<D;q VE3
	$CHCOC=V1=<Z 16>		
	A (<B>,16C,D) (<D= XEB
	$CHCTM=X!=<Z 16>		
	A (<B>,16C,D) (<DLw R1E
	$CHDSO=RQ=<Z 16>		
	A (<B>,16C,D) (<DY ;AEm
	$CHEDT=]Q=<Z 16>		
	A (<B>,16C,D) (<Dk \qEi
	$CHFL1=]=<Z 16>		
	A (<B>,16C,D) (<Dk <Dn
	$CHFLG=Mi=<Z 16>		
	A (<B>,16C,D) (<E1 YqEQ
	$CHIIC=Z=<Z 16>		
	A (<B>,16C,D) (<E1 <yCi
	$CHIMB===<Z 0>		
	A (<B>,0C,D)A (<EQ FYD7
	$CHINC=Fy=<Z 12>		
	A (<B>,12C,D) (<EJ7 DqD)
	$CHLIN=E=<Z 11>		
	A (<B>,11C,D) (<EMt ^Es
	$CHLWI=^1=<Z 16>		
	A (<B>,16C,D) (<EX< J)DT
	$CHMAX=JI=<Z 14>		
	A (<B>,14C,D) (<E\R NiDx
	$CHMRD=O	=<Z 16>		
	A (<B>,16C,D) (<E|z ;aF
	$CHOST=c9=<Z 47>		
	A (<B>,47C,D) (<F(S ayF
	$CHRBF=b=<Z 17>		
	A (<B>,17C,D) (<F(V MDj
	$CHRBL=M!=<Z 15>		
	A (<B>,15C,D) (<F(q [aE`
	$CHRCB=\=<Z 16>		
	A (<B>,16C,D) (<F(| S)E
	$CHRCX=SI=<Z 16>		
	A (<B>,16C,D) (<F) <1Dr
	$CHRDA=N)=<Z 16>		
	A (<B>,16C,D) (<F)V CyD!
	$CHRFL=D=<Z 10>		
	A (<B>,10C,D) (<F*2 LDc
	$CHRID=L1=<Z 15>		
	A (<B>,15C,D) (<F+ KD[
	$CHRLN=K9=<Z 14>		
	A (<B>,14C,D) (<F- `	F
	$CHRTI=`)=<Z 16>		
	A (<B>,16C,D) (<F8v ZiEX
	$CHSCM=[	=<Z 16>		
	A(<B>,16C,D) (<F<r Q9E
	$CHSSD=QY=<Z 16>		
	A (<B>,16C,D) (<F<} I1DM
	$CHSSZ=IQ=<Z 13>		
	A (<B>,13C,D) (<F= HADF
	$CHSTA=Ha=<Z 13>		
	A (<B>,13C,D) (<F= GID>
	$CHSTS=Gi=<Z 12>		
	A (<B>,12C,D) (<FHt W	E:
	$CHTCI=W)=<Z 16>		
	A (<B>,16C,D) (<FN8 +!B\
	$CHTYP=+A=<Z 0>		
	A (<B>,0C,D)A (<FZ2 =iCp
	$CHUID=>	=<Z 1>		
	A (<B>,1C,D)A (<F\y aF
	$CHUSR=bi=<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