Google
 

Trailing-Edge - PDP-10 Archives - TOPS-20_V6.1_DECnetDistr_7-23-85 - tools/dcnspy.unv
There are 5 other files named dcnspy.unv in the archive. Click here to see a list.
x
,Q]@PCt:PCt;vP CtKP CtLP CuP Cu+qP Cv3P Cv:XP CvKP C(uI7P C(unP C*
AH
	IFN FTSHOW,..LOC==.

(
DEFINE	WORD(NAM,HNUMB<1>),<
	IFN h<..MSK>,<..OFF==..OFF+1> 

	..MS(K==0		
	FIELDM(NHAM,<.FWORD>)	

h	..MSK==0		
	..OFF==..OFF+NUMB	
(
>

DEFINE	NXTHWRD(NUMB<1>),<
	h..MSK==0
	..OFF=..OFF+NUMB

>
(
DEFINE	FILLER(NHUM),<
	..FLG==POhS(..MSK)
	IFE ..MSK,<..FLG==-1>
(	IFG <^D<NUM>-<^DH35-..FLG>>,<PRINThX ?FILL TOO BIG IN A STRUCTURE>
(	...MSK==MASK.(^DH<NUM>,<..FLG+^D<NhUM>>)
	IFN FTSHOW,<
	  PHASE ..O(FF
	  EXP ...MSKH
	>
	..MSK==..MhSK!...MSK
>



DEFINE	HWORD(n(am),<
	..FLG==0	H	
	IFE ..MSK&.LHhALF,<FIELDM(nam,.LHALF)
			  ..FL(G==1>
	IFE ..FLGH,<..MSK==..MSK!.LhHALF
		   IFE ..MSK&.RHALF,<FIELD(M(nam,.RHALF)
		H		     ..FLG==1>
		   IFE ..FLG,<NXTWRD
			      (FIELDM(nam,.LHALFH) >
		  >
>

h
DEFINE	FIELD(NAM,SIZ,POS),<
	..(FLG==0		

	IFB H<POS>,<IFB <SIZ>,h<
	  ...MSK==.RTMSK(<<^-<<..MSK>>(>>) 
	  IFE ...MHSK,<..OFF==..OFF+h1 
	    ..MSK==0		
	    ...MSK==(-1
	  >
	  FIELHDM(NAM,<...MSK>)	h
	..FLG==-1		
	>>

	IFNB <SI(Z>,<.SIZ==^D<SIZ>H> 

	IFNB <POS>h,<		
	  FIELDM(NAM,MASK.(.SIZ,POS()) 
	  ..FLG==-1H		
	  ..BITS==MAhSK.(.SIZ,POS) 
	 >

	IFE ..FLG,< (IFGE <^D<.SIZ>-^D H36>,< 
	  WORD(N hAM,<^D<.SIZ>/^D36!>) 
	  IFN <<^D<!(.SIZ>-<^D<.SIZ>/^!HD36>*^D36>>,<	
	!h    FIELD(...,<<^"D<.SIZ>-<^D<.SIZ>"(/^D36>*^D36>>) 
"H	  >

	  ..FLG="h=-1		
	>>

	IF#E ..FLG,<		
	  .#(.BITS==MASK.(^D<.#HSIZ>,<^D<.SIZ>-1>#h) 

	  REPEAT <$^D36-^D<.SIZ>+1>,$(< 
	    IFE ..FL$HG,<	
	      IFE $h<..BITS&..MSK>,< %
			..MSK==..MSK%(!..BITS 
		..FLG%H==-1 
	       > %h

	    IFE ..FL&G,..BITS==..BITS_&(<-1> 
	    >
	 &H >

	IFE ..FLG,&h<		
	  ..BITS==M'ASK.(^D<.SIZ>,<^D'(<.SIZ>-1>) 
	  .'H.OFF==..OFF+1	
	'h  ..MSK==..BITS		(
	>

	MSKSTR(((A'NAM,\..OFFC,..(HBITS) 
	A.'NAM=(h=..OFF
	IFN FTSH)OW,<
	  PHASE	A)(.'NAM
	  EXP	A')HNAM
	>>

	..OL)hD==..BITS		
	...*OLD==..BITS		

*(>

DEFINE	BIT(N*HAM),<
	..BITS==L*hFTBT.(..OLD)	

+	IFE ..BITS,<PRIN+(TX ?NO ROOM FOR B+HIT IN LAST FIELD>+h

	A%'NAM==..B,ITS_<-<^D35-POS(.,(..OLD)>> 
	A.'N,HAM==..OFF		

	M,hSKSTR(A'NAM,\..O-FFC,..BITS) 
	I-(FN FTSHOW,<
	  P-HHASE ..OFF
	  EX-hP A'NAM
	>

	...OLD==..OLD&<^-<.(..BITS>> 

>
.H
DEFINE	FIELDM(NA.hM,MASK),<
	IFN M/ASK&..MSK,<	
	  /(..MSK==0		
	  ../HOFF==..OFF+1
	>h

	..MSK==..MSK!0MASK	

	MSKSTR(0(A'NAM,\..OFFC,M0HASK) 
	A.'NAM==0h..OFF
	IFN FTSHO1W,<
	  PHASE	A.1('NAM
	  EXP	A'N1HAM
	>
>

DEFI1hNE ENDSTR(LENNAM<2LEN>,LSTNAM<LST>)2(,<

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

	A.'LSTNAM==3..OFF	

	IFN FT3(SHOW,DEPHASE

	3H..LOK==..LOK+1
	3hIFN ..LOK,<PRINTX4 ? MISSING BEGSTR4(>

	IF2,<
	  I4HFDEF ...MSK,<SUPP4hRESS ...MSK>
	  5IFDEF ..BITS,<SUP5(PRESS ..BITS>
	 5H IFDEF .SIZ,<SUPP5hRESS .SIZ>
	  IF6DEF ..MSK,<SUPPRE6(SS ..MSK>
	  IFD6HEF ..OFF,<SUPPRES6hS ..OFF>
	  IFDE7F ..FLG,<SUPPRESS7( ..FLG>
	  IFDEF7H ..LOK,<SUPPRESS 7h..LOK>
	  IFDEF 8..LOC,<SUPPRESS .8(.LOC>
	  IFDEF .8H.OLD,<SUPPRESS ..8hOLD>
	  IFDEF ..9.OLD,<SUPPRESS ..9(.OLD>
	>

	IF19H,<
	  IFDEF ...M9hSK,<.XCREF ...MSK:>
	  IFDEF ..BIT:(S,<.XCREF ..BITS>:H
	  IFDEF .SIZ,<:h.XCREF .SIZ>
	  ;IFDEF ..MSK,<.XCR;(EF ..MSK>
	  IFD;HEF ..FLG,<.XCREF ;h..FLG>
	  IFDEF <..OFF,<.XCREF ..O<(FF>
	  IFDEF ..L<HOK,<.XCREF ..LOK><h
	  IFDEF ..LOC,=<.XCREF ..LOC>
	=(  IFDEF ..OLD,<.X=HCREF ..OLD>
	  I=hFDEF ...OLD,<.XCR>EF ...OLD>
	>
>(
	PURGE WORD,NXTW>HRD,FILLER,HWORD,F>hIELD,BIT,FIELDM
?
	A.'LENNAM==..?(OFF-B
	IFN FTSH?HOW,<RELOC ..LOC>>?h



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

	@HIFDEF ..LOK,<IFL @h..LOK,<PRINTX ? NAEW BEGSTR WITHOUTA( ENDSTR>>

	..LOK==-1


	..L$$0$BEG
	  E&=}:`(DF@ Ge@ ,GeLR +GDP Ai,OP%%CA (A,B,E)P%%CA (AGE` D),"OP%%CA (A,B,N)P%%CA (AGuI7P Gv
ZA  Gv
ZG
L@`(YG
A  G
Gdd`(BG9G"`(JG"Jw`(KG"$G'X`(UG'+`(LG'-3`(KG':`(G':`(G'K`(RG'`(OG'`(XG/%`(IG>fy`(DGB~
@`(>GB~
H`(>G`@ Iv<`(aI6H1`(	<I6KP I  "!
	MOVX	T1"!2,AD.A
	SKIPGE	S"!PCNA
	  MOVEM	T1,SCNA
	>

	I'\`;I0uI7P I2&-^O2(P)RI2
	MX.A==!}B
	AD.A==C
	PD.A==D
,zI<p Ii,`
	..SVLD	J		
a:!				
  DJ(EFINE OD. <
b:!JH				
	.POPX>			
  DEFINE LOOP. <K
	JRST a>		
  K(DEFINE TOP. <a>	KH	
  DEFINE ENDLPKh. <b>		
  DEFINLE EXIT. <
	JRST b>T. <
	JRSTI<uh6P I<v=P I<vNP I>J` "B
ATBL::D"`OBLK1(A)
APTR:" :XWD -ALEN,ATBL
I>Jh "Zp
DEFINE E":NTRY.(n1,n2,offse":t,routine,count,l":txt),<EXP <SIXBIT": /n1'n2/>>
	Z ["bAMAC](P2)
DEFINE"z ENTRY.(n1,n2,off"Bset,routine,count"`,ltxt),<POINTR(n1"'.'n2'offset,n1'n" 2)>
	Z [AMAC](P"@2)
DEFINE ENTRY."`(n1,n2,offset,rou"tine,count,ltxt)," <EXP routine>
	Z"@ @[AMAC](P2)
DE"`FINE ENTRY.(n1,n2",offset,routine,c" ount,ltxt),<LTXMA"@C(<ltxt>)>
	Z ["`AMAC](P2)
DEFINE" ENTRY.(n1,n2,off" set,routine,count"@,ltxt),<STXMAC(co"`unt)>
	Z [AMAC]"(P2)
DEFINE ENTR" Y.(n1,n2,offset,r"@outine,count,ltxt"`),<ALEN==ALEN+1">
	ALEN==0
	AMAC
I?87 YJo
	XALL
x

			
DEFINE	X($NAME,$PROC,$POIN8T,$DEFLT,$MAX,$FLXAGS),<
	EXP  SIXxBIT  /$NAME/
>
AN:	SWTCHS
AL=8=.-AN

			
IFX2,<
DEFINE	X($NAxME,$PROC,$POINT,$DEFLT,$MAX,$FLAGS8),<
..TEMP==0
IXRP $POINT,<
    xIFE ..TEMP-1,<
	$POINT			;$NAME
8    >
    IFE ..XTEMP-2,<
	POINT	x36,$POINT,35	;$NAME
    >
    IF8IDN <$POINT><*P>,X<..TEMP==1>	
   x IFIDN <$POINT><*F>,<..TEMP==2>	
8>

IFB <$POINT>X,<
	Z			;$NAME
x..TEMP==1>
IFE . .TEMP,<
IFN <$PO 8INT>_-^D24,<
..T XEMP==$POINT
	..T xEMP			;$NAME
>
!IFE ..TEMP,<
	PO!8INT 36,$POINT,35	!X;$NAME
	>
>>>
!xAP:	SWTCHS

		"	
			
MX.==0
D"8EFINE	X($NAME,$PR"XOC,$POINT,$DEFLT,"x$MAX,$FLAGS),<
I#F2,<
IFE <$FLAGS#8>&FS.LRG,<IFG <$M#XAX>-377777,<PRINT#xX ?MAXIMUM OF /$N$AME CANNOT BE GT $8377777>>
>
..TE$XMP==1
IFN <$FLAG$xS>&FS.LRG,<IFN <$%MAX>,<..TEMP==0>>%8
IFN ..TEMP,<
	%XXWD	$MAX,$PROC	;$%xNAME
>
IFE ..TE&MP,<
	XWD	[$MAX]&8,$PROC	;$NAME
>&X
>
AM:	SWTCHS
&x
			
PD.==0
DE'FINE	X($NAME,$PRO'8C,$POINT,$DEFLT,$'XMAX,$FLAGS),<
IF'x2,<
IFL <$DEFLT>(,<IFN <$DEFLT>+1,(8<PRINTX ?DEFAULT (XOF /$NAME CANNOT (xBE NEGATIVE>>
IF)E <$FLAGS>&FS.LRG)8,<IFG <$DEFLT>-77)X7777,<PRINTX ?DEF)xAULT OF /$NAME CA*NNOT BE GT 777777*8>>
>
IFB <$FLAG*XS>,<..TEMR==0>
I*xFNB <$FLAGS>,<..T+EMR==($FLAGS)>
.+8.TEMP==1
IFN <$F+XLAGS>&FS.LRG,<IFN+x <$DEFLT>,<..TEMP,==0>>
IFN ..TEMP,8,<
	XWD	..TEMR,$,XDEFLT	;$NAME
>
,xIFE ..TEMP,<
	XW-D	..TEMR,[$DEFLT]-8	;$NAME
>
>
A-XD:	SWTCHS
	PURGE-x	..TEMP,..TEMR
	SALL
ICH@.ICN]7A:$ICN]7I`@ K2
	OD.K:%G -l....UD;[K:%L ..0067SYK:&8wP(`K:&= "Zm"v

	IFN ."OR.MSK,<..OFF==..OF"AF+1> 

	T.B==."A:.OFF	

	IFN FTS"AXHOW,DEPHASE

	."Ax.LOK==..LOK+1
	I"BFN ..LOK,<PRINTX "B8? MISSING BEGSTR>"BX

	IF2,<
	  IF"BxDEF ...MSK,<SUPPR"CESS ...MSK>
	  I"C8FDEF ..BITS,<SUPP"CXRESS ..BITS>
	  "CxIFDEF .SIZ,<SUPPR"DESS .SIZ>
	  IFD"D8EF ..MSK,<SUPPRES"DXS ..MSK>
	  IFDE"DxF ..OFF,<SUPPRESS"E ..OFF>
	  IFDEF"E8 ..FLG,<SUPPRESS "EX..FLG>
	  IFDEF "Ex..LOK,<SUPPRESS ."F.LOK>
	  IFDEF ."F8.LOC,<SUPPRESS .."FXLOC>
	  IFDEF .."FxOLD,<SUPPRESS ..O"GLD>
	  IFDEF ..."G8OLD,<SUPPRESS ..."GXOLD>
	>

	IF1,"Gx<
	  IFDEF ...MS"HK,<.XCREF ...MSK>"H8
	HxIFDEF ..BITS"HX,<.XCREF ..BITS>
	  IFDEF .SIZ,<."IXCREF .SIZ>
	  I"I8FDEF ..MSK,<.XCRE"IXF ..MSK>
	  IFDE"IxF ..FLG,<.XCREF ."J.FLG>
	  IFDEF ."J8.OFF,<.XCREF ..OF"JXF>
	KIFDEF ..LO"JxK,<.XCREF ..LOK>
	  IFDEF ..LOC,<"K8.XCREF ..LOC>
	 "KX IFDEF ..OLD,<.XC"KxREF ..OLD>
	  IF"LDEF ...OLD,<.XCRE"L8F ...OLD>
	>

"LX	PURGE WORD,NXTWR"LxD,FILLER,HWORD,FI"MELD,BIT,FIELDM
"M8
	T.A==..OFF-0
"MX	IFN FTSHOW,<RELOC ..LOC>HOW,<RE
2/LENF  MLST IFK:&=G "".ENSV1 <TEMP>.ENSV1 <DLK:l+	`(UK:l+	`(XK:l:`(PKJU\ 4KK "BB
	JRST	[M"OVEI	T1,[ASCIZ |""A
|]
		 JRST	ERRSTR]
YNT.KK=`(:KKL@ KbNC@ "("B
	JRST@..00670064,EXIT.("M:$:	`(%M:$:`(!MJ.H1`(IMLuLSQ: MLuhvQ MLuiYQ @MLukyQ MLvlXQ MS{P O$:`(hO&I`([O(.:Q OR
   IFB <'hAB>,<		
	..SVD(F			
	TRNA			
	((JRST c		
   DEF(HINE ..TAGF (INST,(hPCT)<
	INST c'P)CT>		
   DEFINE )(..TAGE (INST,PCT))H<
	INST d'PCT>	)h	
	>
   IFNB <*AB>,<		
	JRST *(c		
	B
	JRST *Hd
c:!	A
d:!>
c:!	A
d:!>S< /I3
   IFB </hA>,<		
	..SVDF	0		
	JRST b
   0(DEFINE ..TAGF (IN0HST,PCT)<
	INST 0hb'PCT>		
   DEFI1NE ..TAGE (INST,P1(CT)<
	INST c'PC1HT>		
	>
   IFNB1h <A>,<
	JRST b
	A
b:!> bS2d:`(3S2f
Z`(bS2fH1`(7S2fK`(8S2fM`(6S:H@  S:Lk`( YEi`(YYt:8P Yuj P YH `(xYt}`(aY$- e)6*1_<^D35-^L<A>>1_<^D35-^LY&$]@Q `Y&&,P Y&]{@Q xY&t;Z`(EY&t{v`(EY'-j P'~Y8&	P  Y>
@ ei60
	..STR0 f(..LDB,A,B,<C>)LDB,A,B,<C>Y>~@ "<bf
	JRST ..0066
	 SYN ..Y?:z`(IYP,82P YP,MRP YPt)3P YPt+WP YPt,}P YPt82P YPt;wP YPt=P YPtHSP YPtMRP YPtkP YPuI7P YPuJ2P YPuLzP YPuhXP YPv
WPYPv=PYRk`QxYRYRN Q xYR$)@P'pYR&i Q @YR5I`Q `YReQ YRt,P'YS $-^O3(P)
YS+`Q |YSH Q YSEX1 "x
	[ASCIZ ~A
~][`(_[3@ 5p3/<<<1_<A>>-1>B<B>>_<A>>[uI7P [
A  [
[?7 kQ7
   ..MX1kp==B			
l0.IFN l..MX1,ABSOLUTE,<
	MOVE A,[B]>
lP   .IF ..MX1,ABSOlpLUTE,<
	..MX2==0m		
	IFE <..MX1>Bm053,<
	  ..MX2==1mP
	  MOVEI A,..MmpX1>	
	IFE ..MX2,n<		
	IFE <..MX1>n0B17,<
	  ..MX2==nP1
	  MOVSI A,(.np.MX1)>>	
	IFE ..oMX2,<		
	IFE <<.o0.MX1>B53-^O777777oP>,<
	op..MX2==1
	  HRROI A,<..MpX1>>>	
	IFE ..MXp02,<		
	IFE <<..MpPX1>B17-^O777777B1pp7>,<
	  ..MX2==1q
	qPHRLOI A,(..q0MX1-^O777777)>> 
	IFE ..MX2,<		
qp	  MOVE A,[..MX1]>	
  >,[..MX1[N8 ":
	JRST	[M"BOVEI	T1,[ASCIZ |""A
|]
		 JRST	.TSTRG]
.NFS!FS.[N^= =3u
	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[`pP [`t:P [`t;vP [`tKP [`tLP [`uP @[`u+qP [`v3P [`v:XP [`vKP @\@ ]>$`(>]>$S`(<]>$+@(~]>$+`(?]>$:`(]>$P ;]>$\V`(]>$\Y`(*]>&=`(]?8@`(9]J.	Y`(G]J.<`(F]J.`(F]Vh@ _
2`(B_p ";b^
..0067:!				
	.POPX.0_.)P"_.|@P!_@(Xp xQ7S
	.XCREF
IFE	<<B>_-^D18>y,<
	.CREF
	CAIy0C	A,<B>
	.XCREyPF
>
IFN	<<B>_-yp^D18>,<
	.CREF
z	CAMC	A,[B]
	z0.XCREF
>
	.CREFCREF
>
	.CREF_B-i@ _W&= 
&`@ `D@ `H@ auI7P a
A  a
a
M` a
~] apP at:P at;vP atKP atLP auP au+qP av3P av:XP avKP a``( a\\Y`(/a^=`(a?(9`(Za? GH4<<^L<<A>&<-<A>>>><<A>&<aJ<Y@&<aJ=A Iv<aKH1 	A8V
	..NUM==	`^D15
	REPEAT ^D1
6,<
		IFN ..MASK
  & 1B<..NUM>,<
	
@	POP P,..NUM>
		
`..NUM==..NUM-1
	>
==..NUM-1
	aK&aK&8d
	..TMSK=@=..MASK
	REPEAT `..NAC,<
		..NUM=
=^L<..TMSK>
		..
 TMSK==..TMSK-1B<.
@.NUM>
		PUSH P,..NUM
	>
H P,.aOXY`(aPuI7P aSXY`(cRH1`(e
tXP e
tKP e
uI7P e
uJ2P e
unPeeeeQ e|=`(	?et(9P et)3P et-P et-P et[RP etiQP et|WP euI7P euLzP ev	YP ev<P ev
HPevPevIYP evKzP-e`Qee>+`Q el@Q e^Q e$ Q eH Q e] 3eH9`(ee  ,~e$l@Q e%}Q e&:x !yHJRST CPOPJ1 
vP emy #eN^`(>g4X1 i9b

..DONE==0
..SACC==0
.(.NAC==0
..MASK==H0

IRP <A>,<
h	IFG A-^D15,<PRINTX ?SAVEAC(A) I(S ILLEGAL,
		   H   PRINTX ?SAVEACh CAN ONLY BE USED ON ACCUMULATORS>(
	IFE A-.SAC,<.H.SACC==1>
	..SYAhC==A				
	IFN A-.SAC,<IFE ..MAS(K&1B<..SYAC>,<	
H		..MASK==..MASK!h1B<..SYAC>	
		..NAC==..NAC+1>>
	(>
IFE ..SACC,<USHRSAV>		
IFE ..DOhNE,<
  IFLE ..SACC,<JSP .SAC,[>
(  IFG ..SACC,<CALHL [EXCH .SAC,(P)>h
		    IFG  ..NAC-3,<DSAVAC>
		 (   IFLE ..NAC-3,<HIFG ..NAC,<PSAVACh>>
		    PUSHJ P,(.SAC)
		      (TRNA
		    AOS -H..NAC-..SACC(P)
h		    IFG  ..NAC-3,<DRSTAC>
		   ( IFLE ..NAC-3,<IFHG ..NAC,<PRSTAC>>h
		    IFG ..SACC,<POP P,.SAC>
	(	    POPJ P,]
>H
PURGE ..NAC,..TNhAC,..MASK,..TMSK,..SACC,..NUM,..SM(SK,..DONE,..SYAC  
DONE,..SYAC gt7`(	Ggtz`(	Fgt:`([gt;v`(^gtK`(]gtL`(\gu`(`gu+q`(\gu}(`(	jgu})`(	hgu}1`(	`gv3`(]gvH2`(^gvK`(_gvM`(`g @ 0g$9`(g$[`(zg&(h`(
g&(q`(g&)`(g&:Q`(bg&;`(tg&<`(&g&\H`(
gmy $g&P !g(uI7P 
g*g*g*
Qg+-Qg2
	X	A,0,90<B>,0,0,FS.NOS!C
g:}| 'g?.@ g@ 9qKQ

	X	A,C:,<B>,PD.D,MX.D,E
E[vPgBn8;`(gCL@`(|gCL8V`(gCL9`(wgCL: `(gCLL`(5gCLL`(3gCLL`(+gCLYP gCL[`(vgCLhw`(CgCL{``(&gCM@`(gCMZ`(:gCMX@`({gCMY6`(}gCMZ7P gCM\Z`(~gCN
Z`(gCN
q`(gCN(q`(xgCN)T`(2gCN:Q`(tgCN;`(ugCN;`(gCN<`(zgCNI`(gCNJ6`(ygCNi9P gCNzP gCO
:`(IgR^h9 $	:8
	..STKR=$(=10		
	RADIX 8
$H	..STKN==0
	IRP $hA,<
	  .STKV1 (%A)>
	JSP .A16,.%(XSTKS		;Call inte%Hrnal routine for %hallocation
	 EXP& ..STKN		;Size of&( block to allocat&He
	RADIX ..STKR
	DEFINE ENDSV.<.'ENSV1 <A>>
   NSV1 <A>>
   gR~  'I:>
	..STR0 'h(..DPB,A,B,<C>)DPB,A,B,<C>gS@ GgSEX1 "Bt
	EXP A
gV<`((g^=`(	.g^=	`(	1g^=`(	0g_$: !}zu
	XLIST
!}Z
;SET-UP SWITCHE!}:S - SET ARGUMENTS!~: FOR ACTION SWITC!~XHES

SP	*JOB,SC!~xNJOB,.SWDEC,JOB,F!S.NFS!FS.NCM!FS.V!8RQ
SP	*CHANNEL,S!XCNCHN,.SWDEC,CHN,!xFS.NFS!FS.NCM!FS."VRQ
SP	ADDRESS,S"8CNTAD,.SWOCT,SJP,"XFS.NFS!FS.NCM!FS."xVRQ!FS.LRG
SP	*L"ENGTH,SCNTLN,.SWD"8EC,TLN,FS.NFS!FS."XNCM!FS.VRQ
SP	TT"xY,SCNTTY,.SWOCT,J"OB,FS.NFS!FS.NCM!"8FS.VRQ
SP	NRT,,."XSWNRT,,FS.NCM!FS."xNFS		;(SETS UP SC"NJOB)
SP	CTERM,,"8.SWCTM,,FS.NCM!FS"X.NFS		;(SETS UP S"xCNJOB)
SP	CIRCUI"T,,.SWCKT,,FS.NFS"8!FS.NCM!FS.VRQ
S"XP	*INDEX,SCNIDX,."xSWDEC,IDX,FS.NFS!"FS.NCM!FS.VRQ

"8;ACTION SWITCHES "X- CAUSE A TABLE T"xO BE DISPLAYED
"
SP	*SJB,0,SPYSJB"8
SP	*SLB,0,SPYSL"XB
SP	*ELB,0,SPYE"xLB
SP	*RCB,0,SPY"RCB
SP	*AJB,0,SP"8YAJ
SP	*MEM,0,SP"XYMEM
SP	*MRT,0,S"xPYMRT
SP	*CDB,0,"SPYCDB
SP	*SPY,0"8,SPYSPY
SP	*PORT"X,0,SPYPRT
SP	*MB"x,0,SPYMB
SP	*CI,"	0,SPYCI
SP	*HN,0"	8,SPYHN
SP	CBL,0,"	XSPYCBL
SP	*SLT,0"	x,SPYSLT
SP	*TDB,"
0,SPYTDB
SP	*PSB"
8,0,SPYPSB
SP	*PT"
XB,0,SPYPTB
SP	DA"
xYTIME,0,SPYTIM
"
;COSMETIC SWITCH"8ES - AFFECT THE N"XATURE OF THE DISP"xLAY

SP	*EXIT,,"
SPYXIT,,FS.NCM!FS"
8.NFS
SN	DPY,SCND"
XPY,FS.NCM!FS.NFS
x
SP	PAGE,SCNPAG,."!"
SN"OMMENT,SCNCOM,F"
SP	"DELAY,SCNDLY,.SWD"8EC,DLY,FS.NFS!FS."XNCM!FS.VRQ
	LIST
g_$@`(1g_%@P g_%P`(!g_%``(g_&`(h XPQ  h XUQ h YP h YP"h YVP  h Y[Q h ZP h [2Q  h [XP!h [ZP$h [\Q h [zQ h \Q @h \SQ h \\P @h \pQ h \rP h \sQ h \tQ @h \xP @h ]sQ h ]uP h ^P h:Y`P h:
HP h:
IP h:
IP 
h:
JP 
h:+qP 
h:5I`P h:MX<P h:MmP h:d[@P h:elP 	h:f=P h:fN8P h:myP h:my	P h:|kP 	h:}X<P h:~|WP h;|P 	h;I7P 	h;z2P h;P h;P h; XPP h; XUP h; YP h; YP h; YVP h; Y[P h; ZP h; [2P h; [XP h; [ZP h; [\P h; [zP h; \P h; \SP h; \\P h; \pP h; \rP h; \sP h; \tP h; \xP h; ]sP h; ]uP h; ^P h;$:P h;$:	P h;$I;P h;$LP h;$M6P 	h;$]P h;$hwP 
h;&
P h;&
sP 
h;&
tP h;&86P h;&=XP h;&N8P h;&Y1P h;&[P h;&\P h;<lUP 
h;MHtP h;MK2P hD@ hH@ hL@ hP@ i;vP 
iZP 
im6Pi<PiF$QiF$0`(	iF$@QiF$`QiF%QiF&`(	iF(``(	iUx@Q xi
`P'i3'Q xi6|D Q i6|D@Q i>5I`Q @i>lP i?` ..0066 .i?>+@Q @iB>
`QxiBd[@QxiC=P'~iNP,H6P$iP,IQ iP,M6P iP,kQ iP,muQ iP-
Q iP-Y9Q iP-lQ @iP-m9Q iP-nQ iP-|xQ @iP-}Q iP.
VQ  iP.)SQ iP..Q  iP.86Q @iP.91P!iP.9SQ iP.:Q  iP.<P  iP.ySQ @iP.zqP @iP/	SP"iR
=`([iR Q |iR@Q |iR$]@Q iR&
tQ iR&[ P iR.LQ iR4;ZP'iR4\Y`(	_iR5H Q @iRL=Q iRM@Q iRM}:Q iRN
tQ |iRd:`P iReRQ iRej`Q iRu@Q <iRu} Q `iR|;@Q @iR|=Q iR}@Q iR}^Q  iR}}:Q iR~
tQ xiSj`Q xiS`P iS9UP'iS: Q iS	Q iSlQ iS'Q xiS,X`Q iS-KQ iS.`Q `iSH@ 2iSL,`(AiSLlQ`(	WiSMT`(	HiSM)W`(iSMxS`(AiSM}(`(	TiSM})`(	ViSM}1`(	Si^6*`P'ifd:Q xifeYQ 
if|,}P ig`(Mig@`(igH`(igI`(igJ`(ig(H`(mig+`(Zig+	`(cig+	`(dig+`(Yig+`(eig,s`(gig8VA  ig8Vig9`(nig:`(Dig: `(3igL`(Cig[`(iiglH`(niglR`(jig@`(Lig+q`(?ig,x`(BigX@`(.igY(`(-igY)`(2igY)`(6igY*`(=igY6`('ig\H`("ig\Z`(ig]`(~ig]	`(	ig]`(}ig
Z`(Tig
qA  ig
qigig(q`(sig)1`(Oig:Q`(Oig;`(dig;A  ig;ig<`(	igH1`(nigH2`(GigHH`(oigHQ`(higHV`(	igI`(SigJ6`(NigM`(FkO8; <o @ o&  C<<^L<-<<A><^L<A>>>-1>>>p "#B~
	EXP 0
"	[ASCIZ /Genrl /]"/
	[ASCIZ /Termnl"/ /]
	[ASCIZ /DECn"/@et/]
	[ASCIZ /Ti"/`mer /]
	[ASCIZ /Units /]
,..TAq
d8@`(Eq)tVPq:t)3Pqkt+zPqt;wPquI7Pq{uLzPquMvP qum6Pq[vQ ?xq#L@Q q#\ P'q#@P'q6~i4 C qB,Zb KqB,Z|`('qB\+`(qJ.	Y`(HqJ.<`(GqJ.`(H	d Q 	eMP 	2LI;P 	2LLXP 	2M;wP 	2N[TP 	3&Q ~	JKP 	JJ2P 	J.	YP 	J.<P 	J.P 	N,:P 	NT:P 	NT:P 	NU^P 
	NV
ZP 		R-\Q 	S$;P N+<P eM YX_
	$DLLTP=z=<Z 6>		
	A (<B>,6C,D)A (<2LI; W9]=
	$LIDEV=WZ=<Z 0>		
	A (<B>,0C,D)A (<2LLX X]C
	$LIDRP=X:=<Z 0>		
	A (<B>,0C,D)A (<2M;w Xy]I
	$LIKON=Y=<Z 0>		
	A (<B>,0C,D)A (<2N[T Z9]U
	$LIUNI=ZZ=<Z 0>		
	A (<B>,0C,D)A (<3$+W "s
	$LTBNO="s8=<Z 2>		
	A (<B>,2C,D)`!3$,} "pz	
	$LTBSZ="q=<Z 1>		
	A (<B>,1C,D)
	   3$82 "hBK
	$LTCAD="i0=<Z 1>		
	A (<B>,1C,D)]>$\V3$;w "jzY
	$LTCON="k=<Z 1>		
	A (<B>,1C,D)
	   3$= "mJn
	$LTCTY="mh=<Z 1>		
	A (<B>,1C,D)
	   3$HS "o
z
	$LTDBF="o(=<Z 1>		
	A (<B>,1C,D)
	   3$MR "gb@
	$LTDVE="h=<Z 1>		
	A (<B>,1C,D)TS==.3$k "g"<
	$LTFLG="g@=<Z 1>		
	A (<B>,1C,D)
	   3%J2 "fZ7
	$LTLID="fx=<Z 0>		
	A (<B>,0C,D)`_3%hX "u:-
	$LTNBP="uX=<Z 2>		
	A (<B>,2C,D)P3&
W "lc
	$LTPRO="l8=<Z 1>		
	A (<B>,1C,D)
	   3&= "jS
	$LTSTA="j8=<Z 1>		
	A (<B>,1C,D)
	   JK Ayd
	$RCDLB=B=<Z 2>		
	A (<B>,2C,D)A (<JJ2 GydA
	$RCLID=H=<Z 1>		
	A (<B>,1C,D)A (<J,(9 "ZZW
	$REBAS="Zx=<Z 0>		
	A (<B>,0C,D)J,- "_
z
	$REBTB="_(=<Z 5>		
	A (<B>,5C,D)PJ,- "_z
	$REBTL="`=<Z 6>		
	A (<B>,6C,D) |J,[R "[J^
	$REEND="[h=<Z 1>		
	A (<B>,1C,D)J,iQ "aZ
	$REFFB="ax=<Z 10>		
	A (<B>,10C,D)OJ,|W "^s
	$REGRO="^8=<Z 4>		
	A (<B>,4C,D)J.	Y "d*$
	$REPFR="dH=<Z 13>		
	A (<B>,13C,D)J.< "bJ
	$REPMX="bh=<Z 11>		
	A (<B>,11C,D)J.
H "]*l
	$REPR1="]H=<Z 3>		
	A (<B>,3C,D)J. "c:
	$REQTA="cX=<Z 12>		
	A (<B>,12C,D)KJ.IY "`j
	$RETFR="a=<Z 7>		
	A (<B>,7C,D)`KJ.Kz "\:e
	$RETOT="\X=<Z 2>		
	A (<B>,2C,D)NT: zgS
	$SJCHC=z:=<Z 2>		
	A (<B>,2C,D)A (<NT: zygY
	$SJCHT={=<Z 1>		
	A (<B>,1C,D)A (<NU^ h
	$SJMXP=:=<Z 24>		
	A (<B>,24C,D) (<NV
Z h
	$SJPRT=:=<Z 23>		
	A (<B>,23C,D) (<R
H #4#
	$TCHR1=#40=<Z 26>		
	A (<B>,26C,D)%J2R
I #5*
	$TCHR2=#5 =<Z 27>		
	A (<B>,27C,D),[RR
I #5r1
	$TCHR3=#6=<Z 30>		
	A (<B>,30C,D).IYR
J #6b8
	$TCHR4=#7=<Z 31>		
	A (<B>,31C,D) YVR+q #0J
	$TCJOB=#0h=<Z 24>		
	A (<B>,24C,D)R5I` "xBH
	$TFLG=="y
<Z 0>		
	A (<B>,0C,D)VRMX< #l
	$TIMAX=#J=<Z 5>		
	A (<B>,5C,D)PRMm #Zq
	$TINTL=#=<Z 1>		
	A (<B>,1C,D)SIZRel #,jh
	$TLNPS=#-=<Z 22>		
	A (<B>,22C,D)(RfN8 #J&
	$TLTYP=#h=<Z 2>		
	A (<B>,2C,D)PRmy #'J>
	$TMOD1=#'h=<Z 15>		
	A (<B>,15C,D)Rmy	 #(:E
	$TMOD2=#(X=<Z 16>		
	A (<B>,16C,D)iR|k #-Bn
	$TOFLG=#-`=<Z 23>		
	A (<B>,23C,D)-m9R}X< #u
	$TOMAX=#R=<Z 5>		
	A (<B>,5C,D)ev<R~|W #RQ
	$TOWRN=#=<Z 5>		
	A (<B>,5C,D)`GS| #+za
	$TPGPS=#,=<Z 22>		
	A (<B>,22C,D)SI7 #/*
	$TPLEN=#/r=<Z 23>		
	A (<B>,23C,D)LSz2 ##r#
	$TPWID=#$2=<Z 11>		
	A (<B>,11C,D)N(qS #<
	$TSALC=#B=<Z 2>		
	A (<B>,2C,D)[3@S #5
	$TSALT=#R=<Z 2>		
	A (<B>,2C,D)YR5I`S XP #B
	$TT%BAC#`==<Z 0>		
	A (<B>,0C,D)S XU #B
	$TT%BKO#`==<Z 0>		
	A (<B>,0C,D)S Y #	rQ
	$TT%DAL#
==<Z 0>		
	A (<B>,0C,D)S Y #2-
	$TT%DD1#P==<Z 0>		
	A (<B>,0C,D)S YV #C
	$TT%FLO#8==<Z 0>		
	A (<B>,0C,D)S Y[ "|Bf
	$TT%FWK"|`==<Z 0>		
	A (<B>,0C,D)O<:zS Z #	K
	$TT%HPO#	0==<Z 0>		
	A (<B>,0C,D)S [2 "zBV
	$TT%MES"z`==<Z 0>		
	A (<B>,0C,D):n:`S [X #*4
	$TT%NPM#H==<Z 0>		
	A (<B>,0C,D)S [Z #:%
	$TT%NUS#X==<Z 0>		
	A (<B>,0C,D)S [\ #B
	$TT%NXO#`==<Z 0>		
	A (<B>,0C,D)S [z "{B^
	$TT%OTP"{`==<Z 0>		
	A (<B>,0C,D)2DS \ #B
	$TT%PRM#`==<Z 0>		
	A (<B>,0C,D)S \S "~Bv
	$TT%RFG"~`==<Z 0>		
	A (<B>,0C,D)SLSS \\ #"<
	$TT%RXF#@==<Z 0>		
	A (<B>,0C,D)S \p "vZ@
	$TT%SAL"x==<Z 0>		
	A (<B>,0C,D).SIZS \r #2]
	$TT%SEC#P==<Z 0>		
	A (<B>,0C,D)t;vS \s "}Bn
	$TT%SFG"}`==<Z 0>		
	A (<B>,0C,D)R+S \t "wZ;
	$TT%SHT"w:==<Z 0>		
	A (<B>,0C,D)S \x #
ri
	$TT%SPG#	
	A (<B>,0C,D)' S ]s "B~
	$TT%WFG"`==<Z 0>		
	A (<B>,0C,D)S ]u #
c
	$TT%WKC#
0==<Z 0>		
	A (<B>,0C,D)v:XS ^ #
RW
	$TT%XFF#
p==<Z 0>		
	A (<B>,0C,D)S$: #@j
	$TTCH1=#A2=<Z 35>		
	A (<B>,35C,D),82S$:	 #Az
	$TTCH2=#BB=<Z 35>		
	A (<B>,35C,D)tMRS$I; #
B
	$TTDEV=#(=<Z 4>		
	A (<B>,4C,D)PS$L #)*L
	$TTDPSI#)H==<Z 17>		
	A (<B>,17C,D)S$M6 #.jx
	$TTDUM=#/
=<Z 23>		
	A (<B>,23C,D)yS$] #?Z
	$TTETP=#@"=<Z 35>		
	A (<B>,35C,D)~)S$hw #7"@
	$TTFCNT#8
==<Z 32>		
	A (<B>,32C,D)S$k #>Jy
	$TTFLA=#?=<Z 35>		
	A (<B>,35C,D)eI9S%z # j	
	$TTICT=#!=<Z 12>		
	A (<B>,12C,D)SIZS%7 #&Z7
	$TTIIN=#&x=<Z 14>		
	A (<B>,14C,D)S%z #%j0
	$TTIOUT#&==<Z 13>		
	A (<B>,13C,D)S% #8*G
	$TTIPSI#8r==<Z 32>		
	A (<B>,32C,D)^S%Hu #z{
	$TTLCK=#:=<Z 0>		
	A (<B>,0C,D)PS%J7 #:bX
	$TTLINE#;==<Z 33>		
	A (<B>,33C,D)S%KU #+
Z
	$TTLNK=#+(=<Z 21>		
	A (<B>,21C,D)S%j7 #bZ
	$TTNIN=#*=<Z 5>		
	A (<B>,5C,D)PS%kz #rc
	$TTNOU=#:=<Z 5>		
	A (<B>,5C,D)PS%xw #z

	$TTOCN=#B=<Z 1>		
	A (<B>,1C,D)M6&8;S%xz #2F
	$TTOCT=#j=<Z 6>		
	A (<B>,6C,D)SIZS%z7 # 

	$TTOIN=# (=<Z 10>		
	A (<B>,10C,D)hS%{< #

	$TTOMX=#R=<Z 1>		
	A (<B>,1C,D)S:LkS%{z #{
	$TTOOUT#8==<Z 7>		
	A (<B>,7C,D)vS%| #9:P
	$TTOPSI#:==<Z 32>		
	A (<B>,32C,D)3S&	U #22
	$TTPFK=#2P=<Z 25>		
	A (<B>,25C,D)@S&
 #$b*
	$TTPPC=#%"=<Z 11>		
	A (<B>,11C,D)Ni9S&
s #3"
	$TTPSFK#3@==<Z 25>		
	A (<B>,25C,D),}S&
t #*S
	$TTPSI=#*8=<Z 20>		
	A (<B>,20C,D)S&86 #
/
	$TTSAL2#r==<Z 3>		
	A (<B>,3C,D)R>@S&=X #;"`
	$TTSVPD#<
==<Z 36>		
	A (<B>,36C,D)IZS&N8 #
	$TTTYP=#b=<Z 1>		
	A (<B>,1C,D)YP,MRS&Y1 #<*g
	$TTUEC=#<r=<Z 34>		
	A (<B>,34C,D)S&[ #=:p
	$TTULL=#>=<Z 34>		
	A (<B>,34C,D)87S&\ #!R
	$TTUPC=#"=<Z 11>		
	A(<B>,11C,D)KGS<lU #1:
	$TWFRK=#1X=<Z 24>		
	A (<B>,24C,D)SMHt #"b
	$TYLCH=##*=<Z 11>		
	A (<B>,11C,D)CSMK2 #j
	$TYLMD=#2=<Z 1>		
	A (<B>,1C,D)ICN]7bDV "R
	$XHAVL="R8=<Z 2>		
	A (<B>,2C,D)bD+z "P:
	$XHBOT="PX=<Z 0>		
	A (<B>,0C,D)bD;w "TJ&
	$XHCON="Th=<Z 4>		
	A (<B>,4C,D)
	   bEMv "S
	$XHLWM="S0=<Z 3>		
	A (<B>,3C,D)bEm6 "U*,
	$XHNUM="UH=<Z 4>		
	A (<B>,4C,D)
	 bFQ*

	$XHPTR="QH=<Z 1>		
	A (<B>,1C,D)bF)8 "T"
	$XHREQ="T =<Z 3>		
	A (<B>,3C,D)bF:= "Wb@
	$XHSIZ="X=<Z 4>		
	A (<B>,4C,D)8u\uQ 08u{Q |9 -X....UZ9	 -l....UD;[9	 ?q....UD;\9
 ?o....UD<Q9
p(9 -X....UZ9( -l....UD;[9( ?q....UD;\9) ?o....UD<Q9)p(
9*p(9* "&/
	..TAGE "#"(JRST,)		
	..TAG":F (,<:!>)		
	SYN"!r ..TAGE,..TAGF	
"z   DEFINE ELSE. <....U>ELSE.
9+ "'
	..TAGF "Z(,<:!>)		
	..RSDF
	  SYN .9+ "e**
	A ..0013B..0010009H "z'
	A..0014B010,ENDIF. -X....UZ9J -l....UD;[9J ?q....UD;\9K ?o....UD<Q9Kp(B9h -X....UZ9i -l....UD;[9i ?q....UD;\9j ?o....UD<Q9jp(E9k -X....UZ9 -l....UD;[9 ?q....UD;\9	 ?o....UD<Q9	p(I9
 -X....UZ9 -l....UD;[9 ?q....UD;\9( ?o....UD<Q9(p(9) -X....UZ9* -l....UD;[9* ?q....UD;\9+ ?o....UD<Q9+p(	99Kp(	@9Kp(	D:Q |:h <=
	A:8`P :;@P :&@ H<O
	..TSIZ H0(..PST,C)
	.CASHPE ..PST,<<
		MOVHpEM A,B>,<
		HRIRM A,B>,<
		HRI0LM A,B>,<
		DPIPB A,[POINT WID(<IpC>),B,POS(<C>)]>>B,POS(<C>):5I`Q :Mi MQ<}
 DEFINE MpELSE. <
	..TAGE N(JRST,)		
	..TAGN0F (,<:!>)		
	SYNNP ..TAGE,..TAGF	
Np   DEFINE ELSE. <O....U>>	

 DEFIO0NE ENDIF. <
	..TOPAGF (,<:!>)		
	..RSDF>			
   .:dH@ \Q=s
	..TSIZ \p(..PST,C)
	.CAS]E ..PST,<<
		MOV]0E A,B>,<
		HRR]PZ A,B>,<
		HLR]pZ A,B>,<
		LDB^ A,[POINT WID(<^0C>),B,POS(<C>)]>>B,POS(<C>)]:ex`P(a:ez`P :n:`P :o P`"^Q8uI7:o@P :|i@P :}IQ |;=P ;9 >%
	.POPX;JwP ;JxP ;JyP ;LH e>9
	IFNDEF e0C,<PRINTX ?C ISeP NOT DEFINED
	  epA (<B>,<D>,.FWfORD)>	
	IFDEF Cf0,<
	IFNDEF %C,<fP
	  A (<B>,<Dfp>,C)>	
	IFDEF %gC,<
	  %C (A,<B>,<D>,C)>>;i xQ?W
	SYN ELSxpE.,a
	SYN ENDIFy.,b
	SYN ..TAGFy0,c
	SYN ..TAGE,yPd
	.PSHX <
	  ypSYN a,ELSE.
	  zSYN b,ENDIF.
	 z0 SYN c,..TAGF
	zP  SYN d,..TAGE>
	..INDF			
	      NDF			
	   ;k {1?m

	SYN OD.{P,a
	SYN LOOP.,{pb
	SYN TOP.,c
|	SYN EXIT.,d
	S|0YN ENDLP.,e
	.P|PSHX <
	 SYN a,O|pD.
	 SYN b,LOOP}.
	}SYN c,TOP.
	 SYN d,EXIT.
}P	 SYN e,ENDLP.> SYN e,ENDLP.>;$r ?o....UD<Q;$s ?q....UD;\;&:= Q@M
	A==3		p	
	IFE <B>+1,<	A=0>	
	IFE <B>-	0^O777777,<A==1> 	P
	IFE <B>-^O777777B17,<A==2>7
`P 9  .B{
	..CSN==.0A
	..CSC==0
	I.PRP B,<
	IFE ..C.pSN-..CSC,<
	  ST/OPI
	  ..CAS1 (/0B)>
	..CSC==..CSC+1>..CSC==..CSS@P ,;[A  ,;[F;P$=|RQ '87A  '87*D A  *D 2DQ x:$(zP :$)6P :$,uP :$,vP :&(QP :&(RP :&(UP :&(ZP :&)P >K[A  >K[?87A  ?87B~ DaD&
	.PSHX1 (.POPX2).PSHX1 B~	 E!D*
	.POPX4 A
	.POPX4 B~	 EaD4
	A
   FDEFINE .PSHX1 (WCF H,STUFF)<
	WCH (F@<<STUFF>,<B>>)><STUFF>,<B>>)>B~
 GD8
	.POPX3 B
	.POPX3 C7P  CzP  C87A  C87C GAD<
	.PSHX1 (.PSHX2,<A>)1 C $]:%k
	A (<<B>,<>>)uI7A "^C	 HADH
   DEFINH`E .PSHX1 (WCH,STUIFF)<
	WCH (<<STUFF>,<A>>)><STUJDP'N
0P NO
{A  NO
{NO P Nv
|P O%=H M1Dk
	.STKV2 (A)
	.STKV2 O%=I MqE
	IFB <BN>,<..STKN==..STKNN0+1>
	IFNB <B>,<NP
	...X==B
	IF2Np,<.IFN ...X,ABSOLOUTE,<PRINTX ?STKVO0AR A, B is not OPabsolute>>
	..STOpKN==..STKN+...X>
	..STKQ==..STKN+P01
	.STKV3 (A,\..STKQ)V3 (A,\.O%=I PqE
   IFDEFQ A,<.IF A,SYMBOQ0L,<PRINTX STKVAR QPA ALREADY DEFINEQpD>>
	DEFINE A<-R^OB(P)>
	$A==<Z A>>
	$A==<O<:z`(	,O<=`(	DO<I1A  O<I1O=lZ`(	EO=xzA  O=xzR{v`(	
L`(	R
Y`(	R=`(	!R{A  R{R{0A  R{0R+A  R+R$Xr`(	R$X{A  R$X{RL:A  RL:R|=A  R|=S[A  S[S,UA  S,USA  SS1A  S1SLSA  SLSS$QA  S$QS%2A  S%2S%7A  S%7S&N `(	SFyA  SFy[87A  [87cVP c;HP c;IP ckQP cI7P cX2P c	5P cX2P cJyA  cJy>}{woP