2dn"9d9@d#* O_d90123456789:;<=>?@A%4P̶&ن"Or44"0Yr0ޯo0&0 ̧43~4@Pf2"5큌%5r5ض'5 /5B %5큌%5r$޷n0 0" 9  @ W9} ' j ;}*}} 'z & 0 @;46؆ 46؆4 1%(- @& & ~ I'#KH&`&\J1F 0H s P&H@K H@K  a H|'/ ~ odja' ~ oH!>'dx 2b&51?'H&9зH}H9&1?&9AB4om&#1 '1 j&l -چ2a5-.+ 454J54G"-l'  C#54m&:l/ C"* OC#&'5 m&6{94'&#o -4oL51ojM*546Zm&1{m& 1'L'1 Z&l -݆5 0Z&b15+,-o.o/=54&o 11' l)'lllJ*2a5 \'\94&o1 ,"'̍ 'č' 4\'LC/52a54'*54m&lm&O_-<54&m&#lm&1 . bm&+_J&Z,.H5So *L' L+  d'4E2d2jn *L& #m'o ޮj11Z&fjd0 ' #Z&hj⦠'N:'/'.& a a ,laj& *J'%+'-'O J'0+ . -&Pl 2b9 df9gd!'9m&og9ogd'9m&,  &lg9do'9o *XL&m'9d&''o4 1-& &2b95 2q40&<&7 ' ','1dod'ld& ' ',&O5502onf&A46 2d52ob' 52dnd&&50n4&54 ' '5b&k& &{50ndb'0&2bd42d50nfdo&%& 'c$l 52dn4&_5 L+-m& *L' y_9+ 7 4@3bO_B*2BA4D AFO_46/2^5@Tf0db4652dnb0 O_4656n fdc'?$c_M' &1!J&]' 1 &Z 52dn 4v' > \+*m&533˦\'m *&  o\': 5m5db'0&2bd42d50ndm&'o1f&1!&9d 465dOf9fd946M' 0&J&542|ocvv&AҎROJbbI$blaa\'lcM'D$0'0/0k /$0E0,x+/@M& @g& X['\d^}:L&b3a& &s mc'v&0od2d4&55}+@9C@9vRZ&9^_ [ ] 0 \@0&9462~oƏoa1O_&voa& ja+g & 4X5 'A''! '/\'l9 m'1?j+ m'1?j  2b54' '& 'B %MM+ @-`-߈@ '5` `&% 큌% ``큌%CH'' &' 5d݈944"&P&_%_DY ja&5 &&5X 4594&U'& m& ' 1N&6m&54610Z&oZ&b'_540GÍO_m& m*5!!&94"!!1?&P54oI/"%%j' "%l`&ا5 !ց" 9o9m& % $9$%9 V9Fj&9ց94&2~1OF<&٧ԧo䫈am' aaj&􍵠a'2b54&U44j&2a<*_$M' 1j& Uo54&a1[4 134  d& b# b%X$2d5ʺzjRB2"  "2BRjP!##!!#!!#!!#~ޭP9ޭP9n0#Oڿ] & Z& 0 &߶L &1Lf?#' &, ܿ@O&9' LT%\O9ڿٍڦ& ~ڦ')&|#:D%Bn1;45&' #v; J&0&O"·ķƷɷʷ̷ηз9ކ` %9φ`% '% KDISK`ERRORINSERT`PROPER`DISKl`PRESS`ENTER4@fhd&1?&5@52fn56CS244@3d0&54@fhd1?& mf*lcO_ffmh*jcO_hh9ooofh=eh=fg=mb'O_c2inoomf*l䍨4O_hiihYIf%fli0&5d'O_cc'O_dd946oM*lO_aa f'14Z&b 4&a*@0 jd' b&me'-2e2a5gdhf9hdfXIXIfDVZ砦g946oM'TTTTJ'& 2a56909/9ofogdo'@ &j& 4-&ja 0+ "iXIiXIXIihj&ma'O_hh2b95b,5&  o\': 5m5db'0&2bd42d50ndm&'o1f&1!&9d 465dOf9fd946M' 0&J&542|ocvv&AҎROJbbI$blaa\'lcM'D$0'0/0k /$0E0,x+/@M& @g& X['\d^}:L&b3a& &s mc'v&0od2d4&55}+@9C@9vRZ&9^_ [ ] 0 \@0&9462~oƏoa1O_&voa& ja+g & 4X5 'A''! '/\'l9 m'1?j+ m'1?j  2b54' '& 'B %MM+ @-`-߈@ '5` `&% 큌% ``큌%CH'' &' 5d݈944"&P&_%_DY ja&5 &&5X 4594&U'& m& ' 1N&6m&54610Z&oZ&b'_540GÍO_m& m*5!!&94"!!1?&P54oI/"%%j' "%l`&ا5 !ց" 9o9m& % $9$%9 V9Fj&9ց94&2~1OF<&٧ԧo䫈am' aaj&􍵠a'2b54&U44j&2a<*_$M' 1j& Uo54&a1[4 134  d& b# b%X$2d5ʺzjRB2"  "2BRjdb'obd45O1'Z&2dnodlO1c 4fd#]' & Z 52dndomg'ijO0 " l\jg&9hOf-)d,dd'4g0e15J&d92~hg'#\O00 ?1# j' 䦀Z&2b92~ojokfO1f1!fh'lk" &Z&2b9ok PtUvD#t4tA#tAtN#tNtU#~ޭP9ޭP9n0#Oڿ] & Z& 0 &߶L &1Lf?#' &, ܿ@O&9' LT%\O9ڿٍڦ& ~ڦ')&|#:D%Bn1;45&' v; J&0&O"·ķƷɷʷ̷ηз9ކ` %9φ`% '% KDISK`ERRORINSERT`PROPER`DISKl`PRESS`ENTER4@fhd&1?&5@52fn56CS244@3d0&54@fhd1?& mf*lcO_ffmh*jcO_hh9ooofh=eh=fg=mb'O_c2inoomf*l䍨4O_hiihYIf%fli0&5d'O_cc'O_dd946oM*lO_aa f'14Z&b 4&a*@0 jd' b&me'-2e2a5gdhf9hdfXIXIfDVZ砦g946oM'TTTTJ'& 2a56909/9ofogdo'@ &j& 4-&ja 0+ "iXIiXIXIihj&ma'O_hh2b95b,52dn"9d9@d#* O_d9 b&me'-2e2a5gdhf9hdfXIXIfD:&904#"ERROR IN DEFAULT FILE DSTRAC21.DEFO_4ZD&,04SYMBOL TABLE OVERFLOWO_4&&"04 FILE TO BIGO_4& 04 DISK FULLO_4s& 04 I/O ERRORO_4K&)04DISK REQUEST ERRORO_4{e04쉩44 H2\54@3dܮ퉨O_物O_物物物 퉩 O_퉩 04LB2b04DT2b2\54@3d204 DSTRAC21.TMPO_4 O_4.-04ܮ0iO44z2b 2bO_4.-04ܮ0iO4452b 2bO_4.-04ܮ0iO442b 2b0404O_40404O_404쉩44n04064O_404쉨44=z04扩O44#`04扩O44 F04扩O44 ,04扩 O44 04쉩 44  04쉩 44  0404O_4  0404O_4  044 2d2\54@3d24@L2b04INSERT DISK AND PRESS ENTER: O_4 u2b040ɩ!44  V4@?2b4@w2b04040ɩ640ɩ44@E2j04O_4040ɩ44@2j044@ 2d0404BINO_4 4@2bɩ CS]'4@2bɩ CS]'4@2bɩ ]'4@2b044@ 2d0i44@ 2d0ɩ!4 DSTRAC210002bɩ CS]'YO_ɨO_0ɩ!O44b2b4ɨ..4ɨ4ɨ40ɩ!Oɨɨ 2b2\550o$4"44ni55552cnd (&A42y42d2o50n4@3bO_D*"2oA1FD4&B46d2jMAO_46 2^5@52knmc'bb9bb9bHM/0b` 954@ oJ&Cn0B1J&02I5@52gn4601'Z&54601'Z&54%(54hiiiiiJ&54%(54dfffffJ&540m&J&o5b& MHG4HG'- ,A0M @0M ,(0J&00M9bb0M1M+ #"4601!&J&5464愦砧j&2a51i0b* @m*H4H'"4& &5!' &!&5 5 '% 52nnZ0MMBMBB1B ' 0M^j J'600B 0M&@01M"$VMBMLBB1 0M$lH J'030B. 502y40b 0b2y42d0i5Z&92zocodoao e0lojb{ '+'-&ir&m'lc .&W`&m&jc E&%E+'-&ja90-9.0d4 =d dma'@ce'yJ&&o2f9jd+92b Ӂ0-9.mg'0bb' jgGO9jdig4v42wCM/RHGGHACEmJ+I 6I-4 / JIIH-jGE+mG*-`GG/L ,:2K5O*jI& IJmH/LHJ-'J&m *-0ĦH/". 0.mH'mJ'jJ'lH+J9M/TTTT0lJ&90 0" 9  @ W9} ' j ;}*}} 'z & 0 @;46؆ 46؆4 1%(- @& & ~ I'#KH&`&\J1F 0H s P&H@K H@K  a H|'/ ~ odja' ~ oH!>'dx 2b&51?'H&9зH}H9&1?&9AB4om&#1 '1 j&l -چ2a5-.+ 454J54G"-l'  C#54m&:l/ C"* OC#&'5 m&6{94'&#o -4oL51ojM*546Zm&1{m& 1'L'1 Z&l -݆5 0Z&b15+,-o.o/=54&o 11' l)'lllJ*2a5 \'\94&o1 ,"'̍ 'č' 4\'LC/52a54'*54m&lm&O_-<54&m&#lm&1 . bm&+_J&Z,.H5So *L' L+  d'4E2d2jn *L& #m'o ޮj11Z&fjd0 ' #Z&hj⦠'N:'/'.& a a ,laj& *J'%+'-'O J'0+ . -&Pl 2b9 df9gd!'9m&og9ogd'9m&,  &lg9do'9o *XL&m'9d&''o4 1-& &2b95 2q40&<&7 ' ','1dod'ld& ' ',&O5502onf&A46 2d52ob' 52dnd&&50n4&54 ' '5b&k& &{50ndb'0&2bd42d50nfdo&%& 'c$l 52dn4&_5 L+-m& *L' y_9+ 7 4@3bO_B*2BA4D 4AFO_46/2^5@Tf0db4652dnb0 O_4656n fdc'?$c_M' &1!J&]' 1 &Z 52dn 4v' > \+*m&533˦\'m *_)r&\]' S]0B4N_)Q&\O40B4n_)?&\O40B4NO_)(&\O40B4no_)&\]'O_S2\54@3d2ܮ044#2dO_44,004NO(2b44,j004YES(k2b04 DEFAULT SELECTION MODEO_4""O_ 44%2d04 LINE NUMBERS:O_4"p扩O44+004O_4"Q";04 O_4"&" 4 44%B2d04DO YOU WANT LINE NUMBERS? O_4!2b04044! î0404Q4*4@2U]' 44$2d04 LINE NUMBERS:O_4!y扩O44*004O_4!Z!DO_خ扩]'04 O_4!!@44$=2d04STARTING LINE NUMBER? O_4 2b04044 2~044+]2d5퉩 @44#2d04STARTING LINE NUMBER:O_4 쉩 44  Y O_@444#2d04ASCII IN FCB'S: O_4 +扩O44)004O_4 04 O_4@4 444"2d04DO YOU WANT ASCII IN FCB'S? O_42b04044u0404Q4(4@]2U]'@444"v2d04ASCII IN FCB'S: O_4!扩O44(004O_4O_`444"2d04ASCII IN FDB'S: O_4Į扩O44(;004O_404 O_4zd`4 444!2d04DO YOU WANT ASCII IN FDB'S? O_4.2b04044R0404Q4'?4@2U]'`444!2d04ASCII IN FDB'S: O_4扩O44'1004O_4O_444 2d04 FCC STRINGS: O_4`扩 O44&004O_4A+04 O_44 444 +2d04DO YOU WANT FCC STRINGS? O_42b040440 404Q4%4@2U]'4442d04 FCC STRINGS: O_4\扩 O44%004O_4='444Y2d04! HEADER FOR GENERATED ADR. LABELSO_42b0404O_4Ʈ04YOUR HEADER (MAX 8):O_42b040440444044!}2j4442d04! HEADER FOR GENERATED ADR. LABELSO_452b0404O_444492d04! HEADER FOR GENERATED DATA LABELSO_42b0404O_404YOUR HEADER (MAX 8):O_42b04044t0444044 ]2j444z2d04! HEADER FOR GENERATED DATA LABELSO_42b0404O_442b2\54@3d204t2b04g2bȪ04INPUT FILE NAME : O_42b0404P4442d04 O_4M744p2d04 &42bO_Ȫ0404BINO_42~0442dCS&%04FILE NOT FOUNDO_42~044X2dCS& 04 I/O ERRORO_4iQ2~0442dO_/5042~0442d4 ERRORO_4+2~0442dO_'O_Ȫ44-2d04 O_4442dȪ]'04 SOURCE FILE: O_404O_4q04OUTPUT FILE NAME: O_4a2b0404P4A04&04:-32b 44O2d04 O_4 442d0i404ASMO_42~0i44^2dCS& 04 DISK FULLO_4o2~0442dCS& 04 I/O ERRORO_4C-Q2~0i442dO_/5042~0i442d4 ERRORO_4442d04 O_4442d2~0i44;2dO_&04 OUTPUT FILE: O_4d2b04:-3-&04SCREENO_49#0404O_4  04HOW MANY LINES PER FILE? O_42b040ȫ4P40ȫ4&쉨4 40ȫ442h2~0ȫ44D2d5 442d04NUMBER OF LINES PER FILE:O_4c44@Ȫ04SYMBOL FILE NAME: O_4*2b0404P4N `4472d04 O_4`442d04'0K404SYMO_4D2~0K4472dCS&%04FILE NOT FOUNDO_4YC2~0K442dCS& 04 I/O ERRORO_4Q2~0K442dO_/5042~0K442d4 ERRORO_42~0K44]2dO_'O_Ȫ@442d04 O_4bL@442dȪ]'0K44.2d04 SYMBOL FILE: O_42b04&04NONEO_40404O_42\54@3d04쉩&#04STACK OVERFLOWO_4&04ANDCC;2b 4&04BSR;2b 4&04FCB:2b 4&04FCB:2b 4&04FCB:2b 4&04FCB:2b 4&04FCB:e2bZ4_&\O4X4_'\]'0404:*A4:R2bZ4_&\O4X4_'\]'04049B4:2b 4^_&\O4 4N_&\]'04FCB92b0O4F&O_0O4F'84O_& 4@2b 4& 4@-2b4@e2bCS]'N04FCB92b44LB4<04492l O_ O_(44O_, 42\54@3d2~B4Į쉩4b2bBB4ZB4]5'DV1?&BB4B0i4ZXIĮ0싪5Į0i0 2\54@3d2~B4ZB4]5'DV1?&BB4BĮ0i44ZXIĮ04b2b5Į0i0 2\54@3d2~B4Į4܊2d5E2\54@3d4O_.XI0싮ȃ2\54@3d4&Į物 퉩%XI4B500 2\54@3dB2\54@3d44M2d2\54@3dO_C4_&\O44_&\O44_&\O44_&\O44_&\]'\C4Į쉩_,\O44Į쉩_/\O4O4O__&\]'O_C2\54@3dO_C4_&\O44 _&\O44n_&\O44~_&\]'cC4Į쉩_,\O44Į쉩_/\O4O4O__&\]' O_C42b2\54@3dO_C4"_.\O44/_-\]'\C4Į쉩_,\O44Į쉩_/\O4O4O__&\]'O_C2\54@3dO_C45_&\O447_&\O444_&\]'C2\54@3d49_&\C2\54@3d4;_&\C2\54@3dO_E4_&\O4B44_&\O4B44P_&\]'E2\54@3dO_E4_&\O4B44_&\]'E2\54@3d2O_Z4Z."ZXI4500 ZZ 2bCSȮĮ쉩O_Į0643C'0Ȧ422b0ȶ422bĮ0K4Į064SYMO_4)2~Į0K4Į4*2d5CS]'vĮ0K40ȸ4?4,(+0ȸ42'J0ȸ40ȶ40X40Ȧ4Į492j0ȶ4J2& X442dX4Į42ddĮ0K4Į4*p2d2\54@3d4Į쉩4b2b4쉩,2\54@3d2̮04LOADING PROGRAM...O_4,2b4@92bTCS]'扩 ]'2\52~Z44@2d5CS]'Z40W40V40U40R40P404040404044j2W]',Z4X2~4@%2b5]'44@2d2~4@2b5]'44@2d2~4@2b5]'44@]2d2~4@d2b5]' 4@2bo2~4@2b5]' 4@2bU2~44@c2d5]' 4@2b62~44@2d5]' 4@2b2~4@2b5]'4@2b4@,2bV]'44Ѵ2dU]'442d4@2b4@Q2b4@2b4@@2b4@2b604LOADEDO_4*+*2\54@3d24B2bO_Z4Z.Z4O_50i0 ZZ 2bO_Z4Z.5Z4O_50i0 Z4O_50i0 ZZ 2bO_物 040U4(G0T4(@0S4(90R4(20Q4(+2bTO4424SO퉩RO4424QO퉩쉩4쉩44b2b퉩CSO_쉩4 V0V40Z44ل2f0V40X44s2fZ442O4X퉩쉩44b2b04쉩4n04O_4\e/0404keS``l044*4"4vF04,O_4 /0404eS`0404,物 퉩2\54@3d쉩 4O_' "4쉩 044(2d04 DISTRAC V2.1O_4''m04'c04 (C) COPYRIGHT JULY 1988 BYO_4'H'204'(04 LAM SoftWareO_4'&04&04&2\54@3d0B4NO_,&\O40B4no_,&\O40B4N_,&\O40B4n_,&\]'O_Su0B4YES_,]&\O40B4yes_,I&\O40B4Y_,3&\O40B4y_,&\]' SĮ物 퉩2\54@3d204 DSTRAC21.DEFO_4"2~044#2d5CS]'04044$X$0404P4$$0404Q4.4@2U040 44$ $d0404P4$$M0404Q4.}4@C2U0404P4$\$0404Q4.H4@2U0404P4$'#0 404Q4.4@2U040 44#R#0404P4##0444044*}2j2~044""2d5]'物 퉩0404P4#y#50444044*2j044"2d2\54@3d0B4)&2\50B4Y_)&\O40B4y_)&\O40B4YES_)&\O40B4yes '& '& '& 0'1'2'3& p4'5'6'7& G'(' '''& &04L@2b4_&\O44_&\]'04#4L02b4&04<4L2b4_&\O4 4 _,\O4 40_/\]'2\54@3d2O_O_O_O_ 040V4Į4g2fF&04KK2b &kV4,V44b2bV4V44LB4N04Į462l4V  I&v040T4Į42fV44N4TR4R44LB4N(04Į42l4R  &2bO_ 4?&04SWI2>2bf 4 _,\O4 40_/\]'/04L4>04>Z2b0404>=2bO_]'N040442f404044g2h0404=04=2b2\54@3d 4_,\O4 4_/\]'P4&04CMPU=2b+4 &04CMPS=`2bO_, 4?&04SWI3=12bO_]'N040442f404044[2h0404<ٮ04<2b2\54@3d2O_O_04<2b040 442f 4_&\]' 4_&\]'4O_,040 44:2f 4]5'DV1?&Z 4XZ4]5'DV1?&VZ4TX4]5'DV1?&RX4PZ405O404b2b4Q4?004X44?r444044;2j0O4 &O_4500 4d4PR<&ن"Or44"0YrQ0d}o0&0 ̧43~4@\PQ2"5큌%5r5ض'5_η5B %5큌%5r$޷nK!4@3d2~B4ZB4]5'DV1?&BB4B0i4ZXI0싪50i0 2\54@3d2~B4ZB4]5'DV1?&BB4B0i4ZXI0싪50i0 2\54@3d2|O_0OZXX4Z_-\O4X0O4 _&\]' X4X X4,&044X44b2b4Į4]2h2\54@3d204]2bO_04\2b0ȶ404\2b0ȶ4] &2\50ȶ44@#2d0ȶ4]&2\5040ȶO4\2b0ȶ4444]2h0ȶ44@2d0ȶ4\&2\50ȶO4$&XO_0ȶO4/ O_0ȶOXVX4V.UV0ȶO404b2bZZ4 ,Z44b2bZ44_4ZVV 2b2~0ȶ44`2d52~ 0ȶ44\2f5ZZ4O_& O_0ȶOZ0ȶ44Z44[2h0ȶ44@2dO_0ȶO4 ,O_4 50ȶ0 040ȶ4[-2b2\54@3d2~B4쉩4b2bBB4ZB4]5'DV1?&BB0i4ZXI0실4O__'\E2\54@3d2~040D4Z2bH4&J4 ]5'DV1?&Z0404ZwZ40$O4Z2bJ4]5'DV1?&4Z0404Z2Z40$O4ZK2bJ4]5'DV1?&4Z0404YZ40$O4Z2bJ4Z0404YZ40$O4Y2b2\54@3d20F440444]450 450 450 450 0404R2b04O4X2b4/34O0404XO4X2b 4044\30404XV2b2\54@3d20U44S44b2bSZZ4S44[4O__.\O4Z4S44[4_-\]'Z4S44[TU44b2b44[wRR44b2b4 4[55ZR4Z4 4[F4b2bXX44b2b44[V5PX4P44b2b44Z4b2b44b2bTZ40BOVV44Z554, 4V4]' P4 P4V50 4Z40BO50 450 4P44b2b50 4 50 V4]'450 450 0W404O2b4D_,\O44"_,\O44_,\]'[物 퉩04O0444O_44OL44O9Ov4T50 0W404N,2b2\54@3d24'F0444b2b444b2b404Q4XJ4M2Y040[4M2b[O2\54@3dO_4Q4XL004A@NEG FCB FCB COM LSR FCB ROR ASR LSL ROL DEC FCB INC TST JMP CLR T 2b4Q4W004A@FCB FCB NOP SYNCFCB FCB LBRALBSRFCB DAA ORCCFCB ANDCSEX EXG TFR S2b4Q4W004A@BRA BRN BHI BLS BHS BLO BNE BEQ BVC BVS BPL BMI BGE BLT BGT BLE SO2b4Q4W/004A@LEAXLEAYLEASLEAUPSHSPULSPSHUPULUFCB RTS ABX RTI CWAIMUL FCB SWI R2b4Q4VЮ004A@SUBACMPASBCASUBDANDABITALDA STA EORAADCAORA ADDACMPXJSR LDX STX R2b4Q4Vq004A@SUBBCMPBSBCBADDDANDBBITBLDB STB EORBADCBORB ADDBLDD STD LDU STU R22b0J45010009635963596R2b0540123000044445555Q2bO_44UӮ004,CCQ2b44U004,AQ2b44U004,BQ2b44Uo004,DPQm2b44UM004,XQL2b44U,004,YQ+2b44U 004,UQ 2b44T004,PCP2bO_44Tɮ0v04D4P2b44T0v04X4P2b44T0v04Y4P2b44Tf0v04U4P2b44TE0v04S4Pq2b44T$0v04PCP#2b44T0v04?4P/2b44S0v04?4P2b44S0v04A4O2b 44S0v04B4O2b 44S0v04CCO~2b 44S^0v04DPO]2b 44S=0v04?4Oi2b 44S0v04?4OH2b44R0v04?4O'2b44Rڮ0v04?4O2bO_44R0^04X4N2b44R0^04Y4N2b44Rx0^04U4N2b44RW0^04S4N2bO_XI4500 XI4500 XI4500 XI4500 XI4500 XI4 500 XI4@500 XI4500 턮0$40123456789ABCDEFMg2b2\54@3d4Į0JO404b2b'); READLN(TEMPS); STRINGCOPY(TEMPS,1,8,LBHD); CURSOR(160+X); WRITE('HEADER FOR GENERATED ADR. LABELS'); WRITELN(LBHD); CURSOR(224+X); WRITE('HEADER FOR GENERATED DATA LABELS'); WRITELN(DTHD); WRITE('YOUR HEADER (MAX 8):'); READLN(TEMPS); STRINGCOPY(TEMPS,1,8,DTHD); CURSOR(224+X); WRITE('HEADER FOR GENERATED DATA LABELS'); WRITELN(DTHD); TITLESCREEN; END; PROCEDURE GETFILENAME(VAR INFILE,OUTFILE,SYMFILENAME:STRING;VAR LINELIMIT:INTEGER); (*THIS GETS THE INPUT FILENAME AND THE OUTPUT FILENAME. IT OPENS THEM *) VAR TEMPS:STRING;SUCCESSFUL:BOOLEAN; BEGIN OUTFILE:='';INFILE:=''; REPEAT SUCCESSFUL:=TRUE; WRITE('INPUT FILE NAME : '); READLN(INFILE); CURSOR(256); WRITELN(' '); CURSOR(256); IF INFILE='' THEN BEGIN NEWDEFAULTS; SUCCESSFUL:=FALSE; END ELSE BEGIN RESET(INPRG,INFILE,'BIN'); IF FILEERROR(INPRG)=-3 THEN WRITELN('FILE NOT FOUND') ELSE IF FILEERROR(INPRG)=-2 THEN WRITELN('I/O ERROR') ELSE IF FILEERROR(INPRG)<0 THEN WRITELN(FILEERROR(INPRG):3,' ERROR'); IF FILEERROR(INPRG)<>0 THEN SUCCESSFUL:=FALSE; END; CURSOR(224); WRITELN(' '); CURSOR(224); UNTIL SUCCESSFUL; WRITELN('SOURCE FILE: ',INFILE); REPEAT WRITE('OUTPUT FILE NAME: '); READLN(OUTFILE); IF OUTFILE='' THEN OUTFILE:=':-3'; CURSOR(288); WRITELN(' '); CURSOR(288); REWRITE(OUTASM,OUTFILE,'ASM'); IF FILEERROR(OUTASM)=-5 THEN WRITELN('DISK FULL') ELSE IF FILEERROR(INPRG)=-2 THEN WRITELN('I/O ERROR') ELSE IF FILEERROR(OUTASM)<0 THEN WRITELN(FILEERROR(OUTASM):3,' ERROR'); CURSOR(256); WRITELN(' '); CURSOR(256); UNTIL FILEERROR(OUTASM)=0; WRITE('OUTPUT FILE: '); IF OUTFILE=':-3' THEN WRITELN('SCREEN') ELSE WRITELN(OUTFILE); WRITE('HOW MANY LINES PER FILE? '); READLN(TEMPS);IF TEMPS='' THEN DECODE(NUMOFLINES,10,TEMPS); LINELIMIT:=ENCODE(TEMPS); CURSOR(288); WRITELN('NUMBER OF LINES PER FILE:',LINELIMIT); REPEAT SUCCESSFUL:=TRUE; WRITE('SYMBOL FILE NAME: '); READLN(SYMFILENAME); CURSOR(352); WRITELN(' '); CURSOR(352); IF SYMFILENAME<>'' THEN BEGIN RESET(SYMFILE,SYMFILENAME,'SYM'); IF FILEERROR(SYMFILE)=-3 THEN WRITELN('FILE NOT FOUND') ELSE IF FILEERROR(SYMFILE)=-2 THEN WRITELN('I/O ERROR') ELSE IF FILEERROR(SYMFILE)<0 THEN WRITELN(FILEERROR(SYMFILE):3,' ERROR'); IF FILEERROR(SYMFILE)<>0 THEN SUCCESSFUL:=FALSE; END; CURSOR(320); WRITELN(' '); CURSOR(320); UNTIL SUCCESSFUL; CLOSE(SYMFILE); WRITE('SYMBOL FILE: '); IF SYMFILENAME='' THEN WRITELN('NONE') ELSE WRITELN(SYMFILENAME); END; PROCEDURE PRINTERROR; BEGIN WRITELN; CASE ERRORTYPE OF 1:WRITELN('STACK OVERFLOW'); 2:WRITELN('ERROR IN DEFAULT FILE DSTRAC21.DEF'); 3:WRITELN('SYMBOL TABLE OVERFLOW'); 4:WRITELN('FILE TO BIG'); 5:WRITELN('DISK FULL'); 6:WRITELN('I/O ERROR'); 7:WRITELN('DISK REQUEST ERROR') ELSE WRITELN(ERRORTYPE) END; (*CASE*) END; PROCEDURE SETDEFAULTS; BEGIN NUMOFLINES:=1500; LINENUMS:=FALSE; FCBASCII:=FALSE; FDBASCII:=TRUE; FCCSTRINGS:=TRUE; STARTLINE:=10; SCREENCOL:=0; LBHD:='LB'; DTHD:='DT'; END; PROCEDURE SAVEVARS; VAR TEMPF:TEXT; X:INTEGER; BEGIN REWRITE(TEMPF,'DSTRAC21.TMP'); FOR X:=0 TO MAXBM DO WRITE(TEMPF,CHR(PRG[X])); FOR X:=0 TO 8191 DO WRITE(TEMPF,CHR(SYMADR[X])); FOR X:=0 TO 8191 DO WRITE(TEMPF,CHR(SYMDAT[X])); WRITELN(TEMPF,INFILE); WRITELN(TEMPF,OUTFILE); WRITELN(TEMPF,LINELIMIT); WRITELN(TEMPF,SYMFILENAME); WRITELN(TEMPF,NUMOFLINES); WRITELN(TEMPF,LINENUMS); WRITELN(TEMPF,FCBASCII); WRITELN(TEMPF,FDBASCII); WRITELN(TEMPF,FCCSTRINGS); WRITELN(TEMPF,STARTLINE); WRITELN(TEMPF,SCREENCOL); WRITELN(TEMPF,LBHD); WRITELN(TEMPF,DTHD); CLOSE(TEMPF); END; BEGIN (*MAIN DISTRAC*) SETDEFAULTS; WRITE('INSERT DISK AND PRESS ENTER: '); READLN(TEMPS); GETDEFAULTS; TITLESCREEN; GETFILENAME(INFILE,OUTFILE,SYMFILENAME,LINELIMIT); GETGRANLIST(INPRG,0,GRANLIST,LASTSECSIZE); CLOSE(INPRG);RESET(INPRG,INFILE,'BIN'); INIT; IF NOT ERROR THEN TRACE; IF NOT ERROR THEN SAVEVARS; IF ERROR THEN PRINTERROR; CLOSE(INPRG); CLOSE(OUTASM); TEMPS:='DSTRAC21000'; IF NOT ERROR THEN FOR X:=0 TO ORD(TEMPS[0])-1 DO BYTE[$8A0+X]:=ORD(TEMPS[X+1]); END. ESET(INPRG,INFILE,'BIN'); INIT; IF NOT ERROR THEN TRACE; IF NOT ERROR THEN SAVEVARS; IF ERROR THEN PRINTERROR; CLOSE(INPRRUE; END; BEGIN (*TRACE*) WRITE('LOADING PROGRAM...'); INITTRACE; WHILE NOT DONE DO BEGIN IF ERROR THEN EXIT; IF NOT DONEIT(ADR) THEN BEGIN GETOPC(ADR,VALID,VALIDADR,VALIDDAT,PG,OPC,OPD,AM,LEN,MN1,MN2); IF VALID THEN BEGIN NEWADR:=ADR+LEN; IF SUBR THEN PUSHSTACK(OPD) ELSE IF JUMP THEN DOJUMP(OPD) ELSE IF CONDBRANCH THEN PUSHSTACK(OPD) ELSE IF RTS THEN PULLSTACK ELSE IF PULLPC THEN PULLSTACK ELSE IF EXGPC(OPD) THEN PULLSTACK ELSE IF TFRPC(OPD) THEN PULLSTACK ELSE IF RTI THEN PULLSTACK; DOOPCODE; IF VALIDADR THEN SETSYMADR(OPD); IF VALIDDAT THEN SETSYMDAT(OPD); NEXTADR; END ELSE BEGIN PULLSTACK; NEXTADR; END; END(*IF NOT DONEIT*) ELSE BEGIN PULLSTACK; NEXTADR; END; END; (*WHILE*) WRITELN('LOADED'); END; (*TRACE*) PROCEDURE INIT; VAR X,Y,Z:INTEGER; A,B,C,D,E:CHAR; R1,R2:REAL; BEGIN GETOPCINIT;(*THIS COULD BE DONE LATER, BUT I NEED MASK[]*) FOR X:=0 TO MAXBM DO PRG[X]:=0; FOR X:=0 TO 8191 DO BEGIN SYMADR[X]:=0; SYMDAT[X]:=0; END; ERROR:=FALSE; READ(INPRG,A,B,C,D,E); SEGLEN:=ORD(B)*256+ORD(C); SEGBEG:=ORD(D)*256+ORD(E); SEGEND:=SEGBEG+SEGLEN-1; PREV:=-32700;START:=0; Z:=SEGLEN+9; READBYTE(Z,X); READBYTE(Z,Y); SEGEXEC:=X*256+Y; START:=SEGBEG-6; R1:=SEGLEN;IF R1<0 THEN R1:=R1+65536.; R2:=(MAXBM+1)*8;IF R2<0 THEN R2:=R2+65536.; IF R1>R2 THEN BEGIN ERROR:=TRUE;ERRORTYPE:=4;END; END; PROCEDURE TITLESCREEN; BEGIN IF SCREENCOL<>0 THEN BYTE[$FF22]:=SCREENCOL; PAGE; WRITELN(' DISTRAC V2.1'); WRITELN; WRITELN(' (C) COPYRIGHT JULY 1988 BY'); WRITELN; WRITELN(' LAM SoftWare'); WRITELN; WRITELN; END; PROCEDURE GETDEFAULTS; VAR TEMPF:TEXT;TEMPS:STRING; PROCEDURE CNVRTBOOL(VAR X:BOOLEAN;T:STRING); BEGIN IF (T='NO') OR (T='no') OR (T='N') OR (T='n') THEN X:=FALSE ELSE IF (T='YES') OR (T='yes') OR (T='Y') OR (T='y') THEN X:=TRUE ELSE BEGIN ERROR:=TRUE; ERRORTYPE:=2; END; END; BEGIN RESET(TEMPF,'DSTRAC21.DEF'); IF NOT EOF(TEMPF) THEN BEGIN READLN(TEMPF,NUMOFLINES); READLN(TEMPF,TEMPS); CNVRTBOOL(LINENUMS,TEMPS); READLN(TEMPF,STARTLINE); READLN(TEMPF,TEMPS); CNVRTBOOL(FCBASCII,TEMPS); READLN(TEMPF,TEMPS); CNVRTBOOL(FDBASCII,TEMPS); READLN(TEMPF,TEMPS); CNVRTBOOL(FCCSTRINGS,TEMPS); READLN(TEMPF,SCREENCOL); READLN(TEMPF,TEMPS); STRINGCOPY(TEMPS,1,8,LBHD); IF EOF(TEMPF) THEN BEGIN ERROR:=TRUE; ERRORTYPE:=2; END; READLN(TEMPF,TEMPS); STRINGCOPY(TEMPS,1,8,DTHD); END; CLOSE(TEMPF); END; PROCEDURE NEWDEFAULTS; VAR TEMPS:STRING(20);DONE:BOOLEAN; BOOL:ARRAY[0..1] OF STRING(5); X:INTEGER; PROCEDURE CNVRT(VAR X:BOOLEAN;T:STRING); BEGIN DONE:=TRUE; IF T='' THEN EXIT; IF (T='Y') OR (T='y') OR (T='YES') OR (T='yes') THEN X:=TRUE ELSE IF (T='N') OR (T='n') OR (T='NO') OR (T='no') THEN X:=FALSE; END; BEGIN PAGE; BOOL[0]:='NO';BOOL[1]:='YES'; WRITELN(' DEFAULT SELECTION MODE'); REPEAT DONE:=FALSE; CURSOR(32); WRITELN('LINE NUMBERS:',BOOL[ORD(LINENUMS)]); WRITELN(' '); CURSOR(32+32); WRITE('DO YOU WANT LINE NUMBERS? '); READLN(TEMPS); CNVRT(LINENUMS,TEMPS); UNTIL DONE; CURSOR(32); WRITELN('LINE NUMBERS:',BOOL[ORD(LINENUMS)]); X:=0; IF LINENUMS THEN BEGIN WRITELN(' '); CURSOR(64); WRITE('STARTING LINE NUMBER? '); READLN(TEMPS); STARTLINE:=ENCODE(TEMPS); CURSOR(64); WRITELN('STARTING LINE NUMBER:',STARTLINE); X:=32; END; REPEAT DONE:=FALSE; CURSOR(64+X); WRITELN('ASCII IN FCB''S: ',BOOL[ORD(FCBASCII)]); WRITELN(' '); CURSOR(64+32+X); WRITE('DO YOU WANT ASCII IN FCB''S? '); READLN(TEMPS); CNVRT(FCBASCII,TEMPS); UNTIL DONE; CURSOR(64+X); WRITELN('ASCII IN FCB''S: ',BOOL[ORD(FCBASCII)]); REPEAT DONE:=FALSE; CURSOR(96+X); WRITELN('ASCII IN FDB''S: ',BOOL[ORD(FDBASCII)]); WRITELN(' '); CURSOR(96+32+X); WRITE('DO YOU WANT ASCII IN FDB''S? '); READLN(TEMPS); CNVRT(FDBASCII,TEMPS); UNTIL DONE; CURSOR(96+X); WRITELN('ASCII IN FDB''S: ',BOOL[ORD(FDBASCII)]); REPEAT DONE:=FALSE; CURSOR(128+X); WRITELN('FCC STRINGS: ',BOOL[ORD(FCCSTRINGS)]); WRITELN(' '); CURSOR(128+32+X); WRITE('DO YOU WANT FCC STRINGS? '); READLN(TEMPS); CNVRT(FCCSTRINGS,TEMPS); UNTIL DONE; CURSOR(128+X); WRITELN('FCC STRINGS: ',BOOL[ORD(FCCSTRINGS)]); CURSOR(160+X); WRITE('HEADER FOR GENERATED ADR. LABELS'); WRITELN(LBHD); WRITE('YOUR HEADER (MAX 8):SE VALID:=FALSE; END ELSE IF OPC=63 THEN MN1:='SWI2' ELSE IF (OPC>32) AND (OPC<48) THEN BEGIN MN2:='L'+MN1; MN1:=MN2; END ELSE VALID:=FALSE; IF VALID THEN BEGIN CALCADRMODE(AM,HD); ADRMODE(AM,LEN,TEMPSTRING); MN2:=HD+TEMPSTRING; END; END; PROCEDURE PAGE2; BEGIN IF (OPC>127) AND (OPC<192) THEN BEGIN IF HALF2=3 THEN MN1:='CMPU' ELSE IF HALF2=12 THEN MN1:='CMPS' ELSE VALID:=FALSE; END ELSE IF OPC=63 THEN MN1:='SWI3' ELSE VALID:=FALSE; IF VALID THEN BEGIN CALCADRMODE(AM,HD); ADRMODE(AM,LEN,TEMPSTRING); MN2:=HD+TEMPSTRING; END; END; BEGIN (*MAIN, GETOPC*) VALID:=TRUE;PG:=0;LEN:=0;HD:=''; READBYTE(ADR,OPC);OP1:=OPC; IF (OPC=16) THEN PG:=1; IF (OPC=17) THEN PG:=2; IF PG>0 THEN READBYTE(ADR,OPC); HALF1:=OPC LSR 4;HALF2:=OPC AND 15; QUART1:=HALF1 LSR 2;QUART2:=HALF1 AND 3; QUART3:=HALF2 LSR 2;QUART4:=HALF2 AND 3; OSN:=ORD(OPSTRNGNUM[HALF1+1])-48; STRINGCOPY(MEN[OSN],HALF2*4+1,4,MN1); IF MN1[4]=' ' THEN MN1[0]:=CHR(3); IF OPC=28 THEN MN1:='ANDCC'; IF OPC=141 THEN MN1:='BSR'; IF OPC=135 THEN MN1:='FCB'; IF OPC=143 THEN MN1:='FCB'; IF OPC=199 THEN MN1:='FCB'; IF OPC=205 THEN MN1:='FCB'; IF OPC=207 THEN MN1:='FCB'; IF (HALF1=4) AND (HALF2<>14) THEN MN1:=MN1+'A'; IF (HALF1=5) AND (HALF2<>14) THEN MN1:=MN1+'B'; IF (OPC=94) OR (OPC=78) THEN MN1:='FCB'; IF MN1[1]='F' THEN VALID:=FALSE; IF MN1[1]<>'F' THEN IF PG=0 THEN PAGE0 ELSE IF PG=1 THEN PAGE1 ELSE PAGE2; IF NOT VALID THEN BEGIN MN1:='FCB'; GETSYM(OP1,1,'LB',MN2); OPC:=OP1; OPD:=0; LEN:=1; PG:=0; END ELSE BEGIN LEN:=LEN+1; IF PG>0 THEN LEN:=LEN+1; END; END; (*END MAIN, END GETOPC*) %L PROCEDURE TRACE; CONST MAXSTK=2047; TYPE STACKARRAY=ARRAY [0..MAXSTK] OF INTEGER; VAR ADR,NEWADR:INTEGER; VALID,VALIDADR,VALIDDAT:BOOLEAN; DONE:BOOLEAN; PG,OPC,OPD,AM,LEN:INTEGER; MN1,MN2:STRING(15); STACK:STACKARRAY; STKPTR:INTEGER; PROCEDURE SETPRG(X:INTEGER); VAR BT:INTEGER; BEGIN X:=X-SEGBEG; BT:=X AND 7; X:=X LSR 3; PRG[X]:=PRG[X] OR MASK[BT]; END; PROCEDURE CLRPRG(X:INTEGER); VAR BT:INTEGER; BEGIN BT:=X AND 7; X:=X LSR 3; PRG[X]:=PRG[X] AND (255-MASK[BT]); END; FUNCTION DONEIT(ADR:INTEGER):BOOLEAN; BEGIN DONEIT:=TESTPRG(ADR); END; PROCEDURE PULLSTACK; BEGIN IF STKPTR>=0 THEN BEGIN NEWADR:=STACK[STKPTR]; STKPTR:=PRED(STKPTR); END ELSE DONE:=TRUE; END; PROCEDURE PUSHSTACK(X:INTEGER); BEGIN IF STKPTR=MAXSTK THEN BEGIN ERROR:=TRUE; ERRORTYPE:=1; END ELSE BEGIN STKPTR:=SUCC(STKPTR); STACK[STKPTR]:=X; END; END; PROCEDURE DOJUMP(OPD:INTEGER); BEGIN NEWADR:=OPD; END; PROCEDURE DOOPCODE; BEGIN SETPRG(ADR); END; FUNCTION SUBR:BOOLEAN; BEGIN SUBR:=FALSE; IF (OPC=23 ) OR (OPC=141) OR (OPC=157) OR (OPC=173) OR (OPC=189) THEN BEGIN SUBR:=TRUE; IF (OPD>SEGEND) OR (OPDSEGEND) OR (OPD=34) AND (OPC<=47) THEN BEGIN CONDBRANCH:=TRUE; IF (OPD>SEGEND) OR (OPD'' THEN BEGIN SYM:='';CMD:=''; RESET(SYMFILE,SYMFILENAME,'SYM'); WHILE NOT EOF(SYMFILE) DO BEGIN READLN(SYMFILE,LINE); IF LINE<>'' THEN BEGIN SEPERATE(LINE,CMD,Y,SYM); IF CMD='J' THEN PUSHSTACK(Y); SETSYMADR(Y); END; END; CLOSE(SYMFILE); END; END; PROCEDURE NEXTADR; BEGIN ADR:=NEWADR; IF (ADR-SEGBEG)>SEGLEN THEN DONE:=THALF1+1])-48; CASE OPC OF 22,23:AM:=2; 26,28:AM:=3; 30,31:AM:=8; 48,49,50,51:AM:=9; 52,53,54,55:AM:=7; 131,140,142,195,204,206:AM:=4; 141:AM:=1 END; (*CASE*) HD:=''; IF (AM=3) OR (AM=4) THEN HD:='#'; IF AM=5 THEN HD:='<'; IF ((PG=1) AND (OPC>32) AND (OPC<48)) THEN AM:=2; END; PROCEDURE ADRMODE(MODE:INTEGER; VAR LEN:INTEGER; VAR ADRMODESTRNG:STRING(63)); (*THE ADDRESSING MODES ARE 0: INHERENT 1: BRANCH 2: LONG BRANCH 3: 1 BYTE DATA 4: 2 BYTES DATA 5: 1 BYTE ADDRESS (DIRECT PG) 6: 2 BYTES ADDRESS 7: PSHS/PULS/PSHU/PULU 8: EXG/TFR 9: INDEXED IF BIT 4 IS SET THEN IT WILL BE [----] 0: ,R+ 1: ,R++ 2: ,-R 3: ,--R 4: ,R 5: B,R 6: A,R 7: NOT USED 8: 8 BIT,R 9: 16 BIT,R 10: NOT USED 11: D,R 12: 8 BIT,PCR 13: 16 BIT,PCR 14: NOT USED 15: INDIRECT ONLY [ADDRES] *) VAR R,T,X,Y,Z:INTEGER; S,S2:STRING(20); INDIRECT:BOOLEAN; BEGIN VALIDADR:=FALSE;VALIDDAT:=FALSE; LEN:=0;OPD:=0;READBYTE(ADR,X); CASE MODE OF 0:ADRMODESTRNG:=''; 1:BEGIN IF X>127 THEN X:=X-256; GETSYM(ADR+X,2,'LB',ADRMODESTRNG); OPD:=ADR+X;LEN:=1;VALIDADR:=TRUE; END; 2:BEGIN READBYTE(ADR,Y);Z:=X*256+Y; GETSYM(ADR+Z,2,'LB',ADRMODESTRNG); OPD:=ADR+Z;LEN:=2;VALIDADR:=TRUE; END; 3:BEGIN GETSYM(X,1,'DT',ADRMODESTRNG); OPD:=X;LEN:=1;VALIDDAT:=TRUE; END; 4:BEGIN READBYTE(ADR,Y);Z:=X*256+Y; GETSYM(Z,2,'DT',ADRMODESTRNG); OPD:=Z;LEN:=2;VALIDDAT:=TRUE; END; 5:BEGIN GETSYM(X,1,'LB',ADRMODESTRNG); OPD:=X;LEN:=1;VALIDADR:=TRUE; END; 6:BEGIN READBYTE(ADR,Y);Z:=X*256+Y; GETSYM(Z,2,'LB',ADRMODESTRNG); OPD:=Z;LEN:=2;VALIDADR:=TRUE; END; 7:BEGIN OPD:=X;S:='';RG1[6]:=',U';LEN:=1; IF OPC>53 THEN RG1[6]:=',S'; FOR Y:=0 TO 7 DO IF (X AND MASK[Y])<>0 THEN S:=S+RG1[Y]; IF S='' THEN VALID:=FALSE ELSE STRINGDELETE(S,1,1); ADRMODESTRNG:=S; END; 8:BEGIN OPD:=X;LEN:=1; S:=RG2[X LSR 4]+','+RG2[X AND 15]; (* NOTE (SUB1 AND 8) SHOULD EQUAL (SUB2 AND 8) *) IF (S[1]='?') OR (S[3]='?') OR (S[4]='?') THEN VALID:=FALSE; ADRMODESTRNG:=S; END; 9:BEGIN LEN:=1; R:=(X AND 96) LSR 5; IF X<128 THEN BEGIN T:=X AND 31;(*VALIDDATA:=TRUE;*) IF T>15 THEN T:=T-32; (* GETSYM(T,1,'LB',S);*) DECODE(T,3,S); S:=S+','+RG3[R];OPD:=T; END ELSE BEGIN INDIRECT:=FALSE; IF (X AND 16)=16 THEN INDIRECT:=TRUE; T:=X AND 15;OPD:=0; CASE T OF 0:S:=','+RG3[R]+'+'; 1:S:=','+RG3[R]+'++'; 2:S:=',-'+RG3[R]; 3:S:=',--'+RG3[R]; 4:S:=','+RG3[R]; 5:S:='B,'+RG3[R]; 6:S:='A,'+RG3[R]; 7:VALID:=FALSE; 8:BEGIN READBYTE(ADR,Y); OPD:=Y;LEN:=2;VALIDDAT:=TRUE; GETSYM(Y,1,'LB',S);S:=S+','+RG3[R]; END; 9:BEGIN READBYTE(ADR,Y);READBYTE(ADR,Z); X:=Y*256+Z;LEN:=3;OPD:=X;VALIDDAT:=TRUE; GETSYM(X,2,'DT',S);S:=S+','+RG3[R]; END; 10:VALID:=FALSE; 11:S:='D,'+RG3[R]; 12:BEGIN READBYTE(ADR,Y); IF Y>127 THEN Y:=Y-256;LEN:=2; OPD:=Y+ADR;VALIDDAT:=TRUE; GETSYM(OPD,1,'LB',S);S:=S+',PCR'; VALIDADR:=TRUE;END; 13:BEGIN READBYTE(ADR,Y);READBYTE(ADR,Z); X:=Y*256+Z;LEN:=3; OPD:=X+ADR;VALIDDAT:=TRUE; GETSYM(OPD,2,'LB',S);S:=S+',PCR'; VALIDADR:=TRUE;END; 14:VALID:=FALSE; 15:IF X=159 THEN BEGIN READBYTE(ADR,Y);READBYTE(ADR,Z); X:=Y*256+Z;OPD:=X;LEN:=3; GETSYM(X,2,'LB',S);VALIDDAT:=TRUE; END ELSE VALID:=FALSE END; (*CASE 9*) IF INDIRECT THEN BEGIN S2:='['+S+']'; S:=S2;VALIDADR:=FALSE; END; END; (*IF NOT X>127*) ADRMODESTRNG:=S; END (*BEGIN 9*) END; (*CASE *) IF NOT VALID THEN LEN:=0; END; PROCEDURE PAGE0; BEGIN CALCADRMODE(AM,HD); ADRMODE(AM,LEN,TEMPSTRING); MN2:=HD+TEMPSTRING; END; PROCEDURE PAGE1; BEGIN IF (OPC>191) THEN BEGIN IF (HALF2=14) THEN MN1:='LDS' ELSE IF (HALF2=15) AND (HALF1<>12) THEN MN1:='STS' ELSE VALID:=FALSE; END ELSE IF (OPC>127) THEN BEGIN IF HALF2=3 THEN MN1:='CMPD' ELSE IF HALF2=12 THEN MN1:='CMPY' ELSE IF HALF2=14 THEN MN1:='LDY' ELSE IF (HALF2=15) AND (HALF1<>8) THEN MN1:='STY' ELTHE INDEX POINTER TO THE RIGHT PLACE THIS SAVES TIME. RECSIZE SHOULD BE TAKEN FROM THE FCB. IF IT IS 0 THEN RECSIZE IS 1, OTHERWISE IT IS WHATEVER IS READ. NOTE: NO ERROR CHECKING IS DONE. *) CONST SECSIZE=256; GRANSIZE=2304; RECSIZE=1; TYPE DEFTDISKBUF=RECORD FCBPOINTER:INTEGER; FCBNAME:ARRAY [0..7] OF CHAR; FCBEXT:ARRAY [0..2] OF CHAR; FCBDEVNO:-128..127; FCBSTATE:-128..127; FCBTYPE:-128..127; FCBGRAN:-128..127; FCBNEXTG:-128..127; FCBTRACK:-128..127; FCBSECTR:-128..127; FCBLSECT:-128..127; FCBOPEN:-128..127; FCBINDEX:INTEGER; FCBBUFSZ:INTEGER; FCBLAST:INTEGER; FCBTYPESIZE:INTEGER; FCBBUFR:ARRAY [0..255] OF CHAR; END; VAR B,C,GR,OFF,POS,SE,TK,X:INTEGER; E:PTR; L:CHAR; FB:^DEFTDISKBUF; BEGIN X:=@REC;X:=X+2;X:=WORD[X]; FB:=PTR(X);DIF:=DIF-2; B:=FB^.FCBINDEX; IF ((B+(DIF*RECSIZE)>=0) AND (B+(DIF*RECSIZE)<=255)) THEN OFF:=B+(DIF*RECSIZE) ELSE BEGIN POS:=(REC-1)*RECSIZE; B:=(POS-1) DIV GRANSIZE; C:=POS-B*GRANSIZE; SE:=((C-1) DIV SECSIZE)+1; OFF:=C-(SE-1)*SECSIZE-1; GR:=ORD(GRAN[B+1]); TK:=GR DIV 2; IF TK>16 THEN TK:=TK+1; IF ODD(GR) THEN SE:=SE+9; FB^.FCBGRAN:=GR; FB^.FCBNEXTG:=ORD(GRAN[B+2]); FB^.FCBTRACK:=TK; FB^.FCBSECTR:=SE-1; FB^.FCBLSECT:=9;IF ODD(GR) THEN FB^.FCBLSECT:=18; FB^.FCBINDEX:=256; READ(FILEPTR,L); END; IF (FB^.FCBGRAN>68) OR (FB^.FCBTRACK>34) OR (FB^.FCBSECTR>18) THEN BEGIN ERROR:=TRUE; ERRORTYPE:=7; WRITELN; WRITELN(FB^.FCBGRAN,FB^.FCBTRACK,FB^.FCBSECTR); END; FB^.FCBINDEX:=OFF; READ(FILEPTR,L); END; PROCEDURE READBYTE(VAR ADR:INTEGER; VAR X:INTEGER); (*THIS PROCEDURE GETS THE NEXT BYTE FROM DISK. IF IT HAS JUST READ THE PREVIOUS BYTE THEN IT CAN SIMPLY DO A READ, OTHERWISE IT HAS TO POSITON THE FILE FIRST. NOTE: NO ERROR CHECKING IS DONE. *) VAR C:CHAR; BEGIN IF ADR<>SUCC(PREV) THEN POSITIONFILE(INPRG,ADR-START,ADR-PREV,GRANLIST); READ(INPRG,C); PREV:=ADR; X:=ORD(C); ADR:=SUCC(ADR); END; PROCEDURE GETOPCINIT; (*THIS PROCEDURE SIMPLY INITIALIZES THE DATA FOR THE PROCEDURE GETOPC. *) BEGIN MEN[0]:='NEG FCB FCB COM LSR FCB ROR ASR LSL ROL DEC FCB INC TST JMP CLR '; MEN[1]:='FCB FCB NOP SYNCFCB FCB LBRALBSRFCB DAA ORCCFCB ANDCSEX EXG TFR '; MEN[2]:='BRA BRN BHI BLS BHS BLO BNE BEQ BVC BVS BPL BMI BGE BLT BGT BLE '; MEN[3]:='LEAXLEAYLEASLEAUPSHSPULSPSHUPULUFCB RTS ABX RTI CWAIMUL FCB SWI '; MEN[4]:='SUBACMPASBCASUBDANDABITALDA STA EORAADCAORA ADDACMPXJSR LDX STX '; MEN[5]:='SUBBCMPBSBCBADDDANDBBITBLDB STB EORBADCBORB ADDBLDD STD LDU STU '; AMODE:='5010009635963596'; OPSTRNGNUM:='0123000044445555'; RG1[0]:=',CC';RG1[1]:=',A'; RG1[2]:=',B';RG1[3]:=',DP'; RG1[4]:=',X';RG1[5]:=',Y'; RG1[6]:=',U';RG1[7]:=',PC'; RG2[0]:='D';RG2[1]:='X'; RG2[2]:='Y';RG2[3]:='U'; RG2[4]:='S';RG2[5]:='PC'; RG2[6]:='?';RG2[7]:='?'; RG2[8]:='A';RG2[9]:='B'; RG2[10]:='CC';RG2[11]:='DP'; RG2[12]:='?';RG2[13]:='?'; RG2[14]:='?';RG2[15]:='?'; RG3[0]:='X';RG3[1]:='Y'; RG3[2]:='U';RG3[3]:='S'; MASK[0]:=1;MASK[1]:=2; MASK[2]:=4;MASK[3]:=8; MASK[4]:=16;MASK[5]:=32; MASK[6]:=64;MASK[7]:=128; HX:='0123456789ABCDEF'; END; PROCEDURE GETOPC(ADR:INTEGER; VAR VALID,VALIDADR,VALIDDAT:BOOLEAN; VAR PG,OPC,OPD,AM,LEN:INTEGER; VAR MN1,MN2:STRING(30)); VAR HALF1,HALF2,QUART1,QUART2,QUART3,QUART4:INTEGER; OSN,OP1:INTEGER; HD:STRING(1); TEMPSTRING:STRING(63); PROCEDURE CALCADRMODE(VAR AM:INTEGER; VAR HD:STRING(1)); (*THIS THE ADDRESSING MODE OF THE OP CODE. THE 6809 IS VERY SYMETRIC IN IT'S OP CODE AND ADDRESSING MODES. THERE ARE ONLY A FEW EXCEPTIONS WHICH ARE HANDLED BY A CASE. IT ALSO CHECKS TO SEE IF IT IS A DIRECT PAGE ADDRESS OR IMMEDIATE AND WILL INDICATE THE CORECT HEADER SYMBOL <,# IT CHECKS TO SEE IF IT IS A LONG BRANCH AND IF SO IT WILL GIVE IT THE CORRECT ADDRESSING MODE. THE ADDRESSING MODES ARE 0: INHERENT 1: BRANCH 2: LONG BRANCH 3: 1 BYTE DATA 4: 2 BYTES DATA 5: 1 BYTE ADDRESS (DIRECT PG) 6: 2 BYTES ADDRESS 7: PSHS/PULS/PSHU/PULU 8: EXG/TFR 9: INDEXED IF BIT 4 IS SET THEN IT WILL BE [----] 0: ,R+ 1: ,R++ 2: ,-R 3: ,--R 4: ,R 5: B,R 6: A,R 7: NOT USED 8: 8 BIT,R 9: 16 BIT,R 10: NOT USED 11: D,R 12: 8 BIT,PCR 13: 16 BIT,PCR 14: NOT USED 15: INDIRECT ONLY [ADDRES] *) BEGIN AM:=ORD(AMODE[PROGRAM DSTRAC21; (*TRACER*) CONST MAXBM=4095; TYPE BITMAP=ARRAY [0..MAXBM] OF -128..127; SYMMAP=ARRAY [0..8191] OF -128..127; %N VAR MEN:ARRAY [0..5] OF STRING; MASK:ARRAY [0..7] OF INTEGER; RG1:ARRAY [0..7] OF STRING(5); RG2:ARRAY [0..15] OF STRING(5); RG3:ARRAY [0..3] OF STRING(5); AMODE:STRING(19); OPSTRNGNUM:STRING(20); HX:STRING(16); GRANLIST:STRING; INFILE,OUTFILE:STRING(20); START,PREV:INTEGER; INPRG:FILE OF CHAR; OUTASM:TEXT; SYMADR,SYMDAT:SYMMAP; PRG:BITMAP; SYMFILE:TEXT; SYMFILENAME:STRING(20); TEMPS:STRING(20); ERROR:BOOLEAN; ERRORTYPE:INTEGER; VALID:BOOLEAN; LASTSECSIZE:INTEGER; SEGBEG,SEGLEN,SEGEND,SEGEXEC:INTEGER; LINELIMIT:INTEGER; LINENUMS,FCBASCII,FDBASCII,FCCSTRINGS:BOOLEAN; STARTLINE:INTEGER; SCREENCOL:INTEGER; LBHD,DTHD:STRING(8); NUMOFLINES:INTEGER; X:INTEGER; %L PROCEDURE SETSYMADR(X:INTEGER); VAR BT:INTEGER; BEGIN BT:=X AND 7; X:=X LSR 3; SYMADR[X]:=SYMADR[X] OR MASK[BT]; END; PROCEDURE SETSYMDAT(X:INTEGER); VAR BT:INTEGER; BEGIN BT:=X AND 7; X:=X LSR 3; SYMDAT[X]:=SYMDAT[X] OR MASK[BT]; END; PROCEDURE SEPERATE(VAR LINE:STRING(63); VAR CMD:STRING(1); VAR ADR:INTEGER; VAR SYM:STRING(15)); VAR X,Y,Z:INTEGER; TEMPS:STRING(63); PROCEDURE REMOVEBLANKS(VAR LINE:STRING(63)); VAR L,X:INTEGER; BEGIN L:=ORD(LINE[0]);X:=1; WHILE (X<=L) AND (LINE[X]=' ') DO X:=X+1; IF X>1 THEN STRINGDELETE(LINE,1,X-1); END; BEGIN CMD:='';ADR:=0;SYM:=''; TEMPS:=LINE; IF TEMPS='' THEN EXIT; REMOVEBLANKS(TEMPS); IF TEMPS='' THEN EXIT; CMD:=TEMPS[1]; STRINGDELETE(TEMPS,1,1); REMOVEBLANKS(TEMPS); IF TEMPS='' THEN EXIT; IF TEMPS[1]='$' THEN BEGIN Y:=5; IF ORD(TEMPS[0])<5 THEN Y:=ORD(TEMPS[0]); FOR Z:=2 TO Y DO BEGIN X:=ORD(TEMPS[Z])-48; IF X>9 THEN X:=X-7; ADR:=ADR*16+X; END; END ELSE ADR:=ENCODE(TEMPS); X:=STRINGPOS(' ',TEMPS); IF X=0 THEN X:=ORD(TEMPS[0]); STRINGDELETE(TEMPS,1,X); REMOVEBLANKS(TEMPS); IF ORD(TEMPS[0])>12 THEN TEMPS[0]:=CHR(12); SYM:=TEMPS; END; FUNCTION TESTPRG(X:INTEGER):BOOLEAN; VAR BT:INTEGER; BEGIN X:=X-SEGBEG; BT:=X AND 7; X:=X LSR 3; TESTPRG:=((PRG[X] AND MASK[BT])<>0); END; PROCEDURE GETSYM(X:INTEGER;LEN:INTEGER;HD:STRING(3);VAR S:STRING(15)); VAR T:INTEGER; BEGIN S:=HD; IF LEN=2 THEN BEGIN T:=X LSR 12;S:=S+HX[T+1]; T:=(X LSR 8) AND 15;S:=S+HX[T+1]; END; T:=(X LSR 4) AND 15;S:=S+HX[T+1]; T:=X AND 15;S:=S+HX[T+1]; END; %N PROCEDURE GETGRANLIST (VAR FILEPTR:TEXT; NULL:INTEGER; VAR GRAN:STRING; VAR LAST:INTEGER); (*THE NULL IS NEEDED SO I CAN GET THE ADDRESS OF IT. IF I GOT THE ADDRESS OF GRAN IT WOULD POINT TO THE ACTUAL PARAMETER, NOT TO THE FORMAL PARAMETER (GRAN). GRAN IS A STRING CONTAINING CHR$ CODES FOR THE GRAN NUMBER THE LAST BYTE CONTAINS A NUM >=190. THIS IS HOW MANY SECTORS ARE USED IN THE LAST GRAN. LAST IS HOW MANY BYTES ARE USED IN THE LAST SECTOR. NOTE: NO ERROR CHECKING IS DONE. *) TYPE DEFTDISKBUF=RECORD FCBPOINTER:INTEGER; FCBNAME:ARRAY [0..7] OF CHAR; FCBEXT:ARRAY [0..2] OF CHAR; FCBDEVNO:-128..127; FCBSTATE:-128..127; FCBTYPE:-128..127; FCBGRAN:-128..127; FCBNEXTG:-128..127; FCBTRACK:-128..127; FCBSECTR:-128..127; FCBLSECT:-128..127; FCBOPEN:-128..127; FCBINDEX:INTEGER; FCBBUFSZ:INTEGER; FCBLAST:INTEGER; FCBTYPESIZE:INTEGER; FCBBUFR:ARRAY [0..255] OF CHAR; END; VAR D:DEFTDISKBUF; A,X:INTEGER; C:CHAR; GR:STRING; FB,P:^DEFTDISKBUF; BEGIN X:=@NULL;X:=X+2;X:=WORD[X]; P:=PTR(X);D:=P^;FB:=P; FB^.FCBTRACK:=17; FB^.FCBSECTR:=1; FB^.FCBLSECT:=3; FB^.FCBINDEX:=256; READ(FILEPTR,C); A:=D.FCBGRAN; GR:=CHR(A); WHILE A<190 DO BEGIN A:=ORD(FB^.FCBBUFR[A]); GR:=GR+CHR(A); END; P^:=D; LAST:=FB^.FCBLAST; GRAN:=GR; END; PROCEDURE POSITIONFILE (VAR FILEPTR:TEXT; REC:INTEGER; DIF:INTEGER; GRAN:STRING); (*THIS TAKES A RECORD NUMBER AND CALCULATES WHERE IN THE FILE IT IS AT. IT THEN POSITIONS THE FILE AT THAT PLACE SO THE CORRECT RECORD WILL BE READ NEXT. IT USES THE CONSTANT RECSIZE TO DETERMINE HOW BIG EACH RECORD IS. DIF IS THE DIFFERENCE THERE IS BETWEEN THE WANTED RECORD AND THE PREVIOUS RECORD. IF IT IS WITHIN THIS SECTOR THEN IT JUST MOVES %N (*********************************************** * * DEFT Pascal Version 3.0 * (C) Copyright 1984 DEFT Systems, Inc. * Standard Run-time Package * ************************************************) INTERFACE DFT_STANDARD; FUNCTION ENCODE (VAR ASCII : STRING) : INTEGER; PROCEDURE DECODE (NUMBER, SIZE : INTEGER; VAR ASCII : STRING); PROCEDURE HEX (ADDRESS : INTEGER; BYTECOUNT : INTEGER; VAR ASCII : STRING); PROCEDURE STRINGCOPY (VAR SOURCE : STRING; INDEX, LENGTH : INTEGER; VAR DESTINATION : STRING); PROCEDURE STRINGDELETE (VAR SOURCE : STRING; INDEX, LENGTH : INTEGER); PROCEDURE STRINGINSERT (VAR SOURCE : STRING; VAR DESTINATION : STRING; INDEX : INTEGER); FUNCTION STRINGPOS (VAR IMAGE, TARGET : STRING) : INTEGER; PROCEDURE MARK (VAR PTRVAR : PTR); PROCEDURE RELEASE (PTRVAR : PTR); FUNCTION MEMAVAIL : INTEGER; FUNCTION EOF (VAR FILEVAR : TEXT) : BOOLEAN; FUNCTION EOLN (VAR FILEVAR : TEXT) : BOOLEAN; PROCEDURE GET (VAR FILEVAR : TEXT); PROCEDURE PUT (VAR FILEVAR : TEXT); PROCEDURE PAGE (VAR FILEVAR : TEXT); FUNCTION FILEERROR (VAR FILEVAR : TEXT) : INTEGER; PROCEDURE CLOSE (VAR FILEVAR : TEXT); PROCEDURE CURSOR (POSITION : INTEGER); FUNCTION ENCODEREAL (VAR ASCII : STRING) : REAL; PROCEDURE DECODEREAL (VAR NUMBER : REAL; SIZE, FRACTION : INTEGER; VAR ASCII : STRING); FUNCTION SIN (RADIANS : REAL) : REAL; FUNCTION COS (RADIANS : REAL) : REAL; FUNCTION ARCTAN (TANGENT : REAL) : REAL; FUNCTION EXP (POWER : REAL) : REAL; FUNCTION LN (NUMBER : REAL) : REAL; FUNCTION SQRT (NUMBER : REAL) : REAL; FUNCTION SQR (NUMBER : REAL) : REAL; FUNCTION TRUNC (NUMBER : REAL) : INTEGER; FUNCTION ROUND (NUMBER : REAL) : INTEGER; END; %L ) : REAL; FUNCTION EXP (POWER : REAL) : REAL; FUNCTION LN (NUMBER : REAL) : REAL; FUNCTION SQRT (NUMBER : REAL) : RCDEFT MACRO ASSEMBLER II, V4.1 CPASBOOT Version 4.1 M S347F1A5017 YDFTDISKRESET0000 SB6FFF881FE2608B7FFD98610B7FF22B7FFDF4FB708A08EFDFE10EF841F14DC7234068E0112EC8334068C010022F710EF8D0088308D00599F7217 YDFTDISKVECTR0000 S1CAF308D YDFTHEAPSTART0002 SAF1E8E011E6FE2301F26FA30E486FDA70D86CCA788153410337E344017 YDFTPSCLMAIN 0000 S1A5017 YDFTDISKRESET0000 S32E901228E01003506ED818C011225F73506DD7235101F14B7FFD8B608A02705357F16 YTCELOAD 0000 SB7FFDE35FF128E01001F4210EE8D0020118C7FEC2503B7FFDF3506ED818C011225F735109F721F24B7FFDEB7FFD86E84 D0002 PA0000 0000 44017 YDFTPSCLMAIN 0000 S1A5017 YDFTDISKRESET0000 S32E901228E01003506ED818C011225F73506DD7235101F14B7FFD8B608A02705357F16 YTCELOAD 0000 SB7FFDE35FF128E01001F4210EE8D0020118C7FEC2503B7FFDF3506ED818C011225F73   #$%&'()*+-./0123456789:;<=>?@ABPASCALIBEXT PASBOOT OBJ!.RUNTIME LIB"FTRACE PASTRACE OBJ,TRACE BINIS BIN/JPASMATHP KTRUNC KROUND CDEFT PASCAL II V4.0 RTRUNC 0000 S34403364327730423410CC000834064F5F340630533410AEC4341017 YDECODEREAL 0000 S326A327E30533410AEC4341017 YENCODE 0000 S32643506ED49325C35C0 RROUND 0037 S344033643042341017 YDFTREALLOAD 0000 S8D0600000000000017 YDFTREALLOAD 0000 S17 YDFTREALCMP 0000 S102F0001327E3042341017 YDFTREALLOAD 0000 S8D0600500000000017 YDFTREALLOAD 0000 S17 YDFTREALSUB 0000 SAEC434108D8F32693506ED49160002 F0052 S327E3042341017 YDFTREALLOAD 0000 S8D0600500000000017 YDFTREALLOAD 0000 S17 YDFTREALADD 0000 SAEC4341017FF6832693506ED49 F0078 S325C35C0 PP004B 0000 JPASMATH KARCTAN KCOS KEXP KLN KSIN KSQR KSQRT CDEFT MACRO ASSEMBLER II, V4.0 CPASMATH V 4.0 S002500000000005000000000001666666667003333333333007500000000011570796327048214381390700242007797108276704170300281605223708241341702100162831853070AFD68479391207E4850942160FF16111701807F3420963810FF54279132807F7245719650FF89802395400011093241308014283980 S800019999912108033333331600110000000000B7C46371524377D24166676257E11544999397E50139294607F19597696807F68089371690020699586590053938296660111712552140120346786770126509491290123025851250110000000000043429447590C0A100466877089181398528008329815505587604661 S76000711197440008620995200000539990857148477760000000415552000008332400000000272000000008218000000000160000000008117917594690C06122640230885442867500005161042727384590490000004218700000083820125000003312428571483121500000002486000000082202500000001900000 S00008145000000000130000000008110986122890C013237876081812630774316012152451713811775772663011479810553811248590154011070220132809364426155008427983539807901234568007901234568808888888889011333333333802876820724344033643278304934103042341017 YDFTREALLOAD 0000 S308DFE23341017 YDFTREALLOAD 0000 S17 YDFTREALADD 0000 S2011344033643278304934103042341017 YDFTREALLOAD 0000 S8D60308DFE27341017 YDFTREALLOAD 0000 S17 YDFTREALDIV 0000 S17 YDFTREALFRACT0000 S17 YDFTREALNEG 0000 S308DFDD2341017 YDFTREALLOAD 0000 S17 YDFTREALADD 0000 SA6E4A7542A10308DFDC6341017 YDFTREALLOAD 0000 S17 YDFTREALADD 0000 S6DE42B0317 YDFTREALNEG 0000 S308DFDAD341017 YDFTREALLOAD 0000 S17 YDFTREALADD 0000 S6D542A0317 YDFTREALNEG 0000 S318D0006308DFDBA202C17 YDFTREALMUL 0000 S8D1417 YDFTREALSTORE0000 S325C35C06F58A6622A06847FA7626358396D5827FB16 YDFTREALNEG 0000 S10AF56A680A759AF5A16001AA680A759AF5A10AF5630E4341017 YDFTREALLOAD 0000 S30E4341017 YDFTREALLOAD 0000 S17 YDFTREALMUL 0000 S30D8FA341017 YDFTREALLOAD 0000 S3067341017 YDFTREALLOAD 0000 S17 YDFTREALMUL 0000 SEC5AC30006ED5A30D8FA341017 YDFTREALLOAD 0000 S17 YDFTREALADD 0000 S6A5926E017 YDFTREALMUL 0000 SEC5AC30006ED5A30D8FA341017 YDFTREALLOAD 0000 S17 YDFTREALADD 0000 S6ED8F634403364327830493410A642484D2E103042341017 YDFTREALLOAD 0000 S17FF6C318DFF5C2023308DFD08341017 YDFTREALLOAD 0000 S308DFD6D341017 YDFTREALLOAD 0000 S3042341017 YDFTREALLOAD 0000 S17FF4A17 YDFTREALDIV 0000 S318D0007308DFD1016FF5C17 YDFTREALMUL 0000 S17 YDFTREALSUB 0000 S16FF2A344033643278304934103042341017 YDFTREALLOAD 0000 S308DFD87341017 YDFTREALLOAD 0000 S17 YDFTREALMUL 0000 SA6E44881042E2B8D3F813E2E2581C02D30A75417 YDFTREALFRACT0000 S318D0007308DFD1216FF09A6E4847FAB54847FA7E417 YDFTREALSTORE0000 S325C35C0863FA7E4CC9999ED61ED63ED6520EA6FE4CC000020F14FE662585D2F1AA66344444444C002270BC60A3D3404A664840FABE06D622A014039344033643278304934103042341017 YDFTREALLOAD 0000 SECE42BC25D27BF108301102606EC6227B5E6616FE4308DFCF1318DFC12C1222514308DFD3A318DFC0CC1462508308DFD83318DFC06AF54342017 YDFTREALLOAD 0000 S17 YDFTREALSUB 0000 S318D0005AE5416FE67E64258571D340617 YDFTINTTOREAL0000 S308DFCA2341017 YDFTREALLOAD 0000 S17 YDFTREALMUL 0000 S17 YDFTREALADD 0000 S17 YDFTREALSTORE0000 S325C35C0327916FF59344033643278304934106FE2327A6FE2327A3042341017 YDFTREALLOAD 0000 S341017FF643269308DFB98341017 YDFTREALLOAD 0000 S17 YDFTREALMUL 0000 S341017FECA326917 YDFTREALSTORE0000 S325C35C0344033643278304934103042341017 YDFTREALLOAD 0000 S3042341017 YDFTREALLOAD 0000 S17 YDFTREALMUL 0000 S17 YDFTREALSTORE0000 S325C35C0 RARCTAN 02F2 RCOS 01E6 REXP 0345 RLN 03CC RSIN 0205 RSQR 0484 RSQRT 044A PA0000 0000 JPASREAL KDECODEREAL KDFTDECODERL KDFTINTTOREAL KDFTREADREAL KDFTREALABS KDFTREALADD KDFTREALCMP KDFTREALDIV KDFTREALFRACT KDFTREALLOAD KDFTREALMUL KDFTREALNEG KDFTREALSTORE KDFTREALSUB KDFTWRTREAL KENCODEREAL CDEFT MACRO ASSEMBLER II, V4.0 CPASREAL V 4.0 S35306FE2EC243406EC223406ECA434066E8410AE6935103506EDA13506EDA13506EDA132636E84AE6417 YDFTREADFIELD0000 S26141F41ECE8113406327934161702CA32648DD2326F35306E84344033624F5FA3442A2232EB6FE21F413146EC44342610AE423436170364326A10AE4D1F414F5F343617 YDFTWRTSTRG 0000 S325E35403510326B6E846D632706A6628880A76239A662847FA76239A662484D2F07306217006020F3393510344086096FE24A26FB1F436E84304231C8148607E680E7A04A26F930C81417008432493540351032676E843436300731271CFEC606A682A9A219A7A45A26F635B63436300731271A01C60686998900A082ABA2 S19A7A45A26F235B63402A6848001250228028880A7843502340286046806690569046903690269014A26F135823402A6848B01250228028880A7843502340286046401660266036604660566064A26F135823416860630016D8026084A26F96FF8023596AE62A60184F026F68D9A20F4A64D48473402A6C8144847A0E0271D S2D0A810C102CFF41304D200C40304D810C102CFF2830C8148D944A26FB30C8148D8C304D8D8839A6628880A76217FEFC8DBF304D31C814A6C814A84D2B0617FF1816FF058D0A23028D1917FF2216FEF93436300131218606E680E1A026034A26F735B6343686073402E684A6A4E7A0A7806AE426F4326135B631693062A684 SA8A42A06A684A1A420406D842A021E12A6A4483402A68448A1E0272234018100260CA60126083501A621271E201AA6A42608A62126043501200A3501200C8D91270825048601200286803510326E6E8417FE5A304D17FEE7A6C814A84D8480A742A6C814AB4D847FAA42A7423142860CE6C81AC40F270A304D17FE5E6AC81A S20EF4A1027FE3630C81417FEB3304217FEAE20DD17FE17304DEC842605CC4010ED8417FE9B30C81417FE95314D17FF22240317FE56A6C814A84D8480A742A6C814A04D4C847FAA42A74231C814860C304D17FE1D24046C4820F517FDFE4A1027FDDB30C81417FE33304217FE2E20E03530327934103062CC0006E7801E2017 YDFTDECIMAL 0000 S30623279341617000E32643069C6073502A7805A26F939327A6F636F646F616FE4860CA765306C6F8410AE6AE6A0E7628D7B812027FA812B2708812D26068680A7848D698D7226086DE427F66C6320F2812E260E8D578D6026086DE426F66A6320F2814526258D45812B2706812D26046A618D3981302D1381392E0F8030E6 S643402860A3DEBE0E76420E7A6646D61270140AB63847FAA84A784A665270617FD794A26FAA60126026F843266396A642B03A6A039326220D381302D1C81392E186D67271480301F89EA62E762270A6A6717FD47AA06A7064F39AE6A10AE64A669E667A7A03476340632771F434D2F52A6844847A747A748EC01ED41EC03ED S43EC05ED456D4A2B048D492036A64980072D34810B2F02860BA74AA6498004A7498601A7488D2D6A47CC452B6D472A04C62D6047EDA1E647862F4CC00A2CFBCB3AEDA4324B35F610AE4FC62AE7A06A4926FA20EFC620A6494A6D482F034CA0488002A04A2DE12705E7A04A26FB6DD80D2A02C62DE7A030C4A6482F088D22C6 S2EE7A02017CC302EEDA16D48270E6D4A270EA7A06A4A27086C482BF6A64A8D01394D2F10E60154545454CA30E7A017FC6C4A26ED39 RDECODEREAL 03C8 RDFTDECODERL 03D3 RDFTINTTOREAL02DD RDFTREADREAL 0027 RDFTREALABS 0087 RDFTREALADD 019D RDFTREALCMP 01E9 RDFTREALDIV 0282 RDFTREALFRACT008E RDFTREALLOAD 0000 RDFTREALMUL 023F RDFTREALNEG 007C RDFTREALSTORE0012 RDFTREALSUB 0197 RDFTWRTREAL 0046 RENCODEREAL 0306 PA0000 0000 JPASDISK KDFTCLOSEDSK KDFTDISKREAD KDFTDISKRESET KDFTDISKVECTR KDFTDISKWRITE KDFTRDNXTDSK KDFTRETRYCNT KDFTREWRTDSK KDFTSRCHDIR KDFTWRITEDSK CDEFT MACRO ASSEMBLER II, V4.1 CPASDISK Version 4.1 S308D001BBF010A308D0022BF010D397F09827F09857FFF407F0986170157397D09822708BE0983AF6A7F09823B7DFF032A187DFF027D098527107A0985260BB609868430B70986B7FF403B3436B7FFD8868020073436B7FFD886A0C60334067F0985A60D318D0125A6A68A28E68812C1162D028A10F60986B70986B7FF40C5 S08260A108E00001700FF1700FC1700D61026008C108E097EA60DE6A6F7FF49E188122723E68812F7FF4BE7A6121212128616B7FF481E881E881700AA102600608518265C1700BEA68813B7FF4A318D004610BF098330881E108E0000B6FF48B609868A80B70986E6E47309821A50C180260EF7FF48B7FF4012F6FF4BE78020 SF9F7FF48B7FF4012E680F7FF4B20F97F09821CAF8D6120091CAFB6FF48847C272F108E097EA60D6FA612121212AE6486FEA70E6A612719108E097EA60D6FA68602B7FF488D218D3E85101027FF1386FEAE64A70E8678B709853262B6FFF881FE2603B7FFD935B6108E0000313F2708B6FF48850126F53986D0B7FF481E881E S887DFF48868039108E2616313F26FC390102414234166FE28611A788128603A7881317FEA96D0E26238608A7E431881E860B17 YDFTEQUALNAME0000 S271931A8206AE426F46C8813A68813810C2DDA86FDA70E32613596A62DA78811EC2EED881AA62BA70F20EC34068D11A68811A788108B1EE686E788118D13358634028602A788138611A7881217FE4A35823406A6881047A78812A6881081222D036C8812840127028609A788138B09A78814A6881181432308840FAB8813A7 S8814358634066D0E263A6C8813A68813A188142F0BA688118143222A8D8E20E617FDF7CC0100ED88184FED8816A6881181432310A68813A188142608EC881AED88182702358686FFA70E20F88D0A6D0E26058D3617FF7B39340617FF03A60E270881FD26236F0E201FA62D34026FA417FDB117FF4C350431881EA6A56FA56A SA51F894D2AF517FD9B358634368D5A6D0E26318611A788128603A7881317FD7B6D0E2620C60831881EA6A427194C271631A8205A26F36C8813A68813810C2DDD86FDA70E35B6C60B3002A680A7A05A26F9AE623135A60FA72BE72CA68810A72D6F2E6F2F17FD3D35B6342617FED46FE2862031881E8D3127206CE4ABE48D29 S27186CE46CE46CE4A0E44A2AE986FBA70E326135A6E68810A7A5A78810C6C9E78811E7A617FCFE20E8E6A65C27058A01E6A65C39342617FE8A6FE231881EA6881081202C088D2227CC8D0C20068D0827C48D1627C020B63406E6A65C27074C81432FF635863261358434068DBC27F680032AF8358634066D0E261D6C881317 SFCA46D0E26134F5FED8818A68813A188142D0617FF9F17FE3C358634266D0E26236C881317FC7FA6881317FE176D0E261331881E80092E028B098AC0E68810A7A517FC62A60F17FD9A6D0E2611A72B5F4A26015AE72CEC8818ED2E17FC4835A6 RDFTCLOSEDSK 03C9 RDFTDISKREAD 004B RDFTDISKRESET000F RDFTDISKVECTR0000 RDFTDISKWRITE0054 RDFTRDNXTDSK 0235 RDFTRETRYCNT 005B RDFTREWRTDSK 027D RDFTSRCHDIR 0191 RDFTWRITEDSK 03A4 PA0000 0000 JPASIO KCLOSE KDFTCLOSE KDFTEQUALNAME KDFTREADCHAR KDFTREADFIELD KDFTREADINT KDFTREADLN KDFTREADSTRG KDFTREADTYPE KDFTRESET KDFTREWRITE KDFTWRITELN KDFTWRTCHAR KDFTWRTINT KDFTWRTSTRG KDFTWRTTYPE KEOF KEOLN KFILEERROR KFILETYPE KGET KPAGE KPUT KSETFILETYPE CDEFT MACRO ASSEMBLER II, V4.0 CPASIO V 4.0 S8D536F8815A60D2A134C102700094C2B1186FCA70E201C17 YDFTRESETTAPE0000 S200617 YDFTSRCHDIR 0000 S1702BE86AAA78815EC881C27073416170145326410AEE4326A6EA4170018A60D2A084C260F17 YDFTREWRTTAPE0000 S200A17 YDFTREWRTDSK 0000 S6D0E27036F881520DEAE6A1F123189011E10AF81C61A318D0084A6A0A7805A26F910AE66AE6AEC64ED881C300AE6A0270DC1032302C603A6A0A7805A26F910AE68AE6A8602A7E2A6A0A7E2274EA6A0813A271E812F2704812E2606860AA761200AE661C10D2C04A7856C616AE426DE202AA6E44A2725E6A0C12B2707C12D27 S034F20074A27151F98E6A0C0302B0DC1032E09812D260150AE6CE70D32623920202020202020202020200000010000000000CC000000000000AE64E60E1DED66398601A767AE64E60E1701212703E70E396D0E26026F67396F67AE64E60E1701032703E70E396D0E2614EC881610A388182C0BC3001EA68B810D26026C6739 SAE646F0EA6881581CC270586FCA70E396F8815A60D102A YDFTCLOSEDSK 0000 S4C260F6D88192705C60117 YDFTWRITETAPE0000 SC6FF17 YDFTWRITETAPE0000 S39AE641700BD262786FCA70E10AE881C271D6F0E34203189011E10AF8417012D260BA7A0ECE4830001EDE426F0326239352032713430170081263C17010F2637812027F7810D27F3812C27EF31646FA0E664C10E2704A7A06C641700F0261581202708810D2704812C26E5EC8816830001ED88164F35903530326F6EA4AE66 S8DAF261C1F41343617 YENCODE 0000 S32643506326FAE628C00012705EDF8042003E7F804351032646E84AE648D11260817009F2603A7F8021700B035306E843406EC881C261335063406A60EE60DC1FD2709E68815C1AA270286FCA70E3586AE628DDC26088D6B2604810D26F817007B35306E84AE6410AE62EC881C271EEDE33089011EA680A7A0ECE4830001ED SE426F33262AE64341617FEEC326435306E84AE6610AE646FA08D96261F8D25261B810D270EE6F804E16324F1A7A06CF80420EAEC8816830001ED88168D1F351032646E8434068D1A2611EC8816C30001ED8816C3001DA68BA7E45F3586A60D4C2B18EC881610A388182D0E6D0E260BA60D2A084C270A17 YDFTREADKEYBD0000 S5F3917 YDFTRDNXTDSK 0000 S20E217 YDFTREADTAPE 0000 S20DD344033624F5FA3422A1A32EBEC421F4134041F02EC4417 YDFTDECIMAL 0000 S1F4110AE464F5F34368D2F325E354016005410AE6630648601A784EC6234368D19351632646E8410AE62308D000A4F5F34368D0635366E84010DAE6610AE64A6A0E6632707E03F2403A6635F4D27098D1C261331214A26F75D270B318D000D8D0C26035A20F2351032646E84203476A6881581CC270686FCA70E203EE60D5C S2B2A6D0E2635EC881833881E33CBA6A4A7C45CE78819270F6D0D2A1FC1FF261BC60117 YDFTWRITETAPE0000 S201417 YDFTWRITEDSK 0000 S200F6F0EA6A45C270517 YDFTSCREENOUT0000 S200317 YDFTRS232OUT 0000 S35166D0E35E0AE6410AE62EC881C271EEDE33089011EA6A0A780ECE4830001EDE426F33262AE643416170006326435306E84AE646D0E261E86FCA70EEC881C27156F0E3189011E10AF8417FF662607312183000126F43910AE648E000CCC0001343617FEF33586AE64E60F4FED6639AE66EC64E70F3934364D270B3002E680 SE1A026034A26F735B6 RCLOSE 014A RDFTCLOSE 014C RDFTEQUALNAME044C RDFTREADCHAR 021A RDFTREADFIELD01A5 RDFTREADINT 01F2 RDFTREADLN 024F RDFTREADSTRG 0290 RDFTREADTYPE 0264 RDFTRESET 0000 RDFTREWRITE 003A RDFTWRITELN 0343 RDFTWRTCHAR 032E RDFTWRTINT 0303 RDFTWRTSTRG 0356 RDFTWRTTYPE 03DC REOF 010C REOLN 0123 RFILEERROR 0104 RFILETYPE 043D RGET 0176 RPAGE 042D RPUT 0408 RSETFILETYPE 0445 PA0000 0000 JPASKEYBD KCURSOR KDFTDELAY KDFTPOLLKEY KDFTREADKEYBD KDFTRS232OUT KDFTSCREENOUT CDEFT MACRO ASSEMBLER II, V4.0 CPASKEYBD V 4.0 S3416B7FFD8327C6F63DC76830001DD762606CC00411700D28E01524F4AA7E4A762A6624910240080A7626CE417009FA761A884A484E661E7805C27E56C634D27E0C6F8CB084424FB308D00BFEBE42730C11A2F1F308D006BC1202F24308D0045C1302C1C8D78C12B2F0288404D2619CB102015CA408D67BA011A260CCA2020 S08588D5B27015CE685E7648E055E17007D86FF8D3A4C2611A6628D33A1612609C112261973011A20126D632708DC76108302BB2606CC02BC1700306F6432643401B6FFF881FE2603B7FFD935013596B7FF02B6FF008A807DFF022B028A4039867FB7FF02B6FF0043844039DD7686FFC6088E0152A7805A26FB395E5F0A5B08 S15095D202030120D0D0C5C03034013301F26FC393436327E6F0EC68FE7E46F6131881E4F5FED8816ED8818A6E48B10810F2602869FA7E48D766F6117FEC4260A6A612BF786088D6720E181032603 B S20EA340286088D583502810D27418108271781152721810C272FE688195C27BCA7A06C88198D3920B36D881927AE313F6A88198D2B20A56D88191027FF9E313F6A881986088D1920EE86FFA70E860DA7A08D0DEC8818C30001ED8818326235B634169E888108271F810D2726810C27428120254D4D2B0C81402D0681602D04 S84DF8840A78020158C040027358660A782200A8660A7801F10C51F26F69F888C0600251E8E0400EC8820ED818C05E025F620038E0400CC60609F88ED818C05FF25F97FFF02B6FF004348271017FDE5270B8113260717FDDC27FB20F53596EC648401C30400DD8839B7FFD83416C6083405F6FF22C40126F91A508D265F8D25 S5F44598D206A6126F78D183505A6E4810D26049E978D14B6FFF881FE2603B7FFD93596C60158F7FF209E95341017FE92351017FE8D39 RCURSOR 022A RDFTDELAY 010D RDFTPOLLKEY 0000 RDFTREADKEYBD0112 RDFTRS232OUT 0234 RDFTSCREENOUT01AD PA0000 0000 JPASCASST KDFTREADTAPE KDFTRESETTAPE KDFTREWRTTAPE KDFTWRITETAPE CDEFT MACRO ASSEMBLER II, V4.0 CPASCASST V 4.0 S34268D55A60E270481FF26206D881026F1A6028120270A860831881E17 YDFTEQUALNAME0000 S26E18D366D0E260586AAA7881535A6343631881ECC000FED8818C6083002A680A7A05A26F9C6076FA05A26FBAE62CCFFFFED88275F17010F35B634068D308D471700C38D144F5FED88166D0E26096D88102A0486FFA70E3586B6FF2184F7B7FF211CAFB6FFF881FE2603B7FFD9393422B6FF218A08B7FF21B7FFD8108E0000 S313F26FC1A5035A234066F88118D498D2F22108D2525106A8811A6881181A0271420EA8D1522E88D1725E86C8811A68811806026D8A7881235860F818D1E20040F818D21D681C1182203C10A396F8811390F816D881226098D1025FC8D0C24FC398D0724FC8D0325FC390C81F6FF2056398608A788148D07466A881426F839 S8DD0D68112C113393426327E31881E4F8DEE46813C26F98DD9A788108DD4A788196F8818A7E4AB8810A7616DE4270C8DC1A7A0AB61A7616AE426F48DB5A061270286FEA70E326235A63426E7881017FF1FCC559034048D346AE426FA3261863C8D2A5FA688108D24A688198D1F4D270C31881EA6A08D156A881926F71F988D S0C86558D0817FED46F881835A63426EBE4E761318D005B3420318D00333420C601A68811B7FF2010AEE4E564260CA6A0B7FF2010AC6223F6200AA6A1B7FF2010AC6225F6A6A0A788115824D5326435A68292AABACADAEAF2FAFAFAF2EADACABAAA927A6A52423222120A0202020A12223242526A RDFTREADTAPE 0059 RDFTRESETTAPE0000 RDFTREWRTTAPE002E RDFTWRITETAPE0166 PA0000 0000 JPASSTRNG KDFTCHRSTRAPP KDFTCHRSTRCPY KDFTSTRSTRAPP KDFTSTRSTRCMP KDFTSTRSTRCPY KSTRINGCOPY KSTRINGDELETE KSTRINGINSERT KSTRINGPOS CDEFT MACRO ASSEMBLER II, V4.0 CPASSTRNG V 4.0 S10AE6410AC62271F6FA4AE6210AE64E6A43404EB84E7A035044F31ABE6802707A680A7A05A26F9AEE432646E846FF80410AE646CA4E6A44F31ABA663A7A420E73406AE6610AE64E6A0E1802302E61F5D2709A6A0A18026095A20F4A6F804A1F806351632646E8410AE646FA06D672718E669AE6A4F308BE1F80A220CA680A7 SA06CF8045C6A6726EF39AE68E6844FA3662D29C3000110A3642C02ED64A36427133404EC67308BEC65318B3502E6A0E7804A26F9E6F808A364E7F80839327E10AE68E6672706E1A42303E6A45C4F30ABAFE4E6A030ABEBF80AE73F31ABACE42306A682A7A220F6AE6AE680270A10AEE4A680A7A05A26F9326239327E6F6A6F S6B10AE66E6A44F31AB10AFE410AE66312110AF66AE68E68027106C6B10ACE4220CA680A1A026E55A26F23262396F6B20F9 RDFTCHRSTRAPP0030 RDFTCHRSTRCPY002D RDFTSTRSTRAPP000A RDFTSTRSTRCMP0040 RDFTSTRSTRCPY0000 RSTRINGCOPY 0067 RSTRINGDELETE0089 RSTRINGINSERT00BC RSTRINGPOS 00F9 PA0000 0000 JPASSET KDFTSETCMP KDFTSETCONTAN KDFTSETDEFINE KDFTSETDIFF KDFTSETELEMNT KDFTSETIN KDFTSETINCLUD KDFTSETINTER KDFTSETLOAD KDFTSETRANGE KDFTSETSTORE KDFTSETUNION CDEFT MACRO ASSEMBLER II, V4.0 CPASSET V 4.0 S4D2619340454545430853504C4073404C6016AE42B035820F93261395F39ECE82230628DDBE4842702C601351032E8226E84EC6230648DC8EA84E784351032626E84EC6410A362220C30668DB3EA84E7846C6526ED351032646E843510C6206FE25A26FB6E848D10A684AAA0A7805A26F7351032E8206E84C62030E8243164 S398DF6A684A4A0A7805A26F720E48DE9A6A043A484A7805A26F620D68DDBA684A4A0A18026075A26F5C60120015F351032E8406E848DC21E1220E38DBCA6A0A18026EB5A26F720E63530C62031A5A6A234025A26F96E843510C62010AEE53502A7A05A26F932626E84 RDFTSETCMP 00BA RDFTSETCONTAN00B4 RDFTSETDEFINE005B RDFTSETDIFF 008D RDFTSETELEMNT0032 RDFTSETIN 001E RDFTSETINCLUD009B RDFTSETINTER 0080 RDFTSETLOAD 00C7 RDFTSETRANGE 0042 RDFTSETSTORE 00D6 RDFTSETUNION 0066 PA0000 0000 JTCELOAD KTCELOAD CDEFT MACRO ASSEMBLER II, V4.1 CTCELOAD Version 4.1 S1A50B7FFDF108E L006D S8EFC00ECA1ED81108C L025C S23F6108E L004C S8E00BFECA1ED81108C L0059 S23F6108E L0059 S8E00FBECA1ED81108C L0066 S23F6108E L0066 S8E00DBECA1ED81108C L006D S23F67EFC00B7FFDEAD9FA0001A50B7FFDF39B7FFDEAD9FC0041A50B7FFDF39B7FFDE6E9FFFFEB608AB8030810323014FB7FBFD8E01DABFFBF186038D5D1F13108E08A0C60BA6C0A1A0260B5A26F7A60DB7FBFA1600943088208C02DA26DFB6FBF94C810B26D5318D018917014C1701668E0400A684843FA7808C041F23F59D SBF810310270111810D26F417012C20978E02DCBFFBF17FFBF78602B7FBF98611B7FBF88E00EA8602A784B6FBFDA701B6FBF8A702F6FBF9E703FEFBF1EF049DFB7FFF404FA106102600BEBEFBF139F6FBFAB6FBFA84018100270286094CB7FBF954C11125015CF7FBF84F398DA38E01DABFFBF18DD98DACCE01DAA6C0810010 S260086ECC1C30005AEC1BFFBF3F3FBF3FDFBF52017B7FBFA8DB57FFBF7BBFBF9B7FBF917FF7EBEFBF3CE01DAA6C0A780BCFBF52729118302DA26F1BFFBF38D8F7CFBF7B6FBF7810823D3F6FBFA8E02DC3AA684814425BE8D428EFBFB6E9410BEFBF5313BA6A03402ECA1C30005AEA1BFFBF3BFFBFBF3FBF3FDFBF535028100 S26D6118302DA27B420A3108E L022D S8D3B8E0C004A26FD301F26F90EDB4FB7FF22B7FFC2B7FFC4B7FFC6B7FFC9B7FFCAB7FFCCB7FFCEB7FFD0B7FFD2398DDE86608E0400A7808C042025F9398DCF86608E0400A7808C060025F9AEA1A6A0810D27F81025FF07A78020F2054B4449534B604552524F52000400494E534552546050524F504552604449534B6C6050 S5245535360454E54455200 RTCELOAD 0000 PA0000 0000 JPASRUNTM KDECODE KDFTDECIMAL KDFTDIVIDE KDFTHEX KDFTMULTIPLY KDFTNEW KDFTSTRCTLOAD KDFTSTRUCTCMP KDFTSTRUCTMOV KENCODE KHEX KMARK KMEMAVAIL KRELEASE CDEFT MACRO ASSEMBLER II, V4.0 CPASUNTM V 4.0 S3440EE66AE6810AE64A6C0A1802604313F26F63540351032666E8435361E014353C3000132EB3410344033641F01A6A0A7C0300126F835C03440EE66AE6810AE64A6C0A780313F26F820C86D662A086C634F5FA366ED666D682A086A634F5FA368ED68396FE26FE28DE16FE2A666E6683DEDE4A665E6683DEBE4E7E4A666E6 S673DEBE4E7E46D6227064F5FA3E4EDE4ECE4AE6332696E846FE26FE26D662A026CE48DA834108E00104F5F68696968594910A3662504A3666C69301F26ED3510ED64A6E027064F5FA363ED63A6E027064F5FA364ED643934366FE24D2A086CE44F5FA361ED618620E66627313404A7805A26FB10AE62CC000A34268D9BA661 S2A01408B30A782CC000AEDE46A64270CEC6226E86D652704862DA7823265326135B6E667AE64E780EC6810AE668DA939AE6810AE64EC6658495849E366C3000144565AE7A0A6678D013934366FE24D271FE684545454548D1CE680C40F8D164A270EE6E4C8FFE7E426E7C620E7A020E13261353639CA30C1392F02CB07E7A0 S396F666F67AE64A6806FE2A7E22740A680812026066AE426F62034812D26046A61201C80302B1E8109221AA7E2EC695849ED6958495849E369EBE08900ED68A6806AE426DE6D6127064F5FA368ED68326239EC8D YDFTHEAPSTART0000 SEDF804E362ED8D YDFTHEAPSTART0000 S351032646E84EC8D YDFTHEAPSTART0000 SEDF80439EC64ED8D YDFTHEAPSTART0000 S391F40830064A38D YDFTHEAPSTART0000 S23072A07CC7FFF20024F5FED6439 RDECODE 0120 RDFTDECIMAL 00D6 RDFTDIVIDE 0097 RDFTHEX 0148 RDFTMULTIPLY 0064 RDFTNEW 01CF RDFTSTRCTLOAD001B RDFTSTRUCTCMP0000 RDFTSTRUCTMOV0038 RENCODE 017E RHEX 012E RMARK 01E2 RMEMAVAIL 01F1 RRELEASE 01EA PA0000 0000 CDEFT PASCAL II V4.1 RDFTPSCLMAIN 0000 S16000134403364327EEC423406CC0007A4E0E4E0ED5AEC423406CC00031F025D350627064456313F26FAED42EC423406EC42AEC43089DA69E68B1D3406EC5A5849AEC43089FE06EC8BAAE0EAE01F023506AEC43089DA69308B1F20E784325C35C034403364327EEC423406CC0007A4E0E4E0ED5AEC423406CC00031F025D35 S0627064456313F26FAED42EC423406EC42AEC43089BA69E68B1D3406EC5A5849AEC43089FE06EC8BAAE0EAE01F023506AEC43089BA69308B1F20E784325C35C016000234403364327C4F5F30D802E68B4FED5ACC0001ED58EC583406EC5A1F025F10ACE12D015C4F3406EC5830D802E68B4F3406CC00201F025F10ACE12601 S5CA4E0E4E05D10270003EC583406CC0001E3E1ED5820C2 F0106 SEC583406CC000110A3E1102C000430D8023410CC00013406EC583406CC00013406EC62A3E132623406AEC4AE84341017 YSTRINGDELETE0000 S3268 F0121 S325C35C0 F00C0 S3440336432E8BA30D80634108D010017 YDFTSTRSTRCPY0000 S32624F5FEDD80430D80234108D010017 YDFTSTRSTRCPY0000 S326230C8B6341030D808341017 YDFTSTRSTRCPY0000 S326230C8B634108D010017 YDFTSTRSTRCMP0000 S10260005325C35C0 F018F S30C8B63410344017FF23326430C8B634108D010017 YDFTSTRSTRCMP0000 S10260006325C35C0 F01AE S30D8063410CC000130C8B6E68B4F340617 YDFTCHRSTRCPY0000 S326230C8B63410CC00013406CC00013406AEC4341017 YSTRINGDELETE0000 S326830C8B63410344017FED7326430C8B634108D010017 YDFTSTRSTRCMP0000 S10260007325C35C0 F01FA SCC000130C8B6E68B4F3406CC002410A3E110260008CC0005ED584F5F30C8B6E68B4F3406CC000510A3E1102F00094F5F30C8B6E68B4FED58 F022C SCC0002ED56EC583406EC5610A3E4102E000AEC5630C8B6E68B4F3406CC00303406EC62A3E13262ED5AEC5A3406CC000910A3E1102C000BEC5A3406CC00073406EC62A3E13262ED5A F026D SECD8043406CC0010340617 YDFTMULTIPLY 0000 S3406EC5AE3E1EDD804EC56C30001ED5620A2 F0248 S326216000C F0213 S327E30C8B63410AEC4341017 YENCODE 0000 S32643506EDD804 F02A2 S327E8D02012030C8B63410AEC4341017 YSTRINGPOS 0000 S32663506ED5AEC5A34064F5F10A3E11026000D4F5F30C8B6E68B4FED5A F02DC S30C8B63410CC00013406EC5A3406AEC4341017 YSTRINGDELETE0000 S326830C8B63410344017FDB932644F5F30C8B6E68B4F3406CC000C10A3E1102C000E4F5F3406CC000C1F02350630C8B6308B1F20E784 F031D S30D802341030C8B6341017 YDFTSTRSTRCPY0000 S3262325C35C034403364327EEC423406AEC4EC89A9193406EC62A3E13262ED42EC423406CC0007A4E0E4E0ED5AEC423406CC00031F025D350627064456313F26FAED42EC423089AA69E68B1D3406EC5A5849AEC43089FE06EC8BA4E0E4E034064F5F1F025F10ACE127015CE745325C35C034403364327E30D8023410304434 S1017 YDFTSTRSTRCPY0000 S3262EC483406CC000210A3E11026000FEC4A3406CC000C1F025D350627064456313F26FAED5A30D802341030D802341017 YDFTSTRSTRCPY0000 SEC5A3406CC0001E3E1AEC43089FD24E68B4F340617 YDFTCHRSTRAPP0000 S3262EC4A3406CC00081F025D350627064456313F26FA3406CC000FA4E0E4E0ED5A30D802341030D802341017 YDFTSTRSTRCPY0000 SEC5A3406CC0001E3E1AEC43089FD24E68B4F340617 YDFTCHRSTRAPP0000 S3262 F03D1 SEC4A3406CC00041F025D350627064456313F26FA3406CC000FA4E0E4E0ED5A30D802341030D802341017 YDFTSTRSTRCPY0000 SEC5A3406CC0001E3E1AEC43089FD24E68B4F340617 YDFTCHRSTRAPP0000 S3262EC4A3406CC000FA4E0E4E0ED5A30D802341030D802341017 YDFTSTRSTRCPY0000 SEC5A3406CC0001E3E1AEC43089FD24E68B4F340617 YDFTCHRSTRAPP0000 S3262325C35C03440336432E9FE8830461F10EDC9FEDAECC9FEDA3406CC0002E3E1EDC9FEDAECC9FEDA3406ECF1EDC9FEDAECC9FEDAEDC9FE8430C9FEDE3410ECC9FE841F013410CC011E340617 YDFTSTRUCTMOV0000 SECC9FE84EDC9FE86ECC9FE863406CC00111F0235061F013088121F20E784ECC9FE863406CC00011F0235061F013088131F20E784ECC9FE863406CC00031F0235061F013088141F20E784ECC9FE863406CC01001F0235061F013088161F20ED8430D808341030C9FED9341017 YDFTREADCHAR 0000 S3262E6C9FEEE1DEDC9FEDC30C9FE883410ECC9FEDC4F340617 YDFTCHRSTRCPY0000 S3262ECC9FEDC3406CC00BE10A3E1102F0010ECC9FE863406ECC9FEDCE3E11F01E6881E4FEDC9FEDC30C9FE88341030C9FE88341017 YDFTSTRSTRCPY0000 SECC9FEDC4F340617 YDFTCHRSTRAPP0000 S326220BD F05B2 SECC9FE841F01341030C9FEDE3410CC011E340617 YDFTSTRUCTMOV0000 SECC9FE861F01EC881AEDD80230D804341030C9FE88341017 YDFTSTRSTRCPY0000 S3262325C35C03440336432E8EB30C8551F10EDC8ECECC8EC3406CC0002E3E1EDC8ECECC8EC3406ECF1EDC8ECECC8ECEDC8E7ECC8533406CC00023406EC62A3E13262EDC853ECC8E71F01EC8816ED5AEC5A3406ECC8533406CC0001340617 YDFTMULTIPLY 0000 SE3E134064F5F1F025F10ACE12E015C4F3406EC5A3406ECC8533406CC0001340617 YDFTMULTIPLY 0000 SE3E13406CC00FF1F025F10ACE12D015CA4E0E4E05D10270011EC5A3406ECC8533406CC0001340617 YDFTMULTIPLY 0000 SE3E1ED54160012 F06B1 SECC8553406CC00013406EC62A3E132623406CC0001340617 YDFTMULTIPLY 0000 SED52EC523406CC00013406EC62A3E132623406CC0900340617 YDFTDIVIDE 0000 S35063506ED5AEC523406EC5A3406CC0900340617 YDFTMULTIPLY 0000 S3406EC62A3E13262ED58EC583406CC00013406EC62A3E132623406CC0100340617 YDFTDIVIDE 0000 S3506CC0001E3E1ED50EC583406EC503406CC00013406EC62A3E132623406CC0100340617 YDFTMULTIPLY 0000 S3406EC62A3E132623406CC00013406EC62A3E13262ED54EC5A3406CC0001E3E13042E68B4FED56EC563406CC0002340617 YDFTDIVIDE 0000 S35063506EDC8EEECC8EE3406CC001010A3E1102C0013ECC8EE3406CC0001E3E1EDC8EE F07A6 SEC563406CC0001A4E0E4E05D10270014EC503406CC0009E3E1ED50 F07C3 SECC8E73406EC561F0235061F013088101F20E784ECC8E73406EC5A3406CC0002E3E13042E68B4F1F0235061F013088111F20E784ECC8E73406ECC8EE1F0235061F013088121F20E784ECC8E73406EC503406CC00013406EC62A3E132621F0235061F013088131F20E784ECC8E73406CC00091F0235061F013088141F20E784 SEC563406CC0001A4E0E4E05D10270015ECC8E73406CC00121F0235061F013088141F20E784 F085D SECC8E73406CC01001F0235061F013088161F20ED8430D857341030C8E9341017 YDFTREADCHAR 0000 S3262 F06C9 SECC8E71F01E688101D3406CC00441F025F10ACE12C015C4F3406ECC8E71F01E688121D3406CC00221F025F10ACE12C015CAAE0EAE04F3406ECC8E71F01E688131D3406CC00121F025F10ACE12C015CAAE0EAE05D10270016CC0001AEC4E789A920CC0007ED89A91E309802341017 YDFTWRITELN 0000 SAEC43098023410ECC8E71F01E688101D3406CC0006340617 YDFTWRTINT 0000 SECC8E71F01E688121D3406CC0006340617 YDFTWRTINT 0000 SECC8E71F01E688131D3406CC0006340617 YDFTWRTINT 0000 S17 YDFTWRITELN 0000 F08EE SECC8E73406EC541F0235061F013088161F20ED8430D857341030C8E9341017 YDFTREADCHAR 0000 S3262325C35C034403364327FECD8043406AEC4EC89FCA5C3000110A3E1102700173089FB873410ECD8043406AEC4EC89FCA73406EC62A3E132623406ECD8043406EC89FCA53406EC62A3E1326234063089FCD33410CC0051340617 YDFTSTRCTLOAD0000 SAEC4341017FC4D32E859 F098B SAEC43089FB873410305B341017 YDFTREADCHAR 0000 S3262ECD804AEC4ED89FCA5E65B4FEDD802ECD804C30001EDD804325C35C0344033644F5F3406CC0051340617 YDFTMULTIPLY 0000 SAEC43089FE16308B34108D41404E4547204643422046434220434F4D204C53522046434220524F5220415352204C534C20524F4C204445432046434220494E4320545354204A4D5020434C522017 YDFTSTRSTRCPY0000 S3262CC00013406CC0051340617 YDFTMULTIPLY 0000 SAEC43089FE16308B34108D414046434220464342204E4F502053594E4346434220464342204C4252414C42535246434220444141204F52434346434220414E444353455820455847205446522017 YDFTSTRSTRCPY0000 S3262CC00023406CC0051340617 YDFTMULTIPLY 0000 SAEC43089FE16308B34108D41404252412042524E2042484920424C532042485320424C4F20424E452042455120425643204256532042504C20424D492042474520424C542042475420424C452017 YDFTSTRSTRCPY0000 S3262CC00033406CC0051340617 YDFTMULTIPLY 0000 SAEC43089FE16308B34108D41404C4541584C4541594C4541534C4541555053485350554C535053485550554C5546434220525453204142582052544920435741494D554C20464342205357492017 YDFTSTRSTRCPY0000 S3262CC00043406CC0051340617 YDFTMULTIPLY 0000 SAEC43089FE16308B34108D414053554241434D50415342434153554244414E4441424954414C44412053544120454F5241414443414F52412041444441434D50584A5352204C4458205354582017 YDFTSTRSTRCPY0000 S3262CC00053406CC0051340617 YDFTMULTIPLY 0000 SAEC43089FE16308B34108D414053554242434D50425342434241444444414E4442424954424C44422053544220454F5242414443424F524220414444424C444420535444204C4455205354552017 YDFTSTRSTRCPY0000 S3262AEC43089FD4A34108D11103530313030303936333539363335393617 YDFTSTRSTRCPY0000 S3262AEC43089FD3534108D11103031323330303030343434343535353517 YDFTSTRSTRCPY0000 S32624F5F3406CC0006340617 YDFTMULTIPLY 0000 SAEC43089FDD6308B34108D04032C434317 YDFTSTRSTRCPY0000 S3262CC00013406CC0006340617 YDFTMULTIPLY 0000 SAEC43089FDD6308B34108D03022C4117 YDFTSTRSTRCPY0000 S3262CC00023406CC0006340617 YDFTMULTIPLY 0000 SAEC43089FDD6308B34108D03022C4217 YDFTSTRSTRCPY0000 S3262CC00033406CC0006340617 YDFTMULTIPLY 0000 SAEC43089FDD6308B34108D04032C445017 YDFTSTRSTRCPY0000 S3262CC00043406CC0006340617 YDFTMULTIPLY 0000 SAEC43089FDD6308B34108D03022C5817 YDFTSTRSTRCPY0000 S3262CC00053406CC0006340617 YDFTMULTIPLY 0000 SAEC43089FDD6308B34108D03022C5917 YDFTSTRSTRCPY0000 S3262CC00063406CC0006340617 YDFTMULTIPLY 0000 SAEC43089FDD6308B34108D03022C5517 YDFTSTRSTRCPY0000 S3262CC00073406CC0006340617 YDFTMULTIPLY 0000 SAEC43089FDD6308B34108D04032C504317 YDFTSTRSTRCPY0000 S32624F5F3406CC0006340617 YDFTMULTIPLY 0000 SAEC43089FD76308B3410CC0044340617 YDFTCHRSTRCPY0000 S3262CC00013406CC0006340617 YDFTMULTIPLY 0000 SAEC43089FD76308B3410CC0058340617 YDFTCHRSTRCPY0000 S3262CC00023406CC0006340617 YDFTMULTIPLY 0000 SAEC43089FD76308B3410CC0059340617 YDFTCHRSTRCPY0000 S3262CC00033406CC0006340617 YDFTMULTIPLY 0000 SAEC43089FD76308B3410CC0055340617 YDFTCHRSTRCPY0000 S3262CC00043406CC0006340617 YDFTMULTIPLY 0000 SAEC43089FD76308B3410CC0053340617 YDFTCHRSTRCPY0000 S3262CC00053406CC0006340617 YDFTMULTIPLY 0000 SAEC43089FD76308B34108D0302504317 YDFTSTRSTRCPY0000 S3262CC00063406CC0006340617 YDFTMULTIPLY 0000 SAEC43089FD76308B3410CC003F340617 YDFTCHRSTRCPY0000 S3262CC00073406CC0006340617 YDFTMULTIPLY 0000 SAEC43089FD76308B3410CC003F340617 YDFTCHRSTRCPY0000 S3262CC00083406CC0006340617 YDFTMULTIPLY 0000 SAEC43089FD76308B3410CC0041340617 YDFTCHRSTRCPY0000 S3262CC00093406CC0006340617 YDFTMULTIPLY 0000 SAEC43089FD76308B3410CC0042340617 YDFTCHRSTRCPY0000 S3262CC000A3406CC0006340617 YDFTMULTIPLY 0000 SAEC43089FD76308B34108D0302434317 YDFTSTRSTRCPY0000 S3262CC000B3406CC0006340617 YDFTMULTIPLY 0000 SAEC43089FD76308B34108D0302445017 YDFTSTRSTRCPY0000 S3262CC000C3406CC0006340617 YDFTMULTIPLY 0000 SAEC43089FD76308B3410CC003F340617 YDFTCHRSTRCPY0000 S3262CC000D3406CC0006340617 YDFTMULTIPLY 0000 SAEC43089FD76308B3410CC003F340617 YDFTCHRSTRCPY0000 S3262CC000E3406CC0006340617 YDFTMULTIPLY 0000 SAEC43089FD76308B3410CC003F340617 YDFTCHRSTRCPY0000 S3262CC000F3406CC0006340617 YDFTMULTIPLY 0000 SAEC43089FD76308B3410CC003F340617 YDFTCHRSTRCPY0000 S32624F5F3406CC0006340617 YDFTMULTIPLY 0000 SAEC43089FD5E308B3410CC0058340617 YDFTCHRSTRCPY0000 S3262CC00013406CC0006340617 YDFTMULTIPLY 0000 SAEC43089FD5E308B3410CC0059340617 YDFTCHRSTRCPY0000 S3262CC00023406CC0006340617 YDFTMULTIPLY 0000 SAEC43089FD5E308B3410CC0055340617 YDFTCHRSTRCPY0000 S3262CC00033406CC0006340617 YDFTMULTIPLY 0000 SAEC43089FD5E308B3410CC0053340617 YDFTCHRSTRCPY0000 S32624F5F58493406CC00011F023506AEC43089FE06308B1F20ED84CC000158493406CC00021F023506AEC43089FE06308B1F20ED84CC000258493406CC00041F023506AEC43089FE06308B1F20ED84CC000358493406CC00081F023506AEC43089FE06308B1F20ED84CC000458493406CC00101F023506AEC43089FE06308B S1F20ED84CC000558493406CC00201F023506AEC43089FE06308B1F20ED84CC000658493406CC00401F023506AEC43089FE06308B1F20ED84CC000758493406CC00801F023506AEC43089FE06308B1F20ED84AEC43089FD2434108D11103031323334353637383941424344454617 YDFTSTRSTRCPY0000 S3262325C35C016001834403364AEC4EC1A3406CC0001E3E1AEC4AE843089FD4AE68B4F3406CC00303406EC62A3E13262EDD804AEC4EC980C1083001610270019108300171026001A F1144 SCC0002EDD80416001B F114C S1083001A1027001C1083001C1026001D F115D SCC0003EDD80416001E F1165 S1083001E1027001F1083001F10260020 F1176 SCC0008EDD804160021 F117E S1083003010270022108300311027002310830032102700241083003310260025 F119F F1197 F118F SCC0009EDD804160026 F11A7 S108300341027002710830035102700281083003610270029108300371026002A F11C8 F11C0 F11B8 SCC0007EDD80416002B F11D0 S108300831027002C1083008C1027002D1083008E1027002E108300C31027002F108300CC10270030108300CE10260031 F1201 F11F9 F11F1 F11E9 F11E1 SCC0004EDD804160032 F1209 S1083008D10260033CC0001EDD804 F121A F1212 F11D9 F11B0 F1187 F116E F1155 S30D80234108D010017 YDFTSTRSTRCPY0000 S3262ECD8043406CC00031F025F10ACE126015C4F3406ECD8043406CC00041F025F10ACE126015CAAE0EAE05D1027003430D8023410CC0023340617 YDFTCHRSTRCPY0000 S3262 F125B SECD8043406CC000510A3E11026003530D8023410CC003C340617 YDFTCHRSTRCPY0000 S3262 F1279 SAEC4EC980E3406CC00011F025F10ACE126015C4F3406EC980C3406CC00201F025F10ACE12C015CA4E0E4E04F3406EC980C3406CC00301F025F10ACE12F015CA4E0E4E05D10270036CC0002EDD804 F12D0 S325C35C03440336432E8CB4F5FAEC4E798124F5FE798104F5FEDD8044F5FED980A308816341030563410AEC4AE84341017F6673266EC46108300001026003730D80234108D010017 YDFTSTRSTRCPY0000 S3262160038 F1315 S1083000110260039EC563406CC007F10A3E1102C003AEC563406CC01003406EC62A3E13262ED56 F133B SAEC4EC88163406EC56E3E13406CC000234068D03024C42CC0004340617 YDFTSTRCTLOAD0000 S30D8023410AEC4AE84341017F036326CAEC4EC88163406EC56E3E1ED980ACC0001EDD804CC0001E7981216003B F132D S108300021026003CAEC4308816341030543410AEC4AE84341017F5BC3266EC563406CC0100340617 YDFTMULTIPLY 0000 S3406EC54E3E1ED52AEC4EC88163406EC52E3E13406CC000234068D03024C42CC0004340617 YDFTSTRCTLOAD0000 S30D8023410AEC4AE84341017EFB8326CAEC4EC88163406EC52E3E1ED980ACC0002EDD804CC0001E7981216003D F13A0 S108300031026003EEC563406CC000134068D03024454CC0004340617 YDFTSTRCTLOAD0000 S30D8023410AEC4AE84341017EF6D326CEC56AEC4ED980ACC0001EDD804CC0001E7981016003F F141E S1083000410260040AEC4308816341030543410AEC4AE84341017F4FA3266EC563406CC0100340617 YDFTMULTIPLY 0000 S3406EC54E3E1ED52EC523406CC000234068D03024454CC0004340617 YDFTSTRCTLOAD0000 S30D8023410AEC4AE84341017EEFF326CEC52AEC4ED980ACC0002EDD804CC0001E79810160041 F1462 S1083000510260042EC563406CC000134068D03024C42CC0004340617 YDFTSTRCTLOAD0000 S30D8023410AEC4AE84341017EEBB326CEC56AEC4ED980ACC0001EDD804CC0001E79812160043 F14D0 S1083000610260044AEC4308816341030543410AEC4AE84341017F4483266EC563406CC0100340617 YDFTMULTIPLY 0000 S3406EC54E3E1ED52EC523406CC000234068D03024C42CC0004340617 YDFTSTRCTLOAD0000 S30D8023410AEC4AE84341017EE4D326CEC52AEC4ED980ACC0002EDD804CC0001E79812160045 F1514 S1083000710260046EC56AEC4ED980A30C8DD34108D010017 YDFTSTRSTRCPY0000 S3262CC00063406CC0006340617 YDFTMULTIPLY 0000 SAEC4AE843089FDD6308B34108D03022C5517 YDFTSTRSTRCPY0000 S3262CC0001EDD804AEC4EC980C3406CC003510A3E1102C0047CC00063406CC0006340617 YDFTMULTIPLY 0000 SAEC4AE843089FDD6308B34108D03022C5317 YDFTSTRSTRCPY0000 S3262 F15D0 S4F5FED54CC00073406EC5410A3E4102E0048EC563406EC545849AEC4AE843089FE06EC8BA4E0E4E034064F5F10A3E11027004930C8DD341030C8DD341017 YDFTSTRSTRCPY0000 SEC543406CC0006340617 YDFTMULTIPLY 0000 SAEC4AE843089FDD6308B341017 YDFTSTRSTRAPP0000 S3262 F1626 SEC54C30001ED5420A3 F1605 S326230C8DD34108D010017 YDFTSTRSTRCMP0000 S1026004A4F5FAEC4E7981416004B F166A S30C8DD3410CC00013406CC00013406AEC4AE84341017 YSTRINGDELETE0000 S3268 F1674 S30D802341030C8DD341017 YDFTSTRSTRCPY0000 S326216004C F1582 S108300081026004DEC56AEC4ED980ACC0001EDD80430C8DD3410EC563406CC00041F025D350627064456313F26FA3406CC0006340617 YDFTMULTIPLY 0000 SAEC4AE843089FD76308B341017 YDFTSTRSTRCPY0000 SCC002C340617 YDFTCHRSTRAPP0000 SEC563406CC000FA4E0E4E03406CC0006340617 YDFTMULTIPLY 0000 SAEC4AE843089FD76308B341017 YDFTSTRSTRAPP0000 S3262CC000130C8DDE68B4F3406CC003F1F025F10ACE126015C4F3406CC000330C8DDE68B4F3406CC003F1F025F10ACE126015CAAE0EAE04F3406CC000430C8DDE68B4F3406CC003F1F025F10ACE126015CAAE0EAE05D1027004E4F5FAEC4E79814 F176D S30D802341030C8DD341017 YDFTSTRSTRCPY0000 S326216004F F16A8 S1083000910260050CC0001EDD804EC563406CC0060A4E0E4E03406CC00051F025D350627064456313F26FAED5AEC563406CC008010A3E1102F0051EC563406CC001FA4E0E4E0ED58EC583406CC000F10A3E1102C0052EC583406CC00203406EC62A3E13262ED58 F17DC SEC583406CC0003340630C8DD3410AEC4AE84341017 YDECODE 0000 S326830C8DD341030C8DD341017 YDFTSTRSTRCPY0000 SCC002C340617 YDFTCHRSTRAPP0000 SEC5A3406CC0006340617 YDFTMULTIPLY 0000 SAEC4AE843089FD5E308B341017 YDFTSTRSTRAPP0000 S3262EC58AEC4ED980A160053 F17C1 S4F5FE7C8C7EC563406CC0010A4E0E4E03406CC001010A3E110260054CC0001E7C8C7 F185E SEC563406CC000FA4E0E4E0ED584F5FAEC4ED980AEC58108300001026005530C8DD3410CC002C340617 YDFTCHRSTRCPY0000 SEC5A3406CC0006340617 YDFTMULTIPLY 0000 SAEC4AE843089FD5E308B341017 YDFTSTRSTRAPP0000 SCC002B340617 YDFTCHRSTRAPP0000 S3262160056 F1882 S108300011026005730C8DD3410CC002C340617 YDFTCHRSTRCPY0000 SEC5A3406CC0006340617 YDFTMULTIPLY 0000 SAEC4AE843089FD5E308B341017 YDFTSTRSTRAPP0000 S8D03022B2B17 YDFTSTRSTRAPP0000 S3262160058 F18BF S108300021026005930C8DD34108D03022C2D17 YDFTSTRSTRCPY0000 SEC5A3406CC0006340617 YDFTMULTIPLY 0000 SAEC4AE843089FD5E308B341017 YDFTSTRSTRAPP0000 S326216005A F18FC S108300031026005B30C8DD34108D04032C2D2D17 YDFTSTRSTRCPY0000 SEC5A3406CC0006340617 YDFTMULTIPLY 0000 SAEC4AE843089FD5E308B341017 YDFTSTRSTRAPP0000 S326216005C F1931 S108300041026005D30C8DD3410CC002C340617 YDFTCHRSTRCPY0000 SEC5A3406CC0006340617 YDFTMULTIPLY 0000 SAEC4AE843089FD5E308B341017 YDFTSTRSTRAPP0000 S326216005E F1967 S108300051026005F30C8DD34108D0302422C17 YDFTSTRSTRCPY0000 SEC5A3406CC0006340617 YDFTMULTIPLY 0000 SAEC4AE843089FD5E308B341017 YDFTSTRSTRAPP0000 S3262160060 F199C S108300061026006130C8DD34108D0302412C17 YDFTSTRSTRCPY0000 SEC5A3406CC0006340617 YDFTMULTIPLY 0000 SAEC4AE843089FD5E308B341017 YDFTSTRSTRAPP0000 S3262160062 F19D1 S10830007102600634F5FAEC4E79814160064 F1A06 S1083000810260065AEC4308816341030543410AEC4AE84341017EF443266EC54AEC4ED980ACC0002EDD804CC0001E79810EC543406CC000134068D03024C42CC0004340617 YDFTSTRCTLOAD0000 S30C8DD3410AEC4AE84341017E94A326C30C8DD341030C8DD341017 YDFTSTRSTRCPY0000 SCC002C340617 YDFTCHRSTRAPP0000 SEC5A3406CC0006340617 YDFTMULTIPLY 0000 SAEC4AE843089FD5E308B341017 YDFTSTRSTRAPP0000 S3262160066 F1A18 S1083000910260067AEC4308816341030543410AEC4AE84341017EEB83266AEC4308816341030523410AEC4AE84341017EEA23266EC543406CC0100340617 YDFTMULTIPLY 0000 S3406EC52E3E1ED56CC0003EDD804EC56AEC4ED980ACC0001E79810EC563406CC000234068D03024454CC0004340617 YDFTSTRCTLOAD0000 S30C8DD3410AEC4AE84341017E894326C30C8DD341030C8DD341017 YDFTSTRSTRCPY0000 SCC002C340617 YDFTCHRSTRAPP0000 SEC5A3406CC0006340617 YDFTMULTIPLY 0000 SAEC4AE843089FD5E308B341017 YDFTSTRSTRAPP0000 S3262160068 F1AA4 S1083000A102600694F5FAEC4E7981416006A F1B5A S1083000B1026006B30C8DD34108D0302442C17 YDFTSTRSTRCPY0000 SEC5A3406CC0006340617 YDFTMULTIPLY 0000 SAEC4AE843089FD5E308B341017 YDFTSTRSTRAPP0000 S326216006C F1B6C S1083000C1026006DAEC4308816341030543410AEC4AE84341017EDBB3266EC543406CC007F10A3E1102C006EEC543406CC01003406EC62A3E13262ED54 F1BC5 SCC0002EDD804EC543406AEC4EC8816E3E1ED980ACC0001E79810EC980A3406CC000134068D03024C42CC0004340617 YDFTSTRCTLOAD0000 S30C8DD3410AEC4AE84341017E79A326C30C8DD341030C8DD341017 YDFTSTRSTRCPY0000 S8D05042C50435217 YDFTSTRSTRAPP0000 S3262CC0001AEC4E7981216006F F1BA1 S1083000D10260070AEC4308816341030543410AEC4AE84341017ED193266AEC4308816341030523410AEC4AE84341017ED033266EC543406CC0100340617 YDFTMULTIPLY 0000 S3406EC52E3E1ED56CC0003EDD804EC563406AEC4EC8816E3E1ED980ACC0001E79810EC980A3406CC000234068D03024C42CC0004340617 YDFTSTRCTLOAD0000 S30C8DD3410AEC4AE84341017E6ED326C30C8DD341030C8DD341017 YDFTSTRSTRCPY0000 S8D05042C50435217 YDFTSTRSTRAPP0000 S3262CC0001AEC4E79812160071 F1C43 S1083000E102600724F5FAEC4E79814160073 F1CF0 S1083000F10260074EC563406CC009F10A3E110260075AEC4308816341030543410AEC4AE84341017EC4C3266AEC4308816341030523410AEC4AE84341017EC363266EC543406CC0100340617 YDFTMULTIPLY 0000 S3406EC52E3E1ED56EC56AEC4ED980ACC0003EDD804EC563406CC000234068D03024C42CC0004340617 YDFTSTRCTLOAD0000 S30C8DD3410AEC4AE84341017E62E326CCC0001AEC4E79810160076 F1D10 S4F5FAEC4E79814 F1D8E F1D02 F1CFA F1CE8 F1C3B F1B99 F1B64 F1B52 F1A9C F1A10 F19FE F19C9 F1994 F195F F1929 F18F4 F18B7 SE6C8C75D1027007730C8C83410CC005B340617 YDFTCHRSTRCPY0000 S30C8DD341017 YDFTSTRSTRAPP0000 SCC005D340617 YDFTCHRSTRAPP0000 S326230C8DD341030C8C8341017 YDFTSTRSTRCPY0000 S32624F5FAEC4E79812 F1D9D F1842 S30D802341030C8DD341017 YDFTSTRSTRCPY0000 S3262 F178E F1786 F16A0 F157A F150C F14C8 F145A F1416 F1398 F1325 SAEC4E698144353C30001C300015D102700784F5FEDD804 F1DF3 S325C35C034403364AEC43098083410AEC43088EA3410AEC4341017F2F83266AEC4EC980834063098063410AEC43088AA3410AEC4341017F4A93268AEC43098023410AEC43088EA341017 YDFTSTRSTRCPY0000 SAEC43088AA341017 YDFTSTRSTRAPP0000 S3262325C35C034403364AEC4EC980C3406CC00BF1F025F10ACE12C015C5D10270079EC183406CC000E1F025F10ACE126015C5D1027007A30980434108D04034C445317 YDFTSTRSTRCPY0000 S326216007B F1E85 SAEC4EC183406CC000F1F025F10ACE126015C4F3406EC1A3406CC000C1F025F10ACE127015CA4E0E4E05D1027007C30980434108D040353545317 YDFTSTRSTRCPY0000 S326216007D F1EC6 S4F5FAEC4E79814 F1ED9 F1E98 S16007E F1E70 SAEC4EC980C3406CC007F1F025F10ACE12C015C5D1027007FEC183406CC000310A3E11026008030980434108D0504434D504417 YDFTSTRSTRCPY0000 S3262160081 F1F09 SAEC4EC183406CC000C10A3E11026008230980434108D0504434D505917 YDFTSTRSTRCPY0000 S3262160083 F1F2D SAEC4EC183406CC000E10A3E11026008430980434108D04034C445917 YDFTSTRSTRCPY0000 S3262160085 F1F51 SAEC4EC183406CC000F1F025F10ACE126015C4F3406EC1A3406CC00081F025F10ACE127015CA4E0E4E05D1027008630980434108D040353545917 YDFTSTRSTRCPY0000 S3262160087 F1F92 S4F5FAEC4E79814 F1FA5 F1F64 F1F41 F1F1D S160088 F1EFB SAEC4EC980C3406CC003F10A3E11026008930980434108D05045357493217 YDFTSTRSTRCPY0000 S326216008A F1FC0 SAEC4EC980C3406CC00201F025F10ACE12C015C4F3406EC980C3406CC00301F025F10ACE12F015CA4E0E4E05D1027008B3098023410CC004C340617 YDFTCHRSTRCPY0000 SAEC4309804341017 YDFTSTRSTRAPP0000 S3262AEC43098043410AEC4309802341017 YDFTSTRSTRCPY0000 S326216008C F2004 S4F5FAEC4E79814 F2033 F1FD4 F1FAF F1EE3 SAEC4E698145D1027008D3098083410AEC43088EA3410AEC4341017F0B63266AEC4EC980834063098063410AEC43088AA3410AEC4341017F2673268AEC43098023410AEC43088EA341017 YDFTSTRSTRCPY0000 SAEC43088AA341017 YDFTSTRSTRAPP0000 S3262 F2044 S325C35C034403364AEC4EC980C3406CC007F1F025F10ACE12C015C4F3406EC980C3406CC00C01F025F10ACE12F015CA4E0E4E05D1027008EEC183406CC000310A3E11026008F30980434108D0504434D505517 YDFTSTRSTRCPY0000 S3262160090 F20D8 SAEC4EC183406CC000C10A3E11026009130980434108D0504434D505317 YDFTSTRSTRCPY0000 S3262160092 F20FC S4F5FAEC4E79814 F2110 F20EC S160093 F20CA SAEC4EC980C3406CC003F10A3E11026009430980434108D05045357493317 YDFTSTRSTRCPY0000 S3262160095 F212B S4F5FAEC4E79814 F213F F211A SAEC4E698145D102700963098083410AEC43088EA3410AEC4341017EFAA3266AEC4EC980834063098063410AEC43088AA3410AEC4341017F15B3268AEC43098023410AEC43088EA341017 YDFTSTRSTRCPY0000 SAEC43088AA341017 YDFTSTRSTRAPP0000 S3262 F2150 S325C35C0 F110D S3440336432E8AECC0001E7D8144F5FEDD80E4F5FEDD80630C8EA34108D010017 YDFTSTRSTRCPY0000 S326230C816341030D80C3410AEC4341017E7993266ECD80CEDC8ECECD80C3406CC00101F025F10ACE126015C5D10270097CC0001EDD80E F21F5 SECD80C3406CC00111F025F10ACE126015C5D10270098CC0002EDD80E F2211 SECD80E34064F5F10A3E1102C009930C816341030D80C3410AEC4341017E73A3266 F2225 SECD80C3406CC00041F025D350627064456313F26FAED5AECD80C3406CC000FA4E0E4E0ED58EC5A3406CC00021F025D350627064456313F26FAED56EC5A3406CC0003A4E0E4E0ED54EC583406CC00021F025D350627064456313F26FAED52EC583406CC0003A4E0E4E0ED50EC5A3406CC0001E3E1AEC43089FD35E68B4F3406 SCC00303406EC62A3E13262EDC8EEECC8EE3406CC0051340617 YDFTMULTIPLY 0000 SAEC43089FE16308B3410EC583406CC0004340617 YDFTMULTIPLY 0000 S3406CC0001E3E13406CC0004340630D8043410AEC4341017 YSTRINGCOPY 0000 S326ACC000430D804E68B4F3406CC002010A3E11026009A4F5F3406CC00031F02350630D804308B1F20E784 F2319 SECD80C3406CC001C10A3E11026009B30D80434108D0605414E44434317 YDFTSTRSTRCPY0000 S3262 F233C SECD80C3406CC008D10A3E11026009C30D80434108D040342535217 YDFTSTRSTRCPY0000 S3262 F235D SECD80C3406CC008710A3E11026009D30D80434108D040346434217 YDFTSTRSTRCPY0000 S3262 F237C SECD80C3406CC008F10A3E11026009E30D80434108D040346434217 YDFTSTRSTRCPY0000 S3262 F239B SECD80C3406CC00C710A3E11026009F30D80434108D040346434217 YDFTSTRSTRCPY0000 S3262 F23BA SECD80C3406CC00CD10A3E1102600A030D80434108D040346434217 YDFTSTRSTRCPY0000 S3262 F23D9 SECD80C3406CC00CF10A3E1102600A130D80434108D040346434217 YDFTSTRSTRCPY0000 S3262 F23F8 SEC5A3406CC00041F025F10ACE126015C4F3406EC583406CC000E1F025F10ACE127015CA4E0E4E05D102700A230D804341030D804341017 YDFTSTRSTRCPY0000 SCC0041340617 YDFTCHRSTRAPP0000 S3262 F2434 SEC5A3406CC00051F025F10ACE126015C4F3406EC583406CC000E1F025F10ACE127015CA4E0E4E05D102700A330D804341030D804341017 YDFTSTRSTRCPY0000 SCC0042340617 YDFTCHRSTRAPP0000 S3262 F2477 SECD80C3406CC005E1F025F10ACE126015C4F3406ECD80C3406CC004E1F025F10ACE126015CAAE0EAE05D102700A430D80434108D040346434217 YDFTSTRSTRCPY0000 S3262 F24BC SCC000130D804E68B4F3406CC004610A3E1102600A54F5FE7D814 F24E1 SCC000130D804E68B4F3406CC004610A3E1102700A6ECD80E34064F5F10A3E1102600A7344017F8EE32621600A8 F2509 SECD80E3406CC000110A3E1102600A9344017F92D32621600AA F2522 S344017FB653262 F252C F2513 F24FB SE6D8144353C30001C300015D102700AB30D80434108D040346434217 YDFTSTRSTRCPY0000 S3262ECC8EC3406CC000134068D03024C42CC0004340617 YDFTSTRCTLOAD0000 S30D8023410AEC4341017DE39326CECC8ECEDD80C4F5FEDD80ACC0001EDD8064F5FEDD80E1600AC F2543 SECD8063406CC0001E3E1EDD806ECD80E34064F5F10A3E1102C00ADECD8063406CC0001E3E1EDD806 F25AC F2591 S325C35C01600AE34403364327EEC423406AEC4AE84EC89A9193406EC62A3E13262ED42EC423406CC0007A4E0E4E0ED5AEC423406CC00031F025D350627064456313F26FAED42EC423406EC423089AA69E68B1D3406EC5A5849AEC4AE843089FE06EC8BAAE0EAE01F023506AEC4AE843089AA69308B1F20E784325C35C03440 S3364327EEC423406CC0007A4E0E4E0ED5AEC423406CC00031F025D350627064456313F26FAED42EC423406EC42AEC4AE843089AA69E68B1D3406CC00FF3406EC5A5849AEC4AE843089FE06EC8B3406EC62A3E13262A4E0E4E01F023506AEC4AE843089AA69308B1F20E784325C35C034403364327EEC423406AEC4AE843410 S17DC8A32643506E745325C35C034403364AEC4EC89EFC834064F5F10A3E1102E00AFEC89EFC858493089EFCAEC8BAEC4ED18EC89EFC8830001ED89EFC81600B0 F26D9 SCC0001AEC4E714 F26F7 S325C35C034403364AEC4EC89EFC83406CC07FF10A3E1102600B1CC0001AEC4AE84E789A920CC0001ED89A91E1600B2 F2718 SAEC4EC89EFC8C30001ED89EFC8EC89EFC858493406EC421F0235063089EFCA308B1F20ED84 F272D S325C35C034403364EC42AEC4ED18325C35C034403364AEC4EC1A3406341017FE4D3264325C35C0344033644F5FE743AEC4EC103406CC00171F025F10ACE126015C4F3406EC103406CC008D1F025F10ACE126015CAAE0EAE04F3406EC103406CC009D1F025F10ACE126015CAAE0EAE04F3406EC103406CC00AD1F025F10ACE1 S26015CAAE0EAE04F3406EC103406CC00BD1F025F10ACE126015CAAE0EAE05D102700B3CC0001E743EC88EE3406AEC4AE84EC89A9151F025F10ACE12C015C4F3406AEC4EC88EE3406AEC4AE84EC89A9191F025F10ACE12F015CAAE0EAE04F3406AEC4E6164F34064F5F1F025F10ACE126015CAAE0EAE05D102700B44F5FE743 F284C F27F4 S325C35C0344033644F5FE743AEC4EC103406CC00161F025F10ACE126015C4F3406EC103406CC00201F025F10ACE126015CAAE0EAE04F3406EC103406CC006E1F025F10ACE126015CAAE0EAE04F3406EC103406CC007E1F025F10ACE126015CAAE0EAE05D102700B5CC0001E743EC88EE3406AEC4AE84EC89A9151F025F10AC SE12C015C4F3406AEC4EC88EE3406AEC4AE84EC89A9191F025F10ACE12F015CAAE0EAE04F3406AEC4E6164F34064F5F1F025F10ACE126015CAAE0EAE05D102700B64F5FE743341017FDAB3262 F2910 F28B8 S325C35C0344033644F5FE743AEC4EC103406CC00221F025F10ACE12E015C4F3406EC103406CC002F1F025F10ACE12D015CA4E0E4E05D102700B7CC0001E743EC88EE3406AEC4AE84EC89A9151F025F10ACE12C015C4F3406AEC4EC88EE3406AEC4AE84EC89A9191F025F10ACE12F015CAAE0EAE04F3406AEC4E6164F34064F S5F1F025F10ACE126015CAAE0EAE05D102700B84F5FE743 F29AD F2955 S325C35C0344033644F5FE743AEC4EC103406CC00351F025F10ACE126015C4F3406EC103406CC00371F025F10ACE126015CAAE0EAE04F3406EC88EE3406CC0080A4E0E4E03406CC00801F025F10ACE126015CA4E0E4E05D102700B9CC0001E743 F2A0C S325C35C034403364AEC4EC103406CC00391F025F10ACE126015CE743325C35C034403364AEC4EC103406CC003B1F025F10ACE126015CE743325C35C0344033644F5FE745AEC4EC103406CC001E1F025F10ACE126015C4F3406EC423406CC000FA4E0E4E03406CC00051F025F10ACE126015C4F3406EC423406CC00F0A4E0E4 SE03406CC00501F025F10ACE126015CAAE0EAE0A4E0E4E05D102700BACC0001E745 F2AAC S325C35C0344033644F5FE745AEC4EC103406CC001F1F025F10ACE126015C4F3406EC423406CC000FA4E0E4E03406CC00051F025F10ACE126015CA4E0E4E05D102700BBCC0001E745 F2AF4 S325C35C03440336432E8AA4F5FED5ACC07FF3406EC5A10A3E4102E00BCEC5A58493406CCFFFF1F023506AEC43089EFCA308B1F20ED84EC5AC30001ED5A20D5 F2B16 S3262CC00014353C30001AEC4ED89EFC8AEC4AE84EC89A913AEC4ED1A4F5FE714AEC4AE843089A93634108D010017 YDFTSTRSTRCMP0000 S102700BD30C8A634108D010017 YDFTSTRSTRCPY0000 S326230C8B634108D010017 YDFTSTRSTRCPY0000 S3262AEC4AE843089A94B3410AEC4AE843089A93634108D040353594D4F5F340617 YDFTRESET 0000 S327EAEC4AE843089A94B3410AEC4AE84341017 YEOF 0000 S326435064353C30001C300015D102700BEAEC4AE843089A94B341030C8B83410CC003F340617 YDFTREADSTRG 0000 S17 YDFTREADLN 0000 S30C8B834108D010017 YDFTSTRSTRCMP0000 S102700BF30C8B8341030C8B634103058341030C8A63410AEC4AE84341017D539326A30C8B634108D02014A17 YDFTSTRSTRCMP0000 S102600C0EC583406AEC4341017FAD33264 F2C24 SEC583406AEC4AE84341017D3C33264 F2BF6 S16FF64 F2BCD SAEC4AE843089A94B3410AEC4AE84341017 YCLOSE 0000 S3264 F2B6C S325C35C034403364AEC4EC18ED1AEC1A3406AEC4AE84EC89A9193406EC62A3E132623406EC89A91710A3E1102C00C1CC0001AEC4E714 F2C87 S325C35C0 F25C0 S3440336432E9EFCCAEC430980234108D13124C4F4144494E472050524F4752414D2E2E2E4F5F340617 YDFTWRTSTRG 0000 S3262344017FE393262E6544353C30001C300015D102700C2AEC4E689A9205D102700C3325C35C0 F2CE0 S327EEC5A3406344017F9B8326435064353C30001C300015D102700C4EC5A3406305734103056341030553410305234103050341030C8EE341030C8EC341030C8EA341030C8DA341030C8CA3410AEC4341017F46A32E818E6575D102700C5EC5A3406ECC8EAE3E1ED58327E344017FA25326235065D102700C6ECC8EE340634 S4017F99B32641600C7 F2D5D S327E344017FAE1326235065D102700C8ECC8EE3406344017F9D032641600C9 F2D7C S327E344017FB8D326235065D102700CAECC8EE3406344017F95D32641600CB F2D9B S327E344017FC64326235065D102700CC344017F90532621600CD F2DBA S327E344017FBEA326235065D102700CE344017F8EB32621600CF F2DD4 S327EECC8EE3406344017FC63326435065D102700D0344017F8CC32621600D1 F2DF3 S327EECC8EE3406344017FCAC326435065D102700D2344017F8AD32621600D3 F2E12 S327E344017FC0E326235065D102700D4344017F8933262 F2E2C F2E1C F2DFD F2DDE F2DC4 F2DAA F2D8B F2D6C S344017F92C3262E6565D102700D5ECC8EE3406AEC4341017D1B43264 F2E41 SE6555D102700D6ECC8EE3406AEC4341017D1FD3264 F2E56 S344017FDF332621600D7 F2D42 S344017F8513262344017FDE23262 F2E6E S1600D8 F2D00 S344017F8403262344017FDD13262 F2E7F S16FE36 F2CD5 SAEC430980234108D07064C4F414445444F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 S325C35C03440336432E8E9AEC4341017DB4232624F5FED5ACC0FFF3406EC5A10A3E4102E00D9EC5A34064F5F1F023506AEC43089AA69308B1F20E784EC5AC30001ED5A20D8 F2ED0 S32624F5FED5ACC1FFF3406EC5A10A3E4102E00DAEC5A34064F5F1F023506AEC43089DA69308B1F20E784EC5A34064F5F1F023506AEC43089BA69308B1F20E784EC5AC30001ED5A20C2 F2F03 S32624F5FAEC4E789A9203089FB8734103055341017 YDFTREADCHAR 0000 S3054341017 YDFTREADCHAR 0000 S3053341017 YDFTREADCHAR 0000 S3052341017 YDFTREADCHAR 0000 S3051341017 YDFTREADCHAR 0000 S3262E6544F3406CC0100340617 YDFTMULTIPLY 0000 S3406E6534FE3E1AEC4ED89A917E6524F3406CC0100340617 YDFTMULTIPLY 0000 S3406E6514FE3E1AEC4ED89A919EC89A9193406EC89A917E3E13406CC00013406EC62A3E13262ED89A915CC7FBC4353C30001ED89FCA54F5FED89FCA7EC89A9173406CC0009E3E1ED5630563410305A3410AEC4341017D98432663056341030583410AEC4341017D9733266EC5A3406CC0100340617 YDFTMULTIPLY 0000 S3406EC58E3E1AEC4ED89A913EC89A9193406CC00063406EC62A3E13262ED89FCA730C8EB3410AEC4EC89A917340617 YDFTINTTOREAL0000 S17 YDFTREALSTORE0000 S30C8EB341017 YDFTREALLOAD 0000 S4F5F340617 YDFTINTTOREAL0000 S17 YDFTREALCMP 0000 S102F00DB30C8EB341030C8EB341017 YDFTREALLOAD 0000 S8D0605655360000017 YDFTREALLOAD 0000 S17 YDFTREALADD 0000 S17 YDFTREALSTORE0000 F3055 S30C8E53410CC0FFF340617 YDFTINTTOREAL0000 SCC0001340617 YDFTINTTOREAL0000 S17 YDFTREALADD 0000 SCC0008340617 YDFTINTTOREAL0000 S17 YDFTREALMUL 0000 S17 YDFTREALSTORE0000 S30C8E5341017 YDFTREALLOAD 0000 S4F5F340617 YDFTINTTOREAL0000 S17 YDFTREALCMP 0000 S102F00DC30C8E5341030C8E5341017 YDFTREALLOAD 0000 S8D0605655360000017 YDFTREALLOAD 0000 S17 YDFTREALADD 0000 S17 YDFTREALSTORE0000 F30AF S30C8EB341017 YDFTREALLOAD 0000 S30C8E5341017 YDFTREALLOAD 0000 S17 YDFTREALCMP 0000 S102C00DDCC0001AEC4E789A920CC0004ED89A91E F30E4 S325C35C034403364AEC4EC89A90934064F5F10A3E1102700DECCFF223406EC89A909E7F1 F310D SAEC43098023410AEC4341017 YPAGE 0000 S3264AEC430980234108D171620202020202020202020444953545241432056322E314F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 SAEC4309802341017 YDFTWRITELN 0000 SAEC430980234108D1E1D20202028432920434F50595249474854204A554C5920313938382042594F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 SAEC4309802341017 YDFTWRITELN 0000 SAEC430980234108D1716202020202020202020204C414D20536F6674576172654F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 SAEC4309802341017 YDFTWRITELN 0000 SAEC4309802341017 YDFTWRITELN 0000 S325C35C01600DF34403364304234108D03024E4F5F17 YDFTSTRSTRCMP0000 S26015C4F3406304234108D03026E6F5F17 YDFTSTRSTRCMP0000 S26015CAAE0EAE04F3406304234108D02014E5F17 YDFTSTRSTRCMP0000 S26015CAAE0EAE04F3406304234108D02016E5F17 YDFTSTRSTRCMP0000 S26015CAAE0EAE05D102700E04F5FE7D8531600E1 F3238 S304234108D04035945535F17 YDFTSTRSTRCMP0000 S26015C4F3406304234108D04037965735F17 YDFTSTRSTRCMP0000 S26015CAAE0EAE04F3406304234108D0201595F17 YDFTSTRSTRCMP0000 S26015CAAE0EAE04F3406304234108D0201795F17 YDFTSTRSTRCMP0000 S26015CAAE0EAE05D102700E2CC0001E7D8531600E3 F329A SCC0001AEC4AE84E789A920CC0002ED89A91E F32A3 F3240 S325C35C0 F31DC S3440336432E9FE9130C9FEDE34108D0D0C44535452414332312E4445468D01004F5F340617 YDFTRESET 0000 S327E30C9FEDE3410AEC4341017 YEOF 0000 S326435064353C30001C300015D102700E430C9FEDE3410AEC43089A8F53410CC0002340617 YDFTREADINT 0000 S17 YDFTREADLN 0000 S30C9FEDE341030C9FE8D3410CC0050340617 YDFTREADSTRG 0000 S17 YDFTREADLN 0000 SAEC43089A910341030C9FE8D3410CC0051340617 YDFTSTRCTLOAD0000 S344017FE9132E85530C9FEDE3410AEC43089A90B3410CC0002340617 YDFTREADINT 0000 S17 YDFTREADLN 0000 S30C9FEDE341030C9FE8D3410CC0050340617 YDFTREADSTRG 0000 S17 YDFTREADLN 0000 SAEC43089A90F341030C9FE8D3410CC0051340617 YDFTSTRCTLOAD0000 S344017FE4332E85530C9FEDE341030C9FE8D3410CC0050340617 YDFTREADSTRG 0000 S17 YDFTREADLN 0000 SAEC43089A90E341030C9FE8D3410CC0051340617 YDFTSTRCTLOAD0000 S344017FE0E32E85530C9FEDE341030C9FE8D3410CC0050340617 YDFTREADSTRG 0000 S17 YDFTREADLN 0000 SAEC43089A90D341030C9FE8D3410CC0051340617 YDFTSTRCTLOAD0000 S344017FDD932E85530C9FEDE3410AEC43089A9093410CC0002340617 YDFTREADINT 0000 S17 YDFTREADLN 0000 S30C9FEDE341030C9FE8D3410CC0050340617 YDFTREADSTRG 0000 S17 YDFTREADLN 0000 S30C9FE8D3410CC00013406CC00083406AEC43089A9003410AEC4341017 YSTRINGCOPY 0000 S326A327E30C9FEDE3410AEC4341017 YEOF 0000 S326435065D102700E5CC0001AEC4E789A920CC0002ED89A91E F346F S30C9FEDE341030C9FE8D3410CC0050340617 YDFTREADSTRG 0000 S17 YDFTREADLN 0000 S30C9FE8D3410CC00013406CC00083406AEC43089A8F73410AEC4341017 YSTRINGCOPY 0000 S326A F3300 S30C9FEDE3410AEC4341017 YCLOSE 0000 S3264325C35C01600E634403364CC0001AEC4E788E6304234108D010017 YDFTSTRSTRCMP0000 S102600E7325C35C0 F34E7 S304234108D0201595F17 YDFTSTRSTRCMP0000 S26015C4F3406304234108D0201795F17 YDFTSTRSTRCMP0000 S26015CAAE0EAE04F3406304234108D04035945535F17 YDFTSTRSTRCMP0000 S26015CAAE0EAE04F3406304234108D04037965735F17 YDFTSTRSTRCMP0000 S26015CAAE0EAE05D102700E8CC0001E7D8531600E9 F3545 S304234108D02014E5F17 YDFTSTRSTRCMP0000 S26015C4F3406304234108D02016E5F17 YDFTSTRSTRCMP0000 S26015CAAE0EAE04F3406304234108D03024E4F5F17 YDFTSTRSTRCMP0000 S26015CAAE0EAE04F3406304234108D03026E6F5F17 YDFTSTRSTRCMP0000 S26015CAAE0EAE05D102700EA4F5FE7D853 F35A6 F354E S325C35C0 F34CD S3440336432E8DCAEC43098023410AEC4341017 YPAGE 0000 S32644F5F3406CC0006340617 YDFTMULTIPLY 0000 S30C8DA308B34108D03024E4F17 YDFTSTRSTRCPY0000 S3262CC00013406CC0006340617 YDFTMULTIPLY 0000 S30C8DA308B34108D040359455317 YDFTSTRSTRCPY0000 S3262AEC430980234108D1C1B202020202044454641554C542053454C454354494F4E204D4F44454F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 S4F5FE7C8E6CC00203406AEC4341017 YCURSOR 0000 S3264AEC430980234108D0E0D4C494E45204E554D424552533A4F5F340617 YDFTWRTSTRG 0000 SAEC4E689A9104F3406CC0006340617 YDFTMULTIPLY 0000 S30C8DA308B34104F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 SAEC430980234108D181720202020202020202020202020202020202020202020204F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 SCC00203406CC0020E3E13406AEC4341017 YCURSOR 0000 S3264AEC430980234108D1B1A444F20594F552057414E54204C494E45204E554D424552533F204F5F340617 YDFTWRTSTRG 0000 S3262AEC4309802341030C8E73410CC0014340617 YDFTREADSTRG 0000 S17 YDFTREADLN 0000 SAEC43089A910341030C8E73410CC0051340617 YDFTSTRCTLOAD0000 S344017FDAB32E855E6C8E65D1027FF04CC00203406AEC4341017 YCURSOR 0000 S3264AEC430980234108D0E0D4C494E45204E554D424552533A4F5F340617 YDFTWRTSTRG 0000 SAEC4E689A9104F3406CC0006340617 YDFTMULTIPLY 0000 S30C8DA308B34104F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 S4F5FEDC8D8AEC4E689A9105D102700EB30980234108D1F1E2020202020202020202020202020202020202020202020202020202020204F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 SCC00403406AEC4341017 YCURSOR 0000 S3264AEC430980234108D17165354415254494E47204C494E45204E554D4245523F204F5F340617 YDFTWRTSTRG 0000 S3262AEC4309802341030C8E73410CC0014340617 YDFTREADSTRG 0000 S17 YDFTREADLN 0000 S327E30C8E73410AEC4341017 YENCODE 0000 S32643506AEC4ED89A90BCC00403406341017 YCURSOR 0000 S3264AEC430980234108D16155354415254494E47204C494E45204E554D4245523A4F5F340617 YDFTWRTSTRG 0000 SAEC4EC89A90B3406CC0006340617 YDFTWRTINT 0000 S17 YDFTWRITELN 0000 SCC0020EDC8D8 F378B S4F5FE7C8E6CC00403406ECC8D8E3E13406AEC4341017 YCURSOR 0000 S3264AEC430980234108D1110415343494920494E2046434227533A204F5F340617 YDFTWRTSTRG 0000 SAEC4E689A90F4F3406CC0006340617 YDFTMULTIPLY 0000 S30C8DA308B34104F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 SAEC430980234108D181720202020202020202020202020202020202020202020204F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 SCC00403406CC0020E3E13406ECC8D8E3E13406AEC4341017 YCURSOR 0000 S3264AEC430980234108D1D1C444F20594F552057414E5420415343494920494E2046434227533F204F5F340617 YDFTWRTSTRG 0000 S3262AEC4309802341030C8E73410CC0014340617 YDFTREADSTRG 0000 S17 YDFTREADLN 0000 SAEC43089A90F341030C8E73410CC0051340617 YDFTSTRCTLOAD0000 S344017FB5D32E855E6C8E65D1027FEF1CC00403406ECC8D8E3E13406AEC4341017 YCURSOR 0000 S3264AEC430980234108D1110415343494920494E2046434227533A204F5F340617 YDFTWRTSTRG 0000 SAEC4E689A90F4F3406CC0006340617 YDFTMULTIPLY 0000 S30C8DA308B34104F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 S4F5FE7C8E6CC00603406ECC8D8E3E13406AEC4341017 YCURSOR 0000 S3264AEC430980234108D1110415343494920494E2046444227533A204F5F340617 YDFTWRTSTRG 0000 SAEC4E689A90E4F3406CC0006340617 YDFTMULTIPLY 0000 S30C8DA308B34104F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 SAEC430980234108D181720202020202020202020202020202020202020202020204F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 SCC00603406CC0020E3E13406ECC8D8E3E13406AEC4341017 YCURSOR 0000 S3264AEC430980234108D1D1C444F20594F552057414E5420415343494920494E2046444227533F204F5F340617 YDFTWRTSTRG 0000 S3262AEC4309802341030C8E73410CC0014340617 YDFTREADSTRG 0000 S17 YDFTREADLN 0000 SAEC43089A90E341030C8E73410CC0051340617 YDFTSTRCTLOAD0000 S344017F9F632E855E6C8E65D1027FEF1CC00603406ECC8D8E3E13406AEC4341017 YCURSOR 0000 S3264AEC430980234108D1110415343494920494E2046444227533A204F5F340617 YDFTWRTSTRG 0000 SAEC4E689A90E4F3406CC0006340617 YDFTMULTIPLY 0000 S30C8DA308B34104F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 S4F5FE7C8E6CC00803406ECC8D8E3E13406AEC4341017 YCURSOR 0000 S3264AEC430980234108D0E0D46434320535452494E47533A204F5F340617 YDFTWRTSTRG 0000 SAEC4E689A90D4F3406CC0006340617 YDFTMULTIPLY 0000 S30C8DA308B34104F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 SAEC430980234108D181720202020202020202020202020202020202020202020204F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 SCC00803406CC0020E3E13406ECC8D8E3E13406AEC4341017 YCURSOR 0000 S3264AEC430980234108D1A19444F20594F552057414E542046434320535452494E47533F204F5F340617 YDFTWRTSTRG 0000 S3262AEC4309802341030C8E73410CC0014340617 YDFTREADSTRG 0000 S17 YDFTREADLN 0000 SAEC43089A90D341030C8E73410CC0051340617 YDFTSTRCTLOAD0000 S344017F89532E855E6C8E65D1027FEF7CC00803406ECC8D8E3E13406AEC4341017 YCURSOR 0000 S3264AEC430980234108D0E0D46434320535452494E47533A204F5F340617 YDFTWRTSTRG 0000 SAEC4E689A90D4F3406CC0006340617 YDFTMULTIPLY 0000 S30C8DA308B34104F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 SCC00A03406ECC8D8E3E13406AEC4341017 YCURSOR 0000 S3264AEC430980234108D212048454144455220464F522047454E455241544544204144522E204C4142454C534F5F340617 YDFTWRTSTRG 0000 S3262AEC43098023410AEC43089A90034104F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 SAEC430980234108D1514594F55522048454144455220284D41582038293A4F5F340617 YDFTWRTSTRG 0000 S3262AEC4309802341030C8E73410CC0014340617 YDFTREADSTRG 0000 S17 YDFTREADLN 0000 S30C8E73410CC00013406CC00083406AEC43089A9003410AEC4341017 YSTRINGCOPY 0000 S326ACC00A03406ECC8D8E3E13406AEC4341017 YCURSOR 0000 S3264AEC430980234108D212048454144455220464F522047454E455241544544204144522E204C4142454C534F5F340617 YDFTWRTSTRG 0000 S3262AEC43098023410AEC43089A90034104F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 SCC00E03406ECC8D8E3E13406AEC4341017 YCURSOR 0000 S3264AEC430980234108D212048454144455220464F522047454E4552415445442044415441204C4142454C534F5F340617 YDFTWRTSTRG 0000 S3262AEC43098023410AEC43089A8F734104F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 SAEC430980234108D1514594F55522048454144455220284D41582038293A4F5F340617 YDFTWRTSTRG 0000 S3262AEC4309802341030C8E73410CC0014340617 YDFTREADSTRG 0000 S17 YDFTREADLN 0000 S30C8E73410CC00013406CC00083406AEC43089A8F73410AEC4341017 YSTRINGCOPY 0000 S326ACC00E03406ECC8D8E3E13406AEC4341017 YCURSOR 0000 S3264AEC430980234108D212048454144455220464F522047454E4552415445442044415441204C4142454C534F5F340617 YDFTWRTSTRG 0000 S3262AEC43098023410AEC43089A8F734104F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 SAEC4341017F2193262325C35C03440336432E8AE30D80634108D010017 YDFTSTRSTRCPY0000 S326230D80834108D010017 YDFTSTRSTRCPY0000 S3262CC0001E7C8AAAEC430980234108D1312494E5055542046494C45204E414D45203A204F5F340617 YDFTWRTSTRG 0000 S3262AEC4309802341030D8083410CC0050340617 YDFTREADSTRG 0000 S17 YDFTREADLN 0000 SCC01003406AEC4341017 YCURSOR 0000 S3264AEC430980234108D1F1E2020202020202020202020202020202020202020202020202020202020204F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 SCC01003406AEC4341017 YCURSOR 0000 S326430D80834108D010017 YDFTSTRSTRCMP0000 S102600ECAEC4341017F60332624F5FE7C8AA1600ED F3FA5 SAEC43089FB87341030D80834108D040342494E4F5F340617 YDFTRESET 0000 S327EAEC43089FB873410AEC4341017 YFILEERROR 0000 S3264CC00034353C3000110A3E1102600EEAEC430980234108D0F0E46494C45204E4F5420464F554E444F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 S1600EF F3FF2 S327EAEC43089FB873410AEC4341017 YFILEERROR 0000 S3264CC00024353C3000110A3E1102600F0AEC430980234108D0A09492F4F204552524F524F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 S1600F1 F4039 S327EAEC43089FB873410AEC4341017 YFILEERROR 0000 S32644F5F10A3E1102F00F2AEC43098023410327EAEC43089FB873410AEC4341017 YFILEERROR 0000 S3264CC0003340617 YDFTWRTINT 0000 S8D0706204552524F524F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 F4075 F4059 F4017 S327EAEC43089FB873410AEC4341017 YFILEERROR 0000 S32644F5F10A3E1102700F34F5FE7C8AA F40C6 F3FB6 SCC00E03406AEC4341017 YCURSOR 0000 S3264AEC430980234108D1F1E2020202020202020202020202020202020202020202020202020202020204F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 SCC00E03406AEC4341017 YCURSOR 0000 S3264E6C8AA5D1027FDE5AEC430980234108D0E0D534F555243452046494C453A204F5F340617 YDFTWRTSTRG 0000 S30D80834104F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 SAEC430980234108D13124F55545055542046494C45204E414D453A204F5F340617 YDFTWRTSTRG 0000 S3262AEC4309802341030D8063410CC0050340617 YDFTREADSTRG 0000 S17 YDFTREADLN 0000 S30D80634108D010017 YDFTSTRSTRCMP0000 S102600F430D80634108D04033A2D3317 YDFTSTRSTRCPY0000 S3262 F4199 SCC01203406AEC4341017 YCURSOR 0000 S3264AEC430980234108D1F1E2020202020202020202020202020202020202020202020202020202020204F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 SCC01203406AEC4341017 YCURSOR 0000 S3264AEC43089FA69341030D80634108D040341534D4F5F340617 YDFTREWRITE 0000 S327EAEC43089FA693410AEC4341017 YFILEERROR 0000 S3264CC00054353C3000110A3E1102600F5AEC430980234108D0A094449534B2046554C4C4F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 S1600F6 F4233 S327EAEC43089FB873410AEC4341017 YFILEERROR 0000 S3264CC00024353C3000110A3E1102600F7AEC430980234108D0A09492F4F204552524F524F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 S1600F8 F4275 S327EAEC43089FA693410AEC4341017 YFILEERROR 0000 S32644F5F10A3E1102F00F9AEC43098023410327EAEC43089FA693410AEC4341017 YFILEERROR 0000 S3264CC0003340617 YDFTWRTINT 0000 S8D0706204552524F524F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 F42B1 F4295 F4253 SCC01003406AEC4341017 YCURSOR 0000 S3264AEC430980234108D1F1E2020202020202020202020202020202020202020202020202020202020204F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 SCC01003406AEC4341017 YCURSOR 0000 S3264327EAEC43089FA693410AEC4341017 YFILEERROR 0000 S32644F5F10A3E11026FDFEAEC430980234108D0E0D4F55545055542046494C453A204F5F340617 YDFTWRTSTRG 0000 S326230D80634108D04033A2D3317 YDFTSTRSTRCMP0000 S102600FAAEC430980234108D070653435245454E4F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 S1600FB F4382 SAEC4309802341030D80634104F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 F439F SAEC430980234108D1A19484F57204D414E59204C494E4553205045522046494C453F204F5F340617 YDFTWRTSTRG 0000 S3262AEC4309802341030C8AB3410CC0050340617 YDFTREADSTRG 0000 S17 YDFTREADLN 0000 S30C8AB34108D010017 YDFTSTRSTRCMP0000 S102600FCAEC4EC89A8F53406CC000A340630C8AB3410AEC4341017 YDECODE 0000 S3268 F4407 S327E30C8AB3410AEC4341017 YENCODE 0000 S32643506EDD802CC01203406AEC4341017 YCURSOR 0000 S3264AEC430980234108D1A194E554D424552204F46204C494E4553205045522046494C453A4F5F340617 YDFTWRTSTRG 0000 SECD8023406CC0006340617 YDFTWRTINT 0000 S17 YDFTWRITELN 0000 SCC0001E7C8AAAEC430980234108D131253594D424F4C2046494C45204E414D453A204F5F340617 YDFTWRTSTRG 0000 S3262AEC4309802341030D8043410CC0050340617 YDFTREADSTRG 0000 S17 YDFTREADLN 0000 SCC01603406AEC4341017 YCURSOR 0000 S3264AEC430980234108D1F1E2020202020202020202020202020202020202020202020202020202020204F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 SCC01603406AEC4341017 YCURSOR 0000 S326430D80434108D010017 YDFTSTRSTRCMP0000 S102700FDAEC43089A94B341030D80434108D040353594D4F5F340617 YDFTRESET 0000 S327EAEC43089A94B3410AEC4341017 YFILEERROR 0000 S3264CC00034353C3000110A3E1102600FEAEC430980234108D0F0E46494C45204E4F5420464F554E444F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 S1600FF F455A S327EAEC43089A94B3410AEC4341017 YFILEERROR 0000 S3264CC00024353C3000110A3E110260100AEC430980234108D0A09492F4F204552524F524F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 S160101 F45A1 S327EAEC43089A94B3410AEC4341017 YFILEERROR 0000 S32644F5F10A3E1102F0102AEC43098023410327EAEC43089A94B3410AEC4341017 YFILEERROR 0000 S3264CC0003340617 YDFTWRTINT 0000 S8D0706204552524F524F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 F45DD F45C1 F457F S327EAEC43089A94B3410AEC4341017 YFILEERROR 0000 S32644F5F10A3E1102701034F5FE7C8AA F462E F451E SCC01403406AEC4341017 YCURSOR 0000 S3264AEC430980234108D1F1E2020202020202020202020202020202020202020202020202020202020204F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 SCC01403406AEC4341017 YCURSOR 0000 S3264E6C8AA5D1027FDF6AEC43089A94B3410AEC4341017 YCLOSE 0000 S3264AEC430980234108D0E0D53594D424F4C2046494C453A204F5F340617 YDFTWRTSTRG 0000 S326230D80434108D010017 YDFTSTRSTRCMP0000 S10260104AEC430980234108D05044E4F4E454F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 S160105 F46C9 SAEC4309802341030D80434104F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 F46E4 S325C35C034403364AEC4309802341017 YDFTWRITELN 0000 SAEC4EC89A91E108300011026010630980234108D0F0E535441434B204F564552464C4F574F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 S160107 F471A S1083000210260108AEC430980234108D23224552524F5220494E2044454641554C542046494C452044535452414332312E4445464F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 S160109 F4745 S108300031026010AAEC430980234108D161553594D424F4C205441424C45204F564552464C4F574F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 S16010B F4786 S108300041026010CAEC430980234108D0C0B46494C4520544F204249474F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 S16010D F47BA S108300051026010EAEC430980234108D0A094449534B2046554C4C4F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 S16010F F47E4 S1083000610260110AEC430980234108D0A09492F4F204552524F524F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 S160111 F480C S1083000710260112AEC430980234108D13124449534B2052455155455354204552524F524F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 S160113 F4834 SAEC43098023410AEC4EC89A91E3406CC0006340617 YDFTWRTINT 0000 S17 YDFTWRITELN 0000 F485D F482C F4804 F47DC F47B2 F477E F473D S325C35C034403364CC05DCAEC4ED89A8F54F5FE789A9104F5FE789A90FCC0001E789A90ECC0001E789A90DCC000AED89A90B4F5FED89A9093089A90034108D03024C4217 YDFTSTRSTRCPY0000 S3262AEC43089A8F734108D0302445417 YDFTSTRSTRCPY0000 S3262325C35C03440336432E9FEE030C9FEDE34108D0D0C44535452414332312E544D508D01004F5F340617 YDFTREWRITE 0000 S4F5FEDC9FEDCCC0FFF3406ECC9FEDC10A3E4102E011430C9FEDE3410ECC9FEDCAEC43089AA69E68B1D4F3406CC0001340617 YDFTWRTCHAR 0000 S3262ECC9FEDCC30001EDC9FEDC20C8 F4912 S32624F5FEDC9FEDCCC1FFF3406ECC9FEDC10A3E4102E011530C9FEDE3410ECC9FEDCAEC43089DA69E68B1D4F3406CC0001340617 YDFTWRTCHAR 0000 S3262ECC9FEDCC30001EDC9FEDC20C8 F4957 S32624F5FEDC9FEDCCC1FFF3406ECC9FEDC10A3E4102E011630C9FEDE3410ECC9FEDCAEC43089BA69E68B1D4F3406CC0001340617 YDFTWRTCHAR 0000 S3262ECC9FEDCC30001EDC9FEDC20C8 F499C S326230C9FEDE3410AEC43089FCBE34104F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 S30C9FEDE3410AEC43089FCA934104F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 S30C9FEDE3410AEC4EC89A9113406CC0006340617 YDFTWRTINT 0000 S17 YDFTWRITELN 0000 S30C9FEDE3410AEC43089A93634104F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 S30C9FEDE3410AEC4EC89A8F53406CC0006340617 YDFTWRTINT 0000 S17 YDFTWRITELN 0000 S30C9FEDE3410AEC4E689A9104F3406CC0006340617 YDFTWRTINT 0000 S17 YDFTWRITELN 0000 S30C9FEDE3410AEC4E689A90F4F3406CC0006340617 YDFTWRTINT 0000 S17 YDFTWRITELN 0000 S30C9FEDE3410AEC4E689A90E4F3406CC0006340617 YDFTWRTINT 0000 S17 YDFTWRITELN 0000 S30C9FEDE3410AEC4E689A90D4F3406CC0006340617 YDFTWRTINT 0000 S17 YDFTWRITELN 0000 S30C9FEDE3410AEC4EC89A90B3406CC0006340617 YDFTWRTINT 0000 S17 YDFTWRITELN 0000 S30C9FEDE3410AEC4EC89A9093406CC0006340617 YDFTWRTINT 0000 S17 YDFTWRITELN 0000 S30C9FEDE3410AEC43089A90034104F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 S30C9FEDE3410AEC43089A8F734104F5F340617 YDFTWRTSTRG 0000 S17 YDFTWRITELN 0000 S30C9FEDE3410AEC4341017 YCLOSE 0000 S3264325C35C0 F0001 S3440336432E9A8F7344017FD4C326230D80234108D1E1D494E53455254204449534B20414E4420505245535320454E5445523A204F5F340617 YDFTWRTSTRG 0000 S326230D802341030C9A9213410CC0014340617 YDFTREADSTRG 0000 S17 YDFTREADLN 0000 S344017E73F3262344017E577326230C9FCBE341030C9FCA9341030C9A936341030C9A9113410344017F345326A30C9FB8734104F5F340630C9FCD3341030C9A91B3410344017B911326A30C9FB873410344017 YCLOSE 0000 S326430C9FB87341030C9FCBE34108D040342494E4F5F340617 YDFTRESET 0000 S344017E2C43262E6C9A9204353C30001C300015D10270117344017E0903262 F4BFD SE6C9A9204353C30001C300015D10270118344017FCBB3262 F4C15 SE6C9A9205D10270119344017FAD43262 F4C25 S30C9FB873410344017 YCLOSE 0000 S326430C9FA693410344017 YCLOSE 0000 S326430C9A92134108D0C0B445354524143323130303017 YDFTSTRSTRCPY0000 S3262E6C9A9204353C30001C300015D1027011A4F5FEDC9A8F34F5F30C9A921E68B4F3406CC00013406EC62A3E132623406ECC9A8F310A3E4102E011BCC08A03406ECC9A8F3E3E13406ECC9A8F33406CC0001E3E130C9A921E68B4FE7F1ECC9A8F3C30001EDC9A8F320C7 F4C99 S3262 F4C70 S325C35C0 PP68C9 0000 0 S3262E6C9A9204353C30001C300015D1027011A4F5FEDC9A8F34F5F30C9A921E68B4F3406CC00013406EC62A3E132623406ECC9