~B010L~BE32~.001001~B010 ~G39 ~ ~M~,087I59~U%U2R~BG35G~U%U3R~BG61~L%U1101R~E99~LI59000~BG61~L%U2101W~E91~)000~BE54~U%U2M~HE68F56~DF59E83~ME31E58~ME31E80~,199~/E30~HF39~VF361991~BE54~U%U3M~U%U3M~U%U2R~U%U3R~U%U1R~N002~.~BF81~U%U2M~HE68G06~BF18~U%U2M~U%U2M~U%U1R~U%U2R~N003~.~BG26~BG61~L%U2001W~G50~HE68F90~BE54~H089~M0 7H22~YG72H82~MH82H67~BH01H22W~MH82114~M0/0I55~MI57I56~L%U2001W~HH30~D000~HE75~HE94~N000~N000~BH68H22W~BI52K~BH15114 ~BH83L~BI52K~B0/1~ ~DH18H93~U%U0B~VI14I56K~SI58I56~BH15~BI31H22W~N004~.~BH08~DH18I41~U%U0E~BI22K~BH15~BG50~9~9~1 ~,087092~,097100~H089I99~/0 0~H089~V0221001~L%U1!00R~B055L~B!00~.~B055~ ~/099~,087092~,097~1~BJ45?~K1~C012E42~BM32S~C010D61~B!55/~,E35~BJ02~C014D70~BM32S~C020E47~BJ02S~ME14285~2~B!86 ~F1~.!15~B!15~ME48E34~SE49E34~L%U1335R~H099~BJ53L~BK36E34?~BJ09~.!15~B!15~ME52J31~?E53094~U%U1B~AE49E34~BJ91094I~BJ09~/299~ME33275~2~BK02 ~ME56J31~F1~.J02~BJ02~ME59/58~)E35~VK25E351~,T00001~U%U5R~U%U6R~U%U4R~BK75G~BK80~U%U3R~,/99~ME62094~C010E67~BL15S~C010D61~B!79/~U%U4M~U%U4B~M574445~M574475~M574480~M575662~M575701~M575692~M575576~M574~M576~YL15815~/000~HR86~LR86S42~BQ55R86I~BR89R86R~BA18R86Z~BB75~ME68E34~SE49E34~L%U1100R~H099~BJ53L~BM75E34?~BM39~YM75694~,587072~,001040~,047054~,061068~U%U1R~U%U2R~BO69~L%U1 00R~N46~MQ54N45~, 60~BO69~L%U2 00W~N60~MQ54N74~ME69 60~,F77~BO69~L%U2!00W~N93~BO69~M%U1F57R~O08~LE69I99~/000~LE70~BO36I99$~B114~ME73860~C014D70~B114/~MD56286~2~F1~.O65~H089~M0 7P23~ME76P55~,P53~A0 6P55~)P53~M0/0Q50~ME77Q51~L%U2!00W~HP31~D 61~QQ54~BP69P23W~BQ47K~BP16!12}~B~B~B~B~B~B~B~B~B~B~B~B~BP83L~BQ47K~B0/1~DP19P93~U%U0B~VQ14Q51K~SE49Q51~BP16~BQ26P23W~.P09~DP19Q36~U%U0E~BQ22K~BP16~BN93~9~ 60~,!0?~/I9I~HQ62~VQ59!0?1~MR88I9H~MR88F9G~,I9HF9G~ME80394~ME83564~ME86448~ME83466~ME80567~ME89570~ME89628~ME92665~ME95573~,F9HC9G~ME98089~LF01188~BB43~ ~ }~,!0!~/I9R~HR96~VR93!0!1~MR88I9Q~MR88F9P~,I9QF9P~MF04394~MF07564~MF10448~MF07466~MF04567~MF13570~MF13628~MF16665~MF19573~,F9QC9P~MF22089~LF25188~BB43~,!0 ~/I9Z~HA25~VA22!0 1~MR88H1X~MR88I9Y~,I9YH1X~MF28394~MF31564~MF34448~MF31466~MF28567~MF37570~MF37628~MF40665~MF43573~,H1YF3X~MF46089~LF49188~MF50423~MF50614~MF50739~MF50 22~B 36~,H00~/I99~HB82~VB79H001~C010D61~BC60S~MR88H98~MR88I98~,I98H98~,G99H99~MF53089~LF56188~MF56 88~B 36~MD15286~2~F1~.C70~PRESCAN RUN CANNOT BE MADE ON A 4K MACHINE~PRESCAN CANNOT BE UPDATED ON A 4K MACHINE~DIAG ~DIAGALTER~NO CONTROL CARD RELOAD CARDS AND PRESS START~CAN NOT READ UNIT 1~? ~SYSTEMS~RUN ~4~1~J67~0~J53~X01~T00~COBOL~2~ ~$~I99~012~9~G0?~I9G~F9H~F9F~C9G~C9I~C5?~I0?~G0!~I9P~F9Q~F9O~C9P~C9R~C5!~I0!~H2 ~I9X~H1Y~H1W~F3X~F3Z~F0 ~I0 ~#~G90~I00~ ~ ~PUP~100~100~I99~100 ~H299114~M577363~1~K1~C020964~B152S~C020969~B531S~H071115~B040~C008574~)319~B219S~V5239591~)959~,319~B588~L%U1569R~781~C008574~B219S~B447~B184~B262021H~B300021I~B376021A~B376021P~H815937~B807~,959~1~K1~M018586~M~M~M~M~M~B588~L%U2569W~781~B114~H522320~V4669591~B447~N~)959~B846~H299100~H127346~B266~H127152~B588~L%U2100W~781~B846~B152~,958~B395021A~M577476~H522414~V4669591~B447~)958959~B846021A~M972476~H127346~B100~H522~B588~L%U2569W~781~B588~L%U1 00R~781~M780491~,000~V5199581~B588~L%U2 00W~781~B846~B000~H522~B466~M975008~M553223~B124~B554 ~B447~H815957~B807~ ~ ~ ~ ~ ~ }~H089~M0 7661~M978693~,691~A0 6693~M693653~)691~M979777~M0/0~B654661W~M694000~M%U0000R~H669~D000~Q780~B695661W~B773K~B654000 ~B709L~B773K~B0/1~D657719~U%U0B~V740777K~S980777~B654~B752661W~.628~D657762~U%U0E~B748K~B654~B000~0~000~B800661R~H815901~B807~H815916~/332~/~M000275~2~F1~U%U2M~U%U1R~U%U2R~N040~.~B837~H880~, 00~H089I9Z~/0 0~H089~V861 001~B880~END OF TAPE ON UNIT 2~PHASE NOT FOUND~INCORRECT UPDATE CARD~NEW SYSTEM ON UNIT 2 ~UPDAT~END ~ 00~T/P~013~9~1 ~ ~CBL~335~335~G97~335 ~H089~B577~H089~B717~H089~B954~B/28~H089~H4370 3~M0 2384~M387935~M935I01~C935561~B547S~C394564~B438S~,392~A558394~)392~B000~B343~M%U1H99W~891~M567394~?555I97~N~B434~U%U1M~U%U1R~,468~M574445~M574475~M574480~M575662~M575701~M575692~M575576~M574~M576~B434~)468~B438~0~003~.EB~I97~I01~H97~H01~6~5~0~H6540 6~M0 2638~M0 5713~C628570~B655S~,626~A558628~)626~MH97935~M935638~C935561~B698S~B000~B343~M%U1G99R~681~M573628~B625~M947303~2~U%U1U~.655~U%U1R~M570628~B713~ ~M0 7782~B764782W~L938814~A0 6814~M814759~M815759~)812~M939932~M0/0~M%U0000R~H790~D000~Q935~B816782W~B928K~B775000 ~B830L~B928K~B0/1~D778840~U%U0B~V861932K~S940932~B775~B896782W~/332~/~M944275~D778275~2~F1~.764~N~D778906~U%U0E~B917K~B775~MS45877~B869~B000~0~000~012~9~1~TE 0~EOR~EOF T0~M099/71~M~M~M0 2/58~MS46 89~B343~L%U1/81R~S00~,/99~BS09~ ~ ~M/89/03~M/98094~AS49094~M/95089~,0!0~C010S54~B 66/~MS46 82~MS57561~/0 0~H089~V 660!01~LS42D5T~B970~B343~L%U1/04R~S00~M/71099~M~M~M/92/27~B/27~M/58331~M/75/58~M099/71~M~M~B970~0~A01~00000~00000~000~2~DMP~0~Y~000~ ~ ~ ~ ~ ~ }~U%U1R~B970~C/58/86~B 08S~B343~M%U1/81R~S00~B970~ ~953~N~100~COBOL~.EP ~ ~A01~T00~T00~G98~T00 ~,001073~,Z15~FJ~F1~/332~/~BX70~MY82269~C080Z32~BT61/~MZ33V32~MZ33X25~BT76~3~K1~BU47~2~LZ15F81~B343~M%U2F01R~U07~CF35035~BT76/~BU47~NU27~MZ33U07~U%U2R~BT76~/332~/~MZ54230~2~F1~.~BU42~FK~/299~BW95G~BU69~F1~/306~/~MY96306~MZ06229~MZ14218~2~FJ~/306~/~BX18~BU62@~M080300~MZ55292~M072~ZZ21216~NV65~BX33A~3~K1~C013Y45~BW09/~/306~/~BX33~2~LZ15081~B343~M%U2001R~W00~C013Y45~BW09/~/332~/~BX33~AZ56Z21~LZ15081~B343~M%U5001W~W38~BV02~NW69~C016Z30~BV02/~MZ33W42~BV02~LZ15081~B343~M%U3001W~W91~BV02~U%U3R~MZ57W38~MZ57X33~BU69~MZ57U98~NV66~BW09~BX47~U%U3M~U%U3R~U%U5M~U%U5R~2~)073~F3511~A02~VX98188B~VY05188K~VY12188S~BY19~AZ58Y31~AZ58Y31~AZ58Y31~MY32298~BT24~ 4K~END OF SOURCE~TAPE COBOL COMPILATION VER 2 MOD 11~IDENTIFICATION~CARD-IMAGE~SEQUENCE}~000000~PROCEDURE~%)~B~PROGRAM NOT ON TAPE 2~*~A~N~4 ~ ~A02~T00~T79~G98~T00 ~ ~000000~C1510 0~B954S~M0 2153~B954152M~B954151T~B150B~B159D~B954~NA01~.~B141~M172/58~B970~T/P~ML40081~ML11358~LT78172~L~L~L~L~L~L~L~L~L~L~L~L~L~B!74~C021X00~BU40S~BK47~X25~BU44~B!74~C017X10~BU67S~BK47~X26~BW21~B363~X13~ML14099~ML17094~BZ01~BU880?0.~BU880?0 ~BV820?0@~C0?0L18~BV59U~BY69~AL19094~C094L22~BV59S~BZ01~BV16~BV280?0-~B363~X13~BW17~BY69~BZ01~BV590?0@~AL19094~C094L22~BV59T~BV78~B!74~C018X24~BW17/~CX33L05~BW73S~B363~L25~B363~X27~B363~X30~B363~X33~B351~A0B~B351~BD6~IDENTIFICATION~PROGRAM-ID~.JB~ENVIRONMENT~000000000~0~ @~.PD~ ~ ~HY97~D0?0Z00~Y0?0Z00~B363~Z00~BY97~ ~HZ55~C099K17~BZ56S~AL19099~C099K17~BZ56S~BZ52!731~BZ760?0 ~BZ55~B!50!731~B!74~BZ980?0-~BK24~SL19099~YL26099~BZ52~BK24~BZ52!730~BZ170?0@~BK47~X32~B363~X37~B363~X40~ML27!73~BZ76~C099L30~BZ64S~ML30K17~BZ52~0~HK14~,081~B343~M%U5001R~W80~C006K23~BJ28T~CK23X46~BJ28S~BJ28~X33~AL19T06~ML31X34~ML30099~M006K23~SL19099~YL26099~C099L34~B!78U~BJ560?0 ~AL19099~M099K17~ML37099~BK14~ ~ ~HK46~AL19099~BK280?0 ~BK46~HL08~AL38L08~ML08K68~MK71K78~ML39K78~AL19L08~ML08K96~BK96~000000000~ ~101~018~000~A~A~120~.DG~ ~0~073~B~008~007~B~1 ~ ~A0B~F13~F13~G98~F13 ~MG95T00~,T00~)/99~B343~L%U4977W~F43~U%U4R~)T00~LT06982~B343~M%U1983R~F74~, 77~/D59~HF81~VF78 771~) 03~BG75 ~B343~L%U1983R~G90~B983~ ~ ~A03~983~983~G98~983 ~ME65081~U%U5B~SF80982~YF81982~B?63~BX69~C094F84~B 13/~CW!0X41~B 13/~BX69~C094F87~B 41/~CW!0X35~B/20S~CW!0X50~B 41/~MF88Y04~BQ71~B 880?0 ~B 880?0I~B 880?0S~B 41~MF89E76~BX69~C094F84~B/20/~CW!0V97~BU68S~CW!0X56~B/20/~BX69~CW!0X65~B/90S~BB56~E68~B363~X68~MF90X23~BS18~.MC~B363~S10~B343~M%U5001R~E77~AF80982~MF93099~BB13~C0?5X56~BT75S~AF80099~C099F96~BU34S~BS940?0E~BS63~C0?5X56~BS63/~M099T34~,T32~AF99T34~)T32~BT40000 ~BS63~D0?00?0~H099~C0?0G00~BS63T~C0?6G00~BS63T~B363~X68~MF89X23~U%U5B~SF80982~YF81982~MB06099~MG01X73~BX69~BX69~B/20~MG04099~AF80099~C099F96~BS11S~BQ39~BU41~MF90E76~BV35L241~BQ71~BV100?0.~BQ39~BU83~MG07V34~B363~W00~MG10F23~MG01X73~B/20~MF89L24~MG13F23~BQ71~C099G16~BV73S~BQ39~BV49~BV490?0 ~MF93099~BV10~NOTE ~*24~ ~0~.EP~PROCEDURE~DATA ~PICTURE ~ENTER ~AUTOCODER~#DC~HK82~NK83~BQ71~MG19094~NP46~C099G16~BN19S~NN63~C0?0G20~BY36U~C0?0G21~BL25T~BJ61~BX730?0 ~B!570?0@~BO770?0&~BO770?0-~B!490?0#~BZ350?0.~B!490?0%~B!490?0)~B!490?0/~B!090?0*~BX730?0,~BB56~E69~BX73~MF90E75~BQ71~MF89E75~C0?0G21~BZ76T~B363~O76~BX81~D0?00?0~H099~MG22W!0~BM37~B363~O76~BE93~BQ71~B!320?0*~B363~!45~BX81~B363~!48~BX73~ *~ **~BQ39~BX73~MF90?62~B363~J60~BQ71~BJ470?0@~C094G25~BJ10T~BQ39~AF80094~B!71~BB56~E70~B363~J60~B?63~BJ24008 ~MF89?62~BX73~B363~J60~BJ36~ @~C094G25~BK14T~D0?0W!0~Y0?0W!0~BQ71~C0?0G20~BK52U~AF80094~BJ61~BB56~E71~MG25094~BQ71~C0?0G00~BK28T~BC85~BX81~BK030?0-~MF88X73~BC85~NK94~NN41~BK82~MG01X73~BX81~MG01K71~CW!0V97~BK79/~MF90L24~BK79~0~C094G25~BM03T~D0?0W!0~Y0?0W!0~BQ71~C0?0G21~BM37T~BM480?0.~BK030?0-~C0?0G00~BK03T~BC18~BX81~BB56~E72~BQ71~C0?0G00~BM10T~MG25094~BL95~AF80094~BL25~MF90N37~BQ71~MF89N37~C0?0G21~BN01T~BC18~B363~O76~BF05N371~BX81~AF80094~MG22W!0~BM37~B363~N40~MF88K75~BY04~0~.C8~HN62~MG01K75~MF88K71~BN62~B363~O73~BN980?0.~BO240?0 ~BQ39~BQ71~BN70~BQ71~BO600?0 ~B363~O23~BN70~ .~B363~O73~BO49~B363~O76~MF88O31~MG01Y04~BX81~MG01O31~BO24~.PC~.PD~M0?0P45~BQ71~BP160?0 ~C0?0G21~BL25T~BL250?0.~D0?00?0~H099~MP450?0~MF81P45~B!49~ ~HQ32~CE74C14~BQ01S~B363~Q35~B363~E68~B363~E71~B363~E74~SE74~YF81E74~B363~Q38~B363~979~B363~982~MG01X88~BQ32~.DG~.CD~HQ67~D0?0Q70~Y0?0Q70~B363~Q70~BQ67~ ~HR25~C099B06~BR26S~AF80099~C099B06~BR26S~BR22?621~BR460?0 ~BR25~B?39?621~B?63~BR680?0-~BB13~SF80099~YF81099~BR22~BB13~C099G16~BR91/~YF80E74~BR22?620~BQ870?0@~BB56~E73~B363~J60~B363~O76~MF89?62~BR46~C099F96~BR34S~MF96B06~BR22~0~HB03~,081~B343~M%U5001R~E77~C006B12~BA17T~CB12E64~BA17S~BB56~E74~AF80982~MF88X88~MF96099~M006B12~SF80099~YF81099~C099G16~B?67U~BA450?0 ~AF80099~M099B06~MF93099~BB03~ ~ ~HB55~AF80099~BB44X230~C099F96~BU34S~BB170?0 ~BB55~HC17~AG26C17~MC17B77~MB80B87~MF90B87~AF80C17~MC17C05~BC05~000000000~ ~HC84~B363~D13~BC58P45 ~MP45Q70~B363~Q70~MF81P45~BD17~B363~D13~BC81K75N~BN41~BC84~HD10~B363~D16~BD17~B363~D16~BD10~.NL~.NM~HD76~M094E52~MG29094~C094E52~BD77T~MW!0E55~B363~E55~C094E52~BE39/~BD76~M094E58~ME52094~AF80094~C094E58~BE21T~MF81W!0~BD91~ME58094~ME58E52~BD47~AG30094~BD35~ ~ ~ ~ }~000000000~0~0~BM78N371~BZ98E751~CE74C14~BF69/~BF20E760~B363~O76~B363~X26~U%U5R~B343~L%U4977R~F47~U%U4R~U%U4M~U%U4B~B351~A04~MG33Q04~BP46~A~ ~006~009~B~0~1~007~073~I9I~?~N~005~F05~363~V03~008~001~A~Z~.~120~B~003~C~F05 ~ ~A04~T00~T00~G98~T00 ~BT42~HT41~B343~M%U1001R~T23~B343~L%U1Q00R~T38~BT41~LP71190~BT04~B335~Z51~Z19~CZ51Z54~BX19S~CZ51Z57~BW13S~CZ51P74~BW13S~BW13Z51@~CZ51Z63~BV05S~CZ51Z66~BU61S~B363~Z51~CZ51P77~BT53/~MP78Z48~BW28~B335~K60~Z19~B335~K63~Z19~B335~K66~Z19~BZ85~B335~Z51~Z19~B363~Z51~B335~W04~Z19~B335~W07~Z19~B363~W04~B363~W07~B335~Z51~Z19~CZ51W10~BV91/~BV80W11P~BT53~MP78W12~BT53~MP71W12~BT63~ ~ ~.C8~E~0~BX05W121~B363~Z51~MZ51Z69~B335~Z51~Z19~CZ51Z69~BW68S~B363~Z51~BW35~BW94W120~MP71W12~B363~X18~BT53~B363~Z69~BT53~B363~X18~BW28~.LB~BK98~BY13W11P~BX78W11D~CLH5P82~BY13/~C099P85~BY13/~MP86W11~BT04~BY13~CLH5Z78~BY13/~C099P89~BY13/~MP90W11~BT04~BO39~CP70Z81~BZ11S~BY88W120~MP71W12~CP70P93~BY63/~MZ81P70~B363~X18~B363~P70~B363~X18~BT53~CP70P93~BT53S~B363~P70~BT53~BN08~BT53~B363~Z51~BZ41Z481~B351~BD1~B351~A20~0~ ~.NM~.NL~ @~.CD~.DG~ ~PROCEDURE~.NF~ ~H!93~MP78190~YK66K67~YP94K66~B!94K67&~BJ09K661~BJ24K651~BJ39K641~BJ54K631~BJ69K621~BJ84K611~BJ99K601~BK14K591~BK29K581~B!93~HK57~MK97Z84~BK40~HK57~MK70Z84~BK40~HK57~MK73Z84~BK40~HK57~MK76Z84~BK40~HK57~MK79Z84~BK40~HK57~MK82Z84~BK40~HK57~MK85Z84~BK40~HK57~MK88Z84~BK40~HK57~MK91Z84~BK40~HK57~MK94Z84~B363~Z66~B363~Z84~BK57~ ~ ~A01~A0B~A0C~A0D~A0E~A0F~A0G~A0H~A0I~A1?~HL67~MP93099~B335~Z51~Z19~CZ51Z54~BL49S~AP95099~MZ51LH5~BL09~M099O35~BL68LH5 ~BL67~SP96099~YP94099~BL56~ ~HO32~BN31W121~MZ54Z84~BN45~MX18Z84~MP71W12~B363~Z84~C099O35~BN82S~AP96099~MP94LH5~BN52~MP93099~AP95099~MLH5O38~B363~O38~C099O35~BN89/~B363~Z84~BO32~ ~ ~C099P99~BO95S~MQ02094~C0990!0~HP09~BO95T~BP06S~M0!00!0~M~H094~BO58~MZ81P70~BY17~MP12094~CLH50!0~BO95U~BP46S~M0!00!0~M~H094~BP13~M0!00!0~HP60~MP63P70~BY17~000~0~.PC~#DC~1~DATA~004~D~009~P~000~ ~C~A~001 ~ ~A05~Q00~Q00~G98~Q00 ~Q95~001~D26~002~D06~003~D00~004~C65~005~C49~006~B86~007~B26~008~A71~009~?99~010~?60~011~?46~012~?16~013~R84~014~R67~015~R31~016~ ~*99~NO-PRINT-STORAGE~*98~SOURCE-COMPUTER~*97~OBJECT-COMPUTER~*92~OBJECT-PROGRAM~*95~SPECIAL-NAMES~*94~CONFIGURATION~*93~INPUT-OUTPUT~*96~FILE-CONTROL~*91~ENVIRONMENT~*90~NO-RELEASE~*72~NO-OVERLAP~000~CHARACTERS~*85~1403-P-C9~*87~1403-P-CV~*86~1403-P-CB~000~CHARACTER~000~ALTERNATE~*74~ADDRESSES~*79~PRIORITY~000~OPTIONAL~000~MULTIPLE~*84~IBM-1401~*06~DIVISION~*82~1403-CT~*81~1401-SS~*08~THROUGH~*09~SECTION~*70~RESERVE~*74~ADDRESS~*83~1403-P~*80~1402-R~*88~1402-P~000~STATUS~*77~SELECT~*76~MEMORY~*75~ASSIGN~*89~TAPES~000~AREAS~*08~THRU~*89~TAPE~000~SIZE~000~FILE~000~AREA~*71~OFF~000~TO~*31~ON~*33~NO~000~IS ~ ~A06~Q00~Q00~G98~Q00 ~R01~001~G45~002~G05~003~F81~004~F04~005~D68~006~C60~007~B70~008~B04~009~A32~010~?80~011~?66~012~?51~013~?19~014~?02~015~R66~018~R45~020~ ~/30~REEL-SEQUENCE-NUMBER~/31~FILE-SERIAL-NUMBER~/01~WORKING-STORAGE~/02~RETENTION-CYCLE~/25~IDENTIFICATION~/32~CREATION-DATE~000~COMPUTATIONAL~/03~ALPHANUMERIC~$01~HIGH-VALUES~$02~LOW-VALUES~$01~HIGH-VALUE~000~CHARACTERS~$10~ALPHABETIC~/05~REDEFINES~/06~RECORDING~$02~LOW-VALUE~/07~JUSTIFIED~*03~DEPENDING~000~CHARACTER~/04~SUPPRESS~/08~STANDARD~000~LOCATION~*06~DIVISION~000~CONTAINS~/09~CONSTANT~*08~THROUGH~*09~SECTION~/11~RECORDS~000~PROTECT~)12~PICTURE~*14~OMITTED~$16~NUMERIC~/12~LEAVING~000~DISPLAY~$08~ZEROES~/13~VALUES~$02~SPACES~000~SIGNED~/11~RECORD~$09~QUOTES~000~PLACES~/14~OCCURS~/23~FILLER~000~DOLLAR~000~DIGITS~/16~BLOCKS~$08~ZEROS~/13~VALUE~000~USAGE~000~TIMES~$02~SPACE~/17~RIGHT~$09~QUOTE~/18~POINT~000~PLACE~000~LINES~/19~LABEL~/20~FLOAT~000~DIGIT~000~CLASS~/21~CHECK~/16~BLOCK~/22~BLANK~$08~ZERO~000~WHEN~*08~THRU~/10~SIZE~000~SIGN~000~MODE~000~LINE~/15~LEFT~*28~FROM~*29~FILE~/24~DATA~000~FOR~000~ARE~000~AND~$40~ALL~000~TO~000~ON~*32~OF~000~IS~*32~IN~/25~ID~/26~FD~/03~AN ~ ~A07~Q00~Q00~G98~Q00 ~Q65~001~G21~002~F66~003~F30~004~D76~005~C40~006~B41~007~?91~008~?14~009~R30~010~Q91~011~ ~$01~HIGH-VALUES~$02~LOW-VALUES~$01~HIGH-VALUE~$10~ALPHABETIC~*40~REPLACING~*01~PROCEDURE~*02~OTHERWISE~$02~LOW-VALUE~*03~DEPENDING~000~AUTOCODER~000~ADVANCING~*39~TALLYING~)01~SUBTRACT~000~SENTENCE~$12~POSITIVE~$14~NEGATIVE~)02~MULTIPLY~*06~DIVISION~*07~VARYING~*08~THROUGH~*09~SECTION~*10~ROUNDED~/11~RECORDS~*11~PROCEED~)03~PERFORM~$16~NUMERIC~*37~LEADING~$20~GREATER~000~FILLING~$20~EXCEEDS~)30~EXAMINE~)04~DISPLAY~)05~COMPUTE~$08~ZEROES~$02~SPACES~*13~REWIND~/11~RECORD~$09~QUOTES~*15~OUTPUT~*16~GIVING~ #~EQUALS~)06~DIVIDE~*17~BEFORE~)07~ACCEPT~$08~ZEROS~)08~WRITE~*18~UNTIL~ *~TIMES~A05~TALLY~$02~SPACE~$09~QUOTE~000~LINES~*20~INPUT~*38~FIRST~000~ERROR~ #~EQUAL~000~ENTER~000~COBOL~)09~CLOSE~)10~ALTER~*22~AFTER~$08~ZERO~000~WITH~*23~UPON~ *~TIME~*08~THRU~000~THEN~000~THAN~)11~STOP~/10~SIZE~)13~READ~)14~OPEN~*24~NOTE~*25~NEXT~)15~MOVE~*26~LOCK~000~LINE~$21~LESS~*27~INTO~*28~FROM~*29~FILE~)16~EXIT~*02~ELSE~*30~RUN~$30~NOT~)17~END~$32~AND~$40~ALL~)18~ADD~000~TO~$31~OR~000~ON~*32~OF~*33~NO~000~IS~*32~IN~)19~IF~)20~GO~*35~BY~000~AT ~ ~A20~T00~T00~G98~T00 ~BV25~T86~BU57~T89~BU42~AZ93T83~B363~T86~B363~T83~BV25~T83~BU24~CT92T89~BT73S~BV25~T92~BT46~BU42~BT07~000~.AC~#DC~ ~BU42~BV25~U20~BV25~U23~B351~BD1~.DE~.EB~HU41~B335~T92~T93~BU41~HU56~B363~T92~BU56~H089~MZ94V24~M089V23~M0 2U89~BU24~CU92T92~BV10S~BU42V24P~BU82~MV23089~B0 3~ ~ ~H089~HV990 3~M0 2V46~M000W91~MW91W94~CW91Z97~BW00S~CV56!00~BW00S~,V54~A!03V56~)V54~B000~,W76~B343~M%U4W75R~W23~BW00~U%U4B~,Z92~B343~M%U4W92W~W47~U%U4M~U%U4B~M!06V56~?!07Z91~BV96~ } ~ ~ }~A~P~.EB~Z91~003~W94~0 ~ ~BD1~T00~T00~G98~T00 ~BO10~CQ18Q24~BT00/~, 06~BM15~CQ18Q27~BM88/~BO10~CQ18Q30~BM99/~BM15~CQ18Q33~BN10/~BM15~CQ18Q36~BN21/~BO10~CQ18Q30~BM99/~BM15~CQ18Q39~BN54/~BO10~CQ18Q30~BM99/~BM15~CQ18Q42~BN32/~BM15~MQ18Q15~CQ18Q45~BL91S~CQ18Q48~BU48S~CQ18Q51~BU48S~CQ18Q54~BN65/~BO10~CQ18Q30~BM99/~BM15~CQ18Q42~BN32/~BM15~MQ18Q15~CQ18Q45~BW26S~CQ18Q57~BX14S~CQ18Q60~BV39S~CQ18Q51~BV39S~CQ18Q63~BX50S~CQ18Q66~B!85S~BN65~BM15~CQ18Q69~BX06S~CQ18Q72~BP85/~BM15~CQ18Q69~BP85/~BK00~BM15~CQ18Q75~BP85/~BM15~CQ18Q69~BP85/~BK00~BV39~BM15~CQ18Q78~BP85/~BM15~CQ18Q81~BP85/~BV39~BO10~CQ18Q30~BM99/~BM15~MQ18Q15~CQ18Q84~BY89S~CQ18Q87~BY89S~CQ18Q90~BZ57S~CQ18Q93~BY89S~CQ18Q96~BZ81S~CQ18Q99~BZ81S~CQ18R02~BZ81S~CQ18R05~B!61S~CQ18R08~BR72 ~BW10~BM15~CQ18Q69~BZ17S~CQ18R08~BP85/~BK00~BM15~CQ18R08~BX70/~BK00~BX66~BK00~BM15~BX70~BM15~CQ18R08~BP85/~BK00~BX66~BM15~CQ18R11~B!09S~CQ18R14~BP85/~BM15~CQ18R08~BP85/~BK00~BM15~CQ18R11~B!09S~CQ18R14~B!09S~BX70~BM15~CQ18R08~BP85/~BK00~BZ81~BM15~CQ18Q36~BN21/~BO10~CQ18Q30~BM99/~BM15~CQ18R17~BN43/~BO10~CQ18Q30~BM99/~BM15~MQ18Q15~CQ18R20~BK31S~CQ18R23~BK71S~CQ18Q57~BK95S~BN65~HK30~MQ18Q21~BM15~CQ18Q21~BK11/~BK30~BM15~CQ18R26~BJ49S~BM15~CQ18R29~BP85/~BM15~BJ49~BM15~CQ18R08~BP85/~BK00~BJ49~BM15~CQ18Q81~BL51S~CQ18Q84~BL71S~CQ18Q87~BL71S~CQ18Q90~BJ49S~BP85~BM15~CQ18Q69~BP85/~BK00~BM15~CQ18Q69~BL67S~BJ53~BM15~CQ18Q69~BP85/~BK00~BU48~HM87~B335~Q18~P96~B363~Q18~CQ18R32~BN76S~CQ18R35~BP55S~CQ18R38~BO02S~CQ18Q30~BM19S~BM87~MR41Q15~BO35~MR44Q15~BO35~MR47Q15~BO35~MR50Q15~BO35~MR53Q15~BO35~MR56Q15~BO35~MR59Q15~BO35~MR62Q15~BO35~BO10~MQ18Q09~BO10~MQ18Q12~BM19~BO10~BM19~HO34~B335~Q18~P96~B363~Q18~BO34~B363~R65~B363~Q09~B363~Q12~B363~Q15~CQ18Q39~BU16S~CQ18Q54~BV07S~CQ18Q63~BX50S~CQ18Q66~B!85S~CQ18R17~BJ33S~CQ18Q57~BK95S~CQ18R23~BK71S~BM15~BO63~BM15~CQ18R68~BP96S~MQ18199~B351~BD2~B363~R71~BO42~, 04~B351~BD6~ ~ ~ ~ ~*91~*06~.PD~*94~*09~*98~*84~*76~*90~*99~*97~*75~*72~*95~*93~.NL~*74~*08~*92~*89~*80~*88~*83~*82~*86~*85~*87~*81~.NM~*31~*71~*96~*70~*77~*33~1 ~.CD~/24~.DG~B2I~B2G~B2A~B2H~B2C~B2E~B2B~B2D~.DM~/11~.ZD~BZ45S~CQ18Q69~BZ45S~BW10 ~ ~BD2~T00~T00~G98~T00 ~C199E87~BD28/~B?40~CE83E90~BD39/~B?40~CE83E93~BX18S~CE83E96~BU26S~CE83E99~BD50/~BD65E611~AF00E61~B?40~CE83F03~BD76/~BP08~HO87V40~HW97~HX12~HP02~BV40~BD87E621~AF00E62~BT83~BP08~ME83E80~CE83F06~BY01S~CE83F09~BW59S~CE83F12~BJ90S~CE83F15~BK92S~CE83F18~BL27S~CE83F21~BM70S~CE83F24~BO25S~ME83E80~CE83F27~BE13S~CE83F30~BE13S~CE83F33~BE13S~CE83F36~BE13S~CE83F39~BE13S~CE83F42~BE13S~CE83F45~BE09S~CE83F48~BE13S~CE83F21~BL82S~BM97~B?40~AF00E57~B?40~CE83F51~B!82/~B?40~BP08~BU49E81/~CE83F42~BU49S~BZ44~B?40~CE83F03~BD76/~B!49E621~B!71E611~HP02U49~HX12~HO87~HW97~B?40~CE83E90~BD39/~B?40~CE83F06~BD98/~B?40~MF53E77~?F54E60~)E63~CE83F57~BE41~HY72Y73~B363~F60~B363~E72~B363~E75~B363~E80~BY72~B?40~MF61C70~VZ89E841~CE83E90~BA97S~B?40~BW94E81/~CE83F42~BW94S~CE83F64~BD21S~BY73~MF67E80~HY72Z04~CE83F70~BZ78/~BB57~BB57~B363~F73~BY48~)E84~B?40~CE83E96~BU26S~CE83F64~BD21S~CE83E93~BX18S~CE83E99~BT68S~BZ89~MF76E80~BZ51~, 05~B351~BD6~MF79E80~BZ51~MF82E80~BZ51~HY72~MF85E80~BJ79~HY72~MF88E80~BJ79~HY72~MF91E80~BJ79~HY72~MF94E80~BJ79~HY72~MF97E80~BJ79~HY72~MG00E80~MG01C70~BZ78~B?40~CE83G04~BY34/~AF00E58~BC78~BP08~CE83F15~BW94/~BP08~ME83E80~CE83F18~BL27S~CE83F24~BO25S~CE83F09~BW59S~CE83F15~BL03/~B?40~AF00E59~CE83G04~BY34/~BC78~BO76~BL03~B?40~AF00E56~CE83F15~BY34/~B?40~CE83G07~BW90S~CE83G10~BY34/~BW90~B?40~CE82G12~BW90S~CE83G15~BL82S~CE83G04~BM34S~CE83G18~BY34/~BC78~BO76~CE83G04~BM34S~CE83G21~BY34/~BL82~B?40~CE83G24~BL86/~AF00E60~B?40~CE83G27~BN81S~CE83G30~BN81S~CE83G33~BN81S~CE83G36~BO05S~CE83G39~BN81S~CE83G42~BP49S~CE83G45~BZ44/~B?40~CE83G04~BY34/~BC78~BU45~B?40~CE83G18~BN97S~BN85~B?40~AF00E55~CE83F15~BY34/~B?40~CE83F57~BY34/~BC78~BO76~BO52~HP07~BP08~BU49E81/~CE83F42~BU49S~BP07~HR08~B335~E83~!60~B363~E83~CE83G48~BP49/~BB57~BB57~CE83F70~BA49S~CE83G51~BP12S~CE83G54~BP12S~CE83G57~BP12S~CE83G60~BP12S~CE83G63~BP12S~CE83G66~BP12S~CE83G69~BP12S~CE83G42~BP12S~CE83E90~BR09S~CE83F64~BD21S~CE83E96~BD09S~CE83E99~BT68S~BR08~BB57~CE83G48~BR33/~BB57~BB57~CE83F70~B?97/~BA49~CE83G04~B?97/~BB57~CE83G72~BB82S~MG74E77~B?40~B?40~CE83F39~BP12S~CE83F57~BD98/~BC78~BB57~CE83F70~BA49S~BP29~H?96~B335~E83~!60~B363~E83~CE83G48~B?81/~BB57~BB57~CE83F70~BA49S~B?96~CE83F64~BQ69S~CE83E96~BQ69S~CE83F06~BQ69S~CE83E99~BZ44/~BQ69~HA96~M?96E69~B?40~ME83E72~B?40~ME83E75~B?40~ME69?96~BA96~BB57~CE83G48~BB21/~BB57~BB57~CE83F70~BY77/~BA49~CE83G04~BY77/~BB57~BR77~HB81~B335~E83~!60~B363~E83~BB81~VR77E631~,E63~CE77F53~BR77/~B!93E550~BJ08E560~CE57F00~BJ23T~CE58F00~BJ38T~CE59F00~BJ53T~CE60F00~BJ68T~NY73~BR77~HD08~ME83E66~B?40~CE83E66~BC89/~BD08~B!71E611~BT83~B351~BD3~MG77E80~BZ51~MG80E80~BZ51~MG83E80~,E84~BZ51~MG86E80~BZ51~MG89E80~BZ51~MG92E80~BZ51~MG95E80~BZ51~BP08~BP08~BW94E81/~CE83F42~BW94S~BE13~BY34/~BC78~BW90~ ~ ~ ~ ~ ~ ~ ~ ~ ~*06~.PD~*29~/01~/09~1~*09~/26~/06~/16~/11~/19~/13~/24~/10~/05~/14~/18~/23~)12~/07~/12~1 ~FD~?~.NM~.DZ~N~*01~B5O~.CD~.DM~B4A~B4B~B4C~B4D~B4E~B4F~B4G~B4H~B4I~B~.NL~/08~*14~$0~$40~ @~*08~*32~/32~/30~/31~/25~/02~$16~/15~.DG~/03~/22~$08~/04~/21~/20~$10~01 ~ ~B5Q~B5J~B5K~B5L~B5P~B5M~B5N ~ ~BD3~T00~T00~G98~T00 ~BQ31~CB73B89~BW51/~BQ31~CB73B92~BW62/~BL32~BT48B71)~BW73~MB73B67~MB93M88~MB93L65~MB93L60~MB96094~BY660!0$~M0!00!0~H094~C0!3B73~BT83/~AB97094~M094B55~BL32~BJ940!0X~BJ010!0N~BZ110!2,~BZ220!2.~B?430!0*~B?100!0R~BX060!0A~BZ840!20~B!410!21~BW160!23~CB86C00~BV96/~CB73C03~BV60/~BL32~CB73C00~BQ78/~BR56~BZ44~CB73C06~BV88S~CB73C09~BZ33S~BZ76~BZ44~BV72~BZ03~CB73C03~BQ78/~BV36~CB73C12~BW40S~CB73C15~BQ78/~AC16094~BU28~MC19B67~BW95~MC22B67~BW95~MC25B67~BW95~MC28B67~BW95~B363~C31~BQ85~BY140!21~CB72C33~BX62S~BX58B73@~CB73C00~BX58S~CB73C36~BQ78/~BR56~BL32~CB72C33~BX62S~BX58B73@~CB73C00~BX58S~CB73C36~BX58S~BJ41~CB72C33~BW40S~BY58B73@~CB73C00~BY58S~CB73C36~BQ78/~BR56~BW40~MC37L65~MC37M88~MC37L60~BL32~BT48B71)~BY87~HZ75~BZ52~MC40Z75~BZ52~MC43Z75~BZ52~MC46Z75~BZ48~HZ75~BL32~BT48B71)~CB73B92~BT32S~BZ75~BZ03~BQ78~CB73C49~BQ70S~CB73C52~B!25S~CB73C55~BZ76/~BZ33S~BL32~BJ52~BL32~B!08~CB73C58~B!65/~BL32~BJ52~BZ44~CB73C61~B!89S~CB73C64~BZ76/~BL32~BK77~BZ33~BJ600!21~CB73C00~BQ78/~BR56~BL32~CB73C00~BJ21S~AC16094~BU32~HJ93~BJ67~MC67J93~CB73C00~BQ78/~BR56~AC16094~BU28~BK850!21~MC70K76~BK17~HK76~CB73C00~BK41S~CB73C36~BQ78/~BR56~BL32~CB73C00~BK41S~CB73C36~BK41S~BJ41~HJ93~BK92~MC73J93~CB73C00~BJ79S~CB73C76~BJ83S~CB73C36~BQ78/~BJ79~HM96~B335~B73~Q56~B363~B73~CB73C79~BM97S~BN58B73%~CB73C82~BL36S~CB73C85~BR06S~CB73C88~BL36S~CB73C91~BQ11S~CB73C94~BO34S~CB73C97~BN50S~CB73D00~BP21S~CB73D03~BO79S~CB73D06~BL36S~CB73D09~BN12S~BM96~MC00B73~,B74~BM93~MM96B77~BL32~CB73C00~BQ78/~BR56~MB77M96~BL36~BQ31~BL36~CB67D12~BQ78S~CB67D15~BQ78S~MM96B80~BL32~MK76B83~BK13~MB83K76~CB73D18~BQ78/~MB80M96~BL36~MM96D21~BL32~CB73C36~BO68S~MD21M96~BL53~MD24B67~BW95~BQ31~MB73B58~BQ31~MB73B61~BQ31~CB73B92~BL36S~BL65~BQ31~BR99B71)~BR99B71*~CB73D00~BP21/~BQ31~CB73D27~BP53S~CB73B92~BW84/~MM96B64~BL32~MB64M96~BT48B71)~BW73~BQ31~CB73C91~BQ11/~BL36~HQ55~B335~B73~Q56~B363~B73~BQ55~B363~B73~B351~BD4~BL32~BZ96~B363~D30~B363~B58~B363~B61~B363~B67~BQ31~CB73D03~BR44/~BQ31~MB73B58~BQ31~MB73B61~BT48B71)~BR06~HR98~MB73B86~VR91B741~BQ31~CB73B86~BR75/~)B74~BR98~MD33B67~BW95~MB55B86~,0!1~A0!2B86~)0!1~MB86094~BU32~C0!2B73~BQ78/~AC16094~BU28~$~)07N01 ,*28N01 .~)20 ,X01 ,X0M*03N01 .~)10X01*11X01 ,R00~)06X01*27X01E0S~)18X01X0ME0S~)01X0M*28X01E0S~)04A0M ,*23N01 .~)15A01N0M .~)02X01*35X01E0S~)14E03N0M ,R00~)13N01 ,E00~)08N01 ,E01~ ~ ~ ~ ~*01~ ~ ~ ~ ~ ~*06~.PD~B~B52~4~.NM~*16~*10~/10~*20~*15~3~B0D~B0C~B0A~B0B~.DM~$0~.NL~N~J41~T48~T48~/11~*27~)17~*28~*22~*17~U28~J41~U28~$08~A05~*02~#DC~*25~*24~$40~.DG~.LB~.CD~$32~*32~)10~)14~ )~ ~B8E~*09~.DK~B9B ~ ~BD4~T00~T00~G98~T00 ~B!15~CK96K99~BT00/~B!15~MK96K80~CK96L02~BU51S~CK96L05~BU51S~CK96L08~BU51S~CK96L11~BU92S~CK96L14~BU77S~CK96L17~BW00S~CK96L20~BX27S~CK96L23~BU62S~CK96L26~BX59S~CK96L29~BW00S~BT16~MK96L32~BT16~B!15~CK96L35~BW11~B!15~CK96L38~BV71~B!15~CK96L41~BK46/~BK15~BY34~CK96L41~BW24/~BK15~B!15~CK96L44~BK46/~CL32L02~BK46/~B!15~CK96L38~BK46/~BK15~BY34~CK96L47~BV60S~BW24~B!15~CK96L41~BK46/~BK15~BY34~BT20K94/~CK96L23~BT20S~CK96L50~BW74S~B363~L53~ML56K80~BK53~BY34~CK96L41~BT16/~BK15~BY34~CK96L59~BW20S~CK96L38~BW16S~BT16~.~B!15~CK96L62~BW00S~CK96L65~BK46/~BW00~B!15~CK96L62~BW20S~CK96L65~BK46/~BW20~VY27K811~B363~L53~B363~K90~B363~K93~B363~L68~B351~BD5~H!14~B335~K96~X26~B363~K96~CK96L71~BX91S~CK96L74~BY87/~BJ62~BJ62~CK96L77~BJ00S~CK96L50~BK07S~)K81~CK96L80~BY38S~CK96L83~BY38S~CK96L86~BY38S~CK96L89~BY38S~CK96L92~BY38S~CK96L95~BY38S~CK96L98~BY38S~CK96M01~BY38S~B!14~H!99~B335~K96~X26~B363~K96~CK96L71~BX91S~CK96L74~B!68/~BJ62~BJ62~CK96L77~BJ00S~CK96L50~BJ99S~)K81~B!99~HJ61~BJ62~MK96K90~BJ62~MK96K93~BJ62~CK96L53~BJ58/~BJ62~BJ62~BJ62~BJ62~BJ61~HJ98~B335~K96~X26~B363~K96~CK96L71~BX91S~BJ98~,K81~B!96~,K81~BZ15~HK45~MK96K84~B!15~CK96K84~BK26/~BK45~B363~M04~B363~K90~B363~K93~B363~K80~BT16~ ~ ~ ~ ~ ~/24~*29~/01~/09~/10~/05~/14~/18~)12~/07~/12~ ~.PC~.NM~.NL~*03~*32~.PD~.DM~B5O~/23~/15~/17~B9A~*01~.DG~.CD~/03~/22~$08~/04~/21~/20~$10~$16~.DZ ~ ~BD5~T00~T00~G97~T00 ~BC16~BT16E42)~BT00~ME44E57~CE44E67~BZ67S~CE44E70~BT87S~CE44E73~BO49S~CE44E76~BR93S~CE44E79~B?57S~BT00~BY15~CE44E82~BU55S~BU99E44%~BU99E44&~BU99E44-~CE44E85~BU55S~CE44E88~BU63/~BX11~BD83~BU99~CE44E91~BU99S~CE43E93~BU99S~CE44E96~BD05/~BY15~BT16E42)~CE44E82~BU55S~CE44E88~BX95S~CE44E85~BU55S~CE44E99~BW63S~CE44F02~BW63S~CE44F05~BW63S~CE44E91~BK39S~BW79E44*~BW79E44/~BX71E44&~BX71E44-~CE44F08~BK99S~CE44F11~BK99S~BL07E44)~BU99~BY15~BD05E42)~BV03~BY15~BD05E44*~BD05E44/~BD05E44)~BV03~BD83~BY15~CE44F14~BD05S~CE44F17~BD05S~CE44F20~BD05S~CE44E96~BD05S~BY03~BY15~BD05E44&~BD05E44-~BW83~BD83~BY15~BA09E44%~BV03~HZ35~B335~E44~M23~B363~E44~CE44F23~BB88S~)E58~CE44F26~BZ36S~CE44F29~BT00S~CE44F32~BZ51S~CE44F35~BA87S~BA17E44%~CE44F38~BL35S~CE44F08~BE26S~BZ35~ME88E44~,E45~BZ32~BC16~BY19~BD83~BU99~BY15~BM97~BY15~BN33~CE44E88~BJ07S~CE44E85~BJ07S~CE44F41~BL91S~CE44F44~B!47S~CE44F47~BL59S~BD05~BY15~BM73~BY15~CE44F50~BD05/~BY15~BM97~BY15~CE44F53~BD05/~BY15~BM97~BL59~BD83~BY15~CE44F56~BD05/~BY15~BC00~BY15~BJ51E44%~BV03~BJ71~CE44F59~BD05/~BU99~HK38~BY15~CE44E88~BK03S~CE44E85~BD05/~BD83~BY15~CE44E88~BK03S~CE44E85~BK03S~BK38~BY15~CE44E91~BD05S~CE44F08~BD05S~CE44F11~BD05S~BD05E42)~BD05E44)~BV03~BY15~BK55~BY15~CE44E91~BD05S~BD05E44%~BV03~BC16~CE44E88~BD05/~BD83~BY19~BC16~BN33~CE44F62~BL59/~BY15~BM73~B!55~BY15~BM97~BY15~BN33~CE44F41~BD05S~BZ83~VM59E581~B363~F65~B363~E51~B363~E54~B363~F68~B363~E44~B351~BD6~HM96~CE44E88~BD05/~BD83~BM96~HN32~CE44E85~BN25S~CE44E88~BD05/~BD83~BN32~HO08~CE44F08~BC16S~CE44F23~BO09S~CE44F71~BT00S~CE44F74~BT00S~BT16E42)~CE44F77~BT00S~BO08~BY15~BT16E42)~CE44F80~BT00S~CE44F77~BD05/~BT00~BY15~BM73~BY15~BA09E44%~BO93E44#~CE44F83~BD05/~BO57~BY15~CE44E88~BQ65S~CE44F86~BT00S~CE44F89~BR01S~CE44E85~BQ97S~BQ41E44&~BQ41E44-~BR01E44)~BP97E44%~BP97E44/~BP97E44*~BD05~BY15~CE44F23~BD05S~BD05E44*~BD05E44/~BD05E44)~BO97~BY15~BD05E44&~BD05E44-~BQ01~BD83~BY15~CE44F92~BR13/~BA09~BN33~BO97~BD83~BY15~BD05E44%~BD05E42$~CE44E88~BD05S~CE44E85~BD05S~BN33~BO97~HR92~CE44E88~BD05/~BD83~BY15~CE44E88~BR69S~BR92~BY15~BR53~BN33~CE44F95~B?33S~CE44F98~BC89S~BR97~BY15~CE44G01~BD05/~BC89~BR97~BY15~CE44E85~B?81/~BD83~BC00~CE44G04~BC00S~CE44E82~BD05/~B?73~HZ35~BA41~CE57E73~BZ32S~CE57E70~BZ32S~MZ35E64~BY15~BA79~CE44F59~BD05/~ME64Z35~BY19~HK38~BJ79~HB46~MC88E48~BC16~ME44E51~BC16~ME44E54~BB47~CE44F35~BA91S~ME48C88~BB46~HB87~B335~E44~M23~B363~E44~CE44F23~BB88S~)E58~BB87~H094~,E58~B0!4~CE44F23~BT00S~BT16~HC88~B335~E44~M23~B363~E44~CE44F23~BB88S~)E58~CE44F35~BA87S~CE44F32~BC85/~BB47~BC20~BC88~HD04~BY15~BN33~BD04~B363~G07~B363~E51~B363~E54~B363~E57~BC16~CE44F35~BD71/~BC16~ME44E51~BC16~ME44E54~BT16E42)~BD33~HE25~ME44E61~VE18E451~BC16~CE44E61~BE02/~)E45~BE25~CE57E70~BY19/~BK99~ ~ ~ ~ ~ ~ ~)03~)19~)05~)09~)11~ @~.NL~.NM~$30~$0~$40~$20~ #~$21~$32~$31~$02~$01~$09~.PD~A05~#DC~.DG~.CD~*32~*08~*07~*18~*28~*35~ *~ )~*22~.DM~B3A~*02~*25~*24~.LB~*10~/10~$08~ %~*33~*26~*13~*30~.DK ~ ~BD6~T00~T00~G97~T00 ~B351~BT1~VT19 061~BU93~VV15 041~VV04 051~BJ11~CK00K03~BU77S~CK00K06~BV98S~CK00K09~BV98S~CK00K12~BW44S~CK00K15~BV98S~BJ29~CK00K18~BV64S~CK00K21~BU54/~BJ11~CK00K24~BT39/~BJ29~B351~BT2~CK00K27~BU73/~B351~BT3~BT35~BX09~BJ11~BW52~BX79~MK30K00~BV22~MK33K00~BV22~MK36K00~BX09~BW52~/299~MK38215~MK00224~P0!1238~MK40~2~BZ91~BJ11~BJ29~MK00J70~BJ11~BJ29~MK00J73~BU15~BX09~BJ11~MK00J70~BJ11~MK00J73~BJ11~BW52~VX79J601~BY50~,J60~BV98~HX08~H094E00~BT350!0$~M0!00!0~H094~C0!3K00~BW63/~M0!00!0~H094~BX08~HX78~VX75J741~,J74~/332~/~MK59265~2~FJ~/299~MK63216~MK66224~MK74234~MK81251~2~FJ~BX78~/332~/~)J60~VY04K002~BY94~BY11~AK82J63~,J59~ZJ73233~MK00224~P0!1238~MK40~2~BJ49@~BT35~/332~/~BY94~ZJ73233~MK95250~P0!1253~MK40~2~BJ49@~BT35~HZ26~AK82J66~,J67~YK96K00~MK38215~BZ26~FK~/299~ML32265~ZJ66270~2~BJ44@~/299~MJ97250~AJ66J63~ZJ63255~2~BJ54@~F1~B!97E~/299~FK~ML53250~2~F1~U%U1R~U%U5R~U%U6R~U%U4R~.!27~B!27~/299~FK~MJ97250~ZJ63255~2~/299~FK~ML76250~2~F1~B!97E~.!97~VZ27J671~V!35J591~B363~K00~B351~B01~HJ28~B335~K00~!81~BJ28~HJ43~B363~K00~BJ43~FZ531~FT351~FZ911 ~000~000 ~ ~TOTAL NUMBER OF ERRORS-~ ~.DG~.DK~.ZD~.DM~.DZ~.CD~/24~*06~*01~B99~B98~B97~**~. ~*** DIAGNOSTICS ***~FLAG~REF~SEQUENCE~MESSAGE~1~FORMAT ERROR-~ ~NUMBER OF ERRORS NEEDING CORRECTION-~COMPILATION SUSPENDED~PRESS START TO CONTINUE ~ ~BT1~M00~T07~G97~M00 ~$~ASSIGN ~*75~DEVICE NAME 1403-CT ~*82~DEVICE NAME 1403-P ~*83~SWITCH NAME 1403-P-CB ~*86~MEMORY SIZE ~*76~SWITCH NAME 1403-P-C9 ~*85~DEVICE NAME 1402-P ~*88~DEVICE NAME 1402-R ~*80~SELECT ~*77~RESERVE ALTERNATE AREA ~*70~SWITCH NAME 1401-SS ~*81~SWITCH NAME 1403-P-CV ~*87~CONFIGURATION SECTION NOT SENSED ~B2A~KEYWORD SOURCE-COMPUTER MUST FOLLOW CONFIGURATION SECTION ~B2B~IBM-1401 CLAUSE NOT SENSED ~B2C~INVALID ENTRY ~B2D~KEYWORD FILE-CONTROL MUST FOLLOW INPUT-OUTPUT SECTION ~B2E~PERIOD MUST FOLLOW PARAGRAPH SECTION OR DIVISION ~B2F~PERIOD MUST FOLLOW ENTRY ~B2G~KEYWORD SECTION NOT SENSED ~B2H~KEYWORD DIVISION NOT SENSED ~B2I~NEXT CARD OUT OF SEQUENCE ~A01~FORMAT ERROR-CONTINUATION OF ALPHANUMERIC LITERAL ~A0B~NUMERIC LITERAL EXCEEDS LEGAL LENGTH ~A0C~NAME EXCEEDS LEGAL LENGTH ~A0D~ALPHANUMERIC LITERAL EXCEEDS LEGAL LENGTH ~A0E~SPECIAL-CHARACTER MUST BE IN ALPHANUMERIC LITERAL ~A0F~PROGRAM-ID NOT SENSED ~A0H~IDENTIFICATION DIVISION NOT SENSED ~A0I~ENVIRONMENT DIVISION NOT SENSED ~B99~DATA DIVISION NOT SENSED ~B97~PROCEDURE DIVISION NOT SENSED ~B98~CONTINUATION MUST BEGIN IN COLUMN 12 ~A1? ~ ~BT2~M00~T07~G97~M00 ~$~FD ~/26~RECORDING MODE ~/06~BLOCK CONTAINS ~/16~RECORD CONTAINS ~/11~LABEL RECORD ~/19~VALUE OF ~/13~DATA RECORD ~/24~SIZE ~/10~REDEFINES ~/05~OCCURS ~/14~POINT LOCATION ~/18~PICTURE ~)12~JUSTIFIED ~/07~LEAVING ~/12~VALUE ~/13~WORKING-STORAGE SECTION OUT OF SEQUENCE ~B4A~CONSTANT SECTION OUT OF SEQUENCE ~B4B~RECORDING MODE MUST BE 1 ~B4C~DATA RECORDS CLAUSE MUST BE IN FD ~B4D~LABEL RECORDS CLAUSE MUST BE IN FD ~B4E~DUPLICATE RECORD CONTAINS CLAUSE ~B4H~DUPLICATE BLOCK CONTAINS CLAUSE ~B4G~DUPLICATE RECORDING MODE CLAUSE ~B4F~DUPLICATE VALUE OF CLAUSE ~B4I~A PERIOD MUST FOLLOW ENTRY ~B5J~DATA DIVISION NOT FOLLOWED BY VALID SECTION ~B5K~DUPLICATE CONSTANT SECTION ~B5L~DUPLICATE WORKING-STORAGE SECTION ~B5M~LEVEL NUMBER MUST BE FOLLOWED BY NAME OR FILLER ~B5N~FORMAT ERROR ~B5O~NEXT CARD OUT OF SEQUENCE ~A01~FORMAT ERROR-CONTINUATION OF ALPHANUMERIC LITERAL ~A0B~NUMERIC LITERAL EXCEEDS LEGAL LENGTH ~A0C~NAME EXCEEDS LEGAL LENGTH ~A0D~ALPHANUMERIC LITERAL EXCEEDS LEGAL LENGTH ~A0E~SPECIAL-CHARACTER MUST BE IN ALPHANUMERIC LITERAL ~A0F~KEYWORD SECTION NOT SENSED ~B5P~KEYWORD DIVISION NOT SENSED ~B5Q~CONTINUATION MUST BEGIN IN COLUMN 12 ~A1? ~ ~BT3~M00~T07~G97~M00 ~$~MOVE ~)15~OPEN ~)14~MULTIPLY ~)02~GO TO ~)20~DISPLAY ~)04~SUBTRACT ~)01~ADDITION ~)18~DIVIDE ~)06~ALTER ~)10~ACCEPT ~)07~CLOSE ~)09~WRITE ~)08~READ ~)13~COMPUTE ~)05~STOP ~)11~PERFORM ~)03~IF ~)19~PERIOD MUST BE FOLLOWED BY VERB PARAGRAPH OR SECTION NAME ~B0A~PERIOD MUST FOLLOW PARAGRAPH OR SECTION NAME ~B0B~KEYWORD DIVISION MUST BE FOLLOWED BY PERIOD ~B0C~KEYWORD DIVISION NOT SENSED ~B0D~NEXT CARD OUT OF SEQUENCE ~A01~FORMAT ERROR-CONTINUATION OF ALPHANUMERIC LITERAL ~A0B~NUMERIC LITERAL EXCEEDS LEGAL LENGTH ~A0C~NAME EXCEEDS LEGAL LENGTH ~A0D~ALPHANUMERIC LITERAL EXCEEDS LEGAL LENGTH ~A0E~SPECIAL-CHARACTER MUST BE IN ALPHANUMERIC LITERAL ~A0F~ONLY AUTOCODER CAN BE ENTERED FROM COBOL ~A0G~MISSING PERIOD AT END OF PROGRAM ~B3A~KEYWORD MUST NOT BE USED AS LABEL ~B9B~MISSING PERIOD BEFORE PROCEDURE DIVISION ~B9A~FIGCON ALL MUST BE FOLLOWED BY ALPHANUMERIC LITERAL ~B8E~CONTINUATION MUST BEGIN IN COLUMN 12 ~A1? ~ ~B01~T00~T50~G97~T00 ~A10~0~0~0~A10~ ~ ~J01~J01~ ~ ~S01~S01~00~0~0~0~0~0~0~0~0 ~ME86B04~VU021882~VT95188S~VT88188K~AE87B04~AE87B04~AE87B04~DB04/72~BZ39~BZ39~BU25~BP57~CA22A49~BU21/~B363~A22~BZ39~BP76~BU37~B363~B59~ME88A29~BU37~B363~B59~ME89A29~BP57~B363~E35~BU48~BY54A291~BU37~BU44A292~BU37~ME88A50~ME88T03~BV52~ME90A50~B363~B59~BU37~CA24E92~BU37/~BP57~ME93A20~YE94A22~BU37~CA25B41~BU37/~BP57~BP49A340~B363~A56~BK27~MAO9A59~B363~A59~BU48~ME97A62~BU37~B363~B59~ME98Z67~MF01A62~BU37~BP57~CA22B41~BO79S~CA22B47~BO79S~BU48~BP57~CA22B47~BU48/~BZ39~B363~B26~MA20A22~M~B363~A22~BZ39~CA22B47~BX60/~B363~B26~BZ39~BX02~BP57~CA22B14~BU44S~BU48~BP57~CA22B41~BJ87S~CA22B41~BU48/~B363~B83~BJ87~BU48~CA25B41~BU37/~BZ39~BK27~CB09F03~BU48/~CAO9B07~BZ09U~DB04/72~BU48~CB04E86~BY98S~SE87B04~YF04B04~BY86~H!71~ME90A34~MA25A22~B335~A25~J76~NZ83~CA25B59~BZ57S~CA25A28~B!72S~B!46A330~MF06A34~B363~A28~B363~A40~B363~A37~BJ42A321~MF08A31~B!61A310~ME88A33~ME90A30~B!71~BJ11A311~B335~A40~J76~B335~A37~J76~MF10A31~BZ57~B335~A46~J76~B335~A43~J76~ME88A32~BZ57~MA46A40~M~ME90A32~B!03A301~ME88A31~BZ67~MF13Z60~B!68~HK26~BK27~MAO6A59~B363~A59~MAO9A59~B363~A59~BK26~HL16~MA22A59~MF16094~BZ39~BK83~MF08B09~BZ39~CA22A59~BL01S~AF17094~MA22AO9~AF18B09~BK60~BZ39~BL17AO9 ~BL16~SF18094~YF04094~BL05~MF08B11~BP57~CA22B47~BL70S~CA22B41~BU48/~BM62~CA22B14~BL42S~AF18B11~BU48B151~BL46~CA25B41~BM29S~CA25B47~BM51/~MF21B17~BL35~MF24B17~BL35~B363~B20~BU44~HN21~MA22A59~B363~B23~BZ39~CA22A59~BN07S~B363~A22~BM80~B363~B23~BZ39~BN21~BP57~CA22B41~BU48/~BK27~MAO9A59~B363~A59~BU48~BP57~BU37~BP57~CA22B41~BU48/~BN96A25 ~BU48~VO08A242~BU48~VO20A232~BU48~MA25A71~MF21094~BO53AP0 ~AF18094~BO34~MAO9A59~B363~A59~BZ39~BZ39~BU44~HP13~MA22A59~BP57~CA22A59~BO90/~BP57~BP13~BP49A500~BO79~CA22B47~BF44 ~B363~A53~BP49~BO79~BU48~HP75~B363~A22~BZ39~BP75~CA22F27~BR87S~CA21E92~BQ18/~ME93A20~YE94A22~BU37~CA22F30~BQ38/~BZ39~BU44~MA62099~C0?0A22~BQ81S~BU37T~BU370?0*~AF31099~BQ45~M0?3099~B0?0~BZ39~CA22B29~BR12/~BZ39~CA22B47~BU48/~BR32~BR12~HR66~MA22A59~BZ39~CA22A59~BR43/~BZ39~BR66~BP57~CA22B29~BU44S~BU48~CA25B32~BQ00/~BP57~BU44~CA25F27~BR99S~BU37~B?58/724~B?69/728~B?80/722~MF34T14~B?87~MF37T14~B?87~MF40T14~B?87~MF43T14~B363~B59~B363~A17~MT14T11~B351~B02~.EP~ ~ ~ ~.CD~0~00000~ ~ ~ ~ ~*91~0~.AN~.LV~ ~D45~000000 ~000000~00~00~*32~000~)99~.PN~ @~/11~/04~ @~P49~.NL~P49~.NM~P49~.PC~P49~.PD~V97~)12~U44~$40~V63~*01~W50~/10~Y11~/12~N22~/13~X91~/14~Y11~/15~N22~/17~N22~/19~R67~/22~?07~/24~Q92~***~ @~P49~.LB~P49~.NL~P49~.NM~P49~)03~M40~)10~M40~)11~N68~)20~M05~$40~V63~*08~M40~*11~M29~*17~N22~*22~N22~*24~P49~*39~N60~*40~N60~#DC~P49~***~ @~P49~.NM~P14~.NL~P49~*31~W86~*71~W86~*76~V03~*80~W86~*81~X18~*82~W86~*83~W86~*84~U44~*85~W86~*86~W86~*87~W86~*88~W86~*90~V15~*93~V45~*94~V45~*95~V27~*96~V45~*97~U74~*98~U56~/24~W61~***~004~D~1~2~0~$0~A~-~C40~B~B35~02~ ~01~00~11~?23~002~C~A~000~100~$08~.DG~F~C9D~G96~F3V~C9M~BP38S~CA22D57~BU48/~BP38 ~ ~B02~T50~T50~G98~T50 ~BP23~B363~K41~CK41K44~BT50/~,K70~MT14T11~MT29T32~BU17T390~MQ54U21~BU17~B363~K41~BP23~BW71~NV81~CK41K47~BU49/~BQ07~BU41~BV12K511~CK41K67~BU89/~BQ07~CK41Q57~BU10/~BV01~CK41K54~BV35/~MQ58K51~BU10~CK41K67~BU10/~MQ59K51~BU69~CK41K82~BW13/~BP23~CK41K85~BU17S~B363~K82~MQ58T05~BW13~CK41K91~BW05S~CK41K88~BW13/~BQ07~BU10~CK41K57~BW36/~BP23~MQ58K64~CK41K60~BY18S~CK41K63~BY33S~MQ59K64~BU10~CK41K47~BX01/~MQ54U21~MQ60U25~BU10~CK41K50~BY06/~BP23~CK41K67~BX47S~MQ59K95~B363~K50~BU21~MQ59K95~BP23~CK41Q57~BX95/~MQ58K95~MQ58T04~B363~K67~BU10~B363~K50~BX84~BV81K951~BU10~MQ59K68~BJ26~BM34~MQ58K68~MQ59K64~BN15~BM34~BY77K640~YQ61K76~MQ59K64~B363~K76~BU21~BZ81T341~LKR60?0~HT11~BZ29K640~YQ61K76~MQ59K64~B363~K76~YQ62K76~MK76T29~BZ69?07 ~MQ58T34~BU21~VU21?071~BZ58~MQ58T33~B!10K640~B363~K57~MQ59K64~BO02K681~,KR7~MQ65094~B!48~AQ66094~VJ18KR61~MQ69K94~B!96KR6 ~BJ07KR6}~YKR6K94~DKR6K94~B363~K94~B!33~MQ72K94~B!85~MQ75K94~B!85~)KR6~BU21~HK38~MQ65094~BK06~BP23~AQ66094~BK24K41@~CK41Q72~BJ83/~MQ76KR6~BJ41~CK41Q75~BK06/~MK70KR6~BJ41~YK41KR6~DK41KR6~BJ41~MQ77KR6~BP23~BK38~ ~/24~*01~.PD~0~/26~$40~ @~.NL~0~.LV~0~0}~.CD~ ~.EP~/13~A0K~*39~*40~ ~0~ ~HM33~AQ66K76~BM33~MT32K76~MT14099~C099T11~BY88S~C0?0KR6~Q099~BN03/~VY550?11~C0?00?0~Q099~BM19~BM48~VM950?11~BM84~HN83~MQ80094~BP23~BN57~BP23~CK41K63~BN68S~AQ81094~MK41KR6~BN34~BN84KR6 ~BP23~BN83~SQ66094~YQ62094~BN68~B363~K63~,KR7~MQ65094~MQ69K94~MQ65099~VO93KR61~YKR6KI2~DKR6KI2~AQ66094~AQ66099~C099Q84~BO34/~B363~K94~BO20~BP080990~B363~K94~B363~K63~)KR6~BU21~HP52~B335~K41~Q26~CK41K73~BP53S~BP52~MQ59K69~B363~K41~B335~K41~Q26~AQ66K69~BP37K693~BP60~B363~K41~BP27~HQ25~B363~K41~BP23~BQ25~B363~K79~AQ66T29~MQ59T34~B351~B11~N~088~1~0~B~-~ ~000~A~ ~ RM~ GM~ ~@~002~C~003 ~ ~ ~B11~T50~T50~P28~T50 ~MT32Z12~MT14094~BU05T390~MN02Z15~BU39T331~MN05Z79~MN06Z49~BU39~CT32N09~BU24/~B!32~N12~BU39T331~MN13T39~MN14T33~CT14T11~BZ28S~C094T11~BZ16S~M!30Z09~M!30~M~MN14!31~B!32~Z15~B!32~Z12~MN17099~BV83~BW21~BX08~MN20099~BV83~B!32~Z12~B!32~Z06~B!32~Z09~B!32~Z03~MN23099~BV83~AN13Z12~BU58~HW20~M0?0N34~Q099~B!32~N34~VW170?11~BV87~B000~MN240!1~H089~M0!00!0~H094~BW890!1@~MN27Z00~BW700!1 ~BV18~Y0!30 0~)0!4~H094~BV18~MN30Z00~)0!2~H094~BV18~M0!1N31~BY40N31}~BY51N31 ~BY21N31.~MN31N34~B!32~N34~BX80N34@~BX95~M0!2N31~Q094~BX15~M0!00!0~H094~BV22~AN13Z09~BX65!310~AN13Z03~BX65~BX39Z00X~MN13!31~BX65~B!32~N37~BX95~B!32~N40~BX95~ @.OPDCW.LC~.DS.DE.MC~.DS.KK K E001000~000~000000~000~.LL~CZ12T29~BZ80/~B!32~Z15~B!32~N43~B!32~N46~NZ73~U%U1B~U%U1B~U%U1B~U%U1B~B351~B02~/320~/~F1~M!24260~2~F1~B359~SYSTEM FAILURE PHASE B11~000000~0~H089~HJ060 3~M0 2!53~M000J98~MJ98K01~CJ98N46~BJ07S~C!63N49~BJ07S~,!61~AN52!63~)!61~B000~,J83~B343~M%U4J82R~J30~BJ07~U%U4B~,M99~B343~M%U4J99W~J54~U%U4M~U%U4B~MN55!63~?N14M98~BJ03~ } ~ ~ }~.LT~B03~B~S01~.DD~1~0~Y73~Y82~Z00~@~ 9~ X~ ~ ~ GM~ RM~.DE~.EB~M98~003~K01 ~ ~B03~T50~T50~G98~T50 ~MT14T11~MT17T20~MT17P45~BM53~B363~O81~CO81P10~BT50/~BU05~B363~O81~BM53~MP81P36~CO81P18~BU36/~BO19~BN37~BV10~CO81P21~BZ32S~CO81O74~BW33/~BY98~MP82P14~BW87~BU09P150~VU990 0K~BU09~YP830 0~BU09~CO81P13~BV56/~MP84U36~MO74O84~BO19~CO81O71~BV36/~BT98~CO81P32~BT98/~BO19~CO81O84~BA35 ~MP82P28~BY98~MP82P38~MP85P07~BW87~BU09P151~BU09T341~BJ39~CO80P06~BW67/~MO81P07~MP82P36~BM53~BZ32~CO81O68~BT98/~BO19~BW79~HY29~?P49099~A099~AP49099~YP86099~BY71Q?4 ~MQ?4089~C0 0PM8~Q089~BX92/~VY040 11~C0 0~Q089~C0 0~C~C~Q089~BY300 3*~M0 3089~BX31~VX630 11~BX55~C0 0O98~M~MP82P15~MP81P14~BY29~BY60T341~BY60P141~MT110 3~MT11089~MP81P15~BY19~BY60T341~BY60P141~MT11Q?4~BY53~HZ31~BN37P280~MP82P39~BK09~MP81P39~BZ31~BK09~BN80P361~B!12P371~CO81O90~BZ87S~MP83P07~BW87~BJ39P150~B!53~MP82P37~MP82T38~MP00P07~BN80~CO81O90~B!42S~MP02P07~MP81P37~BN80~MP04P07~BN80~BJ02P360~D0 0P29~B!84P29 ~B!91P071~DP070 0~B363~O96~BU09~BJ28P381~YP830 0~B363~O96~BU09~MP81P38~BU09~BL10T341~MP07P47~MP45O96~LPM80 0~L~L~L~HT11~AP87P45~BJ97A34 ~MP82T34~BJ28P381~BJ17~HK91~MO81O87~MP90094~BO38~BK58~BO38~CO81O87~BK69S~AP91094~MO81PM8~BK35~BK92PM8 ~MP92PM9~BO38~BK91~SP87094~YP86094~BK69~MP82T33~BL40P360~MP07O93~M~B363~O93~B363~O87~MP95094~MP95099~MP98O93~BM27PM8 ~YPM8OI1~DPM8OI1~AP87094~AP87099~C099Q01~BL68/~B363~O93~BL54~BM420990~B363~O93~B363~O87~BU09~HM82~B335~O81~N98~CO81O78~BM83S~BM82~MP81O75~B363~O81~B335~O81~N98~AP87O75~BM67O753~BM90~B363~O81~BM57~BN45~BU09~HN79~MO81O93~BO19~CO81O93~BN56/~BO19~BN79~MP07P47~MP82P36~BZ71~B363~P35~MP45T17~B351~B04~HO37~B363~O81~BM53~BO37~HO57~BO58P391~BM53~BO57~BO19~BO54~.TO~*01~.LB~0~.CD~ ~.NM~ ~*32~ ~A10~ ~ 3~ 1~ 1~.Q~ ~*91~/24~0~0~.LT~.PN~ ~ ~0~ ~.AN~.EP~0~0~0~0~***~ ~ ~ ~0~1~&~N~-~ ~A~002~C~ ~000~ ~003~ ~BV84S~CO81A58~BT98/~BV84~.NL ~ ~B04~T50~T50~O94~T50 ~BJ90~B363~O79~CO79P03~BT50/~BT84~B363~O79~BJ90~BU52~CO79O40~BU32S~CO79O46~BT77/~BK74~BK74~BK74~BK93~BZ64~BY17~BX69O500~BW01~CO79P09~BU91/~MP53T88~BK74~CO79O66~BU91/~BT77~CO79O57~BT77/~BK74~CO79O82~BP75 ~CO79O37~BT77/~BT77T331~BT84~BZ64~BY17~B!65O500~VV780?0K~B363~O94~BT88~B!65T330~B363~O37~B!73~BT88~D0?0O99~BW61O99 ~VX400?0B~BW39O993~MP54O99~MO99O91~M~B363~O91~MP54T38~CP550?0~H099~BX510?0*~BX510?0]~MP560?0~B363~O46~B363~O94~CO79O63~BX25/~BK74~B363~O49~B!73~BT88~MP57O99~BW39~B363~O43~MP580?0~BW95~B!65T331~B363~O46~B363~T17~AP59T17~BX09~HY16~AP59O94~BY16~HZ63~?P19099~A099~AP19099~YP55099~BZ34Q?4 ~MQ?4099~C0?0PJ8~Q099~BZ22/~VZ450?11~C0?0~Q099~C0?0~C~C~Q099~BZ340?3*~M0?3099~BY61~VY930?11~BY85~MP60O50~BZ60~C0?0O96~M~MP54O50~BZ63~H!46~MO79O85~MP63094~BJ90~B!13~BJ90~CO79O85~B!24S~AP64094~MO79PJ8~BZ90~B!47PJ8 ~MP65PJ9~BJ90~B!46~SP59094~YP55094~B!24~B!73~BT88~HJ89~B363~O85~MP68094~MP71O91~MP68099~BJ64PJ8 ~YPJ8OH9~DPJ8OH9~AP59094~AP59099~C099P74~BJ05/~B363~O91~B!91~BJ790990~B363~O91~B363~O85~BJ89~HK19~B335~O79~L24~CO79O73~BK20S~BK19~MP60O70~B363~O79~B335~O79~L24~AP59O70~BK04O703~BK27~B363~O79~BJ94~HK92~B363~O79~BJ90~BK92~MO79O85~BK74~CO79O85~BL00/~BK74~BT88~,P52~MT20O94~MO53O85~MT14099~CT11099~BN42S~MP650?1~C0?00?0~C~Q099~P0?3P18~VN270?22~BM500?1 ~BN050?1*~D0?2O54~BM30O54 ~BN27~AP59O94~C0?0~C~Q099~BL49~VM300?2K~BO05~MP54T40~B363~O60~B363~O94~M099O76~B!73~MO76099~BM30~BO05~B363~O43~MP54T40~BM76~BO05~B363~O69~BM76~B363~P12~MP60T34~BN98T330~MP60T33~U%U1B~U%U1B~U%U1B~U%U1B~B351~B03~B351~B05~HO34~BO31T411~B363~P06~MP54T41~BO34~.NA~.LB~.MT~.LF~.LT~0~.PN~ ~.AN~.UN~*09~*01~.QN~0~.CD~ ~ ~.NM~ ~*32~ ~ ~ ~.T~ ~ ~*91~.TO~/24~.EP~/26~0~0~ }~N~1~ ~]~2~*~A~0~002~C~ ~000~ ~003~BV43S~CO79P98~BV43S~BV19~.NL ~ ~B05~T50~T50~G98~T50 ~MT14T11~MT02T08~MT02Q70~BN55~B363~P91~CP91Q23~BT50/~BU05~B363~P91~BN55~MR06Q60~CP91Q50~BU36/~BP29~BO47~BV10~BW14~CP91P94~B!26S~CP90Q16~BU90/~MP91Q17~MR07Q60~BN55~B!26~CP91P81~BT98/~BP29~BV02~CP91Q26~BV40/~MR08U36~MR08J55~BT98~CP91Q20~BV60/~BP29~BU44~CP91Q53~BT98/~BP29~CP91P94~BB64 ~MR07Q47~BL11~MR09Q17~BX81~B!69~CP91P78~BW44/~MR08U40~MR10J55~BT98~CP91Q38~BW76/~BP29~CP91P94~BT98/~BO47~CP91Q29~BU44/~BP29~BP29~CP91P94~BX54/~BZ92~MR07Q45~BX81~BU09Q460~VX430 0K~BU09~YR110 0~BU09~CP91Q44~BT98/~B363~P84~BN55~BU09~HZ23~?Q74099~A099~AQ74099~YR12099~BZ65RC0 ~MRC0089~C0 0QP3~Q089~BY86/~VY980 11~C0 0~Q089~C0 0~C~C~Q089~BZ240 3*~M0 3089~BY25~VY570 11~BY49~C0 0Q08~M~MR07Q46~MR06Q45~BZ23~BZ54T341~BZ54Q451~MT110 3~MT11089~MR06Q46~BZ13~BZ54T341~BZ54Q451~MT11RC0~BZ47~H!25~BO47Q470~MR07Q64~BL11~MR06Q64~B!25~BL11~BO90Q601~B!99Q611~CP91Q00~B!81S~MR11Q17~BX81~BK49Q460~BJ55~MR07Q61~MQ10Q17~BO90~CP91Q00~BJ29S~MQ12Q17~MR06Q61~BO90~MQ14Q17~BO90~HJ54~AR13Q06~BJ54~VY570 0K~BK12Q600~D0 0Q59~BJ94Q59 ~BK01Q171~DQ170 0~B363~Q06~BU09~BK27Q631~YR110 0~B363~Q06~BU09~MR06Q63~BU09~BM12T341~MQ17Q72~MQ70Q06~LQP30 0~L~L~L~HT11~AR13Q70~BK27B63 ~MR07T34~BK27~HL93~MP91P97~MR16094~BP48~BL60~BP48~CP91P97~BL71S~AR17094~MP91QP3~BL37~BL94QP3 ~MR18QP4~BP48~BL93~SR13094~YR12094~BL71~MR07T33~BM42Q600~MQ17Q03~M~B363~Q03~B363~P97~MR21094~MR21099~MR24Q03~BN29QP3 ~YQP3Q?1~DQP3Q?1~AR13094~AR13099~C099R27~BM70/~B363~Q03~BM56~BN440990~B363~Q03~B363~P97~BU09~HN92~B335~P91~P08~CP91P88~BN93S~BO36P89]~BN92~MR06P85~B363~P91~B335~P91~P08~AR13P85~BN69P853~BO00~B363~P91~BN59~BO55~BU09~HO89~MP91Q03~BP29~CP91Q03~BO66/~BP29~BO89~MQ17Q72~MR07Q60~B!65~B363~Q35~MQ70T02~B351~B06~HP47~B363~P91~BN55~BP47~HP67~BP68Q641~BN55~BP67~BP29~BP64~*01~.TO~ ~0~.CD~ ~.NM~ ~*32~ ~A10~ ~ 3~ 1~ 1~.Q~ ~*77~*91~/24~.LV~/13~.EP~/26~/23~/23~0~0~0~.LT~.AN~000~00~ ~0~0~0~0~0~***~ ~ ~ ~0~1~N~-~B~&~ ~A~002~C~ ~000~ ~003~ ~BV88S~CP91B87~BT98/~BV88~.NL ~ ~B06~T50~T50~P83~T50 ~BK08~B363~P42~CP42P76~BT50/~BT84~B363~P42~BK08~BU16~BV66~BZ78~BY31~BY01P930~BW44~CP42P70~BU48/~BK92~CP42P45~BL90S~BT77~CP42P79~BU78/~MQ66T88~MQ66L15~BT77~CP42P45~BV10S~CP42Q05~BT77/~BK92~BL90~BZ78~CP42Q14~BU00/~B!91~BT84T330~BK92~BU32~CP42P45~BT96S~BL11~BT77~CP42P88~BV86/~BK08~BV46~CP42P82~BW24/~BK08~MP42P91~MQ67P92~BK08~BV46~CP42P35~BT77/~BK92~BW36~VZ070?0K~D0?0P66~BX12P66 ~VX720?0B~BW90P663~MQ67P66~MP66P58~M~B363~P58~MQ67T37~CQ680?0~H099~BX830?0*~BX830?0]~MQ690?0~BL11~B363~P61~B363~Q05~B!91~BT88~MQ70P66~BW90~B363~Q08~MQ710?0~BX46~B!79T331~MQ72Q18~BL11~B363~Q24~BT88~HZ77~?Q32099~A099~AQ32099~YQ68099~BZ48RC0 ~MRC0099~C0?0QL1~Q099~BZ36/~VZ590?11~C0?0~Q099~C0?0~C~C~Q099~BZ480?3*~M0?3099~BY75~VZ070?11~BY99~MQ72P93~BZ74~C0?0P63~M~MQ67P93~BZ77~H!60~MP42P48~MQ75094~BK08~B!27~BK08~CP42P48~B!38S~AQ76094~MP42QL1~B!04~B!61QL1 ~MQ77QL2~BK08~B!60~SQ78094~YQ68094~B!38~BL11~B!91~BT88~HK07~B363~P48~MQ81094~MQ84P58~MQ81099~BJ82QL1 ~YQL1PE6~DQL1PE6~AQ78094~AQ78099~C099Q87~BJ23/~B363~P58~BJ09~BJ970990~B363~P58~B363~P48~BK07~HK37~B335~P42~M21~CP42P39~BK38S~BK37~MQ72P36~B363~P42~B335~P42~M21~AQ78P36~BK22P363~BK45~B363~P42~BK12~HL10~B363~P42~BK08~BL10~HL51~BL52~BL79P920~B363~P82~B363~P91~MQ72P92~BL51~BL68P931~BL48T331~B363~Q11~BL48~B363~P88~BL48~MP42P48~BK92~CP42P48~BL97/~BK92~BT88~,Q65~MT08P61~MT14099~CT11099~BO24S~MQ770?1~C0?00?0~C~Q099~P0?3Q31~VO090?22~BN400?1 ~BN870?1*~D0?2P52~BN20P52 ~BO09~AQ78P61~C0?0~C~Q099~BM39~BP03~MQ67T40~B363~P99~B363~P61~M099P73~B!91~MP73099~BN20~BP03~B363~Q08~MQ67T40~BN58~BP03~B363~Q02~BN58~B363~P85~BO73T330~MQ89T34~U%U1B~U%U1B~U%U1B~U%U1B~B351~B05~BO96T381~BO96T371~B351~B09~B351~B07~HP32~BP29T411~B363~P51~MQ67T41~BP32~*01~0~.CD~ ~.NM~ ~.TO~ ~*32~ ~ ~ ~.T~ ~ ~*77~ ~*91~/24~.LV~.EP~/26~ ~0~0~/23~.UN~.QN~.LT~.MT~.SP~.AN~.AN~0~.UU~ ~000~0~ ~ }~N~1~ ~]~2~*~0~002~C~ ~A~000~ ~003~00 ~ ~B07~T50~T50~G98~T50 ~/332~/~MT02R40~MR69T33~MT02T08~MR69T39~MR71T36~M~BO26~B363~R25~CR25R13~BT91/~MT14099~BN73T370~MT14R62~BU47~B363~R25~BO26~BY50~BY34T380~CR25R68~BX93S~CR24R73~BU40/~MR74W39~MR75V87~MR76R28~BV49R251~BV42R252~YR77R28~MR75W39~BV49~YR78R28~BO26~CR25R65~BV83/~DR79R28~MR74V87~BO26~BO99~BQ42~MR25R31~BO26~CR25R37~MR81R27~BW39/~MR79R41~MR84R27~BO26~BW58~B363~R40~BN97~BW65~B363~R31~BW87R410~B363~R37~MR69R41~LR310?0~L~H099~MR79T39~BU51B50 ~CR24R73~BX73/~MR79T36~BO99~CR25R65~BX65/~BO99~BO99~BQ42~BX69~BO99~BO99~CR25R68~BY42/~BY20T361~C0?3R84~BY20S~LR840?0~LR84~H099~M099T23~MR40T17~BO99~BY34~BO99~BX14~CR24R73~B!13S~BZ26~CR25R16~BN39S~CR25R19~BN39S~CR25R22~BN39S~CR25R34~BN39S~CR25R47~BN19S~CR25R50~BU40/~LR840?0~LR84~H099~MR69T37~M099T11~MR40T02~M099T26~MT17R40~MT17T20~MR75U51~MT26R62~BU40~MR75J98~MR75K25~MR74K06~MR75Y62~MR76R28~B!96R251~B!82R252~YR77R28~MR75K06~B!96~YR78R28~MR74K25~BO26~CR25R65~BJ30/~BO26~MR74J98~DR79R28~CR25R34~BJ57/~BO99~MR86R27~BJ91~BO99~MR25R27~BO99~CR27R88~BJ91/~MR90R27~MR25R31~BQ42~BO26~BK25~B363~R40~BN97~BK47~BK40~B363~R54~BK47~B363~R31~LR310?0~L~H099~BU51B50 ~CR24R73~BL32/~MR74L32~MR79T35~BO99~CR25R65~BL32/~BO99~BO99~BO99~MR25R31~BQ42~NM36~CR25R47~BM02/~BO99~BP18~BL72R591~BO99~BK67~MR84R31~MR76R28~LR310?0~L~H099~BN11~CR25R34~BM36/~MR86R27~MR74L32~BO99~BL72~CR25R50~BN11/~BM93T351~BM78T380~MR69T37~MR79T36~LR840?0~LR84~H099~M099T11~MR40T02~BY34~BO99~BK67~BO99~BP18~BN58R591~BU40~C0?3R84~BU40S~MR84R28~MR84R31~BO99~BK47~BO26~BO99~CR25R50~BN77/~BZ74~HO11~AR91R40~BO11~B363~R44~B351~B08~HO55~B335~R25~O12~CR25R57~BO56S~BO55~MR69R58~B363~R25~B335~R25~O12~AR91R58~BO40R583~BO63~HP17~B363~R25~BO26~BP17~HP89~MR69R59~MR25R27~CR27R88~BP55/~MR90R27~C0?6R84~BP90/~CR270?2~BQ24T~MR270?2~BP89~CR270?2~BQ06U~BP86~MR76R28~MR79R59~BP86~MR74L32~MR74Y62~BP86~HR10~MR62089~C089099~BR07S~C0 0R25~Q089~BQ92/~DR790 0~BR07~C0 00 0~Q089~BQ53~BR10~/24~*29~/01~/09~ ~ ~ ~/26~*09~ ~0~.EP~.LV~*01~ ~ ~.CD~0~0~ ~.MT~.TO~0~00~.T~B~N~ ~&~-~1~ )~ ~ ~77~01~A ~ ~B08~T50~T50~B30~T50 ~BO19~B363~Q32~CQ32Q38~BT50/~BT84~B363~Q32~BO19~CQ30R09~BU62U~CQ30R10~BU62T~MQ32Q64~BO19~VU39Q62B~BU51T390~CQ32Q58~BW22S~B363~Q64~BT88~CQ32Q86~BV13S~CQ31R12~BT77/~B363~Q32~BO19~CQ31R12~BU86/~BT77~BO19~MQ32Q64~BO19~BM16~MQ61Q50~MR13Q67~MQ32Q71~BO19~MQ32Q80~BO19~MQ32Q77~BO19~DQ77Q87~BW06Q32*~BW50~BZ15~BV68~BW38Q710~BW50~BX94~BM16~BJ08~BY05Q710~BW50~BZ15~BW26~HX16~BX53Q87 ~MR13Q70~MR13Q23~CQ55R15~BX17/~BL02~BK47~MR13Q69~MQ55R08~M~M~M~BX16~BK47~CQ55Q20~BX86/~BP49Q660~BY99Q681~BX94~MR16Q23~MR13Q66~MR18Q70~CQ55Q20~BX94S~BL02~BX13~B363~Q80~BP92~BY29Q691~CQ55R15~BY67S~BY83~CQ97089~BY83S~MR18Q70~MR08Q55~M~M~M~M~BZ07~BW26~BP60Q650~B!31~BP92~BP60Q650~BP60Q680~BZ65~BP92~HZ64~BZ40~HZ64~AR19Q55~SR20Q53~YR16Q53~MQ53094~MRL6Q74~MQ50Q61~BZ64~H!30~B363~Q86~B!31~B363~Q71~B363~Q80~MR23094~AR20094~B363~?Q6~C?Q6R26~B!01/~B!30~HJ07~MR18Q55~MR29094~B!72~CQ55Q20~BJ04S~B363~Q58~MRL6Q29~AR20094~AR19Q55~B363~Q29~B!53~BJ07~HK46~MR30Q71~MQ47089~C089Q44~BK43S~C0 0Q74~Q089~BJ74S~C0 0~Q089~VO040 3B~BJ26~MR13Q71~C0 0~QQ47~M0 0Q77~DQ77Q87~MQ61Q50~MQ61Q80~VK360 0B~M0 3Q80~BK43~AR19Q50~BK46~HL01~MQ47089~C089Q44~BK98S~C0 0Q74~Q089~BP49S~C0 0~Q089~BK58~BL01~HL56~MQ47089~CQ97Q47~BL69S~M089Q44~C0 0~C~Q089~CQ760 2~BL57U~BL56~C089Q97~BL25/~MQ97Q44~MQ76Q22~MQ83094~MQ26?Q9~M~AR20Q83~MR13Q68~BL53~HO03~MR29094~MR15Q20~MQ64RL6~BM49~BO19~CQ32Q58~BM90/~BO19~AR20094~MQ32RL6~AR19Q20~BM45~VN30Q62K~MT35Q65~MT14Q47~MT08Q61~MT11Q97~BN58~MT26Q47~MT36Q65~MT20Q61~MT23Q97~M094Q53~MR35Q70~MRL6Q74~MQ97Q44~MR15Q55~MR29Q83~BO03~HO18~AR19Q61~BO18~HO48~B335~Q32~O92~CQ32Q35~BO49S~BO48~MR30Q94~B363~Q32~B335~Q32~O92~AR19Q94~BO33Q943~BO56~B363~Q18~BP22T351~BP22T361~B351~B09~U%U1B~U%U1B~U%U1B~U%U1B~B351~B07~MQ90Q41~BP67~MQ93Q41~MR13T42~B363~Q41~B!31~B363~Q41~BT88Q670~BT84Q32*~BO19~BQ00~.EP~00~ ~***~ ~ ~.CD~*91~ ~ ~ ~ ~ ~00~*32~ ~ 0~000000~ ~00 ~ ~ ~.QQ~ ~.DM~.DU~0~ ~ ~A~R~.D~1~01~ ~00~A~C~000~***~003~0~00000 ~ ~B09~U00~U00~G98~U00 ~BU20T421~BU20T401~BU34~MK52Y85~MK52!82~BY35~B363~J14~CJ14J68~BU34/~BZ37~B363~J14~BY35~CJ14J08~BU96/~BZ58~BY35~BW35~CJ14J20~BV24/~BZ90~BZ18~BZ18~BW35~CJ14J11~BV55/~B!29~BY35~B363~J17~BW35~CJ14J71~BV79/~BZ90~BZ18~BW35~CJ14J29~BV95/~BU68~CJ14J74~BW19/~BY35~BX38~BU68~CJ14J77~BU61/~B!82~CJ14K55~BU61S~/332~/~MJ14235~ZJ02230~BZ18~CJ14J26~BW93/~MK51280~BZ18~BY35~BX38~PJ30239~H094~MK570!0~2~BX29@~BU68~FU681~BU72~HY16~MJ14J65~MK60094~BY35~BX87~BY35~CJ14J65~BX98S~AK61094~MJ14JL0~BX64~BY17JL0 ~MK62JL1~BY16~SK63094~YK64094~BX98~HY64~B335~J14~!61~CJ14J05~BY65S~BY64~B335~!99~!61~B335~J02~!61~NY93~BY39~B363~J05~B363~!99~B363~J02~BY39~HZ36~B363~J14~BY35~BZ36~F1~/332~/~MJ99258~2~FJ~BU68~HZ89~FJ~/332~/~MK14235~2~FJ~MK65U84~BZ89~H!28~FJ~/332~/~MK29235~2~FJ~MK65V08~MK65V67~B!28~H!60~FJ~/332~/~MK44235~2~FJ~MK65V36~B!60~B363~!96~B351~C01~B351~B10~N!75~BY35~B!82~.EP~ ~.CD~.SP~.LF~ ~.LB~.LV~/26~*09~.MT ~ ~*91~/26~.LT~.TO~** COBOL DICTIONARY **~SPECIAL NAMES ~DATA NAMES ~PROCEDURE NAMES~SECTION~B~ ~ ~002~C~ ~A~ ~N ~ ~B10~T50~T50~G97~T50 ~MT14099~MQ81P87~BT79T421~MQ82T95~BN61~CP95Q16~BU10/~NV16~MQ83R79~BU40~CP95Q10~BU33/~MQ84R79~BU40~MQ85R79~BV51P861~BN61~MP95R82~BN61~BL47~LRJ2R78~LR820?0~H099~BU97?22 ~BV05~VT79?221~MQ86P86~BT79~BN61~BN61~MP95P98~BN61~CP95P98~BV31/~BT79~MQ86P87~MQ82O11~BW08~BO44~BO44~MP95P98~BO44~CP95P98~BV84/~BO44~BT83~MQ87V65~B363~Q19~BV65~B363~Q22~BO63~MQ87P24~M099Q01~BW62~B363~P95~BN61~CP95Q19~BP61S~CP94Q89~BZ74/~BY68P871~BX17P95M~MQ32240~BX24~MQ37240~BN61~MQ90P89~CP94Q89~BW62S~CP95P92~BX70/~MQ86P89~BN61~CP95Q47~BY60S~BK71~BX24P880~C0 00 0~Q089~P0 1R11~PR11250~H094~MQ920!0~BY45P890~MQ930!1~ZQ44230~BP00~BX24~BL47~BY12~BO44~CP95Q47~BZ04/~BO44~CP95Q47~BY84/~BO44~CP94Q89~BW55S~CP95P92~BZ36/~BO44~BY72~BK71~BZ28P880~C0 00 0~Q089~P0 1R11~BM44~BZ28~BW55T400~CP93Q94~BJ25U~CP93Q95~BJ25T~BJ81P871~BK71~BW55P880~M0 0Q38~VW55Q382~C0 00 0~Q089~P0 1R11~V!78Q38B~MQ32Q27~B!85~MQ37Q27~MQ27240~ZQ44230~PR11245~H094~MQ920!0~BP00~BW62~BW55P871~CP95Q10~BJ57/~BN61~BL47~B!78~CP95Q13~BW55/~BN61~BL47~B!67~BK71~BW55P880~M0 0Q38~VK31Q38B~VK20Q38K~BW55~MQ13P98~BK38~MQ10P98~B363~P98~C0 00 0~Q089~P0 1R11~BM44~BW62~HL46~MQ90P88~MT14089~C089Q01~BL43S~C0 0P95~Q089~BL28/~MQ86P88~BL43~C0 00 0~Q089~BK89~BL46~HM25~MP95P98~MQ98094~BN61~BL96~BN61~CP95P98~BM07S~AQ99094~MP95RJ1~BL73~BM26RJ1 ~MR00RJ2~BM25~SR01094~YQ83094~BM07~HN60~B363~Q47~MR04094~MR07Q04~MR04099~BN35RJ1 ~YRJ1Q?2~DRJ1Q?2~AR01094~AR01099~C099R10~BM76/~B363~Q04~BM62~BN500990~B363~Q04~B363~Q47~BN60~HN90~B335~P95~P24~CP95Q07~BN91S~BN90~B335~Q41~P24~B335~Q44~P24~NO19~BN65~B363~Q07~B363~Q41~B363~Q44~BN65~HO62~B363~P95~BN61~BO62~HO99~F1~/332~/~MQ63250~2~/332~/~FK~MQ87W33~BO99~HP18~2~/332~/~BP19@~BP18~FP151~BW26~BP61P871~F1~MQ79250~BP00~F1~U%U1R~.~BP56~MQ87O11~MQ82P24~MQ82V65~BT50~00~0~0~*32~ ~ ~ ~ ~.CD~.MT~.UN~.QN~.TO~.EP~ ~UNDEF~MULT ~0~ ~.NM~NAME DIAGNOSTICS~RUN DISCONTINUED~00~B~ ~&~-~1~N~.D~0~ ~/~A~R~002~C~ ~A~000~ ~003~ ~ ~ ~C01~T06~T06~G98~T06 ~B!85T030~BL17~K00~BK49~J27~BK16~CJ29P86~BT72S~CJ30J33~BZ14S~CJ30J36~BW95S~BT28~MJ30J39~BV74J397~BV74J391~BV74J396~BV74J395~MJ42J45~BK16~CJ30J48~BU64S~BU53J398~MJ51J54~BV59~MJ57J54~BV59~BK16~MP89J54~BU98J281~MJ28J54~BK16~BV55~BU83J29 ~BV33J291~BV44J292~MP90J54~BU90~MJ63J54~BU90~MJ60J54~BU90~BK16~MJ30J66~BX79~BT28~MP91J67~MP92X95~CJ39J70~BW18/~BK16~B335~J39~!67~BK16~MJ73J45~B335~J54~!67~B335~J66~!67~BX79~BK16~CJ30J76~BW77S~CJ30J79~BT32/~MJ30J54~MP92X95~BW35~BL17~J82~BK16~CJ30J36~BX29S~BL17~J30~BX02~BL17~J85~BL17~J88~BL17~J91~BK16~BL17~J30~BL17~J94~BL17~K03~BT28~HY44~CJ66P89~BY45S~NY68~BL17~J97~BL17~J66~BL17~J45~BL17~J39~BL17~J54~BL17~J97~BY44~BY57X95B~BY41~MP93X95~BY41~MP93X95~MZ13099~LJ660?0~H099~LP940?0~M099Z13~BX99~G98~BT21J670~BK49~K06~BK34~BK16~CJ30K09~BZ61S~CJ30K12~BZ29/~BK34~BK16~CJ28P95~B!21T~BZ61J28 ~CJ30J33~BZ29S~BZ61J28.~BZ61J28$~BZ37~MK15099~CJ300?0~H099~B!56S~BZ610?0 ~B!28~B363~J73~BZ61~BK34~BL17~K00~BL17~J24~BJ00T040~B351~C02~BJ15T050~B351~C03~B351~D01~.EB~*95~ ~.PD~.NM~ ~.DV~ ~.NL~ 1~ ~ 4~.TW~.EL~ ~0~*81~.SW~*31~*71~.EQ~.LC~EQU~.OP~.MC~.TE~.SN~.DE~*01~)19~*18~G98~HK33~B335~J30~!67~BK33~HK48~B363~J30~BK48~H089~MP96L16~M089L15~M0 2K81~BK16~CK84J30~BL02S~BK34L16P~BK74~ML15089~B0 3~ ~ ~H089~HL910 3~M0 2L38~M000M83~MM83M86~CM83P99~BL92S~CL48Q02~BL92S~,L46~AQ05L48~)L46~B000~,M68~B343~M%U4M67R~M15~BL92~U%U4B~,P84~B343~M%U4M84W~M39~U%U4M~U%U4B~MQ08L48~?P90P83~BL88~ } ~ ~ }~*8~ ~0~1~B~N~ ~?~P~.EB~P83~003~M86 ~ ~C02~T06~T06~G98~T06 ~BT28N310~BQ13~N85~MR63N31~,A18~MM68099~MM68094~/0!0~H094~VT46A181~CM71N85~BU22S~BP80~CM71N34~BU10S~CM71N37~BY42S~BP98~BT74~BP98~BP80~BP98~B335~M74~M32~BP80~CM71N40~BX66S~CM71N34~BU74S~BN86~?14~M71~BU32~BP80~CM74R66~BV04/~MT02M74~AR67T02~B335~M77~M32~CM77R66~BV58S~BP80~CM71N46~BV90S~CM71N43~BV04S~BV26~BP80~CM71N40~BX66S~CM71N43~BV04S~BV58~C0?0N30~BX85/~MM770?0~MM74~H099~B335~M80~M32~BP80~CM71N49~BX27S~MN520?0~MM80~H099~VW70M702~BW86~VX05M69S~VX05M71K~MR700?0~LR71~H099~BU36~MN550?0~H099~MM71M80~BW27~BP80~MN580?0~MM80~MN61~MN64~MM71~H099~BP80~BW58~B363~M74~BQ81~BP98~BT74~B363~N85~MR72N31~B363~M74~BQ81~B363~N34~B363~N43~B363~M77~BP98~BQ13~N37~BP98~BP80~BP98~CM71N67~BY78S~CM71N70~BY46/~BP80~CM69R73~BZ10U~CM69R74~B!88T~B!38~B!88M69 ~CM71N40~BY42S~CM71N73~BZ58/~BP98~BP80~BP98~BY78~B!88M69.~B!88M69$~NZ82~BY50~MR75Z74~MR78!02~B363~!02~C!02R81~BY42S~AR82!02~BZ96~#DC***C0A#DC~MM68094~C094099~B!88S~C0!0M71~Q094~B!96S~M0!00!0~H094~B!45~BP98~BY78~MR85M71~BP98~B335~K88~M32~BK92K88%~BJ740!0 ~M0!0M71~Q094~BP98~NJ66~MR86J48~MM71K91~NL66~BJ25~MR75J48~MR75J66~MK88M71~BY82M69)~CM71R89~BY82S~CM71R92~BY82S~CM71R95~BY82S~CM71R98~BY82S~CM71N40~BY42S~BY82M69 ~MR86Z74~BP80~BJ95~ ~ ~MN79N82~M?01?14~MR71?18~BN86~?14~K88~BL45K88)~B335~K88~M32~BL13~MR86J66~B335~K88~M32~BJ25~CM71K91~BJ25/~M?04L98~M?01M31~B363~L98~AR82M31~AR82L98~CM31?14~BL92/~BJ25~ ~BP98~BT06N311~BM59T050~B351~C03~B351~D01~G98~ ~ ~ ~ ~ ~0~.LV~*01~.PD~088~/13~*08~ #~$31~.GE~$32~.LE~)19~*18~.SW~?20~?18~?18~.IT~H089~HP020 6~M0 2O31~MO31O91~M0 5O77~A?07O31~BP03~ ~P79~MN82089~HO700 0~HO730 3~MP79089~,0 0~M000000~M0000 2~)0 0~A?07000~A?07N82~B000~H089~M0 2P17~M000P79~QP65~MN79P79~CP65?10~BP62/~M0 5P57~MP79P57~B0 6~A000P79~QP65~BP32~ ~HP97~B335~M71~M32~BP97~HQ12~B363~M71~BQ12~H089~M?11Q80~M089Q79~M0 2Q45~BP80~CQ48M71~BQ66S~BP98Q80P~BQ38~MQ79089~B0 3~ ~ ~HR56~MN76R59~MR59R02~MR05R62~BR32R60 ~B363~R62~AR82R59~BQ92~MN79N82~M?17?14~MR71?18~BR56~ ~ ~0~ ~A~ )~ ~1~A~I~N~!28~!37~C~ %~B~*22~$31~$32~*25~000~?20~003~?11~P~000~000 ~ ~C03~T04~T04~G98~T04 ~MZ00T03~MZ03099~MZ03094~MT03X08~BT47T030~BY32~X98~BY32~X74~BY17~BX99~BY17~B335~X80~W35~B363~X80~BX99~CX77X83~BU84S~CX77X86~BU19S~BY17~BT83~BU44~MZ04U19~B363~X71~B363~X80~BY17~BX99~BY17~CX77X89~BV91S~CX77X74~BT58S~BT47~BX99~CX80Z07~BV66S~LX770?0~LX80~H099~C0?0Z13~BT83S~AZ14T03~B363~X71~B363~X80~B363~X98~BY32~X89~BU52~MT02X80~AZ14T02~MZ15U19~BV00~CX08Z00~BW97/~BX99~BY17~BX99~BY17~BX09~BX99~BY17~BW23~BY17~CT03X08~BW90S~BW90T030~MZ03099~,!95~/0?0~H099~VW70!951~BT11~B351~D01~BY32~X95~BW19~ ~B363~X92~M0!0X77~Q094~BY17~M0!0X77~Q094~BY17~C094099~BX09/~B363~X95~BW23~.NM~.LV~ ~ ~/13~.PD~*01~)15~.XF~.IT~HY16~B335~X77~W35~BY16~HY31~B363~X77~BY31~H089~MZ16Y99~M089Y98~M0 2Y64~BX99~CY67X77~BY85S~BY17Y99P~BY57~MY98089~B0 3~ ~ ~0~G98~B~ ~ ~A~N~P ~ ~D01~T03~T06~G98~T03 ~ ~,C41~BT25/724~M?71!31~M!31T05~BQ46~BQ74~BQ92~C?29R99~BU44S~M?72?10~C?29?75~BU33S~C?29?78~BU33S~C?29R96~B!40S~C?29?81~BU15S~BT32~M?08?97~M?82?09~BT32~M?08?09~BT32~B335~?68~R14~B363~?68~M?68?85~C?85?88~BV33/~M?72?10~BQ74~C?29?91~BW22S~BQ92~C?97?08~BW11S~M?29?94~A?82?97~BQ74~C?29?02~B!83S~C?29?05~BX35S~C?29A00~BX20S~C?29A03~BW40S~M?29X19~BQ92~BV33~M?82?12~BV33~M?29A06~BV19~MT02?29~A?82T02~BV03~BQ92~M?82?10~C?85?88~BW71/~BV33?091~BQ74~BQ92~MA09089~BZ66~C?85A12~BV33/~H089X19~BZ66~BV33~ ~BQ92~M?82?10~BV33~B335~?65~R14~C?65R99~BX68S~B363~A15~BY13~B335~?68~R14~C?85?68~BX94U~BX57~C?68A12~BX57S~B363~A18~BY67?091~BZ51?101~BJ46~B363~?05~M?65?29~C?29R99~BT40/~BQ92~BU54~C?85?88~BY21/~C?97A21~BZ00S~BY21U~BZ11~MA24089~BZ66~BY21?101~B363~A03~B363~A06~M?82?10~M?94A06~BY21~MA27089~BZ66~BY29~H!39~M!31099~C0 00?3~B!36S~C0 00?6~B!36S~C0 00?9~B!36S~CT09099~BR07S~L0 0G91~H!31~B000~MA30089~BZ66~B335~?29~!72~B363~?29~B!51~BQ92~B351~D02~M?62?61~BQ74~C?29?02~BV33S~M?60?61~M?29?30~B!90?62 ~MA31?62~M?62?61~BR59~BY33?30 ~M?08094~MA35?25~M?08?13~M?08?15~M?08?14~M?08?21~MA38Q08~MA39Q05~M?08?11~M?08A67~BM27~BK80?26 ~BO54~BO82~BN84~BK24~S?82A67~Y?82A67~MA40K95~MA39R93~BK95?111~M?08A67~NK52~B363~?02~B363~?18~B363~?21~B363~A67~MA43?29~BL49?152~MA44?29~BQ92~BL83?141~MA47?29~BQ92~M?62?61~BY33~B363~A50~MA21094~M?L0?29~BQ92~BL72?L0 ~AA53094~BL97~BN44?131~M?L0?26~BM61?26)~A?82094~BK28~A?82094~BN15?L0%~D?L0?22~M?24?25~M?08?22~BM61~M?24?25~M?08?22~BN01?25 ~A?82094~M?L0?26~M?82?13~S?82?25~VM57?25B~M?08?13~MA35?25~A?82094~BM27~BO43?269~BO32?26X~BO32?26A~M?26O22~BO39A56 ~B~B~M?82?14~MA39?15~BK48~DA57?15~BO39~M?26O68~BO78A56 ~B~B~A?82?21~BK40~BP91?26P~BP58?111~BP80?26V~BP80?26.~M?26P28~BP58A64 ~B~B~B~B~B~B~BP62?26&~BP62?26-~A?82A67~BK44~MR93K95~MA40R93~BP51~M?82?11~BP58~M?82?11~C?21?08~BQ28/~MA40Q05~S?82A67~BP58~M?21A67~MA70Q08~BP51~HQ73~BQ74~BQ92~C?29?05~BQ50/~B000~HQ91~B335~?29~R14~B000~HR06~B363~?29~B000~MA71R58~/333~/~F1~MR58260~2~F1~B359~SYSTEM FAILURE PHASE D01~B363~A74~B363~A77~BQ74~C?29A80~BR73/~BV33~B~*01~.LV~.PC~.PD~000~0~0~0~0~0~0~0~ ~ ~ ~ ~ ~ ~ ~L4/~0~/01~/09~/26~1~ ~001~ ~ ~ ~/14~/05~ ~?29~077~#EL~#GR~002~A06~?94~C41~ ~ ~Q28~B~N~ 9~X~.KK~ E~003~SVP~2~CR0BSD,~ ~P51~9~.DG~D01~.PC ~ ~D02~T06~T06~A98~T06 ~B335~?04~Q80~B363~?04~C?04?10~BT69S~C?04?13~BP69S~BT06~M?16R60~M?17U11~BT94~MR97R96~B335~R60~Q80~BT51R597~B363~R60~B335~R63~Q80~BU29~B363~?20~M?21U11~CR60?16~BN22S~BU75?010~CR63?00~BU75/~B363~?24~M?25?01~BR25~C?04?28~BX45S~C?04?31~BX80S~C?04?34~BX69S~C?04?37~BX69S~C?04?40~BX91S~C?04?43~BZ24S~C?04?46~BZ24S~C?04?49~BY60S~C?04?52~BY60S~C?04?55~BY90S~C?04?58~BY90S~C?04?61~BY90S~C?04?64~BZ10S~C?04?67~BY45S~C?04?70~BZ50S~C?04?73~BZ61S~C?04?76~BO39S~C?04?24~BY24S~C?04?79~BX15S~BR43~BU75~CR63?82~BX07/~MT02R63~A?83T02~BX07~B335~R66~Q80~B335~R69~Q80~BU75~M?86R75~BU75~M?89R75~BU75~BR25~B335~R72~Q80~BY20?045~Y?90R72~BU75~M?83?01~B335~?00~Q80~BU75~BR25~M?04R63~BU75~BY79?045~M?93R84~BU75~M?96R84~BU75~BQ01~R93~02~M?99R87~BU75~B335~R96~Q80~BU75~M?99R81~BU75?04L~MA00R81~BU75~MA03R90~BU75~BJ67R840~BZ88R910~M?99R87~B!18~BZ77R90B~MA06R90~MA09R87~BN82R81G~BJ78R750~CR69A15~BJ89S~B363~A18~B363~R63~B363~R66~B363~R69~B363~R72~B363~R75~B363~R78~B363~R81~B363~R84~B363~R87~BJ56R87K~MA21Q00~B363~R90~B363~R93~CR93?76~BK04S~B363~R96~B363~?73~BT06~MA06R84~BZ69~M?86R75~B!26~MA23?07~BQ58~B!38~MA26099~MA30L59~M?25L55~ML48L47~BR25~C?04L51~BK63S~M?040?6~H099~BK32~M?82?04~MA33099~BL61~ML60?04~BR43~BL04L60 ~BK77~B363~L51~BT06~ ~.PD~000~ ~ ~0~HL98~BM82L551~MLA5L60~BL99L60)~A?83099~B000~A?83099~BM53LA5%~DLA5L56~ML58L59~ML54L56~BL99~ML58L59~ML54L56~BM39L59 ~A?83099~MLA5L60~M?83L55~S?83L59~VL95L59B~ML54L55~MA30L59~A?83099~BL65~MT05089~M?25?01~M?83R78~BU750 0}~CR630 0~H089~BN71S~BN43~M?25R78~BU75~M?86R75~MA33R66~MA33R69~MA33?04~BQ01~R72~03~MA09?04~BQ01~R87~04~B!38~BR25~MA35?07~BQ58R81G~BQ01~R66~05~BR25~BQ01~R69~05~BR25~BQ01~R72~06~BR25~BQ01~R75~07~BR25~M?04R87~BP45R87K~M?76?04~BQ01~R93~08~BZ61~MA33?04~BQ01~R93~08~BU75~BR43~B335~?04~P90~B363~?04~BP69~BR43~B351~D04~H099~M0?2094~C0!0A33~BQ47S~C0!0?04~BQ47S~M0?4?07~BQ58~M?040!0~B0?5~HQ79~B363~A38~B363~?07~B000~/333~/~F1~MR24260~2~F1~B359~SYSTEM FAILURE PHASE D02~HR42~B335~?04~Q80~B000~HR57~B363~?04~B000~ 0~ ~ ~ ~D ~.LV~*01~001~N~077~B~*03~0~/10~$16~/03~$10~/18~#EL~#GR~/15~/17~/20~/21~$08~/12~.NM~/22~.PD~.PC~/14~ ~1~ X~ 9~K~ R~ L~ E~G~ B~ K~.KK~000000~.DS~D03~0I~L11~ ~000~99~.DG ~ ~D03~T03~T03~G98~T03 ~BA70~G06~B335~F85~?14~B363~F85~CF85G09~BT10/~B335~F85~F38~CF85G12~BT72S~B363~F85~BT39~)?13~M?13~MF97?00~MR54R53~Q094~MG130!0~H094~MG16U56~B335~F85~F38~CF85G19~BU76S~CF85G22~BX72S~MF85000~,U54~AG25U56~)U54~BU16~BW97R85K~MR67F88~CR91G28~BW79S~MR70099~AR94099~AG29099~CR67099~BZ29U~MG30QC2~BV92R900~CR67099~BZ29S~MG31QC3~BV92R911~SG29F88~MG32QC3~MR67099~MG13QC3~H094~MF97?00~MT02R91~AG29T02~MF88?03~YG33?03~MG19?06~BW71R91K~MG28R94~BN50~BX08~BT10~MG36R91~MF97?00~BW45~MG19R88~BW71~HX60~H099R52~BX61R880~M0?6F85~Q099~B363~F85~CF85G19~BX27/~B000~MG36R88~BX27~BP00~BP00~MR67F88~CR70G28~BY06S~MG29?12~BZ90G81B~BZ21G81R~BY50G81&~BY98G81-~BZ10G81$~B?46~BZ10G78&~MG28R97~DR67R97~D~D~BQ00~-~SG29F88~BY90~BP00~B?46~BZ10G78-~BY74~MG37R88~B?46~BZ61G78C~B363~G40~B363~G43~MG46R85~MG19R88~BW71~BP00~BQ00~R~BQ00~C~SG47F88~BP00~B?46~B!02G78D~B?46~MG50R97~BZ61~B!76?101~B!53?121~BO88G78 ~MG29?10~BQ00~0~BY90~V!76?131~,?13~HK280!2~B!44~BQ00~ ~BY90~B!53?121~B!76?092~BJ25?090~BQ00~*~MG47?09~BY90~MG29?09~B!13~BQ00~.~SG29F88~MG30?12~BY90~B!76?121~B!76?082~BJ99G78 ~B!13?100~VK22?131~BQ00~$~MG47?08~SG29F88~BY90~MG33000~BJ99~BK45G78C~BZ29~BP00~BZ65G78 ~BZ29~B!76?121~B!76?072~BL18G78 ~MG29?07~B!13?100~MG53?00~MG47?07~BJ91~BL00?071~MG56R97~BY74~B!76?121~B!76?112~BL94G78 ~MG29?11~B!13?100~MG59?00~MG47?11~BJ91~BL76?111~BY74~BM34R920~,0!2~BQ00~&~SG29F88~BY90~MT02R94~AG29T02~BM14~BM64G78D~BM18~MG50R97~BK45~BQ00~,~BM23~BQ00~@~MT02R91~AG29T02~BN39R920~DF88?03~D~D~MG19?06~BX08~BN50~BT10~MG28R94~BN11~HO87~M094G62~BA70~R91~BA70~G65~BA70~G68~BA70~G71~BA70~G00~NP25~Y0!0G74~D0!0G74~Q094~BA70~G74~BO37G74@~BO00~BA70~G03~BO77R920~MG62094~BA70~R94~MG37N96~BN68~MG75N96~B000~V!37?131~BZ29~HP24~MG78G81~B335~G78~F38~B000~BP630!0@~VP810!01~H094~DG33G74~BA70~G74~BP25~BA70~G00~BA70~G03~BO77~)0!0~H094~DG30G74~BP52~H089~C094G84~BZ29S~M0 00!2~H094~B0 1~@~ ~@~.DS~ 0~BA70~G87~BA70~G90~B363~F85~B351~D04~BP00~BM84G81 ~BM06G810~BM52G81B~BM75G81,~BJ48G81V~BJ36G81.~BK61G81&~BL37G81-~BK33G81R~BJ59G81$~B!85G81*~B!13G81Z~BZ29G81X~BZ29G81A~B!76G819~BZ29~H089~HB440 3~M0 2A91~M000C36~MC36C39~CC36G90~BB45S~CB01G93~BB45S~,A99~AG25B01~)A99~B000~,C21~B343~M%U4C20R~B68~BB45~U%U4B~,F37~B343~M%U4C37W~B92~U%U4M~U%U4B~HB01C39~?G30F36~BB41~ } ~ ~ }~/333~/~F1~MF82260~2~F1~B359~SYSTEM FAILURE PHASE D03~ ~ ~000K KK K~ @~.MC~.ED~.LV~.DS~@~R61~.PD~.PC~003~000~1~0~*~$~ ~ K~B~.DG~D14~.KK~2~D D~& &~001~- -~ ~.LC~DCW~.OP~ ~N~ ~ ~R52~.DE~.EB~F36 ~ ~D04~T00~T00~G98~T00 ~MR78094~M0!10!0~H099~B335~R09~R13~B363~R09~CR09R81~BT18/~BL22~BO07~BO25~CR09Q97~BK53S~CR09Q85~BT47/~BO07~CR090?2~BW51T~BU15~CR090?2~BW44T~MR09R12~CR060?2~BV87S~B363~Q85~M0?2R09~MQ64R07~BO25~B363~R60~M0?5R09~YQ64R08~BO25~BL89~B363~Q64~B363~R84~B363~Q64~B363~R87~VW220?42~VW330?4K~MR88R63~B363~R63~B363~R91~BP45~B363~Q79~BO40~BL62~BM40~MR12R09~BU03~B363~Q67~CQ67Q85~BW51S~CQ67Q97~BK53S~BT47~MR92R63~BV39~MR93R63~BV39~B363~Q85~BO25~CR060?2~BW75S~,0A5~H099~MR090?2~BO07~CR09R60~BX42S~CR09Q91~BK05S~CR09Q88~BJ47S~CR09Q94~BJ28S~BO25~BW82~BO07~MR090?5~BO07~DR090?7~D~BO07~MR090A0~B335~R75~R13~B335~R72~R13~B335~R69~R13~B335~R66~R13~M0A0Q72~BY38Q750~YR010A0~B!23R66G~BN04~BK85Q741~B363~R60~M0?5R09~BO25~BL89~B363~R75~B363~R72~B363~R69~B363~R66~BO07~CR09Q79~BZ32S~BO25~BZ08~BP45~B363~Q79~BO40~BL62~BM40~BZ66~B363~Q79~BM82~B335~Q67~R13~CQ67Q85~BJ17/~BO07~CR090?2~B!12T~BU15~B363~Q85~BW51~BO07~B!57R09K~YR930?4~B!57R09R~Y!500?4~BO07~CR09Q79~B!57/~B363~R96~M0?5R09~YQ64R08~BO25~BZ59R690~B363~R99~BZ59~MR06R09~BU15~BW82Q741~MQ73Q74~BW82~BO25~S?00Q72~Y?00Q72~?Q69R09~YR02R09~BO25~MQ72R09~BO25~MQ73Q75~BW82~BO07~DR090A1~BO07~MR090A4~BK42Q761~M0?2?02~MQ73Q76~BW82~B335~R09~K74~B363~R09~BK53~BO25~B351~D05~HL21~B363~Q94~M?13099~BL89~M0!00!0~H099~B000~HL61~BO07~BO25~CR09Q97~BK53S~CR09Q79~BL26/~B000~HL77~VL780A0B~B000~B363~?05~BL74~HM39~M0A0Q72~?Q69R09~YR02R09~BO25~MQ72R09~YR02R09~BO25~B000~HM81~M0A50A4~C099?13~BM78S~)0?1~M0?00?0~H099~B000~HN03~MQ64Q75~MQ64Q74~B000~HO06~C099?13~BO03S~VO030A0B~MR01N88~M0?00?0~H099~C?13099~BN65/~M?06N88~,0?6~AQ720A0~)0?6~VN920A0B~BN35~M0!00!0~H099~B000~HO24~B335~R09~R13~B000~HO39~B363~R09~B000~HP44~C0A4R06~BP41S~,0A1~SQ730A4~C0A4?10~BO90S~A0A0Q72~BO60~)0A1~B363~Q91~?Q69R09~YR02R09~BO25~MQ72R09~BO25~BN04~M0A0Q72~B000~HQ61~BQ58Q760~B363~Q82~C0A4R06~BP94S~M0?5R09~YQ64R08~BO25~C?13099~BQ21S~M0?00?0~H099~BP64~B363~Q82~M0!00!0~H099~C0?2?02~BQ58/~MQ64Q76~B000~000~000~ ~1~0~0~0~.PD~.SB~.LV~/05~/14~*03~*01~#GR~B~ ~0000~ ~ ~/333~/~F1~MR57260~2~F1~B359~SYSTEM FAILURE PHASE D04~.DS~ ~ ~ ~ ~ ~G13~/24~ X~ G~L~.KK~K~R~#GR~#WM~1~ ~/OG~N~000A~?13~ 0 ~ ~D05~T00~T00~G98~T00 ~B335~?01~B68~B363~?01~C?01D85~BT00/~BB37~BB37~BB04~C?01D88~BX49S~C?01D91~BV12S~C?01D94~BU79S~C?01D97~BJ11S~C?01E00~BU45S~C?01E03~BW84S~C?01E06~BW84S~C?01E09~BW84S~BB22~BT37~ME33089~MCT1?01~YE10?00~BA79~A~BB22~BT37~B335~?19~B68~B335~?22~B68~BA79~B~B?82~BT37~BV32Q880~BW01E130~BO44~BB22~B335~?13~B68~B363~?13~ME11Q88~ME12E13~M?16E16~ME22C18~BB37~BA79~I~B363~?13~BT37~HW72~CC15?16~BW28S~ME24R00~BR37~B363~Q91~CC18?16~BW73S~B363~C18~B363~Q91~MD82D81~M~B000~B363~E27~BW54~M?01E30~BX11Q880~BW01E130~BO44~ME12Q88~C?01E03~BR57S~MD82D81~M~B363~E30~BT37~B335~?10~B68~M?10E33~AE33~A?10E33~C?10E36~BX97S~BY95C220~BB04~C?01E39~BJ37S~C?01E42~BY39/~ME43N10~ME43N70~C?01Q94~BK85S~C?01E46~BZ13S~C?01E49~BZ83S~C?01D97~BJ11S~BB22~BX97~M?10C27~ME11C22~BX97~BB04~C?01?16~BZ40S~ME24R00~BR37~B363~Q91~B363~E52~BB04~B363~?01~B363~Q91~ME11E13~BX97~B335~?19~B68~B335~?22~B68~BB04~ME33089~V!52CT0K~M?01CT1~YE53CT0~BA79~E~BB22~ME33089~YE53CT0~BA79~F~BB22~C?19E56~BJ03S~SE59?22~YE12?22~BA79~G~B!68~B?82~BX97~BB04~ME60R99~M?01R00~BR37~BX97~C?10E36~BK02/~B335~?07~B68~BB04~C?01E63~BK18S~C?01E66~BJ59/~ME11C23~BJ59~BB04~C?01E63~BJ98/~BT37~C?07E69~BK02S~BK38~BK02~HK84~BA79~I~B363~?07~BK81Q880~BA79~J~B363~?07~B363~?13~B000~ME12E70~ME73L09~BB04~M?01000~HL09~AE11E70~BL33E709~BK99~MR24?22~MR27?19~ME33089~VL73CT0S~YE10CT0~BL80~YE74CT0~C?10E36~BP74S~BM83C230~CC27?10~BM30/~AE11C21~ME12C24~BM69~BM54R12E~CC30?10~BM69T~BM83~BM83C241~ME11C24~ME36R15~M?10C30~BP30R12G~C?10E36~BN21/~MR30?07~BK38~ME75N10~ME74N51~CR15E56~BN47/~ME76N51~BA79~ ~B363~R30~B?82~C?10E36~BP58S~ME75N70~BO96E132~CR30E69~BK02S~B?32~BA79~P~BB04~BB22~C?01E63~BO35S~BO11~BA79~O~BT37~HO95~BA79~R~B363~?13~B363~E96~M?13R30~DC18R24~D~D~B?32~BA79~O~B000~ME11E13~CR24E82~BN90S~ME84R00~BR37~BN90~CR30E69~BN63S~BA79~M~B363~R30~BN63~BA79~Q~ME85R12~BN82~MD82D81~BQ03C230~MC21R15~MC31C30~BM83Q880~CC18E91~BQ70S~C?22C18~BM83S~BQ47U~M?22C18~BM83E131~ME93R00~BR37~BM83~M?22C18~MR30E96~BM83~0~.LR~.DS~.MC~D00~.PD .DS.DE~HR56~BA79~D~B363~R00~B000~B363~E30~B335~?01~R85~B363~?01~BR64~B363~?01~B351~D06~ ~ ~ ~ ~ ~000~ ~.OPDS .LC~H?81~BA79~P~ME99099~M0?0F02~Q099~B363~F02~V?780?11~B?48~B000~HA78~BA79~H~MF05099~ME75A28~C099F08~BA54S~D0?2?04~Q099~BA05?040~ME43A28~B363~?04~BA05~D0?2?04~B363~?04~B363~Q97~B000~H099~M0?0B03~B363~B03~B0?1~$$ ~HB21~B335~?01~B68~B000~HB36~B363~?01~B000~HB67~BB04~B363~?01~C?01E63~BB41/~B000~/333~/~F1~MC12260~2~F1~B359~SYSTEM FAILURE PHASE D05~000000~0000000000000~ ~ ~/24~.LV~/26~/14~.DG~/OG~*01~/01~/09~ ~1~0~ ~ ~000000~1A~@@@~ ~ ~001~#GR~077~N~*03~/05~.RI~S~000~999~D~.PD~#WM~ ~ ~R30~K~B~L~000004~1B~R~000000~13~ ~R36~ ~?15~?20 ~ ~D06~T00~T00~G98~T00 ~B335~J08~J50~B363~J08~CJ08O98~BT00/~BK28~P01~B335~J08~J50~BT58J07$~BT66~BT89J06$~B363~J08~CJ08J05~B!47S~BT36~BV29J08A~BV64J08B~BV80J08C~BW15J08D~BW38J08E~BW71J08F~BX03J08G~BX31J08H~BX55J08I~BX93J08J~BY44J08K~BY71J08L~BY98J08M~BZ28J08O~BZ41J08P~BZ65J08Q~B!02J08R~BT66~B335~V54~J50~BJ09~V63~.MCH&1 .OPORG.LC~BJ09~V79~.OPDS .LC~B335~W14~J50~BJ09~W14~.MC*&1.OPEQU.LC ~B335~W34~J50~BJ09~W37~ ***~BJ95~BK13~BJ09~W70~.MC *.OPEQU.LC H~B335~W93~J50~BJ09~X02~ - .OPORG.LC~BJ09~X30~ - *.OPORG.LC.MC999~BJ95~BK13~CJ08P04~BX31/~BT36~B335~X89~J50~BJ09~X92~.MC*&1.OPEQU.LC L~B335~Y40~J50~B335~Y25~J50~BJ09~Y43~.MC I.OPEQU.LC F~BJ95~BK13~BJ09~Y70~ #.OPDCW.LC~BJ95~BK13~BJ09~Y97~ #.OPDC .LC~BJ95~BK13~BJ09~Z27~.MC *.OPEQU.LC~BJ09~Z40~.DL.DS~BJ95~CJ08P07~BT36S~BK13~BZ41~BJ09~!01~.MC @ GM @.OPDCW.LC.MCORG.LC~B335~!46~J50~B335~!34~J50~BJ09~!46~.MC .OPEQU.LC ~B335~J08~!68~B363~J08~B!47~B363~J08~BK28~P10~BK28~P13~BK28~P16~B351~E01~*01~ ~H094~M0!2099~M0?0P19~Q099~BK28~P19~VT360?11~BJ20~/333~/~F1~MJ94260~2~F1~B359~SYSTEM FAILURE PHASE D06~HK12~B335~J08~J50~B000~HK27~BK28~J08~B000~H089~HL020 3~M0 2K49~M000L94~ML94L97~CL94P16~BL03S~CK59P22~BL03S~,K57~AP25K59~)K57~B000~,L79~B343~M%U4L78R~L26~BL03~U%U4B~,O95~B343~M%U4L95W~L50~U%U4M~U%U4B~MP28K59~?P29O94~BK99~ } ~ ~ }~/24~.DL~.MC~.PD~.DE~.LD~.EB~ ~O94~003~L97~0 ~ ~E01~T00~T00~G98~T00 ~BX45~Z14~BX45~Z17~BX45~U38~BX45~Z20~BX45~U41~BZ37~CZ71U35~BT97/~BZ37~CZ71U35~BT35S~CU43Z22~BT51S~AZ23U43~BX45~Z71~BT51~CZ71U32~BT35/~BX45~Z74~BX45~Z26~B351~E02~*91~.JB~.LC~.OP~00~ }~H089~HY190 3~M0 2X66~M000Z11~MZ11U46~CZ11Z26~BY20S~CX76Z29~BY20S~,X74~AZ32X76~)X74~B000~,Y96~B343~M%U4Y95R~Y43~BY20~U%U4B~,X44~B343~M%U4U44W~Y67~U%U4M~U%U4B~MZ35X76~?Z36X43~BY16~ } ~ ~.IC~.CC~JOB~50~1~.EB~X43~003~U46~0~HZ54~B335~Z71~Z55~B000~B363~Z71~B351~F01~ ~.MC ~ ~E02~T00~Y00~G98~T00 ~ ~ ~ ~ ~ ~ ~ ~ ~ ~T02~ ~ ~ ~01 ~D/72X56~BG15~CG35Z38~B!71S~CG35J50~BY39S~BY07~,X52~BY07~BG15~CG35Z41~BL36S~CG35Z44~BZ54S~CG35Z47~BY94/~MG38X65~CG35Z50~BZ13/~MG38X66~CG35Z53~BY47/~MG38X67~BY47~*97~*77~/24~*80~*88~*83~BG15~CG35Z88~BP04S~CG35Z91~BZ92S~BZ54~/26~*01~MG39F73~BG15~CG35!33~BA70S~CG35!36~BB72S~BZ99~)14~)09~DG37X61~D~CT02G42~B!64S~B351~E03~B351~E04~BG15~CG35J41~BJ54S~CG35J44~BJ77S~CG35J47~BK92S~CG35J50~BJ69S~CG35J53~BY47S~B!71~*75~*76~*72~*90~.PD~YG43X50~,085~B!71~,X51~B!71~BG15~CG35K41~BK42S~BG15~CG33G38~BK16/~DG34G33~DG33X57~BG15~B!71G33.~BK23~*74~BG15~BG15~DG35X52~D~D~BG15~BK84G33.~DG35X55~D~D~BK59~BG15~BJ77~,X50~B!71~HL35~AG43X69~MX64099~HX640E0~MG350?0~B000~BY47X681~BG15~BL00~BG15~BG15~CG35Z47~BM18S~CG35Z50~BM36S~CG35Z53~BM07S~DG380?1~BM43~DG440?1~BM43~DG450?1~L0?0195~BM43~DG460?1~BG15~CG35M77~BM81S~CG35M80~BO80S~BY51~.NL~*70~BG15~BM590?12~BO030?13~BN680?14~BO34G331~BO34G332~BO34G333~BO34G334~BO34G335~BO34G336~MG49G35~BO34~BO34G330~BO34G334~BO34G338~MG52G35~BO34~BO34G330~BO34G331~BO34G332~MG55G35~DG330?2~BG15~BG15~CG35M77~BM59/~BG15~DG330?3~BG15~BM43~BG15~CG35M77~BY47/~,0?3~BY47~BG15~BF23~BG15~CG35Q14~BR01S~CG35Q17~BQ70S~CG35Q20~BR47S~CG35Z44~BP72/~BG15~BP12~CG35Q23~BA14S~CG35Q26~BP12S~CG35Q29~BQ30S~BP12~/19~/06~/13~/16~/11~.LR~BG15~CG35Q69~BQ59S~DG350?9~D~D~BZ54~,0A1~BQ30~.RI~BG15~CG35M77~BQ70/~BG15~DG330A5~BP12~BG15~CG35R43~BR25/~,0A2~BP12~CG35R46~BR01/~BP12~/08~*14~BG15~CG35?17~B?30S~CG35?20~B?45S~CG35?23~B?56S~CG35?26~B?67S~CG35?29~B?78S~BP16~/25~/32~/02~/31~/30~M?93F20~BC94~BR47~M?98F20~B?37~MA03F20~B?37~MA08F20~B?37~MA13F20~B?37~01610~02605~03103~03405~03905~MA69F20~BC94~BG15~CG35Q26~BP16/~BG15~CG35M77~BP12S~,0?8~BP16~01005~BG15~CG35B65~BA98S~CG35B68~BB09/~MG35B71~BA70~CG33G56~B!03U~BF23~CB71B65~BB48/~YG430?2~BB55~YG430?3~,0?1~BA70~*20~*15~ ~BG15~MG57G07~CG33G56~BC07U~BF23~,0?2~BB72~CG35C87~BC27/~,0A4~BB72~CG35C90~BC47/~,0A5~BB72~CG35C93~BB72S~CG35C84~BB72S~MG39G07~B!03~$32~*26~*33~*13~HF00~BG15~DF18D17~D~D~H0940?0~MG59F22~BE16F191~BG15~BE97G33.~BD89~DG330!0~BD89~DG340!1~BD89~DG350!2~H0940!3~BD33~HE15~CF20F22~BE73S~AG43F22~B000~BD33G33.~BG15~BE97G35@~BD89~BF01G35 ~DG350!0~YG350!0~H0940!1~BE24~BG15~BE97G33.~BE97G35@~BE73~B000~,0?4~MG60G35~BE48~00000~00~HF72~MG63099~C099X64~BF73S~C0?0G35~BF69S~H0990E0~BF34~B000~NG00~BZ54X681~BL00~YG430A0~BF69~AG43G37~BA70~BB72~HG32~B335~G35~!37~B000~ ~ ~1~B~ ~A~2~3~4~6 ~4 ~1 ~A~N~00~.~T02 ~ ~E03~Y00~Y00~G98~Y00 ~BY85~BZ22~BZ85~B!90~BJ33~BJ60~BJ88~BK28~BY00~ ~DX50Y36~BY78Y36 ~DX54L29~D~D~D~D~BM29~DL29X54~D~D~D~D~B351~E04~HZ18~MZ21099~C099X64~BY37S~HZ210E0~B000~T02~HZ84~BZ580?13~BZ660?12~BZ740?14~,X53~BZ81~,X54~BZ81~,X55~BZ81~YM94X53~B000~H!00~B!010?11~B000~V!130?22~,X56~V!250?32~,X57~D0?3!89~B!47!89 ~YM94X54~V!670A41~V!780A51~BZ97~YM94X56~B!55~YM94X57~BZ97~ ~HJ24~VJ250A21~BJ140?11~BJ21~YM94X59~B000~,X58~BJ21~HJ59~BJ560C4 ~,0A3~YM94X58~B000~HJ86~D0A0J87~BJ83J87 ~,0A0~B000~ ~HK19~VK200A01~BK200?13~VK200?31~B000~,0?7~BK16~HK85~VK440A01~BK82~D0A4L29~D~D~D~D~VK860?81~BM29L29 ~DL290A4~D~D~D~D~B000~BK98L26 ~BL30~BL10L251~BL30~)0A0~DM95L25~BK71~ ~MM98094~BL490!0 ~BL64~D0!00!0~H094~BL37~?0!0M85~D0?9M88~D~D~CM85N03~BM10S~AM88M93~SM94M85~BL80~DM93L29~D~D~D~D~SM93~BK71~HM65~MN06094~BM660!0 ~?0!0L29~YM95L29~B000~D0!00!0~H094~BM40~ ~ ~ ~A~ ~L29~0000?~L29 ~ ~E04~Y00~Y00~G98~Y00 ~BY58~BZ67~BP53~BZ870?11~BY360?1 ~BK79~BM05~YQ850A0~BY32~BP90~B351~E05~DX50Z66~BY04Z66 ~DX55Z65~D~D~D~D~D~H099Z65~BZ190?0 ~SQ880?0~VZ340?0K~BY04~D0?00?0~H099~BY92~,X59~DZ59X55~D~D~D~D~D~BY04~ ~ ~ ~CT02Z56~BY47S~,086~BY08~B!330A6 ~H0940B5~B!140!0 ~B!33~MQ890!0~H094~,0?4~B!02~V!450A01~BY32~D0A4P27~D~D~D~D~MP27P32~D0?9M04~D~D~SM04P32~VP38P32K~MP27P32~BJ17P32 ~BJ17P280~YQ850?6~DX57P34~BJ59P34 ~BJ70P342~BJ70P346~MQ90P33~BJ77~DQ91P34~BJ32~MQ92P33~MQ95094~BK300!0 ~S0!0P37~VK57P37K~SP37~YQ96P37~VK450A11~BY32~D0!00!0~H094~BJ84~VK680?81~BY32~DQ850?4~BK07~DQ850?5~BY32~VL640?31~VL720A21~VL800A01~D0?9M04~D~D~BL360?12~CM04Q99~BL91/~BL60~CM04R02~BL60S~CM04R05~BL91/~BY32~,0?5~BK87~,0?6~BK95~YQ850?4~BL03~YQ850?5~BL60~ ~D0A5Z66~BM35Z66 ~BM35Z661~DQ850?6~VM510A01~VO950A11~VM660?11~YQ850?7~VM810?21~YQ850?8~VM93X501~BN01~VP060?31~BN480?11~BO730?13~BO840?14~BN370?12~BO91~AQ85P14~BO91~D0?2Z66~BO07Z661~BO18Z662~BO29Z663~BO40Z664~BO51Z665~BO62Z666~BO91~AQ85P15~BO91~AQ85P16~BO91~AQ85P17~BO91~AQ85P18~BO91~AQ85P19~BO91~AQ85P20~BO91~AQ85P21~BO91~AQ85P22~BY08~YQ850?9~BM51~,0?9~BN01~0~0~0~0~0~0~0~0~0~ ~ ~00000~HP52~YQ850A1~B000~HP86~MP89099~C099X64~BY47S~HP890E0~B000~T02~MR08094~C094R11~BQ29S~C0!0Q92~Q094~BQ77T~BP97~BQ45P140~BQ77X671~BQ61P210~BQ77X651~BY51P220~BY51X66 ~,X60~BY51~A~33D~.~0~4~1~P32~ ~080~100~132~P22~P14 ~ ~E05~Y00~Y00~G98~Y00 ~DX56Q64~BY72Q644~BY43Q648~BY54Q642~BY65Q646~BY72~DC87N46~BY72~DC88N46~BY72~DC89N46~DX57Q64~BZ51Q646~BZ15Q644~BZ33Q648~BZ44Q642~BZ51~DC90N47~MC91N51~BZ51~DC87N47~BZ51~DC88N47~VZ66X502~DC92N48~VZ81X521~DC93N57~BQ65~N37~DX50Q64~B!28Q64 ~DX54N15~D~D~D~D~LN30N84~EN15N84~V!720861~BQ65~N61~BQ65~N88~B351~F01~H!71~BQ65~O87~B000~BQ65~N31~BQ65~N97~BQ65~N70~VJ08X501~BQ65~O63~BQ65~O21~VJ27X541~BJ76~BQ65~O33~VJ69X53B~VJ69X551~VJ69X531~BQ65~N58~BK79~BB20~C96~VK18X532~BQ65~O39~VK11X551~VK11X531~BJ58~BB20~C96~VK30X551~BK56~BQ65~O48~VK49X531~BJ58~BB20~C96~VK68X531~BJ58~BQ65~O57~BJ58~VL16X531~V!57X601~BB20~C99~BB20~D02~B351~E06~VL28X581~BM01~BQ65~O93~VL54X592~BQ65~P05~BL61~BQ65~P11~VL87X582~BQ65~P20~BQ65~P29~BL94~BQ65~P35~BQ65~N58~VM13X561~BM39~BQ65~P41~VM58X571~BQ65~P62~BM58~VM51X571~BM58~BQ65~P83~VM77X562~BQ65~Q04~BM92~VM92X572~BQ65~Q25~VK87X542~BQ65~Q46~BK87~ ~&& && && && && ~.DE.DI~.LCCTL.OP361 1 .MC~.LCORG.OP 0 0 3 3 3.MC~.DE.IS.EB~.LCDIOCS .MCDIOCSORG .OP~IODEVICES.OP~READER~PUN C H~PRINTE R~TAP E~FEATURES .OPOVERLAP .MC~***E0A~LABELDEF .OP~MIXED,~STANDARD,~CHE C K~,RDLIN~IDENT ~READERROR.OPSCAN .MC~TAPEUSE .OPINPUT .MC~TAPEUSE .OPOUTPUT.MC~RWDOPTION.OPUNLOAD.MC~RWDOPTION.OPNORWD .MC~ALTDRIVE .OPYES.MC~ ~H094~HR000!3~M0!2094~M0!2R18~BB20~R18~V0000!31~H0940!3~BQ83~ ~ }~H089~HB940 3~M0 2B41~M000C86~MC86R21~CC86D02~BB95S~CB51D05~BB95S~,B49~AD08B51~)B49~B000~,C71~B343~M%U4C70R~C18~BB95~U%U4B~,B19~B343~M%U4R19W~C42~U%U4M~U%U4B~MD11B51~?D12B18~BB91~ } ~ ~4~5~6~3~ ~2~1~ ,~.DE~.EB~B18~003~R21~0 ~ ~E06~Y00~Y00~G98~Y00 ~MG98Y00~D445Y21~B343~L%U5X50W~Y29~BR99~B08~BO44~A85~BO07~BZ81~BY43~BR99~B11~BR99~B14~D445Z04~H094T00~M0N0A84~MG980N0~B343~L%U50!0W~Z12~LA840N0~BZ50A84 ~H0940N0~C094B17~BZ50S~BY83~D445Z67~D445Z72~U%U5M~U%U5R~B351~E07~H!96~V!450?22~V!210A01~V!130?31~B!93~B!97~B!93~V!370?31~BJ12~B!93~B!97~B!93~V!730A01~V!650?31~B!93~B!97~B!93~V!890?31~BJ12~B!93~B!97~B000~HM04~MB18L71~BJ23~HM04~MB19L71~MB20M29~VJ420A01~BJ65~VJ650A11~VJ650?32~MB21M29~MB26M44~BM05~BN47~BO44~N77~VK190A01~AB27M44~D0?9M34~D~D~MB29~BL12~D0A4M39~D~D~D~D~D~D~D~MB29~VA490A11~AB27M44~SM34M39~YB30M39~CM34M39~BK45U~BK90/~AB27M44~BL12M290~SB27M34~YB30M34~SM49~MM44M49~BM89~BR99~B33~SM49~MM34M49~BM89~BL64M290~BO44~M65~BO44~M71~BM01~BM05~BN62~BO44~N77~MB19L71~BL12~B000~HM26~AB27M28~MM28N82~B000~O0~0~ ~ ~ ~ ~ ~ , ~ , G.MC.OP1,1.MC~HN46~LO06M64~EM49M64~MB36089~H0890 3~BN140 30~HN420 1~BO44~N42~B000~HN61~MM280D5~B000~HN76~MM280D7~B000~ LI .LCDA .OP~&& && && && && ~HO40~MO43099~C099X64~BY55S~HO430E0~B000~T02~H094~HO790!3~M0!2094~M0!2O97~BR99~O97~V0000!31~H0940!3~BO62~ ~ }~H089~H?730 3~M0 2?20~M000A83~MA83P00~CA83B14~B?74S~C?30B39~B?74S~,?28~AB42?30~)?28~B000~,A68~B343~M%U4A67R~?97~B?74~U%U4B~,R98~B343~M%U4O98W~A21~U%U4M~U%U4B~MB45?30~?B20R97~B?70~MM39M34~MB21M44~BL12~ } ~ ~ ~.LCORG.OP .MC~.DA~.DE~.EB~X50~N~B~0~1~00000~A~00~ ~ X~M46~R97~003~P00 ~ ~E07~T00~T00~G98~T00 ~HA59T22~HA51G46~,G96~BA34~HA51200~BE15~F84~BA16~BT82~BK80~BT36~BA60~O04~D445T69~U%U5R~/299~B351~F01~M0?0O27~BA60~O13~BV210?11~BU310?13~BU500?14~BA60~O43~BJ14~BA60~O55~VU57G461~BJ14~BA60~O79~D0?2P02~BU91P02 ~BJ14P020~BA60~O88~BJ14~BV100?14~MF85P02~BU80~MF86P02~BU80~VV400?22~BA60~P06~BV47~BA60~P39~D0?2P71~BA60~P57~D0?3P89~BV83P89 ~BA60~P75~VW030A41~VW140A51~BW21~BA60~P93~BW21~BA60~Q11~VW330A01~BW81~BA60~Q29~VW520A11~BW59~BA60~Q50~BA60~Q59~D0A4R94~D~D~D~D~BY95~VW930A21~B!86~VX050?2B~,R16~BA60~Q92~)R16~VX430A31~VY350?22~BA60~R31~BY35~VX580?22~BA60~R40~D0D1R60~D~D~BX94R58 ~CR60F89~BX94S~BA60~R46~BA60~R64~)N87~MT28R94~BY310C8 ~,N87~M0C8R94~BY95~BY540A6 ~M0B5R88~BY65~MF90R88~MR88~BA60~R96~H094R78~BZ21~VZ680?11~B!13~HZ20~H094R89~BZ21~BE15~R78~B000~HZ28~B0000!1 ~D0!1Z67~Y0!1Z67~BE15~Z67~H0940!1~BZ25~ ~V!130?3B~D0C0A08~D~D~D~D~B!13A04 ~BE15~?07~H094A03~BZ21~V!480?3B~V!480A31~B!79~MF93?10~)N87~B!65~B!330C3 ~D0C3?10~D~D~BE15~?07~BE15~?10~BE15~P05~D0?9Q88~D~D~BA60~Q74~BJ140D6 ~BJ49~BJ880D4 ~D0D5?28~D~Y0D5?28~Y~BA60~?11~BJ88~D0D5?49~D~Y0D5?49~Y~D0D7?58~D~Y0D7?58~Y~BA60~?32~VK260A01~VK260?31~BK260?13~M0?0?79~BA60~?62~VK760?22~VK620A01~VK620?31~BK620?13~BK76~M0?0A00~BA60~?83~BT44~D0?4N88~BL06N88 ~MF96A15~BN89~VL250?92~MF99A15~BN89~VL370?41~BL48~MG02A15~BN89~VL670?52~MG05A15~BN89~D0?5N88~BL93N88 ~MG08A15~BN89~VM120A02~MG11A15~BN89~VM310?62~MG14A15~BN89~VM500A12~MG17A15~BN89~VM690?42~MG20A15~BN89~VM810?61~BM92~MG23A15~BN89~VN110?72~MG26A15~BN89~VN230?51~BN34~MG29A15~BN89~D0?6N88~BN60N88 ~MG32A15~BN89~VT48N871~MG35A15~BN89~,N87~BT48~ ~ ~HO03~BA60~A10~B000~.DE.IE.EB~.LCDTF.OP I .MCFILETYPE .OP~PRINTER .MC~READER.MCCOBOL .OPYES.MC~PUNCH .MC~CARDPOC .OP .MC~TAP E ,INPUT .MCCOBOL .OPYES.MC~TAP E ,OUTPUT.MC~CHANDRIVE.OP .MC~ALTTAPE .OP .MC~REWIND.OPUNLOAD.MC~REWIND.OPNORWD .MC~RECFORM .OPBLOCKE D~,VARIABLE~.MCBLOCKSIZE.OP~SIZEREC .OP .MC~TYPELABEL.OPSTANDARD .MCCHECKLABEL .OP~IDENT .MC~ALL.MC~REELSEQ .OP .MC~SERIALNUM.OP~.MC~ ~ ~HEADER.OP~ ,~ ~IOAREAS .OP LI .MC~IOAREAS .OP LI , LI .MC~IOAREAS .OP LI .MC~WORKAREA .OP L .MC~ ~*** ~HA59~MG98250~H099202~D445A48~B343~L%U5200R~T52~B000~H094~HA950!3~M0!2094~M0!2B13~BE15~B13~V0000!31~H0940!3~BA78~ ~ }~H089~HE890 3~M0 2E36~M000F81~MF81B16~CF81G38~BE90S~CE46G41~BE90S~,E44~AG44E46~)E44~B000~,F66~B343~M%U4F65R~F13~BE90~U%U4B~,E14~B343~M%U4B14W~F37~U%U4M~U%U4B~HE46B16~?G45E13~BE86~ } ~ ~.DT~1~4~001~.~999~E0B~E0C~E04~E0E~E0F~E0G~E0H~E0I~E1?~E1A~E1B~E1C~E1D~E99~.EB~E13~003~0~ } ~ ~F01~T00~T00~G98~T00 ~B?84~CR69C91~BT00/~BA02~B?84~CR69?21~BT51/~BA02~BA17~?21~BU74~CR69?24~BT78/~BA02~BA17~?24~BU74~CR69?27~BV34S~CR69?06~BO54S~CR69?00~BO89S~CR69?03~BP61S~CR69?09~BN67S~CR69?18~BQ33S~CR69?30~BU89S~CR69?33~BT20S~BA02~MR69R97~BT20~B?84~CR69?80~BV23S~B363~?36~B363~?30~BV49~B363~?83~BU74~B363~?36~BA02~B?84~CR67C92~B!90T~B!60R69#~CR68C94~B!60S~CR69?39~B!60S~CR69?42~B!60S~CR69?45~BY83S~CR68C96~BX55S~CR68C98~BX07S~CR69?48~BY38S~BY20R69%~BX70R69)~BW93R67 ~CR69R88~BW93S~BX26~BA85~D24~R69~BV45~B363~?58~BN36~BA02~BV45~BJ34~B363~?61~B363~?51~MC99?65~BT24~BJ34~B363~?61~BV41~BW93?520~SD00?55~VY04?55K~YD01?55~BW93~C?55D04~BX93S~BW93~MD05?52~AD00?55~BX85~BA85~D24~?58~B?84~BA85~D24~R69~BA85~D24~?48~MD05R70~BV45~B?84~CD24D27~BZ61/~BZ43R69#~CR68C94~BZ43S~CR69?39~BZ43S~CR69?42~B!49/~B363~?64~B363~?45~B!79~CR69C88~BZ97/~BA85~D24~?45~BA85~D24~R91~BW93~CR68C98~B!35/~B363~?58~BN36~B363~?45~BA02~BV45~BA85~D24~?45~BV49~B363~?45~BV49~CD24D27~BW93/~B363~?64~MD05?65~BV41~MR69?68~B?84~BJ23R69%~BA85~D24~?68~BV49~M?71R69~BJ09~HM98~BK58R701~CD24D27~BM74S~BM62?520~C?55D27~BK21S~BJ94D31 ~BK06D33%~CD33?45~BK21/~B363~?06~BM99~BJ78~BK51?650~MC99?65~B363~?74~BN36~BM74~B363~?77~MC99R70~CD24D27~BK47S~NL04~CD33C88~BM47S~MD06K77~BL34~CD33C88~BL34/~B363~?64~B363~R91~BM40~CD33?45~BL90S~BL90D33#~CD32C94~BL90S~CD33?39~BL90S~CD33?42~BM47/~B363~?64~B363~D33~CD33?45~BM24/~BM99~BL97~BM99~CD24D27~BK47S~B363~?74~B363~D33~BM99~BK58~BM47D33)~BK21~MC99?52~MD07K77~MD27?55~BM98~HN35~PD34D31~MD01~HD21~SD08D24~YD01D24~BN35~HN66~BN63D31 ~B363~D33~BM99~BN40~BN66~BA02~B?84~CR69O53~BO33S~CR69R91~BO22S~BO11R69%~BN67~MR88R69~BN67~MR94R69~BU74~B?84~MO50R69~BU74~*10~*10~CR95D09~BU74U~CR95D10~BU74T~B363~R88~BT20~BA02~B?84~B?84~CR67D09~BP33U~CR67D10~BP33T~BA02~BO97~CR69R73~BO97S~CR69R76~BO97S~BT24~BA02~B?84~CR67D09~BP93U~CR67D11~BP61U~CR69R79~BP65S~CR69R82~BP65S~CR69R85~BP65S~BT24~B335~?12~R56~B?84~CR69?15~BR08/~B?84~B363~R52~BA02~B?84~BQ90R69%~BR01~MR88R69~BR26~B363~?12~B363~?18~B363~?12~BT24~CR69R55~BQ70S~BA02~B?84~BR26~)15~ )~BA02~B351~F02~ ~ ~*20~*15~*33~*26~*13~.SB~ #~*16~ ~)14~)09~ %~)05~ ~*28~)08~*24~#DC~)19~*18~$32~)IF~.GE~.LE~$30~.SW~.KV~0~000~.PS~.EX~.RL~0~ ~.SB~.CO~.CS~*38~/XT~HA01~B335~R69~R56~BA01~HA16~B363~R69~BA16~H089~MD12A84~M089A83~M0 2A49~B?84~CA52R69~BA70S~BA02A84P~BA42~MA83089~B0 3~ ~ ~H089~HC080 6~M0 2B30~MB30B90~M0 5B76~AD15B30~BC09~ ~C85~MD21089~HB690 0~HB720 3~MC85089~,0 0~M000000~M0000 2~)0 0~AD15000~MD21089~HD210 3~B000~H089~M0 2C23~M000C85~QC71~MD30C85~CC71D18~BC68/~M0 5C63~MC85C63~B0 6~A000C85~QC71~BC38~ ~A0Q~*01~?~$2~$3~$1~0~A~ ~00!~1~B~N~C~A~R~S~P~003~D21~D31~000~000~D31 ~ ~F02~T00~T00~G98~T00 ~BL87~X70~BL72~BL54~CX73X76~BT89S~CX73Z07~BY08S~CX73X98~BT73/~MX73Y04~BL72~BL87~Y04~BT07~CX73Y01~BT51S~BT07~BL54~BL72~BL54~CX73X79~BU24/~BL87~X82~BT97~CX73X85~BU90/~BZ11~M81~BL54~CX73X88~BU13S~CX73X82~BU82/~BZ11~M75~BT97~BL72~BU43~CX73X91~BX41/~BL54~CX73X82~BV50/~BZ11~M81~BZ11~M78~BZ11~M84~B!55~M84~BT97~CX73X85~BX27/~B!55~M81~MM84M81~MM87M84~B!55~M78~BL54~CX73X88~BW90/~B!55~M75~BL54~CX73X82~BW76/~BZ11~M81~BZ11~M78~BW65X920~MM61X92~B363~Y07~BZ11~M75~BT97~BJ60~M75~X73~BW13~CX73Y07~BX13/~MM62X92~BV90~BJ60~M78~X73~BV90~BJ60~M84~X73~BV02~CX73X95~BT11S~BT93~BL72~B351~F03~*01~ ~)IF~.PS~.EX~.RL~.CO~.CS~0~.KV~*24~#DC~ ~ %~BL72~MX73Z10~BL54~BT15X71)~BY51X73&~BY51X73-~BY08~BY08Z10)~VY71Z092~BY83~CZ08M63~BY08T~BY19X73&~MZ04X73~BY08~.UM~)05~ ~H089~H!510 3~M0 2Z35~CM87Z35~B!48S~M0 2Z61~M0 2!28~BK77~Z61~L53~ML53Z85~ML53Z82~DZ85Z85~HL53~MM66094~ML53!14~YM67!13~M!17!54~B363~!54~C!31094~B!48S~AM68094~B!11~B!51~ ~H089~HJ590 3~M0 2!98~M0 2094~C0!0M87~BJ56S~BK77~!98~L53~ML53J29~A0!0L53~ML53J26~PJ29J29~HJ41~HJ44~DJ44J44~HM57~MM870!0~BJ59~H089~HK760 6~M0 2K05~MK05K65~M0 5K51~AM66K05~BK77~ ~L53~MM57089~HK440 0~HK470 3~ML53089~,0 0~M000000~M0000 2~)0 0~AM66000~AM66M57~B000~H089~M0 2K91~M000L53~QL39~MM60L53~CL39M71~BL36/~M0 5L31~ML53L31~B0 6~A000L53~QL39~BL06~ ~HL71~B335~X73~X57~BL71~HL86~B363~X73~BL86~H089~MM72M54~M089M53~M0 2M19~BL54~CM22X73~BM40S~BL72M54P~BM12~MM53089~B0 3~ ~ ~M88~M88~0~1~?~003~!~C~M72~P~000~000~000~000~000 ~ ~F03~T00~T00~G98~T00 ~B?59~K15~B?44~B?26~CK18Z75~BY81S~CK18Z78~BY81S~CK18K21~BT73/~MK18K27~B?44~B?59~K27~BT07~CK18K24~BT51S~CK18J64~BU20S~CK18J67~BT07/~MB16J61~BT07~B?44~B335~J70~Z79~BK34~J73~BO76~B44~J70~J82~CJ82B47~BV44/~BK34~J76~BK34~J79~MB47J85~BQ32~B44~J70~BQ32~B44~J76~BQ32~B44~J79~BQ32~B44~J85~BO76~B44~J70~J82~BW11~MJ82J88~AB17J88~BN07~B44~J88~J76~AB17J88~BN07~B44~J88~J79~AB17J88~BN07~B44~J88~J85~B363~J70~B363~J73~B?26~CK18J91~BW25S~C195J70~BW67/~B363~J94~B363~J70~CK18J97~BX54/~B335~K12~Z79~B363~K00~B363~J70~B363~K12~B?26~CK18K30~BX54/~B?44~CK18K33~BX10S~B?26~BX26~BW25~CK18K09~BY23/~CJ85B47~BY09/~MJ82J88~AB18J88~BL97~B44~J88~K06~BY23~BK34~J76~BK34~J79~B363~K03~B363~J73~B363~J76~B363~J79~CK18K09~BT07/~B363~J76~B363~J79~BT07~B?44~MK18Z72~B?26~BT15K16)~BZ24K18&~BZ24K18-~BY81~BY81Z72)~VZ44Z712~BY81~CZ70B19~BY81T~MZ69K18~BY81~.UM~ ~)19~*18~CB44B47~B!54S~BR49~B44~094~MB47J88~AB21J88~C0J1B47~B!80S~CB44J88~B!50S~AB21094~B!08~NJ35~B?44~B!73J610~B351~F04~B351~G01~B363~J48~C!86B24~BJ10S~AB18!86~B!80~MB27!25~MB28!50~B363~0!2~B!27~B363~K21~B!54~#DC***F0A#DC*24~0~)13~)03~ ~ ~ ~ ~ ~ ~ ~/11~*36~*27~)15~.RK~001~)17~ ~*01~ ~*24~#DC~ ~.SB~ )~H089~M0 2K84~M099L90~M~M~MA88099~M~M~AB17099~BL150?0 ~M0?0K84~M0!0~M0 0~M099A88~M~M~ML90099~M~M~B0 3~ML96099~AB17094~BL410!0 ~BK78~ML93094~AB17089~BL670 0 ~BK78~ML93089~BK78~ ~A12~A52~H089~HN030 9~M0 8M96~M0 5M57~M0 2089~C0 0B47~BN00S~M089M54~BN07~M54~M57~N06~M?25089~Y0 00 0~H089~MO75M99~YM06M98~MM99M99~BN03~ ~H089~HO540 9~M0 8O50~M0 5O75~M0 2089~C0 0B47~BO55S~MO75N61~MN64O08~MO08O75~AO75~AO08O75~CO750 0~BO55T~M089O08~BR49~O08~?25~M?25089~Y0 00 0~H089~MO75O47~YN16O46~MO50O50~BO54~MB47089~MB47O75~BO44~ ~H089~HQ170 9~M0 8Q13~M0 5P83~M0 2089~C0 0B47~BQ18S~M089P33~BR49~P33~P80~YO85P79~MB31Q31~MB34089~MP33P71~C089P71~BQ18T~CP83P83~BQ07S~AB17Q31~AB18089~BP65~MQ31Q13~BQ17~MB47Q31~BQ07~ ~H089~HR480 6~M0 2Q77~MQ77R37~M0 5R23~AB37Q77~BR49~ ~?25~MB12089~HR160 0~HR190 3~M?25089~,0 0~M000000~M0000 2~)0 0~AB37000~AB37B12~B000~H089~M0 2R63~M000?25~Q?11~MB15?25~C?11B40~B?08/~M0 5?03~M?25?03~B0 6~A000?25~Q?11~BR78~ ~H?43~B335~K18~Z79~B?43~H?58~B363~K18~B?58~H089~MB41B09~M089B08~M0 2?91~B?26~C?94K18~BA95S~B?44B09P~B?84~A~B~C~D~E~F~G~H~I~J~K~L~M~N~O~P~Q~R~S~T~U~V~W~X~Y~Z~ ~?~!~.~)~$~*~-~/~,~%~#~@~&~0~1~2~3~4~5~6~7~8~9~ ~A61 ~A61 ~A61~A37 ~A37 ~A61~V~01~M~01~MB08089~B0 3~ ~ ~B48~B48~1~A~C~?~1B~J60~J24~B~001~002~003~B41~P~000~000 ~ ~F04~T00~T00~A00~T00 ~/000~H099~BT43099I~BT54099R~BT65099Z~MZ07099~BT72~H099C9F~BT72~H099C9O~BT72~H099F3W~M099S89~BY04~CW22W40~BU15S~CW22W19~BU26S~BY22~BT79~AZ08W16~BU07~BY22~B335~W25~V69~B363~W25~MW31W28~BY04~CW22W34~BU88/~BY22~B335~W28~V69~BY04~CW28W31~BV14/~MW25W28~B363~W34~BW41~W37~B363~W37~BW41~V48~B363~V48~BV80~ ~CW22W19~BU26S~BY22~BT79~BY22~B351~F05~LW280?0~LW16~LW37~LV48~H099~MZ090?0~BV49~001~)03~ ~ ~ ~000~*08~ ~.LB~H089~M0 2W91~M099X97~M~M~MA88099~M~M~AZ08099~BX220?0 ~M0?0W91~M0!0~M0 0~M099A88~M~M~MX97099~M~M~B0 3~MY03099~AZ08094~BX480!0 ~BW85~MY00094~AZ08089~BX740 0 ~BW85~MY00089~BW85~ ~A12~A52~HY21~B335~W22~V69~BY21~HY36~B363~W22~BY36~H089~MZ10Z04~M089Z03~M0 2Y69~BY04~CY72W22~BY90S~BY22Z04P~BY62~MZ03089~B0 3~ ~ ~?00~A~ ~P ~ ~ ~ ~F05~T00~T00~L99~T00 ~BO10~L59~B335~Z09~X35~AO96K17~BN77~CL62L68~BT51/~MO97L69~BN77~BN77~CL62Z05~BU23/~MO97Z06~B363~L59~B363~Z09~B363~Z12~BN95~BN77~BN95~BN77~BU74L691~BU38~MZ09L65~BU74L691~CO80O89~BU66/~BV92~BW37~BW49~BY46~BV54~BU50~CO86O89~BV22/~CO80O89~BV14/~BV92~BW37~BW64~BY46~BV54~BU98~CO80O89~BV42/~BV73~BU98~BV54~BV73~BU98~H099~BK41~MO97L70~BW86~H099~BK26~MO98L70~BW86~H099~BY46Z061~BW12~H099~B363~L59~B363~L65~B363~Z12~B0?0~H099~BZ13~B0?0~H099~MO83O80~BW75~H099~MO83O86~MO89O83~B0?0~CL73O89~B0?0S~B363~L76~B363~L73~BK18~B363~L73~BV58L701~BV77~CO86O89~BX63S~CO80O89~BV54/~BX83~CO80O89~BY35S~BV54~BY24~BK26~CL73O89~BY35S~B363~L76~B363~L73~BK18~B363~L73~B363~Z12~BX83~BN95~B351~G01~MO98L69~BY83Z060~MO98Z06~MZ09L65~BW37~BW49~CL62L59~BT07S~BN95~BT00~)16~0~ ~.PD~MO89K08~MO89K11~MK17K14~MS89094~HK080J2~BJ920!0 ~C0!0~Q094~CK140!0~H094~BZ93U~C0!0~C~Q094~BZ48~H0940!6~HK050J2~C094K08~BJ13S~H0940J2~C094K08~BJ13S~C0!0L65~B!19/~C0!0~C~Q094~M0!0L79~Q094~BL83~O83~L79~N!95~MO99!80~B!59~MP00!80~H0940J2~B!19~NJ81~MO99J13~MK05K08~MK05094~VJ580!41~C0!4~Q094~BJ69~C0!0~C~C~C~Q094~B!190!0 ~BJ58~MP00J13~BW45~MO99J13~B!19~ ~ ~ ~ ~001~HL45~BK52~HL45~MP03K77~BK52~HL45~MP06K77~MK77K62~CK65O89~BL46S~BN00~K77~N76~MN76089~M0 2L73~P0 30 0~HL13~HL16~DL16L16~HO92~MK77089~SP070 0~YP080 0~BL45~MO89L73~BL42~.LB~ ~ ~*09~0~0~000~.RT~ ~G98~H089~HM990 6~M0 2M28~MM28M88~M0 5M74~AP11M28~BN00~ ~N76~MO92089~HM670 0~HM700 3~MN76089~,0 0~M000000~M0000 2~)0 0~AP11000~AP11O92~B000~H089~M0 2N14~M000N76~QN62~MO95N76~CN62P14~BN59/~M0 5N54~MN76N54~B0 6~A000N76~QN62~BN29~ ~HN94~B335~L62~X35~BN94~HO09~B363~L62~BO09~H089~MP15O77~M089O76~M0 2O42~BN77~CO45L62~BO63S~BN95O77P~BO35~MO76089~B0 3~ ~ ~000~000~000~000~P16~P16~A~1~0~B~N~O86~O80~C~ ~003~O77~P ~ ~G01~T00~T11~G98~T00 ~ ~A0?~A0~G92~BT57/724~MF58T10~,H01~MF58089~/0 0~H089~VT37H011~)G99~BJ20~CT02E56~BT57/~BU56~MF59E09~CT02F10~BW52S~CT02E92~BW52S~CT02F04~BZ60S~CT02E95~BZ71S~CT02F07~BV75S~CT02E98~BP70S~B363~T02~BJ20~BT77T00)~CT02E05~BM91S~BU56E090~CT02E49~BU56/~B?63E091~BB07~CT07E52~BV64U~MF61E52~BU67F450~B363~F48~MF59F45~BU67~ME52T07~BV31~MF07E80~BJ20~BJ38~U67~ME59E86~ME59~BJ38~W44~ME59E83~BM32~BJ38~V38~ME59E83~BM32~BW22~BM32~BV38~MF64E80~BJ20~BJ38~V19~ME59E83~BJ38~X29~ME59E86~ME59F34~AF65E52~ME52E89~M~BM47~ME52E83~M~BW77~CT02F13~BY98S~MF25E80~CT02F22~BX75/~MF22E80~BJ20~BX87~CT02F25~BY64S~MF34E83~ME89E86~CT02F37~BY56/~B363~F01~B363~E83~B363~E80~B363~E86~B363~F37~BJ20~BV19~BM32~BV19~BJ20~BJ38~Y75~ME59F34~CT02F22~BX60S~BX87~BJ20~ME83E86~MF68E80~BJ38~Z37~ME59E83~ME59F34~AF65E52~ME52E89~M~BM47~BX41~MF71E80~BZ78~MF74E80~BJ20~BJ38~!98~ME59E86~CT02F19~B!20S~CT02F16~B!24/~BJ20~BJ38~J09~ME59E83~ME83F34~AF65E52~ME52E89~M~CT02F25~B!90/~BJ20~BJ38~!83~ME59F34~BM47~BX41~MF77E86~BZ96~MF77E83~B!38~HJ37~B335~T02~L20~BJ37~H099~M0?2J72~CT00F78~BJ69U~BJ73~B0?3~BJ72~HL19~MT02E59~BJ20~CT02E62~BL16/~MF79F45~AF65T05~CT05F80~BK33/~MF78T05~ME59T02~B363~E65~B363~E62~B363~E68~B363~T02~BJ20~CT02E74~BK61/~B363~T05~B363~E59~MT05E59~B363~E71~BJ20~BL19~B363~F43~B351~G02~HL97~BM62~BL87F440~B363~E83~BL87F441~B363~E86~BL87F442~B363~E89~B363~E71~BL97~HM16~MF59F44~BL34~BM16~HM16~MF79F44~BM09~HM16~MF81F44~BM09~HM16~MF82F44~BM09~HM90~B363~E65~B363~E80~B363~E68~BM90~MT02E80~BM62~BJ20~MT02E40~B363~T02~BJ20~MT02E37~BD24~E31~BD24~E28~BJ20~B363~T02~MT02E34~B363~E31~B363~E28~B363~E71~BJ20~CT00F78~BO81U~CT02E37~BO81/~MF85E80~ME37E83~BM17~B363~E05~B363~E31~B363~E28~BO63F521~BU63~MF59F52~B363~F51~BU63~CT02F55~BP00/~MF79F52~MF88E80~ME37E83~BM17~MF85E80~ME31E83~BM17~BP55F520~B363~E05~BO44~ME28E83~BM17~BU67~MT02E80~BJ20~MT02E40~BJ20~BJ20~MT02E37~BM62~B363~E37~B363~E71~BJ20~MT02E34~BJ20~BJ38~Q99~CT02F74~BR23/~MF91E80~BM62~BJ20~B363~E59~MF92E31~BC72~MF93E31~BV38~CT02E43~BR38S~CT02E46~BR71S~MF96E80~BM62~BQ77~MF85E80~ME34E83~BM17~MF99E13~BC53~BU56~BJ20~BB33~MG02E80~BD24~E25~BD24~E28~ME28E86~M~BM32~BB95~MF85E80~BD24~E31~ME31E83~BM17~MF79E09~MG05E13~BC53~BU56~B363~F28~BD24~E19~BD24~E16~BD24~E22~BC72~BJ20~BB33~MG08E80~BM62~B363~E25~BD24~E25~B363~E25~B363~E22~BD24~E22~B363~E22~B363~E71~BB95~MF85E80~ME16E83~BM17~MF81E09~MG11E13~BC53~BU56~B363~F31~B363~E28~ME25E28~M~B?77~HB94~BJ38~B58~ME59F34~ME59E83~BJ20~BJ38~B91~ME59E86~MG14E80~BM32~BJ20~BB94~HC52~BJ38~C06~ME59E83~MF34E86~MG17E80~BM32~MF34E83~MG20E80~BM17~BC52~HC71~B363~E08~BC72~BC71~HD23~MG23099~M0?0E77~Q099~B363~E77~BD130?0 ~BC83~B363~E71~BD23~H089~M0 2D84~BD40Z~AF65E02~BD89Z~CE01F59~BD71/~MG24E01~YG25E01~ME02D84~B0 3~MG28E02~BD78~JJ0~.RK~.LT~0 ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~*18~*07~*22~Z~A0~0~*01~ ~.SB~.LC~.OP~.MC~ )~ ~ ~ ~ ~ ~)01~)02~)03~)05~)06~)15~)18~*28~*27~*35~*10~*16~.P1~.P2~ ~/10~ ~.EP~0~0~.SE~.EN~0~*02~F3S~0~A0~ &~A~ -~ /~ *~XXX~A~1~?~2~3~.LB~)20~.PB~ ~ ~.PA~.PC~.IM~.PE~.P3~.PF~)15~)98~.ME~E40~J~!~SJ0 ~ ~G02~T11~T11~G92~T11 ~MT10J83~B!79~BW50K510~CT00E72~BT86U~MT02J16~B!79~CT02J77~BY20S~MJ80099~PJ14FC4~AE73J80~MJ80099~MT02FC6~AE73J80~ME74FC7~BV53K531~MK09099~BT18FC2 ~CFC2E72~BU60U~AE73K09~BU22~BM07~V35~M0 0K06~M~MK03K55~SJ88K55~VV08K55K~MJ93094~B0!0~MK09J96~M~M~ME75K53~AE73K09~BW34~ME78FC4~BU60~B363~K84~ME75K53~MJ96099~BT18FC2 ~CFC2E72~BV98U~AE73J96~BV53~BM07~W05~MJ96K09~AE73K09~M0 0J93~M~ME79K53~CFC4E78~BU97S~BU22~CT00E72~BW73U~B363~T02~BT18~CT02K37~BX16S~CT02K40~BX16S~CT02K43~BX27/~ME75K52~ME75K51~BT86~BX39K520~BW62~CT02J26~BX63S~CT02J29~BX97/~MT02J20~B363~T02~B!79~CT02J20~BX70/~BW62~CT02J74~BW62/~MK58J20~BX70~AE80T05~CT05E81~BY46/~ME72T05~MT05K76~MJ16~HY71~B!79~MT02Y71~HY71~CT02K46~BY61/~MJ83089~LK760 0~HJ83~H089~ME740 0~MT05T02~BT30~B363~J74~B363~J77~B363~J68~ME75K81~M094J38~M0!0J41~Q094~M0!0J44~M0!0J20~Q094~CJ20K46~B!15S~B363~J20~BZ81~B363~J41~B363~J44~B363~K58~MJ38094~MJ83089~M0/80!0~)0 1~ME740/8~AE83J83~BO11~H!96~B335~T02~!97~B!96~B363~J13~B351~G03~.EP~ ~ ~ ~ ~*24~#DC~ ~ ~ ~ ~ ~ ~ ~.OP~ ~.LC~.SB~001~G92~ ~ ~003~ ~ ~ ~A0Q~Z~A0~?58~J65~JA0~ 2020?99~)05~*18~)19~ )~$31~000~1~ ~.MC~ ~.SE~00~.KV~0~BC25~J47~BN37~J47~BP27~MJ47FC7~BL44?84B~PFD4FC8~SE84J80~YE85J80~BV53~PFD1FC8~ME86?84~SE73J80~BL33~AE80K15~MK15J47~M~CK15T07~BK93U~MK15T07~BK93~H094~M0!2N36~MFC4K27~CFC3E88~BM48/~ME90K26~BM67~CFC3E90~BM78/~ME88K26~ME93089~BN29~MK18089~BN330 0]~CFC40 0~BN18S~C0 0~C~Q089~BM85~CE960 0~H089~B0!3~BN36~H089~M0 2N58~M089J35~MN61J47~MK21089~MJ470 0~H089~HK21~ME740 0~CJ45E72~BO11U~VO22J47B~MJ35089~B0 3~MT10094~BO110!0 ~C0!0J47~BZ28S~C0!0~Q094~BO29~HP26~ME99094~BP020!0 ~M0!0J23~Q094~B363~J23~BO72~B363~K58~MF02K21~ME74J65~BP26~HP26~MF05094~BO72~HP70~SE84J96~YE85J96~MJ96099~BP70~HP70~SE73J96~BP53~]~0056D33~/10~0254D33~ )~5402B22~ %~1010?59~ *~1212?59~ -~1212?59~ &~1010?59~ /~0706?59~ **~1442D26~*10~1442D26~*16~0505A57~.UM~5050D33~*18~0050D08~)19~.LE2020A06~$20~2020A06~.LE~.SW2020?99~%SW~2020?99~.SW~.GE2020A06~$21~2020A06~.GE~ #2020A06~.NE~2020A06~ #~0056D01~.KV~5050D33~)05~1918A93~$30~0050D08~$32~0050D08~$31~MF08?98~BP42~MFD0J71~BN37~FC7~N?95~BN37~FD3~B?98~MF09?84~MK09099~MF11K15~CFC4K49~BA46S~MJ96099~MJ86FC4~MF14?98~B?66~BP71~MF17J71~BN37~K12~BN37~FD0~MF09?84~BL69~MK09099~MJ99FC4~BP71~PFC8FC5~BL58~MJ96099~VB49FC62~CFC5F18~BD33/~BP71~PFD4FD1~PFC8FC5~BL26~ME79K85~MF20K52~ME75K53~MF23J80~BW50K810~ME79K81~B363~K79~BW50~H089~M0 2C85~BC41Z~AE80K24~BC90Z~CK23E79~BC72/~ME72K23~YF24K23~MK24C85~B0 3~MF27K24~BC79~ME75K85~MJ96K09~AE73K09~BD33~MF11K15~MF30J96~MJ96099~CFC4K37~BD87/~BN37~FC7~BN37~FD3~MF33K21~ME74J65~C099K09~BE24S~MFC4J20~B363~J20~AE73099~BD87~PFC2F35~BB71K851~SK09J80~AE73J80~YE85J80~BV46F35)~BV53~A~C~ ~1~.KV~0~A~?~1H~F~ ~N~$1~%1~K34~ ~J65~J65~J74~L69~B~A0~K86~ -~Z~00~001~&~SA1~003~J65 ~ ~G03~T10~T10~G92~T10 ~BY26~CT02D92~BT37/~ME29D56~BX99~BW42E230~MD95099~MT02EH7~AE30D95~ME31EH8~BV10E241~ME15099~BT10EH3 ~CEH3E32~BU19U~AE30E15~BT81~BY61~U99~M0 0E12~ME09E26~SD97E26~VU73E26K~ME02094~MEH5D47~B0!0~ME15E05~M~ME33E24~AE30E15~BW02~M?44EH5~BU19~ME33E24~ME05099~CE05D39~BV56S~BT10EH3 ~CEH3E32~BV67U~AE30E05~BV10~BY61~V74~ME05E15~AE30E15~M0 0E02~ME34E24~CEH5B14~BU55S~CEH5B34~BU55S~CEH5?44~BU55S~BT81~CT00E32~BW65U~B363~T02~BT10~CT02A74~BX13S~CT02A24~BX13S~CT02A34~BX13S~CT02A04~BX24/~ME33E23~BT45~BX68E220~CT02B14~BT45S~CT02B04~BT45S~CT02B24~BT45S~CT02D62~BX92S~CT02D50~BW54/~MT02D56~B363~T02~BY26~CT02D56~BX99/~BW54~HY43~B335~T02~Y44~BY43~B363~Y60~B351~G04~.EP~H094~M0!2Z30~ME18089~BZ270 0]~CEH50 0~BZ12S~C0 0~C~Q089~BY79~CE370 0~H089~B0!3~BZ30~H089~M0 2Z52~M089D53~MZ55D65~ME21089~MD650 0~H089~HE21~ME310 0~MD53089~B0 3~H!75~M094D53~ME40094~B!440!0 ~M0!0D59~Q094~B363~D59~B!14~B363~E29~ME43E21~ME31D83~MD53094~B!75~HJ04~SE44E05~YE45E05~ME05099~BJ04~HJ04~SE30E05~B!87~SE47E05~YE45E05~ME05099~MEI7D89~BZ31~EI4~BZ96~CD47B24~BK24/~BB69~EH8~MEI1D56~MD56EH8~ME50EI1~PF?1EI2~SE51D95~YE45D95~BV10~BB69~EH8~BB69~EI1~PEI8EH6~SE47D95~YE45D95~BV10~B!76~BB69~EH8~PEI2EH6~SE44D95~YE45D95~BV10~PEI5EH6~BK06~ME05099~CEG8E53~BP22/~BB35~SE47E05~YE45E05~ME05099~MEI7D89~BZ31~EH8~BZ31~EI4~BC50~EI7~BZ31~EI7~BZ96~BC17~BZ31~EI7~BC50~EI7~BZ31~EI7~ME56D89~BZ96~MEI7D56~MD56EH8~ME56EI1~PEI8EI2~BK81~B!76~BC17~BK99~CD42D39~BP22S~ME33D44~BC02~D42~BP22~ME05099~MEH8D56~MD56EH5~ME56EH8~BB35~BV10~CD47B14~BN66/~B!76~BB69~EH8~BK74~CD47B24~BN51/~ME33D44~B!76~BZ31~EH8~ME56D89~BZ31~D42~BZ96~BK99~BO59D440~ME34D44~CD42D39~BO59S~BB69~D42~MD39D42~ME34E22~ME59D95~ME31E86~ME62E05~ME64E24~BV10~BP30~CE05D39~BO66S~BO87~BB35~BP30~BV10~HP62~BJ05~PEH9EH6~SE30D95~YE45D95~BP62~B!76~CD47?64~BQ06S~BB69~EH8~BK74~B!76~CD47?64~BP79S~BZ31~EH8~BZ31~EI4~ME67D89~BZ96~BK74~BJ05~ME34D43~CEH5?74~BQ90/~BJ05~PEH9EH6~SE30D95~YE45D95~ME33D43~BY26~MT02EI7~AE30D95~ME31EI8~CEI7?64~BR53/~BR61D430~PEI5EI2~PEH9EH6~BK81~BR35D430~ME56D89~BZ31~EI1~BC50~EI1~BZ31~EI1~BZ96~BR35~BJ05~B363~EH8~B363~EI1~BK74~BP30~ME64E24~BW42~]~0056?19~.EE~5251P90~$32~5252P63~$31~1918P22~$30~5500Q35~ %~0055P22~ )~5656N03~)19~5800N39~.IM~0056P18~.RK~5656R97~*18~0015L10~/10~2056M61~*10~2056M61~*16~0056P22~)05~5800J20~)17~5800K63~.EN~0056M73~*25~0060O18~.PD~0060P22~*02~0056O98~.KV~HB68~ME33E22~CD42D39~BB65/~BC50~D42~BB68~H094~ME70D89~M0!2B93~BZ31~ ~BZ96~B0!3~H094~ME73D89~BB80~HC49~MEI1D89~BZ31~EH8~BZ31~EI4~BZ96~BC49~H089~M0 2D18~BC66Z~AE74D36~BD23Z~BC98D350~BC98D351~BD05~ME75D35~YE75D35~MD36D18~B0 3~ME78D36~BD12~JS0~000~000~0~0~ ~#DC~ ~ ~ ~*24~ ~ ~.OP~ ~.LC~001~ ~003~ ~ ~B34~D830~01~ ~.MC~C~ ~A~1~0~ ~D92~D83~F~ ~1B~.EN~I~*1~.IM~001~003~01~.EQ~.LB~)20~A~S~SS1NNNNNN ~ ~G04~T10~T10~G92~T10 ~BQ02~CT02C97~BT10/~B363~T02~BQ02~MD72D08~BT66D370~B363~D17~MD72D37~CT02D71~BT90S~CT02D03~BU24/~MT02D23~B363~T02~BQ02~CT02D23~BT97/~BT26~CT02D29~BU47/~MD35D23~BT97~MD75094~C0!0T02~BU86S~C0!0~Q094~BT330!0]~BU54~CD780!0~H094~M0!0094~B0!0~MT02C28~BQ02~CT02C76~BV46/~MT02C28~B?42~BT33~MT02C31~B?61~BT33~MT02C28~BQ02~BV46~BQ20~CT02D65~BW11S~MD81C28~BA70~BQ82~BT37~MT02C28~BX45~MD82D08~MT02C28~BQ20~MC88D68~CT02C79~BX45S~CT02C82~BX45S~BA70~B363~C94~B363~D68~B363~C91~BQ82~BT37D070~MD72D07~CT05 02~BX34U~MT05 02~MD14T05~BT37~BQ02~BN84~X56~BW71~BQ02~MT02C31~BQ02~CT02D00~BT37/~MT02C28~BQ02~MT02C34~B?76~BQ02~CT00D83~BT37U~BX64~MT02C28~BQ02~CT00D83~BT37U~MT02C31~B?61~BY36~MT02C28~BQ02~MT02C31~BQ02~MT02C34~B?76~BT33~BQ02~MT02D20~BQ02~CT02D86~BJ71S~CT02D89~BL01S~MC46C28~BA70~B363~D20~CC28D92~BZ96S~CC28D95~B!07S~BR72~008~BT37~BR72~003~BT37~BR72~006~BT37~MD72D36~MT02C28~BQ02~MT02C31~BQ02~CT02C79~B!88/~MD82D36~BQ02~MD98C28~MT02C34~BQ02~CT02D40~BJ24S~BJ16D361~B?61~BT37~B?76~BT37~B363~D29~B363~T02~B363~D32~BQ02~B363~T02~B363~D35~BQ02~BJ00~MT02C28~BA70~BQ02~BQ02~BQ02~BQ02~BQ02~MT02C40~BQ02~BQ02~MT02C43~BQ02~MT02C31~BQ02~MT02C37~B363~C31~B363~D20~B363~C37~B363~C40~B363~C43~BQ02~CT02D35~BK81/~BT26~MT02C28~BA70~BQ02~MT02C31~BQ02~BQ02~BQ02~BQ02~BQ02~MT02C40~BQ02~BQ02~MT02C43~BQ02~BK35~MT02C28~BQ02~BN84~L91~BA70~B363~D68~B363~T02~BQ02~B363~T02~BQ02~CT02D43~BM40/~BQ02~B363~T02~BQ02~CT02D46~BM97S~CT02D49~BN05/~BQ02~B363~T02~B363~D35~BT37~BQ02~BM63~B363~C88~BM86~CT07E00~BN70S~B363~D03~B363~D06~MT07D26~ME01D24~B363~D26~B363~D03~B363~D62~B351~G05~H099~M0?2O18~CT00D83~BO15U~BO19~B0?3~BO18~HQ01~MT02D68~BQ02~CT02D56~BP98/~BO82D080~B363~C85~ME03D08~MT05D14~MD11T05~MD82D37~AE04T05~CT05E05~BP15/~MD83T05~MD68T02~B363~D29~B363~D56~B363~D32~B363~T02~BQ02~CT02D59~BP43/~B363~T05~B363~D68~MT05D68~B363~D35~BQ02~BQ01~HQ19~B335~T02~N16~BQ19~HQ81~ME08094~ME11C94~BQ02~BN84~Q71~LD680!0~H094~AE04C94~BQ42~ME120!0~BQ81~HR33~ME08094~BR230!0 ~M0!0D26~Q094~B363~D26~BQ93~B363~D35~BR33~ME15094~BQ02~CT02D35~BT33S~MT020!0~H094~BR41~H099~ME11D52~ME18094~C0?2D52~B?31S~M0!0D26~Q094~B363~D26~AE04D52~BR90~B363~D35~B0?3~H?60~MD72D53~BA06~B?60~H?60~MD82D53~B?53~H?60~ME19D53~B?53~H?60~ME20D53~B?53~HA69~BA70~BA59D530~B363~C31~BA59D531~B363~C34~BA59D532~B363~C37~B363~D35~BA69~HA98~B363~D29~B363~C28~B363~D32~BA98~]~T26.DY~T26.SE~V31)99~V31.XF~Y67.RT~R34.LT~L73)30~Z04*18~V61*36~V61*17~V61*22~Y29)14~Y67)13~V08)11~X60)10~Y29)09~!18)08~W29)07~W22)04~V76)20~V61.LB~ ~ ~ ~ ~ ~ ~ ~ ~ ~*30~*28~*23~.DY~000~.VN~000~*01~*11~#DC~#ZA~00~I0?~ ~.SE~ ~ ~ ~.LC~.OP~.MC~0~0~*22~*38~*40~*35~000~0~.SB~ )~.EP~*03~ ~*24~0~C25~ ~)20~1~A~.P1~.P2~.PC~.PE~.WF~A0~Z~10~A~?~G92~000~ ~C73~C73~2~3 ~ ~G05~T00~T00~G97~T00 ~M?08A31~BT18~B363~A34~B335~A34~K96~CA34A40~BT11/~B335~A37~K96~CA37A52~B!06S~BV72~V54~B335~A34~L10~CA34A40~BU14S~CA34A58~BJ88S~M?11T10~BL17~B335~A37~L10~BV72~U35~BT69~CA37?14~BJ18S~CA36?16~BJ18S~CA37?19~BJ18S~CA37A55~BZ18S~CA37A52~BZ40S~CA37?22~BJ18S~CA37?25~BJ18S~CA37A61~BX48S~CA37A64~BX21S~M?28T10~BL17~B363~A34~B363~A37~BT18~H099~M0?2W29~M099A70~BW78A35$~BW78A35%~CA37?31~BW78S~BW30A35.~BW29~CA37?33~BW78S~CA37?35~BW78S~CA37?37~BW78S~CA37?39~BW26/~MA37A67~M?42A73~BL28~BJ40~A75~MA31A28~MA70099~B0?3~M?45A73~BL28~MB43A96~M~BP17~BT69~M?48A73~BL28~BK11~X78~CA37A55~BY08S~BJ40~B57~CA37A52~BU24/~BM49~B67~B!06~M?51A73~BL28~MB54A96~MB65A93~BP17~BP91~BK11~Y75~CA37A52~BY75/~M?54A73~BL28~BY86~BM49~B67~BT00~MA61B34~M?55B41~BM49~B67~BM49~B31~BT00~M?58A73~BL28~MB54A96~BY37~M?61A73~BL28~MB43A96~BP91~MA61B34~M?55B41~BJ40~B32~BK11~Y75~CA37A52~BZ40S~BU24~M?64A73~BL28~BK11~!36~CA37A55~B!54S~BM49~B31~M?67A31~BT62~M?70A73~BL28~MB54A93~MB43A96~MA64B34~MA93B43~MA96B54~BM49~B45~BM49~B31~BT00~M?73A73~BL28~BJ40~B06~BT69~H099~M0?2J65~MA31089~,0 1~PJ680 1~H089~C?160 0~HA31~B0?3~BJ96~BT69~HK10~BJ40~A98~BK10~H094~M0!2K95~B335~A34~L10~CA34A40~BK65/~B335~A37~L10~M?76T10~B0!3~CA34A58~BK85/~BJ96~BK22~M?79T10~B0!3~B363~A49~B351~G06~M?82T10~BM49~B67~BT00~HM11~MA73094~MA370!3~C?850!3~H094~B335~A22~L10~CA22A46~BL94S~MA220!6~H094~BL57~M?550!4~M?88T10~BM11~]~ #.NE~ #~.SW%SW~.SW~$21.GE~$21~$20.LE~$20~H099~M0?2094~C?850!0~H094~BN64~M0!6A19~Q094~CA19?91~BM75S~B363~A19~CA19A58~BN33/~BO140!4 ~BN720!41~BO070!4 ~VN530!41~BM75~)0!4~B363~A46~BM750!5.~B363~A40~C0!6?94~BO18S~C0!6?97~BO29S~BM75~B363~A46~B0?3~MA00A19~BO36~MA03A19~B363~A19~B363~A43~M0J2A19~B363~A19~M0J5A19~B363~A19~BR43~A19~B363~A19~MA190J2~M?910J5~MA520!6~BN57~HP90~MA31089~BP870 0]~C0 0A93~BP75/~C0 0~Q094~C0!3A61~BP75S~MA960 0~C0 0~Q089~BP28~BP90~HQ38~MA28089~MA960 0~C0 0~Q089~M0 3A25~BQ39~MA250 3~BQ38~HR42~CA24A05~BQ66/~MA07A24~BR39~CA24A07~BQ89/~MA05A24~BR39~MA10094~BR390!0]~C0!0A25~Q094~BR32S~C0!1~Q094~BQ96~M0!0A25~BR42~H089~M0 2?01~AA11A16~BR81A150~CA15A12~BR88/~MA13A15~YA13A15~MA16?01~B0 3~B67~T11~ **~ ~.SB~)97~)98~V54~ #~LE~SW~NE~GE~A74~B31~B56~B45~B31~ ~B45~B31~B31~B67~B45~B05~V54~T11~K96~ ~T18~...~.LE~.GE~$20~$21~$1~%1~M48~A~1~S~SS0~ ~ ~ ~ ~ ~ ~.LC~.OP~.MC~.EP~.IM~)20~.SE~.LB~.EQ~ ~ ~ ~ ~ ....SE ] ~ ~G06~T00~T00~G92~T00 ~MA00A93~MA03B08~MA04K52~MA04K72~BT39~B363~B17~B335~B17~?72~CB17B50~BT32/~B335~B20~?72~BU95~U44~B335~B17~?86~CB17B50~BU11S~MA07T31~BO01~B335~B20~?86~CB20A68~BU62S~BU95~U84~BT78~B363~B17~B363~B20~BT39~MA10T31~MA13B02~BW16~BJ49~MA16T31~BO01~H099~M0?2V96~M099B38~CB20B29~BV47/~MA19B02~BW16~MB38099~B0?3~CB20B26~BV85/~BV74A921~MA20A93~MA23B02~BV32~BV97B18 ~BV96~BV93B20#~MA25A93~BV74~HX44~MB02094~MB200!3~B335~A80~?86~CA80B53~BW71S~MA800!6~H094~BW34~MA260!4~CB02A29~BX01/~CA320!0~HB05~MB02094~MB08099~,0?1~P0!10?1~H099~CA340?0~HB08~BX44~H099~M0?2094~CA320!0~H094~BX790!5.~BY80~C0!6A37~Q094~BX79S~BX56~M0!6B23~Q094~CB23A40~BY41S~CB23A37~BY41S~B363~B23~BZ070!4 ~VY610!41~BX99~)0!4~BX990!5.~B363~B53~B363~B50~)0!4~C0!6A99~BZ18S~BX99~B363~B53~B0?3~B363~B35~B363~B56~M0J2B23~B363~B23~M0J8B23~B363~B23~B363~B53~MA400J2~MB350!6~BY80~HJ48~H099~CA340?0~C~H099~M0?0B11~MB11!22~M!25B14~CB14A71~BJ45S~M089099~C0?0~Q099~C0?3B29~B!45/~C0B5~Q099~CA460?0~H099~C0?3B14~BJ08S~C0?0~Q099~B!45~C0?00!0~BJ45/~MA470?6~M0?6~MB11J44~MA71J44~BJ48~MC15B41~MC18B44~V?46B432~VM73B41B~MB08089~MA50A89~BL780 0]~C0 0~Q089~C0 0B44~BJ93/~BL530 0]~C0 0~Q089~BK210 1.~AA51A89~VZ850 9B~C0 9B41~BL12S~VZ850/2B~C0/2B41~BK21/~BL120 3&~C0 3A77~BL19/~AA51A89~BL64A901~BL78A930~MA20A90~MA89A74~BK21~AA51A89~BL78~MA74A89~MA52A93~MA52A90~MB08089~C0 0~Q089~CA89A55~BO08S~C0 3A68~BL92/~MB590 3~MA400/2~C0 0B44~BM62S~C0 0~Q089~BM38~MB410 0~BO08~MA20A91~MB08089~BJ790 0]~C0 0~Q089~C0 3B29~BM87/~C0S5~Q089~CA610 0~H089~C0 3B41~BN58S~C0 0~Q089~BM87~MA470 6~M0 6~MA62K52~MA62K72~MB41A71~MB05094~BJ79~MB08089~MA50A83~B?460 0]~C0 0~Q089~BO150 1.~AA51A83~M0/5B47~M~M~C0 3B26~BP24S~C0 3A96~BO15/~CB41B47~BP06S~VO15B402~BR13~B41~MB320 3~MA400 9~BO15~VP52B432~CB41B47~BQ02S~B?16~BP80~VQ62B402~CB44B47~BP80/~B?16~BQ02~BR13~B41~MB470 9~VQ39B432~BQ51A930~BR13~B44~MA470/5~M0/5~MA20A90~BO15~CB44B47~BQ17S~MB350 3~BP13~CB41B47~BQ51S~CB44B47~BR05S~BO15A900~MA990 3~BO15~B?16~BQ51~H099~MA83A86~M0?2R75~M089094~BO150!0]~C0!0~Q094~BR380!1.~AA51A86~C0J5R75~BR38/~V?05B46B~CA89A86~B?05T~BO15~MB470J5~B0?3~H?45~MB410/2~MB440 9~M0/2B44~M~B?45~B?61A910~BX45~B80~BX45~C20~BT00~B363~B62~B351~H01~MA65T31~B?46~0000~C20~N~T32~T39~C06~U44~B80~1~B63~10~ ~B80~ ~ ~...~***~ ~.~000~A~0~001~ ~V~?72~*16~ ~ ~ *~ ~ ~ ~9990000~ -~ &&~ ~ ~C20~ ~ ~ ~ ~ ~ &~.SB~)97~)98~ ~ ~ ~ ~.LC~.MC~.OP~.ME~.EP ~ ~ ~ ] ~ ~H01~T00~T00~G98~T00 ~U%U4R~BK79~W34~U61~CW34W37~BT39S~CW34W40~BT05/~MW34W43~MW40W34~BP29~BK79~W46~U61~B363~W46~BK79~W49~U61~B363~W49~BK79~W52~U61~B363~W52~BK79~W34~U61~CW34W55~BW75S~CW34W43~BU50S~BP29~BU08~B363~W40~BT05~BP11~CW34W58~BU61/~MW61W64~CW34W67~BV08S~CW34W70~BV39/~MW34W43~BP29~BP11~CW34W43~BV15/~BV97~BV97W710~CW34W74~BV77/~MP44W71~MW61W64~BV97~CW32P45~BV97U~VZ67W34B~BP29~BP11~CW34W55~BX95S~BU84~BP29~B351~H02~ ~.DS~.TE~ ~ ~ ~ ~.SB~*01~ ~ ~#DC~*24~0~.SE~MX91094~,0!1~BK79~W34~U61~AP46094~CW34W55~BX26S~MW340!0~BW86~MW460!0~M094X91~MX94099~MW460?0~MW49~MW52~HX94~H099~,0?1~MP470?0~HW61~BU08~P81~G98~BP29~BP11~BP29~B335~W46~W21~B363~W46~B!28~BP11~BP29~VY55W34B~B363~K25~BY28~MW64094~LW340!0~LW46~LP47~H094~HW640!1~MP48W71~BP11~BP11~BP29~BW01~MP49Z07~MP52Z31~B363~Z31~AP46Z31~CZ31P55~BZ25/~BW01~#DC***H0A#DC~MW61099~BK260?0 ~C0?0W34~Q099~B!13S~M0?00?0~H099~BZ74~BP29~M0?0W34~BV97~MX91094~BJ650!0 ~C0!0W46~Q094~B!74S~M0!00!0~H094~B!35~VJ870!11~M0!0K75~Q094~MK78099~BK260?0 ~C0?0K75~Q099~BJ35S~M0?00?0~BJ00~M0?0W34~Q099~BP29~M0?0W34~BP29~B!74~MP58W34~BP29~BP29~MP59Z07~B363~K25~MP62J64~MW46K75~B!93~MP65J64~BY28~.SD~F1~/332~/~MK72260~2~F1~B359~SYSTEM FAILURE- PHASE H01.~ ~G98~H089~HL600 6~M0 2L44~M0 5M06~CL34P68~BL61S~,L32~AP71L34~)L32~MP09M09~MM09L44~CM09P74~BL61S~B000~,P10~B343~M%U4M10R~L91~MP77L34~BL31~U%U4R~MP80L34~B000~ ~ }~HP28~B335~W34~W21~BP28~HP43~B363~W34~BP43~0~A~C~ ~1~B~Z57~Z69~000~N~K12~!74~P09~003~.EB~M12~P09~ ~ ~H02~T00~T23~G98~T00 ~ ~ ~0~.TE~J80~.IT~1~*01~ ~B343~M%U1T57R~T38~)T81~B343~L%U1T57R~T57 ~ ~H03~T57~T23~G98~T57 ~BT90T060~MV15T06~MV15T16~MV02T12~BU62~BU62T160~BU33/726~BU44/722~BU55/728~MV05T22~BU62~MV14T22~BU62~MV11T22~BU62~MV08T22~MT22T02~MT22U83~,W16~/U83~HU83~VU80W161~BT23~J80~G98~F3W~C9O~C9F~0 ~ ~H04~T57~T23~G98~T57 ~B335~T05~T64~CT05T19~BT23S~CT05T09~BU43/~BU74~BT57T060~B363~T15~B363~T05~B335~T05~U24~CT05T19~BT23S~BU10~BU63T161~CT05T15~BT57S~B363~T05~BT57~MT02099~C0?0W88~BV78/~MT12094~B335~T05~V07~D0!70!7~HT12~LT05~L~B335~T05~V33~CT05T09~BV63S~LT050?0~H099~BV26~LW890?0~HT02~BT95~MW90T06~BT95~ ~ ~1 ~$~!85~A05~J10~A01~J10~A02~J10~A09~J35~A08 ~ ~H05~T57~T23~J15~T57 ~LT22J83~BT76T060~BZ78~BU22T161~BZ93~Y31~BZ60~CT05Y34~BV52/~BZ60~MJ36Y35~BV52~BZ60~CT05Y38~BU57/~BZ78~BZ93~Y38~BZ78~BU22~CT05Z59~BU84/~BZ78~BZ93~Z59~BU49~BW27T03)~BW27T03.~CT03J37~BV28U~CT03J38~BV28T~BV52~VV40T03B~BW27~VV52T042~BW27~VX41T05B~YT05Y28~YJ39T05~BY45~CZ13J42~BW65/~BW27T060~B363~Y31~BW27Y350~MJ43Y35~B363~Y34~BZ78~CT05Y34~BW99/~MJ36Y24~BZ93~Y27~BZ78~BT76~BW84Y350~MJ43Y35~BW95~YY28T05~BZ78~BZ17~CT05Y38~BX23S~CT05Z59~BT76/~MT05Y44~BZ93~Y44~BW27~BX60Y241~MJ36Y35~BW27~MJ43Y24~BW27~BZ78~BX90T061~B351~I01~U%U1B~U%U1B~U%U1B~U%U1B~U%U1B~U%U1B~BT23~0~.SD~0~.NF~.SB~0~*24~.MC~ ~MT12094~BZ000!0$~CT050!0~BY88S~M0!00!0~M~H094~BY52~M0!0Z16~M~BV78~MJ42Z13~BV78~ ~ ~MZ13094~BT760!0 ~M0!0Z56~Q094~B363~Z56~BZ24~ ~#DC~HZ77~B335~T05~X71~BZ77~HZ92~B363~T05~BZ92~H089~MJ44!60~M089!59~M0 2!25~BZ60~C!28T05~B!46S~BZ78!60P~B!18~M!59089~B0 3~ ~ ~ ~.KK~ K~ E~001~ 9~000~005~000~ ~.KK~ K~ E~001~ X~000~001~000~ ~.KK~ K~ E~001~ 9~000~001~000~1~S~Y~ ~000~0~P ~ ~I01~T00~T00~E00~T00 ~PP61P85~PP61~PP61~PP70~MQ99R00~B335~Q63~X04~CQ63C70~BT88/~B363~Q63~B335~Q63~X04~CQ63C70~BT48/~B363~Q63~BT26~CQ63Q81~BU11S~B363~Q63~BT26~B335~P84~X04~MC73094~C0!5P84~BU59S~BV680!0%~AC74094~BU28~M0!2Q66~B335~Q63~X04~BY24~BX73~CP84C77~BV53/~BV26Q11K~BV26Q17K~B363~R35~PQ30Q12~BY97~BY02~BV57R000~B363~R32~BV57~BY02~BX18~P85~BY86~MC80094~C0!5P84~BW06S~BW270!0%~AC74094~BV75~M0!2W26~B335~Q63~X04~BW26~B363~Q81~B363~Q93~BW53P82,~BW64~MC83Y01~BX84~B363~P84~B335~Q63~X04~B363~Q63~CQ63Q90~BT26S~BW71~B363~Q87~B351~I02~H094~M0!2099~BX620?0%~M0?2Q63~B363~Q63~AC86099~BX29~AC86094~B0!0~HY01~B363~Q81~B363~P84~B363~Q84~BY01~HY23~MQ66Y19~BX18~Y19~BY23~HY85~MC89094~B335~Q63~X04~CQ63Q90~BY75S~MQ630!2~AC86094~BY35~MQ600!0~BY85~B363~Q90~BT00~HZ30~CQ02Q99~BZ27/~MC90R00~B363~R20~BZ30~BY24~V!29P852~BZ66P88.~BX73~B363~R26~BY86~B!00P95E~B!11P95T~DP96C12~YP96C12~B!18~MC91C12~B!18~MC92C12~BX18~B98~BT00~CP87Q99~BT00S~CC86P87~B!71U~DP87C12~YC93C12~B!18~MC94C12~BX18~B98~SC95P87~YC96P87~B!41~BY24~MP61R17~BJ34P82%~BJ42P953~BJ53~BJ53P953~MC97R17~BJ60~MC98R17~BJ95P92 ~BK06P935~BK17P936~MR16C28~BK24~MR06C28~BK24~MR09C28~BK24~MR13C29~BX18~C20~MC96C29~BK57R17T~BX18~C58~BK64~B363~P99~BK76P92 ~BL05~,P91~MP93Q63~B363~R03~B363~Q63~)P91~B363~Q90~B363~R38~BT00R17T~MP99C50~BX18~C36~BT00~MC99P82~BW27~BX73~MD00O68~BO28~MD01Q00~PP85Q30~B335~Q72~X04~MD02O68~BO28~MP87Q50~MP93Q59~BY24~CP93Q78~BM48/~CQ59Q78~BM55S~B363~R29~B363~R23~MP87Q41~MQ99Q43~MQ99Q35~VM95Q32B~BN02~AQ78Q35~BN28Q699~MD03Q45~MD03Q47~BN61~MC97Q45~VN54P852~MD03Q47~BN61~MC96Q47~MD06N71~CR42Q72~QO06~BO03S~,N69~AD09N71~)N69~BN68~MO09Q46~MQ60Q51~BX18~Q30~BY86~HP35~MD12094~MQ99Q75~CQ75D15~BO84S~B335~Q63~X04~BO95~BO84Q61*~BP07~MQ63Q69~BP32~CQ63Q96~BP32S~AD16Q75~MQ630!2~AC86094~BO46~BP35~B363~R38~B363~P84~B363~R38~BT00~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~%~ ~ ~ ~ ~ ~001~.LC~.OP~.EP~.MC~*$*~.KK~000~0~ ,~BSS~BC9~BPCB~BCV~ ~.A1~.E1~.R0~.Y6~.F5~.X9~#DC~1~$40~2~*37~3~/XT~4~*38~A37~.LB~A41~.IM~A48~)20~A52~*40~A59~.RT~A63~)17~A67~)03~A71~.PA~A78~.EQ~A82~*11~A86~.PE~A99~.PF~B15~.P1~B25~.P2~B35~.RK~B42~.P3~B55~.PB~B74~.PC~B91~*30~B81~)99~%~J03~.SW~J03~%SW~Z31~*17~Z31~*22~L45~ #~L45~.NE~L45~$20~L45~$21~L56~)30~P36~.XF~%.S4%.S5.S4%.S6%~.X6.X5%.S7%.S8%.S9%.S6.T1%.T2%.T0%.T3.T2.T4.T5%.T6.T7.T2.T8.T9%.S6.U0.U1%~.X7.U0.U1%.U2.U3%.U4.U5.U6.U7%.U8.U9.V0.X8.V1.V2%.V3.T2%~.E4.E5.E6%~.W6.W9%~#DC.LCCC .OP .MC#DC%~#DC.LC .OP%~#DC.LCB .OP .MC#DC%~ * & 5%~#DC~R55~F~.PB~?76~W71~003~P85~2~#~@~J~L~3~ ~T~F~,~N~ ~B~R~R42~004~P85~017~1 ~ ~I02~T00~T00~E00~T00 ~PP81Q29~PP81~PP93~MB00M98~B335~P71~U49~CP71U48~BT55S~B363~P71~BT22~B335~Q28~U49~MB03094~C0!5Q28~BU03S~BU280!0%~AB04094~BT72~M0!2U27~B335~P71~U49~BL46~BU27~B363~U48~B363~Q28~BT22~*$*~B363~P68~B351~I03~HU94~MB07094~B335~P71~U49~CP71P41~BU95S~MP710!2~AB10094~BU74~HV47~VV37Q31B~MB11Q43~BV44~MB12Q43~BV47~BU63~B363~P32~BN42~MQ76Q31~BV14~MQ43R81~BK91~R64~B335~P71~U49~CP71P77~BT00S~MP71?06~BK91~R92~BV88~BU63~CQ76P23~BW62/~MB15Q85~MP44Q82~BW69~MP22Q84~BL68~BV14~BW92Q55K~B363~P59~B363~P35~MQ31Q76~BN42~MQ43R81~MQ37?06~BK91~R64~BK91~R92~BT00~BU63~CQ76P23~BX76/~MB18Q85~MP47Q82~BX83~MP22Q84~CQ82P50~BY06/~MP23Q82~BY13~MB15Q82~B363~P29~BN42~MP23P65~MB21094~B335~P71~U49~CP71P77~BZ75S~MP710!2~AB15P65~AB10094~CP65B24~BZ09S~CP65B27~BY38/~BZ21~CP71P38~BY38/~BO26~MQ31?06~BK91~R92~BV14~MQ43R81~MQ37?06~BK91~R64~BK91~R92~BY24~CP65P23~BT00S~BO26~BL83~MQ76R51~MB28M98~MR52Q95~B!77Q280~CQ37P26~B!47S~MB31P74~BJ30~B!66Q26%~MB34P74~BJ30~MB37P74~BJ30~CQ37P26~BJ00S~MB40P74~BJ30~BJ19Q26%~MB43P74~BJ30~MB46P74~BJ30~MP23R27~VJ49Q31B~BJ56~AB15R27~VJ68Q76B~BJ75~AB49R27~MP82R26~CQ46B49~BK42U~B363~P56~BK42~BL68~VK28Q292~MB52P74~BK35~MB55P74~MR52Q32~BK69~BM87~BT00~BK69~B363~P77~BT00~HK90~MP74K86~BK91~K86~BK90~H094~M0!2099~BL350?0%~M0?2P71~B363~P71~AB10099~BL02~AB10094~B0!0~HL67~B363~Q28~B363~P80~BL67~HM21~MB00M30~BL94~HM21~MB28M30~MB58094~B335~P71~U49~CP71P77~BM22S~MP710!2~BM76~CP71P38~BM57/~AB61094~BM01~VM76P702~AB64094~BM01~AB10094~BM01~HN41~BK91~Q29~BN31~BN17Q26$~MP83Q26~MQ28R24~BK91~R19~B363~P77~BN41~HN70~MR52Q95~BK91~Q71~B363~P77~BN70~BL83~MB67P74~MQ76Q34~MR52Q35~BK42~MB70P74~BO18~MB73P74~BL68~BK35~HO90~VO58Q292~BO50Q320~BO58~VO87Q352~B363~P77~BL46~B363~P53~B363~P77~BT00~BO90~BL68~MB76P74~BK35~BL68~MB79P74~BK35~000001~.Q1~.Q2~.D0~.KK~.VN~*80~*83~*88~.Y7~.R8~.X9~.Z4~ ~.EP~ ~ ~.MC~.OP~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~%~.W8%~.E2.W8%~#DC.LCDCW.OP @ @.MC#DC%~#DC.LCDCW.OP~ .MC#DC%~.M2.M3.M4.V8%~.M6.M3.J9.I5.V8%~.M5%~.N1.N2.E7.N3.K0.M9.S3.V8%~.M7.M8.N3.S3.M9.K0.I5.V8%~.G8%~.N8%~.W3%~.W2%~.Z1%~.Z2%~K05~)11~X42~)04~W28~)07~V48~*03~Z91~$10~Z91~%10~Z91~$16~Z91~%16~N71~)13~O00~*36~O11~)08~O91~)14~P06~)09~%~B~A21~F~Q71~003~0~1~001~004~Q29~009~015~N~?43~?14~?27~?97~?47~?72~002~R57~R53~Q29~021~045~A05~A01~A09~A13~A17 ~ ~I03~T00~T00~E00~T00 ~PC91B49~PC91B93~PC91C38~MD44C89~MD44~B335~D41~V38~CD41D62~BT65S~B363~D41~BT32~B363~D62~B335~B47~V38~ME88094~C0!5B47~BU20S~BU310!0%~AE89094~BT89~M0!2V37~BU74~BU74B45 ~BU74B469~BU74B45,~BU74B47B~B363~B47~BT32~B335~D41~V38~B363~B47~B363~D53~BR30B47B~BV52~BW45B45 ~BW45B469~BX75B45,~BV37~B363~D56~B351~I04~HV83~MD38094~B335~D41~V38~CD41D59~BV84S~MD410!2~CD41D65~BW15/~AE92094~BV63~VW34D402~AE95094~BV63~AE98094~BV63~BQ39~BJ72~BJ33~BO49B46*~B!08~BW85B469~BJ02~BX08~BX35C900~BX08B62X~YM71C88~BZ17~DE99C90~BK50~BY03B469~BZ50~BW93C079~BX08~BQ39~B!08~BJ72~BO49~BJ33~BJ02~BX99~BQ39~BJ02~BJ72~BJ33~BO49~BN96~BZ17~ME85C47~BZ50~BR15~BJ33~BZ17~ME85B96~BZ50~BQ39~BO49~BJ33~BZ17~YM71C88~BK15~BY80~BR15~BJ33~BZ17~MF02N95~MD44C90~BN46~BZ43B45.~ME85C41~BZ50~HZ38~B363~C86~B363~C89~BZ38~BZ17~ME85C14~MD38099~BZ900?0%~M0?2D41~B363~D41~AE98099~BZ57~B363~D59~MC93C41~BT00~HJ01~V!24B492~B!98~V!36B942~B!98~MF05B66~?B59D74~SC04D74~ZD74D80~B!98D80 ~V!91D74K~YM71C85~B!98~YT00C85~BJ01~HJ32~BJ29B62X~BJ29C07X~YM71C88~BJ32~HJ71~CF05B65~BJ61U~CC10F08~BJ68U~YM71C84~BJ71~HK14~CB56C01~BK11S~BK04U~YM71C86~BK11~YT00C86~BK14~HK49~VK31B942~BK46~BK46C079~B363~D86~BK49~HN95~VK66B492~BL59~?B56D80~VK85B59K~BK92~SB59D80~CD80D50~BL11U~B363~D89~?B56D80~AC04D80~SB59D80~VL59D80K~CD80D46~BL59U~B363~E01~VL71B942~BM64~?C01D80~VL90C04K~BL97~SC04D80~CD80D50~BM16U~B363~D92~?C01D80~AB59D80~SC04D80~VM64D80K~CD80D46~BM64U~B363~E01~VM79C88S~B363~D86~VM91B50K~BN03~CB50D83~BN39/~VN15B95K~BN46~CB95F11~BN46S~CB95D83~BN46S~B363~D95~VN74C84S~BN85B68G~BN85C13G~BN92~B363~E04~BN92~B363~E07~BN95~HO48~MD44C43~VO19B50K~BO26~AF05C43~VO38B95K~BO45~AF08C43~BO48~HP08~MD44C46~VO72B50B~BO79~AF05C46~VO91B95B~BO98~AF08C46~MC92C45~BP08~H089~M0 2094~VP950!02~VP480!12~VP840!22~BP95~VP600!32~BP95~VP720!92~BP95~BP840J2 ~BP95~AE98089~B0 0~BZ17~B363~D98~B363~D68~B363~D71~ME85B93~BZ50~HR14~BQ50~HR14~BP09~B48~BP09~B93~BQ69B48Z~BQ84~VQ84B492~PE14B51~BQ96B93Z~BR11~VR11B942~PE14B96~BR14~HR14~BP09~B48~BQ57~MF14094~?F15D74~BA41~DD73B92~B335~D41~V38~B335~C28~V38~MF05A40~BA49~MC46B56~M~M~MC55B59~MC40C16~BA49~AF05A40~MC46B68~M~M~MC55B71~MC40C19~BA49~AF05A40~MC46B80~M~M~MC55B83~MC40C22~BA49~MC40C25~BA03C84?~B363~E10~CB92A40~BA22S~B363~E13~B363~B44~MF16C29~BZ50~ ~HB41~BA60~HB41~MF19094~SC84~B335~D41~V38~CD41B44~BB23S~CD41D59~B?81S~AE99D74~MD410!2~AE98094~BA64~BB38C64K~AF05C84~BB41~.SD~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ %~000~000~0~ ~B48~ ~0002A~001I~.OP~.EP~.MC~*$*~.KK~.W6~.W9~ ~ ~A0Q~.Q5~.Q7~.Q8~.Q9~.R0~.R1~.R6~.R7~.X9~.Z4~000020 9001 ~X47~)15~Y37~*16~Y37~*10~Y68~.ME~Y68~/10~Y14~$12~Y14~%12~Y14~$14~Y14~%14~%~E31~F~021~045~003~5~Y98~001~002~GNN~B93~N~%~C38 ~ ~I04~T00~T00~E00~T00 ~MA91M50~MA91C74~B335~B51~W40~CB51W39~BT47S~B363~B51~BT14~B335~B61~W40~CB61E27~BU45S~CB61E29~BU45S~CB61E32~BQ54S~CB61E35~BV90/~BW54~BJ31~BM55~BZ14~BO00~BK70~BO31~B!37~BZ84~BX60~BW54~ME38089~C0 5B61~BU79S~AE39089~BU56~M0 2Y21~ME40B59~B363~W39~BY81~B363~C70~B363~C73~VV30B632~BV60~BV45B769~B363~B36~VV60C682~B363~B45~BN79~B363~B30~BM28~BY11~BY26~B62~BZ03~B363~W39~B363~B61~B335~B51~W40~B363~B51~CB51B54~BT14S~BW04~*$*~B363~B09~B351~I05~HX15~B335~B51~W40~B335~C70~W40~B335~C73~W40~ME43094~B335~B51~W40~CB51B54~BX16S~MB510!2~AE46094~BW95~MB55C28~BY26~B62~BY26~C52~BZ03~BY11~BX76~BM28~BX35~HY10~BY07B88K~BY07B91K~HY21D80~BY11~B000~HY25~BY26~Y21~BY25~H094~M0!2099~BY700?0%~M0?2B51~B363~B51~AE46099~BY37~AE46094~B0!0~HZ02~B363~B61~B363~B58~BZ02~B363~B54~BT00~HZ71~VZ72C70K~BZ61B85R~BZ50B85L~VZ61C72S~ME49C54~BZ68~ME52C54~BZ71~VZ68C682~BZ42~H!36~CC54E52~B!11/~ME55Y21~B!33~B!26C740~B363~B42~ME58Y21~B!36~HJ30~CB79A91~BJ01/~CC24A91~B!83/~B363~B12~ME61M50~BJ27~B363~B15~ME64M50~BJ27~CC24A91~BJ27/~B363~B18~ME67M50~BJ30~HJ78~VJ47C682~BJ75~BJ59C219~BJ75~BJ79B769~BJ98B88E~BJ78~BK59B85L~ME68C74~BJ75~B363~W39~B363~A88~B363~B58~BK34B88E~ME71B88~B363~C70~B363~C73~BY26~B62~BZ03~ME72C74~BJ75~HL81~BK97B88K~BK97B94K~B363~B48~BL09B82R~BL29~BL21C27R~BL29~VL67C702~VL78C682~VL49C70K~BL56~B363~B33~B363~A79~BX35~B363~A82~BX35~BL81~HM27~CB79A91~BM24/~CC24A91~BM24/~ME75M50~B363~B15~BM27~HM54~CM50A91~BM51S~B363~M50~BM54~HM74~BY81~VM75C09K~BM74~VN68C68S~VN53C702~CC15A94~BN18/~ME78Y21~BN79~BX60~VN45C72S~VN68C70S~ME81Y21~BN60~VN03C70S~ME84Y21~BY11~BX35~B363~A85~BX35~HJ30~CB79A91~BJ27/~B!83S~HO30~BO27B76X~BO27C219~B363~B39~BO30~HO58~BP04C74N~VO55C70S~BO59~BO58~VO89C702~B363~B33~BL82~ME87Y21~BX60~BL82~ME90Y21~BX60~?B70B00~SB73B00~?C15B06~SC18B06~SB00B06~ZB06B00~,A95~BP73B00 ~VP73B06K~B363~B33~VQ15C692~B!37~VQ04C69S~ME93Y21~BX60~ME96Y21~BX60~VQ39C70S~VO89C702~BN79~BO93~B!37~ME99Y21~BX60~B335~B51~W40~BY81~B335~B51~W40~CB51F02~BR01S~B363~B51~BQ68~HX15R12~BW88~MA91A61~MA91~MF03B98~?E46C74~BR57B97 ~CB97A91~BR64S~SA94C74~CB85A91~BR90S~PB86B74~SA94C74~CB73A91~B?16S~PB74B62~SA94C74~B?94C74?~CC74?31~B?80U~B363~A73~MA76A58~B?62C74C~B?94~B363~A67~MA70A61~B?94~B363~B15~MB24A58~DC06A64~B363~A64~BA38A560~B363~A58~BA38A590~B363~A61~MF04C43~BY26~B62~BZ03~ ~ ~.G0~.Y0~.Y1~.Z5~.Z6~.H1~.I9~.H0~*16~000001~ ~ ~.EP~.A0~.A1~.A2~.F4~.F5~.F6~.F7~.Q4~.Q5~.R2~.R5~.R8~.X9~ ~.MC~%~.OP~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ %~000~000~0~.X1.X2%~.P1.X0.X2.Y2%~.Y3.X2%~.N9.O0.O1%~.N9.O0.Q3%~.O1.O0%~.O3%~.O1%~.H4.I0.V8%~.H3.H8.I5.V8%~.H4.H8.I5.V8%~.H3.I0%~.X4.N7.W9.A1.N9.O0.V8%~D37~$14~D47~%14~D60~$12~D73~%12~12~14~.SB~)15~E02~F~#~B62~003~00L~00R~D02~D12~B21~B24~B27~N~YYK~E~B24~D22~D29~D33~D29~D33~C95~C82~C75~.SD~ ~% ~ ~I05~T00~T00~E00~T00 ~PC42C17~PC42~B335~C84~W24~CC84W23~BT44S~B363~C84~BT11~B335~A81~W24~MD80094~C0!5A81~BT92S~BU030!0%~AD81094~BT61~M0!2W02~BU22~CD82A79~BW03U~MD85W02~B335~C84~W24~B363~W23~BW38~B335~D22~W24~B335~D25~W24~MD88094~B335~C84~W24~BU92C82.~BV25~CC84D91~BT33S~B363~C84~BU70~B335~C84~W24~CC84C90~BV55S~MC840!2~AD94094~BV15~BR07~BV99B001~MB83D00~MB38B83~BP58~YC97D21~MD00B83~BW02~B363~W23~B363~A81~BT11~*$*~B363~C93~B351~I06~HW59~B363~A81~B363~C96~BW59~VX14B732~CB72D95~BX45S~VW92D21K~BW99~MB38D12~BL83~MC85D25~BX18~BN48~BX76D250~B!07D253~MD96D16~B!07~CB27D95~BW80/~VW80B282~YD97D21~BW92~VL47B732~B!07~MD16D24~VY07D212~BY84~VY84D22S~BY35B53K~BY35B59K~BZ18~BY47D17E~BY54~MD96D17~MB29B74~VY73B282~B!07~MD98D18~B!07~VZ18B282~VZ04D21S~BZ84~BM30~B29~A93~BZ84~PC54B27~MD15C34~BZ66D161~,D19~AD96D19~)D19~MD96D16~B!00~MD15B83~BP58~YC97D21~VY54D212~V!07D21K~MA93D15~BQ28~V!23B732~BJ12~MA93D00~AB38D00~B!78B98E~MA93C65~MD00A93~BP58~MC65A93~VQ28C972~BL47~MD00D15~CD15E01~BQ28U~ME04D15~BQ28~AB38D12~CD12E01~BJ38U~ME04D12~YD95D21~BL32~MB80C37~ME07D15~ME07~VJ83B732~BL83~BQ28~BL47~MD96D19~BQ28~VK10B732~BL25~BK70B98E~BP58~VK54D212~CB83A93~BK70U~CB83B38~BK70U~CB80A90~BK70U~BQ28~ME08D17~BL47~MA93D15~AD96D15~CD15E01~BQ28U~ME04D15~ME11A93~BQ28~AD96D12~YD95D21~BL83~BQ28~HL82~ME08D17~MD96D16~MD96D18~PC54B72~BL82~HM29~MN47089~P0 00 6~MD120 5~MB74~M089N47~AE14N47~BM29~H089~MD96N44~BM49~H089~MD28099~M0 2094~C0?20!0~BM86S~AE14099~BM63~BN12N441~M0 5N07~M0?5N07~BN26~M0 5N22~MN250?5~AE14089~MC87N44~B0 0~0~F00~HP57~CB98E15~BO16/~BP58~YC97D25~MA93D00~MB38A93~BP58~MD00A93~VO90D252~VO60C972~MC85D25~ME08D17~MA93D15~VO49D21K~BP54~MB38D15~BP54~CB80B35~BO16U~MD96D25~MA93D15~BP54~CB80A90~BO08U~VP28C972~ME16D25~MB38D15~BP54~CB80B35~BP10U~ME17D25~MA93D15~BP57~HQ27~YC44C97~?A93D09~SB83D09~ZD09D06~BQ24D06 ~VQ17D09K~YD95C97~BQ24~YD97C97~BQ27~B363~D19~MD16D20~B363~D22~B363~D25~ME20099~BQ960?0%~M0?2C84~B363~C84~AD94099~BQ63~B363~C90~BT00~H?20~MC87C34~MC87~CA82D95~BR66/~VR66A832~PC57A85~BM45~A84~A93~MA93C31~CB27D95~B?10/~V?10B282~PC57B30~BM45~B29~B38~MB38C34~MA93D12~B?20~MD16D23~B363~D19~BA05D160~PC54B27~V?65D15K~YE21D15~MD15B38~MD15B83~BP58~YC97D21~VA05C972~MD15C34~MD16D20~B363~D22~BQ28A79/~MD28089~/0Z9~ME220 0~M089N47~MC87D19~MC87~MC87~BQ49A80M~BQ42~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~%~ ~ ~GNN000020 9001 E K K ~ ~000~.MC~.EP~.OP~0~ ~ ~ ~000~000~0~000~000~000~F00~W60~ &~W60~ -~X88~)98~X88~)97~J49~ **~!11~ *~J98~ /~?21~.ME~%~D29~F~?~A19~A82~.R0~003~Z~1~R~A~021~020~010~E~019~006~K~2~3~A82~ ~ ~ ~I06~T00~T00~E00~T00 ~B335~D47~U35~CD47U34~BT33S~B363~D47~BT00~B335~B75~U35~B335~D47~U35~BV71B75&~BW85B75-~BY18B749~B!28B75*~BK52B75/~BQ19B74M~BP15B73/~BR75B73,~B363~U34~B?91~BT00~*$*~B363~D56~B351~I07~HV51~B363~U34~B?91~B335~B78~U35~BU86B76.~BU97~B363~B78~BU64~M?86094~B335~D47~U35~CD47E84~BV41/~B363~U34~B?91~BT22~CD47D59~BV52S~MD470!2~AE87094~BV04~BU49~CB84D70~BW36/~VW14B802~VW25B80S~ME90D50~BB48~ME93D50~BB48~ME96D50~BB48~BW63B841~BW74B842~ME99D50~BB48~MF02D50~BB48~MF05D50~BB48~BU49~CB84D70~BX69/~VX47B802~VX58B80K~VX36C312~MF08D50~BB48~MF11D50~BB48~MF14D50~BB48~MF17D50~BB48~BX96B841~BY07B842~MF20D50~BB48~MF23D50~BB48~MF26D50~BB48~BU49~BZ29B757~CC32D69~BY61/~BY61B831~MF29D50~BB48~VZ18B802~VY96B80S~VZ07B862~MF32D50~BB48~MF35D50~BB48~MF38D50~BB48~MF41D50~BB48~CC32D69~BZ60/~BZ60B831~MF44D50~BB48~VZ95B802~V!06B80S~V!17B862~MF47D50~BB48~MF50D50~BB48~MF53D50~BB48~MF56D50~BB48~BU49~BK18B74*~V!62C312~AC41C38~YD72C38~MF59D25~SB93D25~YF60D25~MF63D28~SB93D28~BJ16B74*~SC38D28~BJ23~SB93D28~YF60D28~VK07C762~MB96D31~AC41D31~CD31F66~BJ96U~MF69D50~AD28D31~SF72D31~YF72D31~BB48~MF75D50~BB48~MF78D50~BB48~CC41D72~BK41S~MF81D50~BB48~MF84D50~BB48~MD72D66~BU49~VK75C41K~BL03~SC41D66~YF60D66~AD66C38~MD72C41~CC38C41~BL22T~MC41C38~CB93B96~BL41T~MB96B93~MB93D22~AC38D22~AC41D22~AF85D22~MC41D25~MB93D28~AC41D28~AD66D28~MC38D31~AF85D31~AD37D31~MF88F91~SD22F91~VM47C312~SC41F91~YM49F91~CF91F72~BM73U~MF94F91~AF91D22~AF91D25~AF91D28~MD31C11~VN85C762~AF85D25~MF97C14~CB96F91~BN74T~SB96F91~YN44F91~AB96D31~AF91C14~HD50T55~BB48~AF91D31~BN63~AF91D31~?C86G00~SC41G00~SG00D31~YF60D31~CB96C41~BO76U~BO65S~MB96G03~SC41G03~YO53G03~AG03D31~MG06D50~BB48~MC41G03~SB96G03~YO92G03~SG03D31~YP06D31~BO65~BU49~MC77D43~MB93D22~SB96D22~VP52D22K~BP59~MD72D22~YF60D22~MG09P79~BA75~P79~MD44C51~MD44C84~BA75~B85~BA75~C75~BA75~D20~BB37~BU49~BQ35B821~BB30~BR07C11K~MG12B75~B363~D72~B363~D59~B363~G15~B363~U34~B?91~B363~B81~B363~B84~BA75~B85~BB37~VR45B802~BR34B771~MG18D50~BB48~MG21D50~BB48~BR64B771~MG24D50~BB48~MG27D50~BB48~MG30V51~BU97~CD75B93~B?14U~CD75C38~B?14U~B?21~MF85B84~BA13~D86~D40~BA13~E58~D25~V?69B832~BA13~E34~D28~BA13~E10~D31~B363~U34~B?91~BA75~B79~BB37~HA12~B363~B75~B363~D62~BA12~H089~M0 2094~M0 5A67~AG33089~C0!5B75~BA61S~AG34094~BA38~M0!2A67~B0 0~ ~H094~M0!2099~BB190?0%~M0?2D47~B363~D47~AE87099~BA86~AE87094~B0!0~B363~D72~B363~D59~BT00~B363~B78~B363~D50~BA75~B85~BB37~ ~000~000~000~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~%~ ~ ~.Q7~.EP~.MC~.OP~0~ ~GNN~000020~.N5.N6.I4%~BE ~, #~BU ~,NE~BL ~,20~BH ~,21~T00~, #~T07~,NE~T20~,20~T36~,21~T00~, #~T07~,NE~T36~,20~T20~,21~ //~, #~ SS~,NE~ TS~,20~ US~,21~.R0~003~U88~U65~U75~V21~V01~V11~U09~U22~T86~T96~U58~U38~U48~V55~V35~V28~V42~V59~V94~V74~V63~V67~V81~065~ ~064~021~W28~020~T14~T04~W20~W24~1~063~ ~019~001~ ~ ~T27~D76~*16~.LC~V98~W09~W05~W16~R86~006~F ~ ~I07~T00~W45~G98~T00 ~.Q6%~.D6.D1.D2%~.D6.D1.D4.D3%~.Y8.D5.D6.Y9.Z0.D7.E8.D8.D9%~.Y8.D5.D6.Y9.Z0.D7.D4.E0.C3.D9%~.D4.A4.B3%~.D4.A4.A7.B3%~.D4.A4.B4.B5%~.D4.A4.A7.B3.A6%~.A3.A8.S0%~.A3.R3.B1%~.B1.B6%~.D4.A4.A5%~.D4.A5.A6.A4%~.D4.A4.A7.A5%~.A3.A8.A9%~.A3.B0.B1%~.B1.B2%~.B4.B9%~.C0.C1%~.N5.C9.Y4.Z3%~.A8%~.B8%~.C4%~.C5.C6%~.C7.C8%~.N5.C9.Y4.Y5%~.S1%~.B4.F1%~.F1%~.B4.P6%~.P6%~.Q6%~.G9%~.D6.D1.W7.X3%~.H2%~MC67J04~MC67C32~B335~C19~X70~CC19X69~BW92S~B363~C19~BW59~B335~A56~X70~B335~C70~X70~BX84A54 ~BX84A559~BX84A55M~BK01A54*~BY29A54#~B363~X69~B?20~BW59~*$*~B363~C25~B351~I08~BY44~BY03C350~ME91C29~BY18C360~YE92C31~MC34C70~BZ50~BY44~MB04C15~BJ20~HZ30~B?20~B335~C31~X70~BY74C29.~BY85~B363~C31~BY52~B335~C34~X70~B?42C32.~ME95094~B335~C19~X70~CC19C22~BZ31S~MC190!2~AE98094~BZ10~B?60~BZ66A54 ~B!04~VZ78B482~B!04~CB64C67~B!04/~B363~C64~ME99C37~B!16C291~B!30~B363~C40~ME99C35~B!42C311~B!56~B363~C73~ME99C36~B!82~H!81~MC70!77~BR65~!77~B!81~B!60~CC67J04~BJ05S~B363~J04~BJ20C370~B363~C61~MC16B23~BR65~A57~MC16B56~BR65~B47~BR65~B92~B363~C22~MC67C37~BJ89A55M~BJ89A54*~BW45~MC67C36~M~BW45~BY44~?A68D19~SB13D19~ZD19D16~BK60D16 ~VK53D19K~YF00C30~BK60~YF01C30~MB04B49~BK87A83K~BK87A89K~BM71~VK99B032~BL50~?A65D25~SA68D25~?B10D16~SB13D16~CD25D16~BL43U~BL50~B363~C79~CA74C67~BL76/~B363~C49~MF04J04~BQ25A560~VM22C30S~VM11C302~MF07C70~BM48~MF10C70~BM48~VM41B032~MF13C70~BM48~MF16C70~HA53M63~VA24B032~B!60~BP98~HA53M82~BA24~MC67C09~VN04B032~MB13C09~BQ25A560~CB04C76~BN35/~MF19C70~BP32~CB01F22~BN58/~B363~C88~BP14~VO60C302~VN78B032~BO30~?B10D16~SB13D16~?B01D25~SA68D25~CD16D25~BO30U~BO30S~B363~C79~VO49C30S~MF25C70~BP32~MF28C70~BP32~VO79B032~MF31C70~BP32~CB10B01~BP07T~BP25S~MF34C70~BP32~B363~C82~MF37C70~B!60~MF40C70~B!60~CA74F22~BP55/~B363~C49~BP67A95K~BP87~BP79A98K~BP87~VP98A902~MF43C70~B!60~B!86A83K~B!86A86K~MF46C70~B!82~HR64~CA80F47~BQ48/~B363~C85~VQ60B032~BR50~BQ93A741~MC16A69~BR65~A57~MF48A69~BR00~B363~C67~B363~C22~B363~F51~B?20~B363~C91~B363~C94~MB13C09~MF54B04~BR61~HC70C95~B!60~BR64~H094~M0!2099~B?090?0%~M0?2C19~B363~C19~AE98099~BR76~AE98094~B0!0~H?41~B363~A56~B363~C28~B?41~B363~C67~B363~C22~BW45~HA53~CA74C67~BA24/~CB19C67~BA06/~B363~C46~MF57J04~BA50~B363~C49~MF60J04~BA50~CB19C67~BA50/~B363~C52~MF63J04~BA53~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~%~ ~.MC~.EP~.OP~000~000~0~0~0~.S2~.F4~.A0~.A1~.A2~.F5~.F6~.F3~.F2~000~ ~.A3~A0Q~.Q4~.Q0~.R4~.X9~.V9~.W0~.V5.I8.R9.V8.V6%~ ~ ~ ~.I7.O9%~.P1.P2.O9%~.O8%~.P0.O9%~.P3.P4%~.B7.Z7.P3.V4.Z8%~.Z9.P3.P4.V7%~.J2.J5.J6.W1.Z7.P7.P3.P4.Z8%~.P8.J6.Z7.P7.P3.P4.Z8%~.Z7.P5.K3.P7.P3.P4.Z8%~.F8.N7.W9.A1.N9.O0.V8%~.W6.W9%~J~E~A57~003~1~Z~R~C55~D47~D43~D26~D33~E40~001~E18~D90~D77~D61~E84~D54~W41~E62~L~ ~.LC~GNN~C43~C55~C58 ~ ~I08~T00~T49~E00~T00 ~.F9.H3%~.F9.H4.I5.V8%~.F9.H4.I2.I5.V8%~.F9.H4.I3.V8%~MR93P73~MR93R08~B335~R75~U45~CR75U44~BT96S~B363~R75~BT63~B335~Q06~U45~B363~Q06~B335~R75~U45~B363~R75~BU59Q04,~BT63~*$*~B363~R81~B351~I09~MB74094~B335~R75~U45~CR75R78~BV18S~CR75B77~BT85S~MR750!2~AB80094~BU66~MR05R71~BV37Q121~BV73~VV73Q112~CQ24R93~BV73/~CQ69R93~BV73/~B!61~VV93Q112~BL95R080~BY41~B!61R080~VW32Q07S~VW21Q092~BW32~MB83P99~BP86~BW44R081~BX41~CQ15R84~BW75S~BW68Q729~BW75~B363~R90~C?02Q21~BY30U~VW99Q072~BY19~CR96Q66~BY19U~BO97~MB86P99~BP78~BP51~B363~?26~BP05~CQ60R84~BX72S~BX65Q279~BX72~B363~R90~C?02Q66~BY30U~VX96Q072~BY19~CR96Q21~BY19U~MB89P99~BP86~B363~?05~BP05~B363~?08~BP05~CQ12B90~BY71/~B363~R87~B363~R78~BW01~VY90Q072~B363~?05~BP05~B!00R081~CQ30R93~BZ21/~MB93O41~BN94~B363~?62~BP51~BZ67Q06#~BZ78Q06E~BZ89Q061~MB96P99~BP86~B363~?17~BP05~MB99P99~BP86~MC02P99~BP86~BO97~B363~?65~BP51~BZ67Q06#~BZ78Q06E~B!50Q061~MC05P99~BP86~MC08P99~BP86~V!80Q072~B363~?11~BP05~V!92Q092~BJ18~BO97~B363~?20~BP51~B363~?26~BP05~BJ64Q121~VJ49Q09S~BO97~MC11P99~BJ56~MC14P99~BP78~BJ03~VJ76Q09S~BJ98~MC17P99~BO97~M?38R75~BK16~MC20P99~BN48~M?41R75~B363~R75~BP51~BK80Q06E~BL09Q060~BL32Q061~B363~?29~BP78~B363~?29~MC23P99~BP86~B363~?26~BP78~B363~?26~MC26P99~BP86~VL21Q09S~BL55~B363~?35~BL66~VL44Q09K~BL55~B363~?32~BL66~B363~?26~BP05~B363~?26~BP78~B363~?23~MC29P99~BP86~VM14Q072~B363~?14~BP05~VM26Q082~BM61~CQ24R93~BM61/~BM50Q121~BM61~B363~R78~B!61~BN48~VM77Q08S~BN03~MC32P99~BP78~BP51~MR56P99~BP86~VN22Q082~MC35P99~BN29~MC38P99~BP78~BP51~MR59P99~BP86~HO41~CQ30R93~BO12/~CQ75R93~BN94/~B363~?44~MC41P73~BO38~B363~?47~MC44P73~BO38~CQ75R93~BO38/~B363~?50~MC47P73~BO41~H094~M0!2099~BO860?0%~M0?2R75~B363~R75~AB80099~BO53~AB80094~B0!0~HO41~BO12~MR72Q79~BO42~Q13~MR72R12~BO42~R03~BO42~R48~B363~R78~BT49~HP77~CP73R93~BP74S~B363~P73~BP77~HQ03~BP93~MC50Q03~BO42~P99~BQ03~ ~000~000~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~%~ ~.MC~.EP~A0Q~.W4~.W5~000020~000001~.G5~.G5~.G6~.G7~.H3~.H7~.I4~.I6~.J8~.J9~.K0~.K4~.K5~.A0~.A1~.A2~.F4~.F5~.F6~.F7~.F8~.H7.I6%~.K2.K3.L6.L7%~.K2.K3.L8.L9%~.G0.K7.K8.K9.L0%~.K6.L3.L4.K9.L5%~.L1.L2.K1.V8%~.L1.L2.K1.I5.V8%~.J0.J1%~.J2.J3.J4.J1%~.J2.J5.J6.J7%~.H4.I5.V8%~.H4.H8.I5.V8%~.H4.I0.V8%~.H4.H9.V8%~.H4.I1.I5.V8%~.H5.H6.L7.I6%~.M0.M1.L9%~Q07~.R0~003~?66~B62~B49~1~Z21~B03~A93~B16~B26~B36~?86~?73~?99~A15~A44~A31~A31~A80~A67~A60~?53~?56~?59~P05 ~ ~I09~T00~T00~G97~T00 ~L188003~/332~/~/~H358954~BT33F~VT400861~B351~J01~H099332~BA93~F98~T47~CF98G15~BT47/~B?59~CF98G18~BT69/~BL93~B?59~CF98G21~BT89/~B?59~CF98G24~BA85S~CF98G27~BV39S~BU85F96I~BX99F96D~BW24F96T~BW58F96L~BX73F96A~BW05F96R~BX84~B?77~BV17F96R~BV28F97U~BV55F96P~BV66~B363~G30~BV81~B363~G33~BV81~BL93~B?59~BL93~BU05~B363~G36~BV81~B363~G39~BV81~B?59~BA77F98,~CF98G21~BU05S~BV77~BX39F97W~B363~G42~BV81~B?77~BW47F96I~B363~G45~BV81~B363~G48~BV81~B?77~BX28F96S~B363~G51~B?59~CF98G21~BU05S~BX05F98,~BW77~B?59~B?41F96C~B363~G54~BV77~B363~G57~BW77~B?77~BX62F96U~B363~G60~BV81~B363~G63~BV81~B363~G66~BV81~B?77~B363~G69~BV81~B363~Y12~BO35~237~BV81~BA93~F98~Y17~CF98G72~BY17/~B363~F98~,F45~B?59~CF98G75~BO01S~BY50~B?59~CF98G78~BY50S~CF98G27~BZ82S~B!18F96A~B!36F96B~B!54F96C~BJ63F96F~BK85F96H~BL45F96I~BM08F96R~BN46F96S~BN72F96T~BN83F96W~BF49~BL93~B?59~BL93~BY70~B?59~CF98G21~BZ98/~BY70~B363~!31~BO35~143~B!02~B363~!49~BO35~236~B!02~B!82F98R~BJ00F98A~BJ18F98E~BJ52~B363~!95~BO35~144~B!02~B363~J13~BO35~145~B!02~B?77~BJ41F96A~B363~G81~B!02~B363~G84~B!02~B363~G87~B!02~B?77~BK06F97U~BJ95F96P~BK17F96R~BK28~B363~G90~B!02~B363~G93~B!02~B363~G96~B!02~B363~G99~B?59~CF98H02~BK35/~B?59~BK74F96I~B363~H05~B!02~B363~H08~B!02~B363~K98~BO35~520~CF98G21~BY70S~,O54~B?59~B?23F96 ~B363~L40~BO35~122~B!02~B363~L58~BO35~234~CF98G21~BY70S~B363~L88~,F44~BO35~235~B!02~HM07~B363~F98~BM07~BM58F98C~BR87F98E~B?77~BM47F96N~B363~H11~B!02~B363~H14~B!02~B?77~BM88F96B~B363~H17~B363~G45~B!02~B363~H20~B?59~BN23F96,~CF98G21~BM77S~BM95~BN35F97V~BM77~B363~G48~B!02~B?05F98R~B363~N67~BO35~138~B!02~B363~G54~B!02~B363~N96~BO35~233~B!02~VO13F451~BA05~B363~O30~)F45~BO35~254~B!02~H094~M0!20?0~H099~BO67K~VP28F441~B?77~CF98G21~BP59S~BP59F98,~BP36F97 ~,P14~AH23P16~)P14~MF98F98~)F98F44~)O54~B?59~BO67~,P14~AH26P16~)P14~,F98~BP10~BP790!01~BQ230!02~BR35~MP16089~M0 0F48~MF480?0~H099~BQ99~MH290?0~H099~BP79~BQ08G02 ~BQ55G03 ~BQ77G04 ~BQ88G05 ~MF99F48~MF480?0~H099~BP79~MG00F48~BQ62~MG01F48~BQ62~MH020?0~H099~MH39G08~MH39F48~HP16F98~B0!3~H089G00~BQ990 0 ~,F47~M0 0F48~)F47~MF480?0~H099~AH42089~BR42~B363~?00~BO35~105~B!02~B363~?18~BO35~219~B!02~B363~?36~BO35~221~BK99~B363~H45~B363~H48~BV77~H?76~BB08~F98~?63~B?76~HA04~B?59~CF98H51~B?81/~B?59~BA04~HA76~B363~H54~H099332~BA530?0 ~M0?0F48~Q099~B363~F48~BA23~B363~G21~/332~/~/~H099332~BA76~B?59~BU89~BA05~BY17~H089~MH57B63~BB12~H089~HB890 6~M0 2B73~M0 5C39~CB63H60~BB90S~,B61~AH23B63~)B61~MF42C42~MC42B73~CC42H63~BC29S~B000~,F43~B343~M%U4C43R~C20~MH66B63~BB60~U%U4R~BB90~MH69B63~B000~ ~ } ~ ~BA05~B363~H72~/H90~/~B335~F98~F82~B351~SP1~B363~F98~B351~I10~ ~ ~.IC~.DI~.MC~.DE~***~ 34~ 33~ 32~ 35~ 10~ 40~ 39~ 29~ 27~ 31~ 13~ 12~ 25~ 02~.DT~DTF~.LC~ 23~ 24~ 56~ 48~ 49~ 50~ 51~ ,~ 52~ 53~ 09~ 08~ 41~ 42~003~001~ 0~ ~002~ 28~ 16~.OP~ .~F42~F42~.EB~C45~F42~.EE ~ ~SP1~P30~P30~G90~P30 ~M564F20~M448F23~M570F26~M665F29~MF29089~,0 0~M628F32~C573F32~BP95/~MF67F63~M394F35~M662F38~MF29F41~MF41A85~MF41C37~MF41C70~M445F38~MF41B00~MF23F41~MF41D66~YF20F44~Y~Y~YF68F23~SF69F23~YF44F23~Y~Y~YF68F29~SF69F29~YF44F29~Y~Y~MF26089~C0 0~Q089~C089F29~BR55S~)0 1~BR27~MF20089~C0 0~Q089~C089F23~BR90S~)0 1~BR62~YF68F32~YF68F35~MF26F47~YF68F47~SF32F47~MF47F50~AF70F50~YF68F50~MF20F47~YF68F47~SF35F47~AF70F47~MF47F53~YF68F53~YF44F32~MF32089~CF730 0~H089~HF62~,0 1~CF53F50~BB09U~BB70T~MF26094~MF20099~M0!00?0~BA71F63T~)0 1~BD52~B343~MA86A86R~C83~B343~MB01B01W~D47~BA75~MF32F56~YF68F56~SF70F56~AF53F56~MF23F59~BE43~MF56B58~MB610?0~BD75~BC49~MF20F59~MF29F56~YF68F56~AF53F56~SF50F56~BE43~MF59C22~M0!0C22~BD75~B343~MC38C38R~C79~MC480?0~BD52~M0!0C59~B343~MC71C71R~C79~BC42~BD52~MF26628~M701D00~U%U1R~D445D12~U%U1M~BD33F63T~MF62089~)0 1~B363~F66~B351~I10~.~BD47~HD74~B343~MD67D67W~D47~BD74~HE42~BD91F63T~)0 1~CF29F56~BE14/~MF67F63~BE39~MF74F63~MF56089~MF56F62~,0 1~BE42~HF17~YF44F56~Y~Y~MF26094~MF20099~MF56C45~YF68F59~SF53F59~AF50F59~YF44F59~Y~Y~MF59C59~BF17~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~F~.EP~T~ ~A~C~ ~F ~ ~I10~T00~T00~G97~T00 ~B?00~B!71~BL47~CN37N24~BZ42S~MN66N35~BW97N37.~MN37094~VT58N362~BT08~,OR7~BT08~H094~M0!2094~BZ220!0 ~M0!0N69~BY93N44 ~MN44094~MN72099~BY710!0:~BN050!0[~BV490!0%~BV930!0.~VU660!0B~VV050!0S~BW12~D0!0099~D~Q094~VV29OI71~BV61~M0!00!0~H094~BW74~D0!0099~D~Q094~VV61OI71~BU07~VV410!1B~BU07~,W66~BU07~)0!0~Q094~BU07~BV490!0.~BU900!0#~BU900!0%~H094~BV61~)0!0~Q094~M094N75~,W61~BW28K~,W16~B363~N78~M0!00!0~H094~M0!2N87~MN79~B363~N87~BW82K~BX58K~B363~N82~)W66~BZ04~MN75094~)W61~BW62~H094332~BL47~LN370!0~H094~CN37N82~BN05S~BL47~MN370!0~H094~BX04N37,~BX31~MN40089~H099329~D0 0N84~D~Q089~VW670 01~VW670 12~C0?3N84~BY27S~M0?00?0~H099~BY00~M089N87~B363~0?0~MN87089~M0?0N87~Q099~BX650?0,~BY27~CJ42N89~BZ15S~BN01U~BZ15K~,Y92~MN69094~M094N40~BU07~B363~N92~/332~/~/P80~)W16Y92~BT08~BZ75K~MN95N24~HX29K95~MN97N21~HJ57N65~CJ42N21~B!22S~VZ99N411~B!07~)N41~BT04~HZ98!22~,Z46~BZ99~B335~N37~L31~B351~SP2~B!51K~B363~N37~BM76~CN37N92~B!51/~BL51~H094~V0!0N411~BJ85K~,N41~HJ38P90~AN98J42~B343~L%U1/81R~J20~SN99S99~B343~L%U1P90R~T01~M935089~)0 0~QN65~QJ57~CJ42N21~B0!0S~M935J38~B!99~CJ42O01~BK15/~HU17Z22~MO02T77~,!43~MO03N65~MN65~B!99~BT66~N47~BT66~N53~BT66~N50~VK81P361~BT66~N62~VK88P361~BT66~N65~BT66~N56~BT66~N59~VK37P471~VK44P461~VK30P451~VK51P491~BK66~CJ42N97~BN25S~BZ99~HM60~B335~N37~L31~CN37O06~BM61S~CN37O09~BM50S~CN37O12~BM50S~CN37N95~BM50S~CN37N34~B!39S~CJ42N89~BM57S~BM57U~CJ42N97~BM57S~B363~N37~BM60~B363~N37~BM76~BL51~HN00~B335~N37~L31~B363~N37~BN00~B!71~MN65094~QN08~BZ04~06~.DT~B351~J01~.ST~ ~ ~ ~ ~0~ ~000~ ~.ST~.~.MC~ ~ ~06~.FS~.EE~14~1~2~13~N~ ~***~.DI~.DT ~L?52S99~/332~/~/~B?33/724~B?33/728~BT04~,!87J73~HU25Y71~BT04~28 ~F94~S01~N00~R00~F94~N00 ~[~)5#2I.3A%4 3E~)4#2I.3A%4 3E~)3#2I.3A%4 3E~)2#1Z4 2I3E~)1#2I.3A%4 3E~)0#4 2I3E~)Z#3D4 3E~)Y$~)X#3D.3U4 3E~)W#3D.3U4 3E~)V#3Z3E~)U#3V3D~)T#3E~)S#2I3E~) #3D.3U3C.3T3U3B%3E~)R#2I3E~)Q#2I.3A%3E~)P#2I.3A.2I.3A%3E~)O#2I.3A%3E~)N#2I.3A%3Z3E~)M#2I.3A%3Z3E~)L#2I.3A%3Z3E~)K#2I.3A%3E~)J#2I.3A%3E~)!#2I.3A%3Z3E~)I#2I.3A%3E~)H#2I.3A%3E~)G#3/3 2I3E~)F#2I3E~)E#2I.3A%3E~)D#2I.3A%3E~)C#2I.3A%3E~)B#3Z3E~)A#4 3E~)?#3D.3U3C.3U3T3B%3E~)@$~)#$~)%$~)/$~)-$~)*$~)$$~)&$~))$~).$~.9$~.8#3C~.7#3C~.6#3C~.5#3C~.4#3C~.3#3C~.2#3C~.1#3C~.0#3C~.Z#3S3U3E.3S3D.3B%3C~.Y#3Z3E~.X#3Z3E~.W#3Z3E~.V#3Z3E~.U#3Z3E~.T#0/3Z3E~.S#3Z3E~. #3U3T3B4?.3U3C4?.3D4?.3T3S3D3Z4 .3S3C3Z4 .3B3Z4 %3E~.R#3D.3U3B~.Q#3S3U3E.3S3D.3B%3C~.P#3U3T3B4?.3U3C4?.3D4?.3T3S3D3Z4 .3S3C3Z4 .3B3Z4 %3E~.O#3U3T3S3I3E~.N#3U3T3S3Z.3T3S3D.3S3C.3B%4 3E~.M$~.L$~.K$~.J$~.!$~.I#4 3E~.H#3U3T3S3I.3U3T3S3Z4 .3T3S3D4 .3S3C4 .3B4 %3E~.G$~.F$~.E$~.D$~.C#0/~.B$~.A$~.?$~.@$~.##CG~.%#3X~./$~.-$~.*$~.$$~.&$~.)$~..$ ~48Z~S02~N00~F96~F93~N00 ~[~$J#2I.3A%3Z3E~$!#2I.3A%3Z3E~$I#2I.3A%3Z3E~$H#2I3Z3E~$G#2I.3A%4 3Z3E~$F#2H.2Y2G%4 3E~$E#2Y2G.2H%4 3E~$D#2Y2G.2H%4 3E~$C#2Y2G.2H%4 3E~$B#2H.2Y2G%4 3E~$A#2H.2Y2G%4 3E~$?#2H.2Y2G%4 3E~$@#2H.2Y2G%4 3E~$##2H.2Y2G%4 3E~$%#2H.2Y2G%4 3E~$/#2H.2Y2G%4 3E~$-#2H.2Y2G%4 3E~$*#3A.2I%4 3E~$$#2H3A.2Y2G3A.2I%4 3E~$H4 3E~$)#2H4 3E~$.#2H4 3E~&9#2H4 3E~&8#2H4 3E~&7#2H4 3E~&6#2H4 3E~&5#2H4 3E~&4#2H4 3E~&3#2H.2Y2G%4 3E~&2#2H.2Y2G%4 3E~&1#2H.2Y2G%4 3E~&0#4 2I3E~&Z#2I.3A%4 3Z3E~&Y#2I3E~&X#2I.3A%4?3E~&W#2I.3A%4?3E~&V#2I.3A%4?3E~&U#2I.3A%4?3E~&T#2I.3A%4?3E~&S#2I.3A%4 3E~& #2I.3A%4 3E~&R#2I.3A%4 3E~&Q#2I3E~&P#3/3 2Z3E~&O#2I3E~&N#3E~&M#2I.3A%3Z3E~&L#1C.1B%3E~&K#3E~&J#3E~&!#1C.1B%3E~&I#3D.3U3C.3U3T3B%3E~&H#3E~&G#2E3E~&F#2E3E~&E#2E3E~&D#2V3E~&C#2E3E~&B#3A.2I%3E~&A#3E~&?#1C.1B%3E~&@#1B3E~&##1B3E~&%#1B3E~&/#3E~&-#3E~&*#1B3E~&$#1C.1B%3E~&E~&)#3D.3U4 3E~&.#2I.3A%4 3E~)9#2I.3A%4 3E~)8#2G.2X2H%4 3E~)7#2G.2X2H%4 3E~)6#2I.3A%4 3E ~S7X~S03~N00~49/~F86~N00 ~[~*Z#2I.3A%4?3E~*Y#2I.3A%4?3E~*X#2I.3A%4?3E~*W#3A.2I%3Z3E~*V#3A.2I%3Z3E~*U#3A.2I%3Z3E~*T#2I3Z3E~*S#3A.2I%3Z3E~* #2I.3A%3Z3E~*R#3A.2I%3Z3E~*Q#3A.2I%3Z3E~*P#3A.2I%3Z3E~*O#3A.2I%3Z3E~*N#3A.2I%3Z3E~*M#3A.2I%3Z3E~*L#3A.2I%0V0U3Z3E~*K#3A.2I%0V0U3Z3E~*J#2I.3A%3Z3E~*!#2I3Z3E~*I#3/3 2Z3Z3E~*H#2I3Z3E~*G#3Z3E~*F#3Z3E~*E#3Z3E~*D#2I.3A%3Z3E~*C#2I.3A%3Z3E~*B#2I.3A%3Z3E~*A#3A.2I%3Z3E~*?#2I3Z3E~*@#2I.3A%3Z3E~*##3A.2I%3Z3E~*%#2I.3A%3Z3E~*/#2I.3A%3Z3E~*-#2I.3A%3Z3E~**#2I.3A%3Z3E~*$#2I.3A%3Z3E~*I.3A%3Z3E~*)#2I.3A%3Z3E~*.#2I.3A%3Z3E~$9#2I.3A%3Z3E~$8#2I.3A%3Z3E~$7#2I.3A%3Z3E~$6#2I.3A%3Z3E~$5#2I.3A%3Z3E~$4#2I.3A%3Z3E~$3#2I.3A%3Z3E~$2#2I.3A%3Z3E~$1#2I.3A%3Z3E~$0#2I.3A%3Z3E~$Z#2I.3A%3Z3E~$Y#2I.3A%3Z3E~$X#3A.2I%3Z3E~$W#2I.3A%3Z3E~$V#2I.3A%3Z3E~$U#2I.3A%3Z3E~$T#2I.3A%3Z3E~$S#2I.3A%3Z3E~$ #2I.3A%3Z3E~$R#2I.3A%3Z3E~$Q#2I.3A%3Z3E~$P#2I.3A.2I.3A%3Z3E~$O#2I.3A%3Z3E~$N#2I.3A%3Z3E~$M#2I.3A%3Z3E~$L#2I.3A%3Z3E~$K#2I.3A%3Z3E ~!7T~S04~N00~S7Z~F94~N00 ~[~/R#1F~/Q#1F~/P#1F~/O#1F~/N#1F~/M#1F~/L#1F~/K#1F~/J#1F~/!#1F~/I#3V3T3D3B.3V3S3D3C.3V3C3B.3E~/H#3E~/G#2E3E~/F#3D.4 3U3E~/E#1C.1B%3E~/D#3E~/C#3A.2I%3Z3E~/B#3A.2I%3Z3E~/A#2I.3A%3E~/?$~/@$~/##2I.3A%3E~/%#2I.3A%3E~//#2I.3A%3E~/-#2I3Z.3A3Z.2H3I%3E~/*#3A.2I%3E~/$#2H4 3E~/I.3A%3E~/)#2I.3A%3E~/.#2I.3A%3E~-9#2I.3A%0/3E~-8#2I.3A%3E~-7#2I.3A%3E~-6#2I.3A%3E~-5#3A.2I%3E~-4#2I.3A%3E~-3#2I.3A%4 3E~-2#2I.3A%4 3E~-1#2I.3A%4 3E~-0#2I.3A%3E~-Z#2I.3A%3E~-Y#2I.3A%3E~-X#2I.3A%3E~-W#2I.3A%3E~-V#2I.3A%3E~-U$~-T#3E~-S#3E~- #3E~-R$~-Q$~-P$~-O$~-N$~-M$~-L$~-K$~-J$~-!$~-I$~-H$~-G#3D.3U3C.3U3T3B%3E~-F#3A.2I%3E~-E#2I3E~-D#2I.3A%3E~-C#2I.3A%3E~-B#2I.3A%3E~-A#2I3E~-?#2I3E~-@#3A.2I%3E~-##3D.3U3C.3U3T3B%3E~-%#3A.2I%3E~-/#3D.3U3E~--#2I.3A%3Z3E~-*#2I.3A%3Z3E~-$#2I.3A%3Z3E~-I.3A%3Z3E~-)#2I.3A%3Z3E~-.#2I.3A%3Z3E~*9#2I.3A%3Z3E~*8#3A.2I%3Z3E~*7#2I.3A%3Z3E~*6#2I.3A%3Z3E~*5#2I.3A%3Z3E~*4#2I.3A%3Z3E~*3#2I.3A%4?3E~*2#2I.3A%4?3E~*1#2I.3A%4?3E~*0#2I.3A%4?3E ~Q6X~S05~N00~!7V~F92~N00 ~:~#6#0H3E4 ~#5#3E~#4#3E3Z~#3#3E3Z~#2#3E3Z~#1#3E3Z~#0#3E3Z~#Z#3E3Z~#Y#3E~#X#3E3Z~#W#3E3Z~#V#3E3Z~#U#3E3Z~#T#3E3Z~#S#3E3Z~# #3E4 ~#R#3E4 ~#Q#3E4 ~#P#3E4 ~#O#1?3E4 ~#N#1?3E4 ~#M#1?3E4 ~#L#1?3E4 ~#K#1?3E4 ~#J#1?3E4 ~#!#1?3E4 ~#I#1?3E4 ~#H#0Z1 3E4 ~#G#0Y3E4 ~#F#3E3Z~#E#3E3Z~#D#3E3Z~#C#3E3Z~#B#3E3Z~#A#3E3Z~#?#3Z3E~#@#3E4 ~###3E4 ~#%#3E4 ~#/#0/3E4 ~#-#3E3Z4 ~#*#3E3Z4 ~#$#3E3Z4 ~#E~#)#3E3Z4?~#.#3E3Z4?~%9#3E3I4 ~%8#3E3I4 ~%7#3E3Z4 ~%6#3E3Z4 ~%5#3E3Z4 ~%4#3E~%3#3E3Z~%2#4 3Z3E~%1#0Y3E~%0#0Y3E~%Z#3I.3Z%0Y3E4 ~%Y#3E~%X#0/3E~%W#3E~%V#3E~%U#3E~%T#0Z0Y1?3E4 ~%S#3E3Z~% #3I4 .4?%3E~%R#3E3Z4 ~%Q#3E4 ~%P#3E4 ~%O#3E4 ~%N#3E3Z4 ~%M#0/3E4 ~%L#3E4 ~%K#3E~%J#0/3Z3E~%!#0/3E~%I#0/0Z3E4 ~%H#0/3E4 ~%G#0/4 3E~%F#0/4 3E~%E#3Z0/3E~%D#0/3E~%C#0/3E~%B#0/3E~%A#0/3E~%?#0/3E~%@#0/0B3E~%##0/0B3E~%%#3E~%/#3U0B~%-#3U0B~%*#3T0B~%$#3T0B~%F~%)#1F~%.#1F~/9#1F~/8#1F~/7#1F~/6#1F~/5#1F~/4#1F~/3#1F~/2#1F~/1#1F~/0#1F~/Z#1F~/Y#1F~/X#1F~/W#1F~/V#1F~/U#1F~/T#1F~/S#1F~/ #1F ~G28~T02~N00~R00~G28~N00 ~:~.0#0/5C5A3Z~.Z#0/4B5C5A3Z~.Y#0/5C5A3Z~.X#0/5C5A3Z~.W#0/5C5A3Z~.V#0/5C5A3ZED~.U#0/5C5A3Z~.T#0/5C5A3ZCD~.S#0/5C5A3Z~. #0/5C5A3Z~.R#4S.4B3S%0/5C5A3Z~.Q#0/5C5A3Z~.P#0/4X5C5A3ZCDDE~.O#0/5C5A3Z~.N#0/5C5A3Z~.M#0/5C5A3Z~.L#0/4B3S5C5A3Z~.K#0/4S5C5A3Z~.J#0/4B5C5A3Z~.!#0/4S5C5A3Z~.I#0/4S5C5A3Z~.H#0/4S5C5A3Z~.G#0/5C5A3ZED~.F#3S0/4B5C5A3Z~.E#0/5C5A3Z~.D#0/5C5A3Z~.C#0/4C5C5A3ZED~.B#0/5C5A3Z~.A#0/4B5C5A3Z~.?#0/3S4B5C5A3ZCF~.@#0/4B5C5A3Z~.##0/3S4B5C5A3ZCF~.%#0/5C5A3Z~./#4S.4B3S%0/5C5A3Z~.-#0/3T4S5C5A3ZCD~.*#0/3T4S5C5A3Z~.$#0/4S5C5A3ZCCCD~.�/4S5C5A3Z~.[#0/4B3S3T5C5A3ZCH~.)#0/4B3S3T5C5A3ZCD~..#0/4B3S3T5C5A3Z~. #0/4S5C5A3Z~ 9#0/3C4B3S5C5A3ZCH~ 8#0/4B3S5C5A3ZCCCD~ 7#0/4B3S5C5A3ZCD~ 6#0/4B3S5C5A3Z~ 5#0/3S3T5C5A3Z~ 4#0/3S3T5C5A3Z~ 3#0/3S3T5C5A3Z~ 2#0/3S3T5W5C5A3Z~ 1#0/3S3T5F5C5A3Z~ 0#0/5F5C5A3ZED~ Z#5W3S3T.5F%0/5C5A3Z~ Y#5W3S3T.5F%0/5C5A3Z~ X#5W3S3T.5F%0/5C5A3Z~ W#4S.4B3S%0/5C5A3Z ~71X~T03~N00~G20~H97~N00 ~:~[-#0/4B5B5A3Z~[*#0/4B5B5A3Z~[$#0/4B5B5A3Z~[�/4B5B5A3ZCC~[[#0/3T3S4B5B5A3Z~[)#0/3S4B5B5A3Z~[.#0/3S4B5B5A3ZED~[ #0/3S4B5B5A3Z~)9#0/3C4B5B5A3ZCHED~)8#0/3T3S4B5B5A3ZCHED~)7#0/3T4B5B5A3Z~)6#0/3T3S4B5B5A3Z~)5#0/3T3S4B5B5A3Z~)4#0/3T3S4B5B5A3Z~)3#0/3T3S4B5B5A3ZCD~)2#0/4B5B5A3ZCC~)1#0/3S4B5B5A3Z~)0#0/4B5B5A3Z~)Z#0/4B5B5A3Z~)Y#0/4S5B5A3Z~)X#0/5B5A3Z~)W#0/5B5A3Z~)V#0/5B5A3Z~)U#0/5B5A3ZED~)T#0/5B5A3Z~)S#0/5B5A3Z~) #0/5B5A3Z~)R#3T4S.4B3S%0/5B5A3Z~)Q#0/5B5A3Z~)P#0/4X5B5A3ZCDDE~)O#0/5B5A3Z~)N#0/5B5A3Z~)M#0/5B5A3Z~)L#0/5B5A3Z~)K#0/4B5B5A3Z~)J#0/5B5A3Z~)!#0/5B5A3Z~)I#0/5B5A3Z~)H#0/4C5B5A3ZED~)G#0/5B5A3ZED~)F#0/4B5B5A3Z~)E#0/5B5A3Z~)D#0/4B5B5A3Z~)C#0/5B5A3Z~)B#0/5B5A3Z~)A#0/3S4B5B5A3Z~)?#0/4S5B5A3Z~)@#0/3S4B5B5A3Z~)##0/4S3T3S5B5A3ZCD~)%#0/4S3T3S5B5A3Z~)/#0/4S5B5A3ZCDCC~)-#0/3S4B5B5A3ZCC~)*#0/3T3S4B5B5A3Z~)$#0/3S4B5B5A3Z~)T4S.3S4B%0/5B5A3Z~)[#0/3S4B5B5A3ZCH~))#0/3S4B5B5A3ZCHCD~).#0/3S4B5B5A3ZCD~) #0/4B3S5B5A3Z~.9#0/4B5B5A3Z~.8#0/3S3T5B5A3Z~.7#0/3S3T5B5A3Z~.6#0/3S3T5B5A3Z~.5#0/3S3T5B5A3Z~.4#0/3S3T5B5A3Z~.3#0/3S3T5B5A3Z~.2#3T4S.4B3S%0/5B5A3Z~.1#0/4B5B5A3Z ~U1T~T04~N00~71Z~E94~N00 ~:~&)#0/4B5C5A3I~&.#0/4B5C5A3ICD~& #0/4B5C5A3I~[9#0/4B5C5A3I~[8#0/4B5C5A3IED~[7#0/4B5C5A3I~[6#0/4B5C5A3ICD~[5#0/4B5C5A3I~[4#0/4B5C5A3I~[3#0/4B5C5A3I~[2#0/4X4B5C5A3ICDDE~[1#0/4B5C5A3I~[0#0/4B5C5A3I~[Z#0/4B5C5A3I~[Y#0/4B5C5A3I~[X#0/4B5C5A3IED~[W#0/4B5C5A3I~[V#0/4B5C5A3I~[U#0/4B5C5A3I~[T#0/4B5C5A3I~[S#0/4C4B5C5A3IED~[ #0/4B5C5A3I~[R#0/4B5C5A3I~[Q#0/4B5C5A3I~[P#0/4B5C5A3I~[O#0/3T4B5C5A3ICDCHCD~[N#0/3T4B5C5A3ICHCD~[M#0/3T4B5C5A3ICD~[L#0/3T4B5C5A3I~[K#0/4B5C5A3ICDCHCC~[J#0/4B5C5A3ICHCC~[!#0/4B5C5A3ICCCD~[I#0/4B5C5A3I~[H#0/4B5C5A3I~[G#0/4B5C5A3ICD~[F#0/4B5C5A3I~[E#0/3T4B5C5A3I~[D#0/3T4B5C5A3I~[C#0/3T4B5C5A3I~[B#0/5W3T4B5C5A3I~[A#0/3T5F4B5C5A3I~[?#0/5F4B5C5A3IED~[@#5W3T.5F%0/4B5C5A3I~[##5W3T.5F%0/4B5C5A3I~[%#5W3T.5F%0/4B5C5A3I~[/#0/4B5C5A3I ~L5V~T05~N00~U1V~H40~N00 ~:~$A#0/4B5B5A3I~$?#0/4B5B5A3I~$@#0/1 4B5B5A3I~$##0/4B5B5A3I~$%#0/1 4B5B5A3I~$/#0/4B5B5A3I~$-#0/1 4B5B5A3I~$*#0/1 4B5B5A3I~$$#0/4B5B5A3I~$�/4B5B5A3I~$[#0/4B5B5A3IED~$)#0/4B5B5A3I~$.#0/4B5B5A3I~$ #0/4B5B5A3I~&9#0/4B5B5A3I~&8#0/4X4B5B5A3ICDDE~&7#0/4B5B5A3I~&6#0/4B5B5A3I~&5#0/4B5B5A3I~&4#0/4B5B5A3ICF~&3#0/4B5B5A3I~&2#0/1 4B5B5A3I~&1#0/1 3T4B5B5A3I~&0#0/1 3T4B5B5A3I~&Z#0/4B5B5A3I~&Y#0/4B5B5A3I~&X#0/4B5B5A3ICD~&W#0/1 4B5B5A3I~&V#0/4B5B5A3I~&U#0/4B5B5A3I~&T#0/4B5B5A3I~&S#0/4B5B5A3I~& #0/4C4B5B5A3IED~&R#0/4B5B5A3IED~&Q#0/4B5B5A3ICD~&P#0/1 4B5B5A3ICD~&O#0/4B5B5A3ICD~&N#0/1 4B5B5A3ICD~&M#0/4B5B5A3I~&L#0/1 3T4B5B5A3I~&K#0/4B5B5A3I~&J#0/1 3T4B5B5A3ICH~&!#0/4B5B5A3ICHCC~&I#0/1 3T4B5B5A3ICD~&H#0/4B5B5A3ICDCC~&G#0/1 3T4B5B5A3ICDCH~&F#0/4B5B5A3ICDCHCC~&E#0/1 4B5B5A3I~&D#0/1 4B5B5A3I~&C#0/4B5B5A3I~&B#0/1 3T4B5B5A3ICH~&A#0/4B5B5A3ICHCC~&?#0/1 3T4B5B5A3I~&@#0/1 3T4B5B5A3I~&##0/1 3T4B5B5A3I~&%#0/1 3T4B5B5A3I~&/#0/1 3T4B5B5A3I~&-#0/1 3T4B5B5A3I~&*#0/1 3T4B5B5A3I~&$#0/1 3T4B5B5A3I~&�/4B5B5A3I~&[#0/4B5B5A3I ~A3Z~T06~N00~L5X~F82~N00 ~:~*A#5?~*?#0B0/5?~*@#0B0/5?~*##0B0/5?~*%#0B0/5?DD~*/#0B0/5?~*-#0B0/5?~**#0B0/5?~*$#0B0/5?~*�B0/5?~*[#5?ED~*)#0/5?~*.#0/5?~* #0/5?~$9#0B0/5?~$8#5?~$7#0/5?~$6#5?~$5#0/5?~$4#0B0/5?~$3#0/5?~$2#0B0/5?~$1#0B0/5?~$0#0/5?~$Z#3T0/5?~$Y#3T0/5?~$X#0/5?CC~$W#0/5?4U~$V#0/5?DD~$U#0/5?~$T#0B0/5?~$S#0S0/5?~$ #0B0/5?~$R#0B0/5?~$Q#0B0/5?~$P#0B0/5?~$O#0B0/5?~$N#0B0/5?~$M#5W4D3T.5W4U.5F%5?~$L#3T5?~$K#3T5?~$J#4U.4D%3T5?~$!#0/4U5?~$I#4D3T.4U%5?~$H#4D3T.4U%5W5?~$G#5F5?ED~$F#5F.5W4U.5W4D3T%5?~$E#5W4D3T.5W4U.5F%5?~$D#5F.5W4U.5W4D3T%5?~$C#5W4D3T.5W4U.5F%5?~$B#0/5? ~I0S~T07~N00~A4/~F61~N00 ~:~-J#4I~-!#0/0B4I~-I#0/0B4I~-H#0B0/4I~-G#0B0/4I~-F#0B0/4I~-E#0B0/4I~-D#0/0B4I~-C#4I~-B#4I~-A#0B0/4I~-?#0B0/4I~-@#0B0/4I~-##0S0/4I~-%#4I~-/#4I~--#0B0/4I~-*#0B0/4I~-$#0S0/4I~-I~-[#4I~-)#4U4I~-.#4U4I~- #0/4IDD~*9#4I~*8#4I~*7#0/4I~*6#4I~*5#0B0/4I~*4#0/4U4I~*3#0B0/4I~*2#0/4U4I~*1#0/4U4I~*0#0/0B4U4I~*Z#0/4IDD~*Y#0/0B4D4I~*X#0S0/4D4I~*W#0/4I~*V#0/4I~*U#0B0/4I~*T#0B0/4I~*S#0B0/4I~* #0B0/4I~*R#4I~*Q#4I~*P#4I~*O#3T4I~*N#3T4I~*M#4ICC~*L#0/4I~*K#3C4U.3T%4I~*J#0B0/4I~*!#3T4I~*I#3T4I~*H#3T4D4I~*G#4U4I~*F#3C4U.3T%4I~*E#3C4U.3T%4I~*D#3C4U.3T%4I~*C#3C4U.3T%4I~*B#3C4U.3T%4I ~19O~T08~N00~I0U~A92~N00 ~:~-8#4H~-7#4H~-6#4H~-5#4H~-4#4H~-3#3T4H~-2#3T4H~-1#4HCC~-0#0U4H~-Z#0U4H~-Y#0U4H~-X#0U4H~-W#4H~-V#4H~-U#0B0/4H~-T#0/0B4H~-S#3C0U.3T%4H~- #3T4H~-R#3T4H~-Q#0U4H~-P#3C0U.3T%4H~-O#0U4H~-N#3C0U.3T%4H~-M#3C0U.3T%4H~-L#3C0U.3T%4H~-K#3C0U.3T%4H ~48J~T09~N00~19Q~A83~N00 ~:~ V$~ U#0/~ T#ED~ S#4X~ #5A5B~ R#5A5C~ Q#5?~ P#4I~ O#4H~ N#4V~ M#DE~ L#4T~ K#DC~ J#2W2X~ !#2U2T2G5C5A~ I#2C2G5C5A~ H#5B.2D5C%2G5A~ G#3X~ F#3/~ E#0H~ D#0I~ C#0Z0Y~ B$~ A#5A~ ?#2 2G5A~ @#2G5AB?~ ##1Z2G5A~ %#2G5AAI~ /#0V2G5A~ -#2G5A?E~ *#5B.5C%2S2G5C~ $#5B.5C%5A2GBB~ B.5C%2/2G5A~ )#5C2G5ABA~ .#2Z5A~ #2Y5A ~ ~SP2~Q00~Q00~G97~Q00 ~M564G36~M448G39~M570G42~M665G45~MG45089~,0 0~M628G48~C573G48~BQ65/~MG83G79~M394G51~MG45G57~M662~MG57B52~MG57D04~MG57D37~M445G54~MG57B67~MG39G57~MG57E82~YG36G60~Y~Y~YG84G39~SG85G39~YG60G39~Y~Y~YG84G45~SG85G45~YG60G45~Y~Y~MG42089~C0 0~Q089~C089G45~B?22S~)0 1~BR94~MG36089~C0 0~Q089~C089G39~B?57S~)0 1~B?29~YG84G48~YG84G51~MG42G63~YG84G63~SG48G63~MG63G66~AG86G66~YG84G66~MG36G63~YG84G63~SG51G63~AG86G63~MG63G69~YG84G69~YG60G48~MG48089~CG890 0~H089~HG78~,0 1~CG69G66~BB76U~BC37T~MG42094~MG36099~M0!00?0~BB38G79T~)0 1~BE68~B343~MB53B53R~D50~B343~MB68B68W~E63~BB42~MG48G72~YG84G72~SG86G72~AG69G72~MG39G75~BF59~MG72C25~MC280?0~BE91~BD16~MG36G75~MG45G72~YG84G72~AG69G72~SG66G72~BF59~MG75C89~M0!0C89~BE91~B343~MD05D05R~D46~MD150?0~BE68~M0!0D26~B343~MD38D38R~D46~BD09~BE68~MG42628~M701D67~U%U1R~D445D79~U%U1M~BE00G79T~MG78089~)0 1~B363~G82~MS99G75~YG84G75~MG90G73~MG93G72~CG75G72~BL31S~U%U1B~AG94G72~BE35~.~BE63~HE90~B343~ME83E83W~E63~BE90~HF58~BF07G79T~)0 1~CG45G72~BF30/~MG83G79~BF55~MG95G79~MG72089~MG72G78~,0 1~BF58~HG33~YG60G72~Y~Y~MG42094~MG36099~MG72D12~YG84G75~SG69G75~AG66G75~YG60G75~Y~Y~MG75D26~BG33~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~F~.EP~T~ ~A~C~ ~0~000~1~F ~ ~J01~T00~T00~H97~T00 ~B?00~BK52~MO97099~?O98178~MN90094~)W08U25~VT48N911~BZ37~)N91~BW71N78[~H089O93~BU400 0:~C0 0N80~Q089~BU06S~M0 00 0~H089~BT67~M0 0089~B0 0~BZ37~BU40N78.~H094178~,U25~MN800!0~C094P01~BT08S~AP02094~CN80P05~BU17/~H094104~BW530!0$~BT080!00~C0!2P05~BT08S~H089O11~BW040 0 ~,0!1~C0 00!2~Q089~)0!1~BV68T~BV68S~#P08099~BV20~MPC4PC4~H099~C0!20?2~HN87~BY40U~BZ70S~BX17~BW53K~,W08N84~H099103~M0?0O14~BK25~AP02099~CO14P05~BW23/~AP02094~MO97099~BU85~MP05N83~BW89~MN80N83~BZ55~BZ37~CN80N83~BW89/~BZ55~BT44~M1?21?2~H099~C0!20?2~BX17T~BZ77S~M0?00?0~H099~C0!20?2~H099~BZ77S~BY07T~BX45~BZ55~VY18N841~L003188~B351~JA7~B363~0!2~BJ96~MP09U29~HN90103~NN84~BT04~VY58N911~B335~N80~Y90~BY70N78[~BY90~,N79~C0!2N80~)N79~BY98S~,N91~BX17~MP100!0~BZ55~CN80P05~BZ29S~BZ37~BZ05~)N91~BW53~HZ54~B335~N80~X81~BZ54~HZ69~B363~N80~BZ69~MN87099~MP100!0~M0?2O14~MP11~H0990?3~BK25~MP14O14~B!870?0)~BJ490?0@~BJ740?0$~BJ960?0%~BK070?0.~BJ560?0:~,O14~M0?0O14~)O14~H0990?1~B!02~B363~P17~M0?2O13~BK25~B363~P20~BJ310?1*~H0990?3~B!06~M0?5O14~H0990?6~B!02~B363~P23~M0?3O14~H0990?4~B!02~M0?3O14~BK25~M103O14~BJ63~B363~P05~BW53~M0?3089~M1W8O14~BJ63~HK39~B363~O14~BK39~BZ55~BZ37~BX09~HM05~M665089~)0 0~Q089~,Q00~/0 0~H089~VK75Q001~HL34O11~MP24O11~MO11~B343~L%U1/81R~L23~,/82~M/83O11~HL34~)/82~B343~L%U1P34R~L57~SP25S99~M935L53~C/81O94~BL88S~BL09~HL53P34~MP26O94~BM05~BM46/85T~)N84~BZ55~BT08~BM38/85I~BM14~BN04/816~BM97/816~VM90N841~,L83~BK52~BM82/816~BM66~)L83~BT60~B351~SP3~HM37M18~HO66M18~HN90106~M/72O94~MP27U29~BK52~BM18~BZ37~BZ37~AP28103~BN67101 ~BT44~MP31103~BT44~ ~ ~ ~106 ~ ~ ~:~K40~***~T44~.MC~W82~#DC~X09~.SE~X09~.DY~W82~*24~X81~.EP~M26~.DT~M14~.DI~M06~.EE~N48~.ST~N40~.LC~T44~.FS~ ~000~?~286~3~.MC~920~N~$~[~ ~.LC~.OP~ @~ ~2~6~H~1~J00 ~H358954~LA64S99~/299~/~LA67103~,104~VA510861~B343~L%U1/81R~?52~MA68Y32~,A87~B343~M%U1A72R~?78~C/86A62~B?38/~)A87~BA15/724~BA15/728~BA40~,L83~MA69V57~MA70M82~MA71/72~M/72O94~BT04~B?38F~B?91~DT0~50~000~)~A~N~4 } ~ )&~DI1~N00~R00~G90~N00 ~..)15@003%~.)@006@009)17@012%~.&)DC@015%~.$@006@018)17@012%~.*)DC@015%~.-@006@021)17@012%~./)DC@024%~.%)15@027%~.#)15.010.013%~.@)DC@030%~.?@006@033)07@006@036&@039%~.A)SW@006@042@030%~.B)CW@006@045,@006@048%~.C)B @006@051%~.D)07@006@036&@039%~.E)SW@006@048@030%~.F)CW@006@042,@006@045%~.G)B @006@051%~.H$)8L)BW$)2L,@006@045%~.I)B $)8M%~.!@006@054)07@006@036&@039%~.J)SW@006@045@030%~.K)CW@006@042,@006@048%~.L)B @006@051%~.M$)0J)01@006@021,@006@057@060%~.N)29$)8L,@006@063,@066%~.O)B $)8L%~.P)29$)0K,@006@063,@069%~.Q)29$)0M,@006@063,@072%~.R)B @006@075%~. $)0K)19@078&@081%~.S)07@006@084&@039,@078&@087%~.T)07@078&@090,@093&@096%~.U)20@006@099,@006@021%~.V)B @024%~.W)01@006@057,@006@021%~.X)01@102&@096,@006@105%~.Y)B $)0N%~.Z$)0M)19@078&@081%~.0)SW@006@108&@081%~.1)07@006@084&@039,@078&@111%~.2)B @114&@096%~.3)17@117@120@117%~.4)17@117@120@117%~.5)17@117@120@117%~.6)CW@006@108&@081%~.7)01@006@057,@006@021%~.8)B @006@075%~.9@006@123)07@006@036&@039%~).)CW@006@042,@006@045%~)))CW@006@048%~)&@006@051)01@006@021,@006@099@126% ~ &)~DI2~N00~H28~G90~N00 ~)$)01@006@036&@039,@006@021%~)*)01@039&@096,@006@021%~)-)01@129&@096,@006@132%~)/)51@111%~)%)06@006@135@060%~)#)BW$)0J,@006@045%~)@)BW$)0J,@006@048%~)?)08$)0L,@006@063,@138%~)A$)8M)19@078&@081%~)B$)0N)19@078&@081%~)C)MN@024&@096%~)D)06@006@057%~)E)07@006@021%~)F)29$)1L,@006@132-@072,@138%~)G)29$)1P,@006@132-@072,%~)H)01@024&@096,@006@141%~)I)06@006@021%~)!)CW@006@144@030%~)J)01@024&@096,@006@147%~)K)06@006@021%~)L)29$)1K,@006@147,%~)M)SW@006@144%~)N$)1K)19@078&@081%~)O)01@024&@096,@006@150%~)P)01%~)Q)06@006@021%~)R$)1L)19@078&@081%~) $)0L)19@078&@081%~)S$)1P)19@078&@081%~)T)BW$)2N,@006@042%~)U)BW@006@153,@006@042%~)V)29$)4P,@006@063,@069%~)W)01@006@156,$)2K&@039%~)X)01@117@159@117,$)2K%~)Y)01@006@099,@006@021%~)Z)29$)2K,@006@063,@081%~)0)29$)2K,@006@132-@072,%~)1)BW$)2L,@006@048%~)2)29$)2K,@006@132-@072,@138%~)3)01@117@066@117,@006@162&@165%~)4)01@117@168@117,@006@162&@102%~)5)B @006@171%~)6)29$)1R,@006@132-@072,@174%~)7)C @006@177&@180,@006@105-@081%~)8)B $)3L%~)9$)1R)19@078&@081%~&.)29$)2L,@006@177&@039,@066%~&)$)2K)B @024% ~ &9~DI3~N00~76S~G90~N00 ~&&$)2L)19@078&@081%~&$)29$)2M,@006@183,%~&*)29$)8R,@006@183,@159%~&-)MN@006@186,@078&@072%~&/)33@024%~&%)B $)2M%~&#$)8R)MN@006@186,@078&@072%~&@)34@024%~&?$)2M)19@078&@081%~&A)BW@006@153,@006@045%~&B)A &@081,@006@150%~&C)29$)3N,@006@189,%~&D)B $)3N%~&E)MN@006@186,@006@192@030%~&F)MN@006@189,@006@186%~&G)MN@006@192,@006@189%~&H$)2N)19@078&@081%~&I)08@006@153,@006@063,@138%~&!)29$)2P,@006@183,%~&J)MN@006@186,@078&@072%~&K)33@024%~&L$)2P)19@078&@081%~&M$)2O)19@078&@081%~&N)S @006@105%~&O)29@006@153,@006@132-@072,%~&P)B @006@153%~&Q)29$)2Q,@006@132-@072,@138%~&R)01@117@066@117,@006@162&@165%~& )01@117@168@117,@006@162&@102%~&S)B @006@171%~&T$)0O)01&@180,$)3O@030%~&U$)4O)05@117@195@117,@006@177&@198%~&V)MN@006@186,@078&@072%~&W)32@024,@006@177%~&X)25$)5Q%~&Y$)2Q)19@078&@081%~&Z)29$)3P,@006@063,@069%~&0)29$)2R,@006@132-@072,@138%~&1)29$)2R,@006@132-@072,@174%~&2)C @006@177&@201,@006@141%~&3)B $)3J%~&4)29$)2R,@006@132-@072,@204%~&5)C @006@177&@207,@006@210%~&6)B $)3J%~&7)C @006@177&@213,@006@216%~&8)B $)3J%~&9)C @006@177&@219,@006@150% ~ **~DI4~N00~W9W~G90~N00 ~$.)B $)3J%~$))C @006@177&@222,@006@147%~$&)B $)3J%~$$$)2R)19@078&@081%~$*)B @006@153%~$-$)3J)07$)3K&@039%~$/)BE$)3K%~$%)H $)2R%~$#)B $)2N%~$@$)3K)B @024%~$?$)3L)07$)3M&@039%~$A)BE$)3M%~$B)H $)1R%~$C)09@225@024%~$D)H %~$E)B @078-@072%~$F$)3M)B @024%~$G$)3P)19@078&@081%~$H)29$)4L,@006@132-@072,@138%~$I)29@078&@165,@006@132-@180,%~$!)MN@006@186,@078&@072%~$J)33@024%~$K)MN@006@186,@078&@072%~$L)31@024%~$M)29$)4J,@006@177&@081,@159%~$N)S @006@228@231%~$O)MN@006@177&@207,@006@228-@081%~$P)MN%~$Q)SW@006@177&@234%~$R)A @006@177&@213,@006@228-@081%~$ )CW@006@177&@234%~$S$)3R)C @006@228-@081,@117@024@039@102@237@117%~$T)BL$)4M%~$U)A @006@177&@240,@006@228-@072%~$V)C @006@228-@081,@006@243%~$W)BE$)4J%~$X)BH$)4J%~$Y)H $)4J%~$Z)B $)2O%~$0$)4M)SW@006@177&@246%~$1)S @117@039@102@237@024@117,@006@228%~$2)A &@081,@006@177&@240%~$3)CW@006@177&@246%~$4)B $)3R%~$5$)4J)B $)8P%~$6)01@117@249@117,@006@177&@252%~$7)01@006@216%~$8)01@117@255@117%~$9)01@006@243%~*.)01@006@141%~*))01@117@249@117%~*&)01@006@150%~*$)01@117@255@117%~**)BW$)4N,@006@042% ~8-&~DI5~N00~O3T~G90~N00 ~*-$)4K)01@006@147,@006@177&@222%~*/)01@117@081@258@261@066@249@117,@006@177&@072%~*%)01@117@069@117,@006@162&@165%~*#)01@117@264@117,@006@162&@102%~*@)B @006@171%~*?$)4L)19@078&@081%~*A)B @006@153%~*B$)4N)BW$)4K,@006@144%~*C)01@006@177&@180,@006@147%~*D)B $)4K%~*E$)4P)19@078&@081%~*F)MN@006@186,@078&@072%~*G)38@024%~*H)29$)2L,@006@132-@072,%~*I)B $)2L%~*!)29$)4R,@006@132-@072,@138%~*J)B $)8P%~*K)01$)8Q@267,@006@177&@201%~*L)01$)8Q%~*M)01@006@105-@081%~*N)01@117@081@270@273@066@249@117%~*O)BW@078&@237,@006@045%~*P)B @078&@111%~*Q)01@117@276@117,@006@177&@039%~*R)01@117@069@117,@006@162&@165%~* )01@117@264@117,@006@162&@102%~*S)B @006@171%~*T$)4R)19@078&@081%~*U)MN@006@186,@078&@072%~*V)38@024%~*W)B $)2L%~*X$)5Q)MN@006@186,@078&@072%~*Y)31@024%~*Z)S &@081,$)3O%~*0)08$)4O,$)3O,@159%~*1)09@279@282%~*2)H %~*3)B $)0O%~*4$)8P)07$)8O&@039%~*5)07$)8O-@081,@024&@096%~*6)07@006@021,@006@177&@285%~*7)20@006@177&@180,@006@288@291%~*8$)8N)CW@024&@096%~*9)20@117@249@117,@024&@096%~-.)07@006@021%~-))C @006@021,&@006@177-@081%~-&)BU$)8N% ~ /*~DI6~N00~E6S~G90~N00 ~-$)20@006@288,@006@177&@180%~-*)07@006@021,@024%~--$)8O)B @024%~-/@006@153)19@078&@081%~-%)BW$)5L,@006@045%~-#)08$)5O,@006@063,@138%~-@)01@006@057,@006@021%~-?)29$)5J,@006@132-@072,@138%~-A)29$)5L,@006@132-@072,%~-B)01@006@141,@024&@096%~-C)51@072%~-D)07@006@021%~-E$)5J)19@078&@081%~-F$)5L)19@078&@081%~-G$)5O)19@078&@081%~-H)01@006@135,@006@021%~-I)01@006@132,@129&@096%~-!)51@111%~-J)BW@006@294,@006@042%~-K)BW@006@075,@006@045%~-L$)5M)01@006@099,@006@021%~-M@006@036)B @024%~-N@006@294)01@117@297@117,@114&@096%~-O)B $)5M%~-P@006@075)01@117@159@117,@114&@096%~-Q)CW@006@045%~-R)B $)5M%~- $)3N)09@300@282%~-S)H %~-T)B $)2N%~-U@006@084)B @024%~-V@006@171)07$)5P&@039%~-W)01@006@303,@006@162%~-X)05@117@195@117,@006@177&@198%~-Y)MN@006@186,@006@162&@180%~-Z)B @006@306%~-0)09@006@162%~-1)01@006@309,@078&@072%~-2)MN@024%~-3)CW%~-4$)5P)B @024%~-5@006@303)17@117@312@117%~-6@006@162)17@117@312@117%~-7)17@117@138@180@117%~-8)17&$)5P%~-9)17@117@264@315@318@024@117%~/.)DC&@006@177%~/))DC@117@066@117%~/&)17@291%~/$@006@210)19@078%~/*)17@060% ~ %*~DI7~N00~50J~G90~N00 ~/-@006@216)19@078%~//@006@150)17@060%~/%@006@147)17@291%~/#@006@141)17@267%~/@@006@132)17@321%~/?@006@324)17@060%~/A@006@177)DA@327@024,@330,@333%~/B@336)17@117@249@249@249@249@249@117%~/C@006@243)19@336%~/D@006@105)19@006@132-@339%~/E@006@183)19@006@132-@180%~/F@006@156)19@006@132-@102%~/G@006@189)19@006@132-@039%~/H@006@186)19@006@132-@138%~/I@006@063)19@006@132-@081%~/!@006@342)07@006@084&@039%~/J)01@006@021,@006@099%~/K)01@006@084&@039,@006@021%~/L)01@039&@096,@006@021%~/M)01@345&@096,@078&@111%~/N)29$)7K,@117@081@204@174@117,@024%~/O)51@138%~/P)H @024,@348@237%~/Q)B @006@084%~/R$)7K)29$)7J,@024&@096,@315%~/ )C @024&@096%~/S)06@006@021%~/T)B $)7K%~/U$)7J)CS@198%~/V)R %~/W)C @351,@117@066@261@168@354@297@117%~/X)BE$)7L%~/Y)H @024,@357@081%~/Z)B $)7J%~/0$)7L)MN@024&@096%~/1)06@006@021%~/2)01@360,@024&@096%~/3)07@006@021%~/4)01@093,@024&@096%~/5)07@006@021%~/6)01@201,@024&@096%~/7)07@006@021%~/8)01@363,@024&@096%~/9)07@006@021%~%.)01@366,@024&@096%~%))01@006@099,@006@021%~%&)B @006@084%~%$@006@369)07@078&@072%~%*)B @024% ~2%8~DI8~N00~U3R~G90~N00 ~%-@006@372)07@078&@072%~%/)B @024%~%%@006@306)07@006@375&@039%~%#)B @006@372%~%@)B @006@369%~%?)01@006@021,@006@378@126%~%A)01%~%B)01@006@375&@039,@006@021%~%C)01@039&@096,@006@021%~%D)01@165&@096,@006@381&@282%~%E)01@237&@096,@006@384&@039%~%F)01@237&@096,@006@387&@039%~%G)01@345&@096,@006@018%~%H)07@006@390&@102,@345&@393%~%I@006@396)A &@081,@024&@096%~%!)01@117@180@180@117,@006@399%~%J)01%~%K@006@381)RT@024,@024%~%L)07@006@309@060%~%M)07@006@402&@102%~%N)29@006@405,@006@381&@282,@069%~%O@006@387)24@024%~%P@006@390)29@006@402,@024,@195%~%Q)51@345%~%R@006@405)25@006@408%~% )25@006@408%~%S@006@384)24@024%~%T@006@411)19@078&@081%~%U)01@006@378,@006@021%~%V)01%~%W@006@375)B @024%~%X@006@408)29@006@414,@006@399,@180%~%Y@006@417)S &@081,@006@399%~%Z)BM@006@420&@072,@006@399%~%0)MN@006@381&@039,@078&@072%~%1)31@024%~%2)29@078&@180,@006@381&@282,@066%~%3)29@006@423,@006@399,@333%~%4)B @006@381%~%5@006@414)29@006@426,@006@381&@282,@066%~%6)S &@081,@138&@096%~%7)BM@006@429,@138&@096%~%8@006@414)S &@081,@138&@096% ~6#6~DI9~N00~L6P~G90~N00 ~%9)BM@006@432,@138&@096%~#.@006@414)S &@081,@138&@096%~#))BM@006@429,@138&@096%~#&)B @006@417%~#$@006@426)S &@081,@138&@096%~#*)BM@006@432,@138&@096%~#-)B @006@417%~#/@006@402)MN@117@180@180@117,@024%~#%)MN%~##)ZS&@138,@024&@096%~#@)B @006@381%~#?@006@423)24@006@435%~#A)S &@081,@006@438%~#B)BM@006@441,@006@438%~#C@006@444)MN@006@381&@039,@078&@072%~#D)35@024%~#E)01@117@180@180@117,@006@399%~#F)B @006@381%~#G@006@420)19@078-@039%~#H)B @006@396%~#I)H @024,@447@072%~#!)MN@006@381&@039,@078&@072%~#J)31@024%~#K)01@006@381&@102,@078&@282%~#L)RT@024,@024%~#M)H @024,@450@072%~#N)30@006@411,@333%~#O)B @006@396%~#P@006@432)01@117@072@180@117,@138&@096%~#Q)09@456@024%~#R)H %~# )B @006@417%~#S@006@429)01@117@138@180@117,@138&@096%~#T)09@459@024%~#U)H %~#V)B @006@417%~#W@006@441)01@117@180@117,@006@438%~#X)09@462@024%~#Y)H %~#Z)B @006@444%~#0@006@435)01@237&@096,@006@375&@039%~#1)09@465@024%~#2)H %~#3)B @006@423&@237%~#4@006@438)17@117@180@117%~#5@006@399)17@117@180@117%~#6@006@468)DC@030% ~ 1~DT1~N00~R00~G90~N00 ~ )17@003@006@003%~ .)17@003@006@003%~ ))17@003.010.013@003%~ &)17@009%~ $)17@003.010@003%~ *)17@012%~ -)17@003.010@003%~ /)17@003@015@015@018@003%~ %)17@003.010.013@003%~ #)17@009%~ @)17@003.010.013.016.019.022@003%~ ?)17@021%~ A)17@003@024@003%~ B)17&@027@027%~ C)17@003@030@003%~ D)17@003@033@003%~ E)17@003@036@003%~ F)17@003@036@036@036@003%~ G)17@003@036@003%~ H)17@003@018@003%~ I)17@003@039@003%~ !)17@003@030@003%~ J)17@003@036@003%~ K)17@003.010@003%~ L)17@003@036@003%~ M)17@003.010@003%~ N)17@003@036@003%~ O)17@003@042@003%~ P)17@003@045@003%~ Q)17@003@018@003%~ R)17@003@048@003%~ )17@003@051@003%~ S)17@003@054@003%~ T.010.013)B @057@060%~ U)B @006&@063%~ V)B $)2M%~ W)01@057@066,@057@069%~ X)01@057@060&@072,@057@066%~ Y)MN@015&@075%~ Z)06@057@066%~ 0)01@015&@075,.010.013-@078%~ 1)C % ~ .R~DT2~N00~H00~G90~N00 ~ 2)C @015&@075%~ 3)C %~ 4)06@057@066%~ 5)01@015&@075,$)1M&@081%~ 6)01$)2Q,@057@066%~ 7)29$)2L,.010.013&@075,@084%~ 8$)0M)02.010.013&@075,.016.019%~ 9)07$)2Q,.010&@075%~. )B $)2L%~..$)0M)29@006&@087,$)1M&@081,@090%~.)$)1M)02.010.013&@075,@015%~.[)07$)2Q,.010&@075%~.&$)7L)19@006&@018%~.$)02.010.013,.016.019%~.*)29@006&@087,$)1M&@081,@090%~.-$)1M)02.010.013,@015%~./)01@057@069,@057@066%~.%)B @057@060%~.#)09.010.013%~.@$)2Q)19@006%~.?)09.010.013%~.A$)4Q)19@006%~.B$)2L)19@006&@018%~.C)MN.010.013-@072,$)1K&@093%~.D)B @057@096%~.E)09$)1K%~.F)S @057@066&@018%~.G)A @003@018@003,.010.013-@099%~.H)01@057@102,@057@066%~.I)MN@015&@075%~.!)05@003@084@003%~.J)07$)2Q,@015%~.K)B $)7L%~.L)B $)0M%~.M$)1K)17@003@105@003%~.N)17@003@045@093@003%~.O)17$)2K%~.P)RT.010,.013.016&@108%~.Q$)2K)19@006&@018%~.R)01@057@069,@057@066% ~ )H~DT3~N00~69 ~G90~N00 ~. )01@057@111,@057@114%~.S)01%~.T)01@003@036@003,.010.013&@018&@108%~.U)B @057@117%~.V)09.010.013-@120%~.W)07$)1K&@042,@123@093%~.X)B $)2L%~.Y$)2M)19@006&@018%~.Z)01$)4Q,$)2Q%~.0)B @057@060%~.1)CW$)9M%~.2)01@057@066,@057@069%~.3)01@057@060&@072,@057@066%~.4)MN@015&@075%~.5)C %~.6)C %~.7)06@057@066%~.8)01@015&@075,$)1M&@072%~.9$)3M)19@006&@018%~) )01$)2Q,@057@066%~).)07$)1M&@081,.010.013&@075%~)))07$)5M&@081,.010.013&.016&@075%~)[)07$)2Q,.010&@075%~)&)01@057@069,@057@066%~)$$)1M)19@006&@018%~)*)02@015,@015%~)-)02.010.013,@015%~)/)02.010.013,.016.019%~)%)29@006&@087,$)1M&@072,@090%~)#$)1M)02@015,.010.013%~)@$)5M)29$)2L,@015,@084%~)?)B $)2L%~)A)BW$)3M,$)9M@126%~)B$)2P)19@006&@018%~)C)B @057@060%~)D$)2Q)17@027%~)E$)2L)19@006&@018%~)F)CW$)9M%~)G)A @003@018@003,.010.013-@099%~)H)MN.010.013-@072,$)1K&@093% ~ [%~DT4~N00~V6U~G90~N00 ~)I)B @057@096%~)!)09$)1K%~)J$)3L)19@006&@018%~)K)07$)2Q,@015%~)L)B $)2P%~)M$)1K)17@003@105@003%~)N)17@003@042@093@003%~)O)17$)2K%~)P)WT.010,.013.016&@108%~)Q$)2K)19@006&@018%~)R)01@057@069,@057@066%~) )01@057@111,@057@114%~)S)01%~)T)B @057@117%~)U)09.010.013-@120%~)V)07$)1K&@042,@129@093%~)W)B $)3L%~)X$)2M)19@006&@018%~)Y)B @057@060%~)Z)C $)2Q,@003@015@015@015@003%~)0)BE@057@060%~)1)01@057@066,@057@069%~)2)07@057@066,.010.013-@018%~)3)07@057@066,.010.013&@108%~)4)MA$)2Q,@057@066%~)5)07$)1M&@072,@015&@075%~)6)MN@015&@075%~)7)06$)2R@012%~)8)01.010.013-@081,.016-@042&@075%~)9)01.010.013-@081,.016-@018&@075%~[ )07@057@066%~[.$)3P)01.010.013-@081,@015&@075%~[))07@057@066%~[[)C @057@066,$)2R%~[&)C @057@066,&.010.013-@018%~[$)BU$)3P%~[*)SW$)9M%~[-)B $)3M%~[/)01@057@066,@057@069%~[%)01@057@060&@072,@057@066% ~8[6~DT5~N00~M5W~G90~N00 ~[#)MN@015&@075%~[@)06@057@066%~[?)01@015&@075,.010.013-@078%~[A)C %~[B)C @015&@075%~[C)C %~[D)06@057@066%~[E)01@015&@075,$)1M&@081%~[F)BW$)2L,$)9L@126%~[G)C .010.013&@072,&@027@045%~[H)BE$)2L%~[I$)7L)01$)2Q,@057@066%~[!)02.010.013&@075,.016.019%~[J)MA.010.013&.016-@018,$)2Q%~[K)S .010.013&.016-@018,.019.022&@072%~[L)29@006&@087,$)1M&@081,@090%~[M$)1M)02.010.013&@075,@015%~[N)MA.010.013&.016-@018&@075,$)2Q%~[O)S .010.013&.016-@018&@075,.019.022&@072%~[P)01@057@069,@057@066%~[Q)B @057@060%~[R$)2Q)17@132%~[ $)2L)19@006&@018%~[S)MN.010.013-@072,$)1K&@093%~[T)B @057@096%~[U)09$)1K%~[V)CW$)9L%~[W)07$)2Q,@045%~[X)A @003@018@003,.010.013-@099%~[Y)B $)7L%~[Z$)1K)17@003@105@003%~[0)17@003@045@093@003%~[1)17$)2K%~[2)RT.010,.013.016&@108%~[3$)2K)01@057@069,@057@066%~[4)01@057@111,@057@114%~[5)01%~[6)01@003@036@003,.010.013&@018&@108% ~ &P~DT6~N00~C14~G90~N00 ~[7)B @057@117%~[8)09.010.013-@120%~[9)07$)1K&@042,@123@093%~& )B $)2L%~&.$)2M)01&@027@045,.010.013&@072%~&))B @057@060%~&[)SW$)9J%~&&)01@057@066,@057@069%~&$)07$)8J&@081,@015&@135%~&*)01@057@060&@072,@057@066%~&-)MN@015&@075%~&/)C %~&%)C %~&#)06@057@066%~&@)01@015&@075,@057@114%~&?)29$)9R,@057@114,@090%~&A$)7L)A .010.013&.016-@018,$)4Q%~&B$)7L)A .010-@018&@135,$)4Q%~&C)01$)2Q,@057@066%~&D)C $)5Q,$)4Q%~&E)BH$)2L%~&F)A .010.013&.016-@018,.019.022&@072%~&G)A .010-@018&@135,.013.016&@072%~&H)02.010.013,.016.019&@075%~&I)02@015&@135,.010.013&@075%~&!)MA.010.013&.016-@018,$)2Q%~&J)MA.010-@018&@135,$)2Q%~&K)01@057@069,@057@066%~&L$)8J)07@057@114,@015%~&M)B @057@060%~&N$)2L)05@003@084@003,.010.013&@075%~&O)A &@045,.010.013&@072%~&P)07$)3K&@072,.010.013&@075% ~ $G~DT7~N00~23M~G90~N00 ~&Q)MZ@003@138@003,.010.013&@072%~&R)A @003@018@003,.010.013-@099%~& )MN.010.013-@072,$)1K&@093%~&S)B @057@096%~&T)09$)1K%~&U$)3K)CW@015%~&V)ZA&@045,$)4Q%~&W)07$)2Q,@045%~&X)S .010.013&@072%~&Y)BW$)7L,$)9J%~&Z)B $)9K%~&0$)9R)H @015,@141@093%~&1)B $)9R%~&2$)2Q)17@132%~&3$)4Q)17&@027@045%~&4$)5Q)17&.010.013%~&5$)1K)17@003@105@003%~&6)17@003@042@093@003%~&7)17$)2K%~&8)WT.010,.013.016&@108%~&9$)2K)01@057@069,@057@066%~$ )01@057@111,@057@114%~$.)01%~$))B @057@117%~$[)09.010.013-@120%~$&)07$)1K&@042,@129@093%~$$)B $)3K%~$*$)2M)C $)2Q,@003@015@015@045@003%~$-)BE@057@060%~$/)01@057@066,@057@069%~$%)01$)2Q,@057@066%~$#)CW$)9J@126%~$@)B $)2L%~$?$)9K)01@057@069,@057@066%~$A)B @057@060%~$B$)0N)09$)5Q%~$C)01@057@066,@057@069%~$D)01@057@060&@072,@057@066%~$E)MN@015&@075%~$F)06@057@066%~$G)01@015&@075,.010.013-@078% ~ *A~DT8~N00~/2N~G90~N00 ~$H)C @015&@075%~$I)06@057@066%~$!)01@015&@075,$)2R%~$J)C @015&@075%~$K)06@057@066%~$L)01@015&@075,$)3R&@081%~$M)20@057@069,@057@066%~$N)BW$)0R,$)0K@126%~$O)BW$)0M,@057@144%~$P$)0R)CW$)0K%~$Q)B @057@147%~$R)R %~$ )01@003@150@003,$)4J%~$S$)0R)R %~$T$)0M)19@006&@018%~$U)26$)0J,@153%~$V)SS.010%~$W$)2R)17@003@150@015@003%~$X)02@018,.010.013%~$Y)29@006&@087,@006&@078,@090%~$Z$)3R)02@018,@015%~$0)27$)0P%~$1$)4J)09$)0L%~$2)12%~$3$)0L)19@006&@018%~$4)CW@057@144%~$5$)2M)B @057@060%~$6$)0J)H @015,@156@018%~$7)B $)0R%~$8$)0P)01@003@033@003,$)0N%~$9)SW@057@144%~* )B $)0L%~*.$)5Q)20@003@150@003,$)0N%~*))B @057@117%~*[)09.010.013-@120%~*&@057@159)07$)6Q&@072%~*$)BW$)6Q,@057@144@126%~**)B @057@147%~*-)27$)7Q%~*/)R %~*%)SS.010%~*#$)7Q)01@003@033@003,$)4J%~*@)SW@057@144%~*?$)6Q)B @015%~*A@162)17@003@165@003% ~2-@~DT9~N00~!1P~G90~N00 ~*B)01@138@168@171,@057@069%~*C)01@057@060&@072,@057@066%~*D)MN@015&@075%~*E)C %~*F)06@057@066%~*G)20@015&@075,$)2R%~*H)MN@015&@075%~*I)06@057@066%~*!)01@015&@075,$)1M&@072%~*J)B @057@159%~*K)20@057@069,@057@066%~*L$)1L)19@006&@018%~*M)02.010.013,@174%~*N)29@006&@087,$)1M&@072,@090%~*O$)1M)02@015,@174%~*P@057@177)09@180@087%~*Q)DC@003@015@003%~*R)P %~* )BW@006&@063,$)4K%~*S)B $)5K%~*T$)5L)19@006&@018%~*U)SW$)4K@126%~*V)26$)0K,@183%~*W)02@174,$)1Q%~*X)BW@006&@072,@057@177&@018%~*Y)BW@006&@045,@057@177&@018%~*Z)SS.010%~*0)BW@006&@099,@057@177&@018%~*1)29@006&@072,$)2R,@090%~*2$)2R)17@003@105@015@003%~*3)13%~*4)20$)2R,$)3R%~*5)CW@057@186%~*6$)2M)B @057@060%~*7$)0K)02$)1Q,@174%~*8)P %~*9)26@006&@018,@183%~- )SS.010%~-.)29@006&@072,$)3R,@090%~-)$)3R)17@003@105@015@003%~-[)A @003@018@003,$)0M@189%~-&)29$)0N,$)0M-@018,@018%~-$)B $)1L%~-*$)2N)BW$)1L,$)4K%~--)B $)3J%~-/$)0N)S $)0M%~-%)H @015,@192@045%~-#)B $)1L%~-@)B $)2N% ~6-8~DT0~N00~R0Q~G90~N00 ~-?$)5K)26@006&@018,@183%~-A)B $)5L%~-B$)1Q)DA@195@015,@198%~-C)17@003@165@003%~-D@057@147)07$)3J&@078%~-E)BW$)3J,@057@186@126%~-F)P %~-G)CW$)4K%~-H)26$)0K,@183%~-I$)3J)SW@057@186%~-!)B @015%~-J@201)17@003@165@003%~-K)01@057@066,@057@069%~-L)01@057@060&@072,@057@066%~-M)MN@015&@075%~-N)06@057@066%~-O)01@015&@075,$)1L&@018%~-P)06@057@066%~-Q)01@015&@075,$)2L%~-R)06@057@066%~- )01@015&@075,$)1M&@072%~-S)20@057@069,@057@066%~-T)B @057@159%~-U)B @057@147%~-V)26$)0K,@165%~-W$)0L)19@006&@018%~-X)29@006&@072,$)2L,@090%~-Y$)2L)17@003@204@015@003%~-Z)29@006&@072,$)1L&@018,@090%~-0$)1L)CC@015%~-1)02.010.013,@207%~-2)29@006&@087,$)1M&@072,@090%~-3$)1M)02@015,@207%~-4)W %~-5)B @057@060%~-6$)0K)H @015,@210@042%~-7)B $)0L%~-8$)2M)B @057@060% ~ E6~JE2~N00~N00~G90~N00 ~A0)SW.010-.016@003,.055-.061@003%~A1)SW.010-.016@003%~A2)SW.055-.061@003%~A3)ZA@006,@009@012%~A4)A .010&.097,.076&.019%~A5)A .055&.100,.076&.064%~A6)MZ.076&.064,.076&.019%~A7)MZ.076&.019,.076&.064%~A8)A .010&.097,@009&.019%~A9)ZA.055&.100,.076%~B0)A .055&.100,@009&.064%~B1)ZA.010&.097,.076%~B2)A .055&.100,.076%~B3)S .055&.100,.076&.064%~B4)MZ.055&.100,.055&.019%~B5)S .055&.100,@009&.019%~B6)S .055&.100,.076%~B7)ZA.055,@015%~B8)A .010&.097,.055&.100%~B9)A .010&.097,.055&.019%~C0)MZ.010&.097,.010&.100%~C1)A .010&.100,.055&.100%~C2)MZ.055&.019,.055&.100%~C3)MZ@018-.034,.076&.019@003%~C4)S .010&.097,.055&.100%~C5)MZ.055&.100,.055&.019%~C6)S .010&.097,.055&.019%~C7)MZ.010&.097,.010&.100%~C8)S .010&.100,.055&.100%~C9)A .010&.097,@015&.019%~D0:ZAX.022.013%~D1)M .055&.100,@018-.091%~D2)ZA@018-.091,.076%~D3)A @018-.091,.076&.019&.064%~D4)ZA@006,.076@012%~D5)SW@018-.085%~D6)ZA.010&.097,@018-.088%~D7)D .055&.100,@018-.091%~D8)ZA@018-.094,.076%~D9)CW@018-.085%~E0)A @018-.094,.076&.019&.037%~E1:XMN.010.013.016.022.025.028.019%~E2) G@084.010,@123%~E4)B @027%~E5)H @090,@021%~E6)B @144@147% ~ J0~JE3~N00~N00~G90~N00 ~E7) F.106,.010,@036%~E8)MZ@018-.034,@018-.094%~F1)A .055&.019,.010%~F2)SW.076-.082@003%~F3)CW.076-.082@003%~F4)CW.010-.016@003,.055-.061@003%~F5)CW.010-.016@003%~F6)CW.055-.061@003%~F7) C.010&.097,@030%~F8) C.055&.100,@030%~F9) C@015,@030%~G0) D$L03@033,.010-.016&.061%~G1:XXJ.055.061.076.085.088%~G2:XXK.055.061.067.076.079.085.088%~G3:XXL.055.061.067.073.076.079.082.085.088%~G4:YFM.010.082.016.055.082.061.088.106.079%~G5:YCL.010.082.016.055.082.061.088.106.079%~G6:YAQ.010.082.016.055.082.061.088.106%~G7:YNQ.010.082.016.055.082.061.088.106%~G8:YIP.010.082.016.106.079%~G9:ZFZ.010.097.103.019.055.100.103.064.076.016.061%~H0:ZML.010.082.016.055.061%~H1:ZMR.010.082.016.055.082.061.076%~H2:ZET.076.082.043.046.049.010.082.016.061%~H3) F.106,@030,@036%~H4) F$L02,@030,@036%~H5) G.055,@015@039&.016%~H6) G@015@039&.016%~H7)C .010,.055%~H8)BM$L02,.010&.097%~H9)BM.106,.055&.100%~I0)BM.106,.010&.097%~I1)BM$L02,.055&.100%~I2)BM$L02,@015%~I3)BM.106,@015%~I4)BU.106%~I5)B .106%~I6) /.103.106%~I7)ZA.055&.019,.010%~I8)A @120,.055&.100-.064&.019@003%~I9) 1.055-.061@003,.010-.016@003%~J0)ZA.010&.097,@015% ~8O5~JE4~N00~N00~G90~N00 ~J1)S .055&.100,@015%~J2)ZA@006,@015%~J3)A .010&.097,@015-.064&.019%~J4)MZ.010&.097,@015%~J5)A .055&.100,@015-.019&.064%~J6)MZ.055&.100,@015%~J7)S .010&.097,@015%~J8)BU$L02%~J9)BL$L02%~K0)BH$L02%~K1)BU$L03%~K2) G@045,@015%~K3) G@015%~K4)C .010-.016&.061,.055%~K5)C .010,.055-.061&.016%~K6) D$L03@033,.055-.061&.016%~K7) G@048.016@048,@051%~K8)S @048.061@048,@051%~K9$L03)MA@048@054@048,$L03@033%~L0)C .010-.016&.061,@045%~L1)S @003,@051%~L2)C @051,@048@093@138%~L3) G@048.061@048,@051%~L4)S @048.016@048,@051%~L5)C .055-.061&.016,@045%~L6) G.055,@015@039&.061%~L7)C .010,@015@039&.016%~L8) G.010,@015@039&.016%~L9)C @015@039&.061,.055%~M0) G.010,@015@039&.061%~M1) G@015@039&.061%~M2) 4$L02,.010,@060%~M3)C .010,@045%~M4)BL.106%~M5:YIN.010.082.016.106.079%~M6) 4.106,.010,@060%~M7) F.106,.010,@063%~M8) F.106,.010,@066%~M9)C .010,@075%~N1) F$L02,.010,@063%~N2) F$L02,.010,@066%~N3)C .010,@072%~N4)C @075,.010%~N5)ZA@006,@030%~N6)C @015,.055-.085%~N7) F@078,@030,@036%~N8) G@048@135@048,.010@003%~N9) G@045,.010%~O0) G.010%~O1) G.055,.010%~O3) G.055-.061&.016,.010%~O4) G.055-.061&.082,.010%~O5) G.055,.010-.082% ~2V0~JE5~N00~N00~G90~N00 ~O6)BW@081,.010-.082-.061@003%~O7) G.010-.082,.010-.082-.061%~O8)ZA.055&.100,.010%~O9)MZ.055&.100,.010%~P0)ZA.055&.100-.064&.019,.010%~P1)ZA@006,.010%~P2)A .055&.100,.010-.019&.064%~P3) 3.040,.010%~P4) I.055&.100,.010%~P5) G.055,@015%~P6)ZA.055&.019,.010%~P7) G@084@015,@027@087%~P8)ZA.055&.100-.064&.019,@015%~Q0)* I0B%~Q1:ZDY.019.022.010%~Q2:ZGP.010.013.019%~Q3) G.055,.010-.016&.061%~Q4)* I00%~Q5)* I01%~Q6:ZXZ.010.097.103.019.055.100.103.064.076.016.061%~Q7)* I0C%~Q8)* I0E%~Q9)* I0F%~R0)* I0G%~R1)* I0H%~R2)* I09%~R3)S .055&.100,@009&.064%~R4)* I11%~R5)* I12%~R6)* I13%~R7)* I13%~R8)* I15%~R9)B @081%~S0)ZS.055&.100,.076%~S1)S .010&.097,@009&.019%~S2)ZA@006,.076%~S3)BH.106%~S4.010) B@027%~S5)B .013%~S6)B .010%~S7.010) 5.013%~S8.010)B @093%~S9) G@096,.010%~T0) G@084.013,.010@099%~T1.016) G@102,.013%~T2.010) B.013%~T3) G@102,.016%~T4.019) B.028%~T5.025) B.022%~T6)B .025@105%~T7.034) G@102,.016%~T8.028) B.022%~T9.019) B.031%~U0.019) G@102,.022%~U1.013) B.016%~U2)B .016%~U3.010) G@084.019,.013@099%~U4.016)B .010%~U5) G@096,.016%~U6)B .013%~U7.019) B@027%~U8)ZA.010,$L01%~U9.043)S @003,$L01%~V0)BM$L02,$L01% ~6Z9~JE6~N00~N00~G90~N00 ~V1$L01) 6@108%~V2$L02) G@102,.040%~V3) G@102,.016%~V4) I@015,.010%~V5)BM$L02,.055&.100-.064&.019@003%~V6)S @120,.055&.100-.064&.019@003%~V7)CW.055&.100-.052@003%~V8$L02) B@027%~V9)ZA.076,@009&.100%~W0)A @120,@009&.019@003%~W1)MZ@045,@015-.019&.064%~W2) D@150@153@099,@027@147@156)B @132.010@156) 8@165.010@156) 6@159@156) 6@159%~W3) D@150@153@099,@027@087@156)B @114.010@156) 6@159@156) 6@162@048@156) 6.013%~W4)* I17%~W5)* I18%~W6$L02)H %~W7)ZA@018-.094,.076@012%~W8)H @027,.010%~W9)B $L02%~X0)A .055,.010-.019&.064%~X1)ZA.055,.010%~X2)MZ.055,.010%~X3)MZ@018-.091,.076@012%~X4) C.055,@030%~X5)H @129%~X6)B @027%~X7)B .010@105%~X8)B .037%~X9)* I1I%~Y0)SW.034-.040@003%~Y1)CW.034-.040@003%~Y2)MZ@045,.010-.019&.064%~Y3)ZA.055-.064&.019,.010%~Y4)MZ@015&.019,@015&.100%~Y5)S @015&.100,.055&.100%~Y6)* I2?%~Y7)* I1?%~Y8)ZA@006,@018%~Y9)MZ@018-.088,@018%~Z0)MZ@045,@018-.088%~Z1)B @150@168@156) 5@114.010@171%~Z2)B @150@174@156) 5@114.010@171%~Z3)A @015&.100,.055&.100%~Z4)* I2A%~Z5)SW.010-.016@003,.022-.028@003%~Z6)CW.010-.016@003,.022-.028@003%~Z7)SW@015-.052@003%~Z8)CW@015-.052@003%~Z9)SW.055&.100-.052@003% ~ ~SP3~P32~P32~G90~P32 ~M564F71~M448F74~M570F77~M665F80~MF80089~,0 0~M628F83~C573F83~BP97/~MG18G14~M394F86~M662F89~MF80F92~MF92A87~MF92C39~MF92C72~M445F89~MF92B02~MF74F92~MF92E17~YF71F95~Y~Y~YG19F74~SG20F74~YF95F74~Y~Y~YG19F80~SG20F80~YF95F80~Y~Y~MF77089~C0 0~Q089~C089F80~BR57S~)0 1~BR29~MF71089~C0 0~Q089~C089F74~BR92S~)0 1~BR64~YG19F83~YG19F86~MF77F98~YG19F98~SF83F98~MF98G01~AG21G01~YG19G01~MF71F98~YG19F98~SF86F98~AG21F98~MF98G04~YG19G04~YF95F83~MF83089~CG240 0~H089~HG13~,0 1~CG04G01~BB11U~BB72T~MF77094~MF71099~M0!00?0~BA73G14T~)0 1~BE03~B343~MA88A88R~C85~B343~MB03B03W~D98~BA77~MF83G07~YG19G07~SG21G07~AG04G07~MF74G10~BE94~MG07B60~MB630?0~BE26~BC51~MF71G10~MF80G07~YG19G07~AG04G07~SG01G07~BE94~MG10C24~M0!0C24~BE26~B343~MC40C40R~C81~MC500?0~BE03~M0!0C61~B343~MC73C73R~C81~BC44~BE03~MF77628~M701D02~U%U1R~D445D14~U%U1M~BD35G14T~MG13089~)0 1~B363~G17~MS99G10~YG19G10~MG25G08~MG28G07~CG10G07~BX85S~U%U1B~AG29G07~BD70~.~BD98~HE25~B343~ME18E18W~D98~BE25~HE93~BE42G14T~)0 1~CF80G07~BE65/~MG18G14~BE90~MG30G14~MG07089~MG07G13~,0 1~BE93~HF68~YF95G07~Y~Y~MF77094~MF71099~MG07C47~YG19G10~SG04G10~AG01G10~YF95G10~Y~Y~MG10C61~BF68~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~F~.EP~T~ ~A~C~ ~0~000~1~F ~ ~JA7~T00~T00~G90~T00 ~VT150861~B351~J07~BT08F~BV19~BT20Y11[~CY13P48~BU30S~BU71Y11 ~CY13P51~BU08S~CY13P54~BU19S~CY13P57~BX01S~CY13P60~BV48S~BV04~BT20~MP63U43~BT20~MP66U43~BT20~B335~094~T08~MU46Y13~CY13P69~BV37S~BU71Y11 ~BU00~BU00Y12 ~MY12Y10~B363~Y10~MP70Y12~BU00~HV18~B363~Y13~BV18~HV36~B335~Y13~T08~BV36~MP73Y13~BU00~B363~P60~BV19~VV71Y112~BU00~H099P43~CY120?2~M0?00?0~H099~BV78/~VW750?61~VW460?71~M0?5Y13~BV04~MP76Y13~M0?7Y12~BU00~M0?5Y13~BV04~MP76Y13~M0?6Y11~BU00~M0?5Y13~BU00~MP57Y13~BV04~BT08~H099Y07~BW860?0 ~M0?0Y13~Q099~BV04~BX08~ ~.MC~END~IOC~.OP~ORG~.LC~.MC~*&1~.OP~EQU~.LC~END~IOC~.MC~ *~.OP~RG ~LTO~.LC~.MC~#1 ~.OP~DCW~.LC~ ~ ~ 87~IOC~XR1~000~ 00~XR2~XR3~ 0~333~ #1~OPN~QUT~ 3~OPS~LOS~FES~ENT~LOZ~SV3~ #3~TYP~ R~ W~ 4~DAC~ *~ 1~UXT~ 19~ 11~ 25~ X3~XSV~ 6~BLK~PLC~ 8~ 17~ @~ $~EOR~ #8~ 16~PSV~SVA~ 2~IDT~FSW~SER~SEQ~LVE~EOF~ B~TDF~ 13~ L~RWR~ A~SLB~ 9~RWD~TAP~ALT~SV1~ }~ 80~ 29~ J~ 34~CRD~ 38~RCY~ 18~ 14~380~SV6~ #6~ 36~ 5~ 31~TDY~ 30~ ~ 39~ -~ H~ D~ M~#10~ E~ O~ F~377~ 7~ 79~TSS~ #5~ACT~ N~302~KOP~SRW~TBR~ K~ %~ U~#16~SAV~1X8~ C~ G~199~ 10~RDL~ 12~334~ 20~ I~300~ 40~ 49~ 45~PNX~RDX~NPR~TNT~TRW~RCL~ORC~MPR~ X2~ECK~ERR~CLE~RKS~RED~RXR~DRR~NRR~LEN~ROW~TTM~ER2~ER1~CHE~ASC~ER3~RAS~313~323~TDE~305~303~301~390~DSW~ @~ *~ #5~ #3~ 0~ 1~#10~ %~000~ A~ B~ ~ J~ 2~ 4~ R~ W~ M~IOC~UXT~ 5~XR1~SAV~ 3~ X1~ 7~ 6~ }~ 8~ $~ 9~SRW~ 12~TBR~ K~ X0~TNT~XR3~EOR~ 17~224~ #1~222~004~ X3~ I~399~NRD~PNX~ N~ ?~311~RDX~ 81~ ~OCX~ R1~101~PLC~111~ !~NPN~ #2~344~1X8~ C~181~ F~201~322~ MCW~01MCM~02MCS~03MCE~04LCA~05SAR~06SBR~07BWZ~08NOP~09BBE~10WRP~11SRF~12SPF~13CTL~14ORG~15END~16DCW~17DSA~18EQU~19MLC~20BAV~21BC9~22BCV~23BEF~24BER~25BIN~26BLC~27BPB~28BCE~29BSS~30BSP~31RTW~32RWD~33RWU~34SKP~35WRF~36WRP~37WTM~38WTW~39CCB~40SSB~41~#MLCWA~50CHAIN~51LTORG~52~#MLNS~60MLZS~61MRCM~62BPCB~63~ @~.DI~.DT~.EE~.LC~YJ3~KQ1~ }~ ~ GM~ ~ ~J07~T00~T18~G97~T00 ~ME06099~BB09~BT25C27[~CC29E09~BK87S~CC29E12~BW73S~CC29E15~BX16S~CC29E18~BY87S~BB27C29-~BB50C29&~VW49C282~CC29E21~BQ82S~CC29E24~BW65S~CC29E27~BL56S~CC29E30~BL34S~CC29E33~BJ77S~CC29E36~BZ50S~CC29E39~BZ58S~CC29E42~BZ66S~CC29E45~BZ81S~CC29E48~BZ89S~CC29E51~BZ97S~CC29E54~B!05S~CC29E57~B!13S~CC29E60~B!21S~CC29E63~B!29S~CC29E66~B!37S~CC29E69~B!45S~CC29E72~B!53S~CC29E75~B!61S~CC29E78~B!69S~BQ61C29@~VM89C29B~BA94~BT25~H099C08~ME79C20~)C17~ME80K53~ME81K61~ME81Y35~BT25~ME82K53~ME82K61~ME82Y35~BT25~ME79C13~ME85C16~BX82~BB09~CC29E24~BZ11S~AE86C13~B363~E21~B363~C16~B363~E89~BY65C134~BY65C135~BY65C137~BY65C138~VJ04C29B~BA94~B363~E24~ME92C16~BX59~B363~E95~BA94~B363~E95~BY47~BA94~BB09~CC29E18~BY87/~BW65~ME80Y03~ME80Y11~ME80Y19~ME80Y27~ME96X75~BT25~,T00~BN72~,T01~BN65~,T02~ME82X75~BX41~,T03~BN29~,T04~BN29~,T05~BN29~,T06~BN65~,T07~BZ70~,T08~BN29~,T09~BZ70~,T10~BZ70~,T11~BN29~,T15~BZ70~,T16~BN72~,T17~BZ70~B363~E99~BB09~BB09~BA94~BB09~BT25~CC29C08~BJ44S~CC29B99~BJ55S~CC29B90~BJ66S~BW65~MC05C29~BM78~MB96C29~BM78~MB87C29~BM78~MF00K60~MF01K41~,T14~MF04C16~ME79C12~B363~E21~B363~C16~B363~E89~BA94~BT25C12*~B363~E24~BB09~BL78C12*~VM15C29B~ME92C16~AE86C12~BK09~MF07L20~BB09~CC29F10~BL14/~,S83~CC29L20~BT25S~BA94~BK94~MF11K60~MF12K41~,T13~BJ95~MF13K60~MF14K41~,T12~BJ95~MC290?0~H099~BK69~H099B99~ME86C20~,C17~BM31~BL930?0$~VL93C171~AE86C20~MC290?0~H099~MC200?0~H099~MC20C29~MF16C28~BK69~MF16C28~BY43~CC29C08~BO26S~CC29B99~BN90S~CC29B90~BO08S~BW65~ME82Y27~ME82Y11~ME82Y03~BX41~ME82Y19~BN36~ME82Y03~ME82Y19~ME82Y27~BX41~MF19Q21~MB93C11~BO40~MF22Q21~MB84C11~BO40~MC02C11~MF25Q21~BB09~BP44C29@~BP97C29,~CC29E24~BQ50S~BP33C29-~BP33C29&~VP79C292~YC29P10~BP22C16*~YF26C29~BP86~YF27C29~BP86~MC29C16~BO40~B335~094~B80~MCK9C29~YC27C29~ME79C27~BP86~YC16C29~AC29C11~BO40~MF30C26~YF31C11~B363~C11~MQ24C23~MF16C22~B363~C23~B363~C26~BT25~ME24C26~BQ04~B335~094~B80~MCK9C29~BW65~BB09~B!77C27*~B363~E21~BA60C28/~B?17C281~B?28C284~B?39C285~BA49C283~B?50C286~B?61C287~B?72C288~B?83C28B~B?94C28C~BA05C28D~BA16C28F~BA27C28G~BA38C28I~BW65~B363~F34~BT25~B363~F37~BT25~B363~F40~BT25~B363~E92~BT25~B363~F43~BT25~B363~F46~BT25~B363~F49~BT25~B363~F52~BT25~B363~F55~BT25~B363~F58~BT25~B363~F61~BT25~B363~F64~BT25~B363~F67~BT25~BB09~BB09~BA94~B363~E89~BT25~BA94~B351~J08~HB08~B363~C29~BB08~HB26~B335~C29~A83~BB26~BB09~VB62C292~B363~F70~BB69~BB09~VB39C292~B363~F73~YF31C29~BW65~.~$~ ~ ~ ~ ~ ~ ~ ~ ~ ~000~0~ ~ ~000~ ~ ~ ~&01~&00~GNN~&20~SHR~DA1~444~CNT~*&1~ACM~&10~ ~-20~@E@~@ @~ @~CNR~001~-21~ S~ ~ !~@Z@~@A@~@0@~*&5~*&8~ &~ 1~*-6~000~@B@~&03~@N@~&07~#05~040~ I~&80~&05~*&7~ *~*-4~ F~ GM~0?@~00A~*-1~ 0~IOC~UXT~.MC~@$@~@NO~ L~OPN~-17~LOZ~C08~#DC~.SE~.DY~*24~.LC~.MC~XXJ~XXK~XXL~ZET~YIN~ZAX~YFM~YAQ~YNQ~YIP~ZML~ZMR~ZDY~ZGP~YCL~ZFZ~XMN~ZXZ~0~B~V~N~B ~1~.OP~DCW~ @~A~***~8~9~ B~E09~.XF~6~7~4~5~&X~B96~B87~C05~-~&~ ,~ ~MCM~BWZ~NOP~ORG~DSA~EQU~MCS~SBR~BCE~MLC~MCE~LCA~ &~ - ~ ~J08~T20~T20~G90~T20 ~VL060861~BP40~Q98~T28~CQ98F56~BW63S~CQ98F59~BT28S~CQ98F62~BT28/~BP55~Q98~T74~CQ98F65~BV16S~CQ98F68~BV16S~CQ98F71~BZ41S~CQ98F74~BZ41S~CQ98F77~BV16S~CQ98F80~BV49S~CQ98F83~BV16S~CQ98F86~BV79S~CQ98F89~BZ56S~CQ98F92~BV16S~CQ98F95~BT74/~BP55~Q98~V16~CQ98F98~BT74S~B363~Q98~BV16~BP55~Q98~V49~CQ98F98~BT74S~,R00~BT74~BP55~Q98~V79~CQ98F98~BT74S~,R01~BT74~)T73~MF99T57~MF99T91~MF99U03~HU18Z64~MF99U27~HU78V16~,V15~BT28~)Q99~BT50~H094~MG02E24~BK30~H094~MG05E24~BK30~H094~MG08E24~BK30~H094~MG11E24~BK30~H094~MG14E24~BK30~H094~MG17E24~BK30~H094~MG20E24~BK30~H094~MG23E24~BK30~H094~MG26E24~BK30~H094~MG29E24~BK30~H094~MG32E24~BK30~H094~MG35E24~BK30~H094~MG38E24~BK30~H094~MG41E24~BK30~H094~MG44E24~BK30~H094~MG47E24~BK30~H094~MG50E24~BK30~H094~MG53E24~BK30~HT60T74~,T73~BT28~VW09R011~VZ11T161~VY51T121~VY66T131~VY81T141~VX31T041~VY36T111~VW86T011~VX61T061~VX01T021~VY06T091~VW71T001~VY96T151~VY21T101~VX76T071~VX91T081~VZ26T171~CE24G56~BJ15S~MG59E24~BK26~VJ320851~MF43F06~M~M~HK33E19~BK26~HK33E48~BK26~VJ66R001~BO23~HT60T74~MG60T57~MF99U39~HU54V16~MF99U63~MF99U75~HU90O23~MF99U99~BT28~H094~ME32Q89~QK33~BK84Q89.~BK95Q89#~BL59Q89)~BL70Q89%~B363~Q89~BK30~HK33E32~B0!0~MG63Q89~BK73~BT28F~HU06L26~,R01~BT28~B335~Q89~M40~CQ89G66~BZ41S~B363~Q89~BL26~MG69Q89~BK73~MG72Q89~BK73~B335~Q98~L89~MQ92B30~HK33B30~BK26~CQ92Q98~BO46S~,Q91~AG73Q92~)Q91~BL91~BM97 02 ~HK33F36~MQ95F36~BK26~C 02Q95~BM97S~,Q94~AG73Q95~)Q94~BM48~VN98Q991~BP40~Q98~N05~CQ98F56~BN05/~BP55~Q98~N27~CQ98G76~BN65S~CQ98F56~BN98S~BN27~BP55~Q98~N27~CQ98F98~BN27S~B363~Q98~BN65~HK33B43~BK26~B363~R04~B351~J09~HK33E64~BK26~VO46S831~BP10~B335~Q98~M40~CQ98G79~BO91S~CQ98G82~BL81S~B363~Q98~BO46~VP250851~HK33F07~BK26~HK33F23~BK26~BO46~HK33F53~BK26~BO99~H089~HQ10B07~BP59~H089~HQ360 6~M0 2Q20~M0 5Q86~CQ10G85~BQ37S~,Q08~AG88Q10~)Q08~MB07R07~MR07Q20~CR07G91~BQ76S~B000~,B08~B343~M%U4R08R~Q67~HQ10R10~BQ07~U%U4R~BQ37~HQ10B07~B000~ ~ZA1~I0A~ ~ ~.EP~ ~ }~.~%~#20~#~DC ~)~%~#20~#~DCW~)~ ~.~%~RTS~STA~#~END~)~.~%~#50~#~DC ~)~DA1~%~#15~#~DCW~)~%~ @~ 9~ @~#~DCW~)~A0J~%~ @~ ~ @~#~DCW~)~A0K~%~ @~ @~ @~#~DCW~)~A0R~%~ @~ 0~ @~#~DCW~)~A0Q~%~#03~#~DCW~)~CNT~%~#05~#~DCW~)~CNR~%~#20~#~DC ~)~%~#20~#~DCW~)~GNN~%~#20~#~DC ~)~ACM~%~#20~#~DCW~)~SHR~%~00 ~000~#~DCW~)~A05~%~RGX~LTO~#~ORG~)~%~#03~#~DCW~)~X3 ~%~#02~#~DC ~)~%~#03~#~DCW~)~X2 ~%~#02~#~DC ~)~%~#03~#~DCW~)~X1 ~%~87 ~#~ORG~)~%~*&1~#~EQU~)~RGX~LTO~%~RG ~LTO~)~.~%~ ~#~LD ~INC~)~.~%~*&1~#~EQU~)~LAY~OVR~.~%~*&1~#~BAV~)~OVR~MVE~.~%~LAY~OVR~#~ORG~)~%~OVR~MVE~#~EX ~)~%~#01~#~DCW~)~%~007~#~B ~)~.~%~*&1~#~EQU~)~RTS~STA~.~%~#03~#~DCW~)~ ~040#R ~.~%~1,1~#~RTW~)~.SN~.DD~.IC~.DT~.DI~.IE~.IS~.ED~.LT~.DL~.DA~.LD~.LL~.CC~.DE~N~ZET~YIN~ZAX~YFM~YAQ~YNQ~YIP~ZML~ZMR~ZDY~ZGP~YCL~XXJ~XXK~XXL~ZFZ~XMN~ZXZ~ ~ZZZ~B~.OP~.EE~.LC~.MC~1~.EQ~.XF~#ZA~B07~003~.EB ~ ~J09~T00~T00~G97~T00 ~B351~JT1~BV53~CJ75J81~BT43S~CJ75J84~BW00S~BV71~BT07~BV53~BV26J73D~BU99J73C~BU99J73F~BU99J73I~BU28~BT95~BU170!1 ~M0!3J75~AJ85094~BV71~BT87~B363~J88~BT07~HU98~MJ91094~BT070!0$~M0!00!0~H094~C0!3J75~BU39/~B363~J94~B363~J75~M0!00!0~H094~BU98~HV25~VV22J711~B351~JT3~,J71~BV25~HV52~VV49J701~B351~JT2~,J70~BV52~HV70~B335~J75~V86~BV70~HV85~B363~J75~BV85~B363~J75~B351~J10~BV53~VW48J721~BX19~J78~W12~CJ78J84~BW12/~,J72~BX34~J78~W38~CJ75J78~BW74S~BX34~J78~W60~BW48~BX34~J78~W74~BX08J76 ~CJ78J97~BX08S~BT07~B363~J78~BW74~H089~MK00X89~BX38~H089~HY150 6~M0 2X99~M0 5Y65~CX89K03~BY16S~,X87~AK06X89~)X87~MJ68Y68~MY68X99~CY68K09~BY55S~B000~,J69~B343~M%U4Y69R~Y46~MK12X89~BX86~U%U4R~BY16~MK15X89~B000~ ~ } ~ ~ ~***~.AC~3~*24~D00~.DG~.MC~J68~J68~003~.EB~Y71~J68 ~ ~JT1~M00~T07~G97~M00 ~$~HARDWARE DEVICE MULTI-DEFINED ~E0A~BLOCK SIZE MUST NOT EXCEED OBJECT-COMPUTER SIZE ~E0B~FORM 3 RECORDS NOT PERMITTED ~E0C~BLANKS IN HEADER-LABEL ID NOT PERMITTED ~E04~UNIT RECORD FILES MUST HAVE STANDARD RECORD SIZES ~E0E~FORM 4 RECORDS - BLOCK SIZE MUST BE IN CHARACTERS ~E0F~FILE MUST BE SELECTED ~E0G~BLOCK SIZE MUST NOT EXCEED 4 DIGITS ~E0H~RECORD SIZE MUST NOT EXCEED BLOCK SIZE ~E0I~UNIT RECORD FILES MUST HAVE FORM 1 RECORDS ~E1?~UNIT RECORD FILE- LABEL RECORDS MUST BE OMITTED ~E1A~FILE MUST BE OPENED ~E1B~UNIT RECORD FILES MUST NOT RESERVE ALTERNATE AREAS ~E1C~LOAD MODE RESTRICTED IN THIS PROCESSOR ~E1D~NUMBER OF FD-S UNEQUAL TO NUMBER OF OPEN-S AND/OR CLOSE-S ~E15~INCORRECT NO. OF DIGITS, RETENTION-CYC OR FILE-SERIAL-NO. ~E99 ~ ~JT2~M00~V45~G97~M00 ~$~PICTURE EXCEEDS 30 CHARACTERS ~D01~CONFLICTING EDITING CLAUSES ~D02~MUST NOT SPECIFY DECIMAL AT GROUP LEVEL ~D03~MUST NOT SPECIFY EDITING AT GROUP LEVEL ~D04~CONFLICT BETWEEN PICTURE AND SIZE CLAUSE ~D05~CONFLICT BETWEEN PICTURE AND POINT LOCATION CLAUSE ~D06~CONFLICT BETWEEN PICTURE AND CLASS CLAUSE ~D07~CONFLICT BETWEEN PICTURE AND EDITING CLAUSE ~D08~ELEMENTARY ITEM MUST HAVE SIZE OR PICTURE CLAUSE ~D0I~I/O AREA MUST NOT EXCEED 999 CHARACTERS ~D1A~RLI MUST BE 4 CHARACTERS ~D1B~RECORD SIZES WITHIN THIS FD MUST NOT CONFLICT ~D13~INVALID EDITING ~D14~PICTURE CLAUSE INVALID WITH GROUP ITEM ~D99 ~ ~JT3~M00~V18~G97~M00 ~$~END STATEMENTS NOT ASSOCIATED WITH THE FOLLOWING FILES- ~F0A~INVALID USE OF SUBSCRIPTING ~H0A~A-FIELD EXCEEDS B-FIELD ~I00~NON-NUMERIC FIELD USED IN COMPUTATION ~I01~EDIT MASK TOO SMALL ~I0B~A-FIELD EXCEEDS 18 DIGITS ~I0C~B-FIELD EXCEEDS 18 DIGITS ~I0E~NON-NUMERIC FIGCON USED IN COMPUTATION ~I0F~INVALID SOURCE ~I0G~INTERMEDIATE RESULTS MUST NOT EXCEED 20 DIGITS ~I0H~ALPHANUMERIC TO NUMERIC MOVE ~I09~INVALID SOURCE- IN PRECEDING STATEMENT ~I1?~ROUNDED EXCLUDES LEFT JUSTIFY CLAUSE ~I11~DECIMAL ALIGNMENT WILL BE IGNORED ~I12~GROUP ITEM MUST NOT BE USED IN COMPUTATION ~I13~INVALID USE OF GROUP ITEM ~I15~ITEM EXCEEDS 20 DIGITS ~I17~CLASS CONTRADICTION ~I18~INVALID USE OF EDITING ~I1I~SIZE OF LITERAL MUST EQUAL 1 ~I2?~INVALID SUBSCRIPTING ~I2A~CONDITION NAMES MUST NOT BE USED AS SUBJECTS ~C0A ~ ~J10~T00~T00~G97~T00 ~F1~U%U4R~B335~B74~P32~CB74D34~BW61S~VW30B72S~BT48~B74~BT07~H094~HU990!3~M0!2T69~M000B96~BL61B504~MD35B50~CB96D38~BV23S~CB96D41~BV12S~CB96D44~BY73S~CB96B38~BW04S~BV42B94.~BV00B94 ~AD45B49~MB49U72~MB96000~)B96~CB49D48~BK08T~AD49B49~B000~BV34B95 ~BU52~MB97B96~BV34~MB99B96~BV34~,B96~BU59~CB96D52~BV65/~HB49116~BU96~CB96D55~BV88/~HB49121~BU96~CB96D58~BU52/~BX00~BX08106*~MD59106~HB49109~BU96~VW42B732~BT37~BT37106*~YD60B74~BT37~VW84W991~,W99~MD61X22~BT07~MD62X22~)W99~BT07 ~BL76121#~AD49B42~MB42104~BN06G~/332~/~,106101~BJ97106*~,121116~M180300~M120238~M115232~M105224~VZ05?561~N~BL56@~,181~MD61X90~B343~M%U4101W~P11~/180~BK70B501~BL24B502~HB49106~BM60B509~BO02B507~)?56~BU96~MD65B96~,?56~B335~B74~P32~MB74?59~BW04~VZ85B751~,B75~M332D31~/332~/~MD84257~2~FJ~/299~MD88208~MD91216~MD99226~ME06243~2~FJ~/299~MD31332~V!43?592~AD49?62~,?63~ME08207~YD60?59~M?59216~MD45X90~MD60228~BX90~AD49?66~,?67~B!11~FJ711~HJ74J05~/180~,181~MB99181~B343~M%U4101R~Q94~BJ10D~4~B!70~/332~/~,106101~BJ75106*~,121116~M180300~M120238~M115232~M105220~2~B!58@~BJ74~M180295~BJ58~HJ74J93~B!70~M180302~BX75~BL09106*~M117B67~/115~MD49B50~,172~MB49K48~L000B71~MB46175~)172173~BX08~MB67117~MB43121~AE11B49~MB49L04~MB71000~BU89~,173~MD45B50~BK38~MD59106~AE14B49~MB49L51~MB71000~BU89~FX961~/181~ME16181~BT81~,106122~ME21B86~M111B93~MB49M07~MM10B87~CE26B86~BM49T~BM49S~MB81111~ME31126~ME32B50~)106122~BX08~MB93111~ME34117~SE36B86~YD60B86~MB86125~MD35B50~BX08~VO55?681~C111E42~BX27/~,?68~M104?71~AD49?71~B343~M%U3?72R~?28~,?79100~M180B35~/180~MA51180~MD59106~ME43B50~BX27~B343~M%U3?72R~?28~VO29?772~BR76~BN73?79 ~MB35180~MD35B50~BX27~BX27106*~VO75106K~BX27~BO87109 ~BX27~C104?71~BX27S~VN591072~BX27~/332~/~ME54250~FJ~2~F1~.P28~FK~VR03?631~VR36?671~F1~/332~/~ME77247~2~FK~/299~MF03250~2~/299~MF27248~2~FK~/299~MF42238~2~/299~MF81263~2~F1~U%U4M~U%U4R~.~B!63B~BJ86D~/332~/~MG24280~F1~2~F1~U%U1R~U%U5R~U%U6R~U%U4R~.Q77~BQ77~/180~4~BP50~BQ85B~BP50~HR35~/332~/~MG60275~Z?62280~2~B?18@~BR35~HR75~/332~/~MG88267~A?66?62~Z?62272~2~B?23@~BR75~H099A43~C0?0D60~Q099~BR83S~)?79~M0?10?3~,?79~BN73~FR321~FR721~U%U3R~HN47O37~HO05O37~)?68~BO37~. ~ ~000 ~000 ~ ~ ~ ~*24~0100~@ ~106~4~ ~ ~ ~ ~ ~ ~ ~ ~ }~ ~.AC~0~ GM~ RM~.DG~2~172~1~.LC~.OP~.MC~*~ ~N~B~*24~*** DIAGNOSTICS ***~FLAG~REF~PG LINE~MESSAGE~**~I50~I36~ }~00000~00050~50 ~9~DS~50~STARTS~7~END OF REEL~IF EXTRA OUTPUT DESIRED~B ON FOR PUNCHED AUTOCODER~D ON FOR PRINTED LISTING~AND PRESS START~IF NO EXTRA OUTPUT DESIRED, PRESS START~END OF COMPILATION-AUTOCODER ON TAPE UNIT 4~NUMBER OF ERRORS NEEDING CORRECTION-~TOTAL NUMBER OF DIAGNOSTICS- ~ ~X01~T00~T00~E5Z~T00 ~LT73D8U~LT75D5V~LT76D5W~MT96257~F1~2~/299~MU10295~MU40235~FJ~2~B363~T68~B351~X11~***~00000~A2~2~COBOL PRE-SCAN RUN~IDENTIFICATION~SEQUENCE CARD IMAGE ~ ~X11~T00~T00~D1W~T00 ~DQ57Q35~DQ57Q35~MQ35L69~MQ35O62~MQ35V00~MQ35!78~MQ35J98~MQ35K43~MQ35L20~MQ35O02~)Q40~/332~/~,001~BJ06A~1~K1~C003Q60~BJ06S~M080290~MQ57~AQ61D8T~ZD8U208~,201~HQ47006~MQ35073~C006Q53~BU84S~C006Q67~BU77T~MQ68210~M006Q67~2~BU94@~BU96~F1~BX46 ~BV25008 ~BJ80~BV37~,Q41~BV37~BV17007-~BJ80~BJ61~.CD~MD8SQ38~BO89~MQ57Q38~MD8U~BO89~BV89008 ~BJ61~/P8~BX82~BO18~!94~BK81~!94~BO18~!94~BW22008 ~BW30~BJ80~BV96~BW62010O~B~C012Q73~BW22/~MQ75K16~BX24~C017Q85~BW85/~MQ87K16~BX24~C023R03~BX04S~C016R12~BW22/~BW22D5V4~MR14K16~DK16D5W~,Q40~BW22~ ENTER ~VJ80R291~)R29~B!38008 ~BX82~V!38V001~BV01~HZ40~BX98D5V5~BZ23~BK81~Z23~MQ47094~BY530!1.~BO18~Z23~BK81~Z23~MQ47094~C0!2R17~BZ23/~BO18~Z23~MQ47094~C0!7X45~BZ59/~BK81~Z23~BO18~Z23~MQ47089~C0/0R27~BZ41S~)V00~NR28J29~HQ47006~HQ44Q35~B000~,V00R29~MR30J29~BZ23~VZ23V001~C0!6R36~BZ23/~BJ61~/NT~BZ23~H094000~B!09D5V5~BU96~H!93!27~BJ61~/SC~B!45~H!93!94~BU96~H094004~BJ61~/DC~MR38Q38~M0!2~Q094~BO89~B!830!2 ~B!52~BJ61~/DC~B!94~VJ13Q401~BT79~MQ57D5W~BJ80~BJ29D5V5~BJ33~NJ47~B363~Q56~B351~X03~B363~Q56~B351~X02~H099~M0?2Q38~BO89~B0?3~HK80~MQ44099~BK630?0 ~,P13~L0?0Q34~BJ61~/WD~CQ34~Q099~)0?1~H0990?1~BK630?0 ~MR38Q38~M0?0~BO89~BK29~)Q41P14~HQ44Q35~B000~H089~HN400 3~MQ47094~MQ44099~HN100?1~BM010?0 ~BM120!2@~MQ57L61~MR40K16~,0!2~HN070!2~BM600!2 ~BM900!2 ~H094~H0990?1~C099R43~BL54/~,N33~BM97~HQ44P12~BK99~MR44L61~MR46K16~VM49Q411~,0!2~HN070!2~BL62~H0940!1~BL43~BM72L61@~BM97~H0940!1~H0990?1~BM97~M0 2N40~L0!10?0~)000Q35~)Q41~HQ440?0~HQ470!0~BN41N29 ~B000~)N33~BJ61~) E~BJ61~/DG~BJ61~/SZ~H099P13~MR38Q38~M0?0~BO89~H0990?1~BO070?0A~BN73~BJ61~) S~BN37~H089~MQ47094~BO40~H0940!1~BO330!2 ~HQ470!0~BO670!2 ~B0 3~M0 2O77~B000~MR48Q37~BP01~HP11~BO78Q36}~B363~Q38~B000~N~ ~ ~ ~ ~Q35~006~ ~.EB~ ~END~1~ ~*~FILE ~P3~PROCEDURE ~P5~WORKING-STORAGE ~CONSTANT ~P4~ . ~ AUTOCODER~N~ ~B~ NOTE ~ ~WD~Q34~@~WL~GM ~ ~X02~T00~T00~J00~T00 ~U%U4R~BV90~CV83W28~BT33S~)T42~BW08~BT05~BV01~?~BU30~?~MW31V83~BW08~MW34V83~BW08~MW37V83~BW08~MV89V83~BW08~MW34V83~BW08~MW40V83~BW08~MV89V83~BV66~V83~AU23V89~BV90~BU64V83 ~,T42~MW43V83~BV66~V83~BT05~MV81V86~CV82W45~BU90/~MW45V86~BV66~V86~BU30~)T37~MW37V83~BV66~V83~BT43~VV52T371~MW48V83~BV66~V83~BV66~W25~B363~W25~B351~X03~H089~HV800 3~BV80~ ~ ~001~HW07~B335~V83~V52~B000~HW22~B363~V83~B000~.EB~/DC~) E~#DC~.AC~) S~.MC~GM~.DE ~ ~X03~T00~T00~D18~T00 ~B335~A29~359~CA29T87~BT33S~B363~A29~BT00~BT64D5V5~BT71D5V4~BT78D5V3~B351~X23~B351~X53~B351~X43~B351~X33~*** ~YC66U82~MU82R66~MU82A71~BC25~) S~MC69C65~B335~A23~C62~BM01A21/~BL80L531~B363~A23~BL35~,L57~BO47~BC25~) E~B363~A32~B351~X14~CA23C71~BN08S~CA23C73~BL61S~CA23C75~BM97S~BM49A22P~BL61~MC76Q12~BM68A238~BL61~BC25~/P0~BC25~/ ~BC47~MC77A21~BL61~MC78Q12~BL35~H094T58~BC07~CA23C81~BN61/~BC25~/WD~BC25~% ~BC07~BN19A23 ~BL45~MA23A26~MC84C65~BN99A23 ~BO47~BN99A26 ~BO47~CA25C86~BO18/~MO46A24~MA240!2~H094~B335~A26~C62~BN87~T59}~MA26C89~MC92C65~BA03Q124~BP240!1.~BA03Q121~BP280!1,~BP05D5V5~BP13~BP600!1)~L0!1U81~BQ44~,B30~BP40D5V5~BP75~BP520!0)~BP75~D0!0~Q094~AC93Q11~BP980!0)~C094O45~BB14S~L0!0U81~BQ44~D0!0~Q094~BP60~0?~ ~0000000000000000000000000000000~MC71A39~CQ43U81~Q094~SC96094~YC97094~C094C99~B?92S~C094D01~BA33T~M094089~A094~A089094~MSR9089~BR38~C0 0~D~Q089~C0 0U81~Q094~BR29T~BA33U~BA330 1 ~VR790!11~BR29~MD03A39~D0 1A39~V?210 1B~V?390 1S~V?690 1K~BA33~MD05A39~D0 1A39~BA33~B?58A392~MD07A39~BA33~MD09A39~BA33~AQ12~BA33Q124~MC93Q12~BA33~MD11A39~BA33~MD13A39~L0!1U81~BA33~ ~ ~ ~.EB~BC25~/ ~CU81~D~Q094~MD15A26~M0!2~Q094~BB020!1 ~BA91A25}~B363~A26~BA49~MC86A25~BA80~C0!0~Q089~)0 1~CQ11D17~BB45/~BB70B261~MC89A23~BL45~BC25~/WD~BC25~) ~SC93Q11~BB14~BC25~/P0~BC25~. ~)B30~BB34Q122~MC76Q12~BB34~HC24~B335~A23~C62~B000~H089~M0 2A23~HC610 3~BC51~HC61~B363~A23~B000~B000~Z~L80~WD~DG~NT~0~8~2~% ~L72~GM~ ~L80~1~Q43~ ~31~20~P ~WZ~WC~WQ~WB~W.~ ~0? ~ ~X23~T00~L00~K00~T00 ~U81~U87~U95~V05~V29~V92~W16~W25~W65~X20~X44~X57~X71~X86~Y34~Y51~Y51~Y52~Y52~Y52~ ~ ~INS~OFS~ALLC~AND2~DATA2~ZEROH~APPLY2~QUOTEI~SPACEB~ZEROSH~DROPRT2~MEMORY2~QUOTESI~SELECT2~SPACESB~ZEROESH~1402-P2~1402-R2~1403-P2~RESERVE2~1401-SS2~1403-CT2~CONSTANT4~LOW-VALUEB~1403-P-CB2~1403-P-CV2~1403-P-C92~HIGH-VALUEA~LOW-VALUESB~NO-OVERLAP2~NO-RELEASE2~PROGRAM-ID2~ENVIRONMENT2~HIGH-VALUESA~INPUT-OUTPUT2~SPECIAL-NAMES2~IDENTIFICATION2~OBJECT-COMPUTER2~SOURCE-COMPUTER2~WORKING-STORAGE4~NO-PRINT-STORAGE2 ~ ~X33~T00~L00~K00~T00 ~U82~U96~V04~V19~V97~W46~W78~W87~X47~X91~Y03~Y29~Y57~Y72~Z04~Z04~Z22~Z41~Z41~Z83~ ~ ~AN3~FD3~ID3~INS~OFS~ALLC~AND3~DATA3~SIZE3~ZEROH~BLANK3~BLOCK3~CHECK3~CLASS3~DIGIT3~FLOAT3~LABEL3~POINT3~QUOTEI~SPACEB~USAGE3~VALUE3~ZEROSH~DIGITS3~OCCURS3~QUOTESI~RECORD3~SIGNED3~SPACESB~ZEROESH~DISPLAY3~NUMERIC3~PICTURE3~RECORDS3~CONSTANT4~CHARACTER3~JUSTIFIED3~LOW-VALUEB~PROCEDURE5~RECORDING3~REDEFINES3~ALPHABETIC3~CHARACTERS3~HIGH-VALUEA~LOW-VALUESB~HIGH-VALUESA~ALPHANUMERIC3~SYNCHRONIZED3~COMPUTATIONAL3~CREATION-DATE3~IDENTIFICATION3~RETENTION-CYCLE3~WORKING-STORAGE5~LABEL-INFORMATION3~FILE-SERIAL-NUMBER3~FILE-SEQUENCE-NUMBER3~REEL-SEQUENCE-NUMBER3 ~ ~X43~T00~L00~K00~T00 ~U81~U90~U98~V08~V74~W16~W40~W49~W99~X43~X55~X81~X95~Y11~Y11~Y11~Y11~Y11~Y11~Y11~ ~ ~AN4~INS~OFS~ALLC~AND4~SIZE4~ZEROH~BLANK4~CHECK4~CLASS4~DIGIT4~FLOAT4~POINT4~QUOTEI~SPACEB~USAGE4~VALUE4~ZEROSH~DIGITS4~OCCURS4~QUOTESI~SIGNED4~SPACESB~ZEROESH~DISPLAY4~NUMERIC4~PICTURE4~CONSTANT4~CHARACTER4~JUSTIFIED4~LOW-VALUEB~PROCEDURE5~REDEFINES4~ALPHABETIC4~CHARACTERS4~HIGH-VALUEA~LOW-VALUESB~HIGH-VALUESA~ALPHANUMERIC4~SYNCHRONIZED4~COMPUTATIONAL4~WORKING-STORAGE4 ~ ~X53~T00~L00~K00~T00 ~U83~V01~V21~V81~W41~W76~X24~X60~X80~Y13~Y25~Y25~Y25~Y25~Y25~Y25~Y25~Y25~Y25~Y25~ ~ ~#5~GO5~IF5~INS~IS5~OFS~OR5~ADD5~ALLC~AND5~END5~NOT5~ELSE5~EXIT5~LESS5~MOVE5~NEXT5~NOTEN~OPEN5~READ5~SIZE5~STOP5~THEN5~ZEROH~AFTER5~ALTER5~CLOSE5~ENTER5~EQUAL5~QUOTEI~SPACEB~UNTIL5~WRITE5~ZEROSH~ACCEPT5~DIVIDE5~QUOTESI~SPACESB~ZEROESH~COMPUTE5~DISPLAY5~EXAMINE5~GREATER5~NUMERIC5~PERFORM5~MULTIPLY5~NEGATIVE5~POSITIVE5~SUBTRACT5~LOW-VALUEB~OTHERWISE5~ALPHABETIC5~HIGH-VALUEA~LOW-VALUESB~HIGH-VALUESA ~ ~X24~T00~D15~D14~T00 ~,224101~BM02~CZ70B62~BU74/~BM78Z71E~SB83~H094D1X~C0!0~Q094~C0!0223~Q099~BT74/~VT940?11~BW190!0A~C0!0~Q094~BT42~H0990!1~HY60~VU52W231~S095~D0?0094~A094~A094~VX!20?0S~VXM20?0K~BXQ2~HU70~BV08~) E~)W23~B000~/D1~CZ71B64~BU97/~MB67Z71~BT11~H099U70~BV66~H089~HV620 3~M0 2V65~BV52~HV47~B335~V65~A93~B000~HV62~B363~V65~B000~ ~MB70V65~BV48~M0?3V65~BV48~BZ76~BT11Z70P~BV08~/DP~BZ76~BM02~BV92~BW50W23 ~BV08~) S~BW46Z719~,B60~,W23~BZ61~BM02~CZ70B62~BW50/~BT11~BW94W741~P0?0~Q099~BU05~)W78~B000~BW74~B?58~BK73~BZ84~B!61~B!95~BO71~BT11~B?03~BV66~BJ34~BP37~BY81~BL63~BP10~B?85~BP48~BP95~BK85~BL39~BJ11~BA61~BY33~BP21~BP95~BJ57~BW74~BM10~BY65~BK50~C0?0089~Q099~M0?3089~YB71089~YB72Y59~H0990 2~BU05~BY73~BM10~HX01~,W78~M0?3V65~BV48~BW74~HZ44~,0?1~P0?10?1~D~D~HZ23~C223000~Q089~BZ45S~)B73~)0?1~B000~,B73~VZ370 11~BZ33~HX01~BV08~ ~BZ80~HX01~,W78~MV65B58~C223~D~Q094~MB75V65~M0!2~Q094~B!39V63}~BV48~V!500!21~B!00~MB77V64~B!23~MB58V65~BW74~H0990?6~BY96~C0?0089~Q099~VY65B731~BY22~BY96~VM10B731~BW74~H0990?3~BY96~VY22B731~BW74~H0990?3~BY96~VW74B731~BY22~BK09~HK040 0~MB78K01~H0990?1~BY96~VK01B731~MB79K01~)000~BW74~HK49~S090~D0?1089~VK390?12~DB80088~H089DW ~B000~BK09~H0990?2~VU050 01~BW74~BK09~,0 0~BW74~BK09~BL28223)~AB80B83~)0 0~CB86B83~BW74S~,0 0~BW74~SB80B83~BL04~BK09~VL550 01~BK77~)0 0~BW74~P0?00?0~D~D~Q089~,0?1~L0 0223~)0?1~MB67Z71~BW74~HX01~,W78~BN28~)M17~CB55B89~BM45/~BV30~MV65B55~BM10~CB55M77~BN82/~MB92Z71~H094M76~BO30~) E~VU52W231~MB55V65~CV65B89~BN17S~BV48~BV30~BM93~HN42T00~BN67~HN42~CB55N50~B000/~BV08~.CD~BV30~BV48~BV30~BV48~BV30~MV65B55~BN32~MB55Z71~H094099~BO30~CV64B77~BO19/~MB59V63~MV630!2~H094~BV30~BO00V65 ~L0!1223~H094~HM170!1~MV65B55~BW74~H094B54~BN28~BK09~)0 0~C0!0B94~BW74S~,0 0~BW74~H094Z70~BO82~CZ70B94~BW74S~BT11~MB97V65~BP55~MC00V65~CC07223~Q089~BP75U~BY33~VY330 11~BV48~BZ76~BM10~BQ11Z71L~BQ22Z70W~H0990?1~BY33~M0?1Z71~MC08Z69~BZ61~BQ96Z71T~BM02~BR04Z71Q~BR19223%~VQ802211~BW74~C223C11~BW74/~BM10~BM02~BQ36~BV08~*32~BM02~BQ36~SC13~BV08~.LP~BM02~BR92C13C~AC12C13~BZ61~BM02~BR92223)~BR77Z71Q~BR34~BV08~*32~BM02~BR49~BV08~.RP~BM10~CC15223~BY33T~CC17223~B?42U~BV08~/IL~BZ76~BM10~C223222~B?27S~BY33~V?702191~BY33~BV08~%11~BZ76~BM10~H094223~VA280!01~H094~B?920!1.~C0!1B72~B?92T~BQ11~M0!0A42~BQ22C20 ~B~B~C0!0B72~BQ22T~BQ11~CZ70B94~BQ11/~BQ22Z71L~VQ36Z71S~BQ11~VU52W231~/250~/~AB06B52~U%U1B~CB52C22~BB06/~B351~X34~DD5VB50~B351~XB2~ ~ ~ } ~/P~WY~/P0~/DG~ ~Z~ ~ ~GM~,~)~1~ ~00?~) S~/PE~/W~/IH~/IP~ZZZZZZZ~%~KEY~A~ ~01~49~-&.~20~ ~ ~ ~ ~X14~P92~P92~D64~T00 ~B335~Q27~359~CQ27?68~BQ31S~B363~Q27~BP92~ ~.EB~N363Q27~NR99~BR99~CD59?71~BR67S~CD58?73~B?32S~CD59?76~BP92S~M?79D59~B?17~M?82D59~B?17~BR99~BR00D59 ~CD59?71~BR67S~CD59?76~BQ42S~CD58?73~B?32S~M?85D59~B?17~BR00~HR98~B?17~BR99~B?17~BR99~B?17~BR99~B000~H?16~B335~D59~?32~B000~H?31~B363~D59~B000~M?86D5U~U%U1B~U%U1B~U%U1B~U%U1B~B351~X24~) S~.CD~/P~) E~/DG~/D1~/DP~A ~MD59B55~HT41D1X~YD63D12~MD12T81~MD5VD56~B351~XA2~ ~ ~Z ~ ~X34~D15~D15~F00~D15 ~VE16B601~BE02D5W ~)B60~ME87V65~BV48~MD5WD5V~ME89E91~ME93E95~CE91E95~BD95S~U%U1B~AE96E95~BD67~B351~X11~B363~E84~B351~X05~S090~)B60~DD5V089~AE97089~MEX2E52~BD23D5U ~AE99D5V~B363~Q30~B351~X44~R~M~Y~Q~A~A~A~A~.EB~***~20~ ~00~ ~1~4~10 ~ ~XA2~D15~B37~D1X~D15 ~IDENTIFICATION~SC G !05EDIVISION G !06?. G !06E//8 G !07?PROGRAM-ID X Z001 Z002 Z003 Z004 ~PROGRAM-ID~H.JB !03H. G ?04C//8 T K.JB LDROPRT X Z002 Z005 ~DROPRT~G !00?//8 G !03?ENVIRONMENT X !04ADATA X !00?PROCEDURE X ~ENVIRONMENT~ICB01E SC Z006 SD H*91 U12E*06DIVISION U13?.PD. V//8 U13E*94CONFIGURATION U14?*09SECTION U13?.PD. V//8 !14ESOURCE-COMPUTER X Z001 Z002 Z007 Z008 Z009 ~SOURCE-COMPUTER~G !04F. G !05AIBM-1401 G !05F. G ?11G//8 Z010 Z002 Z011 ?10HMEMORY ?13INO-RELEASE ?13INO-PRINT-STORAGE Z012 LRLSRT X G !04AOBJECT-COMPUTER X ~RLSRT~G VSIZE !08A4000 G !12ECHARACTERS G !14D. G ?05G//8 Z010 G !05BOBJECT-COMPUTER X !09E8000 B01G !11?12000 B01G !19?16000 B01G !18ECHARACTER B03F ?07INO-RELEASE ?07INO-PRINT-STORAGE Z013 Z014 Z015 ~OBJECT-COMPUTER~H?14 S7 I8R8 I5R5 !09A. G U09F 1IBM-1401 U06F.PD. ?06D//8 Z016 X !08DASSIGN LASSRT C Z017 Z002 Z011 ~ASSRT~G !05COBJECT-PROGRAM G VTO !05HTAPE G ?05A. C Z018 X Z019 Z020 ~MEMORY~H?01 I1R1 VSIZE !07A4000 O03? I1X !11ECHARACTERS G !06IASSIGN LASSRT X !08E8000 B02E !10?12000 B02E !13D16000 B02E !20ACHARACTER B04I I1Z015 U20F*74ADDRESS S1 O21A U18A*08THRU B01F U21F*08THROUGH B01F Z021 Z022 Z023 Z024 ~NO-PRINT-STORAGE~H*99 !02CASSIGN LASSRT X ~NO-OVERLAP~H?07 !02CASSIGN LASSRT X ~NO-RELEASE~I7B01D H?08 X R7 Z066 ~AND~G X ~SPECIAL-NAMES~H*95 S9 I6R6 SA !09B. G C /06B !09GIS G P010B U08D.PD. I6R6 X I6B07D Z025 I6R6 Z026 S6 B02F Z002 Z027 Z028 ~1402-R~K?02 H003 !03G0 J02A !05IIS LCALMN X !04H1 B01F !02A2 B01F Z029 ~1402-P~K?02 H005 !03G0 J02A !05IIS LCALMN X !04H4 B01F !02A8 B01F Z030 ~1403-CT~H*82 J01? !02FIS LCALMN X Z031 ~ ~XB2~96W~T00~D1X~B1X ~1403-P~K?02 H007 !02FIS LCALMN X Z027 ~1403-P-CB~H*86 U03I*31ON VSTATUS !05EIS LCALCN X U06?*71OFF B01E Z027 Z032 ~1403-P-C9~H*85 U03I*31ON VSTATUS !05EIS LCALCN X U06?*71OFF B01E Z027 Z032 ~1403-P-CV~H*87 U03I*31ON VSTATUS !05EIS LCALCN X U06?*71OFF B01E Z027 Z032 ~1401-SS~H*81 ?05BA ?05BB ?05BC ?05BD ?05BE ?05BF ?05BG Z033 K @ T K @ G U10?*31ON VSTATUS !11FIS LCALCN X U12A*71OFF B07F Z027 Z032 ~INPUT-OUTPUT~H*93 U07B*09SECTION U07G.PD. V//8 U07?*96FILE-CONTROL U07G.PD. C Z034 X Z008 Z002 ~RESERVE~H?19 U04? 11 VALTERNATE VAREA VAREAS X U05E 0NO B01D Z035 ~DATA~ICB01E SC Z036 IDB03? SD Z037 SE H/24 U12F*06DIVISION U13A.PD. I?R? !13F//8 G !08IFILE X !11AWORKING-STORAGE X !14ACONSTANT X Z001 Z002 Z038 Z039 ~FILE~ICB01E SC Z040 IDB03? SD Z041 IEB04E SE Z042 IHB10H SG H*29 U11F*09SECTION !12A. K.PD K) S K/P9 KF H) E X RH Z043 Z008 Z002 ~WORKING-STORAGE~ICB01E SC Z044 IDB03? SD Z045 IEB04E SE Z046 SH H/01 U09F*09SECTION !10A. K) S K/P9 KW H) E X Z008 Z002 ~CONSTANT~ICB01E SC Z047 IDB03? SD Z048 IEB04E SE Z049 SH H/09 U09F*09SECTION !10A. K) S K/P9 KW H) E X Z008 Z002 ~SELECT~H?16 D503F !04AASSIGN K?02 LCALDE X Z050 Z051 ~CALDE~G VTO U03I0031402-R M1 I1X K?17 O13A X U05H0051402-P B02? U07G0071403-P B03G U11C002TAPE K?17 O14A C K?13 O13F X U13A002TAPES B08I Z052 Z053 Z054 Z055 ~CALCN~I6R6 G DL14F U09?.PD. C /06? !13FIS G P014A U08B.PD. I6R6 X I6B07B Z056 I6R6 Z026 S6 B02D U12?*31ON VSTATUS !13FIS B00E U02B*71OFF B10? Z027 Z028 Z057 ~CALMN~G DL09E U01G.PD. C /05E !08EIS G P009? U07G.PD. I6R6 X I6B06G Z058 I6R6 Z026 S6 B01I Z027 Z028 Z059 ~//8~G X ~.~H.PD ?01H. C Z060 Z061 ~ ~XA3~D15~B37~D1X~D15 ~F~G V) E !03E//8 G !02FFD X !04?MD X Z062 Z063 ~WORKING-STORAGE~ICB01E SC Z044 IDB03? SD Z045 IEB04E SE Z046 SH H/01 U09F*09SECTION !10A. K) S K/P9 KW H) E X Z008 Z002 ~CONSTANT~ICB01E SC Z047 IDB03? SD Z048 IEB04E SE Z049 SH H/09 U09F*09SECTION !10A. K) S K/P9 KW H) E X Z008 Z002 ~AND~G X ~CHARACTER~G X ~CHARACTERS~G X ~DIGIT~G X ~DIGITS~G X ~RECORDING~H?25 VMODE VIS !03C1 K000 G B04G U04I 1SECTOR X U08B...TRACK-SECTOR-ADDRESS B04G U10G 3TRACK-RECORD B04G U14?...TRACK-RECORD-ADDRESS B04G Z064 ~BLOCK~H?24 VCONTAINS O20H VCHARACTERS VCHARACTER !18ERECORDS G M1 I1K?03 I1X VCONTAINS ?20HCHARACTERS ?20HCHARACTER ?20HTO M1 I1B20H G VCHARACTERS VCHARACTER M1 I1X I2X !18?TO G S2 B08A Z065 !20ARECORD B05E C Z066 Z023 ~RECORD~I2R2 G VCONTAINS ?12DCHARACTERS ?12DCHARACTER ?12DTO M1 I1B12D G VCHARACTERS VCHARACTER M1 I1X I2Z066 !11ITO G S2 B01G Z065 Z023 ~LABEL~H/19 U04F/11RECORD !06FIS G U07I/08STANDARD X U09I/11RECORDS B01I !02HARE B02F U10D*14OMITTED B04D Z067 Z068 ~ID~H?29 VIS T A601I X Z069 ~IDENTIFICATION~H?29 VIS T A601I X Z069 ~CREATION-DATE~H?30 VIS O01F X Z070 ~RETENTION-CYCLE~H?31 VIS O01F X Z070 ~FILE-SERIAL-NUMBER~H... VIS O01F X Z070 ~FILE-SEQUENCE-NUMBER~H... VIS O01F X Z070 ~REEL-SEQUENCE-NUMBER~H... VIS O01F X Z070 ~DATA~H/24 U04F/11RECORD !06FIS G D408D VAND C B02H U07I/11RECORDS B01I !02HARE B02F Z067 Z071 ~REDEFINES~H/05 D101C X Z072 ~OCCURS ~ ~XB3~75/~T00~D1X~B1X ~H/14 O03H !02CTIME G X !02ATIMES B01I Z023 ~POINT~H/18 VLOCATION VIS U06F/15LEFT O08D !05?PLACE G X !04HPLACES B04F U08I/17RIGHT B03A Z023 Z073 ~CLASS~G VIS U02F$10ALPHABETIC X U04F$16NUMERIC B02D U07A/03ALPHANUMERIC B02D U08F/03AN B02D Z074 ~JUSTIFIED~H/07 U01I/15LEFT X U03G/17RIGHT B01G Z073 ~ZERO~H$08 U07A/04SUPPRESS U05C/12LEAVING O07F !05EPLACE G X !05CPLACES B05A Z075 Z023 ~CHECK~H/21 VPROTECT U04F/12LEAVING O06D !04HPLACE G X !04FPLACES B04D Z023 ~FLOAT~H/20 VDOLLAR !07ISIGN G U05F/12LEAVING O07D !05HPLACE G X !05FPLACES B05D Z023 Z076 ~BLANK~H/22 VWHEN !02DZERO G X !04AZEROS G B02B !05IZEROES G B02B Z077 ~ALPHABETIC~H$10 X ~NUMERIC~H$16 X ~ALPHANUMERIC~H/03 X ~AN~H/03 X ~SIGNED~G X ~SYNCHRONIZED~G VLEFT VRIGHT X ~USAGE~G VIS VCOMPUTATIONAL VDISPLAY X ~COMPUTATIONAL~G X ~DISPLAY~G X ~PROCEDURE~ICB01E SC Z078 IDB03? SD Z079 IEB04E SE Z080 H*01 U09I*06DIVISION !10D. K.PD K) S K/P9 KP H) E X Z001 Z002 ~SIZE~H/10 VIS O15H !09HTO H/10 O15H VCHARACTERS VCHARACTER VDIGITS VDIGIT U16C*03DEPENDING VON D116H X VCHARACTERS VCHARACTER VDIGITS VDIGIT M1 I1X K/10 O17C B03A Z023 Z081 Z072 Z082 ~VALUE~H/13 U02B*32OF C Z083 Z084 ~/88~K.LV K088 SB G DL17F U12C/13VALUE !14BIS G A815E !05G. X A806H B04I N907I B04I U09F*08THRU B04C U11F*08THROUGH B04C C B16F U16F/13VALUES B03D !04CARE B04A N917A B04I Z085 Z086 Z072 ~FD~H/26 DN01H C Z087 Z050 ~PICTURE~H.PC VIS T K.PC G X ~//8~G Z002 ~.~H.PD ?10E. E1//8 I1G ?06A01 ?06A1 ?07D88 ?09?77 Y08A DJ09E X Y08E DM10? X L/88 X I1X Z088 Z089 Z072 Z071 Z061 ~ ~XA4~D15~B37~D1X~D15 ~WORKING-STORAGE~ICB01E SC Z044 IDB03? SD Z045 IEB04E SE Z046 SH H/01 U07F*09SECTION !08A. X Z008 Z002 ~CONSTANT~ICB01E SC Z047 IDB03? SD Z048 IEB04E SE Z049 SH H/09 U07F*09SECTION !08A. X Z008 Z002 ~W~G !01C) E L. X ~AND~G X ~CHARACTER~G X ~CHARACTERS~G X ~DIGIT~G X ~DIGITS~G X ~REDEFINES~H/05 D101C X Z072 ~OCCURS~H/14 O03H !02CTIME G X !02ATIMES B01I Z023 ~POINT~H/18 VLOCATION VIS U06F/15LEFT O08D !05?PLACE G X !04HPLACES B04F U08I/17RIGHT B03A Z023 Z073 ~JUSTIFIED~H/07 U01I/15LEFT X U03G/17RIGHT B01G Z073 ~ZERO~H$08 U07A/04SUPPRESS U05C/12LEAVING O07F !05EPLACE G X !05CPLACES B05A Z075 Z023 ~CHECK~H/21 VPROTECT U04F/12LEAVING O06D !04HPLACE G X !04FPLACES B04D Z023 ~FLOAT~H/20 VDOLLAR !07ISIGN G U05F/12LEAVING O07D !05HPLACE G X !05FPLACES B05D Z023 Z076 ~BLANK~H/22 VWHEN !02DZERO G X !04AZEROS G B02B !05IZEROES G B02B Z077 ~ALPHABETIC~H$10 X ~NUMERIC~H$16 X ~ALPHANUMERIC~H/03 X ~ ~XB4~27S~T00~D1X~B1X ~AN~H/03 X ~SIGNED~G X ~SYNCHRONIZED~G VLEFT VRIGHT X ~USAGE~G VIS VCOMPUTATIONAL VDISPLAY X ~COMPUTATIONAL~G X ~DISPLAY~G X ~PROCEDURE~ICB01E SC Z078 IDB03? SD Z079 IEB04E SE Z080 H*01 U09I*06DIVISION !10D. K.PD K) S K/P9 KP H) E X Z001 Z002 ~CLASS~G VIS U02F$10ALPHABETIC X U04F$16NUMERIC B02D U07A/03ALPHANUMERIC B02D U08F/03AN B02D Z074 ~VALUE~H/13 VIS S? N702? X A603A B01H Z086 ~/88~K.LV K088 SB G DL17F U12C/13VALUE !14BIS G A815E !05G. X A806H B04I N907I B04I U09F*08THRU B04C U11F*08THROUGH B04C C B16F U16F/13VALUES B03D !04CARE B04A N917A B04I Z085 Z086 Z072 ~SIZE~H/10 VIS O08C !03BCHARACTER G X !05BCHARACTERS B02H !06GDIGIT B02H !03?DIGITS B02H Z023 ~PICTURE~H.PC VIS T K.PC G X ~//8~G Z002 ~.~H.PD ?10G. E1//8 I1G ?09?88 Y04A DJ10B X I1B05C Z088 ?08HCONSTANT ?08HPROCEDURE !09G) E X L/88 X Z090 Z072 Z061 ~ ~XA5~D15~B37~D1X~D15 ~P~G V) E !13A//8 G U05I*56DECLARATIVES SF U13F.PD. !14A//8 X K.LB PK14F U11E*09SECTION U13F.PD. !14A//8 G K.LB PK15F U15A.PD. C Z091 Z092 Z002 Z093 Z094 Z095 Z096 ~ACCEPT~H)07 DA03A U02I*28FROM DC03F X Z072 Z097 ~ADD~H)18 I9R9 N905H VAND N912C U04F*16GIVING B13B !01FTO B13? DA14F B01F DA15F ?11FAND U10A*10ROUNDED S9 VON C I9X B02G G B02A !06ITO G S9 DA15A B08C Z098 Z072 Z099 ~ALTER~H)10 P206B !06GTO G U07B*11PROCEED !06GTO G P206B C VAND B00E Z100 Z065 Z101 ~CLOSE~I9R9 H)09 DE11A VAND C !03GWITH G S9 U05I*26LOCK I9R9 B01F U08H 0NO U11F*13REWIND B04I I9Z102 ?12AREWIND B01? Z050 Z103 Z104 ~DISPLAY~H)04 A803A U05C*23UPON DC07? X N904B B01A DA06E B01A VAND C B00E Z105 Z097 ~DIVIDE~I9R9 H)06 N908C U11G*27INTO N909D S9 U10E*16GIVING DA12B U07B*10ROUNDED VON C Z106 DA12G B01F DA12G B03G I9Z107 B05G Z108 Z072 Z098 ~ELSE~H*02 C Z109 ~ENTER~G ?02FAUTOCODER !03HCOBOL G !04C. G X Z110 Z002 ~EXAMINE~I9R9 H)30 DA18? U09A*39TALLYING U12I$40ALL A820E I9B07C U08I*40REPLACING U18E*35BY A820E X U19?*40REPLACING S9 U03B*38FIRST B04C U14I*37LEADING B04C U19E*18UNTIL U20?*38FIRST B04C Z072 Z111 Z112 Z113 Z114 Z069 ~EXIT~H)16 U01F.PD. X Z002 ~GO~H)20 !08ATO G P208F VAND C !09FDEPENDING Z115 P208F U09F*03DEPENDING VON DA09A X Z065 Z100 Z072 VAND M1 I1Z116 B04F ~UNTIL~K*18 LOP X ~GREATER~K$20 LOP X ~LESS~K$21 LOP X ~EQUAL~K # LOP X ~#~K # LOP X ~POSITIVE~H$12 U01I )) B00E X ~NEGATIVE~H$14 U01I )) B00E X ~ZERO~HA0Q U01I )) B00E X ~NUMERIC~H$16 U01I )) B00E X ~ALPHABETIC~H$10 U01I )) B00E X ~AND~K$32 LAO X ~OR~K$31 LAO X ~AO~I1R1 W1 I1B02A LOP X G ?00?IS !04HNOT K$30 B00? ?01IGREATER ?01ILESS ?01IEQUAL ?01IEQUALS ?01I# ?01IPOSITIVE ?01INEGATIVE ?01IZERO ?01INUMERIC ?01IALPHABETIC Z117 ~NEXT~H*25 !02BSENTENCE G X Z118 ~MULTIPLY~I9R9 H)02 N908A U11G*35BY N909B S9 U10C*16GIVING DA12B U07?*10ROUNDED VON C Z106 DA12B B01F DA12B B03E I9Z107 B05E X Z111 Z098 ~NOTE~K*24 W1 I1B02I G T K B00E H*24 X ~ ~XB5~S6X~T00~D1X~B1X ~OPEN~I9R9 H)14 U04B*20INPUT DE11F S9 VAND B01? U06A*15OUTPUT B02C U07G*93I-O B02C U10B*93INPUT-OUTPUT B02C C I9B12A Z119 Z050 I9R9 B02C ~OTHERWISE~H*02 C Z120 ~AFTER~H*22 DA07I U08D*28FROM N905G U09D*35BY N906H !09IUNTIL X DA08I B02I DA08I B04E Z121 Z122 Z098 Z111 Z123 ~READ~H)13 DE05I VRECORD U03G*27INTO DA06D VAT U06I)17END C Z091 Z050 Z124 !09HINVALID K)17 G VKEY B05B X ~SIZE~H/10 !02DERROR G C Z091 Z125 ~STOP~H)11 U02A*30RUN B03H N903B B03H A804? X Z126 ~SUBTRACT~I9R9 H)01 N909C U08C*28FROM N910D S9 U11E*16GIVING DA12I U07B*10ROUNDED VON C Z106 VAND B01? DA13D B01F DA13I B03G I9Z107 B05G X Z072 Z127 Z098 ~THEN~G X ~WRITE~H)08 DD15F U02I*28FROM A807C U09E*22AFTER VADVANCING O11D VLINE VLINES X N908D B02I DA16A B02I U12E*17BEFORE B04B DC16F B07A !07AINVALID K)17 G VKEY C Z091 Z071 Z128 Z129 ~CMPT~H # I9R9 U03H && !05B% Q9 H % B01? U01I -- B01I N916H U07B && B01I U08F -- B01I U10? ** B01? U11D // B01? U12I **** B01? !14H) Q9 H ) B05H I9Z130 C VON C Z106 DA17I B05H Z131 ~COMPUTE~H)05 DA04? U02F*10ROUNDED !04E# LCMPT X Z072 Z132 ~MOVE~H)15 A804H !07?TO G DA07E ?04AAND C B02? G B02? N905I B01A DA08? B01A Z065 Z072 Z105 ~PERFORM~H)03 P218I U09H*08THRU P218I C U14?*07VARYING DA19D U19I*28FROM N911H U20I*35BY N912I !21DUNTIL X U02I*08THROUGH B02C DA20D B07? DA20D B08F N916? U17A *TIME X DA21I B14F U22D *TIMES B15H Z100 Z072 Z122 Z098 Z111 Z123 Z066 Z133 ~OP~G VTO VTHAN U02C$30NOT U04F -- U07? %% B01B U03B && B04F H % B01B N916E ?15E) U09F && B20E U11? -- B20E U12D ** B20E U13H // B20E !17G** H ** B20E H ) B07F A819D ?15E) VIS U19B$30NOT X D?25E B07F ?24E% ?08B& ?09F- N923D B07F DA26? B07F H % B20E Z134 Z105 ~IF~K)19 LOP X ~//8~IFB09A G M1 I1Z135 K.LB PK12B U07E*09SECTION U12G.PD. !13B//8 G K.LB PK13G U14B.PD. C Z091 W1 I1B11? LDECRT X G !14GEND X Z093 Z002 Z136 Z096 Z095 Z137 ~.~H.PD ?01H. C Z138 Z061 ~ ~X05~T00~T00~D1X~T00 ~DD83C32~MC32324~MC32J48~MC32J56~MC32J64~MC32R05~,320201~BT60~B363~Y85~MY85D86~B335~Y85~V71~BT53Y85 ~CY85D89~BX32S~BK27Y83%~CY84D91~BZ98S~CY84D93~BY87S~BU81Y83)~CY85D96~BT53/~BQ01~BQ16~BU69Y859~BT85~,?56~BT85~BW92~CY85D99~BU49S~CY85E02~BT53/~BQ16~BX32~CY85E05~BT60S~BR32~BO88~A08~BX32~CY85E05~BT60S~BR32~BP61~/DP~BQ41~BV36~B?33V711~CD86E08~BW05S~LD83323~BO88~A14~BW27D5V5~LD83323~BO88~A07~LW80D8U~LW78D6Z~)D6 D7T~/296~B363~W68~B351~Y01~.EB~ ~MY83Y85~ME10~BQ01~BQ16~BW81Y85 ~CY85D89~BT53/~BQ16~BQ16~BW96~HX46~CY85D89~B000/~BQ01~BQ16~BQ01~BQ16~BQ01~BQ16~BX36~BR32~C323E11~BY36U~VY473231~C322E12~BY47U~C323E14~BY47S~C323E16~BY47S~BO88~A01~BT60~BP61~.LV~MY85E40~?324Y86~BQ01~ME40Y85~BT85~ ~VY99Y85S~BT53~DY85Z20~BZ29Z20L~BP61~A0J~BR32~BT85~BR32~CY84D93~BZ61/~BZ76Y85L~VY99Y85S~BR32~BO88~A02~BT85~ME17K26~BR32~ME18P55~BA25~BJ00Y85H~BX76Y85L~BR32~H089323~C0 0E19~BK15U~V!530 01~H089~B!25~BJ08!531~?324E26~ME22!81~BP61~ ~ME25!95~BP61~ ~BT85~,!57~B!14~)!57~C323~Q094~BP61~.NL~M0!3J71~H0940!3~BK04J69A~BJ76J70A~BJ83J71A~BP61~ ~BJ27~MD83J70~MD83J71~MJ71K03~BP61~ ~BP61~.NL~BT85~BO88~A03~BT85~ ~DY85K26~YY85K26~BM12Y84D~BL77Y84P~B?48Y84N~BA02Y84A~CY85E28~BL04S~BQ16~BR32~BO88~A04~BT85~BR32~BA81~VL31A801~BO88~A13~BT85~BP61~.NM~M321L51~BP61~ ~M323L64~BP61~ ~BP61~.NM~BT85~BR32~BA33~VM04A801~BO88~A12~BM43~BP39~BM43~BR32~BA81~VM39A801~BO88~A10~BM43~BP39~BX32~CY85E31~BN01/~DE19K26~BQ01~BQ16~BR32~BA33~VM39A801~BO88~A11~BM43~CY85E34~BT85/~BP61~ %~BQ16~BR32~C323E19~BN88U~VO733231~C322E19~BN88U~VO733221~C321E19~BN88U~VO733211~BA81~DE19K26~VO65A801~BO88~A05~CY85E37~BO41/~BP61~ )~BQ16~BT85~CY85E31~BN24/~BQ01~BQ16~BR32~BP39~BO14~BP61~/T9~BQ41~BO14~H089~M0 2P19~HP380 3~BP61~/DG~BP61~ ~BQ41~BP61~/DP~BQ41~B000~HR20~MK26P56~BP61~/T ~BQ45~H089~MY85E40~M0 2Y85~HQ000 3~BQ01~ME40Y85~B000~HQ15~B363~Y85~B000~HQ40~MY85D86~B335~Y85~V71~B000~HR20~MC32324~C323~D~Q094~MY85E40~ME10Y85~M0!2~Q094~BR21Y83}~B363~Y85~BR100!2A~BQ68~ME40Y85~B000~ME42Y84~BQ91~H?47~ME43P55~,V75~C323~Q089~)0 1~H094199~BX32~BQ16~CY84E42~BR93/~MA79Y83~MY830!2~H094~MY85D86~B335~Y85~V71~BR74Y85 ~BX32~L0!1323~)V75~B000~BR32~B?68?52 ~BP39~BT85~)?56~V?843221~B?60~M323?97~BP61~000~BT85~BR32~BA25323@~BO88~A09~BT85~BP39~BT85~HC31~,A80C23~BA93~ } ~HC31~)C23~,A80~BC24323@~BC24323-~C323A78~H089~VC240 11~C323~Q089~BC240 1-~H089323~BC030 0-~C0 0E44~BC24U~C0 0E11~BC03T~BC240 0 ~BC240 0!~,C23~VC190 01~H089~BB51~BC28&~)A80~B000~Z~ ~ ~ ~.CD~/I~/W~*24~)11~) S~) E~.PD~ ~Z~5~77~88~8~J~0~ ~11~*32~.LP~.RP~ ~GM~T~A ~ ~Y01~T00~?52~D5 ~T00 ~BM38~CL85O24~BT52S~CL85O26~BT52S~CL86O29~BT44/~,D8/~BM23~BT00~ML83094~ML86K32~)T69~DL86M87~YL86M88~BM38~B!35L86 ~ML86M00~,M89~L000O10~H094~H0940!1~HT69~HO13~MO32099~V!79O051~VU72M88K~VJ45O061~VJ68O031~C0?0O10~Q099~BW48S~C0?1~C~Q099~BV090?0 ~BU72~VL12M88B~LO100?0~H099~BV85M872~DM87O17~LO170?0~ML79~CM87O33~BW14T~AV66O16~BW60?49 ~BJ91~DM87O21~LO210?0~ML79~AW03O20~BV73~D0?00?0~MD6Z~AW25D6Z~BV73~C0?0~Q099~BU97~VW600?11~BU88~D0?0W98~Q099~BZ510?10~BX58M870~)O34~BX58M87 ~BX19M871~BX39M874~BX88~BX96M88K~BX58W984~BX88~BX51W981~BX88~DM870?1~,O34~M0?0L86~BX84K31T~YO35L86~BM23~VY16M88K~VY92M88S~VZ12O341~BW36~VY660?1K~VY660?1B~VY44O341~BW36~YO350?1~BZ36~YO360?1~BZ40~VY55O341~YO37M88~YO360?1~BW36~VY55O341~VY810?1K~BW36~VZ620?1B~CM00O40~BZ36/~,D8 ~BK10~BM01~/QL~BK10~DM870?1~BX58~CM00O40~BK06S~CM00!03~BZ97S~MO43L43~BL30~BM01~.CD~BM38~BM23~BM38~BM23~BM38~ML86M00~BZ62~HU100!0~CL85O45~B!61/~ML80L84~ML840!0~H0940!1~BT84~CO10O51~BJ14/~VJ03M88K~BL12~BM01~ ~BL87~VU72M88K~CO10O57~BU72/~BM01~A0X~BL87~CO10O62~BU72/~BM01~A0N~BL87~CO10O70~BU72/~BM01~A0W~BL87~MJ91K10~,D6/~BW60~,D8 ~NK25V13~BL87~BK26 ~BM01~/T ~BK41~BL87~HK92~MO13094~MO72L86~M0!0~BK98L84}~BM23~H0940!1~C094L11~BL87S~BK52~MO45L85~BK71~O11~MO75L43~DM87L43~)L56~BM01~/DG~BM01~ ~BK41~,D8/~BK10L521~,L56~BM01~/DP~BK41~BK10~ }~M89~ ~MM00L86~BT04~ ~H089~M0 2L86~HM370 3~BM27~HM37~B363~L86~B000~HM55~B335~L86~M56~B000~LO20D8U~MO16D5Z~B363~M86~B351~Y02~.EB~ ~ ~ ~ ~ ~J01 ~ ~/T~/J~/DG~D5 ~5~ ~K~B~S~*32~/UQ~GM~FILLER~ACTUAL~TALLY~SYMBOLIC~ ~UDA ~Y?52L79~LA56D5Z~ML79V04~ML79V80~ML79?49~MA59A00~LL79000~LL79~ML79~MD5ZO16~VA43D8SK~VT00D6X1~LA62D6Z~BT00~MD8UO20~BA24~A10~D5 ~S01 ~ ~Y02~T00~T00~K09~T00 ~YT00T33~MU65094~D0!00!0~D~Q094~BU340!0 ~H099~C0?1~C~Q094~VT260!1S~MU62089~BT260 0 ~C0 00?1~Q089~BT99U~BT26T~VU190 11~VT620 11~C0 1~Q089~BT62~YU660!2~,D6T~BT26~BU53U34 ~,U38~B351~Y12~B351~Y03~K08~D5 ~Z~ ~ ~TALLYING~SYMBOLIC~SUPPRESS~SUBTRACT~STANDARD~SENTENCE~PRIORITY~POSITIVE~OPTIONAL~NEGATIVE~MULTIPLY~MULTIPLE~LOCATION~IBM-1401~DIVISION~CONTAINS~CONSTANT~1403-CT~1401-SS~VARYING~THROUGH~SECTION~ROUNDED~RESERVE~RECORDS~PROTECT~PROCEED~PICTURE~PERFORM~OMITTED~NUMERIC~LEAVING~LEADING~INVALID~GREATER~FILLING~EXCEEDS~EXAMINE~DISPLAY~COMPUTE~ADDRESS~1403-P~1402-R~1402-P~ZEROES~VALUES~STATUS~SPACES~SIGNED~SELECT~REWIND~RECORD~RANDOM~QUOTES~PLACES~OUTPUT~OCCURS~MEMORY~GIVING~FILLER~DOLLAR~DIVIDE~DIGITS~BLOCKS~BEFORE~ASSIGN~ACTUAL~ACCESS~ACCEPT~ZEROS~WRITE~VALUE~USAGE~UNTIL~TIMES~TAPES~TALLY~SPACE~RIGHT~QUOTE~POINT~PLACE~LINES~LEVEL~ZERO~WITH~WHEN~UPON~TIME~THRU~THEN~THAN~TAPE~STOP~SIZE~SIGN~READ~OPEN~NOTE~NEXT~MOVE~MODE~LOCK~LINE~LESS~LEFT~INTO~FROM~FILE~EXIT~ELSE~DATA~AREA~USE~RUN~OFF~NOT~FOR~END~ARE~AND~ALL~ADD~TO~OR~ON~OF~NO~IS~IN~IF~ID~GO~FD~BY~AT~AN ~ ~Y12~U87~T00~K09~U87 ~ ~FILE-SEQUENCE-NUMBER~FILE-SERIAL-NUMBER~NO-PRINT-STORAGE~CONTROL-SEQUENCE~WORKING-STORAGE~RETENSION-CYCLE~SOURCE-COMPUTER~OBJECT-COMPUTER~OBJECT-PROGRAM~IDENTIFICATION~SPECIAL-NAMES~CREATION-DATE~CONFIGURATION~COMPUTATIONAL~INPUT-OUTPUT~FILE-CONTROL~DECLARATIVES~ALPHANUMERIC~HIGH-VALUES~ENVIRONMENT~PROGRAM-ID~PROCESSING~NO-RELEASE~NO-OVERLAP~LOW-VALUES~HIGH-VALUE~DIAGNOSTIC~CHARACTERS~ALPHABETIC~1403-P-C9~1403-P-CV~1403-P-CB~REPLACING~REDEFINES~RECORDING~PROCEDURE~OTHERWISE~LOW-VALUE~JUSTIFIED~DEPENDING~CHARACTER~AUTOCODER~ALTERNATE~ADVANCING~LABEL~INPUT~FLOAT~FIRST~FILES~ERROR~EQUAL~ENTER~DIGIT~COBOL~CLOSE~CLASS~CHECK~BLOCK~BLANK~AREAS~ALTER~AFTER ~ ~Y03~T00~T00~X21~T00 ~YT00T71~H094D5 ~D0!0~D~Q094~/332~/~VT64D6S1~MW41221~MW47238~F1~2~/332~/~FK~BW08~BW310!0 ~M0!1W48~MW490!1~HW260!1~C0!0~C~Q094~/332~/~D0!4W50~CW50W51~BW20T~P0!5231~MW53~BU81W501~BU92W502~BV03W503~BV14W504~BV25W505~BV32~MW57222~BV32~MW63222~BV32~MW69222~BV32~MW74222~BV32~MW80222~VV710!2S~VW080!4K~VV930!4B~MW91213~,D8/~BW08~MX00211~YX01227~,D8/~BV40~MX02227~,D8 ~BW08~2~BW18@~BW20~F1~MW48W48~BT64~B351~Y04~TYPE~SOURCE~ ~ ~ ~5~ ~DATA~PROC ~SPEC ~REC ~FILE ~**UNDEFINED~**KEYWORD~ ~M ~ ~Y04~T00~T00~N67~T00 ~YT00T45~H094D5 ~D0!0~D~Q094~VT38D6S1~BJ13~!90~BZ200!0 ~HJ120!0~C0!0~C~Q094~D0!4J28~CJ28J29~BT85T~BT38~M0!3Y93~MJ08Y90~MJ08~M~MJ30J09~M094J33~CJ28J34~BY97T~MJ35Y96~BJ13~Y96~BJ13~Y93~MJ38099~BV31~BV69~BW89~MJ41099~BV31~BJ13~Y93~BJ13~Y87~BJ13~Y90~BJ13~Y84~MJ44099~BV31~MJ33094~BT38~HV68~M0?0J55~Q099~BJ13~J55~VV650?11~BV35~B000~MJ12099~MJ450?1~CJ28J34~BZ08T~BW25J287~MJ48Y81~D0!60!6~H094~BU66~MJ51Y81~BW520!5&~BW520!5-~BW74~Y0!50?0~D0!60!6~H094~BU66~D0!50!5~H094~BU66~M0!1J52~BY21J52}~BY32J52 ~BY02J52.~MJ52J55~BJ13~J55~BX61J55@~BX76~M0!2J52~Q094~BW96~M0!00!0~H094~BU70~AJ56Y90~BX46J090~AJ56Y84~BX46~BX20Y81X~MJ56J09~BX46~BJ13~!93~BX76~BJ13~!96~BX76~ @.OPDCW.LC~.DS.DE.MC~.DS.KK K E001000~000~000000~000~.LT~MJ57Y96~BU37~BW25J289~BW03~BJ13~Y96~BJ13~!99~BJ13~J02~V!23D6/1~V!05D8/1~V!05D6T1~V!12D8 1~,101~L112D8U~L110D6Z~)D6 D7T~B351~YD4~B351~YD4~)D6S~B351~YD4~)D6/~,D6S~U%U1B~U%U1B~U%U1B~U%U1B~U%U1B~U%U1B~U%U1B~U%U1B~U%U1B~U%U1B~B351~Y01~.DD~ GM~ RM~.DE~.EB~000000~0~ ~H089~HJ270 3~BJ27~ ~5~0~ ~7~T~Y54~Y63~Y81~@~ X~ 9~ ~ ~1~L ~ ~YD4~T00~T00~I00~T00 ~BT90B~MD75094~BW54~CD69F00~BT05/~MF01W75~BW54~CD69F04~BU35S~CD69F07~BT28/~BW54~MD75094~BT63~B363~E85~B359E~VU21D8/1~VU21D6T1~VU28D8 1~B351~Y08~B351~Y05~B351~Y06~MF08W75~MF11094~BW54~MD75D63~MD75~B!05D679~BJ97D67.~BL27D67V~BL95D67Z~BC67D67X~BC67D67A~BQ82D67&~B?42D67-~BN79D67$~BD42D670~BA13D67*~BB61D67P~BP72D67S~BD42D67B~BW54~CD69F04~BV76/~B363~E94~B363~E97~,D8/~MF11094~MDQ4D69~AF12094~CD69F04~BT28S~B363~D69~BW17~HW99~MD69D66~B335~D69~T78~ND69DQ4~AF12094~B363~D69~BW99~HX23~BW54~CD69F04~BV92S~BX23~HX47~BW54~CD69F04~BT28S~BX47~HX87~BX88D67D~BY32D67C~BY04D67&~BY04D67-~BX87~BW54~BY04D67B~BV76~BV76D571~BW54~CD69F04~BV76/~BT28~BW54~BY04D67R~BV76~H!04~BV76D64.~BV76D64V~MF11099~BW54~BZ61D67)~CD69F04~BV92S~BV76D67#~BV76D67@~BV76D67>~BV76D67:~VZ43D672~BV76~MD67DG6~AF13099~BY75~C099F11~BV92S~CDG5F19~BZ89U~BV76~CDG5E91~BV76U~B!04~BX24~BJ05D67V~BJ75D67,~BJ48D67.~B!05D679~BJ86D670~BJ86D67B~BJ20D67A~BJ20D67X~BJ20D67P~BX48~B!97D67%~BV76~BY48~B!05~BV76D571~MF13D57~BV76D581~BV76D621~BV76D591~B!05~BV76D581~MF13D58~BV76D571~B!05~MF13D59~BJ63~MF13D62~BJ63~BX00~BV76D67%~BK96D67Z~BK85D679~BK69D67,~BK69D67B~BK69D670~BX48~BK65D67%~BV76~BY48~BX24~BK17D601~BK09~MF13D60~BK69~BK69D631~MF13D63~BX24~BK09D67Z~BV76~BX00~BV76D67%~BL87D679~BL87D67P~BL87D67A~BL87D67X~BL83D67%~BV76~BY48~BX24~BL39~BX00~BV76D679~BM19D67%~BM46~BY48~CDG5E91~BN17S~MF13D62~BX24~BN56D67Z~BN02D67.~BN17D67,~BN45D679~BX48~BM94D67%~BV76~BY48~BN17~BV76D581~MF13D58~BW54~CD69F04~BN67S~BM54D601~BM46~MF13D60~BN17~MF13D62~BN17~BT28D621~BV92~BX00~BO92D67$~BO55D67*~BO70D67Z~BO92D67,~BP24D67.~BP43D679~BX48~BO47D67%~BV76~BY48~BO92~MF13D61~BX24~BN91~MF13D63~MF20D61~BX24~BN99~BO55D611~BO84D631~BP43D601~BX24~BN83~BV76D581~MF13D58~BO92~MF13D60~MF20D63~MF20D61~BX24~BO07~BX00~BV76D67%~BQ71D679~BQ52D67V~BQ24D67P~BQ20D67%~BV76~BY48~BW54~CD69F04~BP84/~BV92D600~BT28~BV76D571~MF13D57~BQ24~MF13D60~BQ24~BX00~BR58D67&~BR66D67Z~BR81D67.~B?20D679~BR58D67,~BR58D67B~BR58D670~BR54D67%~BV76~BY48~BX24~B?00~MF13D63~BX24~BQ94~BV76D581~BX24~MF13D58~BQ94D631~BR02D601~BQ86~MF13D60~MF20D63~BX24~BR02~BX00~B?97D67-~BA05D67%~B?97D67,~B?82D67.~BQ94~BV76D581~MF13D58~BX24~B?46~BY48~B?97~BX00~BA81D67*~BA89D67Z~BB04D679~BB26D67.~BB41D67,~BX48~BA73D67%~BV76~BY48~BB41~BX24~BA17~MF13D63~BX24~BA25~MF13D60~MF20D63~BX24~BA33~BV76D581~MF13D58~BA89D631~BB04D601~BA81~BX00~BC05D67P~BC25D67V~BC44D679~BC01D67%~BV76~BY48~BW54~CD69F04~BC55S~BB65~BV76D571~MF13D57~BC05~MF13D60~BC05~BV92D600~BT28~BX24~BC67D67A~BC67D67X~BC67D679~BD23D67V~BD15D67%~BV76~BY48~BC67~BV76D571~MF13D57~BC67~BX00~MF13D62~B!09~ ~ ~ ~000000 ~ ~.EB~000001~/DG~139~/24~N~.PC~*01~M~000~3~1~000999~0 ~ ~Y05~T00~O05~C65~T00 ~H094L99~)D6V~BJ04~)!39U32~VY96D6V1~,D6V~)D6W~B!350!1*~M0!3T66~H0940!3~B351~ ~H099D5 ~C0?0~Q099~BT740?3 ~M0?3L93~CL93M36~BT22S~B!58~,0?4~Z0?8206~)0?4~BU86U281~H089O25~BU780 0*~C0 2L93~BV04S~P0 30 3~H089~BU43~)D6V~BT74~ML93212~H089213~BV37~MM370?3~P0 3210~H089~)0 0~Q089~MM370 0~H0890 2~MM38L94~)Y34~)W58X47~MM390 0~H0890 1~BV99330}~B!84~B!58~H089213~VW98D6W1~M0?0L81~Q099~BY04L81 ~CL81M42~BW54S~CL81M36~BW98S~BX43~BX32W541~MM390 0~MM450 3~H0890 4~,W58X47~,Y34~BV76~,D6W~HL52X24~BL32~HL52K94~BW18~)D6U~BX43~MM370 0~BV69~BX62X431~MM390 0~BX69~MM460 0~MM37330~B!84~VX92D6W1~BT74~VY96D6V1~BT22~CL80M48~BY23/~ML96L79~ML790 0~BV69Y301~AM49L94~CL94M50~BV69/~,Y34~C0 0M53~BY85S~C0 0M56~BV69/~MM590 0~BV69~VT00D6U1~B359Z041~NZ50B~/332~/~F1~M!34240~B!84~MM62!12~,334~BZ99~.Z92~BZ17~VZ92D8 1~)D8/D6U~)D6V~MM62!12~)334~BZ99~MM65!12~B363~!15~B351~ ~.EB~END OF PRE-SCAN RUN~BY96!351~,!39~,Z08U32~BT67~H!83~MM67333~M332~ML95330~B!83~HJ03~2~B!98@~BJ00~F1~BJ03~HK93~ML95B79~LL95B65~H099D5 ~VK48D6W1~BL32~CL81M70~BJ61/~BL02~BJ37~CL81M73~BJ81S~BL64~BJ37~BL32~LL870?0~LL81~H099~)0?4~BL32~BK56L81 ~CL81M42~BK56S~CL81M70~BJ61/~BL02~BK71~)D6W~BJ41~LL810?0~H099~)0?1~CB79B65~BK04S~LM360?0~BK93~)D6U~BK83~HL31~BL32~ML81L84~BL32~ML80L86~BL31~HL63~M089L99~B335~L81~K94~ML99089~B000~HL78~B363~L81~B000~ ~ ~ ~ ~ }~ ~YX1YX2YX3YX4YX5YX6YX7YX8YX9YX0*~ ~.EB~ ~0~#~/DP~ %~)~GM~1~3~//8~) E~ ~Y08~Y06~ /~.CD~/DG~ ~,201~)O25~B!58~F1~MQ3924~6~B!84~B!58~FJ~B!84~MQ47208~MQ55232~B!84~B!58~B!84~LQ28B64~,B64~H099D5 ~/0?0~H099~VO84B641~MQ59L90~YQ60L95~ML95V83~,D6U~BT00~ ~DIAGNOSTICS~SEQUENCE~COMMENTS~..CD~X ~ ~ ~YX1~O25~T67~B50~O27 ~032~@ON/OFF@ ~033~@1401-SS, A THRU G@ ~034~FILE-CONTROL. FOLLOWED BY INVALID WORD ~035~@1/NO@ ~036~ERROR,IDENTIFICATION DIV MUST PRECEDE DATA DIV ~037~ERROR,ENVIRONMENT DIV MUST PRECEDE DATA DIV ~038~SECTION ENTRIES MUST BE IN COL. 8 ~039~@FILE/WORKING-STORAGE/CONSTANT@ ~* ~ ~YX2~O25~T67~B50~O27 ~040~ERROR,IDENTIFICATION DIV MUST PRECEDE FILE SECTION ~041~ERROR,ENVIRONMENT DIV MUST PRECEDE FILE SECTION ~042~ERROR,DATA DIV MUST PRECEDE FILE SECTION ~043~ERROR,FILE SECTION MUST PRECEDE W-S/CONST SECTIONS ~044~ERROR,IDENTIFICATION DIV MUST PRECEDE WORK-STOR SECT ~045~ERROR,ENVIRONMENT DIV MUST PRECEDE WORK-STORAGE SECT ~046~ERROR,DATA DIV MUST PRECEDE WORKING-STORAGE SECTION ~047~ERROR,IDENTIFICATION DIV MUST PRECEDE CONSTANT SECTION ~048~ERROR,ENVIRONMENT DIV MUST PRECEDE CONSTANT SECTION ~049~ERROR,DATA DIVISION MUST PRECEDE CONSTANT SECTION ~* ~ ~YX3~O25~T67~B50~O27 ~/D1~START OF CLAUSE - CHECK IMMEDIATE OR PRIOR ERROR ~/UQ~MULTI-DEFINED NAME REQUIRING QUALIFICATION ~UDA~UNDECLARED DATA-NAME ~UDB~UNDECLARED PROCEDURE NAME ~UDC~UNDECLARED SPECIAL NAME ~UDD~UNDECLARED RECORD NAME ~UDE~UNDECLARED FILE NAME ~UD?~UNDECLARED NAME ~/SZ~WORD/LITERAL EXCEEDS 120 CHARACTERS ~A01~LEVEL NUMBER ~A02~ALPHANUMERIC LITERAL/FIGCON ~A03~INTEGER ~A04~DATA NAME/NUMERIC LITERAL ~A05~SUBSCRIPT NAME OR ) ~A07~@PROCEDURE DIVISION.@ ~A08~UNIDENTIFIED ENTRY - CHECK SEQUENCE ~A09~ALPHANUMERIC LITERAL ~A10~DATA NAME ~A11~QUALIFICATION NAME ~A12~PROCEDURE NAME ~* ~ ~YX4~O25~T67~B50~O27 ~A13~AUTOCODER NAME ~A14~@.@ ~001~@DIVISION@ ~002~@.@ ~003~PROGRAM-ID IN COL 8 ~004~@PROGRAM-ID@ ~005~PROGRAM-NAME ~006~ERROR,IDENTIFICATION DIV MUST PRECEDE ENVIRONMENT DIV ~007~@CONFIGURATION@ ~008~@SECTION@ ~009~@SOURCE-COMPUTER@ ~010~@OBJECT-COMPUTER@ ~011~@IBM-1401@ ~012~@MEMORY/NO-RELEASE/NO-PRINT-STORAGE/.@ ~013~@NO-RELEASE/NO-PRINT-STORAGE/.@ ~014~@CHARACTERS@ ~015~@4000/8000/12000/16000@ ~016~@SPECIAL-NAMES@/@INPUT-OUTPUT@/@DATA@ ~017~INVALID OPTION ENTRY ~018~COBOL WORD MUST FOLLOW THE ASSIGN CLAUSE ~019~@OBJECT-PROGRAM@ ~020~@TAPE@ ~021~@CHARACTER@ ~022~@4000/8000/12000/16000/ADDRESS@ ~023~INTEGER ~024~@THRU/THROUGH@ ~* ~ ~YX5~O25~T67~B50~O27 ~025~DEVICE NAME/SWITCH NAME/AUTOCODER NAME ~026~AUTOCODER NAME/@.@ ~027~@IS@ ~028~COBOL NAME ~029~@IS/1402-R, 0,1 OR 2@ ~030~@IS/1402-P, 0,4 OR 8@ ~031~@IS/1403-CT, 1 THRU 12@ ~050~FILE-NAME ~* ~ ~YX6~O25~T67~B50~O27 ~051~@ASSIGN@ ~052~@1402-R, 0,1,2/1402-P, 0,4,8@ ~053~TAPE N, @1 THRU 6@ ~054~@TAPE 1 THRU 6@ ~055~DEVICE NAME ~056~DEVICE NAME/SWITCH NAME/AUTOCODER NAME/@./ON/OFF@ ~057~SWITCH CONDITION-NAME ~058~DEVICE NAME/SWITCH NAME/AUTOCODER NAME/@.@ ~059~DEVICE MNEMONIC-NAME ~060~NOT PROCESSED DUE TO PREVIOUS DIAG. OR IMMEDIATE ERROR ~061~START OF ENTRY ~062~FILE DESCRIPTION ENTRIES MUST BE IN COL. 8 ~063~@FD@ ~064~RECORDING MODE CLAUSE INVALID ~065~@TO@ ~* ~ ~YX7~O25~T67~B50~O27 ~066~INVALID STATEMENT ~067~@RECORD@ ~068~@STANDARD/OMITTED@ ~069~ALPHANUMERIC LITERAL ~070~NUMERIC LITERAL ~071~RECORD-NAME ~072~DATA-NAME ~073~@RIGHT/LEFT@ ~074~@ALPHABETIC/NUMERIC/ALPHANUMERIC/AN@ ~075~@SUPPRESS@ ~076~@SIGN@ ~077~@ZERO@ ~078~ERROR,IDENTIFICATION DIV MUST PRECEDE PROCEDURE DIV ~079~ERROR,ENVIRONMENT DIV MUST PRECEDE PROCEDURE DIVISION ~080~ERROR,DATA DIVISION MUST PRECEDE PROCEDURE DIVISION ~081~@CHARACTER%S)/DIGIT%S)/DEPENDING@ ~082~@TO/CHARACTER%S)/DIGIT%S)@/INTEGER/START OF AN ENTRY ~083~FILE-LABEL-NAME ~084~VALUE @OF@ ~085~INVALID LEVEL 88 RECORD ENTRY ~* ~ ~YX8~O25~T67~B50~O27 ~086~LITERAL ~087~INVALID CLAUSE FOLLOWS FILE-NAME ~088~LEVEL NUMBER ~089~LEVEL 77 ENTRIES INVALID IN FILE SECTION ~090~LEVEL NUMBER/@CONSTANT@/@PROCEDURE@ ~091~IMPERATIVE STATEMENT NOT FOUND ~092~WORD DECLARATIVES,PARAGRAPH AND/OR SECTION NAMES-COL.8 ~093~PARAGRAPH-NAME/SECTION-NAME ~094~@DECLARATIVES@/PARAGRAPH-NAME/SECTION-NAME ~095~@SECTION/.@ ~096~PARAGRAPH-NAME ~097~SPECIAL-NAME ~* ~ ~YX9~O25~T67~B50~O27 ~098~NUMERIC LITERAL/DATA-NAME ~099~@TO@/DATA-NAME/NUMERIC LITERAL ~100~PROCEDURE-NAME ~101~@PROCEED@ ~102~@LOCK/NO@ ~103~@REWIND@ ~104~@NO@ ~105~LITERAL/DATA-NAME ~106~@SIZE@/IMPERATIVE STATEMENT ~107~LITERAL FOR RECEIVING-AREA-NAME IS INVALID ~108~@INTO@ ~109~INVALID WORD FOLLOWS ELSE ~110~@COBOL/AUTOCODER@ ~111~@BY@ ~112~@TALLYING/REPLACING@ ~113~@ALL/LEADING/UNTIL/FIRST@ ~114~@FIRST@ ~115~INVALID USAGE OF DEPENDING CLAUSE ~116~@DEPENDING@/PROCEDURE-NAME ~117~RELATIONAL/SIGN/CLASS CONDITION ~118~@SENTENCE@ ~119~@INPUT/OUTPUT/I-O/INPUT-OUTPUT@/IMPERATIVE STATEMENT ~* ~ ~YX0~O25~T67~B50~O27 ~120~INVALID WORD FOLLOWS OTHERWISE ~121~SUBSCRIPT-NAME ~122~@FROM@ ~123~@UNTIL@ ~124~AREA-NAME ~125~@ERROR@ ~126~@RUN@/LITERAL ~127~DATA-NAME/LITERAL/@FROM@ ~128~AREA-NAME AS ALPHANUMERIC LIT/NUMERIC LIT/DATA-NAME ~129~INTEGER/MNEMONIC-NAME ~130~@&/-/*/ / /**/)@ ~131~@&/-/%@/LITERAL/DATA-NAME ~132~@#@ ~133~@TIME@ ~134~INVALID SUBJECT OR OBJECT ~135~INVALID ENTRY IN COL. 8 ~136~SECTION-NAMES AND PARAGRAPH-NAMES MUST BE IN COL.8 ~137~@END@ ~138~INVALID WORD FOLLOWS PERIOD ~139~INVALID PICTURE ~* ~ ~Y06~T00~T43~C65~T00 ~/26~VT18D7TK~MD7VD5Z~L099D8 ~L~B363~T42~B351~Y07~.EB~H099D5 ~,A20~/0?0~H099~VT54A201~/B68~/~,A19~MJ03B68~MB68~H099D5 ~LD5ZD7V~VY75D6S1~DJ08D6S~B!36~CJ20J02~BU19/~B!36~CJ20J26~BU19/~MJ08094~B!36~BY06D6S1~CJ20J05~BV23/~B!36~CJ20J26~BU70/~DJ29D6S~MD7VD5Z~MD8UD7V~BU51~CJ20J32~BV62/~B!36~CJ20J35~BU70/~DJ36D6S~BU51~CJ20J39~BV35S~CJ20T02~BW02S~CJ20!95~BU58/~B!56~MJ20J11~B!56~MJ20J14~B!56~MJ20J17~BW91D6S0~CJ11J42~BX14S~CJ11J29~BX14S~CQK4J11~BX25U~BX32S~S!99095~BW63~CJ11T02~BW63/~MJ08J11~,X44~MJ08094~BX32~A!98094~LJ14QK7~L~BX63D6S1~MJ11J20~B!48~BX67~)X44~CJ17J45~BZ36S~BZ10~,D6S~MJ48J20~B!48~B!36~BX98~CJ20J51~BY26S~B!36~BY06~B!56~MJ20J14~B!56~MJ20J17~CJ17J35~BX03S~MJ29J11~,X44~BW63~)D6S~MD6Z094~B!56~CJ20J48~BU58S~B!48~BY86~MJ14J20~B!48~MJ17J20~B!48~BU58~M094D6Z~MQK70?0~H099~C094J08~BZ77S~S!99095~BZ43~,0?1~LD7V0?0~H099~MD7VJ20~B!48~AJ29D7V~MD6Z094~BX830?0*~YJ08095~BU58~H!92~)!78~B!64~H!92~B!82~H!92~,!78~B335~J20~T03~B!89!741~B363~J20~B!92~.LV~0060~/24~*01~000~ ~ ~ ~ ~.EP~*06~001~/01~*09~2~/09~077~/QL~***~.LB ~ ~Y07~T00~W46~L20~T00 ~MJ29J66~B!19~H099D5 ~CD8 099~BV26S~MJ02094~,201~MJ03332~M332~VU00D6 1~BU04T601~N1~MJ63224~BW26~MJ05333~M332~BW26~BW26~,T64~M0?00?0~HU18~MU212!0~QJ29~AJ08094~M0?0J66~Q099~MJ662!0~VV110?11~C094J11~BU93U~BW26~MJ05333~M332~MJ14094~MJ162!3~AJ17094~BU26~BW26~MJ29099~BT18~VV84D6T1~VV84D6S1~,101~L112D8U~L110D6Z~)D6 D7T~B363~V83~B351~Y08~.EB~)D6T~,D6 ~B363~V83~U%U1B~U%U1B~U%U1B~U%U1B~B351~Y06~HW45~N~NW42@~BW42~F1~B000~B!07~CJ66J41~BW46/~B!07~CJ66J20~BW46/~ML19094~,X16~B!27~CJ66J23~BX50S~LJ660!0~BX42X121~MJ29J66~B!19~M0!0J29~BW89~)X16~BX31~B!27~H0940!3~LJ660!0~B!27~CJ66J23~BX50S~MJ66J29~H099D5 ~M094J44~CD8 099~BZ28S~ML19094~C0?00!0~Q099~BY64S~VY520?11~BY24~C0?0~Q099~BY05~C094J44~H0940!3~BY24/~VY990?11~C0?0~Q099~M0?0J66~B!19~ML19094~LJ290!0~BW89~ML19094~VZ58D6S1~M0!0J66~B!19~BZ10~,D6T~M0!0J66~B!19~CJ44094~BZ10S~MJ23J66~B!19~H0940!3~BZ62~H!99~)!85~B!35~H!99~B!89~H!99~,!85~B!63~CJ66J26~B!81/~B!63~B!63~B!35~H!80~B335~J66~T00~B000~B!96!811~B363~J66~B!99~008~ ~ /~006~126~017~IN~1~*06~*32~.CD~ ~ ~ ~ ~*91~ ~QUALIFICATION TABLE~ ~.EP~ J72 ~ ~Y08~T00~T00~U34~T00 ~/332~/~VT493341~MT84241~2~F1~U%U1R~U%U5R~U%U6R~.000999~BT38~MU28267~2~/332~/~BT21~END OF PRE-SCAN RUN~MAKE INDICATED CORRECTIONS TO SOURCE PROGRAM ~ ~DMP~363~363~627~363 ~F1~,329~M331601~/332~/~M/71589~M/66575~M/61561~L601329~L~L~L~L552258~2~/332~/~FJ~,213~M602329~M329328~B450Z~M506212~M~,454~A605456~)454~A608505~B489Z~B450~2~FJ~/332~/~B351~DM2~ ~00~STORAGE PRINT 1401 COBOL PROGRAM # 1401-CB-070~X1 IS ~ X2 IS ~ X3 IS ~ PHASE ~.~012~001 ~ ~DM2~363~363~627~363 ~/000~H641~D643641~D~B4016410~M644594~M644493~H089213~M647094~B426~H089212~/332~/~M633205~M636209~V4710!01~D0!00 0~Y0!00 0~B478~L0!00 0~B6180!0}~A647637~A647094~A647089~B516Z~B445~A647638~B539Z~A647089~B500~2~2)~/332~/~,200~B612@~C636641~B605S~A650633~M094636~C0R9299~B419/~A650094~B556~B351~T/P~F1~B556~M6510 0~B486~00000~000~1~0~ ~00~#~001~100~) ~ ~T/P~U00~U00~G98~U00 ~U%U5R~U%U6R~U%U4R~/332~/~MY51X33~BU57~MY52X33~BU57~MY53X33~BU57~BW69~HX32~F1~/332~/~MY21275~MX33275~2~FJ~H089I99~MX33V38~MX33W33~FJ~MY54X34~,!00~/0 0~H089~VV19!001~M%U0!00R~HX37~BW15L~BX29K~DY56X37~D~AY59X37~MY62089~M0Z9300~2~BY45@~AY65089~CX37089~BV06S~BV79~SX38X34~VW39X34K~U%U0B~BV35~/332~/~MY01299~2~F1~MY54X34~.W30~BU85~/332~/~MY44275~2~F1~U%U4R~U%U6R~U%U5R~U%U1R~BX13D~BX24~M153/58~B970~.~BX13~BX32~0~0~000~1~READ ERROR - PRESS START TO REREAD OR RESET STARTTO SKIP RECORD~ T/P FOR TAPE UNIT 0~TAPES 5,6 AND 4 PRINTED~F1~BV92~5~6~4~9~99~001~!00~100 ~B010L~B333~.001001~B010 ~L726089~,V00~/I99~H347~V344V001~.372~,723~B558~F1~,201~M%U1V01R~B495L~CV60722~B588S~CVW0717~B558S~B483V 11~B489V 10~MWT3332~2~A728730~B4657291~A733089~B403~M735730~M726089~B378~F1~B431~FL~B431~H527~M735737~U%U1B~M%U1V01R~B528L~B000~A728737~B5477361~B506~.001001~B506~M%U1V01R~B495L~CV60722~B588S~B558/~V6047231~.604~B697~M726089~M735730~,101~M%U1V01R~B495L~B692K~CVW0717~B692S~MVY0180~4~K4~A728730~B6887292~A740089~B640~B604~/180~4~U%U1R~.999999~B702~LLLLL~BBBBB ~000~01~ ~134~00~ ~081 1CLEAR STORAGE 1 ,008015,022026,030037,044,049,053053N000000N00001026 1 CLEAR STORAGE 2 L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0? 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 1401 COBOL - BOOTSTRAP PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 1 010 000 JOB 1401 COBOL - BOOTSTRAP 102 1 020 CTL 661 11 103 1 030 ORG 100 0100 104 1 040 X1 EQU 89 0089 105 1 050 SW 087,092 7 0100 , 087 092 4 106 1 060 SW 097,100 7 0107 , 097 100 4 107 1 070 SBR X1,3999 7 0114 H 089 I99 4 108 1 080 BOOTST CS 0&X1 4 0121 / 0 0 4 109 1 090 SBR X1 4 0125 H 089 4 110 1 100 BW 22,100 8 0129 V 022 100 1 4 111 1 110 RTW 1,2000 8 0137 L %U1 !00 R 5 112 1 120 B 2000 4 0145 B !00 5 113 1 130 DCW #1 1 0149 5 114 1 140 LTORG * 0150 115 1 150 DCW @}@ 1 0150 5 116 1 160 END / 000 080 6 1CLEAR STORAGE 1 ,008015,022026,030037,044,049,053053N000000N00001026 1 CLEAR STORAGE 2 L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0? 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 1401 COBOL - CONTROL FOR DETERMINING PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 1 010 000 JOB 1401 COBOL - CONTROL FOR DETERMINING 102 1 020 CTL 661 11 103 1 030 ORG 2000 2000 104 1 040 X1 EQU 89 0089 105 1 050 X2 EQU 094 0094 106 1 060 X3 EQU 099 0099 107 1 070 SW1 EQU 81 0081 108 1 080 GENSW EQU 82 0082 109 1 090 R6 EQU 83 0083 110 1 100 R5 EQU 84 0084 111 1 110 CONTRL CS 099 4 2000 / 099 4 112 1 120 SW 087,092 7 2004 , 087 092 4 113 1 130 SW 097 4 2011 , 097 4 114 1 140 CONT03 R 1 2015 1 4 115 1 150 BIN READER,? 5 2016 B J13 ? 4 116 1 160 SS 1 2 2021 K 1 4 117 1 170 C 012,@SYSTEMS@ 7 2023 C 012 C28 4 118 1 180 BE CONTSY 5 2030 B L88 S 5 119 1 190 C 020,@RUN @ 7 2035 C 020 C33 5 120 1 200 BE CONTCB 5 2042 B !70 S 5 121 1 210 MLC NCTLMS,285 7 2047 M C01 285 5 122 1 220 CONT02 W 1 2054 2 5 123 1 230 BIN CONT02, 5 2055 B !54 5 124 1 240 CC 1 2 2060 F 1 5 125 1 250 H CONT03 4 2062 . !15 6 126 2 010 B CONT03 4 2066 B !15 6 127 2 020 CONTCB MLC @4@,REDCNT 7 2070 M C34 C21 6 128 2 030 CONT04 S @1@,REDCNT 7 2077 S C35 C21 6 129 2 040 RTW 1,335 8 2084 L %U1 335 R 6 130 2 050 SBR X3 4 2092 H 099 6 131 2 060 CONT05 BER TERR 5 2096 B J21 L 6 132 2 070 BCE HER,REDCNT,? 8 2101 B J93 C21 ? 7 133 2 080 B CONT04 4 2109 B !77 7 134 2 090 READER H CONT03 4 2113 . !15 7 135 2 100 B CONT03 4 2117 B !15 7 136 2 110 TERR MLC &TERR1,CONT05&3 7 2121 M C38 !99 7 137 2 120 ZA @0@,X2 7 2128 ? C39 094 7 138 2 130 TERR1 BSP 1 5 2135 U %U1 B 7 139 2 140 A @1@,REDCNT 7 2140 A C35 C21 8 140 2 150 BCE *&5,X2,I 8 2147 B J59 094 I 8 141 2 160 B CONT04 4 2155 B !77 8 142 2 170 CS 299 4 2159 / 299 8 143 2 180 MLC CNTRED,275 7 2163 M C20 275 8 144 2 190 CONT06 W 1 2170 2 8 145 2 200 BIN CONT06, 5 2171 B J70 8 146 2 210 MLC &TERR,CONT05&3 7 2176 M C42 !99 9 147 2 220 CC 1 2 2183 F 1 9 1 1401 COBOL - CONTROL FOR DETERMINING PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 2 230 H CONTCB 4 2185 . !70 9 149 2 240 B CONTCB 4 2189 B !70 9 150 2 250 HER SW 1300,1 7 2193 , T00 001 9 151 3 010 RWD 5 5 2200 U %U5 R 9 152 3 020 RWD 6 5 2205 U %U6 R 9 153 3 030 RWD 4 5 2210 U %U4 R 10 154 3 040 BSS *&5,C 5 2215 B K24 C 10 155 3 050 B RCR 4 2220 B K29 10 156 3 060 RWD 3 5 2224 U %U3 R 10 157 3 070 RCR SW HEADER&15 4 2229 , /50 10 158 3 080 MLC @T00@,X2 7 2233 M C45 094 10 159 3 090 C 010,@COBOL@ 7 2240 C 010 C50 10 160 3 100 BE REST1 5 2247 B K85 S 11 161 3 110 C 010,@XTRAN@ 7 2252 C 010 C55 11 162 3 120 MLC @X10@,PHASID 7 2259 M C58 /12 11 163 3 130 BE REST1 5 2266 B K85 S 11 164 3 140 MLC 023,PHASID 7 2271 M 023 /12 11 165 3 150 MLC @N@,TMSW 7 2278 M C59 /31 11 166 3 160 REST1 WTM 4 5 2285 U %U4 M 12 167 3 170 BSP 4 5 2290 U %U4 B 12 168 3 180 REATAR MLC FLIP1,PUTXWT&3 7 2295 M 574 445 12 169 3 190 MLC FLIP1,PUT2B&3 7 2302 M 574 475 12 170 3 200 MLC FLIP1,PUT2C&3 7 2309 M 574 480 12 171 3 210 MLC FLIP2,GETXRD&3 7 2316 M 575 662 12 172 3 220 MLC FLIP2,GET7&3 7 2323 M 575 701 13 173 3 230 MLC FLIP2,GET4A&3 7 2330 M 575 692 13 174 3 240 MLC FLIP2,FLIP3 7 2337 M 575 576 13 175 3 250 MLC FLIP1 4 2344 M 574 13 176 4 010 MLC FLIP3 4 2348 M 576 13 177 4 020 CS 0 4 2352 / 000 13 178 4 030 SBR HOLDER 4 2356 H R03 13 179 4 040 BCE A1,HOLDER,I 8 2360 B P72 R03 I 14 180 4 050 BCE A2,HOLDER,R 8 2368 B R06 R03 R 14 181 4 060 BCE A3,HOLDER,Z 8 2376 B ?35 R03 Z 14 182 4 070 B A4 4 2384 B A92 14 183 4 080 CONTSY MLC @2@,REDCNT 7 2388 M C60 C21 14 184 4 090 CONN1 S @1@,REDCNT 7 2395 S C35 C21 15 185 4 100 RTW 1,100 8 2402 L %U1 100 R 15 186 4 110 SBR X3 4 2410 H 099 15 187 4 120 BER TERR 5 2414 B J21 L 15 188 4 130 BCE GO,REDCNT,? 8 2419 B M31 C21 ? 15 189 4 140 B CONN1 4 2427 B L95 15 190 4 150 GO CW R1,R6 7 2431 ) 265 083 16 191 4 160 CW SW1,R1 7 2438 ) 081 265 16 192 4 170 CW R3,R5 7 2445 ) 299 084 16 193 4 180 CW RR1 4 2452 ) 570 16 194 4 190 MLCWA @0@,GENSW 7 2456 L C39 082 16 195 4 200 SW HDR1&15,072 7 2463 , 804 072 16 196 4 210 SW 001,040 7 2470 , 001 040 17 197 4 220 SW 47,54 7 2477 , 047 054 17 1 1401 COBOL - CONTROL FOR DETERMINING PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 4 230 SW 61,68 7 2484 , 061 068 17 199 4 240 RWD 1 5 2491 U %U1 R 17 200 4 250 RWD 2 5 2496 U %U2 R 17 201 5 010 B IORWD 4 2501 B N94 17 202 5 020 RTW 1,1000 8 2505 L %U1 00 R 18 203 5 030 DCW UPDT03 3 2515 N27 18 204 5 040 MLC IOSBRD,*&4 7 2516 M P71 N26 18 205 5 050 SW * 4 2523 , N26 18 206 5 060 UPDT03 B IORWD 4 2527 B N94 18 207 5 070 WTW 2,1000 8 2531 L %U2 00 W 18 208 5 080 DCW * 3 2541 N41 18 209 5 090 MLC IOSBRD,*&7 7 2542 M P71 N55 19 210 5 100 MLC @ @,* 7 2549 M C61 N55 19 211 5 110 SW STOPER 4 2556 , D65 19 212 5 120 B IORWD 4 2560 B N94 19 213 5 130 WTW 2,2000 8 2564 L %U2 !00 W 19 214 5 140 DCW * 3 2574 N74 19 215 5 150 B IORWD 4 2575 B N94 19 216 5 160 RT 1,RDD1 8 2579 M %U1 D45 R 20 217 5 170 DCW * 3 2589 N89 20 218 5 180 B 100 4 2590 B 100 20 219 5 190 IORWD SBR X1 4 2594 H 089 20 220 5 200 MLC 7&X1,IOINTD&7 MOVE IN I/O INSTRUCTION. 7 2598 M 0 7 O40 20 221 5 210 MLC @012@,IOCHND&6 LOAD CHECK FOR NOISE RECORD. 7 2605 M C64 O72 20 222 5 220 MA 6&X1,IOCHND&6 7 2612 # 0 6 O72 21 223 5 230 MLC 10&X1,GENRFD&3 MOVE IN EOF ADDRESS. 7 2619 M 0/0 P67 21 224 5 240 RBKD MLC @9@,IOCERD 7 2626 M C65 P68 21 225 5 250 IOINTD RT 0,0 SKELETON I/O INSTRUCTION. 8 2633 M %U0 000 R 21 226 6 010 SBR *&4 4 2641 H O48 21 227 6 020 MLNS 0 4 2645 D 000 21 228 6 030 SAR IOSBRD GT POSITION OF GP-WM. 4 2649 Q P71 22 229 6 040 BCE IOWRTD,IOINTD&7,W IF WRITE I/O BRANCH. 8 2653 B O86 O40 W 22 230 6 050 BEF GENRFD 5 2661 B P64 K 22 231 6 060 IOCHND BCE IOINTD,0,} 8 2666 B O33 000 } 22 232 6 070 BCE 1 2674 B 22 233 6 080 BCE 1 2675 B 22 234 6 090 BCE 1 2676 B 22 235 6 100 BCE 1 2677 B 23 236 6 110 BCE 1 2678 B 23 237 6 120 BCE 1 2679 B 23 238 6 130 BCE 1 2680 B 23 239 6 140 BCE 1 2681 B 23 240 6 150 BCE 1 2682 B 23 241 6 160 BCE 1 2683 B 23 242 6 170 BCE 1 2684 B 24 243 6 180 BCE 1 2685 B 24 244 6 190 IOWRTD BER IOERRD IF ERROR BRANCH. 5 2686 B P00 L 24 245 6 200 BEF GENRFD IF EOF BRANCH. 5 2691 B P64 K 24 246 6 210 B 11&X1 4 2696 B 0/1 24 247 6 220 IOERRD MLNS IOINTD&3,*&4 CONDITION BACKSPACE INSTRUCTION. 7 2700 D O36 P10 24 1 1401 COBOL - CONTROL FOR DETERMINING PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 6 230 BSP 0 BACKSPACE TAPE IF EROR. 5 2707 U %U0 B 24 249 6 240 BM IO9CKD,IOCERD IF ERROR 9 TIMES THEN BRANCH. 8 2712 V P31 P68 K 25 250 6 250 S @1@,IOCERD DECREMENT COUNTER. 7 2720 S C35 P68 25 251 7 010 B IOINTD BRANCH TO EXECUTE I/O AGAIN. 4 2727 B O33 25 252 7 020 IO9CKD BCE SKPIND,IOINTD&7,W IF WRITE THEN BRANCH. 8 2731 B P43 O40 W 25 253 7 030 HRRD H RBKD 4 2739 . O26 25 254 7 040 SKPIND MLNS IOINTD&3,*&4 7 2743 D O36 P53 25 255 7 050 SKP 0 SKIP FOR WRITE 5 2750 U %U0 E 26 256 7 060 BEF HRRD 5 2755 B P39 K 26 257 7 070 B IOINTD 4 2760 B O33 26 258 7 080 GENRFD B 0 4 2764 B 000 26 259 7 090 IOCERD DCW @0@ 1 2768 26 260 7 100 IOSBRD DCW @000@ 3 2771 26 261 7 110 A1 SW 14000 4 2772 , !0? 26 262 7 120 A11 CS 15999 4 2776 / I9I 27 263 7 130 SBR A11&3 4 2780 H P79 27 264 7 140 BW A11,14000 8 2784 V P76 !0? 1 27 265 7 150 MLC GPMRK,15998 7 2792 M R05 I9H 27 266 7 160 MLC GPMRK,15697 7 2799 M R05 F9G 27 267 7 170 SW 15998,15697 7 2806 , I9H F9G 27 268 7 180 MLC @G0?@,PUT7&6 7 2813 M C68 394 28 269 7 190 MLC @I9G@,PUTMX 7 2820 M C71 564 28 270 7 200 MLC @F9H@,PUTXWT&6 7 2827 M C74 448 28 271 7 210 MLC @I9G@,PUTT&6 7 2834 M C71 466 28 272 7 220 MLC @G0?@,PUTA1 7 2841 M C68 567 28 273 7 230 MLC @F9F@,GETMX 7 2848 M C77 570 29 274 7 240 MLC @F9F@,GET1A&3 7 2855 M C77 628 29 275 7 250 MLC @C9G@,GETXRD&6 7 2862 M C80 665 29 276 8 010 MLC @C9I@,GETA1 7 2869 M C83 573 29 277 8 020 SW 15698,15397 7 2876 , F9H C9G 29 278 8 030 MLC @C5?@,X1 7 2883 M C86 089 30 279 8 040 MLCWA @I0?@,188 7 2890 L C89 188 30 280 8 050 B UP1 4 2897 B A60 30 281 8 060 HOLDER DCW #3 3 2903 30 282 8 070 GPMRK DCW @ }@ 2 2905 30 283 8 080 A2 SW 10000 4 2906 , !0! 30 284 8 090 A22 CS 12999 4 2910 / 99I 30 285 8 100 SBR A22&3 4 2914 H R13 31 286 8 110 BW A22,10000 8 2918 V R10 !0! 1 31 287 8 120 MLC GPMRK,11998 7 2926 M R05 I9Q 31 288 8 130 MLC GPMRK,11697 7 2933 M R05 F9P 31 289 8 140 SW 11998,11697 7 2940 , I9Q F9P 31 290 8 150 MLC @G0!@,PUT7&6 7 2947 M C92 394 32 291 8 160 MLC @I9P@,PUTMX 7 2954 M C95 564 32 292 8 170 MLC @F9Q@,PUTXWT&6 7 2961 M C98 448 32 293 8 180 MLC @I9P@,PUTT&6 7 2968 M C95 466 32 294 8 190 MLC @G0!@,PUTA1 7 2975 M C92 567 32 295 8 200 MLC @F9O@,GETMX 7 2982 M D01 570 33 296 8 210 MLC @F9O@,GET1A&3 7 2989 M D01 628 33 297 8 220 MLC @C9P@,GETXRD&6 7 2996 M D04 665 33 1 1401 COBOL - CONTROL FOR DETERMINING PAGE 5 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 298 8 230 MLC @C9R@,GETA1 7 3003 M D07 573 33 299 8 240 SW 11698,11397 7 3010 , F9Q C9P 33 300 8 250 MLC @C5!@,X1 7 3017 M D10 089 34 301 9 010 MLCWA @I0!@,188 7 3024 L D13 188 34 302 9 020 B UP1 4 3031 B A60 34 303 9 030 A3 SW 6000 4 3035 , !0 34 304 9 040 A33 CS 7999 4 3039 / I9Z 34 305 9 050 SBR A33&3 4 3043 H ?42 34 306 9 060 BW A33,6000 8 3047 V ?39 !0 1 34 307 9 070 MLC GPMRK,7817 7 3055 M R05 H1X 35 308 9 080 MLC GPMRK,7998 7 3062 M R05 I9Y 35 309 9 090 SW 7998,7817 7 3069 , I9Y H1X 35 310 9 100 MLC @H2 @,PUT7&6 7 3076 M D16 394 35 311 9 110 MLC @I9X@,PUTMX 7 3083 M D19 564 35 312 9 120 MLC @H1Y@,PUTXWT&6 7 3090 M D22 448 36 313 9 130 MLC @I9X@,PUTT&6 7 3097 M D19 466 36 314 9 140 MLC @H2 @,PUTA1 7 3104 M D16 567 36 315 9 150 MLC @H1W@,GETMX 7 3111 M D25 570 36 316 9 160 MLC @H1W@,GET1A&3 7 3118 M D25 628 36 317 9 170 MLC @F3X@,GETXRD&6 7 3125 M D28 665 37 318 9 180 MLC @F3Z@,GETA1 7 3132 M D31 573 37 319 9 190 SW 7818,7637 7 3139 , H1Y F3X 37 320 9 200 MLC @F0 @,X1 7 3146 M D34 089 37 321 9 210 MLCWA @I0 @,188 7 3153 L D37 188 37 322 9 220 UP1 MLC @#@,PRT 7 3160 M D38 423 38 323 9 230 MLC @#@,RTP 7 3167 M D38 614 38 324 9 240 MLC @#@,RTP1 7 3174 M D38 735 38 325 9 250 MLC @#@,PBB 7 3181 M D38 18 38 326 10 010 B SWINST 4 3188 B 32 38 327 10 020 A4 SW 3800 4 3192 , H00 38 328 10 030 A44 CS 3999 4 3196 / I99 39 329 10 040 SBR A44&3 4 3200 H A99 39 330 10 050 BW A44,3800 8 3204 V A96 H00 1 39 331 10 060 MLC GPMRK,3898 7 3212 M R05 H98 39 332 10 070 MLC GPMRK,3998 7 3219 M R05 I98 39 333 10 080 SW 3998,3898 7 3226 , I98 H98 39 334 10 090 SW 3799,3899 7 3233 , G99 H99 40 335 10 100 MLC @G90@,X1 7 3240 M D41 089 40 336 10 110 MLCWA @I00@,188 7 3247 L D44 188 40 337 10 120 B SWINST 4 3254 B 32 40 338 10 130 NCTLMS DCW @NO CONTROL CARD RELOAD CARDS AND PRESS START@ 44 3301 42 339 10 140 CNTRED DCW @CAN NOT READ UNIT 1@ 19 3320 42 340 10 150 REDCNT DCW @0@ 1 3321 42 341 10 160 LTORG * 3322 117 DCW @SYSTEMS@ 7 3328 LIT 42 119 @RUN @ 5 3333 LIT 42 @4@ 1 3334 LIT 43 @1@ 1 3335 LIT 43 136 &TERR1 3 3338 J35 ADCON 43 @0@ 1 3339 LIT 43 1 1401 COBOL - CONTROL FOR DETERMINING PAGE 6 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 146 &TERR 3 3342 J21 ADCON 43 @T00@ 3 3345 LIT 43 159 @COBOL@ 5 3350 LIT 43 161 @XTRAN@ 5 3355 LIT 44 @X10@ 3 3358 LIT 44 @N@ 1 3359 LIT 44 @2@ 1 3360 LIT 44 @ @ 1 3361 LIT 44 @012@ 3 3364 LIT 44 @9@ 1 3365 LIT 44 @G0?@ 3 3368 LIT 45 @I9G@ 3 3371 LIT 45 @F9H@ 3 3374 LIT 45 @F9F@ 3 3377 LIT 45 @C9G@ 3 3380 LIT 45 @C9I@ 3 3383 LIT 45 @C5?@ 3 3386 LIT 45 @I0?@ 3 3389 LIT 46 @G0!@ 3 3392 LIT 46 @I9P@ 3 3395 LIT 46 @F9Q@ 3 3398 LIT 46 @F9O@ 3 3401 LIT 46 @C9P@ 3 3404 LIT 46 @C9R@ 3 3407 LIT 46 @C5!@ 3 3410 LIT 47 @I0!@ 3 3413 LIT 47 @H2 @ 3 3416 LIT 47 @I9X@ 3 3419 LIT 47 @H1Y@ 3 3422 LIT 47 @H1W@ 3 3425 LIT 47 @F3X@ 3 3428 LIT 47 @F3Z@ 3 3431 LIT 48 @F0 @ 3 3434 LIT 48 @I0 @ 3 3437 LIT 48 @#@ 1 3438 LIT 48 @G90@ 3 3441 LIT 48 @I00@ 3 3444 LIT 48 342 10 170 RDD1 EQU *&1 3445 343 10 180 DCW #20 20 3464 48 344 10 190 STOPER DCW @}@ 1 3465 49 1 1401 COBOL - UPDATE SYSTEM PAGE 7 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 345 10 200 JOB 1401 COBOL - UPDATE SYSTEM 346 10 210 ORG 100 0100 347 10 220 UPDTL1 R 1 0100 1 50 348 10 230 UPDTL2 SS 1 2 0101 K 1 50 349 10 240 C 20,@UPDAT@ 7 0103 C 020 850 50 350 10 250 BE CHECK 5 0110 B 138 S 50 351 11 010 C 20,@END @ 7 0115 C 020 855 50 352 11 020 BE END01 5 0122 B 524 S 50 353 11 030 MLC &UPDTL2,071 7 0127 M 858 071 50 354 11 040 B 040 4 0134 B 040 51 355 11 050 CHECK BWZ DONE,SW1,1 8 0138 V 520 081 1 51 356 11 060 CHECK1 CW RR1 4 0146 ) 570 51 357 11 070 SW SW1 4 0150 , 081 51 358 11 080 MLC 21,GENSW 7 0154 M 021 082 51 359 11 090 C 8,HEADID 7 0161 C 008 794 51 360 11 100 BE FOUND 5 0168 B 342 S 51 361 11 110 BW BON,R5 8 0173 V 238 084 1 52 362 11 120 CW R6,R3 7 0181 ) 083 299 52 363 11 130 BACK B IORWU 4 0188 B 611 52 364 11 140 RTW 1,HDR1 8 0192 L %U1 789 R 52 365 11 150 DCW *-1 3 0202 201 52 366 11 160 SW HDR1&15 4 0203 , 804 52 367 11 170 C 8,HEADID 7 0207 C 008 794 53 368 11 180 BE FOUND 5 0214 B 342 S 53 369 11 190 HERE B IORWU 4 0219 B 611 53 370 11 200 WTW 2,HDR1 8 0223 L %U2 789 W 53 371 11 210 DCW *-1 3 0233 232 53 372 11 220 B CLEAR 4 0234 B 307 53 373 11 230 BON B IORWU 4 0238 B 611 53 374 11 240 RTTP RTW 1,1000 8 0242 L %U1 00 R 54 375 11 250 DCW FINSH 3 0252 829 54 376 12 010 MLC IOSBRU,*&4 7 0253 M 788 263 54 377 12 020 SW * 4 0260 , 263 54 378 12 030 NOP 1 0264 N 54 379 12 040 R1 B HX 4 0265 B 426 54 380 12 050 B IORWU 4 0269 B 611 54 381 12 060 WTW 2,1000 8 0273 L %U2 00 W 55 382 12 070 DCW *-1 3 0283 282 55 383 12 080 MLC IOSBRU,*&7 7 0284 M 788 297 55 384 12 090 MLC DCBLNK,* 7 0291 M 805 297 55 385 12 100 NOP 1 0298 N 55 386 12 110 R3 B HXX 4 0299 B 476 55 387 12 120 B BACK 4 0303 B 188 55 388 12 130 CLEAR SBR RETURN&3 4 0307 H 341 56 389 12 140 SW 1000 4 0311 , 00 56 390 12 150 SBR X1,3999 7 0315 H 089 I99 56 391 12 160 CLEAR1 CS 0&X1 4 0322 / 0 0 56 392 12 170 SBR X1 4 0326 H 089 56 393 12 180 BW CLEAR1,1000 8 0330 V 322 00 1 56 394 12 190 RETURN B * 4 0338 B 341 56 1 1401 COBOL - UPDATE SYSTEM PAGE 8 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 395 12 200 FOUND BCE P,GENSW,A 8 0342 B 393 082 A 57 396 12 210 BCE I,GENSW,I 8 0350 B 456 082 I 57 397 12 220 BCE H,GENSW,H 8 0358 B 375 082 H 57 398 12 230 BCE P,GENSW,P 8 0366 B 393 082 P 57 399 12 240 H 1 0374 . 57 400 12 250 H R 1 0375 1 57 401 13 010 SS 1 2 0376 K 1 57 402 13 020 MLC 15,HDR1&14 7 0378 M 015 803 58 403 13 030 MLC 1 0385 M 58 404 13 040 MLC 1 0386 M 58 405 13 050 MLC 1 0387 M 58 406 13 060 MLC 1 0388 M 58 407 13 070 B UPDTL1 4 0389 B 100 58 408 13 080 P SW R1,R6 7 0393 , 265 083 58 409 13 090 MLC PHASOR,RTTP&6 7 0400 M 797 248 59 410 13 100 MLC PHASOR,START&6 7 0407 M 797 550 59 411 13 110 BW BON,R5 8 0414 V 238 084 1 59 412 13 120 B HERE 4 0422 B 219 59 413 13 130 HX BCE K,GENSW,P 8 0426 B 438 082 P 59 414 13 140 B CLEAR 4 0434 B 307 59 415 13 150 K MLC @ 00@,RTTP&6 7 0438 M 861 248 60 416 13 160 CW R1,R5 7 0445 ) 265 084 60 417 13 170 B UPDTL1 4 0452 B 100 60 418 13 180 I SW R3 4 0456 , 299 60 419 13 190 BW HXX,R6 8 0460 V 476 083 1 60 420 13 200 SW R6 4 0468 , 083 60 421 13 210 B HERE 4 0472 B 219 60 422 13 220 HXX R 1 0476 1 61 423 13 230 SS 1 2 0477 K 1 61 424 13 240 MLC 15,HDR1&14 7 0479 M 015 803 61 425 13 250 MLC 1 0486 M 61 426 14 010 MLC 1 0487 M 61 427 14 020 MLC 1 0488 M 61 428 14 030 MLC 1 0489 M 61 429 14 040 MLC PHASOR,START&6 7 0490 M 797 550 62 430 14 050 B CLEAR 4 0497 B 307 62 431 14 060 B IORWU 4 0501 B 611 62 432 14 070 WTW 2,HDR1 8 0505 L %U2 789 W 62 433 14 080 DCW *-1 3 0515 514 62 434 14 090 B UPDTL1 4 0516 B 100 62 435 14 100 DONE SW RR1 4 0520 , 570 62 436 14 110 END01 BCE ENDD,GENSW,H 8 0524 B 806 082 H 63 437 14 120 BCE END02,GENSW,0 8 0532 B 569 082 0 63 438 14 130 CONT B IORWU 4 0540 B 611 63 439 14 140 START WTW 2,* 8 0544 L %U2 551 W 63 440 14 150 DCW *-1 3 0554 553 63 441 14 160 MLC IOSBRU,*&7 7 0555 M 788 568 63 442 14 170 MLC DCBLNK,* 7 0562 M 805 568 64 443 14 180 END02 NOP 1 0569 N 64 444 14 190 RR1 B CHECK1 4 0570 B 146 64 1 1401 COBOL - UPDATE SYSTEM PAGE 9 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 445 14 200 B IORWU 4 0574 B 611 64 446 14 210 RTW 1,1000 8 0578 L %U1 00 R 64 447 14 220 DCW END 3 0588 830 64 448 14 230 MLC IOSBRU,*&4 7 0589 M 788 599 64 449 14 240 SW * 4 0596 , 599 65 450 14 250 MLC @ 00@,START&6 7 0600 M 861 550 65 451 15 010 B CONT 4 0607 B 540 65 452 15 020 IORWU SBR X1 4 0611 H 089 65 453 15 030 MLC 7&X1,IOINTU&7 MOVE IN I/O INSTRUCTION. 7 0615 M 0 7 657 65 454 15 040 MLC @012@,IOCHNU&6 LOAD CHECK FOR NOISE RECORD. 7 0622 M 864 689 65 455 15 050 MA 6&X1,IOCHNU&6 7 0629 # 0 6 689 66 456 15 060 MLC 10&X1,GENRFU&3 MOVE IN EOF ADDRESS. 7 0636 M 0/0 784 66 457 15 070 RBKU MLC @9@,IOCERU 7 0643 M 865 785 66 458 15 080 IOINTU RT 0,0 SKELETON I/O INSTRUCTION. 8 0650 M %U0 000 R 66 459 15 090 SBR *&4 4 0658 H 665 66 460 15 100 MLNS 0 4 0662 D 000 66 461 15 110 SAR IOSBRU GT POSITION OF GP-WM. 4 0666 Q 788 67 462 15 120 BCE IOWRTU,IOINTU&7,W IF WRITE I/O BRANCH. 8 0670 B 703 657 W 67 463 15 130 BEF GENRFU 5 0678 B 781 K 67 464 15 140 IOCHNU BCE IOINTU,0,} 8 0683 B 650 000 } 67 465 15 150 BCE 1 0691 B 67 466 15 160 BCE 1 0692 B 67 467 15 170 BCE 1 0693 B 67 468 15 180 BCE 1 0694 B 68 469 15 190 BCE 1 0695 B 68 470 15 200 BCE 1 0696 B 68 471 15 210 BCE 1 0697 B 68 472 15 220 BCE 1 0698 B 68 473 15 230 BCE 1 0699 B 68 474 15 240 BCE 1 0700 B 68 475 15 250 BCE 1 0701 B 69 476 16 010 BCE 1 0702 B 69 477 16 020 IOWRTU BER IOERRU IF ERROR BRANCH. 5 0703 B 717 L 69 478 16 030 BEF GENRFU IF EOF BRANCH. 5 0708 B 781 K 69 479 16 040 B 11&X1 4 0713 B 0/1 69 480 16 050 IOERRU MLNS IOINTU&3,*&4 CONDITION BACKSPACE INSTRUCTION. 7 0717 D 653 727 69 481 16 060 BSP 0 BACKSPACE TAPE IF EROR. 5 0724 U %U0 B 69 482 16 070 BM IO9CKU,IOCERU IF ERROR 9 TIMES THEN BRANCH. 8 0729 V 748 785 K 70 483 16 080 S @1@,IOCERU DECREMENT COUNTER. 7 0737 S 866 785 70 484 16 090 B IOINTU BRANCH TO EXECUTE I/O AGAIN. 4 0744 B 650 70 485 16 100 IO9CKU BCE SKPINU,IOINTU&7,W IF WRITE THEN BRANCH. 8 0748 B 760 657 W 70 486 16 110 HRRU H RBKU 4 0756 . 643 70 487 16 120 SKPINU MLNS IOINTU&3,*&4 7 0760 D 653 770 70 488 16 130 SKP 0 SKIP FOR WRITE 5 0767 U %U0 E 71 489 16 140 BEF HRRU 5 0772 B 756 K 71 490 16 150 B IOINTU 4 0777 B 650 71 491 16 160 GENRFU B 0 4 0781 B 000 71 492 16 170 IOCERU DCW @0@ 1 0785 71 493 16 180 IOSBRU DCW @000@ 3 0788 71 494 16 190 HDR1 DA 1X15 0789 0803 71 1 1401 COBOL - UPDATE SYSTEM PAGE 10 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 495 16 200 1,3 0791 FIELD 72 496 16 210 HEADID 4,6 0794 FIELD 72 497 16 220 PHASOR 7,9 0797 FIELD 72 498 16 230 10,12 0800 FIELD 72 499 16 240 13,15 0803 FIELD 72 500 16 250 DC @}@ 1 0804 73 501 17 010 DCBLNK DCW #1 1 0805 73 502 17 020 ENDD B IORWU 4 0806 B 611 73 503 17 030 WTW 2,HDR1 8 0810 L %U2 789 W 73 504 17 040 DCW *-1 3 0820 819 73 505 17 050 SW R5 4 0821 , 084 74 506 17 060 B END02 4 0825 B 569 74 507 17 070 FINSH H 1 0829 . 74 508 17 080 END WTM 2 5 0830 U %U2 M 74 509 17 090 RWD 2 5 0835 U %U2 R 74 510 17 100 RWD 1 5 0840 U %U1 R 74 511 17 110 H 1 0845 . 74 512 17 120 LTORG * 0846 349 DCW @UPDAT@ 5 0850 LIT 75 351 @END @ 5 0855 LIT 75 353 &UPDTL2 3 0858 101 ADCON 75 @ 00@ 3 0861 LIT 75 @012@ 3 0864 LIT 75 @9@ 1 0865 LIT 75 @1@ 1 0866 LIT 75 513 17 130 DCW @}@ 1 0867 76 1 1401 COBOL - SYSTEMS CONTROL PROGRAM PAGE 11 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 514 17 140 JOB 1401 COBOL - SYSTEMS CONTROL PROGRAM 515 17 150 ORG 335 0335 516 17 160 PUTA EQU 3901 3901 517 17 170 PUTMAX EQU 3997 3997 518 17 180 GETA EQU 3801 3801 519 17 190 GETMAX EQU 3897 3897 520 17 200 GETX SBR X1 4 0335 H 089 77 521 17 210 B Z2 4 0339 B 577 77 522 17 220 IORW SBR X1 4 0343 H 089 77 523 17 230 B Z3 4 0347 B 717 77 524 17 240 SUPER SBR X1 4 0351 H 089 77 525 17 250 B Z4 4 0355 B 959 77 526 18 010 DUMP B Z5 4 0359 B 82 77 527 18 020 PUTX SBR X1 4 0363 H 089 78 528 18 030 SBR PUT2&3,3&X1 7 0367 H 437 0 3 78 529 18 040 MLC 2&X1,*&4 7 0374 M 0 2 384 78 530 18 050 MLC *,IOSBR 7 0381 M 387 940 78 531 18 060 PUT7 MLC IOSBR,PUTA 7 0388 M 940 I01 78 532 18 070 PUTX1 C IOSBR,VEP 7 0395 C 940 561 78 533 18 080 BE PUT6 5 0402 B 547 S 79 534 18 090 C PUT7&6,PUTMX 7 0407 C 394 564 79 535 18 100 PUT1A BE WRITE 5 0414 B 438 S 79 536 18 110 SW PUT7&4 4 0419 , 392 79 537 18 120 PRT A THREE,PUT7&6 7 0423 A 558 394 79 538 18 130 CW PUT7&4 4 0430 ) 392 79 539 18 140 PUT2 B 0 4 0434 B 000 79 540 18 150 WRITE B IORW 4 0438 B 343 80 541 18 160 PUTXWT WT 1,PUTA-2 8 0442 M %U1 H99 W 80 542 18 170 DCW PUT4 3 0452 893 80 543 18 180 PUT2D MLC PUTA1,PUT7&6 7 0453 M 567 394 80 544 18 190 PUTT ZA SZRO,PUTMAX 7 0460 ? 555 I97 80 545 18 200 NOP 1 0467 N 80 546 18 210 PUT2A B PUT2 BRANCH TO EXIT IF NO EOP 4 0468 B 434 80 547 18 220 PUT2B WTM 1 END TAPE 5 0472 U %U1 M 81 548 18 230 PUT2C RWD 1 AND REWIND 5 0477 U %U1 R 81 549 18 240 SW PUT2A 4 0482 , 468 81 550 18 250 MLC FLIP1,PUTXWT&3 7 0486 M 574 445 81 551 19 010 MLC FLIP1,PUT2B&3 7 0493 M 574 475 81 552 19 020 MLC FLIP1,PUT2C&3 7 0500 M 574 480 81 553 19 030 MLC FLIP2,GETXRD&3 7 0507 M 575 662 82 554 19 040 MLC FLIP2,GET7&3 7 0514 M 575 701 82 555 19 050 MLC FLIP2,GET4A&3 7 0521 M 575 692 82 556 19 060 MLC FLIP2,FLIP3 7 0528 M 575 576 82 557 19 070 MLC FLIP1 4 0535 M 574 82 558 19 080 MLC FLIP3 4 0539 M 576 82 559 19 090 B PUT2 4 0543 B 434 83 560 19 100 PUT6 CW PUT2A 4 0547 ) 468 83 561 19 110 B WRITE 4 0551 B 438 83 562 19 120 SZRO DCW @0@ 1 0555 83 563 19 130 THREE DCW @003@ 3 0558 83 1 1401 COBOL - SYSTEMS CONTROL PROGRAM PAGE 12 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 564 19 140 VEP DCW @.EP@ 3 0561 83 565 19 150 PUTMX DCW @I97@ 3 0564 83 566 19 160 PUTA1 DCW @I01@ 3 0567 84 567 19 170 GETMX DCW @H97@ 3 0570 84 568 19 180 GETA1 DCW @H01@ 3 0573 84 569 19 190 FLIP1 DCW @6@ 1 0574 84 570 19 200 FLIP2 DCW @5@ 1 0575 84 571 19 210 FLIP3 DCW @0@ 1 0576 84 572 19 220 Z2 SBR GET2&3,6&X1 7 0577 H 654 0 6 84 573 19 230 MLC 2&X1,GET1A1&6 7 0584 M 0 2 638 85 574 19 240 MLC 5&X1,GET7A&3 LABEL 7 0591 M 0 5 713 85 575 19 250 C GET1A&3,GETMX 7 0598 C 628 570 85 576 20 010 BE READ DOES AREA NEED FILLING 5 0605 B 655 S 85 577 20 020 SW GET1A&1 4 0610 , 626 85 578 20 030 RTP A THREE,GET1A&3 7 0614 A 558 628 85 579 20 040 CW GET1A&1 4 0621 ) 626 86 580 20 050 GET1A MLC GETMAX,IOSBR 7 0625 M H97 940 86 581 20 060 GET1A1 MLC IOSBR,* 7 0632 M 940 638 86 582 20 070 GETX1 C IOSBR,VEP 7 0639 C 940 561 86 583 20 080 BE GET7 5 0646 B 698 S 86 584 20 090 GET2 B 0 4 0651 B 000 86 585 20 100 READ B IORW 4 0655 B 343 86 586 20 110 GETXRD RT 1,GETA-2 8 0659 M %U1 G99 R 87 587 20 120 DCW GET4 3 0669 681 87 588 20 130 MLC GETA1,GET1A&3 7 0670 M 573 628 87 589 20 140 B GET1A 4 0677 B 625 87 590 20 150 GET4 MLC EDMG,303 7 0681 M 952 303 87 591 20 160 W NO EOP 1 0688 2 87 592 20 170 GET4A RWU 1 5 0689 U %U1 U 87 593 20 180 H READ 4 0694 . 655 88 594 20 190 GET7 RWD 1 REWIND TAPE 5 0698 U %U1 R 88 595 20 200 MLC GETMX,GET1A&3 7 0703 M 570 628 88 596 20 210 GET7A B * BRANCH TO LABEL 4 0710 B 713 88 597 20 220 GET6 DCW @ @ TEMPORARY BOX 3 0716 88 598 20 230 Z3 MLC 7&X1,IOINST&7 7 0717 M 0 7 767 88 599 20 240 MLC TWELVE,IOCHNS&6 7 0724 M 943 799 88 600 20 250 SW IOCHNS&4 4 0731 , 797 89 601 21 010 RTP1 A 6&X1,IOCHNS&6 7 0735 A 0 6 799 89 602 21 020 CW IOCHNS&4 4 0742 ) 797 89 603 21 030 MLC 10&X1,GENREF&3 MOVE IN EOF ADDRESS. 7 0746 M 0/0 936 89 604 21 040 REINIT MLC NINE,IOCERR 7 0753 M 944 937 89 605 21 050 IOINST RT 0,0 SKELETON I/O INSTRUCTION. 8 0760 M %U0 000 R 89 606 21 060 SBR *&4 4 0768 H 775 90 607 21 070 MLNS 0 4 0772 D 000 90 608 21 080 SAR IOSBR GT POSITION OF GM-WM. 4 0776 Q 940 90 609 21 090 BCE IOWRIT,IOINST&7,W IF WRITE I/O BRANCH. 8 0780 B 813 767 W 90 610 21 100 BEF GENREF 5 0788 B 933 K 90 611 21 110 IOCHNS BCE IOINST,0,} 8 0793 B 760 000 } 90 612 21 120 BCE 1 0801 B 90 613 21 130 BCE 1 0802 B 91 1 1401 COBOL - SYSTEMS CONTROL PROGRAM PAGE 13 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 614 21 140 BCE 1 0803 B 91 615 21 150 BCE 1 0804 B 91 616 21 160 BCE 1 0805 B 91 617 21 170 BCE 1 0806 B 91 618 21 180 BCE 1 0807 B 91 619 21 190 BCE 1 0808 B 91 620 21 200 BCE 1 0809 B 92 621 21 210 BCE 1 0810 B 92 622 21 220 BCE 1 0811 B 92 623 21 230 BCE 1 0812 B 92 624 21 240 IOWRIT BER IOERR IF ERROR BARNCH. 5 0813 B 827 L 92 625 21 250 BEF GENREF IF EOF BRANCH. 5 0818 B 933 K 92 626 22 010 B 11&X1 4 0823 B 0/1 92 627 22 020 IOERR MLNS IOINST&3,*&4 CONDITION BACKSPACE INSTRUCTION. 7 0827 D 763 837 93 628 22 030 BSP 0 BACKSPACE TAPE IF EROR. 5 0834 U %U0 B 93 629 22 040 BM IO9CHK,IOCERR IF ERROR 9 TIMES THEN BRANCH. 8 0839 V 858 937 K 93 630 22 050 S ONE,IOCERR 7 0847 S 945 937 93 631 22 060 B IOINST BRANCH TO EXECUTE I/O AGAIN. 4 0854 B 760 93 632 22 070 IO9CHK BCE SKPINS,IOINST&7,W IF WRITE THEN BRANCH. 8 0858 B 901 767 W 93 633 22 080 CS 332 IF REIED READ 9 TIMES AND 4 0866 / 332 94 634 22 090 CS ERROR THEN PRINT MESSAGE 1 0870 / 94 635 22 100 MESSGE MLC CNTRDM,275 "CANT READ UNIT N" AND 7 0871 M 949 275 94 636 22 110 MLN IOINST&3,275 PROVIDE LINKAGE BACK TO 7 0878 D 763 275 94 637 22 120 IO9CH1 W REXECUTE COMMAND. 1 0885 2 94 638 22 130 BIN IO9CH1, 5 0886 B 885 94 639 22 140 CC 1 2 0891 F 1 94 640 22 150 PUT4 H REINIT 4 0893 . 753 95 641 22 160 B REINIT 4 0897 B 753 95 642 22 170 SKPINS MLNS IOINST&3,*&4 7 0901 D 763 911 95 643 22 180 SKP 0 SKIP FOR WRITE 5 0908 U %U0 E 95 644 22 190 BEF IOWREF IF EOF ON WRITE BRANCH 5 0913 B 922 K 95 645 22 200 B IOINST 4 0918 B 760 95 646 22 210 IOWREF MLC &CNTWT,MESSGE&3 7 0922 M S76 874 95 647 22 220 B IO9CHK&8 4 0929 B 866 96 648 22 230 GENREF B 0 4 0933 B 000 96 649 22 240 IOCERR DCW @0@ 1 0937 96 650 22 250 IOSBR DCW @000@ 3 0940 96 651 23 010 TWELVE DCW @012@ 3 0943 96 652 23 020 NINE DCW @9@ 1 0944 96 653 23 030 ONE DCW @1@ 1 0945 96 654 23 040 CNTRDM DCW @TE 0@ 4 0949 97 655 23 050 EDMG DCW @EOR@ 3 0952 97 656 23 060 CNTWT DCW @EOF T0@ 6 0958 97 657 23 070 Z4 MLC 2&X1,PHASID 7 0959 M 0 2 /12 97 658 23 080 CBOL05 MLC @N@,XYZ 7 0966 M S77 52 97 659 23 090 B IORW 4 0973 B 343 97 660 23 100 RTW 1,HEADER IN 8 0977 L %U1 /35 R 97 661 23 110 DCW SYSEOF 3 0987 /51 98 662 23 120 SW HEADER&15 4 0988 , /50 98 663 23 130 B REAS 4 0992 B S43 98 1 1401 COBOL - SYSTEMS CONTROL PROGRAM PAGE 14 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 664 23 140 DCW #3 3 0998 98 665 23 150 DCW #5 5 1003 98 666 23 160 PHFUND MLC HEADER&8,INPHAS&6 CONDITION BUCKETS FOR CLEARING 7 1004 M /43 66 98 667 23 170 MLC HEADER&8,X2 7 1011 M /43 094 98 668 23 180 PBB A @100@,X2 7 1018 A S80 094 99 669 23 190 MLC HEADER&14,X1 DELETING GROUP MARK-WORD MARK 7 1025 M /49 089 99 670 23 200 SWINST SW 0&X2 4 1032 , 0!0 99 671 23 210 SWTCH1 CS 0&X1 4 1036 / 0 0 99 672 23 220 SBR X1 4 1040 H 089 99 673 23 230 BW SWTCH1,0&X2 8 1044 V 36 0!0 1 99 674 23 240 XYZ B CBOL05 4 1052 B 966 99 675 23 250 B IORW READ PHASE IN 4 1056 B 343 100 676 24 010 INPHAS RTW 1,* 8 1060 L %U1 67 R 100 677 24 020 DCW SYSEOF 3 1070 /51 100 678 24 030 MLC HEADER&11,*&4 7 1071 M /46 81 100 679 24 040 UNCONB B * 4 1078 B 81 100 680 24 050 Z5 MLC PHASID,331 7 1082 M /12 331 100 681 24 060 MLC DUMPID,PHASID 7 1089 M /29 /12 101 682 24 070 MLC X3,XRGSV 7 1096 M 099 /25 101 683 24 080 MLC 1 1103 M 101 684 24 090 MLC 1 1104 M 101 685 24 100 B CBOL05 4 1105 B 966 101 686 24 110 GTSTOV DCW @0@ 1 1109 101 687 24 120 PHASID DCW @A01@ 3 1112 101 688 24 130 DCW @00000@ 5 1117 102 689 24 140 DCW @00000@ 5 1122 102 690 24 150 XRGSV DCW @000@ 3 1125 102 691 24 160 SCRBKT DCW @2@ 1 1126 102 692 24 170 DUMPID DCW @DMP@ 3 1129 102 693 24 180 PH10SW DCW @0@ 1 1130 102 694 24 190 TMSW DCW @Y@ 1 1131 102 695 24 200 SAVE DCW @000@ 3 1134 103 696 24 210 HEADER DA 1X15 1135 1149 103 697 24 220 1,3 1137 FIELD 103 698 24 230 4,6 1140 FIELD 103 699 24 240 7,9 1143 FIELD 103 700 24 250 10,12 1146 FIELD 103 701 25 010 13,15 1149 FIELD 103 702 25 020 DC @}@ 1 1150 104 703 25 030 SYSEOF RWD 1 5 1151 U %U1 R 104 704 25 040 B CBOL05 4 1156 B 966 104 705 25 050 DCW @A@ 1 1160 104 706 25 060 DCW @B@ 1 1161 104 707 25 070 DCW @C@ 1 1162 105 708 25 080 DCW @D@ 1 1163 105 709 25 090 DCW @E@ 1 1164 105 710 25 100 DCW @F@ 1 1165 105 711 25 110 DCW @G@ 1 1166 105 712 25 120 DCW @H@ 1 1167 105 713 25 130 DCW @I@ 1 1168 105 1 1401 COBOL - SYSTEMS CONTROL PROGRAM PAGE 15 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 714 25 140 DCW @J@ 1 1169 106 715 25 150 DCW @K@ 1 1170 106 716 25 160 DCW @L@ 1 1171 106 717 25 170 DCW @M@ 1 1172 106 718 25 180 DCW @N@ 1 1173 106 719 25 190 DCW @O@ 1 1174 106 720 25 200 DCW @P@ 1 1175 106 721 25 210 DCW @Q@ 1 1176 107 722 25 220 DCW @R@ 1 1177 107 723 25 230 DCW @S@ 1 1178 107 724 25 240 DCW @T@ 1 1179 107 725 25 250 DCW @U@ 1 1180 107 726 26 010 DCW @V@ 1 1181 107 727 26 020 DCW @W@ 1 1182 107 728 26 030 DCW @X@ 1 1183 108 729 26 040 DCW @Y@ 1 1184 108 730 26 050 CBLBLK DCW @Z@ 1 1185 108 731 26 060 DCW @ @ 1 1186 108 732 26 070 DCW @?@ 1 1187 108 733 26 080 DCW @!@ 1 1188 108 734 26 090 DCW @.@ 1 1189 108 735 26 100 DCW @)@ 1 1190 109 736 26 110 DCW @$@ 1 1191 109 737 26 120 DCW @*@ 1 1192 109 738 26 130 DCW @-@ 1 1193 109 739 26 140 DCW @/@ 1 1194 109 740 26 150 DCW @,@ 1 1195 109 741 26 160 DCW @%@ 1 1196 109 742 26 170 DCW @#@ 1 1197 110 743 26 180 DCW @@@ 1 1198 110 744 26 190 DCW @&@ 1 1199 110 745 26 200 DCW @0@ 1 1200 110 746 26 210 DCW @1@ 1 1201 110 747 26 220 DCW @2@ 1 1202 110 748 26 230 DCW @3@ 1 1203 110 749 26 240 DCW @4@ 1 1204 111 750 26 250 DCW @5@ 1 1205 111 751 27 010 DCW @6@ 1 1206 111 752 27 020 DCW @7@ 1 1207 111 753 27 030 DCW @8@ 1 1208 111 754 27 040 CBLRM DCW @9@ 1 1209 111 755 27 050 DCW @ @ 1 1210 111 756 27 060 DCW CBLRM 3 1213 S09 112 757 27 070 DC #2 2 1215 112 758 27 080 DCW CBLRM 3 1218 S09 112 759 27 090 DC #2 2 1220 112 760 27 100 GNPTRS DCW CBLRM 3 1223 S09 112 761 27 110 DCW CBLBLK 3 1226 /85 112 762 27 120 DC #2 2 1228 112 763 27 130 DCW CBLBLK 3 1231 /85 112 1 1401 COBOL - SYSTEMS CONTROL PROGRAM PAGE 16 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 764 27 140 DC #2 2 1233 112 765 27 150 GNLPTR DCW CBLRM 3 1236 S09 112 766 27 160 DCW @V@ 1 1237 112 767 27 170 DCW @01@ 2 1239 113 768 27 180 DCW @M@ 1 1240 113 769 27 190 DCW @01@ 2 1242 113 770 27 200 REAS C PHASID,HEADER&5 7 1243 C /12 /40 113 771 27 210 BE PHFUND 5 1250 B 04 S 113 772 27 220 B IORW 4 1255 B 343 113 773 27 230 RT 1,HEADER 8 1259 M %U1 /35 R 113 774 27 240 DCW SYSEOF 3 1269 /51 114 775 27 250 B CBOL05 4 1270 B 966 114 776 28 010 LTORG * 1274 646 DCW &CNTWT 3 1276 958 ADCON 114 @N@ 1 1277 LIT 114 @100@ 3 1280 LIT 114 777 28 020 DCW @}@ 1 1281 114 778 28 030 END / 000 080 115 1CLEAR STORAGE 1 ,008015,022026,030037,044,049,053053N000000N00001026 1 CLEAR STORAGE 2 L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0? 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 1401 COBOL - FIRST PART OF DUMP PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 1 010 000 JOB 1401 COBOL - FIRST PART OF DUMP 102 1 020 CTL 661 11 103 1 030 ORG 363 0363 104 1 040 X1 EQU 089 0089 105 1 050 X2 EQU 094 0094 106 1 060 X3 EQU 099 0099 107 1 070 SUPER EQU 351 0351 108 1 080 XRGSV EQU 1125 1125 109 1 090 DUMP W PRINT THE PRINT BUFFER 1 0363 2 4 110 1 100 WM 2 0364 2 ) 4 111 1 110 CS 332 4 0366 / 332 4 112 1 120 CS 1 0370 / 4 113 1 130 SW 213 4 0371 , 213 4 114 1 140 MLC @.@,329 7 0375 M 456 329 4 115 1 150 MLC 329,328 7 0382 M 329 328 4 116 1 160 L1 MLC ZERO,212 7 0389 M 455 212 5 117 1 170 MLC 1 0396 M 5 118 1 180 SW L1&4 4 0397 , 393 5 119 1 190 A @012@,L1&6 7 0401 A 459 395 5 120 1 200 CW L1&4 4 0408 ) 393 5 121 1 210 A @001@,ZERO-1 7 0412 A 462 454 5 122 1 220 BAV *&5 5 0419 B 428 Z 5 123 1 230 B L1 4 0424 B 389 6 124 1 240 W 1 0428 2 6 125 1 250 CS 332 4 0429 / 332 6 126 2 010 CS 1 0433 / 6 127 2 020 MLCWA XRGSV,329 7 0434 L /25 329 6 128 2 030 MLCWA 1 0441 L 6 129 2 040 MLCWA 1 0442 L 6 130 2 050 W 1 0443 2 7 131 2 060 WM 2 0444 2 ) 7 132 2 070 B SUPER 4 0446 B 351 7 133 2 080 DCW @DM2@ 3 0452 7 134 2 090 DCW @ @ 1 0453 7 135 2 100 ZERO DCW @00@ 2 0455 7 136 2 110 LTORG 0456 DCW @.@ 1 0456 LIT 7 @012@ 3 0459 LIT 8 @001@ 3 0462 LIT 8 137 2 120 DCW @}@ 1 0463 8 138 2 130 END / 000 080 9 1CLEAR STORAGE 1 ,008015,022026,030037,044,049,053053N000000N00001026 1 CLEAR STORAGE 2 L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0? 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 1401 COBOL - SECOND PART OF DUMP PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 1 010 000 JOB 1401 COBOL - SECOND PART OF DUMP 102 1 020 CTL 661 11 103 1 030 ORG 363 0363 104 1 040 X1 EQU 89 0089 105 1 050 X2 EQU 94 0094 106 1 060 X3 EQU 99 0099 107 1 070 SUPER EQU 351 0351 108 1 080 CS 0 4 0363 / 000 4 109 1 090 SBR CONST#3 4 0367 H 641 4 110 1 100 MN @00@,CONST 7 0371 D 643 641 4 111 1 110 MN 1 0378 D 4 112 1 120 BCE DDD,CONST,0 8 0379 B 401 641 0 4 113 1 130 MLC @#@,RZZ 7 0387 M 644 594 4 114 1 140 MLC @#@,MOD1 7 0394 M 644 493 4 115 1 150 DDD SBR X1,213 7 0401 H 089 213 5 116 1 160 MLC @001@,X2 7 0408 M 647 094 5 117 1 170 B *&8 4 0415 B 426 5 118 1 180 MOVE1 SBR X1,212 7 0419 H 089 212 5 119 1 190 CS 332 CLEAR PRINT BUFFER 4 0426 / 332 5 120 1 200 CS 1 0430 / 5 121 1 210 MLC ADDRS,205 MOVE IN 5 CHARACTER ADDRESS AND 7 0431 M 633 205 5 122 1 220 MLC AD1401,209 3 CHARACTER ADDRESS INTO BUFFER 7 0438 M 636 209 6 123 1 230 MOVE BW LOAD,0&X2 BRANCH IF W-M WITH CHARACTER 8 0445 V 471 0!0 1 6 124 1 240 MLNS 0&X2,0&X1 ELSE MOVE SINGLE CHARACTER INTO 7 0453 D 0!0 0 0 6 125 1 250 MLZS 0&X2,0&X1 PRINT BUFFER. 7 0460 Y 0!0 0 0 6 126 2 010 B *&8 4 0467 B 478 6 127 2 020 LOAD MLCWA 0&X2,0&X1 MOVE CHARACTER AND WORD MARK 7 0471 L 0!0 0 0 7 128 2 030 BCE L2,0&X2,} 8 0478 B 618 0!0 } 7 129 2 040 L3 A @001@,TENCNT ADD 1 TO TENS COUNTER 7 0486 A 647 637 7 130 2 050 MOD1 A @001@,X2 7 0493 A 647 094 7 131 2 060 MODIFY A @001@,X1 7 0500 A 647 089 7 132 2 070 BAV LTEN IF MOVED 10 DIGITS BRANCH 5 0507 B 516 Z 8 133 2 080 B MOVE ELSE GOTO MOVE 4 0512 B 445 8 134 2 090 LTEN A @001@,HUNCNT BUMP COUNTER AND IF HAVE 100 7 0516 A 647 638 8 135 2 100 BAV LHUN CHARACTERS IN BUFFER BRANCH 5 0523 B 539 Z 8 136 2 110 A @001@,X1 7 0528 A 647 089 8 137 2 120 B MODIFY ELSE BRANCH 4 0535 B 500 8 138 2 130 LHUN W PRINT BUFFER 1 0539 2 8 139 2 140 WM 2 0540 2 ) 9 140 2 150 CS 332 4 0542 / 332 9 141 2 160 CS 1 0546 / 9 142 2 170 SW 200 4 0547 , 200 9 143 2 180 BCV OVRFLO BRANCH IF CHANNEL 12 ON 1403-CT 5 0551 B 612 @ 9 144 2 190 RTRN C AD1401,CONST 7 0556 C 636 641 9 145 2 200 BE HALT 5 0563 B 605 S 9 146 2 210 A @100@,ADDRS ADD 100 TO ADDRESS COUNTERS 7 0568 A 650 633 10 147 2 220 MLC X2,AD1401 7 0575 M 094 636 10 1 1401 COBOL - SECOND PART OF DUMP PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 2 230 C 99&X2,299 7 0582 C 0R9 299 10 149 2 240 BU MOVE1 5 0589 B 419 / 10 150 2 250 RZZ A @100@,X2 7 0594 A 650 094 10 151 3 010 B RTRN 4 0601 B 556 10 152 3 020 HALT B SUPER 4 0605 B 351 11 153 3 030 DCW @T/P@ 3 0611 11 154 3 040 OVRFLO CC 1 2 0612 F 1 11 155 3 050 B RTRN 4 0614 B 556 11 156 3 060 L2 MLC @)@,0&X1 7 0618 M 651 0 0 11 157 3 070 B L3 4 0625 B 486 11 158 3 080 ADDRS DCW @00000@ 5 0633 11 159 3 090 AD1401 DCW @000@ 3 0636 12 160 3 100 TENCNT DCW @1@ 1 0637 12 161 3 110 HUNCNT DCW @0@ 1 0638 12 162 3 120 LTORG 0639 109 CONST DCW #03 3 0641 AREA 12 @00@ 2 0643 LIT 12 @#@ 1 0644 LIT 12 @001@ 3 0647 LIT 12 @100@ 3 0650 LIT 13 @)@ 1 0651 LIT 13 163 3 130 ORG 0652 164 3 140 DCW @}@ 1 0652 13 165 3 150 END / 000 080 14 1CLEAR STORAGE 1 ,008015,022026,030037,044,049,053053N000000N00001026 1 CLEAR STORAGE 2 L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0? 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 1401 COBOL - TAPE PRINT PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 1 010 000 JOB 1401 COBOL - TAPE PRINT 102 1 020 CTL 661 11 103 1 030 ORG 1400 1400 104 1 040 INPUT EQU 2000 2000 105 1 050 X1 EQU 089 0089 106 1 060 RWD 5 5 1400 U %U5 R 4 107 1 070 RWD 6 5 1405 U %U6 R 4 108 1 080 RWD 4 5 1410 U %U4 R 4 109 1 090 CS 332 CLEAR PRINT AREA 4 1415 / 332 4 110 1 100 CS 1 1419 / 4 111 1 110 MLC @5@,IOUNIT FOR DO LOOP FOR SETTING UP 7 1420 M Y48 X30 4 112 1 120 B TPRINT WHAT UNITS ARE TO BE PRINTED 4 1427 B U57 4 113 1 130 MLC @6@,IOUNIT 7 1431 M Y49 X30 5 114 1 140 B TPRINT 4 1438 B U57 5 115 1 150 MLC @4@,IOUNIT 7 1442 M Y50 X30 5 116 1 160 B TPRINT 4 1449 B U57 5 117 1 170 B TFINSH 4 1453 B W67 5 118 1 180 TPRINT SBR TPRTRN&3 SET UP EXIT FOR RETURN. 4 1457 H X29 5 119 1 190 CC 1 2 1461 F 1 5 120 1 200 CS 300 4 1463 / 300 6 121 1 210 MLC FNSHMS,275 7 1467 M Y18 275 6 122 1 220 MLC IOUNIT,275 7 1474 M X30 275 6 123 1 230 W 1 1481 2 6 124 1 240 CC J 2 1482 F J 6 125 1 250 REINIT SBR X1,3999 7 1484 H 089 I99 6 126 2 010 MLC IOUNIT,READ&3 CONDITION READ INSTRUCTION. 7 1491 M X30 V37 6 127 2 020 MLC IOUNIT,BACSPC&3 CONDITION BACKSPACE INSTRUCTION. 7 1498 M X30 W32 7 128 2 030 NXTRCD CC J 2 1505 F J 7 129 2 040 MLC @9@,ERRCNT INITIALIZE ERROR COUNT FIELD. 7 1507 M Y51 X31 7 130 2 050 SW INPUT CLEAR PREVIOUS RECORD READ 4 1514 , !00 7 131 2 060 CLEAR CS 0&X1 IN FROM STORAGE. 4 1518 / 0 0 7 132 2 070 SBR X1 4 1522 H 089 7 133 2 080 BW CLEAR,INPUT 8 1526 V V18 !00 1 7 134 2 090 READ RT 0,INPUT READ IN RECORD. 8 1534 M %U0 !00 R 8 135 2 100 SBR ENDRCD 4 1542 H X34 8 136 2 110 BER TER 5 1546 B W14 L 8 137 2 120 BEF TPRTRN 5 1551 B X26 K 8 138 2 130 MLNS @99@,ENDRCD 7 1556 D Y53 X34 8 139 2 140 MLNS 1 1563 D 8 140 2 150 A @001@,ENDRCD 7 1564 A Y56 X34 8 141 2 160 MLC &INPUT,X1 HUNDREDTHS IN ENDRCD. 7 1571 M Y59 089 9 142 2 170 PRTNXL MLC 99&X1,300 MOVE PART OF RECORD INTO PRINT 7 1578 M 0Z9 300 9 143 2 180 W AREA PRINT. 1 1585 2 9 144 2 190 BCV CC1 5 1586 B Y42 @ 9 145 2 200 MODADD A @100@,X1 7 1591 A Y62 089 9 146 2 210 C ENDRCD,X1 IF FINISHED PRINTING FO BACK 7 1598 C X34 089 9 147 2 220 BE NXTRCD AND READ IN NEXT RECORD ELSE. 5 1605 B V05 S 9 1 1401 COBOL - TAPE PRINT PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 2 230 B PRTNXL GET NEXT 100 POSITIONS. 4 1610 B V78 10 149 2 240 TER S ONE,ERRCNT IF ERROR SUBTRACT ONE. 7 1614 S X35 X31 10 150 2 250 BM TENERR,ERRCNT IF TEN READ ERRORS BRANCH 8 1621 V W38 X31 K 10 151 3 010 BACSPC BSP 0 BACKSPACE TAPE AND REEXECUTE 5 1629 U %U0 B 10 152 3 020 B READ READ COMMAND. 4 1634 B V34 10 153 3 030 TENERR CS 300 4 1638 / 300 10 154 3 040 MLC REDERR,299 7 1642 M X98 299 10 155 3 050 W 1 1649 2 11 156 3 060 CC 1 2 1650 F 1 11 157 3 070 MLC @9@,ERRCNT 7 1652 M Y51 X31 11 158 3 080 H BACSPC IF TRY AGAIN PUSH START ELSE 4 1659 . W29 11 159 3 090 B REINIT 4 1663 B U84 11 160 3 100 TFINSH CS 300 IF PRINTED ALL THREE TAPES 4 1667 / 300 11 161 3 110 MLC TPRTFS,275 PRINT MESSAGE REWIND 1,2,3 7 1671 M Y41 275 11 162 3 120 W AND 4 AND HALT 1 1678 2 12 163 3 130 CC 1 2 1679 F 1 12 164 3 140 RWD 4 5 1681 U %U4 R 12 165 3 150 RWD 6 5 1686 U %U6 R 12 166 3 160 RWD 5 5 1691 U %U5 R 12 167 3 170 RWD 1 5 1696 U %U1 R 12 168 3 180 BSS TFSH1,D 5 1701 B X10 D 12 169 3 190 B LX1R 4 1706 B X21 13 170 3 200 TFSH1 MLC 153,1112 7 1710 M 153 /12 13 171 3 210 B 966 4 1717 B 966 13 172 3 220 LX1R H 1 1721 . 13 173 3 230 B TFSH1 4 1722 B X10 13 174 3 240 TPRTRN B * 4 1726 B X29 13 175 3 250 IOUNIT DCW @0@ 1 1730 13 176 4 010 ERRCNT DCW @0@ 1 1731 14 177 4 020 ENDRCD DCW @000@ 3 1734 14 178 4 030 ONE DCW @1@ 1 1735 14 179 4 040 DCW @READ ERROR - PRESS START TO REREAD OR RESET START@ 49 1784 16 180 4 050 REDERR DC @TO SKIP RECORD@ 14 1798 16 181 4 060 FNSHMS DCW @ T/P FOR TAPE UNIT 0@ 20 1818 17 182 4 070 TPRTFS DCW @TAPES 5,6 AND 4 PRINTED@ 23 1841 18 183 4 080 CC1 CC 1 2 1842 F 1 18 184 4 090 B MODADD 4 1844 B V91 18 185 4 100 LTORG 1848 DCW @5@ 1 1848 LIT 18 @6@ 1 1849 LIT 18 @4@ 1 1850 LIT 18 @9@ 1 1851 LIT 18 @99@ 2 1853 LIT 19 @001@ 3 1856 LIT 19 141 &INPUT 3 1859 !00 ADCON 19 @100@ 3 1862 LIT 19 186 4 110 DCW @}@ 1 1863 19 187 4 120 END 335 / 335 080 20 1CLEAR STORAGE 1 ,008015,019026,030,034041,045,053,0570571026 1 CLEAR STORAGE 2 L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 1401 COBOL - A01 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 1 010 000 JOB 1401 COBOL - A01 102 1 020 CTL 631 11 103 1 030 ORG 1300 1300 104 1 040 SUPER EQU 351 0351 105 1 050 IORW EQU 343 0343 106 1 060 START SW 1,73 7 1300 , 001 073 4 107 1 070 SW GM 4 1307 , Y15 4 108 1 080 CC J 2 1311 F J 4 109 1 090 CC 1 2 1313 F 1 4 110 1 100 CS 332 4 1315 / 332 4 111 1 110 CS 1 1319 / 4 112 1 120 MLC HEADER,262 7 1320 M X82 262 4 113 1 130 C 80,@%)@ 7 1327 C 080 Y32 5 114 1 131 BU L0 5 1334 B T57 / 5 115 1 132 MLC @B@,L7 7 1339 M Y33 V28 5 116 1 133 MLC @B@,INIT1A 7 1346 M Y33 X21 5 117 1 134 B L2 4 1353 B T72 5 118 1 140 L0 WR 1 1357 3 5 119 1 150 SS 1 2 1358 K 1 5 120 1 160 B CCK1 4 1360 B U43 6 121 1 170 L1 W 1 1364 2 6 122 1 180 MLCWA GM,3681 7 1365 L Y15 F81 6 123 1 190 L2 B IORW 4 1372 B 343 6 124 1 200 RT 2,3601 8 1376 M %U2 F01 R 6 125 1 210 DCW ERROR 3 1386 U03 6 126 1 220 C 3635,35 7 1387 C F35 035 6 127 1 230 BU L2 5 1394 B T72 / 7 128 1 240 B CCK1 4 1399 B U43 7 129 1 250 ERROR NOP ERR1 4 1403 N U23 7 130 2 010 MLC @B@,ERROR 7 1407 M Y33 U03 7 131 2 020 RWD 2 5 1414 U %U2 R 7 132 2 030 B L2 4 1419 B T72 7 133 2 040 ERR1 CS 332 4 1423 / 332 7 134 2 050 CS 1 1427 / 8 135 2 060 MLC @PROGRAM NOT ON TAPE 2@,230 7 1428 M Y54 230 8 136 2 070 W 1 1435 2 8 137 2 080 CC 1 2 1436 F 1 8 138 2 090 ERR2 H 1 1438 . 8 139 2 100 B ERR2 4 1439 B U38 8 140 2 110 CCK1 CC K 2 1443 F K 8 141 2 120 CS 262 4 1445 / 262 9 142 2 130 BSS INIT3,G 5 1449 B W91 G 9 143 2 140 B NP1 4 1454 B U65 9 144 2 150 NEWPAG CC 1 2 1458 F 1 9 145 2 160 CS 306 4 1460 / 306 9 146 2 170 CS 1 1464 / 9 147 2 180 NP1 MLC IDENT,306 7 1465 M X96 306 9 1 1401 COBOL - A01 PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 2 190 MLC CDIMAG,229 7 1472 M Y06 229 10 149 2 200 MLC SEQ,218 7 1479 M Y14 218 10 150 2 210 W 1 1486 2 10 151 2 220 CC J 2 1487 F J 10 152 2 230 CS 306 4 1489 / 306 10 153 2 240 CS 1 1493 / 10 154 2 250 NC1 B INIT1 4 1494 B X14 10 155 3 010 NEWCRD BCV NEWPAG 5 1498 B U58 @ 11 156 3 020 MLC 80,300 7 1503 M 080 300 11 157 3 030 MLC @*@,292 7 1510 M Y55 292 11 158 3 040 MLC 72 4 1517 M 072 11 159 3 050 MCS INT2,216 7 1521 Z Y21 216 11 160 3 060 L7 NOP L3 4 1528 N V61 11 161 3 070 BLC EOJ 5 1532 B X29 A 11 162 3 080 WR 1 1537 3 12 163 3 090 SS 1 2 1538 K 1 12 164 3 100 C 013,@END OF SOURCE@ 7 1540 C 013 Y68 12 165 3 101 BU L5 5 1547 B W05 / 12 166 3 102 CS 306 4 1552 / 306 12 167 3 103 CS 1 1556 / 12 168 3 104 B EOJ 4 1557 B X29 12 169 3 110 L3 W 1 1561 2 13 170 3 120 L3A MLCWA GM,81 7 1562 L Y15 081 13 171 3 130 B IORW 4 1569 B 343 13 172 3 140 RT 2,001 8 1573 M %U2 001 R 13 173 3 150 DCW L4 3 1583 V96 13 174 3 160 C 013,@END OF SOURCE@ 7 1584 C 013 Y81 13 175 3 170 BU L5 5 1591 B W05 / 13 176 3 180 L4 CS 332 4 1596 / 332 14 177 3 190 CS 1 1600 / 14 178 3 200 B EOJ 4 1601 B X29 14 179 3 210 L5 A &1,INT2 7 1605 A Y82 Y21 14 180 3 220 NC2 MLCWA GM,81 7 1612 L Y15 081 14 181 3 230 B IORW 4 1619 B 343 14 182 3 240 WT 5,1 8 1623 M %U5 001 W 14 183 3 250 DCW *&1 3 1633 W34 15 184 4 010 NC3 B NEWCRD 4 1634 B U98 15 185 4 020 NC4 NOP NC5 4 1638 N W65 15 186 4 030 C 16,VPROC 7 1642 C 016 Y30 15 187 4 040 BU NEWCRD 5 1649 B U98 / 15 188 4 050 MLC @B@,NC4 7 1654 M Y33 W38 15 189 4 060 B NEWCRD 4 1661 B U98 15 190 4 070 NC5 MLCWA GM,81 7 1665 L Y15 081 16 191 4 080 B IORW 4 1672 B 343 16 192 4 090 WT 3,1 8 1676 M %U3 001 W 16 193 4 100 DCW *&1 3 1686 W87 16 194 4 110 B NEWCRD 4 1687 B U98 16 195 4 120 INIT3 RWD 3 5 1691 U %U3 R 16 196 4 130 MLC @N@,NC3 7 1696 M Y83 W34 16 197 4 140 MLC @N@,EOJ 7 1703 M Y83 X29 17 1 1401 COBOL - A01 PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 4 150 B NP1 4 1710 B U65 17 199 4 160 INIT1 MLC @N@,NC1 7 1714 M Y83 U94 17 200 4 170 INIT1A NOP L3A 4 1721 N V62 17 201 4 171 B L5 4 1725 B W05 17 202 4 180 EOJ B EOJ1 4 1729 B X43 17 203 4 190 WTM 3 5 1733 U %U3 M 17 204 4 200 RWD 3 5 1738 U %U3 R 18 205 4 210 EOJ1 WTM 5 5 1743 U %U5 M 18 206 4 220 RWD 5 5 1748 U %U5 R 18 207 4 230 W 1 1753 2 18 208 4 240 CW 73 4 1754 ) 073 18 209 5 010 L10 CCB SUPER,1 5 1758 F 351 1 18 210 5 020 DCW @A02@ 3 1765 18 211 5 100 HEADER DCW @COBOL COMPILATION@ 17 1782 19 212 5 110 IDENT DCW @IDENTIFICATION@ 14 1796 19 213 5 120 CDIMAG DCW @CARD-IMAGE@ 10 1806 20 214 5 130 SEQ DCW @SEQUENCE@ 8 1814 20 215 5 140 GM DC @}@ 1 1815 20 216 5 150 INT2 DCW @000000@ 6 1821 20 217 5 160 VPROC DCW @PROCEDURE@ 9 1830 20 218 5 170 LTORG 1831 DCW @%)@ 2 1832 LIT 20 @B@ 1 1833 LIT 20 135 @PROGRAM NOT ON TAPE 2@ 21 1854 LIT 21 @*@ 1 1855 LIT 21 164 @END OF SOURCE@ 13 1868 LIT 21 174 @END OF SOURCE@ 13 1881 LIT 22 &1 1 1882 LIT 22 @N@ 1 1883 LIT 22 219 5 180 ORG 3798 3798 220 5 190 DCW @}@ 1 3798 23 221 5 200 END START / T00 080 24 1CLEAR STORAGE 1 ,008015,019026,030,034041,045,053,0570571026 1 CLEAR STORAGE 2 L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 1401 COBOL - A02 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 1 010 000 JOB 1401 COBOL - A02 102 1 020 CTL 631 11 103 1 030 ORG 1300 1300 104 1 040 X2 EQU 94 0094 105 1 050 X3 EQU 99 0099 106 1 060 IORW EQU 343 0343 107 1 070 SUPER EQU 351 0351 108 1 080 PUTX EQU 363 0363 109 1 090 DCW #1 1 1300 4 110 1 100 INT1 DCW @000@ 3 1303 4 111 1 110 INT2 DC @000@ 3 1306 4 112 1 120 C 151,0&X1 7 1307 C 151 0 0 4 113 1 130 BE 959 5 1314 B 959 S 4 114 1 140 MLC 2&X1,153 7 1319 M 0 2 153 4 115 1 150 BCE 959,152,M 8 1326 B 959 152 M 4 116 1 160 BCE 959,151,T 8 1334 B 959 151 T 5 117 1 170 BSS 150,B 5 1342 B 150 B 5 118 1 180 BSS 159,D 5 1347 B 159 D 5 119 1 190 B 959 4 1352 B 959 5 120 1 200 NOP 1 1356 N 5 121 1 210 DC @A01@ 3 1359 5 122 1 220 H 1 1360 . 5 123 1 230 B 141 4 1361 B 141 5 124 1 240 MLC 172,1112 7 1365 M 172 /12 6 125 1 250 B 966 4 1372 B 966 6 126 2 010 PATCH DCW @T/P@ 3 1378 6 127 2 020 START MLC GM,81 7 1379 M L40 081 6 128 2 030 MLC @101@,358 TEMPORARY PATCH 7 1386 M L11 358 6 129 2 040 MLCWA PATCH,172 7 1393 L T78 172 6 130 2 050 MLCWA 1 1400 L 6 131 2 060 MLCWA ***** 1 1401 L 7 132 2 070 MLCWA ***** 1 1402 L 7 133 2 080 MLCWA ***** 1 1403 L 7 134 2 090 MLCWA ***** 1 1404 L 7 135 2 100 MLCWA TEMPORARY PATCH 1 1405 L 7 136 2 110 MLCWA TEMPORARY PATCH 1 1406 L 7 137 2 120 MLCWA TEMPORARY PATCH 1 1407 L 7 138 2 130 MLCWA 1 1408 L 8 139 2 140 MLCWA TEMPORARY PATCH 1 1409 L 8 140 2 150 MLCWA TEMPORARY PATCH 1 1410 L 8 141 2 160 MLCWA TEMPORARY PATCH 1 1411 L 8 142 2 170 MLCWA TEMPORARY PATCH 1 1412 L 8 143 2 180 B GETCRD 4 1413 B !74 8 144 2 190 C 21,HID 7 1417 C 021 X00 8 145 2 200 BE STRT1 5 1424 B U40 S 9 146 2 210 B ERROR 4 1429 B K47 9 147 2 220 DCW NOID 3 1435 X25 9 1 1401 COBOL - A02 PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 2 230 B STRT1A 4 1436 B U44 9 149 2 240 STRT1 B GETCRD 4 1440 B !74 9 150 2 250 STRT1A C 17,HPGID 7 1444 C 017 X10 9 151 3 010 BE STRT2 5 1451 B U67 S 9 152 3 020 B ERROR 4 1456 B K47 10 153 3 030 DCW NOPGM 3 1462 X26 10 154 3 040 B STRT6A 4 1463 B W21 10 155 3 050 STRT2 B PUTX 4 1467 B 363 10 156 3 060 DCW VPGM 3 1473 X13 10 157 3 070 MLC @018@,CRDPTR 7 1474 M L14 099 10 158 3 080 MLC @000@,WRDPTR 7 1481 M L17 094 10 159 3 090 STRT3 B GETCH 4 1488 B Z01 11 160 3 100 BCE STRT3,CH,. 8 1492 B U88 0?0 . 11 161 3 110 BCE STRT3,CH, 8 1500 B U88 0?0 11 162 3 120 BCE STRT5A,CH,@ 8 1508 B V82 0?0 @ 11 163 3 130 STRT3A C CH,@A@ 7 1516 C 0?0 L18 11 164 3 140 BH STRT4 5 1523 B V59 U 12 165 3 150 STRT3B B PUTCH 4 1528 B Y69 12 166 3 160 A &1,WRDPTR 7 1532 A L19 094 12 167 3 170 C WRDPTR,@120@ 7 1539 C 094 L22 12 168 3 180 BE STRT4 5 1546 B V59 S 12 169 3 190 B GETCH 4 1551 B Z01 12 170 3 200 B STRT3A 4 1555 B V16 12 171 3 210 STRT4 BCE STRT3B,CH,- 8 1559 B V28 0?0 - 13 172 3 220 B PUTX 4 1567 B 363 13 173 3 230 DCW VPGM 3 1573 X13 13 174 3 240 B STRT6 4 1574 B W17 13 175 3 250 STRT5 B PUTCH 4 1578 B Y69 13 176 4 010 STRT5A B GETCH 4 1582 B Z01 13 177 4 020 BCE STRT4,CH,@ 8 1586 B V59 0?0 @ 13 178 4 030 A &1,WRDPTR 7 1594 A L19 094 14 179 4 040 C WRDPTR,@120@ 7 1601 C 094 L22 14 180 4 050 BL STRT4 5 1608 B V59 T 14 181 4 060 B STRT5 4 1613 B V78 14 182 4 070 STRT6 B GETCRD 4 1617 B !74 14 183 4 080 STRT6A C 18,HENV 7 1621 C 018 X24 14 184 4 090 BU STRT6 5 1628 B W17 / 14 185 4 100 C SEQ,NINZRO 7 1633 C X33 L05 15 186 4 110 BE STRT6B 5 1640 B W73 S 15 187 4 120 B PUTX 4 1645 B 363 15 188 4 130 DCW &@.DG@ 3 1651 L25 15 189 4 140 B PUTX 4 1652 B 363 15 190 4 150 DCW SY1 3 1658 X27 15 191 4 160 B PUTX 4 1659 B 363 15 192 4 170 DCW SY2 3 1665 X30 16 193 4 180 B PUTX 4 1666 B 363 16 194 4 190 DCW SEQ 3 1672 X33 16 195 4 200 STRT6B B SUPER 4 1673 B 351 16 196 4 210 DCW @A0B@ 3 1679 16 197 4 220 EOJ B SUPER 4 1680 B 351 16 1 1401 COBOL - A02 PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 4 230 DCW @BD6@ 3 1686 16 199 4 240 HID DCW @IDENTIFICATION@ 14 1700 17 200 4 250 HPGID DCW @PROGRAM-ID@ 10 1710 17 201 5 010 VPGM DCW @.JB@ 3 1713 17 202 5 020 HENV DCW @ENVIRONMENT@ 11 1724 17 203 5 030 NOID DCW @0@ 1 1725 17 204 5 040 NOPGM DC @0@ 1 1726 18 205 5 050 SY1 DC @0@ 1 1727 18 206 5 060 SY2 DC @000@ 3 1730 18 207 5 070 DC @0@ 1 1731 18 208 5 080 ANERR1 DC @0@ 1 1732 18 209 5 090 SEQ DC @0@ 1 1733 18 210 5 100 PTNOSW DCW @0@ 1 1734 18 211 5 110 VAT DCW @ @@ 3 1737 18 212 5 120 VPRD DCW @.PD@ 3 1740 18 213 5 130 BLANK6 DCW #6 6 1746 18 214 5 140 WORDAR EQU * 1746 215 5 150 DCW #50 50 1796 20 216 5 160 DC #50 50 1846 22 217 5 170 DC #22 22 1868 22 218 5 180 WORD EQU WORDAR&X2 1746 X 219 5 190 WRDPTR EQU X2 0094 220 5 200 PUTCH SBR PCHEX&3 4 1869 H Y97 22 221 5 210 MLNS CH,CHX 7 1873 D 0?0 Z00 23 222 5 220 MLZS CH,CHX 7 1880 Y 0?0 Z00 23 223 5 230 B PUTX 4 1887 B 363 23 224 5 240 DCW CHX 3 1893 Z00 23 225 5 250 PCHEX B * 4 1894 B Y97 23 226 6 010 CHX DCW #3 3 1900 23 227 6 020 GETCH SBR GTCHEX&3 4 1901 H Z55 23 228 6 030 C CRDPTR,CRDMAX 7 1905 C 099 K17 24 229 6 040 BE GTCH4 5 1912 B Z56 S 24 230 6 050 GTCH2 A &1,CRDPTR 7 1917 A L19 099 24 231 6 060 C CRDPTR,CRDMAX 7 1924 C 099 K17 24 232 6 070 BE GTCH4 5 1931 B Z56 S 24 233 6 080 BCE GTCHEX,ANMODE,1 8 1936 B Z52 !73 1 24 234 6 090 BCE GTCH6,CH, 8 1944 B Z76 0?0 25 235 6 100 GTCHEX B * 4 1952 B Z55 25 236 6 110 GTCH4 BCE GTCH8,ANMODE,1 8 1956 B !50 !73 1 25 237 6 120 GTCH5 B GETCRD 4 1964 B !74 25 238 6 130 BCE GTCH7,CH,- 8 1968 B Z98 0?0 - 25 239 6 140 GTCH6 B GTNBLK 4 1976 B K24 25 240 6 150 S &1,CRDPTR 7 1980 S L19 099 26 241 6 160 MLZS @ @,CRDPTR 7 1987 Y L26 099 26 242 6 170 B GTCHEX 4 1994 B Z52 26 243 6 180 GTCH7 B GTNBLK 4 1998 B K24 26 244 6 190 BCE GTCHEX,ANMODE,0 8 2002 B Z52 !73 0 26 245 6 200 BCE GTCH2,CH,@ 8 2010 B Z17 0?0 @ 26 246 6 210 B ERROR 4 2018 B K47 27 247 6 220 DCW ANERR1 3 2024 X32 27 1 1401 COBOL - A02 PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 6 230 B PUTX 4 2025 B 363 27 249 6 240 DCW VAT 3 2031 X37 27 250 6 250 B PUTX 4 2032 B 363 27 251 7 010 DCW VPRD 3 2038 X40 27 252 7 020 MLC @0@,ANMODE 7 2039 M L27 !73 27 253 7 030 B GTCH6 4 2046 B Z76 28 254 7 040 GTCH8 C CRDPTR,@073@ 7 2050 C 099 L30 28 255 7 050 BE GTCH5 5 2057 B Z64 S 28 256 7 060 MLC @073@,CRDMAX 7 2062 M L30 K17 28 257 7 070 B GTCHEX 4 2069 B Z52 28 258 7 080 ANMODE DCW @0@ 1 2073 28 259 7 090 GETCRD SBR GTCDEX&3 4 2074 H K14 28 260 7 100 GTCD1 SW 81 4 2078 , 081 29 261 7 110 B IORW 4 2082 B 343 29 262 7 120 RT 5,COL1 8 2086 M %U5 001 R 29 263 7 130 DCW EOJ 3 2096 W80 29 264 7 140 C COL6,LASTNO 7 2097 C 006 K23 29 265 7 150 BL CARD1 5 2104 B J28 T 29 266 7 160 C LASTNO,BLANK6 7 2109 C K23 X46 29 267 7 170 BE CARD1 5 2116 B J28 S 30 268 7 180 CARD2 B CARD1 4 2121 B J28 30 269 7 190 DCW SEQ 3 2127 X33 30 270 7 200 CARD1 A &1,INT2 7 2128 A L19 T06 30 271 7 210 MLC @B@,PTNOSW 7 2135 M L31 X34 30 272 7 220 MLC @073@,CRDPTR 7 2142 M L30 099 30 273 7 230 MLC COL6,LASTNO 7 2149 M 006 K23 31 274 7 240 GTCD2 S &1,CRDPTR 7 2156 S L19 099 31 275 7 250 MLZS @ @,CRDPTR 7 2163 Y L26 099 31 276 8 010 C CRDPTR,@008@ 7 2170 C 099 L34 31 277 8 020 BH GTCD1 5 2177 B !78 U 31 278 8 030 BCE GTCD2,CH, 8 2182 B J56 0?0 32 279 8 040 A &1,CRDPTR 7 2190 A L19 099 32 280 8 050 MLC CRDPTR,CRDMAX 7 2197 M 099 K17 32 281 8 060 MLC @007@,CRDPTR 7 2204 M L37 099 32 282 8 070 GTCDEX B * 4 2211 B K14 32 283 8 080 COL1 EQU 1 0001 284 8 090 COL6 EQU 6 0006 285 8 100 CRDMAX DCW #3 3 2217 32 286 8 110 CRDPTR EQU X3 0099 287 8 120 CH EQU 0&X3 0000 288 8 130 LASTNO DCW #6 6 2223 33 289 8 140 GTNBLK SBR GTNBEX&3 4 2224 H K46 33 290 8 150 GTNB1 A &1,CRDPTR 7 2228 A L19 099 33 291 8 160 BCE GTNB1,CH, 8 2235 B K28 0?0 33 292 8 170 GTNBEX B * 4 2243 B K46 33 293 8 180 ERROR SBR ERRBKT 4 2247 H L08 33 294 8 190 A &2,ERRBKT 7 2251 A L38 L08 34 295 8 200 MLC ERRBKT,*&4 7 2258 M L08 K68 34 296 8 210 MLC *,*&7 7 2265 M K71 K78 34 297 8 220 MLC @1@,* 7 2272 M L39 K78 34 1 1401 COBOL - A02 PAGE 5 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 298 8 230 A &1,ERRBKT 7 2279 A L19 L08 34 299 8 240 MLC ERRBKT,ERREX&3 7 2286 M L08 K96 35 300 8 250 ERREX B * 4 2293 B K96 35 301 9 010 NINZRO DCW @000000000@ 9 2305 35 302 9 020 ERRBKT DCW #3 3 2308 35 303 9 030 LTORG 2309 DCW @101@ 3 2311 LIT 35 @018@ 3 2314 LIT 35 @000@ 3 2317 LIT 35 @A@ 1 2318 LIT 36 &1 1 2319 LIT 36 @120@ 3 2322 LIT 36 @.DG@ 3 2325 LIT 36 @ @ 1 2326 LIT 36 @0@ 1 2327 LIT 36 @073@ 3 2330 LIT 36 @B@ 1 2331 LIT 37 @008@ 3 2334 LIT 37 @007@ 3 2337 LIT 37 &2 1 2338 LIT 37 @1@ 1 2339 LIT 37 304 9 040 GM DCW @}@ 1 2340 37 305 9 050 END START / T79 080 38 1CLEAR STORAGE 1 ,008015,019026,030,034041,045,053,0570571026 1 CLEAR STORAGE 2 L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 1401 COBOL - A0B PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 1 010 000 JOB 1401 COBOL - A0B 102 1 020 CTL 631 11 103 1 030 HEADER EQU 1135 1135 104 1 040 IORW EQU 343 0343 105 1 050 BGNSUP EQU 973 0973 106 1 060 EOSUP EQU 1300 1300 107 1 070 ORG 3613 3613 108 1 080 START MLC GM,EOSUP 7 3613 M G95 T00 4 109 1 090 SW EOSUP 4 3620 , T00 4 110 1 100 CW HEADER&15 4 3624 ) /50 4 111 1 110 B IORW 4 3628 B 343 4 112 1 120 WTW 4,BGNSUP 8 3632 L %U4 973 W 4 113 1 130 DCW *&1 3 3642 F43 4 114 1 140 RWD 4 5 3643 U %U4 R 4 115 1 150 CW EOSUP 4 3648 ) T00 5 116 1 160 MLCWA 1306,978 7 3652 L T06 978 5 117 1 170 B IORW 4 3659 B 343 5 118 1 180 RT 1,BGNSUP&6 8 3663 M %U1 979 R 5 119 1 190 DCW *&1 3 3673 F74 5 120 1 200 SW BGNSUP&100 4 3674 , 73 5 121 1 210 L CS 3459 4 3678 / D59 5 122 1 220 SBR L&3 4 3682 H F81 6 123 1 230 BWZ L,BGNSUP&100,1 8 3686 V F78 73 1 6 124 1 240 CW 999 4 3694 ) 999 6 125 1 250 B 3775 4 3698 B G75 6 126 2 010 LTORG TEMPORARY PATCH 3702 127 2 020 ORG 3775 3775 128 2 030 B IORW 4 3775 B 343 7 129 2 040 RTW 1,BGNSUP&6 8 3779 L %U1 979 R 7 130 2 050 DCW *&1 3 3789 G90 7 131 2 060 B BGNSUP&6 4 3790 B 979 7 132 2 070 DCW #1 1 3794 7 133 2 080 GM DCW @}@ 1 3795 7 134 2 090 END START / F13 080 8 1CLEAR STORAGE 1 ,008015,019026,030,034041,045,053,0570571026 1 CLEAR STORAGE 2 L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 1401 COBOL - A03 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 1 010 000 JOB 1401 COBOL - A03 102 1 020 CTL 631 11 103 1 030 BGNSUP EQU 973 0973 104 1 040 ORG 979 0979 105 1 050 X2 EQU 94 0094 106 1 060 X3 EQU 99 0099 107 1 070 IORW EQU 343 0343 108 1 080 SUPER EQU 351 0351 109 1 090 PUTX EQU 363 0363 110 1 100 START MLC GM,81 7 0979 M E39 081 4 111 1 110 BSP 5 5 0986 U %U5 B 4 112 1 120 S &1,INT2 7 0991 S F54 978 4 113 1 130 MLZS @ @,INT2 7 0998 Y F55 978 4 114 1 140 B GETCRD 4 1005 B ?37 4 115 1 150 ENVD B GETWRD 4 1009 B X43 4 116 1 160 C WRDPTR,@006@ 7 1013 C 094 F58 5 117 1 170 BU ENVD 5 1020 B 09 / 5 118 1 180 C WORD,HDATA 7 1025 C VP4 X15 5 119 1 190 BU ENVD 5 1032 B 09 / 5 120 1 200 DATAD B GETWRD 4 1037 B X43 5 121 1 210 C WRDPTR,@009@ 7 1041 C 094 F61 5 122 1 220 BU DATAD 5 1048 B 37 / 6 123 1 230 C WORD,HPROC 7 1053 C VP4 X09 6 124 1 240 BE PROCD 5 1060 B /16 S 6 125 1 250 C WORD,HPICT 7 1065 C VP4 X24 6 126 2 010 BU DATAD 5 1072 B 37 / 6 127 2 020 MLC @B@,PICTSW 7 1077 M F62 X78 6 128 2 030 DAT2 B GETCH 4 1084 B Q45 7 129 2 040 BCE DAT2,CH, 8 1088 B 84 0?0 7 130 2 050 BCE DAT2,CH,I 8 1096 B 84 0?0 I 7 131 2 060 BCE DAT2,CH,S 8 1104 B 84 0?0 S 7 132 2 070 B DATAD 4 1112 B 37 7 133 2 080 PROCD MLC @0@,EOJPDS 7 1116 M F63 E50 7 134 2 090 B GETWRD 4 1123 B X43 8 135 2 100 C WRDPTR,@006@ 7 1127 C 094 F58 8 136 2 110 BU PROCD 5 1134 B /16 / 8 137 2 120 C WORD,HNOTE 7 1139 C VP4 V71 8 138 2 130 BE NOTE 5 1146 B U42 S 8 139 2 140 C WORD,HENTER 7 1151 C VP4 X30 8 140 2 150 BU PROCD 5 1158 B /16 / 9 141 2 160 B GETWRD 4 1163 B X43 9 142 2 170 C WORD,HAUTOC 7 1167 C VP4 X39 9 143 2 180 BE AUTOC 5 1174 B /86 S 9 144 2 190 B ERROR 4 1179 B B30 9 145 2 200 DCW ENTER1 3 1185 E42 9 146 2 210 AUTOC B PUTX 4 1186 B 363 9 147 2 220 DCW VAC 3 1192 X42 10 1 1401 COBOL - A03 PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 2 230 MLC @1@,ACSW 7 1193 M F64 W97 10 149 2 240 B AUTO1A 4 1200 B S14 10 150 2 250 MACSP DCW @.MC@ 3 1206 10 151 3 010 AUTO1 B PUTX 4 1207 B 363 10 152 3 020 DCW MACSP 3 1213 S06 10 153 3 030 AUTO1A B IORW 4 1214 B 343 10 154 3 040 RT 5,COL1 8 1218 M %U5 001 R 11 155 3 050 DCW EOJ 3 1228 E51 11 156 3 060 A &1,INT2 7 1229 A F54 978 11 157 3 070 MLC @007@,X3 7 1236 M F67 099 11 158 3 080 B GTNBLK 4 1243 B A87 11 159 3 090 C 4&X3,HENTER-1 7 1247 C 0?4 X29 11 160 3 100 BE AUTO2 5 1254 B T49 S 12 161 3 110 AUTO3 A &1,X3 7 1259 A F54 099 12 162 3 120 C X3,@073@ 7 1266 C 099 F70 12 163 3 130 BE HWTORF 5 1273 B U08 S 12 164 3 140 BCE AUTO4,0&X3,E 8 1278 B S90 0?0 E 12 165 3 150 B AUTO3 4 1286 B S59 12 166 3 160 AUTO4 C 4&X3,HENTER-1 7 1290 C 0?4 X29 13 167 3 170 BU AUTO3 5 1297 B S59 / 13 168 3 180 BCE *&5,15999&X3, 8 1302 B T14 III 13 169 3 190 B AUTO3 4 1310 B S59 13 170 3 200 MLNS 0&X3,0&X3 7 1314 D 0?0 0?0 13 171 3 210 SBR X3 4 1321 H 099 13 172 3 220 C 0&X3,@?@ 7 1325 C 0?0 F71 14 173 3 230 BL AUTO3 5 1332 B S59 T 14 174 3 240 C 6&X3,@?@ 7 1337 C 0?6 F71 14 175 3 250 BL AUTO3 5 1344 B S59 T 14 176 4 010 AUTO2 B PUTX 4 1349 B 363 14 177 4 020 DCW VAC 3 1355 X42 14 178 4 030 MLC @0@,ACSW 7 1356 M F63 W97 14 179 4 040 BSP 5 5 1363 U %U5 B 15 180 4 050 S &1,INT2 7 1368 S F54 978 15 181 4 060 MLZS @ @,INT2 7 1375 Y F55 978 15 182 4 070 MLC CRDMAX,CRDPTR 7 1382 M A80 099 15 183 4 080 MLC @N@,GTWDSK 7 1389 M F72 X47 15 184 4 090 B GETWRD 4 1396 B X43 15 185 4 100 B GETWRD 4 1400 B X43 16 186 4 110 B PROCD 4 1404 B /16 16 187 4 120 HWTORF MLC @005@,CRDPTR 7 1408 M F75 099 16 188 4 130 HW1 A &1,CRDPTR 7 1415 A F54 099 16 189 4 140 C CRDPTR,@073@ 7 1422 C 099 F70 16 190 4 150 BE AUTO1 5 1429 B S07 S 16 191 4 160 B PUTCH 4 1434 B Q13 16 192 4 170 B HW1 4 1438 B U15 17 193 4 180 NOTE MLC @1@,EOJPDS 7 1442 M F64 E50 17 194 4 190 BCE NOTE3,SECT,1 8 1449 B V09 K98 1 17 195 4 200 NOTE1 B GETCH 4 1457 B Q45 17 196 4 210 BCE NOTE2,CH,. 8 1461 B U84 0?0 . 17 197 4 220 B PUTCH 4 1469 B Q13 17 1 1401 COBOL - A03 PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 4 230 B NOTE1 4 1473 B U57 17 199 4 240 NOTE6 MLC &EOJ1,NOTE3-1 7 1477 M F78 V08 18 200 4 250 NOTE2 B PUTX 4 1484 B 363 18 201 5 010 DCW VNOTE 3 1490 V74 18 202 5 020 MLC &PUTX,EOJ3&3 7 1491 M F81 E97 18 203 5 030 MLC @N@,GTWDSK 7 1498 M F72 X47 18 204 5 040 B PROCD 4 1505 B /16 18 205 5 050 NOTE3 MLC @0@,SECT 7 1509 M F63 K98 18 206 5 060 MLC &NOTE6,EOJ3&3 7 1516 M F84 E97 19 207 5 070 NOTE4 B GETCH 4 1523 B Q45 19 208 5 080 C CRDPTR,@008@ 7 1527 C 099 F87 19 209 5 090 BE NOTE5 5 1534 B V47 S 19 210 5 100 B PUTCH 4 1539 B Q13 19 211 5 110 B NOTE4 4 1543 B V23 19 212 5 120 NOTE5 BCE NOTE4,CH, 8 1547 B V23 0?0 19 213 5 130 MLC @007@,CRDPTR 7 1555 M F67 099 20 214 5 140 B NOTE2 4 1562 B U84 20 215 5 150 HNOTE DCW @NOTE @ 6 1571 20 216 5 160 VNOTE DCW @*24@ 3 1574 20 217 5 170 WORDAR EQU * 1574 218 5 180 DCW #50 50 1624 22 219 5 190 DC #50 50 1674 24 220 5 200 DC #22 22 1696 24 221 5 210 WORD EQU WORDAR&X2 1574 X 222 5 220 WRDPTR EQU X2 0094 223 5 230 ACSW DCW @0@ 1 1697 24 224 5 240 VEOP DCW @.EP@ 3 1700 24 225 5 250 HPROC DCW @PROCEDURE@ 9 1709 25 226 6 010 HDATA DCW @DATA @ 6 1715 25 227 6 020 HPICT DCW @PICTURE @ 9 1724 25 228 6 030 HENTER DCW @ENTER @ 6 1730 25 229 6 040 HAUTOC DCW @AUTOCODER@ 9 1739 25 230 6 050 VAC DCW @#DC@ 3 1742 26 231 6 060 GETWRD SBR GTWDEX&3 4 1743 H K56 26 232 6 070 GTWDSK NOP GTW1A 4 1747 N K57 26 233 6 080 B GETCH 4 1751 B Q45 26 234 6 090 GTW1 MLC @001@,WRDPTR 7 1755 M F90 094 26 235 6 100 PTNOSW NOP PTCDNO 4 1762 N P20 26 236 6 110 C CRDPTR,@008@ 7 1766 C 099 F87 26 237 6 120 BE PTC8 5 1773 B M93 S 27 238 6 130 PICTSW NOP PICTUR 4 1778 N N37 27 239 6 140 C CH,@A@ 7 1782 C 0?0 F91 27 240 6 150 BH GTW2 5 1789 B Y10 U 27 241 6 160 C CH,@Z@ 7 1794 C 0?0 F92 27 242 6 170 BL POSNUM 5 1801 B K99 T 27 243 6 180 B WORDR 4 1806 B J35 27 244 6 190 GTW2 BCE GTWDSK,CH, 8 1810 B X47 0?0 28 245 6 200 BCE GTWDAN,CH,@ 8 1818 B !31 0?0 @ 28 246 6 210 BCE LDPLMN,CH,& 8 1826 B O51 0?0 & 28 247 6 220 BCE LDPLMN,CH,- 8 1834 B O51 0?0 - 28 1 1401 COBOL - A03 PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 6 230 BCE OPER,CH,# 8 1842 B !23 0?0 # 29 249 6 240 BCE PRD,CH,. 8 1850 B Z09 0?0 . 29 250 6 250 BCE OPER,CH,% 8 1858 B !23 0?0 % 29 251 7 010 BCE OPER,CH,) 8 1866 B !23 0?0 ) 29 252 7 020 BCE OPER,CH,/ 8 1874 B !23 0?0 / 30 253 7 030 BCE ASTSK,CH,* 8 1882 B Z83 0?0 * 30 254 7 040 BCE GTWDSK,CH,, 8 1890 B X47 0?0 , 30 255 7 050 B ERROR 4 1898 B B30 30 256 7 060 DCW INVLD 3 1904 E43 30 257 7 070 B GTWDSK 4 1905 B X47 30 258 7 080 PRD MLC @1@,PDSW 7 1909 M F64 E49 31 259 7 090 B GETCH 4 1916 B Q45 31 260 7 100 MLC @0@,PDSW 7 1920 M F63 E49 31 261 7 110 C CH,@Z@ 7 1927 C 0?0 F92 31 262 7 120 BL PRD1 5 1934 B Z50 T 31 263 7 130 B PUTX 4 1939 B 363 31 264 7 140 DCW VPRD 3 1945 O50 31 265 7 150 B GTW1 4 1946 B X55 32 266 7 160 PRD1 MLNS CH,CH 7 1950 D 0?0 0?0 32 267 7 170 SBR CRDPTR 4 1957 H 099 32 268 7 180 MLC @.@,WORD 7 1961 M F93 VP4 32 269 7 190 B PSNM2 4 1968 B M11 32 270 7 200 PRD2 B PUTX 4 1972 B 363 32 271 7 210 DCW VPRD 3 1978 O50 32 272 7 220 B EOJ0 4 1979 B E67 33 273 7 230 ASTSK B GETCH 4 1983 B Q45 33 274 7 240 BCE AST1,CH,* 8 1987 B !06 0?0 * 33 275 7 250 B PUTX 4 1995 B 363 33 276 8 010 DCW VASTK 3 2001 !19 33 277 8 020 B GTW1 4 2002 B X55 33 278 8 030 AST1 B PUTX 4 2006 B 363 33 279 8 040 DCW VEXP 3 2012 !22 34 280 8 050 B GTWDSK 4 2013 B X47 34 281 8 060 VASTK DCW @ *@ 3 2019 34 282 8 070 VEXP DCW @ **@ 3 2022 34 283 8 080 OPER B PUTCH 4 2023 B Q13 34 284 8 090 B GTWDSK 4 2027 B X47 34 285 8 100 GTWDAN MLC @1@,ANMODE 7 2031 M F64 ?36 34 286 8 110 B PUTX 4 2038 B 363 35 287 8 120 DCW VAT 3 2044 J34 35 288 8 130 AN1 B GETCH 4 2045 B Q45 35 289 8 140 BCE AN4,CH,@ 8 2049 B J21 0?0 @ 35 290 8 150 C WRDPTR,@120@ 7 2057 C 094 F96 35 291 8 160 BL AN2 5 2064 B !84 T 35 292 8 170 B PUTCH 4 2069 B Q13 35 293 8 180 A &1,WRDPTR 7 2073 A F54 094 36 294 8 190 B AN1 4 2080 B !45 36 295 8 200 AN2 B ERROR 4 2084 B B30 36 296 8 210 DCW ANSIZE 3 2090 E44 36 297 8 220 B PUTX 4 2091 B 363 36 1 1401 COBOL - A03 PAGE 5 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 298 8 230 DCW VAT 3 2097 J34 36 299 8 240 AN3 B GETCRD 4 2098 B ?37 36 300 8 250 BCE AN3,008, 8 2102 B !98 008 37 301 9 010 AN5 MLC @0@,ANMODE 7 2110 M F63 ?36 37 302 9 020 B GTWDSK 4 2117 B X47 37 303 9 030 AN4 B PUTX 4 2121 B 363 37 304 9 040 DCW VAT 3 2127 J34 37 305 9 050 B AN5 4 2128 B J10 37 306 9 060 VAT DCW @ @@ 3 2134 37 307 9 070 WORDR C WRDPTR,@120@ 7 2135 C 094 F96 38 308 9 080 BL W2 5 2142 B J88 T 38 309 9 090 MLNS CH,WORD 7 2147 D 0?0 VP4 38 310 9 100 MLZS CH,WORD 7 2154 Y 0?0 VP4 38 311 9 110 B GETCH 4 2161 B Q45 38 312 9 120 C CH,@A@ 7 2165 C 0?0 F91 38 313 9 130 BH W4 5 2172 B K26 U 39 314 9 140 W1 A &1,WRDPTR 7 2177 A F54 094 39 315 9 150 B WORDR 4 2184 B J35 39 316 9 160 W2 B ERROR 4 2188 B B30 39 317 9 170 DCW WRD 3 2194 E45 39 318 9 180 MLC @120@,WRDPTR 7 2195 M F96 094 39 319 9 190 W3 B GETCH 4 2202 B Q45 39 320 9 200 C CH,@?@ 7 2206 C 0?0 F71 40 321 9 210 BL W3 5 2213 B K02 T 40 322 9 220 B PTNAM 4 2218 B C59 40 323 9 230 B GTW1 4 2222 B X55 40 324 9 240 W4 BCE W1,CH,- 8 2226 B J77 0?0 - 40 325 9 250 MLC @B@,GTWDSK 7 2234 M F62 X47 40 326 10 010 B PTNAM 4 2241 B C59 40 327 10 020 PNTSW1 NOP NTEST2 4 2245 N K68 41 328 10 030 PSNTSW NOP NTEST1 4 2249 N N15 41 329 10 040 GTWDEX B * 4 2253 B K56 41 330 10 050 GTW1A MLC @N@,GTWDSK 7 2257 M F72 X47 41 331 10 060 B GTW1 4 2264 B X55 41 332 10 070 NTEST2 MLC @N@,PNTSW1 7 2268 M F72 K45 41 333 10 080 C WORD,HNOTE 7 2275 C VP4 V71 41 334 10 090 BU GTWDEX 5 2282 B K53 / 42 335 10 100 MLC @1@,SECT 7 2287 M F64 K98 42 336 10 110 B GTWDEX 4 2294 B K53 42 337 10 120 SECT DCW @0@ 1 2298 42 338 10 130 POSNUM C WRDPTR,@120@ 7 2299 C 094 F96 42 339 10 140 BL PSNM1 5 2306 B L77 T 42 340 10 150 MLNS CH,WORD 7 2311 D 0?0 VP4 42 341 10 160 MLZS CH,WORD 7 2318 Y 0?0 VP4 43 342 10 170 B GETCH 4 2325 B Q45 43 343 10 180 C CH,@Z@ 7 2329 C 0?0 F92 43 344 10 190 BL PSNM2 5 2336 B M11 T 43 345 10 200 BCE PSNM3,CH,. 8 2341 B M22 0?0 . 43 346 10 210 BCE W1,CH,- 8 2349 B J77 0?0 - 43 347 10 220 C CH,@?@ 7 2357 C 0?0 F71 44 1 1401 COBOL - A03 PAGE 6 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 348 10 230 BL W1 5 2364 B J77 T 44 349 10 240 PSNM0 B PTNMLT 4 2369 B B92 44 350 10 250 B GTW1 4 2373 B X55 44 351 11 010 PSNM1 B ERROR 4 2377 B B30 44 352 11 020 DCW NUMSIZ 3 2383 E46 44 353 11 030 PSNM1A B GETCH 4 2384 B Q45 44 354 11 040 C CH,@?@ 7 2388 C 0?0 F71 45 355 11 050 BL PSNM1A 5 2395 B L84 T 45 356 11 060 MLC @120@,WRDPTR 7 2400 M F96 094 45 357 11 070 B PSNM0 4 2407 B L69 45 358 11 080 PSNM2 A &1,WRDPTR 7 2411 A F54 094 45 359 11 090 B POSNUM 4 2418 B K99 45 360 11 100 PSNM3 MLC @1@,NLSW 7 2422 M F64 N11 46 361 11 110 B GETCH 4 2429 B Q45 46 362 11 120 MLC @0@,NLSW 7 2433 M F63 N11 46 363 11 130 C CH,@Z@ 7 2440 C 0?0 F92 46 364 11 140 BL PSNM4 5 2447 B M75 T 46 365 11 150 PSNM3A B PTNMLT 4 2452 B B92 46 366 11 160 B PUTX 4 2456 B 363 46 367 11 170 DCW VPRD 3 2462 O50 47 368 11 180 BCE EOJ1,NLSW,1 8 2463 B E79 N11 1 47 369 11 190 B GTW1 4 2471 B X55 47 370 11 200 PSNM4 A &1,WRDPTR 7 2475 A F54 094 47 371 11 210 MLC @.@,WORD 7 2482 M F93 VP4 47 372 11 220 B PSNM2 4 2489 B M11 47 373 11 230 PTC8 B PUTX 4 2493 B 363 47 374 11 240 DCW VCOL8 3 2499 N14 48 375 11 250 MLC @B@,PSNTSW 7 2500 M F62 K49 48 376 12 010 B PICTSW 4 2507 B X78 48 377 12 020 NLSW DCW @0@ 1 2511 48 378 12 030 VCOL8 DCW @.C8@ 3 2514 48 379 12 040 NTEST1 SBR NTEX&3 4 2515 H N36 48 380 12 050 MLC @N@,PSNTSW 7 2519 M F72 K49 48 381 12 060 MLC @B@,PNTSW1 7 2526 M F62 K45 49 382 12 070 NTEX B * 4 2533 B N36 49 383 12 080 PICTUR B PUTX 4 2537 B 363 49 384 12 090 DCW VPC 3 2543 O47 49 385 12 100 PIC1 BCE PIC2,CH,. 8 2544 B N72 0?0 . 49 386 12 110 BCE PIC3,CH, 8 2552 B N98 0?0 49 387 12 120 B PUTCH 4 2560 B Q13 49 388 12 130 B GETCH 4 2564 B Q45 50 389 12 140 B PIC1 4 2568 B N44 50 390 12 150 PIC2 B GETCH 4 2572 B Q45 50 391 12 160 BCE PIC6,CH, 8 2576 B O34 0?0 50 392 12 170 B PUTX 4 2584 B 363 50 393 12 180 DCW VDEC 3 2590 N97 50 394 12 190 B PIC1 4 2591 B N44 50 395 12 200 VDEC DCW @ .@ 3 2597 51 396 12 210 PIC3 B PUTX 4 2598 B 363 51 397 12 220 DCW VPC 3 2604 O47 51 1 1401 COBOL - A03 PAGE 7 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 398 12 230 PIC4 B PIC5 4 2605 B O23 51 399 12 240 B PUTX 4 2609 B 363 51 400 12 250 DCW VPRD 3 2615 O50 51 401 13 010 MLC @B@,PIC4 7 2616 M F62 O05 51 402 13 020 PIC5 MLC @N@,PICTSW 7 2623 M F72 X78 52 403 13 030 B GTW1 4 2630 B X55 52 404 13 040 PIC6 MLC @N@,PIC4 7 2634 M F72 O05 52 405 13 050 B PIC3 4 2641 B N98 52 406 13 060 VPC DCW @.PC@ 3 2647 52 407 13 070 VPRD DCW @.PD@ 3 2650 52 408 13 080 LDPLMN MLC CH,SIGN 7 2651 M 0?0 P19 52 409 13 090 B GETCH 4 2658 B Q45 53 410 13 100 BCE LDP01,CH, 8 2662 B O90 0?0 53 411 13 110 C CH,@Z@ 7 2670 C 0?0 F92 53 412 13 120 BL POSNUM 5 2677 B K99 T 53 413 13 130 BCE POSNUM,CH,. 8 2682 B K99 0?0 . 53 414 13 140 LDP01 MLNS CH,CH 7 2690 D 0?0 0?0 53 415 13 150 SBR CRDPTR 4 2697 H 099 54 416 13 160 MLC SIGN,CH 7 2701 M P19 0?0 54 417 13 170 MLC @ @,SIGN 7 2708 M F55 P19 54 418 13 180 B OPER 4 2715 B !23 54 419 13 190 SIGN DCW #1 1 2719 54 420 13 200 PTCDNO SBR PTCDEX&3 4 2720 H Q06 54 421 13 210 C SEQ,NINZRO 7 2724 C E48 B88 54 422 13 220 BE PTCN1 5 2731 B P75 S 55 423 13 230 B PUTX 4 2736 B 363 55 424 13 240 DCW VDG 3 2742 Q09 55 425 13 250 B PUTX 4 2743 B 363 55 426 14 010 DCW ENTER1 3 2749 E42 55 427 14 020 B PUTX 4 2750 B 363 55 428 14 030 DCW WRD 3 2756 E45 55 429 14 040 B PUTX 4 2757 B 363 56 430 14 050 DCW SEQ 3 2763 E48 56 431 14 060 S SEQ 4 2764 S E48 56 432 14 070 MLZS @ @,SEQ 7 2768 Y F55 E48 56 433 14 080 PTCN1 B PUTX 4 2775 B 363 56 434 14 090 DCW VCD 3 2781 Q12 56 435 14 100 B PUTX 4 2782 B 363 56 436 14 110 DCW INT1 3 2788 975 57 437 14 120 B PUTX 4 2789 B 363 57 438 14 130 DCW INT2 3 2795 978 57 439 14 140 MLC @N@,PTNOSW 7 2796 M F72 X62 57 440 14 150 PTCDEX B * 4 2803 B Q06 57 441 14 160 VDG DCW @.DG@ 3 2809 57 442 14 170 VCD DCW @.CD@ 3 2812 57 443 14 180 PUTCH SBR PCHEX&3 4 2813 H Q41 58 444 14 190 MLNS CH,CHX 7 2817 D 0?0 Q44 58 445 14 200 MLZS CH,CHX 7 2824 Y 0?0 Q44 58 446 14 210 B PUTX 4 2831 B 363 58 447 14 220 DCW CHX 3 2837 Q44 58 1 1401 COBOL - A03 PAGE 8 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 448 14 230 PCHEX B * 4 2838 B Q41 58 449 14 240 CHX DCW #3 3 2844 58 450 14 250 GETCH SBR GTCHEX&3 4 2845 H Q99 59 451 15 010 C CRDPTR,CRDMAX 7 2849 C 099 A80 59 452 15 020 BE GTCH4 5 2856 B R00 S 59 453 15 030 GTCH2 A &1,CRDPTR 7 2861 A F54 099 59 454 15 040 C CRDPTR,CRDMAX 7 2868 C 099 A80 59 455 15 050 BE GTCH4 5 2875 B R00 S 59 456 15 060 BCE GTCHEX,ANMODE,1 8 2880 B Q96 ?36 1 60 457 15 070 BCE GTCH6,CH, 8 2888 B R20 0?0 60 458 15 080 GTCHEX B * 4 2896 B Q99 60 459 15 090 GTCH4 BCE GTCH8,ANMODE,1 8 2900 B ?13 ?36 1 60 460 15 100 GTCH5 B GETCRD 4 2908 B ?37 60 461 15 110 BCE GTCH7,CH,- 8 2912 B R42 0?0 - 61 462 15 120 GTCH6 B GTNBLK 4 2920 B A87 61 463 15 130 S &1,CRDPTR 7 2924 S F54 099 61 464 15 140 MLZS @ @,CRDPTR 7 2931 Y F55 099 61 465 15 150 B GTCHEX 4 2938 B Q96 61 466 15 160 GTCH7 B GTNBLK 4 2942 B A87 61 467 15 170 C CRDPTR,@008@ 7 2946 C 099 F87 62 468 15 180 BU GTCH9 5 2953 B R65 / 62 469 15 190 MLZS &1,SEQ 7 2958 Y F54 E48 62 470 15 200 GTCH9 BCE GTCHEX,ANMODE,0 8 2965 B Q96 ?36 0 62 471 15 210 BCE GTCH2,CH,@ 8 2973 B Q61 0?0 @ 62 472 15 220 B ERROR 4 2981 B B30 62 473 15 230 DCW ANERR1 3 2987 E47 63 474 15 240 B PUTX 4 2988 B 363 63 475 15 250 DCW VAT 3 2994 J34 63 476 16 010 B PUTX 4 2995 B 363 63 477 16 020 DCW VPRD 3 3001 O50 63 478 16 030 MLC @0@,ANMODE 7 3002 M F63 ?36 63 479 16 040 B GTCH6 4 3009 B R20 63 480 16 050 GTCH8 C CRDPTR,@073@ 7 3013 C 099 F70 64 481 16 060 BE GTCH5 5 3020 B R08 S 64 482 16 070 MLC @073@,CRDMAX 7 3025 M F70 A80 64 483 16 080 B GTCHEX 4 3032 B Q96 64 484 16 090 ANMODE DCW @0@ 1 3036 64 485 16 100 GETCRD SBR GTCDEX&3 4 3037 H A77 64 486 16 110 GTCD1 SW 81 4 3041 , 081 64 487 16 120 B IORW 4 3045 B 343 65 488 16 130 RT 5,COL1 8 3049 M %U5 001 R 65 489 16 140 DCW EOJ 3 3059 E51 65 490 16 150 C COL6,LASTNO 7 3060 C 006 A86 65 491 16 160 BL CARD1 5 3067 B ?91 T 65 492 16 170 C LASTNO,BLANK6 7 3072 C A86 E38 65 493 16 180 BE CARD1 5 3079 B ?91 S 65 494 16 190 CARD2 B ERROR 4 3084 B B30 66 495 16 200 DCW SEQ 3 3090 E48 66 496 16 210 CARD1 A &1,INT2 7 3091 A F54 978 66 497 16 220 MLC @B@,PTNOSW 7 3098 M F62 X62 66 1 1401 COBOL - A03 PAGE 9 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 498 16 230 MLC @073@,CRDPTR 7 3105 M F70 099 66 499 16 240 MLC COL6,LASTNO 7 3112 M 006 A86 66 500 16 250 GTCD2 S &1,CRDPTR 7 3119 S F54 099 67 501 17 010 MLZS @ @,CRDPTR 7 3126 Y F55 099 67 502 17 020 C CRDPTR,@008@ 7 3133 C 099 F87 67 503 17 030 BH GTCD1 5 3140 B ?41 U 67 504 17 040 BCE GTCD2,CH, 8 3145 B A19 0?0 67 505 17 050 A &1,CRDPTR 7 3153 A F54 099 68 506 17 060 MLC CRDPTR,CRDMAX 7 3160 M 099 A80 68 507 17 070 MLC @007@,CRDPTR 7 3167 M F67 099 68 508 17 080 GTCDEX B * 4 3174 B A77 68 509 17 090 INT1 EQU 975 0975 510 17 100 INT2 EQU 978 0978 511 17 110 COL1 EQU 1 0001 512 17 120 COL6 EQU 6 0006 513 17 130 CRDMAX DCW #3 3 3180 68 514 17 140 CRDPTR EQU X3 0099 515 17 150 CH EQU 0&X3 0000 516 17 160 LASTNO DCW #6 6 3186 68 517 17 170 GTNBLK SBR GTNBEX&3 4 3187 H B29 68 518 17 180 GTNB1 A &1,CRDPTR 7 3191 A F54 099 69 519 17 190 BCE GTNB2,ACSW,0 8 3198 B B18 W97 0 69 520 17 200 C CRDPTR,@073@ 7 3206 C 099 F70 69 521 17 210 BE HWTORF 5 3213 B U08 S 69 522 17 220 GTNB2 BCE GTNB1,CH, 8 3218 B A91 0?0 69 523 17 230 GTNBEX B * 4 3226 B B29 69 524 17 240 ERROR SBR ERRBKT 4 3230 H B91 70 525 17 250 A &2,ERRBKT 7 3234 A F97 B91 70 526 18 010 MLC ERRBKT,*&4 7 3241 M B91 B51 70 527 18 020 MLC *,*&7 7 3248 M B54 B61 70 528 18 030 MLC @1@,* 7 3255 M F64 B61 70 529 18 040 A &1,ERRBKT 7 3262 A F54 B91 70 530 18 050 MLC ERRBKT,ERREX&3 7 3269 M B91 B79 71 531 18 060 ERREX B * 4 3276 B B79 71 532 18 070 NINZRO DCW @000000000@ 9 3288 71 533 18 080 ERRBKT DCW #3 3 3291 71 534 18 090 PTNMLT SBR PTNLEX&3 4 3292 H C58 71 535 18 100 B PUTX 4 3296 B 363 71 536 18 110 DCW VNL 3 3302 C87 71 537 18 120 BCE PTNM01,SIGN, 8 3303 B C32 P19 72 538 18 130 MLC SIGN,CHX 7 3311 M P19 Q44 72 539 18 140 B PUTX 4 3318 B 363 72 540 18 150 DCW CHX 3 3324 Q44 72 541 18 160 MLC @ @,SIGN 7 3325 M F55 P19 72 542 18 170 PTNM01 B PURGE 4 3332 B C91 72 543 18 180 B PUTX 4 3336 B 363 72 544 18 190 DCW VNL 3 3342 C87 73 545 18 200 BCE PTNLEX,PSNTSW,N 8 3343 B C55 K49 N 73 546 18 210 B NTEST1 4 3351 B N15 73 547 18 220 PTNLEX B * 4 3355 B C58 73 1 1401 COBOL - A03 PAGE 10 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 548 18 230 PTNAM SBR PTNMEX&3 4 3359 H C84 73 549 18 240 B PUTX 4 3363 B 363 73 550 18 250 DCW VNM 3 3369 C90 73 551 19 010 B PURGE 4 3370 B C91 74 552 19 020 B PUTX 4 3374 B 363 74 553 19 030 DCW VNM 3 3380 C90 74 554 19 040 PTNMEX B * 4 3381 B C84 74 555 19 050 VNL DCW @.NL@ 3 3387 74 556 19 060 VNM DCW @.NM@ 3 3390 74 557 19 070 PURGE SBR PRGEX&3 4 3391 H D50 74 558 19 080 MLC WRDPTR,PRGSAV 7 3395 M 094 E26 75 559 19 090 MLC @003@,WRDPTR 7 3402 M G00 094 75 560 19 100 PRG1 C WRDPTR,PRGSAV 7 3409 C 094 E26 75 561 19 110 BL PRG3 5 3416 B D51 T 75 562 19 120 PRG2 MLC WORD,PRGSX 7 3421 M VP4 E29 75 563 19 130 B PUTX 4 3428 B 363 75 564 19 140 DCW PRGSX 3 3434 E29 76 565 19 150 C WRDPTR,PRGSAV 7 3435 C 094 E26 76 566 19 160 BU PRG6 5 3442 B E13 / 76 567 19 170 PRGEX B * 4 3447 B D50 76 568 19 180 PRG3 MLC WRDPTR,PRGMAX 7 3451 M 094 E32 76 569 19 190 MLC PRGSAV,WRDPTR 7 3458 M E26 094 76 570 19 200 PRG4 A &1,WRDPTR 7 3465 A F54 094 77 571 19 210 C WRDPTR,PRGMAX 7 3472 C 094 E32 77 572 19 220 BL PRG5 5 3479 B D95 T 77 573 19 230 MLC @ @,WORD 7 3484 M F55 VP4 77 574 19 240 B PRG4 4 3491 B D65 77 575 19 250 PRG5 MLC PRGMAX,WRDPTR 7 3495 M E32 094 77 576 20 010 MLC PRGMAX,PRGSAV 7 3502 M E32 E26 78 577 20 020 B PRG2 4 3509 B D21 78 578 20 030 PRG6 A &3,WRDPTR 7 3513 A G01 094 78 579 20 040 B PRG1 4 3520 B D09 78 580 20 050 PRGSAV DCW #3 3 3526 78 581 20 060 PRGSX DCW #3 3 3529 78 582 20 070 PRGMAX DCW #3 3 3532 78 583 20 080 BLANK6 DCW #6 6 3538 79 584 20 090 GM DC @}@ 1 3539 79 585 20 100 NOID DCW @0@ 1 3540 79 586 20 110 NOPGM DC @0@ 1 3541 79 587 20 120 ENTER1 DC @0@ 1 3542 79 588 20 130 INVLD DC @0@ 1 3543 79 589 20 140 ANSIZE DC @0@ 1 3544 79 590 20 150 WRD DC @0@ 1 3545 79 591 20 160 NUMSIZ DC @0@ 1 3546 79 592 20 170 ANERR1 DC @0@ 1 3547 79 593 20 180 SEQ DC @0@ 1 3548 79 594 20 190 PDSW DCW @0@ 1 3549 79 595 20 200 EOJPDS DCW @0@ 1 3550 79 596 20 210 EOJ BCE PSNM3A,NLSW,1 8 3551 B M52 N11 1 79 597 20 220 BCE PRD2,PDSW,1 8 3559 B Z72 E49 1 79 1 1401 COBOL - A03 PAGE 11 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 598 20 230 EOJ0 C SEQ,NINZRO 7 3567 C E48 B88 80 599 20 240 BU EOJ2 5 3574 B F43 / 80 600 20 250 EOJ1 BCE EOJ3,EOJPDS,0 8 3579 B E94 E50 0 80 601 21 010 B PUTX 4 3587 B 363 80 602 21 020 DCW VPRD 3 3593 O50 80 603 21 030 EOJ3 B PUTX 4 3594 B 363 80 604 21 040 DCW VEOP 3 3600 X00 80 605 21 050 RWD 5 5 3601 U %U5 R 81 606 21 060 B IORW 4 3606 B 343 81 607 21 070 RTW 4,BGNSUP 8 3610 L %U4 973 R 81 608 21 080 DCW *&1 3 3620 F21 81 609 21 090 RWD 4 5 3621 U %U4 R 81 610 21 100 WTM 4 5 3626 U %U4 M 81 611 21 110 BSP 4 5 3631 U %U4 B 81 612 21 120 B SUPER 4 3636 B 351 82 613 21 130 DCW @A04@ 3 3642 82 614 21 140 EOJ2 MLC &EOJ1,PTCN1&3 7 3643 M G04 P78 82 615 21 150 B PTCDNO 4 3650 B P20 82 616 21 160 LTORG 3654 DCW &1 1 3654 LIT 82 @ @ 1 3655 LIT 82 @006@ 3 3658 LIT 82 @009@ 3 3661 LIT 83 @B@ 1 3662 LIT 83 @0@ 1 3663 LIT 83 @1@ 1 3664 LIT 83 @007@ 3 3667 LIT 83 @073@ 3 3670 LIT 83 @?@ 1 3671 LIT 83 @N@ 1 3672 LIT 84 @005@ 3 3675 LIT 84 199 &EOJ1 3 3678 E79 ADCON 84 202 &PUTX 3 3681 363 ADCON 84 206 &NOTE6 3 3684 U77 ADCON 84 @008@ 3 3687 LIT 84 @001@ 3 3690 LIT 84 @A@ 1 3691 LIT 85 @Z@ 1 3692 LIT 85 @.@ 1 3693 LIT 85 @120@ 3 3696 LIT 85 &2 1 3697 LIT 85 @003@ 3 3700 LIT 85 &3 1 3701 LIT 85 614 &EOJ1 3 3704 E79 ADCON 86 617 21 170 DCW @}@ 1 3705 86 618 21 180 END START / 979 080 87 1CLEAR STORAGE 1 ,008015,019026,030,034041,045,053,0570571026 1 CLEAR STORAGE 2 L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 1401 COBOL - A04 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 1 010 000 JOB 1401 COBOL - A04 102 1 020 CTL 631 11 103 1 030 ORG 1300 1300 104 1 040 SUPER EQU 351 0351 105 1 050 GETX EQU 335 0335 106 1 060 IORW EQU 343 0343 107 1 070 PUTX EQU 363 0363 108 1 080 X2 EQU 94 0094 109 1 090 X3 EQU 99 0099 110 1 100 TBLAR EQU 2800 2800 111 1 110 SMLTBL EQU 2802 2802 112 1 120 START B STRT1 4 1300 B T42 4 113 1 130 GTTBL SBR GTTBEX&3 4 1304 H T41 4 114 1 140 B IORW 4 1308 B 343 4 115 1 150 RT 1,TBLAR 8 1312 M %U1 Q00 R 4 116 1 160 DCW *&1 3 1322 T23 4 117 1 170 B IORW 4 1323 B 343 4 118 1 180 RTW 1,TBLAR 8 1327 L %U1 Q00 R 4 119 1 190 DCW *&1 3 1337 T38 5 120 1 200 GTTBEX B * 4 1338 B T41 5 121 1 210 STRT1 MLCWA @0@,190 7 1342 L P71 190 5 122 1 220 B GTTBL 4 1349 B T04 5 123 1 230 L1 B GETX 4 1353 B 335 5 124 1 240 DCW SX 3 1359 Z51 5 125 1 250 DCW EOJ 3 1362 Z19 5 126 2 010 L2 C SX,VNM 7 1363 C Z51 Z54 6 127 2 020 BE NAMER 5 1370 B X19 S 6 128 2 030 C SX,VNL 7 1375 C Z51 Z57 6 129 2 040 BE LIT 5 1382 B W13 S 6 130 2 050 C SX,@.PC@ 7 1387 C Z51 P74 6 131 2 060 BE LIT 5 1394 B W13 S 6 132 2 061 BCE LIT,SX,@ 8 1399 B W13 Z51 @ 7 133 2 070 C SX,VCD 7 1407 C Z51 Z63 7 134 2 080 BE CARDNO 5 1414 B V05 S 7 135 2 090 C SX,VDG 7 1419 C Z51 Z66 7 136 2 100 BE DIAGN 5 1426 B U61 S 7 137 2 110 B PUTX 4 1431 B 363 7 138 2 120 DCW SX 3 1437 Z51 7 139 2 130 C SX,@#DC@ 7 1438 C Z51 P77 8 140 2 140 BU L1 5 1445 B T53 / 8 141 2 150 MLC @1@,ACSW 7 1450 M P78 Z48 8 142 2 160 B L1 4 1457 B T53 8 143 2 170 DIAGN B GETX 4 1461 B 335 8 144 2 180 DCW ENTER1 3 1467 K60 8 145 2 190 DCW EOJ 3 1470 Z19 8 146 2 200 B GETX 4 1471 B 335 9 147 2 210 DCW WRD 3 1477 K63 9 1 1401 COBOL - A04 PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 2 220 DCW EOJ 3 1480 Z19 9 149 2 230 B GETX 4 1481 B 335 9 150 2 240 DCW SEQ 3 1487 K66 9 151 2 250 DCW EOJ 3 1490 Z19 9 152 3 010 B ANALYZ 4 1491 B Z85 9 153 3 020 B GETX 4 1495 B 335 10 154 3 030 DCW SX 3 1501 Z51 10 155 3 040 DCW EOJ 3 1504 Z19 10 156 3 050 CARDNO B PUTX 4 1505 B 363 10 157 3 060 DCW SX 3 1511 Z51 10 158 3 070 B GETX 4 1512 B 335 10 159 3 080 DCW INT1 3 1518 W04 10 160 3 090 DCW EOJ 3 1521 Z19 11 161 3 100 B GETX 4 1522 B 335 11 162 3 110 DCW INT2 3 1528 W07 11 163 3 120 DCW EOJ 3 1531 Z19 11 164 3 130 B PUTX 4 1532 B 363 11 165 3 140 DCW INT1 3 1538 W04 11 166 3 150 B PUTX 4 1539 B 363 11 167 3 160 DCW INT2 3 1545 W07 12 168 3 170 B GETX 4 1546 B 335 12 169 3 180 DCW SX 3 1552 Z51 12 170 3 190 DCW EOJ 3 1555 Z19 12 171 3 200 C SX,VC8 7 1556 C Z51 W10 12 172 3 210 BU CDN2 5 1563 B V91 / 12 173 3 220 BCE CDN1,DIV,P 8 1568 B V80 W11 P 12 174 3 230 B L1 4 1576 B T53 13 175 3 240 CDN1 MLC @1@,C8SW 7 1580 M P78 W12 13 176 3 250 B L1 4 1587 B T53 13 177 4 010 CDN2 MLC @0@,C8SW 7 1591 M P71 W12 13 178 4 020 B L2 4 1598 B T63 13 179 4 030 INT1 DCW #3 3 1604 13 180 4 040 INT2 DCW #3 3 1607 13 181 4 050 VC8 DCW @.C8@ 3 1610 14 182 4 060 DIV DCW @E@ 1 1611 14 183 4 070 C8SW DCW @0@ 1 1612 14 184 4 080 LIT BCE LIT5,C8SW,1 8 1613 B X05 W12 1 14 185 4 090 B PUTX 4 1621 B 363 14 186 4 100 DCW SX 3 1627 Z51 14 187 4 110 LIT1 MLC SX,CTL 7 1628 M Z51 Z69 14 188 4 120 LIT2 B GETX 4 1635 B 335 15 189 4 130 DCW SX 3 1641 Z51 15 190 4 140 DCW EOJ 3 1644 Z19 15 191 4 150 C SX,CTL 7 1645 C Z51 Z69 15 192 4 160 BE LIT3 5 1652 B W68 S 15 193 4 170 B PUTX 4 1657 B 363 15 194 4 180 DCW SX 3 1663 Z51 15 195 4 190 B LIT2 4 1664 B W35 16 196 4 200 LIT3 BCE LIT4,C8SW,0 8 1668 B W94 W12 0 16 197 4 210 MLC @0@,C8SW 7 1676 M P71 W12 16 1 1401 COBOL - A04 PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 4 220 B PUTX 4 1683 B 363 16 199 4 230 DCW VLB 3 1689 X18 16 200 4 240 B L1 4 1690 B T53 16 201 4 250 LIT4 B PUTX 4 1694 B 363 16 202 5 010 DCW CTL 3 1700 Z69 17 203 5 020 B L1 4 1701 B T53 17 204 5 030 LIT5 B PUTX 4 1705 B 363 17 205 5 040 DCW VLB 3 1711 X18 17 206 5 050 B LIT1 4 1712 B W28 17 207 5 060 VLB DCW @.LB@ 3 1718 17 208 5 070 NAMER B GETNAM 4 1719 B K98 17 209 5 080 BCE PROCD,DIV,P 8 1723 B Y13 W11 P 18 210 5 090 BCE DATAD,DIV,D 8 1731 B X78 W11 D 18 211 5 100 C NAME,@DATA@ 7 1739 C LH5 P82 18 212 5 110 BU PROCD 5 1746 B Y13 / 18 213 5 120 C X3,@004@ 7 1751 C 099 P85 18 214 5 130 BU PROCD 5 1758 B Y13 / 19 215 5 140 MLC @D@,DIV 7 1763 M P86 W11 19 216 5 150 B GTTBL 4 1770 B T04 19 217 5 160 B PROCD 4 1774 B Y13 19 218 5 170 DATAD C NAME,HPROC 7 1778 C LH5 Z78 19 219 5 180 BU PROCD 5 1785 B Y13 / 19 220 5 190 C X3,@009@ 7 1790 C 099 P89 19 221 5 200 BU PROCD 5 1797 B Y13 / 20 222 5 210 MLC @P@,DIV 7 1802 M P90 W11 20 223 5 220 B GTTBL 4 1809 B T04 20 224 5 230 PROCD B LOOKUP 4 1813 B O39 20 225 5 240 PROC1 C ANS,VNF 7 1817 C P70 Z81 20 226 5 250 BE NOTFND 5 1824 B Z11 S 20 227 6 010 BCE PROC3,C8SW,0 8 1829 B Y88 W12 0 21 228 6 020 MLC @0@,C8SW 7 1837 M P71 W12 21 229 6 030 C ANS,@000@ 7 1844 C P70 P93 21 230 6 040 BU PROC2 5 1851 B Y63 / 21 231 6 050 MLC VNF,ANS 7 1856 M Z81 P70 21 232 6 060 PROC2 B PUTX 4 1863 B 363 21 233 6 070 DCW VLB 3 1869 X18 22 234 6 080 B PUTX 4 1870 B 363 22 235 6 090 DCW ANS 3 1876 P70 22 236 6 100 B PUTX 4 1877 B 363 22 237 6 110 DCW VLB 3 1883 X18 22 238 6 120 B L1 4 1884 B T53 22 239 6 130 PROC3 C ANS,@000@ 7 1888 C P70 P93 22 240 6 140 BE L1 5 1895 B T53 S 23 241 6 150 B PUTX 4 1900 B 363 23 242 6 160 DCW ANS 3 1906 P70 23 243 6 170 B L1 4 1907 B T53 23 244 6 180 NOTFND B PUTNAM 4 1911 B N08 23 245 6 190 B L1 4 1915 B T53 23 246 6 200 EOJ B PUTX 4 1919 B 363 23 247 6 210 DCW SX 3 1925 Z51 24 1 1401 COBOL - A04 PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 6 220 BCE EOJ1,ACSW,1 8 1926 B Z41 Z48 1 24 249 6 230 B SUPER 4 1934 B 351 24 250 6 240 DCW @BD1@ 3 1940 24 251 6 250 EOJ1 B SUPER 4 1941 B 351 24 252 7 010 DCW @A20@ 3 1947 24 253 7 020 ACSW DCW @0@ 1 1948 24 254 7 030 SX DCW #3 3 1951 25 255 7 040 VNM DCW @.NM@ 3 1954 25 256 7 050 VNL DCW @.NL@ 3 1957 25 257 7 060 VAT DCW @ @@ 3 1960 25 258 7 070 VCD DCW @.CD@ 3 1963 25 259 7 080 VDG DCW @.DG@ 3 1966 25 260 7 090 CTL DCW #3 3 1969 25 261 7 100 HPROC DCW @PROCEDURE@ 9 1978 26 262 7 110 VNF DCW @.NF@ 3 1981 26 263 7 120 SYM DCW #3 3 1984 26 264 7 130 ANALYZ SBR ANLZEX&3 4 1985 H !93 26 265 7 140 MLC @1@,190 7 1989 M P78 190 26 266 7 150 MLZS SEQ,CONT 7 1996 Y K66 K67 26 267 7 160 MLZS @ @,SEQ 7 2003 Y P94 K66 27 268 7 170 BCE CNTIN,CONT,& 8 2010 B !94 K67 & 27 269 7 180 BCE SQ,SEQ,1 8 2018 B J09 K66 1 27 270 7 190 BCE ANE,ANERR1,1 8 2026 B J24 K65 1 27 271 7 200 BCE NMSZ,NUMSIZ,1 8 2034 B J39 K64 1 27 272 7 210 BCE WORDR,WRD,1 8 2042 B J54 K63 1 28 273 7 220 BCE ANSIZ,ANSIZE,1 8 2050 B J69 K62 1 28 274 7 230 BCE INVAL,INVLD,1 8 2058 B J84 K61 1 28 275 7 240 BCE ENT1,ENTER1,1 8 2066 B J99 K60 1 28 276 7 250 BCE NPG,NOPGM,1 8 2074 B K14 K59 1 29 277 8 010 BCE NID,NOID,1 8 2082 B K29 K58 1 29 278 8 020 ANLZEX B * 4 2090 B !93 29 279 8 030 CNTIN SBR ANLRT&3 4 2094 H K57 29 280 8 040 MLC ERRA,SYM 7 2098 M K97 Z84 29 281 8 050 B OUT 4 2105 B K40 29 282 8 060 SQ SBR ANLRT&3 4 2109 H K57 29 283 8 070 MLC ERR1,SYM 7 2113 M K70 Z84 30 284 8 080 B OUT 4 2120 B K40 30 285 8 090 ANE SBR ANLRT&3 4 2124 H K57 30 286 8 100 MLC ERR2,SYM 7 2128 M K73 Z84 30 287 8 110 B OUT 4 2135 B K40 30 288 8 120 NMSZ SBR ANLRT&3 4 2139 H K57 30 289 8 130 MLC ERR3,SYM 7 2143 M K76 Z84 30 290 8 140 B OUT 4 2150 B K40 31 291 8 150 WORDR SBR ANLRT&3 4 2154 H K57 31 292 8 160 MLC ERR4,SYM 7 2158 M K79 Z84 31 293 8 170 B OUT 4 2165 B K40 31 294 8 180 ANSIZ SBR ANLRT&3 4 2169 H K57 31 295 8 190 MLC ERR5,SYM 7 2173 M K82 Z84 31 296 8 200 B OUT 4 2180 B K40 31 297 8 210 INVAL SBR ANLRT&3 4 2184 H K57 32 1 1401 COBOL - A04 PAGE 5 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 298 8 220 MLC ERR6,SYM 7 2188 M K85 Z84 32 299 8 230 B OUT 4 2195 B K40 32 300 8 240 ENT1 SBR ANLRT&3 4 2199 H K57 32 301 8 250 MLC ERR7,SYM 7 2203 M K88 Z84 32 302 9 010 B OUT 4 2210 B K40 32 303 9 020 NPG SBR ANLRT&3 4 2214 H K57 32 304 9 030 MLC ERR8,SYM 7 2218 M K91 Z84 33 305 9 040 B OUT 4 2225 B K40 33 306 9 050 NID SBR ANLRT&3 4 2229 H K57 33 307 9 060 MLC ERR9,SYM 7 2233 M K94 Z84 33 308 9 070 OUT B PUTX 4 2240 B 363 33 309 9 080 DCW VDG 3 2246 Z66 33 310 9 090 B PUTX 4 2247 B 363 33 311 9 100 DCW SYM 3 2253 Z84 34 312 9 110 ANLRT B * 4 2254 B K57 34 313 9 120 NOID DCW #1 1 2258 34 314 9 130 NOPGM DC #1 1 2259 34 315 9 140 ENTER1 DC #1 1 2260 34 316 9 150 INVLD DC #1 1 2261 34 317 9 160 ANSIZE DC #1 1 2262 34 318 9 170 WRD DC #1 1 2263 34 319 9 180 NUMSIZ DC #1 1 2264 34 320 9 190 ANERR1 DC #1 1 2265 34 321 9 200 SEQ DC #1 1 2266 34 322 9 210 CONT DCW #1 1 2267 34 323 9 220 ERR1 DCW @A01@ 3 2270 34 324 9 230 ERR2 DCW @A0B@ 3 2273 34 325 9 240 ERR3 DCW @A0C@ 3 2276 34 326 9 250 ERR4 DCW @A0D@ 3 2279 35 327 10 010 ERR5 DCW @A0E@ 3 2282 35 328 10 020 ERR6 DCW @A0F@ 3 2285 35 329 10 030 ERR7 DCW @A0G@ 3 2288 35 330 10 040 ERR8 DCW @A0H@ 3 2291 35 331 10 050 ERR9 DCW @A0I@ 3 2294 35 332 10 060 ERRA DCW @A1?@ 3 2297 35 333 10 070 GETNAM SBR GTNMEX&3 4 2298 H L67 36 334 10 080 MLC @000@,X3 7 2302 M P93 099 36 335 10 090 GTNM1 B GETX 4 2309 B 335 36 336 10 100 DCW SX 3 2315 Z51 36 337 10 110 DCW EOJ 3 2318 Z19 36 338 10 120 C SX,VNM 7 2319 C Z51 Z54 36 339 10 130 BE GTNM2 5 2326 B L49 S 36 340 10 140 A &3,X3 7 2331 A P95 099 37 341 10 150 MLC SX,WORDAR&X3 7 2338 M Z51 LH5 37 342 10 160 B GTNM1 4 2345 B L09 37 343 10 170 GTNM2 MLC X3,SAVE 7 2349 M 099 O35 37 344 10 180 GTNM2A BCE DECR,WORDAR&X3, 8 2356 B L68 LH5 37 345 10 190 GTNMEX B * 4 2364 B L67 37 346 10 200 DECR S &1,X3 7 2368 S P96 099 38 347 10 210 MLZS @ @,X3 7 2375 Y P94 099 38 1 1401 COBOL - A04 PAGE 6 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 348 10 220 B GTNM2A 4 2382 B L56 38 349 10 230 WORDAR EQU * 2385 350 10 240 DCW #50 50 2435 40 351 10 250 DC #50 50 2485 42 352 11 010 DC #22 22 2507 42 353 11 020 NAME EQU WORDAR&X3 2385 X 354 11 030 PUTNAM SBR PTNMEX&3 4 2508 H O32 42 355 11 040 BCE PTNM01,C8SW,1 8 2512 B N31 W12 1 43 356 11 050 MLC VNM,SYM 7 2520 M Z54 Z84 43 357 11 060 B PTNM02 4 2527 B N45 43 358 11 070 PTNM01 MLC VLB,SYM 7 2531 M X18 Z84 43 359 11 080 MLC @0@,C8SW 7 2538 M P71 W12 43 360 11 090 PTNM02 B PUTX 4 2545 B 363 43 361 11 100 DCW SYM 3 2551 Z84 44 362 11 110 PTNM03 C X3,SAVE 7 2552 C 099 O35 44 363 11 120 BE PTNM04 5 2559 B N82 S 44 364 11 130 A &1,X3 7 2564 A P96 099 44 365 11 140 MLC @ @,NAME 7 2571 M P94 LH5 44 366 11 150 B PTNM03 4 2578 B N52 44 367 11 160 PTNM04 MLC @000@,X3 7 2582 M P93 099 45 368 11 170 PTNM05 A &3,X3 7 2589 A P95 099 45 369 11 180 MLC WORDAR&X3,SZ 7 2596 M LH5 O38 45 370 11 190 B PUTX 4 2603 B 363 45 371 11 200 DCW SZ 3 2609 O38 45 372 11 210 C X3,SAVE 7 2610 C 099 O35 45 373 11 220 BU PTNM05 5 2617 B N89 / 46 374 11 230 B PUTX 4 2622 B 363 46 375 11 240 DCW SYM 3 2628 Z84 46 376 11 250 PTNMEX B * 4 2629 B O32 46 377 12 010 SAVE DCW #3 3 2635 46 378 12 020 SZ DCW #3 3 2638 46 379 12 030 LOOKUP C X3,@001@ 7 2639 C 099 P99 46 380 12 040 BE LKSLNF 5 2646 B O95 S 47 381 12 050 MLC SMLTBL,X2 7 2651 M Q02 094 47 382 12 060 LKSLCT C X3,0&X2 7 2658 C 099 0!0 47 383 12 070 SBR LKSLFD&3 4 2665 H P09 47 384 12 080 BL LKSLNF 5 2669 B O95 T 47 385 12 090 BE LKSLFD 5 2674 B P06 S 47 386 12 100 MLC 0&X2,0&X2 7 2679 M 0!0 0!0 48 387 12 110 MLC 1 2686 M 48 388 12 120 SBR X2 4 2687 H 094 48 389 12 130 B LKSLCT 4 2691 B O58 48 390 12 140 LKSLNF MLC VNF,ANS 7 2695 M Z81 P70 48 391 12 150 B PROC1 4 2702 B Y17 48 392 12 160 LKSLFD MLC *,X2 7 2706 M P12 094 48 393 12 170 LKLK C NAME,0&X2 7 2713 C LH5 0!0 49 394 12 180 BH LKSLNF 5 2720 B O95 U 49 395 12 190 BE LKFND 5 2725 B P46 S 49 396 12 200 MLC 0&X2,0&X2 7 2730 M 0!0 0!0 49 397 12 210 MLC 1 2737 M 49 1 1401 COBOL - A04 PAGE 7 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 398 12 220 SBR X2 4 2738 H 094 49 399 12 230 B LKLK 4 2742 B P13 49 400 12 240 LKFND MLC 0&X2,0&X2 7 2746 M 0!0 0!0 50 401 12 250 SBR *&4 4 2753 H P60 50 402 13 010 MLC *,ANS 7 2757 M P63 P70 50 403 13 020 B PROC1 4 2764 B Y17 50 404 13 030 ANS DCW @000@ 3 2770 50 405 13 040 LTORG 2771 DCW @0@ 1 2771 LIT 50 @.PC@ 3 2774 LIT 50 @#DC@ 3 2777 LIT 51 @1@ 1 2778 LIT 51 @DATA@ 4 2782 LIT 51 @004@ 3 2785 LIT 51 @D@ 1 2786 LIT 51 @009@ 3 2789 LIT 51 @P@ 1 2790 LIT 51 @000@ 3 2793 LIT 52 @ @ 1 2794 LIT 52 &3 1 2795 LIT 52 &1 1 2796 LIT 52 @001@ 3 2799 LIT 52 406 13 050 DCW @}@ 1 2800 52 407 13 060 END START / T00 080 53 1CLEAR STORAGE 1 ,008015,019026,030,034041,045,053,0570571026 1 CLEAR STORAGE 2 L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 1401 COBOL - A05 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 1 010 000 JOB 1401 COBOL - A05 102 1 020 CTL 631 11 103 1 030 ORG 2800 2800 104 1 040 DCW LKTB1 3 2802 Q95 4 105 1 050 @001@ 3 2805 4 106 1 060 &ETB02 3 2808 D26 4 107 1 070 @002@ 3 2811 4 108 1 080 &ETB03 3 2814 D06 4 109 1 090 @003@ 3 2817 4 110 1 100 &ETB04 3 2820 D00 4 111 1 110 @004@ 3 2823 5 112 1 120 &ETB05 3 2826 C65 5 113 1 130 @005@ 3 2829 5 114 1 140 &ETB06 3 2832 C49 5 115 1 150 @006@ 3 2835 5 116 1 160 &ETB07 3 2838 B86 5 117 1 170 @007@ 3 2841 5 118 1 180 &ETB08 3 2844 B26 6 119 1 190 @008@ 3 2847 6 120 1 200 &ETB09 3 2850 A71 6 121 1 210 @009@ 3 2853 6 122 1 220 &ETB10 3 2856 ?99 6 123 1 230 @010@ 3 2859 6 124 1 240 &ETB11 3 2862 ?60 6 125 1 250 @011@ 3 2865 7 126 2 010 &ETB12 3 2868 ?46 7 127 2 020 @012@ 3 2871 7 128 2 030 &ETB13 3 2874 ?16 7 129 2 040 @013@ 3 2877 7 130 2 050 &ETB14 3 2880 R84 7 131 2 060 @014@ 3 2883 7 132 2 070 &ETB15 3 2886 R67 8 133 2 080 @015@ 3 2889 8 134 2 090 &ETB16 3 2892 R31 8 135 2 100 LKTB1 @016@ 3 2895 8 136 2 110 * ENVIRONMENT DIVISION TABLES 137 2 120 DCW #17 17 2912 8 138 2 130 @*99@ 3 2915 8 139 2 140 ETB16 @NO-PRINT-STORAGE@ 16 2931 9 140 2 150 @*98@ 3 2934 9 141 2 160 @SOURCE-COMPUTER@ 15 2949 9 142 2 170 @*97@ 3 2952 9 143 2 180 ETB15 @OBJECT-COMPUTER@ 15 2967 10 144 2 190 @*92@ 3 2970 10 145 2 200 ETB14 @OBJECT-PROGRAM@ 14 2984 10 146 2 210 @*95@ 3 2987 10 147 2 220 @SPECIAL-NAMES@ 13 3000 11 1 1401 COBOL - A05 PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 2 230 @*94@ 3 3003 11 149 2 240 ETB13 @CONFIGURATION@ 13 3016 11 150 2 250 @*93@ 3 3019 11 151 3 010 @INPUT-OUTPUT@ 12 3031 12 152 3 020 @*96@ 3 3034 12 153 3 030 ETB12 @FILE-CONTROL@ 12 3046 12 154 3 040 @*91@ 3 3049 12 155 3 050 ETB11 @ENVIRONMENT@ 11 3060 13 156 3 060 @*90@ 3 3063 13 157 3 070 @NO-RELEASE@ 10 3073 13 158 3 080 @*72@ 3 3076 13 159 3 090 @NO-OVERLAP@ 10 3086 13 160 3 100 @000@ 3 3089 14 161 3 110 ETB10 @CHARACTERS@ 10 3099 14 162 3 120 @*85@ 3 3102 14 163 3 130 @1403-P-C9@ 9 3111 14 164 3 140 @*87@ 3 3114 14 165 3 150 @1403-P-CV@ 9 3123 14 166 3 160 @*86@ 3 3126 15 167 3 170 @1403-P-CB@ 9 3135 15 168 3 180 @000@ 3 3138 15 169 3 190 @CHARACTER@ 9 3147 15 170 3 200 @000@ 3 3150 15 171 3 210 @ALTERNATE@ 9 3159 15 172 3 220 @*74@ 3 3162 15 173 3 230 ETB09 @ADDRESSES@ 9 3171 16 174 3 240 @*79@ 3 3174 16 175 3 250 @PRIORITY@ 8 3182 16 176 4 010 @000@ 3 3185 16 177 4 020 @OPTIONAL@ 8 3193 16 178 4 030 @000@ 3 3196 16 179 4 040 @MULTIPLE@ 8 3204 17 180 4 050 @*84@ 3 3207 17 181 4 060 @IBM-1401@ 8 3215 17 182 4 070 @*06@ 3 3218 17 183 4 080 ETB08 @DIVISION@ 8 3226 17 184 4 090 @*82@ 3 3229 17 185 4 100 @1403-CT@ 7 3236 18 186 4 110 @*81@ 3 3239 18 187 4 120 @1401-SS@ 7 3246 18 188 4 130 @*08@ 3 3249 18 189 4 140 @THROUGH@ 7 3256 18 190 4 150 @*09@ 3 3259 18 191 4 160 @SECTION@ 7 3266 18 192 4 170 @*70@ 3 3269 19 193 4 180 @RESERVE@ 7 3276 19 194 4 190 @*74@ 3 3279 19 195 4 200 ETB07 @ADDRESS@ 7 3286 19 196 4 210 @*83@ 3 3289 19 197 4 220 @1403-P@ 6 3295 19 1 1401 COBOL - A05 PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 4 230 @*80@ 3 3298 19 199 4 240 @1402-R@ 6 3304 20 200 4 250 @*88@ 3 3307 20 201 5 010 @1402-P@ 6 3313 20 202 5 020 @000@ 3 3316 20 203 5 030 @STATUS@ 6 3322 20 204 5 040 @*77@ 3 3325 20 205 5 050 @SELECT@ 6 3331 20 206 5 060 @*76@ 3 3334 21 207 5 070 @MEMORY@ 6 3340 21 208 5 080 @*75@ 3 3343 21 209 5 090 ETB06 @ASSIGN@ 6 3349 21 210 5 100 @*89@ 3 3352 21 211 5 110 @TAPES@ 5 3357 21 212 5 120 @000@ 3 3360 21 213 5 130 ETB05 @AREAS@ 5 3365 22 214 5 140 @*08@ 3 3368 22 215 5 150 @THRU@ 4 3372 22 216 5 160 @*89@ 3 3375 22 217 5 170 @TAPE@ 4 3379 22 218 5 180 @000@ 3 3382 22 219 5 190 @SIZE@ 4 3386 22 220 5 200 @000@ 3 3389 23 221 5 210 @FILE@ 4 3393 23 222 5 220 @000@ 3 3396 23 223 5 230 ETB04 @AREA@ 4 3400 23 224 5 240 @*71@ 3 3403 23 225 5 250 ETB03 @OFF@ 3 3406 23 226 6 010 @000@ 3 3409 23 227 6 020 @TO@ 2 3411 24 228 6 030 @*31@ 3 3414 24 229 6 040 @ON@ 2 3416 24 230 6 050 @*33@ 3 3419 24 231 6 060 @NO@ 2 3421 24 232 6 070 @000@ 3 3424 24 233 6 080 ETB02 @IS@ 2 3426 24 234 6 090 DCW @}@ 1 3427 25 235 6 100 END / 000 080 26 1CLEAR STORAGE 1 ,008015,019026,030,034041,045,053,0570571026 1 CLEAR STORAGE 2 L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 1401 COBOL - A06 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 1 010 000 JOB 1401 COBOL - A06 102 1 020 CTL 631 11 103 1 030 ORG 2800 2800 104 1 040 DCW LKTB2 3 2802 R01 4 105 1 050 @001@ 3 2805 4 106 1 060 &DTB02 3 2808 G45 4 107 1 070 @002@ 3 2811 4 108 1 080 &DTB03 3 2814 G05 4 109 1 090 @003@ 3 2817 4 110 1 100 &DTB04 3 2820 F81 4 111 1 110 @004@ 3 2823 5 112 1 120 &DTB05 3 2826 F04 5 113 1 130 @005@ 3 2829 5 114 1 140 &DTB06 3 2832 D68 5 115 1 150 @006@ 3 2835 5 116 1 160 &DTB07 3 2838 C60 5 117 1 170 @007@ 3 2841 5 118 1 180 &DTB08 3 2844 B70 6 119 1 190 @008@ 3 2847 6 120 1 200 &DTB09 3 2850 B04 6 121 1 210 @009@ 3 2853 6 122 1 220 &DTB10 3 2856 A32 6 123 1 230 @010@ 3 2859 6 124 1 240 &DTB11 3 2862 ?80 6 125 1 250 @011@ 3 2865 7 126 2 010 &DTB12 3 2868 ?66 7 127 2 020 @012@ 3 2871 7 128 2 030 &DTB13 3 2874 ?51 7 129 2 040 @013@ 3 2877 7 130 2 050 &DTB14 3 2880 ?19 7 131 2 060 @014@ 3 2883 7 132 2 070 &DTB15 3 2886 ?02 8 133 2 080 @015@ 3 2889 8 134 2 090 &DTB18 3 2892 R66 8 135 2 100 @018@ 3 2895 8 136 2 110 &DTB20 3 2898 R45 8 137 2 120 LKTB2 @020@ 3 2901 8 138 2 130 * DATA DIVISION TABLES 139 2 140 DCW #21 21 2922 8 140 2 150 @/30@ 3 2925 9 141 2 160 DTB20 @REEL-SEQUENCE-NUMBER@ 20 2945 9 142 2 170 @/31@ 3 2948 9 143 2 180 DTB18 @FILE-SERIAL-NUMBER@ 18 2966 10 144 2 190 @/01@ 3 2969 10 145 2 200 @WORKING-STORAGE@ 15 2984 10 146 2 210 @/02@ 3 2987 10 147 2 220 DTB15 @RETENTION-CYCLE@ 15 3002 11 1 1401 COBOL - A06 PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 2 230 @/25@ 3 3005 11 149 2 240 DTB14 @IDENTIFICATION@ 14 3019 11 150 2 250 @/32@ 3 3022 11 151 3 010 @CREATION-DATE@ 13 3035 12 152 3 020 @000@ 3 3038 12 153 3 030 DTB13 @COMPUTATIONAL@ 13 3051 12 154 3 040 @/03@ 3 3054 12 155 3 050 DTB12 @ALPHANUMERIC@ 12 3066 13 156 3 060 @$01@ 3 3069 13 157 3 070 DTB11 @HIGH-VALUES@ 11 3080 13 158 3 080 @$02@ 3 3083 13 159 3 090 @LOW-VALUES@ 10 3093 13 160 3 100 @$01@ 3 3096 14 161 3 110 @HIGH-VALUE@ 10 3106 14 162 3 120 @000@ 3 3109 14 163 3 130 @CHARACTERS@ 10 3119 14 164 3 140 @$10@ 3 3122 14 165 3 150 DTB10 @ALPHABETIC@ 10 3132 14 166 3 160 @/05@ 3 3135 15 167 3 170 @REDEFINES@ 9 3144 15 168 3 180 @/06@ 3 3147 15 169 3 190 @RECORDING@ 9 3156 15 170 3 200 @$02@ 3 3159 15 171 3 210 @LOW-VALUE@ 9 3168 15 172 3 220 @/07@ 3 3171 15 173 3 230 @JUSTIFIED@ 9 3180 16 174 3 240 @*03@ 3 3183 16 175 3 250 @DEPENDING@ 9 3192 16 176 4 010 @000@ 3 3195 16 177 4 020 DTB09 @CHARACTER@ 9 3204 16 178 4 030 @/04@ 3 3207 16 179 4 040 @SUPPRESS@ 8 3215 17 180 4 050 @/08@ 3 3218 17 181 4 060 @STANDARD@ 8 3226 17 182 4 070 @000@ 3 3229 17 183 4 080 @LOCATION@ 8 3237 17 184 4 090 @*06@ 3 3240 17 185 4 100 @DIVISION@ 8 3248 18 186 4 110 @000@ 3 3251 18 187 4 120 @CONTAINS@ 8 3259 18 188 4 130 @/09@ 3 3262 18 189 4 140 DTB08 @CONSTANT@ 8 3270 18 190 4 150 @*08@ 3 3273 18 191 4 160 @THROUGH@ 7 3280 19 192 4 170 @*09@ 3 3283 19 193 4 180 @SECTION@ 7 3290 19 194 4 190 @/11@ 3 3293 19 195 4 200 @RECORDS@ 7 3300 19 196 4 210 @000@ 3 3303 19 197 4 220 @PROTECT@ 7 3310 19 1 1401 COBOL - A06 PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 4 230 @)12@ 3 3313 20 199 4 240 @PICTURE@ 7 3320 20 200 4 250 @*14@ 3 3323 20 201 5 010 @OMITTED@ 7 3330 20 202 5 020 @$16@ 3 3333 20 203 5 030 @NUMERIC@ 7 3340 20 204 5 040 @/12@ 3 3343 20 205 5 050 @LEAVING@ 7 3350 21 206 5 060 @000@ 3 3353 21 207 5 070 DTB07 @DISPLAY@ 7 3360 21 208 5 080 @$08@ 3 3363 21 209 5 090 @ZEROES@ 6 3369 21 210 5 100 @/13@ 3 3372 21 211 5 110 @VALUES@ 6 3378 21 212 5 120 @$02@ 3 3381 22 213 5 130 @SPACES@ 6 3387 22 214 5 140 @000@ 3 3390 22 215 5 150 @SIGNED@ 6 3396 22 216 5 160 @/11@ 3 3399 22 217 5 170 @RECORD@ 6 3405 22 218 5 180 @$09@ 3 3408 22 219 5 190 @QUOTES@ 6 3414 23 220 5 200 @000@ 3 3417 23 221 5 210 @PLACES@ 6 3423 23 222 5 220 @/14@ 3 3426 23 223 5 230 @OCCURS@ 6 3432 23 224 5 240 @/23@ 3 3435 23 225 5 250 @FILLER@ 6 3441 23 226 6 010 @000@ 3 3444 24 227 6 020 @DOLLAR@ 6 3450 24 228 6 030 @000@ 3 3453 24 229 6 040 @DIGITS@ 6 3459 24 230 6 050 @/16@ 3 3462 24 231 6 060 DTB06 @BLOCKS@ 6 3468 24 232 6 070 @$08@ 3 3471 24 233 6 080 @ZEROS@ 5 3476 25 234 6 090 @/13@ 3 3479 25 235 6 100 @VALUE@ 5 3484 25 236 6 110 @000@ 3 3487 25 237 6 120 @USAGE@ 5 3492 25 238 6 130 @000@ 3 3495 25 239 6 140 @TIMES@ 5 3500 25 240 6 150 @$02@ 3 3503 26 241 6 160 @SPACE@ 5 3508 26 242 6 170 @/17@ 3 3511 26 243 6 180 @RIGHT@ 5 3516 26 244 6 190 @$09@ 3 3519 26 245 6 200 @QUOTE@ 5 3524 26 246 6 210 @/18@ 3 3527 26 247 6 220 @POINT@ 5 3532 27 1 1401 COBOL - A06 PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 6 230 @000@ 3 3535 27 249 6 240 @PLACE@ 5 3540 27 250 6 250 @000@ 3 3543 27 251 7 010 @LINES@ 5 3548 27 252 7 020 @/19@ 3 3551 27 253 7 030 @LABEL@ 5 3556 27 254 7 040 @/20@ 3 3559 28 255 7 050 @FLOAT@ 5 3564 28 256 7 060 @000@ 3 3567 28 257 7 070 @DIGIT@ 5 3572 28 258 7 080 @000@ 3 3575 28 259 7 090 @CLASS@ 5 3580 28 260 7 100 @/21@ 3 3583 28 261 7 110 @CHECK@ 5 3588 29 262 7 120 @/16@ 3 3591 29 263 7 130 @BLOCK@ 5 3596 29 264 7 140 @/22@ 3 3599 29 265 7 150 DTB05 @BLANK@ 5 3604 29 266 7 160 @$08@ 3 3607 29 267 7 170 @ZERO@ 4 3611 29 268 7 180 @000@ 3 3614 30 269 7 190 @WHEN@ 4 3618 30 270 7 200 @*08@ 3 3621 30 271 7 210 @THRU@ 4 3625 30 272 7 220 @/10@ 3 3628 30 273 7 230 @SIZE@ 4 3632 30 274 7 240 @000@ 3 3635 30 275 7 250 @SIGN@ 4 3639 31 276 8 010 @000@ 3 3642 31 277 8 020 @MODE@ 4 3646 31 278 8 030 @000@ 3 3649 31 279 8 040 @LINE@ 4 3653 31 280 8 050 @/15@ 3 3656 31 281 8 060 @LEFT@ 4 3660 31 282 8 070 @*28@ 3 3663 32 283 8 080 @FROM@ 4 3667 32 284 8 090 @*29@ 3 3670 32 285 8 100 @FILE@ 4 3674 32 286 8 110 @/24@ 3 3677 32 287 8 120 DTB04 @DATA@ 4 3681 32 288 8 130 @000@ 3 3684 32 289 8 140 @FOR@ 3 3687 33 290 8 150 @000@ 3 3690 33 291 8 160 @ARE@ 3 3693 33 292 8 170 DCW @000@ 3 3696 33 293 8 180 DCW @AND@ 3 3699 33 294 8 190 @$40@ 3 3702 33 295 8 200 DTB03 @ALL@ 3 3705 33 296 8 210 @000@ 3 3708 34 297 8 220 @TO@ 2 3710 34 1 1401 COBOL - A06 PAGE 5 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 298 8 230 @000@ 3 3713 34 299 8 240 @ON@ 2 3715 34 300 8 250 @*32@ 3 3718 34 301 9 010 @OF@ 2 3720 34 302 9 020 @000@ 3 3723 34 303 9 030 @IS@ 2 3725 35 304 9 040 @*32@ 3 3728 35 305 9 050 @IN@ 2 3730 35 306 9 060 @/25@ 3 3733 35 307 9 070 @ID@ 2 3735 35 308 9 080 @/26@ 3 3738 35 309 9 090 @FD@ 2 3740 35 310 9 100 @/03@ 3 3743 36 311 9 110 DTB02 @AN@ 2 3745 36 312 9 120 DCW @}@ 1 3746 36 313 9 130 END / 000 080 37 1CLEAR STORAGE 1 ,008015,019026,030,034041,045,053,0570571026 1 CLEAR STORAGE 2 L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 1401 COBOL - A07 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 1 010 000 JOB 1401 COBOL - A07 102 1 020 CTL 631 11 103 1 030 ORG 2800 2800 104 1 040 DCW LKTB3 3 2802 Q65 4 105 1 050 @001@ 3 2805 4 106 1 060 &PTB02 3 2808 G21 4 107 1 070 @002@ 3 2811 4 108 1 080 &PTB03 3 2814 F66 4 109 1 090 @003@ 3 2817 4 110 1 100 &PTB04 3 2820 F30 4 111 1 110 @004@ 3 2823 5 112 1 120 &PTB05 3 2826 D76 5 113 1 130 @005@ 3 2829 5 114 1 140 &PTB06 3 2832 C40 5 115 1 150 @006@ 3 2835 5 116 1 160 &PTB07 3 2838 B41 5 117 1 170 @007@ 3 2841 5 118 1 180 &PTB08 3 2844 ?91 6 119 1 190 @008@ 3 2847 6 120 1 200 &PTB09 3 2850 ?14 6 121 1 210 @009@ 3 2853 6 122 1 220 &PTB10 3 2856 R30 6 123 1 230 @010@ 3 2859 6 124 1 240 &PTB11 3 2862 Q91 6 125 1 250 LKTB3 @011@ 3 2865 7 126 2 010 * COBOL KEY-WORD TABLES 127 2 020 * PROCEDURE DIVISION TABLES 128 2 030 DCW #12 12 2877 7 129 2 040 @$01@ 3 2880 7 130 2 050 PTB11 @HIGH-VALUES@ 11 2891 7 131 2 060 @$02@ 3 2894 7 132 2 070 @LOW-VALUES@ 10 2904 8 133 2 080 @$01@ 3 2907 8 134 2 090 @HIGH-VALUE@ 10 2917 8 135 2 100 @$10@ 3 2920 8 136 2 110 PTB10 @ALPHABETIC@ 10 2930 8 137 2 120 @*40@ 3 2933 8 138 2 130 @REPLACING@ 9 2942 9 139 2 140 @*01@ 3 2945 9 140 2 150 @PROCEDURE@ 9 2954 9 141 2 160 @*02@ 3 2957 9 142 2 170 @OTHERWISE@ 9 2966 9 143 2 180 @$02@ 3 2969 9 144 2 190 @LOW-VALUE@ 9 2978 10 145 2 200 @*03@ 3 2981 10 146 2 210 @DEPENDING@ 9 2990 10 147 2 220 @000@ 3 2993 10 1 1401 COBOL - A07 PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 2 230 @AUTOCODER@ 9 3002 10 149 2 240 @000@ 3 3005 10 150 2 250 PTB09 @ADVANCING@ 9 3014 11 151 3 010 @*39@ 3 3017 11 152 3 020 @TALLYING@ 8 3025 11 153 3 030 @)01@ 3 3028 11 154 3 040 @SUBTRACT@ 8 3036 11 155 3 050 @000@ 3 3039 11 156 3 060 @SENTENCE@ 8 3047 12 157 3 070 @$12@ 3 3050 12 158 3 080 @POSITIVE@ 8 3058 12 159 3 090 @$14@ 3 3061 12 160 3 100 @NEGATIVE@ 8 3069 12 161 3 110 @)02@ 3 3072 12 162 3 120 @MULTIPLY@ 8 3080 13 163 3 130 @*06@ 3 3083 13 164 3 140 PTB08 @DIVISION@ 8 3091 13 165 3 150 @*07@ 3 3094 13 166 3 160 @VARYING@ 7 3101 13 167 3 170 @*08@ 3 3104 13 168 3 180 @THROUGH@ 7 3111 13 169 3 190 @*09@ 3 3114 14 170 3 200 @SECTION@ 7 3121 14 171 3 210 @*10@ 3 3124 14 172 3 220 @ROUNDED@ 7 3131 14 173 3 230 @/11@ 3 3134 14 174 3 240 @RECORDS@ 7 3141 14 175 3 250 @*11@ 3 3144 14 176 4 010 @PROCEED@ 7 3151 15 177 4 020 @)03@ 3 3154 15 178 4 030 @PERFORM@ 7 3161 15 179 4 040 @$16@ 3 3164 15 180 4 050 @NUMERIC@ 7 3171 15 181 4 060 @*37@ 3 3174 15 182 4 070 @LEADING@ 7 3181 15 183 4 080 @$20@ 3 3184 16 184 4 090 @GREATER@ 7 3191 16 185 4 100 @000@ 3 3194 16 186 4 110 @FILLING@ 7 3201 16 187 4 120 @$20@ 3 3204 16 188 4 130 @EXCEEDS@ 7 3211 16 189 4 140 @)30@ 3 3214 16 190 4 150 @EXAMINE@ 7 3221 17 191 4 160 @)04@ 3 3224 17 192 4 170 @DISPLAY@ 7 3231 17 193 4 180 @)05@ 3 3234 17 194 4 190 PTB07 @COMPUTE@ 7 3241 17 195 4 200 @$08@ 3 3244 17 196 4 210 @ZEROES@ 6 3250 17 197 4 220 @$02@ 3 3253 18 1 1401 COBOL - A07 PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 4 230 @SPACES@ 6 3259 18 199 4 240 @*13@ 3 3262 18 200 4 250 @REWIND@ 6 3268 18 201 5 010 @/11@ 3 3271 18 202 5 020 @RECORD@ 6 3277 18 203 5 030 @$09@ 3 3280 18 204 5 040 @QUOTES@ 6 3286 19 205 5 050 @*15@ 3 3289 19 206 5 060 @OUTPUT@ 6 3295 19 207 5 070 @*16@ 3 3298 19 208 5 080 @GIVING@ 6 3304 19 209 5 090 @ #@ 3 3307 19 210 5 100 @EQUALS@ 6 3313 19 211 5 110 @)06@ 3 3316 20 212 5 120 @DIVIDE@ 6 3322 20 213 5 130 @*17@ 3 3325 20 214 5 140 @BEFORE@ 6 3331 20 215 5 150 @)07@ 3 3334 20 216 5 160 PTB06 @ACCEPT@ 6 3340 20 217 5 170 @$08@ 3 3343 20 218 5 180 @ZEROS@ 5 3348 21 219 5 190 @)08@ 3 3351 21 220 5 200 @WRITE@ 5 3356 21 221 5 210 @*18@ 3 3359 21 222 5 220 @UNTIL@ 5 3364 21 223 5 230 @ *@ 3 3367 21 224 5 240 @TIMES@ 5 3372 21 225 5 250 @A05@ 3 3375 22 226 6 010 @TALLY@ 5 3380 22 227 6 020 @$02@ 3 3383 22 228 6 030 @SPACE@ 5 3388 22 229 6 040 @$09@ 3 3391 22 230 6 050 @QUOTE@ 5 3396 22 231 6 060 @000@ 3 3399 22 232 6 070 @LINES@ 5 3404 23 233 6 080 @*20@ 3 3407 23 234 6 090 @INPUT@ 5 3412 23 235 6 100 @*38@ 3 3415 23 236 6 110 @FIRST@ 5 3420 23 237 6 120 @000@ 3 3423 23 238 6 130 @ERROR@ 5 3428 23 239 6 140 @ #@ 3 3431 24 240 6 150 @EQUAL@ 5 3436 24 241 6 160 @000@ 3 3439 24 242 6 170 @ENTER@ 5 3444 24 243 6 180 @000@ 3 3447 24 244 6 190 @COBOL@ 5 3452 24 245 6 200 @)09@ 3 3455 24 246 6 210 @CLOSE@ 5 3460 25 247 6 220 @)10@ 3 3463 25 1 1401 COBOL - A07 PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 6 230 @ALTER@ 5 3468 25 249 6 240 @*22@ 3 3471 25 250 6 250 PTB05 @AFTER@ 5 3476 25 251 7 010 @$08@ 3 3479 25 252 7 020 @ZERO@ 4 3483 25 253 7 030 @000@ 3 3486 26 254 7 040 @WITH@ 4 3490 26 255 7 050 @*23@ 3 3493 26 256 7 060 @UPON@ 4 3497 26 257 7 070 @ *@ 3 3500 26 258 7 080 @TIME@ 4 3504 26 259 7 090 @*08@ 3 3507 26 260 7 100 @THRU@ 4 3511 27 261 7 110 @000@ 3 3514 27 262 7 120 @THEN@ 4 3518 27 263 7 130 @000@ 3 3521 27 264 7 140 @THAN@ 4 3525 27 265 7 150 @)11@ 3 3528 27 266 7 160 @STOP@ 4 3532 27 267 7 170 @/10@ 3 3535 28 268 7 180 @SIZE@ 4 3539 28 269 7 190 @)13@ 3 3542 28 270 7 200 @READ@ 4 3546 28 271 7 210 @)14@ 3 3549 28 272 7 220 @OPEN@ 4 3553 28 273 7 230 @*24@ 3 3556 28 274 7 240 @NOTE@ 4 3560 29 275 7 250 @*25@ 3 3563 29 276 8 010 @NEXT@ 4 3567 29 277 8 020 @)15@ 3 3570 29 278 8 030 @MOVE@ 4 3574 29 279 8 040 @*26@ 3 3577 29 280 8 050 @LOCK@ 4 3581 29 281 8 060 @000@ 3 3584 30 282 8 070 @LINE@ 4 3588 30 283 8 080 @$21@ 3 3591 30 284 8 090 @LESS@ 4 3595 30 285 8 100 @*27@ 3 3598 30 286 8 110 @INTO@ 4 3602 30 287 8 120 @*28@ 3 3605 30 288 8 130 @FROM@ 4 3609 31 289 8 140 @*29@ 3 3612 31 290 8 150 @FILE@ 4 3616 31 291 8 160 @)16@ 3 3619 31 292 8 170 @EXIT@ 4 3623 31 293 8 180 @*02@ 3 3626 31 294 8 190 PTB04 @ELSE@ 4 3630 31 295 8 200 @*30@ 3 3633 32 296 8 210 @RUN@ 3 3636 32 297 8 220 @$30@ 3 3639 32 1 1401 COBOL - A07 PAGE 5 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 298 8 230 @NOT@ 3 3642 32 299 8 240 @)17@ 3 3645 32 300 8 250 @END@ 3 3648 32 301 9 010 @$32@ 3 3651 32 302 9 020 @AND@ 3 3654 33 303 9 030 @$40@ 3 3657 33 304 9 040 @ALL@ 3 3660 33 305 9 050 @)18@ 3 3663 33 306 9 060 PTB03 @ADD@ 3 3666 33 307 9 070 @000@ 3 3669 33 308 9 080 @TO@ 2 3671 33 309 9 090 @$31@ 3 3674 34 310 9 100 @OR@ 2 3676 34 311 9 110 @000@ 3 3679 34 312 9 120 @ON@ 2 3681 34 313 9 130 @*32@ 3 3684 34 314 9 140 @OF@ 2 3686 34 315 9 150 @*33@ 3 3689 34 316 9 160 @NO@ 2 3691 35 317 9 170 @000@ 3 3694 35 318 9 180 @IS@ 2 3696 35 319 9 190 @*32@ 3 3699 35 320 9 200 @IN@ 2 3701 35 321 9 210 @)19@ 3 3704 35 322 9 220 @IF@ 2 3706 35 323 9 230 @)20@ 3 3709 36 324 9 240 @GO@ 2 3711 36 325 9 250 @*35@ 3 3714 36 326 10 010 @BY@ 2 3716 36 327 10 020 @000@ 3 3719 36 328 10 030 PTB02 @AT@ 2 3721 36 329 10 040 DCW @}@ 1 3722 36 330 10 050 END / 000 080 37 1CLEAR STORAGE 1 ,008015,019026,030,034041,045,053,0570571026 1 CLEAR STORAGE 2 L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 1401 COBOL - A20 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 1 010 000 JOB 1401 COBOL - A20 102 1 020 CTL 631 11 103 1 030 ORG 1300 1300 104 1 040 X1 EQU 89 0089 105 1 050 GETX EQU 335 0335 106 1 060 IORW EQU 343 0343 107 1 070 SUPER EQU 351 0351 108 1 080 PUTX EQU 363 0363 109 1 090 START B PLACE SINGLE .AC 4 1300 B V25 4 110 1 100 DCW VAC 3 1306 T86 4 111 1 110 START1 B GTPTIL 4 1307 B U57 4 112 1 120 DCW VDC 3 1313 T89 4 113 1 130 B PUTSX PUTX #DC 4 1314 B U42 4 114 1 140 A &1,CNTR 7 1318 A Z81 T83 4 115 1 150 B PUTX 4 1325 B 363 4 116 1 160 DCW VAC PUTX .AC-COUNTER FOR EACH 3 1331 T86 5 117 1 170 B PUTX AUTOCODER BLOCK 4 1332 B 363 5 118 1 180 DCW CNTR 3 1338 T83 5 119 1 190 B PLACE 4 1339 B V25 5 120 1 200 DCW CNTR PLACE COUNTER FOR EACH BLOCK 3 1345 T83 5 121 1 210 START2 B GETSX 4 1346 B U24 5 122 1 220 C SX,VDC PLACE AUTOCODER SYMBOLS 7 1350 C T92 T89 5 123 1 230 BE START3 UNTIL #DC 5 1357 B T73 S 6 124 1 240 B PLACE 4 1362 B V25 6 125 1 250 DCW SX 3 1368 T92 6 126 2 010 B START2 4 1369 B T46 6 127 2 020 START3 B PUTSX PUTX #DC AS TRAILING DELIMITER 4 1373 B U42 6 128 2 030 B START1 ---#DC-.AC-NNN-#DC--- 4 1377 B T07 6 129 2 040 CNTR DCW @000@ 3 1383 6 130 2 050 VAC @.AC@ 3 1386 7 131 2 060 VDC @#DC@ 3 1389 7 132 2 070 SX #3 3 1392 7 133 2 080 EOJ B PUTSX 4 1393 B U42 7 134 2 090 B PLACE 4 1397 B V25 7 135 2 100 DCW VDE 3 1403 U20 7 136 2 110 B PLACE 4 1404 B V25 7 137 2 120 DCW VEB 3 1410 U23 8 138 2 130 B SUPER 4 1411 B 351 8 139 2 140 DCW @BD1@ 3 1417 8 140 2 150 VDE @.DE@ 3 1420 8 141 2 160 VEB @.EB@ 3 1423 8 142 2 170 GETSX SBR GTSEX&3 GETSX 4 1424 H U41 8 143 2 180 B GETX 4 1428 B 335 8 144 2 190 DCW &SX 3 1434 T92 9 145 2 200 &EOJ 3 1437 T93 9 146 2 210 GTSEX B * 4 1438 B U41 9 147 2 220 PUTSX SBR PTSEX&3 PUTSX 4 1442 H U56 9 1 1401 COBOL - A20 PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 2 230 B PUTX 4 1446 B 363 9 149 2 240 DCW &SX 3 1452 T92 9 150 2 250 PTSEX B * 4 1453 B U56 9 151 3 010 GTPTIL SBR X1 GTPTIL 4 1457 H 089 10 152 3 020 MLC @P@,GTPSW 7 1461 M Z82 V24 10 153 3 030 MLC X1,GTLSV 7 1468 M 089 V23 10 154 3 040 MLC 2&X1,GTL03&3 7 1475 M 0 2 U89 10 155 3 050 GTL02 B GETSX 4 1482 B U24 10 156 3 060 GTL03 C *,SX 7 1486 C U92 T92 10 157 3 070 BE GTL04 5 1493 B V10 S 11 158 3 080 BCE PUTSX,GTPSW,P 8 1498 B U42 V24 P 11 159 3 090 B GTL02 4 1506 B U82 11 160 3 100 GTL04 MLC GTLSV,X1 7 1510 M V23 089 11 161 3 110 B 3&X1 4 1517 B 0 3 11 162 3 120 GTLSV DCW #3 3 1523 11 163 3 130 GTPSW #1 1 1524 11 164 3 140 PLACE SBR X1 4 1525 H 089 12 165 3 150 SBR PLC2&3,3&X1 7 1529 H V99 0 3 12 166 3 160 MLC 2&X1,PLC1&3 7 1536 M 0 2 V46 12 167 3 170 PLC1 MLC 0,PLCSY 7 1543 M 000 W79 12 168 3 180 PLC1A MLC PLCSY,PLCB 7 1550 M W79 W82 12 169 3 190 C PLCSY,@.EB@ 7 1557 C W79 Z85 12 170 3 200 BE PLC3 5 1564 B W00 S 13 171 3 210 C PLC1A&6,&PLCMAX 7 1569 C V56 Z88 13 172 3 220 BE PLC3 5 1576 B W00 S 13 173 3 230 MA @003@,PLC1A&6 MACRO 174 SW PLC1A&6-2 4 1581 , V54 GEN 13 175 A @003@,PLC1A&6 7 1585 A Z91 V56 GEN 13 176 CW PLC1A&6-2 4 1592 ) V54 GEN 13 177 3 240 PLC2 B 0 4 1596 B 000 13 178 3 250 PLC3 SW PLC5&1 4 1600 , W76 14 179 4 010 B IORW 4 1604 B 343 14 180 4 020 RT 4,PLC5 8 1608 M %U4 W75 R 14 181 4 030 DCW PLC4 3 1618 W23 14 182 4 040 B PLC3 4 1619 B W00 14 183 4 050 PLC4 BSP 4 5 1623 U %U4 B 14 184 4 060 SW PLCMAX&1 4 1628 , Z80 14 185 4 070 B IORW 4 1632 B 343 15 186 4 080 WT 4,PLCA 8 1636 M %U4 W80 W 15 187 4 090 DCW *&1 3 1646 W47 15 188 4 100 WTM 4 5 1647 U %U4 M 15 189 4 110 BSP 4 5 1652 U %U4 B 15 190 4 120 MLC &PLCB,PLC1A&6 7 1657 M Z94 V56 15 191 4 130 ZA @0@,PLCMAX 7 1664 ? Z95 Z79 15 192 4 140 B PLC2 4 1671 B V96 16 193 4 150 PLC5 EQU *&1 1675 194 4 160 DCW @ }@ 2 1676 16 195 4 170 PLCSY DCW #3 3 1679 16 196 4 180 DA 1X300 1680 1979 16 197 4 190 PLCA 1 1680 SBFLD 1 1401 COBOL - A20 PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 4 200 PLCB 3 1682 SBFLD 199 4 210 PLCMAX EQU * 1979 200 4 220 DC @}@ 1 1980 17 201 4 230 LTORG 1981 DCW &1 1 1981 LIT 17 @P@ 1 1982 LIT 17 @.EB@ 3 1985 LIT 17 171 &PLCMAX 3 1988 Z79 ADCON 17 @003@ 3 1991 LIT 18 190 &PLCB 3 1994 W82 ADCON 18 @0@ 1 1995 LIT 18 202 4 240 DCW @}@ 1 1996 18 203 4 250 END START / T00 080 19 1CLEAR STORAGE 1 ,008015,022026,030037,044,049,053053N000000N00001026 1 CLEAR STORAGE 2 L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0? 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 1401 COBOL - BD1 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 1 010 000 JOB 1401 COBOL - BD1 102 1 020 CTL 661111 103 1 030 ORG 1300 1300 104 1 040 PUTX EQU 363 0363 105 1 050 SUPER EQU 351 0351 106 1 060 GETX EQU 335 0335 107 1 070 X B GETSR1 4 1300 B O10 4 108 1 080 C SX,@*91@ 7 1304 C Q18 Q24 4 109 1 090 BU X 5 1311 B T00 / 4 110 1 100 SW 1002 4 1316 , 02 4 111 1 110 B GETSR 4 1320 B M15 4 112 1 120 C SX,@*06@ 7 1324 C Q18 Q27 4 113 1 130 BU DIOG12 5 1331 B M88 / 4 114 1 140 B GETSR1 4 1336 B O10 5 115 1 150 C SX,@.PD@ 7 1340 C Q18 Q30 5 116 1 160 BU DIOG15 5 1347 B M99 / 5 117 1 170 B GETSR 4 1352 B M15 5 118 1 180 C SX,@*94@ 7 1356 C Q18 Q33 5 119 1 190 BU DIOG16 5 1363 B N10 / 5 120 1 200 B GETSR 4 1368 B M15 5 121 1 210 C SX,@*09@ 7 1372 C Q18 Q36 6 122 1 220 BU DIOG17 5 1379 B N21 / 6 123 1 230 B GETSR1 4 1384 B O10 6 124 1 240 C SX,@.PD@ 7 1388 C Q18 Q30 6 125 1 250 BU DIOG15 5 1395 B M99 / 6 126 2 010 B GETSR 4 1400 B M15 6 127 2 020 C SX,@*98@ 7 1404 C Q18 Q39 6 128 2 030 BU DIOG27 5 1411 B N54 / 7 129 2 040 K2 B GETSR1 4 1416 B O10 7 130 2 050 C SX,@.PD@ 7 1420 C Q18 Q30 7 131 2 060 BU DIOG15 5 1427 B M99 / 7 132 2 070 B GETSR 4 1432 B M15 7 133 2 080 C SX,@*84@ 7 1436 C Q18 Q42 7 134 2 090 BU DIOG18 5 1443 B N32 / 7 135 2 100 NOREL B GETSR 4 1448 B M15 8 136 2 110 MLC SX,HOLD 7 1452 M Q18 Q15 8 137 2 120 NOREL1 C SX,@*76@ 7 1459 C Q18 Q45 8 138 2 130 BE MEMORY 5 1466 B L91 S 8 139 2 140 C SX,@*90@ 7 1471 C Q18 Q48 8 140 2 150 BE NOREL 5 1478 B U48 S 8 141 2 160 C SX,@*99@ 7 1483 C Q18 Q51 9 142 2 170 BE NOREL 5 1490 B U48 S 9 143 2 180 C SX,@*97@ 7 1495 C Q18 Q54 9 144 2 190 BU DIOG22 5 1502 B N65 / 9 145 2 200 K3 B GETSR1 4 1507 B O10 9 146 2 210 C SX,@.PD@ 7 1511 C Q18 Q30 9 147 2 220 BU DIOG15 5 1518 B M99 / 10 1 1401 COBOL - BD1 PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 2 230 B GETSR 4 1523 B M15 10 149 2 240 C SX,@*84@ 7 1527 C Q18 Q42 10 150 2 250 BU DIOG18 5 1534 B N32 / 10 151 3 010 XYZ B GETSR 4 1539 B M15 10 152 3 020 XYZ1 MLC SX,HOLD 7 1543 M Q18 Q15 10 153 3 030 C SX,@*76@ 7 1550 C Q18 Q45 10 154 3 040 BE MEMOR1 5 1557 B W26 S 11 155 3 050 C SX,@*75@ 7 1562 C Q18 Q57 11 156 3 060 BE ASSIGN 5 1569 B X14 S 11 157 3 070 C SX,@*72@ 7 1574 C Q18 Q60 11 158 3 080 BE XYZ 5 1581 B V39 S 11 159 3 090 C SX,@*99@ 7 1586 C Q18 Q51 11 160 3 100 BE XYZ 5 1593 B V39 S 12 161 3 110 C SX,@*95@ 7 1598 C Q18 Q63 12 162 3 120 BE SPECIA 5 1605 B X50 S 12 163 3 130 COULD C SX,@*93@ 7 1610 C Q18 Q66 12 164 3 140 BE INOUT 5 1617 B !85 S 12 165 3 150 B DIOG22 4 1622 B N65 12 166 3 160 MEMOR1 B GETSR 4 1626 B M15 12 167 3 170 C SX,@.NL@ 7 1630 C Q18 Q69 13 168 3 180 BE NUM 5 1637 B X06 S 13 169 3 190 C SX,@*74@ 7 1642 C Q18 Q72 13 170 3 200 BU DIOG3 5 1649 B P85 / 13 171 3 210 B GETSR 4 1654 B M15 13 172 3 220 C SX,@.NL@ 7 1658 C Q18 Q69 13 173 3 230 BU DIOG3 5 1665 B P85 / 14 174 3 240 B SKIP 4 1670 B K00 14 175 3 250 B GETSR 4 1674 B M15 14 176 4 010 C SX,@*08@ 7 1678 C Q18 Q75 14 177 4 020 BU DIOG3 5 1685 B P85 / 14 178 4 030 B GETSR 4 1690 B M15 14 179 4 040 C SX,@.NL@ 7 1694 C Q18 Q69 14 180 4 050 BU DIOG3 5 1701 B P85 / 15 181 4 060 NUM B SKIP 4 1706 B K00 15 182 4 070 B XYZ 4 1710 B V39 15 183 4 080 ASSIGN B GETSR 4 1714 B M15 15 184 4 090 C SX,@*92@ 7 1718 C Q18 Q78 15 185 4 100 BU DIOG3 5 1725 B P85 / 15 186 4 110 B GETSR 4 1730 B M15 15 187 4 120 C SX,@*89@ 7 1734 C Q18 Q81 16 188 4 130 BU DIOG3 5 1741 B P85 / 16 189 4 140 B XYZ 4 1746 B V39 16 190 4 150 SPECIA B GETSR1 4 1750 B O10 16 191 4 160 C SX,@.PD@ 7 1754 C Q18 Q30 16 192 4 170 BU DIOG15 5 1761 B M99 / 16 193 4 180 SPECL B GETSR 4 1766 B M15 16 194 4 190 SPECL1 MLC SX,HOLD 7 1770 M Q18 Q15 17 195 4 200 C SX,@*80@ 7 1777 C Q18 Q84 17 196 4 210 BE R1402 5 1784 B Y89 S 17 197 4 220 C SX,@*88@ 7 1789 C Q18 Q87 17 1 1401 COBOL - BD1 PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 4 230 BE R1402 5 1796 B Y89 S 17 199 4 240 C SX,@*83@ 7 1801 C Q18 Q90 17 200 4 250 BE P1403 5 1808 B Z57 S 18 201 5 010 C SX,@*82@ 7 1813 C Q18 Q93 18 202 5 020 BE R1402 5 1820 B Y89 S 18 203 5 030 C SX,@*86@ 7 1825 C Q18 Q96 18 204 5 040 BE CB1403 5 1832 B Z81 S 18 205 5 050 C SX,@*85@ 7 1837 C Q18 Q99 18 206 5 060 BE CB1403 5 1844 B Z81 S 19 207 5 070 C SX,@*87@ 7 1849 C Q18 R02 19 208 5 080 BE CB1403 5 1856 B Z81 S 19 209 5 090 C SX,@*81@ 7 1861 C Q18 R05 19 210 5 100 BE SS1401 5 1868 B !61 S 19 211 5 110 SPP C SX,@.NM@ 7 1873 C Q18 R08 19 212 5 120 BE SCP 5 1880 B Z45 S 20 213 5 130 B COULD 4 1885 B W10 20 214 5 140 R1402 B GETSR 4 1889 B M15 20 215 5 150 C SX,@.NL@ 7 1893 C Q18 Q69 20 216 5 160 BE R14021 5 1900 B Z17 S 20 217 5 170 R140X C SX,@.NM@ 7 1905 C Q18 R08 20 218 5 180 BU DIOG3 5 1912 B P85 / 20 219 5 190 R14021 B SKIP 4 1917 B K00 21 220 5 200 B GETSR 4 1921 B M15 21 221 5 210 C SX,@.NM@ 7 1925 C Q18 R08 21 222 5 220 BU SPECL1 5 1932 B X70 / 21 223 5 230 B SKIP 4 1937 B K00 21 224 5 240 B SPECL 4 1941 B X66 21 225 5 250 SCP B SKIP 4 1945 B K00 21 226 6 010 B GETSR 4 1949 B M15 22 227 6 020 B SPECL1 4 1953 B X70 22 228 6 030 P1403 B GETSR 4 1957 B M15 22 229 6 040 C SX,@.NM@ 7 1961 C Q18 R08 22 230 6 050 BU DIOG3 5 1968 B P85 / 22 231 6 060 B SKIP 4 1973 B K00 22 232 6 070 B SPECL 4 1977 B X66 22 233 6 080 CB1403 B GETSR 4 1981 B M15 23 234 6 090 C SX,@*31@ 7 1985 C Q18 R11 23 235 6 100 BE ON 5 1992 B !09 S 23 236 6 110 C SX,@*71@ 7 1997 C Q18 R14 23 237 6 120 BU DIOG3 5 2004 B P85 / 23 238 6 130 ON B GETSR 4 2009 B M15 23 239 6 140 C SX,@.NM@ 7 2013 C Q18 R08 23 240 6 150 BU DIOG3 5 2020 B P85 / 24 241 6 160 B SKIP 4 2025 B K00 24 242 6 170 B GETSR 4 2029 B M15 24 243 6 180 C SX,@*31@ 7 2033 C Q18 R11 24 244 6 190 BE ON 5 2040 B !09 S 24 245 6 200 C SX,@*71@ 7 2045 C Q18 R14 24 246 6 210 BE ON 5 2052 B !09 S 24 247 6 220 B SPECL1 4 2057 B X70 25 1 1401 COBOL - BD1 PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 6 230 SS1401 B GETSR 4 2061 B M15 25 249 6 240 C SX,@.NM@ 7 2065 C Q18 R08 25 250 6 250 BU DIOG3 5 2072 B P85 / 25 251 7 010 B SKIP 4 2077 B K00 25 252 7 020 B CB1403 4 2081 B Z81 25 253 7 030 INOUT B GETSR 4 2085 B M15 25 254 7 040 C SX,@*09@ 7 2089 C Q18 Q36 26 255 7 050 BU DIOG17 5 2096 B N21 / 26 256 7 060 B GETSR1 4 2101 B O10 26 257 7 070 C SX,@.PD@ 7 2105 C Q18 Q30 26 258 7 080 BU DIOG15 5 2112 B M99 / 26 259 7 090 B GETSR 4 2117 B M15 26 260 7 100 C SX,@*96@ 7 2121 C Q18 R17 26 261 7 110 BU DIOG25 5 2128 B N43 / 27 262 7 120 K10 B GETSR1 4 2133 B O10 27 263 7 130 C SX,@.PD@ 7 2137 C Q18 Q30 27 264 7 140 BU DIOG15 5 2144 B M99 / 27 265 7 150 FILE B GETSR 4 2149 B M15 27 266 7 160 FILE1 MLC SX,HOLD 7 2153 M Q18 Q15 27 267 7 170 C SX,@*70@ 7 2160 C Q18 R20 27 268 7 180 BE RESER 5 2167 B K31 S 28 269 7 190 C SX,@*77@ 7 2172 C Q18 R23 28 270 7 200 BE SELECT 5 2179 B K71 S 28 271 7 210 C SX,@*75@ 7 2184 C Q18 Q57 28 272 7 220 BE ASG 5 2191 B K95 S 28 273 7 230 B DIOG22 4 2196 B N65 28 274 7 240 SKIP SBR FINSH&3 4 2200 H K30 28 275 7 250 MLC SX,TEMP 7 2204 M Q18 Q21 29 276 8 010 SKIP1 B GETSR 4 2211 B M15 29 277 8 020 C SX,TEMP 7 2215 C Q18 Q21 29 278 8 030 BU SKIP1 5 2222 B K11 / 29 279 8 040 FINSH B * 4 2227 B K30 29 280 8 050 RESER B GETSR 4 2231 B M15 29 281 8 060 C SX,@*33@ 7 2235 C Q18 R26 29 282 8 070 BE FILE 5 2242 B J49 S 30 283 8 080 B GETSR 4 2247 B M15 30 284 8 090 C SX,@1 @ 7 2251 C Q18 R29 30 285 8 100 BU DIOG3 5 2258 B P85 / 30 286 8 110 B GETSR 4 2263 B M15 30 287 8 120 B FILE 4 2267 B J49 30 288 8 130 SELECT B GETSR 4 2271 B M15 30 289 8 140 C SX,@.NM@ 7 2275 C Q18 R08 31 290 8 150 BU DIOG3 5 2282 B P85 / 31 291 8 160 B SKIP 4 2287 B K00 31 292 8 170 B FILE 4 2291 B J49 31 293 8 180 ASG B GETSR 4 2295 B M15 31 294 8 190 C SX,@*89@ 7 2299 C Q18 Q81 31 295 8 200 BE ASG1 5 2306 B L51 S 31 296 8 210 C SX,@*80@ 7 2311 C Q18 Q84 32 297 8 220 BE ASG2 5 2318 B L71 S 32 1 1401 COBOL - BD1 PAGE 5 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 298 8 230 C SX,@*88@ 7 2323 C Q18 Q87 32 299 8 240 BE ASG2 5 2330 B L71 S 32 300 8 250 C SX,@*83@ 7 2335 C Q18 Q90 32 301 9 010 BE FILE 5 2342 B J49 S 32 302 9 020 B DIOG3 4 2347 B P85 33 303 9 030 ASG1 B GETSR 4 2351 B M15 33 304 9 040 C SX,@.NL@ 7 2355 C Q18 Q69 33 305 9 050 BU DIOG3 5 2362 B P85 / 33 306 9 060 ASGG B SKIP 4 2367 B K00 33 307 9 070 ASG2 B GETSR 4 2371 B M15 33 308 9 080 C SX,@.NL@ 7 2375 C Q18 Q69 33 309 9 090 BE ASGG 5 2382 B L67 S 34 310 9 100 B FILE1 4 2387 B J53 34 311 9 110 MEMORY B GETSR 4 2391 B M15 34 312 9 120 C SX,@.NL@ 7 2395 C Q18 Q69 34 313 9 130 BU DIOG3 5 2402 B P85 / 34 314 9 140 B SKIP 4 2407 B K00 34 315 9 150 B NOREL 4 2411 B U48 34 316 9 160 GETSR SBR EXIT&3 4 2415 H M87 35 317 9 170 GETB1 B GETX 4 2419 B 335 35 318 9 180 DCW SX 3 2425 Q18 35 319 9 190 DCW EOP 3 2428 P96 35 320 9 200 B PUTX 4 2429 B 363 35 321 9 210 DCW SX 3 2435 Q18 35 322 9 220 C SX,@.CD@ 7 2436 C Q18 R32 35 323 9 230 BE CARD 5 2443 B N76 S 36 324 9 240 C SX,@/24@ 7 2448 C Q18 R35 36 325 9 250 BE DATA 5 2455 B P55 S 36 326 10 010 C SX,@.DG@ 7 2460 C Q18 R38 36 327 10 020 BE DGG 5 2467 B O02 S 36 328 10 030 C SX,@.PD@ 7 2472 C Q18 Q30 36 329 10 040 BE GETB1 5 2479 B M19 S 37 330 10 050 EXIT B * 4 2484 B M87 37 331 10 060 DIOG12 MLC @B2I@,HOLD 7 2488 M R41 Q15 37 332 10 070 B DIOG 4 2495 B O35 37 333 10 080 DIOG15 MLC @B2G@,HOLD 7 2499 M R44 Q15 37 334 10 090 B DIOG 4 2506 B O35 37 335 10 100 DIOG16 MLC @B2A@,HOLD 7 2510 M R47 Q15 37 336 10 110 B DIOG 4 2517 B O35 38 337 10 120 DIOG17 MLC @B2H@,HOLD 7 2521 M R50 Q15 38 338 10 130 B DIOG 4 2528 B O35 38 339 10 140 DIOG18 MLC @B2C@,HOLD 7 2532 M R53 Q15 38 340 10 150 B DIOG 4 2539 B O35 38 341 10 160 DIOG25 MLC @B2E@,HOLD 7 2543 M R56 Q15 38 342 10 170 B DIOG 4 2550 B O35 38 343 10 180 DIOG27 MLC @B2B@,HOLD 7 2554 M R59 Q15 39 344 10 190 B DIOG 4 2561 B O35 39 345 10 200 DIOG22 MLC @B2D@,HOLD 7 2565 M R62 Q15 39 346 10 210 B DIOG 4 2572 B O35 39 347 10 220 CARD B GETSR1 4 2576 B O10 39 1 1401 COBOL - BD1 PAGE 6 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 348 10 230 MLC SX,CARD1-3 7 2580 M Q18 Q09 39 349 10 240 B GETSR1 4 2587 B O10 39 350 10 250 MLC SX,CARD1 7 2591 M Q18 Q12 40 351 11 010 B GETB1 4 2598 B M19 40 352 11 020 DGG B GETSR1 4 2602 B O10 40 353 11 030 B GETB1 4 2606 B M19 40 354 11 040 GETSR1 SBR EXIT1&3 4 2610 H O34 40 355 11 050 GOT1 B GETX 4 2614 B 335 40 356 11 060 DCW SX 3 2620 Q18 40 357 11 070 DCW EOP 3 2623 P96 41 358 11 080 B PUTX 4 2624 B 363 41 359 11 090 DCW SX 3 2630 Q18 41 360 11 100 EXIT1 B * 4 2631 B O34 41 361 11 110 DIOG B PUTX 4 2635 B 363 41 362 11 120 DCW &@.DM@ 3 2641 R65 41 363 11 130 DGX1 B PUTX 4 2642 B 363 41 364 11 140 DCW CARD1-3 3 2648 Q09 42 365 11 150 B PUTX 4 2649 B 363 42 366 11 160 DCW CARD1 3 2655 Q12 42 367 11 170 B PUTX 4 2656 B 363 42 368 11 180 DCW HOLD 3 2662 Q15 42 369 11 190 DIOG1 C SX,@*98@ 7 2663 C Q18 Q39 42 370 11 200 BE K2 5 2670 B U16 S 42 371 11 210 C SX,@*97@ 7 2675 C Q18 Q54 43 372 11 220 BE K3 5 2682 B V07 S 43 373 11 230 C SX,@*95@ 7 2687 C Q18 Q63 43 374 11 240 BE SPECIA 5 2694 B X50 S 43 375 11 250 C SX,@*93@ 7 2699 C Q18 Q66 43 376 12 010 BE INOUT 5 2706 B !85 S 43 377 12 020 C SX,@*96@ 7 2711 C Q18 R17 44 378 12 030 BE K10 5 2718 B J33 S 44 379 12 040 C SX,@*75@ 7 2723 C Q18 Q57 44 380 12 050 BE ASG 5 2730 B K95 S 44 381 12 060 C SX,@*77@ 7 2735 C Q18 R23 44 382 12 070 BE SELECT 5 2742 B K71 S 44 383 12 080 B GETSR 4 2747 B M15 45 384 12 090 B DIOG1 4 2751 B O63 45 385 12 100 DATA B GETSR 4 2755 B M15 45 386 12 110 C SX,@/11@ 7 2759 C Q18 R68 45 387 12 120 BE EOP 5 2766 B P96 S 45 388 12 130 MLC SX,199 7 2771 M Q18 199 45 389 12 140 B SUPER 4 2778 B 351 45 390 12 150 DCW @BD2@ 3 2784 46 391 12 160 DIOG3 B PUTX 4 2785 B 363 46 392 12 170 DCW &@.ZD@ 3 2791 R71 46 393 12 180 B DGX1 4 2792 B O42 46 394 12 190 EOP SW 1000 4 2796 , 00 46 395 12 200 B SUPER 4 2800 B 351 46 396 12 210 DCW @BD6@ 3 2806 46 397 12 220 CARD1 DCW #6 6 2812 47 1 1401 COBOL - BD1 PAGE 7 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 398 12 230 HOLD DCW #3 3 2815 47 399 12 240 SX DCW #3 3 2818 47 400 12 250 TEMP DCW #3 3 2821 47 401 13 010 LTORG 2822 DCW @*91@ 3 2824 LIT 47 @*06@ 3 2827 LIT 47 @.PD@ 3 2830 LIT 47 @*94@ 3 2833 LIT 48 @*09@ 3 2836 LIT 48 @*98@ 3 2839 LIT 48 @*84@ 3 2842 LIT 48 @*76@ 3 2845 LIT 48 @*90@ 3 2848 LIT 48 @*99@ 3 2851 LIT 48 @*97@ 3 2854 LIT 49 @*75@ 3 2857 LIT 49 @*72@ 3 2860 LIT 49 @*95@ 3 2863 LIT 49 @*93@ 3 2866 LIT 49 @.NL@ 3 2869 LIT 49 @*74@ 3 2872 LIT 49 @*08@ 3 2875 LIT 50 @*92@ 3 2878 LIT 50 @*89@ 3 2881 LIT 50 @*80@ 3 2884 LIT 50 @*88@ 3 2887 LIT 50 @*83@ 3 2890 LIT 50 @*82@ 3 2893 LIT 50 @*86@ 3 2896 LIT 51 @*85@ 3 2899 LIT 51 @*87@ 3 2902 LIT 51 @*81@ 3 2905 LIT 51 @.NM@ 3 2908 LIT 51 @*31@ 3 2911 LIT 51 @*71@ 3 2914 LIT 51 @*96@ 3 2917 LIT 52 @*70@ 3 2920 LIT 52 @*77@ 3 2923 LIT 52 @*33@ 3 2926 LIT 52 @1 @ 3 2929 LIT 52 @.CD@ 3 2932 LIT 52 @/24@ 3 2935 LIT 52 @.DG@ 3 2938 LIT 53 @B2I@ 3 2941 LIT 53 @B2G@ 3 2944 LIT 53 @B2A@ 3 2947 LIT 53 @B2H@ 3 2950 LIT 53 @B2C@ 3 2953 LIT 53 @B2E@ 3 2956 LIT 53 @B2B@ 3 2959 LIT 54 1 1401 COBOL - BD1 PAGE 8 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD @B2D@ 3 2962 LIT 54 @.DM@ 3 2965 LIT 54 @/11@ 3 2968 LIT 54 @.ZD@ 3 2971 LIT 54 402 13 020 ORG 2972 403 13 030 DCW @}@ 1 2972 54 404 13 040 END / 000 080 55 1CLEAR STORAGE 1 ,008015,022026,030037,044,049,053053N000000N00001026 1 CLEAR STORAGE 2 L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0? 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 1401 COBOL - BD2 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 1 010 000 JOB 1401 COBOL - BD2 102 1 020 CTL 661111 103 1 030 ORG 1300 1300 104 1 040 SUPER EQU 351 0351 105 1 050 X1 EQU 89 0089 106 1 060 X2 EQU 94 0094 107 1 070 X3 EQU 99 0099 108 1 080 GETX EQU 335 0335 109 1 090 PUTX EQU 363 0363 110 1 100 C 199,@*06@ 7 1300 C 199 E55 4 111 1 110 BU DIOG17 5 1307 B C96 / 4 112 1 120 B GETSR 4 1312 B ?08 4 113 1 130 C SX,@.PD@ 7 1316 C E51 E58 4 114 1 140 BU DIOG18 5 1323 B D07 / 4 115 1 150 B GETSR 4 1328 B ?08 4 116 1 160 C SX,@*29@ 7 1332 C E51 E61 4 117 1 170 BE FILEX 5 1339 B !49 S 5 118 1 180 C SX,@/01@ 7 1344 C E51 E64 5 119 1 190 BE WRK 5 1351 B U26 S 5 120 1 200 C SX,@/09@ 7 1356 C E51 E67 5 121 1 210 BU DIOG19 5 1363 B D18 / 5 122 1 220 XR12 BCE DIOG20,CONSW,1 8 1368 B D33 E29 1 5 123 1 230 A @1@,CONSW 7 1376 A E68 E29 6 124 1 240 XR B GETSR 4 1383 B ?08 6 125 1 250 C SX,@*09@ 7 1387 C E51 E71 6 126 2 010 BU DIOG21 5 1394 B D44 / 6 127 2 020 B GETSX 4 1399 B O76 6 128 2 030 SBR EXRB&3,RECORD 7 1403 H O55 V40 6 129 2 040 SBR YZ1&3 4 1410 H W66 6 130 2 050 SBR YZ2&3 4 1414 H W81 7 131 2 060 SBR DEXRB&3 4 1418 H O70 7 132 2 070 B RECORD 4 1422 B V40 7 133 2 080 WRK BCE DIOG22,WRKSW,1 8 1426 B D55 E30 1 7 134 2 090 A @1@,WRKSW 7 1434 A E68 E30 7 135 2 100 B XR 4 1441 B T83 7 136 2 110 FILE B GETSX 4 1445 B O76 7 137 2 120 FILE1 MLC SX,HOLDS 7 1449 M E51 E48 8 138 2 130 C SX,@/26@ 7 1456 C E51 E74 8 139 2 140 BE FD 5 1463 B W87 S 8 140 2 150 C SX,@/06@ 7 1468 C E51 E77 8 141 2 160 BE RECNG 5 1475 B J36 S 8 142 2 170 C SX,@/16@ 7 1480 C E51 E80 8 143 2 180 BE BLOCK 5 1487 B J82 S 9 144 2 190 C SX,@/11@ 7 1492 C E51 E83 9 145 2 200 BE RECORS 5 1499 B K84 S 9 146 2 210 C SX,@/19@ 7 1504 C E51 E86 9 147 2 220 BE LABEL 5 1511 B L19 S 9 1 1401 COBOL - BD2 PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 2 230 C SX,@/13@ 7 1516 C E51 E89 9 149 2 240 BE VALUE 5 1523 B M62 S 10 150 2 250 C SX,@/24@ 7 1528 C E51 E92 10 151 3 010 BE DATA 5 1535 B N93 S 10 152 3 020 RECORD MLC SX,HOLDS 7 1540 M E51 E48 10 153 3 030 C SX,@/10@ 7 1547 C E51 E95 10 154 3 040 BE XA 5 1554 B D81 S 10 155 3 050 C SX,@/05@ 7 1559 C E51 E98 11 156 3 060 BE XA 5 1566 B D81 S 11 157 3 070 C SX,@/14@ 7 1571 C E51 F01 11 158 3 080 BE XA 5 1578 B D81 S 11 159 3 090 C SX,@/18@ 7 1583 C E51 F04 11 160 3 100 BE XA 5 1590 B D81 S 11 161 3 110 C SX,@/23@ 7 1595 C E51 F07 12 162 3 120 BE XA 5 1602 B D81 S 12 163 3 130 C SX,@)12@ 7 1607 C E51 F10 12 164 3 140 BE XA 5 1614 B D81 S 12 165 3 150 C SX,@/07@ 7 1619 C E51 F13 12 166 3 160 BE XAA 5 1626 B D77 S 12 167 3 170 C SX,@/12@ 7 1631 C E51 F16 13 168 3 180 BE XA 5 1638 B D81 S 13 169 3 190 C SX,@/13@ 7 1643 C E51 E89 13 170 3 200 BE VALUE1 5 1650 B L74 S 13 171 3 210 B CONTIN 4 1655 B M89 13 172 3 220 YZ B GETSX 4 1659 B O76 13 173 3 230 YZ1 BCE FILE1,SX-2,/ 8 1663 B U49 E49 / 14 174 3 240 C SX,@)12@ 7 1671 C E51 F10 14 175 3 250 YZ2 BE FILE1 5 1678 B U49 S 14 176 4 010 B DIOG7 4 1683 B Y30 14 177 4 020 FD B GETSR 4 1687 B ?08 14 178 4 030 MLC @FD@,SAVE1 7 1691 M F18 E45 14 179 4 040 ZA &0,SWCLR 7 1698 ? F19 E28 15 180 4 050 CW SWX 4 1705 ) E31 15 181 4 060 C SX,@.NM@ 7 1709 C E51 F22 15 182 4 070 B SXB1 4 1716 B E09 15 183 4 080 DIOG SBR ME&3,DIGG 7 1720 H X58 X59 15 184 4 090 B PUTX 4 1727 B 363 15 185 4 100 DCW &@.DZ@ 3 1733 F25 15 186 4 110 DIG7 B PUTX 4 1734 B 363 16 187 4 120 DCW CARD1-3 3 1740 E40 16 188 4 130 B PUTX 4 1741 B 363 16 189 4 140 DCW CARD1 3 1747 E43 16 190 4 150 B PUTX 4 1748 B 363 16 191 4 160 DCW HOLDS 3 1754 E48 16 192 4 170 ME B * 4 1755 B X58 16 193 4 180 DIGG B GETSR 4 1759 B ?08 17 194 4 190 DIGGZ MLC @N@,LXR1 7 1763 M F26 C38 17 195 4 200 BW ERR0,SRA 8 1770 V Y55 E52 1 17 196 4 210 C SX,@.PD@ 7 1778 C E51 E58 17 197 4 220 BE POD1 5 1785 B A65 S 17 1 1401 COBOL - BD2 PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 4 230 SPDG B GETSR 4 1790 B ?08 17 199 4 240 BCE YZ1,SX-2,/ 8 1794 B W63 E49 / 18 200 4 250 C SX,@)12@ 7 1802 C E51 F10 18 201 5 010 BE YZ1 5 1809 B W63 S 18 202 5 020 C SX,@*01@ 7 1814 C E51 F29 18 203 5 030 BE DONE1 5 1821 B C89 S 18 204 5 040 B DIGG 4 1826 B X59 18 205 5 050 DIOG7 MLC @B5O@,HOLDS 7 1830 M F32 E48 19 206 5 060 DIOGG SBR ME&3,SPDG 7 1837 H X58 X90 19 207 5 070 DIOGX B PUTX 4 1844 B 363 19 208 5 080 DCW &@.DM@ 3 1850 F35 19 209 5 090 B DIG7 4 1851 B X34 19 210 5 100 ERR0 CW SRA 4 1855 ) E52 19 211 5 110 B GETSR 4 1859 B ?08 19 212 5 120 C SX,@/01@ 7 1863 C E51 E64 20 213 5 130 BE WRK 5 1870 B U26 S 20 214 5 140 C SX,@*01@ 7 1875 C E51 F29 20 215 5 150 BE DONE1 5 1882 B C89 S 20 216 5 160 C SX,@*29@ 7 1887 C E51 E61 20 217 5 170 BE FILEX 5 1894 B !49 S 20 218 5 180 C SX,@/09@ 7 1899 C E51 E67 21 219 5 190 BE XR12 5 1906 B T68 S 21 220 5 200 B ERR0 4 1911 B Y55 21 221 5 210 DIOG8 MLC @B4A@,HOLDS 7 1915 M F38 E48 21 222 5 220 B DIOGG 4 1922 B Y37 21 223 5 230 EOP SW 1001 4 1926 , 01 21 224 5 240 B SUPER 4 1930 B 351 21 225 5 250 DCW @BD6@ 3 1936 22 226 6 010 DIOG9 MLC @B4B@,HOLDS 7 1937 M F41 E48 22 227 6 020 B DIOGG 4 1944 B Y37 22 228 6 030 DIOG10 MLC @B4C@,HOLDS 7 1948 M F44 E48 22 229 6 040 B DIOGG 4 1955 B Y37 22 230 6 050 DIOG11 SBR ME&3 4 1959 H X58 22 231 6 060 MLC @B4D@,HOLDS 7 1963 M F47 E48 22 232 6 070 B DIOGG1 4 1970 B J71 23 233 6 080 DIOG12 SBR ME&3 4 1974 H X58 23 234 6 090 MLC @B4E@,HOLDS 7 1978 M F50 E48 23 235 6 100 B DIOGG1 4 1985 B J71 23 236 6 110 DIOG13 SBR ME&3 4 1989 H X58 23 237 6 120 MLC @B4F@,HOLDS 7 1993 M F53 E48 23 238 6 130 B DIOGG1 4 2000 B J71 23 239 6 140 DIOG14 SBR ME&3 4 2004 H X58 24 240 6 150 MLC @B4G@,HOLDS 7 2008 M F56 E48 24 241 6 160 B DIOGG1 4 2015 B J71 24 242 6 170 DIOG15 SBR ME&3 4 2019 H X58 24 243 6 180 MLC @B4H@,HOLDS 7 2023 M F59 E48 24 244 6 190 B DIOGG1 4 2030 B J71 24 245 6 200 DIOG16 SBR ME&3 4 2034 H X58 24 246 6 210 MLC @B4I@,HOLDS 7 2038 M F62 E48 25 247 6 220 B DIOGG1 4 2045 B J71 25 1 1401 COBOL - BD2 PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 6 230 FILEX B GETSR 4 2049 B ?08 25 249 6 240 C SX,@*09@ 7 2053 C E51 E71 25 250 6 250 BU DIOG21 5 2060 B D44 / 25 251 7 010 BCE DIOG8,WRKSW,1 8 2065 B Z15 E30 1 25 252 7 020 BCE DIOG9,CONSW,1 8 2073 B Z37 E29 1 26 253 7 030 SBR DEXRB&3,FILE1 7 2081 H O70 U49 26 254 7 040 SBR YZ2&3 4 2088 H W81 26 255 7 050 SBR EXRB&3 4 2092 H O55 26 256 7 060 SBR YZ1&3 4 2096 H W66 26 257 7 070 B GETSR 4 2100 B ?08 26 258 7 080 C SX,@.PD@ 7 2104 C E51 E58 26 259 7 090 BU DIOG18 5 2111 B D07 / 27 260 7 100 B GETSR 4 2116 B ?08 27 261 7 110 C SX,@/26@ 7 2120 C E51 E74 27 262 7 120 BU DIOG23 5 2127 B D66 / 27 263 7 130 B FD 4 2132 B W87 27 264 7 140 RECNG B GETSR 4 2136 B ?08 27 265 7 150 A @1@,RESW 7 2140 A E68 E25 27 266 7 160 B GETSR 4 2147 B ?08 28 267 7 170 C SX,@1 @ 7 2151 C E51 F65 28 268 7 180 BU DIOG10 5 2158 B Z48 / 28 269 7 190 B GETSR 4 2163 B ?08 28 270 7 200 B YZ 4 2167 B W59 28 271 7 210 DIOGG1 MLC @B@,LXR1 7 2171 M F66 C38 28 272 7 220 B DIOGX 4 2178 B Y44 28 273 7 230 BLOCK B GETSR 4 2182 B ?08 29 274 7 240 C SX,@.NL@ 7 2186 C E51 F69 29 275 7 250 BU DIOG 5 2193 B X20 / 29 276 8 010 A @1@,BLOCKS 7 2198 A E68 E26 29 277 8 020 B SKIP 4 2205 B C46 29 278 8 030 B GETSX 4 2209 B O76 29 279 8 040 C SX,@/11@ 7 2213 C E51 E83 29 280 8 050 BU YZ1 5 2220 B W63 / 30 281 8 060 B GETSX 4 2225 B O76 30 282 8 070 MLC SX,HOLDS 7 2229 M E51 E48 30 283 8 080 C SX,@/19@ 7 2236 C E51 E86 30 284 8 090 BE LABEL 5 2243 B L19 S 30 285 8 100 C SX,@/24@ 7 2248 C E51 E92 30 286 8 110 BE DATA 5 2255 B N93 S 31 287 8 120 C SX,@/06@ 7 2260 C E51 E77 31 288 8 130 BE RECNG 5 2267 B J36 S 31 289 8 140 C SX,@/11@ 7 2272 C E51 E83 31 290 8 150 BU RECOR2 5 2279 B K95 / 31 291 8 160 RECORS B GETSR 4 2284 B ?08 31 292 8 170 A @1@,RECSW 7 2288 A E68 E27 32 293 8 180 RECOR2 C SX,@.NL@ 7 2295 C E51 F69 32 294 8 190 BU DIOG 5 2302 B X20 / 32 295 8 200 B SKIP 4 2307 B C46 32 296 8 210 B PAUSE 4 2311 B O44 32 297 8 220 B RECOR2 4 2315 B K95 32 1 1401 COBOL - BD2 PAGE 5 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 298 8 230 LABEL B GETSR 4 2319 B ?08 32 299 8 240 A @1@,LABSW 7 2323 A E68 E24 33 300 8 250 C SX,@/11@ 7 2330 C E51 E83 33 301 9 010 BU DIOG 5 2337 B X20 / 33 302 9 020 B GETSR 4 2342 B ?08 33 303 9 030 C SX,@/08@ 7 2346 C E51 F72 33 304 9 040 BE YZ 5 2353 B W59 S 33 305 9 050 C SX,@*14@ 7 2358 C E51 F75 34 306 9 060 BU DIOG 5 2365 B X20 / 34 307 9 070 B YZ 4 2370 B W59 34 308 9 080 VALUE1 B GETSR 4 2374 B ?08 34 309 9 090 VALUE2 C SX-1,@$0@ 7 2378 C E50 F77 34 310 9 100 BE YZ 5 2385 B W59 S 34 311 9 110 C SX,@$40@ 7 2390 C E51 F80 34 312 9 120 BE VALUE1 5 2397 B L74 S 35 313 9 130 C SX,@.NL@ 7 2402 C E51 F69 35 314 9 140 BE AK1 5 2409 B M26 S 35 315 9 150 C SX,@ @@ 7 2414 C E51 F83 35 316 9 160 BU DIOG 5 2421 B X20 / 35 317 9 170 AK1 B SKIP 4 2426 B C46 35 318 9 180 B PAUSE 4 2430 B O44 35 319 9 190 C SX,@.NL@ 7 2434 C E51 F69 36 320 9 200 BE AK1 5 2441 B M26 S 36 321 9 210 C SX,@*08@ 7 2446 C E51 F86 36 322 9 220 BU DIOG 5 2453 B X20 / 36 323 9 230 B VALUE1 4 2458 B L74 36 324 9 240 VALUE B GETSR 4 2462 B ?08 36 325 9 250 C SX,@*32@ 7 2466 C E51 F89 36 326 10 010 BU VALUE2 5 2473 B L78 / 37 327 10 020 A @1@,VALSW 7 2478 A E68 E28 37 328 10 030 B GETSR 4 2485 B ?08 37 329 10 040 CONTIN C SX,@/32@ 7 2489 C E51 F92 37 330 10 050 BE NUML 5 2496 B N49 S 37 331 10 060 C SX,@/30@ 7 2501 C E51 F95 37 332 10 070 BE NUML 5 2508 B N49 S 38 333 10 080 C SX,@/31@ 7 2513 C E51 F98 38 334 10 090 BE NUML 5 2520 B N49 S 38 335 10 100 C SX,@/25@ 7 2525 C E51 G01 38 336 10 110 BE ALPHA 5 2532 B N73 S 38 337 10 120 C SX,@/02@ 7 2537 C E51 G04 38 338 10 130 BU DIOG7 5 2544 B Y30 / 39 339 10 140 NUML B GETSR 4 2549 B ?08 39 340 10 150 NMN C SX,@.NL@ 7 2553 C E51 F69 39 341 10 160 NUML1 BU DIOG 5 2560 B X20 / 39 342 10 170 NMM B SKIP 4 2565 B C46 39 343 10 180 B FILE 4 2569 B U45 39 344 10 190 ALPHA B GETSR 4 2573 B ?08 39 345 10 200 C SX,@ @@ 7 2577 C E51 F83 40 346 10 210 BE NMM 5 2584 B N65 S 40 347 10 220 B NMN 4 2589 B N53 40 1 1401 COBOL - BD2 PAGE 6 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 348 10 230 DATA B GETSR 4 2593 B ?08 40 349 10 240 A @1@,DATAS 7 2597 A E68 E23 40 350 10 250 C SX,@/11@ 7 2604 C E51 E83 40 351 11 010 BU DIOG 5 2611 B X20 / 40 352 11 020 B GETSR 4 2616 B ?08 41 353 11 030 DATA1 C SX,@.NM@ 7 2620 C E51 F22 41 354 11 040 BU DIOG 5 2627 B X20 / 41 355 11 050 B SKIP 4 2632 B C46 41 356 11 060 B PAUSE 4 2636 B O44 41 357 11 070 B DATA1 4 2640 B O20 41 358 11 080 PAUSE SBR EXIT1&3 4 2644 H O75 41 359 11 090 B GETSX 4 2648 B O76 42 360 11 100 EXRB BCE FILE1,SX-2,/ 8 2652 B U49 E49 / 42 361 11 110 C SX,@)12@ 7 2660 C E51 F10 42 362 11 120 DEXRB BE FILE1 5 2667 B U49 S 42 363 11 130 EXIT1 B * 4 2672 B O75 42 364 11 140 GETSX SBR EXTK&3 4 2676 H Q76 42 365 11 150 GETSX1 B GETX 4 2680 B 335 42 366 11 160 DCW SX 3 2686 E51 43 367 11 170 DCW EOP 3 2689 Z26 43 368 11 180 B PUTX 4 2690 B 363 43 369 11 190 DCW SX 3 2696 E51 43 370 11 200 GETSX2 C SX,@.DG@ 7 2697 C E51 G07 43 371 11 210 BU GRB1 5 2704 B P17 / 43 372 11 220 B GETSR1 4 2709 B B25 43 373 11 230 B GETSR1 4 2713 B B25 44 374 11 240 GRB1 C SX,@.CD@ 7 2717 C E51 G10 44 375 11 250 BE CARD 5 2724 B A17 S 44 376 12 010 C SX,@/03@ 7 2729 C E51 G13 44 377 12 020 BE GETSX1 5 2736 B O80 S 44 378 12 030 C SX,@/22@ 7 2741 C E51 G16 44 379 12 040 BE GETSX1 5 2748 B O80 S 45 380 12 050 C SX,@$08@ 7 2753 C E51 G19 45 381 12 060 BE GETSX1 5 2760 B O80 S 45 382 12 070 C SX,@/04@ 7 2765 C E51 G22 45 383 12 080 BE GETSX1 5 2772 B O80 S 45 384 12 090 C SX,@/21@ 7 2777 C E51 G25 45 385 12 100 BE GETSX1 5 2784 B O80 S 46 386 12 110 C SX,@/20@ 7 2789 C E51 G28 46 387 12 120 BE GETSX1 5 2796 B O80 S 46 388 12 130 C SX,@$10@ 7 2801 C E51 G31 46 389 12 140 BE GETSX1 5 2808 B O80 S 46 390 12 150 C SX,@$16@ 7 2813 C E51 G34 46 391 12 160 BE GETSX1 5 2820 B O80 S 47 392 12 170 C SX,@.PD@ 7 2825 C E51 E58 47 393 12 180 BE PERIOD 5 2832 B Q77 S 47 394 12 190 EXIT7 C SX,@*01@ 7 2837 C E51 F29 47 395 12 200 BE DONE1 5 2844 B C89 S 47 396 12 210 C SX,@/01@ 7 2849 C E51 E64 47 397 12 220 BE WORK 5 2856 B C77 S 48 1 1401 COBOL - BD2 PAGE 7 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 398 12 230 C SX,@/09@ 7 2861 C E51 E67 48 399 12 240 BE XR12 5 2868 B T68 S 48 400 12 250 EXTK B * 4 2873 B Q76 48 401 13 010 PERIOD B GETSR1 4 2877 B B25 48 402 13 020 C SX,@.DG@ 7 2881 C E51 G07 48 403 13 030 BU PERD 5 2888 B R01 / 48 404 13 040 B GETSR1 4 2893 B B25 49 405 13 050 B GETSR1 4 2897 B B25 49 406 13 060 PERD C SX,@.CD@ 7 2901 C E51 G10 49 407 13 070 BU CHECKS 5 2908 B ?65 / 49 408 13 080 B CARD 4 2913 B A17 49 409 13 090 C SX,@.NL@ 7 2917 C E51 F69 49 410 13 100 BU CHECKS 5 2924 B ?65 / 49 411 13 110 B GETSR1 4 2929 B B25 50 412 13 120 C SX,@01 @ 7 2933 C E51 G37 50 413 13 130 BE L01 5 2940 B B50 S 50 414 13 140 LV1 MLC @ @,SAVE1 7 2945 M G39 E45 50 415 13 150 B GETSR 4 2952 B ?08 50 416 13 160 B GETSR 4 2956 B ?08 50 417 13 170 C SX,@/23@ 7 2960 C E51 F07 50 418 13 180 BE GETSX1 5 2967 B O80 S 51 419 13 190 C SX,@.NM@ 7 2972 C E51 F22 51 420 13 200 BU DIOG23 5 2979 B D66 / 51 421 13 210 B SKIP 4 2984 B C46 51 422 13 220 B GETSR1 4 2988 B B25 51 423 13 230 C SX,@.CD@ 7 2992 C E51 G10 51 424 13 240 BE DIOG18 5 2999 B D07 S 51 425 13 250 B GETSX2 4 3004 B O97 52 426 14 010 GETSR SBR EXIT8&3 4 3008 H ?64 52 427 14 020 GETP B GETX 4 3012 B 335 52 428 14 030 DCW SX 3 3018 E51 52 429 14 040 DCW EOP 3 3021 Z26 52 430 14 050 B PUTX 4 3022 B 363 52 431 14 060 DCW SX 3 3028 E51 52 432 14 070 C SX,@.DG@ 7 3029 C E51 G07 53 433 14 080 BU XXX8 5 3036 B ?49 / 53 434 14 090 B GETSR1 4 3041 B B25 53 435 14 100 B GETSR1 4 3045 B B25 53 436 14 110 XXX8 C SX,@.CD@ 7 3049 C E51 G10 53 437 14 120 BE CARD 5 3056 B A17 S 53 438 14 130 EXIT8 B * 4 3061 B ?64 53 439 14 140 CHECKS C SX,@*01@ 7 3065 C E51 F29 54 440 14 150 BE EXIT7 5 3072 B Q37 S 54 441 14 160 C SX,@/01@ 7 3077 C E51 E64 54 442 14 170 BE EXIT7 5 3084 B Q37 S 54 443 14 180 C SX,@/26@ 7 3089 C E51 E74 54 444 14 190 BE EXIT7 5 3096 B Q37 S 54 445 14 200 C SX,@/09@ 7 3101 C E51 E67 55 446 14 210 BU DIOG7 5 3108 B Y30 / 55 447 14 220 B EXIT7 4 3113 B Q37 55 1 1401 COBOL - BD2 PAGE 8 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 448 14 230 CARD SBR EXIT7A&3 4 3117 H A64 55 449 14 240 MLC EXIT8&3,KEEPS 7 3121 M ?64 E37 55 450 14 250 B GETSR 4 3128 B ?08 55 451 15 010 MLC SX,CARD1-3 7 3132 M E51 E40 55 452 15 020 B GETSR 4 3139 B ?08 56 453 15 030 MLC SX,CARD1 7 3143 M E51 E43 56 454 15 040 B GETSR 4 3150 B ?08 56 455 15 050 MLC KEEPS,EXIT8&3 7 3154 M E37 ?64 56 456 15 060 EXIT7A B * 4 3161 B A64 56 457 15 070 POD1 B GETSR1 4 3165 B B25 56 458 15 080 C SX,@.DG@ 7 3169 C E51 G07 56 459 15 090 BU POD3 5 3176 B A89 / 57 460 15 100 B GETSR1 4 3181 B B25 57 461 15 110 B GETSR1 4 3185 B B25 57 462 15 120 POD3 C SX,@.CD@ 7 3189 C E51 G10 57 463 15 130 BU DIGGZ 5 3196 B X63 / 57 464 15 140 B CARD 4 3201 B A17 57 465 15 150 C SX,@.NL@ 7 3205 C E51 F69 57 466 15 160 BU DIGGZ 5 3212 B X63 / 58 467 15 170 B GETSR1 4 3217 B B25 58 468 15 180 B LV1 4 3221 B R45 58 469 15 190 GETSR1 SBR DXRB&3 4 3225 H B49 58 470 15 200 B GETX 4 3229 B 335 58 471 15 210 DCW SX 3 3235 E51 58 472 15 220 DCW EOP 3 3238 Z26 58 473 15 230 B PUTX 4 3239 B 363 59 474 15 240 DCW SX 3 3245 E51 59 475 15 250 DXRB B * 4 3246 B B49 59 476 16 010 L01 BW LV1,SWX 8 3250 V R45 E31 1 59 477 16 020 SW SWX 4 3258 , E31 59 478 16 030 C SAVE1,@FD@ 7 3262 C E45 F18 59 479 16 040 BU LV1 5 3269 B R45 / 59 480 16 050 BCE DIOG11,DATAS,0 8 3274 B Z59 E23 0 60 481 16 060 BCE DIOG12,LABSW,0 8 3282 B Z74 E24 0 60 482 16 070 C RESW,@1@ 7 3290 C E25 E68 60 483 16 080 BL DIOG13 5 3297 B Z89 T 60 484 16 090 C BLOCKS,@1@ 7 3302 C E26 E68 60 485 16 100 BL DIOG14 5 3309 B !04 T 61 486 16 110 C RECSW,@1@ 7 3314 C E27 E68 61 487 16 120 BL DIOG15 5 3321 B !19 T 61 488 16 130 C VALSW,@1@ 7 3326 C E28 E68 61 489 16 140 BL DIOG16 5 3333 B !34 T 61 490 16 150 LXR1 NOP DIGG 4 3338 N X59 61 491 16 160 B LV1 4 3342 B R45 61 492 16 170 SKIP SBR SKIPEX&3 4 3346 H C76 62 493 16 180 MLC SX,TEMP 7 3350 M E51 E34 62 494 16 190 SKIP1 B GETSR 4 3357 B ?08 62 495 16 200 C SX,TEMP 7 3361 C E51 E34 62 496 16 210 BU SKIP1 5 3368 B C57 / 62 497 16 220 SKIPEX B * 4 3373 B C76 62 1 1401 COBOL - BD2 PAGE 9 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 498 16 230 WORK BCE DIOG9,CONSW,1 8 3377 B Z37 E29 1 62 499 16 240 B XR 4 3385 B T83 63 500 16 250 DONE1 B SUPER 4 3389 B 351 63 501 17 010 DCW @BD3@ 3 3395 63 502 17 020 DIOG17 MLC @B5Q@,HOLDS 7 3396 M G42 E48 63 503 17 030 B DIOGG 4 3403 B Y37 63 504 17 040 DIOG18 MLC @B5J@,HOLDS 7 3407 M G45 E48 63 505 17 050 B DIOGG 4 3414 B Y37 63 506 17 060 DIOG19 MLC @B5K@,HOLDS 7 3418 M G48 E48 64 507 17 070 SW SRA 4 3425 , E52 64 508 17 080 B DIOGG 4 3429 B Y37 64 509 17 090 DIOG20 MLC @B5L@,HOLDS 7 3433 M G51 E48 64 510 17 100 B DIOGG 4 3440 B Y37 64 511 17 110 DIOG21 MLC @B5P@,HOLDS 7 3444 M G54 E48 64 512 17 120 B DIOGG 4 3451 B Y37 64 513 17 130 DIOG22 MLC @B5M@,HOLDS 7 3455 M G57 E48 65 514 17 140 B DIOGG 4 3462 B Y37 65 515 17 150 DIOG23 MLC @B5N@,HOLDS 7 3466 M G60 E48 65 516 17 160 B DIOGG 4 3473 B Y37 65 517 17 170 XAA B GETSX 4 3477 B O76 65 518 17 180 XA B GETSX 4 3481 B O76 65 519 17 190 BCE YZ1,SX-2,/ 8 3485 B W63 E49 / 65 520 17 200 C SX,@)12@ 7 3493 C E51 F10 66 521 17 210 BE YZ1 5 3500 B W63 S 66 522 17 220 B XA 4 3505 B D81 66 523 17 230 SXB1 BU DIOG 5 3509 B X20 / 66 524 17 240 B SKIP 4 3514 B C46 66 525 17 250 B YZ 4 3518 B W59 66 526 18 010 DCW #1 1 3522 66 527 18 020 DATAS DC #1 1 3523 67 528 18 030 LABSW DC #1 1 3524 67 529 18 040 RESW DC #1 1 3525 67 530 18 050 BLOCKS DC #1 1 3526 67 531 18 060 RECSW DC #1 1 3527 67 532 18 070 VALSW DC #1 1 3528 67 533 18 080 SWCLR EQU * 3528 534 18 090 CONSW DCW #1 1 3529 67 535 18 100 WRKSW DCW #1 1 3530 67 536 18 110 SWX DC #1 1 3531 67 537 18 120 TEMP DCW #3 3 3534 67 538 18 130 KEEPS DCW #3 3 3537 67 539 18 140 CARD1 DCW #6 6 3543 68 540 18 150 SAVE1 DCW #2 2 3545 68 541 18 160 HOLDS DCW #3 3 3548 68 542 18 170 SX DCW #3 3 3551 68 543 18 180 SRA DC #1 1 3552 68 544 18 190 LTORG 3553 DCW @*06@ 3 3555 LIT 68 @.PD@ 3 3558 LIT 68 @*29@ 3 3561 LIT 68 1 1401 COBOL - BD2 PAGE 10 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD @/01@ 3 3564 LIT 69 @/09@ 3 3567 LIT 69 @1@ 1 3568 LIT 69 @*09@ 3 3571 LIT 69 @/26@ 3 3574 LIT 69 @/06@ 3 3577 LIT 69 @/16@ 3 3580 LIT 69 @/11@ 3 3583 LIT 70 @/19@ 3 3586 LIT 70 @/13@ 3 3589 LIT 70 @/24@ 3 3592 LIT 70 @/10@ 3 3595 LIT 70 @/05@ 3 3598 LIT 70 @/14@ 3 3601 LIT 70 @/18@ 3 3604 LIT 71 @/23@ 3 3607 LIT 71 @)12@ 3 3610 LIT 71 @/07@ 3 3613 LIT 71 @/12@ 3 3616 LIT 71 @FD@ 2 3618 LIT 71 &0 1 3619 LIT 71 @.NM@ 3 3622 LIT 72 @.DZ@ 3 3625 LIT 72 @N@ 1 3626 LIT 72 @*01@ 3 3629 LIT 72 @B5O@ 3 3632 LIT 72 @.DM@ 3 3635 LIT 72 @B4A@ 3 3638 LIT 72 @B4B@ 3 3641 LIT 73 @B4C@ 3 3644 LIT 73 @B4D@ 3 3647 LIT 73 @B4E@ 3 3650 LIT 73 @B4F@ 3 3653 LIT 73 @B4G@ 3 3656 LIT 73 @B4H@ 3 3659 LIT 73 @B4I@ 3 3662 LIT 74 @1 @ 3 3665 LIT 74 @B@ 1 3666 LIT 74 @.NL@ 3 3669 LIT 74 @/08@ 3 3672 LIT 74 @*14@ 3 3675 LIT 74 @$0@ 2 3677 LIT 74 @$40@ 3 3680 LIT 75 @ @@ 3 3683 LIT 75 @*08@ 3 3686 LIT 75 @*32@ 3 3689 LIT 75 @/32@ 3 3692 LIT 75 @/30@ 3 3695 LIT 75 @/31@ 3 3698 LIT 75 @/25@ 3 3701 LIT 76 1 1401 COBOL - BD2 PAGE 11 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD @/02@ 3 3704 LIT 76 @.DG@ 3 3707 LIT 76 @.CD@ 3 3710 LIT 76 @/03@ 3 3713 LIT 76 @/22@ 3 3716 LIT 76 @$08@ 3 3719 LIT 76 @/04@ 3 3722 LIT 77 @/21@ 3 3725 LIT 77 @/20@ 3 3728 LIT 77 @$10@ 3 3731 LIT 77 @$16@ 3 3734 LIT 77 @01 @ 3 3737 LIT 77 @ @ 2 3739 LIT 77 @B5Q@ 3 3742 LIT 78 @B5J@ 3 3745 LIT 78 @B5K@ 3 3748 LIT 78 @B5L@ 3 3751 LIT 78 @B5P@ 3 3754 LIT 78 @B5M@ 3 3757 LIT 78 @B5N@ 3 3760 LIT 78 545 18 200 ORG 3761 546 18 210 DCW @}@ 1 3761 79 547 18 220 END / 000 080 80 1CLEAR STORAGE 1 ,008015,022026,030037,044,049,053053N000000N00001026 1 CLEAR STORAGE 2 L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0? 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 1401 COBOL - BD3 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 1 010 000 JOB 1401 COBOL - BD3 102 1 020 CTL 661111 103 1 030 ORG 1300 1300 104 1 040 X1 EQU 89 0089 105 1 050 X2 EQU 94 0094 106 1 060 X3 EQU 99 0099 107 1 070 GETX EQU 335 0335 108 1 080 PUTX EQU 363 0363 109 1 090 SUPER EQU 351 0351 110 1 100 B GETSR 4 1300 B Q31 4 111 1 110 C SX,@*06@ 7 1304 C B73 B89 4 112 1 120 BU DIOG1 5 1311 B W51 / 4 113 1 130 B GETSR 4 1316 B Q31 4 114 1 140 C SX,@.PD@ 7 1320 C B73 B92 4 115 1 150 BU DIOG2 5 1327 B W62 / 4 116 1 160 D0D B GETSX 4 1332 B L32 4 117 1 170 BCE VERB,SX-2,) 8 1336 B T48 B71 ) 5 118 1 180 B DIOG3 4 1344 B W73 5 119 1 190 VERB MLC SX,SAVE 7 1348 M B73 B67 5 120 1 200 MLC @B@,GETS8 7 1355 M B93 M88 5 121 1 210 MLC @B@,GETS7 7 1362 M B93 L65 5 122 1 220 MLC @B@,PRA 7 1369 M B93 L60 6 123 1 230 MLC &BEGIN,X2 7 1376 M B96 094 6 124 1 240 RETURN BCE TEND,0&X2,$ 8 1383 B Y66 0!0 $ 6 125 1 250 MLC 0&X2,0&X2 7 1391 M 0!0 0!0 6 126 2 010 SBR X2 4 1398 H 094 6 127 2 020 C 3&X2,SX 7 1402 C 0!3 B73 7 128 2 030 BU RETURN 5 1409 B T83 / 7 129 2 040 A @4@,X2 7 1414 A B97 094 7 130 2 050 MLC X2,HOLD 7 1421 M 094 B55 7 131 2 060 A B GETSX 4 1428 B L32 7 132 2 070 A1 BCE ALPLIT,0&X2,X 8 1432 B J94 0!0 X 7 133 2 080 BCE NAME,0&X2,N 8 1440 B J01 0!0 N 8 134 2 090 BCE PAUSE,2&X2,, 8 1448 B Z11 0!2 , 8 135 2 100 BCE DONE,2&X2,. 8 1456 B Z22 0!2 . 8 136 2 110 BCE INCL,0&X2,* 8 1464 B ?43 0!0 * 8 137 2 120 BCE REP,0&X2,R 8 1472 B ?10 0!0 R 9 138 2 130 BCE ALPH,0&X2,A 8 1480 B X06 0!0 A 9 139 2 140 DET BCE READ,2&X2,0 8 1488 B Z84 0!2 0 9 140 2 150 BCE WRITE,2&X2,1 8 1496 B !41 0!2 1 9 141 2 160 BCE OPEN,2&X2,3 8 1504 B W16 0!2 3 10 142 2 170 C TEMP,@.NM@ 7 1512 C B86 C00 10 143 2 180 BU DET2 5 1519 B V96 / 10 144 2 190 C SX,@*16@ 7 1524 C B73 C03 10 145 2 200 BU DET7 5 1531 B V60 / 10 146 2 210 DET3 B GETSX 4 1536 B L32 10 147 2 220 C SX,@.NM@ 7 1540 C B73 C00 11 1 1401 COBOL - BD3 PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 2 230 BU DIOG 5 1547 B Q78 / 11 149 2 240 B SKIP 4 1552 B R56 11 150 2 250 B PAUSE1 4 1556 B Z44 11 151 3 010 DET7 C SX,@*10@ 7 1560 C B73 C06 11 152 3 020 BE DET4 5 1567 B V88 S 11 153 3 030 DET6 C SX,@/10@ 7 1572 C B73 C09 11 154 3 040 BE DONE1 5 1579 B Z33 S 12 155 3 050 B OUTPUT 4 1584 B Z76 12 156 3 060 DET4 B PAUSE1 4 1588 B Z44 12 157 3 070 B DET6 4 1592 B V72 12 158 3 080 DET2 B PAUSK 4 1596 B Z03 12 159 3 090 C SX,@*16@ 7 1600 C B73 C03 12 160 3 100 BU DIOG 5 1607 B Q78 / 12 161 3 110 B DET3 4 1612 B V36 13 162 3 120 OPEN C SX,@*20@ 7 1616 C B73 C12 13 163 3 130 BE OPEN1 5 1623 B W40 S 13 164 3 140 C SX,@*15@ 7 1628 C B73 C15 13 165 3 150 BU DIOG 5 1635 B Q78 / 13 166 3 160 OPEN1 A @3@,X2 7 1640 A C16 094 13 167 3 170 B A 4 1647 B U28 13 168 3 180 DIOG1 MLC @B0D@,SAVE 7 1651 M C19 B67 14 169 3 190 B DGG7 4 1658 B W95 14 170 3 200 DIOG2 MLC @B0C@,SAVE 7 1662 M C22 B67 14 171 3 210 B DGG7 4 1669 B W95 14 172 3 220 DIOG3 MLC @B0A@,SAVE 7 1673 M C25 B67 14 173 3 230 B DGG7 4 1680 B W95 14 174 3 240 DIOG4 MLC @B0B@,SAVE 7 1684 M C28 B67 15 175 3 250 B DGG7 4 1691 B W95 15 176 4 010 DGG7 B PUTX 4 1695 B 363 15 177 4 020 DCW &@.DM@ 3 1701 C31 15 178 4 030 B DIGG71 4 1702 B Q85 15 179 4 040 ALPH BCE ONLY,2&X2,1 8 1706 B Y14 0!2 1 15 180 4 050 C SX-1,@$0@ 7 1714 C B72 C33 15 181 4 060 BE FIG 5 1721 B X62 S 16 182 4 070 BCE A0X,SX,@ 8 1726 B X58 B73 @ 16 183 4 080 C SX,@.NM@ 7 1734 C B73 C00 16 184 4 090 BE A0X 5 1741 B X58 S 16 185 4 100 C SX,@.NL@ 7 1746 C B73 C36 16 186 4 110 BU DIOG 5 1753 B Q78 / 16 187 4 120 A0X B SKIP 4 1758 B R56 17 188 4 130 FIG B GETSX 4 1762 B L32 17 189 4 140 C SX-1,@$0@ 7 1766 C B72 C33 17 190 4 150 BE FIG 5 1773 B X62 S 17 191 4 160 BCE A0X,SX,@ 8 1778 B X58 B73 @ 17 192 4 170 C SX,@.NM@ 7 1786 C B73 C00 17 193 4 180 BE A0X 5 1793 B X58 S 18 194 4 190 C SX,@.NL@ 7 1798 C B73 C36 18 195 4 200 BE A0X 5 1805 B X58 S 18 196 4 210 B NAONE 4 1810 B J41 18 197 4 220 ONLY C SX-1,@$0@ 7 1814 C B72 C33 18 1 1401 COBOL - BD3 PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 4 230 BE OPEN1 5 1821 B W40 S 18 199 4 240 BCE A0Z,SX,@ 8 1826 B Y58 B73 @ 19 200 4 250 C SX,@.NM@ 7 1834 C B73 C00 19 201 5 010 BE A0Z 5 1841 B Y58 S 19 202 5 020 C SX,@.NL@ 7 1846 C B73 C36 19 203 5 030 BU DIOG 5 1853 B Q78 / 19 204 5 040 A0Z B SKIP 4 1858 B R56 19 205 5 050 B OPEN1 4 1862 B W40 20 206 5 060 TEND MLC @N@,GETS7 7 1866 M C37 L65 20 207 5 070 MLC @N@,GETS8 7 1873 M C37 M88 20 208 5 080 MLC @N@,PRA 7 1880 M C37 L60 20 209 5 090 TEND1 B GETSX 4 1887 B L32 20 210 5 100 BCE VERB,SX-2,) 8 1891 B T48 B71 ) 20 211 5 110 B TEND1 4 1899 B Y87 21 212 5 120 PAUSK SBR EXIT&3 4 1903 H Z75 21 213 5 130 B PAUS1 4 1907 B Z52 21 214 5 140 PAUSE MLC &NAONE,EXIT&3 7 1911 M C40 Z75 21 215 5 150 B PAUS1 4 1918 B Z52 21 216 5 160 DONE MLC &VERB,EXIT&3 7 1922 M C43 Z75 21 217 5 170 B PAUS1 4 1929 B Z52 21 218 5 180 DONE1 MLC &VERB,EXIT&3 7 1933 M C46 Z75 22 219 5 190 B PAUS 4 1940 B Z48 22 220 5 200 PAUSE1 SBR EXIT&3 4 1944 H Z75 22 221 5 210 PAUS B GETSX 4 1948 B L32 22 222 5 220 PAUS1 BCE VERB,SX-2,) 8 1952 B T48 B71 ) 22 223 5 230 C SX,@.PD@ 7 1960 C B73 B92 22 224 5 240 BE D0D 5 1967 B T32 S 22 225 5 250 EXIT B * 4 1972 B Z75 23 226 6 010 OUTPUT B PAUSK 4 1976 B Z03 23 227 6 020 B DIOG 4 1980 B Q78 23 228 6 030 READ C SX,@/11@ 7 1984 C B73 C49 23 229 6 040 BE READ3 5 1991 B Q70 S 23 230 6 050 READ4 C SX,@*27@ 7 1996 C B73 C52 23 231 6 060 BE DETT 5 2003 B !25 S 23 232 6 070 DET9 C SX,@)17@ 7 2008 C B73 C55 24 233 6 080 BU OUTPUT 5 2015 B Z76 / 24 234 6 090 BE DONE1 5 2020 B Z33 S 24 235 6 100 DETT B GETSX 4 2025 B L32 24 236 6 110 B ONE3 4 2029 B J52 24 237 6 120 B GETSX 4 2033 B L32 24 238 6 130 B DET9 4 2037 B !08 24 239 6 140 WRITE C SX,@*28@ 7 2041 C B73 C58 25 240 6 150 BU DET15 5 2048 B !65 / 25 241 6 160 B GETSX 4 2053 B L32 25 242 6 170 B ONE3 4 2057 B J52 25 243 6 180 B PAUSE1 4 2061 B Z44 25 244 6 190 DET15 C SX,@*22@ 7 2065 C B73 C61 25 245 6 200 BE DET12 5 2072 B !89 S 25 246 6 210 C SX,@*17@ 7 2077 C B73 C64 26 247 6 220 BU OUTPUT 5 2084 B Z76 / 26 1 1401 COBOL - BD3 PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 6 230 DET12 B GETSX 4 2089 B L32 26 249 6 240 B ONCE2 4 2093 B K77 26 250 6 250 B DONE1 4 2097 B Z33 26 251 7 010 NAME BCE ONE,2&X2,1 8 2101 B J60 0!2 1 26 252 7 020 C SX,@.NM@ 7 2109 C B73 C00 26 253 7 030 BU DIOG 5 2116 B Q78 / 27 254 7 040 NAMONE B SKIP 4 2121 B R56 27 255 7 050 B GETSX 4 2125 B L32 27 256 7 060 C SX,@.NM@ 7 2129 C B73 C00 27 257 7 070 BE NAMONE 5 2136 B J21 S 27 258 7 080 NAONE A @3@,X2 7 2141 A C16 094 27 259 7 090 B A1 4 2148 B U32 27 260 7 100 ONE3 SBR ONE2&3 4 2152 H J93 28 261 7 110 B ONE4 4 2156 B J67 28 262 7 120 ONE MLC &A,ONE2&3 7 2160 M C67 J93 28 263 7 130 ONE4 C SX,@.NM@ 7 2167 C B73 C00 28 264 7 140 BU DIOG 5 2174 B Q78 / 28 265 7 150 ONE1 B SKIP 4 2179 B R56 28 266 7 160 ONEONE A @3@,X2 7 2183 A C16 094 28 267 7 170 ONE2 B A 4 2190 B U28 29 268 7 180 ALPLIT BCE ONCE,2&X2,1 8 2194 B K85 0!2 1 29 269 7 190 MLC &NAONE,NAB&3 7 2202 M C70 K76 29 270 7 200 B ALLP 4 2209 B K17 29 271 7 210 ALLPA SBR NAB&3 4 2213 H K76 29 272 7 220 ALLP C SX,@.NM@ 7 2217 C B73 C00 29 273 7 230 BE ALIT1 5 2224 B K41 S 29 274 7 240 C SX,@.NL@ 7 2229 C B73 C36 30 275 7 250 BU DIOG 5 2236 B Q78 / 30 276 8 010 ALIT1 B SKIP 4 2241 B R56 30 277 8 020 B GETSX 4 2245 B L32 30 278 8 030 C SX,@.NM@ 7 2249 C B73 C00 30 279 8 040 BE ALIT1 5 2256 B K41 S 30 280 8 050 C SX,@.NL@ 7 2261 C B73 C36 30 281 8 060 BE ALIT1 5 2268 B K41 S 31 282 8 070 NAB B NAONE 4 2273 B J41 31 283 8 080 ONCE2 SBR ONE2&3 4 2277 H J93 31 284 8 090 B ONCE1 4 2281 B K92 31 285 8 100 ONCE MLC &A,ONE2&3 7 2285 M C73 J93 31 286 8 110 ONCE1 C SX,@.NM@ 7 2292 C B73 C00 31 287 8 120 BE ONE1 5 2299 B J79 S 31 288 8 130 C SX,@$08@ 7 2304 C B73 C76 32 289 8 140 BE ONEONE 5 2311 B J83 S 32 290 8 150 C SX,@.NL@ 7 2316 C B73 C36 32 291 8 160 BU DIOG 5 2323 B Q78 / 32 292 8 170 B ONE1 4 2328 B J79 32 293 8 180 GETSX SBR EXIT1&3 4 2332 H M96 32 294 8 190 GETS1 B GETX 4 2336 B 335 32 295 8 200 DCW SX 3 2342 B73 33 296 8 210 DCW EOP 3 2345 Q56 33 297 8 220 B PUTX 4 2346 B 363 33 1 1401 COBOL - BD3 PAGE 5 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 298 8 230 DCW SX 3 2352 B73 33 299 8 240 PER1 C SX,@A05@ 7 2353 C B73 C79 33 300 8 250 PRA BE OUU 5 2360 B M97 S 33 301 9 010 GETS7 BCE OUS,SX,% 8 2365 B N58 B73 % 33 302 9 020 C SX,@*02@ 7 2373 C B73 C82 34 303 9 030 BE GETS1 5 2380 B L36 S 34 304 9 040 C SX,@#DC@ 7 2385 C B73 C85 34 305 9 050 BE OXB 5 2392 B R06 S 34 306 9 060 C SX,@*25@ 7 2397 C B73 C88 34 307 9 070 BE GETS1 5 2404 B L36 S 34 308 9 080 C SX,@*24@ 7 2409 C B73 C91 35 309 9 090 BE NOTE1 5 2416 B Q11 S 35 310 9 100 C SX,@$40@ 7 2421 C B73 C94 35 311 9 110 BE GAT 5 2428 B O34 S 35 312 9 120 C SX,@.DG@ 7 2433 C B73 C97 35 313 9 130 BE DIG 5 2440 B N50 S 35 314 9 140 C SX,@.LB@ 7 2445 C B73 D00 36 315 9 150 BE LABEL1 5 2452 B P21 S 36 316 9 160 C SX,@.CD@ 7 2457 C B73 D03 36 317 9 170 BE CARD 5 2464 B O79 S 36 318 9 180 C SX,@$32@ 7 2469 C B73 D06 36 319 9 190 BE GETS1 5 2476 B L36 S 36 320 9 200 C SX,@*32@ 7 2481 C B73 D09 37 321 9 210 GETS8 BE GETS2 5 2488 B N12 S 37 322 9 220 EXIT1 B * 4 2493 B M96 37 323 9 230 OUU MLC @.NM@,SX 7 2497 M C00 B73 37 324 9 240 SW SS1 4 2504 , B74 37 325 9 250 B EXIT1 4 2508 B M93 37 326 10 010 GETS2 MLC EXIT1&3,KEEP6 7 2512 M M96 B77 37 327 10 020 B GETSX 4 2519 B L32 38 328 10 030 C SX,@.NM@ 7 2523 C B73 C00 38 329 10 040 BU DIOG 5 2530 B Q78 / 38 330 10 050 B SKIP 4 2535 B R56 38 331 10 060 MLC KEEP6,EXIT1&3 7 2539 M B77 M96 38 332 10 070 B GETS1 4 2546 B L36 38 333 10 080 DIG B GETSR 4 2550 B Q31 38 334 10 090 B GETS1 4 2554 B L36 39 335 10 100 OUS C SAVE,@)10@ 7 2558 C B67 D12 39 336 10 110 BE DIOG 5 2565 B Q78 S 39 337 10 120 C SAVE,@)14@ 7 2570 C B67 D15 39 338 10 130 BE DIOG 5 2577 B Q78 S 39 339 10 140 MLC EXIT1&3,KEEP8 7 2582 M M96 B80 39 340 10 150 B GETSX 4 2589 B L32 39 341 10 160 MLC NAB&3,KEEP9 7 2593 M K76 B83 40 342 10 170 B ALLPA 4 2600 B K13 40 343 10 180 MLC KEEP9,NAB&3 7 2604 M B83 K76 40 344 10 190 C SX,@ )@ 7 2611 C B73 D18 40 345 10 200 BU DIOG 5 2618 B Q78 / 40 346 10 210 MLC KEEP8,EXIT1&3 7 2623 M B80 M96 40 347 10 220 B GETS1 4 2630 B L36 41 1 1401 COBOL - BD3 PAGE 6 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 348 10 230 GAT MLC EXIT1&3,TAT4#3 7 2634 M M96 D21 41 349 10 240 B GETSX 4 2641 B L32 41 350 10 250 C SX,@.NL@ 7 2645 C B73 C36 41 351 11 010 BE DIO23 5 2652 B O68 S 41 352 11 020 MLC TAT4,EXIT1&3 7 2657 M D21 M96 41 353 11 030 B PER1 4 2664 B L53 41 354 11 040 DIO23 MLC @B8E@,SAVE 7 2668 M D24 B67 42 355 11 050 B DGG7 4 2675 B W95 42 356 11 060 CARD B GETSR 4 2679 B Q31 42 357 11 070 MLC SX,CARD1-3 7 2683 M B73 B58 42 358 11 080 B GETSR 4 2690 B Q31 42 359 11 090 MLC SX,CARD1 7 2694 M B73 B61 42 360 11 100 B GETSR 4 2701 B Q31 42 361 11 110 C SX,@.PD@ 7 2705 C B73 B92 43 362 11 120 BE GETS1 5 2712 B L36 S 43 363 11 130 B GETS7 4 2717 B L65 43 364 11 140 LABEL1 B GETSR 4 2721 B Q31 43 365 11 150 BCE DIOG30,SX-2,) 8 2725 B R99 B71 ) 43 366 11 160 BCE DIOG30,SX-2,* 8 2733 B R99 B71 * 43 367 11 170 C SX,@.LB@ 7 2741 C B73 D00 44 368 11 180 BU LABEL1 5 2748 B P21 / 44 369 11 190 LABEL2 B GETSR 4 2753 B Q31 44 370 11 200 C SX,@*09@ 7 2757 C B73 D27 44 371 11 210 BE LABEL2 5 2764 B P53 S 44 372 11 220 C SX,@.PD@ 7 2769 C B73 B92 44 373 11 230 BU DIOG4 5 2776 B W84 / 45 374 11 240 MLC EXIT1&3,KEEPS 7 2781 M M96 B64 45 375 11 250 B GETSX 4 2788 B L32 45 376 12 010 MLC KEEPS,EXIT1&3 7 2792 M B64 M96 45 377 12 020 BCE VERB,SX-2,) 8 2799 B T48 B71 ) 45 378 12 030 B DIOG3 4 2807 B W73 45 379 12 040 NOTE1 B GETSR 4 2811 B Q31 45 380 12 050 C SX,@*24@ 7 2815 C B73 C91 46 381 12 060 BU NOTE1 5 2822 B Q11 / 46 382 12 070 B GETS1 4 2827 B L36 46 383 12 080 GETSR SBR ENDX&3 4 2831 H Q55 46 384 12 090 B GETX 4 2835 B 335 46 385 12 100 DCW SX 3 2841 B73 46 386 12 110 DCW EOP 3 2844 Q56 46 387 12 120 B PUTX 4 2845 B 363 47 388 12 130 DCW SX 3 2851 B73 47 389 12 140 ENDX B * 4 2852 B Q55 47 390 12 150 EOP B PUTX 4 2856 B 363 47 391 12 160 DCW SX 3 2862 B73 47 392 12 170 B SUPER 4 2863 B 351 47 393 12 180 DCW @BD4@ 3 2869 47 394 12 190 READ3 B GETSX 4 2870 B L32 48 395 12 200 B READ4 4 2874 B Z96 48 396 12 210 DIOG B PUTX 4 2878 B 363 48 397 12 220 DCW &@.DK@ 3 2884 D30 48 1 1401 COBOL - BD3 PAGE 7 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 398 12 230 DIGG71 B PUTX 4 2885 B 363 48 399 12 240 DCW CARD1-3 3 2891 B58 48 400 12 250 B PUTX 4 2892 B 363 48 401 13 010 DCW CARD1 3 2898 B61 49 402 13 020 B PUTX 4 2899 B 363 49 403 13 030 DCW SAVE 3 2905 B67 49 404 13 040 OXB B GETSR 4 2906 B Q31 49 405 13 050 C SX,@.CD@ 7 2910 C B73 D03 49 406 13 060 BU OXB1 5 2917 B R44 / 49 407 13 070 B GETSR 4 2922 B Q31 49 408 13 080 MLC SX,CARD1-3 7 2926 M B73 B58 50 409 13 090 B GETSR 4 2933 B Q31 50 410 13 100 MLC SX,CARD1 7 2937 M B73 B61 50 411 13 110 OXB1 BCE VERB,SX-2,) 8 2944 B T48 B71 ) 50 412 13 120 B OXB 4 2952 B R06 50 413 13 130 SKIP SBR EXR1&3 4 2956 H R98 50 414 13 140 MLC SX,TEMP 7 2960 M B73 B86 51 415 13 150 BW H01,SS1 8 2967 V R91 B74 1 51 416 13 160 SKIPER B GETSR 4 2975 B Q31 51 417 13 170 C SX,TEMP 7 2979 C B73 B86 51 418 13 180 BU SKIPER 5 2986 B R75 / 51 419 13 190 H01 CW SS1 4 2991 ) B74 51 420 13 200 EXR1 B * 4 2995 B R98 51 421 13 210 DIOG30 MLC @B9B@,SAVE 7 2999 M D33 B67 52 422 13 220 B DGG7 4 3006 B W95 52 423 13 230 REP MLC HOLD,TEMP 7 3010 M B55 B86 52 424 13 240 SW 1&X2 4 3017 , 0!1 52 425 13 250 A 2&X2,TEMP 7 3021 A 0!2 B86 52 426 14 010 CW 1&X2 4 3028 ) 0!1 52 427 14 020 MLC TEMP,X2 7 3032 M B86 094 53 428 14 030 B A1 4 3039 B U32 53 429 14 040 INCL C 2&X2,SX 7 3043 C 0!2 B73 53 430 14 050 BU DIOG 5 3050 B Q78 / 53 431 14 060 A @3@,X2 7 3055 A C16 094 53 432 14 070 B A 4 3062 B U28 53 433 14 080 DCW @$@ 1 3066 53 434 14 090 DCW @)07N01 ,*28N01 .@ 18 3084 54 435 14 100 DCW @)20 ,X01 ,X0M*03N01 .@ 24 3108 55 436 14 110 DCW @)10X01*11X01 ,R00@ 18 3126 56 437 14 120 DCW @)06X01*27X01E0S@ 15 3141 56 438 14 130 DCW @)18X01X0ME0S@ 12 3153 57 439 14 140 DCW @)01X0M*28X01E0S@ 15 3168 57 440 14 150 DCW @)04A0M ,*23N01 .@ 18 3186 58 441 14 160 DCW @)15A01N0M .@ 12 3198 58 442 14 170 DCW @)02X01*35X01E0S@ 15 3213 59 443 14 180 DCW @)14E03N0M ,R00@ 15 3228 59 444 14 190 DCW @)13N01 ,E00@ 12 3240 60 445 14 200 DCW @)08N01 ,E01@ 12 3252 60 446 14 210 BEGIN EQU * 3252 447 14 220 HOLD DCW #3 3 3255 60 1 1401 COBOL - BD3 PAGE 8 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 448 14 230 CARD1 DCW #6 6 3261 60 449 14 240 KEEPS DCW #3 3 3264 60 450 14 250 SAVE DCW #3 3 3267 60 451 15 010 PRO DCW @*01@ 3 3270 61 452 15 020 SX DCW #3 3 3273 61 453 15 030 SS1 DC #1 1 3274 61 454 15 040 KEEP6 DCW #3 3 3277 61 455 15 050 KEEP8 DCW #3 3 3280 61 456 15 060 KEEP9 DCW #3 3 3283 61 457 15 070 TEMP DCW #3 3 3286 61 458 15 080 LTORG 3287 DCW @*06@ 3 3289 LIT 61 @.PD@ 3 3292 LIT 62 @B@ 1 3293 LIT 62 123 &BEGIN 3 3296 B52 ADCON 62 @4@ 1 3297 LIT 62 @.NM@ 3 3300 LIT 62 @*16@ 3 3303 LIT 62 @*10@ 3 3306 LIT 62 @/10@ 3 3309 LIT 63 @*20@ 3 3312 LIT 63 @*15@ 3 3315 LIT 63 @3@ 1 3316 LIT 63 @B0D@ 3 3319 LIT 63 @B0C@ 3 3322 LIT 63 @B0A@ 3 3325 LIT 63 @B0B@ 3 3328 LIT 64 @.DM@ 3 3331 LIT 64 @$0@ 2 3333 LIT 64 @.NL@ 3 3336 LIT 64 @N@ 1 3337 LIT 64 214 &NAONE 3 3340 J41 ADCON 64 216 &VERB 3 3343 T48 ADCON 64 218 &VERB 3 3346 T48 ADCON 65 @/11@ 3 3349 LIT 65 @*27@ 3 3352 LIT 65 @)17@ 3 3355 LIT 65 @*28@ 3 3358 LIT 65 @*22@ 3 3361 LIT 65 @*17@ 3 3364 LIT 65 262 &A 3 3367 U28 ADCON 66 269 &NAONE 3 3370 J41 ADCON 66 285 &A 3 3373 U28 ADCON 66 @$08@ 3 3376 LIT 66 @A05@ 3 3379 LIT 66 @*02@ 3 3382 LIT 66 @#DC@ 3 3385 LIT 66 @*25@ 3 3388 LIT 67 @*24@ 3 3391 LIT 67 @$40@ 3 3394 LIT 67 1 1401 COBOL - BD3 PAGE 9 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD @.DG@ 3 3397 LIT 67 @.LB@ 3 3400 LIT 67 @.CD@ 3 3403 LIT 67 @$32@ 3 3406 LIT 67 @*32@ 3 3409 LIT 68 @)10@ 3 3412 LIT 68 @)14@ 3 3415 LIT 68 @ )@ 3 3418 LIT 68 348 TAT4 #03 3 3421 AREA 68 @B8E@ 3 3424 LIT 68 @*09@ 3 3427 LIT 68 @.DK@ 3 3430 LIT 69 @B9B@ 3 3433 LIT 69 459 15 090 ORG 3434 460 15 100 DCW @}@ 1 3434 69 461 15 110 END / 000 080 70 1CLEAR STORAGE 1 ,008015,022026,030037,044,049,053053N000000N00001026 1 CLEAR STORAGE 2 L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0? 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 1401 COBOL - BD4 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 1 010 000 JOB 1401 COBOL - BD4 102 1 020 CTL 661111 103 1 030 ORG 1300 1300 104 1 040 SUPER EQU 351 0351 105 1 050 X1 EQU 89 0089 106 1 060 X2 EQU 94 0094 107 1 070 X3 EQU 99 0099 108 1 080 GETX EQU 335 0335 109 1 090 PUTX EQU 363 0363 110 1 100 HRB B GETSR 4 1300 B !15 4 111 1 110 C SX,@/24@ 7 1304 C K68 K71 4 112 1 120 BU HRB 5 1311 B T00 / 4 113 1 130 HR1 B GETSR 4 1316 B !15 4 114 1 140 HR2 MLC SX,HOLDS 7 1320 M K68 K52 4 115 1 150 C SX,@*29@ 7 1327 C K68 K74 4 116 1 160 BE FILLE 5 1334 B U51 S 4 117 1 170 C SX,@/01@ 7 1339 C K68 K77 5 118 1 180 BE FILLE 5 1346 B U51 S 5 119 1 190 C SX,@/09@ 7 1351 C K68 K80 5 120 1 200 BE FILLE 5 1358 B U51 S 5 121 1 210 C SX,@/10@ 7 1363 C K68 K83 5 122 1 220 BE SIZE 5 1370 B U92 S 5 123 1 230 C SX,@/05@ 7 1375 C K68 K86 6 124 1 240 BE REDEF 5 1382 B U77 S 6 125 1 250 C SX,@/14@ 7 1387 C K68 K89 6 126 2 010 BE OCCURS 5 1394 B W00 S 6 127 2 020 C SX,@/18@ 7 1399 C K68 K92 6 128 2 030 BE POINT 5 1406 B X27 S 6 129 2 040 C SX,@)12@ 7 1411 C K68 K95 7 130 2 050 BE PICT 5 1418 B U62 S 7 131 2 060 C SX,@/07@ 7 1423 C K68 K98 7 132 2 070 BE JUST 5 1430 B X59 S 7 133 2 080 C SX,@/12@ 7 1435 C K68 L01 7 134 2 090 BE OCCURS 5 1442 B W00 S 7 135 2 100 B HR1 4 1447 B T16 8 136 2 110 FILLE MLC SX,HBH#3 7 1451 M K68 L04 8 137 2 120 B HR1 4 1458 B T16 8 138 2 130 PICT B GETSR 4 1462 B !15 8 139 2 140 C SX,@.PC@ 7 1466 C K68 L07 8 140 2 150 B SXB1 4 1473 B W11 8 141 2 160 REDEF B GETSR 4 1477 B !15 8 142 2 170 C SX,@.NM@ 7 1481 C K68 L10 9 143 2 180 B SRRX1 4 1488 B V71 9 144 2 190 SIZE B GETSR 4 1492 B !15 9 145 2 200 C SX,@.NL@ 7 1496 C K68 L13 9 146 2 210 BU DIOG 5 1503 B K18 / 9 147 2 220 B SKIP 4 1508 B J87 9 1 1401 COBOL - BD4 PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 2 230 B GETSX 4 1512 B Y34 9 149 2 240 C SX,@.NL@ 7 1516 C K68 L13 10 150 2 250 BU HRC 5 1523 B W24 / 10 151 3 010 B SKIP 4 1528 B J87 10 152 3 020 B GETSR 4 1532 B !15 10 153 3 030 C SX,@*03@ 7 1536 C K68 L16 10 154 3 040 BU DIOG 5 1543 B K18 / 10 155 3 050 C HBH,@*29@ 7 1548 C L04 K74 10 156 3 060 BU DIOG 5 1555 B K18 / 11 157 3 070 QUAL B GETSR 4 1560 B !15 11 158 3 080 C SX,@.NM@ 7 1564 C K68 L10 11 159 3 090 SRRX1 BU DIOG 5 1571 B K18 / 11 160 3 100 B SKIP 4 1576 B J87 11 161 3 110 B GETSX 4 1580 B Y34 11 162 3 120 C SX,@*32@ 7 1584 C K68 L19 11 163 3 130 BE QUAL 5 1591 B V60 S 12 164 3 140 B HRC 4 1596 B W24 12 165 3 150 OCCURS B GETSR 4 1600 B !15 12 166 3 160 C SX,@.NL@ 7 1604 C K68 L13 12 167 3 170 SXB1 BU DIOG 5 1611 B K18 / 12 168 3 180 HHA B SKIP 4 1616 B J87 12 169 3 190 HHH B GETSX 4 1620 B Y34 12 170 3 200 HRC BCE HR2,SX-2,/ 8 1624 B T20 K66 / 13 171 3 210 C SX,@)12@ 7 1632 C K68 K95 13 172 3 220 BE HR2 5 1639 B T20 S 13 173 3 230 C SX,@.PD@ 7 1644 C K68 L22 13 174 3 240 BE OUTS 5 1651 B W74 S 13 175 3 250 B PUTX 4 1656 B 363 13 176 4 010 DCW &@.DM@ 3 1662 L25 13 177 4 020 MLC @B5O@,HOLDS 7 1663 M L28 K52 14 178 4 030 B DIG7 4 1670 B K25 14 179 4 040 OUTS B GETSX 4 1674 B Y34 14 180 4 050 C SX,@.NL@ 7 1678 C K68 L13 14 181 4 060 BU HR1 5 1685 B T16 / 14 182 4 070 B SKIP 4 1690 B J87 14 183 4 080 B GETSX 4 1694 B Y34 14 184 4 090 C SX,@/23@ 7 1698 C K68 L31 15 185 4 100 BE HHH 5 1705 B W20 S 15 186 4 110 C SX,@.NM@ 7 1710 C K68 L10 15 187 4 120 BE HHA 5 1717 B W16 S 15 188 4 130 B HR1 4 1722 B T16 15 189 4 140 EOP H 1 1726 . 15 190 4 150 POINT B GETSR 4 1727 B !15 15 191 4 160 C SX,@/15@ 7 1731 C K68 L34 16 192 4 170 BE OCCURS 5 1738 B W00 S 16 193 4 180 C SX,@/17@ 7 1743 C K68 L37 16 194 4 190 BU DIOG 5 1750 B K18 / 16 195 4 200 B OCCURS 4 1755 B W00 16 196 4 210 JUST B GETSR 4 1759 B !15 16 197 4 220 C SX,@/15@ 7 1763 C K68 L34 16 1 1401 COBOL - BD4 PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 4 230 BE HHH 5 1770 B W20 S 17 199 4 240 C SX,@/17@ 7 1775 C K68 L37 17 200 4 250 BU DIOG 5 1782 B K18 / 17 201 5 010 B HHH 4 1787 B W20 17 202 5 020 DONE1 BW DDD,SWT7 8 1791 V Y27 K53 1 17 203 5 030 B PUTX 4 1799 B 363 17 204 5 040 DCW &@.DM@ 3 1805 L25 17 205 5 050 B PUTX 4 1806 B 363 18 206 5 060 DCW CARD1-3 3 1812 K62 18 207 5 070 B PUTX 4 1813 B 363 18 208 5 080 DCW CARD1 3 1819 K65 18 209 5 090 B PUTX 4 1820 B 363 18 210 5 100 DCW &@B9A@ 3 1826 L40 18 211 5 110 DDD B SUPER 4 1827 B 351 18 212 5 120 DCW @BD5@ 3 1833 19 213 5 130 GETSX SBR EXTK&3 4 1834 H !14 19 214 5 140 GETSX1 B GETX 4 1838 B 335 19 215 5 150 DCW SX 3 1844 K68 19 216 5 160 DCW EOP 3 1847 X26 19 217 5 170 B PUTX 4 1848 B 363 19 218 5 180 DCW SX 3 1854 K68 19 219 5 190 EXIT7 C SX,@*01@ 7 1855 C K68 L43 20 220 5 200 BE DONE1 5 1862 B X91 S 20 221 5 210 C SX,@.DG@ 7 1867 C K68 L46 20 222 5 220 BU GRB1 5 1874 B Y87 / 20 223 5 230 B GETSR1 4 1879 B J34 20 224 5 240 B GETSR1 4 1883 B J34 20 225 5 250 GRB1 C SX,@.CD@ 7 1887 C K68 L49 20 226 6 010 BE CARD 5 1894 B J00 S 21 227 6 020 C SX,@.PD@ 7 1899 C K68 L22 21 228 6 030 BE PERS 5 1906 B J79 S 21 229 6 040 CW SWT7 4 1911 ) K53 21 230 6 050 GGG C SX,@/03@ 7 1915 C K68 L52 21 231 6 060 BE GETSX1 5 1922 B Y38 S 21 232 6 070 C SX,@/22@ 7 1927 C K68 L55 22 233 6 080 BE GETSX1 5 1934 B Y38 S 22 234 6 090 C SX,@$08@ 7 1939 C K68 L58 22 235 6 100 BE GETSX1 5 1946 B Y38 S 22 236 6 110 C SX,@/04@ 7 1951 C K68 L61 22 237 6 120 BE GETSX1 5 1958 B Y38 S 22 238 6 130 C SX,@/21@ 7 1963 C K68 L64 23 239 6 140 BE GETSX1 5 1970 B Y38 S 23 240 6 150 C SX,@/20@ 7 1975 C K68 L67 23 241 6 160 BE GETSX1 5 1982 B Y38 S 23 242 6 170 C SX,@$10@ 7 1987 C K68 L70 23 243 6 180 BE GETSX1 5 1994 B Y38 S 23 244 6 190 C SX,@$16@ 7 1999 C K68 L73 24 245 6 200 BE GETSX1 5 2006 B Y38 S 24 246 6 210 EXTK B * 4 2011 B !14 24 247 6 220 GETSR SBR EXIT8&3 4 2015 H !99 24 1 1401 COBOL - BD4 PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 6 230 GETP B GETX 4 2019 B 335 24 249 6 240 DCW SX 3 2025 K68 24 250 6 250 DCW EOP 3 2028 X26 24 251 7 010 B PUTX 4 2029 B 363 25 252 7 020 DCW SX 3 2035 K68 25 253 7 030 C SX,@*01@ 7 2036 C K68 L43 25 254 7 040 BE DONE1 5 2043 B X91 S 25 255 7 050 C SX,@.DG@ 7 2048 C K68 L46 25 256 7 060 BU XXX8 5 2055 B !68 / 25 257 7 070 B GETSR1 4 2060 B J34 25 258 7 080 B GETSR1 4 2064 B J34 26 259 7 090 XXX8 C SX,@.CD@ 7 2068 C K68 L49 26 260 7 100 BE CARD 5 2075 B J00 S 26 261 7 110 C SX,@.PD@ 7 2080 C K68 L22 26 262 7 120 BE PPP 5 2087 B J71 S 26 263 7 130 CW SWT7 4 2092 ) K53 26 264 7 140 EXIT8 B * 4 2096 B !99 26 265 7 150 CARD SBR EXIT7A&3 4 2100 H J33 27 266 7 160 B GETSR1 4 2104 B J34 27 267 7 170 MLC SX,CARD1-3 7 2108 M K68 K62 27 268 7 180 B GETSR1 4 2115 B J34 27 269 7 190 MLC SX,CARD1 7 2119 M K68 K65 27 270 7 200 B GETSR1 4 2126 B J34 27 271 7 210 EXIT7A B * 4 2130 B J33 27 272 7 220 GETSR1 SBR DXRB&3 4 2134 H J70 28 273 7 230 B GETX 4 2138 B 335 28 274 7 240 DCW SX 3 2144 K68 28 275 7 250 DCW EOP 3 2147 X26 28 276 8 010 B PUTX 4 2148 B 363 28 277 8 020 DCW SX 3 2154 K68 28 278 8 030 C SX,@*01@ 7 2155 C K68 L43 28 279 8 040 BE DONE1 5 2162 B X91 S 29 280 8 050 DXRB B * 4 2167 B J70 29 281 8 060 PPP SW SWT7 4 2171 , K53 29 282 8 070 B EXIT8 4 2175 B !96 29 283 8 080 PERS SW SWT7 4 2179 , K53 29 284 8 090 B GGG 4 2183 B Z15 29 285 8 100 SKIP SBR SKIPEX&3 4 2187 H K17 29 286 8 110 MLC SX,TEMP 7 2191 M K68 K56 30 287 8 120 SKIP1 B GETSR 4 2198 B !15 30 288 8 130 C SX,TEMP 7 2202 C K68 K56 30 289 8 140 BU SKIP1 5 2209 B J98 / 30 290 8 150 SKIPEX B * 4 2214 B K17 30 291 8 160 DIOG B PUTX 4 2218 B 363 30 292 8 170 DCW &@.DZ@ 3 2224 L76 30 293 8 180 DIG7 B PUTX 4 2225 B 363 31 294 8 190 DCW CARD1-3 3 2231 K62 31 295 8 200 B PUTX 4 2232 B 363 31 296 8 210 DCW CARD1 3 2238 K65 31 297 8 220 B PUTX 4 2239 B 363 31 1 1401 COBOL - BD4 PAGE 5 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 298 8 230 DCW HOLDS 3 2245 K52 31 299 8 240 B HR1 4 2246 B T16 31 300 8 250 HOLDS DCW #3 3 2252 32 301 9 010 SWT7 DC #1 1 2253 32 302 9 020 TEMP DCW #3 3 2256 32 303 9 030 KEEPS DCW #3 3 2259 32 304 9 040 CARD1 DCW #6 6 2265 32 305 9 050 SX DCW #3 3 2268 32 306 9 060 LTORG 2269 DCW @/24@ 3 2271 LIT 32 @*29@ 3 2274 LIT 32 @/01@ 3 2277 LIT 33 @/09@ 3 2280 LIT 33 @/10@ 3 2283 LIT 33 @/05@ 3 2286 LIT 33 @/14@ 3 2289 LIT 33 @/18@ 3 2292 LIT 33 @)12@ 3 2295 LIT 33 @/07@ 3 2298 LIT 34 @/12@ 3 2301 LIT 34 136 HBH #03 3 2304 AREA 34 @.PC@ 3 2307 LIT 34 @.NM@ 3 2310 LIT 34 @.NL@ 3 2313 LIT 34 @*03@ 3 2316 LIT 34 @*32@ 3 2319 LIT 35 @.PD@ 3 2322 LIT 35 @.DM@ 3 2325 LIT 35 @B5O@ 3 2328 LIT 35 @/23@ 3 2331 LIT 35 @/15@ 3 2334 LIT 35 @/17@ 3 2337 LIT 35 @B9A@ 3 2340 LIT 36 @*01@ 3 2343 LIT 36 @.DG@ 3 2346 LIT 36 @.CD@ 3 2349 LIT 36 @/03@ 3 2352 LIT 36 @/22@ 3 2355 LIT 36 @$08@ 3 2358 LIT 36 @/04@ 3 2361 LIT 37 @/21@ 3 2364 LIT 37 @/20@ 3 2367 LIT 37 @$10@ 3 2370 LIT 37 @$16@ 3 2373 LIT 37 @.DZ@ 3 2376 LIT 37 307 9 070 ORG 2377 308 9 080 DCW @}@ 1 2377 37 309 9 090 END / 000 080 38 1CLEAR STORAGE 1 ,008015,022026,030037,044,049,053053N000000N00001026 1 CLEAR STORAGE 2 L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0? 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 1401 COBOL - BD5 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 1 010 000 JOB 1401 COBOL - BD5 102 1 020 CTL 661111 103 1 030 ORG 1300 1300 104 1 040 X1 EQU 89 0089 105 1 050 X3 EQU 99 0099 106 1 060 X2 EQU 94 0094 107 1 070 GETX EQU 335 0335 108 1 080 PUTX EQU 363 0363 109 1 090 SUPER EQU 351 0351 110 1 100 X7 B GETSR 4 1300 B C16 4 111 1 110 BCE VERB,SX-2,) 8 1304 B T16 E26 ) 4 112 1 120 B X7 4 1312 B T00 4 113 1 130 VERB MLC SX,HOLD 7 1316 M E28 E41 4 114 1 140 C SX,@)03@ 7 1323 C E28 E51 4 115 1 150 BE PEFORM 5 1330 B Z67 S 4 116 1 160 C SX,@)19@ 7 1335 C E28 E54 5 117 1 170 BE IF1 5 1342 B T87 S 5 118 1 180 C SX,@)05@ 7 1347 C E28 E57 5 119 1 190 BE COMPT 5 1354 B O49 S 5 120 1 200 C SX,@)09@ 7 1359 C E28 E60 5 121 1 210 BE CLOSE 5 1366 B R93 S 5 122 1 220 C SX,@)11@ 7 1371 C E28 E63 6 123 1 230 BE STOP 5 1378 B ?57 S 6 124 1 240 B X7 4 1383 B T00 6 125 1 250 IF1 B GETSX 4 1387 B Y15 6 126 2 010 C SX,@ @@ 7 1391 C E28 E66 6 127 2 020 BE IFX1 5 1398 B U55 S 6 128 2 030 BCE BACK,SX,% 8 1403 B U99 E28 % 7 129 2 040 BCE BACK,SX,& 8 1411 B U99 E28 & 7 130 2 050 BCE BACK,SX,- 8 1419 B U99 E28 - 7 131 2 060 C SX,@.NL@ 7 1427 C E28 E69 7 132 2 070 BE IFX1 5 1434 B U55 S 7 133 2 080 C SX,@.NM@ 7 1439 C E28 E72 8 134 2 090 BU BACK7 5 1446 B U63 / 8 135 2 100 B IF3 4 1451 B X11 8 136 2 110 IFX1 B SKIP 4 1455 B D83 8 137 2 120 B BACK 4 1459 B U99 8 138 2 130 BACK7 C SX,@$30@ 7 1463 C E28 E75 8 139 2 140 BE BACK 5 1470 B U99 S 8 140 2 150 C SX-1,@$0@ 7 1475 C E27 E77 9 141 2 160 BE BACK 5 1482 B U99 S 9 142 2 170 C SX,@$40@ 7 1487 C E28 E80 9 143 2 180 BU DIOG 5 1494 B D05 / 9 144 2 190 BACK B GETSX 4 1499 B Y15 9 145 2 200 BACK1 BCE VERB,SX-2,) 8 1503 B T16 E26 ) 9 146 2 210 C SX,@ @@ 7 1511 C E28 E66 10 147 2 220 BE IFX1 5 1518 B U55 S 10 1 1401 COBOL - BD5 PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 2 230 C SX,@.NM@ 7 1523 C E28 E72 10 149 2 240 BE BBBK 5 1530 B X95 S 10 150 2 250 C SX,@.NL@ 7 1535 C E28 E69 10 151 3 010 BE IFX1 5 1542 B U55 S 10 152 3 020 C SX,@$20@ 7 1547 C E28 E83 11 153 3 030 BE GREQLS 5 1554 B W63 S 11 154 3 040 C SX,@ #@ 7 1559 C E28 E86 11 155 3 050 BE GREQLS 5 1566 B W63 S 11 156 3 060 C SX,@$21@ 7 1571 C E28 E89 11 157 3 070 BE GREQLS 5 1578 B W63 S 11 158 3 080 C SX,@$30@ 7 1583 C E28 E75 12 159 3 090 BE NOT 5 1590 B K39 S 12 160 3 100 BCE MULT,SX,* 8 1595 B W79 E28 * 12 161 3 110 BCE MULT,SX,/ 8 1603 B W79 E28 / 12 162 3 120 BCE PLUS,SX,& 8 1611 B X71 E28 & 12 163 3 130 BCE PLUS,SX,- 8 1619 B X71 E28 - 13 164 3 140 C SX,@$32@ 7 1627 C E28 E92 13 165 3 150 BE ANDORL 5 1634 B K99 S 13 166 3 160 C SX,@$31@ 7 1639 C E28 E95 13 167 3 170 BE ANDORL 5 1646 B K99 S 13 168 3 180 BCE RPAREN,SX,) 8 1651 B L07 E28 ) 14 169 3 190 B BACK 4 1659 B U99 14 170 3 200 GREQLS B GETSX 4 1663 B Y15 14 171 3 210 BCE DIOG,SX-2,) 8 1667 B D05 E26 ) 14 172 3 220 B BACK1 4 1675 B V03 14 173 3 230 MULT B GETSX 4 1679 B Y15 14 174 3 240 MULT1 BCE DIOG,SX,* 8 1683 B D05 E28 * 15 175 3 250 BCE DIOG,SX,/ 8 1691 B D05 E28 / 15 176 4 010 BCE DIOG,SX,) 8 1699 B D05 E28 ) 15 177 4 020 B BACK1 4 1707 B V03 15 178 4 030 IF3 B SKIP 4 1711 B D83 15 179 4 040 B GETSX 4 1715 B Y15 15 180 4 050 C SX,@$02@ 7 1719 C E28 E98 16 181 4 060 BE DIOG 5 1726 B D05 S 16 182 4 070 C SX,@$01@ 7 1731 C E28 F01 16 183 4 080 BE DIOG 5 1738 B D05 S 16 184 4 090 C SX,@$09@ 7 1743 C E28 F04 16 185 4 100 BE DIOG 5 1750 B D05 S 16 186 4 110 C SX,@$40@ 7 1755 C E28 E80 17 187 4 120 BE DIOG 5 1762 B D05 S 17 188 4 130 B IF4 4 1767 B Y03 17 189 4 140 PLUS B GETSX 4 1771 B Y15 17 190 4 150 BCE DIOG,SX,& 8 1775 B D05 E28 & 17 191 4 160 BCE DIOG,SX,- 8 1783 B D05 E28 - 17 192 4 170 B MULT1 4 1791 B W83 18 193 4 180 BBBK B SKIP 4 1795 B D83 18 194 4 190 B GETSX 4 1799 B Y15 18 195 4 200 IF4 BCE SUB8,SX,% 8 1803 B A09 E28 % 18 196 4 210 B BACK1 4 1811 B V03 18 197 4 220 GETSX SBR EXIT&3 4 1815 H Z35 18 1 1401 COBOL - BD5 PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 4 230 GETSX1 B GETX 4 1819 B 335 18 199 4 240 DCW SX 3 1825 E28 19 200 4 250 DCW EOP 3 1828 M23 19 201 5 010 B PUTX 4 1829 B 363 19 202 5 020 DCW SX 3 1835 E28 19 203 5 030 C SX,@.PD@ 7 1836 C E28 F07 19 204 5 040 BE PSK 5 1843 B B88 S 19 205 5 050 CW SST 4 1848 ) E42 19 206 5 060 GGC C SX,@A05@ 7 1852 C E28 F10 20 207 5 070 BE SPS 5 1859 B Z36 S 20 208 5 080 C SX,@#DC@ 7 1864 C E28 F13 20 209 5 090 BE X7 5 1871 B T00 S 20 210 5 100 C SX,@.DG@ 7 1876 C E28 F16 20 211 5 110 BE GRX 5 1883 B Z51 S 20 212 5 120 C SX,@.CD@ 7 1888 C E28 F19 21 213 5 130 BE CARD 5 1895 B A87 S 21 214 5 140 BCE OUS,SX,% 8 1900 B A17 E28 % 21 215 5 150 C SX,@*32@ 7 1908 C E28 F22 21 216 5 160 BE QUALIF 5 1915 B L35 S 21 217 5 161 C SX,@$32@ 7 1920 C E28 E92 21 218 5 162 BE GETSX1 5 1927 B Y19 S 22 219 5 170 EXIT B * 4 1932 B Z35 22 220 5 180 SPS MLC @.NM@,SX 7 1936 M E72 E28 22 221 5 190 SW SS1 4 1943 , E29 22 222 5 200 B EXIT 4 1947 B Z32 22 223 5 210 GRX B GETSR 4 1951 B C16 22 224 5 220 B GETSX1 4 1955 B Y19 22 225 5 230 SKIP1 B SKIP 4 1959 B D83 23 226 5 240 B BACK 4 1963 B U99 23 227 5 250 PEFORM B GETSX 4 1967 B Y15 23 228 6 010 B PROI 4 1971 B M97 23 229 6 020 B GETSX 4 1975 B Y15 23 230 6 030 B PAUSK 4 1979 B N33 23 231 6 040 PERM C SX,@.NM@ 7 1983 C E28 E72 23 232 6 050 BE ONCALL 5 1990 B J07 S 24 233 6 060 C SX,@.NL@ 7 1995 C E28 E69 24 234 6 070 BE ONCALL 5 2002 B J07 S 24 235 6 080 C SX,@*08@ 7 2007 C E28 F25 24 236 6 090 BE THRU 5 2014 B L91 S 24 237 6 100 C SX,@*07@ 7 2019 C E28 F28 24 238 6 110 BE VARY 5 2026 B !47 S 25 239 6 120 C SX,@*18@ 7 2031 C E28 F31 25 240 6 130 BE UNTIL 5 2038 B L59 S 25 241 6 140 B DIOG 4 2043 B D05 25 242 6 150 VARY B GETSX 4 2047 B Y15 25 243 6 160 B DATI 4 2051 B M73 25 244 6 170 FROM B GETSX 4 2055 B Y15 25 245 6 180 C SX,@*28@ 7 2059 C E28 F34 26 246 6 190 BU DIOG 5 2066 B D05 / 26 247 6 200 B GETSX 4 2071 B Y15 26 1 1401 COBOL - BD5 PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 6 210 B PROI 4 2075 B M97 26 249 6 220 B GETSX 4 2079 B Y15 26 250 6 230 C SX,@*35@ 7 2083 C E28 F37 26 251 6 240 BU DIOG 5 2090 B D05 / 26 252 6 250 B GETSX 4 2095 B Y15 27 253 7 010 B PROI 4 2099 B M97 27 254 7 020 B UNTIL 4 2103 B L59 27 255 7 030 ONCALL B SKIP 4 2107 B D83 27 256 7 040 B GETSX 4 2111 B Y15 27 257 7 050 C SX,@ *@ 7 2115 C E28 F40 27 258 7 060 BU DIOG 5 2122 B D05 / 27 259 7 070 B GETSX 4 2127 B Y15 28 260 7 080 B DONE1 4 2131 B C00 28 261 7 090 HERE B GETSX 4 2135 B Y15 28 262 7 100 BCE SUB,SX,% 8 2139 B J51 E28 % 28 263 7 110 B BACK1 4 2147 B V03 28 264 7 120 SUB B NAME1 4 2151 B J71 28 265 7 130 C SX,@ )@ 7 2155 C E28 F43 28 266 7 140 BU DIOG 5 2162 B D05 / 29 267 7 150 B BACK 4 2167 B U99 29 268 7 160 NAME1 SBR FIX&3 4 2171 H K38 29 269 7 170 B GETSX 4 2175 B Y15 29 270 7 180 PRRI C SX,@.NM@ 7 2179 C E28 E72 29 271 7 190 BE NAME2 5 2186 B K03 S 29 272 7 200 C SX,@.NL@ 7 2191 C E28 E69 29 273 7 210 BU DIOG 5 2198 B D05 / 30 274 7 220 NAME2 B SKIP 4 2203 B D83 30 275 7 230 NAAA B GETSX 4 2207 B Y15 30 276 7 240 C SX,@.NM@ 7 2211 C E28 E72 30 277 7 250 BE NAME2 5 2218 B K03 S 30 278 8 010 C SX,@.NL@ 7 2223 C E28 E69 30 279 8 020 BE NAME2 5 2230 B K03 S 30 280 8 030 FIX B * 4 2235 B K38 31 281 8 040 NOT B GETSX 4 2239 B Y15 31 282 8 050 C SX,@$30@ 7 2243 C E28 E75 31 283 8 060 BE DIOG 5 2250 B D05 S 31 284 8 070 NOT1 C SX,@$32@ 7 2255 C E28 E92 31 285 8 080 BE DIOG 5 2262 B D05 S 31 286 8 090 C SX,@$31@ 7 2267 C E28 E95 31 287 8 100 BE DIOG 5 2274 B D05 S 32 288 8 110 BCE DIOG,SX-2,) 8 2279 B D05 E26 ) 32 289 8 120 BCE DIOG,SX,) 8 2287 B D05 E28 ) 32 290 8 130 B BACK1 4 2295 B V03 32 291 8 140 ANDORL B GETSX 4 2299 B Y15 32 292 8 150 B NOT1 4 2303 B K55 32 293 8 160 RPAREN B GETSX 4 2307 B Y15 32 294 8 170 C SX,@$30@ 7 2311 C E28 E75 33 295 8 180 BE DIOG 5 2318 B D05 S 33 296 8 190 BCE DIOG,SX,% 8 2323 B D05 E28 % 33 297 8 200 B BACK1 4 2331 B V03 33 1 1401 COBOL - BD5 PAGE 5 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 298 8 210 QUALIF B GETSR 4 2335 B C16 33 299 8 220 C SX,@.NM@ 7 2339 C E28 E72 33 300 8 230 BU DIOG 5 2346 B D05 / 34 301 8 240 B SKIP 4 2351 B D83 34 302 8 250 B GETSX1 4 2355 B Y19 34 303 9 010 UNTIL B GETSR 4 2359 B C16 34 304 9 020 B PAUSK 4 2363 B N33 34 305 9 030 C SX,@*22@ 7 2367 C E28 F46 34 306 9 040 BU UNTIL 5 2374 B L59 / 34 307 9 050 B GETSX 4 2379 B Y15 35 308 9 060 B DATI 4 2383 B M73 35 309 9 070 B FROM 4 2387 B !55 35 310 9 080 THRU B GETSX 4 2391 B Y15 35 311 9 090 B PROI 4 2395 B M97 35 312 9 100 B GETSX 4 2399 B Y15 35 313 9 110 B PAUSK 4 2403 B N33 35 314 9 120 C SX,@*08@ 7 2407 C E28 F25 36 315 9 130 BE DIOG 5 2414 B D05 S 36 316 9 140 B PERM 4 2419 B Z83 36 317 9 150 EOP BW EOP1,SST 8 2423 V M59 E42 1 36 318 9 160 B PUTX 4 2431 B 363 36 319 9 170 DCW &@.DM@ 3 2437 F49 36 320 9 180 B PUTX 4 2438 B 363 36 321 9 190 DCW CARD1-3 3 2444 E35 37 322 9 200 B PUTX 4 2445 B 363 37 323 9 210 DCW CARD1 3 2451 E38 37 324 9 220 B PUTX 4 2452 B 363 37 325 9 230 DCW &@B3A@ 3 2458 F52 37 326 9 240 EOP1 B PUTX 4 2459 B 363 37 327 9 250 DCW SX 3 2465 E28 37 328 10 010 B SUPER 4 2466 B 351 38 329 10 020 DCW @BD6@ 3 2472 38 330 10 030 DATI SBR EXIT3&3 4 2473 H M96 38 331 10 040 C SX,@.NM@ 7 2477 C E28 E72 38 332 10 050 BU DIOG 5 2484 B D05 / 38 333 10 060 B SKIP 4 2489 B D83 38 334 10 070 EXIT3 B * 4 2493 B M96 38 335 10 080 PROI SBR EXIT1&3 4 2497 H N32 39 336 10 090 C SX,@.NL@ 7 2501 C E28 E69 39 337 10 100 BE PRO2 5 2508 B N25 S 39 338 10 110 C SX,@.NM@ 7 2513 C E28 E72 39 339 10 120 BU DIOG 5 2520 B D05 / 39 340 10 130 PRO2 B SKIP 4 2525 B D83 39 341 10 140 EXIT1 B * 4 2529 B N32 39 342 10 150 PAUSK SBR EXIT2&3 4 2533 H O08 40 343 10 160 C SX,@$32@ 7 2537 C E28 E92 40 344 10 170 BE GETSR 5 2544 B C16 S 40 345 10 180 C SX,@.PD@ 7 2549 C E28 F07 40 346 10 190 BE X7A 5 2556 B O09 S 40 347 10 200 C SX,@*02@ 7 2561 C E28 F55 40 1 1401 COBOL - BD5 PAGE 6 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 348 10 210 BE X7 5 2568 B T00 S 41 349 10 220 C SX,@*25@ 7 2573 C E28 F58 41 350 10 230 BE X7 5 2580 B T00 S 41 351 10 240 BCE VERB,SX-2,) 8 2585 B T16 E26 ) 41 352 10 250 C SX,@*24@ 7 2593 C E28 F61 41 353 11 010 BE X7 5 2600 B T00 S 41 354 11 020 EXIT2 B * 4 2605 B O08 42 355 11 030 X7A B GETSX 4 2609 B Y15 42 356 11 040 BCE VERB,SX-2,) 8 2613 B T16 E26 ) 42 357 11 050 C SX,@.LB@ 7 2621 C E28 F64 42 358 11 060 BE X7 5 2628 B T00 S 42 359 11 070 C SX,@*24@ 7 2633 C E28 F61 42 360 11 080 BU DIOG 5 2640 B D05 / 43 361 11 090 B X7 4 2645 B T00 43 362 11 100 COMPT B GETSX 4 2649 B Y15 43 363 11 110 B DATI 4 2653 B M73 43 364 11 120 COMP0 B GETSX 4 2657 B Y15 43 365 11 130 BCE SUB8,SX,% 8 2661 B A09 E28 % 43 366 11 140 BCE COMPUT,SX,# 8 2669 B O93 E28 # 43 367 11 150 C SX,@*10@ 7 2677 C E28 F67 44 368 11 160 BU DIOG 5 2684 B D05 / 44 369 11 170 B COMP0 4 2689 B O57 44 370 11 180 COMPUT B GETSX 4 2693 B Y15 44 371 11 190 COMPP C SX,@.NM@ 7 2697 C E28 E72 44 372 11 200 BE COMP1 5 2704 B Q65 S 44 373 11 210 C SX,@/10@ 7 2709 C E28 F70 44 374 11 220 BE X7 5 2716 B T00 S 45 375 11 230 C SX,@$08@ 7 2721 C E28 F73 45 376 11 240 BE COMP9 5 2728 B R01 S 45 377 11 250 C SX,@.NL@ 7 2733 C E28 E69 45 378 12 010 BE COMP12 5 2740 B Q97 S 45 379 12 020 BCE COMP3,SX,& 8 2745 B Q41 E28 & 45 380 12 030 BCE COMP3,SX,- 8 2753 B Q41 E28 - 46 381 12 040 BCE COMP9,SX,) 8 2761 B R01 E28 ) 46 382 12 050 BCE COMP7,SX,% 8 2769 B P97 E28 % 46 383 12 060 BCE COMP7,SX,/ 8 2777 B P97 E28 / 46 384 12 070 BCE COMP7,SX,* 8 2785 B P97 E28 * 47 385 12 080 B DIOG 4 2793 B D05 47 386 12 090 COMP7 B GETSX 4 2797 B Y15 47 387 12 100 COMP7A C SX,@.PD@ 7 2801 C E28 F07 47 388 12 110 BE DIOG 5 2808 B D05 S 47 389 12 120 BCE DIOG,SX,* 8 2813 B D05 E28 * 47 390 12 130 BCE DIOG,SX,/ 8 2821 B D05 E28 / 48 391 12 140 BCE DIOG,SX,) 8 2829 B D05 E28 ) 48 392 12 150 B COMPP 4 2837 B O97 48 393 12 160 COMP3 B GETSX 4 2841 B Y15 48 394 12 170 BCE DIOG,SX,& 8 2845 B D05 E28 & 48 395 12 180 BCE DIOG,SX,- 8 2853 B D05 E28 - 49 396 12 190 B COMP7A 4 2861 B Q01 49 397 12 200 COMP1 B SKIP 4 2865 B D83 49 1 1401 COBOL - BD5 PAGE 7 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 398 12 210 B GETSX 4 2869 B Y15 49 399 12 220 C SX,@ %@ 7 2873 C E28 F76 49 400 12 230 BU OTHER 5 2880 B R13 / 49 401 12 240 B SUB8 4 2885 B A09 49 402 12 250 B PAUSK 4 2889 B N33 50 403 13 010 B COMPP 4 2893 B O97 50 404 13 020 COMP12 B SKIP 4 2897 B D83 50 405 13 030 COMP9 B GETSX 4 2901 B Y15 50 406 13 040 BCE DIOG,SX,% 8 2905 B D05 E28 % 50 407 13 050 OTHER BCE DIOG,SX-2,$ 8 2913 B D05 E26 $ 50 408 13 060 C SX,@.NM@ 7 2921 C E28 E72 50 409 13 070 BE DIOG 5 2928 B D05 S 51 410 13 080 C SX,@.NL@ 7 2933 C E28 E69 51 411 13 090 BE DIOG 5 2940 B D05 S 51 412 13 100 B PAUSK 4 2945 B N33 51 413 13 110 B COMPP 4 2949 B O97 51 414 13 120 NAME6 SBR NAME12&3 4 2953 H R92 51 415 13 130 C SX,@.NM@ 7 2957 C E28 E72 51 416 13 140 BU DIOG 5 2964 B D05 / 52 417 13 150 NAMONE B SKIP 4 2969 B D83 52 418 13 160 B GETSX 4 2973 B Y15 52 419 13 170 C SX,@.NM@ 7 2977 C E28 E72 52 420 13 180 BE NAMONE 5 2984 B R69 S 52 421 13 190 NAME12 B * 4 2989 B R92 52 422 13 200 CLOSE B GETSX 4 2993 B Y15 52 423 13 210 CLOSE3 B NAME6 4 2997 B R53 53 424 13 220 B PAUSK 4 3001 B N33 53 425 13 230 C SX,@*33@ 7 3005 C E28 F79 53 426 13 240 BE CLOSE2 5 3012 B ?33 S 53 427 13 250 C SX,@*26@ 7 3017 C E28 F82 53 428 14 010 BE PAUSE1 5 3024 B C89 S 53 429 14 020 B CLOSE3 4 3029 B R97 53 430 14 030 CLOSE2 B GETSX 4 3033 B Y15 54 431 14 040 C SX,@*13@ 7 3037 C E28 F85 54 432 14 050 BU DIOG 5 3044 B D05 / 54 433 14 060 B PAUSE1 4 3049 B C89 54 434 14 070 B CLOSE3 4 3053 B R97 54 435 14 080 STOP B GETSX 4 3057 B Y15 54 436 14 090 C SX,@.NL@ 7 3061 C E28 E69 54 437 14 100 BU STOP1 5 3068 B ?81 / 55 438 14 110 STOP3 B SKIP 4 3073 B D83 55 439 14 120 B DONE1 4 3077 B C00 55 440 14 130 STOP1 C SX,@*30@ 7 3081 C E28 F88 55 441 14 140 BE DONE1 5 3088 B C00 S 55 442 14 150 C SX,@ @@ 7 3093 C E28 E66 55 443 14 160 BU DIOG 5 3100 B D05 / 55 444 14 170 B STOP3 4 3105 B ?73 56 445 14 180 SUB8 SBR EXIT&3 4 3109 H Z35 56 446 14 190 B OUST1 4 3113 B A41 56 447 14 200 OUS C HOLD,@)05@ 7 3117 C E41 E57 56 1 1401 COBOL - BD5 PAGE 8 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 448 14 210 BE EXIT 5 3124 B Z32 S 56 449 14 220 C HOLD,@)19@ 7 3129 C E41 E54 56 450 14 230 BE EXIT 5 3136 B Z32 S 56 451 14 240 OUST1 MLC EXIT&3,KEEP8 7 3141 M Z35 E48 57 452 14 250 B GETSX 4 3148 B Y15 57 453 15 010 B ALLPA 4 3152 B A79 57 454 15 020 C SX,@ )@ 7 3156 C E28 F43 57 455 15 030 BU DIOG 5 3163 B D05 / 57 456 15 040 MLC KEEP8,EXIT&3 7 3168 M E48 Z35 57 457 15 050 B GETSX1 4 3175 B Y19 57 458 15 060 ALLPA SBR FIX&3 4 3179 H K38 58 459 15 070 B PRRI 4 3183 B J79 58 460 15 080 CARD SBR EXT&3 4 3187 H B46 58 461 15 090 CADD MLC EXIT10&3,SAVR 7 3191 M C88 E32 58 462 15 100 B GETSR 4 3198 B C16 58 463 15 110 MLC SX,CARD1-3 7 3202 M E28 E35 58 464 15 120 B GETSR 4 3209 B C16 58 465 15 130 MLC SX,CARD1 7 3213 M E28 E38 59 466 15 140 B GETT 4 3220 B B47 59 467 15 150 C SX,@.CD@ 7 3224 C E28 F19 59 468 15 160 BE CADD 5 3231 B A91 S 59 469 15 170 MLC SAVR,EXIT10&3 7 3236 M E32 C88 59 470 15 180 EXT B * 4 3243 B B46 59 471 15 190 GETT SBR EET&3 4 3247 H B87 59 472 15 200 B GETX 4 3251 B 335 60 473 15 210 DCW SX 3 3257 E28 60 474 15 220 DCW EOP 3 3260 M23 60 475 15 230 B PUTX 4 3261 B 363 60 476 15 240 DCW SX 3 3267 E28 60 477 15 250 C SX,@.PD@ 7 3268 C E28 F07 60 478 16 010 BE PSK 5 3275 B B88 S 60 479 16 020 CW SST 4 3280 ) E42 61 480 16 030 EET B * 4 3284 B B87 61 481 16 040 PSK SBR X2 4 3288 H 094 61 482 16 050 SW SST 4 3292 , E42 61 483 16 060 B 4&X2 4 3296 B 0!4 61 484 16 070 DONE1 C SX,@.PD@ 7 3300 C E28 F07 61 485 16 080 BE X7 5 3307 B T00 S 61 486 16 090 B VERB 4 3312 B T16 62 487 16 100 GETSR SBR EXIT10&3 4 3316 H C88 62 488 16 110 GETSR1 B GETX 4 3320 B 335 62 489 16 120 DCW SX 3 3326 E28 62 490 16 130 DCW EOP 3 3329 M23 62 491 16 140 B PUTX 4 3330 B 363 62 492 16 150 DCW SX 3 3336 E28 62 493 16 160 C SX,@.PD@ 7 3337 C E28 F07 63 494 16 170 BE PSK 5 3344 B B88 S 63 495 16 180 CW SST 4 3349 ) E42 63 496 16 190 GGK C SX,@.CD@ 7 3353 C E28 F19 63 497 16 200 BE CARD 5 3360 B A87 S 63 1 1401 COBOL - BD5 PAGE 9 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 498 16 210 C SX,@.DG@ 7 3365 C E28 F16 63 499 16 220 BU EXIT10 5 3372 B C85 / 64 500 16 230 B GETT 4 3377 B B47 64 501 16 240 B GETSR1 4 3381 B C20 64 502 16 250 EXIT10 B * 4 3385 B C88 64 503 17 010 PAUSE1 SBR PK1&3 4 3389 H D04 64 504 17 020 B GETSX 4 3393 B Y15 64 505 17 030 B PAUSK 4 3397 B N33 64 506 17 040 PK1 B * 4 3401 B D04 65 507 17 050 DIOG B PUTX 4 3405 B 363 65 508 17 060 DCW &@.DK@ 3 3411 F91 65 509 17 070 B PUTX 4 3412 B 363 65 510 17 080 DCW CARD1-3 3 3418 E35 65 511 17 090 B PUTX 4 3419 B 363 65 512 17 100 DCW CARD1 3 3425 E38 65 513 17 110 B PUTX 4 3426 B 363 66 514 17 120 DCW HOLD 3 3432 E41 66 515 17 130 OXB B GETSR 4 3433 B C16 66 516 17 140 C SX,@.CD@ 7 3437 C E28 F19 66 517 17 150 BU OXB1 5 3444 B D71 / 66 518 17 160 B GETSR 4 3449 B C16 66 519 17 170 MLC SX,CARD1-3 7 3453 M E28 E35 66 520 17 180 B GETSR 4 3460 B C16 67 521 17 190 MLC SX,CARD1 7 3464 M E28 E38 67 522 17 200 OXB1 BCE VERB,SX-2,) 8 3471 B T16 E26 ) 67 523 17 210 B OXB 4 3479 B D33 67 524 17 220 SKIP SBR EXR1&3 4 3483 H E25 67 525 17 230 MLC SX,TEMP 7 3487 M E28 E45 67 526 17 240 BW SKKK,SS1 8 3494 V E18 E29 1 68 527 17 250 SKIPER B GETSR 4 3502 B C16 68 528 18 010 C SX,TEMP 7 3506 C E28 E45 68 529 18 020 BU SKIPER 5 3513 B E02 / 68 530 18 030 SKKK CW SS1 4 3518 ) E29 68 531 18 040 EXR1 B * 4 3522 B E25 68 532 18 050 SX DCW #3 3 3528 68 533 18 060 SS1 DC #1 1 3529 69 534 18 070 SAVR DCW #3 3 3532 69 535 18 080 CARD1 DCW #6 6 3538 69 536 18 090 HOLD DCW #3 3 3541 69 537 18 100 SST DC #1 1 3542 69 538 18 110 TEMP DCW #3 3 3545 69 539 18 120 KEEP8 DCW #3 3 3548 70 540 18 130 LTORG 3549 DCW @)03@ 3 3551 LIT 70 @)19@ 3 3554 LIT 70 @)05@ 3 3557 LIT 70 @)09@ 3 3560 LIT 70 @)11@ 3 3563 LIT 70 @ @@ 3 3566 LIT 70 @.NL@ 3 3569 LIT 71 1 1401 COBOL - BD5 PAGE 10 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD @.NM@ 3 3572 LIT 71 @$30@ 3 3575 LIT 71 @$0@ 2 3577 LIT 71 @$40@ 3 3580 LIT 71 @$20@ 3 3583 LIT 71 @ #@ 3 3586 LIT 71 @$21@ 3 3589 LIT 72 @$32@ 3 3592 LIT 72 @$31@ 3 3595 LIT 72 @$02@ 3 3598 LIT 72 @$01@ 3 3601 LIT 72 @$09@ 3 3604 LIT 72 @.PD@ 3 3607 LIT 72 @A05@ 3 3610 LIT 73 @#DC@ 3 3613 LIT 73 @.DG@ 3 3616 LIT 73 @.CD@ 3 3619 LIT 73 @*32@ 3 3622 LIT 73 @*08@ 3 3625 LIT 73 @*07@ 3 3628 LIT 73 @*18@ 3 3631 LIT 74 @*28@ 3 3634 LIT 74 @*35@ 3 3637 LIT 74 @ *@ 3 3640 LIT 74 @ )@ 3 3643 LIT 74 @*22@ 3 3646 LIT 74 @.DM@ 3 3649 LIT 74 @B3A@ 3 3652 LIT 75 @*02@ 3 3655 LIT 75 @*25@ 3 3658 LIT 75 @*24@ 3 3661 LIT 75 @.LB@ 3 3664 LIT 75 @*10@ 3 3667 LIT 75 @/10@ 3 3670 LIT 75 @$08@ 3 3673 LIT 76 @ %@ 3 3676 LIT 76 @*33@ 3 3679 LIT 76 @*26@ 3 3682 LIT 76 @*13@ 3 3685 LIT 76 @*30@ 3 3688 LIT 76 @.DK@ 3 3691 LIT 76 541 18 140 ORG 3692 542 18 150 DCW @}@ 1 3692 77 543 18 160 END / 000 080 78 1CLEAR STORAGE 1 ,008015,022026,030037,044,049,053053N000000N00001026 1 CLEAR STORAGE 2 L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0? 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 1401 COBOL - BD6 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 1 010 000 JOB 1401 COBOL - BD6 102 1 020 CTL 661111 103 1 030 ORG 1300 1300 104 1 040 OK EQU 3500 3500 105 1 050 GETX EQU 335 0335 106 1 060 PUTX EQU 363 0363 107 1 070 SUPER EQU 351 0351 108 1 080 OUT1 EQU 208 0208 109 1 090 X2 EQU 94 0094 110 1 100 B SUPER 4 1300 B 351 4 111 1 110 DCW @BT1@ 3 1306 4 112 1 120 BW START1,1002 8 1307 V T19 02 1 4 113 1 130 B ERS2 4 1315 B U93 4 114 1 140 START1 BW ERS,1000 8 1319 V V15 00 1 4 115 1 150 BW ERS1,1001 8 1327 V V04 01 1 4 116 1 160 START B GETSX 4 1335 B J11 4 117 1 170 X71 C SX,@.DG@ 7 1339 C K00 K03 5 118 1 180 BE LEO 5 1346 B U77 S 5 119 1 190 C SX,@.DK@ 7 1351 C K00 K06 5 120 1 200 BE PRO 5 1358 B V98 S 5 121 1 210 C SX,@.ZD@ 7 1363 C K00 K09 5 122 1 220 BE PRO 5 1370 B V98 S 5 123 1 230 C SX,@.DM@ 7 1375 C K00 K12 6 124 1 240 BE ALL 5 1382 B W44 S 6 125 1 250 C SX,@.DZ@ 7 1387 C K00 K15 6 126 2 010 BE PRO 5 1394 B V98 S 6 127 2 020 B PUTSX 4 1399 B J29 6 128 2 030 C SX,@.CD@ 7 1403 C K00 K18 6 129 2 040 BE CARD 5 1410 B V64 S 7 130 2 050 STTR C SX,@/24@ 7 1415 C K00 K21 7 131 2 060 BU LXX1 5 1422 B U54 / 7 132 2 070 B GETSX 4 1427 B J11 7 133 2 080 C SX,@*06@ 7 1431 C K00 K24 7 134 2 090 BU X71 5 1438 B T39 / 7 135 2 100 B PUTSX 4 1443 B J29 7 136 2 110 B SUPER 4 1447 B 351 8 137 2 120 DCW @BT2@ 3 1453 8 138 2 130 LXX1 C SX,@*01@ 7 1454 C K00 K27 8 139 2 140 BU LXX2 5 1461 B U73 / 8 140 2 150 B SUPER 4 1466 B 351 8 141 2 160 DCW @BT3@ 3 1472 8 142 2 170 LXX2 B START 4 1473 B T35 8 143 2 180 LEO B HEADER 4 1477 B X09 9 144 2 190 B GETSX 4 1481 B J11 9 145 2 200 B LOOKUP 4 1485 B W52 9 146 2 210 B OUTPUT 4 1489 B X79 9 147 2 220 ERS2 MLC @B99@,SX 7 1493 M K30 K00 9 1 1401 COBOL - BD6 PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 2 230 B ECC 4 1500 B V22 9 149 2 240 ERS1 MLC @B98@,SX 7 1504 M K33 K00 9 150 2 250 B ECC 4 1511 B V22 10 151 3 010 ERS MLC @B97@,SX 7 1515 M K36 K00 10 152 3 020 ECC B HEADER 4 1522 B X09 10 153 3 030 B LOOKUP 4 1526 B W52 10 154 3 040 CS 299 4 1530 / 299 10 155 3 050 MLC @**@,OUT1&7 7 1534 M K38 215 10 156 3 060 MLC SX,OUT1&16 7 1541 M K00 224 10 157 3 070 MRCM 1&X2,OUT1&30 7 1548 P 0!1 238 11 158 3 080 MLC @. @ 4 1555 M K40 11 159 3 090 W 1 1559 2 11 160 3 100 B ST4 4 1560 B Z91 11 161 3 110 CARD B GETSX 4 1564 B J11 11 162 3 120 B PUTSX 4 1568 B J29 11 163 3 130 MLC SX,CARD1-3 7 1572 M K00 J70 11 164 3 140 B GETSX 4 1579 B J11 12 165 3 150 B PUTSX 4 1583 B J29 12 166 3 160 MLC SX,CARD1 7 1587 M K00 J73 12 167 3 170 B STTR 4 1594 B U15 12 168 3 180 PRO B HEADER 4 1598 B X09 12 169 3 190 B GETSX 4 1602 B J11 12 170 3 200 MLC SX,CARD1-3 7 1606 M K00 J70 12 171 3 210 B GETSX 4 1613 B J11 13 172 3 220 MLC SX,CARD1 7 1617 M K00 J73 13 173 3 230 B GETSX 4 1624 B J11 13 174 3 240 B LOOKUP 4 1628 B W52 13 175 3 250 BW OUTPUT,SWX 8 1632 V X79 J60 1 13 176 4 010 B OUT12 4 1640 B Y50 13 177 4 020 ALL SW SWX 4 1644 , J60 13 178 4 030 B PRO 4 1648 B V98 14 179 4 040 LOOKUP SBR EXIT&3 4 1652 H X08 14 180 4 050 SBR X2,OK 7 1656 H 094 E00 14 181 4 060 LOOK1 BCE START,0&X2,$ 8 1663 B T35 0!0 $ 14 182 4 070 MLC 0&X2,0&X2 7 1671 M 0!0 0!0 14 183 4 080 SBR X2 4 1678 H 094 14 184 4 090 C 3&X2,SX 7 1682 C 0!3 K00 15 185 4 100 BU LOOK1 5 1689 B W63 / 15 186 4 110 MLC 0&X2,0&X2 7 1694 M 0!0 0!0 15 187 4 120 SBR X2 4 1701 H 094 15 188 4 130 EXIT B * 4 1705 B X08 15 189 4 140 HEADER SBR ONE&3 4 1709 H X78 15 190 4 150 BW ONE,SW1 8 1713 V X75 J74 1 15 191 4 160 SW SW1 4 1721 , J74 16 192 4 170 CS 332 4 1725 / 332 16 193 4 180 CS 1 1729 / 16 194 4 190 MLC @*** DIAGNOSTICS ***@,OUT1&57 7 1730 M K59 265 16 195 4 200 W 1 1737 2 16 196 4 210 CC J 2 1738 F J 16 197 4 220 CS 299 4 1740 / 299 16 1 1401 COBOL - BD6 PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 4 230 MLC @FLAG@,OUT1&8 7 1744 M K63 216 17 199 4 240 MLC @REF@,OUT1&16 7 1751 M K66 224 17 200 4 250 MLC @SEQUENCE@,OUT1&26 7 1758 M K74 234 17 201 5 010 MLC @MESSAGE@,OUT1&43 7 1765 M K81 251 17 202 5 020 W 1 1772 2 17 203 5 030 CC J 2 1773 F J 17 204 5 040 ONE B * 4 1775 B X78 17 205 5 050 OUTPUT CS 332 4 1779 / 332 18 206 5 060 CS 1 1783 / 18 207 5 070 CW SWX 4 1784 ) J60 18 208 5 080 BWZ HANG,SX,2 8 1788 V Y04 K00 2 18 209 5 090 B HANG1 4 1796 B Y94 18 210 5 100 B HAGG 4 1800 B Y11 18 211 5 110 HANG A @1@,NONHLT 7 1804 A K82 J63 18 212 5 120 HAGG SW NHLT 4 1811 , J59 19 213 5 130 MCS CARD1,OUT1&25 7 1815 Z J73 233 19 214 5 140 MLC SX,OUT1&16 7 1822 M K00 224 19 215 5 150 MRCM 1&X2,OUT1&30 7 1829 P 0!1 238 19 216 5 160 MLC @. @ 4 1836 M K40 19 217 5 170 W 1 1840 2 19 218 5 180 BCV OVS 5 1841 B J49 @ 19 219 5 190 B START 4 1846 B T35 20 220 5 200 OUT12 CS 332 4 1850 / 332 20 221 5 210 CS 1 1854 / 20 222 5 220 B HANG1 4 1855 B Y94 20 223 5 230 MCS CARD1,OUT1&25 7 1859 Z J73 233 20 224 5 240 MLC @FORMAT ERROR-@,OUT1&42 7 1866 M K95 250 20 225 5 250 MRCM 1&X2,OUT1&45 7 1873 P 0!1 253 20 226 6 010 MLC @. @ 4 1880 M K40 21 227 6 020 W 1 1884 2 21 228 6 030 BCV OVS 5 1885 B J49 @ 21 229 6 040 B START 4 1890 B T35 21 230 6 050 HANG1 SBR RETURN&3 4 1894 H Z26 21 231 6 060 A @1@,HANGER 7 1898 A K82 J66 21 232 6 070 SW HLT 4 1905 , J67 21 233 6 080 MLZS @ @,SX 7 1909 Y K96 K00 22 234 6 090 MLC @**@,OUT1&7 7 1916 M K38 215 22 235 6 100 RETURN B * 4 1923 B Z26 22 236 6 110 STOPS CC K 2 1927 F K 22 237 6 120 CS 299 4 1929 / 299 22 238 6 130 MLC @NUMBER OF ERRORS NEEDING CORRECTION-@,265 7 1933 M L32 265 22 239 6 140 MCS HANGER,270 7 1940 Z J66 270 22 240 6 150 W 1 1947 2 23 241 6 160 BCV OVV 5 1948 B J44 @ 23 242 6 170 STT CS 299 4 1953 / 299 23 243 6 180 MLC TOT,250 7 1957 M J97 250 23 244 6 190 A HANGER,NONHLT 7 1964 A J66 J63 23 245 6 200 MCS NONHLT,255 7 1971 Z J63 255 23 246 6 210 W 1 1978 2 23 247 6 220 BCV OVR 5 1979 B J54 @ 24 1 1401 COBOL - BD6 PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 6 230 CC 1 2 1984 F 1 24 249 6 240 BSS EOP1,E 5 1986 B !97 E 24 250 6 250 ST4 CS 299 4 1991 / 299 24 251 7 010 CC K 2 1995 F K 24 252 7 020 MLC @COMPILATION SUSPENDED@,250 7 1997 M L53 250 24 253 7 030 W 1 2004 2 24 254 7 040 CC 1 2 2005 F 1 25 255 7 050 RWD 1 5 2007 U %U1 R 25 256 7 060 RWD 5 5 2012 U %U5 R 25 257 7 070 RWD 6 5 2017 U %U6 R 25 258 7 080 RWD 4 5 2022 U %U4 R 25 259 7 090 H *-3 4 2027 . !27 25 260 7 100 B *-7 4 2031 B !27 25 261 7 110 NSTOP CS 299 4 2035 / 299 26 262 7 120 CC K 2 2039 F K 26 263 7 130 MLC TOT,250 7 2041 M J97 250 26 264 7 140 MCS NONHLT,255 7 2048 Z J63 255 26 265 7 150 W 1 2055 2 26 266 7 160 CS 299 4 2056 / 299 26 267 7 170 CC K 2 2060 F K 26 268 7 180 MLC @PRESS START TO CONTINUE@,250 7 2062 M L76 250 27 269 7 190 W 1 2069 2 27 270 7 200 CC 1 2 2070 F 1 27 271 7 210 BSS EOP1,E 5 2072 B !97 E 27 272 7 220 H EOP1 4 2077 . !97 27 273 7 230 EOP BW STOPS,HLT 8 2081 V Z27 J67 1 27 274 7 240 BW NSTOP,NHLT 8 2089 V !35 J59 1 27 275 7 250 EOP1 B PUTX 4 2097 B 363 28 276 8 010 DCW SX 3 2103 K00 28 277 8 020 B SUPER 4 2104 B 351 28 278 8 030 DCW @B01@ 3 2110 28 279 8 040 GETSX SBR EXIT7&3 4 2111 H J28 28 280 8 050 B GETX 4 2115 B 335 28 281 8 060 DCW SX 3 2121 K00 28 282 8 070 DCW EOP 3 2124 !81 29 283 8 080 EXIT7 B * 4 2125 B J28 29 284 8 090 PUTSX SBR EX1&3 4 2129 H J43 29 285 8 100 B PUTX 4 2133 B 363 29 286 8 110 DCW SX 3 2139 K00 29 287 8 120 EX1 B * 4 2140 B J43 29 288 8 130 OVV CCB STT,1 5 2144 F Z53 1 29 289 8 140 OVS CCB START,1 5 2149 F T35 1 30 290 8 150 OVR CCB ST4,1 5 2154 F Z91 1 30 291 8 160 NHLT DC #1 1 2159 30 292 8 170 SWX DC #1 1 2160 30 293 8 180 NONHLT DCW @000@ 3 2163 30 294 8 190 HANGER DCW @000@ 3 2166 30 295 8 200 HLT DC #1 1 2167 30 296 8 210 CARD1 DCW #6 6 2173 30 297 8 220 SW1 DC #1 1 2174 30 1 1401 COBOL - BD6 PAGE 5 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 298 8 230 TOT DCW @TOTAL NUMBER OF ERRORS-@ 23 2197 31 299 8 240 SX DCW #3 3 2200 31 300 8 250 LTORG 2201 DCW @.DG@ 3 2203 LIT 31 @.DK@ 3 2206 LIT 31 @.ZD@ 3 2209 LIT 31 @.DM@ 3 2212 LIT 31 @.DZ@ 3 2215 LIT 32 @.CD@ 3 2218 LIT 32 @/24@ 3 2221 LIT 32 @*06@ 3 2224 LIT 32 @*01@ 3 2227 LIT 32 @B99@ 3 2230 LIT 32 @B98@ 3 2233 LIT 32 @B97@ 3 2236 LIT 33 @**@ 2 2238 LIT 33 @. @ 2 2240 LIT 33 194 @*** DIAGNOSTICS ***@ 19 2259 LIT 33 @FLAG@ 4 2263 LIT 33 @REF@ 3 2266 LIT 33 200 @SEQUENCE@ 8 2274 LIT 34 201 @MESSAGE@ 7 2281 LIT 34 @1@ 1 2282 LIT 34 224 @FORMAT ERROR-@ 13 2295 LIT 34 @ @ 1 2296 LIT 34 238 @NUMBER OF ERRORS NEEDING CORRECTION-@ 36 2332 LIT 35 252 @COMPILATION SUSPENDED@ 21 2353 LIT 36 268 @PRESS START TO CONTINUE@ 23 2376 LIT 37 301 9 010 ORG 2377 302 9 020 DCW @}@ 1 2377 37 303 9 030 END / 000 080 38 1CLEAR STORAGE 1 ,008015,022026,030037,044,049,053053N000000N00001026 1 CLEAR STORAGE 2 L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0? 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 1401 COBOL - BT1 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 1 010 000 JOB 1401 COBOL - BT1 102 1 020 CTL 661111 103 1 030 ORG 2400 2400 104 1 040 DCW @$@ 1 2400 4 105 1 050 DCW @ASSIGN @ 7 2407 4 106 1 060 DCW @*75@ 3 2410 4 107 1 070 DCW @DEVICE NAME 1403-CT @ 20 2430 4 108 1 080 DCW @*82@ 3 2433 4 109 1 090 DCW @DEVICE NAME 1403-P @ 19 2452 5 110 1 100 DCW @*83@ 3 2455 5 111 1 110 DCW @SWITCH NAME 1403-P-CB @ 22 2477 6 112 1 120 DCW @*86@ 3 2480 6 113 1 130 DCW @MEMORY SIZE @ 12 2492 6 114 1 140 DCW @*76@ 3 2495 7 115 1 150 DCW @SWITCH NAME 1403-P-C9 @ 22 2517 7 116 1 160 DCW @*85@ 3 2520 7 117 1 170 DCW @DEVICE NAME 1402-P @ 19 2539 8 118 1 180 DCW @*88@ 3 2542 8 119 1 190 DCW @DEVICE NAME 1402-R @ 19 2561 9 120 1 200 DCW @*80@ 3 2564 9 121 1 210 DCW @SELECT @ 7 2571 9 122 1 220 DCW @*77@ 3 2574 9 123 1 230 DCW @RESERVE ALTERNATE AREA @ 23 2597 10 124 1 240 DCW @*70@ 3 2600 10 125 1 250 DCW @SWITCH NAME 1401-SS @ 20 2620 11 126 2 010 DCW @*81@ 3 2623 11 127 2 020 DCW @SWITCH NAME 1403-P-CV @ 22 2645 12 128 2 030 DCW @*87@ 3 2648 12 129 2 040 DCW @CONFIGURATION SECTION NOT SENSED @ 33 2681 13 130 2 050 DCW @B2A@ 3 2684 13 131 2 060 DCW @KEYWORD SOURCE-COMPUTER MUST FOLLOW@ 35 2719 14 132 2 070 DC @ CONFIGURATION SECTION @ 23 2742 15 133 2 080 DCW @B2B@ 3 2745 15 134 2 090 DCW @IBM-1401 CLAUSE NOT SENSED @ 27 2772 16 135 2 100 DCW @B2C@ 3 2775 16 136 2 110 DCW @INVALID ENTRY @ 14 2789 17 137 2 120 DCW @B2D@ 3 2792 17 138 2 130 DCW @KEYWORD FILE-CONTROL MUST FOLLOW INPUT-OUTPUT@ 45 2837 19 139 2 140 DC @ SECTION @ 9 2846 19 140 2 150 DCW @B2E@ 3 2849 19 141 2 160 DCW @PERIOD MUST FOLLOW PARAGRAPH SECTION OR DIVISION @ 49 2898 21 142 2 170 DCW @B2F@ 3 2901 21 143 2 180 DCW @PERIOD MUST FOLLOW ENTRY @ 25 2926 21 144 2 190 DCW @B2G@ 3 2929 22 145 2 200 DCW @KEYWORD SECTION NOT SENSED @ 27 2956 22 146 2 210 DCW @B2H@ 3 2959 22 147 2 220 DCW @KEYWORD DIVISION NOT SENSED @ 28 2987 23 1 1401 COBOL - BT1 PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 2 230 DCW @B2I@ 3 2990 23 149 2 240 DCW @NEXT CARD OUT OF SEQUENCE @ 26 3016 24 150 2 250 DCW @A01@ 3 3019 24 151 3 010 DCW @FORMAT ERROR-CONTINUATION OF ALPHANUMERIC@ 41 3060 26 152 3 020 DC @ LITERAL @ 9 3069 26 153 3 030 DCW @A0B@ 3 3072 26 154 3 040 DCW @NUMERIC LITERAL EXCEEDS LEGAL LENGTH @ 37 3109 27 155 3 050 DCW @A0C@ 3 3112 28 156 3 060 DCW @NAME EXCEEDS LEGAL LENGTH @ 26 3138 28 157 3 070 DCW @A0D@ 3 3141 28 158 3 080 DCW @ALPHANUMERIC LITERAL EXCEEDS LEGAL LENGTH @ 42 3183 30 159 3 090 DCW @A0E@ 3 3186 30 160 3 100 DCW @SPECIAL-CHARACTER MUST BE IN ALPHANUMERIC LITERAL @ 50 3236 32 161 3 110 DCW @A0F@ 3 3239 32 162 3 120 DCW @PROGRAM-ID NOT SENSED @ 22 3261 32 163 3 130 DCW @A0H@ 3 3264 32 164 3 140 DCW @IDENTIFICATION DIVISION NOT SENSED @ 35 3299 33 165 3 150 DCW @A0I@ 3 3302 33 166 3 160 DCW @ENVIRONMENT DIVISION NOT SENSED @ 34 3336 34 167 3 170 DCW @B99@ 3 3339 34 168 3 180 DCW @DATA DIVISION NOT SENSED @ 25 3364 35 169 3 190 DCW @B97@ 3 3367 35 170 3 200 DCW @PROCEDURE DIVISION NOT SENSED @ 31 3398 36 171 3 210 DCW @B98@ 3 3401 36 172 3 220 DCW @CONTINUATION MUST BEGIN IN COLUMN 12 @ 37 3438 37 173 3 230 DCW @A1?@ 3 3441 38 174 3 240 LTORG 3442 175 3 250 ORG 3442 176 4 010 DCW @}@ 1 3442 38 177 4 020 END / 000 080 39 1CLEAR STORAGE 1 ,008015,022026,030037,044,049,053053N000000N00001026 1 CLEAR STORAGE 2 L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0? 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 1401 COBOL - BT2 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 1 010 000 JOB 1401 COBOL - BT2 102 1 020 CTL 661111 103 1 030 ORG 2400 2400 104 1 040 DCW @$@ 1 2400 4 105 1 050 DCW @FD @ 3 2403 4 106 1 060 DCW @/26@ 3 2406 4 107 1 070 DCW @RECORDING MODE @ 15 2421 4 108 1 080 DCW @/06@ 3 2424 4 109 1 090 DCW @BLOCK CONTAINS @ 15 2439 5 110 1 100 DCW @/16@ 3 2442 5 111 1 110 DCW @RECORD CONTAINS @ 16 2458 5 112 1 120 DCW @/11@ 3 2461 5 113 1 130 DCW @LABEL RECORD @ 13 2474 6 114 1 140 DCW @/19@ 3 2477 6 115 1 150 DCW @VALUE OF @ 9 2486 6 116 1 160 DCW @/13@ 3 2489 6 117 1 170 DCW @DATA RECORD @ 12 2501 7 118 1 180 DCW @/24@ 3 2504 7 119 1 190 DCW @SIZE @ 5 2509 7 120 1 200 DCW @/10@ 3 2512 7 121 1 210 DCW @REDEFINES @ 10 2522 7 122 1 220 DCW @/05@ 3 2525 7 123 1 230 DCW @OCCURS @ 7 2532 8 124 1 240 DCW @/14@ 3 2535 8 125 1 250 DCW @POINT LOCATION @ 15 2550 8 126 2 010 DCW @/18@ 3 2553 8 127 2 020 DCW @PICTURE @ 8 2561 8 128 2 030 DCW @)12@ 3 2564 8 129 2 040 DCW @JUSTIFIED @ 10 2574 9 130 2 050 DCW @/07@ 3 2577 9 131 2 060 DCW @LEAVING @ 8 2585 9 132 2 070 DCW @/12@ 3 2588 9 133 2 080 DCW @VALUE @ 6 2594 9 134 2 090 DCW @/13@ 3 2597 9 135 2 100 DCW @WORKING-STORAGE SECTION OUT OF SEQUENCE @ 40 2637 11 136 2 110 DCW @B4A@ 3 2640 11 137 2 120 DCW @CONSTANT SECTION OUT OF SEQUENCE @ 33 2673 11 138 2 130 DCW @B4B@ 3 2676 12 139 2 140 DCW @RECORDING MODE MUST BE 1 @ 25 2701 12 140 2 150 DCW @B4C@ 3 2704 12 141 2 160 DCW @DATA RECORDS CLAUSE MUST BE IN FD @ 34 2738 13 142 2 170 DCW @B4D@ 3 2741 13 143 2 180 DCW @LABEL RECORDS CLAUSE MUST BE IN FD @ 35 2776 14 144 2 190 DCW @B4E@ 3 2779 14 145 2 200 DCW @DUPLICATE RECORD CONTAINS CLAUSE @ 33 2812 15 146 2 210 DCW @B4H@ 3 2815 15 147 2 220 DCW @DUPLICATE BLOCK CONTAINS CLAUSE @ 32 2847 16 1 1401 COBOL - BT2 PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 2 230 DCW @B4G@ 3 2850 16 149 2 240 DCW @DUPLICATE RECORDING MODE CLAUSE @ 32 2882 17 150 2 250 DCW @B4F@ 3 2885 17 151 3 010 DCW @DUPLICATE VALUE OF CLAUSE @ 26 2911 18 152 3 020 DCW @B4I@ 3 2914 18 153 3 030 DCW @A PERIOD MUST FOLLOW ENTRY @ 27 2941 19 154 3 040 DCW @B5J@ 3 2944 19 155 3 050 DCW @DATA DIVISION NOT FOLLOWED BY VALID SECTION @ 44 2988 21 156 3 060 DCW @B5K@ 3 2991 21 157 3 070 DCW @DUPLICATE CONSTANT SECTION @ 27 3018 21 158 3 080 DCW @B5L@ 3 3021 21 159 3 090 DCW @DUPLICATE WORKING-STORAGE SECTION @ 34 3055 22 160 3 100 DCW @B5M@ 3 3058 22 161 3 110 DCW @LEVEL NUMBER MUST BE FOLLOWED BY NAME OR FILLER @ 48 3106 24 162 3 120 DCW @B5N@ 3 3109 24 163 3 130 DCW @FORMAT ERROR @ 13 3122 24 164 3 140 DCW @B5O@ 3 3125 24 165 3 150 DCW @NEXT CARD OUT OF SEQUENCE @ 26 3151 25 166 3 160 DCW @A01@ 3 3154 25 167 3 170 DCW @FORMAT ERROR-CONTINUATION OF ALPHANUMERIC@ 41 3195 27 168 3 180 DC @ LITERAL @ 9 3204 27 169 3 190 DCW @A0B@ 3 3207 27 170 3 200 DCW @NUMERIC LITERAL EXCEEDS LEGAL LENGTH @ 37 3244 28 171 3 210 DCW @A0C@ 3 3247 29 172 3 220 DCW @NAME EXCEEDS LEGAL LENGTH @ 26 3273 29 173 3 230 DCW @A0D@ 3 3276 29 174 3 240 DCW @ALPHANUMERIC LITERAL EXCEEDS LEGAL LENGTH @ 42 3318 31 175 3 250 DCW @A0E@ 3 3321 31 176 4 010 DCW @SPECIAL-CHARACTER MUST BE IN ALPHANUMERIC LITERAL @ 50 3371 33 177 4 020 DCW @A0F@ 3 3374 33 178 4 030 DCW @KEYWORD SECTION NOT SENSED @ 27 3401 34 179 4 040 DCW @B5P@ 3 3404 34 180 4 050 DCW @KEYWORD DIVISION NOT SENSED @ 28 3432 35 181 4 060 DCW @B5Q@ 3 3435 35 182 4 070 DCW @CONTINUATION MUST BEGIN IN COLUMN 12 @ 37 3472 36 183 4 080 DCW @A1?@ 3 3475 37 184 4 090 LTORG 3476 185 4 100 ORG 3476 186 4 110 DCW @}@ 1 3476 37 187 4 120 END / 000 080 38 1CLEAR STORAGE 1 ,008015,022026,030037,044,049,053053N000000N00001026 1 CLEAR STORAGE 2 L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0? 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 1401 COBOL - BT3 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 1 010 000 JOB 1401 COBOL - BT3 102 1 020 CTL 661111 103 1 030 ORG 2400 2400 104 1 040 DCW @$@ 1 2400 4 105 1 050 DCW @MOVE @ 5 2405 4 106 1 060 DCW @)15@ 3 2408 4 107 1 070 DCW @OPEN @ 5 2413 4 108 1 080 DCW @)14@ 3 2416 4 109 1 090 DCW @MULTIPLY @ 9 2425 4 110 1 100 DCW @)02@ 3 2428 4 111 1 110 DCW @GO TO @ 6 2434 5 112 1 120 DCW @)20@ 3 2437 5 113 1 130 DCW @DISPLAY @ 8 2445 5 114 1 140 DCW @)04@ 3 2448 5 115 1 150 DCW @SUBTRACT @ 9 2457 5 116 1 160 DCW @)01@ 3 2460 5 117 1 170 DCW @ADDITION @ 9 2469 6 118 1 180 DCW @)18@ 3 2472 6 119 1 190 DCW @DIVIDE @ 7 2479 6 120 1 200 DCW @)06@ 3 2482 6 121 1 210 DCW @ALTER @ 6 2488 6 122 1 220 DCW @)10@ 3 2491 6 123 1 230 DCW @ACCEPT @ 7 2498 6 124 1 240 DCW @)07@ 3 2501 7 125 1 250 DCW @CLOSE @ 6 2507 7 126 2 010 DCW @)09@ 3 2510 7 127 2 020 DCW @WRITE @ 6 2516 7 128 2 030 DCW @)08@ 3 2519 7 129 2 040 DCW @READ @ 5 2524 7 130 2 050 DCW @)13@ 3 2527 7 131 2 060 DCW @COMPUTE @ 8 2535 8 132 2 070 DCW @)05@ 3 2538 8 133 2 080 DCW @STOP @ 5 2543 8 134 2 090 DCW @)11@ 3 2546 8 135 2 100 DCW @PERFORM @ 8 2554 8 136 2 110 DCW @)03@ 3 2557 8 137 2 120 DCW @IF @ 3 2560 8 138 2 130 DCW @)19@ 3 2563 9 139 2 140 DCW @PERIOD MUST BE FOLLOWED BY VERB PARAGRAPH OR SECT@ 49 2612 11 140 2 150 DC @ION NAME @ 9 2621 11 141 2 160 DCW @B0A@ 3 2624 11 142 2 170 DCW @PERIOD MUST FOLLOW PARAGRAPH OR SECTION NAME @ 45 2669 13 143 2 180 DCW @B0B@ 3 2672 13 144 2 190 DCW @KEYWORD DIVISION MUST BE FOLLOWED BY PERIOD @ 44 2716 15 145 2 200 DCW @B0C@ 3 2719 15 146 2 210 DCW @KEYWORD DIVISION NOT SENSED @ 28 2747 15 147 2 220 DCW @B0D@ 3 2750 15 1 1401 COBOL - BT3 PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 2 230 DCW @NEXT CARD OUT OF SEQUENCE @ 26 2776 16 149 2 240 DCW @A01@ 3 2779 16 150 2 250 DCW @FORMAT ERROR-CONTINUATION OF ALPHANUMERIC@ 41 2820 18 151 3 010 DC @ LITERAL @ 9 2829 18 152 3 020 DCW @A0B@ 3 2832 18 153 3 030 DCW @NUMERIC LITERAL EXCEEDS LEGAL LENGTH @ 37 2869 19 154 3 040 DCW @A0C@ 3 2872 20 155 3 050 DCW @NAME EXCEEDS LEGAL LENGTH @ 26 2898 20 156 3 060 DCW @A0D@ 3 2901 20 157 3 070 DCW @ALPHANUMERIC LITERAL EXCEEDS LEGAL LENGTH @ 42 2943 22 158 3 080 DCW @A0E@ 3 2946 22 159 3 090 DCW @SPECIAL-CHARACTER MUST BE IN ALPHANUMERIC LITERAL @ 50 2996 24 160 3 100 DCW @A0F@ 3 2999 24 161 3 110 DCW @ONLY AUTOCODER CAN BE ENTERED FROM COBOL @ 41 3040 26 162 3 120 DCW @A0G@ 3 3043 26 163 3 130 DCW @MISSING PERIOD AT END OF PROGRAM @ 33 3076 26 164 3 140 DCW @B3A@ 3 3079 27 165 3 150 DCW @KEYWORD MUST NOT BE USED AS LABEL @ 34 3113 27 166 3 160 DCW @B9B@ 3 3116 28 167 3 170 DCW @MISSING PERIOD BEFORE PROCEDURE DIVISION @ 41 3157 30 168 3 180 DCW @B9A@ 3 3160 30 169 3 190 DCW @FIGCON ALL MUST BE FOLLOWED BY ALPHANUMERIC @ 44 3204 32 170 3 200 DC @LITERAL @ 8 3212 32 171 3 210 DCW @B8E@ 3 3215 32 172 3 220 DCW @CONTINUATION MUST BEGIN IN COLUMN 12 @ 37 3252 33 173 3 230 DCW @A1?@ 3 3255 34 174 3 240 LTORG 3256 175 3 250 ORG 3256 176 4 010 DCW @}@ 1 3256 34 177 4 020 END / 000 080 35 1CLEAR STORAGE 1 ,008015,019026,030,034041,045,053,0570571026 1 CLEAR STORAGE 2 L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 1401 COBOL - B01 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 1 010 000 JOB 1401 COBOL - B01 102 1 020 CTL 631 11 103 1 030 X1 EQU 89 0089 104 1 040 X2 EQU 94 0094 105 1 050 X3 EQU 99 0099 106 1 060 ADSZE EQU 188 0188 107 1 070 GETX EQU 335 0335 108 1 080 PUTX EQU 363 0363 109 1 090 SUPER EQU 351 0351 110 1 100 SZSW EQU 1126 1126 111 1 110 ORG 1300 1300 112 1 120 DTCN1 DCW @A10@ 3 1302 4 113 1 130 SPSW DCW @0@ 1 1303 4 114 1 140 LV88SW DCW @0@ 1 1304 4 115 1 150 DVALSW DCW @0@ 1 1305 4 116 1 160 DTCN DCW @A10@ 3 1308 4 117 1 170 DTEND DCW @ @ 3 1311 4 118 1 180 DTADR DCW @ @ 3 1314 4 119 1 190 PRCN1 DCW @J01@ 3 1317 5 120 1 200 PRCN DCW @J01@ 3 1320 5 121 1 210 PREND DCW @ @ 3 1323 5 122 1 220 PRADR DCW @ @ 3 1326 5 123 1 230 LTNM1 DCW @S01@ 3 1329 5 124 1 240 LTNM DCW @S01@ 3 1332 5 125 1 250 OVSW DCW @0@ 1 1333 5 126 2 010 OVFSW DC @0@ 1 1334 6 127 2 020 DOVSW DCW @0@ 1 1335 6 128 2 030 POVSW DCW @0@ 1 1336 6 129 2 040 DQSW DCW @0@ 1 1337 6 130 2 050 PQSW DCW @0@ 1 1338 6 131 2 060 LITSW DCW @0@ 1 1339 7 132 2 070 SYSW DCW @0@ 1 1340 7 133 2 080 TBSW DCW @0@ 1 1341 7 134 2 090 UNSW DCW @0@ 1 1342 7 135 2 100 ORG 1350 1350 136 2 110 INIT MLC @004@,MEMCNT 7 1350 M E86 B04 8 137 2 120 BWZ INIT6,ADSZE,2 8 1357 V U02 188 2 8 138 2 130 BWZ MEM02,ADSZE,S 8 1365 V T95 188 S 8 139 2 140 BWZ MEM03,ADSZE,K 8 1373 V T88 188 K 8 140 2 150 A &4,MEMCNT 7 1381 A E87 B04 8 141 2 160 MEM03 A &4,MEMCNT 7 1388 A E87 B04 9 142 2 170 MEM02 A &4,MEMCNT 7 1395 A E87 B04 9 143 2 180 INIT6 MN MEMCNT,SZSW 7 1402 D B04 /26 9 144 2 190 B GTSYM 4 1409 B Z39 9 145 2 200 B GTSYM 4 1413 B Z39 9 146 2 210 B INIT2 4 1417 B U25 9 147 2 220 INIT1 B PTGTSY 4 1421 B P57 9 1 1401 COBOL - B01 PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 2 230 INIT2 C CURNT,SENV 7 1425 C A22 A49 10 149 2 240 BU INIT1 5 1432 B U21 / 10 150 2 250 PTEST B PUTX 4 1437 B 363 10 151 3 010 DCW CURNT 3 1443 A22 10 152 3 020 GTEST B GTSYM 4 1444 B Z39 10 153 3 030 TEST B TSTRTN 4 1448 B P76 10 154 3 040 B PTEST 4 1452 B U37 10 155 3 050 SOURCE B PUTX 4 1456 B 363 11 156 3 060 DCW SPRD 3 1462 B59 11 157 3 070 MLC @1@,SCTSW 7 1463 M E88 A29 11 158 3 080 B PTEST 4 1470 B U37 11 159 3 090 OBJECT B PUTX 4 1474 B 363 11 160 3 100 DCW SPRD 3 1480 B59 11 161 3 110 MLC @2@,SCTSW 7 1481 M E89 A29 11 162 3 120 B PTGTSY 4 1488 B P57 12 163 3 130 B PUTX 4 1492 B 363 12 164 3 140 DCW SNOREL 3 1498 E35 12 165 3 150 B TEST 4 1499 B U48 12 166 3 160 MEMORY BCE MEMTST,SCTSW,1 8 1503 B Y54 A29 1 12 167 3 170 B PTEST 4 1511 B U37 12 168 3 180 NOREL BCE GTEST,SCTSW,2 8 1515 B U44 A29 2 12 169 3 190 B PTEST 4 1523 B U37 13 170 3 200 SPNAME MLC @1@,SPNMSW 7 1527 M E88 A50 13 171 3 210 MLC @1@,SPSW 7 1534 M E88 T03 13 172 3 220 B SECT1 4 1541 B V52 13 173 3 230 SECT MLC @0@,SPNMSW 7 1545 M E90 A50 13 174 3 240 SECT1 B PUTX 4 1552 B 363 13 175 3 250 DCW SPRD 3 1558 B59 13 176 4 010 B PTEST 4 1559 B U37 14 177 4 020 ALL C NEW-1,@$0@ 7 1563 C A24 E92 14 178 4 030 BU PTEST 5 1570 B U37 / 14 179 4 040 B PTGTSY 4 1575 B P57 14 180 4 050 MLC @A@,CURNT-2 7 1579 M E93 A20 14 181 4 060 MZ @-@,CURNT 7 1586 Y E94 A22 14 182 4 070 B PTEST 4 1593 B U37 14 183 4 080 PRD C NEW,NLIT 7 1597 C A25 B41 15 184 4 090 BU PTEST 5 1604 B U37 / 15 185 4 100 B PTGTSY 4 1609 B P57 15 186 4 110 BCE PSNAME,CDSW,0 8 1613 B P49 A34 0 15 187 4 120 B PUTX 4 1621 B 363 15 188 4 130 DCW LVOP 3 1627 A56 15 189 4 140 B ENTFLD 4 1628 B K27 15 190 4 150 MLC FIELD&X2,SYM 7 1632 M AO9 A59 16 191 4 160 B PUTX 4 1639 B 363 16 192 4 170 DCW SYM 3 1645 A59 16 193 4 180 B TEST 4 1646 B U48 16 194 4 190 PROC MLC &PRTB,TBADR 7 1650 M E97 A62 16 195 4 200 B PTEST 4 1657 B U37 16 196 4 210 DATA B PUTX 4 1661 B 363 16 197 4 220 DCW SPRD 3 1667 B59 17 1 1401 COBOL - B01 PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 4 230 MLC @B@,GT09 7 1668 M E98 Z67 17 199 4 240 MLC &DTTB,TBADR 7 1675 M F01 A62 17 200 4 250 B PTEST 4 1682 B U37 17 201 5 010 DVRTN B PTGTSY 4 1686 B P57 17 202 5 020 C CURNT,NLIT 7 1690 C A22 B41 17 203 5 030 BE PASSSY 5 1697 B O79 S 17 204 5 040 DVRTN1 C CURNT,CNOP 7 1702 C A22 B47 18 205 5 050 BE PASSSY 5 1709 B O79 S 18 206 5 060 B TEST 4 1714 B U48 18 207 5 070 SWITCH B PTGTSY 4 1718 B P57 18 208 5 080 C CURNT,CNOP 7 1722 C A22 B47 18 209 5 090 BU TEST 5 1729 B U48 / 18 210 5 100 B GTSYM 4 1734 B Z39 18 211 5 110 B PUTX 4 1738 B 363 19 212 5 120 DCW AFLIT 3 1744 B26 19 213 5 130 MLC CURNT-2,CURNT 7 1745 M A20 A22 19 214 5 140 MLC 1 1752 M 19 215 5 150 B PUTX 4 1753 B 363 19 216 5 160 DCW CURNT 3 1759 A22 19 217 5 170 SWCH01 B GTSYM 4 1760 B Z39 19 218 5 180 C CURNT,CNOP 7 1764 C A22 B47 20 219 5 190 BU SWCH01 5 1771 B X60 / 20 220 5 200 B PUTX 4 1776 B 363 20 221 5 210 DCW AFLIT 3 1782 B26 20 222 5 220 B GTSYM 4 1783 B Z39 20 223 5 230 B DVRTN1 4 1787 B X02 20 224 5 240 VALUE B PTGTSY 4 1791 B P57 20 225 5 250 C CURNT,QUAL 7 1795 C A22 B14 21 226 6 010 BE GTEST 5 1802 B U44 S 21 227 6 020 B TEST 4 1807 B U48 21 228 6 030 SIZOCC B PTGTSY 4 1811 B P57 21 229 6 040 C CURNT,NLIT 7 1815 C A22 B41 21 230 6 050 BE CMPSZE 5 1822 B J87 S 21 231 6 060 C CURNT,NLIT 7 1827 C A22 B41 21 232 6 070 BU TEST 5 1834 B U48 / 22 233 6 080 B PUTX 4 1839 B 363 22 234 6 090 DCW SSZE 3 1845 B83 22 235 6 100 B CMPSZE 4 1846 B J87 22 236 6 110 B TEST 4 1850 B U48 22 237 6 120 MEMTST C NEW,NLIT 7 1854 C A25 B41 22 238 6 130 BU PTEST 5 1861 B U37 / 22 239 6 140 B GTSYM 4 1866 B Z39 23 240 6 150 B ENTFLD 4 1870 B K27 23 241 6 160 C SYMCNT,@02@ 7 1874 C B09 F03 23 242 6 170 BU TEST 5 1881 B U48 / 23 243 6 180 MEM01 C FIELD&X2,MEMCNT&3 7 1886 C AO9 B07 23 244 6 190 BH MEM04 5 1893 B Z09 U 23 245 6 200 MEM05 MN MEMCNT,SZSW 7 1898 D B04 /26 23 246 6 210 B TEST 4 1905 B U48 24 247 6 220 MEM04 C MEMCNT,@004@ 7 1909 C B04 E86 24 1 1401 COBOL - B01 PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 6 230 BE MEM05 5 1916 B Y98 S 24 249 6 240 S &4,MEMCNT 7 1921 S E87 B04 24 250 6 250 MZ @ @,MEMCNT 7 1928 Y F04 B04 24 251 7 010 B MEM01 4 1935 B Y86 24 252 7 020 GTSYM SBR GT01&3 4 1939 H !71 24 253 7 030 MLC @0@,CDSW 7 1943 M E90 A34 25 254 7 040 MLC NEW,CURNT 7 1950 M A25 A22 25 255 7 050 GT02 B GETX 4 1957 B 335 25 256 7 060 DCW NEW 3 1963 A25 25 257 7 070 DCW GTEOJ 3 1966 J76 25 258 7 080 GT09 NOP GT11 4 1967 N Z83 25 259 7 090 C NEW,SPRD 7 1971 C A25 B59 25 260 7 100 BE GT02 5 1978 B Z57 S 26 261 7 110 GT11 C NEW,SCARD 7 1983 C A25 A28 26 262 7 120 BE GT03 5 1990 B !72 S 26 263 7 130 BCE GT04,GTSW3,0 8 1995 B !46 A33 0 26 264 7 140 GT08 MLC @01@,CDSW 7 2003 M F06 A34 26 265 7 150 B PUTX 4 2010 B 363 26 266 7 160 DCW SCARD 3 2016 A28 26 267 7 170 B PUTX 4 2017 B 363 27 268 7 180 DCW CDSV1 3 2023 A40 27 269 7 190 B PUTX 4 2024 B 363 27 270 7 200 DCW CDSV2 3 2030 A37 27 271 7 210 BCE GT05,GTSW2,1 8 2031 B J42 A32 1 27 272 7 220 MLC @00@,GTSW1 7 2039 M F08 A31 27 273 7 230 GT04 BCE GT10,GTSW1,0 8 2046 B !61 A31 0 27 274 7 240 MLC @1@,GTSW3 7 2054 M E88 A33 28 275 7 250 GT10 MLC @0@,GTSW4 7 2061 M E90 A30 28 276 8 010 GT01 B * 4 2068 B !71 28 277 8 020 GT03 BCE GT07,GTSW1,1 8 2072 B J11 A31 1 28 278 8 030 B GETX 4 2080 B 335 28 279 8 040 DCW CDSV1 3 2086 A40 28 280 8 050 DCW GTEOJ 3 2089 J76 28 281 8 060 B GETX 4 2090 B 335 29 282 8 070 DCW CDSV2 3 2096 A37 29 283 8 080 DCW GTEOJ 3 2099 J76 29 284 8 090 MLC @11@,GTSW1 7 2100 M F10 A31 29 285 8 100 B GT02 4 2107 B Z57 29 286 8 110 GT07 B GETX 4 2111 B 335 29 287 8 120 DCW CDSV3 3 2117 A46 29 288 8 130 DCW GTEOJ 3 2120 J76 30 289 8 140 B GETX 4 2121 B 335 30 290 8 150 DCW CDSV4 3 2127 A43 30 291 8 160 DCW GTEOJ 3 2130 J76 30 292 8 170 MLC @1@,GTSW2 7 2131 M E88 A32 30 293 8 180 B GT02 4 2138 B Z57 30 294 8 190 GT05 MLC CDSV3,CDSV1 7 2142 M A46 A40 30 295 8 200 MLC 1 2149 M 31 296 8 210 MLC @0@,GTSW2 7 2150 M E90 A32 31 297 8 220 BCE GT08,GTSW4,1 8 2157 B !03 A30 1 31 1 1401 COBOL - B01 PAGE 5 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 298 8 230 MLC @1@,GTSW1 7 2165 M E88 A31 31 299 8 240 B GT09 4 2172 B Z67 31 300 8 250 GTEOJ MLC &EOJ,GT02&3 7 2176 M F13 Z60 31 301 9 010 B GT01 4 2183 B !68 31 302 9 020 CMPSZE SBR CMP01&3 4 2187 H K26 32 303 9 030 B ENTFLD 4 2191 B K27 32 304 9 040 MLC FIELD-3&X2,SYM 7 2195 M AO6 A59 32 305 9 050 B PUTX 4 2202 B 363 32 306 9 060 DCW SYM 3 2208 A59 32 307 9 070 MLC FIELD&X2,SYM 7 2209 M AO9 A59 32 308 9 080 B PUTX 4 2216 B 363 32 309 9 090 DCW SYM 3 2222 A59 33 310 9 100 CMP01 B * 4 2223 B K26 33 311 9 110 ENTFLD SBR ENTFXX&3 4 2227 H L16 33 312 9 120 MLC CURNT,SYM 7 2231 M A22 A59 33 313 9 130 MLC @002@,X2 7 2238 M F16 094 33 314 9 140 B GTSYM 4 2245 B Z39 33 315 9 150 B ENTF05 4 2249 B K83 33 316 9 160 MLC @00@,SYMCNT 7 2253 M F08 B09 34 317 9 170 ENTF01 B GTSYM 4 2260 B Z39 34 318 9 180 C CURNT,SYM 7 2264 C A22 A59 34 319 9 190 BE ENTF02 5 2271 B L01 S 34 320 9 200 A &3,X2 7 2276 A F17 094 34 321 9 210 ENTF05 MLC CURNT,FIELD&X2 7 2283 M A22 AO9 34 322 9 220 A &1,SYMCNT 7 2290 A F18 B09 35 323 9 230 B ENTF01 4 2297 B K60 35 324 9 240 ENTF02 B GTSYM 4 2301 B Z39 35 325 9 250 ENTF04 BCE ENTF03,FIELD&X2, 8 2305 B L17 AO9 35 326 10 010 ENTFXX B * 4 2313 B L16 35 327 10 020 ENTF03 S &1,X2 7 2317 S F18 094 35 328 10 030 MZ @ @,X2 7 2324 Y F04 094 36 329 10 040 B ENTF04 4 2331 B L05 36 330 10 050 PRNMRT MLC @00@,PCNT 7 2335 M F08 B11 36 331 10 060 PRN01 B PTGTSY 4 2342 B P57 36 332 10 070 PRN03 C CURNT,CNOP 7 2346 C A22 B47 36 333 10 080 BE PRN02 5 2353 B L70 S 36 334 10 090 C CURNT,NLIT 7 2358 C A22 B41 37 335 10 100 BU TEST 5 2365 B U48 / 37 336 10 110 PRN02 B PSCNME 4 2370 B M62 37 337 10 120 C CURNT,QUAL 7 2374 C A22 B14 37 338 10 130 BE PRN01 5 2381 B L42 S 37 339 10 140 A &1,PCNT 7 2386 A F18 B11 37 340 10 150 BCE TEST,PSW1,1 8 2393 B U48 B15 1 38 341 10 160 B PRN03 4 2401 B L46 38 342 10 170 GOTO C NEW,NLIT 7 2405 C A25 B41 38 343 10 180 BE PRCEED 5 2412 B M29 S 38 344 10 190 C NEW,CNOP 7 2417 C A25 B47 38 345 10 200 BU GOTO1 5 2424 B M51 / 38 346 10 210 PRCEED MLC @000@,PSW3 7 2429 M F21 B17 39 347 10 220 B PRNMRT 4 2436 B L35 39 1 1401 COBOL - B01 PAGE 6 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 348 10 230 NLCNCK MLC @100@,PSW3 7 2440 M F24 B17 39 349 10 240 B PRNMRT 4 2447 B L35 39 350 10 250 GOTO1 B PUTX 4 2451 B 363 39 351 11 010 DCW ALGOP 3 2457 B20 39 352 11 020 B GTEST 4 2458 B U44 39 353 11 030 PSCNME SBR PSC01&3 4 2462 H N21 40 354 11 040 MLC CURNT,SYM 7 2466 M A22 A59 40 355 11 050 B PUTX 4 2473 B 363 40 356 11 060 DCW PNOP 3 2479 B23 40 357 11 070 PSC02 B GTSYM 4 2480 B Z39 40 358 11 080 C CURNT,SYM 7 2484 C A22 A59 40 359 11 090 BE PSC03 5 2491 B N07 S 40 360 11 100 B PUTX 4 2496 B 363 41 361 11 110 DCW CURNT 3 2502 A22 41 362 11 120 B PSC02 4 2503 B M80 41 363 11 130 PSC03 B PUTX 4 2507 B 363 41 364 11 140 DCW PNOP 3 2513 B23 41 365 11 150 B GTSYM 4 2514 B Z39 41 366 11 160 PSC01 B * 4 2518 B N21 41 367 11 170 BFAFT B PTGTSY 4 2522 B P57 42 368 11 180 C CURNT,NLIT 7 2526 C A22 B41 42 369 11 190 BU TEST 5 2533 B U48 / 42