Google
 

Trailing-Edge - PDP-10 Archives - bb-h137f-bm - new-subsys/ctermd.unv
There are 13 other files named ctermd.unv in the archive. Click here to see a list.
x
,S<@P E>= $TJ`
	IFN FTS HOW,..LOC==.

@
DEFINE	WORD(NAM,`NUMB<1>),<
	IFN <..MSK>,<..OFF==. .OFF+1> 

	..MS@K==0		
	FIELDM(N`AM,<.FWORD>)	

	..MSK==0		
	..O FF==..OFF+NUMB	
@
>

DEFINE	NXT`WRD(NUMB<1>),<
	..MSK==0
	..OFF= ..OFF+NUMB

>
@
DEFINE	FILLER(N`UM),<
	..FLG==POS(..MSK)
	IFE .. MSK,<..FLG==-1>
@	IFG <^D<NUM>-<^D`35-..FLG>>,<PRINTX ?FILL TOO BIG I N A STRUCTURE>
@	...MSK==MASK.(^D`<NUM>,<..FLG+^D<NUM>>)
	IFN FTSHO W,<
	  PHASE ..O@FF
	  EXP ...MSK`
	>
	..MSK==..M SK!...MSK
>

  

DEFINE	HWORD(n @am),<
	..FLG==0	 `	
	IFE ..MSK&.LH!ALF,<FIELDM(nam,.! LHALF)
			  ..FL!@G==1>
	IFE ..FLG!`,<..MSK==..MSK!.L"HALF
		   IFE .." MSK&.RHALF,<FIELD"@M(nam,.RHALF)
		"`		     ..FLG==1>
		   IFE ..FLG,<# NXTWRD
			      #@FIELDM(nam,.LHALF#`) >
		  >
>

$
DEFINE	FIELD(NA$ M,SIZ,POS),<
	..$@FLG==0		

	IFB $`<POS>,<IFB <SIZ>,%<
	  ...MSK==.RT% MSK(<<^-<<..MSK>>%@>>) 
	  IFE ...M%`SK,<..OFF==..OFF+&1 
	    ..MSK==0& 		
	    ...MSK==&@-1
	  >
	  FIEL&`DM(NAM,<...MSK>)	'
	' ..FLG==-1		
	>>

	IFNB <SI'@Z>,<.SIZ==^D<SIZ>'`> 

	IFNB <POS>(,<		
	  FIELDM(N( AM,MASK.(.SIZ,POS(@)) 
	  ..FLG==-1(`		
	  ..BITS==MA)SK.(.SIZ,POS) 
	) >

	IFE ..FLG,<)@IFGE <^D<.SIZ>-^D)`36>,< 
	  WORD(N*AM,<^D<.SIZ>/^D36* >) 
	  IFN <<^D<*@.SIZ>-<^D<.SIZ>/^*`D36>*^D36>>,<	
	+    FIELD(...,<<^+ D<.SIZ>-<^D<.SIZ>+@/^D36>*^D36>>) 
+`	  >

	  ..FLG=,=-1		
	>>

	IF, E ..FLG,<		
	  .,@.BITS==MASK.(^D<.,`SIZ>,<^D<.SIZ>-1>-) 

	  REPEAT <- ^D36-^D<.SIZ>+1>,-@< 
	    IFE ..FL-`G,<	
	      IFE .<..BITS&..MSK>,< . 
			..MSK==..MSK.@!..BITS 
		..FLG.`==-1 
	       > /

	    IFE ..FL/ G,..BITS==..BITS_/@<-1> 
	    >
	 /` >

	IFE ..FLG,0<		
	  ..BITS==M0 ASK.(^D<.SIZ>,<^D0@<.SIZ>-1>) 
	  .0`.OFF==..OFF+1	
	1  ..MSK==..BITS		1 
	>

	MSKSTR(1@A'NAM,\..OFFC,..1`BITS) 
	A.'NAM=2=..OFF
	IFN FTSH2 OW,<
	  PHASE	A2@.'NAM
	  EXP	A'2`NAM
	>>

	..OL3D==..BITS		
	...3 OLD==..BITS		

3@>

DEFINE	BIT(N3`AM),<
	..BITS==L4FTBT.(..OLD)	

4 	IFE ..BITS,<PRIN4@TX ?NO ROOM FOR B4`IT IN LAST FIELD>5

	A%'NAM==..B5 ITS_<-<^D35-POS(.5@..OLD)>> 
	A.'N5`AM==..OFF		

	M6SKSTR(A'NAM,\..O6 FFC,..BITS) 
	I6@FN FTSHOW,<
	  P6`HASE ..OFF
	  EX7P A'NAM
	>

	7 ..OLD==..OLD&<^-<7@..BITS>> 

>
7`
DEFINE	FIELDM(NA8M,MASK),<
	IFN M8 ASK&..MSK,<	
	  8@..MSK==0		
	  ..8`OFF==..OFF+1
	>

	..MSK==..MSK!9 MASK	

	MSKSTR(9@A'NAM,\..OFFC,M9`ASK) 
	A.'NAM==:..OFF
	IFN FTSHO: W,<
	  PHASE	A.:@'NAM
	  EXP	A'N:`AM
	>
>

DEFI;NE ENDSTR(LENNAM<; LEN>,LSTNAM<LST>);@,<

	IFN ..MSK,;`<..OFF==..OFF+1> <

	A.'LSTNAM==< ..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 A..LOK>
	  IFDEF A ..LOC,<SUPPRESS .A@.LOC>
	  IFDEF .A`.OLD,<SUPPRESS ..BOLD>
	  IFDEF ..B .OLD,<SUPPRESS ..B@.OLD>
	>

	IF1B`,<
	  IFDEF ...MCSK,<.XCREF ...MSKC >
	  IFDEF ..BITC@S,<.XCREF ..BITS>C`
	  IFDEF .SIZ,<D.XCREF .SIZ>
	  D IFDEF ..MSK,<.XCRD@EF ..MSK>
	  IFDD`EF ..FLG,<.XCREF E..FLG>
	  IFDEF E ..OFF,<.XCREF ..OE@FF>
	  IFDEF ..LE`OK,<.XCREF ..LOK>F
	  IFDEF ..LOC,F <.XCREF ..LOC>
	F@  IFDEF ..OLD,<.XF`CREF ..OLD>
	  IGFDEF ...OLD,<.XCRG EF ...OLD>
	>
G@
	PURGE WORD,NXTWG`RD,FILLER,HWORD,FHIELD,BIT,FIELDM
H 
	A.'LENNAM==..H@OFF-B
	IFN FTSHH`OW,<RELOC ..LOC>>I



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

	I`IFDEF ..LOK,<IFL J..LOK,<PRINTX ? NJ EW BEGSTR WITHOUTJ@ ENDSTR>>

	..LOK==-1


	..L$W$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:&= SQudH

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

	CA.B==9..OFF	

	IFN FTXSHOW,DEPHASE

	x..LOK==..LOK+1
	IFN ..LOK,<PRINTX8 ? MISSING BEGSTRX>

	IF2,<
	  IxFDEF ...MSK,<SUPPRESS ...MSK>
	  8IFDEF ..BITS,<SUPXPRESS ..BITS>
	 x IFDEF .SIZ,<SUPPRESS .SIZ>
	  IF8DEF ..MSK,<SUPPREXSS ..MSK>
	  IFDxEF ..OFF,<SUPPRESS ..OFF>
	  IFDE8F ..FLG,<SUPPRESSX ..FLG>
	  IFDEFx ..LOK,<SUPPRESS ..LOK>
	  IFDEF 8..LOC,<SUPPRESS .X.LOC>
	  IFDEF .x.OLD,<SUPPRESS ..OLD>
	  IFDEF ..8.OLD,<SUPPRESS ..X.OLD>
	>

	IF1x,<
	  IFDEF ...MSK,<.XCREF ...MSK8>
	  IFDEF ..BITXS,<.XCREF ..BITS>x
	  IFDEF .SIZ,<.XCREF .SIZ>
	  8IFDEF ..MSK,<.XCRXEF ..MSK>
	  IFDxEF ..FLG,<.XCREF ..FLG>
	  IFDEF 8..OFF,<.XCREF ..OXFF>
	  IFDEF ..LxOK,<.XCREF ..LOK>
	  IFDEF ..LOC,8<.XCREF ..LOC>
	X  IFDEF ..OLD,<.XxCREF ..OLD>
	  IFDEF ...OLD,<.XCR8EF ...OLD>
	>
X
	PURGE WORD,NXTWxRD,FILLER,HWORD,FIELD,BIT,FIELDM
8
	CA.A==..OFF-0X
	IFN FTSHOW,<RELOC ..LOC>W,<RE	V%TLENDU$LST=.M.,zP!M.,|P @M.DHP M.HpP M.k9P  M2  (!<<<A>B<POS(<B>)>>&<B>>MS{P SL,8\P Y$- P01_<^D35-^L<A>>1_<^D35-^L[3@ 80+<<<1_<A>>-1>B<B>>_<A>>[N^= x1
	A==C		
	IF1,<IFDEF %8A,<PRINTX ?A ALRXEADY DEFINED>>
	xDEFINE %A (OP,AC,Y,MSK)<
	$A==<8Z B>		
	OP (<AC>,B'Y,MSK)><AC_,J9P a? $(2"<^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 KTd
	$CACEC=LA=<Z 0>		
	A (<B>,0C,D)A (<
J9 MTt
	$CADIS=NA=<Z 0>		
	A(<B>,0C,D)A (<
	$CAINC=PA=<Z 0>		
	A(<B>,0C,D)A (<
	$CAOOB=RA=<Z 0>		
	A (<B>,0C,D)A (<8s J!TT
	$CASCF=JA=<Z 0>		
	A (<B>,0C,D)A (< IATN
	$CAXXX=Ia=<Z 0>		
	A (<B>,0C,D)A (<Dy 99SM
	$CHASR=9Y=<Z 16>		
	A (<B>,16C,D) (<D*7 =Sk
	$CHBIN==9=<Z 16>		
	A (<B>,16C,D) (<D,H $YR'
	$CHBR1=$y=<Z 4>		
	A (<B>,4C,D)A (<D,I %IR.
	$CHBR2=%i=<Z 5>		
	A (<B>,5C,D)A (<D,I &9R5
	$CHBR3=&Y=<Z 6>		
	A (<B>,6C,D)A (<D,J ')R<
	$CHBR4='I=<Z 7>		
	A (<B>,7C,D)A (<D: *RR
	$CHCHL=*!=<Z 11>		
	A (<B>,11C,D) (<D; 8ASF
	$CHCLI=8a=<Z 16>		
	A (<B>,16C,D) (<D;h "yR
	$CHCO1=#=<Z 2>		
	A (<B>,2C,D)A (<D;i #iR 
	$CHCO2=$	=<Z 3>		
	A (<B>,3C,D)A (<D;q :1SU
	$CHCOC=:Q=<Z 16>		
	A (<B>,16C,D) (<D= <!Sd
	$CHCTM=<A=<Z 16>		
	A (<B>,16C,D) (<DLw 6QS7
	$CHDSO=6q=<Z 16>		
	A (<B>,16C,D) (<DY q!Sx
	$CHEDT=?	=<Z 16>		
	A (<B>,16C,D) (<Dk >)St
	$CHFL1=>I=<Z 16>		
	A (<B>,16C,D) (<Dk  1S
	$CHFLG=2	=<Z 16>		
	A (<B>,16C,D) (<E1 !R
	$CHIMB=!9=<Z 0>		
	A (<B>,0C,D)A (<EQ *yRY
	$CHINC=+=<Z 12>		
	A (<B>,12C,D) (<EJ7 )RK
	$CHLIN=)1=<Z 11>		
	A (<B>,11C,D) (<EMt ?IS~
	$CHLWI=?i=<Z 16>		
	A (<B>,16C,D) (<EX< .IRv
	$CHMAX=.i=<Z 14>		
	A (<B>,14C,D) (<E\R 3	S
	$CHMRD=3)=<Z 16>		
	A (<B>,16C,D) (<F(S C1T
	$CHRBF=CQ=<Z 17>		
	A (<B>,17C,D) (<F(V 1!S

	$CHRBL=1A=<Z 15>		
	A (<B>,15C,D) (<F(| 7IS>
	$CHRCX=7i=<Z 16>		
	A (<B>,16C,D) (<F)  QS
	$CHRDA=2I=<Z 16>		
	A (<B>,16C,D) (<F)V (RC
	$CHRFL=(9=<Z 10>		
	A (<B>,10C,D) (<F*2 01S
	$CHRID=0Q=<Z 15>		
	A (<B>,15C,D) (<F+ /9R}
	$CHRLN=/Y=<Z 14>		
	A (<B>,14C,D) (<F- AAT
	$CHRTI=Aa=<Z 16>		
	A (<B>,16C,D) (<F<r 5YS/
	$CHSSD=5y=<Z 16>		
	A (<B>,16C,D) (<F<} -QRo
	$CHSSZ=-q=<Z 13>		
	A (<B>,13C,D) (<F= ,aRh
	$CHSTA=-=<Z 13>		
	A (<B>,13C,D) (<F= +iR`
	$CHSTS=,	=<Z 12>		
	A (<B>,12C,D) (<FHt ;)S\
	$CHTCI=;I=<Z 16>		
	A (<B>,16C,D) (<FN8 AP~
	$CHTYP=a=<Z 0>		
	A (<B>,0C,D)A (<FZ2 "	R
	$CHUID=")=<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