Google
 
Trailing-Edge - PDP-10 Archives - BB-4157E-BM - fortran-ots-debugger/forprm.unv
There are 32 other files named forprm.unv in the archive. Click here to see a list.
x,5{@P C

tP C

v*7P C

v*7P C

v:7P C

v:7P C

v;zP CQ CJ<Q CJ==rQ `CJ>N8Q CZ P DG<,Q bE0um6P E0w)9P E2]`P 
E2^>@Q  E2u0Q EC8Q ENO Q 5EV4=Q Eg%`P 	G

Q G

tI;P G

tkyP G

uJ9P G|0P 6G;D Q  G;D@Q @H@ H

Q H@Q @H P"HL@P#~H-h`P H-iQ H-z Q H-|@P HM`Q HMmQ HMpP  He@Q @He}:Q  Hf9P HmyQ  Ht;P$Hu[P H~	7Q H~]Q H@Q H+@Q HyQ HQ  HP!HHyP @H&+QQ H-i@Q H>-Q @IP I4.: }P(!

  IFG }p<$P+^D<B>-^D35>,~<
	$P==-1
	$LOC~0==$LOC+1
	>
  $~PP==$P+^D<B>		;Fi~pnd end position in word

	DFN (0A,$LOC)	;Plain AP is offset
	%A=p=$P	;RH (%NAME) = rightmost bit
0
  %%DONE==0
  IPFE <B - ^D18>,<	p;Halfword
	IFE <$P - ^D35>,<	;Rig0ht halfword

		PA==A+1B0
		%%DpONE==1
	>
	IFE <$P - ^D17>,<	;Le0ft halfword

		PA==A+1B1
		%%DpONE==1
	>
  >
  IFE %%DONE,<			0;Not a halfword
P
		A==A+1B2
	p	%A==%A+ <<B>_^D30>	;Byte size in LH
  >
ze I6;W P(-

	DFN	pA,B	;Check for name conflict
			0	; and define it Pthe same
	%A==%B


	%A==%I6= y`'N
	$LOC==0
	$P==-1
	==0I6N  !j
 IRP A,@<
  IRP B,<
  ` DEFINE TXAB (AC,E) <
` IFE < <E>&777777000000>@,<TRAB AC,<E> ;`>     IFE <<E>&000000777777>,<TLA B AC,(E) ;> 			 @   TDAB AC,[E]
   > ;END TXYZ
  > ;END IRP B
  > ;END IRP A
> ;END IRP A
I6y {`'i7`

IFGE $|P,<
	$P==-1
	$L|0OC==$LOC+1	;Jump |Pto next word
	>p

	DFN (A,$LOC)}
	%A==^D35

	$LOC==$LOC+B
+>'Z1B

IpQ I0P Ip z 'X

	IF1,<z@
	IFDEF A, PRINz`TX ?A ALREADY DE{FINED
	>;END IF1

	A==B

I5 `I5  I5M `I$tLuP I$uZP I$u]P I$u}P I$vMP I'P I'Q I2-`P 7I60P 5I6|I Q 5I8rHP I8r$P I8rU+P I8rdJP I8sP I8tI3P I8v>9P I?,+	 _ IJ&i@Q ILtI6P ILt^P ILuJ9P ILvQP ILv

WP ILv2P ILv)7P ILv8;P ILv=1P IN.NV E`$.
	SETZM	A
	SETZM	1+AIZL9 P I['Q K:$P K>5`P KK X &.

 IFN FX@TSHR,<
  IFN $NAX`ME$-'ERR',<			;SHYARABLE FOROTS IN Y WRONG PSECT
	PUSY@HJ	P,E..A
	XLISY`T
	.PSECT	F.ERR
  > ;END IFN NAMZ E-ERR

  IFE $NZ@AME$-'ERR',<			;SZ`HARABLE BUT CORRE[CT PSECT
	PUSHJ	[ P,[
  > ;END IFE[@ NAME-ERR
 > ;EN[`D IFN FTSHR

 I\FE FTSHR,<				;NO\ NSHARABLE IS ALWA\@YS CORRECT
	PUSH\`J	P, [
 > ;END I]FE FTSHR

E..A] ::				;DEFINE THE]@ ERROR


 IF2,]`<IFNDEF %ERARG,<E^XTERN %ERARG>>	;A^ RG STACK
 IFNB <^@D>,<		MOVEI	T0,%^`ERARG-1	;STACK IF_ ANY
 IRP D,<
   IFE <<<Z D>__@-^D18>-P>,< PUSH _`T0,-1+D >	;FIXUP` FOR STKVAR
   I` FN <<<Z D>_-^D18`@>-P>,< PUSH T0,D``    >
  >; END IaRP
> ;END IFNB

 IF2,<IFNDEF %a@FORER,<EXTERN %FOa`RER>>
		PUSHJ	P,b%FORER			;ERROR Cb ALL
		BYTE	(7)"b@B"(19)0			;'ERRORb` ARG BLOCK'
		XWcD	'A',0
		ASCIZc 	\C\


 IFE Fc@TSHR,<			]	>	;FINc`ISH LITERAL

 IdFN FTSHR,<
  IFNd  $NAME$-'ERR',<
d@	.ENDPS
	LIST
 d` > ;END IFN NAME-eERR

  IFE $NAMe E$-'ERR',<		]	>	;e@FINISH FOR OTHER e`CASES
 > ;END IFN FTSHR
ENDIFKKP`KK`PKOP6KcP+L@LHP"LL`QLMQ@L$=Q`L%6Q@L&)QL&<`QL&=Q  L&LQ L.,@Q L.LQ L/

|`P K $Z<A>B<POS(B)><A>B<POS(M28 @ 
 %F==%F_-1
 A==%F_1F_M3RP M4tkyP M4v[SP M7%`P M<$P M<$:P M<$;P M<$J;P M<$\YP M<$hvP M<$l{P M<$yP M<${P M<%

xP M<%P M<%Y6P M<&:P M?PQ M?i1 !&

X	INIT`		;FOROTS INITIAL	IZATION
X	FORER		 	;ERROR PROCESSOR	@
X	OPEN		;DEVICE	` OPEN
X	CLOSE		;
DEVICE CLOSE
X	R
 ELEA		;DEVICE REL
@EASE
X	IN		;FORM
`ATTED INPUT
X	OUT		;FORMATTED OUT PUT
X	RTB		;UNFO@RMATTED BINARY IN`PUT
X	WTB		;UNFO

RMATTED BINARY OU

 TPUT
X	ENC		;ENC

@ODE
X	DEC		;DECO

`DE
X	NLI		;NAMEL
X	NLO	LIST OUTPUT
X	IOLST		;INPUTEM PROCESSING
X	FI N		;INPUT/OUTPUT @LIST TERMINATION
X	MTOP		;DEVICE POSITIONING/UTILI TY FUNCTIONS
X	F@IND		;RANDOM ACCE`SS RECORD FIND
X	EXIT		;PROGRAM T ERMINATION
X	ALC@OR		;DYNAMIC CORE` ALLOCATION
X	DECOR		;DYNAMIC COR E DEALLOCATION
X@	ALCHN		;ALLOCATE` AN I/O CHANNEL
X	DECHN		;DEALLOC ATE AN I/O CHANNE@L
X	TRACE		;TRAC`EBACK OF ROUTINE CALLS
X	FUNCT		; GENERAL OTS INTER@FACE
X	DBMS		;DB`MS ENTRY
X	INQ		;DEVICE/FILE INQU IRE
X	FOROP		;MI@SCELLANEOUS LIBRA`RY UTILITIES

Y UTILITIES

MJ,X1@ MO:  !N
	SALL
I@F10,<	SEARCH	UUOS`YM,MACTEN>

IF20,<	SEARCH	MONSYM ,MACSYM
	EXTERN	@.JBAPR,.JBDDT,.JB`FF,.JBHGH,.JBHRL,.JBHSA,.JBHSM,.JB OPS
	EXTERN	.JBO@VL,.JBPFH,.JBREL,`.JBSA,.JBSYM,.JBTPC,.JBVER
	EXTER N	.JBHDA,.JBHRN,.@JBREN
> ;END IF2`0

	.DIRECT	FLBLST
DIRECT	FLBMQ
PMQxXPMQQ:MQP MR]P MR]@Q MRuHhP MR}IP MS

@Q MS'P MVt= H$R
 IF2,<IFH NDEF A,<EXTERN H@A>>
 .ARGN.=0
 H`IRP B,<.ARGN.=.AIRGN.+1>
	PUSH	P,I L
	XMOVEI	L,1+[-[email protected].,,0
		    I` IRP B,<B>]
	PJUSHJ	P,A
	POP	PJ ,L
 PURGE	.ARGN.
 PURGE	.ARGN.NDP NHP NLP NPP OI  @O

@ @O&` `OO OO

@ @OfL@ On @O  `O0  O>|H\ O $z
	POPJ	P,

	POPJ	P,ONt{  Qf@ +QeK` K`$v
 IFNB <LB>,<
  IFDIF <BL ><.>,<
	ENTRY AL@
	SIXBIT /B/
L`A:
  > ;END IFDIMF

  IFIDN <B>M <.>,<
	ENTRY A.M@
	SIXBIT /A./
M`A.:
  > ;END IFNIDN
 > ;END IFNBN 

 IFB <B>,<
N@	ENTRY A
	SIXBIN`T /A/
A:
 > ;END IFB

 > ;Qb` P)

	IFNB p<C>,< PRINTX ?HXL used with more 0than 2 args - A,P B >

	%%BTS==p<B> & 7B2
	%%IDX==<<B>_-^D18> &0 77	;Get index fiPeld if any
	%%LFpT==<B> & ^O777777
	IFE <%%IDX>,<0PRINTX %Index is Pzero for HXL A,pB >

  IFE <%%BTS & 3B1>,<
	PRI0NTX ?HXL ERROR - PB
  >
  IFN <%p%BTS & 1B0>,<
	HRL	A,%%LFT(%%IDX0)
  >
  IFN <%%PBTS & 1B1>,<
	HLpL	A,%%LFT(%%IDX)
  >
T(%%IDX)Qc  0*-

	IFNB  P<C>,< PRINTX ?HX pR used with more !than 2 args - A,!0 B >

	%%BTS==!P<B> & 7B2
	%%ID!pX==<<B>_-^D18> &" 77	;Get index fi"0eld if any
	%%LF"PT==<B> & ^O77777"p7
	IFE <%%IDX>,<#PRINTX %Index is #0zero for HXR A,#PB >

  IFE <%%B#pTS & 3B1>,<
	PRI$NTX ?HXR ERROR - $0B
  >
  IFN <%$P%BTS & 1B0>,<
	H$pRR	A,%%LFT(%%IDX%)
  >
  IFN <%%%0BTS & 1B1>,<
	HL%PR	A,%%LFT(%%IDX)
  >
T(%%IDX)QcP p)Q

	IFNB <C>,< PRINTX ?HX0RE used with moreP than 2 args - Ap, B >

	%%BTS==<B> & 7B2
	%%I0DX==<<B>_-^D18> P& 77	;Get index fpield if any
	%%LFT==<B> & ^O7777077
	IFE <%%IDX>,P<PRINTX %Index isp zero for HXRE A,B >

  IFE <%0%BTS & 3B1>,<
	PPRINTX ?HXRE ERRORp - B
  >
IFN <%%BTS & 1B0>,<
	HRRE	A,%%LFT(%P%IDX)
  >
IFNp <%%BTS & 1B1>,<
	HLRE	A,%%LFT(%%IDX)
  >
T(%R5]P  RX`P RXhP @R$:P R-j P Sv@P S
  	IFN FT10S  IFN FT20SNp @S*5`Q S,t[RP S,t\YP S,tk9P S,tk:P S,u

pP S,u

vP S,uwP S,uyP S,u]P S,uk6P S,v)1P S,v[TP S:'Q S<Q S>.,@ i'7@

 IFN Fi@TSHR,<
  IFN $NAi`ME$-'ERR',<
	PUSjHJ	P,E..A
	XLISj T
	.PSECT	F.ERR
  > ;END IFN NAMj`E-ERR

  IFE $NkAME$-'ERR',<
	PUk SHJ	P,[
  > ;ENDk@ IFE NAME-ERR
 >k` ;END IFN FTSHR
l
 IFE FTSHR,<
	l PUSHJ	P, [
 > ;El@ND IFE FTSHR

El`..A::

	IFG <mC>,<N..C==:'A' m >	;DEFINE ERROR Nm@UMBER 
					;(LIm`NK CATCHES MULT DnEF ERROR NUMBERS)n 	


 IF2,<IFNDn@EF %ERARG,<EXTERNn` %ERARG>>
 IFNB o<F>,<	MOVEI	T0,%o ERARG-1
oIRP Fo@,<	PUSH	T0,F		>
 >; END IFNB
 IpF2,<IFNDEF %IOERRp ,<EXTERN %IOERR>>p@
		PUSHJ	P,%IOERp`R
		BYTE	(7)"D"q(10)^DB,^DC(9)q G
		XWD	'A',0
q@		ASCIZ	\E\

q`
 IFE FTSHR,<			]r	>
IFN FTSHR,<
  IFN $NAME$-'ERr@R',<
	.ENDPS
	Lr`IST
  > ; END IFsN NAME-ERR

  Is FE $NAME$-'ERR',<s@		]	>
 > ;END IFN FTSHR
END IF+=&@0 .LuX!l0,O,C*70 IRP BS?P S?X@P 

SC& P SJK@P SJY@P SJmP SJd[@P SKL@P UND  !.
  IF2,<I@FNDEF E..IJE,<EXT`ERN E..IJE>>
	ERCAL	E..IJE
 ERX@ YtYP YtI1P YuVP YukwP Y
`Q Y  t'<


 .ARGNt .==0
 IRP D,<.At@RGN.==.ARGN.+1>
t`
	PUSHJ	P, [
	 uIFNB <E>,<	PUSH	u P,[-1,,E]  >
	 u@IRP D,<	PUSH	P,u`D   >
			PUSH	P,v[.ARGN.]
			PUSHv J	P,FORER.##
			v@BYTE	(7)"B"(19)0v`		;'ERROR ARG BLOwCK'
			XWD	'A',w 0
			ASCIZ	\C\
		  ]
 PURGE .ARGN.
 PURGE .AYePQ Y&hQ  Y>

@ (i
	IFNB <0C>,< PRINTX ?LOADP used with more tphan 2 args - A, B >

	%%BTS==<0B> & 7B2
	%%IDXP==<<B>_-^D18> & p^O77	;Get index field if any
	%%L0FT==<B> & ^O7777P77
	IFE <%%IDX>,p<PRINTX %Index is	 zero for LOAD A	0,B >

  IFE %%	PBTS,<
	MOVE	A,	pB
  >
 IFN <%%B
TS & 1B0>,<
	HRR
0Z	A,%%LFT(%%IDX)
P
  >
  IFN <%%B
pTS & 1B1>,<
	HLRZ	A,%%LFT(%%IDX)0
  >
  IFN <%%BPTS & 1B2>,<
	%%%pS==<%B>_-^D30	;S

ize of field
	%%

0%P==<%B> & ^O77	

P;"P"
	LDB	A,[PO

pINT)%%%S,%%LFT(%%
  >
X),%%%P]
  >
YB%@P @YJ,8SPDYNv[@PFTP 1[tqP [tvP [t*7P [tK8P [tXQP [u3P [&v[TQ |[>$PQ [?7 "
 IFE <<`B>&777777000000>, <MOVEI A,<B> ;>@  IFE <<B>&00000`0777777>,<MOVSI A,(B) ;>  IFE << B>_-22 - 777777>@,<HRROI A,<<B>&`777777> ;>  IFE < <B>&777777-77777  7>,<HRLOI A,<<B @>_-22> ;> 			 MOVE A,[B]
 MOV]?(Q @]J,0P _v@P _*5`Q _,tqP _,t{P 	_,t)QP _,t+P _,t+P 
_,t8`P _,tI7P 
_,tI;P _,tJ0P _,tJ9P _,tJ9P _,t\YP _,tj6P _,tkP _,tkyP _,uwP _,uyP _,uHVP 

_,uJ6P _,u[ZP _,u[rP _,v2P 

_,v9P 	_,v

WP=,v)1P[,v)2Pi,v+`P ,v-PKP JY@P JmP Jd[@P K|`P KL@P `@ `D@ `H@ `L@ `P@ a$:Q aQ a+= 5a2-`P a>Mm J`$VPOINT WID(B),A,POS(B)(aHt]RP aHuyP aJ~@P 3c}Q @cv@Q c;}Q dU F $2<RADIX50 0,A><RADIX50 0ek Q e<Q eNO) P eNO-`Q @ePtj<P ePv<P ePvh9P g6 P 
g6@P g6`P g6P 

g=Y7 F`$<
  IFDEF G$SEG$,<.ENDPS>
	G $SEG$==1
	.PSECTG@	F.AB
	$NAME$=='A'
 $NAME$=gPtJ9P gPui;P gPu{P gPv8yP gPv[UP gR-P ?gR@Q gR\I3 E $*DEFINE A <-B(P)>INE A gR^h9 !$&
 .L==0
!  IRP A,<.L==.L+1!@>		;COUNT ARGS
 !`.N==0

 IRP A,"<
"IFNB <A>,<
   STKDEF (A,\<"@.L-.N-1>)	;DEFINE"` NAMED ARG
  > ;#END IFNB
  .N==.# N+1
>@;END IRP

	ADJSP	P,.L		;#`ALLOCATE STACK SP$ACE
 DEFINE UNSTD K <	ADJSP P,-.L >D@	;DEFINE DEALLOCAD`TOR
 PURGE .N
OR
 PURGE .N
gR~) 
	IFNBP<TX ?STORE with more than 20 args - A, B >

	%%BTS==<B> &p 7B2
	%%IDX==<<B>_-^D18> & 77	;G0et index field ifP any
	%%LFT==<Bp> & ^O777777
	IFE <%%IDX>,<PRINTX0 %Index is zero fPor STORE A,B >

IFE %%BTS,<
	MOVEM	A,B
  0>
 IFN <%%BTS & P1B0>,<
	HRRM	A,p%%LFT(%%IDX)
  >
  IFN <%%BTS & 01B1>,<
	HRLM	A,P%%LFT(%%IDX)
  >p
  IFN <%%BTS & 1B2>,<
	%%%S==<%0B>_-^D30	;Size oPf field
	%%%P==<p%B> & ^O77	;"P"
	DPB	A,[POINT %0%%S,%%LFT(%%IDX),%%%P]
  >
X),h@@ hD@ hH@ hL@ hP@ hT@ iPQ i4tYP i4tK8P i4uRP i4v>9P i@,:P i@,<P i@,LP i@,LP i@,LP i@,LP i@-ZP i@-HVP i@-J:P i@-KsP i@.<P i@.<P [email protected]P iB

y P iSNpQ iX O`%>

 TITLEP A  B
 FSRCH
P 
 VMAJOR==<VMINOP@R==<VEDIT==<VWHO=P`=0>>>
%VWHO==0

 IRPC B,<

Q   IFLE <"B"-"A">Q@*<"B"-"Z">,<VMINQ`OR==VMINOR*^D26 +R "B" - "A" + 1>

  IFLE <"B"-"R@0">*<"B"-"9">,<VR`MAJOR==VMAJOR*^D8S + "B" - "0">
S 
SIFIDN <B><(>,S@<%VMAJOR==VMAJOR
		VMAJOR==0>

T  IFIDN <B><)>,<T VEDIT==VMAJOR
		T@VMAJOR==%VMAJOR>

  IFIDN <B><-U>,<%VMAJOR==VMAJOU R
		VMAJOR==0
	U@	%VWHO==-1>
 > ;U`END IRPC

 IFN V%VWHO,<VWHO==VMAJV OR
	    VMAJOR==V@%VMAJOR>

 DEFIV`NE VER <
	BYTE	(W3)VWHO(9)VMAJOR(6W )VMINOR(18)VEDIT
 > ;END VER

 W`PURGE %VMAJOR,%VWHO
%VMAJOR,%VWib B $
    IFE B@<<B>&77777700000B`0>,<TRC A,<B> ;C>     IFE <<B>&0C 00000777777>,<TLCC@ A,(B) ;> 			  C`  TDC A,[B]
   DC A,[B]
  ib @ $
 IFE @@<<B>&77777700000@`0>,<TRCA A,<B> A;>     IFE <<B>&A 000000777777>,<TLA@CA A,(B) ;> 			A`    TDCA A,[B]
ibCA A,[B]
 IFE >@<<B>&77777700000>`0>,<TRCE A,<B> ?;>     IFE <<B>&? 000000777777>,<TL?@CE A,(B) ;> 			?`    TDCE A,[B]
ibCE A,[B]
 IFE <@<<B>&77777700000<`0>,<TRCN A,<B> =;>     IFE <<B>&= 000000777777>,<TL=@CN A,(B) ;> 			=`    TDCN A,[B]
ibpCN A,[B]
    IFE *@<<B>&77777700000*`0>,<TRN A,<B> ;+>     IFE <<B>&0+ 00000777777>,<TLN+@ A,(B) ;> 			  +`  TDN A,[B]
   DN A,[B]
  ibt ( "N
 IFE (@<<B>&77777700000(`0>,<TRNA A,<B> );>     IFE <<B>&) 000000777777>,<TL)@NA A,(B) ;> 			)`    TDNA A,[B]
ibtNA A,[B]
 IFE &@<<B>&77777700000&`0>,<TRNE A,<B> ';>     IFE <<B>&' 000000777777>,<TL'@NE A,(B) ;> 			'`    TDNE A,[B]
ibuNE A,[B]
 IFE $@<<B>&77777700000$`0>,<TRNN A,<B> %;>     IFE <<B>&% 000000777777>,<TL%@NN A,(B) ;> 			%`    TDNN A,[B]
ibxNN A,[B]
    IFE :@<<B>&77777700000:`0>,<TRO A,<B> ;;>     IFE <<B>&0; 00000777777>,<TLO;@ A,(B) ;> 			  ;`  TDO A,[B]
   DO A,[B]
  ib| 8 #N
 IFE 8@<<B>&777777000008`0>,<TROA A,<B> 9;>     IFE <<B>&9 000000777777>,<TL9@OA A,(B) ;> 			9`    TDOA A,[B]
ib|OA A,[B]
 IFE 6@<<B>&777777000006`0>,<TROE A,<B> 7;>     IFE <<B>&7 000000777777>,<TL7@OE A,(B) ;> 			7`    TDOE A,[B]
ib}OE A,[B]
 IFE 4@<<B>&777777000004`0>,<TRON A,<B> 5;>     IFE <<B>&5 000000777777>,<TL5@ON A,(B) ;> 			5`    TDON A,[B]
icPON A,[B]
    IFE 2@<<B>&777777000002`0>,<TRZ A,<B> ;3>     IFE <<B>&03 00000777777>,<TLZ3@ A,(B) ;> 			  3`  TDZ A,[B]
   DZ A,[B]
  icT 0 #
 IFE 0@<<B>&777777000000`0>,<TRZA A,<B> 1;>     IFE <<B>&1 000000777777>,<TL1@ZA A,(B) ;> 			1`    TDZA A,[B]
icTZA A,[B]
 IFE .@<<B>&77777700000.`0>,<TRZE A,<B> /;>     IFE <<B>&/ 000000777777>,<TL/@ZE A,(B) ;> 			/`    TDZE A,[B]
icUZE A,[B]
 IFE ,@<<B>&77777700000,`0>,<TRZN A,<B> -;>     IFE <<B>&- 000000777777>,<TL-@ZN A,(B) ;> 			-`    TDZN A,[B]
jZN A,[B]P k;-PQ  kNmP m`P 5m~+zP o& P 	ov@P oC& P oJt;ZP oNO P oR

 P q
f@ q-`P 4q6|I Q q6~i4 C 	
dHX 8 
		HRLI	XA,(POINT 7,) ;Alwxays assume local BP
	ume local 	 x'J
	EXTERN x E..A
IFB <B>,<x@	PUSHJ	P,E..A >
IFNB <B>,<	PUSHyJ	P,[PUSH P,[-1,,y B]
			JRST E..A] >
JRST E..	Nu f &>
	IF2,<IFf@NDEF E..SNH, EXTEf`RN E..SNH
	   IFgNDEF %HALT, EXTERg N %HALT>
	PUSHJ	g@P,[PUSH P,[-1,,%Hg`ALT]
		   JRST E..SNH]
 JRST E
`P 
{P 0Q 

4@P 
e;@P 
e<}P 
ej`Q pQ 

@Q 

,hzQ 

NK@PQx`Pv;Pv;	P$(2P-`Q.`PNdPN<Qd[@Pl,`PmyQ MSQ 

2MPP 3m6P 3'Q 


6|IQB:~PP ;X`P >mP >Tk@Q ?L@P ?+P ?-3P ?;ZP ?I7P ?yP ?

HtQ B Q C}P F=zP FmQ Fv=zQ J,9VQ 	JxQ KRP K[P NlP Nl	P Nl	P Nl
P O$Q R Q 

SrP S'`Q Vd[@P Vv[ P W;ZP Z.+@P ^

L@P ^mP _L@P _@P _$@P b<[@P bmyQ EH1P F(1P S@P $hhP $hiP $hiP $khP $m(P $m)P %P %{P %LRP %LzP %m6P %y[P ;P !>}{woP