@CAT,P 1047-001-001.,///10000 @ASG,T TEMP.,///10000 @ELT,OI TEMP.1047-001-001,,,130505053241,000 )@@G@@**PF**@@@[],@@@@@@@@@@@[@#W@@@]FE@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@@AB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AC )@@G@@@@@@@@@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@AE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AG )@@G@@@@@@@@@@^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AI )@@G@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@E@@CAN )@@G@@SSG @@@@@#@@[@@@PCFELT @ @@@[[@@@])@@@@W@DUEBQLDS6@@@@@^@@@@@ BV )@@G@@BQLDTOBQLDW+@@@@@^@@@@@ BQLDK^BQLDW2@@@@@^@@@@@ BQLDU8BQLDZ,@@@@@A@@@@@ BW )@@G@@BQLDU/BQLD))@@@@@^@@@@@ BQLDX*BQLD)1@@@@@A@@@@@ BQLD-*BQLD+W@@@@@^@@@@@ BX )@@G@@BQLDUKBQLD+=@@@@@A@@@@@ BQLDXKBQLD_@@@@@A@@@@@ BQLD&&BQLD&3@@@@@A@@@@@ BQLC?/BQLD&%@@@@@^@@@@@ BZ )@@G@@BQLD*\BQLD*6@@@@@A@@@@@ BQLD-)BQLD*8@@@@@A@@@@@ BQLD)"BQLD%C@@@@@^@@@@@ CA )@@G@@BQLD$LBQLD%U@@@@@^@@@@@ BQLD%LBQLD%(@@@@@A@@@@@ BQLC9RBQLD%9@@@@@A@@@@@ CB )@@G@@BQLD@UBQLD%,@@@@@^@@@@@ BQLD-YBQLD?B@@@@@^@@@@@ BQLD:&BQLD?L@@@@@A@@@@@ CC )@@G@@BQLD?^BQLD!C@@@@@A@@@@@ BQLDL5BQLD,I@@@@@^@@@@@ BQLDJUBQLD,Q@@@@@^@@@@@ CD )@@G@@BQLD%-BQLD,;@@@@@A@@@@@ BQLD\CBQLD\P@@@@@A@@@@@ BQLD,NBQLD\?@@@@@A@@@@@ CE )@@G@@BQLD!*BQLD0?@@@@@A@@@@@ BQLDCNBQLD1&@@@@@^@@@@@ BQLD)?BQLD2F@@@@@^@@@@@ CF )@@G@@BQLD2.BQLD3,@@@@@A@@@@@ BQLD2NBQLD4)@@@@@A@@@@@ BQLD2/BQLD4T@@@@@^@@@@@ CG )@@G@@BQLD$2BQLD42@@@@@A@@@@@ BQLD3YBQLD6]@@@@@A@@@@@ BQLD4ZBQLD6G@@@@@A@@@@@ CH )@@G@@BQLD44BQLD6X@@@@@A@@@@@ BQLD3"BQLD6'@@@@@A@@@@@ BQLD>.BQLD7]@@@@@^@@@@@ CI )@@G@@BQLD8)BQLD8*@@@@@A@@@@@ BQLD8]BQLD8(@@@@@A@@@@@ BQLDYYBQLD;#@@@@@^@@@@@ CJ )@@G@@BQLD73BQLD;>@@@@@^@@@@@ BQLD4[BQLD;=@@@@@^@@@@@ BQLCWBBQLD/B@@@@@^@@@@@ CK )@@G@@BQLD:RBQLD/!@@@@@^@@@@@ BQLD;1BQLD.<@@@@@A@@@@@ BQLD"^BQLD"A@@@@@A@@@@@ CL )@@G@@BQLD*HBQLD_)@@@@@A@@@@@ BQLD_+BQLE@A@@@@@A@@@@@ BQLE@FBQLE@<@@@@@A@@@@@ CM )@@G@@BQLD_6BQLE@0@@@@@A@@@@@ BQLD_3BQLE[[@@@@@A@@@@@ BQLD;,BQLE[8@@@@@^@@@@@ CN )@@G@@BQLE]MBQLE];@@@@@A@@@@@ BQLE#@BQLE#E@@@@@A@@@@@ BQLD.HBQLE#J@@@@@^@@@@@ CO )@@G@@BQLE#NBQLE^:@@@@@A@@@@@ BQLE^MBQLE -@@@@@^@@@@@ BQLE^DBQLECI@@@@@A@@@@@ CP )@@G@@BQLD5BBQLECN@@@@@^@@@@@ BQLE@!BQLEDU@@@@@A@@@@@ BQLD;,BQLED>@@@@@^@@@@@ CQ )@@G@@BQLEEGBQLEFG@@@@@^@@@@@ BQLEF_BQLEH)@@@@@A@@@@@ BQLE#XBQLEI#@@@@@A@@@@@ CR )@@G@@BQLE#?BQLEIP@@@@@A@@@@@ BQLE@6BQLEI)@@@@@^@@@@@ BQLEIPBQLEI4@@@@@A@@@@@ CS )@@G@@BQLEG?BQLEJS@@@@@^@@@@@ BQLEI!BQLEJ3@@@@@^@@@@@ BQLEG#BQLEJ8@@@@@A@@@@@ CT )@@G@@BQLEJPBQLEK[@@@@@A@@@@@ BQLEE*BQLEKC@@@@@^@@@@@ BQLELUBQLEM?@@@@@A@@@@@ CU )@@G@@BQLEBBBQLEM9@@@@@^@@@@@ BQLEETBQLEND@@@@@^@@@@@ BQLEM(BQLEN+@@@@@A@@@@@ CV )@@G@@BQLD>^BQLEOE@@@@@^@@@@@ BQLEF;BQLEO8@@@@@A@@@@@ BQLEO-BQLEPE@@@@@ @@@@@ CW )@@G@@BQLEQ+BQLER)@@@@@A@@@@@ BQLEP$BQLESN@@@@@A@@@@@ BQLESQBQLETA@@@@@A@@@@@ CX )@@G@@BQLEAXBQLET-@@@@@A@@@@@ BQLES.BQLEU[@@@@@^@@@@@ BQLETRBQLEUQ@@@@@A@@@@@ CY )@@G@@BQLET>BQLEVR@@@@@A@@@@@ BQLD9RBQLEVW@@@@@^@@@@@ BQLEUFBQLEV/@@@@@^@@@@@ CZ )@@G@@BQLE^8BQLEW @@@@@A@@@@@ BQLEXDBQLEXH@@@@@A@@@@@ BQLET"BQLEXY@@@@@A@@@@@ DA )@@G@@BQLEXXBQLEY]@@@@@A@@@@@ BQLEX2BQLEZL@@@@@A@@@@@ BQLEWBQLE@@@@@^@@@@@ DF )@@G@@BQLEJEBQLE>H@@@@@^@@@@@ BQLD.IBQLE>Y@@@@@A@@@@@ BQLE=0BQLE>3@@@@@A@@@@@ DG )@@G@@BQLE<6BQLE>;@@@@@A@@@@@ BQLEO@BQLE&S@@@@@A@@@@@ BQLE>\BQLE&$@@@@@A@@@@@ DH )@@G@@BQLE<2BQLE&"@@@@@A@@@@@ BQLDF9BQLE$+@@@@@^@@@@@ BQLC0PBQLE$,@@@@@^@@@@@ DI )@@G@@BQLE*DBQLE*F@@@@@^@@@@@ BQLE$EBQLE*T@@@@@A@@@@@ BQLE>YBQLE*I@@@@@^@@@@@ DJ )@@G@@BQLE*VBQLE(D@@@@@A@@@@@ BQLD3?BQLE(&@@@@@^@@@@@ BQLEY4BQLE(2@@@@@^@@@@@ DK )@@G@@BQLE(CBQLE%$@@@@@A@@@@@ BQLE*2BQLE:[@@@@@A@@@@@ BQLEV_BQLE:H@@@@@^@@@@@ DL )@@G@@BQLE&.BQLE!V@@@@@^@@@@@ BQLE,FBQLE,?@@@@@A@@@@@ BQLE,0BQLE,5@@@@@A@@@@@ DM )@@G@@BQLE!WBQLE,8@@@@@A@@@@@ BQLD=IBQLE\Z@@@@@^@@@@@ BQLE&1BQLE\(@@@@@^@@@@@ DN )@@G@@BQLE\&BQLE\'@@@@@A@@@@@ BQLE\9BQLE0Q@@@@@A@@@@@ BQLE\FBQLE0Y@@@@@A@@@@@ DO )@@G@@BQLE&/BQLE02@@@@@A@@@@@ BQLE)EBQLE00@@@@@^@@@@@ BQLE1BBQLE1D@@@@@^@@@@@ DP )@@G@@BQLE)/BQLE1@@@@@@^@@@@@ BQLE?$BQLE1H@@@@@^@@@@@ BQLE0_BQLE1L@@@@@A@@@@@ DQ )@@G@@BQLE1RBQLE19@@@@@A@@@@@ BQLE2]BQLE2 @@@@@A@@@@@ BQLE2SBQLE3F@@@@@A@@@@@ DR )@@G@@BQLE!*BQLE3L@@@@@A@@@@@ BQLE$MBQLE4O@@@@@^@@@@@ BQLE1VBQLE4?@@@@@^@@@@@ DS )@@G@@BQLE4KBQLE5[@@@@@A@@@@@ BQLE?PBQLE5=@@@@@A@@@@@ BQLE5VBQLE6$@@@@@A@@@@@ DT )@@G@@BQLEG\BQLE7^@@@@@^@@@@@ BQLE?]BQLE7\@@@@@^@@@@@ BQLD>&BQLE88@@@@@^@@@@@ DU )@@G@@BQLE8LBQLE93@@@@@^@@@@@ BQLE6 BQLE'/@@@@@A@@@@@ BQLE8\BQLE;G@@@@@^@@@@@ DV )@@G@@BQLE6]BQLE;7@@@@@^@@@@@ BQLE80BQLE;+@@@@@^@@@@@ BQLE;!BQLE;7@@@@@A@@@@@ DW )@@G@@BQLE_=BQLF@P@@@@@A@@@@@ BQLE;ABQLF[I@@@@@^@@@@@ BQLF[ZBQLF[?@@@@@A@@@@@ DX )@@G@@BQLD9)BQLF]G@@@@@^@@@@@ BQLF] BQLF#[@@@@@A@@@@@ BQLE8BQLFOJ@@@@@^@@@@@ BQLFN7BQLFPD@@@@@^@@@@@ EE )@@G@@BQLFOTBQLFPM@@@@@A@@@@@ BQLFO4BQLFPQ@@@@@^@@@@@ BQLFA5BQLFP&@@@@@^@@@@@ EF )@@G@@BQLFPXBQLFQO@@@@@A@@@@@ BQLFQRBQLFQZ@@@@@A@@@@@ BQLFK:BQLFQ!@@@@@^@@@@@ EG )@@G@@BQLFPYBQLFR[@@@@@A@@@@@ BQLFQ?BQLFRB@@@@@A@@@@@ BQLFQ(BQLFRE@@@@@A@@@@@ EH )@@G@@BQLFRLBQLFRT@@@@@A@@@@@ BQLFR=BQLFR4@@@@@A@@@@@ BQLFP%BQLFS]@@@@@A@@@@@ EI )@@G@@BQLFS^BQLFSK@@@@@A@@@@@ BQLFR%BQLFT^@@@@@A@@@@@ BQLFSSBQLFT2@@@@@A@@@@@ EJ )@@G@@BQLFQVBQLFUZ@@@@@^@@@@@ BQLFRPBQLFU.@@@@@^@@@@@ BQLFI0BQLFVJ@@@@@^@@@@@ EK )@@G@@BQLE2TBQLFY#@@@@@^@@@@@ BQLF-2BQLF+4@@@@@A@@@@@ BQLE;;BQLFT@@@@@^@@@@@ BQLF$6BQLF*'@@@@@^@@@@@ BQLF=3BQLF:P@@@@@^@@@@@ EM )@@G@@BQLF:0BQLF?7@@@@@A@@@@@ BQLF>[BQLF1M@@@@@^@@@@@ BQLF1IBQLF2B@@@@@A@@@@@ EN )@@G@@BQLF(-BQLF2<@@@@@^@@@@@ BQLF?-BQLF27@@@@@^@@@@@ BQLF23BQLF2/@@@@@A@@@@@ EO )@@G@@BQLF=JBQLF4L@@@@@^@@@@@ BQLF0%BQLF5$@@@@@^@@@@@ BQLF1\BQLF5"@@@@@^@@@@@ EP )@@G@@BQLF,4BQLF7]@@@@@^@@@@@ BQLF1SBQLF8F@@@@@A@@@@@ BQLF65BQLF9#@@@@@^@@@@@ EQ )@@G@@BQLF9HBQLF;?@@@@@^@@@@@ BQLF8ZBQLF;,@@@@@A@@@@@ BQLF2XBQLF/*@@@@@A@@@@@ ER )@@G@@BQLF'*BQLF/2@@@@@^@@@@@ BQLF.YBQLF.>@@@@@A@@@@@ BQLF3&BQLF.=@@@@@^@@@@@ ES )@@G@@BQLF%IBQLF.5@@@@@^@@@@@ BQLF8@BQLF"S@@@@@^@@@@@ BQLF;-BQLG[ @@@@@^@@@@@ ET )@@G@@BQLG@&BQLG[.@@@@@^@@@@@ BQLG VBQLG '@@@@@^@@@@@ BQLF9^BQLGA)@@@@@^@@@@@ EU )@@G@@BQLGC BQLGC2@@@@@^@@@@@ BQLF/!BQLGDL@@@@@A@@@@@ BQLGE*BQLGF7@@@@@A@@@@@ EV )@@G@@BQLGE!BQLGG]@@@@@^@@@@@ BQLGF6BQLGGI@@@@@A@@@@@ BQLF;RBQLGGQ@@@@@^@@@@@ EW )@@G@@BQLGE9BQLGG1@@@@@^@@@@@ BQLF;IBQLGJ'@@@@@^@@@@@ BQLFT7BQLGNX@@@@@A@@@@@ EX )@@G@@BQLGK4BQLGN_@@@@@^@@@@@ BQLGNWBQLGP%@@@@@^@@@@@ BQLGP$BQLGR4@@@@@A@@@@@ EY )@@G@@BQLGM@BQLGS+@@@@@A@@@@@ BQLGS;BQLGTH@@@@@A@@@@@ BQLGTGBQLGT)@@@@@A@@@@@ EZ )@@G@@BQLGR\BQLGT0@@@@@A@@@@@ BQLGSWBQLGT6@@@@@^@@@@@ BQLGR_BQLGT3@@@@@^@@@@@ FA )@@G@@BQLGP/BQLGU:@@@@@A@@@@@ BQLGN0BQLGU1@@@@@A@@@@@ BQLGE?BQLGV<@@@@@^@@@@@ FB )@@G@@BQLGR0BQLGV:@@@@@^@@@@@ BQLGV,BQLGV_@@@@@A@@@@@ BQLGV>BQLGWJ@@@@@A@@@@@ FC )@@G@@BQLGV(BQLGWM@@@@@A@@@@@ BQLGW2BQLGW;@@@@@A@@@@@ BQLGWJBQLGX\@@@@@A@@@@@ FD )@@G@@BQLGX*BQLGY$@@@@@^@@@@@ BQLGX?BQLGY)@@@@@^@@@@@ BQLGZ[BQLGZH@@@@@A@@@@@ FE )@@G@@BQLGY6BQLGZ+@@@@@A@@@@@ BQLGW7BQLG+@@@@@@^@@@@@ BQLGY:BQLG-_@@@@@A@@@@@ FF )@@G@@BQLG-KBQLG<]@@@@@A@@@@@ BQLGH'BQLGBQLG>C@@@@@^@@@@@ FI )@@G@@BQLGSDBQLG>C@@@@@^@@@@@ BQLGW\BQLG>X@@@@@A@@@@@ BQLG=-BQLG>>@@@@@A@@@@@ FJ )@@G@@BQLG>>BQLG&]@@@@@A@@@@@ BQLGO-BQLG&+@@@@@^@@@@@ BQLG=3BQLG$\@@@@@A@@@@@ FK )@@G@@BQLGNHBQLG*]@@@@@^@@@@@ BQLG$;BQLG*E@@@@@A@@@@@ BQLG--BQLG*G@@@@@^@@@@@ FL )@@G@@BQLG=6BQLG*P@@@@@^@@@@@ BQLG$,BQLG*?@@@@@A@@@@@ BQLGMZBQLG(L@@@@@^@@@@@ FM )@@G@@BQLGEBBQLG(Z@@@@@^@@@@@ BQLG%EBQLG:W@@@@@^@@@@@ BQLGQ1BQLG:1@@@@@^@@@@@ FN )@@G@@BQLG:4BQLG?A@@@@@A@@@@@ BQLG:]BQLG?4@@@@@^@@@@@ BQLG(SBQLG,C@@@@@A@@@@@ FO )@@G@@BQLG(9BQLG,Z@@@@@^@@@@@ BQLG>6BQLG,7@@@@@A@@@@@ BQLG!7BQLG,5@@@@@^@@@@@ FP )@@G@@BQLG]_BQLG,"@@@@@^@@@@@ BQLG,IBQLG0-@@@@@A@@@@@ BQLG\FBQLG05@@@@@A@@@@@ FQ )@@G@@BQLG>"BQLG04@@@@@^@@@@@ BQLG2C8E@]W[^E@[ 9?E@[-9*E@#OC8E@]@[^E@[TC8E@K#[^E@[ZFW )@@G@@C8@[$0(@E@@][@E@@]C8@@@S(CE@@#[CE@@#9?@@-"(@E@@D9*E@@DC@E@@@=@@@+@/K@@DZFX )@@G@@C8@[$&(@E@@^[@E@@^(@E@@B[@E@@BC8@[$)(@E@@ [@E@@ C8@[$<(@E@@A[@E@@A1K@@DZFY )@@G@@/K@@D&C8@)@[0W@@D+'=@@[\C8@@@[[)E@]GC8E@LWC@K@+['=@@@4C9@@@+8@@__/^K@R>GI )@@G@@/K@@FX @@@@H;=@@@A%8K@@ /K@@R>/^@@FT/^@@FE0@E@@I'=@@@AC@E@G<[@E@GV*0E@]GGJ )@@G@@/K@@F3/,0[%X/K@@F7[@%@@WC4H@@[C8K@@[=8@@@)[4U@]H=8@@@K[0U@]HC@E@@@=@@@+]GK )@@G@@[0U@]HC8E@@R'=@@@[C8E@@FC8K@@Q[0W@@#/K@@GL[@@@[#CC%@]^C@U@@@=@K@+D=8)@@[GL )@@G@@/K@@R& @@@@G/,0[%X/K@@R)C@E@@@ @H@@[C9@@@K>@@@+]C9@@@@[5H@@[[1E@]H^@.@@@GM )@@G@@C@E@C\[@H@@]C8E@@FC8K@@C[0W@@#C8E@@R[@?@@ [0W@@#'=@@@[ @E@C\'=@@@?[@E@GXGN )@@G@@;G@@@S;*@@@M;?@@@A;)@@@G[@E@HPC@E@#Q[@E@]S*?E@]H/K@@G)C@E@@@>@@@+E/,K['#GO )@@G@@(^E@] /K@@G'NDE@]#8L@@G=R9E@#N&9@@@#9?^)@#/@@@G9/@K@G9:@E@GV/K@@G9C4U@GXGP )@@G@@?0O@@[G8K@@GH0O@@[?^U@] /K@@G9C8O@@@L8U@#Q;O)@@=W8)@@#G^%@]#/,@[6YC8K@@CGQ )@@G@@[0U@@I8L@@G&C8E@@F'=@@@#C8K@@K[0W@@#C8E@@R0@G@@#'=@@@A[0W@@# @E@G<'=@@@WGR )@@G@@/^@@HBC8@CNF'=@@[&[@E@@[*?E@]H/K@@HVC8E@G<[^E@[5C8@@IV[CE@[5C8@@Z([^E@[4GS )@@G@@C@E@HV/@@@HV @E@G@@@+HN@0@);N8K@@*C8E@@@C@K@+['=@@@4GX )@@G@@C@E@@@+@E@LW/@K@IX8KK@IL/K@@IOC8K@B4'=@@@0/K@@IDC^%@]Q;CY@@@/=K@IS'=@@@QGY )@@G@@C@E@]Q'=@@@V/K@@IC[@E@[? @@@[#C@@@-$'=@@@JC@@@-:'=@@@JC8E@[.&;@@@#'=@@@JGZ )@@G@@C@@@[#*@@@@G/,'K@^C@E@[?R]'@@CB,;@@@C@E@HXG@E@HZ/^@@I0C@@@)^C8)@@@/K@@I2HA )@@G@@C@@@)KC8)@@[[^%@[?C@U@@@>8K[@@/,'K@^C@@@@I'=@@@5C8@@@[[CE@[?/K@@I$%@@@-8@@@[/,0@+8/,0['1/,'K@^ 4E@]E*^E@]E'=@@[NC8E@@F0@G@@#'=@@@AC0W@@#IX )@@G@@%8K@@P/K@@S[C8K@@Q[0W@@#'=@@@#C@@@+M/K@@IVC@U@@@=8K@@[>@@@+N/K@@SC/K@@SH14 0&^@)E(3G*)^LD^K)H90I-(H9,^[(G0)JD\I*)I9(IT*^[4KK )@@G@@H8)HD,IT>IL4^[(I),^0)^@)DDD^@&^[:G(9HD,^[2G(G))G12H9!^[\I[>IL-I-\KL )@@G@@IK,^0)DD=G(,I)'^@)DT>JC_^@@@@@C92H95I@)^0)H(>IT3GD$G*)G1(H->^[(H1(I-(GD?KM )@@G@@HD'G(= 0&^@)E9-IL,HD,G8-^@!^[!G(3IT-G9>^[4IL5H1^[,H8)CTJD1AEK)H(>IT3GD$G(3 0)@[$@Z.E-*G(2G*)GD2G*)CTJD1AEK)H(>IT3KO )@@G@@GD$G(3^[7GD(I-(H1$^[&H92^[9H95 0)^@)@[:@) DD^^[4GD+H->^[&I(?H)) *)I[?G(-KP )@@G@@IT>^[H(3^[0IL\G92GD!H(>IL3 0)@],@)L L F[DE))G1\KQ )@@G@@IL@)> K% K)CTGDDNE)=^[3KR )@@G@@I--I->H(>H14^[(G9,H92G(=^@!^[2G(4JD0G*) K% K)^@)@]F@):C(,G))CT\H1&G(2G(,KS )@@G@@GT>^@)@[=@)7D(>H(\IL-H1=GC'^@)@]<@)/C(,G))H9&^[!G(!H92GD,G--@]=@-@DD,I->KT )@@G@@IL2I(0I))IL>GT>HD6G(=^@)@[>@- CT\H1&G(2G(,GT>^[3JD3I->H*)G(2IL\IK) *)I[?KU )@@G@@G(-IT>^[(H1&H92H*)DDNC))@]:@-FB-#D9IC1M^93^[D (+GD,HS)H[-IS)GL>G(,^[2G(?KV )@@G@@H9-G->G)"^@)@]D@-RISD 0001 @FREE CONFR$1 @@#@-=@FREE CONKW )@@G@@FR$2 @@#@-*@ASG,CPI CONFR$1/&.,F40/&//& .& @@@@@ZCONFR$1 @@@@@@KX )@@G@@@@@@@@@@@@@@@@@@@@))@@@@@@@@@@@@@@@@@@[@XG@@@@@@CONFERENCE$ @)@@@@@@[@@UKY )@@G@@@@^@@@@@)@@@@[@@@@@@[@@N@@[@[^@@[[';DUFF @@@)@@@^@@@@@@[@L0@K@@@@@C@@@@KZ )@@G@@@@[@@@@@_@@@@@ @T4]@@@@@@@]@@@@@C@@@@@C@M.@@E@@#@@D@M.@@Z_________C8.@@@LA )@@G@@;G@@@M;CK@@M&;@@@[&;K@@[/K@@+-')G)LG )@@G@@;CI@@@)8@@@[9?@@@HG8K@@[T@K@<";CK@@+;C)@@=;?!@@@G8)@@0')])*J'G@@<2'G@@<2LH )@@G@@'G@@<2;C)@@=;?)@@#/K@@<%;C@@@[/@F@@@C8)@@)')])*J;S@@@G;*@@@[;CH@@@/K@@<>LI )@@G@@C@K@<_/K@@G80@@[;G@@@#MM )@@G@@/^@@()C8)@@0')])*JC8)@@@;=K@@#G8)@@0')])*J8#0@(>/KF@@@C8.@@@T8K@@#;GH@@@MN )@@G@@H80@@[/K@@(>&'0@@0/K@@(4C8K@@@&'0@@)N8X@@@C80@@@;O@@@=W8@@@EE/X@@@;?)@@AMO )@@G@@G8.@@08KK@(//^@@(6/C@@%[;?)@@AG80@@!8KK@%[9?@@@IC@0@@F;C0@@M/K@@%BC@)@@JMP )@@G@@')])*J8KK@% +8K@@_')])*J;G@@@A/^K@%C/KF@@@[@@@%ZC@@@%5'=@@@I(C[@@^/K@@%OMQ )@@G@@RE1@@^ C[@@^A^K@%Y[@@@%ZC8@@%X'=@@[QC8@@@@/K@@*%C@@@%6'=@@@I'=@@@QA$PKT MR )@@G@@8@G@@@@@@@@@***** ADIT$: ATTEMPT TO STORE OR LOAD OUTSIDE OF IMAGE ***MS )@@G@@** ***** ADIT$: QUARTER WORD MODE REQUIRED ***** @@[@@@^@)^@)@[F@%)MT )@@G@@@]C@%:C8G@@@;G@@@=W8@@8KC8?@@@C8H@@@/\K@:CC8)@@'')])*J;G@@@=W8@@@/C8?@@@MU )@@G@@C8H@@@/\K@:CC8)@@'')])*JC8?@@@C8V@@@;G)@@=W8)@@EC8,@@0')])*JC8\@@0')])*JMV )@@G@@/KH@@@C8G@@@&'0CDH?8@E<@/K@@:PH8@E<@&'0E[H;G@@@=W8@@8KC8?@@@C8H@@@/^)@:VMW )@@G@@C8)@@G;G)@@=W8)@@E/@)@:)C8,@@0')])*JC8\@@0')])*JC8)@@'')])*J;G@@@=W8@@@/MX )@@G@@C8?@@@C8H@@@/\K@:CC8)@@'')])*JC8?@@@/\K@:CC@@@@F;C@@@M&;@@@)/K@@(O;C@@@MMY )@@G@@+8@_@@;GK@@0/\K@:CC8)@@\')])*J+8@@_@;GK@@%/\K@:CC8)@@\')])*J+8@@@_K8K@[@MZ )@@G@@/\K@:C/KF@@@;C@@@M+8@@_@;GK@@%/\K@:CC@K@@G;CK@@GT8K@@#C@X@!-C80@@#;)K@@DNA )@@G@@+8K@B_')])*J8#0@?DC8)@@)')])*J+8@@@_K8K@[@/\K@:C/KF@@@AE1@@^;C@@@M[@@@[[NB )@@G@@;C@@@GT8@@@#9?G@!-/,0@(FC@@@[[;C@@@GT8@@@#C@G@!8K@@[=8K@@#/K@@!V?8)@@#H8@@@[;G@@@NJ )@@G@@^[EI(?@@@@@@@@@@[9^[[I($@@@@@@@[5IT4^[NG(0@@@I->H(+G(2^[JGT4@@@@@@H9+G(2NK )@@G@@^[IH96@@@@[>H(+G(2^[^G(<@@@@[>H(+G(2@@@@@@@[NI(,@@@@@@@[HH9,@@@@@@E-5G(3NL )@@G@@@@@E9>G-,G(3@@@@[OH[5IL3@@@@@@@[AIL(@@@@[NGD4I(2@@@@@@@@@@@Z@@@@@;@@@@[UNM )@@G@@@@@@[8@@@@]R@@@@]5@@@@#O@@@@#3@@@@^L@@@@^0@@@@ I@[=GD9CW?@0P')])*J/KF@@@NN )@@G@@C80@@ /K@@,(C80@@F;^@@[]+8K@@_%8)@@ :8)@@@/K@@,1CW,@0P%8)@@@')])*J8#0@,(NO )@@G@@/KF@@@C80@@ /K@@,6C80@@F;^@@[]+8K@@_/@)@,/CW,@0P%8)@@@')])*J8#0@,6/KF@@@NP )@@G@@C@K@1PC80@@FAE1@@^R'0@@@+8K@@_%8)@@ /K@@\EO'0@@A;G@@@A8#0@\]RE1@@^/KF@@@NQ )@@G@@;?F@@@RE1@@^;^@@[]+8K@@_CW,@0P')])*J8#0@\G/KF@@@C8.@@@;G@@@M;CK@@M&;@@@[NR )@@G@@&;K@@[/K@@\V')G)0FCW,@0P')])*J8#0@\S/KF@@@C8.@@@;G@@@M;CK@@M&;@@@[&;K@@[NS )@@G@@/K@@\%')G)0F:8)@@ /K@@\?/@)@\%CW,@0P%8)@@@')])*J8#0@\%@@^0&&@@^)$'@@ K*(@@ @()@@^*%*@@BK:+@@B8?,@@OA )@@G@@^C!-@@ ),.@@F)\/@@A@00@@AC11@@AK22@@AS33@@A)44@@A*55@@A066@@A877@@B@88@@OB )@@G@@BC99@@^8':@@BS;;@@ 8/<@@ 0.=@@^K">@@F8_?@@ @@?@[@@@?@[V@@?@[X@@?@@@@+@@'@@,@@_@@-@@-@@.@@?@@/@[W@@0@@0@@1@@1@@2@@2@@3@@3OG )@@G@@@@4@@4@@5@@5@@6@@6@@7@@7@@8@@8@@9@@9@@:@@$@@;@@;@@<@@\@@=@@,@@>@@+@@?@[ZOH )@@G@@@@@@@@@@A@@@@@B@@@@@C@@@@@D@@@@@E@@@@@F@@@@@G@@@@@H@@@@@I@@@@@J@@@@@K@@@OI )@@G@@@@L@@@@@M@@@@@N@@@@@O@@@@@P@@@@@Q@@@@@R@@@@@S@@@@@T@@@@@U@@@@@V@@@@@W@@@OJ )@@G@@@@X@@@@@Y@@@@@Z@@@@@[@@@@@\@@@@@]@@@@@^@@@@@_@@@@@@@@@@@A@@@@@B@@@@@C@@@OK )@@G@@@@D@@@@@E@@@@@F@@@@@G@@@@@H@@@@@I@@@@@J@@@@@K@@@@@L@@@@@M@@@@@N@@@@@O@@@OL )@@G@@@@P@@@@@Q@@@@@R@@@@@S@@@@@T@@@@@U@@@@@V@@@@@W@@@@@X@@@@@Y@@@@@Z@@@@@[@@@OM )@@G@@@@\@@@@@]@@@@@^@@@@@_@@@CDBK)^0)^@)CD^@)^@)^@&D1>I1>IK)^@)ON )@@G@@^@)^@&E[-IL4JC)H-(H1>BK)^0)^@)C->IT4HD,GD4HD\H0'^@& [,H9,G*(^0)^@)C12H9!OO )@@G@@BK)^0)E-\BK)^0)^@)D(>H(\^[4H8'^@&^@)C->H--JD>G))H(>H(\^[4H8'^@&^@)^@)CT\OP )@@G@@I(,I)'^@&^@)ET5GL$IL\I(0^@&^@)^@)H[-IS)^0)H(>IT3GD$G(3 ))^0)H(>H(\IS?^@&OQ )@@G@@^[=G(?GD9G(=^[!G(!H93 0&BK)CD5I-\ (=G(?G(4G*)GD&I->IK)^0)H(\H14H[3 ))D(>OR )@@G@@H(\^[!GD8BK)^0?^@+DC+^[\I[4HD\H0)^1\HS&^@)H1\I))^0)^@)^[^0)^[(IS)GD,^[5H1:H1\I9,^[GD=G(2^[\H1?JC&^@)CT\H(!GD,G))G(2IL\IK)^@)OU )@@G@@@[=@4,ET9H14GD8^[>IL2H92BK)^[NI(+G92H95I@)IT0G(G9-OV )@@G@@H))G1\IK)I-*HD3^[IL2H92BK)^[RH[>H0)H(5H-4OW )@@G@@HD0H->^[(G)$IS)GD2G*)IT0G(G)?^[4H[>^[$IL\I(0^[,GD!G*)H9&^@)@]1@5^OX )@@G@@I-*G*)G1(IL3I))HD=^[(H(0H-(G(3^[4H[>^[$IL\I(0^[,GD!G*)H9&^[4H[>^[\I-*G(2OY )@@G@@IS,^@)ET0G(G),^@)@[,@5*ET9H14GD8^[>IL2H92PA )@@G@@@[<@57E[-IL4JC)H-(H1>^[\I1>IL&H-\I8,^@)E-*G*)G1(IL3I))AS7^[(G-3^[7HD?H))PB )@@G@@GL>^[5IT>G),@[!@5;D1\^[=G(3I-(H1-I-(H9,^[3I[>GT(G1(G(= 0)^@)@]$@6D K%^@)PC )@@G@@@]-@6L@[-@6L LGDDNE))CTJD1AEK= LCC(GE@,^0)D[ D-K^)&^@)C(SE[GCDDD0=^0)^@)PD )@@G@@AC [@@[]1CKEY #@@@;MCLR [@@[F8CM [@@[F'CON #@@@;\EDIT @@@[J9PE )@@G@@END @@@@8FEXIT @@@@SMHELP @@@@82INS #@@@'[KEY [@@@98LAC [@@@_EPF )@@G@@LC [@@[ ULIST @@@[RZMEMO @@@[GJND @@@@9,RCV [@@@.ARMV #@@@'4PG )@@G@@SEND @@@[RXSTAT [@@[)TSUB [@@@.WTD @@@@96TO @@@[C$WATCH [@@[)VPH )@@G@@ @E@C$ CE@C% 4E@]9 0E@]9C8K@@[[CU@GNC8G@@@G8E@G+[@E@C&C@0[JSC8%@G<&;)@@[PI )@@G@@[@%@C*[@'@C(C@E@]TC@U@GL9*E@HKC@E@C\[@E@HM/,K[%"/K@[JC/K@@7>/K@[JC:9@@@:PJ )@@G@@/K@@8V*@E@C,/K@[JCC@K[JTN8K@@S[@E@C$2@H)@]/K@[I3C6X@@[(0E@]G/K@@73='K@@[PK )@@G@@/K@[I1>'K@@]/K@@78C@'@GV%@'@]S/K@[I\%9@@@!/K@@7.[1E@]9C80@@ [*'@C%/KHK@[PL )@@G@@9?U@HK[@U@]T[@%@GLC@U@HM[@U@C\/K@@7IC@@@5#/,'K@^9?E@HK[@E@]T[@U@GLC@E@HMPM )@@G@@[@E@C\ CE@GN 4E@]G/K@@LA&'K@@@/K@@8L&'K)@@AA'@]9C@E@C,/,K[*@/K@@8A/,0[%0PN )@@G@@RA'@]91@@@@D/KF@@@C@E@C:/K@[%X*@E@C\/K@@8^/,0@8K/K@[I*C@E@C,(@@@@GC@E@GWPO )@@G@@[@E@GLC8E@@X*@E@]TC8E@@\0@G@@#'=@@@A[@?@@ /,0[?[C8E@@X*@E@]TC8E@@\R W@@^PP )@@G@@O9K@@[ CE@GN/,@[0?/K@@8AC;0@@@/,0[H=C;0@@[/#0@8;%9@@@*/K@@9M/,0[H=/K@@9MPQ )@@G@@C;0@@@N8K@@SR]0[JT[@E@C$2@F)@]/K@@9BC6V@@[>'K@@]/K@@9MC@'@GV:@'@]S/K@@9MPR )@@G@@/K@[I\C8@@4Z/,K[I5C@@[JU[@E@C$/K@@9MC@@@6K/,'K@^*=E@C%/K@@8FC;0@@][$'@C%PS )@@G@@;/E@]EC/E@[6/,0@$%C8@@6O/,0@+"/#0@9XC8@@6T:;0@@]C8@@6V/,0@+"/K@@9ZC@E@C$PT )@@G@@/,0@,&/,0['1C8?@@@;C@@@M+8@@@ZN@K@@HG8U@G+[@U@C&Q;E@G<&;@@@[&;)@@[M#I)@@PU )@@G@@ 4E@]E*^E@]E'=@@[N/K@[RZ'=@@@?[@E@GX;G@@@S;*@@@M;?@@@A;)@@@G[@E@HP/K@@8FPV )@@G@@/,K['#/K@@8F/,0[H& @@@@GC[K@@G/,0[?,0@G@@#'=@@@A[[U@HV/,0[?8/K@@8F/,K[%"PW )@@G@@/K@[JC/K@@'E/K@[JC(@E@C,/K@@'EC@E@GW%@@@-+/K@[I?/,0@8K/K@@'KC@E@C\/@@@8APX )@@G@@[@H@@]/K@@'& @@@@G/,0[%X/K@@'1C@E@C:[@H@@@ @H@@[C@E@C\[@H@@]C8E@@X*@E@]TPY )@@G@@C8E@@\0@G@@#'=@@@A[@?@@ C^?@@^&;)@@[C8K[JVN8K@@WM#!)@@C8K@@C[0W@@#'=@@@#PZ )@@G@@C8K@@CC8E@@F*@E@]TC8E@@L0@G@@#'=@@@A[0W@@#'=@@@#C8K@@K[0W@@#/K@@8AC@@@)ZQA )@@G@@/,'K@^/K@@8A/,0[%9H8@@[A[@E@]8/,K[%"/K@[JC/K@@'"/K@[JCC@E@GW%@@@-+/K@[I?QB )@@G@@*@E@C\/K@@8^/,0@8K/K@[I*C4H@@[>8@@@[/K@@;GC@H@@[;*@@@A;C@@@AC[E@]8K9@@[AQC )@@G@@\[@@@G/K@[]1C@E@C,(@@@@GC@E@GW[@E@GL/,@[6Y/K@@8A/,K[%"/K@[JC/K@@;T/K@[JCQD )@@G@@C@E@GW%@@@-+/K@[I?*@E@C\/K@@8^/,0@8K/K@[I*C8E@@X*@E@]TC8E@@\0@G@@#'=@@@AQE )@@G@@[@?@@ C8K@@P[0W@@#'=@@@#C^W@@^ @H@@@C8K@@C[0W@@#'=@@@[/K@@8AAD @/IMM @/KQF )@@G@@IOP@/M/,K[%"/K@@;"/K@@/@ @E@C:C@E@GW%@@@-+/K@[I?*@E@C\/K@@8^C@E@C,/,K[*@QG )@@G@@/K@@8AC@E@C:/@@@/$/K@@/@/,0[H=/K@@/$%9@@@=/K@[JC;C@@@MN8K@@#R]K[JW2CD)@[QH )@@G@@/K@[JCRAT@@@/,0[H,/S@@@@R''@]@*@E@]TR''@K#/KD@@@[^F@@ /K@@/S[CF@@ /K@@/SQI )@@G@@CCV@@^+/K__"C@K@@I(@@@@G)8K@@[[C:@@^:9@@@,/K@@;"/K@@/VC8E@@X*@E@]TC8E@@\QJ )@@G@@0@G@@#'=@@@AC8K@@C[0W@@# @G@@ C^?@@^AA/@@^'=@@@#[^?@@^R'U@]@*@E@]TR'U@K#QK )@@G@@;/E@]EC/E@[6/,0@$%C@E@GW*@E@]TC@E@GM:@@@-+C@@@--/,0@,&C8@@4A/,0@+"C^D@@ QL )@@G@@/,0@(2/,0@+8CCD@@ /,0@(2/,0@+8CCT@@^C8@@4P=8K@@[/,0@+//,0@+8/,0['1/,'K@^QM )@@G@@ 4E@]E*^E@]E'=@@[N/K@@8A/,K[%"/K@@.S/K@@.E @E@C:*@E@C\/K@@8^C;0@@@/,0@8KQN )@@G@@C;0@@[[@E@]UC@E@C,(@@@@GC@E@GW[@E@]V*0E@]H @@@@V[B'@GN/K@@8A ^E@GN @E@]UQO )@@G@@ @E@]V/K@@8AC@@[JX[@E@]. @@@@V/,K[%"/K@@.=C;0@@[/K@@.=C;0@@[[7'@]9 @@@@VQP )@@G@@/,0@8I(4E@]9/K@@.\C@E@C:/,0[%X/K@[I*R'H@@@/,K@"A/K@@"#R'E@#NNDE@]#*@E@]TQQ )@@G@@NDE@KA/K@@"[(@C@@@/K@@"[C@C@@]*@E@C\:@E@C\/K@@"@C0E@C\%8@@@ /K@@"[C4C@@]QR )@@G@@%4E@C\/K@@"[/,K@"AO'@@@#8L@@.4C@@@6N/,'K@^/K@@8A/#0@"MC8C@@@H8E@#Q;O@@@=QS )@@G@@W8@@@#N@K@@GQ''@#Q&'0@@#C@C@@]2@F)@]/K@@"M/KD@@@C;0@@[;/E@]EC/E@[6/,0@$%QT )@@G@@C8@@38/,0@+"C@C@@](@@@@GC@@[JY[@E@C:C8E@C:C8K@@A/,0@\MC/@@@:/,0@,C8@@@#*@E@C\[4E@]9(0E@]9/K@[@IC@E@GW%@@@-+/K@[I?RD )@@G@@C@E@C,/,K[*@/K@@8A/,0[%0;/E@]EC/E@[6/,0@$%C*E@C%:8@@@ /K@[@>/,0[H /K@[J RE )@@G@@/S@@@@ 4E@C%C8@@@#[4E@]9CC%@C%C4E@GXH0E@C%/C@[@@@@[^$@@@[^$/,0@*.[@@@[#/,0['1*@@@[#RQ )@@G@@/,'K@^ 4E@]E*^E@]E'=@@[NC@@@6N/,'K@^/K@@8AC@@[J)[@E@]./,0[%9H8@@[A[@E@]8RR )@@G@@/,K[%"/K@[];/K@[JC/K@[];/K@[JC*@E@C\/K@@8^/,0@8I;/E@]EC/E@[6/,0@$%C8@@3QRS )@@G@@/,0@+"/,0@*.[KE@].C8K@@[[4U@]9R9@@T4&9@@@ N9@@@$*?^)@ /K@[#I8L@[#E/K@[#>RT )@@G@@(C^@@]/K@[#GC@U@GWC@^@@^:@K@-+/K@[#S%@@@@H:@@@-+/K@[#S/K@[#G/,K[:=C@^@@#RU )@@G@@/,0@,&(4E@]H/K@[#8@@@^/K@[^$[@U@];/,K[:-C@U@];C@H@@@/,0@,&/,K[#"/K@[^$/,0@*.H8@@@]RW )@@G@@L8@@@#[@K@[#/,0@*%C/@@@ /,0@,8@@@[/KF@@@C@H@@[;^@@@=+@K[J<;^@@@=C[E@]8K9@@[A,[@@@I/KF@@@C[@@[#)9@@@^SE )@@G@@[[K@[#C9@@@[)[@@[#[[K@[#/KF@@@@30@@ @3!@@#@3:@@[(0E@]9/K@[ 79?E@GV:@K@-+SF )@@G@@%@E@]S/K@[I?/,K[%"/K@[ 0/K@[ =/K@[ 0*@E@C\/K@@8^/,0@8K/K@[I*C;0@@]:9@@@*SG )@@G@@D;0@@]C@U@C,(@@@@HC@U@GW9*E@GT/K@[A]*@E@C\/K@@8^/,0@8IC;0@@#:9@@@*D;0@@#SH )@@G@@/K@[A]9?E@GV9*E@GT/,K[%"/K@[ "/K@[JC/K@[ "/K@[JC/,0@8IC;0@@[:9@@@*D;0@@[SI )@@G@@R9)@@]C;@@@@C'%@]8C8E@@X*@E@]TC8E@@\R W@@^O Q[ RR.@__"NDE@]#*@E@]TNDE@KASJ )@@G@@/K@[CXO9@@@[C8E@@X*@E@]TC8E@@\C8K@@K0@G@@#'=@@@A[0W@@#C8O@@@T8K@@#G8U@#QSK )@@G@@(@H@@@/K@[CXC^U@]#*@E@]TC^U@KAG8O@@@[@W@@ '=@@@# @@@@PCE @@@ @@@@T @@@@USL )@@G@@C8Q@@@%8K@@]/K@[A,C^W@@^*CH@@#G;@@@[*CH@@ 'N@[J-/]@[CK/,K[4FE@@@@V:8@@@#SM )@@G@@/K@[A;C8=@@@T8)@@#G8%@#Q9?E@GT:@I@@@/K@[A;9/E@]8/K@[CH/BK[BY @E@GO;/E@]ESN )@@G@@C/E@[6/,0@$%E@@@@V:8@@@[/K@[BHC8@@3(/,0@+"A]U@C:C@E@]9/,K[:=R]U@C:C@E@]8SO )@@G@@/,0@,3C/@@@O/,0@*%CCA[ R/,0@+"A]U@C:/,K[:-R]U@C:C8^@@@T8@@@#G8E@#QC@G@@@SP )@@G@@/,0@,3/,0['1/F0[BY'K@[J=/,'K@^ 4E@]E*^E@]E'=@@[NG;K@@[G;)@@[/,T@@@9,@@@KSQ )@@G@@9?E@]8C@%@]'C@'@]/:;K@@[/K@[B/9/E@GO/K@[B%/K@[B//J0[B8C/E@[6/,0@$;C8@@35SR )@@G@@/,0@+"C@@@@UH8@@@[/,0@(2/,0['1/,'K@^ 4E@]E*^E@]E'=@@[N9?E@]8 @@@@U9*E@GOSS )@@G@@ @E@GQ/K@[A./J0[B_9*E@GO/K@[A,9/E@GO/K@[C^9/%@GQ/K@[C^/K@[CD9*E@GO9*%@GQST )@@G@@CCE@];[@E@GS/,K[!TC8E@#@&BE@]./,'K@^/K@[A,/,T@@@9,@@@K/K@[A,/J0[CX/#)[CXSU )@@G@@C/E@[6/,0@$;C8@@35/,0@+"C@@@@U/,0@(2/,0['1/,'K@^ 4E@]E*^E@]E'=@@[N8L@[AJSV )@@G@@/#@[C=C@@@@S;F@@@M(8G@@@P9)@@[8[)[A^C@@@6M/,'K@^/K@@8AC@@[J)[@E@]. @@@@VSW )@@G@@/,K[%"/K@[C\/K@[C9C;0@@_/K@[C9C@E@GL[@E@C,/,0@8IC*E@C%:8@@@+C;0@@[:8@@@-SX )@@G@@D;0@@[/#0[D2/K@[D(C@E@C,(@@@@GC@E@GW[@E@GL/,K[*@/K@@8A/,0[%0 @E@KKC@E@C:SY )@@G@@*@E@C\%;0@@_/K@[D, @@@@VC8'@#NCDE@]#*@E@]TCDE@KAC[U@C\C0E@C\:8@@@ C5U@C\SZ )@@G@@/K@[D=(@J@@@/K@[D=:[Z@@]/K@[DP%5Z@@]/K@[D=*@E@]T/K@[DUC@J@@@:@E@GV/K@[D=TA )@@G@@C8J@@@H8E@#Q;O@@@=W8@@@#C^U@]#*@E@]TC^U@KAG@@@@H[@@@@I/,0[E2G80@@#8^@[DJTB )@@G@@(@E@KK/K@[D9/K@[E%/,K[%"/K@[E%/K@[D,/K@[JK/K@[JK/,0[%X/K@[E*/,0[E2/K@[D(TC )@@G@@:8@@@ /K@[D9%8@@@*/K@[JC @E@KK @E@GK/K@@8FN[E@KKR9E@KL&9@@@]8L@[D.D;0@@[TD )@@G@@;/E@]EC/E@[6/,0@$%/F0[EIC8@@3Z1@@@[^(@@@[^C8@@3/K@[E>[@!@@]TJ )@@G@@G8@@@[[@E@KK/KF@@@/,0[?[R'@[2J/K@[FJR'@[2R*CE@GZR'@[2)A]E@#,R9E@KL&9@@@]TK )@@G@@N[E@KKR'0[,/*@E@]TR'0[,"/,;@@@8L@[FT/K@[FZR'0[\H*@E@]TR'0[\K/,;@@@[@O)@[TL )@@G@@/K@[FRR'0[0S*@E@]TR'0[0U/,;@@@Q9E@KLN[E@KK8L@[F$/K@[F2C8E@@X*@E@]TC8E@@\TM )@@G@@C@O@@@C]^)@[0@G@@#'=@@@A[@W@@ R]E@#,/,C@@@/K@[F>C8E@@X*@E@]TC8E@@\0@G@@#TN )@@G@@'=@@@A/K@@8AR9U@HW/K@[F;R9U@HY/,0[?,0@G@@#'=@@@ACE @@@/]@[GF/,0[,/ @@@@PTO )@@G@@C'%@]8/,K[4 C@@@@O9,@@@K/,0[\9/A@[G]/,0[?8/,0[0S/K@@8FC8K@@Q[0W@@#'=@@@[TP )@@G@@/K@@8F/,K[%"/K@[GW/K@[GN/K@[JC*@E@C\/K@@8^C@E@C,(@@@@GC@E@GW[@E@GL/,0@8KTQ )@@G@@/K@[I*/K@[GXC@%@GKC8E@@X*@E@]TC8E@@\0@G@@#'=@@@A[@?@@ @E@]'/,0[H /K@[JCTR )@@G@@/K@[G*/K@[G1%8@@@-/K@[JCC8@@@*[*E@C%CCE@C%[CE@]'/,0[H /K@[JC/K@[JCC;0@[)TS )@@G@@/,0[?[CCE@C%&FE@]'[@E@GZ @@@@OC8E@@X*@E@]TC8E@@\*@G@@ /K@[G_*@E@KK/K@[FGTT )@@G@@/K@[I%*CE@GZ/K@[H#/,@[2R/K@@8A/,@[2)/K@@8A CE@C%C*E@C%:8@@@,/KF@@]%8@@@*TU )@@G@@/KF@@@A]0@[#/,0[H,C4E@GX!8@@@[!8@@@H/K@[H+[0E@C%/,0[H,C0E@GX!8@@@[!8@@@)TV )@@G@@/K@[H+[?E@C%C?E@GXC0U@C%?4U@GXG8@@@[[4E@C%R]0@[#C*E@C%:8@@@,/KF@@]/KF@@[TW )@@G@@R]0@[#/KF@@@C9K@@[/K@[H$D9K@@[C[@@-<[[E@C:C8E@C:&;@@@[C@K[J>N9@@@A/K@[H0TX )@@G@@C9K@@@ @E@C:C@%@C*C@'@C(')J)@@/H@[H7:9@@@)/K@[H2/K@[H;C9@@@ /KF@@@')J)@@TY )@@G@@/H@[I-;^0@@=CC_@1Q;^0@@=/HK[IV/[K[IM!9@@@A!9@@@)/K@[I^/K@[IB!9@@@0!9@@@'TZ )@@G@@/K@[IF8L@[ID/K@[JC')H)@@/K@[H9C8G@@@C8X@@@:8K[;J%8E@C:/K@[ILP'0@@[/K@[I+UA )@@G@@!9@@@0!9@@@'/K@[I+C@E@C:T8@@@EH9@@@0G@@@@K[@E@C:/K@[H9:9@@@ /K@[I+8L@[IZUB )@@G@@/K@[JC')H)@@/K@[H9C9@@@ [@%@C*[@'@C(E[@@@K[(E@C%C@E@C:/KF@@[/,K[:!/K@@8AUC )@@G@@C@@@6K/K@[I!C@@@42/,'K@^/K@@8AC8@@4>/K@[I4C8@@4R/K@[I4C8@@4ZR'K@8A[@E@]'UD )@@G@@;/E@]EC/E@[6/,0@$%C/@@@*/,0@,IS'^@&D-(H1>BK)^0)C(=HD4^@!^[3JD,I--J@)G(2IL\IK)UI )@@G@@@[>[J!C(=HD4^@!^[IL2H92@[>[J3/,K[%"/K@[KA/K@[J./K@[JCC@E@C,UJ )@@G@@/,K[*@/K@@8A/,0[%0C@E@C:/,0[%X/K@[I*C8Y@@@/K@[KJC@U@GK/@K[I%C^%@]#*@E@]TUK )@@G@@C^%@KAL@K@@IT8)@@#G8%@#QC@I@@@[@@@@JC8E@@X*@E@]TC8E@@\R W@@^C8@@@[:9@@@*UL )@@G@@C8@@@#:9@@@!C8@@@ O[K@@GC@@@@J @@@[ C#0[P.:@E@GVC#0[P" @@@@UC8@__"[@E@KJUM )@@G@@C8E@@X*@E@]TC8E@@\0@G@@#'=@@@A[@W@@ ?E@]GC8E@@X*@E@]TC8E@@\C8K@@P0@G@@#UN )@@G@@'=@@@A[0W@@#'=@@@#C'%@#QCE @@@ @@@@P @@@@T/]@[LC(@E@KJ/K@[L(/]@[LC/,K[4FUO )@@G@@/J0[L]C@E@#Q:@E@GV/K@[L]/,T@@@9,@@@K/]@[LC/K@[K8G;K@@[:#U@KJ/K@[L(/,T@@@UP )@@G@@9,@@@K/A@[K8/<0[LT:;)@@[/K@[M[;/E@]EC/E@[6/,0@$%C8@[J&/,0@+"C@@@@T/,0@(2UQ )@@G@@/,0['1/,'K@^ 4E@]E*^E@]E'=@@[N @E@KJ/K@[N2;/E@]EC/E@[6/,0@$%C8@[J(/,0@+"UR )@@G@@C@@@@T/,0@(2/,0['1/,'K@^ 4E@]E*^E@]E'=@@[NH;0@@[:;)@@ /K@[N2 @E@KJ/#)[N2US )@@G@@/J)[NJ*@E@KJ/,T@@@C@0@@U/KJLL,@@@[M[@@@[M<@@@[M?@@@[L4@@@[N2C@U@C:[@U@KJUT )@@G@@/@K[N2C;)@@ C8E@@X*@E@]TC8E@@\C8K@@Q0@G@@#'=@@@A[0W@@#'=@@@[/K@[K*C]0@@VUU )@@G@@C;0@[)/,0[?[C#0@@RR'0[,/*@E@]TR'0[,"/,;@@@R'0[\H*@E@]TR'0[\K/,;@@@*@@@@TUV )@@G@@C]K@@OC]@@@HR'0[0S*@E@]TR'0[0U/,;@@@/#K[MXN8K@@TC8U@GYC8E@#T&;K@@[&;@@@[UW )@@G@@M#H)@@C'%@#Q/K@[MYC'%@GV/,K[4#C@E@KJG8@@@[[@E@KJ/K@[N2(@E@KJ/K@[N2C]0@@VUX )@@G@@C;0@[)/,0[?[C#0@@RC'%@GV/,K[4I/K@[N2(@E@KJ/K@[M_9?E@#QC@%@#SC@'@#U9,@@@KUY )@@G@@9/%@GQ/K@[M79/E@GO/K@[M7/K@[M/9*E@GO9*%@GQCCE@#T[@E@GS/,K[!TC8E@#Y&BE@#VUZ )@@G@@/,'K@^8LK[N[/K@[N2C@E@KJG8@@@[[@E@KJ8L)[K8N9)@@EC8E@@X*@E@]TC8E@@\C8K@@QVA )@@G@@0@G@@#'=@@@A[0W@@#'=@@@[/K@[K*(@E@KJ/K@[N+R'0[,/*@E@]TR'0[,"/,;@@@/,T@@[VB )@@G@@C@@@@O9,@@@KR'0[\9*@E@]TR'0[\//,;@@@R'0[0S*@E@]TR'0[0U/,;@@@[\U@]GH;K@@[VC )@@G@@8LK[N=/K@[N2C8@@@[(@E@KJ[@E@KJ8L)[K8N9)@@AC8E@@X*@E@]TC8E@@\C8K@@C0@G@@#VD )@@G@@'=@@@A[0W@@#'=@@@[/K@[K*C8E@@X*@E@]TC8E@@\C8K@@C[0W@@#'=@@@[C8E@@<*@E@]TVE )@@G@@C8E@@50@G@@#'=@@@AC8E@@(*@E@]TC8E@@;0@G@@#'=@@@AC8E@@X*@E@]TC8E@@\0@G@@#VF )@@G@@'=@@@AC8E@G<&;@@SM/,'K@ (8G@@@/K@[OB @@@[ CWU@G<:8K@@%/K@@7"C8G@@@G8E@G+VG )@@G@@[@E@C&C@0[P_C8%@G<&;)@@[[@%@C*[@'@C(/,0[H&/K@[P?;C@@@MC@K[Q@N8K@@G2CH)@[VH )@@G@@/K@[P,C^X@@@/KH@@@/,0[H, @@@@G(@@@@GC8@@@[*?E@]GH8@@@[G@E@KJ[@E@KJC;)@@#VI )@@G@@ @@@[ /K@[K*C;)@@#/,0[H, @@@@G(@@@@GC8@@@[H8@@@[*?E@]G/@@[OBN[K@@GN9)@@EVJ )@@G@@/K@[K*D;)@@[/,0[H, @@@@G(@@@@GC8@@@[H8@@@[*?E@]G/@@[OBN9W@@@N9)@@A/K@[K*VK )@@G@@*?E@]G/K@[P%C;)@@]/K@[K* @@@@U @E@KJ/K@[K*;/E@]EC/E@[6/,0@$%C8@[J:/,0@+"VL )@@G@@C@E@KJ/,0@(2/,0['1/,'K@^ 4E@]E*^E@]E'=@@[N/K@[OBG;0@@[C;)@@^C8@__"C@U@KJVM )@@G@@[@E@KJ[@U@C:/K@[K*/,0[H, @@@@G(@@@@GC8@@@[H@E@KJ]@E@KJC;)@@#/K@[K*/,0[H,VN )@@G@@ @@@@G[@E@KJC;)@@#/K@[K*C;)@@[/K@[K*C@@[J2/K@[P\C@@[J8/,'K@^/K@[OBN [O-VO )@@G@@+ [O-G [P>I [P%U [PX- [PXP [O?D [O7R [P]T [PALN [PDNL [PQ@@[@@@VP )@@G@@)@@_0S@@[[';@@[[P0^@)HD?H->G9-H))GT*GD2GDIK)^@&^@)^@)G(?G(!G(,I))H1\VQ )@@G@@I))G1\I(,G),^0)^@)^@)DC\D8)G(2IL\IK)H9,^[KC1N^),^0)^@)^[(IS)H1\I))GC)I[2VR )@@G@@H9$IL-H*)G1(H-> 0&^@)E[AES=^[>IL2H92^@&^@)^[(IS)H1\I))C1-IT4IL-H1=^[&H92VS )@@G@@H(-I),^0)^@)^[!GD9^[,H94^[+G*)IL>GD= 0&^@)^[7H95H-=^[-I[0G(-IK)I-\^[+G*)VT )@@G@@GC)I[2H9$IL-H*)G1(H-> 0&^@)G(?G(!G(,I))GT9GT?G*)H95I))H9&^[2GD,G9> 0&^@)VU )@@G@@^[H))HD!GD$G*) K%@]>[RF K%^[DVW )@@G@@ 9J^[>IL2H92^[2G(-G-(H1$^[&HD?G*) K%@^$[RL@ASG,A CON$FR @@#[RTC;)@@[VX )@@G@@/K@[R)D;)@@[C8E@G<&#E@C&C8U@#9C8%@#,/,0[+)/K@[T9C8E@[.&;@@@#'=@@@J;/E@]EVY )@@G@@C/E@[6/,0@$%C8@[Z;C8K@@ /,0@\M9?E@#O/,0@,*C/@@@,/,0@,-VZ )@@G@@/K@[R;C8I@@[/,0@\MC/@@@*/,0@,-/K@[S]C8I@@[/,0@\M/K@[S^WA )@@G@@C@@[Z//,0@,&C8%@#'C8@[[#/,0[>-/K@[SJN@Y@@[C/@@@(/,0@,-/K@[SV9*U@#,C/@@@//,0@,<9?U@#,C8I@@[/,0@\MWC )@@G@@ @@@[[C8%@#'C8@[[ /,0[>-/K@[S&9*U@#,C/@@@//,0@,<8KK[S)9?U@#,C8I@@[/,0@\MWD )@@G@@/,0['1'O@[Z.'=@@[) 4E@]E*^E@]E'=@@[N/G@[JCC8E@#O'=@@[GC8K@@ *4E@#U/K@[S8WE )@@G@@C@@[RW'=@@@J/G@[UNC8E@#O'=@@[GC8K@@R[0U@["C4U@#U!8K@@S!8K@@)/K@[UVC0U@#UWF )@@G@@+8K@@M/^)[UZC8@[[AC8%@#'/,0[>-/K@[V+9!I@@[?8K@@BC[K@-<9(E@#-WG )@@G@@/K@[TG/K@[TJC[@@-WH )@@G@@9?E@#O9*E@#-C8E@#-'=@@[ /^)[U2C8@[[CC8%@#'/,0[>-/K@[T%C@I@@[[@K@[[ @@@@KWI )@@G@@/K@[T*;=@@@A+8K@@_H8)@@0T9@@@EG9I@@@8KK[T-/K@[V;C@I@@[!8K@@B/K@[I*[@@@[ WU )@@G@@C@E@C,/,K[*@/K@@8A/,0[%0C@@@[ /,0[%X/K@[I*C8Y@@@/K@[WDC@U@GK/^K[WD(@E@KKWV )@@G@@/K@[I% @@@@UN[U@KKR9E@KL&9@@@]8LK[W /K@[Z9C@E@#,[@E@[&[@E@C:C@O)@@C8E@@XWW )@@G@@*@E@]TC8E@@\0@G@@#'=@@@A[@W@@ C8K@@P[0W@@#'=@@@[R'0[,/*@E@]TR'0[,"/,;@@@WX )@@G@@R'0[\H*@E@]TR'0[\K/,;@@@[@U@C?[@U@C!C8E@[-/,0@&1/K@[YPC;@@[@/,0@=Z/K@[YPWY )@@G@@/K@[Y?C@K[Z_%@W@@E/K@[W1/,K[U*C8@[Q(/,0@+"/,0['1/,'K@^ 4E@]E*^E@]E'=@@[NWZ )@@G@@ @@@[ C8E@[-/K@[Y?C4W@@E:8K@@*/K@[W9C@@[RK/,'K@^ *E@]GC8E@[-/K@[XB/F0[W.XA )@@G@@C?W@@E%8K@@P @@@@VC)W@@E;*K@@ [*U@]G/K@[XBC;@@@@G;@@[@C8E@[-/,0@=Z/K@[YPXB )@@G@@/K@[Y?1@G@@E/K@[XKC4W@@E%8K@@+/K@[X#C)W@@E;*K@@ [*U@]G/K@[X#*4E@]G/K@[X[XC )@@G@@/J0[XZ/#0[XIS)^0)GT-IL=IS)^0)XR )@@G@@ET7GD0I[>G))H95I)&^@*H1\^[4GD3HS(^0)C(M^[NE-[E-PES=^[>IL2H92BK)^[[@E@L>R'0@8AXU )@@G@@/#0[)'%9@@@,/K@[)6/,0[H,/K@[JC?8@@@JC8@@@J;O@@@=W8@@@ *@@@@HG8@@@[[CE@@#XV )@@G@@R'0@8AC8@[)9[@E@@]C[%@L>;/E@]ER]K@@FC/E@[6/,0@$%C8E@L>'=@@)F+@@[-//^K[-6XW )@@G@@>@@[-./K@[-0C@E@M+/,0@,&C/@@@B/,0@*%(4E@M 4E@]E*^E@]E'=@@[N/KD@@@C8@[)N/,0@+"YA )@@G@@C@E@L>/,0@,&/,0@+8/K@[-([@E@L&C8@[)G/,0@+"C@E@L&/,0@(X/K@[-(__8___@@^@@@YB )@@G@@@@J_@CF____@@@@@@H@@J_@@S@@@@@@@@@@B_/__\______Z@@@@@B@ *[@@@* ]@@@*.]@@YC )@@G@@@ .]@@@*/]@A@ /]@A@*(][#@ (][#@(.#@@@(/#@A@( @@@@/.^@@@//^@A@/. @@@/ @@@YD )@@G@@@. A@@@./A@@@.(A[#@ A@@@ /A@@@ (A[#@/ B@@@/(B[#@( C@@ A]E@]8A]U@]9YE )@@G@@A['@]'9(%@];C9K@@U @H@@@[5X@@@[^U@#[R'H@@[&'@@@[;G@@@M;CK@@M/@@[=MG8H@@@YF )@@G@@H8@@@[[^E@#@[CU@#@&;K@@[C@)[>!C9)@[@C8@@@ [0E@#[ ?E@#[9*U@].A]E@]_R90@@@YG )@@G@@C@0[>,N8K@@S')I)@@1@@@@GCCG@1Q%8@@@ /K@[<^*?E@#[/K@[=M/K@[+//G@[=MC90@@@YH )@@G@@R]K[>\:9)@]@/K@[=,9!B[-";HG@@@/-K[![7[+@YK )@@G@@/K@[=R/ 0[<4:9@@ .[!E@#[%8@@@*/K@[=#C[K[+Z[[S@@[[[S@@]C90@@G @C@@@C!E@#[YL )@@G@@[(C@@@ ?E@#[C9@@@[!90@@BC9@@@][-C@@@!90@@BH90@@A[>8@@@K(\@@@[D8@@@O+C@@@YM )@@G@@O'@@@[R-_@@@C4E@#[/G@[=M:8@@@ /K@[=G%8@@@,/K@[+/G9)@[@/K@[+4;D)@@G;()@@GYN )@@G@@G9)[[@:9)][@/K@[=M/K@[+4 @C@@@PAE@#[C8C@@@O'0@@[/K@[=)&;G@[@/K@[=U&;G@]@YO )@@G@@C8X@@@HCU@#@T8K@@AH8)[>[G8Y@@@Q;H@@@R]E@]8R]U@]9R['@]'9!%@];/KF@@@C8@@@ YP )@@G@@[0E@#[9?U@].R]E@]_R90@@@R]K[>\C@0[>0N8K@@D/K@[+/R '@#[N8K@@U!8@@@A!8@@@)YQ )@@G@@/K@[=TC[@[>1;DG@@@)[B@@@[[R@@@')I)@@/G@[="CCG@1Q:8@@@ /K@[="8KK[=,/K@[=RYR )@@G@@[4E@#[/K@[=#/\,@@@CWH@@@CKH@@@CSH@@@/\,@@@D8@@@[COH@@@$BU@#@/K@[>@&;)@@@YS )@@G@@H8K@@[/K@[>^/,K[>H;*@@@YG@@[>2[@C@@[/,T@@@[0C@@[[?C@@[[*C@@[[=C@@[[)C@@[YT )@@G@@/,K[>R;*@@@YG@@[>2[@C@@]/,T@@@[0C@@][?C@@][*C@@][=C@@][)C@@]/K@[=R%CI@@@YU )@@G@@/K@[>*C=Y@@@C)I@@@%8@@@[G8K@@A/KF@@[G),@@@G8)@@[*@I@@@/K@[>-/KF@@@@@[[>[YV )@@G@@@@[[+A@@[[>G@@[[+P]@@@@@@ @@@B0"@@@B)/^[+GD4GT*^0)^@*^0!^0(^@)^0)^@/YW )@@G@@^1>J[0HD2G(3^@&B0&IT4GD2I-3^@&CT\H1&G(2G(,GT>^@1AK,AS&^@)^0)CT-H1,H94^[-YX )@@G@@IT3HD$H0)G92H95I@)^0)H(>IT3GD$G*)G1(H-> 0)^[NI--I-5IS)B*)^0)^[(H0)CT\H1&YY )@@G@@G(2G(,GT>^0)D(-J[(H(5H*)H(>H(\IS)G(8GT>G(=G(=^[&H92^[=G(3I-(H1-I-(H9, 0)YZ )@@G@@@]%[&OE-\H8)H(-H19^[!G(3IT-G9>IS) *)I[?G(-IT>^[7GD(I),@]*[&ZD(>IT3GD$G*)ZA )@@G@@G1(H->^[*GD3^[+G(>H0)GT\IL2I(0I->G)?^[\IK)G-\G(3^[,H94^[!GD4GT*^[#D9IC1MZB )@@G@@^[IT3^[\H1?JC)DDNC)$IS)H(>ZC )@@G@@IT3GD$G*)G1(H->^[-H1=^[9H95IK)H97H0,@]![&;DD,I->IL,GD?^[>IL2H92^@)@]^[$DZD )@@G@@ >> <<@USE CONFR$&.,&. . &@ASG,AZI CONFR$1 @@#[$O@ASG,AZI CONZE )@@G@@FR$2 @@#[$S@FREE CONFR$2 @@#[$W'=@@[6 ^E@@#/KF@@@'=@@[8 ^E@@#/KF@@@ZF )@@G@@+@@[;P/^K[$:'=@@@I ^E@@#/KF@@@-@@[;PC@@@@H'=@@@8 ^E@@#/KF@@@A]0@@L;/E@]EZG )@@G@@C/E@[6/,0@$%C@E@GV/,0@,&C8@[&K/,0@+"/,0['1/,'K@^ 4E@]E*^E@]E'=@@[N ^E@@#ZH )@@G@@R]0@@L/KF@@@ @E@]T/@D@@[;/E@]E;G@@@=:@K@--C@K@-+[@U@HN*@E@GW/K@[*H[@U@GWZI )@@G@@C8@@@1[@E@HO/K@[*Z:@U@GW/K@[(( @E@HO:@U@GM/K@[($:@K@-+/K@[*TC@E@GW:@@@-+ZJ )@@G@@/K@[*TC@@[$C/K@[(Z[@U@GMC@@[$Z'=@@@JC8K@@2[@U@HO[@U@]TC/E@[6/,0@$%C8@[$KZK )@@G@@/,0@\;C)E@HO/,0@,@@[;R/K@[(G/K@[()C@E@@@=8@[@@(?E@]H/K@[(L/K@[()C/E@[6ZO )@@G@@/,0@$%C8@[&^/,0@+"C@E@HN:@@@-+C@@@--/,0@,&/,0@+8C@E@HOC8K@@G/,0@(:/,0['1ZP )@@G@@'K@[;S/,'K@^ @E@]T @E@GMC@E@HO 4E@]E*^E@]E'=@@[N/KD@@@C8@@@[[@E@]T 4E@]EZQ )@@G@@*^E@]E'=@@[N/KD@@[C[@@@G;D@@@G+9@BBBC9@AAAG[@@@LK9@[[[/KF@@@C8E@[P*@E@]TZR )@@G@@C8E@[V'=@@@#*4G@@#/K@[%UC^W@@^C@!@@@%@)[;T/K@[%UCC!@@[:8)@@^T8)@@W[C!@@[ZS )@@G@@!8)@[1/K@[%UCC!@@]%8)@@#/K@[%UCC!@@#!8)@[1/K@[%UCC!@@#T8)@@#C^.@@]C8E@@FZT )@@G@@*@E@]TC8E@@L[C?@@^[@/@@ CC!@@[C^.@@[C8E@[B*@E@]TC8E@[I[C?@@^[@/@@ /KF@@[ZU )@@G@@C@@[&''=@@@8/KF@@@C8%@#N&;)@@#NCU@]#*@E@]TNCU@KA2@I)@#/KF@@@C8Y@@@H8U@#QZV )@@G@@C8@@@@W8@@@#[@@@@HC@I@@@;^K@@=N^U@]#*@E@]TN^U@KAG@)@[[/KF@@[0@E@@I'=@@@AZW )@@G@@0@E@@O'=@@@AC8E@@F*@E@]TC8E@@L'=@@@#/KF@@@'=@@@?;G@@@M;C@@@A;?@@@M/KF@@@ZX )@@G@@ @E@C, @E@C\/,0[H=/KD@@@%9@@@//KD@@[:@@@--C@@@-++8@@@_%8K@@ /K@[:G;C@@@AZY )@@G@@G@@[;U/K@[:A+8@@@_!8K@@0/K@[:SC@)@-<;GK@@A;C@@@A+8@@@_!8K@@0/K@[:R;GK@@AZZ )@@G@@;C@@@A[@%@C\;*@@@GG8@@ %@@[;V[@E@C,C8@@@ [*E@C%/,0[H=/KD@@]/KD@@#(@E@]TAA )@@G@@/KD@@@C@E@GM/@D@@@:@E@GW/KD@@@:@@@-+C@@@--/,0@,&C/@@@//,0@,8@@@[/K@[!*AL )@@G@@C8@[>5/,0@+"C8@[>7/,0@+"C@E@GQ/,0@:1C/@__//,0@*7/,0@+8C@E@GQ/,0@%7C/@__/AM )@@G@@/,0@*7/,0@+8(@E@GR/K@[,I/,0@+8C@E@HP!CE@GR/K@[,AC8@[>./,0@+/C0E@GR/,0@(2AN )@@G@@C/@@@//,0@,;!H@@@[[I@@@/KEK@BC[@[>3*@@@@HC[@[>4AS )@@G@@[[G@@@/KEK@BC8E@[B/K@[,_C8E@[I;/E@]CC@?@@A/^)[\B0@G@@#'=@@@AC8K@@P[0W@@#AT )@@G@@'=@@@[G8)@@[[@?@@A 4E@]C*^E@]C'=@@[N/KF@@@C8E@[BNCU@][/K@[\MC8E@[INCU@K^AU )@@G@@;/E@]CC^W@@^'KK[;+0@G@@#'=@@@AC9@@@@3[H)@[/K@[\V/K@[\-[@@@@KC@@[&$/,'K@^AV )@@G@@C@@@@KR'0@LA/K@[0V&;K@@@C.K__"1@H@@@;TH@@@&;G@@@Q#@@@LC[@[;&;DG@@[-[H@@@AW )@@G@@[[X@@@;@@@@MH^W@@^;@@@@MT8K@@=G8W@@[;C@@@MC E@]^:8E@[IC E@KBG@K@@K 4E@]CAX )@@G@@*^E@]C'=@@[N/KF@@@C9U@[BC^U@]^/K@[\"C9U@[IC^U@KB;/E@]CH@@@@H;O@@@=W8@@@=AY )@@G@@;^@@@=C[@[;&;DG@@@C@@@@LCDU@][:8E@[ICDU@K^1@@@@H!@K@@L/K@[0(0@G@@#'=@@@AAZ )@@G@@G^W@@^+[H@@@*@@@@L/K@[0()[H@@@[[X@@@ 4E@]C*^E@]C'=@@[N/KF@@@C8E@[B/K@[0VBA )@@G@@C8E@[I;/E@]CC@?@@AH8)@@[/^)[0=0@G@@#'=@@@AC8K@@C[0W@@#'=@@@[[@?@@A 4E@]CBB )@@G@@*^E@]C'=@@[N/KF@@@C@@[$H'=@@@8'=@@@) @E@GZC8%@GVC8@@@@*0E@]GC8@@@[*@E@C\BC )@@G@@G8@@@][CI@@#C8E@@X*@E@]TC8E@@\C@?@@ C@0[;$N8K@@*C@U@GL2C\)@B/K@[2,%@Z@@^BD )@@G@@/K@[0;&;0@@@C8K@@ON8K@@EN8)@@]C!J@@@/[@[2,:9@@@_')K[2@(4J@@@/K@[1G'=@@@0BE )@@G@@8KK[1#'))[2@;/J@@@(@J@@[/K@[1P 4J@@@*^J@@@'=@@[O'=@@@08K)[1#')0[2@C8K@@[BF )@@G@@GCU@HQ[CU@HQ/,0[95/CK[1Y 4J@@@*^J@@@'=@@[N'-@[2@&;K@@[[@Z@@[C8%@GV&;)@@[BG )@@G@@N8K@@WM#Y)@@ 4J@@@*^J@@@'=@@[OC8K@@ON8K@@*'=@@@0;/J@@@*CJ@@[8KK[1,/K@[12BH )@@G@@ 4J@@@*^J@@@'=@@[O/K@[1([@@@@IC^J@@[/,0[9.CCZ@@[C@@@@I @J@@[ 4J@@@*^J@@@BI )@@G@@'=@@[N/@S@@@C?Z@@@%8K@@_'-K[2@')K[2@/\K[2[H8K@@[C@X@@@;*K@@E;GK@@-G8U@HQBJ )@@G@@;C)@@@@@C8E@@<*@E@]TC8E@@50@G@@#'=@@@AC^W@@^[^!@@#/]K[4"BY )@@G@@C8)@@K[0?@@#[]W@@ '=@@@#C@)@@QC H@@#[ I@@#:AP@@@[A @@@C[K@@O(@@@@P[E @@@BZ )@@G@@C8E@@(*@E@]TC8E@@;C8)@@C0@G@@#'=@@@A[0?@@#[A?@@^[]G@@ '=@@@[/]K[5S[AH@@#CA )@@G@@C8E@@<*@E@]TC8E@@5C8)@@C[0?@@#'=@@@[C@>@@[G8)@@[[@>@@[D8@@@[/K@[6SC8E@@(CB )@@G@@:/0__./K@[5@@@[^!@@#/]K[6@C8)@@K0@G@@#'=@@@A[0?@@#[]W@@ '=@@@[C@)@@QC I@@#CE )@@G@@C[K@@P0@G@@#'=@@@A:E @@@[D @@@:A @@@[AP@@@C@>@@[H8)@@[0@@@@I @@@@I[@>@@[CF )@@G@@/]K[6S[ H@@#C8)@@C[0?@@#'=@@@[D8@@@[/K@[6SC@)@@QC I@@#C[K@@O;/E@]A ?E@]ACG )@@G@@ 4E@]A*^E@]A'=@@[N/KD@@@ @H@@@ @H@@[ @H@@]C@E@C,(@@@@GC@E@GWC@U@GL:@%@GKCH )@@G@@%@@@@H/K@[6% @E@GK @E@KKC8E@@X*@E@]TC8E@@\0@G@@#'=@@@A[@?@@ C8K@@P[0W@@#CI )@@G@@'=@@@#C'%@]8R[K[;*O W@@^N9K@@]R'0[,/*@E@]TR'0[,"/,;@@@*@ @@[(C @@@/K@[7DCJ )@@G@@ @@@@PCE @@@/]@[7D/,K[4BC@@@@O9,@@@KR'0[\9*@E@]TR'0[\//,;@@@/K@[7@/S )@@CK )@@G@@8LK[6;R'0[0S*@E@]TR'0[0U/,;@@@C8E@@X*@E@]TC8E@@\C^?@@^N8K@@WC8K[;(&;)@@[CL )@@G@@M#!)@@C8K@@C[0W@@#'=@@@#C8E@@F*@E@]TC8E@@L0@G@@#'=@@@A[0W@@#'=@@@#C8K@@KCM )@@G@@[0W@@#/KC@@@@@@[7=@@@[8@@@@[8W@@@[88@@@[9OC8K@@^(@H[908#K[96/GV@@@&#X[90CN )@@G@@ @H[90;CK@@M/KF@@@C8K@@^*@H[908#K[9"/GK[0([@H[90/KF@@@;/E@]EC/E@[6/,0@$%CO )@@G@@C8@[>_/,0@+"C8@@[N%8@@@)/,0@*$/,0@+8'=@@@?/,0@:1C/@__//,0@*7C/@@@-/,0@,0@E@@U'=@@@AC@E@HX/,0@(2C/@@@//,0@,G@@@/\K[;H@@)@@@@@Z___@@C@@@@[@@@@CONFR CV )@@G@@0@@@@@0000 (NONE)@@[[;B@@[[;J@@[[';@]@@@@@@Z@@@@@[__"@@)@@@ ^@)^@)CW )@@G@@)@@@@@@@ @T4@@]@@[@@@@@@@[)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@___@@@___@@@___@@@___CZ )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___DA )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___DB )@@G@@$MAIN$ @@@@@^@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@ADIT$ L@\E HADIT$A L@/E HADIT$B DE )@@G@@L[BE HADIT$H L[)E HADIT$T L[.E HCEDIT GX2 UMCOMS DF )@@G@@GY@ UMCSEND GYR UMCSI GY= UMCSTAT GY7 UMERU$ DG )@@G@@C\2GIJISDERU$ IM8AQJMAIN GZG UMSDFI EDGENJSUBS DH )@@G@@GZ% UMTABLE$ EEJENJ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DI )@@G@@CONFR$ @@@@@KEK)E[GCDI^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)DD^@N@@@#E(LE([DJ )@@G@@D-KD-[D0)C(LE(A^@)^@)^@)E(KD-[D1N )?ES2^@)^@)^@)^@) 0)EDPCDGDDADD EK)E[GDK )@@G@@CDI^@)^@)^@)^@)^@)^@)^@)@@@@@=@@@[@^@P[@C@@@@@@=@@@#@^@]G@X[@@@@@=@@@ @^DL )@@G@@@#G@ZH@@@@@AK@@[@^@[$@+T@@@@@DK@@[@^@@Z@=@@@@@@$K@@[@^@#F@=Z@@@@@@K@@[@^DM )@@G@@@#H@$%@@@@@GK@@[@^@#?@%7@@@@@#K@@[@^@]3@,<@@@@@!K@@[@^@]@@1Q@@@@@M@@@[@^DN )@@G@@@WK@3Q@@@@@J@@@[@^@AV[J&@@@@@P@@@[@^@D_[Q[@@@@@V@@@[@^@["[)@@@@@@S@@@[@^DO )@@G@@@#5[-"@@@@@%@@@[@^@P8[>3@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DP )@@G@@ACHAR$ @@M@@.ACLEAR$ @@M@[SACOLN$ @@M@[NACOL$ @@M@[@DQ )@@G@@ACOPY$ @@D@@@ADARR$ @@M@]ADIT$TT @@S@[2ADNQWM$ @@M@]0AFCHR$ @@S@@@DV )@@G@@AFCOP$ @@S@@\AFD1$ @@S@@#AFD2$ @@S@@ AFD3$ @@S@@KDW )@@G@@AFD4$ @@S@@MAFD5$ @@S@@VAFD6$ @@S@@WAFH$ @@D@[-DX )@@G@@AFI$ @@D@@/AFMSG$ @@S@[SAFMSR$ @@S@[MAFMS1$ @@S@[QDY )@@G@@AFORM$ @@D@@.AFPAC$ @@S@@'AHEXF$ @@G@@EAHEXV$ @@G@@@DZ )@@G@@ALLINES1 @@Y@R4AMSGR$ @@D@@ZAMSG$ @@D@@>AMSG1$ @@D@@AQMSR$ @@D@@ZAQMS1$ @@D@@GETSC$1O @@!@DDGETSC$2 @@!@DXGETSC$2C @@!@E$EN )@@G@@GETSC$2O @@!@DFGETWD @@Y@UKGOGO1 @@@@^)H$DITX @@!@O"EO )@@G@@IBNK$ @@@@L9IDLE$$$ @@!@[.IDSRCH @@!@^%IIACT @@@@ 4EP )@@G@@INHOUSE @@A@]PINVM @@A@@@IOEOF @@=@C:ISDNAME @@A@]OEQ )@@G@@LIST @@=@[YLOAD @@!@PCMSF5 @@=@B@MSL @@!@AIER )@@G@@MYRDL$ @@!@A;MYW$ @@!@B NOROOMM @@A@[MPRINT$$$ @@!@[3ES )@@G@@PRTHDR @@!@B&PRTMSG @@!@C+PSINON @@!@OKPUTR @@@@DAET )@@G@@PUTR$ @@!@E9PUTR$DM @@!@G!PUTR$DMM @@!@G6PUTR$M @@!@G=EU )@@G@@PUTR$$ @@!@GWPUTSC @@!@IKRDID @@!@^.READCON @@!@^[EV )@@G@@REDSC @@!@ISREDSC1 @@!@IQREMOVE @@!@K:REMSC @@!@IOEW )@@G@@REMSC1 @@!@IMRETIBF @@!@OERETSC$1 @@!@EARETSC$1C @@!@E>EX )@@G@@RETSC$1O @@!@DDRETSC$2 @@!@EDRETSC$2C @@!@E$RETSC$2O @@!@DFEY )@@G@@RPLMS @@!@IVSDFIC$ @@J@# SDFIEOF$ @@J@]ESDFIOA$ @@J@]NEZ )@@G@@SDFIO$ @@J@]MSDFI$ @@J@@@SEND @@=@[WSETUP @@@@[;FA )@@G@@SINFOR$ @@%@#CMT$ FT )@@G@@ @@@@@&COM$ @@@@@CCOND$ @@@@@6CONFR$ @@@@@^CONFR$FU )@@G@@INT @@@@@@CONFR$$ @@@@C@CO$MIT @@@@K/CPOOL$ @@@@@!CQUE$ FV )@@G@@ @@@@[JCREG$ @@@@]ECREL$ @@@@[%CRTN$ @@@@@XCR$ELGFW )@@G@@ @@@@KLCR$LGR @@@@KKCR$LOG @@@@KJCR$PHS @@@@KGCR$VALFX )@@G@@ @@@@KUCSF$ @@@@@JCS$LOG @@@@KHCS$OVR @@@@KICS$PHSFY )@@G@@ @@@@KFCTSA$ @@@@[OCTSQ$ @@@@[MCTS$ @@@@[NCW$ FZ )@@G@@ @@@@@ECYCLIM$ @@@@@ DACT$ @@@@[*DADD$ @@@@@-DATE$ GA )@@G@@ @@@@@MDBACK$ @@@@@TDBB$ @@@@@YDBITS$ @@@@@SDCYC$ GB )@@G@@ @@@@@WDGETP$ @@@@@IDGET$ @@@@@HDKEY$ @@@@@XDK$ONSGC )@@G@@ @@@@K'DLAPS$ @@@@@UDLINK$ @@@@@)DMBTS$ @@@@@MDMBT$ GD )@@G@@ @@@@@LDM$EOS @@@@K_DM$FAC @@@@K*DM$IO @@@@K(DM$IOWGE )@@G@@ @@@@K%DM$RBK @@@@L@DM$SOS @@@@K"DM$WT @@@@K:DREAD$GF )@@G@@ @@@@@KDREG$ @@@@@ZDUNLD$ @@@@@VEABT$ @@@@@QEACQ$ GG )@@G@@ @@@@@JEDJS$ @@@@@^EQUIP$ @@@@@FERRPR$ @@@@]]ERR$ GH )@@G@@ @@@@@)EXIT$ @@@@@DEXLNK$ @@@@[;EXSNP$ @@@@[UEX$CRDGI )@@G@@ @@@@K$FACIL$ @@@@[GFACIT$ @@@@[FC$SSN @@@@KPRINFO$ @@@@)[PRINT$ @@@@@IPRIVL$HA )@@G@@ @@@@)@PRMDB$ @@@@]KPRMGA$ @@@@]JPRNTA$ @@@@[=PROP$ HB )@@G@@ @@@@)GPRTCA$ @@@@[!PRTCN$ @@@@[ZPSA$ @@@@@UPSF$ HC )@@G@@ @@@@@VPSR$ @@@@[\PTTRAP$ @@@@)APTYPE @@@@[NPT$MN8HD )@@G@@ @@@@@DPUALT$ @@@@@CPUNCH$ @@@@[SRB$ @@@@@LRDL$ HE )@@G@@ @@@@@PREADA$ @@@@@+READ$ @@@@@HREL$ @@@@@NRETIMEHF )@@G@@$ @@@@)BREWI$ @@@@@-REW$ @@@@@)RGETP$ @@@@)HRGET$ HG )@@G@@ @@@@)CRLIB$ 74R1-2RLINK$ @@@@['RLIST$ @@@@[.RL$BAKHH )@@G@@ @@@@K.ROUTE$ @@@@[VRPCTA$ @@@_8@RR$ @@@@@MRSAGAWHI )@@G@@$ @@@@@&RSBAT$ @@@@@)RSCNTL$ @@@@@DRSDEM$ @@@@@*RSGAW$HJ )@@G@@ @@@@@/RSGDEM$ @@@@@=RSGET$ @@@@@KRSGIO$ @@@@@.RSGPR$HK )@@G@@ @@@@@MRSGPU$ @@@@@LRSGTA$ @@@@@8RSGTI$ @@@@@3RSGTW$HL )@@G@@ @@@@@4RSI$ @@@@[ERSNOT$ @@@@@5RSPLST$ @@@@@>RSPUN$HM )@@G@@ @@@@@-RSPUT$ @@@@@CRSTRA$ @@@@@1RSTRD$ @@@@@#RSTRM$HN )@@G@@ @@@@@0RSTRO$ @@@@@]RSTRY$ @@@@@[RSWAP$ @@@@[XRTN$ HO )@@G@@ @@@@K7RT$ @@@@@1RT$INT @@@@K^RT$OUT @@@@K RT$PSDHP )@@G@@ @@@@K1RT$PSI @@@@K0RT$SCH @@@@K)RT$TRS @@@@KBRUNCANHQ )@@G@@CEL$ @@@@)ER$ @@@@@KSCRB$ @@@@@=SCR$ @@@@@XCTS$ @@@@[2XFR$ IH )@@G@@ @@@@K5XRS$ @@@@K9@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@II )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*[S@@[*SDFF*@B@R@Q^@)CT\IJ )@@G@@H1&IK)DD,IT4GD?H--I-(H9,^[BI((G->^@)@C@@@RCTJD1AEK)E->GT*H1(GT-H))C-\GT5IK )@@G@@H(>H14GD4HD\H0)^@)@#@@@RH90I-(H9,^[>^[\H0)@#@@@RH90I-(H9,^[&^[\H0)@#@@@RIL )@@G@@H90I-(H9,^[2^[\H0)@#@@@QAC)C9>H1>IL-H))^@)@L@@@R^[#D9IC1M^[H0)D([ETHHD'G(= ))CDNCTDDD(JL>IN )@@G@@G)?^@)@G@@@R^[=G*!EL E[>G))GD,G))IT5GL3I--H14HD-H-?JC)IL>I92HD4I->H0)GD4IO )@@G@@^[DET^ 0)^@)@@@@@R@L@R@Q^[@CT\H1&IK)IL>ID5HD2G(3^[>J[>GS)H->I1>H))AS1^[\IP )@@G@@IK)H[(G9*G(2 ))I9(I-*^[-^[7H92HT(H1$^[>IK)GL-H1:^))^@)@ @R@Q^[-H1=^[4IS)IQ )@@G@@ID5G(5G((H1$ 0)^@)@F@S@R^[OH[(IS)G-\GT5H(>H14^[=G(3GT2HD+G(3^[#D9IC1M^[6IR )@@G@@G(2IT(H9,^@1AK,A@,@F@@@S^[OH[(IS)G-\GT5H(>H14^[=G(3GT2HD+G(3^[#D9IC1M^[6IS )@@G@@G(2IT(H9,^@1AK,AS,@C@@@RAK)ET0G(IS)I(4HD?HD'G(=IT )@@G@@@L@@@R^[#D9IC1M^[(IS)G->IT(G9,G(=^[4H8)H90G(2GD4G*)IL>G(,I-2GD,I-?JC?^[-IU )@@G@@H1=^[5IT>IS)I-*G*)G1\H-?H97HD,G8)^@)@K@@@R^[,H9, (4IL(I1(GD?^[&G(-I-5IL>IV )@@G@@IS)H9&^[4H[>^@1AC0A@)C(8G(<^[4H8)GDG1(H1>G))GD,G))IL>G1>IL>H1^@+CTJD1AEK!DDIE)+^[GT4HD\H0)HD3^[5IT>G)?@L@@@R^[-H0)HD,I->JA )@@G@@G92GD4G(=^[IT5H-4BK)^[(G0)I-*G*)JB )@@G@@^L#D9IC1M^K)GD,G))@M@@@R^@+CTJD1AEK=^K)GT\H-?G(IK)I[2H9$IL-H*)^@)@ @@@R^[7HD?JD )@@G@@H))GL>^[0IL\G-5GT>G),^@)@L@@@R^[OH[>^@+CTJD1AEK!D1M^K)GT\H-?G(G(,I-2GD,I))^@)@D@@@R^[6G(2JF )@@G@@IT(H9,^[\G0)I-*G*)I[2H9$IL-H*?^[-IS)I9>H-? 0)^@)@#@@@RAS)C(M^[]CDIDS=^@)JG )@@G@@@L@@@R^[OH[>^[#D9IC1M^))DC!GL-H1:^[5IT>IS)C(M^[]CDIDS=^[4H8)I1>IL(G19^[4JH )@@G@@H[-I))I-*G*)GL5G1&G(2^[0GD3IT>G))GL9@J@@@R^[4H[>^[H1$I-* 0)@K@@@R^[DI))JJ )@@G@@HD3^[-H-3H8)I(3G(=^[+JC)I-*G*)HD,HD4HD?GD(JL-I-(H9,^[^[#JK )@@G@@D9IC1M^[^ (+GD,HS)@L@@@R^[4H8)IL>ID5G(3I))GC)IL>H-\GD=^[\G0)I-*G*)CTJD1AJL )@@G@@EK=^[IT4^[-H1=^[3JN )@@G@@G(4^[1I(>I(>HD,G8)@K@@@R^[OH[>^[#D9IC1M^[0IL\G92GD!^[5I-(H-(JL>^[4G(3I))JO )@@G@@GD,G))IT>I))ID5G(5G((H1$^[&H92^[-GT4HD6HD4JC)^@)@F@@@R^[3JD,GT*IL\H1(JL-JP )@@G@@I-(H9,^[-H1=^[=GD4GC)GDIT3^[?H9GD= (-H1= (?JQ )@@G@@H9IS)I-*G*)IL>GD= (-H1= (?H9H0)GDIT3HD,G8)I-*G*)H(>IT3GD$G*)G1(H->IS?^[4H8)I[2H96HD=G*)^@)@L@@@R^[0IL\JT )@@G@@I->GT4HD\H0)H9&^[4H[>^[&HD?G*)I9*G(,^[3G(6G(2GD?^[2I(,IS)GD2G*)GDIT3JU )@@G@@HD,G8)HD4^[-I))H9,GT> 0)@#@@@RAS)C(M^[OELHELB^))@L@@@R^[RH[>H0)CTJD1AEK)JV )@@G@@HD3^[\I[>IL-I->G))IL>G(,I-2GD,I-?JC?^[(I))H(-HD,I--HD,IS)GD,^[(H0!GT\IL>JW )@@G@@^[?HD3I))H9&@N@@@R^[-H-?^[(G)$IS)I9*HDIT3GD$G*)I-2GD,IT&G(2^@)@M@@@R^[4H[2JY )@@G@@H95G9*^[!G(!H92JC)HD3^[0H93IT(GL?G*,^@)DD&^[-^[5IT>IK)I->IL!HD,GD4G(3^[\JZ )@@G@@I(4^[&IL\H*)I(,G->IK)I-*G*)^@)@M@@@R^[0IL\G92GD!^@*I1(GC)C[@F@)E)?^[@C[OKA )@@G@@C(MD*?^[#H9,I-2H9? (^ ))H92^[7H[-I->I1>IK( ))H[(IS)^L(G))GD^K)^@)KB )@@G@@@K@@@R^[>H14IL9^[7H95H-=^[2G(!GD(H0)HD, (J[4^[3KC )@@G@@JD3I->H*)GL\H94 ))IT\^[4H[>^@)@L@@@R^[!G(3IT-G9>^[4IL-H13G1>IK)GDIS)C(M^[OELHELB^))I-\^[-IT:^[&H92^[,H94HD&HDH0)IT5GT*^[4G(2H((H1-I-(H9,^[\GT^[(G)+^[>H14IL9^[+G(&H92G*)IL>KG )@@G@@GD?H-9^[>J[(I-(H1$ 0)^@)@ @@@RAS)DDNC)$IS)C(M^[NE-[E-PES=^@)@K@@@R^[OH[>KH )@@G@@^@%ETOCDO^[-H1=^@%E9[E-#D@)GT\H(!GD,G-3^[5I-(H-(JL>^[DET^^93^[?H9I->IK)DDNC))HD3^[,H9,JL>IL\ ))GD,G))HD&^[4H[>^[3HD4G((KL )@@G@@G))^@)@L@@@S^[DG0)I-*G*)GT\H1&HD$I(2GD4HD\H0)I[-IL-H(>I->IK)^LDET^^K)HD3KM )@@G@@^[,H9,JL>IL\ ))GD,G))HD&^[4H[>^[3HD4G((G))@L@@@R^[(H0)I-*G*)D(#E))GT\H1&KN )@@G@@HD2H(3^[4H[-I))I-*G*)I[2H9$IL-H*)HD3^[-GT4I(-H-?JC)IL5H1,HD,G8)GD4^[DET^KO )@@G@@ ))^@)@I@@@R^[4H[>^[#D9IC1M^[=IL(I1>IK)I[2H9$IL-H*)I9(H-?^[0G(2G1\IL!^[-KP )@@G@@H0)C(M^[KELJE@=^[4H8)^@)@K@@@R^[2G($HD3I->IK)HD4IT>H-&^[-IS)GC)I[2H90IL(KQ )@@G@@G(4GD2JC)I[-GT:GD$G*)G1\IK)GL(H-?HD,G8)I[5IL0H93G(3 0)@]@@@RAS)C[[ETB -DKR )@@G@@@K@@@R^[OH[>^@+DC+^[\I[4HD\H0)HD3^[5IT>G))I9*G(,^[-IT3HD$H1(H1$^[4H[>^[!KS )@@G@@G(3IT-G9>^[&HD?G*?^[3H8)I-*GD4@L@@@R^[4H[>^[&HD?G*)I9(H-?^[-I(4H9!GD4HDG))GD4^[0IL\G92GD!^[4G(2H((H1-I-(H9, ))G(6G(,^@)@C@@@RKU )@@G@@^[(G0)CTJD1AEK)G(2IL\IL3^[\IK)HD3^[@C[S^[O^9>G),@^@@@QAC)DD,IT4GD?H--I-(KV )@@G@@H9,^@)@L@R@Q^[@CT\H1&IK)H(-JC)G(8HD3I-3^[-IS)G((I-*G(2^[-^[+GD,HT>G))I(3KW )@@G@@G(2^[0IL\G92GD! ))H92^@*HD&^[J[(IT4KX )@@G@@^[-IS)G((I-*G(2^[-^[+GD,HT>G))I(3G(2^[0IL\G92GD! ))H92@G@@@R^[-IS)GC)GT\KY )@@G@@H1&HD$I(2G(=^[\IK)H1\H0!GT\H1&HD$I(2G(=^[G(,I-2LA )@@G@@GD,I-?JC,^@)@J@@@R^[DG0)HD,IT4GD?H->G))GD3^[-^[^[-GL?G*)I-\^[4IL-H13G1>IK)@L@@@R^[!G(3IT-G9>IS)G12H9!^[\H1>^[5LC )@@G@@IT>IK)I-\^[-H1\I-*G(2^[=HD2G( *!LD )@@G@@@L@@@R^[0IL\I->GT4G(= C)DC!GL-H1: ))G(?HD!HD,GD4HD,G8)I-*G*)H1>G(=^[&H92LE )@@G@@^[!I(IT3GD$G*)G1(H->^[D 9J 0)@]@R@QETKCD#C*)^@)@^@@@RAK)D(>IT3GD$LF )@@G@@G*)G1(H->^@)@K@@@R^[ GDG1(H1-GL?G*)G92H95I@)H9&^[#D9IC1M^[5IT>IL3LG )@@G@@^[*GD3^[(I-3^[\I9,^[!G(3IT-G9>^[&HD?G*,^@)@L@@@R^@*CD4^[DET^ ))I-*G*)A)!LH )@@G@@G-(G9(I))GT5IT4H9!G(2^[,I(!GL>IK)HD3^[-IT3I(!G(=^[-IS)I-*G*)G92H95I@)H1-LI )@@G@@H(> C,@L@@@R^[OH[>^[$IL\I(0^[,GD!G*)HD3^[5IT>G))GD3^[4H[>^[1I(-H-(G1(G(2LJ )@@G@@^[&H92^[4H[>^[!G(3IT-G9>^[&HD?G*?^[7H[\IT>@B@@@R^[&HD?G(,GD!G*)HD3^[#D9ILK )@@G@@C1 EL D1#C*= 0)^@)@L@@@R^@*E-*HD3^[(IS)I-*G*)G->G1-I(?I))G1(H->^[,GD!G*'LL )@@G@@^@)GD,H94H[>IK)G1(H->H1-H(>^[!GD9^[+G*)IT0G(G))@K@@@R^[(H0)IT0G(I->IK)LN )@@G@@I-\^[4H[>^@)@A@@@R^[#D9IC1M^))GT\H(!H9,^[+GD,HS, C)^@)@F@@@R^[MG(-G)\I92LO )@@G@@HD4G*)HT>JD3^[&H92^[4H[>^[&HD?G*)GD2G*)GT\H(0I(4G(=^@)@L@@@R^[+GD3G(=^[\LP )@@G@@H0)I-*G*)G92H95I@)H1-H(> ))GL5I))I-*G*)G1(H->IS)GD2G*)^L0I(+H-(GS+^[3H8)LQ )@@G@@I-*GD4^[(H14G(2 *)@H@@@R^[G(,^[$IL\I(0IS)HD3LR )@@G@@^[0H93IT(GL?G*,^@) [[I))DDNC)?@K@@@R^[ ))I9*HD?G*)DDNC))I(3G(2IS)LU )@@G@@GD2G*)I[>IL!HD4I->G))^@)@L@@@R^[4H8)GDIT3^[-H19^[$IL\I(0^93^[&HD?G*(LV )@@G@@ 0)^[[H19^[!G(3IT-G9>^[3G(,I))G12H9!^[\H1>^[$IL\I(0^[4H8)^@)@L@@@R^[-H1\LW )@@G@@I-*G(2^[(IS)I[?GDGT(I[(G(,I)$IS)H(>IT3GD$G*)G1(H-> ))LX )@@G@@IT\^[4H[-I))I-*G(2G*)HD3@L@@@R^[,H8)H1>G(=^[4H8)ITIS)I9*G(,^[3G(-ILIS)I-\^@)@#@@@R^[=G(?LZ )@@G@@HD6G(2 0)^@)@@@@@R@L@@@R^[OH[>^@+FK+^[\I[4HD\H0)H9,^[4H[>^[@CTJD1AEK)GT-MA )@@G@@H-?^[3I--I->H(>H14^[(IS)I(3G(=^[4H8)GT2G(-I->^[-H1=^@)@M@@@R^[(H1(I-(GD?MB )@@G@@HD'G*)GC)H(>IT3GD$G*)G1(H->^[&H92^[-^[$IL\I(0^[7H[(GT*^[=H9>IS)H1\I))GD?MC )@@G@@IL>GD=JC)H[-I1>^[\H1> 0)@M@@@R^[OH[>^[&HD2IT4^[3G(^[&HD?G*)GT\H14GD(H13^[^[&HD?G*)HD3^[-MF )@@G@@IT3HD$H1>G)'^@)DD&^[4H[>@L@@@R^[^[#D9IC1M^[0IL\G92GD!^93^[H14^@)@L@@@R^[IL2H92^[!G(3IT-G9>^[7HD?H))GL>^[0IL(H14G(= ))GD,MI )@@G@@G))I-*G*)I[2H9$IL-H*)^@)@#@@@R^[7HD?H))G(8HD4 0)@^@@@RAK)^LCG(?I@+^[&HD?MJ )@@G@@G*)^@)@J@@@R^[OH[>^[&HD?G*)CTJD1AEK= LCC(GE@)HD3^[,G(>G->G))G1\IK)I-*G*)MK )@@G@@ LCC(GE@)GT\H(!GD,G)?^[-H1=^@)@J@@@R^[&H92^[4H[>^@+G(8I[?GD(H0+^[&G(-I-5ML )@@G@@IL>^[7H[(GT*^[$HD6G(3^[-^[1I((GT:^[#D9IC1M^[5IT-G9>^@)@L@@@R^[>J[0H--H1-MM )@@G@@I-(H9,^[7H[>H0)GC)H(>IT3GD$G*)HD3^[3G(,I))I9(I-*H95I))GC)G->IT4HD,GD4HD\MN )@@G@@H0)IT0G(G),@@@@@R@J@@@R^[OH[>^[&HD?G*)IT*H95H-=^[+G*)I[5GL?HD< ))MO )@@G@@GD,G))IT*H95H-=^[^[&H9?H-\I9(H1$@A@@@R^[[ET#DDD^[=GD4GC)MP )@@G@@G(?G(!G(,I-3BK)^@)@@@@@R@H@@@R^@)^@)D[ D-K^))^@)^@) *)G--I--^[&H92^[4H[>MQ )@@G@@^@%D[ D-K^[^@+G(8I[?GD(H0+^[&G(-I-5IL> 0)@@@@@R@K@@@R^[0H-5IS)GD,MS )@@G@@^[>H->H(>H14^[=G(3GT2HD+HD,G8)I-*G*)IT9H14GD8^[&H92^[>GDIL>^@)@H@@@R^[4H[>^[>H->H(>H14^[,GD!G*)HD3^[4H[>^[3GD!G*)GD3^[4H[>MU )@@G@@^[^[KELJMV )@@G@@CS)G(?G(!G(,I))^L^CLIDS+^[I->MW )@@G@@IL3^[&H92^[4H[>^@)@L@@@R^[#D9IC1M^[0IL\G92GD! 0)^[NH9!G*)H9&^[4H[>IT>^[0MX )@@G@@G(2H((I))I1-IL(H95IS)G1>GD4I(2G(3^[\G0)I-*G*)CTJD1AEK)@L@@@R^[0IL\G92GD!MY )@@G@@^[4H8)GL>^[3G(?G(G))H92^[4I(2H1>G))H9&G0?^[7H[(H->^[\I-*G(2IS)G9\I1>MZ )@@G@@IL,^[4H[>^[3HD'G*)@M@@@R^[\G0)I-*G*)GD2G(-IS)H9&^[4H[>^[!G(3IT-G9>^[&HD?NA )@@G@@G*?^[-H1=^[4H[>^[3HD'G*)H9&^[=GD4GC)GL5G1&G(2IS)I9(I-*HD,^@)@^@@@R^[4H[>NB )@@G@@^[0IL\G92GD! 0)^@)@A@@@RAC)D(>IT3GD$G*)G1(H->^[?GD9H95I))^@)@I@@@R^[[^[#NC )@@G@@D9IC1M^[!G(3IT-G9>^[&HD?G*)H[-IS)I-*G*)G1\H-?H97HD,G8)G9>H1>IL-H))H--JD\ND )@@G@@I(4BK)@@@@@R@B@@@RG1(G95IL>^[HG(3IT-G9>^[&HD?G*)H--JD\I(4^@)@@@@@R@K@@@RNE )@@G@@^@)^@)BK! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *!NF )@@G@@ *! *! *! *! *! *! *!BK)@K@@@R^@)^@)BK)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)NG )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)BK)@K@@@R^@)^@)BK)^@)NH )@@G@@^@)^@)^@)^@)^@)^[#D9IC1M^[^[3NN )@@G@@G(^[3G(^[4H[>^[#D9IC1M^[^[&HD?G*?^[4H[>OK )@@G@@^[0H93HD4HD\H0)GD,G))H->H1$I-*^[\G0)I-*G*)H94H[>IK)GD2G(-IS)@F@@@R^[-IL>OL )@@G@@^[$H96G(2H1>G))GL9^[GT4H92@I@@@R^[OH[(IS)IT>ON )@@G@@GT4H92^[&H--G93^[4H[>^[&HD?G*)GD3^[-^[#D9IC1M^[!G(3IT-G9>^[&HD?G*?^[-H1=OO )@@G@@@J@@@R^[(H1=HD^[IL3HD\H0)OP )@@G@@H9&^[#D9IC1M^[7H[(GT*^@)@B@@@R^[GD4G(=^[(I),^@)E-*G*)G1\IL!GD4^[(IS'OQ )@@G@@@@@@@R@D@@@RG1(G95IL>^[#D9IC1M^[H1$I-*^[\G0)GL(I))H(-I@) [7H92G-3 C)OW )@@G@@^@'^@)^@)^[NI--IL4^[\G0)GL(I))H(-I@)^@)^@)^@)BK)@K@@@R^@)^@)BK! *! *! *!OX )@@G@@ *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *!OY )@@G@@ *!BK)@K@@@R^@)AK)BK)^[RH92G-3^[0G(2^[(G))I--GL?G*)G(,I-2JC)^@'^@)^@)^@)OZ )@@G@@DD=^[4GD+H->^[3I--IL4^@)^@)^@)^@)BK)@K@@@R^@)^@)BK! *! *! *! *! *! *! *!PA )@@G@@ *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *!BK)@K@@@RPB )@@G@@^@)AS)BK)D15H(+G(2^[\G0)HD=^[4GD+H->^[>H14IL(G(3^@'^@)DD=^[G))^@)^@)^@)^@)^@)^@'^@)^@)D(>IT3GD$G*)IT>GT4H92^[3I--PF )@@G@@IL4^@)^@)BK)@K@@@R^@)^@)BK! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *!PG )@@G@@ *! *! *! *! *! *! *! *! *! *! *! *! *!BK)@K@@@R^@)A*)BK)^@)H(-J[(H(5H*)PH )@@G@@H(>H(\IS)I[>IK)HD=^@)^@)^@'^@)^@)CD5I-\ (=G(?G(4G*)I[-IL-H(>I->IK)^@)BK)PI )@@G@@@K@@@R^@)^@)BK! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *!PJ )@@G@@ *! *! *! *! *! *! *! *! *!BK)@K@@@R^@)A0)BK)^@)^@)^@)^@)^@)^@)^@)^@)^@)PK )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)BK)@K@@@R^@)^@)PL )@@G@@BK)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)E(,I(3G(=^@)^@)^@)^@)^@)^@)^@)^@)PM )@@G@@^@)^@)^@)^@)^@)BK)@K@@@R^@2A8)BK)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)PN )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)BK)@K@@@R^@)^@)BK! *! *! *!PO )@@G@@ *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *!PP )@@G@@ *!BK)@[@@@RG(,G))@@@@@R@L@@@R^[OH[>^[&HD>H-=IS)I9(I-*^@+IT4GD2I)+^[-G-=PQ )@@G@@IL>IT3G(3^[^[3G(PR )@@G@@^[!G(3IT-G9>^[&HD?G*)I9*G(2G*)I-*GD4^[-IL>GC)GL>G9(H13 0)^@)@@@@@R@L@@@RPS )@@G@@^@+D(-J[(H(5H*)H(>H(\IS)I[>IK)HD=^K?^[(G0)H1\H1'G(2H8?^[(H1=HD^[!GD8HD!I(!^[,I(!GL>IK)H9&@E@@@R^[!G(!H93^[7H[(GT*^[!GD9^[+G*)IT>H14PU )@@G@@^[4H8)GD,JC)H9,G*)HD= 0)@@@@@R@K@@@R^@+CD5I-\ (=G(?G(4G*)I[-IL-H(>I->IK+PV )@@G@@ ))HD&^[,H9,JL>IL\ ))HD3^[4H[>^[,I(!GL>IK)H9&^[!H9,I-*IS)H9&@J@@@R^[(H1-PW )@@G@@GT4HD6HD4JC)I9*HDIT3GD$G*)G1(H-> 0)@E@@@RAK)D(>IT3GD$PY )@@G@@G*)IT>GT4H92^[-I1-HD?GD+HD?HD4JC)GL(I))H(-I@)^@)@K@@@R^[OH[(IS)GD2G(-^[\PZ )@@G@@G0)I-*G*)H(>IT3GD$G*)G1(H->^[IT3GD$G*)IT>GT4H92^[-IL>GC,^@)DD&^[-^[+HD4^[(QB )@@G@@IS)JL>IL\ ))I-*G*)GD3IT\GT(GD4G(=^[!G(3IT-G9>^@)@K@@@R^[3G(^[1I(>I(>G))G1\IK)IT\H(>QD )@@G@@^[(G),@K@@@R^[DG0)GC)GL(I))HD3^[\H1> ))I-*G*)GD3IT\GT(GD4G(=^[!G(3IT-G9>QE )@@G@@^[3G(^[&H92@C@@@R^[5IT>^[(H0)ID5I(>HD,G8)GC)H1>QF )@@G@@I8)H(>IT3GD$G*,^@)@@@@@R@L@@@R^[ GD^[+QG )@@G@@HD4^[!GD0^[-IL>GC)HD3^[!G(-H1(H1$G15H),^@)E-*G*)G1(IL3I))^@)@H@@@R^[+HD4QH )@@G@@^[$H96G(2H13^[4H[>^[&HD2IT4^[!G(3IT-G9>^[3G(H(-HD,^@2A@)^@)@#@@@RAK)DD=^[4GD+H->^@)@M@@@R^[OH[(IS)GD2G(-^[\QJ )@@G@@G0)I-*G*)H(>IT3GD$G*)G1(H->^[GT>IT3GD2JC)^@)@L@@@R^[&H92^[4H[>^[0IL\GT>IT3HD,G8)H9&^[4H[>^@%D-[CS)QL )@@G@@GD,G)) L[CS)GT\H(!GD,G-3 ))GD,G))G1\IK)GT*G(^[(G))I--GL?G*)GT\H14GD(H13^[>H14IL(G(3^[\G0)I-*QN )@@G@@G*)G1\IL!BK)@@@@@R@A@@@RG1(G95IL>^[DG))I--GL?G*)G(,I-2JC)^@)@@@@@R@K@@@RQO )@@G@@^@)^@)BK! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *!QP )@@G@@ *! *! *! *! *! *! *!BK)@K@@@R^@)^@)BK)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)QQ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)BK)@K@@@R^@)A@)BK)^@)QR )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^[AHD>H-=GD4GC)HD=^@)^@)^@)^@)^@)^@)^@)^@)^@)QS )@@G@@^@)^@)^@)BK)@K@@@R^@)^@)BK)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)QT )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)BK)@K@@@R^@)^@)BK! *! *! *! *! *!QU )@@G@@ *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *!BK)QV )@@G@@@K@@@R^@)^@)BK)^@)^@)^@)^@'^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)QW )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)BK)@K@@@R^@)AC)BK)C1?GD$IS)^@'^@)^@)^@)^@)C--QX )@@G@@I->^@\^[4HD!G*)HD=^[?GD3I))I(3G(=^[#D9IC1M^@)^@)^@)^@)^@)BK)@K@@@R^@)^@)QY )@@G@@BK)^@)^@)^@)^@'^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)QZ )@@G@@^@)^@)^@)^@)^@)BK)@K@@@R^@)^@)BK! *! *! *! *! *! *! *! *! *! *! *! *! *!RA )@@G@@ *! *! *! *! *! *! *! *! *! *! *! *! *! *! *!BK)@K@@@R^@)^@)BK)^@)^@)^@)RB )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)RC )@@G@@^@)BK)@K@@@R^@)AK)BK)^@)^@)^@)^@)^@)^@)^[DG)$IS)IT5GL$IL\I(0^[-G1&HD?HD-RD )@@G@@I-(H9,^@)^@)^@)^@)^@)^@)^@)^@)^@)BK)@K@@@R^@)^@)BK)^@)^@)^@)^@)^@)^@)^@)RE )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)BK)@K@@@RRF )@@G@@^@)^@)BK! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *!RG )@@G@@ *! *! *! *! *! *! *!BK)@[@@@RG(,G))@@@@@R@L@@@R^[OH[>^[AHD>H-=GD4GC)HD=RH )@@G@@^[-H1=^[3I(+G92H95I@)GD2G*)H->G14 (%I(3I-(G1(G(=^[-H1=^[3I[-GT> (&HD?H->RI )@@G@@G),^@)@^@@@R^[DG0)I-*G*)HD=^[&HD>H-=@K@@@R^[(IS)JL>IL\ ))HD4^[(H1=HDG)(^[3H-\I))HD,^[4H[>^[(G))I--GL?G*,^@)@J@@@RRK )@@G@@^[[^[3I(+G92H95I@)H9&^['G(2H8)HD,G-(GT-I->IS)H1\^[:H1\I9,^[3I(+G92H95I@)RL )@@G@@GD&G1(H-(GD4HD\H0,@@@@@R@L@@@R^[OH[>^[=GD4G*\I-(H(>^[&HD>H-=^[(IS)GC)H1\RM )@@G@@IL!GD?^[OC-[E- ^))I-(H(>^[-H1=^[=GD4G*?^[>J[RN )@@G@@^@+JD>GD2^K)I[\IL4HD\H0)H[-IS)GL>G(,^[2G(!H96G(= ))GD,G))I-*G*)H(\H14H@)RO )@@G@@GD,G))G--JC)H[-I1>^[+G(>H0)^@)@L@@@R^[!H96G(=^[4H8)ES2^[-H1=^[NAS?^[2G(3RP )@@G@@I[>GT4HD6G(?JC,^@)E-*HD3^[!GD:G(3^[2H9\H*)G1\IK)I-*G*)^L&H--G93^K)@I@@@RRQ )@@G@@^[&HD>H-=^[(H0)ES1 ))I9*HDG1(H1>G)'@@@@@R@#@@@RGT\H-5H(,^@1A@)^@)@#@@@RH->H1$I-*^@!A))^@)@J@@@RRS )@@G@@^@)^@0A)0^@!^[OH[(IS)HD3^[-^[0IL(I1(H->G9>G))HD= ))I[>IL!HD4I->G))I-\^[=RT )@@G@@H8)GT>IL4GD(H0)^@)@F@@@R^@)^@)^@)^@)^[4H[(H1$IS)I-*GD4^[!H93I))HD=^93^[!RU )@@G@@GD9^[,H94^[=H8,^@)@@@@@R@L@@@R^@)^@0AK0^@!^[OH[(IS)HD=^[7GD3^[GD4G(=RV )@@G@@^[7HD4H@)I-*G*)^LA^K)H90I-(H9, ))GD,G))H1>I1>IK)I9-H14IS)^@)@F@@@R^@)^@)RW )@@G@@^@)^@)^[(I-3^[!G(3IT-G9>^[=G(?G(4G(=^[5I[\H0)IL>GT>I[4HD\H0,@@@@@R@M@@@RRX )@@G@@^@)^@0A@1^@!^[OH[(IS)HD=^[(IS)GT5IL2G(,I-?JC)GD^[(H0)CTJD1AEK) [4RY )@@G@@H[>^[4HD!G*)GD,G))G--I->^[&HD>H-=^@)@M@@@R^@)^@)^@)^@)^[(IS)I(0G--I->G))RZ )@@G@@I[>IL(H9=HD^[4H[>^[(G))HD3^[-GT4HD6G*?^[-H1=^[-H19^[SA )@@G@@GT:^@)@N@@@R^@)^@)^@)^@)^[\H0)I-*HD3^[+HD4^[3H[\I(?G))GD?IT\^[GT:^[4SB )@@G@@H[>^[4HD!G*)GD,G))G--I->BK)^[(G0)I-*G*)I-(H(>^[(IS)^@)@N@@@R^@)^@)^@)^@)SC )@@G@@^[!H92G*)I-*GD,^@7A@)IT>GT\H1=IS)H9?G)?^[7G*)GT-H0)GD3IT5H(>^[4H[-I))I-*SD )@@G@@G*)I(3G(2^[4G(2H((H1-I->G))^@)@I@@@R^@)^@)^@)^@)^[-GL,H92H(-H-?JC?^[-H1=SE )@@G@@^[=HD3IL>G9-IL=^[4H[>^@+GD^K)G1?GD$ C,^@)@]@@@RGT\H-5H(,^@2@#@@@RSF )@@G@@H->H1$I-*^@:A))^@)@]@@@RG(%G(^[(G))I--GL?G*) [3G(>^[-GL\I1> C)H[-IS)SH )@@G@@H9,G*)IT3G(^@)@K@@@T^[ GD^[(G))I--SI )@@G@@GL?G*) [3G(>^[-GL\I1> C)H[-IS)H9,G*)IT>GT4H92^[\G0)I-*G*)^@)@K@@@R^[(G))SJ )@@G@@GT\H14IL\H))IT>GT4H92^[-IL>GC)GD3IT\GT(GD4G(=^[7HD4H@)HD4 0)^[OH[>^[&HD2SK )@@G@@IT4^[>H14IL9^[(H0)@L@@@R^[4H[>^[(G))I--GL?G*)HD3^[-IT3H9G))I9(I-*SL )@@G@@^[4H[>^[&HD2IT4^[(G))GT\H14IL\H))IT>GT4H92 ))GD,G))^@)@G@@@R^[3H8)H9, 0)SM )@@G@@^[ GD^[DG))GT\H14IL\H))IT>GT4H92@@@@@R@K@@@R^@)^@)BK! *! *! *! *! *!SO )@@G@@ *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *!BK)SP )@@G@@@K@@@R^@)A@)BK)^@)^@)^@)^@)^@)^@)^@)^@)^@)DD=^93^[0IL\I->GT4HD\H0)HT>JC)SQ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)BK)@K@@@R^@)^@)BK! *! *! *! *! *! *! *! *! *!SR )@@G@@ *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *!BK)@K@@@R^@)AC)SS )@@G@@BK)^@)D-(H1:^[4H8)G1(IL3I))H(>IT3GD$G*)^@)^@'^@)^[GHD,HS)I-\^[?GD3I))H(>ST )@@G@@IT3GD$G*)^@)^@)BK)@K@@@R^@)^@)BK! *! *! *! *! *! *! *! *! *! *! *! *! *!SU )@@G@@ *! *! *! *! *! *! *! *! *! *! *! *! *! *! *!BK)@K@@@R^@)AK)BK)^@)^@)^@)SV )@@G@@^@)^@)^@)^@)^@)^@)^@)^[HG(3IT-G9>^[H(\^@)^@)^@'^@)^@)^[GHD,HS)I-\^[?GD3I))H(>H(\^@)^@)^@)BK)@K@@@RSZ )@@G@@^@)^@)BK! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *!TA )@@G@@ *! *! *! *! *! *! *!BK)@K@@@R^@)A))BK)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)TB )@@G@@^[HG(!H8)GT\I(,I))^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)BK)@K@@@R^@)^@)BK! *!TC )@@G@@ *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *!TD )@@G@@ *! *! *!BK)@K@@@R^@)A*)BK)D-(H1:^[4H8)G1(IL3I))G->H--JD>G))H(>H(\^@'^[GTE )@@G@@HD,HS)I-\^[?GD3I))G->H--JD>G))H(>H(\^@)BK)@K@@@R^@)^@)BK! *! *! *! *! *!TF )@@G@@ *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *!BK)TG )@@G@@@K@@@R^@)A0)BK)^@)^@)^@)^@)^@)^@)^@)^@)^[^G(?GD9G(=^[!G(!H8)GT\I(,I))^@)TH )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)BK)@K@@@R^@)^@)BK! *! *! *! *! *! *! *! *! *!TI )@@G@@ *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *!BK)@K@@@R^@)A8)TJ )@@G@@BK)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)TK )@@G@@^@)^@)^@)^@)^@)BK)@K@@@R^@)^@)BK)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[NI--I-(IT4TL )@@G@@HD^[(G))TP )@@G@@GT\H14IL\H))IT>GT4H92^[0IL\I1(G->IS)H(>IT3GD$G*)GT\I(,I-3^[&H92^[>GD^[\G0)H(>IT3GD$G*)@K@@@R^@*H1\IL!GD?^[!G(3IT-G9> ))H(>H(\ ))H92^[=TR )@@G@@G(?GD9G(=^[!G(!H8(^[7H[(GT*^[(IS)ID5G(5G(=^[4H8)I-*G*)@L@@@R^[0GD2I-(GT5TS )@@G@@H--IK)HD= ))GD,G))ID5G(5G*)H-(H1:IS)G1\IK)G(-GT*^[4JD0G*)H9&^[!G(3IT-G9>TT )@@G@@ 0)^[OH[>^[?HD,HT3@L@@@R^[-IL>^[3G(IS)HD,^[4H[>^[!G(3TU )@@G@@IT-G9>^[3G(IS)I-\^[4H[(IS)HD= 0)^[RH[>H0)I[2HD,I-(H1$TW )@@G@@^[!G(3IT-G9>IS?^[4H[>^@)@L@@@R^[#D9IC1M^[0IL\G92GD!^[3HD!I[?JC)G1\H-?H97TX )@@G@@IS)I-*G*)GT*GD(H0)H9&^[3G(IS)I-\^[&HD,G))@E@@@R^[>GDIT3GD$G*)G1\IK)I-*G*)HD=^[(H0)ID5G(3I-(H9, 0)^@)@@@@@R@N@@@R^[OH[>TZ )@@G@@^[3I--I-(IT4HD^[,I(!GL>IK)H9&^[!G(3IT-G9>IS)@N@@@R^[3G(,I))GL9^[-H1=^[2G(UB )@@G@@G))GL9^[4H[(IS)HD= ))GD,G))H[\I8)H(-H19^[7G(2G*)GD+H->^[4H8)GL>^[4IL-H13UC )@@G@@G1>IL2G(=^@)@A@@@R^[6HD-^[4H[>^[IT3GD$G*)IT>GT4H92@K@@@R^[ GD^[\G0)GC)CTJD1AEK)H(>UE )@@G@@IT3GD$G*)HD3^[0H--GT>G))HD,^[(I-3^[\I9,^[3G(@K@@@R^@+H(>UF )@@G@@IT3GD$G*)IT>GT4H92^K)GD2G(-^[\G0)I-*G*)G1(H-> ))GD3^[$H96G(2H1>G))GL9^[4UG )@@G@@H[>^[3G(ITG))UH )@@G@@GD+H96G*,^@)C(-GT*^[!G(3IT-G9>^[3G(^[&H9?H-\I9(UI )@@G@@H1$^[&H92H(-I)'^@)@@@@@R@A@@@RG1(G95IL>^[HG(3IT-G9>^[3G(^[\G0)H92UR )@@G@@HD$HD,^@)^@)^@)^@)^@)^@)^@)^@)^@)BK)@K@@@R^@)^@)BK! *! *! *! *! *! *! *!US )@@G@@ *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *!BK)@K@@@RUT )@@G@@^@)AS)BK)^@)^@)^@)^[AH--G8)GL(I-3^@)^@)^@)^@)^@)^@'^@)C17G))H-(H1:^[4H8)UU )@@G@@H1>J[4^[!G(3IT-G9>^@)BK)@K@@@R^@)^@)BK! *! *! *! *! *! *! *! *! *! *! *!UV )@@G@@ *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *!BK)@K@@@R^@)A))BK)^@)UW )@@G@@^[HG(!H8)IT4GD2I-(H1$^[=GD4G*)^@)^@)^@'^@)^@)D(>H(\^[>J[0HD2GD4HD\H0)G--UX )@@G@@I->^@)^@)BK)@K@@@R^@)^@)BK! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *!UY )@@G@@ *! *! *! *! *! *! *! *! *! *! *! *! *!BK)@K@@@R^@)A*)BK)^@)^@)^@)^@)^[PUZ )@@G@@H15IT>G))^@)^@)^@)^@)^@)^@'^@)^@)^@)ET0GDG))^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)BK)@K@@@R^@)^@)VD )@@G@@BK! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *!VE )@@G@@ *! *! *! *! *!BK)@K@@@R^@)A8)BK)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[PVF )@@G@@H15IT>G))^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)BK)@K@@@R^@)^@)BK! *! *! *!VG )@@G@@ *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *!VH )@@G@@ *!BK)@K@@@R^@)B@)BK)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)VI )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)BK)@K@@@R^@)^@)BK)^@)^@)^@)^@)^@)^@)^@)VJ )@@G@@^@)^@)^@)^@)D(>IT3GD$G*)I->J[4^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)BK)@K@@@RVK )@@G@@^@2A8)BK)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)VL )@@G@@^@)^@)^@)^@)^@)^@)^@)BK)@K@@@R^@)^@)BK! *! *! *! *! *! *! *! *! *! *! *!VM )@@G@@ *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *! *!BK)@[@@@RG(,G))@@@@@RVN )@@G@@@L@@@R^[OH[>^@+G1\IL7GD2G))H-(H1:^[4H8)H1>J[4^[!G(3IT-G9>^K)I9(H-?^[+G*)VO )@@G@@JL>IL\^[(G0)I-*HD3^[(IS)I-*G*)H--IT4@K@@@R^[!G(3IT-G9>^[(H0)GC)GT*GD(H0,VP )@@G@@^@)DD,^[4H[>^@+H->H1$I-*^K)G1(G(?G)?^[+HD4^@0A)0^[7HD?H))GL>^[3G(4@I@@@RVQ )@@G@@^[(G0)I-*G*)H(>IT3GD$G*)I->J[4^[(IS)HD,^[[ET#DDD^@*I9*HD^[!G(!H8)IT4GD2I-(H1$^[=GD4G*)GD,G))G(8I[(IL-I-(VS )@@G@@H9,^[=GD4G*)GD2G*)JL>IL\^[&H92^[\IL=HD,GD2JC)^@)@K@@@R^[!G(3IT-G9>IS,^@)VT )@@G@@E-*G*)H(>H(\^[3I--IL4HD,G8)G--I->^[(IS)JL>IL\^[&H92^[!G(!H93^[7H[(GT*^[3VU )@@G@@I--IL4@L@@@R^[2HD$H[4^[7H[>H0)IT>H14 ))GD,G))I-*G*)G(8I[(IL-I-(H9,^[=GD4VV )@@G@@G*)HD3^['G(2H8)G1\IK)H1\H0!G(8I[(IL(H1$^@)@L@U@R^[!G(!H93 0)^[IH94^[-H-3VW )@@G@@H8)I-*GD4^[+H94H@)I-*G(3G*)G--I->^[&HD>H-=IS)GD2G*)HD,^[TFDHD(^C))G1\IL!VX )@@G@@GD4^@)@L@@@U^[!G(!H93 0)^[IH94G*)GD?IT\^[4H[-I))GL\I-*^[4H[>IT>^[=GD4G*)VY )@@G@@G1(G(?G-3^[-IL>^[(H0)FDTD(HC-^^[&H92H(-I))@D@@@R^[4H8)I[>IL!HD4^[3HD!I[?VZ )@@G@@G*)IL-H1$G*)GT*G(^[&H--G8)GL(I-3BK)WA )@@G@@@@@@@R@#@@@RGT\H-5H(,^@1A@)^@)@#@@@RH->H1$I-*^@!A))^@)@G@@@R^@)^@0A@1^@!WB )@@G@@^[OH[(IS)H(>IT3GD$G*)I9-IS)IT>H14^[+JC)GC)GL-I-IT3GD$G*)I9-IS)G-(IL>GT4G(=^[4H8)GD?H))H(>H(+G(2WD )@@G@@IS)H9&^[-^[3I(+G92H95I@,@]@@@RGT\H-5H(,^@2@#@@@RH->H1$I-*^@:A))^@)@K@R@QWE )@@G@@^[OH[>^[&HD?G*)IL>ID5HD2G(=^[+JC)C[^),^[DI))^@)@L@R@Q^[3H[\I(?G))GL>^[G))I[5GL?HDJD3 0)^[AH92^[4H[>^[3GD:G*)H9&^[3G(IT4G(=^[4H[-I))@L@R@Q^[5H9!^93^[@GD3G8?G*)GT\G->^[+G*)HD,IT4GD?WJ )@@G@@H->G))IT\^[4H[-I))C[G))@G@R@Q^[2G($WK )@@G@@GD2G-?G(3IS)H9&^[4H[>^[!G(-H13^[\G0)I[2H9$IL-H*)I->IL!HD,GD4HD\H0,@L@R@QWL )@@G@@^[#H9,G12^)%GT\H1&G(2G(,GT>^))IT*H95H-=^[+G*)GT-I--H-\G95G(=^[7HD4H@)GD,WM )@@G@@^[(H1(I-(GD?^[2G(3G(2I1>^[\G0)@K@R@Q^[4I9\^[4IL-GT:IS?^[-H1=^[-^[!GD8HD!WN )@@G@@I(!^[\G0)A05^[4IL-GT:IS,^@)E-*G*)G1(IL3I))I-7H8)I-2GD^[(H1(I-(GD?HD'G(=^[4H8)GT\H14GD(H0)GD?H))GL(H1-IL9^['G(2H9>IS?WP )@@G@@^[7HD4H@)I-*G*)^@)@L@R@Q^[>J[GT4H92IS)A)?A*?A0?^[-H1=WQ )@@G@@^@7 0)^[OH[>IT>^[3G(^[&HD2IT4^[5IT>IK)H9&^[@WT )@@G@@GT\H1&IK)H[-IS)GC)IT0G(^[!GD9^[2G(!H96G*)^@)WU )@@G@@@K@R@Q^[\I-*G(2^[(G)$IS)GD4^[7HD?H))GL9^[5IT>^[\G0)I-*G*) L2H(6^[^[4H8)H94H[>IK)WW )@@G@@I(3G(2IS?^[,H92^[7HD?H))HD4IS)G(8HD3I->H1^[3I(3I[>GT4G(= 0)@]@R@QWX )@@G@@ETKCD#C*)^@)@E@R@QAC)D-(H1:HD,G8)E-\^[#H9,G12^))C12H9!^[JI-*G(2^[KIL\G92WY )@@G@@GD!IS'@E@@@RAC)D-(H1:HD,G8)E-\^[#D9IC1M^))C12H9!^[JI-*G(2^[KIL\G92GD!IS'WZ )@@G@@@F@@@R^[OH[>^[#D9IC1M^[0IL\G92GD!^93^[^[G))GL9^[-H19^[0IL\G92GD! ))GD,G))HD4XB )@@G@@IS)I(3G*)HD3^[2G(?GD4HD6G(?JC)@I@@@R^[!GD9^[+G*)GT-H-?G(=^[+JC)GD,JC)I[2XC )@@G@@H9$IL-H*?^[-H1=^[(I-3^[5IT>^[(IS)IL>H--I-(I1>H-9@K@R@Q^[3HD!I[?G*,^@)E-\XD )@@G@@^[\I[>IL-I->^[,H92H(-H-?JC?^[(I))H1>G(=^[\H1?JC)GL>^[3I(0I[?HD>G))I9(I-*XE )@@G@@^[4H[>@G@@@R^[3HD!I[?G*,^@)E-\^[\I[>IL-I->^[,H92H(-H-?JC?^[(I))H1>G(=^[\XF )@@G@@H1?JC)GL>^@)@H@@@R^[>H14G(2G(=^[6HD-^[GDDE^[SAC1^@*G12H9!^[-^[!GD%H92 (3XG )@@G@@G(4^[-GT4HD6HD4JC( ))^@)@C@@@R^[7HD4H@)IL>G9(IT4G(2^[[A@)GT\H14GD(H1(H1$XH )@@G@@^[4H[>@L@R@Q^[?G(,G94H@)GD,G))GD=G-2G(3IS)H9&^[-^[+I(&G1>IK)I-*GD4^[(I))XI )@@G@@H(-JC)I(3G*)HD,^[2G($HD3I->IK)GC1^[5I[\H0)@I@@@R^[?G(,G94H@)GD,G))GD=G-2XJ )@@G@@G(3IS)H9&^[-^[^ (+GD,HS)GL5G1&G(2^[4H[-I))HD4^[!GD9^[5IT> 0)@L@R@Q^[0G(2XK )@@G@@G1\IL!HD,G8)I-*G*)H-(HK,^@)E-*G*)H->H1$I-*^[3H[\I(?G))GL>^[-I))H->GD3I))XL )@@G@@A85A))I9\IL=IS,^@)E-*G*)@K@@@R^[OH[>^[?G(,G94H@)IT*H95H-=^[+G*)GD4^[?G(-XM )@@G@@IT4^@+C-]D1F^-G^K)I9\IL=IS) [H14H-9^@0AK6AK4 C,@J@@@R^[#D9IC1M^))XN )@@G@@I9(H-?^[=G(3I-2H99^[-H-?^[2G($HD3I->IL3^[\G0)I-*G*)H92HD$HD,GD?^[-GT4HD6XO )@@G@@HD4JC,@L@R@Q^[&HD2IT4^[7H92G))H9&^[4H[(IS)GL5G1&G(2^[3H[\I(?G))GL>^[\I[4XP )@@G@@HD\H13^[=G(3HD2G(=^[(H0)H(-IT4G(2^[+HD4^@)@@@@@R@N@@@R^[OH[>^[&HD2IT4^[7XQ )@@G@@H92G))H9&^[4H[>^[3I(0I[?HD>G))GL5G1&G(2^[3H[\I(?G))GL>^[\I[4HD\H13^[=G(3XR )@@G@@HD2G(= ))HD,^[!GD3I->IK)@L@R@Q^[,H94GD4HD\H0,^@)DD,^[-G-=HD4HD\H0)I-\^[4XS )@@G@@H[>^[,H92H(-H))H90I-(H9,IS?^[+HD4^@3A*)H(-JC)GL>^[3G(4^[4H8)@M@@@R^[+HD4XT )@@G@@^[,H94GD4HD\H0,^@)DD,^[-G-=HD4HD\H0)I-\^[4H[>^[,H92H(-H))H90I-(H9,IS?^[+XU )@@G@@HD4^@2A0)H(-JC)GL>^[3G(4^[4H8)@L@R@Q^[3I(0I[2G(3IS)I[2HD,I-(H1$^[\G0)I-*XV )@@G@@G*)IT(G9,H9,^[?HD,G*?^[-H1=^[+HD4^@3A))I-\^[3I(0I[2G(3IS)I-*G*)^@)@L@@@RXW )@@G@@^[3I(0I[2G(3IS)I[2HD,I-(H1$^[\G0)I-*G*)IT(G9,H9,^[?HD,G*?^[-H1=^[+HD4^@2XX )@@G@@A8)I-\^[3I(0I[2G(3IS)I-*G*)^@)@K@R@Q^[3HD$H1\G1&^[?HD,G*,^@)C1\IK)H1\IL!XY )@@G@@GD?^[\I[>IL-I-(H9, ))I-*G*)G1\H-?H97HD,G8)G((G9*I))I9\IL=IS)@M@@@R^[3HD$XZ )@@G@@H1\G1&^[?HD,G*,^@)C1\IK)H1\IL!GD?^[\I[>IL-I-(H9, ))I9\IL=IS)AK)I-*IL\I($YA )@@G@@H@)A8)H9&^[4H[>^[+I(&G1>IK)^@)@K@R@Q^[!I(3I))GL>^['G(2H8,^@)DD,^[4H[(IS)YB )@@G@@GT-IT> ))GT\H1&IK=^[7HD?H))I(3G*)HD4IS)H97H0)HD,I->IL,GD?^@)@K@@@R^[!I(3YC )@@G@@I))GL>^['G(2H8,^@)DD,^[4H[(IS)GT-IT> ))CTJD1AEK=^[7HD?H))I(3G*)HD4IS)H97YD )@@G@@H0)HD,I->IL,GD?^@)@K@@@Q^[2H95I-(H1>IS)G1\IK)IL>GD=HD,G8)GD,G))I[2HD,I-(YE )@@G@@H1$ 0)^[DG0)H1\H0!JL>IL\ ))HD4^[7HD?H))I(3G*)^@)@ @@@Q^[9H95IL3 ))GD3^[&YF )@@G@@H9?H-\I93BK)@]@R@QETKCD#C*)^@)@@@@@R@F@R@Q^@)^@)CL5G1&G(2 S2^@)^@)^@)^[-YG )@@G@@G-=IL>IT3^[\G0)HD=H->^[2H95I-(H1>^@)@F@@@R^@)^@)CL5G1&G(2 S2^@)^@)^@)^[-YH )@@G@@G-=IL>IT3^[\G0)HD=H->^[2H95I-(H1>^@)@H@R@Q^@)^@)GL5G1&G(2 S3 )?H@1^@)^[(YI )@@G@@G-?G*)GT9GT?G*) *)AK4^[(IS)G->G1-I(?I))I1-H-5G*)@H@@@R^@)^@)CL5G1&G(2 S3YJ )@@G@@ )?D@1^@)^[(G-?G*)GT9GT?G*) @2A))HD3^[=G(&GD5H-4^[6GD?I(> C)@K@R@Q^@)^@)YK )@@G@@GL5G1&G(2 S4^@)^@)^@)^[-G-=IL>IT3^[\G0)H1\H0!H(>IT3GD$G*)I[2HD,I)\GD0IL(YL )@@G@@H14^[2H95I-(H1>^@)@K@@@R^@)^@)CL5G1&G(2 S4^@)^@)^@)^[-G-=IL>IT3^[\G0)H1\YM )@@G@@H0!H(>IT3GD$G*)E[MDDIE)\CDKELDD1O^[2H95I-(H1>^@)@F@R@Q^@)^@)GL5G1&G(2 S5YN )@@G@@^@)^@)^@)^[-G-=IL>IT3^[\G0)GD2G(-G))IL\I(4HD,G*)@F@@@R^@)^@)CL5G1&G(2 S5YO )@@G@@^@)^@)^@)^[-G-=IL>IT3^[\G0)CDMC([C))IL\I(4HD,G*)@F@R@Q^@)^@)GL5G1&G(2 S6YP )@@G@@^@)^@)^@)^[-G-=IL>IT3^[\G0)GD4IL>GD=^[2H95I-(H1>@F@@@R^@)^@)CL5G1&G(2 S6YQ )@@G@@^@)^@)^@)^[-G-=IL>IT3^[\G0)CDOEL CD^^[2H95I-(H1>@J@R@Q^@)^@)GL5G1&G(2 S7YR )@@G@@^@)^@)^@)^[-G-=IL>IT3^[\G0)H(>IT3GD$G*)I[2HD,I)\GD0IL(H14^[2H95I-(H1>^@)YS )@@G@@@J@@@R^@)^@)CL5G1&G(2 S7^@)^@)^@)^[-G-=IL>IT3^[\G0)H(>IT3GD$G*)E[MDDIE)\YT )@@G@@CDKELDD1O^[2H95I-(H1>^@)@]@R@QETKCD#C*)^@)@@@@@R@L@R@Q^[4H[>IT>^[-G-=IL>YU )@@G@@IT3G(3^@%H(5IT4 K)GL>^[(H0)I-*G*)G)!GL-H1: 0)^[DG0)H1\I)?^[4H[>^[2G(3I(?YV )@@G@@I-3^[7HD?H))@L@@@R^[OH[>IT>^[-G-=IL>IT3G(3^[HE(NE))GL>^[(H0)I-*G*)C)!GL-YW )@@G@@H1: 0)^[DG0)H1\I)?^[4H[>^[2G(3I(?I-3^[7HD?H))^@)@B@@@Q^[+G*?^[-I))GL>IT4YX )@@G@@ ))I(,I[2G(=HD^[2G(!GD(H1=G(2^[\G0)I-*G*)GL5G1&G(2YY )@@G@@^[3I(0I[?HD>G))I-\^[#D9IC1M^))@K@@@R^[,G(>G))H1\I))GL>^[(H1(I-(GD?HD'G(=YZ )@@G@@^[+JC)I-*G*)GT-H-?G(2BK)^[#D9IC1M^))I9(H-?^[(H1(I-(GD?HD'G*)@G@@@R^[4H[(ZA )@@G@@IS)GD2G(-^[&H92^[(I-3^[D 9J^[0GDI-3^[-H1=^[=GD4GC)GL5G1&G(2IS,@]@R@QZB )@@G@@ETKCD#C*)^@)@@@@@R@L@R@Q^[[H-?^[2G(-G)\I[2HD,I))IL\I(4HD,G(3^[7HD?H))GL>ZC )@@G@@^[>H14G(2G(=^[+JC)H-!HK)J@1AC?B-2H95I-(H1>B0)I9(I-*^@)@L@@@R^[[H-?^[2G(-ZD )@@G@@G)\I[2HD,I))IL\I(4HD,G(3^[7HD?H))GL>^[>H14G(2G(=^[+JC)D-HDK)F@1AC?B-2H95ZE )@@G@@I-(H1>B0)I9(I-*^@)@K@R@Q^[-A@)I[2H90G(2H-9^[3G(4^[5I@)G1\IK)I-*G*)IL>GD=ZF )@@G@@^[\IK)I[2HD,I)?^[>J[GD=^[\IK)I[2HD,I)?^[>J[^[7HD?H))H[-I1>^[4H[>^@0A)0^[+HD4^[(H0)I-*ZI )@@G@@G*)I9\IL= (H-=^[3G(4 ))@L@@@R^[0IL(H14^[(H(-G9>^[7HD?H))H[-ZJ )@@G@@I1>^[4H[>^@0A)0^[+HD4^[(H0)I-*G*)I9\IL= (H-=^@*ES3 C)IT>I)?ZK )@@G@@@H@R@Q^[7H[(GT*^[!I(3I))GL>^[!GD3HT>G))H95I))I[2HD\IK)I-\^[4H[>^[>IK)GD0ZL )@@G@@IL(H14^),^@)@H@@@R^[7H[(GT*^[!I(3I))GL>^[!GD3HT>G))H95I))I[2HD\IK)I-\^[4ZM )@@G@@H[>^[ EK)CDKELDD1O^),^@)@]@R@QETKCD#C*)^@)@@@@@R@E@R@Q^[[H-?^[(H10I(4^[4ZN )@@G@@H8)GT\H1&IK=^@%H(5IT4 K)GL>^[-IT^[[ET#DDD 0)@]@R@QETKCD#C*)^@)@@@@@R@K@@@Q^[OH[>^[(G-?ZP )@@G@@G*)IL\I(4HD,G*)G(,I-2JC)H[-IS)H1\^[=G(&HD,G(=^[2G($HD3I->IK)GT\H14G(,I-3ZQ )@@G@@ ))G(8GT>I[4@]@R@Q^[8AC1 0)^@)@]@@@R^[SAC1 0)^@)@]@R@QETKCD#C*)^@)@@@@@RZR )@@G@@@L@@@Q^[OH[>^[!G(3IT-G9>^[0IL(H14^[2H95I-(H1>^[!GD9^[(G->H14HD&JC)I-*G*)ZS )@@G@@H92HD$HD,^[\G0)I-*G*)H(>IT3GD$G*)^@)@L@R@Q^[+JC)IT5GL4IL-GT4HD,G8)G1\I(2ZT )@@G@@^[&IL\H*)I-*G*)HD!GD$G*)GD=G-2G(3IS)HD,^[-A@,^@)E-*G*)HD=G(,I))I-*G(2G*)ZU )@@G@@@K@@@R^[+JC)IT5GL4IL-GT4HD,G8)B@)G12H9!^[4H[>^[(H(-G9>^[-G-=IL>IT3^[(H0)ZV )@@G@@CC0 0)^[OH[>^[(G->H14^[4H[>IL>@L@R@Q^[7HD?H))GD?I9-JD3^[+G*)HD,^[&HD>H-=ZW )@@G@@GD4GC,^@)E-*G*)I-=GD4G*=^[\G0)H92HD$HD,^[\G0)I-*G*)H(>IT3GD$G*)^@)@L@@@RZX )@@G@@^[7HD?H))GD?I9-JD3^[+G*)HD,^[AHD>H-=GD4GC,^@)E-*G*)E-^CDOC*=^[\G0)H92HD$ZY )@@G@@HD,^[\G0)I-*G*)H(>IT3GD$G*)^@)@C@R@Q^[7HD?H))GL>^[-I))HD!GD$G*)GD=G-2G(3ZZ )@@G@@IS) *)AK,^@)@C@@@R^[7HD?H))GL>^[-I))HD!GD$G*)GD=G-2G(3IS) *)A0,^@)@]@R@QAA )@@G@@ETKCD#C*)^@)@@@@@R@L@R@Q^[OH[>^[-GT4HD6HD4JC)G(,I->IL(H1$^[4H[>^[(G-?G*)AB )@@G@@IL\I(4HD,G*)I9(H-?^@%GD?I9-JD3 K)GL>^[!HD,H92^[3G(4 0)@L@@@R^[OH[>^[-GT4AC )@@G@@HD6HD4JC)G(,I->IL(H1$^[4H[>^[(G-?G*)IL\I(4HD,G*)I9(H-?^[[D-RCDTES)GL>^[!AD )@@G@@HD,H92^[3G(4 0)^@)@K@@@Q^[OH[>^[2G(-G-(H1$^[-GT4HD6HD4HD>IS)I9(H-?^[+G*)AE )@@G@@H(-HL\IK)IT>I)?^[\IK)I-*G*)GDIS)H(-JC)GL>^[>HD4H[>IK)H(-HL\IK)H92^[!AG )@@G@@HD,H92@]@@@Q^[3G(4 0)^@)@@@@@R@B@@@R^[OH[>^[H1H1$I-*^[\G0)C)!GL-H1:^[+AJ )@@G@@I(&G1>IK"^@)@A@@@R^@)^@)^@)D-SDC?E*)^@)F@1AC?CTJD1AEK=@B@@@R^@)^@)^@)D-DAK )@@G@@DK)^@)^@)F@1AC?CTJD1AEK=^))^@)@H@@@R^@)^@)^@)B-2G(4I(2H0"^@)^@)^@)^@)^@)AL )@@G@@^@)^@)^[>J[(I))IT4GD4I(3^[(H0)D@1^[\G0)CC0@@@@@R@@@@@R@^@@@R^[ J[(I))IT4AM )@@G@@GD4I(3BK)^@)@@@@@R@#@@@RGT\H-5H(,^@2A*)^@)@D@@@R^@)^@)^[ F[ID9MD*)^@) @0AN )@@G@@ C)^@)^@) *)H1\IL!GD?^[>J[(I))@J@@@R^@)^@)^[ F[#DTJD1GFC) @1 C)^@)^@) *)AO )@@G@@^L#^K)H90I-(H9,^[>J[(I)?^[CAK)B*)H(>IT3GD$G*)G1?GD$^@)@D@@@R^@)^@)^[ F[PAP )@@G@@D1FDD^^@) @2 C)^@)^@) *)I(,HT,H97H0)HD=^@)@I@@@R^@)^@)^[ F[ID9MD9JD*) @3AQ )@@G@@ C)^@)^@) *)HD=^[4GD+H->^[&I(?H)?^[CAK)B*)H(-J[(H(5H*)HD=IS)@I@@@R^@)^@)AR )@@G@@^[ F[^CL[C))^@) @0AC0 C)^@) *)IT*H92I))C)!GL-H1: ))D@2^@.^[2G(1I((IL>G))AS )@@G@@IT(JL>@I@@@R^@)^@)^[ F[^CL[C)2^@) @0AC1 C)^@) *)GL-G))C)!GL-H1: ))D@2^@.AT )@@G@@^[2G(1I((IL>G))IT(JL>^@)@I@@@R^@)^@)^[ F[[CTOES)^@) @0AC2 C)^@) *)AS)GDIL3^[,H94^[-I1-HD?GD+H->@I@@@R^@)^@)^[IG($GD4HD6G*)^@)AV )@@G@@^@)^@)^@) *)H(>IT3GD$G*)G1(H->^[ACD#^[MC(EC(#E))IT4GD4I(3^@)@]@@@RGT\H-5AW )@@G@@H(,^@2@]@@@RIL\H(-H0)H9,___I9\IL=IS)AK)I-*IL\I($H@)A8)H9&^[4H[>^[+I(&G1>AX )@@G@@IK)^@)@K@R@Q^[!I(3I))GL>^['G(2H8,^@)DD,^[4H[(IS)*[S@@[*SDFF*@@@@@[@A@@@[AY )@@G@@ET4HD?H))I-\^[=H8)HD,^[#H9,G12BK)^@)@@@@@[@G@]@[^@%^[NI-5G-9^[&G(-IT(GL(AZ )@@G@@H-(I-9^[\G0)D-DDK)I-\^[ C-H^[H0) LNC(IC))^@)BE )@@G@@@ @@@]^@)^[4H[>^[\I(4I[5I))G1(H-> 0)@K@@@[^@%^@%C(^DDO^[3H[\I(?G))GT*G( ))GD,G))IT:HD0^[(G0)I(,G(1I(-H))I-\^[9H95IK) K)@I@@@[BG )@@G@@^@%^[AHD8^@%ET D1^^[+I($BK)^[4IL\I(+H->^[(G0)H--IT4^[(H(-G9>^[7GD3^[=G(?BH )@@G@@G(4G(= 0)^@)@B@@@[^@%^[OG(I8)GD0I[2H9-GT*^[4H8)H(>IT3GD$G*)G-(IT0BJ )@@G@@H93HD4HD\H0)GD&I->IK)^@)@L@@@]^@)^[=G(?HD6G(2JC,^@)CT\I(?G))I[2H9!I[4^[5BK )@@G@@IT>IK)I9(I-*^@+CDI[?JC_^K)^[-H1=^[0IL\GT>IT3^[-GTI[?JC_^K)^[-H1=^[0IL\GT>IT3^[-GT^[AE-I (^[4H8)IT>H1= 92G(^[#D9IC1M^[!G(3IT-G9>IS,^@)@L@@@#^@%^[DH(0H->H(>H14^[!G(3IT-G9>^[&HD?BP )@@G@@G*)GT\H14IL-GT4HD\H0) [MC(G^))I-2GDH0)I[\IT3HD+H-> C,^@)@I@@@ BQ )@@G@@^@%^[[H-?H97^[3I(+G92H95I@)I-\^[+G*)IT0G(G))GD3^[2G(H14^[\BR )@@G@@G0) LHC(HD8,@L@@@ ^@%^[DH(0H->H(>H14^[,G(7^[H->I->^[-H-?^[!G(3IT-G9>IS)DC$I1>^[3G(,I),@K@@@ ^@)^[KH93IT(GL?JC)BT )@@G@@^K%C-H^[(G)+^[4H8)G->H->I->^[-H-?^[!G(3IT-G9>IS)DC$I1>^[3G(,I))I-\^@+HD=BU )@@G@@^K,^@)@K@@@ ^@)^[HI(3I))GT\I[>^[7HD4H@)H(>IT3GD$G(3 ))H(>H(\IS?^[=G(?GD9BV )@@G@@G(=^[!G(!H93^[3G(0GD2GD4G(?JC?^[\IK)@F@@@ ^@)^[-H-?H97^[5IT>IK)I-\^[3GD9BW )@@G@@^@+G->H->I->^[>I1>IL9I-*HD,G8+ 0)^@)@D@@@ ^@)^[HGD9GL>^[=G(?G(4G*)GL9^[3BX )@@G@@I(+G92H95I@?^[-H-3H8,^@)___PR10 @ @@@2@BRKPT PRINT$/MAR-WEEKLY BY )@@G@@@^@2@1@BLOCK OCT,WEEKLY,SYSID @C@@@2@BLOCK WEEKLY,MAR-83,DATE,WEEKLYBZ )@@G@@,MAR-83,DATE@E@2@1@ASG,T A.,U,13222 . PR*[S@@[*SDFF*@B@P@O^@)CT\CA )@@G@@H1&IK)DD,IT4GD?H--I-(H9,^[BI((G->^@)@C@@@PCTJD1AEK)E->GT*H1(GT-H))C-\GT5CB )@@G@@H(>H14GD4HD\H0)^@)@#@@@PH90I-(H9,^[>^[\H0)@#@@@PH90I-(H9,^[&^[\H0)@#@@@PCC )@@G@@H90I-(H9,^[2^[\H0)@#@@@OAC)C9>H1>IL-H))^@)@L@@@P^[#D9IC1M^[H0)D([ETHHD'G(= ))CDNCTDDD(JL>CE )@@G@@G)?^@)@G@@@P^[=G*!EL E[>G))GD,G))IT5GL3I--H14HD-H-?JC)IL>I92HD4I->H0)GD4CF )@@G@@^[DET^ 0)^@)@@@@@P@L@P@O^[@CT\H1&IK)IL>ID5HD2G(3^[>J[>GS)H->I1>H))AS1^[\CG )@@G@@IK)H[(G9*G(2 ))I9(I-*^[-^[7H92HT(H1$^[>IK)GL-H1:^))^@)@ @P@O^[-H1=^[4IS)CH )@@G@@ID5G(5G((H1$ 0)^@)@F@S@P^[OH[(IS)G-\GT5H(>H14^[=G(3GT2HD+G(3^[#D9IC1M^[6CI )@@G@@G(2IT(H9,^@1AK,A@,@F@@@S^[OH[(IS)G-\GT5H(>H14^[=G(3GT2HD+G(3^[#D9IC1M^[6CJ )@@G@@G(2IT(H9,^@1AK,AS,@C@@@PAK)ET0G(IS)I(4HD?HD'G(=CK )@@G@@@L@@@P^[#D9IC1M^[(IS)G->IT(G9,G(=^[4H8)H90G(2GD4G*)IL>G(,I-2GD,I-?JC?^[-CL )@@G@@H1=^[5IT>IS)I-*G*)G1\H-?H97HD,G8)^@)@K@@@P^[,H9, (4IL(I1(GD?^[&G(-I-5IL>CM )@@G@@IS)H9&^[4H[>^@1AC0A@)C(8G(<^[4H8)GDG1(H1>G))GD,G))IL>G1>IL>H1^@+CTJD1AEK!DDIE)+^[GT4HD\H0)HD3^[5IT>G)?@L@@@P^[-H0)HD,I->CR )@@G@@G92GD4G(=^[IT5H-4BK)^[(G0)I-*G*)CS )@@G@@^L#D9IC1M^K)GD,G))@M@@@P^@+CTJD1AEK=^K)GT\H-?G(IK)I[2H9$IL-H*)^@)@ @@@P^[7HD?CU )@@G@@H))GL>^[0IL\G-5GT>G),^@)@L@@@P^[OH[>^@+CTJD1AEK!D1M^K)GT\H-?G(G(,I-2GD,I))^@)@D@@@P^[6G(2CW )@@G@@IT(H9,^[\G0)I-*G*)I[2H9$IL-H*?^[-IS)I9>H-? 0)^@)@#@@@PAS)C(M^[]CDIDS=^@)CX )@@G@@@L@@@P^[OH[>^[#D9IC1M^))DC!GL-H1:^[5IT>IS)C(M^[]CDIDS=^[4H8)I1>IL(G19^[4CY )@@G@@H[-I))I-*G*)GL5G1&G(2^[0GD3IT>G))GL9@J@@@P^[4H[>^[H1$I-* 0)@K@@@P^[DI))DA )@@G@@HD3^[-H-3H8)I(3G(=^[+JC)I-*G*)HD,HD4HD?GD(JL-I-(H9,^[^[#DB )@@G@@D9IC1M^[^ (+GD,HS)@L@@@P^[4H8)IL>ID5G(3I))GC)IL>H-\GD=^[\G0)I-*G*)CTJD1ADC )@@G@@EK=^[IT4^[-H1=^[3DE )@@G@@G(4^[1I(>I(>HD,G8)@J@R@P^[OH[>^[#D1AEK)I[2H9$IL-H*)I(4HD?HD'G*)I->IT4^[-DF )@@G@@H1=^[3G(4^[1I(>I(>HD,G8)G1\IK)GD^[#D9IC1M^[0IL\G92DG )@@G@@GD!^[5I-(H-(JL>^[4G(3I))GD,G))IT>I))ID5G(5G((H1$^[&H92^[-GT4HD6HD4JC)^@)DH )@@G@@@F@@@P^[3JD,GT*IL\H1(JL-I-(H9,^[-H1=^[=GD4GC)GDIT3^[?H9GD= (-H1= (?H9IS)I-*G*)DJ )@@G@@IL>GD= (-H1= (?H9H0)GDIT3HD,G8)I-*G*)H(>IT3GD$G*)G1(H->IS?^[4H8)I[2DL )@@G@@H96HD=G*)^@)@L@@@P^[0IL\I->GT4HD\H0)H9&^[4H[>^[&HD?G*)I9*G(,^[3G(6G(2GD?DM )@@G@@^[2I(,IS)GD2G*)GDIT3HD,G8)HD4^[-I))H9,GT> 0)@#@@@PAS)C(M^[OELHELB^))DN )@@G@@@L@@@P^[RH[>H0)CTJD1AEK)HD3^[\I[>IL-I->G))IL>G(,I-2GD,I-?JC?^[(I))H(-HD,DO )@@G@@I--HD,IS)GD,^[(H0!GT\IL>^[?HD3I))H9&@N@@@P^[-H-?^[(G)$IS)I9*HDIT3GD$G*)I-2DQ )@@G@@GD,IT&G(2^@)@M@@@P^[4H[2H95G9*^[!G(!H92JC)HD3^[0H93IT(GL?G*,^@)DD&^[-^[5DR )@@G@@IT>IK)I->IL!HD,GD4G(3^[\I(4^[&IL\H*)I(,G->IK)I-*G*)^@)@M@@@P^[0IL\G92GD!DS )@@G@@^@*I1(GC)C[@F@)E)?^[@C[OC(MD*?^[#H9,I-2H9? (^ ))H92^[7H[-I->I1>IK( ))H[(DT )@@G@@IS)^L(G))GD^K)^@)@K@@@P^[>H14IL9^[7H95H-=^[2G(!GD(H0)HD, (J[4^[3JD3I->H*)GL\H94 ))IT\^[4H[>^@)@L@@@P^[!G(3IT-G9>DV )@@G@@^[4IL-H13G1>IK)GDIS)C(M^[OELHELB^))I-\^[-IT:^[&H92^[,H94DW )@@G@@HD&HDH0)IT5GT*^[4G(2H((H1-I-(H9,^[\GT^[(G)+DY )@@G@@^[>H14IL9^[+G(&H92G*)IL>GD?H-9^[>J[(I-(H1$ 0)^@)@ @@@PAS)DDNC)$IS)C(M^[NDZ )@@G@@E-[E-PES=^@)@K@@@P^[OH[>^@%ETOCDO^[-H1=^@%E9[E-#D@)GT\H(!GD,G-3^[5I-(H-(EA )@@G@@JL>^[DET^^93^[?H9I->IK)DDNC))HD3^[,H9,JL>IL\ ))ED )@@G@@GD,G))HD&^[4H[>^[3HD4G((G))^@)@L@@@S^[DG0)I-*G*)GT\H1&HD$I(2GD4HD\H0)I[-EE )@@G@@IL-H(>I->IK)^LDET^^K)HD3^[,H9,JL>IL\ ))GD,G))HD&^[4H[>^[3HD4G((G))@L@@@PEF )@@G@@^[(H0)I-*G*)D(#E))GT\H1&HD2H(3^[4H[-I))I-*G*)I[2H9$IL-H*)HD3^[-GT4I(-H-?EG )@@G@@JC)IL5H1,HD,G8)GD4^[DET^ ))^@)@I@@@P^[4H[>^[#D9IC1M^[=IL(I1>IK)I[2H9$IL-EH )@@G@@H*)I9(H-?^[0G(2G1\IL!^[-H0)C(M^[KELJE@=^[4H8)^@)@K@@@P^[2G($HD3I->IK)HD4EI )@@G@@IT>H-&^[-IS)GC)I[2H90IL(G(4GD2JC)I[-GT:GD$G*)G1\IK)GL(H-?HD,G8)I[5IL0H93EJ )@@G@@G(3 0)@]@@@PAS)C[[ETB -D@K@@@P^[OH[>^@+DC+^[\I[4HD\H0)HD3^[5IT>G))I9*G(,EK )@@G@@^[-IT3HD$H1(H1$^[4H[>^[!G(3IT-G9>^[&HD?G*?^[3H8)I-*GD4@L@@@P^[4H[>^[&HD?EL )@@G@@G*)I9(H-?^[-I(4H9!GD4HDG))GD4^[0IL\G92GD!^[4G(2H((H1-EM )@@G@@I-(H9, ))G(6G(,^@)@C@@@P^[(G0)CTJD1AEK)G(2IL\IL3^[\IK)HD3^[@C[S^[O^9>G),EN )@@G@@@^@@@OAC)DD,IT4GD?H--I-(H9,^@)@L@P@O^[@CT\H1&IK)H(-JC)G(8HD3I-3^[-IS)G((EO )@@G@@I-*G(2^[-^[+GD,HT>G))I(3G(2^[0IL\G92GD! ))H92^@*HD&^[J[(IT4^[-IS)G((I-*G(2^[-^[+GD,HT>G))I(3G(2^[0IL\G92GD!EQ )@@G@@ ))H92@G@@@P^[-IS)GC)GT\H1&HD$I(2G(=^[\IK)H1\H0!GT\H1&HD$I(2G(=^[G(,I-2GD,I-?JC,^@)@J@@@P^[DG0)HD,IT4GD?H->G))GD3^[-^[^[-GL?G*)I-\^[4IL-H13G1>IK)@L@@@P^[!G(3EU )@@G@@IT-G9>IS)G12H9!^[\H1>^[5IT>IK)I-\^[-H1\I-*G(2^[=HD2G( *!@L@@@P^[0IL\I->GT4G(= C)DC!GL-H1: ))G(?HD!HD,GD4EW )@@G@@HD,G8)I-*G*)H1>G(=^[&H92^[!I(IT3GD$G*)G1(H->^[D 9J 0)@]@P@OETKCD#EX )@@G@@C*)^@)@^@@@PAK)D(>IT3GD$G*)G1(H->^@)@K@@@P^[ GDG1(H1-GL?G*)G92H95EY )@@G@@I@)H9&^[#D9IC1M^[5IT>IL3^[*GD3^[(I-3^[\I9,^[!G(3IT-G9>^[&HD?G*,^@)@L@@@PEZ )@@G@@^@*CD4^[DET^ ))I-*G*)A)!G-(G9(I))GT5IT4H9!G(2^[,I(!GL>IK)HD3^[-IT3I(!G(=FA )@@G@@^[-IS)I-*G*)G92H95I@)H1-H(> C,@L@@@P^[OH[>^[$IL\I(0^[,GD!G*)HD3^[5IT>G))FB )@@G@@GD3^[4H[>^[1I(-H-(G1(G(2^[&H92^[4H[>^[!G(3IT-G9>^[&HD?G*?^[7H[\IT>@L@Q@PFC )@@G@@^[&HD?G(,GD!G*)HD3^[#D9IC1 EL D1#C*= 0)^[MG(-G)\I92HD4G*)HT>JD3^[&H92^[4FD )@@G@@H[>^[&HD?G*)GD2G*)GT\H(0I(4G(=@B@@@Q^[&HD?G(,GD!G*)HD3^[#D9IC1 EL D1#C*=FE )@@G@@ 0)^@)@L@@@Q^@*E-*HD3^[(IS)I-*G*)G->G1-I(?I))G1(H->^[,GD!G*'^@)GD,H94H[>FF )@@G@@IK)G1(H->H1-H(>^[!GD9^[+G*)IT0G(G))@K@@@Q^[(H0)IT0G(<^@1^[\G0)I-*FG )@@G@@G*)C[#D9IC1M^[I->IK)I-\^[4H[>^@)FH )@@G@@@A@@@Q^[#D9IC1M^))GT\H(!H9,^[+GD,HS, C)^@)@F@@@Q^[MG(-G)\I92HD4G*)HT>JD3FI )@@G@@^[&H92^[4H[>^[&HD?G*)GD2G*)GT\H(0I(4G(=^@)@L@@@P^[+GD3G(=^[\H0)I-*G*)G92FJ )@@G@@H95I@)H1-H(> ))GL5I))I-*G*)G1(H->IS)GD2G*)^L0I(+H-(GS+^[3H8)I-*GD4^[(H14FK )@@G@@G(2 *)@H@@@P^[+99 MW )@@G@@ . CP 7-81 @I@@@@ $DISPLAYMX )@@G@@ 'CODE MUST BE < 100' . CP 7-81 @I@@@@MY )@@G@@ ID$IOT . MZ )@@G@@CP 7-81 @I@@@@ $GO Z . NA )@@G@@ CP 7-81 @I@@@@ $ENDF NB )@@G@@ . CP 7-81 @I@@@@ $IF NC )@@G@@ +P(1,2)>+63 . CP 7-81 @I@@@@ND )@@G@@ $DISPLAY 'MESSAGE INDICATOR MUST BE < 64' . NE )@@G@@CP 7-81 @I@@@@ ID$IOT . NF )@@G@@ CP 7-81 @I@@@@ $GO Z NG )@@G@@ . CP 7-81 @I@@@@ $ENDF NH )@@G@@ . CP 7-81 @I@@@@NI )@@G@@ +P(1,2)*/9+P(1,1) . NJ )@@G@@CP 7-81 @I@@@@Z $NAME . NK )@@G@@ CP 7-81 @[@@@@-268 @I@@@@ENDMSG3 ' - OPERATIONANL )@@G@@L ERROR: PLEASE TRY AGAIN':;. CP 7-81 @I@@@@ NM )@@G@@ $CS(TR$ESC):$CS(HOME):$CS(EOM) . CP 7-8NN )@@G@@1 @I@@@@ENDMSG3L $EQU $-ENDMSG3 . NO )@@G@@ CP 7-81 @I@@@@ENDMSG4 ' - APPLICATION ERROR':; . NP )@@G@@ CP 7-81 @I@@@@ $CS(TR$ESC):$CNQ )@@G@@S(HOME):$CS(EOM) . CP 7-81 @I@@@@ENDMSGNR )@@G@@4L $EQU $-ENDMSG4 . CP 7-8NS )@@G@@1 @[@@@@-272 @I@@@@ + ENDMSG3L*4-1,ENDMSG3 . NT )@@G@@ CP 7-81 @I@@@@ + ENDMSG4L*4NU )@@G@@-1,ENDMSG4 . CP 7-81 @]@@@@-1111,1111 NV )@@G@@@I@@@@ TZ A14 . END FLAG SET ? NW )@@G@@ CP 7-81 @I@@@@ ERROR 42,OPERR . YES - NX )@@G@@ERROR CP 7-81 @]@@@@-1120,1125 @I@@@@ TZNY )@@G@@ A14 . END FLAG SET ? CP 7-81 NZ )@@G@@@I@@@@ ERROR 40 . YES - ERROR OA )@@G@@ CP 7-81 @I@@@@ JZ A12,RDA51 . REPEATOB )@@G@@ UNTIL END PROTECT CP 7-81 @]@@@@-1442,1444 @I@@@@ TEOC )@@G@@ A1,(+$CAS('GES')) . GES ? CP 7-81 OD )@@G@@@I@@@@ J SYSMSG6 . NO - SEND SYSTEM MSG OE )@@G@@ CP 7-81 @I@@@@ L,U A0,APPABORT . OF )@@G@@ CP 7-81 @I@@@@ TZ TERMSG OG )@@G@@ . NO ERROR ? CP 7-81 @I@@@@ TNOH )@@G@@E A0,TERMSG . OR 'FTL' RETURN CP 7-81 OI )@@G@@@I@@@@ J UOMSG6 . YES - SEND USER'S MSG OJ )@@G@@ CP 7-81 @I@@@@SYSMSG6 . NO - SOK )@@G@@END SYSTEM MSG CP 7-81 @I@@@@ STINIT SCCDBUF,CMOL )@@G@@PMPA . INITIALISE FOR MSG STORE CP 7-81 @]@@@@*SRALOAD OM )@@G@@@[@@@@-35 @D@@@@ SELECT ALT-FCB-CARDS ASSIGN DISC CORRS ON )@@G@@@A@@@@ ORGANIZATION RELATIVE @A@@@@ ACCESS MODOO )@@G@@E DYNAMIC @B@@@@ RELATIVE KEY IS CORRKEY. @[@@@@-53 OP )@@G@@@C@@@@ FD ALT-FCB-CARDS LABEL RECORDS OMITTED. @A@@@@ 01 AOQ )@@G@@LT-FCB-CARD-RECORD. @A@@@@ COPY SRA-MASTER-RECORD. @[@@@@OR )@@G@@-118- @[@@@@[6[12[@[@@@@[ *[*[@[@@@@-119- @]@@@@[(5)[(10)[ @[@@@@[ *[*[OS )@@G@@@[@@@@-167 @A@@@@ MOVE ZERO TO CORRKEY@]@@@@-170,172 OT )@@G@@@B@@@@ OPEN OUTPUT ALT-FCB-CARDS @A@@@@ CLOSOU )@@G@@E ALT-FCB-CARDS. @]@@@@*SRASUB @[@@@@-507 @ @@@@ IF SCCCOV )@@G@@POSN < 6 @C@@@@ GO TO 0100 0200 0300 0400 0500 @B@@@@OW )@@G@@ DEPENDING ON SCCCPOSN.@]@@@@-522,523 @]@@@@*STALLOX )@@G@@DEF @[@@@@-25 @I@@@@PIDLIST EQU 3+13 . START OY )@@G@@ADDRESS OF LIST OF CP 7-81 @I@@@@ OZ )@@G@@ . ASSOCIATED TERMINALS CP 7-81 @I@@@@PIDLISTL PA )@@G@@ EQU 14 . LENGTH OF LIST OF CP 7-81 PB )@@G@@@I@@@@ . ASSOCIATED TERMINAPC )@@G@@LS CP 7-81 @[@@@@-40 @I@@@@OPERR EQU 3 PD )@@G@@ . 'OPERATIONAL' ERROR CP 7-81 @I@@@@APPABORT EQUPE )@@G@@ 4 . 'FTL' RETURN FROM APPLICATION CP 7-81 @[@@@@PF )@@G@@-47 @I@@@@TL$NAM EQU 0 . TXN PROGRAM NAME PG )@@G@@ CP 7-81 @I@@@@TL$PID EQUF 07,,H2 . PH )@@G@@PID CP 7-81 @I@@@@TL$CIM EQU 4PI )@@G@@ . INPUT CID CP 7-81 @I@@@@TL$COMPJ )@@G@@ EQU 5 . OUTPUT CID CP 7-8PK )@@G@@1 @I@@@@. PL )@@G@@ CP 7-81 @I@@@@. FLAGBOX SETTINGS PM )@@G@@ CP 7-81 @I@@@@. PN )@@G@@ CP 7-81 @I@@@@ERREPOPO )@@G@@RT EQU 1*/13 . CP 7-8PP )@@G@@1 @I@@@@-60,60 PQ )@@G@@ ** TEMP ** @H@@@@ERRTXN EQU 'SYSERR' . PR )@@G@@(RESTORED) CP 7-81@]@@@@*SYSPRT @[@@@@-77,77@I@@@@PS )@@G@@. PT )@@G@@CP 7-81 @I@@@@. THE PURPOSE OF THIS CODE IS TO PREVENT SYSPRT BEING PU )@@G@@ERROR-TERMINATED CP 7-81 @I@@@@. (IN PARTICULAR TYPE 035 CODE 072 -PV )@@G@@ DUE TO BAD SCHEDULE BY CMS ?), CP 7-81 @I@@@@. UNLESS FLAGBOX BPW )@@G@@IT 13 (ERREPORT) IS SET. CP 7-81 @I@@@@PX )@@G@@. PY )@@G@@CP 7-81 @I@@@@ ER CEND$ . PZ )@@G@@ CP 7-81 @I@@@@ SZ CREG QA )@@G@@ . CLEAR CONTINGENCY MODE CP 7-81 @I@@@@ L,U QB )@@G@@ A0,CREG . CP 7-81 @I@@@@QC )@@G@@ ER CREG$ . QD )@@G@@CP 7-81 @I@@@@ CALL FLBOX FLAGS . GET FLAGBOX QE )@@G@@ CP 7-81 @I@@@@ L,U A0,TEMP QF )@@G@@ . GET TGL$CIM & TL$COM FROM SLOPCP 7-81 @I@@@@ L QG )@@G@@ A1,(2,TL$CIM) . CP 7-81 @I@@@@QH )@@G@@ ER PCT$ . QI )@@G@@CP 7-81 @I@@@@ DL A4,TEMP . ANY COMPOOL QJ )@@G@@ASSIGNED ? CP 7-81 @I@@@@ DJZ A4,NOREL QK )@@G@@ . NO CP 7-81 @I@@@@ CALL QL )@@G@@ CRELOG . YES - RELEASE IT CP 7-81 @I@@@@QM )@@G@@NOREL . QN )@@G@@CP 7-81 @I@@@@ L A0,FLAGS . QO )@@G@@ CP 7-81 @I@@@@ TOP,U A0,1*/13 QP )@@G@@ . ERREPORT ON ? CP 7-81 @I@@@@ J QQ )@@G@@ NORPRT . NO CP 7-81 @I@@@@QR )@@G@@ L A0,MSG1PKT . YES - PRINT MSG & DUMP QS )@@G@@CP 7-81 @I@@@@ ER APRINT$ . QT )@@G@@ CP 7-81 @I@@@@ ER SEXEM$ QU )@@G@@ . EXEC LEVEL MAKES LITTLE CP 7-81 @I@@@@ QV )@@G@@ . DIFFERENCE FOR OUR PURPOSES CP 7-81 @I@@@@QW )@@G@@NORPRT . QX )@@G@@CP 7-81 @I@@@@ ER EXIT$ . TERMINATE QY )@@G@@ CP 7-81 @[@@@@-101 @I@@@@MSG1 $CAS('**** AN QZ )@@G@@ERROR HAS OCCURRED ****') . CP 7-81 @I@@@@MSG1L RA )@@G@@ $EQU $-MSG1 . CP 7-8RB )@@G@@1 @I@@@@MSG1PKT + 2*/24+MSG1L*/18+MSG1 . RC )@@G@@ CP 7-81 @I@@@@TEMP + 0D . RD )@@G@@ CP 7-81 @I@@@@TL$CIM $EQU 0344RE )@@G@@ . CP 7-81 @]@@@@*TSTMSRF )@@G@@G @[@@@@-0 @[@@@@. @[@@@@. @[@@@@. @F@@@@. TRANSACTIORG )@@G@@N FOR USE IN TEST SYSTEM, TO 'LOCK OUT' LIVE GES & @ @@@@. RH )@@G@@ DEMAND USERS. @[@@@@. @^@@@@. CHRIS PRIEST - JUNE 81@[@@@@. RI )@@G@@@[@@@@. @[@@@@. @B@@@@ SYSDEF . RJ )@@G@@@B@@@@$(3) $LIT . @B@@@@MSG1 RK )@@G@@ . @D@@@@ $CAS(TR$ESC):$CAS(HOME):$CAS(TR$RL )@@G@@ESC):;. @C@@@@ $CAS(EEDP):$CAS(TR$ESC):$CAS(ESCVT):;.@C@@@@RM )@@G@@ $CAS(037+6):$CAS(037+28):$CAS(SI):;. @C@@@@ $CAS('TERN )@@G@@ST SESSION IN PROGRESS'):;. @B@@@@ $CAS(TR$ESC):$CAS(ESCVT):;RO )@@G@@ . @C@@@@ $CAS(037+12):$CAS(037+31):$CAS(SI):;. @B@@@@ RP )@@G@@ $CAS(0):$CAS(0) . @B@@@@INS $EQU $-MSG1 RQ )@@G@@ . @B@@@@ $CAS('?????? NOT AVAILABLE'):;. @B@@@@ RR )@@G@@ $CAS(TR$ESC):$CAS(ESCVT):; . @C@@@@ $CAS(037+18):$CAS(03RS )@@G@@7+30):$CAS(SI):;. @C@@@@ $CAS('PLEASE TRY AGAIN LATER'):;. RT )@@G@@@B@@@@ $CAS(TR$ESC):$CAS(HOME):; . @B@@@@ $CAS(EOMRU )@@G@@) . @B@@@@MSG1L $EQU $-MSG1 . RV )@@G@@@B@@@@$(0) . @B@@@@SCCDBUF $RES RW )@@G@@ CMPMPA+MSG1L . @B@@@@$(1) . RX )@@G@@@B@@@@START . @C@@@@ CALL RY )@@G@@ INITAL SCCDBUF,(CMPMPA) . @B@@@@ CALL CRELOG RZ )@@G@@ . @G@@@@ L A0,(1,SCCDBUF+CMPMPA) . MOVE MSG TO COMPSA )@@G@@OOL BUFFER @B@@@@ L A1,(1,MSG1) . @B@@@@ SB )@@G@@ L,U R1,MSG1L . @B@@@@ BT A0,,*A1 SC )@@G@@ . @B@@@@ L,U A0,SCCDBUF . @G@@@@ SD )@@G@@ SSL A5,36 . CONVERT TXN CODE TO ASCII @B@@@@SE )@@G@@ DSL A6,72 . @B@@@@ L A4,CSF )@@G@@MPTXN-1,A0 . @B@@@@ L,U R3,6 . @B@@@@SG )@@G@@TRANSLP . @B@@@@ JGD R3,$SH )@@G@@+2 . @B@@@@ J TRANSLPX . @B@@@@SI )@@G@@ DSL A4,6 . @B@@@@ SSL A5,3SJ )@@G@@0 . @B@@@@ TG,U A5,$CFS('A') . @D@@@@SK )@@G@@ TG,U A5,$CFS('Z'+1) . ALPHABETIC ?@C@@@@ J SL )@@G@@ $+2 . NO @G@@@@ A,U A5,($CAS('SM )@@G@@A'))-($CFS('A')) . YES - ADD ASCII BIAS @D@@@@ TNE,U A5,$SN )@@G@@CFS(' ') . SPACE ? @F@@@@ SSL A5,36 SO )@@G@@ . YES - CONVERT TO NULL @B@@@@ LSSL A5,27 SP )@@G@@ . @B@@@@ DSL A6,9 . @B@@@@ A SQ )@@G@@ A6,A5 . @B@@@@ J TRANSLP SR )@@G@@ . @B@@@@TRANSLPX . @B@@@@ S SS )@@G@@ A6,CMPMPA+INS,A0 . @B@@@@ SSL A7,18 ST )@@G@@ . @B@@@@ S,H1 A7,CMPMPA+INS+1,A0 . @E@@@@ L,SU )@@G@@U A1,013 . LOAD TIP O/P IND @F@@@@ L,U SV )@@G@@ A2,CMPMPA+MSG1L . LOAD COMPOOL LENGTH @E@@@@ L SW )@@G@@ A3,CMPPID-1,A0 . GET INPUT PID @G@@@@ S A1,CSX )@@G@@MPIND-1,A0 . STORE ABOVE VALUES IN MPA @B@@@@ S SY )@@G@@ A2,CMPLWC-1,A0 . @B@@@@ S A3,CMPOID-1,A0 . SZ )@@G@@@E@@@@ CALL RTRANO (1,SCCDBUF),(MSG1L+CMPMPA) . @B@@@@TA )@@G@@ ER EXIT$ . @B@@@@ $END STARTB )@@G@@T . @]@@@@*FILEPRT/95 @]@@@@*FUTIL/151 @]@@@@*VERSION/0 TC )@@G@@_@@@@@ CP 7-81 @I@@@@Z $NAME TD )@@G@@ . CP 7-8*[S@@@*SDFF*@I@@@@. THISTE )@@G@@ SUBROUTINE CONVERTS A STRING OF DISPLAY DECIMAL CHARACTERS (FD OR ASCIITF )@@G@@) @C@@@@. INTO AN INTERNAL REPRESENTATION IN BINARY. @H@@@@. THE TG )@@G@@INPUT STRING MAY BE UP TO 10 CHARACTERS IN LENGTH PLUS A LEADING SIGN, TH )@@G@@@H@@@@. CONVERSION PROCEEDING FROM LEFT TO RIGHT TERMINATING ON ENCOUNTETI )@@G@@RING A SPACE@#@@@@. OR END OF FIELD.@]@@@@. CALL: @ @@@@. DTJ )@@G@@L A0,PKT @]@@@@. PKT : @]@@@@. WORD @B@@@@. 0 TK )@@G@@ H1= 0 INPUT IS FD CODE @B@@@@. 1 INPUT IS ASCIITL )@@G@@ CODE @D@@@@. 0 H2= ADDRESS OF CHARACTERS STRING @I@@@@TM )@@G@@. 1 H1= CHARACTER OFFSET (MAY BE ANY POSITIVE #) TN )@@G@@FTR 2-80 @I@@@@. 1 H2= COUNT OF CHARACTERS (MAX 11) TO )@@G@@ FTR 2-80 @[@@@@. @C@@@@. IF CONVERSION IS OK: TP )@@G@@RESULT IN A0, A1 = 0 @B@@@@. IF CONVERSION NOT OK: A0 = 0, A1 = -1 TQ )@@G@@@[@@@@. @ @@@@. FRANK RUDOLPH FEB 1975 @[@@@@. @E@@@@. SURRTR )@@G@@EY COUNTY COUNCIL ENGLAND (SITE CODE SCC) @[@@@@. @#@@@@TS )@@G@@ AXR$ @^@@@@NREGS EQU 8 @E@@@@$(4) LIT TT )@@G@@ . PRESETS TO LC4 @D@@@@$(1) TU )@@G@@ . CODE TO LC 1 @]@@@@DECTRAN* @G@@@@P DO NREGTV )@@G@@S , SX X1+P-1,REGSAV+P-1 . SAVE X REGISTERS @^@@@@ L TW )@@G@@ X1,A0@D@@@@ LXI,U X1,1 . INPUT ADDRESSTX )@@G@@@I@@@@ L,U X2,,A1 . COUNT OF CHARACTERS TY )@@G@@ FTR 2-80 @^@@@@ SSL A0,18@E@@@@ L TZ )@@G@@ X3,A0 . FD/ASCII INDICATOR @I@@@@ SPD X4 UA )@@G@@ . DUMP PDR FTR 2-80 @C@@@@ UB )@@G@@ L,U A0,,X2 . COUNT @E@@@@ TG,U A0,12UC )@@G@@ . MAX IS 10 + SIGN @C@@@@ J DEC9 UD )@@G@@ . ERROR @D@@@@ L X5,(1,0) . CHAR INUE )@@G@@DEX @I@@@@ SSL A1,18 . GET CHAR OFFSET (IUF )@@G@@F ANY) FTR 2-80 @I@@@@ SZ A0 . UG )@@G@@& CONVERT TO WORDS + CHARS FTR 2-80 @I@@@@ EX DIV,UH )@@G@@X3 . FTR 2-80 @I@@@@ UI )@@G@@ A X5,A1 . ADD IN CHAR OFFSET FTR 2-UJ )@@G@@80 @I@@@@ A X1,A0 . ADD IN WORD OFFSETUK )@@G@@ FTR 2-80 @D@@@@ L,U X6,1 . FUL )@@G@@IRST PASS @I@@@@ L A0,X4 . SET QUARTER UM )@@G@@WORD MODE FTR 2-80 @I@@@@ OR,U A0,010 UN )@@G@@ . FTR 2-80 @I@@@@ LPD UO )@@G@@ 0,A1 . FTR 2-80 @E@@@@UP )@@G@@ L,U X7,1 . POSITIVE NUMBER @E@@@@ UQ )@@G@@ SZ A1 . CLEAR ACCUMULATOR @[@@@@DEC2 @D@@@@UR )@@G@@ JGD X2,DEC6 . DO ALL CHARS @[@@@@DEC3 @F@@@@US )@@G@@ LDSL A0,36 . DONE-GET CONVERTED NUMBER@E@@@@UT )@@G@@ MSI A0,X7 . MULTIPLY BY SIGN @[@@@@DEC4 UU )@@G@@@I@@@@ LPD ,X4 . RESTORE PDR UV )@@G@@ FTR 2-80 @G@@@@P DO NREGS , LX X1+P-1,REUW )@@G@@GSAV+P-1 . RESTORE @D@@@@ J 0,X11 . AUX )@@G@@ND RETURN @[@@@@DEC6 @E@@@@ EX LOAD,X3 . GUY )@@G@@ET A CHARACTER @E@@@@ TLE,U A0,'9'+1 . IS ITUZ )@@G@@ NUMERIC @ @@@@ TLE,U A0,'0' @C@@@@ J VA )@@G@@ DEC7 . NO @E@@@@ L,U X6,0 VB )@@G@@ . CLEAR FIRST FLAG @G@@@@ MSI,U A1,10 . MVC )@@G@@ULTIPLY ACCUMULATOR BY 10 @G@@@@ AN,U A0,060 VD )@@G@@ . AND ADD IN BINARY NUMBER @^@@@@ A A1,A0@^@@@@VE )@@G@@ J DEC2 @[@@@@DEC7 @F@@@@ TNE A0,SPACE,X3VF )@@G@@ . SPACE IS END OF FIELD @^@@@@ J DEC3 @D@@@@VG )@@G@@ TNZ,U 0,X6 . FIRST TIME? @D@@@@ J VH )@@G@@ DEC9 . NO - ERROR @D@@@@ TNE A0,PLVI )@@G@@US,X3 . POSITIVE ? @C@@@@ J DEC8 VJ )@@G@@ . YES @D@@@@ TE A0,MINUS,X3 . NEGATIVE ? VK )@@G@@@D@@@@ J DEC9 . NO - ERROR @E@@@@ VL )@@G@@ L,XU X7,-1 . NEGATIVE MULTIPLIER@[@@@@DEC8 @D@@@@VM )@@G@@ L,U X6,0 . DONE FIRST @^@@@@ J VN )@@G@@ DEC2 @[@@@@DEC9 @D@@@@ L,XU A1,-1 . EVO )@@G@@RROR STATUS @^@@@@ SZ A0 @^@@@@ J DEC4 VP )@@G@@@[@@@@LOADFD@C@@@@P DO 5 , L,016-P A0,0,X1 @C@@@@VQ )@@G@@ LMJ X8,$+1 @C@@@@ VR )@@G@@ LXM,U X5,0 @C@@@@ L,S6 VS )@@G@@ A0,0,*X1 @C@@@@ J 0,X8 @]@@@@VT )@@G@@LOADASC @C@@@@ L,Q1 A0,,X1 @C@@@@VU )@@G@@ L,Q2 A0,,X1 @C@@@@ VV )@@G@@ L,Q3 A0,,X1 @C@@@@ LMJ VW )@@G@@ X8,$+1 @C@@@@ LXM,U X5,0 @C@@@@VX )@@G@@ L,Q4 A0,,*X1 @C@@@@ VY )@@G@@ J 0,X8 @[@@@@LOAD @ @@@@ EX LOADFVZ )@@G@@D,*X5 @ @@@@ EX LOADASC,*X5@I@@@@DIV WA )@@G@@ . FTR 2-80 @I@@@@ WB )@@G@@ DI,U A0,6 . FD CHAR OFFSET DIVIDE FTR 2-WC )@@G@@80 @I@@@@ DI,U A0,4 . ASC CHAR OFFSET DIWD )@@G@@VIDE FTR 2-80 @[@@@@$(0) @^@@@@REGSAV RES NREGS@[@@@@WE )@@G@@$(4) @[@@@@SPACE @#@@@@ + 05 @#@@@@ + 040 @[@@@@WF )@@G@@PLUS @^@@@@ + 042 @^@@@@ + 053 @[@@@@WG )@@G@@MINUS @#@@@@ + 041 @#@@@@ + 055 @#@@@@ ENWH )@@G@@D _@@@@@ X1+P-1,RE*[S@@@*SDFF*@G@@@@. THIS SUBROUTINE ENABLES A PRWI )@@G@@OGRAM TO OBTAIN DATA FIELD BY FIELD FROM A@^@@@@. PARAMETER OF THE FORM:WJ )@@G@@@A@@@@. FIELD1,FIELD2,FIELD3,FIELD4,*@[@@@@. @B@@@@. THE FOLLOWWK )@@G@@ING SIX WORD PACKET IS USED @[@@@@. @]@@@@. WORD @D@@@@. WL )@@G@@0 H1 - MAX CHARS TO PARAMETER (*) @D@@@@. WM )@@G@@ H2- MAX CHARS TO FIELD (*) @F@@@@. 1 S1- 1= INPUWN )@@G@@T DATA IN ASCII 0= FIELDATA (*) @F@@@@. H2- CURREWO )@@G@@NT CARD POINTER (*) ZERO INITIALLY@D@@@@. 2 CHAR/WORD POWP )@@G@@INTER TO INPUT PARAMETER@E@@@@. H1- CHARACTER NUMBER WQ )@@G@@WITHIN WORD (*) @E@@@@. H2- WORD (ADDRESS OF PARAMEWR )@@G@@TER) (*) @G@@@@. 3 H1- SUPPLIED ON OUTPUT - CHARACTER WS )@@G@@COUNT THIS FIELD @D@@@@. H2- OUTPUT LOCATION ADDRESS (WT )@@G@@*) @G@@@@. 4 H1- ERROR JUMP ADDRESS (*) WU )@@G@@ ! @G@@@@. H2- END OF CARD JUMP ADDRESS (*) WV )@@G@@ !! @G@@@@. 5 H1- PARAMETER DELIMITER JUMP WW )@@G@@ADDRESS (*) !!!@H@@@@. H2- CONTINUATION ENCOUNWX )@@G@@TERED JUMP ADDRESS (*) !!!! @[@@@@. @G@@@@. FIELDS MARKED (*WY )@@G@@) ARE REQUIRED TO BE SET BY THE CALLER ON FIRST ENTRY @[@@@@. @H@@@@WZ )@@G@@. ! CONTROL IS PASSED TO THE ADDRESS CONTAINED HERE IF THE COUNT IN WXA )@@G@@ORD 0,@E@@@@. H2 DECREMENTS TO ZERO BEFORE A COMMA IS ENCOUNTERED XB )@@G@@@H@@@@. !! CONTROL IS PASSED TO THIS ADDRESS IF THE COUNT IN WORD 0,H1XC )@@G@@ DECREMENTS @E@@@@. TO ZERO AND NO ',*' SEQUENCE HAS BEEN ENCOUNTEXD )@@G@@RED @G@@@@. !!! CONTROL IS PASSED HERE WHEN THE SEQUENCE ',*' IS ENCOXE )@@G@@UNTERED @G@@@@. !!!! CONTROL IS PASSED HERE WHEN THE SEQUENCE ',;XF )@@G@@' IS ENCOUNTERED @H@@@@. NOTE THAT TO CONTINUE ON THE NEXT CARXG )@@G@@D, WORD 2 OF THE PACKET SHOULD@H@@@@. BE RESET AND THE SUBROUTIXH )@@G@@NE REENTERED AT THE TAG RGETF. THE NEXT @D@@@@. EXIT WILL BE XI )@@G@@TO THE LAST CALL ON GETFLD @[@@@@. @G@@@@. THE SPECIAL DELIMITER XJ )@@G@@CHARACTERS (IE COMMA SEMICOLON ASTERISK) MAY BE @G@@@@. CHANGED BY REPLAXK )@@G@@CEMENT OF ANY OR ALL OF THE ITEMS ADDRESSED UNDER THE @D@@@@. EXTERNALIZXL )@@G@@ED TAG 'GETFLD$CHARS'. THE FORMAT IS: @[@@@@. @^@@@@. GETFLXM )@@G@@D$CHARS @C@@@@. +0 H1 = FIELDATA SEMICOLON@C@@@@XN )@@G@@. H2 = FIELDATA COMMA @[@@@@. @C@@@@. XO )@@G@@ +1 H1 = ASCII SEMICOLON @B@@@@. HXP )@@G@@2 = ASCII COMMA @[@@@@. @C@@@@. +2 H1 = FIELDAXQ )@@G@@TA ASTERISK @C@@@@. H2 = FIELDATA SPACE @[@@@@XR )@@G@@. @C@@@@. +3 H1 = ASCII ASTERISK @B@@@@. XS )@@G@@ H2 = ASCII SPACE @[@@@@. @F@@@@. THE SELECTION OFXT )@@G@@ THE FIELDATA OR ASCII CHARACTER DEPENDS ON THE @ @@@@. MODE IN THE SUPPXU )@@G@@LIED PACKET.@[@@@@. @G@@@@. AN ADDITIONAL FEATURE IS AVAILABLE WHEREXV )@@G@@BY A STOP CHARACTER MAY BE @F@@@@. SPECIFIED, THE DETECTION IN THE INXW )@@G@@PUT BUFFER OF WHICH, WILL @D@@@@. CAUSE THE ROUTINE TO EXIT TO A SPEXX )@@G@@CIFIED ADDRESS. @G@@@@. TO USE THIS FEATURE THE CALLING ROUTINE IS REQXY )@@G@@UIRED TO PREVIOUSLY @C@@@@. SET THE LOCATION GETFLDSTOP UP AS FOLLOWXZ )@@G@@S: @A@@@@. H1 = CHARACTER TO ACT AS STOP @D@@@@. H2 = ADDRESS TOYA )@@G@@ WHICH THE ROUTINE WILL PASS CONTROL@[@@@@. @[@@@@. @C@@@@. FRANYB )@@G@@K RUDOLPH REDESIGNED 22 FEB 1975 @[@@@@. @E@@@@. SURREY COUYC )@@G@@NTY COUNCIL ENGLAND (SITE CODE SCC) @[@@@@. @[@@@@. YD )@@G@@@B@@@@ AXR$ . @F@@@@NREGS EQU YE )@@G@@ 8 . SAVE REGISTERS X1-X7 @E@@@@ASCFD EQUF YF )@@G@@ 1,X11,S1 . ASCII/FD FLAG @E@@@@CARDMX EQUF 0,X1YG )@@G@@1,H1 . MAX CARD CHARS @E@@@@FILDMX EQUF 0,X11,H2 YH )@@G@@ . MAX FIELD CHARS @D@@@@CHARX EQUF 2,X11,H1 YI )@@G@@ . CHAR INDEX @D@@@@WORDX EQUF 2,X11,H2 . WORD IYJ )@@G@@NDEX @F@@@@CURRCC EQUF 1,X11,H2 . CURRENT CARD POINTYK )@@G@@ER @C@@@@ERJUMP EQUF 4,X11,H1 . ERROR @C@@@@ECJUMPYL )@@G@@ EQUF 4,X11,H2 . CARD @D@@@@EPJUMP EQUF 5,X1YM )@@G@@1,H1 . PARAMETER @D@@@@CONJMP EQUF 5,X11,H2 YN )@@G@@ . CONTINUATION@F@@@@OUTLOC EQUF 3,X11,H2 . OUTPUTYO )@@G@@ CARD WORD POINTER@E@@@@ASCON EQUF 1,X11,S2 . ASCII YP )@@G@@Q-MODE FLAG @E@@@@OUTCNT EQUF 3,X11,H1 . OUTPUT CHAR YQ )@@G@@COUNT @F@@@@$(4) LIT . ALL PRESETS TO LC YR )@@G@@4 @E@@@@$(1) . ALL CODE TO LC 1 YS )@@G@@@G@@@@RGETF* . RETURN AFTER CONTINUATIOYT )@@G@@N CHAR@G@@@@ L X11,RETADD . RESTORE RETURN FROYU )@@G@@M LAST TIME @E@@@@GETFLD* . MAIN ENTRY PYV )@@G@@OINT @B@@@@ S X11,RETADD . @E@@@@ L,YW )@@G@@U X11,*0,X11 . PACKET ADDRESS @B@@@@ L,U YX )@@G@@ R1,NREGS . @B@@@@ L,U A0,X1 . YY )@@G@@@B@@@@ LXI,U A0,1 . @B@@@@ L YZ )@@G@@ A1,(1,REGSAV) . @G@@@@ BT A1,0,*A0 . ZA )@@G@@SAVE ALL NECCESSARY REGISTERS @F@@@@ SZ ASCON ZB )@@G@@ . CLEAR ANY Q-MODE FLAG @E@@@@ TNZ ASCFD ZC )@@G@@ . SKIP IF FD MODE @B@@@@ J CHAR2 . ZD )@@G@@@D@@@@ L A0,(1*/0+1*/17) . SET Q-MODE @B@@@@ ZE )@@G@@ ER PSR$ . @E@@@@ TEP A1,(1*/17)ZF )@@G@@ . WAS Q-MODE ON? @C@@@@ J CHAR2 ZG )@@G@@ . YES @G@@@@ L,U A0,1 . SET FLAG - MZH )@@G@@UST SET PSR OFF @B@@@@ S A0,ASCON . @B@@@@ZI )@@G@@CHAR2 . @E@@@@ L X5,AZJ )@@G@@SCFD . ASCII/FD MODE FLAG@F@@@@ L X1,CHARX ZK )@@G@@ . CHAR INDEX OF PARAMETER @B@@@@ LXI,U X1,1 ZL )@@G@@ . @F@@@@ L X2,WORDX . WORD INDEX OZM )@@G@@F PARAMETER @B@@@@ LXI,U X2,1 . @E@@@@ ZN )@@G@@ L X3,(1,0) . CHAR INDEX OUTPUT @E@@@@ L ZO )@@G@@ X4,OUTLOC . WORD INDEX OUTPUT @B@@@@ LXI,U ZP )@@G@@ X4,1 . @B@@@@ L X6,FILDMX . ZQ )@@G@@@E@@@@ AN,U X6,1 . SUBTRACT FOR JGD @B@@@@ZR )@@G@@ L A0,SPACE . @F@@@@ EX STORZS )@@G@@E,X5 . SPACE-FIL OUTPUTFIELD @B@@@@ JGD X6,$ZT )@@G@@-1 . @B@@@@ L X3,(1,0) . @F@@@@ZU )@@G@@ L X4,OUTLOC . RESTORE OUTPUT INDEXES @B@@@@ZV )@@G@@ LXI,U X4,1 . @G@@@@ SZ OUTCZW )@@G@@NT . ZEROISE OUTPUT CHAR COUNT @E@@@@ L,U ZX )@@G@@ A1,1 . FIRST CHAR FLAG @F@@@@ L X6,FZY )@@G@@ILDMX . CURRENT CHAR TO FIELD @E@@@@ A,U X6,1ZZ )@@G@@ . ADD FOR COMMA @G@@@@ L X7,CURRCC AA )@@G@@ . CURRENT CHAR TO PARAMETER @B@@@@ LXI,U X7,1AB )@@G@@ . @B@@@@CHAR3 . @E@@@@AC )@@G@@ TLEM X7,CARDMX . END OF PARAMETER? @C@@@@ AD )@@G@@ J CHAR4 . NO @D@@@@ L X3,EAE )@@G@@CJUMP . YES - EXIT @B@@@@ J CHAR8A AF )@@G@@ . @B@@@@CHAR4 . @E@@@@ JGAG )@@G@@D X6,CHAR5 . END OF FIELD? @C@@@@ L AH )@@G@@ X3,ERJUMP . NO @B@@@@ J CHAR8A AI )@@G@@ . @E@@@@CHAR5 EX LOAD,X5 . GET NEXT CHAR AJ )@@G@@@F@@@@ TZ,H2 GETFLDSTOP . STOP CHARACTER SET UP? AK )@@G@@@H@@@@ TE,H1 A0,GETFLDSTOP . YES - IS THIS THE STOP CAL )@@G@@HARACTER? @C@@@@ J CHAR5A . NO @E@@@@AM )@@G@@ L,H2 X3,GETFLDSTOP . YES - EXIT THERE @B@@@@ AN )@@G@@ J CHAR8A . @B@@@@CHAR5A AO )@@G@@ . @F@@@@ JZ A1,CHAR7 . FIRST CHAR TAP )@@G@@O FIELD? @F@@@@ SZ A1 . YES - CHECK AQ )@@G@@FURTHER @D@@@@ TE A0,SEMIC . SEMICOLON? AR )@@G@@@C@@@@ J CHAR6 . NO @E@@@@ L AS )@@G@@ X3,CONJMP . YES - CONTINUATION@B@@@@ J AT )@@G@@ CHAR8A . @B@@@@CHAR6 . AU )@@G@@@D@@@@ TE A0,ASTER . ASTERISK? @B@@@@ AV )@@G@@ J CHAR7 NO . @E@@@@ L X3,EPJUMP AW )@@G@@ . END PARAMETER @B@@@@ J CHAR8A AX )@@G@@ . @B@@@@CHAR7 . @D@@@@ TNAY )@@G@@E A0,COMMA . COMMA ? @E@@@@ J CHARAZ )@@G@@8 . YES - @D@@@@ EX STORE,X5 BA )@@G@@ . END FIELD @D@@@@ J CHAR3 . BB )@@G@@NO- GET NEXT@B@@@@CHAR8 . @F@@@@ BC )@@G@@ L X3,RETADD . RETURN ADDRESS (NORMAL) @^@@@@ BD )@@G@@ A,U X3,1@[@@@@CHAR8A@G@@@@ S X7,CURRCC BE )@@G@@ . CURRENT PARAMETER POINTER @D@@@@ S X2,WORDX BF )@@G@@ . WORD INDEX @E@@@@ S X1,CHARX . BG )@@G@@CHARACTER INDEX @B@@@@ L A0,FILDMX . @B@@@@BH )@@G@@ AN,U A0,0,X6 . @G@@@@ S A0,OBI )@@G@@UTCNT . CHARACTER COUNT TRANSFERRED @B@@@@CHAR9 BJ )@@G@@ . @F@@@@ TNZ ASCON . BK )@@G@@SHOULD WE SET PSR OFF? @C@@@@ J CHAR10 . BL )@@G@@ NO @B@@@@ L A0,(1*/0) . @D@@@@ ERBM )@@G@@ PSR$ . SET IT OFF @B@@@@CHAR10 BN )@@G@@ . @[@@@@. @A@@@@. EXIT : X3 CONTAINS RETURN ADDRESSBO )@@G@@@[@@@@. @B@@@@ S X3,X11 . @B@@@@ BP )@@G@@ L,U R1,NREGS . @B@@@@ L,U A0,X1 BQ )@@G@@ . @B@@@@ LXI,U A0,1 . @B@@@@ BR )@@G@@ L A1,(1,REGSAV) . @E@@@@ BT A0,,*A1 BS )@@G@@ . RESTORE REGISTERS @D@@@@ J 0,X11 BT )@@G@@ . AND RETURN @B@@@@LOADFD . @B@@@@BU )@@G@@P DO 5 , L,016-P A0,0,X2 . @B@@@@ LMJ X8,$BV )@@G@@+1 . @B@@@@ LXM,U X1,0 . @B@@@@BW )@@G@@ L,S6 A0,0,*X2 . @B@@@@ J 0,X8BX )@@G@@ . @B@@@@LOADASC . @B@@@@BY )@@G@@ L,Q1 A0,0,X2 . @B@@@@ L,Q2 A0,0BZ )@@G@@,X2 . @B@@@@ L,Q3 A0,0,X2 . @B@@@@CA )@@G@@ LMJ X8,$+1 . @B@@@@ L,Q4 A0,0CB )@@G@@,*X2 . @B@@@@ LXM,U X1,0 . @B@@@@CC )@@G@@ J 0,X8 . @B@@@@LOAD CD )@@G@@ . @B@@@@ EX LOADFD,*X1 . @B@@@@CE )@@G@@ EX LOADASC,*X1 . @B@@@@STORE CF )@@G@@ . @B@@@@ EX STORFD,*X3 . @B@@@@CG )@@G@@ EX STORASC,*X3 . @B@@@@STORFD CH )@@G@@ . @B@@@@P DO 5 , S,016-P A0,0,X4 . @B@@@@CI )@@G@@ LMJ X8,$+1 . @B@@@@ LXM,U X3,0CJ )@@G@@ . @B@@@@ S,S6 A0,0,*X4 . @B@@@@CK )@@G@@ J 0,X8 . @B@@@@STORASC CL )@@G@@ . @B@@@@ S,Q1 A0,0,X4 . @B@@@@CM )@@G@@ S,Q2 A0,0,X4 . @B@@@@ S,Q3 A0,0CN )@@G@@,X4 . @B@@@@ LMJ X8,$+1 . @B@@@@CO )@@G@@ LXM,U X3,0 . @B@@@@ S,Q4 A0,0CP )@@G@@,*X4 . @B@@@@ J 0,X8 . @D@@@@CQ )@@G@@$(4) . PRESET DATA @H@@@@GETFLDSTOP* CR )@@G@@+ 0 . H1 = STOP CHAR, H2 = RETURN ADDRESS @^@@@@CS )@@G@@GETFLD$CHARS* . @B@@@@CHARS . CT )@@G@@@E@@@@ + 073,056 . SEMICOLON , COMMA @B@@@@CU )@@G@@ + 073,054 . @B@@@@CHARS1 CV )@@G@@ . @E@@@@ + 050,05 . ASTERICW )@@G@@SK , SPACE @B@@@@ + 052,040 . @B@@@@ASTER CX )@@G@@ EQUF CHARS1,X5,H1 . @B@@@@SPACE EQUF CHARS1,X5,CY )@@G@@H2 . @B@@@@SEMIC EQUF CHARS,X5,H1 . @B@@@@COMMA CZ )@@G@@ EQUF CHARS,X5,H2 . @F@@@@$(0) DA )@@G@@ . ALL VARIABLES TO LC 2 @E@@@@RETADD RES 1 DB )@@G@@ . LAST GERFLD RETURN@E@@@@REGSAV RES NREGS DC )@@G@@ . REGISTER SAVE AREA@B@@@@ END . DD )@@G@@_@@@@@ A0,,*A1 . RESTORE REGISTERS @D@@@@ J DE )@@G@@ 0,X11 . AND RETURN @B@@@@LOADFD DF )@@G@@*[S@@@*SDFF*@I@@@@. THIS SUBROUTINE CONVERTS A STRING OF 'DISPLAY' OCTALDG )@@G@@ CHARACTERS (FD OR ASCII) @A@@@@. INTO INTERNALLY REPRESENTED BINARYDH )@@G@@@G@@@@. THE INPUT STRING MAY BE UP TO 12 OCTAL DIGITS BUT 13 MAY BE SUPPDI )@@G@@LIED @D@@@@. PROVIDED THE LEFTMOST CHARACTER IS A DISPLAY ZERO @H@@@@DJ )@@G@@. THE TRANSACTION SCAN IS FROM LEFT TO RIGHT AND TERMINATES ON ENCOUNTERDK )@@G@@ING @D@@@@. A SPACE OR WHEN THE CHAR COUNT DECREMENTS TO ZERO @^@@@@DL )@@G@@. IF CONVERSION IS OK: @A@@@@. RESULT IN A0, A1 = ZERO @ @@@@DM )@@G@@. IF ANY CONVERSION ERROR: @ @@@@. A1 = -1 , A0 = 0 @]@@@@DN )@@G@@. CALL: @#@@@@. DL A0,PKT @^@@@@. LMJ X11,OCTRAN @[@@@@DO )@@G@@. PKT:@C@@@@. WORD 0 : H1= 0 FIELDATA INPUT @C@@@@. DP )@@G@@ = 1 ASCII INPUT @E@@@@. H2 DQ )@@G@@ ADDRESS OF CHARACTER STRING @D@@@@. WORD 1 : IDR )@@G@@NPUT CHARACTER COUNT @[@@@@. @ @@@@. FRANK RUDOLPH FEB 1975 DS )@@G@@@[@@@@. @E@@@@. SURREY COUNTY COUNCIL ENGLAND (SITE CODE SCCDT )@@G@@) @[@@@@. @#@@@@ AXR$ @^@@@@FF FORM 33,3 DU )@@G@@@E@@@@NREGS EQU 6 . SAVE REGS X1-X6 @D@@@@DV )@@G@@$(4) LIT . ALL PRESETS @[@@@@$(1) @]@@@@DW )@@G@@OCTRAN* @G@@@@P DO NREGS , SX X1+P-1,REGSAV+P-1 .DX )@@G@@ SAVE REGISTERS @^@@@@ L X1,A0@G@@@@ LXI,U DY )@@G@@ X1,1 . ADDRESS OF DISPLAY OCTAL STRING@^@@@@ SSDZ )@@G@@L A0,18@E@@@@ L X3,A0 . =0,FD =1,ASCEA )@@G@@II @E@@@@ L X2,(1,0) . CHARACTER INDEX EB )@@G@@@D@@@@ L R1,A1 . CHAR COUNT @^@@@@ EC )@@G@@ TG,U A1,14@E@@@@ J OCT6 . ERROR IED )@@G@@F COUNT > 13@I@@@@ SPD X5 . GET PD BITS EE )@@G@@ FTR 2-80 @I@@@@ L A0,X5 EF )@@G@@ . FTR 2-80 @I@@@@ OR,U EG )@@G@@ A0,010 . AND SET Q-MODE FTR 2-80 @I@@@@EH )@@G@@ LPD ,A1 . EI )@@G@@FTR 2-80 @D@@@@ L R2,(FF -0,+0) . MASK FOR MLU EJ )@@G@@@E@@@@ SZ A1 . CLEAR ACCUMULATOR @[@@@@EK )@@G@@OCT1 @D@@@@ JGD R1,OCT4 . DO ALL CHARS @[@@@@EL )@@G@@OCT2 @F@@@@ LDSL A0,36 . SET A0 = RESULT A1EM )@@G@@= 0 @[@@@@OCT3 @E@@@@ TLEM,U X3,$+2 . SKIP IFEN )@@G@@ NOT ASCII @^@@@@ J OCT3A@I@@@@ LPD ,X5 EO )@@G@@ . RESET PD FTR 2-80 @[@@@@OCT3A EP )@@G@@@G@@@@P DO NREGS , LX X1+P-1,REGSAV+P-1 . RESTORE REGISTEEQ )@@G@@RS @E@@@@ J 0,X11 . RETURN TO CALLER ER )@@G@@@[@@@@OCT4 @F@@@@ EX LOAD,X3 . GET NEXT OCTAES )@@G@@L CHARACTER @F@@@@ TNE A0,SPACE,X3 . IF SPACE, TREET )@@G@@AT AS END @^@@@@ J OCT2 @G@@@@ TLE,U A0,'7EU )@@G@@'+1 . ENSURE OCTAL DIGIT IS OCTAL @F@@@@ TLE,U EV )@@G@@ A0,'0' . .. @B@@@@ EW )@@G@@ . @C@@@@ J OCT6 . NEX )@@G@@O @F@@@@ TNZ X4 . CHECK FOR FIRST NONEY )@@G@@-ZERO @D@@@@ J OCT5 . FOUND ALREADY@B@@@@EZ )@@G@@ TNE,U A0,'0' . @E@@@@ J OCT1 FA )@@G@@ . STILL NOT FOUND @D@@@@ SZ X4 FB )@@G@@ . FOUND NOW @[@@@@OCT5 @D@@@@ LSSL A1,3 FC )@@G@@ . MAKE ROOM @F@@@@ MLU A0,A1 . AFD )@@G@@ND INSERT AS 3 BITS @^@@@@ J OCT1 @[@@@@OCT6 @D@@@@FE )@@G@@ L,XU A1,-1 . ERROR CODE @^@@@@ SZFF )@@G@@ A0 @^@@@@ J OCT3 @[@@@@$(1) @[@@@@LOAD @ @@@@FG )@@G@@ EX LOADSF,*X2 @ @@@@ EX LOADSA,*X2 @[@@@@FH )@@G@@LOADSF@B@@@@P DO 5 , L,016-P A0,0,X1 @ @@@@ LMFI )@@G@@J X6,$+1 @^@@@@ LXM,U X2,0 @ @@@@ L,S6 FJ )@@G@@ A0,0,*X1 @^@@@@ J 0,X6 @[@@@@LOADSA@ @@@@ L,FK )@@G@@Q1 A0,,X1 @ @@@@ L,Q2 A0,,X1 @ @@@@ L,FL )@@G@@Q3 A0,,X1 @ @@@@ LMJ X6,$+1 @^@@@@ LXFM )@@G@@M,U X2,0 @ @@@@ L,Q4 A0,,*X1 @^@@@@ J FN )@@G@@ 0,X6 @[@@@@$(4) @[@@@@SPACE @^@@@@ + 05 @^@@@@ FO )@@G@@ + 040 @[@@@@$(0) @^@@@@REGSAV RES NREGS@#@@@@ FP )@@G@@ END _@@@@@ BITS FTR 2-80 @I@@@@ L FQ )@@G@@*[S@@@*SDFF*@G@@@@. THIS SUBROUTINE PROVIDES AN ASSEMBLER INTERFACE TO EFR )@@G@@DIT$ FOR COBOL TO @G@@@@. PRINT ANY CORE AREA IN OCTAL, CHARACTER, DECIMFS )@@G@@AL OR COMPOSITE FORMAT @C@@@@. OR BY BYTE IN UNIVAC ASCII CODE OR EBCDIFT )@@G@@C @G@@@@. OUTPUT PRINT IS ALWAYS FIELDATA AND WHEN 077 ('STOP') CHARFU )@@G@@ACTERS ARE @E@@@@. ENCOUNTERED, THEY ARE PRINTED AS '=' OVERPRINTED BY FV )@@G@@'/' @[@@@@. @C@@@@. IT CAN BE CALLED FROM ASSEMBLER OR FROM COBOL FW )@@G@@@[@@@@. @]@@@@. ASSEMBLER @[@@@@. @ @@@@. LMJ X11,FX )@@G@@PRCORE@^@@@@. + AA @E@@@@. + CORE AREA FY )@@G@@ADDRESS . WITH S2 NON-ZERO @[@@@@. @[@@@@. @]@@@@. COBOL (FD)FZ )@@G@@@[@@@@. @D@@@@. ENTER PRCORE SUBROUTINE REFERENCING AA CORE-AREAGA )@@G@@@[@@@@. @#@@@@. COBOL (ASCII) @[@@@@. @B@@@@. CALL 'CPRCORGB )@@G@@E' USING AA CORE-AREA @[@@@@. @ @@@@. AA IS A ONE-WORD ENTRY- GC )@@G@@@F@@@@. S1 NUMBER OF BITS TO SHIFT OFF TO LEFT FOR BYTE PRINTSGD )@@G@@@B@@@@. S2 NUMBER OF WORDS TO LINE * @ @@@@. S3 TYPGE )@@G@@E OF PRINT @C@@@@. A CHARACTER 14 WORDS PER LINE @C@@@@GF )@@G@@. B BINARY 8 WORDS PER LINE @G@@@@. C CGG )@@G@@OMPOSITE 3 WORDS PER LINE (OCTAL,DECIMAL,FIELDATA) @C@@@@. GH )@@G@@ D DECIMAL 8 WORDS PER LINE @D@@@@. E EBCDIC 2 GI )@@G@@WORDS = 9 8-BIT BYTES @D@@@@. F ASCII 2 WORDS = 8 9-GJ )@@G@@BIT BYTES @D@@@@. G ASCII 2 WORDS = 9 8-BIT BYTES GK )@@G@@@G@@@@. H COMPOSITE 4 WORDS PER LINE (OCTAL,FIELDATA,ASCIGL )@@G@@I) @F@@@@. I COMPOSITE 3 WORDS PER LINE (OCTAL,DECIMAL,GM )@@G@@ASCII)@F@@@@. J COMPOSITE 8 WORDS PER LINE (FIELDATA,ASCIIGN )@@G@@) @C@@@@. K ASCII WORDS 20 WORDS PER LINE @D@@@@. GO )@@G@@ L 1/2 WORD DECIMAL - 8 WORDS PER LINE @I@@@@. M IGP )@@G@@CL CODE ON 7TK TAPE PRINTED 14 (UNIVAC) WORDS PER LINEFTR 3-79 @F@@@@GQ )@@G@@. N COMPOSITE 5 WORDS PER LINE (OCTAL, FIELDATA) @E@@@@GR )@@G@@. O COMPOSITE 6 WORDS PER LINE (OCTAL, ASCII)@I@@@@. GS )@@G@@ P ICL CODE ON 9TK TAPE PRINTED 14 (UNIVAC) WORDS PER LINEFTR 3-GT )@@G@@79 @I@@@@. Q FIELDATA PRINT - NO SPACE BETWEEN WORDS GU )@@G@@ FTR 3-80 @I@@@@. R ASCII PRINT - NO SPACE BEGV )@@G@@TWEEN WORDS FTR 3-80 @I@@@@. S COMPOSIGW )@@G@@TE PRINT - OCTAL+DECIMAL FTR 3-80 @D@@@@. GX )@@G@@ H2 BINARY NUMBER OF WORDS OR BYTES TO PRINT@B@@@@. * DEFAULT VALUESGY )@@G@@ ARE AS STATED ABOVE @I@@@@. BUT IF PRCOREDEMAND (AN EXTERNALIZED TAGGZ )@@G@@ IN PRCORE) IS SET FTR 7-79 @I@@@@. BY THE CALLER, FOR ALLHA )@@G@@ EXCEPT EFG THE DEFAULT IS HALF THAT. FTR 7-79 @[@@@@. HB )@@G@@@^@@@@. F RUDOLPH JAN 1974 @[@@@@. @E@@@@. SURREY COUNTY COUNCIL HC )@@G@@ ENGLAND (SITE CODE SCC) @[@@@@. @F@@@@. ORIGINALLY WRITTHD )@@G@@EN AT LEICESTERSHIRE COUNTY COUNTY BY ABOVE @[@@@@. @B@@@@ HE )@@G@@ AXR$ . @B@@@@PG FORM 12,24 HF )@@G@@ . @I@@@@PH FORM 6,6,24 . HG )@@G@@ FTR 7-79 @B@@@@PF FORM 12,6,18 HH )@@G@@ . @E@@@@M1 EQU 0 . SPACE AT START HI )@@G@@@E@@@@M2 EQU 4 . BYTE NUMBER LENGTH@F@@@@HJ )@@G@@M3 EQU 4 . SPACES BEFORE BYTE PRINT@E@@@@HK )@@G@@M4 EQU 1 . BYTES PER GROUP @F@@@@M5 HL )@@G@@ EQU 1 . SPACING BETWEEN GROUPS @F@@@@HPC HM )@@G@@ EQU 120 . HIGHEST PRINTABLE COLUMN@I@@@@HPCD HN )@@G@@ EQU 72 . HIGHEST PRINT COL (DEMAND) FTR 5-HO )@@G@@80 @ @@@@. NOTE FOR A SINGLE STRING: @ @@@@. M4 EQU (HPC-(M1+M2+M3+HP )@@G@@M5))/2@#@@@@P PROC @#@@@@ISIT* NAME @G@@@@ TOHQ )@@G@@P,U A8,1*/P(1,1) . IS SPECIFIED BIT IN A8 SET? @F@@@@ HR )@@G@@ J P(2,1) . NO - GO DO SKIP LOCATION@F@@@@ HS )@@G@@ L X6,(1,0) . GET NEW TABLE POINTER @#@@@@ HT )@@G@@ END @I@@@@P PROC . HU )@@G@@ FTR 3-80 @I@@@@ISNT* NAME HV )@@G@@ . FTR 3-80 @I@@@@ TEP,U HW )@@G@@ A8,1*/P(1,1) . IS SPECIFIED BIT IN A8 SET? FTR 3-80 @I@@@@HX )@@G@@ J P(2,1) . YES - GO DO SKIP LOCATION HY )@@G@@FTR 3-80 @I@@@@ END . HZ )@@G@@ FTR 3-80 @#@@@@P PROC @#@@@@PADOUT* NAIA )@@G@@ME @E@@@@ L A0,A9 . # WORDS PER LINE IB )@@G@@@E@@@@ AN,U A0,,X6 . # WORDS THIS LINE @F@@@@IC )@@G@@ MSI,U A0,P(1,1) . # COLS USED BY EACH WORD@G@@@@ID )@@G@@ A,U A0,P(2,1) . # COLS TO SKIP AFTER RIGHTMOSTIE )@@G@@@#@@@@ E$SKIP @#@@@@ END @#@@@@CHECKFD* PROC IF )@@G@@@G@@@@ TZ,H2 TABCNT . ANY 077 CHARS ON THIS LIIG )@@G@@NE? @F@@@@ LMJ X11,PR077 . YES - PRINT OVER CIH )@@G@@HARS @#@@@@ END @#@@@@P PROC @#@@@@EPCOPY* NAII )@@G@@ME @E@@@@ L,U A4,P(1,1) . < 7 CHARS TO COUNTIJ )@@G@@@A@@@@ L A1,P(1,2),P(1,3)@ @@@@ LMJ X11,IK )@@G@@EPCOPY@#@@@@ END @#@@@@P PROC @#@@@@EPCHAR* NAIL )@@G@@ME @C@@@@ DO P(1)>0 , L,U A0,P(1,1) @ @@@@ IM )@@G@@ TNE,U A0,077 @ @@@@ LMJ X11,FDCHAR@#@@@@ IN )@@G@@ E$CHAR @#@@@@ END @B@@@@$(1) IO )@@G@@ . @I@@@@C$BCPRCORE* EQU 0 . FOR MAP WHEN CIP )@@G@@ALLED FROM COBOL FTR 1080 @]@@@@CPRCORE* @D@@@@ SETRETURIQ )@@G@@N . SAVE LINK @B@@@@ A,U X11,1 IR )@@G@@ . @B@@@@ J COMON . @]@@@@PRCOREIS )@@G@@* @E@@@@ L,U A0,2,X11 . RETURN ADDRESS IT )@@G@@@G@@@@ TNZ,S2 1,X11 . IF TWO-WORD ENTRY FOR COIU )@@G@@RE @E@@@@ A,U A0,1 . ADD FOR RETURNIV )@@G@@@B@@@@ S A0,RETADR . @[@@@@COMON @B@@@@ IW )@@G@@ L,U R1,9 . @B@@@@ L A0,(1,A4) IX )@@G@@ . @B@@@@ L A1,(1,SVA4) . @E@@@@ IY )@@G@@ BT A1,0,*A0 . SAVE A REGISTERS @B@@@@ S IZ )@@G@@ X8,SVX8 . @B@@@@ S X4,SVX4 JA )@@G@@ . @B@@@@ S X5,SVX5 . @B@@@@ S JB )@@G@@ X6,SVX6 . @B@@@@ S X7,SVX7 JC )@@G@@ . @H@@@@ SZ TABCNT,,H2 . ZEROES TO COUNT OFJD )@@G@@ 077'S IN LINE @B@@@@ L,S3 A1,*0,X11 . @C@@@@JE )@@G@@ AN,U A1,'A' . @B@@@@ TN JF )@@G@@ A1 . @D@@@@ TG,U A1,HIOPT-'A'+1 JG )@@G@@ . @B@@@@ L,U A1,7 . @E@@@@ JH )@@G@@ TG,U A1,7 . TEST > G OPTION @C@@@@ J JI )@@G@@ HIG . YES @B@@@@ TG,U A1,4 JJ )@@G@@ . @B@@@@ J BIT001 . @[@@@@PRC JK )@@G@@@B@@@@ LXI,U X4,1 . @B@@@@ LXM,U JL )@@G@@ X4,*1,X11 . @B@@@@ L,H2 X5,*0,X11 . JM )@@G@@@B@@@@ L X6,(1,0) . @B@@@@ L JN )@@G@@ X7,(1,0) . @B@@@@ L,S2 A10,*0,X11 . JO )@@G@@@I@@@@ TZ DEM . DEMAND MODE SET? JP )@@G@@ FTR 7-79 @I@@@@ J DODEM . YES - JQ )@@G@@GET THAT DEFAULT FTR 7-79 @B@@@@ TZ A10 JR )@@G@@ . @B@@@@ TG,S2 A10,JTAB,A1 . @B@@@@ JS )@@G@@ L,S2 A10,JTAB,A1 . @I@@@@DODEMC JT )@@G@@ . FTR 7-79 @E@@@@ L,JU )@@G@@H2 A8,JTAB,A1 . GET PRINT CONTROL @ @@@@ L JV )@@G@@ A9,A10 @E@@@@ AN,U A10,1 . GET TLEM CONJW )@@G@@TROL @B@@@@DOLINE . @B@@@@ JGJX )@@G@@D X5,DOREC . @B@@@@ L,U A0,0,X6 JY )@@G@@ . @B@@@@ TNZ A0 . @B@@@@ J JZ )@@G@@ DOLINE1 . @B@@@@ SLJ PRINT1 KA )@@G@@ . @B@@@@ SZ,H2 PRINT1 . @B@@@@DOLINE1 KB )@@G@@ . @B@@@@ L X8,SVX8 KC )@@G@@ . @B@@@@ L X4,SVX4 . @B@@@@ L KD )@@G@@ X5,SVX5 . @B@@@@ L X6,SVX6 KE )@@G@@ . @B@@@@ L X7,SVX7 . @B@@@@ L,KF )@@G@@U R1,9 . @B@@@@ L A0,(1,A4) KG )@@G@@ . @B@@@@ L A1,(1,SVA4) . @F@@@@ BTKH )@@G@@ A0,0,*A1 . RESTORE A REGISTERS @C@@@@ J KI )@@G@@ *RETADR . RETURN@[@@@@HIG @^@@@@ AN,U KJ )@@G@@ A1,3@^@@@@ J PRC @B@@@@DOREC KK )@@G@@ . @B@@@@ NOP 0,0,*X7 . @B@@@@ KL )@@G@@ L A0,0,*X4 . @B@@@@ S A0,TABLE,XKM )@@G@@6 . @B@@@@ TLEM X6,A10 . @B@@@@ KN )@@G@@ J DOLINE . @B@@@@PRINT1 KO )@@G@@ . @B@@@@ NOP . @E@@@@ KP )@@G@@ L,U A0,,X6 . WORDS THIS PASS @B@@@@ S KQ )@@G@@ A0,SIX . @B@@@@ AN,U A0,1 KR )@@G@@ . @B@@@@ S A0,SX6 . @B@@@@ E$KS )@@G@@DIT EDPK . @D@@@@ L,U A0,,X7 KT )@@G@@ . WORD NUMBER @B@@@@ AN A0,SIX . @B@@@@KU )@@G@@ L,U A1,4 . @B@@@@ E$DECF KV )@@G@@ . @B@@@@ E$SKIP 3 . @[@@@@KW )@@G@@COMPP @G@@@@ ISIT 0 COMPP2 . OCTAL? - NO GO TOKX )@@G@@ COMPP2 @[@@@@COMPP1@B@@@@ L A0,TABLE,X6 . KY )@@G@@@B@@@@ L,U A1,12 . @B@@@@ LMJ KZ )@@G@@ X11,EOCTF$ . @B@@@@ E$SKIP 1 . LA )@@G@@@B@@@@ TLEM X6,SX6 . @B@@@@ J LB )@@G@@ COMPP1 . @ @@@@ PADOUT 13 2 @B@@@@COMPP2LC )@@G@@ . @G@@@@ ISIT 1 COMPP3 LD )@@G@@ . DECIMAL? - NO GO TO COMPP3 @]@@@@COMPP2A @B@@@@ LE )@@G@@ L A0,TABLE,X6 . @B@@@@ L,U A1,12 LF )@@G@@ . @B@@@@ LMJ X11,EDECF$ . @^@@@@ LG )@@G@@ E$SKIP 1 @B@@@@ TLEM X6,SX6 . @B@@@@LH )@@G@@ J COMPP2A .@ @@@@ PADOUT 13 LI )@@G@@ 2 @B@@@@COMPP3 . @F@@@@ ISLJ )@@G@@IT 2 COMPP4 . FIELDATA? - NO : COMPP4@]@@@@COMPP3A LK )@@G@@@E@@@@ EPCOPY 6,TABLE,X6 . COPY 6 CHARS FD @I@@@@LL )@@G@@ ISNT 7 COMPP3B . SPACE REQUIRED? LM )@@G@@FTR 3-80 @I@@@@ E$SKIP 1 . LN )@@G@@ FTR 3-80 @I@@@@COMPP3B LO )@@G@@ . FTR 3-80 @B@@@@ TLEM LP )@@G@@ X6,SX6 . @ @@@@ J COMPP3A @ @@@@ LQ )@@G@@ PADOUT 7 2 @[@@@@COMPP4@H@@@@ ISIT 4 COMPPLR )@@G@@7 . ICL CHAR PRINT? - NO,GO TO COMPP7 @]@@@@COMPP6A @D@@@@LS )@@G@@ L A0,TABLE,X6 . GET A WORD @I@@@@ L LT )@@G@@ A1,A0 . FTR 3-79 LU )@@G@@@I@@@@ TOP,U A8,1*/6 . DO NOT XOR IF BIT 6 SET LV )@@G@@ FTR 3-79 @G@@@@ XOR A0,(0747474747474) . XOR EVLW )@@G@@ERY CHAR AGAINST 074 @^@@@@ L,U R1,6@]@@@@COMPP6B LX )@@G@@@ @@@@ JGD R1,COMPP6C@ @@@@ J COMPP6D LY )@@G@@@]@@@@COMPP6C @H@@@@ SZ A0 . AND TRLZ )@@G@@ANSLATE THE CHAR TO FD CODE @^@@@@ LDSL A0,6@ @@@@ MA )@@G@@ L,S4 A0,BCON,A0@^@@@@ LSSL A2,6@ @@@@ A MB )@@G@@ A2,A0 @ @@@@ J COMPP6B @]@@@@COMPP6D MC )@@G@@@ @@@@ S A2,ICLSTOR@E@@@@ EPCOPY 6,ICLSTOR MD )@@G@@ . COPY 6 CHARS FD @ @@@@ TLEM X6,SX6 @D@@@@ME )@@G@@ J COMPP6A . DO ALL WORDS@E@@@@ PAMF )@@G@@DOUT 6 2 . PAD OUT SPACES @[@@@@COMPP7@I@@@@ MG )@@G@@ ISIT 5 COMPP8 . IS IT HALF-WORD DECIMAL? - NO, COMPPMH )@@G@@8 @]@@@@COMPP7A @D@@@@ E$DECF 6,TABLE,X6,H1 . MI )@@G@@FIRST HALF @^@@@@ E$CHAR ',' @D@@@@ E$DECF 6,TAMJ )@@G@@BLE,X6,H2 . SECOND HALF @^@@@@ E$SKIP 1 @ @@@@ MK )@@G@@ TLEM X6,SX6 @ @@@@ J COMPP7A @F@@@@ ML )@@G@@ PADOUT 14 1 . PAD OUT SPACES TO RIGHT @[@@@@COMPP8MM )@@G@@@F@@@@ ISIT 3 COMPP6 . ASCII? - NO : COMPP6MN )@@G@@@]@@@@COMPP4A @D@@@@ L A2,TABLE,X6 . GET A MO )@@G@@WORD @B@@@@ L,U R1,3 . @E@@@@ DSMP )@@G@@L A0,72 . CLEAR A0 AND A1 @[@@@@COMPP5@E@@@@ MQ )@@G@@ LDSL A1,9 . GET NEXT CHAR @ @@@@ TGMR )@@G@@,U A1,0377+1 @^@@@@ SZ A1 @E@@@@ L,S6 MS )@@G@@ A1,BCON,A1 . GET CONVERTED CHAR@B@@@@ SSC A1,6MT )@@G@@ . @D@@@@ LDSC A0,6 . POSITIMU )@@G@@ON @D@@@@ JGD R1,COMPP5 . DO WORD @B@@@@MV )@@G@@ LSSL A0,12 . @B@@@@ S A0,SMW )@@G@@AV . @E@@@@ EPCOPY 4,SAV . COPY 4MX )@@G@@ CHARS FD @I@@@@ ISNT 7 COMPP5A . SPACE REQUIRMY )@@G@@ED? FTR 3-80 @I@@@@ E$SKIP 1 MZ )@@G@@ . FTR 3-80 @I@@@@COMPP5A NA )@@G@@ . FTR 3-80 @D@@@@NB )@@G@@ TLEM X6,SX6 . DO ALL WORDS@B@@@@ J NC )@@G@@ COMPP4A .@[@@@@COMPP6@B@@@@ E$DITX ND )@@G@@ . @B@@@@PRINTIT . @B@@@@NE )@@G@@ P$RINT (PF 1,22,PLINE) . @G@@@@ CHECKFD NF )@@G@@ . CHECK FOR 077 CHARS IN LINE @B@@@@ L NG )@@G@@ X6,(1,0) . @B@@@@ TZ,H2 PRINT1 . NH )@@G@@@B@@@@ J *PRINT1 . @B@@@@ J NI )@@G@@ DOLINE . @I@@@@DODEM . NJ )@@G@@ FTR 7-79 @I@@@@. IF PRCOREDEMAND IS SETNK )@@G@@, THE SPECIFIED VALUE, IF INVALID FTR 7-79 @I@@@@. DEFANL )@@G@@ULTS TO THE DEMAND DEFAULT. FTR 7-NM )@@G@@79 @I@@@@. NN )@@G@@ FTR 7-79 @I@@@@ JZ A10,SHORTN . NO )@@G@@ CCR OF RCA 3-81 @I@@@@ TE,S2 A10,NP )@@G@@JTAB,A1 CCR OF RCA 3-81 @I@@@@ NQ )@@G@@ TLE,S2 A10,JTAB,A1 . USE DEMAND ENTRIES CCR OF RCA 3-8NR )@@G@@1 @I@@@@ J DODEMC . NS )@@G@@ CCR OF RCA 3-81 @I@@@@SHORTN L,S1 A10,JTAB,A1 . DENT )@@G@@FAULT CCR OF RCA 3-81 @I@@@@ J DODENU )@@G@@MC . FTR 7-79 @[@@@@. NV )@@G@@@#@@@@. BYTE PRINTING @[@@@@. @B@@@@. A4,A5 CURRENT DONW )@@G@@UBLE WORD @A@@@@. A6 CURRENT BYTE @D@@@@. X5 NX )@@G@@ SHIFTER - NUMBER OF BITS PER BYTE @D@@@@. X6 WORDNY )@@G@@ MODIFIER (2,BUFFER ADDRESS) @C@@@@. X7 NUMBER OF BYTES NZ )@@G@@TO PRINT @C@@@@. A7 NUMBER OF BYTES PER 2-WORDS @C@@@@OA )@@G@@. A12 BYTE NUMBER AT START OF LINE@B@@@@. X8 OB )@@G@@ OUTPUT TABLE MODIFIER @[@@@@. @B@@@@BIT001 OC )@@G@@ . @B@@@@ L,U A0,1 . @B@@@@ OD )@@G@@ TNE,U A1,4 . @B@@@@ L,U A0,0 OE )@@G@@ . @G@@@@ S A0,PTYPE . 0=EBCDIC CODEOF )@@G@@ 1=ASCII CODE @B@@@@ L,S2 A10,*0,X11 . @I@@@@OG )@@G@@ TZ DEM . DEMAND MODE? OH )@@G@@FTR 3-80 @I@@@@ J DODEM1 . YES OI )@@G@@ FTR 3-80 @I@@@@ TZ A10 OJ )@@G@@ . FTR 3-80 @I@@@@ TG,H2 OK )@@G@@ A10,BPL,A0 . GET BYTES TO LINE ACCORDING TOFTR 3-80 @I@@@@OL )@@G@@ L,H2 A10,BPL,A0 . CODE TYPE OM )@@G@@FTR 3-80 @I@@@@BIT001A . ON )@@G@@ FTR 3-80 @E@@@@ AN,U A10,1 OO )@@G@@ . DECREMENT FOR TLEM@E@@@@ L,H2 X7,*0,X11 . OP )@@G@@NUMBER OF BYTES @B@@@@ L X8,(1,0) . @E@@@@OQ )@@G@@ L,U X5,9 . A1 = TYPE OF PRINT@B@@@@ OR )@@G@@ TE,U A1,5 . @B@@@@ L,U X5,8 OS )@@G@@ . @D@@@@ L,U A12,0 . BYTE NUMBER OT )@@G@@@E@@@@ L,U X6,*1,X11 . BUFFER ADDRESS @E@@@@OU )@@G@@ LXI,U X6,2 . 2 WORD INTERVAL @D@@@@ OV )@@G@@ L,S1 A0,*0,X11 . OFF-SHIFT @C@@@@ JZ OW )@@G@@ A0,BIT002 . NONE @B@@@@ DSL A0,36 OX )@@G@@ . @F@@@@ DI A0,X5 . GET NUMBER OF BYTEOY )@@G@@S @F@@@@ JNZ A1,BIT002 . DEFAULT ZERO IF INOZ )@@G@@VALID @B@@@@ L A6,X5 . @E@@@@ XOPA )@@G@@R,U A6,1 . REVERSE 8 AND 9 @D@@@@ AN PB )@@G@@ A7,A0 . INIT POINTER@E@@@@ DL A4,,*X6 PC )@@G@@ . GET FIRST SET @C@@@@ L,S1 A0,*0,X11 PD )@@G@@ . SHIFT @B@@@@ LDSL A4,,A0 . @B@@@@ PE )@@G@@ J BIT003 . @B@@@@BIT002 PF )@@G@@ . @B@@@@ L,U A7,0 . @B@@@@BIT003PG )@@G@@ . @D@@@@ JGD X7,BIT004 PH )@@G@@ . DO ALL BYTES@D@@@@ J BITEN . PI )@@G@@DONE ALL @B@@@@BIT004 . @F@@@@ PJ )@@G@@ JGD A7,BIT005 . DO CURRENT DOUBLE WORD @E@@@@ PK )@@G@@ DL A4,,*X6 . DONE - GET NEXT @E@@@@ L PL )@@G@@ A6,X5 . AND SET UP POINTER@E@@@@ XOR,U PM )@@G@@ A6,1 . REVERSE 8 AND 9 @E@@@@ AN,U A7,1PN )@@G@@ . DECREMENT FOR JGD @B@@@@BIT005 PO )@@G@@ . @B@@@@ LDSC A4,,X5 . @E@@@@ PP )@@G@@ AND,U A5,0377 . GET NEXT BYTE @D@@@@ S PQ )@@G@@ A6,TABLE,X8 . SET IN TABLE@D@@@@ TLEM X8,APR )@@G@@10 . DO ALL TABLE@B@@@@ J BIT003 PS )@@G@@ . @B@@@@PRT . @B@@@@ NOPT )@@G@@P . @B@@@@ LXI,U X8,0 PU )@@G@@ . @F@@@@ L A11,X8 . ACTUAL NUMBER OF BPV )@@G@@YTES @B@@@@ L X8,(1,0) . @B@@@@ E$PW )@@G@@DIT EDPK . @B@@@@ E$SKIP M1 PX )@@G@@ . @B@@@@ E$DECF M2,A12 . @B@@@@ A PY )@@G@@ A12,A11 . @B@@@@ E$SKIP M3 PZ )@@G@@ . @B@@@@BIT006 . @B@@@@ L,QA )@@G@@U X4,M4 . @B@@@@BIT007 QB )@@G@@ . @B@@@@ JGD X4,BIT008 . @B@@@@ E$QC )@@G@@SKIP M5 . @B@@@@ J BIT006 QD )@@G@@ . @B@@@@BIT008 . @D@@@@ L QE )@@G@@ A1,PTYPE . PRINT TYPE @B@@@@ L A0,TQF )@@G@@ABLE,X8 . @B@@@@ EX CODET,A1 . @D@@@@QG )@@G@@ EPCHAR . ONE CHAR FD @^@@@@ L,QH )@@G@@U A0,1@ @@@@ TZ PTYPE @^@@@@ A,U QI )@@G@@ A0,1@#@@@@ E$SKIP @B@@@@ TLEM X8,A10 QJ )@@G@@ . @B@@@@ J BIT007 . @B@@@@ E$QK )@@G@@DITX . @B@@@@ P$RINT (PF 2,22,PLINE) QL )@@G@@ . @F@@@@ CHECKFD . CHECK FOR FD 077 CQM )@@G@@HARS @B@@@@BIT009 . @B@@@@ E$QN )@@G@@DIT EDPK . @B@@@@ E$SKIP M1+M2+M3 QO )@@G@@ . @B@@@@ L X8,(1,0) . @B@@@@BIT010 QP )@@G@@ . @B@@@@ L,U X4,M4 QQ )@@G@@ . @B@@@@BIT011 . @B@@@@ JGQR )@@G@@D X4,BIT012 . @B@@@@ E$SKIP M5 QS )@@G@@ . @B@@@@ J BIT010 . @B@@@@BIT012 QT )@@G@@ . @F@@@@ TZ PTYPE QU )@@G@@ . PRINT EBCDIC OR OCTAL @ @@@@ J BIT014 @B@@@@QV )@@G@@ L A0,TABLE,X8 . @E@@@@ SSL A0,4QW )@@G@@ . LEFT HAND 4 BITS @B@@@@ L A0,HBCON,AQX )@@G@@0 . @D@@@@ EPCHAR . ONE CHAR FD QY )@@G@@@B@@@@ L A0,TABLE,X8 . @E@@@@ AND,U QZ )@@G@@ A0,017 . RIGHT HAND 4 BITS @B@@@@ L A0,HRA )@@G@@BCON,A1 . @D@@@@ EPCHAR . ONE CHRB )@@G@@AR FD @[@@@@BIT013@B@@@@ TLEM X8,A10 . @B@@@@RC )@@G@@ J BIT011 . @B@@@@ E$DITX RD )@@G@@ . @B@@@@ P$RINT (PF 1,22,PLINE) . @F@@@@RE )@@G@@ CHECKFD . CHECK FOR ANY 077 CHARS @B@@@@RF )@@G@@ TZ,H2 PRT . @B@@@@ J *PRTRG )@@G@@ . @B@@@@ L X8,(1,0) . @B@@@@RH )@@G@@ J BIT003 . @[@@@@BIT014@G@@@@ E$RI )@@G@@OCTF 3,TABLE,X8 . OCTAL PRINT OF ASCII CHARACTER @ @@@@ RJ )@@G@@ J BIT013 @B@@@@BITEN . RK )@@G@@@B@@@@ LXI,U A0,0 . @B@@@@ LXM RL )@@G@@ A0,X8 . @B@@@@ TNZ A0 . RM )@@G@@@B@@@@ J DOLINE1 . @B@@@@ AN,U RN )@@G@@ A0,1 . @F@@@@ L A10,A0 . RO )@@G@@NUMBER LEFT TO PRINT @B@@@@ SLJ PRT . RP )@@G@@@B@@@@ SZ,H2 PRT . @B@@@@ J RQ )@@G@@ DOLINE1 . @[@@@@PR077 @I@@@@ L,U X11,,X11 RR )@@G@@ . FTR 7-79 @D@@@@ S RS )@@G@@ X11,TABX11 . SAVE X11 @D@@@@ S X6,TRT )@@G@@ABX6SAV . SAVE X6 @D@@@@ E$DIT EDPK RU )@@G@@ . OPEN EDIT @E@@@@ L,H2 X6,TABCNT . COUNT RV )@@G@@OF 077 CHARS@[@@@@PR077A@C@@@@ JGD X6,PR077B . RW )@@G@@DO ALL@E@@@@ SZ,H2 TABCNT . DONE - CLEAR COUNTRX )@@G@@@B@@@@ E$DITX . @E@@@@ P$RINT RY )@@G@@ (PF 0,22,PLINE) . OVERPRINT = WITH /@D@@@@ L X6,TRZ )@@G@@ABX6SAV . RELOAD X6 @C@@@@ J *TABX11 SA )@@G@@ . RETURN@[@@@@PR077B@E@@@@ L A0,TABCH,X6 . SB )@@G@@GET COLUMN NUMBER @#@@@@ E$COL @D@@@@ E$CHAR '/' SC )@@G@@ . OVERPRINT @ @@@@ J PR077A @I@@@@SD )@@G@@DODEM1 . SE )@@G@@FTR 3-80 @I@@@@ TZ A10 . SF )@@G@@ FTR 3-80 @I@@@@ TG,H1 A10,BPL,A0 SG )@@G@@ . GET BYTES TO LINE ACCORDING TOFTR 3-80 @I@@@@ L,H1 SH )@@G@@ A10,BPL,A0 . CODE TYPE FTR 3-80 @I@@@@SI )@@G@@ J BIT001A . SJ )@@G@@FTR 3-80 @[@@@@FDCHAR@I@@@@ TZ DEM . IFSK )@@G@@ DEMAND MODE FTR1080 @I@@@@ J ,X11SL )@@G@@ . PRINT AS IS FTR1080 @I@@@@ SM )@@G@@ L,U X11,,X11 . FTR 7-SN )@@G@@79 @D@@@@ S X11,TABX11 . SAVE RETURN @E@@@@SO )@@G@@ E$COLN . GET COLUMN NUMBER @ @@@@ SP )@@G@@ L A1,TABCNT @E@@@@ S A0,TABCH,*A1 . SQ )@@G@@AND REMEMBER IT @ @@@@ S A1,TABCNT @ @@@@ L,SR )@@G@@U A0,'=' @ @@@@ J *TABX11 @[@@@@EPCOPY@I@@@@SS )@@G@@ L,U X11,,X11 . ST )@@G@@FTR 7-79 @D@@@@ S X11,TABX11A . SAVE CALLER SU )@@G@@@]@@@@EPCOPY1 @E@@@@ JGD A4,$+2 . A4 = CSV )@@G@@OUNT(<7) @E@@@@ J *TABX11A . DONE ALL - ESW )@@G@@XIT @E@@@@ SZ A0 . GET NEXT CHARACTERSX )@@G@@@^@@@@ LDSL A0,6@E@@@@ S A1,TABSAVA SY )@@G@@ . SAVE WHAT'S LEFT @F@@@@ EPCHAR . SZ )@@G@@INSERT THIS CHARACTER @E@@@@ L A1,TABSAVA . TA )@@G@@RESTORE REMAINDER @E@@@@ J EPCOPY1 . AND DOTB )@@G@@ THAT ALSO @B@@@@$(0) . @B@@@@SX6 TC )@@G@@ + 0 . @^@@@@SAV RES 1 @E@@@@TD )@@G@@RETADR EQU RETURN$ . RETURN ADDRESS @B@@@@TABX6STE )@@G@@AV RES 1 . @B@@@@TABSAVA RES 1 TF )@@G@@ . @B@@@@TABSAVE RES 1 . @B@@@@TABX11TG )@@G@@A RES 1 . @B@@@@TABX11 RES 1 TH )@@G@@ . @F@@@@TABCNT + 1,0 . # 077 CHARS TI )@@G@@THIS LINE @B@@@@TABCH RES 60 . @B@@@@SIX TJ )@@G@@ + 0 . @B@@@@EDPK E$PKT 22,PLINE 'TK )@@G@@MSG',' ' . @]@@@@ICLSTOR @B@@@@PTYPE RES 1 TL )@@G@@ . @B@@@@CODET . @C@@@@ L,TM )@@G@@S5 A0,BCON,A0 . EBCDIC@C@@@@ L,S6 A0,BCON,A0TN )@@G@@ . ASCII @B@@@@PLINE RES 22 . @B@@@@TO )@@G@@BLANKS . @B@@@@P DO 3 , TP )@@G@@' ' . @B@@@@SVX4 RES 1 . @B@@@@TQ )@@G@@SVX5 RES 1 . @B@@@@SVX6 RES 1 TR )@@G@@ . @B@@@@SVX7 RES 1 . @B@@@@TS )@@G@@SVX8 RES 1 . @B@@@@SVA4 RES 1 TT )@@G@@ . @B@@@@SVA5 RES 1 . @B@@@@TU )@@G@@SVA6 RES 1 . @B@@@@SVA7 RES 1 TV )@@G@@ . @B@@@@SVA8 RES 1 . @B@@@@TW )@@G@@SVA9 RES 1 . @B@@@@SVA10 RES 1 TX )@@G@@ . @B@@@@SVA11 RES 1 . @B@@@@TY )@@G@@SVA12 RES 1 . @[@@@@BPL @I@@@@MM EQTZ )@@G@@U M1+M2+M3 . FTR 3-80 UA )@@G@@@I@@@@P DO 2 , ; . UB )@@G@@ FTR 3-80 @I@@@@ +((HPCD-(MM))/((1+P)*M4+M5))*M4,((HPC-UC )@@G@@(MM))/((1+P)*M4+M5))*M4 FTR 3-80 @B@@@@TABLE RES 045 UD )@@G@@ . @B@@@@JTAB . @[@@@@. UE )@@G@@@H@@@@. THE FOLLOWING TABLE CONTAINS THE DRIVER PARAMETERS FOR THE 'WORDUF )@@G@@'-ORIENTED @#@@@@. PRINT TYPES. @I@@@@. EACH ENTRY COMPRISES: UG )@@G@@ S2 = DEFAULT WORD COUNT TO LINE FTR 7-79 @I@@@@. UH )@@G@@ S1 = (DEFAULT IF PRCOREDEMAND IS SETFTR 7-79 UI )@@G@@@G@@@@. H2 = PRINT BITS. EACH BIT ON UJ )@@G@@CAUSES@H@@@@. EACH PRINTED WORD UK )@@G@@TO BE DISPLAYED @E@@@@. IN THAUL )@@G@@T CODE. @E@@@@. BIT: 0 OCUM )@@G@@TAL @E@@@@. 1 DECIMAL UN )@@G@@@E@@@@. 2 FIELDATA@E@@@@UO )@@G@@. 3 ASCII @E@@@@. UP )@@G@@ 4 ICL CODE@G@@@@. UQ )@@G@@ 5 1/2 WORD DECIMAL @I@@@@. UR )@@G@@ 6 ICL CODE BUT NOT XORFTR 3-US )@@G@@79 @I@@@@. 7 NO SPACEUT )@@G@@ BETWEEN WORFTR 3-80 @B@@@@PARAMS . UU )@@G@@@I@@@@ PH 8,14,1*/2 . A UV )@@G@@ FTR 7-79 @I@@@@ PH 4,8,1*/0 . B UW )@@G@@ FTR10-79 @I@@@@ PH 1,3,1*/0+1UX )@@G@@*/1+1*/2 . C FTR 7-79 @I@@@@ PHUY )@@G@@ 4,8,1*/1 . D FTR 7-79 UZ )@@G@@@I@@@@ PH 2,4,1*/0+1*/2+1*/3 . H VA )@@G@@ FTR 7-79 @I@@@@ PH 1,3,1*/0+1*/1+1*/3 . I VB )@@G@@ FTR 7-79 @I@@@@ PH 4,8,1*/2+1VC )@@G@@*/3 . J FTR 7-79 @I@@@@ PHVD )@@G@@ 10,20,1*/3 . K FTR 7-79 VE )@@G@@@I@@@@ PH 4,8,1*/5 . L VF )@@G@@ FTR 7-79 @I@@@@ PH 10,14,1*/4 . M ICL VG )@@G@@EACH XOR'D WITH 074 FTR 7-79 @I@@@@ PH 2,5,1*/0+1VH )@@G@@*/2 . N FTR 7-79 @I@@@@ PHVI )@@G@@ 3,6,1*/0+1*/3 . O FTR 7-79 VJ )@@G@@@I@@@@ PH 10,14,1*/4+1*/6 . P ICL BUT NOT XOR'D WITHVK )@@G@@ 074 FTR 7-79 @I@@@@ PH 10,20,1*/7+1*/2 . Q FD NVL )@@G@@O SPACE FTR 3-80 @I@@@@ PH 15,30,1*/7VM )@@G@@+1*/3 . R ASC NO SPACE FTR 3-80 @I@@@@ PHVN )@@G@@ 2,4,1*/0+1*/1 . S OCTAL+DECIMAL FTR 3-80 VO )@@G@@@I@@@@HIOPT EQU $-1-PARAMS+'A'+3 . HIGHEST ALLOWED OPTION VP )@@G@@ FTR 7-79 @B@@@@HBCON . @B@@@@VQ )@@G@@P DO 10 , + P-1+060 . @B@@@@P DO 6 , VR )@@G@@+ 05+P . @H@@@@$(6) . CHANGEVS )@@G@@ LOCATION COUNTER FOR CHECKING@F@@@@. CONVERSION TABLE FOR ASCII TO FIELVT )@@G@@DATA AND EBCDIC TO FIELDATA @F@@@@. EACH WORD CONTAINS IN S5 THE FIELDVU )@@G@@ATA EQUIVALENT OF THAT EBCDIC @G@@@@. CHARACTER RELATIVE TO THE START OFVV )@@G@@ THE TABLE AND S6 SIMILARLY FOR @]@@@@. ASCII CODE@G@@@@. NOTE THAT VW )@@G@@THE EXECUTE TABLE CODET IS USED TO PICK UP THE CODED ENTRY @E@@@@. USINVX )@@G@@G THE CONTENTS OF PTYPE (0 FOR EBCDIC, 1 FOR ASCII) @[@@@@. @[@@@@VY )@@G@@. @I@@@@. SIMILARLY, S4 REPRESENTS THE FIELDATA REPRESENTATION OF THVZ )@@G@@E CHARACTER, IN ICL @A@@@@. CODE, USED TO INDEX TO THE TABLE. @[@@@@WA )@@G@@. @G@@@@. SIMILARLY, H1 CONTAINS THE ASCII REPRESENTATION OF THE FIEWB )@@G@@LDATA CHAR @ @@@@. USED TO INDEX THE TABLE. @[@@@@. @D@@@@TAB WC )@@G@@ FORM 18,6,6,6 . TABLE FORM @B@@@@UN EQU WD )@@G@@ 05 . @I@@@@DEM . WE )@@G@@ FTR 7-79 @I@@@@PRCOREDEMAND* 0 WF )@@G@@ . SET BY CALLER FOR DEMAND MODE FTR 7-79 @]@@@@PRCOREWG )@@G@@TAB* @B@@@@BCON . @C@@@@ TAWH )@@G@@B 0100,060,05,05 . @C@@@@ TAB 0133,061,05,05WI )@@G@@ . @C@@@@ TAB 0135,062,05,05 . WJ )@@G@@@C@@@@ TAB 0043,063,05,05 . @C@@@@ TAWK )@@G@@B 0136,064,05,05 . @C@@@@ TAB 0040,065,05,05WL )@@G@@ . @C@@@@ TAB 0101,066,05,05 . WM )@@G@@@C@@@@ TAB 0102,067,05,05 . @C@@@@ TAWN )@@G@@B 0103,070,05,05 . @C@@@@ TAB 0104,071,05,05WO )@@G@@ . @C@@@@ TAB 0105,053,05,05 . WP )@@G@@@C@@@@ TAB 0106,073,05,05 . @C@@@@ TAWQ )@@G@@B 0107,043,05,05 . @C@@@@ TAB 0110,044,05,05WR )@@G@@ . @C@@@@ TAB 0111,045,05,05 . WS )@@G@@@C@@@@ TAB 0112,054,05,05 . @C@@@@ TAWT )@@G@@B 0113,005,05,05 . @C@@@@ TAB 0114,055,05,05WU )@@G@@ . @C@@@@ TAB 0115,057,05,05 . WV )@@G@@@C@@@@ TAB 0116,003,05,05 . @C@@@@ TAWW )@@G@@B 0117,004,05,05 . @C@@@@ TAB 0120,052,05,05WX )@@G@@ . @C@@@@ TAB 0121,046,05,05 . WY )@@G@@@C@@@@ TAB 0122,072,05,05 . @C@@@@ TAWZ )@@G@@B 0123,051,05,05 . @C@@@@ TAB 0124,040,05,05XA )@@G@@ . @C@@@@ TAB 0125,050,05,05 . XB )@@G@@@C@@@@ TAB 0126,042,05,05 . @C@@@@ TAXC )@@G@@B 0127,056,05,05 . @C@@@@ TAB 0130,041,05,05XD )@@G@@ . @C@@@@ TAB 0131,075,05,05 . XE )@@G@@@C@@@@ TAB 0132,074,05,05 . @C@@@@ TAXF )@@G@@B 0051,000,05,05 . @C@@@@ TAB 0055,006,05,05XG )@@G@@5 . @C@@@@ TAB 0053,007,05,076 . XH )@@G@@@C@@@@ TAB 0074,010,05,003 . @C@@@@ TAXI )@@G@@B 0075,011,05,047 . @C@@@@ TAB 0076,012,05,05XJ )@@G@@2 . @C@@@@ TAB 0046,013,05,046 . XK )@@G@@@C@@@@ TAB 0044,014,05,072 . @C@@@@ TAXL )@@G@@B 0052,015,05,051 . @C@@@@ TAB 0050,016,05,04XM )@@G@@0 . @C@@@@ TAB 0045,017,05,050 . XN )@@G@@@C@@@@ TAB 0072,020,05,042 . @C@@@@ TAXO )@@G@@B 0077,021,05,056 . @C@@@@ TAB 0041,022,05,04XP )@@G@@1 . @C@@@@ TAB 0054,023,05,075 . XQ )@@G@@@C@@@@ TAB 0134,024,05,074 . @C@@@@ TAXR )@@G@@B 0060,025,05,060 . @C@@@@ TAB 0061,026,05,06XS )@@G@@1 . @C@@@@ TAB 0062,027,05,062 . XT )@@G@@@C@@@@ TAB 0063,030,05,063 . @C@@@@ TAXU )@@G@@B 0064,031,05,064 . @C@@@@ TAB 0065,032,05,06XV )@@G@@5 . @C@@@@ TAB 0066,033,05,066 . XW )@@G@@@C@@@@ TAB 0067,034,05,067 . @C@@@@ TAXX )@@G@@B 0070,035,05,070 . @C@@@@ TAB 0071,036,05,07XY )@@G@@1 . @C@@@@ TAB 0047,037,05,053 . XZ )@@G@@@C@@@@ TAB 0073,001,05,073 . @C@@@@ TAYA )@@G@@B 0057,047,05,043 . @C@@@@ TAB 0056,002,05,04YB )@@G@@4 . @C@@@@ TAB 0042,076,05,045 . YC )@@G@@@C@@@@ TAB 0137,077,05,054 . @C@@@@ TAYD )@@G@@B 0000,0,05,0 . @C@@@@ TAB 0000,0,05,06YE )@@G@@ . @C@@@@ TAB 0000,0,05,07 . YF )@@G@@@C@@@@ TAB 0000,0,05,010 . @C@@@@ TAYG )@@G@@B 0000,0,05,011 . @C@@@@ TAB 0000,0,05,01YH )@@G@@2 . @C@@@@ TAB 0000,0,05,013 . YI )@@G@@@C@@@@ TAB 0000,0,05,014 . @C@@@@ TAYJ )@@G@@B 0000,0,05,015 . @C@@@@ TAB 0000,0,05,01YK )@@G@@6 . @C@@@@ TAB 0000,0,01,017 . YL )@@G@@@C@@@@ TAB 0000,0,075,020 . @C@@@@ TAYM )@@G@@B 0000,0,043,021 . @C@@@@ TAB 0000,0,051,0YN )@@G@@22 . @C@@@@ TAB 0000,0,012,023 . YO )@@G@@@C@@@@ TAB 0000,0,055,024 . @C@@@@ TAYP )@@G@@B 0000,0,046,025 . @C@@@@ TAB 0000,0,05,02YQ )@@G@@6 . @C@@@@ TAB 0000,0,05,027 . YR )@@G@@@C@@@@ TAB 0000,0,05,030 . @C@@@@ TAYS )@@G@@B 0000,0,05,031 . @C@@@@ TAB 0000,0,05,03YT )@@G@@2 . @C@@@@ TAB 0000,0,05,033 . YU )@@G@@@C@@@@ TAB 0000,0,05,034 . @C@@@@ TAYV )@@G@@B 0000,0,05,035 . @C@@@@ TAB 0000,0,05,03YW )@@G@@6 . @C@@@@ TAB 0000,0,02,037 . YX )@@G@@@C@@@@ TAB 0000,0,047,01 . @C@@@@ TAYY )@@G@@B 0000,0,050,057 . @C@@@@ TAB 0000,0,040,0YZ )@@G@@02 . @C@@@@ TAB 0000,0,040,004 . ZA )@@G@@@C@@@@ TAB 0000,0,05,077 . @C@@@@ TAZB )@@G@@B 0000,0,041,000 . @C@@@@ TAB 0000,0,074,0ZC )@@G@@6 . @C@@@@ TAB 0000,0,05,07 . ZD )@@G@@@C@@@@ TAB 0000,0,05,010 . @C@@@@ TAZE )@@G@@B 0000,0,05,011 . @C@@@@ TAB 0000,0,05,01ZF )@@G@@2 . @C@@@@ TAB 0000,0,05,013 . ZG )@@G@@@C@@@@ TAB 0000,0,05,014 . @C@@@@ TAZH )@@G@@B 0000,0,05,015 . @C@@@@ TAB 0000,0,05,01ZI )@@G@@6 . @C@@@@ TAB 0000,0,055,017 . ZJ )@@G@@@C@@@@ TAB 0000,0,056,020 . @C@@@@ TAZK )@@G@@B 0000,0,052,021 . @C@@@@ TAB 0000,0,041,0ZL )@@G@@22 . @C@@@@ TAB 0000,0,045,023 . ZM )@@G@@@C@@@@ TAB 0000,0,054,024 . @C@@@@ TAZN )@@G@@B 0000,0,05,025 . @C@@@@ TAB 0000,0,05,02ZO )@@G@@6 . @C@@@@ TAB 0000,0,05,027 . ZP )@@G@@@C@@@@ TAB 0000,0,05,030 . @C@@@@ TAZQ )@@G@@B 0000,0,05,031 . @C@@@@ TAB 0000,0,05,03ZR )@@G@@2 . @C@@@@ TAB 0000,0,05,033 . ZS )@@G@@@C@@@@ TAB 0000,0,05,034 . @C@@@@ TAZT )@@G@@B 0000,0,05,035 . @C@@@@ TAB 0000,0,057,0ZU )@@G@@36 . @C@@@@ TAB 0000,0,053,037 . ZV )@@G@@@C@@@@ TAB 0000,0,03,054 . @C@@@@ TAZW )@@G@@B 0000,0,00,057 . @C@@@@ TAB 0000,0,072,0ZX )@@G@@55 . @C@@@@ TAB 0000,0,044,004 . ZY )@@G@@@C@@@@ TAB 0000,0,05,077 . @C@@@@ TAZZ )@@G@@B 0000,0,05,05 . @C@@@@ TAB 0000,0,06,05AA )@@G@@ . @C@@@@ TAB 0000,0,07,05 . AB )@@G@@@C@@@@ TAB 0000,0,010,05 . @C@@@@ TAAC )@@G@@B 0000,0,011,05 . @C@@@@ TAB 0000,0,012,0AD )@@G@@5 . @C@@@@ TAB 0000,0,013,05 . AE )@@G@@@C@@@@ TAB 0000,0,014,05 . @C@@@@ TAAF )@@G@@B 0000,0,015,05 . @C@@@@ TAB 0000,0,016,0AG )@@G@@5 . @C@@@@ TAB 0000,0,05,05 . AH )@@G@@@C@@@@ TAB 0000,0,05,05 . @C@@@@ TAAI )@@G@@B 0000,0,05,05 . @C@@@@ TAB 0000,0,05,05AJ )@@G@@ . @C@@@@ TAB 0000,0,05,05 . AK )@@G@@@C@@@@ TAB 0000,0,05,05 . @C@@@@ TAAL )@@G@@B 0000,0,05,05 . @C@@@@ TAB 0000,0,017,0AM )@@G@@5 . @C@@@@ TAB 0000,0,020,05 . AN )@@G@@@C@@@@ TAB 0000,0,021,05 . @C@@@@ TAAO )@@G@@B 0000,0,022,05 . @C@@@@ TAB 0000,0,023,0AP )@@G@@5 . @C@@@@ TAB 0000,0,024,05 . AQ )@@G@@@C@@@@ TAB 0000,0,025,05 . @C@@@@ TAAR )@@G@@B 0000,0,026,05 . @C@@@@ TAB 0000,0,027,0AS )@@G@@5 . @C@@@@ TAB 0000,0,05,05 . AT )@@G@@@C@@@@ TAB 0000,0,05,05 . @C@@@@ TAAU )@@G@@B 0000,0,05,05 . @C@@@@ TAB 0000,0,05,05AV )@@G@@ . @C@@@@ TAB 0000,0,05,05 . AW )@@G@@@C@@@@ TAB 0000,0,05,05 . @C@@@@ TAAX )@@G@@B 0000,0,05,05 . @C@@@@ TAB 0000,0,04,05AY )@@G@@ . @C@@@@ TAB 0000,0,030,04 . AZ )@@G@@@C@@@@ TAB 0000,0,031,05 . @C@@@@ TABA )@@G@@B 0000,0,032,05 . @C@@@@ TAB 0000,0,033,0BB )@@G@@5 . @C@@@@ TAB 0000,0,034,05 . BC )@@G@@@C@@@@ TAB 0000,0,035,05 . @C@@@@ TABD )@@G@@B 0000,0,036,05 . @C@@@@ TAB 0000,0,037,0BE )@@G@@5 . @C@@@@ TAB 0000,0,05,05 . BF )@@G@@@C@@@@ TAB 0000,0,05,05 . @C@@@@ TABG )@@G@@B 0000,0,05,05 . @C@@@@ TAB 0000,0,05,05BH )@@G@@ . @C@@@@ TAB 0000,0,05,05 . BI )@@G@@@C@@@@ TAB 0000,0,05,05 . @C@@@@ TABJ )@@G@@B 0000,0,05,05 . @C@@@@ TAB 0000,0,05,05BK )@@G@@ . @C@@@@ TAB 0000,0,05,05 . BL )@@G@@@C@@@@ TAB 0000,0,05,05 . @C@@@@ TABM )@@G@@B 0000,0,05,05 . @C@@@@ TAB 0000,0,05,05BN )@@G@@ . @C@@@@ TAB 0000,0,05,05 . BO )@@G@@@C@@@@ TAB 0000,0,05,05 . @C@@@@ TABP )@@G@@B 0000,0,05,05 . @C@@@@ TAB 0000,0,05,05BQ )@@G@@ . @C@@@@ TAB 0000,0,05,05 . BR )@@G@@@C@@@@ TAB 0000,0,05,05 . @C@@@@ TABS )@@G@@B 0000,0,05,05 . @C@@@@ TAB 0000,0,05,05BT )@@G@@ . @C@@@@ TAB 0000,0,05,05 . BU )@@G@@@C@@@@ TAB 0000,0,05,05 . @C@@@@ TABV )@@G@@B 0000,0,054,05 . @C@@@@ TAB 0000,0,06,05BW )@@G@@ . @C@@@@ TAB 0000,0,07,05 . BX )@@G@@@C@@@@ TAB 0000,0,010,05 . @C@@@@ TABY )@@G@@B 0000,0,011,05 . @C@@@@ TAB 0000,0,012,0BZ )@@G@@5 . @C@@@@ TAB 0000,0,013,05 . CA )@@G@@@C@@@@ TAB 0000,0,014,05 . @C@@@@ TACB )@@G@@B 0000,0,015,05 . @C@@@@ TAB 0000,0,016,0CC )@@G@@5 . @C@@@@ TAB 0000,0,05,05 . CD )@@G@@@C@@@@ TAB 0000,0,05,05 . @C@@@@ TACE )@@G@@B 0000,0,05,05 . @C@@@@ TAB 0000,0,05,05CF )@@G@@ . @C@@@@ TAB 0000,0,05,05 . CG )@@G@@@C@@@@ TAB 0000,0,05,05 . @C@@@@ TACH )@@G@@B 0000,0,055,05 . @C@@@@ TAB 0000,0,017,0CI )@@G@@5 . @C@@@@ TAB 0000,0,020,05 . CJ )@@G@@@C@@@@ TAB 0000,0,021,05 . @C@@@@ TACK )@@G@@B 0000,0,022,05 . @C@@@@ TAB 0000,0,023,0CL )@@G@@5 . @C@@@@ TAB 0000,0,024,05 . CM )@@G@@@C@@@@ TAB 0000,0,025,05 . @C@@@@ TACN )@@G@@B 0000,0,026,05 . @C@@@@ TAB 0000,0,027,0CO )@@G@@5 . @C@@@@ TAB 0000,0,05,05 . CP )@@G@@@C@@@@ TAB 0000,0,05,05 . @C@@@@ TACQ )@@G@@B 0000,0,05,05 . @C@@@@ TAB 0000,0,05,05CR )@@G@@ . @C@@@@ TAB 0000,0,05,05 . CS )@@G@@@C@@@@ TAB 0000,0,05,05 . @C@@@@ TACT )@@G@@B 0000,0,057,05 . @C@@@@ TAB 0000,0,05,05CU )@@G@@ . @C@@@@ TAB 0000,0,030,05 . CV )@@G@@@C@@@@ TAB 0000,0,031,05 . @C@@@@ TACW )@@G@@B 0000,0,032,05 . @C@@@@ TAB 0000,0,033,0CX )@@G@@5 . @C@@@@ TAB 0000,0,034,05 . CY )@@G@@@C@@@@ TAB 0000,0,035,05 . @C@@@@ TACZ )@@G@@B 0000,0,036,05 . @C@@@@ TAB 0000,0,037,0DA )@@G@@5 . @C@@@@ TAB 0000,0,05,05 . DB )@@G@@@C@@@@ TAB 0000,0,05,05 . @C@@@@ TADC )@@G@@B 0000,0,05,05 . @C@@@@ TAB 0000,0,05,05DD )@@G@@ . @C@@@@ TAB 0000,0,05,05 . DE )@@G@@@C@@@@ TAB 0000,0,05,05 . @C@@@@ TADF )@@G@@B 0000,0,060,05 . @C@@@@ TAB 0000,0,061,0DG )@@G@@5 . @C@@@@ TAB 0000,0,062,05 . DH )@@G@@@C@@@@ TAB 0000,0,063,05 . @C@@@@ TADI )@@G@@B 0000,0,064,05 . @C@@@@ TAB 0000,0,065,0DJ )@@G@@5 . @C@@@@ TAB 0000,0,066,05 . DK )@@G@@@C@@@@ TAB 0000,0,067,05 . @C@@@@ TADL )@@G@@B 0000,0,070,05 . @C@@@@ TAB 0000,0,071,0DM )@@G@@5 . @C@@@@ TAB 0000,0,05,05 . DN )@@G@@@C@@@@ TAB 0000,0,05,05 . @C@@@@ TADO )@@G@@B 0000,0,05,05 . @C@@@@ TAB 0000,0,05,05DP )@@G@@ . @C@@@@ TAB 0000,0,05,05 . DQ )@@G@@@C@@@@ TAB 0000,0,05,05 . @B@@@@ ENDR )@@G@@D . _@@@@@ TAB 0000,0,05,05 DS )@@G@@ . @C@@@@ TAB 0000,0,055,05 . @C@@@@ DT )@@G@@ TAB 0000,0,017,05 . @C@@@@*[S@@@*SDFF*@F@@@@. THISDU )@@G@@ PROGRAM PRINTS CFH FORMAT SERIAL FILES BY BLOCK AND RECORD @H@@@@. DV )@@G@@ INDEXED SEQUENTIAL FILES BY INDEX OR KEY DW )@@G@@@E@@@@. RANDOM FILES BY RECORD @A@@@@DX )@@G@@. ASCII COBOL @F@@@@. DY )@@G@@ SERIAL FILES BY BLOCK AND RECORD @H@@@@. DZ )@@G@@ TAPE FILES (LABEL RECORDS OMITTED) BY BLOCK @C@@@@. EA )@@G@@ AND RECORD @E@@@@. DIREB )@@G@@ECT FILES BY RECORD @G@@@@. IS FILES EC )@@G@@BY RECORD, ACCESSED RANDOMLY @D@@@@. OED )@@G@@R SEQUENTIALLY @D@@@@. A DUMP BY BLOCK FROM ANY FEE )@@G@@ILE @H@@@@. TIP FIXED LENGTH RECORD FILES (IF TIP EF )@@G@@FLAG IS NON-ZERO) @I@@@@. TIP KONS BY WORD (IF TIP FEG )@@G@@LAG IS NON-ZERO) FTR 3-80 @I@@@@. SDF FILEEH )@@G@@S BY RECORD FTR 3-80 @I@@@@. EI )@@G@@ FTR 3-80 EJ )@@G@@@E@@@@. IN OCTAL DECIMAL CHARACTER BYTE OR COMPOSITE FORMAT. @A@@@@EK )@@G@@. EACH PARAMETER CARD IS OF FORM: @A@@@@. SPEC1,SPEC2,SPEC3,....,SPEEL )@@G@@CN @[@@@@. @^@@@@. SPEC1 = FILE NAME @G@@@@. MAY BEEM )@@G@@ INTERNAL OR EXTERNAL (TOTAL LENGTH MAY NOT EXCEED 48 @^@@@@. EN )@@G@@CHARACTERS).@D@@@@. SPEC2 = B, BLOCK MODE PRINT DEFAULT RECORDS EO )@@G@@@G@@@@. C, FOR SDF FILES, DO NOT DISPLAY LABEL IMAGES OR CONTEEP )@@G@@NTS. @E@@@@. D, PRINT KEY INFORMATION FOR DELETED IS RECORDS EQ )@@G@@@G@@@@. ISFMS- CONTINUE PRINTING IF KEY ASCENDANCE ERROR DEER )@@G@@TECTED@F@@@@. ISFMS- IGNORE CREATION TIME/DATE INCONSISTENCES )@@G@@Y @H@@@@. IF THIS IS PRESENT IN CONJUNCTION WITH THE T ET )@@G@@OPTION (SEE BELOW)@H@@@@. THE FILE NUMBER SPEC IS INTERPRETEU )@@G@@ED AS A DMS AREA NUMBER AND @D@@@@. THE TIP NUMBER CALCULEV )@@G@@ATED FROM IT. @G@@@@. E, DUMP CURRENT BLOCK IN OCTAL IF A EW )@@G@@LINK ERROR IS DETECTED @H@@@@. F, FOR SDF FILES, OVERRIDE PRIEX )@@G@@NT OPTION WITH N OR O DEPENDING @E@@@@. ON WHETHER THE EY )@@G@@FILE IS CURRENTLY FD OR ASCII.@I@@@@. K, (IF TAG TIP IS NON-ZEEZ )@@G@@RO) PRINT FROM KONS FTR 7-79 @I@@@@. -SPFA )@@G@@EC 1 MUST READ 'KONS' FTR 7-79 @I@@@@FB )@@G@@. -SPEC 4 IS THE KONS INDEX FC )@@G@@FTR 7-79 @I@@@@. -SPEC 5 IS THE NUMBER OF WORDS FD )@@G@@ FTR 7-79 @I@@@@. M, FOR MSAM FILES, PRINTFE )@@G@@ ALL KEYS FOR EACH RECORD. FTR 3-80 @I@@@@. ELSFF )@@G@@E ONLY THE KEY UPON WHICH SELECTION IS MADE FTR 3-80 @I@@@@FG )@@G@@. IS PRINTED (SEE MSAMALTK). FH )@@G@@FTR 3-80 @G@@@@. N, SUPPRESS PRINTING OF CONTROL BLOCKS ON FI )@@G@@FORMATTED COBOL @^@@@@. FILES. @H@@@@. O, TREFJ )@@G@@AT MASS-STORAGE FILE AS ASCII COBOL LABEL RECORDS OMITTED @I@@@@. FK )@@G@@ AND EDITED PRINT OF UNLABELLED ANS TAPES FTR 3-FL )@@G@@80 @G@@@@. P, PRINT ONLY INFORMATION OBTAINED FROM FILE LABFM )@@G@@ELS, FACIL$,@D@@@@. FITEM$ OR FILE DIRECTORY (TIP FILES). FN )@@G@@@I@@@@. Q, IF SERPRT INSISTS ON INTERPRETING A NON-ASCII COBOLFO )@@G@@ FTR 3-79 @I@@@@. TAPE FILE AS IF IT WERE SUCH, BECFP )@@G@@AUSE THE FIRST FTR 3-79 @I@@@@. 3 WORDS OF THE FQ )@@G@@FIRST BLOCK CAN BE TREATED AS ASCII FTR 3-79 @I@@@@. FR )@@G@@ NUMERIC, THE Q OPTION CAN BE USED TO MAKE SERPRT FTR 3-79 FS )@@G@@@I@@@@. BYPASS THIS TEST AND TREAT THE FILE AS IT SHOULD BEFT )@@G@@. FTR 3-79 @I@@@@. SIMILARLY PCIOS SEQUENTIAL AND REFU )@@G@@LATIVE FTR 3-80 @I@@@@. FILES NORMALLY FV )@@G@@HAVE LABEL IMAGE PRINTING FTR 3-80 @I@@@@. FW )@@G@@ SUPPRESSED - THIS OPTION ALLOWS THEM TO FTR 3-80 FX )@@G@@@I@@@@. BE PRINTED. FY )@@G@@ FTR 3-80 @D@@@@. R, PRINT CFH IS FILE AS A USER RANDOFZ )@@G@@M FILE@H@@@@. T, SPEC1 DEFINES A TIP FILE UNDER FCSS CONTROL (GA )@@G@@ONLY IF TAG TIP @B@@@@. IS NON-ZERO - SEE BELOW) @G@@@@GB )@@G@@. THIS FILE NUMBER MAY BE SPECIFIED AS DECIMAL OR OCTAL GC )@@G@@@H@@@@. THE LATTER BEING ASSUMED IF THE FIRST CHARACTER IS GD )@@G@@A ZERO. @C@@@@. (SEE ALSO THE D OPTION ABOVE). @G@@@@GE )@@G@@. W, ACCESS ON IS FILE TO BE MADE BY AN INDEX SEARCH RATHER GF )@@G@@@E@@@@. THAN BY SEQUENTIAL READ FROM START OF FILE. @A@@@@GG )@@G@@. X, RAW DUMP BY BLOCK @I@@@@. BLOCK SIZE DEFAGH )@@G@@ULTS TO 112 WORDS (4 SECTORS) BUT FTR 3-80 @I@@@@. GI )@@G@@ MAY BE OVERRIDDEN BY THE Z OPTION IN THIS FIELD FTR 3-80 GJ )@@G@@@I@@@@. OR TO THE DUMPBLEN KEYWORD PARAMETER. GK )@@G@@ FTR 3-80 @G@@@@. Y, DO NOT PRINT FILE AS A USER RANDOGL )@@G@@M FILE IF IT FAILS THE @E@@@@. TEST FOR CFH INDEXED SEQUENGM )@@G@@TIAL (SEE BELOW) @I@@@@. Z, SET DEFAULT BLOCK LENGTH FOR X OPGN )@@G@@TION DUMPS TO FTR 3-80 @I@@@@. ONE SECTOR (28 GO )@@G@@WORDS) INSTEAD OF 4 - NOTE THAT THE FTR 3-80 @I@@@@. GP )@@G@@ DUMPBLEN KEYWORD PARAMETER OVERRIDES THIS. FTR 3-80 GQ )@@G@@@G@@@@. SPEC3 = PRINT FORMAT (SEE PRCORE) DEFAULT AS IN PRCGR )@@G@@ORE @F@@@@. SPEC4 = REC/BLOCKS TO SKIP BEFORE STARTING PRINTING DEFGS )@@G@@AULT 0@F@@@@. SPEC5 = REC/BLOCKS TO PRINT DEFAULT 999GT )@@G@@999 @[@@@@. @G@@@@. FOLLOWING SPECIFICATION 5 ARE SPECIAL FIELDS MGU )@@G@@ADE UP OF A KEYWORD @G@@@@. FOLLOWED BY EITHER A SINGLE FIELD CONTAIGV )@@G@@NING A NUMERICAL VALUE OR @G@@@@. ANY NUMBER OF FIELDS EACH REPRESENGW )@@G@@TING A SINGLE WORD OF A KEY (AS @G@@@@. IN THE CASE OF INDEXED SEQUEGX )@@G@@NTIAL FILES). EACH WORD MAY BE SPECIFIED @G@@@@. AS 6 FIELDATA, AS 4 ASGY )@@G@@CII OR AS 12 OCTAL CHARACTERS - ANY COUNT OTHER @F@@@@. THAN THESE IS DEGZ )@@G@@EMED INVALID AND TERMINATES THE PARAMETER SCAN. @G@@@@. NOTE THAT IF FD HA )@@G@@CHARACTERS ARE SPECIFIED, THE CHARACTERS ';' AND '*' @G@@@@. MUST NOT BHB )@@G@@E THE FIRST (LEFTMOST) AND ',' MAY NOT BE USED. EACH WORD @G@@@@. IS IHC )@@G@@NTERPRETED ON ITS OWN MERITS, IE IF 6 CHARS ARE SUPPLIED IT IS @G@@@@HD )@@G@@. ASSUMED FD, IF 4 ASCII AND IF 12 OCTAL. THEREFORE ALL THESE TYPES MAY HE )@@G@@@C@@@@. BE MIXED IN ANY ORDER IN A KEY SPECIFICATION. @H@@@@. NOTE THAT HF )@@G@@SINCE THE INPUT IS FIELDATA ONLY ASCII CHARACTERS WHICH HAVE AN @F@@@@HG )@@G@@. EQUIVALENT IN THE FD SET MAY BE SPECIFIED IN AN ASCII KEY WORD. @[@@@@HH )@@G@@. @ @@@@. THE AVAILABLE KEYWORDS ARE: @[@@@@. @H@@@@. SDUMPKEY HI )@@G@@ KEY AT WHICH TO START AND END OCTAL BLOCK DUMPING (IS FILES) @H@@@@HJ )@@G@@. EDUMPKEY FOR EACH BLOCK ENTERED ON A SEQUENTIAL READ THROUGH THE FHK )@@G@@ILE @[@@@@. @I@@@@. SDUMPNUM AS DUMP BY KEYS BUT SPECIFICATIONHL )@@G@@ IS A SINGLE FIELD REPRESENTING @ @@@@. EDUMPNUM RECORD NUMBER HM )@@G@@@[@@@@. @F@@@@. STPRINTK KEY AT WHICH TO START AND END A PRINT OHN )@@G@@F AN IS-FILE@]@@@@. ENPRINTK @[@@@@. @I@@@@. MSAMALTK SPECIFICAHO )@@G@@TION OF THE ALTERNATE KEY # REQUIRED FOR FTR 3-80 @I@@@@. HP )@@G@@ AN MSAM FILE APPLYING TO STPRINTK ETC. DEFAULT IS FTR 3-HQ )@@G@@80 @I@@@@. TO THE PRIMARY KEY. HR )@@G@@ FTR 3-80 @I@@@@. HS )@@G@@ FTR 3-80 @H@@@@. DUMPBLEN BLOCK SIZHT )@@G@@E RESPECIFICATION FOR AN X-OPTION DUMP OF ANY FILE @H@@@@. HU )@@G@@ DEFAULT IS 16 SECTORS FOR F-FORMAT FILES AND 256 WORDS FOR @ @@@@HV )@@G@@. D-FORMAT FILES @[@@@@. @H@@@@. MSTOTYPE FOR CFH FHW )@@G@@ILES ON MASS-STORAGE ONLY. IF THIS SPEC IS SET TO @G@@@@. HX )@@G@@ 0 (DEFAULT), THE FILE IS ASSUMED TO HAVE BEEN DESCRIBED @G@@@@. HY )@@G@@ AS 'MASS-STORAGE-112'. IF =1 'MASS-STORAGE' IS ASSUMED. @[@@@@HZ )@@G@@. @H@@@@. PRLENGTH SET A NEW (SHORTER) LENGTH OF RECORD THAT IS IA )@@G@@TO BE PRINTED @H@@@@. INSTEAD OF ACTUAL LENGTH - THIS OIB )@@G@@NLY APPLIES TO RECORD PRINTING@D@@@@. - DUMPS ARE ALWAYS PRIC )@@G@@INTED IN FULL @[@@@@. @G@@@@. EOFCOUNT FOR X FORMAT DUMPS OFID )@@G@@ TAPES ONLY - THIS SPEC DEFINES THE @G@@@@. NUMBER OF FILESIE )@@G@@ TO BE DUMPED - NOTE THAT PRINTING IS NOT @H@@@@. TERMINATEIF )@@G@@D IF THE PRINT COUNT EXPIRES FOR ANY FILE, UNLESS @F@@@@. IG )@@G@@ THE EOF COUNT EXPIRES - START BLOCK AND BLOCK COUNT@B@@@@. IH )@@G@@ ARE RESET FOR EACH FILE. @H@@@@. PRINTING IS TERMINATEII )@@G@@D ON ENCOUNTERING TWO CONSECUTIVE EOFS. @[@@@@. @H@@@@. WDTOLINE IJ )@@G@@ NUMBER OF WORDS TO BE PRINTED PER LINE (SEE PRCORE SUBROUTINE).@[@@@@IK )@@G@@. @G@@@@. XSTARTRD FOR X FORMAT DUMPS OF MASS STORAGE FILES, THIIL )@@G@@S ENABLES @F@@@@. ONE TO SPECIFY THE BASE ADDRESS FROM WHIM )@@G@@ICH TO START@G@@@@. COUNTING FOR THE PRINT. FOR WAD FILES TIN )@@G@@HIS IS WORD NUMBER@D@@@@. FOR SECTOR FILES IT IS SECTOR NUMIO )@@G@@BER. @A@@@@. DEFAULT IS ZERO. @[@@@@. @G@@@@. LABEIP )@@G@@LPRT THIS DEFINES THE PRINT FORMAT OPTION TO BE USED WHEN @G@@@@IQ )@@G@@. PRINTING ASCII COBOL USER LABELS AND SDF LABEL IMAGES. IR )@@G@@@G@@@@. THE FOLLOWING FIELD SHOULD SPECIFY A SINGLE CHARACTIS )@@G@@ER @C@@@@. OF THE SET ALLOWED BY PRCORE. @[@@@@. IT )@@G@@@H@@@@. LABELPRL THIS DEFINES THE NUMBER OF WORDS OR BYTES TO BE PRIIU )@@G@@NTED AS @B@@@@. AN ASCII COBOL USER LABEL. @ @@@@. IV )@@G@@ DEFAULT IS 27. @I@@@@. SEQSEGMT THIS INDICATES A REQUEST TOIW )@@G@@ PRINT BEYOND THE FTR 6-81 @H@@@@. FIRST SEGIX )@@G@@MENT OF A SEGNENTED PCIOS SDF FILE. THIS FTR @I@@@@. IY )@@G@@ MUST BE A SINGLE FIELD SPECIFYING THE NUMBER FTR 6-81 IZ )@@G@@@I@@@@. OF THE SEGMENT TO BE PRINTED (THE FIRST, OR JA )@@G@@ FTR 6-81 @I@@@@. ONLY ON A NON-SEGMENTED FILE, IS JB )@@G@@ZERO - IE 0). FTR 6-81 @I@@@@. JC )@@G@@ FTR 6-81 @[@@@@. @]@@@@JD )@@G@@. NOTES @G@@@@. ANY START KEY OR END KEY FOR DUMPING OR PRINTINGJE )@@G@@ THAT IS SPECIFIED@H@@@@. OVERRIDES ANY CORRESPONDING START NUMBER OJF )@@G@@R END NUMBER SPECIFICATION @ @@@@. THAT MAY BE SUPPLIED @[@@@@JG )@@G@@. @F@@@@. RECORD NUMBERING FOR ISFMS FILES ALWAYS INCLUDES DELETJH )@@G@@ED @#@@@@. RECORDS. @[@@@@. @G@@@@. RECORD NUMBERS ON JI )@@G@@A RANDOM ACCESS COBOL IS FILE PRINT ARE RELATIVE@G@@@@. TO THE STARTJJ )@@G@@ OF THE FIRST BLOCK THAT IS PRINTED FROM AND NOT TO @^@@@@. THE STJK )@@G@@ART OF FILE.@[@@@@. @G@@@@. ANY NUMBER OF FILES MAY BE PRINTED PER @JL )@@G@@XQT, EACH REQUIRING AT LEAST @^@@@@. ONE PARAMETER CARD. @G@@@@. THE JM )@@G@@LAST COMPLETED FIELD ON THE PARAMETER MUST BE FOLLOWED BY ',*'. @E@@@@JN )@@G@@. PARAMETERS MAY BE CONTINUED OVER MORE THAN ONE CARD BY @D@@@@. FOLLJO )@@G@@OWING A COMPLETED FIELD BY ',;' AND CONTINUING @#@@@@. ON THE NEXT CARDJP )@@G@@@[@@@@. @C@@@@. THE FOLLOWING @XQT OPTIONS ARE AVAILABLE: @E@@@@JQ )@@G@@. N - SUPPRESS PRTCN$ HEADING AND MARGIN CHANGE @I@@@@. JR )@@G@@ P - PRINT PARAMETER CARD AFTER VALIDATION FTR 3-JS )@@G@@79 @I@@@@. Y - FOR TAPE FILES - DO NOT ATTEMPT TO ACCESS JT )@@G@@ FTR 6-79 @I@@@@. LABELS VIA LABEL$ OR TLBL$ (JU )@@G@@USED WHEN RUNNING FTR 6-79 @I@@@@. UNDER THE JV )@@G@@PRIVILEDGED ACCOUNT NUMBER) FTR 6-79 @I@@@@. JW )@@G@@ Z - PRINT DIAGNOSTIC INFORMATION FOR DEBUG FTR 4-JX )@@G@@79 @[@@@@. @ @@@@. F T RUDOLPH AUGUST 1973@[@@@@. @E@@@@JY )@@G@@. SURREY COUNTY COUNCIL ENGLAND (SITE CODE SCC) @[@@@@. JZ )@@G@@@F@@@@. ORIGINALLY WRITTEN AT LEICESTERSHIRE COUNTY COUNTY BY ABOVE KA )@@G@@@[@@@@. @H@@@@. VERSION 3 - GENERAL TIDY UP AND IMPLEMENT NEW PARAMEKB )@@G@@TER CARD FORMAT JAN 74 @C@@@@. 4 - IMPLEMENT TIP FILE PRINT APRKC )@@G@@IL 75 @C@@@@. 5 - IMPLEMENT FOR TIP LEVEL 4 JAN 77 @H@@@@. KD )@@G@@ 6 - IMPLEMENT ASCII COBOL TYPES DIRECT AND MASS-STORAGE SERIAL KE )@@G@@@ @@@@. FILES APRIL 77 @D@@@@. 7 - IMPLEMENT ASCII KF )@@G@@COBOL IS FILES MAY 77 @C@@@@. 8 - IMPLEMENT ASCII COBOL TAPE FKG )@@G@@ILES. @E@@@@. 9 - IMPLEMENTATION OF SDF FILE PRINT AUG 77 KH )@@G@@@I@@@@. 10 - IMPLEMENT ACOB MASS-STORAGE-28,-56,-112 ETC APR 79 KI )@@G@@ FTR 4-79 @I@@@@. 11 - IMPLEMENT HDR1 HDR2 LABEL READ FORKJ )@@G@@ TAPE FILES APR 79 FTR 4-79 @I@@@@. 12 - IMPLEMENT KONS PKK )@@G@@RINT FTR 7-79 @I@@@@. 13 KL )@@G@@- IMPLEMENT ANS STANDARD TAPE FORMAT (PCIOS- FTR 3-80 KM )@@G@@@I@@@@. AND AS ASSIGN TO TAPE IN ACOB LEVEL 4). KN )@@G@@ FTR 3-80 @I@@@@. IMPLEMENT MSAM FILE PRINT. KO )@@G@@ FTR 3-80 @[@@@@. @[@@@@. @[@@@@. KP )@@G@@@G@@@@TIP EQU 1 . SET NON-ZERO FOR TIP FILKQ )@@G@@ES @I@@@@. ELSE CODE IS GENERATED KR )@@G@@ FTR 2-80 @I@@@@. KS )@@G@@ FTR 2-80 @I@@@@. KT )@@G@@ FTR 2-80 @I@@@@COBFD KU )@@G@@ EQU 0 . SET NONZERO FD COBOL FTR 2-KV )@@G@@80 @I@@@@. ELSE CODE IS GENERATED KW )@@G@@ FTR 2-80 @I@@@@. KX )@@G@@ FTR 2-80 @I@@@@. KY )@@G@@ FTR 2-80 @B@@@@ KZ )@@G@@ ON TIP>0 . @G@@@@ SYSDEF LA )@@G@@ . GET TIP DEFINITIONS FROM DEF @G@@@@TIPDMS EQU TFPMLB )@@G@@AX . TIP-DMS CONVERSION FACTOR @F@@@@DMSNO EQU LC )@@G@@ 5 . FILE TYPE FOR DMS FILES @B@@@@ OFF LD )@@G@@ . @[@@@@. @B@@@@ AXR$ LE )@@G@@ . @B@@@@P PROC . @I@@@@EDEX* LF )@@G@@ NAME 2 . PRINT AFTER 2 FTR 3-LG )@@G@@80 @I@@@@EDEX1* NAME 1 . PRINT AFTER 1 LH )@@G@@ FTR 3-80 @I@@@@EDEX0* NAME 0 . LI )@@G@@PRINT AFTER 0 FTR 3-80 @I@@@@EDEX3* NAME 3 LJ )@@G@@ . PRINT AFTER 3 FTR 3-80 @I@@@@EDEX4*LK )@@G@@ NAME 4 . PRINT AFTER 4 FTR 3-LL )@@G@@80 @I@@@@ P$RINT (PF P(0,0),22,PLINE) . PRINT BUILT MESSALM )@@G@@GE FTR 3-80 @I@@@@ E$CLEAR . LN )@@G@@ FTR 3-80 @I@@@@ ON P(1,LO )@@G@@1) . SKIP IF PARAMETER GIVEN FTR 3-80 @I@@@@ LP )@@G@@ E$SKIP P(1,1) . FTR 3-LQ )@@G@@80 @I@@@@ OFF . LR )@@G@@ FTR 3-80 @B@@@@ END . LS )@@G@@@B@@@@P PROC . @B@@@@GET$P* NAME LT )@@G@@ . @B@@@@ LMJ X11,GETFLD . LU )@@G@@@B@@@@ + P(1,1) . @F@@@@ ON LV )@@G@@ P=3 . IF SECOND SPEC GIVEN @F@@@@ TNZ,H1 LW )@@G@@ P(1,1)+3 . JUMP IF FIELD IS VOID @B@@@@ J LX )@@G@@ P(2,1) . @B@@@@ OFF . LY )@@G@@@B@@@@ END . @B@@@@P PROC LZ )@@G@@ . @B@@@@ASCBIN1* NAME 0 . MA )@@G@@@B@@@@ASCBIN2* NAME 1 . @I@@@@ L MB )@@G@@ A0,P(1,1),P(1,2),P(1,3) . MASS STORAGE FILE LENGTH (BINARY) @C@@@@MC )@@G@@ TNZ TAPETAG . TAPE? @D@@@@ J MD )@@G@@ ROUND . NOT TAPE @G@@@@ L,U A0,P(1,1),ME )@@G@@P(1,2) . TAPE - ADDRESS OF ASCII LENGTH@E@@@@ LXI,U A0,1MF )@@G@@ . ASCII CODE FLAG @F@@@@ L,U A1,4*(1+P(MG )@@G@@0,0)) . NUMBER OF CHARACTERS @F@@@@ LMJ X11,DECTRAMH )@@G@@N . CONVERT TO BINARY IN A0 @E@@@@ JN A1,OUT MI )@@G@@ . CONVERSION ERROR @B@@@@ROUND MJ )@@G@@ . @B@@@@ END . @I@@@@P PRMK )@@G@@OC . FTR 4-79 ML )@@G@@@I@@@@SNAP* NAME . MM )@@G@@ FTR 4-79 @I@@@@ L A0,SOPTS . MN )@@G@@ FTR 4-79 @I@@@@ JNB A0,B MO )@@G@@ . IF Z OPTION NOT ON - DO NOT SNFTR 4-79 @I@@@@ L,MP )@@G@@U A0,A . FTR 4-79 MQ )@@G@@@I@@@@ ER SNAP$ . MR )@@G@@ FTR 4-79 @I@@@@ J B . MS )@@G@@ FTR 4-79 @I@@@@A MT )@@G@@ . FTR 4-79 @I@@@@ $CMU )@@G@@FS(P(1,1)) . SNAP IDENTIFIER FTR 4-79 MV )@@G@@@I@@@@ + P(1,2),P(1,3) . SNAP LENGTH,SNAP ADDRESSMW )@@G@@ FTR 4-79 @I@@@@ 0 . MX )@@G@@ FTR 4-79 @I@@@@B MY )@@G@@ . FTR 4-79 @I@@@@ ENMZ )@@G@@D . FTR 4-79 NA )@@G@@%I@@@@-259 NB )@@G@@ FTR 7-81 @I@@[@P PROC . THIS TESTS IF IT ISNC )@@G@@ A DEMAND RUN FTR 7-81 @I@@[@SLIMIFDEM* NAME . PND )@@G@@RINT WHAT BUILT & CLEAR PRINT LINE FTR 7-81 @I@@[@ TNNE )@@G@@Z PRCOREDEMAND . IS IT DEMAND? FTR 7-81 NF )@@G@@@I@@[@ J NOT . NOT DEMAND NG )@@G@@ FTR 7-81 @I@@[@ EDEX1 . PRINT LINH )@@G@@NE BUILT SO FAR FTR 7-81 @I@@[@ J ALL NI )@@G@@ . LINE IS SPACED ALSO FTR 7-81 @I@@[@NOT. NJ )@@G@@ FTR 7-81 NK )@@G@@@I@@[@ E$SKIP 1 . ALWAYS SPACE 1 IF BATCH NL )@@G@@ FTR 7-81 @I@@[@ALL. NM )@@G@@ FTR 7-81 @I@@[@ END . NN )@@G@@ FTR 7-81 @B@@@@PF FONO )@@G@@RM 12,6,18 . @B@@@@PP FORM 6,12,18 NP )@@G@@ . @G@@@@FSECS EQU 4 . FASTRAND BLOCK SIZNQ )@@G@@E IN SECTORS@F@@@@WSECS EQU 256 . WORD/ADDR DRNR )@@G@@UM 256 WORDS@E@@@@MAXK EQU 15 . MAX KEY LENGNS )@@G@@TH @B@@@@TLEN EQU MAXK+1 . @I@@@@BUFSIZ EQNT )@@G@@U 1792*2 . MAX BLOCK SIZE THAT CAN BE REAFTR 3-80 NU )@@G@@@I@@@@TOPREC EQU (9999+3)/4 . MAX ANS RECORD SIZE NV )@@G@@ FTR 3-80 @I@@@@MSAMNO EQU 25 . # KEYSNW )@@G@@ PRINTABLE FOR MSAM FILEFTR 3-80 @I@@@@MSAMLN EQU MAXK NX )@@G@@ . # WORDS OF KEY PRINTABLE FOR MFTR 3-80 @G@@@@SDFBL EQNY )@@G@@U 28*((BUFSIZ/2)/28) . LENGTH OF EACH SDF IO BUFFER @H@@@@SDFNS NZ )@@G@@ EQU SDFBL/28 . IO UNIT LENGTH IN SECTORS FOR SDF OA )@@G@@@D@@@@VERS EQU 13 . PROGRAM LEVEL @B@@@@$(1) OB )@@G@@ . @B@@@@NOW OC )@@G@@ . @I@@@@ SZ PRCOREDEMAND . IF DEMAND OD )@@G@@ FTR 7-79 @I@@@@ TNE,U A4,4 OE )@@G@@ . SET FLAG FOR PRCORE DEFAULTS FTR 7-79 @I@@@@ S OF )@@G@@ A4,PRCOREDEMAND . FTR 7-79 @I@@@@OG )@@G@@ TEP A5,(1*/34) . BRKPT PRINT FILE? OH )@@G@@FTR 9-80 @I@@@@ SZ PRCOREDEMAND . YES - TREAT OI )@@G@@AS BATCH FTR 9-80 @E@@@@ S A5,SOPTS OJ )@@G@@ . SAVE RUN OPTIONS @E@@@@ S R2,TD . OK )@@G@@TIME/DATE OF START@I@@@@ L,U A0,IGPKT . REGISTOL )@@G@@ER CONTINGENCY FTR 9-80 @I@@@@ ER CREG$ OM )@@G@@ . FOR IO ERRORS ETC FTR 9-80 @D@@@@ E$ON )@@G@@DIT EDPK . SIGN ON @I@@@@ E$MSG TEXTOO )@@G@@104 . SIGN-ON LINE FTR 3-80 @E@@@@ OP )@@G@@ E$DECV (IDLEVEL) . SUBLEVEL FROM MAP @E@@@@ DOOQ )@@G@@ TIP>0 , E$FD1 ('/TIP') . TIP VERSION @I@@@@ E$MSGR OR )@@G@@ . MAP TIME/DATE FTR 3-80 @I@@@@OS )@@G@@ E$DAY2 MAPDAT . OT )@@G@@FTR 3-80 @I@@@@ E$SKIP 1 . OU )@@G@@ FTR 3-80 @I@@@@ E$TIME MAPDAT OV )@@G@@ . FTR 3-80 @I@@@@ E$CHAR OW )@@G@@ ')' . FTR 3-80 @I@@@@OX )@@G@@ E$SKIP 8 . OY )@@G@@FTR 3-80 @B@@@@ E$DAY2 TD . @B@@@@ OZ )@@G@@ E$SKIP -2 . @B@@@@ E$FD1 ('AT') PA )@@G@@ . @B@@@@ E$SKIP 1 . @B@@@@ PB )@@G@@ E$TIME TD . @F@@@@ P$RINT (PF 1,22,PPC )@@G@@LINE) . PRINT SIGN ON MESSAGE @G@@@@ L,U R12,1 PD )@@G@@ . NON-ZERO FOR SETTING FLAGS @B@@@@ J PRSEPE )@@G@@ED . @B@@@@BEGIN . @I@@@@PF )@@G@@ ON COBFD>0 . NEEDED ONLY IF FD COBOL PG )@@G@@FTR 3-80 @I@@@@ SPD A0 . CLEAR Q-MODEPH )@@G@@ FTR 3-80 @I@@@@ AND,U A0,0167 PI )@@G@@ . FTR 3-80 @I@@@@ LPD PJ )@@G@@ ,A1 . FTR 3-80 @I@@@@PK )@@G@@ OFF COBFD>0 . NEEDED ONLY IF FD COBOL PL )@@G@@FTR 3-80 @F@@@@ TNZ IASG . DID I ASSIGNPM )@@G@@ THE FILE? @C@@@@ J PRSEED . NO @E@@@@PN )@@G@@ L,U A0,FRAS . YES - FREE IT @B@@@@ PO )@@G@@ ER CSF$ . @B@@@@PRSEED PP )@@G@@ . @B@@@@ R$EAD (EXIT,READLOC) . @C@@@@ PQ )@@G@@ TEP A0,(1*/31) . INFOR?@D@@@@ J PRSEPR )@@G@@ED . YES - IGNORE@B@@@@ L,U A1,'&' PS )@@G@@ . @H@@@@ S,S1 A1,READLOC,A0 . SET TERMINATOR IN PT )@@G@@CASE OF ERROR @F@@@@ MSI,U A0,6 . SET MAPU )@@G@@X CHARS FOR GETFLD@B@@@@ S,H1 A0,GETTAB . @B@@@@PV )@@G@@ SZ IOPAK+5 . @B@@@@ SZ BLKPPW )@@G@@RNT . @I@@@@ SZ SEQX . SEGMENPX )@@G@@TED FILE REQUEST FTR 6-81 @B@@@@ SZ SBLOCK PY )@@G@@ . @B@@@@ SZ,H2 GETTAB+1 . @I@@@@ PZ )@@G@@ L,U A0,R$ .FTR 3-QA )@@G@@79 @I@@@@ S,S2 A0,IOPAK+3 QB )@@G@@ .FTR 3-79 @F@@@@ L,U A0,READLOC . QC )@@G@@INITIALIZE GETFLD PACKET@B@@@@ S A0,GETTAB+2 . QD )@@G@@@E@@@@ L,U A0,GETLC1 . SPECIFIED FILENAME@B@@@@QE )@@G@@ S,H2 A0,GETTAB+3 . @B@@@@ SZ IOPAQF )@@G@@K+2 . @F@@@@ SZ FLAGS . CLEAR QG )@@G@@ALL INDICATORS @B@@@@ SZ FLAGS+1 . @B@@@@QH )@@G@@ SZ FLAGS+2 . @ @@@@ SZ FLAGQI )@@G@@S+3 @I@@@@ SZ FLAGS+4 . QJ )@@G@@ FTR 3-80 @I@@@@ SZ FLAGS+5 . QK )@@G@@ FTR 3-80 @E@@@@ L,U X1,KQL )@@G@@WTNO-1 . NUMBER OF KEYWORDS@B@@@@ L X3,(3,KWTAQM )@@G@@B) . @G@@@@ SZ *2,*X3 . CLEAR KEYWORQN )@@G@@D TABLE FLAGS @B@@@@ JGD X1,$-1 . @E@@@@QO )@@G@@ L A0,HNO . SET FLAGS NON-ZERO@B@@@@ QP )@@G@@ S A0,PRL . @B@@@@ S A0,NBLOCKSQQ )@@G@@ . @E@@@@ L,U A0,112 . READ 4 SECTOQR )@@G@@RS @B@@@@ S,H1 A0,IOPAK+4 . @F@@@@ L,QS )@@G@@U A0,PARERR . ERROR IF NO FILENAME @B@@@@ S,QT )@@G@@H1 A0,GETTAB+5 . @F@@@@ L,U A0,48 QU )@@G@@ . ALLOW EXTERNAL FILENAME @B@@@@ S,H2 A0,GETTAB QV )@@G@@ . @[@@@@. @F@@@@. A12 IS USED DURING PARAMETER CHECKING TO CONTAQW )@@G@@IN AN ERROR CODE @[@@@@. @E@@@@ L,U A12,1 QX )@@G@@ . SET UP ERROR CODE @D@@@@ GET$P GETTAB PARERR . QY )@@G@@GET FILENAME@D@@@@ L,H1 A0,GETTAB+3 . SAVE LENGTH QZ )@@G@@@ @@@@ S A0,FSPECL @F@@@@ L,U A0,12 RA )@@G@@ . FROM HERE ON 12 IS LIMIT@B@@@@ S,H2 A0,GETTAB RB )@@G@@ . @F@@@@ L,U A0,ENDPAR . END OF PARAMRC )@@G@@ETER OK NOW @B@@@@ S,H1 A0,GETTAB+5 . @B@@@@ RD )@@G@@ L,U A0,GETLOC . @D@@@@ S,H2 A0,GETTAB+RE )@@G@@3 . WORK AREA @B@@@@ GET$P GETTAB . RF )@@G@@@E@@@@ DL A1,GETLOC . GET OPTIONS FIELD @B@@@@RG )@@G@@BEGA . @B@@@@ SZ A0 RH )@@G@@ . @B@@@@ LDSL A0,6 . @B@@@@RI )@@G@@ JZ A0,BEGB . @B@@@@ TNE,U A0,'RJ )@@G@@ ' . @B@@@@ J BEGA . @D@@@@RK )@@G@@ TNE,U A0,'X' . TEST DUMP @B@@@@ S RL )@@G@@ A0,XPR . @B@@@@ TNE,U A0,'D' RM )@@G@@ . @B@@@@ S A0,DPR . @B@@@@ TNRN )@@G@@E,U A0,'Y' . @B@@@@ S A0,YPR RO )@@G@@ . @B@@@@ TNE,U A0,'E' . @B@@@@ S RP )@@G@@ A0,EPR . @B@@@@ TNE,U A0,'B' RQ )@@G@@ . @B@@@@ S A0,BORR . @B@@@@ TNRR )@@G@@E,U A0,'P' . @B@@@@ S A0,POPT RS )@@G@@ . @B@@@@ TNE,U A0,'R' . @B@@@@ S RT )@@G@@ A0,RPR . @B@@@@ TNE,U A0,'W' RU )@@G@@ . @B@@@@ S A0,WPR . @B@@@@ TNRV )@@G@@E,U A0,'N' . @E@@@@ S A0,NOLABS RW )@@G@@ . NO LABEL PRINT @D@@@@ TNE,U A0,'O' . RX )@@G@@OMITTED? @ @@@@ S A0,OPR @I@@@@ TNE,U RY )@@G@@ A0,'Q' . Q OPTION? FTR 3-79 @I@@@@RZ )@@G@@ S A0,QOP . YES - USER SAYS ITS NOT ACOB TSA )@@G@@FTR 3-79 @G@@@@ TNE,U A0,'C' . SET FOR C OPSB )@@G@@TION IF PRESENT @ @@@@ S A0,COPT @C@@@@ TNSC )@@G@@E,U A0,'F' . F OPTION@C@@@@ S A0,FPR SD )@@G@@ . YES @I@@@@ TNE,U A0,'Z' . RESET SE )@@G@@DEFAULT BLOCK SIZE? FTR 3-80 @I@@@@ S R12,XPLEN SF )@@G@@ . DUMPBLEN=1 FTR 3-80 @I@@@@ TNSG )@@G@@E,U A0,'M' . M OPTION? FTR 3-80 SH )@@G@@@I@@@@ S R12,MOP . YES - MSAM ALL KEYS SI )@@G@@ FTR 3-80 @B@@@@ ON TIP>0 . @E@@@@SJ )@@G@@ TNE,U A0,'T' . TIP FILE PRINT @B@@@@ SK )@@G@@ S A0,TFIL . @I@@@@ TNE,U A0,'K' SL )@@G@@ . K OPTION? FTR 7-79 @I@@@@ S SM )@@G@@ A0,KONP . YES - KONS PRINT FTR 7-79 SN )@@G@@@B@@@@ OFF . @B@@@@ J SO )@@G@@ BEGA . @B@@@@BEGB . SP )@@G@@@G@@@@ TZ A2 . TEST IF NEXT 6 CHARACTERSQ )@@G@@S @E@@@@ TNE A2,BLANKS . REQUIRE TO BE DONESR )@@G@@@C@@@@ J BEGC . NO @E@@@@ LDSS )@@G@@SL A1,36 . YES - GET THEM @D@@@@ J ST )@@G@@ BEGA . AND DO THEM @B@@@@BEGC SU )@@G@@ . @B@@@@ GET$P GETTAB . @B@@@@ SV )@@G@@ L,S1 A0,GETLOC . @B@@@@ S A0,PTYPE SW )@@G@@ . @H@@@@ LMJ X10,GETNUM . GET A NUMERISX )@@G@@C SPEC - START RECNO @H@@@@ TNZ KONP . NESY )@@G@@GATIVE OK FOR KONS INDEX FTR 7/80 @I@@@@ JN A1,PARERR SZ )@@G@@ . ERROR IF INVALID OR NEGATIVE FTR 3-80 @B@@@@ S TA )@@G@@ A0,SBLOCK . @D@@@@ LMJ X10,GETNUM TB )@@G@@ . PRINT COUNT @I@@@@ JN A1,PARERR . ERROR TC )@@G@@IF INVALID OR NEGATIVE FTR 3-80 @I@@@@ TNZ A0 TD )@@G@@ . ZERO? FTR 5-80 @I@@@@ L TE )@@G@@ A0,HNO . YES - USE HIGH NUMBER FTR 5-80 TF )@@G@@@B@@@@ S A0,NBLOCKS . @F@@@@ GET$P TG )@@G@@ GETTAB . GET A POSSIBLE KEYWORD @E@@@@ L,U TH )@@G@@ A12,2 . SET UP ERROR CODE @F@@@@ L,U A0,8TI )@@G@@ . LENGTH OF KEYWORD ID @F@@@@ TE,H1 A0,GTJ )@@G@@ETTAB+3 . TEST CORRECT LENGTH @D@@@@ J PARETK )@@G@@RR . NO - ERROR @B@@@@K01 TL )@@G@@ . @E@@@@ DL A0,GETLOC . WHOLE KEYWORD TM )@@G@@@E@@@@ L,U R1,KWTNO . NUMBER OF KEYWORDS@B@@@@TN )@@G@@ L X6,(3,0) . @[@@@@K01A @F@@@@ SETO )@@G@@ A0,KWTAB,*X6 . SEARCH KEYWORD IN TABLE @E@@@@ J TP )@@G@@ PARERR . NO FIND - ERROR @F@@@@ TE TQ )@@G@@ A1,KWTAB+1-3,X6 . SECOND WORD THE SAME? @E@@@@ J TR )@@G@@ K01A . NO - TRY AGAIN @F@@@@ AN,U X6,3TS )@@G@@ . POINT AT TABLE ITEM @E@@@@ L,S1 A0,KTT )@@G@@WTAB+2,X6 . TYPE OF KEYWORD @F@@@@ TE,U A0,1 TU )@@G@@ . ONE-WORD ENTRY TEST @C@@@@ J K02 TV )@@G@@ . NO @E@@@@ LMJ X10,GETNUM . GET A TW )@@G@@NUMERIC @I@@@@ L,U A12,8 . TX )@@G@@ FTR 3-80 @I@@@@ JN A1,PARERR TY )@@G@@ . INVALID NUMERIC FTR 3-80 @D@@@@ S TZ )@@G@@ A0,*KWTAB+2,X6 . SET IN TABLE@G@@@@ GET$P GETTAB UA )@@G@@ . AND GET NEXT POSSIBLE FIELD @B@@@@ J K01 UB )@@G@@ . @B@@@@K02 . @G@@@@UC )@@G@@ L,H2 A2,KWTAB+2,X6 . ADDRESS OF KEYWORD ITEM TABLE UD )@@G@@@F@@@@ A,U A2,1 . POINT TO FIRST ENTRY UE )@@G@@@B@@@@ LXI,U A2,1 . @D@@@@ L,U UF )@@G@@ A4,0 . ACCUMULATOR @B@@@@ L,U A0,K04 UG )@@G@@ . @F@@@@ S,H1 A0,GETTAB+5 . SET END CONDUH )@@G@@ITION RETURN@B@@@@K03 . @D@@@@ UI )@@G@@ GET$P GETTAB . GET A WORD @E@@@@ L,H1 UJ )@@G@@ A0,GETTAB+3 . AND TEST IF THIS @E@@@@ TE,U A0,6UK )@@G@@ . IS A WORD OF DATA @E@@@@ J K05 UL )@@G@@ . NO - OR A KEYWORD @[@@@@K03B @H@@@@ L A0,GUM )@@G@@ETLOC . FD WORD @B@@@@K03A UN )@@G@@ . @E@@@@ L,U A12,3 UO )@@G@@ . SET UP ERROR CODE @F@@@@ TG,S1 A4,KWTAB+2,X6 . UP )@@G@@TEST IF TABLE EXCEEDED @E@@@@ J PARERR . UQ )@@G@@YES - FATALITY @E@@@@ A,U A4,1 . KEYWORUR )@@G@@D COUNT @F@@@@ S A0,,*A2 . SET THIS WORUS )@@G@@D OF DATA @B@@@@ J K03 . @B@@@@K04 UT )@@G@@ . @F@@@@ L,U X10,ENDPARUU )@@G@@ . SET UP EXIT ADDRESS @D@@@@ J K06 UV )@@G@@ . AND CLEAR UP@B@@@@K05 . UW )@@G@@@G@@@@ TE,U A0,12 . 12 CHARS - ASSUME OCTAL UX )@@G@@SPEC @C@@@@ J K05A . NO @E@@@@ UY )@@G@@ L,U A12,4 . SET UP ERROR CODE @B@@@@ L,UZ )@@G@@U A0,GETLOC . @B@@@@ L,U A1,12 VA )@@G@@ . @E@@@@ LMJ X11,OCTRAN . CONVERT TO BINARY VB )@@G@@@E@@@@ JN A1,PARERR . BAD CONVERSION @B@@@@VC )@@G@@ J K03A . @B@@@@K05A VD )@@G@@ . @F@@@@ TE,U A0,8 . TEST IVE )@@G@@F CORRECT LENGTH @C@@@@ J K07 . NO VF )@@G@@@E@@@@ L,U X10,K01 . GET RETURN ADDRESS@B@@@@VG )@@G@@K06 . @F@@@@ S A4,*VH )@@G@@KWTAB+2,X6 . STORE WORD COUNT OF DATA@F@@@@ LMJ X11,VI )@@G@@CLREST . CLEAR REST OF TABLE @F@@@@ L,U A0,EVJ )@@G@@NDPAR . RESET END CONDITION @B@@@@ S,H1 A0,GVK )@@G@@ETTAB+5 . @E@@@@ J 0,X10 . RETURNVL )@@G@@ TO CALLER @[@@@@K07 @E@@@@ L,U A12,5 . VM )@@G@@SET UP ERROR CODE @E@@@@ TE,U A0,1 . SINGLEVN )@@G@@ CHARACTER? @C@@@@ J K08 . NO @F@@@@VO )@@G@@ TNZ,S2 KWTAB+2,X6 . YES - IS IT ALLOWED? @C@@@@VP )@@G@@ J PARERR . NO @E@@@@ J VQ )@@G@@ K03B . YES - ALLOW IT @[@@@@K08 @E@@@@ TEVR )@@G@@,U A0,4 . 4 CHARS? - ASCII @D@@@@ J VS )@@G@@ PARERR . NO - ERROR @E@@@@ L,U R1,4 VT )@@G@@ . 4 CHARS TO WORD @D@@@@ L A1,GETLOC VU )@@G@@ . GET FD WORD @[@@@@K08A @D@@@@ JGD R1,K08B VV )@@G@@ . DO 4 CHARS @G@@@@ S A5,A0 . DONE -VW )@@G@@ GOT WORD IN BINARY @B@@@@ J K03A . VX )@@G@@@[@@@@K08B @^@@@@ SZ A0 @D@@@@ LDSL A0,6VY )@@G@@ . GET FD CHAR @H@@@@ L,H1 A0,PRCORETAB,A0 VZ )@@G@@ . AND ASCII REPRESENTATION (IN OCTAL) @^@@@@ LSSL A5,9WA )@@G@@@E@@@@ A A5,A0 . INCLUDE THIS CHAR @^@@@@WB )@@G@@ J K08A@B@@@@CLREST . WC )@@G@@@E@@@@ L,U A0,MAXK . TABLE MAX LIMIT @E@@@@WD )@@G@@ AN A0,A4 . GET REMAINDER @B@@@@CLR1 WE )@@G@@ . @E@@@@ JGD A0,$+2 WF )@@G@@ . DO REST OF TABLE @D@@@@ J 0,X11 WG )@@G@@ . ALL DONE @E@@@@ SZ 0,*A2 . CLEAR WH )@@G@@THIS ITEM @B@@@@ J CLR1 . @B@@@@ENDPARWI )@@G@@ . @I@@@@ L A1,SOPTS WJ )@@G@@ . RUN OPTIONS FTR 3-79 @I@@@@ TOWK )@@G@@P,U A1,1*/('Z'-'P') . P OPTION ON? FTR 3-79 WL )@@G@@@I@@@@ J ENDPAR1 . NO WM )@@G@@ FTR 3-79 @I@@@@ E$DIT EDPK . YES - WN )@@G@@PRINT PARAMETER FTR 3-79 @I@@@@ E$MSG TEXT100 WO )@@G@@ . FTR 3-79 @I@@@@ E$WP )@@G@@MSG READLOC . FTR 3-79 WQ )@@G@@@I@@@@ P$RINT (PF 4,22,PLINE) . WR )@@G@@ FTR 4-79 @I@@@@ENDPAR1 . WS )@@G@@ FTR 3-79 @B@@@@ L A0,PTYPE WT )@@G@@ . @F@@@@ TZ FPR . DEFAULT TO N FWU )@@G@@OR F OPTION @B@@@@ L,U A0,'N' . @D@@@@ WV )@@G@@ S,H1 A0,LMJPR . PRINT TYPE @F@@@@ L WW )@@G@@ A1,WTLINE . SPECIFIED WORDS TO LINE @I@@@@ L WX )@@G@@ A2,LMJPR . (SEE PRCORE FOR DEFAULTS) FTR 4-79 @I@@@@WY )@@G@@ LSSL A2,12 . WZ )@@G@@FTR 4-79 @I@@@@ DSL A1,12 . XA )@@G@@ FTR 4-79 @I@@@@ S A2,LMJPR XB )@@G@@ . FTR 4-79 @I@@@@ L XC )@@G@@ A1,WTLINE . FTR 4-79 @I@@@@XD )@@G@@ L A2,BLMJPR . XE )@@G@@FTR 4-79 @I@@@@ LSSL A2,12 . XF )@@G@@ FTR 4-79 @I@@@@ DSL A1,12 XG )@@G@@ . FTR 4-79 @I@@@@ S XH )@@G@@ A2,BLMJPR . FTR 4-79 @G@@@@XI )@@G@@ L A0,LABPRL . USER LABEL PRINT PARAMETER XJ )@@G@@@^@@@@ TZ A0 @B@@@@ TG,U A0,28 XK )@@G@@ . @B@@@@ L,U A0,27 . @B@@@@ LXXL )@@G@@I,S1 A0,LABPRT+1 . @ @@@@ TNZ LABPRT @ @@@@XM )@@G@@ LXI,U A0,'B' @B@@@@ S A0,BLMJPR XN )@@G@@ . @G@@@@ L,S3 A0,LMJPR . RETRIEVE CURRENT PRIXO )@@G@@NT OPTION @E@@@@ L,U A1,2 . BIAS FOR COUXP )@@G@@NT @F@@@@ TG,U A0,'E' . IS IT A BYTE PRINTXQ )@@G@@? @B@@@@ TG,U A0,'H' . @C@@@@ J XR )@@G@@ PCHK1 . NO @G@@@@ L,U A1,9 XS )@@G@@ . YES - GET BIAS FOR BYTE COUNT @B@@@@ TNE,U A0,'XT )@@G@@F' . @B@@@@ L,U A1,8 . @B@@@@XU )@@G@@PCHK1 . @B@@@@ S A1,PXV )@@G@@RBIAS . @D@@@@ L A0,SOPTS . @XQT OXW )@@G@@PTIONS@F@@@@ TEP A0,(1*/('Z'-'N')) . SKIP PRTCN$ IF N OXX )@@G@@PTION @B@@@@ J ENDPR0 . @D@@@@ E$XY )@@G@@DIT EDPK . SET UP PRTCN$ @E@@@@ E$MSG SET XZ )@@G@@ . HEADING AND MARGIN @F@@@@ E$MSG GETLC1 YA )@@G@@ . ADD FILENAME TO HEADING @^@@@@ E$CHAR '.' @#@@@@YB )@@G@@ E$COLN @^@@@@ A,U A0,6@E@@@@ DSL YC )@@G@@ A0,36 . GET LENGTH IN WORDS @^@@@@ DI,U A0,6YD )@@G@@@E@@@@ LXI,U A0,,A0 . SET UP A0 FOR PRTCN$@ @@@@YE )@@G@@ LXM,U A0,PLINE @ @@@@ ER PRTCN$ @B@@@@YF )@@G@@ENDPR0 . @B@@@@ ON TIP>YG )@@G@@0 . @G@@@@ TZ TFIL . ENTER YH )@@G@@TIP CODE FOR TIP FILE @B@@@@ J TIPFILE . YI )@@G@@@I@@@@ TZ KONP . OR KONS PRINT? YJ )@@G@@ FTR 7-79 @I@@@@ J KONSPR . YES - YK )@@G@@KONS FTR 7-79 @B@@@@ OFF YL )@@G@@ . @B@@@@ L,U A0,ASFLE . @E@@@@ YM )@@G@@ ER CSF$ . USE FILENAME @B@@@@ENDPR1 YN )@@G@@ . @I@@@@ L A0,(0377777,FACPYO )@@G@@AK) . ALL FITEM$ INFORMATION FTR 3-80 @I@@@@ ER YP )@@G@@ FITEM$ . THAT WE CAN GET FTR 3-80 @I@@@@YQ )@@G@@ SNAP 'FITEM$',13,FACPAK . YR )@@G@@FTR 3-80 @I@@@@ L A0,(INFOC,INFO) . READ INFO$ IYS )@@G@@NFO FTR 3-80 @I@@@@ ER INFO$ YT )@@G@@ . FTR 3-80 @I@@@@ SNAP YU )@@G@@ 'INFO$',INFOLEN,INFO . FTR 3-80 @B@@@@YV )@@G@@ E$DIT EDPK . @F@@@@ L A1,FYW )@@G@@SPECL . INSERT FILENAME AS GIVEN@ @@@@ L,U A0,GYX )@@G@@ETLC1 @#@@@@ E$COPY @F@@@@ TZ,S1 FACPAK+6 YY )@@G@@ . TEST IF FILE ASSIGNED @D@@@@ J MAIN1 YZ )@@G@@ . YES - OK @F@@@@ L,U A0,ASGTOC . ATTEMPZA )@@G@@T ASSIGN OF FILE @B@@@@ ER CSF$ . @G@@@@ZB )@@G@@ S R12,IASG . SET 'I ASSIGNED THE FILE' FLAGZC )@@G@@@F@@@@ JP A0,ENDPR1 . GET FACIL$ PKT IF OK ZD )@@G@@@D@@@@ S A0,MAXREC . STATUS CODE @ @@@@ ZE )@@G@@ E$MSG TEXT1 @D@@@@ E$OCTF 12,MAXREC . GIZF )@@G@@VE TO USER @B@@@@ERROR . @B@@@@ ZG )@@G@@ P$RINT (PF 2,22,PLINE) . @B@@@@ J BEGIN ZH )@@G@@ . @B@@@@MAIN1 . @E@@@@ ZI )@@G@@ L,S1 A0,FACPAK+6 . EQUIPMENT TYPE @I@@@@ TLZJ )@@G@@E,U A0,017 . DETECT TAPE DEVICE TYPE FTR 3-80 ZK )@@G@@@I@@@@ S R12,TAPETAG . AND SET FLAG ZL )@@G@@ FTR 3-80 @I@@@@ SZ LABPAK+7 . CLEAR ZM )@@G@@LABEL TYPE FTR 3-80 @I@@@@ TNZ TAPETAG ZN )@@G@@ . TAPE? FTR 3-80 @I@@@@ J ZO )@@G@@ MAIN1A . NO FTR 3-80 ZP )@@G@@@I@@@@ L A0,SOPTS . IF Y OPTION IS ON ... ZQ )@@G@@ FTR 3-80 @I@@@@ TEP A0,(1*/('Z'-'Y')) . ZR )@@G@@ FTR 3-80 @I@@@@ J MAIN1A ZS )@@G@@ . DONT ATTEMPT READ OF LABELS FTR 3-80 @I@@@@ L ZT )@@G@@ A0,(023,LABPAK) . YES - ATTEMPT READ OF LABELS FTR 3-80 ZU )@@G@@@I@@@@ ER TLBL$ . ZV )@@G@@ FTR 3-80 @I@@@@ S A0,LABRET . SAVE RZW )@@G@@ETURN FTR 3-80 @I@@@@ SNAP 'TLBL$',02ZX )@@G@@4,LABRET . FTR 3-80 @I@@@@ TNZY )@@G@@ LABRET . LABELS ??? FTR 3-80 ZZ )@@G@@@I@@@@ J MAIN1A . YES -8BIT AA )@@G@@ FTR 3-80 @I@@@@ L,S3 A0,LABRET . SOMETHAB )@@G@@ING AMISS - LOOK AT STATFTR 3-80 @I@@@@ TNE,U A0,012 AC )@@G@@ . FTR 3-80 @I@@@@ S AD )@@G@@ R12,LAB9 . LABELLED BUT 9-BIT FTR 3-80 AE )@@G@@@I@@@@ TNE,U A0,016 . AF )@@G@@ FTR 3-80 @I@@@@ S R12,LABNOT . UNLABEAG )@@G@@LLED FTR 3-80 @I@@@@MAIN1A AH )@@G@@ . FTR 3-80 @I@@@@ E$AI )@@G@@MSG TEXT38 . FTR 3-80 AJ )@@G@@@D@@@@ E$FD2 FACPAK+4 . QUALIFIER @B@@@@ AK )@@G@@ E$CHAR '*' . @D@@@@ E$FD2 FACPAK+2 AL )@@G@@ . FILENAME @B@@@@ E$CHAR '(' . AM )@@G@@@I@@@@ L A0,FACPAK+6 . AN )@@G@@ FTR 4-79 @I@@@@ DSL A0,12 . AO )@@G@@ FTR 4-79 @I@@@@ SZ A0 AP )@@G@@ . T3 IS CYCLE FTR 4-79 @I@@@@ LDAQ )@@G@@SL A0,12 . FTR 4-79 AR )@@G@@@I@@@@ E$DECV . AS )@@G@@ FTR 4-79 @B@@@@ E$CHAR ')' . @I@@@@AT )@@G@@ E$MSG TEXT5A . AU )@@G@@FTR 3-80 @I@@@@ L A5,FACPAK+7 . ASSIGN OPTIOAV )@@G@@NS FTR 3-80 @I@@@@ L,U X10,'Z'-'A' AW )@@G@@ . LOOP COUNT FTR 3-80 @I@@@@MAIN1B AX )@@G@@ . FTR 3-80 @I@@@@AY )@@G@@ JNB A5,MAIN1C . THIS OPTION SET? AZ )@@G@@FTR 3-80 @I@@@@ L,U A0,'A',X10 . YES - ADD INBA )@@G@@DEX TO GET CHAR FTR 3-80 @I@@@@ E$CHAR BB )@@G@@ . INSERT FTR 3-80 @I@@@@MAIN1C BC )@@G@@ . FTR 3-80 @I@@@@BD )@@G@@ SSL A5,1 . GET NEXT BIT BE )@@G@@FTR 3-80 @I@@@@ JZ A5,$+2 . DONE IF ZEROBF )@@G@@ FTR 3-80 @I@@@@ JGD X10,MAIN1B BG )@@G@@ . CONTINUE FTR 3-80 @I@@@@ E$SKIP BH )@@G@@ 4 . FTR 3-80 @I@@@@BI )@@G@@ TNZ PRCOREDEMAND . IF DEMAND - BREAK PRINT NOW BJ )@@G@@FTR 3-80 @I@@@@ J MAIN1D . BK )@@G@@ FTR 3-80 @I@@@@ EDEX 4 BL )@@G@@ . FTR 3-80 @I@@@@MAIN1D BM )@@G@@ . FTR 3-80 @I@@@@BN )@@G@@ E$MSG TEXT5 . BO )@@G@@FTR 3-80 @I@@@@ E$FD1 INFOEQ . EQUIP TYPE BP )@@G@@ FTR 3-80 @B@@@@ TNZ TAPETAG BQ )@@G@@ . @I@@@@ J MAIN1E . NOT TAPE BR )@@G@@ FTR 3-80 @I@@@@ E$MSGR . BS )@@G@@ FTR 3-80 @I@@@@ L,S5 A1,IBT )@@G@@NFOIN . LOOK AT DEVICE BITS FTR 3-80 @I@@@@ BU )@@G@@ L,U A0,'9' . FTR 3-BV )@@G@@80 @I@@@@ TOP,U A1,1 . BIT 6 SET = 9-TRK BW )@@G@@ FTR 3-80 @I@@@@ L,U A0,'7' . BX )@@G@@ FTR 3-80 @I@@@@ AND,U A0,2BY )@@G@@ . GET 7-TRK FLAG FTR 3-80 @I@@@@ BZ )@@G@@ S A1,TRK7 . NONZERO IF 7-TRK FTR 3-CA )@@G@@80 @I@@@@ E$CHAR . CB )@@G@@ FTR 3-80 @I@@@@ E$MSGR . CC )@@G@@ FTR 3-80 @I@@@@ SZ A0 CD )@@G@@ . FTR 3-80 @I@@@@ CE )@@G@@ TZ LABNOT . FTR 3-CF )@@G@@80 @I@@@@ L A0,('UN') . CG )@@G@@ FTR 3-80 @I@@@@ TZ LAB9 . CH )@@G@@ FTR 3-80 @I@@@@ L A0,(CI )@@G@@'9BIT-') . FTR 3-80 @I@@@@ CJ )@@G@@ E$FD1 . FTR 3-CK )@@G@@80 @I@@@@ E$MSGR . CL )@@G@@ FTR 3-80 @I@@@@ E$FD1 FACPAK+11 . CM )@@G@@TSN FTR 3-80 @I@@@@ E$MSGR CN )@@G@@ . FTR 3-80 @I@@@@ CO )@@G@@ L,S6 A1,INFOMO . FTR 3-CP )@@G@@80 @I@@@@ L A0,('EVEN') . CQ )@@G@@ FTR 3-80 @I@@@@ TOP,U A1,1*/4 . CR )@@G@@BIT 4 SET MEANS EVEN PARITY FTR 3-80 @I@@@@ L A0,(CS )@@G@@'ODD') . FTR 3-80 @I@@@@ CT )@@G@@ E$FD1 . FTR 3-CU )@@G@@80 @I@@@@ E$MSGR . CV )@@G@@ FTR 3-80 @I@@@@ L,S5 A1,INFOMO . CW )@@G@@DENSITY FTR 3-80 @I@@@@ L A0,DCX )@@G@@ENS9-1,A1 . FTR 3-80 @I@@@@ CY )@@G@@ TZ TRK7 . FTR 3-CZ )@@G@@80 @I@@@@ L A0,DENS7-1,A1 . DA )@@G@@ FTR 3-80 @I@@@@ E$FD1 . DB )@@G@@ FTR 3-80 @I@@@@ E$MSGR DC )@@G@@ . FTR 3-80 @I@@@@ DD )@@G@@ J MAIN1F . FTR 3-DE )@@G@@80 @I@@@@MAIN1E . DF )@@G@@ FTR 3-80 @I@@@@ L,S5 A1,INFOIN . DG )@@G@@LOOK AT DEVICE BITS FTR 3-80 @I@@@@ L,U A0,TDH )@@G@@EXT3 . SET IF WAD ELSE FASTRAND FTR 3-80 @I@@@@ DI )@@G@@ TEP,U A1,1 . FTR 3-DJ )@@G@@80 @I@@@@ L,U A0,TEXT4 . DK )@@G@@ FTR 3-80 @I@@@@ E$MSG . DL )@@G@@ FTR 3-80 @I@@@@MAIN1F DM )@@G@@ . FTR 3-80 @I@@@@ DN )@@G@@ L A5,SOPTS . FTR 4-DO )@@G@@79 @I@@@@ L A0,(PF -1,22,PLINE) . FOR N OPTION THROWDP )@@G@@ PAGE FTR 4-79 @I@@@@ TOP A5,(1*/('Z'-'N')) . DQ )@@G@@ FTR 4-79 @I@@@@ L A0,(DR )@@G@@PF 1,22,PLINE) . ELSE PRINT AFTER 1 FTR 4-79 @I@@@@ DS )@@G@@ ER PRINT$ . FTR 4-DT )@@G@@79 @F@@@@ TZ XPR . TEST IF X TYPE DUMDU )@@G@@P @D@@@@ J DODUMP . YES - DO SO @F@@@@DV )@@G@@ I$OW IOPAK . DO FIRST READ OF FILE @B@@@@DW )@@G@@ L,S1 A0,IOPAK+3 . @B@@@@ JZ A0,MDX )@@G@@AIN2 . @B@@@@ TNZ TAPETAG . @B@@@@DY )@@G@@ J EMP0 . @B@@@@ TNE,U A0,0DZ )@@G@@4 . @B@@@@ J MAIN2 . @B@@@@EA )@@G@@EMP0 . @F@@@@ P$RINT (PF EB )@@G@@2,4,TEXT37) . FILE NOT WRITTEN TO @D@@@@ J BEGIEC )@@G@@N . TERMINATE @B@@@@MAIN2 ED )@@G@@ . @B@@@@ L,U A0,'HDR' . @I@@@@ ONEE )@@G@@ COBFD=0 . FTR 5-80 EF )@@G@@@I@@@@ TZ TAPETAG . TAPE? CFH TAPES ONLY ARE AEG )@@G@@LLOWEDFTR 5-80 @I@@@@ OFF COBFD=0 . EH )@@G@@ FTR 5-80 @E@@@@ TE,H1 A0,IOAREA EI )@@G@@ . TEST CFH FILE @C@@@@ J NOTCFH EJ )@@G@@ . NO @I@@@@ SZ DBLOK . CLEAR BLOCK EK )@@G@@DUMP INDIC FTR 3-80 @E@@@@ L,H2 A0,IOAREA+1 EL )@@G@@ . SET UP MAX REC @B@@@@ A,U A0,1 . EM )@@G@@@E@@@@ S A0,MAXREC . FOR CONTROL LATER @E@@@@EN )@@G@@ L,H1 A0,IOAREA+1 . AND MAX BLOCK @B@@@@ EO )@@G@@ A,U A0,1 . @D@@@@ S A0,MAXBLK EP )@@G@@ . FOR LATER @I@@@@ ON COBFD>0 . EQ )@@G@@ONLY IF COBOL FD MS REQUIRED FTR 2-80 @G@@@@ TNZ TAPEER )@@G@@TAG . SKIP IF MASS STORAGE FILE @B@@@@ J ES )@@G@@ FAST . @I@@@@ OFF COBFD>0 . ET )@@G@@ONLY IF COBOL FD MS REQUIRED FTR 2-80 @F@@@@ SZ,H2 IOPAEU )@@G@@K+5 . CLEAR SECTOR ADDRESS @B@@@@ L,H1 A0,IEV )@@G@@OAREA+1 . @B@@@@ S,H1 A0,IOPAK+4 . @F@@@@EW )@@G@@ L,U X9,IOAREA . ADDRESS OF LABEL BLOCK @E@@@@EX )@@G@@ LMJ X10,PRBLKH . PRINT HDR LABEL @B@@@@ EY )@@G@@ I$OW IOPAK . @D@@@@ L,S1 A0,IOPAK+3EZ )@@G@@ . EOF SATUS? @B@@@@ TNE,U A0,1 . FA )@@G@@@D@@@@ J MAIN5 . YES - OK @B@@@@EREOF FB )@@G@@ . @D@@@@ P$RINT (PF 2,4,TEFC )@@G@@XT6) . EOF ERROR @B@@@@ J BEGIN . FD )@@G@@@G@@@@MAIN5 . SKIP TO EOF BLOCK IF P-OFE )@@G@@PT ON @B@@@@ TNZ POPT . @B@@@@ J FF )@@G@@ OFFT1 . @B@@@@ L,U A0,050 FG )@@G@@ . @B@@@@ S,S2 A0,IOPAK+3 . @B@@@@MAIN6 FH )@@G@@ . @B@@@@ I$OW IOPAK FI )@@G@@ . @D@@@@ L,S1 A0,IOPAK+3 . IO STATUS @D@@@@FJ )@@G@@ JZ A0,MAIN6 . =0 - GO BACK@E@@@@ TNFK )@@G@@E,U A0,4 . =4 (AFC) - GO BACK@B@@@@ J FL )@@G@@ MAIN6 . @G@@@@ TE,U A0,1 . FM )@@G@@=1 (EOF) - FOUND END OF DATA @F@@@@ J EREOF FN )@@G@@ . ANYTHING ELSE IS ERROR @B@@@@ L,U A0,020 FO )@@G@@ . @B@@@@ S,S2 A0,IOPAK+3 . @B@@@@ J FP )@@G@@ TAPEEOF . @I@@@@ ON COBFD>0 FQ )@@G@@ . ONLY IF COBOL FD MS REQUIRED FTR 2-80 @B@@@@FAST FR )@@G@@ . @B@@@@ L,U A0,'EOF' . FS )@@G@@@B@@@@ TNE,H1 A0,IOAREA+28 . @B@@@@ J FT )@@G@@ FAST0 . @F@@@@ P$RINT (PF 2,3,TEXT9) . FU )@@G@@PRINT 'NO CFH-EOF BLOCK'@E@@@@ J BEGIN . FV )@@G@@AND TERMINATE @B@@@@FAST0 . @F@@@@FW )@@G@@ TNZ,S5 IOAREA . SKIP IF SERIAL FILE @B@@@@FX )@@G@@ J FAST0A . @B@@@@ L,XU A1,-FY )@@G@@1 . @F@@@@ L A0,IOAREA+34 . EOF SEFZ )@@G@@CTOR ADDRESS FIELD@F@@@@ TNE,U A0,2 . IF = 2GA )@@G@@ , ASSUME M-28 @B@@@@ L,U A1,1 . @F@@@@GB )@@G@@ TNE,U A0,4 . IF = 4 , ASSUME M-112 @B@@@@GC )@@G@@ L,U A1,0 . @D@@@@ TN A1 GD )@@G@@ . ELSE DEFAULT@B@@@@ S A1,MSTYPE GE )@@G@@ . @B@@@@ J FAST1 . @B@@@@FAST0A GF )@@G@@ . @B@@@@ TZ POPT GG )@@G@@ . @B@@@@ J FAST2 . @B@@@@ L GH )@@G@@ A0,IOAREA+34 . @B@@@@ S,H2 A0,IOPK1+5 GI )@@G@@ . @I@@@@ L A0,(1,IOARE1) . READ 1 WORD GJ )@@G@@ FTR 3-80 @I@@@@ S A0,IOPK1+4 . GK )@@G@@ FTR 3-80 @B@@@@ I$OW IOPKGL )@@G@@1 . @B@@@@ L A0,('EOF@@@') . @B@@@@GM )@@G@@ TE A0,IOARE1 . @D@@@@ S R12,GN )@@G@@EOFTAG . NO EOF BLOCK@B@@@@FAST1 GO )@@G@@ . @D@@@@ E$DIT EDPK . OPEN EDIT$ @B@@@@GP )@@G@@ TNZ MSTYPE . @B@@@@ J M112GQ )@@G@@ . @B@@@@M28 . @B@@@@GR )@@G@@ E$COPY 28,TEXT7 . @B@@@@ J FASTGS )@@G@@2 . @B@@@@M112 . @B@@@@GT )@@G@@ E$COPY 27,TEXT8 . @B@@@@FAST2 GU )@@G@@ . @B@@@@ E$SKIP 4 . @B@@@@GV )@@G@@ L,U A1,12 . @B@@@@ L,U A0,TGW )@@G@@EXT39 . @E@@@@ TNZ,S5 IOAREA . TEST SGX )@@G@@ERIAL FILE @C@@@@ A,U A0,2 . YES @B@@@@GY )@@G@@ E$COPY . @B@@@@ E$SKIP 4 GZ )@@G@@ . @D@@@@ TZ,S5 IOAREA . TEST RHA )@@G@@ANDOM @G@@@@ J READ . YES - SKIP EOF@@@ HB )@@G@@PROCESSING @B@@@@ L A0,IOAREA+34 . @B@@@@ HC )@@G@@ L,U A1,2 . @B@@@@ TNZ MSTYPE HD )@@G@@ . @B@@@@ L,U A1,4 . @B@@@@ HE )@@G@@ TNE A1,A0 . @F@@@@ S R12,EMPT HF )@@G@@ . SET EMPTY FILE TAG @B@@@@ L A0,IOPAK+5HG )@@G@@ . @B@@@@ A A0,A1 . @B@@@@ HH )@@G@@ S A0,IOPAK+5 . @B@@@@ L,H1 A0,IOAREA+HI )@@G@@1 . @B@@@@ DSL A0,36 . @B@@@@ HJ )@@G@@ DI,U A0,28 . @B@@@@ TZ A1 HK )@@G@@ . @B@@@@ A,U A0,1 . @B@@@@ HL )@@G@@ S A0,NSECS . @B@@@@ MSI,U A0,28 HM )@@G@@ . @B@@@@ S,H1 A0,IOPAK+4 . @B@@@@READ HN )@@G@@ . @B@@@@ P$RINT (PF 2,22,PHO )@@G@@LINE) . @B@@@@ L A9,IOAREA+30 . @F@@@@ HP )@@G@@ L A12,IOAREA+31 . CFH COUNT - RECORDS @G@@@@ HQ )@@G@@ L,U X9,IOAREA . ADDRESS OF CFH LABEL BLOCK @G@@@@HR )@@G@@ L,U X10,EPRBLK . END OF PRINT HEADER ROUTINE HS )@@G@@@I@@@@ OFF COBFD>0 . ONLY IF COBOL FD MS REQUHT )@@G@@IRED FTR 2-80 @[@@@@. @G@@@@. PRINT INFORMATION FROM A CFH LABELHU )@@G@@ BLOCK - X9 = START ADDRESS OF IT @[@@@@. @B@@@@PRBLKH HV )@@G@@ . @G@@@@ TZ NOLABS . HW )@@G@@SKIP IF NO LABEL PRINT IS ON @B@@@@ J 0,X10 HX )@@G@@ . @D@@@@ P$RINT (PF 2,1,BLANKS) . SKIP 2 LINES@B@@@@HY )@@G@@ E$DIT EDPK . @B@@@@ E$FD1 ('CFHZ )@@G@@H') . @B@@@@ E$SKIP 1 . @G@@@@IA )@@G@@ E$COPY 3,,X9 . TYPE OF BLOCK - HDR EOR EOF IB )@@G@@@B@@@@ E$SKIP 1 . @B@@@@ E$FD1 IC )@@G@@ ('BLOCK:') . @B@@@@ E$SKIP 3 . ID )@@G@@@B@@@@ E$COPY 16,TEXT10 . @E@@@@ E$DECV IE )@@G@@ 1,X9,H1 . MAX BLOCK SIZE @B@@@@ E$COPY 6,TEIF )@@G@@XTS+3 . @B@@@@ E$SKIP 8 . @B@@@@IG )@@G@@ E$COPY 18,TEXT11 . @E@@@@ E$DECV 1,X9IH )@@G@@,H2 . MAX RECORD SIZE @B@@@@ E$COPY 6,TEXTS+3 II )@@G@@ . @G@@@@ EDEX . PRINT LINE AIJ )@@G@@ND RE-ENTER EDIT$ @E@@@@ L,S4 A0,,X9 . LABEL IK )@@G@@RECORDS TYPE@E@@@@ TNE,U A0,'S' . TEST IF STANIL )@@G@@DARD @C@@@@ J STAND . YES @D@@@@ IM )@@G@@ TE,U A0,'U' . TEST IF USER@C@@@@ J IN )@@G@@ NOTSU . NO @B@@@@ E$COPY 12,TEXT18 IO )@@G@@ . @B@@@@ EDEX . @H@@@@ E$IP )@@G@@COPY 14*6,14,X9 . PRINT USER LABEL RECORD OF 14 WORDS @B@@@@IQ )@@G@@ J USER . @B@@@@NOTSU IR )@@G@@ . @E@@@@ TE,U A0,'O' . TEST IIS )@@G@@F OMITTED @B@@@@ J USER . @B@@@@ IT )@@G@@ E$COPY 14,TEXT30 . @B@@@@ J USER IU )@@G@@ . @B@@@@STAND . @B@@@@ IV )@@G@@ E$COPY 16,TEXT19 . @B@@@@ E$COPY 13,TEXT15 IW )@@G@@ . @E@@@@ E$COPY 12,14,X9 . PRINT VALUE IX )@@G@@OF ID @B@@@@USER . @E@@@@ EDIY )@@G@@EX . PRINT THIS LINE @D@@@@ TZ IZ )@@G@@ TAPETAG . IF NOT TAPE @F@@@@ TNZ,H2 5,X9 JA )@@G@@ . OR TAPE AND NO REEL INFO@E@@@@ J NORLS JB )@@G@@ . PRINT NO REEL INFO@B@@@@ E$COPY 13,TEXT31 JC )@@G@@ . @D@@@@ E$DECV 5,X9,H2 . REEL NUMBER @B@@@@JD )@@G@@ E$SKIP 3 . @B@@@@NORLS JE )@@G@@ . @B@@@@ E$COPY 15,TEXT21 . @I@@@@JF )@@G@@ TNZ 4,X9 . CREATION DATE ZERO? JG )@@G@@FTR 3-80 @I@@@@ J NORLS1 . YES - DONT PJH )@@G@@RINT FTR 3-80 @C@@@@ E$DAY2 4,X9 JI )@@G@@ . DATE @B@@@@ E$SKIP 1 . @B@@@@ JJ )@@G@@ E$COPY 3,TEXT60 . @F@@@@ E$TIME 4,X9 JK )@@G@@ . AND TIME OF CREATION @I@@@@NORLS1 JL )@@G@@ . FTR 3-80 @E@@@@ L,JM )@@G@@U A0,'HDR' . HEADER BLOCK ID @G@@@@ TNE,H1 JN )@@G@@ A0,,X9 . TEST IF THIS IS HDR BLOCK @G@@@@ J JO )@@G@@ HDRSK . YES - IGNORE BLOCK COUNT PRINT@B@@@@ JP )@@G@@ E$SKIP 3 . @B@@@@ E$COPY 19,TEXT16 JQ )@@G@@ . @E@@@@ E$DECV 3,X9 . NUMBER OF REJR )@@G@@CORDS @B@@@@ E$SKIP 6 . @B@@@@ E$JS )@@G@@COPY 18,TEXT17 . @E@@@@ E$DECV 2,X9 JT )@@G@@ . NUMBER OF BLOCKS @D@@@@ TZ TAPETAG . JU )@@G@@TEST IF TAPE@G@@@@ J HDRSK . YES - IGNOREJV )@@G@@ EOF ADDRESS PRINT@B@@@@ E$SKIP 6 . @B@@@@JW )@@G@@ E$COPY 20,TEXT73 . @F@@@@ E$DECV 6,X9JX )@@G@@ . FASTRAND EOF ADDRESS @F@@@@ TZ 2,X9JY )@@G@@ . IF ZERO BLOCK COUNT @F@@@@ TNZ 3,X9JZ )@@G@@ . OR ZERO RECORD COUNT @F@@@@ S R12,KA )@@G@@EMPT . SET FILE EMPTY TAG @B@@@@HDRSK KB )@@G@@ . @B@@@@ P$RINT (PF 2,22,PLINE) . @D@@@@KC )@@G@@ P$RINT (PF 2,1,BLANKS) . SKIP 2 LINES@G@@@@ J KD )@@G@@ 0,X10 . RETURN FROM PRINTING BLOCK @B@@@@EPRBLKKE )@@G@@ . @I@@@@ ON COBFD>0 KF )@@G@@ . ONLY IF COBOL FD MS REQUIRED FTR 2-80 @F@@@@ L,KG )@@G@@U X9,28+IOAREA . PRINT EOF LABEL BLOCK @F@@@@ LMKH )@@G@@J X10,PRBLKH . PRINT THIS LABEL BLOCK @B@@@@ L KI )@@G@@ A0,IOAREA+4 . @B@@@@ TNE A0,IOAREA+32 KJ )@@G@@ . @B@@@@ J OFFT . @D@@@@ P$KK )@@G@@RINT (PF 2,6,TEXT22) . BAD FILE @E@@@@ TNZ DPR KL )@@G@@ . TEST D OPTION @D@@@@ J PRERRO KM )@@G@@ . NO - ERROR @B@@@@OFFT . KN )@@G@@@B@@@@ TNZ EOFTAG . @B@@@@ J KO )@@G@@ OFFT2 . @B@@@@ P$RINT (PF 2,5,TEXT29) . KP )@@G@@@B@@@@ J BEGIN . @B@@@@OFFT2 KQ )@@G@@ . @E@@@@ TZ,S5 IOAREA . KR )@@G@@TEST CFH RANDOM @C@@@@ J RANDOM . YES KS )@@G@@@B@@@@ TZ POPT . @B@@@@ J KT )@@G@@ BEGIN . @B@@@@ TNZ BLKERR . KU )@@G@@@B@@@@ J OFFT1 . @B@@@@ TNZ KV )@@G@@ EMPT . @B@@@@ J OFFT1A . KW )@@G@@@D@@@@ P$RINT (PF 4,2,TEXT2) . EMPTY FILE @B@@@@ KX )@@G@@ J BEGIN . @I@@@@ OFF COBFD>0 KY )@@G@@ . ONLY IF COBOL FD MS REQUIRED FTR 2-80 @B@@@@OFFT1A KZ )@@G@@ . @B@@@@ E$DIT EDPK LA )@@G@@ . @B@@@@ E$COPY 44,TEXT27 . @F@@@@ E$LB )@@G@@DECV BUFSIZ,,U . MAX POSSIBLE BUFFER SIZE@B@@@@ J LC )@@G@@ ERROR . @B@@@@OFFT1 LD )@@G@@ . @F@@@@ L X8,(1,0) . CURRENT BLOCK NUMBLE )@@G@@ER @F@@@@ L X9,(1,0) . CURRENT RECORD NUMLF )@@G@@BER @B@@@@IOW . @B@@@@ TZLG )@@G@@ EOMRK . @B@@@@ J EOFERR LH )@@G@@ . @B@@@@ I$OW IOPAK . @B@@@@ L,LI )@@G@@S1 A5,IOPAK+3 . @B@@@@ TNZ A5 LJ )@@G@@ . @B@@@@ J READOK . @B@@@@ TELK )@@G@@,U A5,5 . @B@@@@ TNE,U A5,1 LL )@@G@@ . @B@@@@ J READEOF . @I@@@@ ONLM )@@G@@ COBFD>0 . ONLY IF FD COBOL MS PRINT ON FTR 3-80 LN )@@G@@@B@@@@ TZ TAPETAG . @I@@@@ OFF LO )@@G@@ COBFD>0 . ONLY IF FD COBOL MS PRINT ON FTR 3-80 @B@@@@LP )@@G@@ TE,U A5,4 . @B@@@@ J ERRFLQ )@@G@@L . @B@@@@ L,H2 A0,IOPAK+3 . @B@@@@LR )@@G@@ TG,H2 A0,IOAREA . @B@@@@ J READLS )@@G@@OK . @D@@@@ P$RINT (PF 2,8,TEXT36) . AFC ERLT )@@G@@ROR @B@@@@ J BEGIN . @B@@@@ERRFL LU )@@G@@ . @B@@@@ E$DIT EDPK LV )@@G@@ . @ @@@@ E$MSG TEXT12 @D@@@@ E$OCTV A5 LW )@@G@@ . STATUS CODE @C@@@@ TZ TAPETAG LX )@@G@@ . TAPE? @G@@@@ J ERRFL1 . YES - SKIP SLY )@@G@@ECTOR PROCESSING @#@@@@ E$MSGR @D@@@@ E$DECV IOPALZ )@@G@@K+4,,H1 . WORD COUNT @#@@@@ E$MSGR @D@@@@ E$MA )@@G@@DECV IOPAK+5 . ADDRESS @[@@@@ERRFL1@B@@@@ J MB )@@G@@ ERROR . @B@@@@READEOF MC )@@G@@ . @B@@@@ S R12,EOMRK .@B@@@@ TZMD )@@G@@,H2 IOPAK+3 . @B@@@@ J READOK ME )@@G@@ . @B@@@@EOFERR . @I@@@@ ONMF )@@G@@ COBFD>0 . NEEDED ONLY IF FD COBOL FTR 3-80 MG )@@G@@@B@@@@ TZ TAPETAG . @B@@@@ J MH )@@G@@ TAPEEOF . @C@@@@ P$RINT (PF 2,5,TEXT13) . MI )@@G@@ERROR @B@@@@ J PRERRO . @I@@@@ OFMJ )@@G@@F COBFD>0 . NEEDED ONLY IF FD COBOL FTR 3-80 MK )@@G@@@B@@@@TAPEEOF . @B@@@@ I$OW ML )@@G@@ IOPAK . @B@@@@ L,U A0,04 . MM )@@G@@@B@@@@ TZ,S1 IOPAK+3 . @B@@@@ TNE,S1 MN )@@G@@ A0,IOPAK+3 . @B@@@@ J $+2 . MO )@@G@@@B@@@@ J TEOFF1 . @D@@@@ L,H1 MP )@@G@@ A0,IOAREA . LABEL TYPE @D@@@@ TE,U A0,'EOR' MQ )@@G@@ . MUST BE EOR @D@@@@ TNE,U A0,'EOF' . MR )@@G@@OR EOF ONLY @B@@@@ J TEOFF3 . @B@@@@TEOFF1MS )@@G@@ . @B@@@@ P$RINT (PF 2,4,TEMT )@@G@@XT23) . @B@@@@ J BEGIN . @B@@@@TEOFF3MU )@@G@@ . @F@@@@ L,U X9,IOAREA MV )@@G@@ . PRINT THIS LABEL BLOCK @F@@@@ LMJ X10,PRBLKHMW )@@G@@ . PRINT CURRENT LABEL @B@@@@ I$OW IOPAK MX )@@G@@ . @B@@@@ L,U A0,01 . @B@@@@ MY )@@G@@ TNE,S1 A0,IOPAK+3 . @B@@@@ J BEGIN MZ )@@G@@ . @B@@@@ P$RINT (PF 2,8,TEXT25) . @B@@@@ NA )@@G@@ J BEGIN . @B@@@@READOK NB )@@G@@ . @I@@@@ ON COBFD>0 . ONLY IF FD CNC )@@G@@OBOL MS PRINT ON FTR 3-80 @B@@@@ L A0,('EOF@@@') ND )@@G@@ . @B@@@@ TE A0,IOAREA . @I@@@@ OFNE )@@G@@F COBFD>0 . ONLY IF FD COBOL MS PRINT ON FTR 3-80 NF )@@G@@@B@@@@ J OK1 . @I@@@@ ON NG )@@G@@ COBFD>0 . ONLY IF FD COBOL MS PRINT ON FTR 3-80 @B@@@@NH )@@G@@ P$RINT (PF 4,2,TEXT35) . @F@@@@ L,U A1,,NI )@@G@@X8 . READ COUNT - BLOCKS @F@@@@ TNE A1,ANJ )@@G@@9 . TEST EQUAL CFH COUNT @D@@@@ J NOK1NK )@@G@@ . YES - OK @B@@@@ P$RINT (PF 2,8,TEXT33) NL )@@G@@ . @B@@@@NOK1 . @F@@@@ L,NM )@@G@@U A1,,X9 . READ COUNT - RECORDS @F@@@@ TNNN )@@G@@E A1,A12 . TEST EQUAL CFH COUNT @D@@@@ J NO )@@G@@ NOK2 . YES - OK @B@@@@ P$RINT (PF NP )@@G@@2,8,TEXT34) . @I@@@@ OFF COBFD>0 . ONLY INQ )@@G@@F FD COBOL MS PRINT ON FTR 3-80 @B@@@@NOK2 NR )@@G@@ . @A@@@@ P$RINT (PF 2,6,TEXT86) @B@@@@ J NS )@@G@@ BEGIN . @B@@@@OK1 NT )@@G@@ . @B@@@@ L,H2 A0,IOAREA . @B@@@@ L,NU )@@G@@H2 A1,IOPAK+3 . @B@@@@ TG A1,A0 NV )@@G@@ . @B@@@@ J $+2 . @B@@@@ J NW )@@G@@ OUT . @B@@@@ DSL A0,36 NX )@@G@@ . @B@@@@ DI,U A0,28 . @B@@@@ TZNY )@@G@@ A1 . @B@@@@ A,U A0,1 NZ )@@G@@ . @B@@@@ A A0,IOPAK+5 . @B@@@@ S OA )@@G@@ A0,IOPAK+5 . @F@@@@ TZ DBLOK OB )@@G@@ . TEST DUMP THIS BLOCK TAG@E@@@@ LMJ X10,DUMPB OC )@@G@@ . SET - PRINT IT @H@@@@ L,U A0,,*X8 . OD )@@G@@READ COUNT - BLOCKS & INCREMENT @B@@@@ A,U A0,1 OE )@@G@@ . @B@@@@ TZ BORR . @B@@@@ OF )@@G@@ J BLKS . @F@@@@ L,U A0,,X9 OG )@@G@@ . READ COUNT - RECORDS @B@@@@ A,H1 A0,IOAREA OH )@@G@@ . @B@@@@ TG A0,SBLOCK . @B@@@@ OI )@@G@@ J DOBLOCK . @B@@@@ J NOTYET OJ )@@G@@ . @B@@@@BLKS . @B@@@@ OK )@@G@@ TG A0,SBLOCK . @B@@@@ J DOBLOCK OL )@@G@@ . @B@@@@NOTYET . @B@@@@ OM )@@G@@ L A0,X7 . @B@@@@ A A0,IOAREA ON )@@G@@ . @B@@@@ L X7,A0 . @B@@@@ OO )@@G@@ L,H1 A0,IOAREA . @F@@@@ L,U A1,,X9 OP )@@G@@ . READ COUNT - RECORDS @B@@@@ A A0,A1 OQ )@@G@@ . @B@@@@ LXM X9,A0 . @B@@@@DONEBLOR )@@G@@K . @F@@@@ TNZ SDN OS )@@G@@ . TEST START DUMP NUMBER @C@@@@ J NOSDN OT )@@G@@ . NO @F@@@@ L A0,X9 . CURRENOU )@@G@@T RECORD NUMBER @G@@@@ TLEM A0,SDN . TEST IOV )@@G@@F WE SHOULD START DUMP @C@@@@ J NOSDN . OW )@@G@@NO @E@@@@ SZ SDN . CLEAR SELECT TAG OX )@@G@@@E@@@@ S X9,DBLOK . SET DUMP FLAG @F@@@@OY )@@G@@ LMJ X10,DUMPB . AND DUMP THIS BLOCK @B@@@@OZ )@@G@@NOSDN . @F@@@@ TNZ EDN PA )@@G@@ . TEST END DUMP OPTION @C@@@@ J NOEDPB )@@G@@N . NO @F@@@@ L A0,X9 . PC )@@G@@CURRENT RECORD NUMBER @I@@@@ TLEM A0,EDN . PD )@@G@@TEST IF WE SHOULD SWITCH OFF DUMP NOW @C@@@@ J NOEDPE )@@G@@N . NO @F@@@@ SZ EDN . PF )@@G@@YES - CLEAR SELECTOR @D@@@@ SZ DBLOK . PG )@@G@@AND DUMP TAG@B@@@@NOEDN . @I@@@@ PH )@@G@@ ON COBFD>0 . ONLY IF FD COBOL MS PRINT ON FTR 3-PI )@@G@@80 @B@@@@ TZ TAPETAG . @I@@@@ OFPJ )@@G@@F COBFD>0 . ONLY IF FD COBOL MS PRINT ON FTR 3-80 PK )@@G@@@B@@@@ J IOW . @I@@@@ ON PL )@@G@@ COBFD>0 . ONLY IF FD COBOL MS PRINT ON FTR 3-80 @D@@@@PM )@@G@@ L,U A0,,X8 . BLOCK NUMBER@B@@@@ TGPN )@@G@@ A9,A0 . @B@@@@ J IOW PO )@@G@@ . @B@@@@ P$RINT (PF 2,8,TEXT33) . @B@@@@ J PP )@@G@@ BEGIN . @I@@@@ OFF COBFD>0 PQ )@@G@@ . ONLY IF FD COBOL MS PRINT ON FTR 3-80 @B@@@@EXPCNT PR )@@G@@ . @F@@@@ P$RINT (PF 2,4,TEXT59) . PS )@@G@@COUNT EXPIRY MESSAGE @B@@@@ J BEGIN . PT )@@G@@@B@@@@DOBLOCK . @B@@@@ TNZ PU )@@G@@ BORR . @B@@@@ J DORS . PV )@@G@@@B@@@@ L A0,BLKPRNT . @B@@@@ TG PW )@@G@@ A0,NBLOCKS . @F@@@@ J EXPCNT . PX )@@G@@EXPIRY OF PRINT COUNT @B@@@@ A,U A0,1 . PY )@@G@@@B@@@@ S A0,BLKPRNT . @B@@@@ E$DIT PZ )@@G@@ EDPK . @B@@@@ E$COPY 12,TEXTS . QA )@@G@@@B@@@@ E$SKIP 6 . @D@@@@ E$DECF QB )@@G@@ 4,0,X8,U . BLOCK NUMBER@B@@@@ E$SKIP 6 QC )@@G@@ . @B@@@@ E$COPY 6,TEXTS+2 . @D@@@@ QD )@@G@@ E$DECF 4,IOAREA,,H2 . BLOCK SIZE @B@@@@ E$COPY QE )@@G@@ 6,TEXTS+3 . @B@@@@ E$DECV . QF )@@G@@@B@@@@ E$SKIP 6 . @B@@@@ E$COPY QG )@@G@@ 19,TEXT16 . @E@@@@ E$DECF 4,IOAREA,,H1 . QH )@@G@@NUMBER OF RECORDS @B@@@@ P$RINT (PF 2,22,PLINE) . @B@@@@QI )@@G@@DORS . @B@@@@ L X4,(QJ )@@G@@1,1) . @F@@@@ TZ,H2 IOAREA . TEST IQK )@@G@@F ZERO BLOCK SIZE @D@@@@ J DORS1 . NO - OQL )@@G@@K @F@@@@ P$RINT (PF 2,4,TEXT65) . YES - BAD FILE BLOQM )@@G@@CK @B@@@@ J PRERRO . @B@@@@DORS1 QN )@@G@@ . @E@@@@ L,H1 X7,IOAREA QO )@@G@@ . RECORDS TO BLOCK @B@@@@ L,H2 A0,IOAREA . QP )@@G@@@B@@@@ TG A0,MAXBLK . @B@@@@ J QQ )@@G@@ OUT . @B@@@@DORECS . QR )@@G@@@G@@@@ JGD X7,$+2 . DO ALL RECORDS IN THIS BQS )@@G@@LOCK @B@@@@ J DONEBLK . @B@@@@ TZQT )@@G@@ BORR . @B@@@@ J NOTBL QU )@@G@@ . @B@@@@ L A0,BLKPRNT . @B@@@@ TGQV )@@G@@ A0,NBLOCKS . @B@@@@ J EXPCNT QW )@@G@@ .@B@@@@NOTBL . @B@@@@ L,QX )@@G@@H1 X5,IOAREA,X4 . @B@@@@ L A0,X5 QY )@@G@@ . @B@@@@ TG A0,MAXREC . @B@@@@ J QZ )@@G@@ OUT . @H@@@@ L,U A0,,*X9 RA )@@G@@ . READ COUNT - RECORDS AND INCREMENT @B@@@@ A,U A0,1RB )@@G@@ . @I@@@@ ON COBFD>0 . ONLY IRC )@@G@@F FD COBOL MS PRINT ON FTR 3-80 @B@@@@ TNZ TAPETAG RD )@@G@@ . @B@@@@ TG A12,A0 . @B@@@@ RE )@@G@@ J NOTBL1 . @B@@@@ P$RINT (PF 2,8,TERF )@@G@@XT34) . @B@@@@ J BEGIN . @B@@@@NOTBL1RG )@@G@@ . @I@@@@ OFF COBFD>0 RH )@@G@@ . ONLY IF FD COBOL MS PRINT ON FTR 3-80 @B@@@@ TZRI )@@G@@ BORR . @B@@@@ J REC1 RJ )@@G@@ . @B@@@@ TNG A0,SBLOCK . @B@@@@ J RK )@@G@@ REC2 . @B@@@@ L A0,BLKPRNT RL )@@G@@ . @B@@@@ A,U A0,1 . @B@@@@ S RM )@@G@@ A0,BLKPRNT . @B@@@@REC1 RN )@@G@@ . @B@@@@ E$DIT EDPK . @B@@@@ E$RO )@@G@@COPY 14,TEXTS+4 . @E@@@@ E$DECV 0,X9,U RP )@@G@@ . RECORD NUMBER @B@@@@ E$SKIP 6 . RQ )@@G@@@B@@@@ E$COPY 6,TEXTS+2 . @E@@@@ E$DECV RR )@@G@@ IOAREA,X4,H1 . RECORD LENGTH @B@@@@ E$COPY 6,TERS )@@G@@XTS+3 . @F@@@@ L,H2 A0,IOAREA,X4 . ORIGINRT )@@G@@AL RECORD LENGTH @G@@@@ TNE,H1 A0,IOAREA,X4 . PRINT RU )@@G@@ONLY IF NOT AS ACTUAL @D@@@@ J NOORG . RV )@@G@@NO PRINT @B@@@@ E$SKIP 10 . @B@@@@ RW )@@G@@ E$COPY 10,('ORIGINAL: ') . @F@@@@ E$DECV IOAREA,X4,RX )@@G@@H2 . ORIGINAL RECORD LENGTH @B@@@@NOORG RY )@@G@@ . @B@@@@ P$RINT (PF 2,22,PLINE) . @E@@@@ RZ )@@G@@ L,U A0,IOAREA,X4 . RECORD ADDRESS @E@@@@ A,SA )@@G@@U A0,1 . INCREMENT OVER RCW@G@@@@ S SB )@@G@@ A0,PRSER,,H2 . ADDRESS FROM WHICH TO PRINT @B@@@@ L SC )@@G@@ A0,X5 . @I@@@@ LMJ X11,SETLEN SD )@@G@@ . SET PRINT LENGTH FOR PRCORE FTR 3-80 @E@@@@ LMJ SE )@@G@@ X11,PRCORE . PRINT THIS RECORD @B@@@@ + LMJPSF )@@G@@R . @B@@@@PRSER . @B@@@@SG )@@G@@ PF 1,0,0 . @B@@@@REC2 SH )@@G@@ . @F@@@@ A X4,X5 . INCREMSI )@@G@@ENT RECORD POINTER@G@@@@ A,U X4,1 . INCREMSJ )@@G@@ENT FOR CONTROL WORD @B@@@@ J DORECS . SK )@@G@@@B@@@@EXIT . @E@@@@ L,U SL )@@G@@ A0,1 . SET ALL OVER FLAG @ @@@@ S A0,ASM )@@G@@LDONE @D@@@@ L A0,SOPTS . @XQT OPTIONS@F@@@@SN )@@G@@ TEP A0,(1*/('Z'-'P')) . SKIP PRTCN$ IF N OPTION @B@@@@SO )@@G@@ J EXIT1 . @E@@@@ L A0,(SP )@@G@@HOFFL,HOFF) . SWITCH HEADING OFF@B@@@@ ER PRTCN$ SQ )@@G@@ . @B@@@@EXIT1 . @B@@@@ SR )@@G@@ ER EXIT$ . @B@@@@OUT SS )@@G@@ . @C@@@@ P$RINT (PF 2,7,TEXT20) . ERROR @B@@@@ST )@@G@@ J PRERRO . @B@@@@PARERR SU )@@G@@ . @G@@@@ JZ A12,PARERR1 . SKIP ISV )@@G@@F INVALID ERROR CODE @C@@@@ TG,U A12,PARTABL+1 . SW )@@G@@VALID?@C@@@@ J PARERR1 . NO @E@@@@ SX )@@G@@ L A0,A12 . GET ERROR CODE @G@@@@ L SY )@@G@@ A0,PARTAB-1,A0 . YES - PRINT DIAGNOSTIC MESSAGE@B@@@@ SZ )@@G@@ ER PRINT$ . @B@@@@PARERR1 TA )@@G@@ . @B@@@@ E$DIT EDPK . @B@@@@ TB )@@G@@ E$MSG TEXT28 . @F@@@@ L,H2 A0,GETTAB+TC )@@G@@2 . CALCULATE COLUMN NUMBER @B@@@@ AN,U A0,READLOCTD )@@G@@ . @E@@@@ MSI,U A0,6 . INPUT IS FIETE )@@G@@LDATA @B@@@@ A,H1 A0,GETTAB+2 . @B@@@@ TGTF )@@G@@,U A0,80 . @B@@@@ L,U A0,A0 TG )@@G@@ . @B@@@@ E$DECV . @B@@@@ E$TH )@@G@@MSGR . @#@@@@ EDEX @]@@@@PARERR2 TI )@@G@@@B@@@@ E$MSG READLOC . @B@@@@ J TJ )@@G@@ ERROR . @[@@@@. @[@@@@. @D@@@@. RANDOM ACCESS ONTK )@@G@@ INDEXED SEQUENTIAL (ISFMS) FILE @[@@@@. @[@@@@. @I@@@@ TL )@@G@@ ON COBFD>0 . ONLY IF COBOL FD MS REQUIRED FTR 2-TM )@@G@@80 @B@@@@RPRINT . @F@@@@ L,TN )@@G@@H1 A0,IOAREA+10 . HIGHEST LEVEL OF INDEX @B@@@@ S TO )@@G@@ A0,HIBL . @A@@@@ L,U X11,ISR001A TP )@@G@@@I@@@@ OFF COBFD>0 . ONLY IF COBOL FD MS REQUTQ )@@G@@IRED FTR 2-80 @[@@@@ISSET @G@@@@ L X6,NBLOCKS TR )@@G@@ . NUMBER OF RECORDS TO PRINT @F@@@@ TZ EPK TS )@@G@@ . UNLESS ENPRINTK IS ON @E@@@@ L X6,HNO TT )@@G@@ . WHEN DUMMY IS USED@E@@@@ TZ SPK TU )@@G@@ . TEST STPRINTK SET @C@@@@ J ISR001 . TV )@@G@@YES @B@@@@ L X1,(1,0) . @B@@@@ L,TW )@@G@@U R1,MAXK . @F@@@@ SZ SPK+1,*X1 TX )@@G@@ . SET UP DUMMY ZERO KEY @D@@@@ JGD R1,$-1 TY )@@G@@ . LOW-VALUES @B@@@@ISR001 . @^@@@@TZ )@@G@@ J ,X11@I@@@@ ON COBFD>0 . UA )@@G@@ONLY IF COBOL FD MS REQUIRED FTR 2-80 @]@@@@ISR001A @I@@@@ UB )@@G@@ L X4,(1,0) . RECORD COUNTER (FROM FIRST ENCOUNTERUC )@@G@@ED @B@@@@ISR002 . @E@@@@ L UD )@@G@@ A0,HIBL . LEVEL OF INDEX @B@@@@ISR003 UE )@@G@@ . @E@@@@ LMJ X11,POSBLK . UF )@@G@@GET THIS BLOCK @I@@@@ L,H1 A0,IOAREA . BLOCK UG )@@G@@TYPE FTR 4-79 @I@@@@ SSL A0,6 UH )@@G@@ . T1 FTR 4-79 @D@@@@ TEUI )@@G@@,U A0,3 . TEST IF DATA@C@@@@ J ISR0UJ )@@G@@07 . NO @H@@@@ LMJ X8,STISB . YUK )@@G@@ES - PRINT DOWN THIS DATA BLOCK @D@@@@ L,S4 R1,IOAREA,UL )@@G@@X5 . KEY LENGTH @E@@@@ S R1,SPK . UM )@@G@@SET UP ITEM LENGTH@B@@@@ L X1,(1,SPK+1) . @B@@@@UN )@@G@@ L,U X2,IOAREA+2,X5 . @B@@@@ LXI,U X2,1UO )@@G@@ . @E@@@@ BT X1,,*X2 . TRANSFUP )@@G@@ER LAST KEY @D@@@@ L,S4 X1,IOAREA,X5 . KEY LENGTH UQ )@@G@@@F@@@@ AN,U X1,1 . DECREMENT FOR INDEX UR )@@G@@@B@@@@ISR004 . @E@@@@ LXI,XU US )@@G@@ X1,-1 . BACKWARDS INDEX @E@@@@ L X3,(UT )@@G@@6,0) . SHIFT MODIFIER @E@@@@ L,U X2,6 UU )@@G@@ . CHARS TO WORD @H@@@@ L A0,SPK+1,X1 UV )@@G@@ . INCREMENT BY 1 LAST CHAR OF KEY @B@@@@ISR005 UW )@@G@@ . @G@@@@ JGD X2,ISR005A . AND NEUX )@@G@@XT TO LEFT IF OVERFLOW @E@@@@ SZ SPK,X1 . UY )@@G@@CLEAR THIS WORD @F@@@@ JMGI X1,ISR004 . AND GEUZ )@@G@@T NEXT TO LEFT @E@@@@ P$RINT (PF 2,6,TEXT49) . ALL GOVA )@@G@@NE - ERROR @B@@@@ J PRERRO . @B@@@@ISR005VB )@@G@@A . @B@@@@ AND,U A0,077 VC )@@G@@ . @G@@@@ TG,U A1,077 . TEST RIGHTMOVD )@@G@@ST FOR OVERFLOW @B@@@@ J ISR006 . @C@@@@VE )@@G@@ A,U A0,1 . OK @D@@@@ LSSL VF )@@G@@ A0,,X3 . SHIFT BACK @E@@@@ S A0,SPK+1,XVG )@@G@@1 . AND RESTORE KEY @G@@@@ J ISR002 VH )@@G@@ . LAST KEY NOW UPDATED BY 1 @B@@@@ISR006 VI )@@G@@ . @D@@@@ NOP 0,,*X3 . CHAR MOD VJ )@@G@@@D@@@@ SSL A0,6 . GET NEXT @B@@@@ VK )@@G@@ J ISR005 . @B@@@@ISR007 VL )@@G@@ . @E@@@@ TNE,U A0,2 . TEST INDEX BVM )@@G@@LOCK @C@@@@ J ISR008 . YES @I@@@@ VN )@@G@@ OFF COBFD>0 . ONLY IF COBOL FD MS REQUIRED FTR 2-VO )@@G@@80 @[@@@@ISLNKR@E@@@@ P$RINT (PF 2,3,TEXT68) . NO - BVP )@@G@@AD LINK @B@@@@ J PRERRO . @I@@@@ VQ )@@G@@ ON COBFD>0 . ONLY IF COBOL FD MS REQUIRED FTR 2-VR )@@G@@80 @B@@@@ISR008 . @G@@@@ L,VS )@@G@@U X5,2 . POINT PAST BLOCK CONTROL WORDS@B@@@@ VT )@@G@@ L A0,SKL . @G@@@@ A,U A0,2 VU )@@G@@ . INCREMENT OVER KEY CONTROL @B@@@@ LXI X5,AVV )@@G@@0 . @I@@@@ L A10,IOAREA . NUMBERVW )@@G@@ OF WORDS TO ACCESS FTR 4-79 @I@@@@ LSSL A10,24 VX )@@G@@ . FTR 4-79 @I@@@@ SSVY )@@G@@L A10,24 . T3 FTR 4-79 VZ )@@G@@@H@@@@ AN,U A10,2 . DEC 1 FOR TLEM, 1 FOR LAWA )@@G@@ST INDEX @B@@@@ISR009 . @D@@@@ WB )@@G@@ TP IOAREA,X5 . TEST DELETED@E@@@@ J WC )@@G@@ ISR011 . YES - DO NOT CHECK@B@@@@ L,S4 A0,IWD )@@G@@OAREA,X5 . @F@@@@ TE A0,SKL . TEST VWE )@@G@@ALID KEY LENGTH @C@@@@ J KBAD . NO WF )@@G@@@E@@@@ L X9,(1,SPK+1) . KEY BEING CHECKED @G@@@@WG )@@G@@ LMJ X11,KEYCHK . TEST NOW AGAINST SEARCHED WH )@@G@@@C@@@@ J ISR011 . LESS @D@@@@ J WI )@@G@@ ISR010 . EQUAL - FIND@E@@@@ISR010 WJ )@@G@@ . GREATER - FIND @F@@@@ L,H1 A0,IOAREA,WK )@@G@@X5 . RELATIVE BLOCK NUMBER @B@@@@ J ISR003 WL )@@G@@ . @B@@@@ISR011 . @F@@@@ WM )@@G@@ TLEM X5,A10 . TEST END OF KEYS REACHED@C@@@@ WN )@@G@@ J ISR009 . NO @E@@@@ L A0,IWO )@@G@@OAREA,X5 . LAST INDEX ENTRY @E@@@@ TNE A0,DS WP )@@G@@ . TEST IF IT IS @D@@@@ J ISR012 WQ )@@G@@ . YES - OK @I@@@@ OFF COBFD>0 . ONLY IWR )@@G@@F COBOL FD MS REQUIRED FTR 2-80 @]@@@@ISR011A @D@@@@ P$WS )@@G@@RINT (PF 2,4,TEXT69) . YES - ERROR @B@@@@ J PRERWT )@@G@@RO . @I@@@@ ON COBFD>0 . ONLY IWU )@@G@@F COBOL FD MS REQUIRED FTR 2-80 @B@@@@ISR012 WV )@@G@@ . @G@@@@ L A0,LDATAB . LAST DATA BLWW )@@G@@OCK BY DEFAULT @B@@@@ J ISR003 . @B@@@@WX )@@G@@RANDOM . @D@@@@ L,H1 A0,IWY )@@G@@OAREA+1 . BLOCK SIZE @E@@@@ L,U A5,BUFSIZ WZ )@@G@@ . BUFFER LENGTH @E@@@@ TNG A5,A0 . XA )@@G@@TEST IF CAPABILITY@D@@@@ J OFFT1A . NO - EXB )@@G@@RROR @G@@@@ S A0,BS . SAVE FOR POSSIBLE XC )@@G@@USE LATER @E@@@@ S,H1 A0,IOPAK+4 . SET UP IO PAXD )@@G@@CKET @B@@@@ DSL A0,36 . @B@@@@ DIXE )@@G@@,U A0,28 . @E@@@@ S A0,NSECS XF )@@G@@ . CONVERT TO SECTORS@G@@@@ SZ BLKNUM . XG )@@G@@CLEAR CURRENT BLOCK NUMBER @D@@@@ TE,U A0,64 XH )@@G@@ . TEST U TRACK@D@@@@ TNE,U A0,32 . OR 1/2XI )@@G@@ TRACK@E@@@@ J CBIS . YES - COULD BE IS XJ )@@G@@@D@@@@ TE,U A0,16 . OR 1/4 TRACK@E@@@@ XK )@@G@@ J NOTIS . DEFINITELY NOT IS @B@@@@CBIS XL )@@G@@ . @B@@@@ L,U A0,1 XM )@@G@@ . @E@@@@ LMJ X11,POSBLK . GET INFORM BLOCK XN )@@G@@@I@@@@ L,H1 A0,IOAREA . CHECK ITS AN INFORM BLOCXO )@@G@@K FTR 4-79 @I@@@@ SSL A0,6 . T1 XP )@@G@@ FTR 4-79 @I@@@@ TE,U A0,1 XQ )@@G@@ . FTR 4-79 @B@@@@ J XR )@@G@@ NOTIS . @F@@@@ L,H1 A0,IOAREA+7 XS )@@G@@ . BLOCK SIZE AS PER INFORM@B@@@@ A,U A0,1 XT )@@G@@ . @B@@@@ DSL A0,36 . @B@@@@ DIXU )@@G@@,U A0,28 . @F@@@@ TZ A1 XV )@@G@@ . ROUND UP IF NECCESSARY @B@@@@ A,U A0,1 XW )@@G@@ . @G@@@@ TNZ RPR . TEST RANDOM PRINT XX )@@G@@OF IS FILES @F@@@@ TE A0,NSECS . DOUBLE CHECKXY )@@G@@ FOR IS @E@@@@ J NOTIS . MUST BE RANDXZ )@@G@@OM @ @@@@ L,U X11,CBIS1 @I@@@@ OFF COBFYA )@@G@@D>0 . ONLY IF COBOL FD MS REQUIRED FTR 2-80 @]@@@@SETUPIYB )@@G@@S1 @D@@@@ L A0,HNO . LARGE NUMBER@F@@@@YC )@@G@@ TNZ SBLOCK . TEST START NUMBER OR @E@@@@YD )@@G@@ TZ SPK . STPRINTK SPECIFIED@G@@@@ YE )@@G@@ S A0,SBEG . YES - START NOT AT BEGINNING @E@@@@YF )@@G@@ TZ SPK . TEST IF STPRINTK @G@@@@ YG )@@G@@ S A0,SBLOCK . YES - SET START RECORD PRINT @E@@@@YH )@@G@@ TZ EPK . TEST ENPRINTK @H@@@@ YI )@@G@@ S A0,NBLOCKS . YES - SET NUMBER BLOCKS TO PRINT YJ )@@G@@@I@@@@ ON COBFD>0 . ONLY IF FD COBOL MS PRINYK )@@G@@T ON FTR 3-80 @E@@@@ TZ SDK . IF KEYYL )@@G@@ DUMPING @D@@@@ SZ SDN . SPECIFIED YM )@@G@@@E@@@@ TZ EDK . OVERRIDE ANY @F@@@@YN )@@G@@ SZ EDN . NUMBER DUMPING @I@@@@YO )@@G@@ OFF COBFD>0 . ONLY IF FD COBOL MS PRINT ON YP )@@G@@FTR 3-80 @^@@@@ J ,X11@I@@@@ ON COBFYQ )@@G@@D>0 . ONLY IF COBOL FD MS REQUIRED FTR 2-80 @[@@@@CBIS1 YR )@@G@@@B@@@@ P$RINT (PF 2,4,TEXT62) . @E@@@@ L,H1 YS )@@G@@ A0,IOAREA+9 . SAVE KEY LENGTH @ @@@@ S A0,SYT )@@G@@KL @F@@@@ TZ NOLABS . SKIP INF BLOCK PRIYU )@@G@@NT IF @G@@@@ J NOINF . REQUESTED NO LABYV )@@G@@EL PRINT @B@@@@ E$DIT EDPK . @B@@@@ YW )@@G@@ E$COPY 18,TEXT43 . @B@@@@ E$SKIP 4 YX )@@G@@ . @B@@@@ E$COPY 17,TEXT44 . @D@@@@ YY )@@G@@ L,H1 A0,IOAREA+7 . BLOCK SIZE @B@@@@ A,U YZ )@@G@@ A0,1 . @B@@@@ DSL A0,36 . ZA )@@G@@@B@@@@ DI,U A0,448 . @G@@@@ AN,U ZB )@@G@@ A0,1 . DETERMINE BLOCKING FACTOR @C@@@@ L,ZC )@@G@@U A0,TEXT45,A0 . TEXT @B@@@@ E$MSG ZD )@@G@@ . @B@@@@ E$SKIP 1 . @B@@@@ ZE )@@G@@ E$COPY 6,TEXT46 . @B@@@@ E$SKIP 4 ZF )@@G@@ . @B@@@@ E$COPY 15,TEXT11 . @B@@@@ ZG )@@G@@ E$CHAR ':' . @B@@@@ E$SKIP 1 ZH )@@G@@ . @F@@@@ L A0,IOAREA+8,,H1 . FIXED RECORDZI )@@G@@ LENGTH @G@@@@ TZ IOAREA+8,,H2 . TEST IF VARIZJ )@@G@@ABLE RECORD FILE @C@@@@ L A0,IOAREA+8,,H2 . YES ZK )@@G@@@B@@@@ E$DECV . @B@@@@ E$SKIP ZL )@@G@@ 1 . @B@@@@ L,U A0,TEXT47 . ZM )@@G@@@D@@@@ TZ IOAREA+8,,H2 . MAX OR ZERO @B@@@@ ZN )@@G@@ A,U A0,1 . @B@@@@ E$MSG ZO )@@G@@ . @B@@@@ E$SKIP 4 . @B@@@@ ZP )@@G@@ E$COPY 12,TEXT48 . @D@@@@ E$DECV IOAREA+9,,ZQ )@@G@@H2 . KEY LENGTH @#@@@@ EDEX @B@@@@ L ZR )@@G@@ X5,(2,INFTXT) . @B@@@@ L X4,(1,IOAREA+17) . ZS )@@G@@@B@@@@ L,U R4,5 . @F@@@@INF1 ZT )@@G@@ . DO ALL INFORM ITEMS @B@@@@ E$SKIP ZU )@@G@@ 2 . @B@@@@ E$COPY 12,,*X5 . ZV )@@G@@@B@@@@ E$CHAR '-' . @B@@@@ E$SKIP ZW )@@G@@ 1 . @B@@@@ E$DECV 0,*X4 . ZX )@@G@@@B@@@@ JGD R4,INF1 . @B@@@@ E$DITX ZY )@@G@@ . @B@@@@ P$RINT (PF 2,22,PLINE) . ZZ )@@G@@@B@@@@ E$DIT EDPK . @B@@@@ E$MSG AA )@@G@@ TEXT66 . @B@@@@ E$SKIP 2 . AB )@@G@@@B@@@@ L,U R4,3 . @F@@@@ L AC )@@G@@ X5,(1,IOAREA+3) . ADDRESS OF MAP TABLE @B@@@@MAP01 AD )@@G@@ . @B@@@@ E$SKIP 4 . AE )@@G@@@B@@@@ E$MSGR . @B@@@@ E$SKIP AF )@@G@@ 1 . @C@@@@ E$DECV 0,X5,H1 . AG )@@G@@FROM @B@@@@ E$COPY 4,(' TO ') . @C@@@@ E$AH )@@G@@DECV 0,*X5,H2 . TO @B@@@@ JGD R4,MAP01 AI )@@G@@ . @B@@@@ P$RINT (PF 2,22,PLINE) . @B@@@@NOINF AJ )@@G@@ . @E@@@@ TZ POPT AK )@@G@@ . TEST P OPTION @C@@@@ J BEGIN AL )@@G@@ . YES @F@@@@ L,H2 A0,IOAREA+5 . LAST DATA BLAM )@@G@@OCK IN RANGE@G@@@@ S A0,LDATAB . SET UP FOR RAN )@@G@@ANDOM READING @E@@@@ P$RINT (PF 3,1,BLANKS) . SPACE AO )@@G@@3 LINES @F@@@@ L A0,IOAREA+20 . TOTAL RECORDAP )@@G@@S ON FILE @E@@@@ S A0,TOTR . (PER INFORM AQ )@@G@@BLOCK)@B@@@@ DL A0,IOAREA+3 . @B@@@@ DSAR )@@G@@ A0,BLKCNT . @B@@@@ DL A0,IOAREA+5 AS )@@G@@ . @B@@@@ DS A0,BLKCNT+2 . @E@@@@ TZAT )@@G@@ WPR . TEST RANDOM ACCESS@C@@@@ J AU )@@G@@ RPRINT . YES @[@@@@. @[@@@@. @A@@@@. CHAINING DAV )@@G@@OWN KEYS IN DATA BLOCKS @[@@@@. @[@@@@. @F@@@@ L,H1 AW )@@G@@ A0,BLKCNT+2 . GO FOR FIRST DATA BLOCK @E@@@@ LMJ AX )@@G@@ X11,POSBLK . GET FIRST DATA @I@@@@ L,H1 A0,IAY )@@G@@OAREA . CHECK ITS A DATA BLOCK FTR 4-79 @I@@@@ AZ )@@G@@ SSL A0,6 . T1 FTR 4-BA )@@G@@79 @I@@@@ TE,U A0,3 . BB )@@G@@ FTR 4-79 @D@@@@ J ISER1 . BC )@@G@@NO - ERROR @D@@@@ L X4,(1,0) . RECORD COUNTBD )@@G@@@E@@@@ L X6,NBLOCKS . RECORDS PRINTED @E@@@@BE )@@G@@ TZ EPK . TEST ENPRINTK @G@@@@ BF )@@G@@ L X6,HNO . YES - USE DUMMY HIGH VALUE @C@@@@BG )@@G@@ L,U X8,ENDISB . EXIT @[@@@@. @[@@@@. BH )@@G@@@ @@@@. START PRINTING IS DATA BLOCK@A@@@@. X4 HOLDS THE CURRENT RECORD BI )@@G@@NUMBER@[@@@@. @[@@@@. @B@@@@STISB BJ )@@G@@ . @F@@@@ L,H2 A0,IOAREA+1 . ADDRESS OF FIRST KBK )@@G@@EY @D@@@@ L,U X5,2 . SHOULD BE 2 @H@@@@BL )@@G@@ TNE A0,X5 . IF NOT THERE IS FILE CORRUPTIOBM )@@G@@N @C@@@@ J STISB0 . OK @E@@@@ BN )@@G@@ P$RINT (PF 2,5,TEXT71) . PRINT MESSAGE @E@@@@ TZBO )@@G@@ EPR . AND IF REQUIRED - @E@@@@ LMJ BP )@@G@@ X10,DUMPB . DUMP THIS BLOCK @B@@@@STISB0 BQ )@@G@@ . @G@@@@ L,H1 A15,IOAREA,X5 . CURRENBR )@@G@@T DATA BLOCK NUMBER @F@@@@ TP IOAREA,X5 . BS )@@G@@TEST DELETED RECORD @E@@@@ AN A15,(1*/17) . BT )@@G@@YES - REMOVE FLAG @B@@@@STISB1 . @G@@@@BU )@@G@@ SLJ BCHG . TEST BLOCK CHANGE CONTROL BV )@@G@@@B@@@@ J RDIS1 . @B@@@@BCHG BW )@@G@@ . @B@@@@ NOP . BX )@@G@@@F@@@@ TZ PON . TEST PRINT ON ALREADY BY )@@G@@@H@@@@ TNZ BORR . TEST BLOCK INFO REQURED BZ )@@G@@PRINTED @C@@@@ J STISB2 . NO @B@@@@CA )@@G@@ E$DIT EDPK . @B@@@@ E$COPY 12,TCB )@@G@@EXTS . @B@@@@ E$SKIP 1 . @D@@@@CC )@@G@@ L,H1 A0,IOAREA+1 . BLOCK NUMBER@G@@@@ TNCD )@@G@@Z A0 . IF IOF BLOCK THIS IS ZERO @F@@@@ CE )@@G@@ L A0,ACTBLK . SO USE THAT FROM POSBLK @B@@@@ CF )@@G@@ E$DECV . @B@@@@ E$SKIP 1 CG )@@G@@ . @B@@@@ E$CHAR '(' . @I@@@@ CH )@@G@@ L,H1 A0,IOAREA . FTR 4-CI )@@G@@79 @I@@@@ SSL A0,6 . T1 CJ )@@G@@ FTR 4-79 @B@@@@ AN,U A0,1 . CK )@@G@@@B@@@@ L A0,TEXT51,A0 . @B@@@@ E$FD1 CL )@@G@@ . @B@@@@ E$CHAR ')' . CM )@@G@@@B@@@@ E$SKIP 4 . @B@@@@ E$COPY CN )@@G@@ 18,TEXT84 . @B@@@@ E$COPY 10,TEXT83 . CO )@@G@@@E@@@@ E$DECV IOAREA,,T2 . WORDS OF RECORDS @B@@@@CP )@@G@@ E$SKIP 2 . @B@@@@ E$COPY 32,TCQ )@@G@@EXT81 . @I@@@@ L A0,IOAREA . CR )@@G@@ FTR 4-79 @I@@@@ LSSL A0,24 CS )@@G@@ . WORDS OF KEYS AND RCW'S FTR 4-79 @I@@@@ SSCT )@@G@@L A0,24 . IN T3 FTR 4-79 CU )@@G@@@E@@@@ A,U A0,2 . NUMBER OF BCW'S @B@@@@CV )@@G@@ E$DECV . @B@@@@ E$SKIP 2 CW )@@G@@ . @B@@@@ E$CHAR '=' . @B@@@@CX )@@G@@ E$SKIP 1 . @I@@@@ L A0,ICY )@@G@@OAREA . FTR 4-79 @I@@@@ CZ )@@G@@ LSSL A0,24 . WORDS OF KEYS AND RCW'S FTR 4-DA )@@G@@79 @I@@@@ SSL A0,24 . IN T3 DB )@@G@@ FTR 4-79 @I@@@@ L A1,IOAREA . DC )@@G@@ FTR 4-79 @I@@@@ LSSL A1,1DD )@@G@@2 . WORDS OF RECORDS FTR 4-79 @I@@@@ DE )@@G@@ SSL A1,24 . IN T2 FTR 4-DF )@@G@@79 @I@@@@ A A0,A1 . DG )@@G@@ FTR 4-79 @D@@@@ A,U A0,2 . DH )@@G@@2 BCW'S @B@@@@ E$DECV . @B@@@@ DI )@@G@@ E$COPY 22,TEXT82 . @B@@@@ P$RINT (PF 2,22,PDJ )@@G@@LINE) . @B@@@@STISB2 . @E@@@@ DK )@@G@@ TZ DBLOK . TEST BLOCK DUMP ON@F@@@@ LMDL )@@G@@J X10,DUMPB . YES - DUMP THIS ONE @D@@@@ L,DM )@@G@@H1 A10,IOAREA+1 . BLOCK NUMBER@F@@@@ J *BCHDN )@@G@@G . RETURN TO ROUTINE CALLER@B@@@@RDIS1 DO )@@G@@ . @E@@@@ L A0,(0777777777777) . HIGH VDP )@@G@@ALUES = EOK @B@@@@ L X9,X5 . @B@@@@ DQ )@@G@@ LXI,U X9,1 . @D@@@@ L,S4 R1,IOAREA,DR )@@G@@X5 . KEY LENGTH @B@@@@RDIS1A . DS )@@G@@@E@@@@ JGD R1,RDIS1B . DO ALL KEY WORDS @F@@@@DT )@@G@@ S X5,EOFTAG . SET EOF ENCOUNTERED TAG @B@@@@DU )@@G@@ J RDIS1C . @B@@@@RDIS1B DV )@@G@@ . @H@@@@ TNE A0,IOAREA+2,*X9 . TEST IDW )@@G@@F THIS WORD IS HIGH-VALUES @E@@@@ J RDIS1A DX )@@G@@ . YES - TRY NEXT @B@@@@RDIS1C . DY )@@G@@@C@@@@ J RDIS2 . NO @B@@@@RDIS1D DZ )@@G@@ . @B@@@@ P$RINT (PF 3,6,TEXT49) EA )@@G@@ . @D@@@@ L,U A0,,X4 . RECORD COUNT@H@@@@EB )@@G@@ TNE A0,TOTR . TEST IF THIS IS THE INFORM COUEC )@@G@@NT @B@@@@ J BEGIN . @F@@@@ TNED )@@G@@Z SBEG . TEST START AT BEGINNING @C@@@@ J EE )@@G@@ BEGIN . NO @H@@@@ L A12,A0 EF )@@G@@ . YES - PRINT COUNT ERROR MESSAGE @B@@@@ E$DIT EG )@@G@@ EDPK . @B@@@@ E$COPY 42,TEXT64 . EH )@@G@@@B@@@@ E$COPY 6,('READ: ') . @D@@@@ E$DECV EI )@@G@@ A12 . READ COUNT @B@@@@ E$SKIP 2 EJ )@@G@@ . @B@@@@ E$COPY 6,TEXT51 . @B@@@@ EK )@@G@@ E$CHAR ':' . @B@@@@ E$SKIP 1 EL )@@G@@ . @F@@@@ E$DECV TOTR . INFORMATION EM )@@G@@BLOCK TOTAL @B@@@@ P$RINT (PF 2,22,PLINE) . @B@@@@ EN )@@G@@ J BEGIN . @B@@@@RDIS2 EO )@@G@@ . @D@@@@ L,S4 A0,IOAREA,X5 . KEY LENGTH EP )@@G@@@B@@@@ TNE A0,SKL . @B@@@@ J EQ )@@G@@ KOK1 . @B@@@@KBAD . ER )@@G@@@E@@@@ P$RINT (PF 2,9,TEXT56) . KEY LENGTH ERROR @B@@@@ES )@@G@@ J PRERRO . @B@@@@KOK1 ET )@@G@@ . @E@@@@ TP IOAREA,X5 . TEST IEU )@@G@@F DELETED @G@@@@ J KOK9 . YES - DO NOTEV )@@G@@ CHECK LAST KEY @G@@@@ TNZ ISREC . DO NOTEW )@@G@@ CHECK FIRST NON-DELETED@B@@@@ J KOK5 . EX )@@G@@@B@@@@ L X9,(1,LASTK) . @G@@@@ LMJ EY )@@G@@ X11,KEYCHK . CHECK CURRENT AGAINST LAST KEY@C@@@@ J EZ )@@G@@ KOK3 . LESS @C@@@@ J KOK4 FA )@@G@@ . EQUAL @D@@@@ J KOK5 . GREATEFB )@@G@@R - OK@B@@@@KOK3 . @B@@@@ P$FC )@@G@@RINT (PF 2,5,TEXT63) . @E@@@@ TNZ DPR FD )@@G@@ . TEST D OPTION ON @B@@@@ J PRERRO . FE )@@G@@@^@@@@ J KOK5@B@@@@KOK4 FF )@@G@@ . @F@@@@ TNZ WPR . EQUALITY OK FOR W-FG )@@G@@OPTION@E@@@@ J KOK3 . NOT ON - ERROR FH )@@G@@@D@@@@KOK5 . THIS IS OK @D@@@@ FI )@@G@@ L,S4 R1,IOAREA,X5 . KEY LENGTH @B@@@@ L FJ )@@G@@ X9,(1,LASTK) . @B@@@@ LXI,U X10,1 . FK )@@G@@@I@@@@ S R12,ISREC . SET > REC 1 FL )@@G@@ FTR 3-80 @E@@@@ LXM,U X10,2+IOAREA,X5 . KEY FIFM )@@G@@RST WORD @E@@@@ BT X9,,*X10 . TRANSFER NEWFN )@@G@@ KEY @E@@@@ TNZ SDK . TEST SDUMPKEY FO )@@G@@@C@@@@ J RDIS10 . NO @D@@@@ L FP )@@G@@ X9,(1,SDK+1) . SDUMPKEY KEY@F@@@@ LMJ X11,FQ )@@G@@KEYCHK . CHECK AGAINST CURRENT @C@@@@ J KOK6FR )@@G@@B . LESS @C@@@@ J KOK6A . FS )@@G@@EQUAL @D@@@@KOK6A . GREATER @E@@@@FT )@@G@@ S X11,DBLOK . SET BLOCK DUMP TAG@F@@@@ FU )@@G@@ SZ SDK . CLEAR KEY CHECK TAG @F@@@@ FV )@@G@@ LMJ X10,DUMPB . AND DUMP THIS BLOCK @B@@@@KOK6B FW )@@G@@ . @E@@@@ TNZ EDK FX )@@G@@ . TEST EDUMPKEY @C@@@@ J RDIS11 FY )@@G@@ . NO @D@@@@ L X9,(1,EDK+1) . EDUMPKEY KEYFZ )@@G@@@F@@@@ LMJ X11,KEYCHK . CHECK AGAINST CURRENT GA )@@G@@@D@@@@ J KOK6D . GREATER @C@@@@ GB )@@G@@ J KOK6C . EQUAL @C@@@@KOK6C GC )@@G@@ . LESS @E@@@@ SZ DBLOK . GD )@@G@@CLEAR DUMPING TAG @F@@@@ SZ EDK . CLEAR GE )@@G@@EDK CHECK TAG @B@@@@KOK6D . @E@@@@GF )@@G@@ TNZ SPK . CHECK IF STPRINTK @C@@@@ GG )@@G@@ J KOK8 . NO @D@@@@ L X9,(GH )@@G@@1,SPK+1) . STPRINTK KEY@G@@@@ LMJ X11,KEYCHK GI )@@G@@ . CHECK CURRENT AGAINST STPRINTK@C@@@@ J KOK8 GJ )@@G@@ . LESS @C@@@@ J KOK7 . EQUAL GK )@@G@@@B@@@@KOK7 . @F@@@@ SZ GL )@@G@@ SBLOCK . CLEAR PRINT INHIBIT @F@@@@ SZ GM )@@G@@ SPK . CLEAR STPRINTK CHECKING @B@@@@KOK8 GN )@@G@@ . @F@@@@ TLEM X4,SBLOCK . GO )@@G@@TEST PRINT REQUIRED @C@@@@ J RDIS8 . GP )@@G@@NO @E@@@@ TNZ EPK . TEST ENPRINTK GQ )@@G@@@C@@@@ J KOK9 . NO @E@@@@ L GR )@@G@@ X9,(1,EPK+1) . ENPRINTK LOCATION @G@@@@ LMJ GS )@@G@@ X11,KEYCHK . CHECK CURRENT AGAINST ENPRINTK@C@@@@ J GT )@@G@@ KOK9 . LESS @C@@@@ J KOK9 GU )@@G@@ . EQUAL @D@@@@ J ISER3 . GREATEGV )@@G@@R @B@@@@KOK9 . @F@@@@ JGGW )@@G@@D X6,$+2 . TEST PRINT COUNT EXPIRED@C@@@@ J GX )@@G@@ ISER3 . YES @D@@@@ TN IOAREA,X5 GY )@@G@@ . TEST DELETED@C@@@@ J RDIS6 . GZ )@@G@@NO @G@@@@ TNZ DPR . TEST DELETED RECS HA )@@G@@PRINT OPTION@C@@@@ J RDIS8 . NO @B@@@@HB )@@G@@ LXM,U X9,RDIS5 . @B@@@@RDIS4 HC )@@G@@ . @B@@@@ E$DIT EDPK . @B@@@@HD )@@G@@ E$COPY 14,TEXTS+4 . @D@@@@ L,U A0,,HE )@@G@@X4 . RECORD COUNT@B@@@@ E$DECV HF )@@G@@ . @B@@@@ E$SKIP 3 . @D@@@@ TPHG )@@G@@ IOAREA,X5 . TEST DELETED@G@@@@ J RDISHH )@@G@@41 . YES - INVALID RECORD LENGTH @B@@@@ E$COPY HI )@@G@@ 5,TEXTS+2 . @I@@@@ L A0,IOAREA+1,X5 . HJ )@@G@@ FTR 4-79 @I@@@@ LSSL A0,1HK )@@G@@2 . FTR 4-79 @I@@@@ HL )@@G@@ SSL A0,24 . FTR 4-HM )@@G@@79 @I@@@@ E$DECV . HN )@@G@@ FTR 4-79 @B@@@@ E$SKIP 6 . HO )@@G@@@B@@@@RDIS41 . @B@@@@ E$COPY HP )@@G@@ 6,TEXT52 . @B@@@@ L,U A0,IOAREA+2,X5 . HQ )@@G@@@B@@@@ L,S4 A1,IOAREA,X5 . @B@@@@ MSI,U HR )@@G@@ A1,6 . @B@@@@ E$COPY . HS )@@G@@@B@@@@ P$RINT (PF 2,22,PLINE) . @B@@@@ J HT )@@G@@ 0,X9 . @B@@@@RDIS5 . HU )@@G@@@B@@@@ E$DIT EDPK . @B@@@@ E$COL HV )@@G@@ 20 . @B@@@@ E$COPY 18,TEXT53 . HW )@@G@@@B@@@@ E$SKIP 1 . @B@@@@ E$TIME HX )@@G@@ IOAREA+1,X5 . @B@@@@ E$COPY 4,(' ON ') . HY )@@G@@@B@@@@ E$DAY2 IOAREA+1,X5 . @B@@@@ P$RINT HZ )@@G@@ (PF 2,22,PLINE) . @B@@@@ J RDIS8 . IA )@@G@@@B@@@@RDIS6 . @F@@@@ TZ IB )@@G@@ PON . TEST PRINT ALREADY ON @C@@@@ J IC )@@G@@ RDIS60 . YES @E@@@@ L,U A0,1 ID )@@G@@ . NO - SET FLAG @B@@@@ S A0,PON . IE )@@G@@@G@@@@ SLJ BCHG . SEE IF THIS BLOCK REQUREIF )@@G@@D @B@@@@RDIS60 . @B@@@@ LMIG )@@G@@J X9,RDIS4 . @I@@@@ L A0,IOAREA+1,X5 IH )@@G@@ . FTR 4-79 @I@@@@ LSSL II )@@G@@ A0,12 . FTR 4-79 @I@@@@IJ )@@G@@ SSL A0,24 . IK )@@G@@FTR 4-79 @I@@@@ LMJ X11,SETLEN . SET PRINT LEIL )@@G@@NGTH FOR PRCORE FTR 3-80 @I@@@@ L A0,IOAREA+1,X5 IM )@@G@@ . FTR 4-79 @I@@@@ LSSL IN )@@G@@ A0,24 . FTR 4-79 @I@@@@IO )@@G@@ SSL A0,24 . IP )@@G@@FTR 4-79 @I@@@@ A,U A0,IOAREA . IQ )@@G@@ FTR 4-79 @B@@@@ S,H2 A0,$+3 IR )@@G@@ . @E@@@@ LMJ X11,PRCORE . PRINT THIS RECORD IS )@@G@@@B@@@@ + LMJPR . @B@@@@ PF IT )@@G@@ 1,0,0 . @B@@@@RDIS8 . IU )@@G@@@F@@@@ TZ EOFTAG . TEST IF EOF ENCOUNTERED IV )@@G@@@D@@@@ J RDIS1D . YES - EXIT @F@@@@ IW )@@G@@ L,H1 A8,IOAREA,X5 . GET NEXT BLOCK NUMBER @F@@@@ IX )@@G@@ TP IOAREA,X5 . SET OFF ANY DELETE FLAG @D@@@@ IY )@@G@@ AN A8,(1*/17) . LIKE SO @G@@@@ TE IZ )@@G@@ A8,A10 . TEST NEXT KEY IN THIS BLOCK @B@@@@ J JA )@@G@@ RDIS9 . @I@@@@ L A0,IOAREA,X5 JB )@@G@@ . YES - GET IT FTR 4-79 @I@@@@ LSSL JC )@@G@@ A0,24 . FTR 4-79 @I@@@@JD )@@G@@ SSL A0,24 . JE )@@G@@FTR 4-79 @I@@@@ L X5,A0 . JF )@@G@@ FTR 4-79 @B@@@@ J RDIS1 JG )@@G@@ . @B@@@@RDIS9 . @E@@@@ L,JH )@@G@@H1 A1,BLKCNT+2 . FROM DATA BLOCKS @E@@@@ L,H2 JI )@@G@@ A2,BLKCNT+2 . TO DATA BLOCKS @E@@@@ TG A2,AJJ )@@G@@8 . TEST TO < NEXT @E@@@@ TG A1,A8 JK )@@G@@ . TEST NEXT > FROM @E@@@@ J RDIS91 JL )@@G@@ . NOT A DATA BLOCK @G@@@@ TE A8,A15 . JM )@@G@@TEST IF DATA BLOCK CHANGES @F@@@@ J 0,X8 JN )@@G@@ . CHANGE OF DATA BLOCK @B@@@@ENDISB JO )@@G@@ . @F@@@@ L A15,A8 . NEW DATA BLOCK NUMJP )@@G@@BER @B@@@@RDIS91 . @G@@@@ L JQ )@@G@@ A0,A8 . SET UP BLOCK NUMBER FOR POSBLK@I@@@@ JR )@@G@@ L A1,IOAREA,X5 . FTR 4-JS )@@G@@79 @I@@@@ LSSL A1,24 . JT )@@G@@ FTR 4-79 @I@@@@ SSL A1,24 . JU )@@G@@NEXT RECORD POINTER FTR 4-79 @D@@@@ TE,U A1,1JV )@@G@@ . TEST FOR = 1@C@@@@ J RDIS92 JW )@@G@@ . NO @H@@@@ LMJ X11,POSBLK . YES - GET BLJX )@@G@@OCK AND START PRINT @B@@@@ J STISB . JY )@@G@@@B@@@@RDIS92 . @I@@@@ L JZ )@@G@@ A0,IOAREA,X5 . FTR 4-79 @I@@@@KA )@@G@@ LSSL A0,24 . KB )@@G@@FTR 4-79 @I@@@@ SSL A0,24 . KC )@@G@@ FTR 4-79 @I@@@@ L X5,A0 KD )@@G@@ . FTR 4-79 @F@@@@ LMJ KE )@@G@@ X11,POSBLK . GET THIS RELATIVE BLOCK @B@@@@ J KF )@@G@@ STISB1 . @B@@@@RDIS10 . KG )@@G@@@F@@@@ TNZ SDN . TEST START DUMP NUMBER KH )@@G@@@C@@@@ J KOK6B . NO @F@@@@ L KI )@@G@@ A0,X4 . CURRENT RECORD LESS 1 @F@@@@ A,KJ )@@G@@U A0,1 . CURRENT RECORD NUMBER @F@@@@ TLKK )@@G@@EM A0,SDN . TEST READY TO START @C@@@@ J KL )@@G@@ KOK6B . NO @E@@@@ SZ SDN KM )@@G@@ . YES - CLEAR FLAG @E@@@@ LMJ X10,DUMPB KN )@@G@@ . DUMP THIS BLOCK @E@@@@ S X10,DBLOK . KO )@@G@@SET DUMPER TAG @B@@@@ J KOK6B . @B@@@@KP )@@G@@RDIS11 . @F@@@@ TNZ EDN KQ )@@G@@ . TEST END DUMP OPTION @C@@@@ J KOK6KR )@@G@@D . NO @F@@@@ L A0,X4 . KS )@@G@@CURRENT RECORD LESS 1 @F@@@@ A,U A0,1 . KT )@@G@@THIS IS CURRENT RECORD @G@@@@ TLEM A0,EDN . KU )@@G@@TEST IF READY TO END DUMP @C@@@@ J KOK6D KV )@@G@@ . NO @E@@@@ SZ EDN . CLEAR SELECTKW )@@G@@OR @E@@@@ SZ DBLOK . AND BLOCK DUMP TAGKX )@@G@@@B@@@@ J KOK6D . @B@@@@POSBLK KY )@@G@@ . @F@@@@ S A0,ACTBLK . KZ )@@G@@SAVE ACTUAL BLOCK NUMBER@B@@@@ AN,U A0,1 . LA )@@G@@@E@@@@ JN A0,ISER1 . BLOCK NUMBER ERROR@B@@@@LB )@@G@@ MSI A0,NSECS . @B@@@@ A,U A0,2LC )@@G@@ . @F@@@@ TNZ MSTYPE . POINT LD )@@G@@TO SECTOR ADDRESS @B@@@@ A,U A0,2 . @I@@@@LE )@@G@@ OFF COBFD>0 . ONLY IF COBOL FD MS REQUIRED LF )@@G@@FTR 2-80 @[@@@@APOSIS@B@@@@ S A0,IOPAK+5 . LG )@@G@@@B@@@@ L,U A0,IOPAK . @F@@@@ ER LH )@@G@@ IOW$ . DO READ OF THIS BLOCK @E@@@@ L,S1 LI )@@G@@ A5,IOPAK+3 . STATUS RETURN @C@@@@ JZ A5,,LJ )@@G@@X11 . OK @C@@@@ J ERRFL . LK )@@G@@BAD @I@@@@ ON COBFD>0 . ONLY IF COBOL FD MLL )@@G@@S REQUIRED FTR 2-80 @B@@@@ISER1 . LM )@@G@@@B@@@@ P$RINT (PF 2,6,TEXT41) . @B@@@@ J LN )@@G@@ PRERRO . @I@@@@ OFF COBFD>0 . LO )@@G@@ONLY IF COBOL FD MS REQUIRED FTR 2-80 @B@@@@ISER3 LP )@@G@@ . @B@@@@ P$RINT (PF 2,4,TEXT50) . @B@@@@LQ )@@G@@ J BEGIN . @[@@@@. @[@@@@. @B@@@@LR )@@G@@. PRINTING FD COBOL (CFH) RANDOM FILES @[@@@@. @[@@@@. @[@@@@LS )@@G@@. @I@@@@ ON COBFD>0 . ONLY IF COBOL FD MLT )@@G@@S REQUIRED FTR 2-80 @B@@@@NOTIS . LU )@@G@@@E@@@@ TZ YPR . TEST Y OPTION @G@@@@LV )@@G@@ J DONOTR . YES - DON'T PRINT AS RANDOM LW )@@G@@@E@@@@ TZ POPT . TEST P OPTION @E@@@@LX )@@G@@ J BEGIN . YES - DONE ALL @F@@@@ LY )@@G@@ L A2,MAXREC . MAX RECORD SIZE + 1 @F@@@@ LZ )@@G@@ TNE A2,MAXBLK . SHOULD BE ALSO MAX BLOCK@C@@@@ MA )@@G@@ J NOTIS1 . IT IS @D@@@@ P$RINT (PF MB )@@G@@2,12,TEXT72) . NOTIFY USER @[@@@@NOTIS1@E@@@@ AN,U A2,1MC )@@G@@ . IT IS 1 HIGHER @E@@@@ DSL A2,36 MD )@@G@@ . CONVERT TO SECTORS@E@@@@ DI,U A2,28 ME )@@G@@ . BY A DIVIDE BY 28 @F@@@@ TZ A3 . MF )@@G@@ROUNDING UP IF NECC @B@@@@ A,U A2,1 . MG )@@G@@@F@@@@ S A2,NSECS . AND SET FOR FUTURE USE MH )@@G@@@B@@@@ L,U A0,2 . @E@@@@ TNZ MI )@@G@@ MSTYPE . TEST IF M-112 @B@@@@ A,U A0,2MJ )@@G@@ . @B@@@@ S,H2 A0,IOPAK+5 . @B@@@@MK )@@G@@ L X5,(1,0) . @B@@@@ L X6,NML )@@G@@BLOCKS . @G@@@@ L A10,MAXREC . PRINT MM )@@G@@ONLY MAX RECORD SIZE @E@@@@ AN,U A10,1 . MN )@@G@@IT IS HELD + 1 @B@@@@ S,H1 A10,IOPAK+4 . @B@@@@MO )@@G@@RARD1 . @B@@@@ L,U A0,IMP )@@G@@OPAK . @F@@@@ ER IOW$ . READ NMQ )@@G@@EXT RECORD(BLOCK) @C@@@@ L,S1 A5,IOPAK+3 . STATUSMR )@@G@@@B@@@@ JZ A5,RARD2 . @B@@@@ P$RINT MS )@@G@@ (PF 3,10,TEXT54) . @B@@@@ J ERRFL . MT )@@G@@@B@@@@RARD2 . @G@@@@ L MU )@@G@@ A0,IOPAK+5 . INCREMENT DRUM READ ADDRESS @B@@@@ A MV )@@G@@ A0,NSECS . @B@@@@ S A0,IOPAK+5 MW )@@G@@ . @F@@@@ TLEM X5,A12 . INCREMENT READ COUMX )@@G@@NT @^@@@@ J $+2 @G@@@@ J ISER3 MY )@@G@@ . NORMAL EOF - COUNT = CFH COUNT@E@@@@ L,U A0,,MZ )@@G@@X5 . RECORD NUMBER @D@@@@ L A1,SBLOCK NA )@@G@@ . START NUMBER@G@@@@ TLE A0,A1 . NB )@@G@@TEST IF PRINTING IS POSSIBLE @F@@@@ J RARD1 NC )@@G@@ . TOO SOON TO START PRINT @B@@@@ JGD X6,$+2 ND )@@G@@ . @B@@@@ J RARD1 . @I@@@@ LMNE )@@G@@J X11,SETLEN . SET PRINT LENGTH FOR PRCORE FTR 3-80 NF )@@G@@@B@@@@ E$DIT EDPK . @B@@@@ E$COPY NG )@@G@@ 14,TEXTS+4 . @E@@@@ L,U A0,,X5 . NH )@@G@@RECORD NUMBER @B@@@@ E$DECV . @B@@@@NI )@@G@@ P$RINT (PF 2,22,PLINE) . @E@@@@ LMJ X11,NJ )@@G@@PRCORE . PRINT THIS RECORD @B@@@@ + LMJPR NK )@@G@@ . @B@@@@ PF 1,0,IOAREA . @B@@@@ NL )@@G@@ J RARD1 . @I@@@@ OFF COBFD>0 NM )@@G@@ . ONLY IF COBOL FD MS REQUIRED FTR 2-80 @B@@@@NOTCFH NN )@@G@@ . @I@@@@ ON COBFD>0 NO )@@G@@ . NEEDED ONLY FD COBOL FTR 3-80 @I@@@@ SPD NP )@@G@@ A0 . SET Q-MODE FTR 3-80 @I@@@@NQ )@@G@@ OR,U A0,010 . NR )@@G@@FTR 3-80 @I@@@@ LPD ,A1 . NS )@@G@@ FTR 3-80 @I@@@@ OFF COBFD>0 NT )@@G@@ . NEEDED ONLY IF FD COBOL FTR 3-80 @B@@@@ L NU )@@G@@ A0,IOAREA . @C@@@@ TZ TAPETAG . NV )@@G@@TAPE? @E@@@@ J TRYTAPES . YES - LOOK THERE NW )@@G@@@I@@@@ TZ OPR . O-OPTION? NX )@@G@@ FTR 3-80 @I@@@@ J AOMIT . ASCII NY )@@G@@LABELS OMITTED FTR 3-80 @E@@@@ TE A0,HDR1 NZ )@@G@@ . ASCII COBOL FILE? @D@@@@ J TRYSDF OA )@@G@@ . NO - TRY SDF@F@@@@ TZ NOLABS . LABEL PROB )@@G@@INT SUPPRESSION? @C@@@@ J AOMITA . YES OC )@@G@@@B@@@@ L,U X9,IOAREA . @F@@@@ LMJ OD )@@G@@ X10,PRBLKA . PRINT ASCII COBOL HDR1 @A@@@@ L,U OE )@@G@@ X9,IOAREA+56 @D@@@@ LMJ X10,PRBLKA . AND EOOF )@@G@@F1 @A@@@@ L,U X9,IOAREA+28 @C@@@@ LMJ OG )@@G@@ X10,PRBLKB . UHL1 @A@@@@ L,U X9,IOAREA+84 OH )@@G@@@C@@@@ LMJ X10,PRBLKB . UTL1 @[@@@@ASC01 @I@@@@OI )@@G@@ L A0,22+IOAREA+56 . LOOK AT FILE GRANULARITY OJ )@@G@@FTR 4-79 @I@@@@ AND,U A0,0777 . OK )@@G@@ FTR 4-79 @I@@@@ S A1,GRANI OL )@@G@@ . SAVE GRANULARITY FTR 4-79 @I@@@@ TNZ OM )@@G@@ A1 . IF ZERO - MUST BE -28 FTR 4-79 @I@@@@ON )@@G@@ L,U A1,28 . ELSE IS -28, -56 OR -112 OO )@@G@@FTR 4-79 @I@@@@ S A1,GRAN . OP )@@G@@ FTR 4-79 @B@@@@ L,H1 A0,23+IOAREA+56 OQ )@@G@@ . @G@@@@ S A0,MAXREC . SET MAX RECORD = MOR )@@G@@AX BLOCK @ @@@@ S A0,MAXBLK @E@@@@ TG,U OS )@@G@@ A0,BUFSIZ+1 . INPROGRAM LIMITS? @D@@@@ J OFFTOT )@@G@@1A . NO - ERROR @I@@@@ A A0,GRAN OU )@@G@@ . MAKE MULTIPLE OF GRANULARITY FTR 4-79 @I@@@@ AN,U OV )@@G@@ A0,1 . FTR 4-79 @E@@@@OW )@@G@@ DSL A0,36 . CONVERT TO SECTORS@I@@@@ OX )@@G@@ DI A0,GRAN . DIVIDE BY GRN- DISCARD REM FTR 4-OY )@@G@@79 @I@@@@ MSI A0,GRAN . MULT BY GRAN/28 OZ )@@G@@ FTR 4-79 @I@@@@ DSL A0,36 . PA )@@G@@ FTR 4-79 @I@@@@ DI,U A0,2PB )@@G@@8 . FTR 4-79 @F@@@@ PC )@@G@@ S A0,NSECS . AND SET FOR FUTURE USE @F@@@@ PD )@@G@@ MSI,U A0,28 . GET ACTUAL WORD COUNT @E@@@@ PE )@@G@@ S,H1 A0,IOPAK+4 . INTO IO PACKET @F@@@@ L,PF )@@G@@U A0,4 . START SECTOR ADDRESS @E@@@@ S,PG )@@G@@H2 A0,IOPAK+5 . SET SECTOR ADDRESS@A@@@@ L PH )@@G@@ A0,20+IOAREA+56 @ @@@@ S A0,EOFSEC @D@@@@ L,PI )@@G@@S6 A0,23+56+IOAREA . TYPE OF FILE@I@@@@ TNE,U A0,0PJ )@@G@@23 . MSAM? FTR 3-80 @I@@@@ PK )@@G@@ J MSAM . YES - DO IT FTR 3-PL )@@G@@80 @^@@@@ AN,U A0,5@F@@@@ JN A0,ASC02 PM )@@G@@ . CHECK FILE TYPE VALID @B@@@@ TLE,U A0,ASCTABLPN )@@G@@+1 . @G@@@@ J ASCTAB,A0 . GO TO ROUTINPO )@@G@@E FOR THIS TYPE @[@@@@ASC02 @G@@@@ P$RINT (PF 2,TEXT98L,TEPP )@@G@@XT98) . INVALID FILE TYPE @ @@@@ J BEGIN PQ )@@G@@@[@@@@AOMIT @H@@@@ P$RINT (PF 02,TXT88L,TEXT88) PR )@@G@@ . OMITTED @[@@@@AOMITA@A@@@@ L,U X9,IOAREA+PS )@@G@@56 @E@@@@ LMJ X10,PRBLKO . PRINT EOF LABEL PT )@@G@@@ @@@@ J ASC01 @[@@@@. @[@@@@. @E@@@@. ASCIPU )@@G@@I COBOL INTERNAL FORMAT TAPE FILE ASSUMED BY O OPTION @[@@@@. @[@@@@PV )@@G@@. @[@@@@ATOMIT@I@@@@ATOMITA . PW )@@G@@ FTR 3-79 @E@@@@ TZ POPT PX )@@G@@ . LABEL PRINT ONLY? @C@@@@ J BEGIN PY )@@G@@ . YES @F@@@@ L X6,NBLOCKS . COUNT OF ITEPZ )@@G@@MS TO PRINT @E@@@@ L,U X8,0 . BLOCK COUNTEQA )@@G@@R @E@@@@ L,U X9,0 . RECORD COUNTER QB )@@G@@@ @@@@ L,U A0,BUFSIZ @ @@@@ S,H1 A0,IOPAK+4QC )@@G@@@H@@@@ S A0,MAXREC . SET HIGH MAX RECORD AND QD )@@G@@MAX BLOCK @ @@@@ S A0,MAXBLK @ @@@@ S QE )@@G@@ A0,EOFSEC @ @@@@ SZ NSECS @ @@@@ SZ QF )@@G@@ IOPAK+5 @G@@@@ L,U A0,MB$ . BACKSPACE THE QG )@@G@@TAPE ONE BLOCK @B@@@@ S,S2 A0,IOPAK+3 . @B@@@@QH )@@G@@ I$OW IOPAK . @G@@@@ L,U A0,RQI )@@G@@$ . AND THEN READ THE WHOLE BLOCK @B@@@@ S,S2 QJ )@@G@@ A0,IOPAK+3 . @B@@@@ I$OW IOPAK . QK )@@G@@@I@@@@ TZ ANS . ANS FORMAT? QL )@@G@@ FTR 3-80 @I@@@@ J ANSTAPES . YES QM )@@G@@ FTR 3-80 @ @@@@ J ASER1A QN )@@G@@@[@@@@. @[@@@@. @^@@@@. NON-CFH TAPE FILE @[@@@@. @[@@@@QO )@@G@@. @]@@@@TRYTAPES @I@@@@. IF THE FIRST TWO WORDS AND THE NEXT ONE QP )@@G@@WORD CAN BE INTERPRETED FTR 3-79 @I@@@@. AS ASCII DISPLAY NUMERQQ )@@G@@IC, THE PROGRAM WILL ASSUME THE FILE IS FTR 3-79 @I@@@@. ASCIQR )@@G@@I COBOL INTERNAL FORMAT TAPE. FTR 3-QS )@@G@@79 @I@@@@. IE ACOB 3 - ASSIGN UNISERVO QT )@@G@@ FTR 3-80 @I@@@@ TZ QOP . QU )@@G@@Q OPTION ON ? FTR 3-79 @I@@@@ J TRYSQV )@@G@@DF . YES- USER SAYS ITS NOT ACOB TAFTR 3-79 @I@@@@ QW )@@G@@ L A0,(1,IOAREA) . CONVERT 1ST 2 WORDS TO BINARY FTR 3-QX )@@G@@79 @I@@@@ L,U A1,8 . QY )@@G@@ FTR 3-79 @I@@@@ LMJ X11,DECTRAN . QZ )@@G@@ FTR 3-79 @I@@@@ JN A1,NRA )@@G@@OTACB . NOT NUMERIC FTR 3-79 @I@@@@ RB )@@G@@ JN A0,NOTACB . NUMERIC BUT NEGATIVE FTR 3-RC )@@G@@79 @I@@@@ JZ A0,NOTACB . NUMERIC BUT ZERO RD )@@G@@ FTR 3-79 @I@@@@ L A0,(1,IOAREA+2) . RE )@@G@@CONVERT NEXT 1 WORD TO BINARY FTR 3-79 @I@@@@ L,U A1,4RF )@@G@@ . FTR 3-79 @I@@@@ RG )@@G@@ LMJ X11,DECTRAN . FTR 3-RH )@@G@@79 @I@@@@ JN A1,NOTACB . NOT NUMERIC RI )@@G@@ FTR 3-79 @I@@@@ JN A0,NOTACB . RJ )@@G@@NUMERIC BUT NEGATIVE FTR 3-79 @I@@@@ JZ A0,NRK )@@G@@OTACB . NUMERIC BUT ZERO FTR 3-79 @I@@@@ RL )@@G@@ P$RINT (PF 02,TEXT99L,TEXT99) . FTR 3-RM )@@G@@79 @I@@@@ J ATOMITA . LOOKS LIKE TAPE RN )@@G@@ FTR 3-79 @I@@@@NOTACB . RO )@@G@@ FTR 3-80 @I@@@@. NOT ACOB 3 INTERNAL FORP )@@G@@RMAT FTR 3-80 @I@@@@. TRYRQ )@@G@@ ACOB 4 (ANS STANDARD) FORMAT - (IE ' ASSIGN TO TAPE ') FTR 3-RR )@@G@@80 @I@@@@. RS )@@G@@ FTR 3-80 @I@@@@ TZ LABNOT . RT )@@G@@YES - UNLABELLED? FTR 3-80 @I@@@@ J ANSDRU )@@G@@ . YES - TRY ANSD FTR 3-80 @I@@@@ RV )@@G@@ L,H1 A0,LABPAK+7 . LABEL INFO ON FILE FORMAT FTR 3-RW )@@G@@80 @I@@@@ AND,U A0,0777 . RX )@@G@@ FTR 3-80 @I@@@@ JZ A1,NOTANS . RY )@@G@@NOT ANS FTR 3-80 @I@@@@ TNE,U A1,0RZ )@@G@@125 . 'U' ? FTR 3-80 @I@@@@ SA )@@G@@ J ANSU . FTR 3-SB )@@G@@80 @I@@@@ TNE,U A1,0106 . 'F' ? SC )@@G@@ FTR 3-80 @I@@@@ J ANSF . SD )@@G@@ FTR 3-80 @I@@@@ TNE,U A1,0SE )@@G@@104 . 'D' ? FTR 3-80 @I@@@@ SF )@@G@@ J ANSD . FTR 3-SG )@@G@@80 @I@@@@ TNE,U A1,0123 . 'S' ? SH )@@G@@ FTR 3-80 @I@@@@ J ANSS . SI )@@G@@ FTR 3-80 @I@@@@NOTANS SJ )@@G@@ . FTR 3-80 @I@@@@ SK )@@G@@ J TRYSDF . NOT ANS - TRY NEXT FORMAT FTR 3-SL )@@G@@80 @I@@@@ANSU . SM )@@G@@ FTR 3-80 @I@@@@. ANS UNDEFINED BLOCK STRUCTURE - PRINT BYSN )@@G@@ BLOCK FTR 3-80 @I@@@@. SO )@@G@@ FTR 3-80 @I@@@@ SP )@@G@@ P$RINT (PF 2,TEXT102L,TEXT102) . FTR 3-SQ )@@G@@80 @I@@@@ J DUMPIT . DUMP BY BLOCK SR )@@G@@ FTR 5-80 @I@@@@ANSF . SS )@@G@@ FTR 3-80 @I@@@@. ANS FIXED BLOCKED OR UST )@@G@@NBLOCKED - PRINT BY BLOCK FTR 3-80 @I@@@@. SU )@@G@@ FTR 3-SV )@@G@@80 @I@@@@ P$RINT (PF 2,TEXT103L,TEXT103) . SW )@@G@@ FTR 3-80 @I@@@@ J DUMPIT . DUSX )@@G@@MP BY BLOCK FTR 5-80 @I@@@@ANSD SY )@@G@@ . FTR 3-80 @I@@@@. VARISZ )@@G@@ABLE - PRINT BY RECORD FTR 3-TA )@@G@@80 @I@@@@. TB )@@G@@ FTR 3-80 @I@@@@ L A0,(1,IOAREA) . TC )@@G@@ FTR 3-80 @I@@@@ L,U A1,4TD )@@G@@ . CHECK IT IS ANS VARIABLE FTR 3-80 @I@@@@ TE )@@G@@ LMJ X11,DECTRAN . 1ST 4 CHARACTERS SHOULD BE NUMFTR 3-TF )@@G@@80 @I@@@@ JN A1,NOTANS . NO TG )@@G@@ CCR OF RCA 3-81 @I@@@@ JN A0,NOTANS . NOTH )@@G@@ CCR OF RCA 3-81 @I@@@@ JZ A0,NTI )@@G@@OTANS . NO - ZERO WONT TO CCR OF RCA 3-81 @I@@@@ TJ )@@G@@ S R12,ANS . SET FLAGS FTR 3-TK )@@G@@80 @I@@@@ S R12,ANSDFLAG . TL )@@G@@ FTR 3-80 @I@@@@ J ATOMITA . TM )@@G@@DO COBOL TYPE THINGS AND THEN FTR 3-80 @I@@@@ANSS TN )@@G@@ . FTR 3-80 @I@@@@. VARITO )@@G@@ABLE SEGMENTED - PRINT BY RECORD FTR 3-TP )@@G@@80 @I@@@@. TQ )@@G@@ FTR 3-80 @I@@@@ L A0,(1,IOAREA) . TR )@@G@@ FTR 3-80 @I@@@@ L,U A1,5TS )@@G@@ . CHECK IT IS ANS SEGMENTED FTR 3-80 @I@@@@ TT )@@G@@ LMJ X11,DECTRAN . 1ST 5 CHARACTERS SHOULD BE NUMFTR 3-TU )@@G@@80 @I@@@@ JN A1,NOTANS . NO TV )@@G@@ CCR OF RCA 3-81 @I@@@@ JN A0,NOTANS . NOTW )@@G@@ CCR OF RCA 3-81 @I@@@@ JZ A0,NTX )@@G@@OTANS . NO - ZERO WONT TO CCR OF RCA 3-81 @I@@@@ TY )@@G@@ S R12,ANS . SET FLAGS FTR 3-TZ )@@G@@80 @I@@@@ S R12,ANSSFLAG . UA )@@G@@ FTR 3-80 @I@@@@ J ATOMITA . UB )@@G@@GO AND PRINT FTR 3-80 @I@@@@ANSTAPES UC )@@G@@ . FTR 3-80 @I@@@@. UD )@@G@@ FTR 3-UE )@@G@@80 @I@@@@. UF )@@G@@ FTR 3-80 @I@@@@. PRINTING ASCII COBOL TAPES - ANS FORMAT UG )@@G@@(ACOB 4 AND ABOVE) FTR 3-80 @I@@@@. BLOCKED/UNBLOCKED SEGMUH )@@G@@ENTED/UNSEGMENTED - RECORD LENGTH PRECEDES FTR 3-80 @I@@@@. EACHUI )@@G@@ RECORD - FOR SEGMENTED THIS IS 5 CHARS THE FIRST INDICATING FTR 3-UJ )@@G@@80 @I@@@@. SEGMENT STATUS UK )@@G@@ FTR 3-80 @I@@@@. UL )@@G@@ FTR 3-80 @I@@@@. UM )@@G@@ FTR 3-80 @I@@@@ANST1 UN )@@G@@ . FTR 3-UO )@@G@@80 @I@@@@ TZ DBLOK . DUMP BLOCK? UP )@@G@@ FTR 3-80 @I@@@@ LMJ X10,DUMPB . UQ )@@G@@YES - DO IT FTR 3-80 @I@@@@ SZ PNOWUR )@@G@@ . CLEAR FLAG FOR BLOCK PRINT FTR 3-80 @I@@@@ US )@@G@@ A,U X8,1 . INC BLOCK COUNT FTR 3-UT )@@G@@80 @I@@@@ TNZ BORR . BLOCK OR RECORD PRUU )@@G@@INT FTR 3-80 @I@@@@ J ANST3 . UV )@@G@@RECORDS FTR 3-80 @I@@@@ L,U A0,,UW )@@G@@X8 . BLOCK NUMBER FTR 3-80 @I@@@@ UX )@@G@@ AN,U A0,1 . FTR 3-UY )@@G@@80 @I@@@@ TG A0,SBLOCK . PRINT YET? UZ )@@G@@ FTR 3-80 @I@@@@ J ANST2 . VA )@@G@@YES - OK. FTR 3-80 @I@@@@ S R12,VB )@@G@@PNOW . NO - CANT PRINT YET FTR 3-80 @I@@@@ VC )@@G@@ J ANST3 . FTR 3-VD )@@G@@80 @I@@@@ANST2 . VE )@@G@@ FTR 3-80 @I@@@@ JGD X6,$+2 . VF )@@G@@DO BLOCKS TO BE DONE FTR 3-80 @I@@@@ J EXPCVG )@@G@@NT . COUNT EXPIRED FTR 3-80 @I@@@@ VH )@@G@@ E$DIT EDPK . FTR 3-VI )@@G@@80 @I@@@@ E$COPY 12,TEXTS . VJ )@@G@@ FTR 3-80 @I@@@@ E$SKIP 6 . VK )@@G@@ FTR 3-80 @I@@@@ E$DECF 4,0,VL )@@G@@X8,U . BLOCK NUMBER FTR 3-80 @I@@@@ VM )@@G@@ E$MSG TEXT87 . FTR 3-VN )@@G@@80 @I@@@@ E$DECV IOPAK+3,,H2 . BLOCK LENGTH VO )@@G@@ FTR 3-80 @I@@@@ E$MSGR . VP )@@G@@ FTR 3-80 @I@@@@ E$OCTV IOPAVQ )@@G@@K+5 . ADDRESS FTR 3-80 @I@@@@ VR )@@G@@ P$RINT (PF 2,22,PLINE) . FTR 3-VS )@@G@@80 @I@@@@ANST3 . VT )@@G@@ FTR 3-80 @I@@@@ L,H2 A0,IOPAK+3 . VU )@@G@@BLOCK LENGTH FTR 3-80 @I@@@@ MSI,U A0,4VV )@@G@@ . FTR 3-80 @I@@@@ VW )@@G@@ L,U X7,,A0 . MAKE IT BLOCK LENGTH IN CHARS FTR 3-VX )@@G@@80 @I@@@@ L,U X5,0 . CHARACTER POINTER VY )@@G@@IN BLOCK FTR 3-80 @I@@@@ANST4 . VZ )@@G@@ FTR 3-80 @I@@@@ JMGI X7,$WA )@@G@@+2 . SPIN DOWN BLOCK FTR 3-80 @I@@@@ WB )@@G@@ J ANST8 . DONE THIS BLOCK FTR 3-WC )@@G@@80 @I@@@@ A,U X9,1 . INCREMENT RECORD CWD )@@G@@OUNTER FTR 3-80 @I@@@@ L,U A1,,X5 . WE )@@G@@GET # CHARS IN RECORD FTR 3-80 @I@@@@ TZ ANSSWF )@@G@@FLAG . FTR 3-80 @I@@@@ WG )@@G@@ A,U A1,1 . FTR 3-WH )@@G@@80 @I@@@@ L A0,(1,IOAREA) . WI )@@G@@ FTR 3-80 @I@@@@ LSSL A1,18 . WJ )@@G@@ FTR 3-80 @I@@@@ A,U A1,4WK )@@G@@ . FTR 3-80 @I@@@@ WL )@@G@@ LMJ X11,DECTRAN . FTR 3-WM )@@G@@80 @I@@@@ JN A1,OUT . ERROR WN )@@G@@ FTR 3-80 @I@@@@ JZ A0,OUT . WO )@@G@@ERROR FTR 3-80 @I@@@@ JN A0,OWP )@@G@@UT . ERROR FTR 3-80 @I@@@@ WQ )@@G@@ TG,U A0,(TOPREC+1)*4 . VALIDATE RECORD SIZE FTR 3-WR )@@G@@80 @I@@@@ J OUT . ERROR WS )@@G@@ FTR 3-80 @I@@@@ S A0,CURLEN . WT )@@G@@RECORD LEN (INC RCW) FTR 3-80 @I@@@@ AN,U A0,4WU )@@G@@ . FTR 3-80 @I@@@@ WV )@@G@@ TZ ANSSFLAG . FTR 3-WW )@@G@@80 @I@@@@ AN,U A0,1 . WX )@@G@@ FTR 3-80 @I@@@@ S A0,CURLENA . WY )@@G@@LENGTH OF RECORD BODY FTR 3-80 @I@@@@ TNZ BORRWZ )@@G@@ . RECORD OR BLOCK PRINT FTR 3-80 @I@@@@ XA )@@G@@ J ANST7 . RECORD FTR 3-XB )@@G@@80 @I@@@@ TZ PNOW . BLOCK - PRINTING OXC )@@G@@N? FTR 3-80 @I@@@@ J ANST6 . XD )@@G@@NO FTR 3-80 @I@@@@ANST5 XE )@@G@@ . FTR 3-80 @I@@@@ XF )@@G@@ E$DIT EDPK . FTR 3-XG )@@G@@80 @I@@@@ E$COPY 14,TEXTS+4 . XH )@@G@@ FTR 3-80 @I@@@@ E$DECV 0,X9,U . XI )@@G@@RECORD NUMBER FTR 3-80 @I@@@@ E$SKIP 6 XJ )@@G@@ . FTR 3-80 @I@@@@ XK )@@G@@ E$COPY 6,TEXTS+2 . FTR 3-XL )@@G@@80 @I@@@@ E$DECV CURLENA . ACTUAL RECORD LENGXM )@@G@@TH FTR 3-80 @I@@@@ E$MSG TEXTSA . XN )@@G@@ FTR 3-80 @I@@@@ TNZ ANSSXO )@@G@@FLAG . FTR 3-80 @I@@@@ XP )@@G@@ J ANST5A . FTR 3-XQ )@@G@@80 @I@@@@ E$MSGR . XR )@@G@@ FTR 3-80 @I@@@@ L A0,CURLEN . XS )@@G@@ FTR 3-80 @I@@@@ DSL A0,3XT )@@G@@6 . FTR 3-80 @I@@@@ XU )@@G@@ DI,U A0,9999 . FTR 3-XV )@@G@@80 @I@@@@ E$DECV . SEGMENT STATUS INDXW )@@G@@ICATOR FTR 3-80 @I@@@@ANST5A . XX )@@G@@ FTR 3-80 @I@@@@ P$RINT (PF XY )@@G@@2,22,PLINE) . FTR 3-80 @I@@@@ XZ )@@G@@ L,U A1,,X5 . POINTER FTR 3-YA )@@G@@80 @I@@@@ A,U A1,4 . GET TO DATA RECORDYB )@@G@@ FTR 3-80 @I@@@@ TZ ANSSFLAG . YC )@@G@@ FTR 3-80 @I@@@@ A,U A1,1YD )@@G@@ . FTR 3-80 @I@@@@ YE )@@G@@ DSL A1,36 . FTR 3-YF )@@G@@80 @I@@@@ DI,U A1,4 . YG )@@G@@ FTR 3-80 @I@@@@ A A1,(1,IOAREA) . YH )@@G@@ FTR 3-80 @I@@@@ A A2,(YI )@@G@@1,0) . FTR 3-80 @I@@@@ YJ )@@G@@ L X1,(1,ANSBUF) . FTR 3-YK )@@G@@80 @I@@@@ L X2,(1,0) . YL )@@G@@ FTR 3-80 @I@@@@ L R1,CURLENA . YM )@@G@@ FTR 3-80 @I@@@@ANST5B YN )@@G@@ . FTR 3-80 @I@@@@ YO )@@G@@ JGD R1,ANST6A . MOVE DATA RECORD TO PRINT BUFFFTR 3-YP )@@G@@80 @I@@@@ SZ A0 . YQ )@@G@@ FTR 3-80 @I@@@@ DO 3 , EX QST,*X2 . YR )@@G@@ZEROISE NEXT 3 CHARS FTR 3-80 @I@@@@ L A0,CYS )@@G@@URLENA . FTR 3-80 @I@@@@ YT )@@G@@ A,U A0,3 . FTR 3-YU )@@G@@80 @I@@@@ DSL A0,36 . YV )@@G@@ FTR 3-80 @I@@@@ DI,U A0,4 . YW )@@G@@#WORDS IN RECORD FTR 3-80 @I@@@@ LMJ X11,YX )@@G@@SETLEN . SET PRINT LENGTH FOR PRCORE FTR 3-80 @I@@@@ YY )@@G@@ LMJ X11,PRCORE . PRINT THE RECORD AS REQUIRED FTR 3-YZ )@@G@@80 @I@@@@ + LMJPR . ZA )@@G@@ FTR 3-80 @I@@@@ PF 1,0,ANSBUF . ZB )@@G@@ FTR 3-80 @I@@@@ANST6 ZC )@@G@@ . FTR 3-80 @I@@@@ ZD )@@G@@ AN X7,CURLEN . POINT TO NEXT RCW FTR 3-ZE )@@G@@80 @I@@@@ A X5,CURLEN . ZF )@@G@@ FTR 3-80 @I@@@@ J ANST4 . ZG )@@G@@ FTR 3-80 @I@@@@ANST6A ZH )@@G@@ . FTR 3-80 @I@@@@ ZI )@@G@@ EX QLD,*A2 . FTR 3-ZJ )@@G@@80 @I@@@@ EX QST,*X2 . ZK )@@G@@ FTR 3-80 @I@@@@ J ANST5B . ZL )@@G@@ FTR 3-80 @I@@@@ANST7 ZM )@@G@@ . FTR 3-80 @I@@@@ ZN )@@G@@ L,U A0,1,X9 . READY TO START PRINT? FTR 3-ZO )@@G@@80 @I@@@@ TG A0,SBLOCK . ZP )@@G@@ FTR 3-80 @I@@@@ J $+2 . ZQ )@@G@@YES FTR 3-80 @I@@@@ J ANSTZR )@@G@@6 . NO FTR 3-80 @I@@@@ ZS )@@G@@ JGD X6,ANST5 . DO UNTIL COUNT EXPIRES FTR 3-ZT )@@G@@80 @I@@@@ J EXPCNT . COUNT EXPIRED ZU )@@G@@ FTR 3-80 @I@@@@ANST8 . ZV )@@G@@ FTR 3-80 @I@@@@ TNZ SDN ZW )@@G@@ . START DUMP NUMBER? FTR 3-80 @I@@@@ ZX )@@G@@ J ANST9 . NO FTR 3-ZY )@@G@@80 @I@@@@ TLEM X9,SDN . IS CURRENT RECORD ZZ )@@G@@IN BLOCK FTR 3-80 @I@@@@ J ANST9 . AA )@@G@@ TO BE DUMPED? - NO FTR 3-80 @I@@@@ SZ SDN AB )@@G@@ . YES FTR 3-80 @I@@@@ AC )@@G@@ S X9,DBLOK . SET TO DUMP FROM HERE ON FTR 3-AD )@@G@@80 @I@@@@ LMJ X10,DUMPB . AND DUMP NOW AE )@@G@@ FTR 3-80 @I@@@@ANST9 . AF )@@G@@ FTR 3-80 @I@@@@ TNZ EDN AG )@@G@@ . END BLOCK NUMBER? FTR 3-80 @I@@@@ AH )@@G@@ J ANST10 . NO FTR 3-AI )@@G@@80 @I@@@@ TLEM X9,EDN . YES - SWITCH OFF NAJ )@@G@@OW? FTR 3-80 @I@@@@ J ANST10 . AK )@@G@@NO FTR 3-80 @I@@@@ SZ EDN AL )@@G@@ . YES - CLEAR FLAGS FTR 3-80 @I@@@@ AM )@@G@@ SZ DBLOK . FTR 3-AN )@@G@@80 @I@@@@ANST10 . AO )@@G@@ FTR 3-80 @I@@@@ I$OW IOPAK . AP )@@G@@READ BLOCK FTR 3-80 @I@@@@ L,S1 A5,IAQ )@@G@@OPAK+3 . STATUS FTR 3-80 @I@@@@ AR )@@G@@ LMJ X11,IOSTAT . CHECK IO STATUS FTR 3-AS )@@G@@80 @I@@@@ J ANEOF . EOF STATUS AT )@@G@@ FTR 3-80 @I@@@@ J ANST1 . AU )@@G@@ FTR 3-80 @I@@@@. AV )@@G@@ FTR 3-80 @I@@@@. PRINAW )@@G@@TING MSAM FILES - ACOB 4 ASSIGN TO DISC -ORGANIZATION INDEXED FTR 3-AX )@@G@@80 @I@@@@. AY )@@G@@ FTR 3-80 @I@@@@. AZ )@@G@@ FTR 3-80 @I@@@@. BA )@@G@@ FTR 3-80 @I@@@@MSAM BB )@@G@@ . FTR 3-BC )@@G@@80 @I@@@@ L,U A0,448 . BD )@@G@@ FTR 3-80 @I@@@@ S,H1 A0,IOPAK+4 . BE )@@G@@ FTR 3-80 @I@@@@ I$OW IOPABF )@@G@@K . READ INFORMATION BLOCK FTR 3-80 @I@@@@ BG )@@G@@ L,H2 A0,IOAREA+2 . READ ENOUGH? FTR 3-BH )@@G@@80 @I@@@@ TLE,U A0,448+1 . BI )@@G@@ FTR 3-80 @I@@@@ J MSAM01 . BJ )@@G@@OK FTR 3-80 @I@@@@ S,H1 A0,IBK )@@G@@OPAK+4 . NO - READ ALL FTR 3-80 @I@@@@ BL )@@G@@ I$OW IOPAK . FTR 3-BM )@@G@@80 @I@@@@MSAM01 . BN )@@G@@ FTR 3-80 @I@@@@ TZ NOLABS . BO )@@G@@LABEL PRINT? FTR 3-80 @I@@@@ J MSAMBP )@@G@@20 . SUPPRESSED FTR 3-80 @I@@@@ BQ )@@G@@ L,Q1 A0,IOAREA+2 . FTR 3-BR )@@G@@80 @I@@@@ MSI,U A0,5 . LENGTH OF IKT BS )@@G@@ FTR 3-80 @I@@@@ L,U X5,IOAREA+014,A0 . BT )@@G@@ FTR 3-80 @I@@@@ P$RINT (PF BU )@@G@@2,TXT08L,TXT08) . FTR 3-80 @I@@@@ BV )@@G@@ LMJ X11,PRCORE . PRINT INFORMATION TABLE FTR 3-BW )@@G@@80 @I@@@@ + INFPR . BX )@@G@@ FTR 3-80 @I@@@@ PF 1,X5,0 . BY )@@G@@ FTR 3-80 @I@@@@ L,Q1 R4,IBZ )@@G@@OAREA+2 . # KEY TYPES FTR 3-80 @I@@@@ CA )@@G@@ L X5,(5,IOAREA+13) . IKT PKT POINTER FTR 3-CB )@@G@@80 @I@@@@MSAM10 . CC )@@G@@ FTR 3-80 @I@@@@ JGD R4,$+2 . CD )@@G@@DO ALL KEYS FTR 3-80 @I@@@@ J MSAMCE )@@G@@20 . DONE FTR 3-80 @I@@@@ CF )@@G@@ E$DIT EDPK . FTR 3-CG )@@G@@80 @I@@@@ E$MSG TXT02 . CH )@@G@@ FTR 3-80 @I@@@@ E$DECV 1,X5,Q1 . CI )@@G@@KEY # FTR 3-80 @I@@@@ E$MSGR CJ )@@G@@ . FTR 3-80 @I@@@@ CK )@@G@@ E$DECV ,X5,H1 . KEY SIZE FTR 3-CL )@@G@@80 @I@@@@ E$MSGR . CM )@@G@@ FTR 3-80 @I@@@@ E$DECV ,X5,H2 . CN )@@G@@WORD # IN RECORD FTR 3-80 @I@@@@ E$MSGR CO )@@G@@ . FTR 3-80 @I@@@@ CP )@@G@@ E$DECV 1,X5,S5 . BIT OFFSET FTR 3-CQ )@@G@@80 @I@@@@ E$MSGR . CR )@@G@@ FTR 3-80 @I@@@@ L A0,('DIS') . CS )@@G@@ FTR 3-80 @I@@@@ TNZ 1,X5CT )@@G@@,Q2 . DUPLICATES COUNT FTR 3-80 @I@@@@ CU )@@G@@ E$FD1 . FTR 3-CV )@@G@@80 @I@@@@ E$MSGR . CW )@@G@@ FTR 3-80 @I@@@@ E$DECV 1,*X5,S4 . CX )@@G@@# LEVELS OF INDEX CURRENTLY FTR 3-80 @I@@@@ P$RINT (PF CY )@@G@@2,22,PLINE) . FTR 3-80 @I@@@@ CZ )@@G@@ J MSAM10 . FTR 3-DA )@@G@@80 @I@@@@MSAM20 . DB )@@G@@ FTR 3-80 @I@@@@ TZ POPT . DC )@@G@@EXIT IF LABEL PRINT ONLY FTR 3-80 @I@@@@ J BEGIDD )@@G@@N . FTR 3-80 @I@@@@ DE )@@G@@ L A0,MSAMK . ALT KEY SPECIFIED FTR 3-DF )@@G@@80 @I@@@@ TG A0,IOAREA+2,,Q1 . DG )@@G@@ FTR 3-80 @I@@@@ J MSAMER1 . DH )@@G@@INVALID ALT KEY SPECIFICATION FTR 3-80 @I@@@@ MSI,U A0,5DI )@@G@@ . 5 WORDS PER IKT ENTRY FTR 3-80 @I@@@@ DJ )@@G@@ L,U X6,IOAREA+13,A0 . POINT TO IKT ENTRY FTR 3-DK )@@G@@80 @I@@@@ L,H1 A0,,X6 . KEY SIZE-BITS DL )@@G@@ FTR 3-80 @I@@@@ DSL A0,36 . DM )@@G@@GET AS WORDS FTR 3-80 @I@@@@ DI,U A0,3DN )@@G@@6 . FTR 3-80 @I@@@@ DO )@@G@@ TZ A1 . FTR 3-DP )@@G@@80 @I@@@@ A,U A0,1 . DQ )@@G@@ FTR 3-80 @I@@@@ S A0,SKL . DR )@@G@@ FTR 3-80 @I@@@@ SZ KEYSDS )@@G@@H . FTR 3-80 @I@@@@ DT )@@G@@ L,U A0,36 . GET SLACK BIT SHIFT COUNT FTR 3-DU )@@G@@80 @I@@@@ AN A0,A1 . DV )@@G@@ FTR 3-80 @I@@@@ TE,U A0,36 . DW )@@G@@ FTR 3-80 @I@@@@ S A0,KDX )@@G@@EYSH . FTR 3-80 @I@@@@ DY )@@G@@ L,Q2 A0,IOAREA+2 . # KEY TYPES WITH DUPLICATES FTR 3-DZ )@@G@@80 @I@@@@ S A0,NDUPS . EA )@@G@@ FTR 3-80 @I@@@@ L,H2 A0,2,X6 . EB )@@G@@ FTR 3-80 @I@@@@ S A0,HEC )@@G@@IBL . FTR 3-80 @I@@@@ ED )@@G@@ TZ,Q2 1,X6 . DUPLICACY FTR 3-EE )@@G@@80 @I@@@@ S R12,MSAMDUP . EF )@@G@@ FTR 3-80 @I@@@@ LMJ X11,ISSET . EG )@@G@@INITIALIZE KEY INFO FTR 3-80 @I@@@@ L A0,MEH )@@G@@AXBLK . FTR 3-80 @I@@@@ EI )@@G@@ S,H1 A0,IOPAK+4 . FTR 3-EJ )@@G@@80 @I@@@@ TNZ MOP . SAVE KEY INFO IF MEK )@@G@@ OPTION FTR 3-80 @I@@@@ J MSAM24 . EL )@@G@@ FTR 3-80 @I@@@@ L,Q1 A4,IEM )@@G@@OAREA+2 . # KEYS FTR 3-80 @I@@@@ EN )@@G@@ TE,U A4,1 . ONLY ONE KEY? FTR 3-EO )@@G@@80 @I@@@@ J MSAM21 . NO - PROCESS ALL EP )@@G@@ FTR 3-80 @I@@@@ SZ MOP . EQ )@@G@@YES - SILLY TO DO TOO MUCH FTR 3-80 @I@@@@ J MSAMER )@@G@@24 . FTR 3-80 @I@@@@MSAM21ES )@@G@@ . FTR 3-ET )@@G@@80 @I@@@@ L A2,(5,IOAREA+13) . KEY POINTER EU )@@G@@ FTR 3-80 @I@@@@ L A3,(1,0) . EV )@@G@@ FTR 3-80 @I@@@@ TLE,U A4,MEW )@@G@@SAMNO+1 . IF TOO MANY ... FTR 3-80 @I@@@@ EX )@@G@@ J MSAM22 . FTR 3-EY )@@G@@80 @I@@@@ P$RINT (PF 2,TXT07L,TXT07) . REPORT AND DEFAULTEZ )@@G@@ TO MAX FTR 3-80 @I@@@@ L,U A4,MSAMNO . FA )@@G@@ FTR 3-80 @I@@@@MSAM22 FB )@@G@@ . FTR 3-80 @I@@@@ FC )@@G@@ S A4,MSAMKC . SAVE NUMBER FTR 3-FD )@@G@@80 @I@@@@MSAM23 . FE )@@G@@ FTR 3-80 @I@@@@ JGD A4,$+2 . FF )@@G@@ FTR 3-80 @I@@@@ J MSAMFG )@@G@@24 . FTR 3-80 @I@@@@ FH )@@G@@ L A0,,A2 . LENGTH,WORD OFFSET FTR 3-FI )@@G@@80 @I@@@@ S A0,MSAMKP,A3 . FJ )@@G@@ FTR 3-80 @I@@@@ L,S5 A0,1,*A2 . FK )@@G@@BIT OFFSET FTR 3-80 @I@@@@ S,S1 A0,MFL )@@G@@SAMKP,*A3 . FTR 3-80 @I@@@@ FM )@@G@@ J MSAM23 . FTR 3-FN )@@G@@80 @I@@@@MSAM24 . FO )@@G@@ FTR 3-80 @I@@@@ E$DIT EDPK . FP )@@G@@ FTR 3-80 @I@@@@ E$MSG TXT0FQ )@@G@@5 . FTR 3-80 @I@@@@ FR )@@G@@ TZ MSAMK . FTR 3-FS )@@G@@80 @I@@@@ J MSAM25 . FT )@@G@@ FTR 3-80 @I@@@@ E$MSGR . FU )@@G@@ FTR 3-80 @I@@@@ J MSAMFV )@@G@@27 . FTR 3-80 @I@@@@MSAM25FW )@@G@@ . FTR 3-FX )@@G@@80 @I@@@@ E$MSG TXT06 . FY )@@G@@ FTR 3-80 @I@@@@ E$DECV MSAMK . FZ )@@G@@ FTR 3-80 @I@@@@MSAM27 GA )@@G@@ . FTR 3-80 @I@@@@ GB )@@G@@ P$RINT (PF 2,22,PLINE) . FTR 3-GC )@@G@@80 @I@@@@ L A0,HIBL . GET TOP INDEX GD )@@G@@ FTR 3-80 @I@@@@MSAM30 . GE )@@G@@ FTR 3-80 @I@@@@ LMJ X11,GF )@@G@@APOSIS . READ BLOCK FTR 3-80 @I@@@@ GG )@@G@@ L,H2 R6,IOAREA . KEY COUNT FTR 3-GH )@@G@@80 @I@@@@ L A0,SKL . GI )@@G@@ FTR 3-80 @I@@@@ A A0,MSAMDUP . GJ )@@G@@ FTR 3-80 @I@@@@ LXI,U X5,1GK )@@G@@,A0 . TOTAL WORD COUNT FOR KEY FTR 3-80 @I@@@@ GL )@@G@@ LXM,U X5,6 . POINTER TO KEY FTR 3-GM )@@G@@80 @I@@@@MSAM35 . GN )@@G@@ FTR 3-80 @I@@@@ JGD R6,$+2 . GO )@@G@@LOOK AT EACH KEY FTR 3-80 @I@@@@ J MSAMGP )@@G@@38 . NOT HERE FTR 3-80 @I@@@@ GQ )@@G@@ L X9,(1,SPK+1) . FTR 3-GR )@@G@@80 @I@@@@ LMJ X11,KEYCHK . COMPARE KEY GS )@@G@@ FTR 3-80 @I@@@@ J MSAM36 . GT )@@G@@LESS - NOT YET FTR 3-80 @I@@@@ J MSAMGU )@@G@@37 . EQUAL - FOUND FTR 3-80 @I@@@@ GV )@@G@@ J MSAM37 . GREATER - FOUND FTR 3-GW )@@G@@80 @I@@@@MSAM36 . GX )@@G@@ FTR 3-80 @I@@@@ NOP ,,*X5 . GY )@@G@@ FTR 3-80 @I@@@@ J MSAMGZ )@@G@@35 . FTR 3-80 @I@@@@MSAM37HA )@@G@@ . FTR 3-HB )@@G@@80 @I@@@@ L,Q1 A0,IOAREA . INDEX TYPE HC )@@G@@ FTR 3-80 @I@@@@ TNE,U A0,2 . HD )@@G@@DETAIL? FTR 3-80 @I@@@@ J MSAMHE )@@G@@40 . YES FTR 3-80 @I@@@@ HF )@@G@@ L,XU A0,IOAREA+2,X5 . NO - FIND ADDRESS OF LOWER LEVFTR 3-HG )@@G@@80 @I@@@@ A A0,SKL . HH )@@G@@ FTR 3-80 @I@@@@ A A0,MSAMDUP . HI )@@G@@ FTR 3-80 @I@@@@ L A0,,HJ )@@G@@A0 . FTR 3-80 @I@@@@ HK )@@G@@ J MSAM30 . AND GO AND SEARCH FTR 3-HL )@@G@@80 @I@@@@MSAM38 . HM )@@G@@ FTR 3-80 @I@@@@ TNZ IOAREA+6 . HN )@@G@@NOT FOUND YET AT THIS LEVEL FTR 3-80 @I@@@@ J ISR0HO )@@G@@11A . MORE BLOCKS? FTR 3-80 @I@@@@ HP )@@G@@ L A0,IOAREA+6 . YES - CONTINUE SEARCH FTR 3-HQ )@@G@@80 @I@@@@ J MSAM30 . HR )@@G@@ FTR 3-80 @I@@@@MSAM40 . HS )@@G@@ FTR 3-80 @I@@@@. HT )@@G@@ FTR 3-80 @I@@@@. NOW HU )@@G@@HAVE FOUND SPECIFIED KEY - DETAIL INDEX AT IOAREA FTR 3-HV )@@G@@80 @I@@@@. X5 POINTS TO KEY (2 BEFORE) HW )@@G@@ FTR 3-80 @I@@@@. R6 IS REMNANT OF KEY COUNTER HX )@@G@@ FTR 3-80 @I@@@@. HY )@@G@@ FTR 3-80 @I@@@@ HZ )@@G@@ L,U A0,IOARE1 . FTR 3-IA )@@G@@80 @I@@@@ LXI A0,MAXBLK . IB )@@G@@ FTR 3-80 @I@@@@ S A0,IOPAK1+4 . IC )@@G@@INITIALIZE FOR DATA IO FTR 3-80 @I@@@@ SZ IOPAID )@@G@@K1+5 . FTR 3-80 @I@@@@ IE )@@G@@ L X4,(1,0) . COUNTER RELTO STPRINTK FTR 3-IF )@@G@@80 @I@@@@ SZ PNOW . PRINT OFF INITIALLIG )@@G@@Y FTR 3-80 @I@@@@MSAM60 . IH )@@G@@ FTR 3-80 @I@@@@ L,XU A0,III )@@G@@OAREA+2,X5 . FTR 3-80 @I@@@@ IJ )@@G@@ A A0,SKL . FTR 3-IK )@@G@@80 @I@@@@ A A0,MSAMDUP . LOOK AT POINTER WOIL )@@G@@RD FTR 3-80 @I@@@@ L,U X7,,A0 . IM )@@G@@SAVE POINTER IN X7 FTR 3-80 @I@@@@ L A1,,IN )@@G@@A0 . FTR 3-80 @I@@@@ IO )@@G@@ SSL A1,24 . GET POSITION VALUE FTR 3-IP )@@G@@80 @I@@@@ JNZ A1,MSAM68 . IF ZERO - ITS DELEIQ )@@G@@TED FTR 3-80 @I@@@@MSAM64 . IR )@@G@@ FTR 3-80 @I@@@@ NOP ,,*XIS )@@G@@5 . ADVANCE POINTERS FTR 3-80 @I@@@@MSAM66IT )@@G@@ . FTR 3-IU )@@G@@80 @I@@@@ JGD R6,MSAM60 . NEXT KEY THIS BLOCIV )@@G@@K FTR 3-80 @I@@@@ L A0,IOAREA+6 . IW )@@G@@END OF BLOCK - GET LINK FTR 3-80 @I@@@@ JZ A0,NIX )@@G@@OK2 . END OF LEVEL FTR 3-80 @I@@@@ IY )@@G@@ LMJ X11,APOSIS . GET BLOCK FTR 3-IZ )@@G@@80 @I@@@@ L A0,SKL . JA )@@G@@ FTR 3-80 @I@@@@ A A0,MSAMDUP . JB )@@G@@ FTR 3-80 @I@@@@ LXI,U X5,1JC )@@G@@,A0 . FTR 3-80 @I@@@@ JD )@@G@@ LXM,U X5,6 . KEY POINTERS FTR 3-JE )@@G@@80 @I@@@@ L,H2 R6,IOAREA . KEY COUNT JF )@@G@@ FTR 5-80 @I@@@@ J MSAM66 . JG )@@G@@ FTR 3-80 @I@@@@MSAM68 JH )@@G@@ . FTR 3-80 @I@@@@ JI )@@G@@ TNZ EPK . EWD PRINT KEY? FTR 3-JJ )@@G@@80 @I@@@@ J MSAM70 . NO JK )@@G@@ FTR 3-80 @I@@@@ L X9,(1,EPK+1) . JL )@@G@@ FTR 3-80 @I@@@@ LMJ X11,JM )@@G@@KEYCHK . YES - GOT TO IT? FTR 3-80 @I@@@@ JN )@@G@@ J MSAM70 . LESS - CONTINUE FTR 3-JO )@@G@@80 @I@@@@ J MSAM70 . EQUAL - CONTINUE JP )@@G@@ FTR 3-80 @I@@@@ J ISER3 . JQ )@@G@@GREATER - DONE FTR 3-80 @I@@@@MSAM70 JR )@@G@@ . FTR 3-80 @I@@@@ JS )@@G@@ TLEM X4,SBLOCK . NO - READY YET? FTR 3-JT )@@G@@80 @I@@@@ J MSAM64 . NO - CONTINUE JU )@@G@@ FTR 3-80 @I@@@@ S R12,PNOW . JV )@@G@@YES - START NOW FTR 3-80 @I@@@@ JGD X6,$JW )@@G@@+2 . COUNT CONTROL FTR 3-80 @I@@@@ JX )@@G@@ J ISER3 . DONE FTR 3-JY )@@G@@80 @I@@@@ L A0,,X7 . JZ )@@G@@ FTR 3-80 @I@@@@ DSL A0,24 . KA )@@G@@GET DATA BLOCK POINTER FTR 3-80 @I@@@@ SSL A1,1KB )@@G@@2 . FTR 3-80 @I@@@@ KC )@@G@@ TNE,H2 A1,IOPAK1+5 . GOT IT IN NOW? FTR 3-KD )@@G@@80 @I@@@@ J MSAM74 . YES KE )@@G@@ FTR 3-80 @I@@@@ S A1,IOPAK1+5 . KF )@@G@@NO - READ IT FTR 3-80 @I@@@@ I$OW IOPAKG )@@G@@K1 . FTR 3-80 @I@@@@ KH )@@G@@ L,S1 A5,IOPAK1+3 . FTR 3-KI )@@G@@80 @I@@@@ JNZ A5,ERRFL . IO ERROR KJ )@@G@@ FTR 3-80 @I@@@@ L A0,,X7 . KK )@@G@@ FTR 3-80 @I@@@@ DSL A0,2KL )@@G@@4 . FTR 3-80 @I@@@@ KM )@@G@@ SSL A1,12 . FTR 3-KN )@@G@@80 @I@@@@MSAM74 . KO )@@G@@ FTR 3-80 @I@@@@ AN,U A0,1 . KP )@@G@@ FTR 3-80 @I@@@@ MSI,U A0,2KQ )@@G@@ . GET BLOCK RELATIVE POINTER FTR 3-80 @I@@@@ KR )@@G@@ A,Q2 A0,IOARE1+2 . FTR 3-KS )@@G@@80 @I@@@@ L,U X7,,A0 . AND THENCE RECORD KT )@@G@@CONTROL WORDFTR 3-80 @I@@@@ E$DIT EDPK . KU )@@G@@ FTR 3-80 @I@@@@ E$MSG TXT0KV )@@G@@4 . FTR 3-80 @I@@@@ KW )@@G@@ E$DECV ,X4,U . FTR 3-KX )@@G@@80 @I@@@@ E$SKIP 2 . KY )@@G@@ FTR 3-80 @I@@@@ E$MSGR . KZ )@@G@@ FTR 3-80 @I@@@@ L,H1 A0,ILA )@@G@@OARE1,X7 . RECORD LENGTH FTR 5-80 @I@@@@ LB )@@G@@ AN A0,NDUPS . - INCLUDES # KEYS WITH DUPLICATEFTR 5-LC )@@G@@80 @I@@@@ E$DECV . LD )@@G@@ FTR 5-80 @I@@@@ E$MSGR . LE )@@G@@ FTR 3-80 @I@@@@ EDEX LF )@@G@@ . FTR 3-80 @I@@@@ LG )@@G@@ TNZ MOP . M OPTION? FTR 3-LH )@@G@@80 @I@@@@ J MSAM79 . NO LI )@@G@@ FTR 3-80 @I@@@@ S X5,MSAMSAVE . LJ )@@G@@YES - PRINT ALL KEYS FTR 3-80 @I@@@@ L A0,SLK )@@G@@KL . SAVE RELEVANT INFO FTR 3-80 @I@@@@ LL )@@G@@ S A0,SKLSAV . FTR 3-LM )@@G@@80 @I@@@@ L X8,(1,0) . LN )@@G@@ FTR 3-80 @I@@@@ L R8,MSAMKC . LO )@@G@@ FTR 3-80 @I@@@@ L,U X5,MLP )@@G@@SAMKA-2-IOAREA . POINTER TO KEY STORE FTR 3-80 @I@@@@MSAM75LQ )@@G@@ . FTR 3-LR )@@G@@80 @I@@@@ JGD R8,$+2 . DO ALL KEYS LS )@@G@@ FTR 3-80 @I@@@@ J MSAM78 . LT )@@G@@DONE FTR 3-80 @I@@@@ L,H2 A3,ILU )@@G@@OARE1,X7 . FIND RECORD AREA FTR 3-80 @I@@@@ LV )@@G@@ A A3,NDUPS . FTR 3-LW )@@G@@80 @I@@@@ A,U A3,IOARE1 . LX )@@G@@ FTR 3-80 @I@@@@ A,H2 A3,MSAMKP,X8 . LY )@@G@@WORD IN REC OF 1ST OF KEY FTR 3-80 @I@@@@ LXI,U A3,1LZ )@@G@@ . FTR 3-80 @I@@@@ MA )@@G@@ L A0,MSAMKP,X8 . FTR 3-MB )@@G@@80 @I@@@@ LSSL A0,6 . MC )@@G@@ FTR 3-80 @I@@@@ SSL A0,24 . MD )@@G@@ FTR 3-80 @I@@@@ A,U A0,3ME )@@G@@5 . FTR 3-80 @I@@@@ MF )@@G@@ DSL A0,36 . FTR 3-MG )@@G@@80 @I@@@@ DI,U A0,36 . MH )@@G@@ FTR 3-80 @I@@@@ L R7,A0 . MI )@@G@@# WORDS TO KEY FTR 3-80 @I@@@@ L,S1 A2,MMJ )@@G@@SAMKP,X8 . FTR 3-80 @I@@@@ MK )@@G@@ L A1,(1,0) . FTR 3-ML )@@G@@80 @I@@@@MSAM76 . MM )@@G@@ FTR 3-80 @I@@@@ JGD R7,$+2 . MN )@@G@@ FTR 3-80 @I@@@@ J MSAMMO )@@G@@77 . FTR 3-80 @I@@@@ MP )@@G@@ DL A4,,*A3 . FTR 3-MQ )@@G@@80 @I@@@@ LDSL A4,,A2 . TRANSFER KEY TO PRMR )@@G@@INT AREA FTR 3-80 @I@@@@ S A4,MSAMKA,*A1 . MS )@@G@@ FTR 3-80 @I@@@@ J MSAMMT )@@G@@76 . FTR 3-80 @I@@@@MSAM77MU )@@G@@ . FTR 3-MV )@@G@@80 @I@@@@ L,H1 A0,MSAMKP,X8 . MW )@@G@@ FTR 3-80 @I@@@@ AND,U A0,0777 . MX )@@G@@GET AS WORDS FTR 3-80 @I@@@@ SZ A0 MY )@@G@@ . FTR 3-80 @I@@@@ MZ )@@G@@ DI,U A0,36 . FTR 3-NA )@@G@@80 @I@@@@ TZ A1 . NB )@@G@@ FTR 3-80 @I@@@@ A,U A0,1 . NC )@@G@@ FTR 3-80 @I@@@@ S A0,SND )@@G@@KL . FTR 3-80 @I@@@@ NE )@@G@@ SZ KEYSH . FTR 3-NF )@@G@@80 @I@@@@ L,U A0,36 . GET SLACK BIT SHIFNG )@@G@@T COUNT FTR 3-80 @I@@@@ AN A0,A1 . NH )@@G@@ FTR 3-80 @I@@@@ TE,U A0,3NI )@@G@@6 . FTR 3-80 @I@@@@ NJ )@@G@@ S A0,KEYSH . FTR 3-NK )@@G@@80 @I@@@@ E$SKIP 6 . NL )@@G@@ FTR 3-80 @I@@@@ E$DECV ,*X8,U . NM )@@G@@KEY # FTR 3-80 @I@@@@ E$COPY 6,TENN )@@G@@XT52 . FTR 3-80 @I@@@@ NO )@@G@@ LMJ X11,PRKEY . GOT KEY - PRINT IT FTR 3-NP )@@G@@80 @I@@@@ E$CLEAR . NQ )@@G@@ FTR 3-80 @I@@@@ J MSAM75 . NR )@@G@@ FTR 3-80 @I@@@@MSAM78 NS )@@G@@ . FTR 3-80 @I@@@@ NT )@@G@@ L X5,MSAMSAVE . RESTORE FTR 3-NU )@@G@@80 @I@@@@ L A0,SKLSAV . NV )@@G@@ FTR 3-80 @I@@@@ S A0,SKL . NW )@@G@@ FTR 3-80 @I@@@@ J MSAMNX )@@G@@80 . FTR 3-80 @I@@@@MSAM79NY )@@G@@ . FTR 3-NZ )@@G@@80 @I@@@@ E$COPY 6,TEXT52 . OA )@@G@@ FTR 3-80 @I@@@@ LMJ X11,PRKEY . OB )@@G@@PRINT KEY FTR 3-80 @I@@@@MSAM80 OC )@@G@@ . FTR 3-80 @I@@@@ OD )@@G@@ L,H1 A0,IOARE1,X7 . FTR 3-OE )@@G@@80 @I@@@@ AN A0,NDUPS . - INCLUDES # KEYS WIOF )@@G@@TH DUPLICATEFTR 5-80 @I@@@@ LMJ X11,SETLEN . OG )@@G@@SET PRINT LENGTH FOR PRCORE FTR 3-80 @I@@@@ L,H2 X9,IOH )@@G@@OARE1,X7 . PRINT ADDRESS . FTR 3-80 @I@@@@ OI )@@G@@ A X9,NDUPS . OFFSET BY # KEYS WITH DUPLICATFTR 3-OJ )@@G@@80 @I@@@@ LMJ X11,PRCORE . PRINT IT . OK )@@G@@ FTR 3-80 @I@@@@ + LMJPR . OL )@@G@@ FTR 3-80 @I@@@@ PF 1,X9OM )@@G@@,IOARE1 . FTR 3-80 @I@@@@ ON )@@G@@ J MSAM64 - DO NEXT . FTR 3-OO )@@G@@80 @I@@@@MSAMER1 . OP )@@G@@ FTR 3-80 @I@@@@ P$RINT (PF 2,TXT03L,TXT03) . OQ )@@G@@ FTR 3-80 @I@@@@ J BEGIOR )@@G@@N . FTR 3-80 @B@@@@ASERIAOS )@@G@@L . @[@@@@. @[@@@@. @A@@@@. PRINOT )@@G@@TING ASCII COBOL SERIAL FILES @[@@@@. @[@@@@. @E@@@@ TZOU )@@G@@ POPT . LABLE ONLY PRINT? @C@@@@ J OV )@@G@@ BEGIN . YES @H@@@@ L X6,NBLOCKS OW )@@G@@ . NUMBER OF BLOCKS OR RECORDS TO PRINT@E@@@@ L,U X8,0OX )@@G@@ . BLOCK COUNTER @E@@@@ L,U X9,0 OY )@@G@@ . RECORD COUNTER @D@@@@ TNZ TAPETAG OZ )@@G@@ . TAPE FILE? @C@@@@ J ASER1 . NOT TAPEPA )@@G@@@G@@@@ L,U A0,BUFSIZ . TAPE - SET UP READ BLOCK SPB )@@G@@IZE @B@@@@ S,H1 A0,IOPAK+4 . @B@@@@ASER1 PC )@@G@@ . @E@@@@ TZ EOMRK PD )@@G@@ . EOF ENCOUNTERED? @D@@@@ J ANEOF . PE )@@G@@END OF FILE @B@@@@ L A0,IOPAK+5 . @E@@@@ PF )@@G@@ TG A0,EOFSEC . SOFTWARE EOF? @C@@@@ J PG )@@G@@ NOK2 . YES @]@@@@ASER1B . @D@@@@ I$PH )@@G@@OW IOPAK . READ BLOCK @C@@@@ L,S1 A5,IPI )@@G@@OPAK+3 . STATUS@E@@@@ LMJ X11,IOSTAT . PJ )@@G@@CHECK IO STATUS @D@@@@ J ANEOF . EOF STPK )@@G@@ATUS @[@@@@ASER1A@D@@@@ TZ DBLOK . DUMP BPL )@@G@@LOCK? @D@@@@ LMJ X10,DUMPB . YES - DO IT @G@@@@PM )@@G@@ SZ PNOW . CLEAR FLAG FOR BLOCK PRINT PN )@@G@@@E@@@@ A,U X8,1 . INC BLOCK COUNT @F@@@@PO )@@G@@ TNZ BORR . BLOCK OR RECORD PRINT @D@@@@PP )@@G@@ J ASER3 . RECORDS @D@@@@ L,PQ )@@G@@U A0,,X8 . BLOCK NUMBER@^@@@@ AN,U A0,1PR )@@G@@@D@@@@ TG A0,SBLOCK . PRINT YET? @D@@@@ PS )@@G@@ J ASER2 . YES - OK. @F@@@@ S PT )@@G@@ R12,PNOW . NO - CANT PRINT YET @ @@@@ J PU )@@G@@ ASER3 @B@@@@ASER2 . @F@@@@ PV )@@G@@ JGD X6,$+2 . DO BLOCKS TO BE DONE @E@@@@ PW )@@G@@ J EXPCNT . COUNT EXPIRED @B@@@@ E$PX )@@G@@DIT EDPK . @B@@@@ E$COPY 12,TEXTS PY )@@G@@ . @B@@@@ E$SKIP 6 . @D@@@@ E$PZ )@@G@@DECF 4,0,X8,U . BLOCK NUMBER@ @@@@ E$MSG TEXTQA )@@G@@87 @G@@@@ ASCBIN2 IOAREA . GET BLOCK LENGTH IQB )@@G@@N BINARY @B@@@@ E$DECV . @#@@@@ QC )@@G@@ E$MSGR @C@@@@ E$OCTV IOPAK+5 . ADDRESS @B@@@@QD )@@G@@ P$RINT (PF 2,22,PLINE) . @B@@@@ASER3 QE )@@G@@ . @F@@@@ ASCBIN2 IOAREA . BLOCK QF )@@G@@LENGTH IN BINARY @B@@@@ L X7,A0 . @E@@@@QG )@@G@@ AN,U X7,1 . LESS 1 FOR BCW @B@@@@ QH )@@G@@ TZ TAPETAG . @F@@@@ AN,U X7,1 QI )@@G@@ . TAPES HAVE 2-WORD BCW @G@@@@ L,U X5,1 QJ )@@G@@ . POINTER TO RECORD CONTROL WORD @E@@@@ TZ TAPEQK )@@G@@TAG . ADD 1 IF TAPE @B@@@@ A,U X5,1 QL )@@G@@ . @B@@@@ASER4 . @E@@@@ QM )@@G@@ JMGI X7,$+2 . SPIN DOWN BLOCK @E@@@@ J QN )@@G@@ ASER8 . DONE THIS BLOCK @F@@@@ A,U QO )@@G@@ X9,1 . INCREMENT RECORD COUNTER@F@@@@ TNZ QP )@@G@@ BORR . RECORD OR BLOCK PRINT @C@@@@ J QQ )@@G@@ ASER7 . RECORD@F@@@@ TZ PNOW QR )@@G@@ . BLOCK - PRINTING ON? @C@@@@ J ASER6 QS )@@G@@ . NO @B@@@@ASER5 . @B@@@@ QT )@@G@@ E$DIT EDPK . @B@@@@ E$COPY 14,TEXTS+4QU )@@G@@ . @E@@@@ E$DECV 0,X9,U . RECORD NUMBEQV )@@G@@R @B@@@@ E$SKIP 6 . @B@@@@ E$QW )@@G@@COPY 6,TEXTS+2 . @F@@@@ ASCBIN1 IOAREA,X5,H2 QX )@@G@@ . RECORD LENGTH IN BINARY @D@@@@ AN,U A0,1 QY )@@G@@ . LESS RCW @B@@@@ E$DECV . @B@@@@QZ )@@G@@ E$COPY 6,TEXTS+3 . @C@@@@ TZ TAPERA )@@G@@TAG . TAPE? @I@@@@ J ASER5A . RB )@@G@@YES - SKIP ORIGINAL LENGTH PROCESSING @F@@@@ L,H2 A0,IRC )@@G@@OAREA,X5 . ORIGINAL RECORD LENGTH @G@@@@ TNE,H1 A0,IRD )@@G@@OAREA,X5 . PRINT ONLY IF NOT AS ACTUAL @D@@@@ J RE )@@G@@ ASER5A . NO PRINT @B@@@@ E$SKIP 10 RF )@@G@@ . @B@@@@ E$COPY 10,('ORIGINAL: ') . @C@@@@ RG )@@G@@ L,H1 A0,IOAREA,X5 . LENGTH@D@@@@ AN,U A0,1RH )@@G@@ . LESS RCW @#@@@@ E$DECV @B@@@@ASER5A RI )@@G@@ . @B@@@@ P$RINT (PF 2,22,PLINE) RJ )@@G@@ . @F@@@@ ASCBIN1 IOAREA,X5,H1 . RECORD LENGTH IN BRK )@@G@@INARY @D@@@@ AN,U A0,1 . LESS RCW @I@@@@RL )@@G@@ TN A0 . CHECK REC LEN IS VALID RM )@@G@@FTR 4-79 @I@@@@ TG A0,MAXBLK . RN )@@G@@ FTR 4-79 @I@@@@ J OUT RO )@@G@@ . NO - ABORT FTR 4-79 @I@@@@ LMJ RP )@@G@@ X11,SETLEN . SET PRINT LENGTH FOR PRCORE FTR 3-80 @G@@@@RQ )@@G@@ LMJ X11,PRCORE . PRINT THE RECORD AS REQUIRED RR )@@G@@@B@@@@ + LMJPR . @I@@@@ PF RS )@@G@@ 1,X5,IOAREA+1 . PRINT PARAMETER FTR 3-80 @B@@@@RT )@@G@@ASER6 . @H@@@@ ASCBIN1 IOARRU )@@G@@EA,X5,H1 . ORIGINAL RECORD LENGTH IN BINARY @I@@@@ TNRV )@@G@@ A0 . CHECK VALID WORD COUNT FTR 4-79 RW )@@G@@@I@@@@ TG A0,MAXBLK . RX )@@G@@ FTR 4-79 @I@@@@ J OUT . NO - ERY )@@G@@RROR FTR 4-79 @E@@@@ AN X7,A0 RZ )@@G@@ . POINT TO NEXT RCW @B@@@@ A X5,A0 SA )@@G@@ . @B@@@@ J ASER4 . @B@@@@ASER7 SB )@@G@@ . @F@@@@ L,U A0,1,X9 SC )@@G@@ . READY TO START PRINT? @B@@@@ TG A0,SBLOCK SD )@@G@@ . @C@@@@ J $+2 . YES @C@@@@ SE )@@G@@ J ASER6 . NO @F@@@@ JGD X6,ASF )@@G@@SER5 . DO UNTIL COUNT EXPIRES @E@@@@ J EXPCSG )@@G@@NT . COUNT EXPIRED @B@@@@ASER8 SH )@@G@@ . @E@@@@ TNZ SDN . START DUMP NSI )@@G@@UMBER?@C@@@@ J ASER9 . NO @G@@@@ SJ )@@G@@ TLEM X9,SDN . IS CURRENT RECORD IN BLOCK @F@@@@SK )@@G@@ J ASER9 . TO BE DUMPED? - NO @C@@@@SL )@@G@@ SZ SDN . YES @F@@@@ S SM )@@G@@ X9,DBLOK . SET TO DUMP FROM HERE ON@D@@@@ LMJ SN )@@G@@ X10,DUMPB . AND DUMP NOW@B@@@@ASER9 SO )@@G@@ . @E@@@@ TNZ EDN . END BLOCK NUSP )@@G@@MBER? @C@@@@ J ASER10 . NO @F@@@@ SQ )@@G@@ TLEM X9,EDN . YES - SWITCH OFF NOW? @C@@@@ SR )@@G@@ J ASER10 . NO @E@@@@ SZ EDN SS )@@G@@ . YES - CLEAR FLAGS @B@@@@ SZ DBLOK ST )@@G@@ . @B@@@@ASER10 . @H@@@@ SU )@@G@@ TZ TAPETAG . DON'T UPDATE SECTOR ADDRESS FOR TAPESV )@@G@@@B@@@@ J ASER1B . @G@@@@ L SW )@@G@@ A0,IOAREA . INC READ ADDRESS TO NEXT BLOCK@I@@@@ A SX )@@G@@ A0,GRAN . MAKE MULTIPLE OF GRANULARITY FTR 4-79 SY )@@G@@@I@@@@ AN,U A0,1 . SZ )@@G@@ FTR 4-79 @B@@@@ DSL A0,36 . @I@@@@TA )@@G@@ DI A0,GRAN . DIVIDE BY GRN- DISCARD REM TB )@@G@@FTR 4-79 @I@@@@ MSI A0,GRAN . MULT BY GRANTC )@@G@@/28 FTR 4-79 @I@@@@ DSL A0,36 TD )@@G@@ . FTR 4-79 @B@@@@ DI,U TE )@@G@@ A0,28 . @B@@@@ A A0,IOPAK+5 . TF )@@G@@@B@@@@ S A0,IOPAK+5 . @B@@@@ J TG )@@G@@ ASER1 . @B@@@@IOSTAT . TH )@@G@@@E@@@@ JZ A5,1,X11 . STATUS = 0 OK @B@@@@TI )@@G@@ TE,U A5,5 . @C@@@@ TNE,U A5,1TJ )@@G@@ . EOF? @C@@@@ J IOSTAT1 . TK )@@G@@YES @G@@@@ TZ TAPETAG . IF NOT TAPE WE HAVTL )@@G@@E ERROR @C@@@@ TE,U A5,4 . AFC? @D@@@@TM )@@G@@ J ERRFL . NO - ERROR @D@@@@ J TN )@@G@@ 1,X11 . AFC IS OK @B@@@@IOSTAT1 TO )@@G@@ . @D@@@@ S R12,EOMRK . SET EOTP )@@G@@F TAG @E@@@@ TZ,H2 IOPAK+3 . ANY DATA READ? TQ )@@G@@@E@@@@ J 1,X11 . YES - DO THAT @C@@@@TR )@@G@@ J 0,X11 . NO @B@@@@ANEOF TS )@@G@@ . @C@@@@ J NOK2 . TT )@@G@@END @]@@@@ADIRECT @[@@@@. @[@@@@. @B@@@@. PRINTING OF ASCITU )@@G@@I COBOL DIRECT FILES @[@@@@. @[@@@@. @E@@@@ TZ TV )@@G@@ POPT . TEST P OPTION @E@@@@ J BEGITW )@@G@@N . YES - DONE ALL @D@@@@ L A0,SBLOCK TX )@@G@@ . YES - USE THAT@F@@@@ L,U X5,1,A0 . TY )@@G@@START RECORD NUMBER @^@@@@ LXI,U X5,1@ @@@@ MSTZ )@@G@@I A0,NSECS @E@@@@ A,U A0,4 . 4 SECTORUA )@@G@@S FOR LABLES@B@@@@ S,H2 A0,IOPAK+5 . @D@@@@ UB )@@G@@ L X6,NBLOCKS . PRINT COUNT @G@@@@ L UC )@@G@@ A0,MAXREC . PRINT ONLY MAX RECORD SIZE @B@@@@ S,UD )@@G@@H1 A0,IOPAK+4 . @B@@@@ADIR1 UE )@@G@@ . @E@@@@ I$OW IOPAK . READ NEXT RECORD UF )@@G@@@C@@@@ L,S1 A5,IOPAK+3 . STATUS@B@@@@ JZUG )@@G@@ A5,ADIR2 . @B@@@@ P$RINT (PF 3,10,TEXT54)UH )@@G@@ . @B@@@@ J ERRFL . @B@@@@ADIR2 UI )@@G@@ . @B@@@@ JGD X6,$+2 UJ )@@G@@ . @D@@@@ J EXPCNT . EXPIRED @B@@@@UK )@@G@@ E$DIT EDPK . @B@@@@ E$COPY 14,TUL )@@G@@EXTS+4 . @E@@@@ E$DECV ,X5,U . RECORDUM )@@G@@ NUMBER @ @@@@ E$MSG TEXT87 @C@@@@ L,H2 UN )@@G@@ A0,IOAREA+1 . LENGTH@D@@@@ AN,U A0,1 UO )@@G@@ . LESS RCW @B@@@@ E$DECV . @#@@@@UP )@@G@@ E$MSGR @C@@@@ E$OCTV IOPAK+5 . ADDRESS UQ )@@G@@@B@@@@ P$RINT (PF 4,22,PLINE) . @E@@@@ L,H2 UR )@@G@@ A0,IOAREA+1 . RECORD LENGTH @F@@@@ TG A0,MUS )@@G@@AXREC . RECORD LENGTH TOO LARGE? @E@@@@ J OUT UT )@@G@@ . YES - ABORT PRINT @D@@@@ AN,U A0,1 UU )@@G@@ . LESS RCW @I@@@@ LMJ X11,SETLEN . UV )@@G@@SET PRINT LENGTH FOR PRCORE FTR 3-80 @E@@@@ LMJ X11,UW )@@G@@PRCORE . PRINT THIS RECORD @B@@@@ + LMJPR UX )@@G@@ . @B@@@@ PF 1,0,IOAREA+2 . @E@@@@ UY )@@G@@ NOP ,,*X5 . INCREMENT POINTER @G@@@@ L UZ )@@G@@ A0,IOPAK+5 . INCREMENT DRUM READ ADDRESS @B@@@@ VA )@@G@@ A A0,NSECS . @B@@@@ S A0,IOPAK+5VB )@@G@@ . @D@@@@ TG A0,EOFSEC . OVER EOF? VC )@@G@@@C@@@@ J NOK2 . YES @B@@@@ J VD )@@G@@ ADIR1 . @[@@@@AIS @[@@@@. @[@@@@. @D@@@@VE )@@G@@. PRINTING OF ASCII COBOL INDEXED SEQUENTIAL FILES @[@@@@. @[@@@@VF )@@G@@. @F@@@@ TZ NOLABS . SKIP IF NO LABEL PVG )@@G@@RINT @^@@@@ J AIS1@^@@@@ E$DIT EDPK@ @@@@VH )@@G@@ E$MSG TEXT89 @D@@@@ L,H2 A0,IOAREA+56+23 VI )@@G@@ . KEY LENGTH @^@@@@ SSL A0,9@#@@@@ E$DECV VJ )@@G@@@#@@@@ E$MSGR @D@@@@ L,S6 A0,IOAREA+56+25 . SHVK )@@G@@IFT FACTOR @#@@@@ E$DECV @I@@@@ E$MSGR VL )@@G@@ . FTR 4-79 @I@@@@ E$VM )@@G@@OCTV IOAREA+56+21 . HIGHEST INDEX ADDRESS FTR 4-79 VN )@@G@@@A@@@@ P$RINT (PF 2,22,PLINE) @[@@@@AIS1 @G@@@@ LMVO )@@G@@J X11,ISSET . SET UP FIRST KEY IF NECCESSARY@A@@@@ VP )@@G@@ LMJ X11,SETUPIS1 @F@@@@ SZ PNOW VQ )@@G@@ . CLEAR PRINTING ON FLAG @D@@@@ L,H2 A0,IOAREA+56+23 VR )@@G@@ . KEY LENGTH @^@@@@ SSL A0,9@B@@@@ S VS )@@G@@ A0,SKL . @E@@@@ L A0,IOAREA+56+21 . VT )@@G@@HIGHEST INDEX @ @@@@ S A0,HIBL @D@@@@ L,VU )@@G@@S6 A0,IOAREA+56+25 . SHIFT FACTOR @ @@@@ S A0,KVV )@@G@@EYSH @I@@@@ L X4,(1,0) . RECORD # (REL TO SVW )@@G@@TART OR START VERB) @G@@@@ TNZ WPR . VX )@@G@@RANDOM ACCESS? (START VERB) @E@@@@ J AIS17 VY )@@G@@ . NO - SEQUENTIAL @[@@@@. @G@@@@. THE FOLLOWING CODE IS THE EQVZ )@@G@@UIVALENT OF AN ASCII COBOL START ON AN @]@@@@. IS FILE @[@@@@. WA )@@G@@@G@@@@ L A0,HIBL . HIGHEST INDEX BLOCK ADDRWB )@@G@@ESS @B@@@@AIS3 . @F@@@@ LMWC )@@G@@J X11,APOSIS . GET THAT BLOCK INTO CORE@E@@@@ L,WD )@@G@@H1 A0,IOAREA . GET BLOCK TYPE @E@@@@ JNZ WE )@@G@@ A0,AIS7 . IS IT AN INDEX? @[@@@@. @H@@@@. IN INDEX BWF )@@G@@LOCK, LOCATE SPECIFIED KEY OR NEXT HIGHER AND HENCE THE INDEX OR @^@@@@WG )@@G@@. DATA BLOCK IT IS IN @[@@@@. @B@@@@ L A0,SKL WH )@@G@@ . @E@@@@ LXI,U X5,1,A0 . 1 WORD KEY CWI )@@G@@ONTROL@G@@@@ LXM,XU X5,-1 . POINT 2 AHEAD OF KWJ )@@G@@EY ITSELF @D@@@@ L,H2 R6,IOAREA . KEY COUNT WK )@@G@@@B@@@@AIS4 . @E@@@@ JGD WL )@@G@@ R6,$+2 . LOOK AT ALL KEYS @G@@@@ J ISR0WM )@@G@@11A . NOT FOUND - KEY TOO LARGE @B@@@@ L WN )@@G@@ X9,(1,SPK+1) . @G@@@@ LMJ X11,KEYCHK . WO )@@G@@COMPARE THIS KEY WITH FIRST @C@@@@ J AIS5 WP )@@G@@ . LESS @G@@@@ J AIS6 . EQUAL(FIND) WQ )@@G@@- GET DATA BLOCK @G@@@@ J AIS6 . GREATEWR )@@G@@R(FIND) - GET DATA BLOCK@B@@@@AIS5 . WS )@@G@@@F@@@@ NOP ,,*X5 . INCREMENT KEY POINTER WT )@@G@@@D@@@@ J AIS4 . LOOK AT IT @B@@@@AIS6 WU )@@G@@ . @H@@@@ LX,XU X5,,X5 WV )@@G@@ . SIGN EXTEND IN CASE ITS NEGATIVE @G@@@@ A WW )@@G@@ X5,SKL . POINT TO MASS STORAGE ADDRESS @F@@@@ L WX )@@G@@ A0,IOAREA+2,X5 . MASS STORAGE ADDRESS @E@@@@ J WY )@@G@@ AIS3 . GET THAT BLOCK @[@@@@. @H@@@@. IN IWZ )@@G@@S DATA BLOCK - WE SHOULD LOCATE KEY SPECIFIED AND CONTINUE PRINTING XA )@@G@@@[@@@@. @B@@@@AIS7 . @D@@@@ XB )@@G@@ TE,U A0,1 . DATA BLOCK? @E@@@@ J XC )@@G@@ ISLNKR . NO - BAD LINK @E@@@@ L,U X5,0XD )@@G@@ . POINTER TO KEY @B@@@@AIS9 XE )@@G@@ . @E@@@@ L,U X7,,X5 . GET POINTER XF )@@G@@TO KEY@F@@@@ A X7,SKL . LOOK AT KEY CONTROXG )@@G@@L @B@@@@ A,U X7,IOAREA+2 . @D@@@@ TNXH )@@G@@Z SPK . SPRINTKEY? @C@@@@ J AIS1XI )@@G@@2 . NO @E@@@@ L X9,(1,SPK+1) . XJ )@@G@@YES - CHECK KEY @B@@@@ LMJ X11,KEYCHK . @C@@@@XK )@@G@@ J AIS12 . LESS @C@@@@ NOP XL )@@G@@ . EQUAL @D@@@@ SZ SBLOCK XM )@@G@@ . GREATER @F@@@@ SZ SPK . CLEAR XN )@@G@@INHIBIT FLAGS @B@@@@AIS12 . @D@@@@XO )@@G@@ TNZ EPK . EPRINTKEY? @C@@@@ J XP )@@G@@ AIS13 . NO @E@@@@ L X9,(1,EPK+XQ )@@G@@1) . YES - CHECK KEY @B@@@@ LMJ X11,KEYCHK XR )@@G@@ . @D@@@@ J AIS13 . LESS - OK @D@@@@XS )@@G@@ J AIS13 . EQUAL -OK @F@@@@ J XT )@@G@@ ISER3 . GREATER - STOP PRINT @B@@@@AIS13 XU )@@G@@ . @I@@@@ TZ,H1 ,X7 XV )@@G@@ . CURRENT LOCATOR=0 IS DELETED FTR 3-80 @D@@@@ J XW )@@G@@ AIS14 . NOT DELETED @D@@@@ TNZ PNOW XX )@@G@@ . PRINT ON? @C@@@@ J AIS16 . XY )@@G@@NO @G@@@@ TNZ DPR . TEST DELETED KEYS XZ )@@G@@PRINT OPTION@C@@@@ J AIS16 . NO @B@@@@YA )@@G@@ E$DIT EDPK . @B@@@@ E$MSG TEXTYB )@@G@@90 . @I@@@@ LMJ X11,PRKEY . PRINT YC )@@G@@KEY FTR 3-80 @B@@@@ J AIS16 YD )@@G@@ . @B@@@@AIS14 . @E@@@@ YE )@@G@@ TLEM X4,SBLOCK . PRINT ENABLED? @C@@@@ J YF )@@G@@ AIS16 . NO @E@@@@ S R12,PNOW YG )@@G@@ . SET PRINT FLAG @E@@@@ JGD X6,$+2 YH )@@G@@ . COUNT EXPIRED? @E@@@@ J ISER3 . YI )@@G@@YES - STOP PRINT @E@@@@ TZ PON . TEST PYJ )@@G@@RINT IS ON @C@@@@ J AIS15 . YES @E@@@@YK )@@G@@ S R12,PON . NO - BUT SET IT ON@B@@@@AIS15 YL )@@G@@ . @B@@@@ E$DIT EDPK YM )@@G@@ . @I@@@@ E$MSG TXT04 . YN )@@G@@ FTR 3-80 @B@@@@ E$DECV ,X4,U YO )@@G@@ . @^@@@@ E$SKIP 2 @I@@@@ E$MSGR YP )@@G@@ . FTR 3-80 @C@@@@ E$YQ )@@G@@DECV ,X7,H1 . LENGTH@I@@@@ E$MSGR YR )@@G@@ . FTR 3-80 @I@@@@ EDYS )@@G@@EX . FTR 3-80 YT )@@G@@@I@@@@ E$COPY 6,TEXT52 . YU )@@G@@ FTR 3-80 @I@@@@ LMJ X11,PRKEY . PRINT YV )@@G@@KEY FTR 3-80 @C@@@@ L,H1 A0,,X7 YW )@@G@@ . LENGTH@F@@@@ JN A0,OUT . CHECKS FYX )@@G@@OR RECORD CONTROL @D@@@@ ANU A0,MAXREC . WORD EYY )@@G@@RROR @B@@@@ JP A1,OUT . @I@@@@ LMYZ )@@G@@J X11,SETLEN . SET PRINT LENGTH FOR PRCORE FTR 3-80 ZA )@@G@@@I@@@@ L,H2 X9,,X7 . RECORD ADDRESS ZB )@@G@@ FTR 3-80 @E@@@@ LMJ X11,PRCORE . PRINT ZC )@@G@@THIS RECORD @B@@@@ + LMJPR . @I@@@@ ZD )@@G@@ PF 1,X9,IOAREA . PRINT PARAMETER FTR 3-ZE )@@G@@80 @B@@@@AIS16 . @F@@@@ TNZF )@@G@@Z,Q1 1,X7 . 'NEXT LOCATOR' = ZERO? @D@@@@ J ZG )@@G@@ NOK2 . YES - EOF @B@@@@ L A0,1ZH )@@G@@,X7 . @F@@@@ DSL A0,27 . GET NEZI )@@G@@XT KEY NUMBER @B@@@@ AN,U A0,1 . @F@@@@ZJ )@@G@@ L A2,SKL . EVALUATE WORD NUMBER @E@@@@ZK )@@G@@ A,U A2,2 . FROM KEY POINTER @B@@@@ ZL )@@G@@ MSI A0,A2 . @ @@@@ L,U X5,,A0 ZM )@@G@@@E@@@@ SSL A1,9 . GET BLOCK ADDRESS @D@@@@ZN )@@G@@ TNE,H2 A1,IOPAK+5 . SAME BLOCK? @C@@@@ J ZO )@@G@@ AIS9 . YES @B@@@@ L A0,A1 ZP )@@G@@ . @F@@@@ LMJ X11,APOSIS . POSITION TO ZQ )@@G@@THAT BLOCK @B@@@@ J AIS9 . @[@@@@. ZR )@@G@@@C@@@@. SEQUENTIAL ACCESS FROM START OF COBOL IS FILE @[@@@@. @B@@@@ZS )@@G@@AIS17 . @E@@@@ L A0,NZT )@@G@@SECS . SECTORS PER BLOCK @F@@@@ A,U A0,4 ZU )@@G@@ . ADD IN 4 FOR LABELS @F@@@@ J AIS3 ZV )@@G@@ . GO TO FIRST DATA BLOCK @[@@@@CANTDO@I@@@@ P$RINT ZW )@@G@@ (PF 2,TEXT101L,TEXT101). YES - PRINT BY BLOCK FTR 3-80 @I@@@@ZX )@@G@@ J DUMPIT . DUMP BY BLOCK ZY )@@G@@FTR 5-80 @B@@@@PRERRO . @G@@@@ ZZ )@@G@@ TNZ EPR . ERROR- DUMP OF BLOCK REQUESTED? @B@@@@AA )@@G@@ J BEGIN . NO@E@@@@ L$SNAP 'REGAB )@@G@@S ',7 . YES - SNAP REGISTERS@D@@@@ L$SNAP 'IO PKT',,AC )@@G@@8,IOPAK . SNAP IO PACKET@D@@@@ LMJ X10,DUMPB . ANAD )@@G@@D THIS BLOCK@B@@@@ J BEGIN . @G@@@@DUMPB AE )@@G@@ . DUMP CURRENT BLOCK IN OCTAL @B@@@@AF )@@G@@ E$DIT EDPK . @B@@@@ E$MSG TEXTAG )@@G@@55 . @E@@@@ E$DECV IOPAK+3,,H2 . ACTUAL RAH )@@G@@EAD COUNT @B@@@@ E$MSGR . @B@@@@ AI )@@G@@ E$DECV IOPAK+5,,H2 . @B@@@@ P$RINT (PF 2,22,PAJ )@@G@@LINE) . @B@@@@ L,H1 A0,IOPAK+4 . @ @@@@ AK )@@G@@ LXI,U A0,'B' @ @@@@ S A0,CLMJPR @E@@@@ AL )@@G@@ LMJ X11,PRCORE . PRINT THIS BLOCK @ @@@@ + AM )@@G@@ CLMJPR @B@@@@ PF 1,0,IOAREA . @B@@@@AN )@@G@@ J 0,X10 . @H@@@@PRBLKA AO )@@G@@ . PRINT ASCII COBOL HDR OR EOF LABEL @F@@@@ L AP )@@G@@ A0,0,X9 . X9 = ADDRESS OF LABEL @E@@@@ S AQ )@@G@@ A0,ATXT1A . ENTERED ON X10 @C@@@@ DL AR )@@G@@ A0,1,X9 . . @C@@@@ DS A0,ATXT1B AS )@@G@@ . . @D@@@@ L A0,3,X9 . . FILE-ID AT )@@G@@@C@@@@ S A0,ATXT1B+2 . . @C@@@@ DLAU )@@G@@ A0,5,X9 . . @C@@@@ LDSL A0,9 AV )@@G@@ . . @D@@@@ S A0,ATXT1C . . SEAW )@@G@@T-ID @C@@@@ SSL A1,18 . . @C@@@@ AX )@@G@@ S,H1 A1,ATXT1C+1 . . @C@@@@ DL A0,1AY )@@G@@0,X9 . . @C@@@@ LDSL A0,9 . AZ )@@G@@ . @E@@@@ S A0,ATXT1D . . CREATION-DATE BA )@@G@@@C@@@@ SSL A1,18 . . @C@@@@ S,BB )@@G@@H1 A1,ATXT1D+1 . . @C@@@@ DL A0,12,X9 BC )@@G@@ . . @C@@@@ DSL A0,9 . . BD )@@G@@@C@@@@ SSL A1,18 . . @E@@@@ S,BE )@@G@@H1 A1,ATXT1E+1 . . PURGE-DATE @C@@@@ DL BF )@@G@@ A0,11,X9 . . @C@@@@ LDSL A0,27 BG )@@G@@ . . @C@@@@ S A0,ATXT1E . . @B@@@@BH )@@G@@ L A0,(PF 3,ATXT1L,ATXT1)@ @@@@ ER APRIBI )@@G@@NT$ @C@@@@ L,H1 A0,13,X9 . . @C@@@@ BJ )@@G@@ DSL A0,9 . . @E@@@@ L,U A0,0BK )@@G@@40 . . FILE-ACCESS @C@@@@ DSL A0,9 BL )@@G@@ . . @C@@@@ SSL A1,18 . . BM )@@G@@@B@@@@ S,H1 A1,ATXT2A . @C@@@@ DL BN )@@G@@ A0,15,X9 . . @C@@@@ DS A0,ATXT2B BO )@@G@@ . . @E@@@@ L A0,17,X9 . . FILE--QALBP )@@G@@IFIER @C@@@@ S A0,ATXT2B+2 . . @B@@@@ BQ )@@G@@ L A0,(PF 2,ATXT2L,ATXT2)@B@@@@ ER APRINT$ BR )@@G@@ . @B@@@@ L,H1 A0,0,X9 . @D@@@@ BS )@@G@@ TE,U A0,0105117 . EOF LABEL? @D@@@@ J BT )@@G@@ ,X10 . NO - EXIT @[@@@@PRBLKO@^@@@@ E$DIT BU )@@G@@ EDPK@ @@@@ E$COPY 10,TEXT10 @E@@@@ E$DECV 23,XBV )@@G@@9,H1 . MAX BLOCK SIZE @I@@@@ E$SKIP 2 BW )@@G@@ . FTR 3-80 @I@@@@ E$BX )@@G@@COPY 11,TEXT11 . FTR 3-80 BY )@@G@@@I@@@@ E$DECV 25,X9,H1 . MAX RECORD SIZE (PCIOS 3BZ )@@G@@R2+) FTR 3-80 @I@@@@ E$SKIP 2 . CA )@@G@@ FTR 3-80 @ @@@@ E$COPY 20,TEXT73 CB )@@G@@@F@@@@ E$OCTV 20,X9 . FASTRAND EOF ADDRESS CC )@@G@@@ @@@@ E$MSG TEXT85 @D@@@@ E$OCTV 23,X9,S6 CD )@@G@@ . FILE TYPE @I@@@@ E$SKIP 1 . CE )@@G@@ FTR 4-79 @I@@@@ L,S6 A1,2CF )@@G@@3,X9 . FILE TYPE FTR 3-80 @I@@@@ CG )@@G@@ L A0,ASCTYP-5,A1 . FTR 3-CH )@@G@@80 @I@@@@ TG,U A1,5 . CI )@@G@@ FTR 3-80 @I@@@@ TG,U A1,8 . CJ )@@G@@ FTR 3-80 @I@@@@ L,U A0,'CK )@@G@@?' . NOT IN RANGE FTR 3-80 @I@@@@ CL )@@G@@ TNE,U A1,023 . MSAM? FTR 3-CM )@@G@@80 @I@@@@ L A0,ASCTYP+3 . CN )@@G@@ FTR 3-80 @I@@@@ E$FD1 . CO )@@G@@ FTR 3-80 @I@@@@ TZ TAPECP )@@G@@TAG . TAPE? FTR 4-79 @I@@@@ CQ )@@G@@ J PRBLK00 . TAPE FTR 4-CR )@@G@@79 @I@@@@ E$MSGR . MASS-STORAGE CS )@@G@@ FTR 4-79 @I@@@@ L A0,22,X9 . CT )@@G@@IF -28, -56 OR -112 .. FTR 3-80 @I@@@@ AND,U A0,0CU )@@G@@777 . FTR 3-80 @I@@@@ CV )@@G@@ JZ A1,PRBLK000 . .. SAY SO FTR 3-CW )@@G@@80 @I@@@@ LN A0,A1 . CX )@@G@@ FTR 3-80 @I@@@@ E$DECV . CY )@@G@@ FTR 3-80 @I@@@@PRBLK000 CZ )@@G@@ . FTR 3-80 @I@@@@ DA )@@G@@ TNZ 21,X9 . ANY START OF DATA BLOCK? FTR 3-DB )@@G@@80 @I@@@@ J PRBLK00 . NOT SPECIFIED DC )@@G@@ FTR 3-80 @I@@@@ E$MSGR . DD )@@G@@YES FTR 3-80 @I@@@@ E$OCTV 21,XDE )@@G@@9 . ADDRESS OF FIRST DATA BLOCK FTR 3-80 @I@@@@PRBLK0DF )@@G@@0 . FTR 4-DG )@@G@@79 @A@@@@ P$RINT (PF 2,22,PLINE) @^@@@@ J DH )@@G@@ ,X10@[@@@@PRBLKB@D@@@@ L A0,,X9 . LABEL DI )@@G@@TYPE @E@@@@ L R2,(-0-0777) . MASK FOR Q1 Q2 Q3 DJ )@@G@@@E@@@@ L A1,(1,ULABS) . SEARCH OUT ULAB TYPE@ @@@@DK )@@G@@ L,U R1,ULABL @ @@@@ MSE A0,,*A1 @B@@@@DL )@@G@@ J ,X10 . NO@ @@@@ S A0,ADM )@@G@@TXT3A @B@@@@ L A0,(PF 4,ATXT3L,ATXT3)@ @@@@ ERDN )@@G@@ APRINT$ @ @@@@ LMJ X11,PRCORE@B@@@@ + DO )@@G@@ BLMJPR . @ @@@@ PF 1,X9,1 @^@@@@DP )@@G@@ J ,X10@I@@@@. DQ )@@G@@ FTR 3-80 @I@@@@. PRINT KEY - EDIT$ ALREDR )@@G@@ADY ENTERED FTR 3-80 @I@@@@. KEYDS )@@G@@ IS AT 2+IOREA,X5 FTR 3-DT )@@G@@80 @I@@@@. ENTERED ON X11 DU )@@G@@ FTR 3-80 @I@@@@. DV )@@G@@ FTR 3-80 @I@@@@PRKEY DW )@@G@@ . FTR 3-80 @I@@@@ DX )@@G@@ S X11,PRSAV . RETURN FTR 3-DY )@@G@@80 @I@@@@ E$COLN . DZ )@@G@@ FTR 3-80 @I@@@@ S A0,PRSAV1 . EA )@@G@@NEXT COL FTR 3-80 @I@@@@ L,U X10,EB )@@G@@2+IOAREA,X5 . POINTER TO KEY FTR 3-80 @I@@@@ EC )@@G@@ L R4,SKL . KEY LENGTH FTR 3-ED )@@G@@80 @I@@@@PRKEY1 . EE )@@G@@ FTR 3-80 @I@@@@ JGD R4,$+2 . EF )@@G@@DO EACH WORD FTR 3-80 @I@@@@ J PRKEEG )@@G@@Y3 . DONE (NONE) FTR 3-80 @I@@@@ EH )@@G@@ TZ R4 . LAST WORD? FTR 3-EI )@@G@@80 @I@@@@ J PRKEY2 . EJ )@@G@@ FTR 3-80 @I@@@@ L A0,,X10 . EK )@@G@@YES FTR 3-80 @I@@@@ L A1,KEL )@@G@@EYSH . SHIFT ACCORDING TO SHIFT COUNTFTR 3-80 @I@@@@ EM )@@G@@ SSL A0,,A1 . FTR 3-EN )@@G@@80 @I@@@@ L,U A2,36 . CALCULATE # CHARS EO )@@G@@TO PRINT FTR 3-80 @I@@@@ AN A2,A1 . EP )@@G@@ FTR 3-80 @I@@@@ SZ A1 EQ )@@G@@ . FTR 3-80 @I@@@@ ER )@@G@@ DI,U A1,3 . FTR 3-ES )@@G@@80 @I@@@@ E$OCTF . INSERT LAST WORD ET )@@G@@ FTR 3-80 @I@@@@ J PRKEY3 . EU )@@G@@ FTR 3-80 @I@@@@PRKEY2 EV )@@G@@ . FTR 3-80 @I@@@@ EW )@@G@@ E$OCTF 12,,X10 . INSERT FTR 3-EX )@@G@@80 @I@@@@ A,U X10,1 . UPDATE INDEX EY )@@G@@ FTR 3-80 @I@@@@ J PRKEY1 . EZ )@@G@@ FTR 3-80 @I@@@@PRKEY3 FA )@@G@@ . FTR 3-80 @I@@@@ FB )@@G@@ EDEX1 . FTR 3-FC )@@G@@80 @I@@@@ L A0,PRSAV1 . RESET COLUMN FD )@@G@@ FTR 3-80 @I@@@@ E$COL . FE )@@G@@ FTR 3-80 @I@@@@ L,U X10,FF )@@G@@2+IOAREA,X5 . KEY START FTR 3-80 @I@@@@ FG )@@G@@ L R4,SKL . KEY LENGTH - WORDS FTR 3-FH )@@G@@80 @I@@@@PRKEY4 . FI )@@G@@ FTR 3-80 @I@@@@ JGD R4,$+2 . FJ )@@G@@ FTR 3-80 @I@@@@ J PRKEFK )@@G@@YEND . FTR 3-80 @I@@@@ FL )@@G@@ TZ R4 . FTR 3-FM )@@G@@80 @I@@@@ J PRKEY5 . NOT LAST WORD FN )@@G@@ FTR 3-80 @I@@@@ L,U A0,36 . FO )@@G@@LAST WORD - FIGURE # CHARS FTR 3-80 @I@@@@ AN A0,KFP )@@G@@EYSH . FTR 3-80 @I@@@@ FQ )@@G@@ DSL A0,36 . FTR 3-FR )@@G@@80 @I@@@@ DI,U A0,9 . FS )@@G@@ FTR 3-80 @I@@@@ L R5,A0 . FT )@@G@@ FTR 3-80 @I@@@@ J PRKEFU )@@G@@Y6 . FTR 3-80 @I@@@@PRKEY5FV )@@G@@ . FTR 3-FW )@@G@@80 @I@@@@ L,U R5,4 . FX )@@G@@ FTR 3-80 @I@@@@PRKEY6 . FY )@@G@@ FTR 3-80 @I@@@@ L A4,,FZ )@@G@@X10 . CURRENT WORD OF KEY FTR 3-80 @I@@@@PRKEY7GA )@@G@@ . FTR 3-GB )@@G@@80 @I@@@@ JGD R5,PRKEY8 . GC )@@G@@ FTR 3-80 @I@@@@ A,U X10,1 . GD )@@G@@ FTR 3-80 @I@@@@ J PRKEGE )@@G@@Y4 . DONE THIS WORD FTR 3-80 @I@@@@PRKEY8GF )@@G@@ . FTR 3-GG )@@G@@80 @I@@@@ SZ A3 . GET NEXT CHAR GH )@@G@@ FTR 3-80 @I@@@@ LDSL A3,9 . GI )@@G@@ FTR 3-80 @I@@@@ L,S6 A0,PGJ )@@G@@RCORETAB,A3 . CONVERT TO FD FTR 3-80 @I@@@@ GK )@@G@@ E$CHAR . FTR 3-GL )@@G@@80 @I@@@@ E$SKIP 2 . GM )@@G@@ FTR 3-80 @I@@@@ J PRKEY7 . GN )@@G@@ FTR 3-80 @I@@@@PRKEYEND GO )@@G@@ . FTR 3-80 @I@@@@ GP )@@G@@ P$RINT (PF 1,22,PLINE) . FTR 3-GQ )@@G@@80 @I@@@@ P$RINT (PF 1,1,BLANKS) . GR )@@G@@ FTR 3-80 @I@@@@ L X11,PRSAV . GS )@@G@@ FTR 3-80 @I@@@@ J ,X11GT )@@G@@ . RETURN FTR 3-80 @I@@@@. GU )@@G@@ FTR 3-GV )@@G@@80 @I@@@@. SET PRINT LENGTH FOR PRCORE SUBROUTINE GW )@@G@@ FTR 3-80 @I@@@@. A0 ON ENTRY = STORED RECORD LENGTH GX )@@G@@ FTR 3-80 @I@@@@. ENTER AND EXIT ON X11 GY )@@G@@ FTR 3-80 @I@@@@. GZ )@@G@@ FTR 3-HA )@@G@@80 @I@@@@SETLEN . HB )@@G@@ FTR 3-80 @I@@@@ TG A0,PRL . HC )@@G@@ FTR 3-80 @I@@@@ L A0,PHD )@@G@@RL . FTR 3-80 @I@@@@ HE )@@G@@ MSI A0,PRBIAS . FTR 3-HF )@@G@@80 @I@@@@ SSL A0,1 . HG )@@G@@ FTR 3-80 @I@@@@ S,H2 A0,LMJPR . HH )@@G@@ FTR 3-80 @I@@@@ J ,X11HI )@@G@@ . FTR 3-80 @[@@@@. HJ )@@G@@@[@@@@. @ @@@@. X OPTION EDITED FILE DUMPING@[@@@@. @[@@@@. HK )@@G@@@B@@@@DODUMP . @E@@@@ L,S1 HL )@@G@@ A0,FACPAK+6 . EQUIPMENT TYPE @E@@@@ JNZ A0,DHM )@@G@@UMP1 . TEST VALID TYPE @I@@@@ E$DIT EDPK HN )@@G@@ . FTR 3-80 @C@@@@ E$HO )@@G@@COPY 24,TEXT57 . ERROR @B@@@@ J ERROR HP )@@G@@ . @B@@@@DUMP1 . @F@@@@ HQ )@@G@@ SSL A0,3 . GET HIGH ORDER NUMERIC @E@@@@ HR )@@G@@ TE,U A0,3 . TEST FASTRAND @C@@@@ J HS )@@G@@ DUMP2 . NO @B@@@@ L A0,XPLEN HT )@@G@@ . @B@@@@ TNZ A0 . @B@@@@ HU )@@G@@ L,U A0,FSECS . @H@@@@ S A0,NSECS HV )@@G@@ . SET UP DUMP LENGTH FOR BLOCK SIZE @B@@@@ L HW )@@G@@ A1,A0 . @B@@@@ MSI,U A1,28 . HX )@@G@@@B@@@@ J DUMP3 . @B@@@@DUMP2 HY )@@G@@ . @F@@@@ TE,U A0,2 . HZ )@@G@@TEST DRUM ADDRESSIBLE @C@@@@ J DUMP4 . IA )@@G@@NO @B@@@@ L A0,XPLEN . @B@@@@ TNIB )@@G@@Z A0 . @F@@@@ L,U A0,WSECS IC )@@G@@ . WORD ADDRESS BLOCK SIZE @B@@@@ L A1,A0 ID )@@G@@ . @D@@@@ S A0,NSECS . SET FOR IO @B@@@@IE )@@G@@DUMP3 . @F@@@@ L A3,SIF )@@G@@BLOCK . START RECORD NUMBER @F@@@@ MSI A0,AIG )@@G@@3 . GET START DRUM ADDRESS @F@@@@ A A0,XIH )@@G@@START . ADD IN BASE ADDRESS @B@@@@ S A0,III )@@G@@OPAK+5 . @G@@@@ L X8,SBLOCK . SET UPIJ )@@G@@ START RECORD NUMBER @B@@@@ J DUMP5 . IK )@@G@@@B@@@@DUMP4 . @H@@@@ S IL )@@G@@ R12,EOFDAT . TAPE - SET DATA ENCOUNTERED FLAG @F@@@@ IM )@@G@@ L,U A1,BUFSIZ . MAXIMUM POSS BLOCK SIZE @C@@@@ IN )@@G@@ SZ NSECS . TAPE @B@@@@ SZ IOPAIO )@@G@@K+5 . @B@@@@ L,U X8,0 . @B@@@@IP )@@G@@DUMP5 . @F@@@@ TG,U A1,BIQ )@@G@@UFSIZ+1 . CHECK PROGRAM LIMITS @D@@@@ J OFFTIR )@@G@@1A . EXCEEDED @B@@@@ L X6,NBLOCKS IS )@@G@@ . @E@@@@ S A1,IOPAK+4,,H1 . GET TRANSFER COUNTIT )@@G@@@B@@@@ LXI,U X8,1 . @B@@@@DUMP7 IU )@@G@@ . @G@@@@ TZ EMPT . IV )@@G@@TEST IF EOF ALREADY REACHED @C@@@@ J DUMP8A IW )@@G@@ . YES @B@@@@ L,U A0,IOPAK . @E@@@@ IX )@@G@@ ER IOW$ . READ NEXT BLOCK @[@@@@DUMP7A@C@@@@IY )@@G@@ L,S1 A5,IOPAK+3 . STATUS@C@@@@ JZ IZ )@@G@@ A5,DUMP9 . NORMAL@D@@@@ TE,U A5,1 JA )@@G@@ . EOF TEST @B@@@@ TNE,U A5,5 . @B@@@@JB )@@G@@ J DUMP8 . @G@@@@ TE,U A5,4JC )@@G@@ . TEST IF AFC ERROR - ACCEPTABLE@C@@@@ J JD )@@G@@ ERRFL . BAD @E@@@@ J DUMP9 JE )@@G@@ . ACCEPTABLE ERROR @B@@@@DUMP8 . JF )@@G@@@D@@@@ S A5,EMPT . SET EOF TAG @F@@@@ JG )@@G@@ TZ IOPAK+3,,H2 . TEST IF ANY TRANSFER @C@@@@ JH )@@G@@ J DUMP9 . YES @B@@@@DUMP8A JI )@@G@@ . @B@@@@ P$RINT (PF 4,5,TEXT58) . @D@@@@JJ )@@G@@ TZ TAPETAG . IF NOT TAPE @F@@@@ TNJK )@@G@@Z EOFC . OR IF EOFCOUNT EXPIRED @D@@@@ J JL )@@G@@ DUMP8B . EXIT HERE @F@@@@ TNZ EOFDJM )@@G@@AT . ANY DATA SINCE LAST EOF?@F@@@@ J BEGIJN )@@G@@N . NO - CONSECUTIVE EOFS @F@@@@ SZ EOFDJO )@@G@@AT . CLEAR DATA ENCOUNTERED @E@@@@ L A0,EJP )@@G@@OFC . DECREMENT EOFCOUNT@B@@@@ AN,U A0,1 JQ )@@G@@ . @C@@@@ JZ A0,DUMP8B . EXPIRY@B@@@@JR )@@G@@ S A0,EOFC . @D@@@@ SZ EMPTJS )@@G@@ . RESTORE TAGS@E@@@@ L X6,NBLOCKS JT )@@G@@ . NUMBER TO PRINT @D@@@@ L X8,SBLOCK . JU )@@G@@START BLOCK @D@@@@ LXI,U X8,1 . INCREMENT JV )@@G@@@E@@@@ J DUMP7 . AND DO NEXT FILE @[@@@@JW )@@G@@DUMP8B@B@@@@ J BEGIN . @B@@@@DUMP9 JX )@@G@@ . @G@@@@ S R12,EOFDAT JY )@@G@@ . SET DATA ENCOUNTERED FOR TAPE @F@@@@ TLEM X8,SBLOCK JZ )@@G@@ . INCREMENT RECORD COUNT @H@@@@ J DUMP11 KA )@@G@@ . AND IGNORE IF NOT READY TO PRINT @F@@@@ JGD KB )@@G@@ X6,DUMP10 . TEST IF PRINTED ENOUGH @B@@@@ P$RINT KC )@@G@@ (PF 4,4,TEXT59) . @E@@@@ TZ TAPETAG . KD )@@G@@TEST IF NOT TAPE @G@@@@ TNZ EOFC . OR TAPKE )@@G@@E AND EOFCOUNT EXPIRED @C@@@@ J BEGIN . KF )@@G@@EXIT @E@@@@ L,U A0,FSF$ . MOVE TO NEXT EOF KG )@@G@@@ @@@@ S,S2 A0,IOPAK+3@ @@@@ I$OW IOPAK KH )@@G@@@ @@@@ L,U A0,R$ @ @@@@ S,S2 A0,IOPAK+3KI )@@G@@@ @@@@ J DUMP7A @B@@@@DUMP10 KJ )@@G@@ . @B@@@@ E$DIT EDPK . @B@@@@ KK )@@G@@ E$COPY 12,TEXTS . @B@@@@ E$SKIP 1 KL )@@G@@ . @E@@@@ E$DECV 0,X8,U . RECORD NUMBEKM )@@G@@R @B@@@@ E$SKIP 4 . @B@@@@ E$KN )@@G@@COPY 5,TEXTS+2 . @B@@@@ E$DECV IOPAK+3,,H2 KO )@@G@@ . @B@@@@ E$COPY 6,TEXTS+3 . @E@@@@ TZKP )@@G@@ TAPETAG . TEST TAPE HARDWARE@F@@@@ J KQ )@@G@@ DMP100 . YES - NO SECTOR ADDRESS @B@@@@ E$SKIP KR )@@G@@ 4 . @B@@@@ E$COPY 11,TEXT60 . KS )@@G@@@B@@@@ E$OCTV IOPAK+5,,H2 . @B@@@@ J KT )@@G@@ DMP101 . @B@@@@DMP100 . KU )@@G@@@C@@@@ L,S1 A0,IOPAK+3 . STATUS@C@@@@ JZKV )@@G@@ A0,DMP101 . OK @D@@@@ TE,U A0,4 KW )@@G@@ . TEST AFC @C@@@@ J DMP101 . KX )@@G@@NO @B@@@@ E$SKIP 10 .@B@@@@ E$KY )@@G@@COPY 22,TEXT61 . @D@@@@ E$DECV IOPAK+3,,S3 KZ )@@G@@ . PRINT AFC @B@@@@DMP101 . @B@@@@LA )@@G@@ P$RINT (PF 2,22,PLINE) . @B@@@@ P$RINT (PF LB )@@G@@1,1,BLANKS) . @D@@@@ L,H2 A0,IOPAK+3 . WORD CLC )@@G@@OUNT @I@@@@ LMJ X11,SETLEN . SET PRINT LENGTH FLD )@@G@@OR PRCORE FTR 3-80 @B@@@@ LMJ X11,PRCORE . LE )@@G@@@B@@@@ + LMJPR . @B@@@@ PF LF )@@G@@ 1,0,IOAREA . @B@@@@DUMP11 . LG )@@G@@@G@@@@ L,H2 A0,IOPAK+5 . SECTOR ADDRESS OF LAST RLH )@@G@@EAD @D@@@@ A A0,NSECS . INCREMENT @E@@@@LI )@@G@@ S,H2 A0,IOPAK+5 . FOR NEXT READ @B@@@@ LJ )@@G@@ J DUMP7 . @I@@@@DUMPIT. LK )@@G@@ FTR 5-80 @I@@@@. LL )@@G@@ FTR 5-80 LM )@@G@@@I@@@@. DUMP BY BLOCK - IF TAPE REPOSITION TO READ ALL FIRST BLOCK LN )@@G@@ FTR 5-80 @I@@@@. LO )@@G@@ FTR 5-80 @I@@@@ TNZ TAPETAG LP )@@G@@ . TAPE? FTR 5-80 @I@@@@ J LQ )@@G@@ DODUMP . NO FTR 5-80 LR )@@G@@@I@@@@ L,U A0,MB$ . YES - MOVE BACK ONE BLOCK LS )@@G@@ FTR 5-80 @I@@@@ S,S2 A0,IOPAK+3 . LT )@@G@@ FTR 5-80 @I@@@@ I$OW IOPAK LU )@@G@@ . FTR 5-80 @I@@@@ L,LV )@@G@@U A0,R$ . AND RESET FUNCTION FTR 5-80 LW )@@G@@@I@@@@ S,S2 A0,IOPAK+3 . LX )@@G@@ FTR 5-80 @I@@@@ J DODUMP . LY )@@G@@ FTR 5-80 @B@@@@ ON TIP>0 LZ )@@G@@ . @[@@@@. @^@@@@. PRINTING OF TIP FILES @[@@@@. @B@@@@MA )@@G@@TIPFILE . @D@@@@ L,U A0,GMB )@@G@@ETLC1 . FILE NUMBER @E@@@@ L,U A1,11 MC )@@G@@ . MAXIMUM CHAR COUNT@E@@@@ L,S1 A2,GETLC1 . MD )@@G@@FIRST CHARACTER @F@@@@ TE,U A2,060 . IF ZERME )@@G@@O ASSUME OCTAL @B@@@@ J TIP1 . @F@@@@MF )@@G@@ LMJ X11,OCTRAN . CONVERT OCTAL NUMBER @B@@@@MG )@@G@@ J TIP2 . @B@@@@TIP1 MH )@@G@@ . @F@@@@ LMJ X11,DECTRAN . CONVERMI )@@G@@T DECIMAL NUMBER @B@@@@TIP2 . @F@@@@MJ )@@G@@ JN A1,TIPERR1 . ERROR IN CONVERSION @B@@@@MK )@@G@@ JZ A0,TIPERR1 . @D@@@@ TNZ DPR ML )@@G@@ . D OPTION ON?@C@@@@ J NOTDMS MM )@@G@@ . NO @H@@@@ LN A0,A0 . YES - CONVERMN )@@G@@T AREA NUMBER TO TIP @F@@@@ A,U A0,TIPDMS . MO )@@G@@USING CONVERSION FACTOR @B@@@@NOTDMS . MP )@@G@@@E@@@@ S A0,FILNO . SAVE FOR LF CALL @E@@@@MQ )@@G@@ CALL CONECT FILEB,(0),(1) . CONNECT TO TIP @F@@@@ MR )@@G@@ CALL FCSS (LF),(1),FILEB,FILNO . GET DIRECTORY @G@@@@ MS )@@G@@ TP FILEB . FIRST WORD NEGATIVE IF ERROR @B@@@@MT )@@G@@ J TIPERR2 . @E@@@@ E$DIT EDPKMU )@@G@@ . FORMAT SOME OUTPUT@B@@@@ E$MSG TIPTXT1 MV )@@G@@ . @D@@@@ E$DECV FILEB+3+0,,H2 . FILENUMBER MW )@@G@@@B@@@@ E$SKIP 1 . @B@@@@ E$CHAR MX )@@G@@ '(' . @E@@@@ E$OCTV FILEB+3+0,,H2 . MY )@@G@@OCTAL AS WELL @B@@@@ E$CHAR ')' . @B@@@@MZ )@@G@@ E$SKIP 2 . @B@@@@ E$MSGR NA )@@G@@ . @B@@@@ E$CHAR 072 . @D@@@@NB )@@G@@ E$COPY 12,FILEB+3+1 . FILE NAME @B@@@@ E$NC )@@G@@CHAR 072 . %I@@@@-3217 ND )@@G@@ FTR 7-81 @I@@[@ SLIMIFDENE )@@G@@M . SLIM PRINT IF DEMAND FTR 7-81 @#@@@@NF )@@G@@ E$MSGR %I@@@@-3219,3219 NG )@@G@@ FTR 7-81 @I@@[@ L A0,FILEB+3NH )@@G@@+4 . RECORD LENGTH (IN T1) FTR 7-81 @I@@[@ SSNI )@@G@@L A0,24 . FTR 7-81 NJ )@@G@@@I@@[@ E$DECV . NK )@@G@@ FTR 7-81 %@@@@[@#[@@@ E$MSGR @D@@@@ E$DECV NL )@@G@@ FILEB+3+6 . RECORD COUNT @#@@@@ EDEX @B@@@@ NM )@@G@@ E$MSG TIPTXT2 . %I@@@@-3224- NN )@@G@@ FTR 7-81 @D@@[@. E$NO )@@G@@OCTV FILEB+3+3,,S2 . FILE TYPE %I@@@@-3225- NP )@@G@@ FTR 7-81 @B@@[@. NQ )@@G@@ E$SKIP 2 . %@@@@]@D[@@@ L,S2 A0,FNR )@@G@@ILEB+3+3 . FILE TYPE @E@@@@ TNE,U A0,010 NS )@@G@@ . TEST FOR SCRATCH @B@@@@ L,U A0,4 . NT )@@G@@@D@@@@ TNE,U A0,020 . OR TEMP @B@@@@ NU )@@G@@ L,U A0,3 . @C@@@@ L A0,TIPTXT3NV )@@G@@-1,A0 . TEXT @#@@@@ E$MSG @B@@@@ L,U A0,DNW )@@G@@MSNO . @D@@@@ TE,S2 A0,FILEB+3+3 . DMS FINX )@@G@@LE? @C@@@@ J NTDMS1 . NO @G@@@@ NY )@@G@@ E$COPY 14,TIPTXT3A . YES - DISPLAY AREA NUMBER @I@@@@NZ )@@G@@ L A0,FILEB+3+0 . OA )@@G@@FTR 4-79 @I@@@@ LSSL A0,24 . OB )@@G@@ FTR 4-79 @I@@@@ SSL A0,24 OC )@@G@@ . FTR 4-79 @I@@@@ LN OD )@@G@@ A0,A0 . FTR 4-79 @B@@@@OE )@@G@@ A,U A0,TIPDMS . @B@@@@ E$DECV OF )@@G@@ . @B@@@@NTDMS1 . @ @@@@OG )@@G@@ E$MSG TIPTXT15 @E@@@@ E$OCTV FILEB+3+3,,T3 OH )@@G@@ . FALLBACK INDICATORS @D@@@@ L A0,FILEB+3+3,,T3 . GEOI )@@G@@T THEM AGAIN@D@@@@ TOP,U A0,0100 . TRAINING FILE?OJ )@@G@@@B@@@@ J TIP3A . NO@C@@@@ EDEX OK )@@G@@ . YES @ @@@@ E$MSG TIPTXT16 @F@@@@OL )@@G@@ E$OCTV FILEB+3+0,,H1 . ALTERNATE FILE NUMBER @#@@@@OM )@@G@@ E$MSGR @[@@@@TIP3A @B@@@@ E$MSG TIPTXT9 ON )@@G@@ . @D@@@@ L,S3 A0,FILEB+3+3 . FILE TYPE @A@@@@OO )@@G@@ L A0,TIPTXT11-1,A0@#@@@@ E$MSG @#@@@@ OP )@@G@@ EDEX @D@@@@ L A8,FILEB+3+3,,S3 . STORAGE TYPE OQ )@@G@@@D@@@@ AN,U A8,1 . SET REL TO 0 @ @@@@ OR )@@G@@ JZ A8,TIP3B @F@@@@ E$MSG TIPTXT12 . PROS )@@G@@INT LEG 1 TEXT IF DUPLEX@[@@@@TIP3B @ @@@@ E$MSG TIPTXT13 OT )@@G@@@G@@@@ E$FD2 FILEB+3+8 . EXEC FILE NAME FOR THIS LEOU )@@G@@G @#@@@@ E$MSGR @H@@@@ E$OCTV FILEB+3+7 OV )@@G@@ . RELATIVE START ADDRESS OF TIP FILE %[@@@@-3267 @I@@[@ SLOW )@@G@@IMIFDEM . SLIM PRINT IF DEMAND FTR 7-81 OX )@@G@@@#@@@@ E$MSGR @D@@@@ E$OCTV FILEB+3+4,,S6 . COOY )@@G@@PY STATUS @F@@@@ JZ A8,TIP3C . SKIP LEG2 PRINOZ )@@G@@T IF SIMPLEX@#@@@@ EDEX @ @@@@ E$MSG TIPTXT14 PA )@@G@@@ @@@@ E$MSG TIPTXT13 @G@@@@ E$FD2 FILEB+3+11PB )@@G@@ . EXEC FILE NAME FOR THIS LEG @#@@@@ E$MSGR @H@@@@PC )@@G@@ E$OCTV FILEB+3+10 . RELATIVE START ADDRESS OF TIP FIPD )@@G@@LE %[@@@@-3276 @I@@[@ SLIMIFDEM . SLIM PRIPE )@@G@@NT IF DEMAND FTR 7-81 @#@@@@ E$MSGR @D@@@@ PF )@@G@@ E$OCTV FILEB+3+5,,S6 . COPY STATUS @[@@@@TIP3C @B@@@@ PG )@@G@@ P$RINT (PF 2,22,PLINE) . @D@@@@ TZ POPT PH )@@G@@ . P OPTION ON?@H@@@@ J BEGIN . PI )@@G@@YES - HAVE PRINTED FILE DIRTRY INFO @D@@@@ L,S2 A0,FILEB+3PJ )@@G@@+3 . FILE TYPE @D@@@@ TNE,U A0,2 . PK )@@G@@IS IT FIXED?@E@@@@ J DOTIPV . NO - VARIABLPL )@@G@@E @H@@@@ L X8,NBLOCKS . NUMBER OF RECORDS PM )@@G@@TO BE PRINTED @B@@@@ TNZ NBLOCKS . @G@@@@PN )@@G@@ L X8,HNO . LARGE NUMBER IF NOT SUPPLIED PO )@@G@@@D@@@@ L,U A0,'RD' . FUNCTION @B@@@@ PP )@@G@@ S A0,FNC . @F@@@@ L X9,SBLOCK PQ )@@G@@ . RECORD NUMBER REL TO 0 @E@@@@ A,U X9,1 PR )@@G@@ . MAKE REL TO 1 @B@@@@ LXI,U X9,1 PS )@@G@@ . @B@@@@ SZ RECNO . @I@@@@ L PT )@@G@@ A0,FILEB+3+4 . RECORD LENGTH FTR 4-79 PU )@@G@@@I@@@@ SSL A0,24 . PV )@@G@@ FTR 4-79 @B@@@@ AU,U A0,3 . @E@@@@PW )@@G@@ TG,U A0,BUFSIZ+1 . ENSURE BUFFER IS @F@@@@ PX )@@G@@ J OFFT1A . LARGE ENOUGH @B@@@@ PY )@@G@@ DS A0,RLEN . @I@@@@ LMJ X11,SETLENPZ )@@G@@ . SET PRINT LENGTH FOR PRCORE FTR 3-80 @B@@@@TIP4 QA )@@G@@ . @F@@@@ JGD X8,TIP4A QB )@@G@@ . DECREMENT RECORD COUNT @D@@@@ J TIP6 QC )@@G@@ . ALL DONE @B@@@@TIP4A . @D@@@@QD )@@G@@ L A0,FILEB+3+6 . MAX RECORDS @F@@@@ TGQE )@@G@@,U A0,,X9 . SEE IF VE ARE OVER END @B@@@@ J QF )@@G@@ TIP7 . @D@@@@ P$RINT (PF 2,6,TIPTXT4)QG )@@G@@ . END OF FILE @B@@@@TIP5 . @B@@@@QH )@@G@@ CALL DISCON . @B@@@@ J BEGIQI )@@G@@N . @B@@@@TIP6 . @B@@@@QJ )@@G@@ P$RINT (PF 2,4,TEXT59) . @E@@@@ J TIP5QK )@@G@@ . COUNT EXPIRED @B@@@@TIP7 QL )@@G@@ . @G@@@@ S,H2 X9,RECNO . SET RECORD NQM )@@G@@UMBER (REL TO 1) @H@@@@ CALL FCSS (RD),(1),IOAREA,FILNO,RQN )@@G@@LEN,RECNO,RLEN+1. READ RECORD @E@@@@ TN IOAREA QO )@@G@@ . TEST FCSS RETURN @C@@@@ J TIP8 . QP )@@G@@OK @B@@@@TIP7A . @B@@@@ E$QQ )@@G@@DIT EDPK . @B@@@@ E$MSG TIPTXT5 QR )@@G@@ . @D@@@@ E$OCTV IOAREA,,H2 . ERROR CODE @D@@@@QS )@@G@@ L,H2 A0,IOAREA . TEST IO ERROR @ @@@@ TEQT )@@G@@,U A0,062 @B@@@@ J TIP7B . NO@G@@@@QU )@@G@@ E$CHAR '(' . YES - DISPLAY EXEC IO STATUS QV )@@G@@@I@@@@ E$COPY 4,('I/O ') QW )@@G@@ FTR 7-79 @ @@@@ E$OCTV IOAREA,,S3@^@@@@ E$QX )@@G@@CHAR ')' @[@@@@TIP7B @B@@@@ E$MSGR . QY )@@G@@@B@@@@ E$OCTV FILNO . @B@@@@ E$MSGR QZ )@@G@@ . @B@@@@ E$FD1 FNC . RA )@@G@@@#@@@@ E$MSGR @E@@@@ E$DECV RECNO,,H2 . RB )@@G@@RECORD NUMBER @B@@@@ P$RINT (PF 2,22,PLINE) . @I@@@@RC )@@G@@ L,H2 A0,IOAREA . RD )@@G@@FTR 3-79 @I@@@@ TE,U A0,062 . STATUS=062 (RE )@@G@@EXEC IO ERROR)? FTR 3-79 @I@@@@ J TIP5 RF )@@G@@ . NO - STOP NOW FTR 3-79 @I@@@@ L,S3 RG )@@G@@ A0,IOAREA . YES - WAS IO ERROR 5? FTR 3-79 @I@@@@RH )@@G@@ TE,U A0,5 . RI )@@G@@FTR 3-79 @I@@@@ J TIP5 . NO - STOP NORJ )@@G@@W FTR 3-79 %I@@@@-3345 RK )@@G@@ FTR 7-81 @I@@[@ NOP RL )@@G@@ ,,*X9 . UPDATE RECORD POINTER FTR 7-81 @I@@@@RM )@@G@@ J TIP4 . YES - TRY NEXT RECORD - MAY BERN )@@G@@FTR 3-79 @B@@@@TIP8 . @B@@@@ RO )@@G@@ E$DIT EDPK . @B@@@@ E$COPY 14,TEXTS+4RP )@@G@@ . @F@@@@ E$DECV 0,*X9,U . RECORD NUMBERQ )@@G@@R REL TO 1 @B@@@@ P$RINT (PF 3,22,PLINE) . @B@@@@ RR )@@G@@ P$RINT (PF 1,1,BLANKS) . @B@@@@ LMJ X11,PRCORERS )@@G@@ . @B@@@@ + LMJPR . @D@@@@ RT )@@G@@ PF 1,0,IOAREA+3 . PRINT RECORD@B@@@@ J RU )@@G@@ TIP4 . @B@@@@TIPERR1 . RV )@@G@@@B@@@@ P$RINT (PF 2,4,TIPTXT6) . @^@@@@ E$DIT RW )@@G@@ EDPK@F@@@@ J PARERR2 . GO TO PRINT PARAMERX )@@G@@TER @B@@@@TIPERR2 . @B@@@@ L,RY )@@G@@U A0,'LF' . @B@@@@ S A0,FNC RZ )@@G@@ . @E@@@@ L A0,FILEB . ERROR ON 'LF' SA )@@G@@@B@@@@ S A0,IOAREA . @B@@@@ J SB )@@G@@ TIP7A . @B@@@@DOTIPV . SC )@@G@@@B@@@@ P$RINT (PF 2,8,TIPTXT7) . @B@@@@ J SD )@@G@@ BEGIN . @I@@@@KONSPR . SE )@@G@@ FTR 7-79 @I@@@@. SF )@@G@@ FTR 7-79 @I@@@@. PRINSG )@@G@@T FROM TIP KONS AREA FTR 7-SH )@@G@@79 @I@@@@. SI )@@G@@ FTR 7-79 @I@@@@ L A0,GETLC1 . SJ )@@G@@CHECK FILE SPEC IS KONS FTR 7-79 @I@@@@ TE A0,TSK )@@G@@IPTXT18 . FTR 7-79 @I@@@@ SL )@@G@@ J KONER1 . ERROR FTR 7-SM )@@G@@79 @I@@@@ L A0,NBLOCKS . CHECK COUNT SN )@@G@@ FTR 7-79 @I@@@@ TG,U A0,MAXBLK+1 . SO )@@G@@ FTR 7-79 @I@@@@ J OFFTSP )@@G@@1A . FTR 7-79 @I@@@@ SQ )@@G@@ E$DIT EDPK . FTR 7-SR )@@G@@79 @I@@@@ E$MSG TIPTXT17 . SS )@@G@@ FTR 7-79 @I@@@@ E$DECV SBLOCK . ST )@@G@@ FTR 7-79 @I@@@@ P$RINT (PF SU )@@G@@2,22,PLINE) . FTR 7-79 @I@@@@ SV )@@G@@ CALL CONECT FILEB,(0),(1) . CONNECT TO TIP FTR 7-SW )@@G@@79 @I@@@@ CALL KONS (KREAD),SBLOCK,IOAREA,NBLOCKS . SX )@@G@@ FTR 7-79 @I@@@@ CALL DISCON . SY )@@G@@ FTR 7-79 @I@@@@ L A0,NSZ )@@G@@BLOCKS . FTR 7-79 @I@@@@ TA )@@G@@ LMJ X11,SETLEN . SET PRINT LENGTH FOR PRCORE FTR 3-TB )@@G@@80 @I@@@@ LMJ X11,PRCORE . TC )@@G@@ FTR 7-79 @I@@@@ + LMJPR . TD )@@G@@ FTR 7-79 @I@@@@ PF 1,0,TE )@@G@@IOAREA . FTR 7-79 @I@@@@ TF )@@G@@ J BEGIN . FTR 7-TG )@@G@@79 @I@@@@KONER1 . TH )@@G@@ FTR 7-79 @I@@@@ E$DIT EDPK . TI )@@G@@ FTR 7-79 @I@@@@ E$MSG TIPTTJ )@@G@@XT19 . FTR 7-79 @I@@@@ TK )@@G@@ J PARERR2 . FTR 7-TL )@@G@@79 @B@@@@ OFF . @[@@@@BACKUP@F@@@@TM )@@G@@ L,U A0,MB$ . READ BACKWARD ONE BLOCK @B@@@@TN )@@G@@ S,S2 A0,IOPAK+3 . @G@@@@ I$OW IOPATO )@@G@@K . REQUIRED FOR SDF TAPE FILES @G@@@@ L,U TP )@@G@@ A0,R$ . RESET READ FORWARD FUNCTION @F@@@@ S,TQ )@@G@@S2 A0,IOPAK+3 . - IGNORE ANY IO ERROR @^@@@@ J TR )@@G@@ ,X10@[@@@@IOSDF @D@@@@ ER IOW$ . TS )@@G@@READ BLOCK @E@@@@ L,H2 A1,3,A0 . IO COUNT (ACTT )@@G@@TUAL) @ @@@@ A A1,IOCOUNT@G@@@@ S A1,ITU )@@G@@OCOUNT . INCREMENT CURRENT IO COUNT @E@@@@ L,H2 TV )@@G@@ A1,3,A0 . ACTUAL IO COUNT @ @@@@ A,U A1,2TW )@@G@@7 @G@@@@ DSL A1,36 . COMPUTE AS SECTORSTX )@@G@@ ROUNDED UP @ @@@@ DI,U A1,28 @H@@@@ A,H2 TY )@@G@@ A1,5,A0 . ?AND INCREMENT DRUM READ ADDRESS @ @@@@ TZ )@@G@@ S,H2 A1,5,A0 @H@@@@ L,S1 A1,3,A0 . UA )@@G@@STATUS - ALL IO ERRORS RETURN HERE @D@@@@ JZ A1,,X10 UB )@@G@@ . ZERO IS OK @F@@@@ TNE,U A1,4 . UC )@@G@@4 (AFC ERROR) IS OK @^@@@@ J ,X10@D@@@@ TNUD )@@G@@E,U A1,1 . 1 IS EOF @ @@@@ J IOSDUE )@@G@@F1 @D@@@@ TE,U A1,022 . 022 IS EOF @D@@@@UF )@@G@@ TNE,U A1,05 . 05 IS EOF @ @@@@ J UG )@@G@@ IOSDF1 @ @@@@ J ERRFL @[@@@@IOSDF1@E@@@@UH )@@G@@ S A1,SDFEOF . EOF - SET FLAG @^@@@@ UI )@@G@@ J ,X10@[@@@@. @A@@@@. SYSTEM DATA FORMAT FILE HANDLING UJ )@@G@@@[@@@@. @[@@@@. @[@@@@TRYSDF@I@@@@ L A1,IOAREA UK )@@G@@ . FTR 3-79 @I@@@@ TEUL )@@G@@ A1,COPYG . COPY,G FORMAT? FTR 3-79 UM )@@G@@@I@@@@ J TRYSDF1 . NO UN )@@G@@ FTR 3-79 @I@@@@ P$RINT (PF 2,CGTXTL,CGTXT) . YES - UO )@@G@@PRINT UNAVAILABLE FTR 3-79 @I@@@@ J SDFNOT UP )@@G@@ . FTR 3-80 @I@@@@TRYSDF1 UQ )@@G@@ . FTR 3-79 UR )@@G@@@F@@@@ L,U A0,050 . FIRST IMAGE A LABEL? US )@@G@@@B@@@@ TE,S1 A0,IOAREA . @I@@@@ J UT )@@G@@ SDFNOT . FTR 3-80 @I@@@@UU )@@G@@ L A0,IOAREA . CHECK TYPE OF SDF FILE UV )@@G@@FTR 3-79 @I@@@@ TE A0,STARPF . PROGRAM FILEUW )@@G@@? FTR 3-79 @I@@@@ J TRYSDF2 UX )@@G@@ . NO FTR 3-79 @I@@@@ P$RINT UY )@@G@@ (PF 2,PFTXTL,PFTXT) . FORMATTED PRINT UNAVAILABLE FTR 3-79 @I@@@@UZ )@@G@@ J SDFNOT . VA )@@G@@FTR 3-80 @I@@@@TRYSDF2 . VB )@@G@@ FTR 3-79 @I@@@@ TE A0,STAREF VC )@@G@@ . ELEMENT FILE? FTR 3-79 @I@@@@ J VD )@@G@@ TRYSDF3 . NO FTR 3-79 @I@@@@VE )@@G@@ P$RINT (PF 2,EFTXTL,EFTXT) . FORMATTED PRINT UNAVAILABLE VF )@@G@@FTR 3-79 @I@@@@ J SDFNOT . VG )@@G@@ FTR 3-80 @I@@@@TRYSDF3 VH )@@G@@ . FTR 3-79 @I@@@@ E$DIT VI )@@G@@ EDPK . FTR 3-80 @I@@@@VJ )@@G@@ E$MSG TEXT97 . VK )@@G@@FTR 3-80 @I@@@@ L,S3 A0,IOAREA . SDF FILE - PVL )@@G@@RINT INDICATOR FTR 3-80 @I@@@@ L A1,(1,0) VM )@@G@@ . FTR 3-80 @I@@@@ L,U VN )@@G@@ R1,SDFTSL . FTR 3-80 @I@@@@VO )@@G@@ SE,H1 A0,SDFTS,*A1 . FIND TYPE OF SDF FILE VP )@@G@@FTR 3-80 @I@@@@ J SDF60 . CAN'T VQ )@@G@@ FTR 3-80 @I@@@@ L,H2 A0,SDFTS-1,A1 VR )@@G@@ . CAN - GET TEXT FTR 3-80 @I@@@@ E$MSG VS )@@G@@ . FTR 3-80 @I@@@@VT )@@G@@SDF50 . VU )@@G@@FTR 3-80 @I@@@@ P$RINT (PF 2,22,PLINE) . VV )@@G@@ FTR 3-80 @I@@@@ J SDF70 VW )@@G@@ . FTR 3-80 @I@@@@SDF60 VX )@@G@@ . FTR 3-80 @I@@@@VY )@@G@@ E$OCTV . CAN'T RECOGNIZE - PRINT OCTAL VZ )@@G@@FTR 3-80 @I@@@@ J SDF50 . WA )@@G@@ FTR 3-80 @I@@@@SDF70 WB )@@G@@ . FTR 3-80 @I@@@@ L,S3 WC )@@G@@ A0,IOAREA . FTR 3-80 @I@@@@WD )@@G@@ TE,U A0,035 . PCIOS? WE )@@G@@FTR 3-80 @I@@@@ J SDF80 . WF )@@G@@ FTR 3-80 @I@@@@ TNZ QOP WG )@@G@@ . YES - Q ON? FTR 3-80 @I@@@@ S WH )@@G@@ R12,COPT . NO - SUPPRESS LABEL PRINT FTR 3-80 @I@@@@WI )@@G@@ TZ NOLABS . HEADER NOT SUPPRESSED? WJ )@@G@@FTR 3-80 @I@@@@ J SDF80 . NO WK )@@G@@ FTR 3-80 @I@@@@ E$DIT EDPK WL )@@G@@ . YES - PRINT BLOCK INFO FTR 3-80 @I@@@@ L,S1 WM )@@G@@ A1,IOAREA+3 . FTR 3-80 @I@@@@WN )@@G@@ L,U A0,TXT10 . SEQUENTIAL TYPE WO )@@G@@FTR 3-80 @I@@@@ TE,U A1,1 . WP )@@G@@ FTR 3-80 @I@@@@ L,U A0,TXT11 WQ )@@G@@ . NO - DIRECT TYPE FTR 3-80 @I@@@@ E$MSG WR )@@G@@ . FTR 3-80 @I@@@@WS )@@G@@ E$MSG TXT09 . WT )@@G@@FTR 3-80 @I@@@@ E$DECV IOAREA+4,,H1 . BLOCK SIZE WU )@@G@@ FTR 3-80 @I@@@@ E$MSGR WV )@@G@@ . FTR 3-80 @I@@@@ E$DECV WW )@@G@@ IOAREA+4,,H2 . RECORD SIZE FTR 3-80 @I@@@@WX )@@G@@ TNZ IOAREA+6 . SEGMENTED FILE? WY )@@G@@FTR 9-80 @I@@@@ J SDF78 . NO WZ )@@G@@ FTR 9-80 @I@@@@ E$MSGR XA )@@G@@ . YES - PRINT ADDRESS OF FILE 2 FTR 9-80 @I@@@@ E$OCTV XB )@@G@@ IOAREA+6 . FTR 9-80 @I@@@@XC )@@G@@SDF78 . XD )@@G@@FTR 9-80 @I@@@@ P$RINT (PF 2,22,PLINE) . XE )@@G@@ FTR 3-80 @I@@@@SDF80 XF )@@G@@ . FTR 3-80 @I@@@@ TNZ XG )@@G@@ SEQX . WANT LATER SEQMENT? FTR 6-81 @I@@@@XH )@@G@@ J SDF85 . NO XI )@@G@@FTR 6-81 @I@@@@ TZ IOAREA+6 . YES - IS THEXJ )@@G@@RE ONE? FTR 6-81 @I@@@@ J SDFEXT XK )@@G@@ . YES FTR 6-81 @I@@@@ P$RINT XL )@@G@@ (PF 2,TXT12L,TXT12) . CANT DO FTR 6-81 @I@@@@XM )@@G@@ J BEGIN . XN )@@G@@FTR 6-81 @I@@@@SDF85 . XO )@@G@@ FTR 6-81 @F@@@@ TZ POPT XP )@@G@@ . FIE LABEL PRINT ONLY? @D@@@@ J BEGIN XQ )@@G@@ . YES - EXIT @E@@@@ L,S6 A0,IOAREA . ASCII/FDXR )@@G@@ SWITCH @E@@@@ S A0,AFDSW . STORE FOR LATEXS )@@G@@R @E@@@@ TNZ SBLOCK . ANY SKIP COUNT? XT )@@G@@@F@@@@ S R12,PON . NO - SET PON FOR LABELSSXU )@@G@@@E@@@@ L,U X4,0 . RECORD COUNTER @E@@@@XV )@@G@@ L,U A0,SDFNS . SET UP NSECTORS @B@@@@ XW )@@G@@ S A0,NSECS . @D@@@@ L X5,NBLOCKSXX )@@G@@ . PRINT COUNT @E@@@@ L A0,(SDFBL,IOAREA) . XY )@@G@@SET UP IO PACKET @ @@@@ S A0,IOPAK+4@F@@@@ L XZ )@@G@@ A0,XSTART . SET START READ ADDRESS @ @@@@ S YA )@@G@@ A0,IOPAK+5@F@@@@ A A0,NSECS . AND SEYB )@@G@@COND IO PACKET @B@@@@ S A0,IOPAK1+5 . @F@@@@YC )@@G@@ SZ IOCOUNT . INITIALIZE IO WORD COUNT@G@@@@YD )@@G@@ TZ TAPETAG . IF TAPE - REPOSITION TO FIRST YE )@@G@@@C@@@@ LMJ X10,BACKUP . BLOCK @E@@@@ L,YF )@@G@@U A0,IOPAK . READ FIRST BLOCK @B@@@@ LMJ YG )@@G@@ X10,IOSDF . @B@@@@ L A0,IOCOUNT . YH )@@G@@@G@@@@ S A0,BUF1 . INITIALIZE 1ST BUFFER LEYI )@@G@@NGTH @ @@@@ A,U A0,IOAREA @I@@@@ LXI,U A0,SYJ )@@G@@DFBL . FTR 3-80 @H@@@@ YK )@@G@@ S A0,IOPAK1+4 . SET UP READ ADDRESS FOR 2ND BUFFER YL )@@G@@@E@@@@ L,U A0,IOPAK1 . SECOND PACKET @F@@@@YM )@@G@@ TNZ SDFEOF . EOF ON FIRST BUFFER? @C@@@@YN )@@G@@ LMJ X10,IOSDF . NO @F@@@@ L,U YO )@@G@@ X7,IOAREA . POINTER TO FIRST IMAGE @[@@@@SDF01 @I@@@@ YP )@@G@@ L,H1 A0,,X7 . WORD COUNT TO RECORD IF DATA FTR 4-YQ )@@G@@79 @I@@@@ SSL A0,6 . T1 YR )@@G@@ FTR 4-79 @D@@@@ TP ,X7 . YS )@@G@@IS IT DATA? @G@@@@ L,S2 A0,,X7 . NO - CONTROLYT )@@G@@ - GET THAT COUNT @G@@@@ A,U A0,,X7 . LOCATEYU )@@G@@ LAST WORD OF RECORD @B@@@@ AN,U A0,IOAREA . YV )@@G@@@F@@@@ TLE A0,IOCOUNT . IS IT BEYOND READ AREA YW )@@G@@@C@@@@ J $+2 . NO @I@@@@ J YX )@@G@@ SDFER1 . YES - RECORD TOO LARGE OR FILE CORRUPT YY )@@G@@@E@@@@ TP ,X7 . CONTROL IMAGE? @C@@@@YZ )@@G@@ J SDF05 . YES @H@@@@ A,U ZA )@@G@@ X4,1 . DATA RECORD - INCREMENT COUNTER @D@@@@ ZB )@@G@@ L A0,SBLOCK . SKIP COUNT @E@@@@ TG ZC )@@G@@ A0,X4 . PRINT ENABLED YET?@E@@@@ J SDF0ZD )@@G@@2 . NO - MISS THIS ONE@F@@@@ JGD X5,$+2 ZE )@@G@@ . PRINT REQUEST EXPIRY? @C@@@@ J EXPCNT ZF )@@G@@ . YES @D@@@@ E$DIT EDPK . PRINT ZG )@@G@@HEADER@ @@@@ E$COPY 14,TEXTS+4@E@@@@ E$DECV ,X4,ZH )@@G@@U . RECORD NUMBER @^@@@@ E$SKIP 6 @ @@@@ZI )@@G@@ E$COPY 6,TEXTS+2 @I@@@@ L,H1 A0,,X7 ZJ )@@G@@ . RECORD SIZE IN T1 FTR 3-80 @I@@@@ SSL ZK )@@G@@ A0,6 . FTR 3-80 @I@@@@ZL )@@G@@ E$DECV . ZM )@@G@@FTR 3-80 @ @@@@ E$MSG TEXT96 @^@@@@ E$SKIP ZN )@@G@@ 2 @F@@@@ E$OCTF 12,,X7 . DISPLAY CONTROL WOZO )@@G@@RD @A@@@@ P$RINT (PF 2,22,PLINE) @I@@@@ L,H1 ZP )@@G@@ A0,,X7 . RECORD LENGTH FTR 4-79 @I@@@@ZQ )@@G@@ SSL A0,6 . T1 ZR )@@G@@FTR 4-79 @I@@@@ LMJ X11,SETLEN . SET PRINT LEZS )@@G@@NGTH FOR PRCORE FTR 3-80 @E@@@@ TNZ FPR ZT )@@G@@ . F OPTION PRINT? @G@@@@ J SDF01A . NOZU )@@G@@ - USE SPECIFIED PRINT OPTION @H@@@@ L,U A0,'N' ZV )@@G@@ . YES - GET STATE FROM LAST 042 IMAGE @B@@@@ A A0,AZW )@@G@@FDSW . @B@@@@ S,H1 A0,LMJPR . @]@@@@ZX )@@G@@SDF01A . @D@@@@ LMJ X11,PRCORE . PRINT IT ZY )@@G@@@F@@@@ + LMJPR . PRINT TYPE PARAMETER ZZ )@@G@@@I@@@@ PF 1,X7,1 . PRINT PARAMETER AA )@@G@@ FTR 3-80 @E@@@@ S R12,PON . SET PRAB )@@G@@INT-ON FLAG @[@@@@SDF02 @I@@@@ L,H1 A0,,X7 . AC )@@G@@RECORD LENGTH FTR 4-79 @I@@@@ SSL A0,6AD )@@G@@ . T1 FTR 4-79 @I@@@@ AE )@@G@@ A X7,A0 . ADD RECORD LENGTH FTR 4-AF )@@G@@79 @[@@@@SDF03 @E@@@@ A,U X7,1 . PLUS 1AG )@@G@@ FOR RCW @F@@@@ L,U A0,IOAREA . FIND BUFFER AH )@@G@@DELIMITER @ @@@@ A A0,BUF1 @H@@@@ TG,U AI )@@G@@ A0,,X7 . IS IT OVER THE BUFFER DELIMITER? @E@@@@ AJ )@@G@@ J SDF04 . NO - CONTINUE @G@@@@ TZAK )@@G@@ SDFEOF . YES - IS IT WORTH MOVING UP? @F@@@@ AL )@@G@@ J SDF04 . NO - EOF ENCOUNTERED @G@@@@ AM )@@G@@ AN X7,BUF1 . YES- MOVE IT UP ONE BLOCK @B@@@@AN )@@G@@ L A0,(1,IOAREA) . @B@@@@ AU A0,BAO )@@G@@UF1 . @B@@@@ L R1,BUF1 . @B@@@@AP )@@G@@ BT A0,,*A1 . @B@@@@ L A0,IAQ )@@G@@OCOUNT . @B@@@@ AN A0,BUF1 . @B@@@@AR )@@G@@ S A0,IOCOUNT . @G@@@@ S A0,BAS )@@G@@UF1 . SET UP NEW 1ST BUFFER LENGTH @B@@@@ A,U AT )@@G@@ A0,IOAREA . @H@@@@ S,H2 A0,IOPAK1+4 . AU )@@G@@AND READ ADDRESS FOR 2ND BUFFER @ @@@@ L,U A0,IOPAK1 AV )@@G@@@I@@@@ LMJ X10,IOSDF . AND READ SECOND BLOCK INAW )@@G@@TO 2ND BUFFER @[@@@@SDF04 @E@@@@ J SDF01 AX )@@G@@ . GO FOR NEXT RECORD@[@@@@SDF05 @D@@@@ L,S1 A0,,X7 AY )@@G@@ . LABEL TYPE @E@@@@ TE,U A0,042 . ASAZ )@@G@@CII/FD SWITCH? @B@@@@ J SDF05A . NO@E@@@@BA )@@G@@ L,S6 A0,,X7 . YES - REMEMBER IT @B@@@@ BB )@@G@@ S A0,AFDSW . @]@@@@SDF05A . @F@@@@ TZBC )@@G@@ PON . PRINT NOT YET ENABLED? @D@@@@ TZBD )@@G@@ COPT . C OPTION? @E@@@@ J SDF0BE )@@G@@6 . - DO NOT DISPLAY @E@@@@ E$DIT EDPK BF )@@G@@ . YES - DISPLAY IT @ @@@@ E$MSG TEXT94 @C@@@@BG )@@G@@ E$DECV ,X7,S2 . LENGTH@ @@@@ E$MSG BH )@@G@@ TEXT96 @D@@@@ E$OCTF 12,,X7 . DISPLAY IT BI )@@G@@@A@@@@ P$RINT (PF 2,22,PLINE) @D@@@@ TNZ FPR BJ )@@G@@ . F OPTION? @B@@@@ J SDF05B BK )@@G@@ . NO@G@@@@ L,U A0,'N' . YES - SET PRINT OPTIBL )@@G@@ON AS 042 @B@@@@ A A0,AFDSW . @B@@@@ BM )@@G@@ S,H1 A0,BLMJPR . @]@@@@SDF05B . @C@@@@ L,BN )@@G@@S2 A0,,X7 . LENGTH@I@@@@ LMJ X11,SETLENBO )@@G@@ . SET PRINT LENGTH FOR PRCORE FTR 3-80 @I@@@@ S,BP )@@G@@H2 A0,BLMJPR . SET WORD COUNT FTR 5-80 BQ )@@G@@@ @@@@ LMJ X11,PRCORE@ @@@@ + BLMJPR BR )@@G@@@I@@@@ PF 1,X7,1 . PRINT PARAMETER BS )@@G@@ FTR 3-80 @[@@@@SDF06 @D@@@@ L,S1 A0,,X7 BT )@@G@@ . LABEL TYPE @C@@@@ TNE,U A0,077 . EOF? BU )@@G@@@G@@@@ J NOK2 . YES - SOFWARE EOF ENCOUNBV )@@G@@TERED @F@@@@ A,S2 X7,,X7 . NO - INCREMENT POIBW )@@G@@NTER @E@@@@ J SDF03 . AND GO FOR NEXT BX )@@G@@@[@@@@SDFER1@B@@@@ P$RINT (PF 02,TEXT95L,TEXT95)@G@@@@ BY )@@G@@ J PRERRO . GO TO DUMP IF E OPTION IS ON @I@@@@BZ )@@G@@SDFEXT . SEGNENTED PCIOS SDF FILE CA )@@G@@FTR 6-81 @I@@@@ P$RINT (PF 2,TXT13L,TXT13) . CB )@@G@@ FTR 6-81 @I@@@@ L R4,SEQX CC )@@G@@ . SEGMENT NUMBER FTR 6-81 @I@@@@SDFE2 CD )@@G@@ . FTR 6-81 @I@@@@CE )@@G@@ JGD R4,$+2 . CF )@@G@@FTR 6-81 @I@@@@ J SDF85 . FOUND THE SECG )@@G@@GNENT REQUIRED FTR 6-81 @I@@@@ L A0,IOAREA+6 CH )@@G@@ . NEXT SEGMENT FTR 6-81 @I@@@@ JZ CI )@@G@@ A0,SDFEG . ERROR IF THERES NOT ONE FTR 6-81 @I@@@@CJ )@@G@@ S A0,IOPAK+5 . CK )@@G@@FTR 6-81 @I@@@@ I$OW IOPAK . READ NEXT SECL )@@G@@GMENT LABEL FTR 6-81 @I@@@@ TNZ,S1 IOPAK+3 CM )@@G@@ . ANY ERROR IS BAD FTR 6-81 @I@@@@ J CN )@@G@@ SDFE4 . FTR 6-81 @I@@@@CO )@@G@@ P$RINT (PF 2,TXT14L,TXT14) . IO ERROR CP )@@G@@FTR 6-81 @I@@@@ J BEGIN . CQ )@@G@@ FTR 6-81 @I@@@@SDFE4 CR )@@G@@ . GOT LABEL OF NEXT SEGNENT FTR 6-81 @I@@@@ E$DIT CS )@@G@@ EDPK . YES - PRINT BLOCK INFO FTR 6-81 @I@@@@CT )@@G@@ L,S1 A1,IOAREA+3 . CU )@@G@@FTR 6-81 @I@@@@ L,U A0,TXT10 . SEQUENTIAL TCV )@@G@@YPE FTR 6-81 @I@@@@ TE,U A1,1 CW )@@G@@ . FTR 6-81 @I@@@@ L,U CX )@@G@@ A0,TXT11 . NO - DIRECT TYPE FTR 6-81 @I@@@@CY )@@G@@ E$MSG . CZ )@@G@@FTR 6-81 @I@@@@ E$MSG TXT09 . DA )@@G@@ FTR 6-81 @I@@@@ E$DECV IOAREA+4,,H1 DB )@@G@@ . BLOCK SIZE FTR 6-81 @I@@@@ E$MSGR DC )@@G@@ . FTR 6-81 @I@@@@DD )@@G@@ E$DECV IOAREA+4,,H2 . RECORD SIZE DE )@@G@@FTR 6-81 @I@@@@ E$MSGR . DF )@@G@@ FTR 6-81 @I@@@@ E$OCTV IOAREA+6 DG )@@G@@ . FTR 6-81 @I@@@@ P$RINT DH )@@G@@ (PF 2,22,PLINE) . FTR 6-81 @I@@@@DI )@@G@@ J SDFE2 . DJ )@@G@@FTR 6-81 @H@@@@SDFEG . SPECIFIED SEG DK )@@G@@IS BEYOND END FTR @H@@@@ P$RINT (PF 2,TXT15L,TXT15) DL )@@G@@ . FTR @H@@@@ J BEGIN DM )@@G@@ . FTR @I@@@@SDFNOT DN )@@G@@ . FTR 3-80 @I@@@@DO )@@G@@ J CANTDO . NOT SDF FORMAT DP )@@G@@FTR 3-80 @I@@@@IGROUT . CONTINGENCY DQ )@@G@@ROUTINE FTR 9-80 @B@@@@ ER CEND$ DR )@@G@@ . @I@@@@ L,H1 A0,IGCONT . ERROR CODE DS )@@G@@ FTR 4-79 @I@@@@ SSL A0,6 . DT )@@G@@T1 FTR 4-79 @F@@@@ TNE,U A0,0DU )@@G@@440 . ER 040? (SYNTAX ERROR) @F@@@@ J CSFIDV )@@G@@G . YES - GIVE FAC REJECT @I@@@@ TE,U A0,0DW )@@G@@401 . ER 01? (ILLEGAL ER) FTR 4-79 @I@@@@ DX )@@G@@ J IGC1 . NO FTR 4-DY )@@G@@79 @I@@@@ L,H2 A0,IGCONT . YES - GET ADDRESS DZ )@@G@@OF ER FTR 4-79 @I@@@@ L,H2 A0,,A0 . EA )@@G@@LOOK AT ER INDEX FTR 4-79 @I@@@@ TE,U A0,LEB )@@G@@ABEL$ . ER LABEL$? FTR 4-79 @I@@@@ EC )@@G@@ J IGC2 . NO FTR 4-ED )@@G@@79 @I@@@@ LN,U A0,1 . YES - NEGATE A0 EE )@@G@@ FTR 4-79 @I@@@@ J IGRET . EF )@@G@@ FTR 4-79 @I@@@@IGC1 EG )@@G@@ . FTR 4-79 @E@@@@ EH )@@G@@ SSL A0,6 . GET PRIMARY CODE @D@@@@ TNEI )@@G@@E,U A0,1 . IO ERROR? @F@@@@ J IOWIEJ )@@G@@G . YES - BYPASS CONTINGENCY@I@@@@IGC2 EK )@@G@@ . FTR 4-79 @I@@@@ EL )@@G@@ L,U A0,IGCONT . PRINT ERROR MESSAGE FTR 9-EM )@@G@@80 @I@@@@ ER ERRPR$ . EN )@@G@@ FTR 9-80 @D@@@@ TZ ALDONE . REEO )@@G@@AD$ EOF? @D@@@@ ER EXIT$ . YES - EXIT NOWEP )@@G@@@B@@@@ J BEGIN . @B@@@@CSFIG EQ )@@G@@ . @F@@@@ L A0,(1*/35+1*/34+1*/21)ER )@@G@@ . SET UP STATUS RETURN @B@@@@ J IGRET . ES )@@G@@@B@@@@IOWIG . @B@@@@IGRET ET )@@G@@ . @E@@@@ L,H2 A1,IGCONT . EU )@@G@@GET ERROR ADDRESS @D@@@@ J 1,A1 . GO THEEV )@@G@@RE @[@@@@. @G@@@@. ROUTINE TO COMPARE HALF-WORD BY HALF-WORD 'CUREW )@@G@@RENT' KEY AGAINST 'LAST'@[@@@@. KEY @#@@@@. ENTERED ON X11 @ @@@@. X9 =EX )@@G@@ 1,ADDRESS OF LAST KEY @ @@@@. X5 MUST POINT TO CURRENT KEY@[@@@@. EY )@@G@@@#@@@@. LMJ X11,KEYCHK @#@@@@. J CURRENTLAST @[@@@@. @B@@@@. REGISTERS USED ARE X11 X10 XFA )@@G@@9 R1 A0 @[@@@@. @B@@@@KEYCHK . FB )@@G@@@F@@@@ L,U X10,2+IOAREA,X5 . CURRENT KEY ADDRESS FC )@@G@@@D@@@@ LXI,U X10,1 . INCREMENTER @D@@@@ FD )@@G@@ L A0,SKL . KEY LENGTH @G@@@@ MSI,U FE )@@G@@ A0,2 . CONVERT TO 1/2 WORD COUNT @B@@@@ L FF )@@G@@ R1,A0 . @F@@@@ L,U X2,1 FG )@@G@@ . LOAD AND ADD TABLE MOD @D@@@@ L,U A3,1 FH )@@G@@ . MOD TO MOD @B@@@@KC01 . @F@@@@FI )@@G@@ JGD R1,KC02 . DO ALL KEY IF NECCESSARY@F@@@@FJ )@@G@@ J 1,X11 . ALL DONE - MUST BE EQUAL@B@@@@FK )@@G@@KC02 . @F@@@@ MSI,XU A3,-FL )@@G@@1 . COMPLEMENT MOD TO MOD @F@@@@ A X2,AFM )@@G@@3 . INCREMENT/DECREMENT MOD @E@@@@ EX LTABFN )@@G@@,X2 . GET A 1/2 WORD @F@@@@ EX ATAB,X2 FO )@@G@@ . SUBTRACT A 1/2 WORD @C@@@@ JN A0,,X11 FP )@@G@@ . LESS @C@@@@ JZ A0,KC01 . EQUAL FQ )@@G@@@D@@@@ J 2,X11 . GREATER @[@@@@. FR )@@G@@@[@@@@. @]@@@@. Y OPTION @[@@@@. @[@@@@. @I@@@@ ONFS )@@G@@ COBFD>0 . ONLY IF COBOL FD MS REQUIRED FTR 2-80 FT )@@G@@@B@@@@DONOTR . @B@@@@ P$RINT FU )@@G@@ (PF 2,14,TEXT67) . @B@@@@ J BEGIN . FV )@@G@@@I@@@@ OFF COBFD>0 . ONLY IF COBOL FD MS REQUFW )@@G@@IRED FTR 2-80 @[@@@@. @^@@@@. PARAMETER CONTINUATION@[@@@@. FX )@@G@@@B@@@@PARCNT . @E@@@@ R$EAD FY )@@G@@ (PARERR,READLOC) . READ NEXT CARD @B@@@@ L,U A1,'FZ )@@G@@&' . @G@@@@ S,S1 A1,READLOC,A0 . SET MSGA )@@G@@G CHARACTER FOR ERROR @B@@@@ MSI,U A0,6 . GB )@@G@@@E@@@@ S,H1 A0,GETTAB . MAX CARD LENGTH @B@@@@GC )@@G@@ L,U A0,READLOC . @B@@@@ S A0,GGD )@@G@@ETTAB+2 . @B@@@@ SZ,H2 GETTAB+1 . @F@@@@GE )@@G@@ LMJ X11,RGETF . RE-ENTER SUBROUTINE @B@@@@GF )@@G@@GETNUM . @I@@@@ L,U A12,GG )@@G@@8 . ERROR CODE 8 IF NECESSARY FTR 3-80 @E@@@@ GH )@@G@@ GET$P GETTAB GETNUM2 . GET THIS SPEC @E@@@@ L,GI )@@G@@U A0,GETLOC . INTO GETLOC @E@@@@ L,H1 GJ )@@G@@ A1,GETTAB+3 . CHAR COUNT @E@@@@ L,S1 A2,GGK )@@G@@ETLOC . FIRST CHARACTER @F@@@@ TE,U A2,060 GL )@@G@@ . ASSUME OCTAL IF ZERO @B@@@@ J GETNUM1 GM )@@G@@ . @B@@@@ LMJ X11,OCTRAN . @E@@@@ GN )@@G@@ J 0,X10 . AND RETURN - ELSE @B@@@@GETNUM1 GO )@@G@@ . @E@@@@ LMJ X11,DECTRAN GP )@@G@@ . ASSUME DECIMAL @I@@@@ JN A1,,X10 . GQ )@@G@@ERROR FTR 3-80 @I@@@@ JP A0,,GR )@@G@@X10 . OK FTR 3-80 @I@@@@ GS )@@G@@ L,XU A1,-1 . RESULT NEG IS ERROR FTR 3-GT )@@G@@80 @D@@@@ J 0,X10 . AND RETURN @]@@@@GU )@@G@@GETNUM2 @I@@@@ SZ A1 . VOID FIELD -GV )@@G@@ TREAT AS ZERO FTR 3-80 @F@@@@ L,U A0,0 GW )@@G@@ . SET POSSIBLE DEFAULT @D@@@@ J 0,X10 GX )@@G@@ . AND RETURN @B@@@@PARE01 . @E@@@@GY )@@G@@ L,U A12,6 . SET UP ERROR CODE @B@@@@ GZ )@@G@@ J PARERR . @B@@@@PARE02 HA )@@G@@ . @E@@@@ L,U A12,7 . SET UP ERRORHB )@@G@@ CODE @B@@@@ J PARERR . @I@@@@QLD HC )@@G@@ . FTR 3-80 HD )@@G@@@I@@@@. WORD INDEX = A1 CHAR INDEX = A2 HE )@@G@@ FTR 3-80 @I@@@@ L,Q1 A0,,A1 . HF )@@G@@ FTR 3-80 @I@@@@ L,Q2 A0,,A1 HG )@@G@@ . FTR 3-80 @I@@@@ L,HH )@@G@@Q3 A0,,A1 . FTR 3-80 HI )@@G@@@I@@@@ LMJ X11,$+1 . HJ )@@G@@ FTR 3-80 @I@@@@ L,Q4 A0,,*A1 . HK )@@G@@ FTR 3-80 @I@@@@ LXM,U A2,0 HL )@@G@@ . FTR 3-80 @I@@@@ J HM )@@G@@ ,X11 . FTR 3-80 HN )@@G@@@I@@@@QST . HO )@@G@@ FTR 3-80 @I@@@@. X1 = WORD INDEX X2 = CHAR INDEX HP )@@G@@ FTR 3-80 @I@@@@ S,Q1 A0,,X1 HQ )@@G@@ . FTR 3-80 @I@@@@ S,HR )@@G@@Q2 A0,,X1 . FTR 3-80 HS )@@G@@@I@@@@ S,Q3 A0,,X1 . HT )@@G@@ FTR 3-80 @I@@@@ LMJ X11,$+1 . HU )@@G@@ FTR 3-80 @I@@@@ S,Q4 A0,,*X1 HV )@@G@@ . FTR 3-80 @I@@@@ LXHW )@@G@@M,U X2,0 . FTR 3-80 HX )@@G@@@I@@@@ J ,X11 . HY )@@G@@ FTR 3-80 @B@@@@LTAB . @B@@@@HZ )@@G@@ L,H1 A0,,X10 . @B@@@@ L,H2 A0,,IA )@@G@@*X10 . @B@@@@ATAB . @B@@@@IB )@@G@@ AN,H1 A0,,X9 . @B@@@@ AN,H2 A0,,IC )@@G@@*X9 . @[@@@@$(2) @I@@@@IGPKT +1*/1+1*/9+1*/0 ID )@@G@@ . CONTINGENCY PACKET FTR 9-80 @I@@@@ +IGROUT IE )@@G@@ . FTR 9-80 @I@@@@IF )@@G@@IGCONT +0D . IG )@@G@@FTR 9-80 @I@@@@IGFAC +0 . IH )@@G@@ FTR 9-80 @B@@@@INFTXT 'TOTAL BLOCKS' II )@@G@@ . @I@@@@ ON COBFD>0 . NEEDED ONLY IF FD IJ )@@G@@COBOL FTR 3-80 @B@@@@ 'INDEX BLOCKS' . IK )@@G@@@B@@@@ 'IOF BLOCKS' . @B@@@@ 'TOTL REIL )@@G@@CORDS' . @B@@@@ 'RECS IN IOF' . IM )@@G@@@B@@@@ 'RECS DELETED' . @I@@@@ OFF IN )@@G@@ COBFD>0 . NEEDED ONLY IF FD COBOL FTR 3-80 @B@@@@IO )@@G@@KWTAB . @I@@@@ ON COBFIP )@@G@@D>0 . ONLY IF FD COBOL MS PRINT ON FTR 3-80 @B@@@@ IQ )@@G@@ 'SDUMPKEY' . @B@@@@ PP TLEN,,SDK IR )@@G@@ . @B@@@@ 'EDUMPKEY' . @B@@@@ IS )@@G@@ PP TLEN,,EDK . @I@@@@ OFF COBFD>0 IT )@@G@@ . ONLY IF FD COBOL MS PRINT ON FTR 3-80 @I@@@@ 'SIU )@@G@@EQSEGMT' . SDF PCIOS SEGMENTED FILE # FTR 6-81 IV )@@G@@@I@@@@ PP 1,,SEQX . IW )@@G@@ FTR 6-81 @B@@@@ 'STPRINTK' . @B@@@@IX )@@G@@ PP TLEN,,SPK . @B@@@@ 'ENPRINTK' IY )@@G@@ . @B@@@@ PP TLEN,,EPK . @I@@@@IZ )@@G@@ 'MSAMALTK' . JA )@@G@@FTR 3-80 @I@@@@ PP 1,,MSAMK . JB )@@G@@ FTR 3-80 @B@@@@ 'DUMPBLEN' JC )@@G@@ . @B@@@@ PP 1,,XPLEN . %I@@@@-3838 JD )@@G@@ FTR 7-81 JE )@@G@@@I@@[@ ON COBFD>0 . ONLY IF FD COBOL MS PRINJF )@@G@@T ON FTR 7-81 @B@@@@ 'SDUMPNUM' . @B@@@@JG )@@G@@ PP 1,,SDN . @B@@@@ 'EDUMPNUM' JH )@@G@@ . @B@@@@ PP 1,,EDN . %I@@@@JI )@@G@@-3842 JJ )@@G@@FTR 7-81 @I@@[@ OFF COBFD>0 . ONLY IF FD CJK )@@G@@OBOL MS PRINT ON FTR 7-81 @B@@@@ 'PRLENGTH' JL )@@G@@ . @B@@@@ PP 1,,PRL . @^@@@@ 'EJM )@@G@@OFCOUNT' @ @@@@ PP 1,,EOFC @I@@@@ ON JN )@@G@@ COBFD>0 . ONLY IF FD COBOL MS PRINT ON FTR 3-80 @B@@@@JO )@@G@@ 'MSTOTYPE' . @B@@@@ PP 1,,MJP )@@G@@STYPE . %F@@@@-3849 JQ )@@G@@ FTR 7-81@I@@[@ OFF COBFD>0 . ONLY IJR )@@G@@F FD COBOL MS PRINT ON FTR 7-81 @B@@@@ 'WDTOLINE' JS )@@G@@ . @B@@@@ PP 1,,WTLINE . @^@@@@ JT )@@G@@ 'XSTARTRD' @ @@@@ PP 1,,XSTART %I@@@@-3854,3854 JU )@@G@@ FTR 7-81 JV )@@G@@%@@@@[@B[@@@ 'LABELPRT' . @G@@@@ PPJW )@@G@@ 2,0100,LABPRT . S2=1 MEANS SINGLE CHAR ALLOWED@B@@@@ JX )@@G@@ 'LABELPRL' . @B@@@@ PP 1,,LABPRL JY )@@G@@ . @B@@@@KWTNO EQU ($-KWTAB)/3 . @C@@@@FRAS JZ )@@G@@ '@FREE,R TOC . ' . @B@@@@ASGTOC '@ASG,A TOC KA )@@G@@. ' . @B@@@@ASFLE '@USE TOC,' . @B@@@@KB )@@G@@GETLC1 RES 8 . @B@@@@ ' & . ' KC )@@G@@ . @D@@@@HNO + 999999 . HIGH NKD )@@G@@UMBER @^@@@@HOFF 'H,N.M,*,*,*.'@ @@@@HOFFL EQU $-HOFF KE )@@G@@@D@@@@SET 'M,66,3,3.H,,,SERPRT PRINT OF FILE &' @[@@@@$(8) KF )@@G@@@B@@@@EDPK E$PKT 22,PLINE 'MSG','&' . @B@@@@PLINE RES KG )@@G@@ 22 . @[@@@@$(2) @B@@@@BLANKS KH )@@G@@ . @C@@@@ ' ' . SPACES@B@@@@KI )@@G@@TEXTS 'BLOCK NUMBER' . @B@@@@ 'SIZE ' KJ )@@G@@ . @B@@@@ ' WORDS' . @B@@@@KK )@@G@@ 'RECORD NUMBER' . @I@@@@TEXTSA KL )@@G@@ . FTR 3-80 @I@@@@ KM )@@G@@ ' CHARACTERS& SEGMENT STATUS= &' . FTR 3-KN )@@G@@80 @I@@@@TEXT1 ' FILE ASSIGNMENT ERROR &' . KO )@@G@@ FTR 3-80 @I@@@@ ON COBFD>0 . KP )@@G@@ONLY IF COBOL FD MS REQUIRED FTR 2-80 @B@@@@TEXT2 'FILE EMPTY' KQ )@@G@@ . @I@@@@ OFF COBFD>0 . ONLY IKR )@@G@@F COBOL FD MS REQUIRED FTR 2-80 @I@@@@TEXT3 ' FASTRAND FORMAT&' KS )@@G@@ . FTR 3-80 @I@@@@TEXT4 ' KT )@@G@@WORD ADDRESSABLE FORMAT&' . FTR 3-80 KU )@@G@@@I@@@@TEXT5 ' EQUIP=& (&-TRK &LABELLED TAPE TSN=& PARITY=&,BPI=&)&' KV )@@G@@. FTR 3-80 @ @@@@TEXT5A ' ASG OPTIONS: &' @B@@@@TEXT6 ' KW )@@G@@ ERROR READING PAST EOF' . @I@@@@ ON COBFD>0 KX )@@G@@ . ONLY IF COBOL FD MS REQUIRED FTR 2-80 @B@@@@TEXT7 'CFH FORKY )@@G@@MAT MASS-STORAGE(-28)'. @B@@@@TEXT8 'CFH FORMAT MASS-STORAGE-112' . KZ )@@G@@@B@@@@TEXT9 'NO CFH-EOF BLOCK' . @I@@@@ OFF LA )@@G@@ COBFD>0 . ONLY IF COBOL FD MS REQUIRED FTR 2-80 @B@@@@LB )@@G@@TEXT10 'MAX BLOCK SIZE' . @B@@@@TEXT11 'MAX RECORD SILC )@@G@@ZE' . @G@@@@TEXT12 'IO STATUS CODE & ATTEMPTING TO READ &LD )@@G@@ WORDS FROM ADDRESS &' @I@@@@ ON COBFD>0 . LE )@@G@@NEEDED ONLY IF FD COBOL FTR 3-80 @B@@@@TEXT13 'PREMATURE EOFLF )@@G@@ RETURN-FASTRAND'.@I@@@@ OFF COBFD>0 . NEEDEDLG )@@G@@ ONLY IF FD COBOL FTR 3-80 @B@@@@TEXT15 'VALUE OF ID- ' LH )@@G@@ . @B@@@@TEXT16 'NUMBER OF RECORDS: ' . @B@@@@TEXT17LI )@@G@@ 'NUMBER OF BLOCKS: ' . @B@@@@TEXT18 'USER LABEL: ' LJ )@@G@@ .@B@@@@TEXT19 'STANDARD LABELS' . @D@@@@TEXT20LK )@@G@@ 'INVALID WORD COUNT-FILE PRINT TERMINATED'. @B@@@@TEXT21 'CREATIOLL )@@G@@N DATE: ' . @I@@@@ ON COBFD>0 . LM )@@G@@ONLY IF COBOL FD MS REQUIRED FTR 2-80 @D@@@@TEXT22 'HDR CREATION LN )@@G@@NOT = EOF CREATION DATE '. @I@@@@ OFF COBFD>0 LO )@@G@@ . ONLY IF COBOL FD MS REQUIRED FTR 2-80 @B@@@@TEXT23 'NO EOF LP )@@G@@BLOCK-TAPE FILE' . @E@@@@TEXT25 'EOF BLOCK INCOMPLETE-NO TAPE MALQ )@@G@@RK FOLLOWING '. @E@@@@TEXT27 'MAX BLOCK SIZE EXCEEDS SERPRT CAPABILLR )@@G@@ITY OF '. @F@@@@TEXT28 'ERROR IN PARAMETER CARD DETECTED BEFORE COLLS )@@G@@UMN & :&' . @I@@@@ ON COBFD>0 . ONLY IF COBOLT )@@G@@L FD MS REQUIRED FTR 2-80 @B@@@@TEXT29 'EOF SENTINEL ADDRESS INVALU )@@G@@LID'. @I@@@@ OFF COBFD>0 . ONLY IF COBOL FD MLV )@@G@@S REQUIRED FTR 2-80 @B@@@@TEXT30 'LABELS OMITTED' . LW )@@G@@@B@@@@TEXT31 'REEL NUMBER: ' . @I@@@@ ON LX )@@G@@ COBFD>0 . ONLY IF FD COBOL MS PRINT ON FTR 3-80 @E@@@@LY )@@G@@TEXT33 'NUMBER OF BLOCKS ON FILE EXCEEDS CFH EOF COUNT'. @I@@@@ LZ )@@G@@ OFF COBFD>0 . ONLY IF FD COBOL MS PRINT ON FTR 3-MA )@@G@@80 @E@@@@TEXT34 'NUMBER OF RECORDS ON FILE EXCEEDS CFH EOF COUNT'.MB )@@G@@@B@@@@TEXT35 'EOF SENTINEL' . @F@@@@TEXT36 'AFC ON MC )@@G@@TAPE-WORD COUNT READ NOT=BLOCK WORD COUNT'. @B@@@@TEXT37 'NO WRITMD )@@G@@ES TO THIS FILE' . @I@@@@TEXT38 ' -EXTERNAL NAME= &' . ME )@@G@@ FTR 3-80 @I@@@@ ON COBFMF )@@G@@D>0 . ONLY IF COBOL FD MS REQUIRED FTR 2-80 @B@@@@TEXT39MG )@@G@@ 'RANDOM FILE' . @I@@@@ 'SERIAL FILE' MH )@@G@@ . FTR 3-80 @D@@@@TEXT41 'IMI )@@G@@NVALID BLOCK NUMBER IN INFORM AREA' . @B@@@@TEXT43 'INFORMATION BMJ )@@G@@LOCK:' . @B@@@@TEXT44 'BLOCKING FACTOR:' . @B@@@@MK )@@G@@TEXT45 'QURT&HALF& FULL&' . @B@@@@TEXT46 'TRACK' ML )@@G@@ . @B@@@@TEXT47 'FIXED&VARIABLE&' . @B@@@@MM )@@G@@TEXT48 'KEY LENGTH:' . @C@@@@TEXT49 'END OF KEYS SMN )@@G@@ENTINEL ENCOUNTERED' . @I@@@@ OFF COBFD>0 . MO )@@G@@ONLY IF COBOL FD MS REQUIRED FTR 2-80 @B@@@@TEXT50 'REQUESTED COUMP )@@G@@NT EXPIRED' . @I@@@@ ON COBFD>0 . ONLY IMQ )@@G@@F COBOL FD MS REQUIRED FTR 2-80 @B@@@@TEXT51 'INFORM INDEX DATA MR )@@G@@IOF ' . @I@@@@ OFF COBFD>0 . ONLY IF COBOMS )@@G@@L FD MS REQUIRED FTR 2-80 @B@@@@TEXT52 ' KEY-' MT )@@G@@ . @I@@@@ ON COBFD>0 . ONLY IF COBOL FD MMU )@@G@@S REQUIRED FTR 2-80 @B@@@@TEXT53 'RECORD DELETED AT:' . MV )@@G@@@I@@@@ OFF COBFD>0 . ONLY IF COBOL FD MS REQUMW )@@G@@IRED FTR 2-80 @H@@@@TEXT54 'IO$ STATUS RETURN UNFAVOURABLE - TAKEMX )@@G@@N AS END OF RANDOM FILE' . @H@@@@TEXT55 'CONTENTS OF CURRENT BLOCKMY )@@G@@ - LENGTH & WORDS AT SECTOR ADDRESS &' . @I@@@@ ON COBFMZ )@@G@@D>0 . ONLY IF COBOL FD MS REQUIRED FTR 2-80 @F@@@@TEXT56NA )@@G@@ 'KEY LENGTH ON FILE NOT EQUAL TO THAT IN INFO BLOCK' . @I@@@@ NB )@@G@@ OFF COBFD>0 . ONLY IF COBOL FD MS REQUIRED FTR 2-NC )@@G@@80 @B@@@@TEXT57 'EQUIPMENT TYPE NOT VALID' . @B@@@@TEXT58 'END )@@G@@OF STATUS RETURNED BY IO$' . @B@@@@TEXT59 'REQUESTED COUNT EXPIRED' NE )@@G@@ . @B@@@@TEXT60 'AT ADDRESS ' . @B@@@@TEXT61 'ANF )@@G@@BNORMAL FRAME COUNT=' . @I@@@@ ON COBFD>0 NG )@@G@@ . ONLY IF COBOL FD MS REQUIRED FTR 2-80 @B@@@@TEXT62 'INDEXEDNH )@@G@@ SEQUENTIAL FILE' . @B@@@@TEXT63 'KEYS NOT IN ASCENDING ORDER' . NI )@@G@@@D@@@@TEXT64 'RECORD COUNT ON FILE NOT = ISFMS COUNT' . @I@@@@ NJ )@@G@@ OFF COBFD>0 . ONLY IF COBOL FD MS REQUIRED FTR 2-NK )@@G@@80 @B@@@@TEXT65 'BLOCK SIZE ON FILE=ZERO' . @I@@@@ ONNL )@@G@@ COBFD>0 . ONLY IF COBOL FD MS REQUIRED FTR 2-80 NM )@@G@@@G@@@@TEXT66 'FILE MAP:&INDEXES FROM&IOF-1 FROM&DATA FROM&IOF-2 FROM&NN )@@G@@' . @H@@@@TEXT67 'FILE FAILED TEST FOR INDEXED SEQUENTIAL-PRINT TERNO )@@G@@MINATED BEC'; @B@@@@ 'AUSE Y OPTION IS ON' . @I@@@@NP )@@G@@ OFF COBFD>0 . ONLY IF COBOL FD MS REQUIRED NQ )@@G@@FTR 2-80 @B@@@@TEXT68 'ERROR IN INDEXES' . @B@@@@TEXT69NR )@@G@@ 'RECORD KEY ABOVE EOF ' . @I@@@@ ON COBFD>0 NS )@@G@@ . ONLY IF COBOL FD MS REQUIRED FTR 2-80 @B@@@@TEXT71 'BNT )@@G@@LOCK CONTROL WORD IN ERROR' . @I@@@@TEXT72 'RECORD SIZE NOT=BLOCK SIZNU )@@G@@E-RECORD SIZE USED TO CALCULATE ACTUAL KEY' @I@@@@ OFF NV )@@G@@ COBFD>0 . ONLY IF COBOL FD MS REQUIRED FTR 2-80 @B@@@@NW )@@G@@TEXT73 'EOF SECTOR ADDRESS: ' . @I@@@@ ON COBFNX )@@G@@D>0 . ONLY IF COBOL FD MS REQUIRED FTR 2-80 @C@@@@TEXT81NY )@@G@@ ' RECORD KEYS AND CONTROL WORDS:' . @B@@@@TEXT82 ' WORDS IN USENZ )@@G@@ IN BLOCK' . @B@@@@TEXT83 ' RECORDS:' . @B@@@@OA )@@G@@TEXT84 'NUMBER OF WORDS OF:' . @I@@@@ OFF COBFOB )@@G@@D>0 . ONLY IF COBOL FD MS REQUIRED FTR 2-80 @I@@@@TEXT85OC )@@G@@ ' FILE TYPE: & MASS-STORAGE& ADDR OF FIRST DATA BLK: &' . FTR 3-OD )@@G@@80 @C@@@@TEXT86 'SOFTWARE END OF FILE ENCOUNTERED' @D@@@@TEXT87OE )@@G@@ ' SIZE & WORDS AT SECTOR ADDRESS &' @G@@@@TEXT88 'ASCII COF )@@G@@OBOL LABEL RECORDS OMITTED (IMPLIED BY O OPTION)' @ @@@@TEXT88L EQOG )@@G@@U $-TEXT88 @ @@@@TXT88L EQU TEXT88L @G@@@@TEXT89 'IOH )@@G@@S FILE: KEY LENGTH & WORDS SLACK BIT SHIFT COUNT &' @I@@@@ OI )@@G@@ ' ADDRESS OF HIGHEST INDEX &' . FTR 4-OJ )@@G@@79 @B@@@@TEXT90 'DELETED RECORD, KEY = &' @C@@@@TEXT94 'COK )@@G@@ONTROL IMAGE LENGTH & WORDS &'@ @@@@TEXT95 'NO SDF END OF FILE'OL )@@G@@@ @@@@TEXT95L EQU $-TEXT95 @[@@@@TEXT96@B@@@@ ' WORDS OM )@@G@@ CONTROL WORD: &' @I@@@@TEXT97 'SYSTEM DATA FORMAT (SDF) FILE ON )@@G@@ TYPE &' . FTR 3-80 @C@@@@TEXT98 'INVALID FILE OO )@@G@@TYPE - PRINT TERMINATED'@ @@@@TEXT98L EQU $-TEXT98 @I@@@@TEXT99OP )@@G@@ 'FILE APPEARS TO BE ASCII COBOL INTERNAL FORMAT TAPE -'; . FTR 3-OQ )@@G@@79 @I@@@@ ' ATTEMPTING TO PRINT AS SUCH' . OR )@@G@@ FTR 3-79 @I@@@@TEXT99L EQU $-TEXT99 . OS )@@G@@ FTR 3-79 @I@@@@TEXT100 'PARAMETER CAROT )@@G@@D:-&' .FTR 3-79 @I@@@@TEXT10OU )@@G@@1 . FTR 3-OV )@@G@@80 @I@@@@ 'UNFORMATTED BLOCK PRINT TO BE PRODUCED' . OW )@@G@@ FTR 3-80 @I@@@@TEXT101L EQU $-TEXT101 . OX )@@G@@ FTR 3-80 @I@@@@TEXT102 'ANS TAPE FILEOY )@@G@@ FORMATTED IN UNDEFINED BLOCK STRUCTURE' . FTR 3-80 @I@@@@TEXT10OZ )@@G@@2L EQU $-TEXT102 . FTR 3-PA )@@G@@80 @I@@@@TEXT103 'ANS TAPE FILE FORMATTED AS FIXED LENGTH RECORDS' PB )@@G@@. FTR 3-80 @I@@@@TEXT103L EQU $-TEXT103 . PC )@@G@@ FTR 3-80 @I@@@@TEXT104 'SERPRT-':$CD(PD )@@G@@VERS):'.&(MAPPED &' . FTR 3-80 @I@@@@TXT02 PE )@@G@@ ' KEY & SIZE= & BITS -POSITION IN RECORD: WORD & OFFSET &';. FTR 3-PF )@@G@@80 @I@@@@ ' DUPLICATES &ALLOWED # LEVELS OF INDEX= &' . PG )@@G@@ FTR 3-80 @I@@@@TXT03 'ALT KEY SPECIFICATION > THAT INPH )@@G@@ FILE' . FTR 3-80 @I@@@@TXT03L EQU $-TXPI )@@G@@T03 . FTR 3-80 @I@@@@TXT04 PJ )@@G@@ 'LOGICAL RECORD & SIZE & WORDS&' . FTR 3-PK )@@G@@80 @I@@@@TXT05 'SELECTION IS UPON& PRIMARY KEY (#0)&' . PL )@@G@@ FTR 3-80 @I@@@@TXT06 ' ALTERNATE KEY # &' . PM )@@G@@ FTR 3-80 @I@@@@TXT07 'FILE HAS MOREPN )@@G@@ THAN ':$CD(MSAMNO):' KEYS - ';. FTR 3-80 @I@@@@ PO )@@G@@ 'FIRST ':$CD(MSAMNO):' ONLY ARE PRINTED' . FTR 3-PP )@@G@@80 @I@@@@TXT07L EQU $-TXT07 . PQ )@@G@@ FTR 3-80 @I@@@@TXT08 'INFORMATION STATISTICS TABLE' .PR )@@G@@ FTR 3-80 @I@@@@TXT08L EQU $-TXPS )@@G@@T08 . FTR 3-80 @I@@@@TXT09 PT )@@G@@ ' FILE BLOCK SIZE & RECORD SIZE &' . FTR 3-PU )@@G@@80 @I@@@@ ' SEGMENTED, FILE 2 AT ADDRESS &' . PV )@@G@@ FTR 9-80 @I@@@@TXT10 'SEQUENTIAL&' . PW )@@G@@ FTR 3-80 @I@@@@TXT12 'THIS FILE IS PX )@@G@@NOT SEGMENTED - REQUEST TO PRINT LATER'; . FTR 6-81 @I@@@@ PY )@@G@@ ' SEGMENT IS IGNORED' . FTR 6-PZ )@@G@@81 @I@@@@TXT12L EQU $-TXT12 . QA )@@G@@ FTR 6-81 @I@@@@TXT13 'THE FOLLOWING LIST REPRESENTS TQB )@@G@@HE CONTENTS OF EACH'; . FTR 6-81 @I@@@@ ' SEGMENTED FIQC )@@G@@LE LABEL PASSED TO THAT REQUESTED' . FTR 6-81 @I@@@@TXT13LQD )@@G@@ EQU $-TXT13 . FTR 6-QE )@@G@@81 @I@@@@TXT14 'IO ERROR ENCOUNTERED DURING POSITIONING TO NEXT SQF )@@G@@EGMENT' . FTR 6-81 @I@@@@TXT14L EQU $-TXT14 . QG )@@G@@ FTR 6-81 @I@@@@TXT15 'REQUESTED SEGQH )@@G@@MENT NUMBER EXCEEDS THE COUNT IN FILE' . FTR 6-81 @I@@@@TXT15LQI )@@G@@ EQU $-TXT15 . FTR 6-QJ )@@G@@81 @I@@@@TXT11 'RELATIVE&' . QK )@@G@@ FTR 3-80 @I@@@@SDF010 'READ$ FILE&' . QL )@@G@@ FTR 3-80 @I@@@@SDF013 'FORTRAN DATA QM )@@G@@FILE&' . FTR 3-80 @I@@@@SDF016QN )@@G@@ '@FILE FORMAT FILE&' . FTR 3-QO )@@G@@80 @I@@@@SDF025 'PRINT$ FILE&' . QP )@@G@@ FTR 3-80 @I@@@@SDF030 'SIRASM&' . QQ )@@G@@ FTR 3-80 @I@@@@SDF035 'PCIOS&' QR )@@G@@ . FTR 3-80 @I@@@@SDFTS QS )@@G@@ . FTR 3-QT )@@G@@80 @I@@@@ + 010,SDF010 . QU )@@G@@ FTR 3-80 @I@@@@ + 013,SDF013 . QV )@@G@@ FTR 3-80 @I@@@@ + 016,QW )@@G@@SDF016 . FTR 3-80 @I@@@@ QX )@@G@@ + 025,SDF025 . FTR 3-QY )@@G@@80 @I@@@@ + 030,SDF030 . QZ )@@G@@ FTR 3-80 @I@@@@ + 035,SDF035 . RA )@@G@@ FTR 3-80 @I@@@@SDFTSL EQU $-SDRB )@@G@@FTS . FTR 3-80 @I@@@@DENS7 RC )@@G@@ . FTR 3-RD )@@G@@80 @I@@@@ '200' . RE )@@G@@ FTR 3-80 @I@@@@ '556' . RF )@@G@@ FTR 3-80 @I@@@@DENS9 RG )@@G@@ . FTR 3-80 @I@@@@ RH )@@G@@ '800' . FTR 3-RI )@@G@@80 @I@@@@ '1600' . RJ )@@G@@ FTR 3-80 @I@@@@ '6250' . RK )@@G@@ FTR 3-80 @[@@@@ASCTAB@ @@@@ J RL )@@G@@ ASERIAL @D@@@@ J ADIRECT . ASCII DIRM )@@G@@RECT @C@@@@ J AIS . ASCII IS@ @@@@ASCTABRN )@@G@@L EQU $-ASCTAB @I@@@@ASCTYP . RO )@@G@@ FTR 4-79 @I@@@@ 'SERIAL' RP )@@G@@ . FTR 4-79 @I@@@@ RQ )@@G@@ 'DIRECT' . FTR 4-RR )@@G@@79 @I@@@@ 'ISAM' . RS )@@G@@ FTR 3-80 @I@@@@ 'MSAM' . RT )@@G@@ FTR 3-80 @B@@@@PARTAB RU )@@G@@ . @B@@@@ PF -1,PAR001L,PAR001 .@B@@@@RV )@@G@@ PF -1,PAR002L,PAR002 .@B@@@@ PF -1,PRW )@@G@@AR003L,PAR003 .@B@@@@ PF -1,PAR004L,PAR004 .@B@@@@RX )@@G@@ PF -1,PAR005L,PAR005 .@B@@@@ PF -1,PRY )@@G@@AR006L,PAR006 .@B@@@@ PF -1,PAR007L,PAR007 .@I@@@@RZ )@@G@@ PF -1,PAR008L,PAR008 . SA )@@G@@FTR 3-80 @B@@@@PARTABL EQU $-PARTAB . @C@@@@PAR001SB )@@G@@ 'MISSING OR INVALID FILENAME SPEC' . @B@@@@PAR001L EQU $-PASC )@@G@@R001 . @B@@@@PAR002 'INVALID KEYWORD NAME' . @B@@@@SD )@@G@@PAR002L EQU $-PAR002 . @B@@@@PAR003 'TOO MANY WORDSE )@@G@@S TO KEY' . @B@@@@PAR003L EQU $-PAR003 . @B@@@@SF )@@G@@PAR004 '12 CHAR SPEC IS NOT OCTAL' . @B@@@@PAR004L EQU $-PASG )@@G@@R004 . @C@@@@PAR005 'INVALID NUMBER OF CHARS TO SPEC' . SH )@@G@@@B@@@@PAR005L EQU $-PAR005 . @B@@@@PAR006 'TOO MANSI )@@G@@Y CHARACTERS IN SPEC' . @B@@@@PAR006L EQU $-PAR006 . SJ )@@G@@@B@@@@PAR007 'PARAMETER NOT TERMINATED BY ,*'@B@@@@PAR007L EQU SK )@@G@@ $-PAR007 . @I@@@@PAR008 'INVALID NUMERIC SPEC' . SL )@@G@@ FTR 3-80 @I@@@@PAR008L EQU $-PASM )@@G@@R008 . FTR 3-80 @B@@@@DS SN )@@G@@ 'DDDDDD' . @I@@@@STARPF '**PF**' SO )@@G@@ . FTR 3-79 @I@@@@STAREF '*SP )@@G@@*EF**' . FTR 3-79 SQ )@@G@@@I@@@@COPYG 'COPYG ' . SR )@@G@@ FTR 3-79 @I@@@@PFTXT 'PROGRAM FILE- NO FORMATTED PRINT AVAISS )@@G@@LABLE' . FTR 3-79 @I@@@@PFTXTL EQU $-PFTXT ST )@@G@@ . FTR 3-79 @I@@@@EFTXT 'ESU )@@G@@LEMENT (COPIN/COPOUT) FILE-NO FORMATTED PRINT AVAILABLE' . FTR 3-79 SV )@@G@@@I@@@@EFTXTL EQU $-EFTXT . SW )@@G@@ FTR 3-79 @I@@@@CGTXT 'COPY,G FILE- NO FORMATTED PRINT AVAILSX )@@G@@ABLE' . FTR 3-79 @I@@@@CGTXTL EQU $-CGTXT SY )@@G@@ . FTR 3-79 @B@@@@ ONSZ )@@G@@ TIP>0 . %I@@@@-4105- TA )@@G@@ FTR 7-81 @G@@[@TIPTXT1 'TIP FILTB )@@G@@E - FILE NUMBER & FILE NAME &RECORD LENGTH &'; %@@@@[@ [@@@ TC )@@G@@ ' RECORD COUNT &' @^@@@@TIPTXT2 'FILE TYPE &' @]@@@@TIPTXT3 TD )@@G@@@ @@@@ + TIPT31 @ @@@@ + TIPT32 TE )@@G@@@ @@@@ + TIPT33 @ @@@@ + TIPT34 TF )@@G@@@ @@@@ + TIPT35 @^@@@@TIPT31 'PERMANENT&' @#@@@@TG )@@G@@TIPT32 '?&' @^@@@@TIPT33 'TEMPORARY&' @^@@@@TIPT34 'SCRATCHTH )@@G@@&' @#@@@@TIPT35 'DMS&' @B@@@@TIPTXT3A ' AREA NUMBER: ' TI )@@G@@ . @C@@@@TIPTXT4 'END OF ALLOCATED AREA ENCOUNTERED' . @G@@@@TIPTXTTJ )@@G@@5 'FCSS ERROR CODE & ON FILE & FUNCTION & RECORD NUMBER &' . @B@@@@TK )@@G@@TIPTXT6 'BAD TIP FILE NUMBER' . @F@@@@TIPTXT7 'VARIABLE LENGTL )@@G@@TH TIP FILES NOT HANDLED AT PRESENT' . @ @@@@TIPTXT9 ' STORAGE TYTM )@@G@@PE &' @]@@@@TIPTXT11 @ @@@@ + TIPT111 @ @@@@ TN )@@G@@ + TIPT112 @^@@@@TIPT111 'SIMPLEX&' @^@@@@TIPT112 'DTO )@@G@@UPLEX&' @^@@@@TIPTXT12 'LEG 1: &' %[@@@@-4131-@H@@[@TIPTXT13 'ETP )@@G@@XEC FILE NAME & FILE RELATIVE START ADDRESS © STATUS &' %@@@@[TQ )@@G@@@^[@@@TIPTXT14 'LEG 2: &' @A@@@@TIPTXT15 ' FALLBACK INDICATORS &'TR )@@G@@@E@@@@TIPTXT16 'THIS FILE IS USED INSTEAD OF & WHEN REFERENCED'; @ @@@@TS )@@G@@ ' IN TRAINING MODE&'@I@@@@TIPTXT17 'PRINT OF TIP KONS AREA STTT )@@G@@ARTING AT INDEX &' . FTR 7-79 @I@@@@TIPTXT18 'KONS' TU )@@G@@ . FTR 7-79 @I@@@@TV )@@G@@TIPTXT19 'SPEC 1 IS NOT ''KONS'' AS REQUIRED: &' . TW )@@G@@FTR 7-79 @B@@@@ OFF . @[@@@@$(8) TX )@@G@@@B@@@@GETTAB . @B@@@@ + TY )@@G@@ 80,12 . @B@@@@ + 0 . TZ )@@G@@@B@@@@ + 0 . @B@@@@ + UA )@@G@@ GETLOC . @B@@@@ + PARE01,PARE02 . UB )@@G@@@B@@@@ + ENDPAR,PARCNT . @C@@@@MAXREC RES UC )@@G@@ 1 . @C@@@@MAXBLK RES 1 UD )@@G@@ . @[@@@@IOPAK @^@@@@ 'TOC '@]@@@@ +0UE )@@G@@@#@@@@ +R$,,0 @^@@@@ +56,IOAREA @]@@@@ +0UF )@@G@@@[@@@@IOPK1 @#@@@@IOPAK1 'TOC' @#@@@@ ' ' @^@@@@ UG )@@G@@ + 0 @ @@@@ + R$,0,0 @ @@@@ + UH )@@G@@ SDFBL,0 @^@@@@ + 0 @^@@@@IOCOUNT + UI )@@G@@ 0 @^@@@@BUF1 + 0 @E@@@@FACPAK 'TOC ' UJ )@@G@@ . FITEM$ PACKET @B@@@@ RES 11 UK )@@G@@ . @I@@@@INFPR + 'S',24 . UL )@@G@@ FTR 3-80 @I@@@@INFO . UM )@@G@@ FTR 3-80 @I@@@@ PF INFIUN )@@G@@LE$,0,0 . INITIALIZE FOR FILE FTR 3-80 @I@@@@ UO )@@G@@ + 2,FACPAK . FTR 3-UP )@@G@@80 @I@@@@ PF FEQP$,0,0 . READ EQUIP TYPE UQ )@@G@@ FTR 3-80 @I@@@@ + 1,INFOEQ . UR )@@G@@ FTR 3-80 @I@@@@ PF EQUIUS )@@G@@P$,0,0 . EQUIP DESCRIPTORS FTR 3-80 @I@@@@ UT )@@G@@ + 1,INFOIN . FTR 3-UU )@@G@@80 @I@@@@ PF MODE$,0,0 . TAPE MODES UV )@@G@@ FTR 3-80 @I@@@@ + 3,INFOMO . UW )@@G@@ FTR 3-80 @I@@@@INFOC EQU $-INUX )@@G@@FO . SIZE OF PACKET STRING FTR 3-80 @I@@@@INFOEQUY )@@G@@ RES 1 . EQUIP TYPE RETURNED FTR 3-UZ )@@G@@80 @I@@@@INFOMO RES 3 . TAPE MODES RETURNEVA )@@G@@D FTR 3-80 @I@@@@INFOIN RES 1 . VB )@@G@@EQUIPMENT DESCRIPTORS FTR 3-80 @I@@@@INFOLEN EQU $-INVC )@@G@@FO . FTR 3-80 @I@@@@MAPDATVD )@@G@@ + D$ATE,T$IME . MAP DATE/TIME FTR 3-VE )@@G@@80 @I@@@@LABRET 0 . VF )@@G@@ FTR 4-79 @I@@@@LABPAK 1 . VG )@@G@@ FTR 4-79 @I@@@@ 'TOC ' VH )@@G@@ . FTR 4-79 @I@@@@ VI )@@G@@ RES 023-3 . FTR 4-VJ )@@G@@79 @B@@@@ ON TIP>0 . @F@@@@FNC EQVK )@@G@@UF FACPAK+2 . TEMP FUNCTION STORE @E@@@@FILNO EQVL )@@G@@UF FACPAK+3 . FILE NUMBER STORE @D@@@@SCRA EQUF VM )@@G@@ FACPAK+4 . CURRENT CRA @G@@@@RLEN EQUF FACPAK+5 VN )@@G@@ . RECORD LENGTH (+6 = RLEN+3) @B@@@@ OFF VO )@@G@@ . @E@@@@ALDONE 0 . READ$ EOVP )@@G@@F FOUND FLAG@^@@@@XSTART RES 1 @C@@@@NSECS RES 1 VQ )@@G@@ . @B@@@@NBLOCKS RES 1 . VR )@@G@@@C@@@@SBLOCK RES 1 . @C@@@@BLKPRNT REVS )@@G@@S 1 . @B@@@@LMJPR RES 1 VT )@@G@@ . @B@@@@HIBL RES 1 . @B@@@@SDN VU )@@G@@ RES 1 . @B@@@@EDN RES 1 VV )@@G@@ . @B@@@@TD RES 1 . @B@@@@LASTK VW )@@G@@ RES MAXK . @B@@@@SOPTS RES 1 VX )@@G@@ . @B@@@@BLKNUM RES 1 . @B@@@@SKL VY )@@G@@ RES 1 . @B@@@@BLKCNT RES 4 VZ )@@G@@ . @I@@@@DBLOK . CFH - BLOCK WA )@@G@@DUMP COUNTER FTR 3-80 @I@@@@PRSAV1 RES 1 WB )@@G@@ . SAVE IN PRKEY OF NEXT COL FTR 3-80 @I@@@@PRSAV RES WC )@@G@@ 1 . SAVE IN PRKEY OF RETURN FTR 3-80 @I@@@@WD )@@G@@NDUPS . MSAM - # KEYS WITH DUPLICATES WE )@@G@@FTR 3-80 @I@@@@CURLEN 0 . RECORD LENGTWF )@@G@@H (INC CONTROL) FTR 3-80 @I@@@@CURLENA 0 WG )@@G@@ . RECORD LENGTH (DATA) FTR 3-80 @^@@@@FLAGS RES WH )@@G@@ 6 @B@@@@PRL RES 1 . @I@@@@ ONWI )@@G@@ COBFD>0 . ONLY IF FD COBOL MS PRINT ON FTR 3-80 WJ )@@G@@@B@@@@SDK RES TLEN . @B@@@@EDK RES WK )@@G@@ TLEN . @I@@@@ OFF COBFD>0 . WL )@@G@@ONLY IF FD COBOL MS PRINT ON FTR 3-80 @B@@@@SPK RES TLENWM )@@G@@ . @B@@@@EPK RES TLEN . @B@@@@WN )@@G@@XPLEN RES 1 . @B@@@@ACTBLK RES 1 WO )@@G@@ . @B@@@@EOFC RES 1 . @B@@@@WP )@@G@@LDATAB RES 1 . @B@@@@BS RES 1 WQ )@@G@@ . @I@@@@SEQX RES 1 . SEGMENWR )@@G@@TED FILE SPEC FTR 6-81 @B@@@@TOTR RES 1 WS )@@G@@ . @G@@@@FSPECL RES 1 . SAVE FOR FILWT )@@G@@ENAME SPEC LENGTH @G@@@@CLMJPR RES 1 . PARAMEWU )@@G@@TER FOR BLOCK DUMPING @G@@@@BLMJPR RES 1 . WV )@@G@@USER LABEL PRINT PARAMETER @F@@@@LABPRT RES 2 WW )@@G@@ . USER LABEL PRINT TYPE @F@@@@LABPRL RES 1 WX )@@G@@ . USER LABEL PRINT LENGTH @F@@@@KEYSH RES 1 WY )@@G@@ . IS FILE KEY SHIFT FACTOR@H@@@@EOFSEC RES 1 WZ )@@G@@ . SAVE FOR COBOL EOF SECTOR ADDRES @I@@@@ ON COBFXA )@@G@@D>0 . ONLY IF FD COBOL MS PRINT ON FTR 3-80 @B@@@@MSTYPEXB )@@G@@ RES 1 . @I@@@@ OFF COBFD>0 XC )@@G@@ . ONLY IF FD COBOL MS PRINT ON FTR 3-80 @B@@@@RECNO REXD )@@G@@S 1 . @F@@@@WTLINE RES 1 XE )@@G@@ . WORDS TO LINE FOR PRCORE@E@@@@PRBIAS RES 1 XF )@@G@@ . CURRENT PRINT BIAS@I@@@@. XG )@@G@@ FTR 3-80 @I@@@@. WORK AREAS FOR I/O XH )@@G@@ FTR 3-80 @I@@@@. XI )@@G@@ FTR 3-XJ )@@G@@80 @I@@@@WORKAREA . XK )@@G@@ FTR 3-80 @I@@@@ RES 2*BUFSIZ . XL )@@G@@ FTR 3-80 @I@@@@IOAREA EQU WORKXM )@@G@@AREA . PRIMARY I/O FTR 3-80 @I@@@@IOARE1XN )@@G@@ EQU WORKAREA+BUFSIZ . SECONDARY I/O FTR 3-XO )@@G@@80 @I@@@@FILEB EQU WORKAREA+BUFSIZ+3 . TIP FILE DIRECTORYXP )@@G@@ FTR 3-80 @I@@@@ANSBUF EQU WORKAREA+BUFSIZ . XQ )@@G@@ANS TAPE PRINT RECORD AREA FTR 3-80 @I@@@@READLOC EQU WORKXR )@@G@@AREA . READ$ AREA FOR PARAMETER FTR 3-80 @I@@@@GETLOCXS )@@G@@ EQU WORKAREA+20 . PARAMETER UNPACK AREA FTR 3-XT )@@G@@80 @I@@@@MSAMK RES 1 . ALT KEY # FOR MSAMXU )@@G@@ FILE FTR 3-80 @I@@@@MSAMKP RES MSAMNO . XV )@@G@@ALT KEY INFO FTR 3-80 @I@@@@MSAMKA RES MSAMXW )@@G@@LN . PRINT AREA FTR 3-80 @I@@@@MSAMKCXX )@@G@@ RES 1 . FTR 3-XY )@@G@@80 @I@@@@MSAMSAVE RES 1 . XZ )@@G@@ FTR 3-80 @I@@@@SKLSAV RES 1 . YA )@@G@@ FTR 3-80 @C@@@@PTYPE RES 1 YB )@@G@@ . @I@@@@GRAN RES 1 . YC )@@G@@ASCII COBOL MS FILE GRANULARIFTR 4-79 @I@@@@GRANI RES 1 YD )@@G@@ . ASCII COBOL MS FILE GRANULARIFTR 4-79 @B@@@@POPT YE )@@G@@ EQUF FLAGS,,S1 . @B@@@@BORR EQUF FLAGS,,S2 YF )@@G@@ . @B@@@@DPR EQUF FLAGS,,S3 . @B@@@@EPR YG )@@G@@ EQUF FLAGS,,S4 . @B@@@@XPR EQUF FLAGS,,S5 YH )@@G@@ . @B@@@@RPR EQUF FLAGS,,S6 . @B@@@@YPR YI )@@G@@ EQUF FLAGS+1,,S1 . @B@@@@WPR EQUF FLAGS+1,,SYJ )@@G@@2 . @B@@@@PON EQUF FLAGS+1,,S3 . @B@@@@SBEG YK )@@G@@ EQUF FLAGS+1,,S4 . @B@@@@TFIL EQUF FLAGS+1,,SYL )@@G@@5 . @B@@@@IASG EQUF FLAGS+1,,S6 . @B@@@@EMPT YM )@@G@@ EQUF FLAGS+2,,S1 . @B@@@@EOFTAG EQUF FLAGS+2,,SYN )@@G@@2 . @B@@@@EOMRK EQUF FLAGS+2,,S3 . @B@@@@BLKERRYO )@@G@@ EQUF FLAGS+2,,S4 . @B@@@@NOLABS EQUF FLAGS+2,,SYP )@@G@@5 . @A@@@@OPR EQUF FLAGS+2,,S6 @H@@@@SDFEOF EQYQ )@@G@@UF FLAGS+3,,S1 . SDF EOF (IO ERROR ENCOUNTERED) FLAG @I@@@@YR )@@G@@MSAMDUP EQUF SDFEOF . MSAM FLAG FOR DUPLICATES . YS )@@G@@FTR 3-80 @I@@@@ISREC EQUF SDFEOF . ISFMS-SET IFYT )@@G@@ > RECORD 1 FTR 3-80 @E@@@@COPT EQUF FLAGS+3,,S2 YU )@@G@@ . C OPTION IN SPEC 2@F@@@@AFDSW EQUF FLAGS+3,,S3 . SDYV )@@G@@F ASC/FD SWITCH STATE @C@@@@FPR EQUF FLAGS+3,,S4 . F YW )@@G@@OPTION@I@@@@QOP EQUF FLAGS+3,,S5 . Q OPTION FLAG YX )@@G@@ FTR 3-79 @I@@@@KONP EQUF FLAGS+3,,S6 . YY )@@G@@KONS PRINT FTR 7-79 @I@@@@ANS EQUF FLAGYZ )@@G@@S+4,,S1 . ANS TAPE FTR 3-80 @I@@@@ANSSFLZA )@@G@@AG EQUF FLAGS+4,,S2 . ANS TAPE- 'S' FTR 3-ZB )@@G@@80 @I@@@@ANSDFLAG EQUF FLAGS+4,,S3 . ANS TAPE- 'D' ZC )@@G@@ FTR 3-80 @I@@@@LABNOT EQUF FLAGS+4,,S4 . ZD )@@G@@UNLABELLED TAPE IF SET FTR 3-80 @I@@@@LAB9 EQUF FLAGZE )@@G@@S+4,,S5 . 9BIT LABELS IF SET FTR 3-80 @I@@@@TRK7 ZF )@@G@@ EQUF FLAGS+4,,S6 . 7TRK TAPE IF SET FTR 3-ZG )@@G@@80 @I@@@@TAPETAG EQUF FLAGS+5,,S1 . SET IF FILE IS TAPZH )@@G@@E FTR 3-80 @I@@@@PNOW EQUF FLAGS+5,,S2 . ZI )@@G@@SET IF BLOCK DUMP IS ON FTR 3-80 @I@@@@EOFDAT EQUF FLAGZJ )@@G@@S+5,,S3 . FLAG FOR PRINT BETWEEN EOFS FTR 3-80 @I@@@@MOP ZK )@@G@@ EQUF FLAGS+5,,S4 . M OPTION FLAG FTR 3-ZL )@@G@@80 @[@@@@$(2) @#@@@@ ASCII @[@@@@ATXT1 @I@@@@ 'FZM )@@G@@ILE LABEL-' . FTR 3-80 ZN )@@G@@@#@@@@ATXT1A 'XXXX' @I@@@@ ' DETAILS, FILE-ID: ' . ZO )@@G@@ FTR 3-80 @^@@@@ATXT1B 'XXXXXXXXXXXX'ZP )@@G@@@I@@@@ ' SET-ID:' . ZQ )@@G@@ FTR 3-80 @#@@@@ATXT1C 'XXXXXX'@ @@@@ ' CREATION-DATZR )@@G@@E: ' @#@@@@ATXT1D 'XXXXXX'@^@@@@ ' PURGE-DATE:'@#@@@@ATXT1EZS )@@G@@ 'XXXXXX'@ @@@@ATXT1L EQU $-ATXT1 @#@@@@HDR1 'HDR1' ZT )@@G@@@[@@@@ULABS @#@@@@ 'UHL ' @#@@@@ 'UTL ' @#@@@@ ZU )@@G@@ 'UVL ' @ @@@@ULABL EQU $-ULABS @I@@@@ATXT2 ' FILEZV )@@G@@-ACCESS: ' . FTR 3-80 @I@@@@ZW )@@G@@ATXT2A 'X'; . ZX )@@G@@FTR 3-80 @ @@@@ ' FILE-QUALIFIER: ' @^@@@@ATXT2B 'XXXXXXXZY )@@G@@XXXXX'@ @@@@ATXT2L EQU $-ATXT2 @[@@@@ATXT3 @ @@@@ 'UZZ )@@G@@SER LABEL TYPE: ' @#@@@@ATXT3A 'XXXX' @ @@@@ ' DUMP OF CONAA )@@G@@TENTS'@ @@@@ATXT3L EQU $-ATXT3 @B@@@@ END NOW AB )@@G@@ . _@@@@@*[S@@@*SDFF*@A@@@@ IN SUBRELFILE.PRCORAC )@@G@@E @A@@@@ IN SUBRELFILE.OCTRAN @A@@@@ IN SUBRAD )@@G@@ELFILE.DECTRAN @A@@@@ IN SUBRELFILE.GETFLD @A@@@@ AE )@@G@@ IN SUBRELFILE.SERPRT @^@@@@ LIB LIBTIP @]@@@@ AF )@@G@@ END_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AG )@@G@@======@@^@@ @@@@@@@@@@@@@@ @US@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AH )@@G@@@@@@@@DW*BRL @@^@]@@@@@#B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[ @@A@@A@@=AI )@@G@@@[X@@@@@D@@^@@@[WO@@@@@@@^@@@]@^@D@[@ @@@]K^@M@)@@@@@@@@@@@@@@@@@@@@@@@@AJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@N@C@)B![CN@@@___@@N^@@AL )@@G@@@@E^[J@@N^[\@M.^]$@@S^P'@@N^QX@@E^R@@@E^R<)@/^@N)@Q^[T)@>^]])@Q^P=)@F^QMAM )@@G@@)@K^Q0)@T^RE-1)^R!)A3ADH@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___AN )@@G@@C8G@@@;G@@@=W8@@8KC8?@@@C8H@@@/\K@CLC8)@@:')])E?;G@@@=W8@@@/C8?@@@C8H@@@AO )@@G@@/\K@CLC8)@@:')])E?C8?@@@C8V@@@;G)@@=W8)@@EG8)@@0')])E?C8\@@0')])E?/KH@@@AP )@@G@@;C@@@M+8@_@@;GK@@0/\K@CLC8)@@/')])E?+8@@_@;GK@@%/\K@CLC8)@@/')])E?+8@@@_AQ )@@G@@C8!@[@/\K@CL/KF@@@;C@@@M+8@@_@;GK@@%/\K@CL+8@_@@;CK@@FC@!@D/KF@@@;*@@@AC8N@@@H^L@@@C8+@@@/@)@H1%8)@@AG8K@@[G@@@@H;*@@@MQB[@@@BS )@@G@@'=@@@I/K@@EZ@@[@@@ R;VK@[RB:K@]R#;K@#/K@@I[ @@@@JR;VK@@RB:K@[BT )@@G@@R#;K@]N@K^@@'=@@K]^@K^@@/@:@@^R;0@@['=@@KK'=@@@)/KF@@^'=@@K#/KF@@[R;0@@@BU )@@G@@RBFK@@Q;VK@]%8@@@B @H@@@CDFK@@&#VK@@Q#VK@[?9@@@^/K@@IV&#;K@#?9@@@ /K@@IVBV )@@G@@&#:K@^C[FK@ Q#:K@AR#@@@FOFFK@@O;@@@[Q;;K@]'=@@K8K@@K/KG@@@R;K@@2BW )@@G@@'=@@@0/K@@IFCDFK@[&#VK@[Q#VK@]R;;K@#?9@@@^/K@@I2&#;K@^?9@@@ /K@@I2&#:K@ BX )@@G@@C[FK@AQ#:K@BRBFK@[%8@@@B @J@@@R#@@@FOFFK@[O;@@@['=@@K8K@@K/KG@@@BY )@@G@@R;K@@2'=@@@0/K@@I&N80@@[/K@@J]N80@@@O]0@[#R;0@@@N@VK@@E@K@[[:8K@@E/K@@J-BZ )@@G@@R#:K@[R;FK@]C[FK@#C[K@[[%.K__.:8K@@A/K@@J=?8K@@#/K@@JY?8K@@A/K@@JVN@:K@^CA )@@G@@%8K@@B!8K@@GC[VK@ %8K@@F:8K@@I/K@@J=/K@@J&C[VK@^N@:K@ /K@@J&:9@@@[/K@@J=CB )@@G@@/K@@J&N@:K@[D80@@@/K@@J&D80@@@R#G@@@'=@@KW1@@@@H/K@@J,R;K@B4'=@@@0E@K@[[CC )@@G@@'=@@KW/K@@J$(@@@@HA#FK@]P]0@[#%8K@@A?8K@@#/KF@@ :8K@@E/KF@@#!8K@@B/K@@K@CD )@@G@@*@@@[#/K@@J./G;K@BA#:K@A/KF@@D/G;K@CA#:K@B/KF@@D:8K@@B/K@@K^?8K@@G/KF@@ACE )@@G@@1@@@@G/KF@@C(@@@[#/KFK@A/KFK@BA]0^#IR'/@@@O'0@@[/K@@KLC8F@@](0F@@[G8@@@[CF )@@G@@[@@^#IN8K@@DC@@^#BC@K^#CM#W)@@A]@^[6A[@^[2A[K^[3A[)^[4A[0^[5 ^@^@MC?VK@@CG )@@G@@H8K@@A1@@@@H!8K@@NC8K@@B!8K@@B/K@@L]!8K@@^/K@@NV&9@@@[Q9FK@[R VK@@R[)^#DCH )@@G@@R[0^#DC2:K@@*@@^#J/K@@NP*@@@@Q!2!^]$C2!^]$CAH^]$C]K@@QH')@@[8[K@L^C8A@@@CI )@@G@@(@@@@G/K@@K8'^@@LD ^@@LDR]@^[6R[@^[2R[K^[3R[)^[4R[0^[5N8K@@DC@@^#BC@K^#CCJ )@@G@@M#H)@@/K@O#IH8K@@#/K@@K=/SB)@@C@^)@@[@A^]]$[)@@Q/K@@K2/S@@@@C8A@@@[@@^[JCK )@@G@@H8@@@[[@@^@FC/@^[K/,0@D.C8B@@@H@@^[JC8K@@^/,0@G_C/@@@#/,0@FP>'@@@[/K@@L>CL )@@G@@R[)^#DC@A^]]C8K@@G/,0@G'@@@]/K@@L4R[)^#DC@A^]]C8K@@G/,0@G_C/@@@[/,0@FP$[)^@F/K@@L*C@@@@PCN )@@G@@H8A@@@T8@@@HG8@@@]/,0@FP>'@@@^/K@@M R[)^#DC9@@@AC@Q^]]/,0@P;='@@]@/K@@L"CO )@@G@@C/@@@[/,0@FP$[)^@F/K@@L7C@@@@PH8A@@@T8@@@BG8@@@]/,0@FP>'@@@K/K@@M)R[)^#DCP )@@G@@C@A^]]C@K@@G>'@@[@-@@^#EN8K@@A8KK@MJ/K@@MP @@@@G;?@@@AC*G^#K;*)@@AG@)@@GCQ )@@G@@/K@@MH[@)^[QC9@@@AC@K^[Q/,0@P;$[)^@F/K@@MCC@@@@PH8A@@@T8@@@AG8@@@]/,0@FPCR )@@G@@>'@@@)/K@@M4R[)^#DCCA^]]C8K@@A/,0@G_C/@@@,/,0@FGC^A^]]C8K@@A/,0@G_C/@@@[CS )@@G@@/,0@FP$[)^@F/K@@M'@@@C/K@@NGR[)^#DC@&^]]CT )@@G@@N8K@@#;G@@[C;?K@@D!8K@^@ @@@@HC)X^#K;@K@@A;=@@@A8KK@M';*@@@G[@@^@GC9@@@^CU )@@G@@C@K^@G/,0@P;='@@]@/K@@NEC/@@@[/,0@FP$[)^@F/K@@M7/,0@EZC@@^#F'=@@@I*^@^@MCV )@@G@@/,0@PVR[)^#D*^@@LD/K@KLD/K@@K2/])@NT%2!^]$?2!^]$/K@@K\C6!^]$/K@@K\C8@@@[CW )@@G@@:8K@@^C8@@@@[@@^[QC2:K@@*@@^#J/K@@P!*@@@@Q!A?^]@CA?^]@H')@@[R ;K@@R]@^#DCX )@@G@@R9K@@D%8K@@ R9K@@CC;@@@@R9:K@[&9)@@]C4FK@@/@@@N';G@@@=W@@@@ /^K@N'C[)@@ CY )@@G@@-9)@@[H[0@@G9!A)@@C4FK@@;!G@@@/K@@N;C90@@@8[0@N./K@@PM8^0@O]9!A)@@C[)@@ CZ )@@G@@-9)@@[H90@@[;> @@@+9K@#_[[*^]]$]@@@Q/K@@N;/S@@@@&'@@@@C]0@@CR]@^#DC/@^[KDA )@@G@@/,0@D.C/@@@@/,0@FPC@@@@SC8K@@^/,0@G_G#@@@RC/@@@^/,0@FPR9@@@[8[@@OUC/@@@[DB )@@G@@/,0@FP/K@@OPC@K^[QC@C^]]')H^[R:8@@@_/,0@P1/,0@FGC8@@@[*@@^[QG8@@@[/,0@FPDC )@@G@@$]@@@Q/K@@OQ/,0@EZC@@^#G'=@@@I*^@^@M/,0@PVC/@^[K/,0@D.C/@@@C/,0@FPR]@^#DDD )@@G@@R9@@@[8[@@O5C/@@@[/,0@FP/K@@O0*@@^[Q/K@@PIC@C^]];C@@@^C@G^]7:8@@@_/,0@P1DE )@@G@@/,0@FGC@C^]]+8@@@JC@H^]7:8@@@_/,0@P1/,0@FG$]@@@Q/K@@O1/,0@EZC@@^#F'=@@@IDF )@@G@@*^@^@M/,0@PV*^@@OB/K@KOBR]@^#D/K@@N;C@C^]]C8K@@#/,0@G*@@^#J/KF@@@R';@@@A]0^@L/,0@FYC@K^@M[@H=@NDJ )@@G@@[@K^@MC8@@@=/K@O@LR';@@@A]0^@K8^@@P_/K@O@K @@@@G;?@@@A[@K^@I:8@@@_/,0@P1DK )@@G@@/,0@FGC@K^@I/K@@P.A@K^BKA@)^BLA@0^BMA[@^BNA[K^BOA[)^BPR@K@@G&8K@@[;C@@@MDL )@@G@@R@0@@GR@)^BSN@K@@H!8K@@I/K@@Q5B4@@@ C@@@@ )8@@@CB0H@@@N@)^BT @@@@H8KK@Q$DM )@@G@@;?@@@=$80@QZ/K@@Q)B0 @@@R@K^BKR@)^BLR@0^BMR[@^BNR[K^BOR[)^BP/KF@@@')#@Q8DN )@@G@@:@#^BQ/K@@QW?8@@@8?8@@@0/K@@Q5(@@@@^/K@@Q2:8@@@0/K@@QV @@@@^;*K@@#<@@@@HDO )@@G@@/K@@QVC/K__" @@@@G/K@@QX')])Q'')])R#C4[@@@C0[@@@C?[@@@C*[@@@C=[@@@/!)@R@DP )@@G@@Q8)@@@C)[)@@/KA@@@CW[@@@CK[@@@CS[@@@/!)@RBQ8)@@@CO[)@@/KA@@@A@K^BUA@)^BVDQ )@@G@@A@0^BWA[@^BXA[K^BYA[)^BZA[0^B)A]@^B-R@K@@G&8K@@[R8!@@@;C@@@MR@0@@GB4@@@^DR )@@G@@C8]@@@!8@@@G/K@@SCR[K^B*;CK@@M @@@@G')#@SXO[K@@HO@K@@GR9)@@[C@@@@^)8@@@CDS )@@G@@B0H@@@R90@@[ @@@@H8@)@R4;?@@@=T@@@@BB0^@@@R@K^BUR@)^BVR@0^BWR[@^BXR[K^BYDT )@@G@@R[)^BZR[0^B)R]@^B-/KF@@@')#@SV?8@@@'?8@@@0/K@@R.R9)@@@T8K@@EH8@@@0G@K@@GDU )@@G@@/K@@R$:@#^B+/K@@R*(8A@@@/K@@SC:@#^B=/K@@SA%@#^B&/K@@SCR.0__"R9)@@@/K@@R$DV )@@G@@C/K__" @@@@G/K@@R%C4[@@@C0[@@@C?[@@@C*[@@@C=[@@@/,@@SLQ9K@@@C)[)@@/KC@@@DW )@@G@@CW[@@@CK[@@@CS[@@@/,@@SSQ9K@@@CO[)@@/KC@@@') )SF') )SOW8@@@AW8@@@^R]0^B(DX )@@G@@A]0^B(R';K@@N8K@@CC8@@@[&;@@@[C@K^B7M#W)@@ 0F@@[(4F@@[/K@@S0C@@^B8'=@@[\DY )@@G@@=@K^B9/K@@S0C8@@@[[0F@@[R5V@@[RCV@@]&8K@@[R^:@@]&8)@@[R@0^B'R F@@#&9@@@[DZ )@@G@@R :@@@P9)@@[C^ ^B5') @UA8[)@S;R@0^B'R F@@#&9@@@[ CF@@#C8K@@[R :@@@O9)@@[EA )@@G@@R ;@@[&90@@[$D;@@@/K@@TER^;@@^/K@@T<8[)@THRC;@@^/K@@T<') @U^*^@^B2%C@^B2EB )@@G@@/K@@TNR^0^B2/K@@T @@^R& @@^R$ @@^R* @@^R( @@^R%EN )@@G@@R8K@@ER@0^C# @#0@]8@K@V+C@@^EG[@@^R:[@@^R#C8@@[0[C@^QAC8@@*K[C@^P_C8@@@0EO )@@G@@[^@^P'C;@@@[/,0@S)@@@^P'(C@^P./K@@*KCC@^P.[@@^SNC8@@@G[^@^P'C8@@YG[C@^P_EP )@@G@@C8@^S2[^@^P./,0@S)@@@^P'9?K^S2 @@@@G;?@@@A/@@@W>:8@@@ /K@@V.:8@@@X[=@^R>EQ )@@G@@:8@@@D[?@^R>:8@@@Y[4@^R&:8@@@E[*@^R>:8@@@B[0@^R>:8@@@P[4@^R>:8@@@R[)@^R>ER )@@G@@:8@@@W[0@^R&:8@@@N[=@^R$:8@@@O[)@^R$:8@@@Q[=@^R*:8@@@C[0@^R*:8@@@F[*@^R*ES )@@G@@:8@@@Z^#@^SG:8@@@M^:@^R%:8@@@T[=@^R&:8@@@K[)@^R*/K@@V.*@@@@I:@)^EQ/K@@W%ET )@@G@@;?K@@=/K@@V./,0@S)@@@^P'C4@^S2[@@ADE/,)[B(()@^R*/GK@*K[@@^R^/,)[B(/GK@*KEU )@@G@@(@@@@GC@@^EG[@@^R#/,0@S)@@@^P'C;@@@]C8@@@C%C@^P./K@@*K9?@^S2N8K@@FR[)^C^EV )@@G@@2@A=DU/K@@*K%@Q^DS/K@@X@P9)@@#C4A^DW%8@@@[/K@@XJ/,)[B(C;@@@C/GK@*K[@AODWEW )@@G@@/,0@S)@@@^P'/K@@W.C^&^DWG8)@@[&;)@@[C9@@@@C8@@X-[C@^P_/,0@S)@@@^P'CC@^P.EX )@@G@@%8@@@A/K@@X8K@K@/K@@YRC/@^PY/,0@D.C8@^I"/,0@GDC8@^SYFC )@@G@@/,0@GDC@@^C '=@@@IC@@ADE**@^R*C8@@@N[C@^RAC@K^SWC@)^RA;*)@@G;GK@@G[@)^RAFD )@@G@@C@K^SWC@)^SP;*)@@G;GK@@G[@)^SPC@@^SS*@@@@G!8@@@WC8@@@V&7@^SR(@@^SQ&;@@@BFE )@@G@@[@@^SPC?@^RAC8K@@]!8@@@E!8@@@H/K@@Y5C8K@@D:8@@@FC8K@@C[@K^SXC@@^RU=@@^CAFF )@@G@@/K@@ZCC/@^PY/,0@D.C8@^EJ/,0@GDC8@^E#/,0@GDC/@@@./,0@FG/,0@FYG8@@@A;G@@@=FG )@@G@@W8@@@A&;G@@@Q;@^P='=@@[Z*=@^R&/K@@.)*)@^R*/K@[[2C8@^E['=@@@JC@@^CB'=@@@UFH )@@G@@C@@^RU/)@@ZSC8@@ZP'=@@[Q/K@@ZSFITEM$@@H^QK@@@@@@C@@^CC'=@@[IC@@^RU/)@@Z+FI )@@G@@C8@@ZZ'=@@[Q/K@@Z+INFO$ @@H^QY@@@@@@C/@^PY/,0@D.C@K^SNC8@^E#/,0@F1*4@^QQFJ )@@G@@/K@@Z6C8@^D"'=@@@J^<@^R&/C@@ZI[@@^Q@C8@^E8K@@[C8@@@7+8@@@][)K^R(/,0@FG/,0@GA @@@@G**@^R(C@@^CG*=@^R(FR )@@G@@C@@^CH/,0@F&/,0@GAC@@^QV/,0@F&/,0@GAC)K^Q$C@@^CI>8K@@KC@@^CJ/,0@F&/,0@GAFS )@@G@@C=K^Q$C@H^L<*)@^R(C@H^L-/,0@F&/,0@GA/K@@-)C=K^Q%C8@^E$=8K@@[C8@^E%/,0@GDFT )@@G@@C[K^RUC@@^CK>[K^CAC@@^C@'=@@@I*=@^R>/K@@;CC8@^Q]'=@@@#C4@^Q /@@@-2(4@^R%FU )@@G@@/K@@-\:8@@@^/K@@-2C@@^CL'=@@@I/K@@V]C8@HDR*4@^R%%C@^SY/K@@(E @@^R-C^@^SZFV )@@G@@G8@@@[[@@^Q@CC@^SZG8@@@[[@@^Q[ ^@^QBCC@^SZ[C@^QAR'K^SY/,)@+TC8@^Q]'=@@@#FW )@@G@@C4@^Q :8@@@[/K@@+EC@@^CM'=@@@I/K@@V](4@^R>/K@@==C8@@@*[0@^Q C8@^Q]'=@@@#FX )@@G@@C4@^Q /@@@+I:8@@@^/K@@+I%8@@@[/K@@+BC8@@@K[0@^Q /K@@>E*=@^R$/KE@@@C@@^CNFY )@@G@@'=@@@IC/@^PY/,0@D.C@@^CO/,0@F&C/@@@[/,0@FPC8D@@@C8K@@#/,0@F1C/@@@[/,0@FPFZ )@@G@@C@@^CP/,0@F&C/@@@#/,0@FPC8@^E_C8K@@K/,0@F1CCD@@[/,0@HUC8@^EUC8K@@A/,0@F1GA )@@G@@C/@@@C/,0@FPC8@^F]C8K@@M/,0@F1C^D@@[/,0@HUC8@^EUC8K@@A/,0@F1C@@^CD'=@@@IGB )@@G@@/,0@E]C*D@@@:8@@@S/K@@C8K@@J/,0@F1(@D@@^GF )@@G@@/K@@<'C@D@@^/,0@C$C/@@@[/,0@FPC8@^HGC8K@@#/,0@F1C@D@@^/,0@C@C8@HDR:CD@@@GG )@@G@@/K@@=RC/@@@#/,0@FPC8@^FMC8K@@N/,0@F1C@D@@#/,0@HUC/@@@A/,0@FPC8@^FQC8K@@MGH )@@G@@/,0@F1C@D@@]/,0@HU*4@^R%/K@@=RC/@@@A/,0@FPC8@^HXC8K@@O/,0@F1C@D@@A/,0@HUGI )@@G@@*@D@@](@D@@#^7@^R$C@@^CD'=@@@IC@@^CN'=@@@I/KE@@@C/@^PY/,0@D.C8@^F4C8K@@?GJ )@@G@@/,0@F1C8@@8@/,0@HU/K@@Z3R]@^CQR]K^CQ*?@^R$/K@@>EC8@^Q]'=@@@#C5K^Q (@@@@LGK )@@G@@/K@@>+%9K@@ :9K@@[/K@@>B%9K@@^/K@@=8C^@^Q !^@^SY/K@@>+C@@^CR'=@@@I/K@@V]GL )@@G@@C/@^PY/,0@D.C8@^F /,0@GDC@@@@L/,0@GP*4@^R%/K@@>A/,0@GACC@^QA/,0@HU/,0@GAGM )@@G@@C@@^QB/,0@HU/K@@Z3^\@^R$*^@^Q /K@@>+C8@^Q]'=@@@#C8@@@^*4@^Q :4@^Q /K@@>LGN )@@G@@/K@@>PCC@^SY%8@EOR:8@EOF/K@@>SC@@^CS'=@@@I/K@@V]R'K^SY/,)@+TC8@^Q]'=@@@#GO )@@G@@C8@@@[:4@^Q /K@@V]C@@^CT'=@@@I/K@@V]/K@@>&C@@^CU'=@@@I/K@@V]C^@^SYC^K^Q GP )@@G@@!@K@@G/K@@>:/K@@*H;G@@@=W8@@@W*@@@@HG8@@@[G@@^QB[@@^QB*@@^R-/,)@8IC8C)@@GQ )@@G@@G8@@@[*0@^R>/K@@>/C8D@@@GC@^SY!@@^R^/K@@&S/K@@>"!@@^R^/K@@&SC@@@@BG@@^SYGR )@@G@@R[0@@GCC@^SYC8T@@@G@@@@HQ]K@@G(@@^RC/K@@&HC@@@@D$#@^RC/K@@&H @@^RCA]K^R-GS )@@G@@/,)@8I(@@^RD/K@@&OC@@@@D$#@^RD/K@@&O @@^RD @@^R-/K@@=&C@@^CV'=@@@I/K@@V]GT )@@G@@(0@^R>/K@@&_C@@^R !@@^R#/K@@&PG8@@@[[@@^R C/@^PY/,0@D.C8@^ERC8K@@G/,0@F1GU )@@G@@C/@@@A/,0@FPC8C@@@C8K@@^/,0@G_C/@@@A/,0@FPC8@^ETC8K@@A/,0@F1C^@^SYC8K@@^GV )@@G@@/,0@G_C8@^EUC8K@@A/,0@F1/,0@HUC/@@@A/,0@FPC8@^FMC8K@@N/,0@F1CC@^SYC8K@@^GW )@@G@@/,0@G_C@@^CD'=@@@IR[@^CW*^@^SY/K@@$ C@@^CX'=@@@I/K@@7/RD0^SYC^@^SY!@@^Q[GX )@@G@@/K@@*H8[0@$F/K@@& *0@^R>/K@@$KC@@^R !@@^R#/K@@&PRDO^SYC@@@@ !@@^Q@/K@@*HGY )@@G@@C8D)@@G8@@@[*0@^R>/K@@$X?@@^R^/K@@*]C@@^R G8@@@[[@@^R C/@^PY/,0@D.C8@^EVGZ )@@G@@C8K@@I/,0@F1C8D@@@/,0@HUC/@@@A/,0@FPC8@^ETC8K@@A/,0@F1CC^^SY/,0@HUC8@^EUHA )@@G@@C8K@@A/,0@F1C^^^SY:C^^SY/K@@$8C/@@@E/,0@FPC8@^CYC8K@@E/,0@F1C^^^SY/,0@HUHB )@@G@@C@@^CD'=@@@IC8^^SYG8@@@[[^@@*[C@@@@ /,0@;]/,0@KH@@@^RA@[@@@@O[@@@ O9@@@[HC )@@G@@/K@@$DC8@@@[[@@^R@C@@^RU=@@^C)/K@@*GC@@^C-'=@@[Z'=@@@DC@@^C+'=@@@I/K@@7/HD )@@G@@/#@@*Q!;@@@D/K@@*QC@@@@SC@G^L!'=@@@IC/@^PY/,0@D.C8@^F//,0@GDC^@^P/H8@^SYHE )@@G@@T8@@@AGC@^P/!8@@[KC8@@@G/,0@HU/,0@GAC@@^CD'=@@@I/,0@E]C8@^SY/,0@GD/K@@Z3HF )@@G@@R[)^R#*@@^R/R[)^EG*@@^R?/K@@*1R@K^CQN8K@@J @[=R!8KK@*\/KF@@@C@@^C<'=@@@IHG )@@G@@/K@@7/C@@^C='=@@@I/K@@7/C@@^EG(@@^R^*@@^R?[*@^R&*@@^R?[@@^R^*@@^R/[@@^R#HH )@@G@@/KF@@@[@@^QBC8@^Q]'=@@@#C5K^Q /[V@@@/K@@=8C@@^C>'=@@@I/K@@V]C@@^SY*4@^R%HI )@@G@@/K@@%U*)@^R$/K@@("%@@^P#/K@[]5*=@^R$/K@@%@R'K^SY/,)@8)R'K^TQ/,)@8)R'K^S'HJ )@@G@@/,)@9;R'K^T2/,)@9;C@@^T?+8@@B_[@KADG(@@@@HC8K@@W[@KADFCC@^T![@@^Q@[@@^Q[HK )@@G@@!8@@8[/K@@=WG@@ADFH8@@@[;G@@@=W@@ADFT@@ADF;G@@@=W8@@@W[@@^R]T8@@@W[C@^QAHL )@@G@@C8@@@^[^@^QBC@@^T%[@@^SUC)@^T!:8@@@N/K@@!YH8@@@ /G@@(;?8@@@^/KG^L$C@@^C&HM )@@G@@'=@@@I/K@@V]C@@^C$'=@@@IR'K^TQ/,)@9C/K@@(V*4@^R>/K@@V]R[)^R#R'@@@@R'K@@@HN )@@G@@C8@@8@[C@^QA[@@^Q@[@@^Q[[@@^SU @@^R] @@^QBC8@@@([0@^Q C8@^Q]'=@@@#C8@@@KHO )@@G@@[0@^Q C8@^Q]'=@@@#*4@^R(/K@@:L/K@@2E*=@^R*/K@[]5C@@^C*C8K@@C/,0@RE/GK@%:HP )@@G@@/G@@%:/@@@%:C@@^C(C8K@@^/,0@RE/GK@%:/G@@%:/@@@%:C@@^C%'=@@@I/K@@%#**@^R(HQ )@@G@@/K@@%_CC@^Q4+8@@B_/@K@%8:8K@[P/K@@%9:8K@[A/K@@%/:8K@[^/K@@%_:8K@[N/K@@:CHR )@@G@@/K@[]5C@@^C:'=@@@I/K@@.RC@@^C?'=@@@I/K@@.RC@@^C*C8K@@^/,0@RE/GK@%8/G@@%8HS )@@G@@/@@@%8^7@^R(^\@^R(/K@@%#C@@^C*C8K@@ /,0@RE/GK@%8/G@@%8/@@@%8^7@^R(^3@^R(HT )@@G@@/K@@%#*@@^R-/,)@8I 0@^R%O'@@@[(0@^R>/K@@:2C8C@@@H8@@@[!@@^R^/K@@:X^3@^R%HU )@@G@@/K@@:28[)@:Z/K@@&PC/@^PY/,0@D.C8@^ERC8K@@G/,0@F1C/@@@A/,0@FPC8C@@@C8K@@^HV )@@G@@/,0@G_C8@^H0/,0@GDC^@^Q /,0@HU/,0@GAC@@^QB/,0@GPC@@^CD'=@@@IC^@^Q T8@@@^HW )@@G@@R9/@@@R9K@@@/(0@:8/K@@!FO'K@@[C8P@@@*0@^R(G8K@@[C@@^C*;*K@@MG8K@@^/,0@REHX )@@G@@/GK@*H/@@@*H/G@@*H!8@]WO/K@@*H[@@^R/K@@! HY )@@G@@*0@^R%/K@@?_C/@^PY/,0@D.C8@^EVC8K@@I/,0@F1C8D@@@/,0@HUC/@@@A/,0@FPC8@^ETHZ )@@G@@C8K@@A/,0@F1C@@^R=/,0@HUC8@^EY/,0@GD(0@^R(/K@@?>/,0@GAC@@^R<;G@@@=W8@]WJIA )@@G@@/,0@HUC@@^CD'=@@@IC8P@@@G8K@@^*0@^R(G8K@@[;GK@@=W8K@@^G@K^C*G@)^CQR@K^C!IB )@@G@@R@)^CQN@K^R=8KK@!] @@@@G')]-CC')]-CC')]-CCC@@^R=G8@@@#;G@@@=W8@@@^/,0@;]IC )@@G@@/,0@KH@@@^RA@[@ KYP[0^RIJ )@@G@@/K@@V]C@@ACY!W@^S)/K@@14T8@@@ R9?^S:CCA@@@;G@@@=W8@@@=*@@@@HG8@@@[[@@^RWIK )@@G@@ @@^STC8@@@=H@@@@H%8@@@=[@@^STCK@^S)[@@^R/K@@V]R[)^R#R'@@@@R'K@@@(4@^R%/K@@2@C8@@8@[C@^QAJD )@@G@@*?@^R$/K@@4'C@@^QB!@@^SU/K@@>/K@@22C8C@@@H8@@@[!@@^R^/K@@2Q^3@^R%/K@@228[)@2S/K@@&PJF )@@G@@C/@^PY/,0@D.C8@^ERC8K@@G/,0@F1C/@@@A/,0@FPC8C@@@C8K@@^/,0@G_C8@^H0/,0@GDJG )@@G@@C@@^SY(4@^R%/K@@2?C8@^SY&;@@@[C8K@@C/,0@RE/GK@*H/,0@HU/,0@GAC@@^QB/,0@GPJH )@@G@@C@@^CD'=@@@IC@@^SY(4@^R%/K@@2'C8@^SY&;@@@[C8K@@C/,0@RE/GK@*HR[0@@GP90@@[JI )@@G@@*4@^R%P90@@[R9K@@[*4@^R%O9K@@[/(0@3#/K@@4OO'K@@[(0@^R>/K@@4I*0@^R%/K@@4@JJ )@@G@@C/@^PY/,0@D.C8@^EVC8K@@I/,0@F1C8D@@@/,0@HUC/@@@A/,0@FPC8@^ETC8K@@A/,0@F1JK )@@G@@C^ ^SY(4@^R%/K@@3WC8 ^SY&;@@@[C8K@@^/,0@RE/GK@*HH8@@@[/,0@HUC8@^EUC8K@@AJL )@@G@@/,0@F1*4@^R%/K@@3,C^ ^SY:C ^SY/K@@3,C/@@@E/,0@FPC8@^CYC8K@@E/,0@F1CC ^SYJM )@@G@@H8@@@[/,0@HUC@@^CD'=@@@ICC ^SY(4@^R%/K@@38C8 ^SY&;@@@[C8K@@^/,0@RE/GK@*HJN )@@G@@H8@@@[1@@@@G!@@^Q[/K@@*H/,0@;]/,0@KH@@@^RA@[ ^SZCC ^SY(4@^R%/K@@4CC8 ^SYJO )@@G@@&;@@@[C8K@@^/,0@RE/GK@*H1@@@@G!@@^Q[/K@@*HP[0@@GO[K@@G/K@@3[C8D@@[!@@^R^JP )@@G@@/K@@4M/K@@4@8[)@3C/K@@&P(@@^RC/K@@4V$]K^RC/K@@4V @@^RCA]K^R-/,)@8I(@@^RDJQ )@@G@@/K@@4-$]K^RD/K@@4- @@^RD @@^R-*4@^R%/K@@2 C@@^SYG@@ADFH8@@@[;G@@@=W@@ADFJR )@@G@@T@@ADF;G@@@=W8@@@WG@@^QB[@@^QB/K@@2@/[V@@[%9K@@ :9K@@[/K@@46*4@^R%%9K@@^JS )@@G@@/K@@=8/KF@@[^\@^R$*^@^Q /KF@@[/KF@@@/K@@><*4@^R>/K@@V]C@@^R^R9W@@[&9K@@[JT )@@G@@T@@^R]G8@@@^[^@^QBR[)^R#C@@^Q@[C@^QAC8@^Q]'=@@@#C5K^Q /[K@5HC@@^C5'=@@@IJU )@@G@@/K@@=88[)@5J/K@@&PC/@^PY/,0@D.C8@^EVC8K@@I/,0@F1C8 @@@/,0@HUC8@^H0/,0@GDJV )@@G@@C^@^SZH8@@@[/,0@HU/,0@GAC@@^QB/,0@GPC@@^C '=@@@IC^@^SZ!@@^Q@/K@@*HH8@@@[JW )@@G@@/,0@;]/,0@KH@@@^RA@[@^S)/S )@@C@@^QBG@@^R][@@^QB!@@^SU/K@@>/K@@7$C/@^PY/,0@D.C8@^IK/,0@GD/,0@'C/K@@7$$[@^R^KE )@@G@@/K@@7$^3@^R%8[)@7C/K@@(B*?@^R&/K@@7F^\@^R&C/@^PY/,0@D.C8@^J4/,0@GDC8^@@@KF )@@G@@/,0@HUC/@@@]/,0@FP/,0@GACCB@@@/,0@HU/,0@GAC@@^CD'=@@@I/,0@E]C8@^G(C8K@@AKG )@@G@@/,0@F1/,0@'CCCB@@@/G@@*HL@@^Q@/CK@*H/,0@;]RAR@@@/,0@KH@@@^RA@[D^SY(WB@@[KH )@@G@@/K@@>C@@@@HKI )@@G@@/,0@([/K@@6>C@@^R]G8@@@^/K@@6IC@@^C6'=@@@I/K@@.R(*@^R>/K@@V][@@@8^C8@@8]KJ )@@G@@'=@@[Q/K@@8 REGS 8@@@@@@@@@@@[@@@8FC8@@8D'=@@[Q/K@@8GIO PKT@@C^Q]@@@@@@KK )@@G@@/,)@8I/K@@V]C/@^PY/,0@D.C8@^G4/,0@GDC^@^Q /,0@HU/,0@GAC^@^QB/,0@HUC@@^CDKL )@@G@@'=@@@ICC@^QA&;@@@B[@@^SO/,0@KH@@@^SO@[@^SY/KE@@@C@D@@@[@@^O:9?D@@[9*@^O1KM )@@G@@C@D@@#[@@^O39?D@@ ;?@@@D[@@^O6;CK@@M[CK^O79?D@@E;?@@@D[@@^O/;CK@@M[CK^O.KN )@@G@@9?D@@G;G@@@D;CK@@M[CK^P]9?D@@F;?@@@V[@@^P[C@@^C7'=@@@8CCD@@H;G@@@DC8@@@)KO )@@G@@;G@@@D;CK@@M[CK^PF9?D@@J9*@^PKC@D@@L[@@^PMC@@^C8'=@@@8CCD@@@%8@C(J/KE@@@KP )@@G@@C/@^PY/,0@D.C8@^E_C8K@@E/,0@F1CCD@@R/,0@HUC/@@@]/,0@FPC8@^F]C8K@@F/,0@F1KQ )@@G@@CCD@@T/,0@HUC/@@@]/,0@FPC8@^HXC8K@@O/,0@F1C@D@@O/,0@GPC8@^H-/,0@GDC)D@@RKR )@@G@@/,0@GPC/@@@[/,0@FPC)T@@RC@H^L>!8K@@ !8K@@CC8@@@?:8K@@NC@@^L!/,0@F&*4@^R%KS )@@G@@/K@@98/,0@GAC@D@@Q+8@@B_/@K@93D@@@@H/,0@HU(@D@@P/K@@98/,0@GAC@D@@P/,0@GPKT )@@G@@C@@^CD'=@@@I/KE@@@C@D@@@N@)^C9C@K^C'N8K@@#9@H)@@/KE@@@[@@^PSC@@^C;'=@@@8KU )@@G@@/,0@KH@@@^SP@[D@@[/KE@@@A]0^R+/,0@FY[@@^R-R'>^S)N[@^RW8L@@'J/K@@'Z*@@@[^KV )@@G@@/K@@'UC@E@@@C@K^ST;CH@@@C8)@@=H@)@@H @@@@HW8K@@#/,0@G^S)N[@^RW8L@@'*/K@@'/KX )@@G@@*@@@[^/K@@'0C8@@@=H@@^ST;G@@@=W8@@@DN[K@@G/K@@'1N9K@@^C[E@@@8LK@'5O')@@[KY )@@G@@/K@@'& @@@@J;?0@@DC)J^#K/,0@FGC/@@@]/,0@FP/K@@'2C@@^C@'=@@@IC@@^C/'=@@@IKZ )@@G@@R]0^R+/KF@@@!@@^R:C@@^R:T@@^SX;C@@@[[^@^RA/KF@@@C4@^QQ/^@@;KC/@^PY/,0@D.LA )@@G@@C8@^G_C8K@@S/,0@F1/K@@Z3;C@@@#%8@@@#/K@@;UC@@^SG(@@@@GC8@@@^[@@^R]C@K@@GLB )@@G@@T8K@@W/K@@;-%8@@@]/K@@;$C@@^SG(@@@@GC8@@^@C@K@@G[@@^R]C@0^R^T@@@@JG@@^R[LC )@@G@@[@@^QBR]@^R^/K@@;?^\@^R%C8K@8@ @@^R] @@^QBR'@@@@!8K@8[/K@@=WR[)^R#[CK^QALD )@@G@@&'@@@[*4@^R$/K@@/@C8@^Q]'=@@@#C5K^Q /[K@/M%9K@@[:9K@@ /K@@;.%9K@@^/K@@=8LE )@@G@@/K@@/M[5K^R$*^@^Q /K@@/MC@@^C.'=@@@I*4@^R%(@@^SI/K@@/L(?@^R%/K@@V] ?@^R%LF )@@G@@C@@^SIH8@@@[/@@@/L[@@^SI 4@^R$R[)^R#R]@^R^&'@@@[/K@@;1/K@@V]^\@^R%$]@^R^LG )@@G@@/K@@.N8[)@/+C@@^C"'=@@@I*4@^R%(@@^SI/K@@V]C8@@@%[0@^Q C8@^Q]'=@@@#C8@@@KLH )@@G@@[0@^Q /K@@;5C/@^PY/,0@D.C8@^ERC8K@@G/,0@F1C/@@@[/,0@FPC8C@@@/,0@HUC/@@@^LI )@@G@@/,0@FPC8@^ETC8K@@ /,0@F1C^@^Q /,0@HUC8@^EUC8K@@A/,0@F1*4@^R%/K@@/_C/@@@^LJ )@@G@@/,0@FPC8@^HGC8K@@F/,0@F1C^@^QB/,0@GP/K@@.EC4@^Q /@@@.E%8@@@^/K@@.EC/@@@ELK )@@G@@/,0@FPC8@^HIC8K@@Q/,0@F1C?@^Q /,0@HUC@@^CD'=@@@IC@@^C/'=@@@IC^@^Q /,0@;]LL )@@G@@/,0@KH@@@^RA@[@^SYC^@^QBG@@^R][^@^QB/K@@;1(4@^R%/K@@;CC8@@@([0@^Q C8@^Q]LM )@@G@@'=@@@#C8@@@K[0@^Q /K@@;CC8@^E#C8K@@FC4)^E#%8)@@0/K@@.$/,0@QB/K@@.*/,0@RELN )@@G@@/GK[[>/@@[[>(?@^R>/K@@.,D@@@@GG8@@I6[@@^QN/,0@H.@@@ K-@@@^C_@@@^D@/S@@@@LO )@@G@@/,0@IF@@@^D[@@@^D@@@@ K-@@@^QN/S@@@@0@@ K-/K@[[%C/@^PY/,0@D.C8@^M9/,0@GDLP )@@G@@C^@ K=/,0@HUC/@@@[/,0@FPC/@@@(/,0@FGC^@ K=/,0@GPC/@@@)/,0@FGC/@@@]/,0@FPLQ )@@G@@/,0@GAC/@@@'/,0@FGC8@ K>C8K@@G/,0@F1C/@@@'/,0@FG(@@^#J/K@@"UC@@^C@'=@@@ILR )@@G@@/,0@E]/K@@"WC/@@@[/,0@FP/,0@GAC@@ K*;C@@@S/,0@HU/,0@GAC@@ K%/,0@HUC@@^CDLS )@@G@@'=@@@I/,0@E]C8@^N /,0@GDC0@ K$:8@@@CC8@@@^:8@@@KC8@@@#C@G^NA/,0@GDC8@@@ LT )@@G@@%0@ K$/K@@";C8@^NOC8K@@I/,0@F1C@@ K=;*@@@S;C@@@SD@@@@GG8@@I6/,0@HUC8@^OFLU )@@G@@/,0@GDCO@ K$/,0@GPCO@ K$>8@@[@/K@@_EC@@^CD'=@@@I/,0@E]C8@^OJ/,0@GDCC@ K=LV )@@G@@/,0@GP/,0@GAC8@^N3/,0@GDC?@ K$C@G^N5/,0@GDC@@^CD'=@@@I/,0@E]C,@ K$H'@@@[LW )@@G@@/]@@_RC8@^N//,0@GDC8@^N"/,0@GD9?@ K?/,0@F*/,0@GAC@@ K:/,0@GP(@@^#J/K@@_=LX )@@G@@C@@^C@'=@@@I/,0@E]/K@@_&C/@@@[/,0@FP/,0@GAC)@ K*/,0@GP/]@[@[C@@^CD'=@@@ILY )@@G@@/,0@E]C8@^OD/,0@GDC8@^N"/,0@GD9?@ K\/,0@F*/,0@GAC@@ K,/,0@GP(@@^#J/K@@_/LZ )@@G@@C@@^C@'=@@@I/,0@E]/K@@_"C/@@@[/,0@FP/,0@GAC)@ K(/,0@GPC@@^CD'=@@@I*4@^R>MA )@@G@@/K@@V]C0@ K$:8@@@]/K@[[\R]@^R#(@@^R#R]@^EGC8@@RD[@@^QMR]K^R^O'K@@[&'K@@[MB )@@G@@ @@^SVC@@ K*;C@@@SK8@@@#!8@@8[/K@@=W9*@^QP/,0@;]8]@[@U/K@[@+C@@ K%!8D@@@MC )@@G@@/K@[@>C@@^D]'=@@@I/,0@ID/S@@@@/K@@V]C@@^CV'=@@@I/K@[@ZAAK^SV/,0@IF@@@^D#MD )@@G@@@@@^D@@@@^SY@@@^QN@@@^QP@@@^SV@@@^QQ/S@@@@1@@^SY/K@[[QC/@^PY/,0@D.C8@^NXME )@@G@@/,0@GDC^@^SY/,0@GPC^@^SY%8@@@2/K@[[#C/@@@(/,0@FGC8@^D^C8K@@^/,0@F1C?@^SYMF )@@G@@/,0@GPC/@@@)/,0@FG/,0@GAC@@^QN/,0@GP/,0@GAC@@^QM/,0@F&/,0@GAC^@^SV/,0@HUMG )@@G@@C@@^CD'=@@@IC^@^SY%8@@@2/K@[@ZC?@^SY%8@@@ /K@[@Z/SD)@@/K@[@SC/@^PY/,0@D.MH )@@G@@C8@^EVC8K@@I/,0@F1C8D)@@/,0@HUC@@^D '=@@@IC@@^C/'=@@@I/,0@KH@@@^RA@[@^S-MI )@@G@@/K@[@SC@@^DA'=@@@IC/@^PY/,0@D./K@@*>C8@@LF[@@^QMC@@ K-[@@^SY/K@[@1C@@^DBMJ )@@G@@'=@@@I/K@@V]C@@^E#%@@^O-/K@[]NC@@^R#!8@^Q]/K@@=WC/@^PY/,0@D.C8@^OU/,0@GDMK )@@G@@C@@^R^/,0@HUC@@^CD'=@@@I/,0@H.@@@ K-@@@^C_@@@^D@/S@@@@/,0@J[@@@^D@@@@^R^ML )@@G@@@@@^SY@@@^R#/S@@@@/,0@ID/S@@@@C@@^R#/,0@;]/,0@KH@@@^RA@[@^SY/K@@V]C/@^PYMM )@@G@@/,0@D.C8@^O+/,0@GD/K@@*>C8@@@([0@^Q C8@^Q]'=@@@#C8@@@K[0@^Q /KE@@@'=@@@#MN )@@G@@C^W@@#G@K^QI[@K^QIC^W@@#G8K@@V;GK@@=W8K@@WG^W@@ [^W@@ C4W@@#/@U@@@:8K@@^MO )@@G@@/KE@@@:8K@@[/K@[]3%8K@@M:8K@@ /K@[]3/K@@=8[4K^R*/KE@@@C@K^SY%@K^M)/K@[];MP )@@G@@C@@^DC'=@@@I/K@[A5C8@@@*%4@^SY/K@[A5C@@^SY%@@^MY/K@[#^C@@^DD'=@@@I/K@[A5MQ )@@G@@%@@^MZ/K@[#DC@@^DE'=@@@I/K@[A5C/@^PY/,0@D.C8@^I/K@@V]C)@^SY[?@^R*MV )@@G@@(@@^R^^\@^R&R9@@@@C8@@[@[@@^R]R[K^R#C@@^DG[@@^QAC@@^R[[@@^QBG@@^R][@@^QHMW )@@G@@ @@^QI*4@^R%/,)[]SC8@^Q]/,)[]ZC@@^QI[@@^QJG8@^SY&;@@W@[@@^QGC8@^QC(4@^R*MX )@@G@@/,)[]ZR90^SYCCB@@@;C@@@A0@B@@@C0B@@@G8B@@@H8@^SY?@@^QI/K@[^^S)&')@@[C@@^RWT8@@@]N@K@@GR8)@@[C80@@[8KK[BS/KF@@[NN )@@G@@T/0__"O@)@@J')][CJ')][CL/GF@@@/@@[BQ/KF@@]C@@^DM'=@@@HC8K@@&[4W^SYT8@@@ANO )@@G@@[C@^P'C8@^SY[@@^P/ ^@^P;/,0@SZC;@@@C/,0@S)@@@^P'(C@^P./K@[B'C8@^S2CCK^P.NP )@@G@@C4)^S2%8)@@0/K@[B5/,0@QB/KE@@@/,0@RE/GU@@@/CE@@@C/K__"/KE@@@ @@@@HC8@@@@NQ )@@G@@/KE@@@C;@@@A/K@@*KC;@@@B/K@@*KCWH@@@CKH@@@CSH@@@/,0[C COH)@@Q;)@@@/KF@@@NR )@@G@@[W[@@@[K[@@@[S[@@@/,0[CG[O[)@@Q8)@@@/KF@@@CCE@@@C^E)@@HCD@@@H^D)@@@@@@@@NS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@ Q^[T@@@@@@[[@@@@@@@@@@@@@@@@NU )@@G@@@@@@@@@@@@@@C=G^#KC)G^#K @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@>@@K@@WCI@@@^NW )@@G@@^C@@@[[#@@@B^C@@@]]^@@@H[#@@@F^C@@@GEO@@@C^C@@@)EI@@@K] @@@ #A@@@DEI@@[KNX )@@G@@EO@@]^JY@@]C]^@@@#@@@@@0@@@@@1@@@@@2@@@@@3@@@@@4@@@@@5@@@@@6@@@@@7@@@@@8NY )@@G@@@@@@@9@@@@@A@@@@@B@@@@@C@@@@@D@@@@@E@@@@@F@@[@@K@@[^[7@@[@@@//////@[Q^[TNZ )@@G@@@]Q^[T@@Q^[T@@@VVV@@@@@@@[@0 @[V1 @[X2 @@<3 @[Y4 @@)5 @[[6 @[]7 OA )@@G@@@[#8 @[^9 @[ : @[A; @[B< @[C= @[D> @[E? @[F @[G! @[H\ @[I# OB )@@G@@@[J^ @[K% @[L& @[M' @[N( @[O) @[P* @[Q+ @[R, @[S- @[T. @[U/ OC )@@G@@@@(@ @@!A !@@:B "@@/C #@@.D $@@"E %@@&F &@@=G '@@%H (@@*I )@@>J *@@'K +OD )@@G@@@@_L ,@@-M -@@?N .@[WO /@@0P 0@@1Q 1@@2R 2@@3S 3@@4T 4@@5U 5@@6V 6@@7W 7OE )@@G@@@@8X 8@@9Y 9@@$Z :@@;[ ;@@\$ <@@,] =@@+" >@[Z_ ?@@@@ @@@@@ A@@@@ B@@@@ COF )@@G@@@@@@ D@@@@ E@@@@ F@@@@ G@@@@ H@@@@ I@@@@[J@@@@.K@@@@N@@@@?O@@@@ P@@@@ Q@@@@ R@@@@ SOJ )@@G@@@@@@ T@@@@ U@@@@ V@@@@ W@@@@ X@@@@\Y@@@@:Z@@@@#?@@@@@\@@@@'!@@@@=^@@@@ _OK )@@G@@@@@@ @@@@A @@@@B @@@@C @@@@D @@@@E @@@@F @@@@G @@@@H @@@@I @@@@ @@@@ OL )@@G@@@@@@ @@@@ @@@@ @@@@ @@@@ @@@@J @@@@K @@@@L @@@@M @@@@N @@@@O @@@@P OM )@@G@@@@@@Q @@@@R @@@@ @@@@ @@@@ @@@@ @@@@ @@@@ @@@@ @@@@^ @@@@S^@@@@T ON )@@G@@@@@@U @@@@V @@@@W @@@@X @@@@Y @@@@Z @@@@ @@@@ @@@@ @@@@ @@@@ @@@@ OO )@@G@@@@@@ @@@@ @@@@ @@@@ @@@@ @@@@ @@@@ @@@@ @@@@ @@@@ @@@@ @@@@ OP )@@G@@@@@@ @@@@ @@@@ @@@@ @@@@? @@@@A @@@@B @@@@C @@@@D @@@@E @@@@F @@@@G OQ )@@G@@@@@@H @@@@I @@@@ @@@@ @@@@ @@@@ @@@@ @@@@ @@@@! @@@@J @@@@K @@@@L OR )@@G@@@@@@M @@@@N @@@@O @@@@P @@@@Q @@@@R @@@@ @@@@ @@@@ @@@@ @@@@ @@@@ OS )@@G@@@@@@\ @@@@ @@@@S @@@@T @@@@U @@@@V @@@@W @@@@X @@@@Y @@@@Z @@@@ @@@@ OT )@@G@@@@@@ @@@@ @@@@ @@@@ @@@@0 @@@@1 @@@@2 @@@@3 @@@@4 @@@@5 @@@@6 @@@@7 OU )@@G@@@@@@8 @@@@9 @@@@ @@@@ @@@@ @@@@ @@@@ @@@@ @@@@@@@@@@@@@@@@@@@@@@@@OV )@@G@@@@@@@@@@@@@@@@@@@ @@@@@)@@[@@@_____8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OW )@@G@@@@@@@@@@@@@@@@@@@ @@@@@)@@@@@+@@@@@:@@@@@-@@@@@!@@[@@@@@@@@@@@@@@@@@@@@@OX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@;@@,@@;@@?@@*@@ @@%@@)@@[^B%OY )@@G@@@@@)@[@@@)@@@@[@@@@@@@@[K@@@@@@@@@[Z@@/TIP@@@@AT@[Q^P=@* ^SY]@@@@@@@#^DUOZ )@@G@@@@#@@@@^Q^P=@@@[@@Z__^QK@@C^QY@]Q^P=@@@@@]@@N^Q!@@@@UN@9BIT-@@EVEN@@@ODDPA )@@G@@_"Q^P=@]^^GX@]^^E;@][^EQ@@@CFHBLOCK:@@[@@@@]C^GP@]^^F*@]C^F?@]A^H%@]^^HCPB )@@G@@@@[@@[@]^^HMORIGINAL: @@@@K@@@]^EH@]B^FY@]#^HQ@]^^HT@]^^G>@]A^I%@]E^H7PC )@@G@@@@[^SY@@[^S)@]I^I0@]D^JC@]C^JL@@[ KY@] ^KF@@ ^S:@@@DIS@]D^K]@@[^R!@@[^R.PD )@@G@@@]A^J,@#E^G%@]B^J[@#V^O*@]G^PB____8@@@[^P^@^F^PN@[[^EQ@^ ^H#@^^^HC@@@@@@PE )@@G@@@@@@@[@@^@@E@]A^NR@@B@@[I/O @#Q^P=@]^^N$@]C^N:@]B^M2@]B^M-@]E^M*@]G^KYPF )@@G@@@W@^SY@]#^IV@]K^K%@]E^K'@]D^L^0@C@@@@*K^SY@@@@C#@@@[A6@@@@@@@@@@@@@@@@@@PG )@@G@@TOTAL BLOCKSSEQSEGMT [@@^SLSTPRINTK K@@^R?ENPRINTK K@@^R/MSAMALPH )@@G@@TK [@@ACYDUMPBLEN [@@^SGPRLENGTH [@@^R:EOFCOUNT [@@^SIWDTOLIPI )@@G@@NE [@@^SWXSTARTRD [@@^R[LABELPRT ][@^SQLABELPRL [@@^SS@FREE,PJ )@@G@@R TOC . @ASG,A TOC . @USE TOC,@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PK )@@G@@@@@@@@@@@@@@@@@@@@ & . @@#4C_H,N.M,*,*,*.M,66,3,3.H,,,SERPRT PRINT OPL )@@G@@F FILE & BLOCK NUMBERSIZE WORDSRECORD NUMBER CHARACTERS&PM )@@G@@ SEGMENT STATUS= & FILE ASSIGNMENT ERROR & FASTRAND FORMAT& WORD ADDRESPN )@@G@@SABLE FORMAT& EQUIP=& (&-TRK &LABELLED TAPE TSN=& PARITY=&,BPI=&)& PO )@@G@@ ASG OPTIONS: & ERROR READING PAST EOFMAX BLOCK SIZE MAX RECORD SPP )@@G@@IZE IO STATUS CODE & ATTEMPTING TO READ & WORDS FROM ADDRESS & VALUE PQ )@@G@@OF ID- NUMBER OF RECORDS: NUMBER OF BLOCKS: USER LABEL: STANDAPR )@@G@@RD LABELS INVALID WORD COUNT-FILE PRINT TERMINATED CREATION DATE: PS )@@G@@NO EOF BLOCK-TAPE FILE EOF BLOCK INCOMPLETE-NO TAPE MARK FOLLOWING PT )@@G@@MAX BLOCK SIZE EXCEEDS SERPRT CAPABILITY OF ERROR IN PARAMETER CARD PU )@@G@@DETECTED BEFORE COLUMN & :& LABELS OMITTED REEL NUMBER: NUMBERPV )@@G@@ OF RECORDS ON FILE EXCEEDS CFH EOF COUNT EOF SENTINELAFC ON TAPE-WORD CPW )@@G@@OUNT READ NOT=BLOCK WORD COUNTNO WRITES TO THIS FILE -EXTERNAL NAME= PX )@@G@@& REQUESTED COUNT EXPIRED KEY- IO$ STATUS RETURN UNFAVOURABLE - TAKPY )@@G@@EN AS END OF RANDOM FILECONTENTS OF CURRENT BLOCK - LENGTH & WORDS AT SPZ )@@G@@ECTOR ADDRESS & EQUIPMENT TYPE NOT VALIDEOF STATUS RETURNED BY IO$ QA )@@G@@REQUESTED COUNT EXPIRED AT ADDRESS ABNORMAL FRAME COUNT= BLOCK SIZE OQB )@@G@@N FILE=ZERO ERROR IN INDEXES RECORD KEY ABOVE EOF EOF SECTOR ADDRESSQC )@@G@@: FILE TYPE: & MASS-STORAGE& ADDR OF FIRST DATA BLK: & SOFTWARE ENDQD )@@G@@ OF FILE ENCOUNTERED SIZE & WORDS AT SECTOR ADDRESS & ASCII QE )@@G@@COBOL LABEL RECORDS OMITTED (IMPLIED BY O OPTION) IS FILE: KEY LEQF )@@G@@NGTH & WORDS SLACK BIT SHIFT COUNT & ADDRESS OF HIGHEST INDEX & QG )@@G@@DELETED RECORD, KEY = & CONTROL IMAGE LENGTH & WORDS &NO SDFQH )@@G@@ END OF FILE WORDS CONTROL WORD: & SYSTEM DATA FORMAT (SDF) FILE QI )@@G@@ TYPE & INVALID FILE TYPE - PRINT TERMINATEDFILE APPEARS TO BE ASCIIQJ )@@G@@ COBOL INTERNAL FORMAT TAPE - ATTEMPTING TO PRINT AS SUCH PARAMETER CAQK )@@G@@RD:-& UNFORMATTED BLOCK PRINT TO BE PRODUCED ANS TAPE FILE FORMATTED QL )@@G@@IN UNDEFINED BLOCK STRUCTURE ANS TAPE FILE FORMATTED AS FIXED LENGTH REQM )@@G@@CORDS SERPRT-13.&(MAPPED & KEY & SIZE= & BITS -POSITION IN RECORD: WQN )@@G@@ORD & OFFSET & DUPLICATES &ALLOWED # LEVELS OF INDEX= & ALT KEY SPECQO )@@G@@IFICATION > THAT IN FILELOGICAL RECORD & SIZE & WORDS&SELECTION IS UPON&QP )@@G@@ PRIMARY KEY (#0)& ALTERNATE KEY # &FILE HAS MORE THAN 25 KEYS - FIRST 2QQ )@@G@@5 ONLY ARE PRINTEDINFORMATION STATISTICS TABLE FILE BLOCK SIZE & RECQR )@@G@@ORD SIZE & SEGMENTED, FILE 2 AT ADDRESS & SEQUENTIAL& THIS FILE ISQS )@@G@@ NOT SEGMENTED - REQUEST TO PRINT LATER SEGMENT IS IGNORED THE FOLLOWINQT )@@G@@G LIST REPRESENTS THE CONTENTS OF EACH SEGMENTED FILE LABEL PASSED TO THQU )@@G@@AT REQUESTEDIO ERROR ENCOUNTERED DURING POSITIONING TO NEXT SEGMENT QV )@@G@@REQUESTED SEGMENT NUMBER EXCEEDS THE COUNT IN FILE RELATIVE& READ$ QW )@@G@@FILE& FORTRAN DATA FILE&@FILE FORMAT FILE&PRINT$ FILE&SIRASM& PCIOS&QX )@@G@@@@C^LJ@@F^LL@@I^LO@@P^LR@@S^LT@@X^LV200 556 800 1600 6250 /K@@17QY )@@G@@/K@@4;/K@@5\SERIALDIRECTISAM MSAM _"A^L6_"^^L/_"^^M@_" ^M^_"A^MD_" ^MJQZ )@@G@@_" ^MO_"^^MTMISSING OR INVALID FILENAME SPEC INVALID KEYWORD NAME RA )@@G@@TOO MANY WORDS TO KEY 12 CHAR SPEC IS NOT OCTAL INVALID NUMBER OF RB )@@G@@CHARS TO SPEC TOO MANY CHARACTERS IN SPEC PARAMETER NOT TERMINATEDRC )@@G@@ BY ,*INVALID NUMERIC SPEC DDDDDD**PF****EF**COPYG PROGRAM FILE- NO FRD )@@G@@ORMATTED PRINT AVAILABLEELEMENT (COPIN/COPOUT) FILE-NO FORMATTED PRINT ARE )@@G@@VAILABLE COPY,G FILE- NO FORMATTED PRINT AVAILABLE TIP FILE - FILE NURF )@@G@@MBER & FILE NAME &RECORD LENGTH & RECORD COUNT &FILE TYPE & @@@^NGRG )@@G@@@@@^NI@@@^NJ@@@^NL@@@^NNPERMANENT& ?& TEMPORARY& SCRATCH& DMS& RH )@@G@@ AREA NUMBER: END OF ALLOCATED AREA ENCOUNTERED FCSS ERROR CODE & RI )@@G@@ON FILE & FUNCTION & RECORD NUMBER & BAD TIP FILE NUMBER VARIABRJ )@@G@@LE LENGTH TIP FILES NOT HANDLED AT PRESENT STORAGE TYPE & @@@^N8@@@^N'RK )@@G@@SIMPLEX& DUPLEX& LEG 1: & EXEC FILE NAME & FILE RELATIVE STARL )@@G@@RT ADDRESS © STATUS & LEG 2: & FALLBACK INDICATORS &THIS FRM )@@G@@ILE IS USED INSTEAD OF & WHEN REFERENCED IN TRAINING MODE& PRINT OF TIPRN )@@G@@ KONS AREA STARTING AT INDEX &KONS SPEC 1 IS NOT 'KONS' AS REQUIRED: & RO )@@G@@C1DD- ^[GCD]C(G *)F[SF[S^[^C(OCDDD-N ))^[ADDGC*!DD^BK)F[SF[SF[SF[SF[SF[SRP )@@G@@^[NC(O (DC)'F[SF[SF[S^@)^[#EL CDODDJD0!C-[E- BK)F[SF[SF[S^@)^[KE(MC9 (^RQ )@@G@@CDOC*'F[SF[SF[S^@)D[^EK1E(CD))E(OD))E(QD))^@)^[ADDGC*!CD#CT ETNBK)F@)C1DRR )@@G@@D- (LE([D-DC1DC(MBK)^@)F[SF[SF[SF[SF[SF[SE(NC(M^[GCD]C(G^[OFDKC*'^@)^@)RS )@@G@@F[SF[S^@)C-PD(K^[JC0)CTJD1OC(IE-N^@)@&Q^P=@@@@@@[[@@@@@@@@@@@@@@@@@@@@@@RT )@@G@@@[K@@G@@@@@@@@@@@@@@@^S2[B.[B_@YG[BZ@@@@@@@@@@@@TOC @@@@@@@K@@@@RU )@@G@@@@8^SY@@@@@@TOC @@@@@@@K@@@@@W@@@@@@@@@@@@@@@@@@@@@@TOC RV )@@G@@@@S@@S@#@@@@@@]^QK@C@@@@@@[^Q&@F@@@@@@[^Q%@E@@@@@@#^Q$@@@@@@@@@@@@@@@@@@RW )@@G@@@@@@@@@@@@@@BRLDW*@@@@@@@@@@@[TOC @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SA )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___SB )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___SC )@@G@@@@@___@@@___@@@___@@@___$MAIN$ @@^@@^@@@@@]@@@#@ @@@@@]@@@@@@@@@@@@SD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CONECT LH!AXJDECTRASF )@@G@@N DU*BRLEDIT$ B"UCBIEDIT$T LMWCCFERU$ JTKGOIEXID SG )@@G@@ LICAXJFCSS LIKAXJGETFLD DU:BRLKONS LI!AXJOCTRANSH )@@G@@ DU,BRLPRCORE DU1BRLSERPRT DU;BRL@@@@@@@@@@@@@@@@@@@@@@@@SI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@$IBANK @@@@@E$DBANK @@Y@@H *3A*)@H@M@LSK )@@G@@^@)^@)^@)^@)^@)^[NC(GC(#E))CDGE)!C1#CK!CT[EL^ES)CDNETDC9I^[^DDNCS)CTJELMSL )@@G@@ES)^@)@D@M@L^@)^@)^@)^@)^@)^@)^@)D9MC9[D1DFL[E-D@@@@@DK@@[@^@[.@C@@@@@@ASM )@@G@@K@@[@^@#/@D.@@@@@@@@@[@^@@M@H9@@@@@M@@@[@^@@4@IF@@@@@S@@@[@^@[E@I_@@@@@YSN )@@G@@@@@[@^@ "@KD@@@@@V@@@[@^@[#@QB@@@@@#@@@[@^@[P@RE@@@@@P@@@[@^@[9@SZ@@@@@-SO )@@G@@@@@[@^@!;@US@@@@@J)@@@@ @@F^@@@@@@@Y)@@@@ @##^@F@@@@@Y)@@]@ @@[^#I@@@@@YSP )@@G@@)@@A@ @^[^#J@@@@@V)@@@@ @@A^BK@@@@@V)@@^@ @@^^BQ@@@@@#)@@@@ @@C^BU@@@@@#SQ )@@G@@)@@^@ @@B^B+@@@@@P)@@@@ @@D^B(@@@@@P)@@^@ @@E^B2@@@@@-)@@@@ @[R^B/@@@@@-SR )@@G@@)@@]@ @GF^DN@@@@@-)@@C@ [3\^PY@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CONECT @@A@@^DECTRAST )@@G@@N @@P@@@DISCON @@A@@KECHAR$ @@#@[JECLEAR$ @@#@@ ECOLN$SU )@@G@@ @@#@[-ECOL$ @@#@[MECOPY$ @@#@[4EDAY2$ @@@@@$EDECF$SV )@@G@@ @@#@#]EDECV$ @@#@#XEDITX$ @@#@@+EDIT$ @@#@@@EDIT$TSW )@@G@@ @@#@@\EFD1$ @@#@[(EFD2$ @@#@[:EMSGR$ @@#@]DEMSG$ SX )@@G@@ @@#@]GEOCTF$ @@#@]&EOCTV$ @@#@]SESKIP$ @@#@[SETIME$SY )@@G@@ @@@@@@EXID @@Y@@@FCSS @@D@@@GETFLD @@S@@[KONS SZ )@@G@@ @@G@@]OCTRAN @@M@@@PRCORE @@J@@^PRCOREDEMAND@@$@@@PRCORETA )@@G@@TAB @@$@@[RGETF @@S@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TC )@@G@@D$ATE @@@BRLIDLEVEL @@@@[ZT$IME @@@DW*@@@@@@@@@@@@@@@@@@TD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@^@)^@)^@)^@)^@)^@)CTK^@7 *8AC)^@)^@)@P@M@L^@)^@)TF )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)^@)^@)^@)CDNETJTG )@@G@@CTDCDOC(^^[OC(MD(DD1[D-N^@)^@)CTK^@7 *8AC)^@)^@)@[@M@L *4A@)@P@M@LD9KC(MTH )@@G@@EK)^@)^@)^@)^@)^[ EDP^@)^@)^@3^@)^@)^@)^@)^@)^@)^@)^@) 0)^9JE[ EL[E-DD9ITI )@@G@@CDG^8)C(MELJEK)^@)^@)^@)^@)^@)CTK^@7 *8AC)^@)^@)@P@M@LCDKE[[CLJELO^@)^@)TJ )@@G@@^@)^[ EDP^@)^@)^@4^@)^@)^@)^@)^@)^@)^@)^@) 0)^9AE-G^8)EL E-PELI^[AELJD*)TK )@@G@@CDKE[GDD#CDODDJD0)CTK^@7 *8AC)^@)^@)@[@M@L *4A8)@P@M@LE-G^-ICDH^@)^@)^@)TL )@@G@@^@)^[ EDP^@)^@)^@0^@)^@)^@)^@)^@)^@)^@)^@) 0)E-SD0)E[MD9BEL[D*)D1[D( ^@)TM )@@G@@^@)^@)^@)^@)^@)^@)CTK^@7 *8AC)^@)^@)@P@M@LE-G^-KDD^^@)^@)^@)^@)^[ EDPC0)TN )@@G@@^@)^@0A8? -CAK)^@)^@)^@)^@)^@) 0)E[DC))^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)TO )@@G@@^@)^@)CTK^@7 *8AC)^@)^@)@P@M@LE-G^-#DDH^@)^@)^@)^@)^[ EDP^@)^@)^@4^@)^@)TP )@@G@@^@)^@)^@)^@)^@)^@) 0)DDIE[PE))CTDC))^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)CTK^@7TQ )@@G@@ *8AC)^@)^@)@P@M@LE-G^-#D9H^@)^@)^@)^@)^[ EDP^@)^@)^@5^@)^@)^@)^@)^@)^@)TR )@@G@@^@)^@) 0)D9PE-KE(O^[#DD^^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)CTK^@7 *8AC)^@)^@)TS )@@G@@@P@M@L 0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)TT )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)CTK^@7 *8AC)^@)^@)@P@M@L 0)C1GTU )@@G@@CDBCLJF@)ET E-ODDIC9N^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)TV )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)CTK^@7 *8AC)^@)^@)@P@M@L 0)^@)^@)^@)^@)^@)TW )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)TX )@@G@@^@)^@)^@)^@)^@)^@)CTK^@7 *8AC)^@)^@)@P@M@LC(MEL E[JELO^@)^@)^@)^[ EDP^@)TY )@@G@@^@)^@1 K\AC3^@)^@)^@)^@)^@)^@) 0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)TZ )@@G@@^@)^@)CTK^@7 *8AC)^@)^@)@P@M@L *6A@?A00^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)UA )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@% K)E- D(KUB )@@G@@^@% K)^@)^@)@O@M@LC(MELOF[I^@)^@)^@)^@)^[ EDP^@)^@)^@$ETTET ELM^8)^@)^@)UC )@@G@@^@)^@) 0) [MC(NE-JEL C)(^@)^@)^@)^@)^@)^@)^@)^@)^@)^[#E@)A8!B@1^@)@#@M@LUD )@@G@@ LADDGC(KELO 89A@)@#@M@L LAE(ODDG 81A*0^@)@ @M@L LQC(METDD9I 9NC(ME[ME-OUE )@@G@@E(P^@)_@@@@@^@6A)$^@,^@)^@)^@)^@)^@)^@)^@)^@)^@)CTK^@7 *8AC)^@)^@)@P@M@LUF )@@G@@^@)^@)^@)^@)^@)DD^^-DD9O^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)^@)^@)^@)UG )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)CTK^@7 *8AC)^@)^@)@P@M@L^@)^@)^@)^@)UH )@@G@@^@)^-BD8)^@)^@)^@)FK)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)^@)^@)^@)^@)^@)^@)^@)UI )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)CTK^@7 *8AC)^@)^@)@P@M@L^@)^@)^@)^@)^@)^- D1^C0)UJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)UK )@@G@@^@)^@)^@)^@)CTK^@7 *8AC)^@)^@)@P@M@L^@)^@)^@)^@)^@) TK @1 )2 C% 89 TK @1UL )@@G@@^@)^@)^@)^@)^@)^@) 0)E-SD0)E[MD9BEL[D*)D1[D( ^@)^@)^@)^@)^@)^@)^@)CTK^@7UM )@@G@@ *8AC)^@)^@)@P@M@LE-G^-KDD^^@)^@)^@)^@)^[ EDPC0)^@)^@0A8? -CAK)^@)^@)^@)UN )@@G@@^@)^@) 0)E[DC))^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)CTK^@7 *8AC)^@)^@)UO )@@G@@@P@M@LE-G^-#DDH^@)^@)^@)^@)^[ EDP^@)^@)^@4^@)^@)^@)^@)^@)^@)^@)^@) 0)DDIUP )@@G@@E[PE))CTDC))^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)CTK^@7 *8AC)^@)^@)@P@M@LE-G^-#UQ )@@G@@D9H^@)^@)^@)^@)^[ EDP^@)^@)^@5^@)^@)^@)^@)^@)^@)^@)^@) 0)D9PE-KE(O^[#DD^UR )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)CTK^@7 *8AC)^@)^@)@P@M@L 0)^@)^@)^@)^@)^@)US )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)UT )@@G@@^@)^@)^@)^@)^@)^@)CTK^@7 *8AC)^@)^@)@P@M@L 0)C1GCDBCLJF@)ET E-ODDIC9N^@)UU )@@^@@^@)^@)^@)^@)^@)^@)^@)^@) UV @EOF @COPY,IO TEMP.1047-001-001,1047-001-001. @FREE TEMP.