?>2CX H Z$O= ?A>G"8.^.R:OQ >G?8 0DA9>P>ODA?K2?]? ?(?0?9?;?H0P$HPH-H$D+,1D8(H?L?-EBH(DRDBBHAZWHH-\BL *PL(?.RRR:A[7H)A+9F8DK78!HG<(*88!HGXG;X0M!84=X+888X+I XO.RFHLO>(+ : HOXOI X&H$X H %^8!LO> +]P P&+L*LO<(+!8!X&SA/AH&8A*LOH%X%P++BX%M]< *)/AGVM 8!HOXO/*F8I\[52B$)BHLA-[/0BHBIBJBKDRDS >HIJJC,G,AX.%Z-Y%XX"I XOH-9J8JAW8!XL(AV> -6LO>(+;&%ULOH"X"P+*ZH.> *3M]< -TH$%^> H&>(-6H,P.-THOX!I %UM 8!HOIS?-RL!\O: H!X!;$HOXOH!91H*> *=I X!H*XOH$%^\OP$P!+NMQ\O8A%U\OHO]P: M!]!L(H,\(%O-NLO9!X!HH&:H<(8PH!:PH!8!H&>8+Z2C,X >")>")Z<6")JK??")J%??")J???")KY??")^P??")&P??")6P??"):P??2I.(]PL&2AO=8![<2IJ.Z=N)[;R)N)[:R)K;[GK:[92AOG2I GOG2A8!OG>(+HZ=*7$$OP>DAQ> +[$$OU+]$$O*I18 [J/?O>Y,O=Y-O<[CBI,IBY?M?Y(Q?M?[;2IJ>DAQ> *(*2K5 *:E 6*7D8F?H/3/JDEC/X8JOB MODULE MAINDEC FLD PRI STATE CNTRJOB FLD CNTRSVM/CRCKW]N&\1]IN CCA0A-A,MR>DAH>(*H2C: .GK2\.L6MX2IN&J&Y?I?Z& ?:O ?6N ?&M ?^LI?> *Q>D8F?H*D$$S+J&$+$,*DJ\Q)2II)2B >/=OP+YNAY ?N8J>PK>K> = (*.I0H>H4Y0O6H?XO5Z5[:S9*]2IR.2I$ =3S"Y"/[I18 XHY)I Y /ROTATE JA,?CC?3A.A/A0S/CBCA?5TBTAZJP*JJ[>JA[= ZX2I\IJXH>ZXS<*X H>Z&2ILIJ&H>Z&J&8!JX> *2H4Z&S<*$S>S=*VI18 [H>Z>J>8!JX> +NH4Z>S<*>.B: JXHJA[;9LH(<(*]K>>(*2(/;KLC:K9> *;KL=K6[5/5KLC4IY> /3KL=K2[5/5KLAE9H8JK1[5/5: $ <,P?<(WW<)WZY" 02C// 02C-YIK$(O.AE9H8J$)$-/]$ <.]\<5][Y"OC>EQ+XPXHX)GCAXG8X=C<[H*>I9D8FAEH4Z"Z/I8D: A"*6*5D8F2$>P24I8D: A" *:8A0Y*0^AXIH\-L-I6< *02C,UI^<(*6I!> *8$,*:L-$(N R <(+C=+KL-> +H\$N Z L$. :R *::L-IU=+HH>=H+H+C=IL$(/TZIJI8J8HTJIT/YZTJT8J8J8JYJTY$-/"]H;:AJ$(J8 [TII$(ST+5/-B2;4AK$(IK$(/9]FZ 2LH4ZS2AL.> U80!N(> *J; ^(J 0&;2I.N)8!N*>(*J2TH4Z2A0BN(>(*%J+2C/ZXZ8 XJ = < ;[$HJ> +((+.2AHJ :2I2B 9Q + PHX*!K.C,IH[.K.C5K7[0 >[-K- <*3K. -K.AQ>(+J >[/K/ <*>K/ =*>K/ 0K/[0;K.K4>X+W :[2K2 0;AK- 9+]K.8F?8AK0 9 :[3K.C+8!IR> + K2 0K8XLK3/-8=? A?"9$ !!"J"U"^"%"^A (8AYO68!K/> PRU.U[RO^[Q",R^.^[RO [Q",R%.%;$KR8!KQ=H*791KV>PR,;.,">KJ[N.9;J?[M Y.>SM/Z">SN/[WX8 Y/WA>A?E^ ^Q^R ^!$"J 0 -HZC7SY/Y *:HZ.3C%V$=/(*,/% ]=S(D/+:??:?&X?(*1O?HV>(:AHVZ;H[XRO><(J;<(*U =>(*^LR8A>(*8J;> *^LRXVK(LR>(/6PRPR*U8!XPLR<(.=HP>(+IPRPR+LR.= 52" 4/MH^K3 2B/PU<(/V[M M/V 1/\[$L[K0>(L[(/0K/H]XW;V .: -9F8FC,LW\W2AHZK+<( *XZ/)HGG&J $;HG^:&0" ?8 [6[3[2S2S3*EK3< S6S4* =: C8[5: C8C49D[2: C88 C48 [3: C48 C88 C38 K28!K5> S4*. =I][2K^[3K)K^[3KS2+MW?8 =*A"3V\&()^&&& &R& &Q24 ?3/O>ZIK= <2I2ISK; : 9 ?2(/6K; :HX :HY : ?3B 51D. 51L.$ 51T.(LS]NNB [MP]RLR9TSASR=PSE\7TAK4XP2A:PPLP<(+S 3>H+D(/>"Y = <"CECW"*""B[ ; :.EO9X\K8 7K6 5H\[..YNR<(. 4*$K.XMK.8 H\>(/32ALM2I 4HM8 H\>(.**2"Y =HZ<(+!K2<(+HK1> /32A\\2I"CECW"*"H\[. ; ="B[CECR"*""B[CY++"CECB"*""B[CY :.<(A%S?]=D)0.& ?;./=?<98:L!X;LP3.0.( ? > =: Z5Z62C.33:R5*RIHZ7K * N7C:Z8J78H>X*!R79J82C.I8 Z68 J7Z7*]Z6N7C9Z8R7N7C99J JJ88J8JR7* <+C3BUPON ".", TYPE "SAVE (DEV) (FILE)" - - -4O 35MO2>(O1>(/82A !2I 0A/Q 0A/]H2I 33J: 34&: 343 33=J0JZ8S8>>O(:???R&0)02CX H Z$O= ?A>G"8.^.R:OQ >G?8 0DA9>P>ODA?L-2I\-: $ <;2IY"$ <-2NY" ?$$20K>[=I18 [<( =K<<("K;P2A :2IO9X\2A: O8Z 7<(*3K6ZAJAC>> /5JA8!J?H+G2AO42I8F>X+MJA9F8DZA2AO4C3JA 42AO42IC2<(+JK19HP2A 0O08!O:2I>(+J /1[.B /1%*3 /1].B /1.*3XQXPHQK.PP=+TK-[": HP<(K,K+ *K"/PK)2A (2I/"1!!:?0?0:?6)T1[H8?G??P3=P G0 <91] ?(:9?80KNOTFUNDIKAD-B2I.I2B$VD????Z\>D;< ZO"I0B2B$1.R?=K?Z&$$$-$"* [,; [+ >K-[.K1XN$,K.$*$-$!*2<(+9D8F\NS.*2[+\N(PZ"; Z^I!Z +O;$Z^I!Z +OZ^Z "R; 0BZP(DRQ8JO<(+\ZP(DKT(DZQK+>(+MK/ =/(+"/(/?*GJ >O=>(*XJ =>(/?N1O /9R0*X 8/?G8?PJ+2A^*2IR*.,KLZS.8 >/3N /1(<(/18 <(+S8AO:> /1(Z)(:K0XNK0 8(Z+J+ 68D /+&J+ /+&+[J).<2AN*2IR*/(MS:G?:[81:Y :*:?;D7T7H6"7B6!7,6 7%LMULTTYDIKLA-A2I.I2B$VA????2LHPZYJP>(*[H*>R7R7*6J7:ILR7R7&7K DSDWDODIW=H+PK$?H+S:IK DKD8A[XIM XWX+^KXZ^* SXOXSX+W?>>9??>L0AN0F?<0FB0AH0FJ0B8Z<:/?$,$$:A =I ZIK W=RI+P(PQ$-$!+HZHO"S"XOLOZ+LOJZZ?]? ?(?0?9?;?0B?CAG*C3C5C7AF?*($$GO$!* 9F8D >E"$$GX$"*(Y18AI19DI18 Y4I1> 8 +DK; :K9 8K; 7K9 6 5+JK4 3888 2$$G =+J/1: 0 /+"$$G% =+S+ : / 0K; .K-/ ^ 0 //, PF?+:XP;&X JAD0DN[EPEQ^H^VNG2JF9XXXWS,$$E T*O *(K? ;K? :K? 9KQ8 CO> *3K= 8K? 7K6 5KPCR>(*=K? 4K= 3K? 2KSCR> +EK? 1K? 0KPKO> +MK/ .K? 5$,/-??????8E$ < E\<2E]E^STST/T?=3/3032?=353638 MP? TS?FQL6:NUMLMTMRL8OS=AOQL OUL%LZO$(* Z]*XIS >88J,ZQ.8XEK= >NDC: %WC:$%IL[?I18 [>H4Z5"6Y,I XJJ5 =HRY,K */S?S>Z5*N :S?S>H9 9K?=9D8FY)I)K8 7:HZY,8 XJI)H4 =I)I]> +ZK6Y,8 XJI)H4 =I [5Q)I) 4+): I)8J>X9VI XJI0 =S5+\.6I/KB0JK<(*Z2B$R*Z$Z"^+7!*+*WDAG>(*5I;Z2DAR> 2 ,X; Y$0A*T0B: Y2I8<(Q *IQ(*II=Y I>Y(2J,&<(L2>($2.NK98*U: C"XD0C?H+?I$9D=H,XAEH4[PI$:H5Z N H: \HI\HH\HI"\H[!,X,SA4 +?0\0&: Y9L2>($2K!> *<;8A8D: A"2$0A,X Y2H]X\$$R2A$$S>$ <7P4<.QA<5Q<-S =>P=1X+=.P-=;P*T$$SZ$ < .Y/$$S^.G$$Y5: Y : Y(.G$ EI.Z8(, /E2LHP[=I:< +0EI.[]I/8AY:(*?I78!J > *52L8!J>(*8J I!, N 0AZJ2A: Z&.C: Y82LZJ Y7N 0AZJZ&2LH4ZM2A9VJM^D&E.FJJ> +X$$TO+Z$$TR$$TUI7AYZK"LNK2A$*$$TZJG\$RKJK^H"L.I2A$$T]J9H8J$)$$T JKIAXK"LLK$+LKXK2A$$T$I7AY8 HKIH$+$$W:8AI7XK ?LK$+$,IP[9Y$,I [L[KO>>(*2SKCD>DAB> *2SL* : [L>DAC> *2JZ[99VI7XK ?LK8!HKXKYI7XKO>> +CO=>(+AR+A$$WMKK$+$,0BY80B>DAD> $2DACI\> SR/RLK<(+1[6IO[7J,U0GY9Y2K?XA > = < ;: :: 9: 8: JIHZ(K7Z*2K.YLGY&Y8HCXA$2,X0&Y2$$X&$[*EPFBLA.$$Y3$"+ [.K.8!I1?H, K.9D8FH4[,$, Y:$-+M:2A$+$ =3PM=6YIYLQ::P+U: $, [.$%+K.]:2A$-IK$(K,AE9H8J$)I:$+*>: $ I0[,$, IYI,Y:$,+U *:8A0Y*0^AXIH\-L-I6< *02C,UI^<(*6I!> *8$,*:L-$(N R <(+C=+KL-> +H\$N Z L$. :R *::L-IU=+HH>=H+H+C=IL$(/T.QZIJI8J8HTJIT/Y3SZTJT8J8J8JYJTY$-/"Z7;:AJ$(J8 [ II$(ST+5/-BM;4AK$(IK$(/9[6Z 2LH4ZS2AL.> *U80!N(> *J; ^(J 0&;2A.N)8!N*>(*J2TH4Z2A0BN(>(*%J+X+ M5U5D;< ZO"I0B2B$1.R?9?=SI+C7%R**6"IZ 7"K?*L9D> *.8 [IIQJZKJ7&J(7*L2LHP[G[I(DJ%=Z%J"8F8F:$Z*J"ZJ"AH9HJ%OKSKZ%J!AEJ%Z%J&9AZ(IQ8DJ%[J: 0B[IJ$7$J%7&J&7(D/KJ)/:N=!]!OR\8J]J 9D =8!O<>(.!"VO>BZ0O;[B B : 5 7.!8!O4<(.! 6: O3XLO2AEH4/BO1AG>(IHIHO> >O0C\> 79(// ?O20B2B$//]YZEB M$0OEG- $8O3M -(H&^ ^%^!^$^"^^Q^R^(^*^)0RZ^^I ? >>D8H>X*[ 1= =O=KV?H*FO=KW? *F 1 P*[OP*Q .CY<(*!AHIQKE ; /O?AY : 9 8Z*8*BO4CT>( 5O4CU>(SS*8+D 7 7??Z!F 8[](W68A7"/3*[ $I ; 9^ ! K^I!B L^$^"^&^%^Q^!O?8!JH>(."I*A>D8J:PO?<0*U> >0B2B$0 ?.IO=.W$$^AIOZIE8A (/JSJ$-$*\/J$,JI$($-$"*\:RI/S]"Z90Z41L!X2O]G^AJ(I.E D)3"A7=K+/$I$.$W1,^&^%0 :^)WV^"!]^!BRANMRIDIKAB-A2A.I2B$VE????JO<(*XZP(DJR(DK?Z]$$(PZQ 6 :[.K. ;*!;K.IR>X*!K.C,IH[.K.C5K7[0 >[-K- <*3K. -K.AQ>(+J >[/K/ <*>K/ =*>K/ 0K/[0;K.K4>X+W :[2K2 0;AK- 9+]K.8F?8AK0 9 :[3K.C+8!IR> + K2 0K8XMK3/-8=? A?*9,()!*J*U*^*%*&A (8AYO68!K/> PRU.U[RO^[Q",R^.^[RO [Q",R%.%;$KR8!KQ=H*791KV>PR,;.,">KJ[N.9;J?[M Y.>SM/Z">SN/[WX8 Y/WA>A?E& &Q&R &!,*J 0 -*E1J;*L0 F9(W&JR"<]32=6, TS>T EGE1Z$U]6 ,P6(V 2;=/: 5AZ<)SY4+1H^)]EL]WMF^20=%K!2A(+/WODDZY5/?B C KY: GK 2WX0J5>]K*2S89RD1^IS>F+CJS =,9MHB6ZZWGDVL65-^S4UA"XXW+Z>F;>NJ HXJ.PG*Q,-&(RC^T(IL:B[ J/O;IH??C PB8H,^9:K,G!5KEY*X*A66*AKCGH%2^-I(2<9%+Y>0+ *&&&6)>C 3AA]IC)Q;!15?*+Z6F,//\F0HT=9&W^)F" TM:K^ 3M1/WLM+I*H^X\$,$$HB$ <>.L<0HF1/$%$$/2K0$*$$HC$ <0HF<;1/.Z: ?>H, K0Y- >I*[ I.[*K12K 1: I)8J>P;$I!XK =H*/O< ; =+R ,K:& 8S82A*6,[8K8C7> +O[9PK*6AA?:??BZ5A4?4RR9RG< WLH >WLHXKHK >WHK>(/=Q% <2L<(*%K;H4Z!9VI.K7XJI*8AWI)=I[SLH<(/5[7LH > 4\(*M8G*W9VKBI/[B >OBBKK+ B2AQ:*DQ0*CB* HDNLH[BQ:* Q0*^B*355NLH[BQ:*+Q0** =I)],I,H?XJI*\JHJH:XJI-\JI-/<2(LH<(/BSBY0OB[K$$HSB/B2DLH[+K+$+IN$($-$ =33 3[: $+S[++VLHY:/N2LO[*KB ; = :8GG S/4VH4ZJ9VI.2A =IS <2AW;.Q.M/X:[: 9Z=J=K8?(*^S:8 *TK:> *UJ=IY=H*(> .R*;: 9Z>J=J>Z?J?KA[AJ=9F8F8FJ>[K>(/?/=8989);0;7(+)[6 ?K69F8F8FC9[7K 9J8J8JC:K78B8!K6< A< Q< [0$$$-$"+1[8(PB??6(6R6Q6A6ZDMRI08ADIKAA-A2A.I2B$VC????JO<(*XZP(DJR(DJ Z]$$(PR]. "RIYZ]. "(:AHE DEC/X8 USERS GUIDE "PREFACE" FOR ADESCRIPTION OF THE CHANGES FROM REV A TO REV D.INPUT VIA OS/8? HSR?CONSOLE READER ASSUMED. PMK-02?OUTPUT VIA OS/8 USING F ?8 [6[3[2S2S3*EK3< S6S4* =: C8[5: C8C49D[2: C88 C48 [3: C48 C88 C38 K28!K5> S4*. =I][2K^[3K)K^[3KS2+MW?8 =*A"3V\:(=^:&: :R: :Q Note: Lines longer than 256 characters were wrapped