File: EXTERE.LD of Disk: Disks/PDP8-Net/disk2-fortran
(.LD Header Block followed by dump format)
Loader ident : 0002 Swap argument 1 : 0001 Swap argument 2 : 0000 Highest field : 0003 Highest address : 3000 Load version no : 0021 Double precision: 0000 Overlay : 0001 Load address : 0000 Field : 0010 Block number rel: 0001 Lenght overlay : 0046 Block: 0001 00000: 1031 1046 0245 0002 1101 0223 0000 0002 0102 2300 1501 1116 4040 1101 0002 1111 HYH&B%@BIABS@@@BABS@MAIN IA@BII &"% A B@ AN2 A I 00020: 0023 1031 0024 0000 0115 1116 6000 0002 0115 1116 6100 0000 1511 1660 0000 0000 @SHY@T@@AMIN0@@BAMIN1@@@MIN0@@@@ MN @MN @ @I03 00040: 1511 1661 0000 0000 0115 0130 6000 0002 0115 0130 6100 0040 1031 0015 0040 0000 MIN1@@@@AMAX0@@BAMAX1@@ HY@M@ @@ I13 MX @MX @ @ 00060: 0000 3061 0000 0000 0411 1500 0000 0002 1104 1115 0000 0000 0114 1707 0000 0002 @@X1@@@@DIM@@@@BIDIM@@@@ALOG@@@B 1 @ DM" LG 00100: 0114 1707 6160 0002 0530 2000 4040 4040 4040 2063 0000 0002 2311 1600 0000 0002 ALOG10@BEXP@ P3@@@BSIN@@@@B LG p @X 3 I C 00120: 0317 2300 0000 0002 2401 1600 0000 0002 2311 1604 0000 0002 0317 2304 0000 0002 COS@@@@BTAN@@@@BSIND@@@BCOSD@@@B O@ S I C OD 00140: 2401 1604 0000 0002 0000 0000 0000 0002 0317 2310 0000 0002 2401 1610 0000 0002 TAND@@@B@@@@@@@BCOSH@@@BTANH@@@B S OH S 00160: 2321 2224 0000 0002 0123 1116 0000 0002 0103 1723 0000 0002 0124 0116 0000 0002 SQRT@@@BASIN@@@BACOS@@@BATAN@@@B Q D SN CS TN 00200: 0115 1704 0000 0002 1517 6060 6060 4040 4306 1130 0000 0002 1106 1130 0000 0002 AMOD@@@BMO0000 #FIX@@@BIFIX@@@B MD O0<0 HFX FX" 00220: 0111 1624 0000 0000 1116 2400 0000 0000 0614 1701 2400 0002 2223 0000 0000 0000 AINT@@@@INT@@@@@FLOAT@@BRS@@@@@@ I N % A P @ 00240: 0001 2000 0000 0002 2000 0000 0002 3000 0000 0003 2000 0000 0003 2400 0000 0003 @AP@@@@BP@@@@BX@@@@CP@@@@CT@@@@C @ @ 00260: 3000 0000 0003 3400 0000 0004 2000 0000 0004 2200 0000 0004 2400 0000 0004 2600 X@@@@C\@@@@DP@@@@DR@@@@DT@@@@DV@ ` @ P 00300: 0000 0004 3000 0000 0005 2100 0000 0005 3600 0000 0006 2400 0000 0006 3100 0000 @@@DX@@@@EQ@@@@E^@@@@FT@@@@FY@@@ ` @ p @ ` 00320: 0006 3600 0000 0007 2400 0000 0011 3720 0000 0011 3724 0000 0011 3730 0000 0011 @F^@@@@GT@@@@I_P@@@I_T@@@I_X@@@I P P T p X 00340: 3734 0000 0011 3750 0000 0011 3760 0000 0012 2114 0000 0000 1031 0364 0000 1031 _\@@@I_(@@@I_0@@@JQL@@@@HYC4@@HY \ p h p p L t 00360: 0525 0000 1032 2405 0000 1031 0573 0000 1031 0604 0000 1032 6243 0000 1031 0760 EU@@HZTE@@HYE;@@HYFD@@HZ2#@@HYG0 U % { ! # @ p! Block: 0002 00400: 0000 1031 0777 0000 1031 1005 0000 1032 2253 0500 0000 0000 4314 0500 0000 0000 @@HYG?@@HYHE@@HZR+E@@@@@#LE@@@@@ " +@A L@ 00420: 4307 2400 0000 0000 4314 2400 0000 0000 0315 2014 3000 0002 0301 0223 0000 0002 #GT@@@@@#LT@@@@@CMPLX@@BCABS@@@B G L M `A 00440: 4322 0603 2600 0002 4327 0603 2600 0000 0305 3020 0000 0002 0323 2122 2400 0002 #RFCV@@B#WFCV@@@CEXP@@@BCSQRT@@B R PW PE SR P 00460: 0314 1707 0000 0002 0323 1116 0000 0002 0303 1723 0000 0000 4305 3020 1122 0002 CLOG@@@BCSIN@@@BCCOS@@@@#EXPIR@B LG SN CS E R 00500: 4305 3020 1103 0003 4305 3020 0303 0003 2205 0114 0000 0002 0111 1501 0700 0000 #EXPIC@C#EXPCC@CREAL@@@BAIMAG@@@ E C E C L@ IA @ 00520: 0317 1612 0700 0000 4303 0104 0000 0003 4303 2302 0000 0000 4303 1607 0000 0000 CONJG@@@#CAD@@@C#CSB@@@@#CNG@@@@ O @ CD CB C 00540: 4303 0521 0000 0000 4303 1514 0000 0000 4303 0426 0000 0000 4303 0103 0000 0000 #CEQ@@@@#CML@@@@#CDV@@@@#CAC@@@@ CQ CL C CC 00560: 4305 3020 1104 0002 0530 2011 0462 0002 4305 3020 0411 0002 4305 3020 0422 0002 #EXPID@BEXPID2@B#EXPDI@B#EXPDR@B E D X 2 E E 00600: 4305 3020 0404 0002 4305 3020 0311 0002 4305 3020 0322 0000 0310 0122 2300 0002 #EXPDD@B#EXPCI@B#EXPCR@@CHARS@@B E E I E R HR @ @ 00620: 0310 0122 0000 0000 0307 0524 0000 0000 0320 2524 0000 0000 1716 2111 0000 0002 CHAR@@@@CGET@@@@CPUT@@@@ONQI@@@B HR GT PT NI4 00640: 1716 2102 0000 0000 4320 0125 2305 0002 4322 0604 2600 0002 0000 0000 0000 0003 ONQB@@@@#PAUSE@B#RFDV@@B@@@@@@@C NB4 PU E @R P 00660: 0000 0000 0000 0000 0000 0000 0000 0000 2331 1603 0000 0003 0314 1703 1300 0000 @@@@@@@@@@@@@@@@SYNC@@@CCLOCK@@@ Y C LC @ 00700: 4303 1411 1624 0000 2411 1505 0000 0000 2014 1724 0000 0003 2014 1724 2200 0000 #CLINT@@TIME@@@@PLOT@@@CPLOTR@@@ C 0 ES TC TC @ 00720: 0314 2220 1424 0000 2303 0114 0500 0000 4304 1123 2000 0000 0401 2405 0000 0002 CLRPLT@@SCALE@@@#DISP@@@DATE@@@B L 0CL@@ DS @ 00740: 0401 2401 1662 0002 0124 0116 6200 0002 0310 1305 1706 0002 2301 1520 1405 0003 DATAN2@BATAN2@@BCHKEOF@BSAMPLE@C 2 0TN @HE F 0APC 0 00760: 2205 0114 2415 0000 0104 0200 0000 0000 7777 0000 0000 0000 0000 0000 0000 0000 REALTM@@ADB@@@@@??@@@@@@@@@@@@@@ L@ PD p Block: 0003 01000: 3000 0000 0000 0000 0000 0000 0000 0000 0001 2000 0000 0000 0000 0000 0000 0000 X@@@@@@@@@@@@@@@@AP@@@@@@@@@@@@@ ` 01020: 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 01040: 0000 0000 0000 0000 0000 0000 1111 0023 1101 0002 0100 0002 0100 0003 0100 0004 @@@@@@@@@@@@II@SIA@BA@@BA@@CA@@D I A @ @ @ 01060: 0100 0005 0266 3000 0212 0100 0006 0267 3000 0212 0100 0007 0265 3000 0212 0100 A@@EB6X@BJA@@FB7X@BJA@@GB5X@BJA@ @ 6 @ 7 `@ 5 @ 01100: 0010 3000 0221 1031 0265 1031 1661 0257 6214 0214 0027 3000 0207 6472 2253 0214 @HX@BQHYB5HYN1B/2LBL@WX@BG4:R+BL 5 1/0 @ : + @ 01120: 1257 6214 2300 1021 1111 3000 0206 0100 0011 3000 0220 1031 0251 1031 1145 3000 J/2LS@HQIIX@BFA@@IX@BPHYB)HYI%X@ / ,@ BI & @ ) e & 01140: 0206 0100 0012 1031 1175 5047 4011 2340 0317 1520 1405 2405 4022 2516 4004 0523 BFA@@JHYI=(' IS COMPLETE RUN DES @ }'* ` OP 5 N S 01160: 1122 0504 4050 6051 4017 2240 2325 1515 0122 3140 5061 5177 4751 0100 0013 3000 IRED (0) OR SUMMARY (1)?')A@@KX@ RD!() UMCR` 1*i@ 01200: 0221 1031 0251 1031 1232 3000 0207 6217 3000 0206 0100 0014 0257 6223 0100 0015 BQHYB)HYJZX@BG2OX@BFA@@LB/2SA@@M ) & `@ / @ 01220: 0217 2257 1041 1226 0261 6223 0100 0016 1031 1234 5011 6351 0100 0017 0257 6234 BOR/H!JVB12SA@@NHYJ\(I3)A@@OB/2\ / ! "1 @ " i,@ / 01240: 0100 0020 0257 6236 0100 0021 0236 4276 1234 0027 0256 6472 2405 0236 1257 6236 A@@PB/2^A@@QB^">J\@WB.4:TEB^J/2^ @ / @ > .: P/ , 01260: 2272 1021 1244 0234 1257 6234 2276 1021 1240 0100 0022 0257 6234 0100 0023 0257 R:HQJ$B\J/2\R>HQJ A@@RB/2\A@@SB/ : B$ / ,> B @ / @@ / 01300: 6242 0100 0024 0242 4307 1234 0027 0256 6471 0525 0242 1257 6242 2260 1021 1301 2"A@@TB"#GJ\@WB.49EUB"J/2"R0HQKA "@@ " G . 9UQ"/ "0D A" 01320: 0234 1257 6234 2307 1021 1275 0100 0025 0257 6234 0100 0026 0257 6242 0100 0027 B\J/2\SGHQJ=A@@UB/2\A@@VB/2"A@@W / GD ="@ / @ /" @ 01340: 0242 4264 1234 0027 0256 6471 0364 0242 1257 6242 2265 1021 1336 0234 1257 6234 B""4J\@WB.49C4B"J/2"R5HQK^B\J/2\ "4 .9 t" /",5 B^ / , 01360: 2264 1021 1332 0100 0030 0257 6234 0100 0031 0257 6242 0100 0032 0242 4267 1234 R4HQKZA@@XB/2\A@@YB/2"A@@ZB""7J\ 4 BZ@ / @@ / "@@ " 7 Block: 0004 01400: 0027 0256 6471 0604 0242 1257 6242 2261 1021 1373 0234 1257 6234 2267 1021 1367 @WB.49FDB"J/2"R1HQK;B\J/2\R7HQK7 . 9 Q"/ "1D {" / 7D w" 01420: 0100 0033 0257 6234 0100 0034 0234 0027 0256 6472 6243 0234 1257 6234 2270 1021 A@@[B/2\A@@\B\@WB.4:2#B\J/2\R8HQ @ / @ .: # @/ ,8 B 01440: 1424 0100 0035 0256 6402 6304 0100 0036 0256 6402 6312 0100 0037 0256 6402 6307 LTA@@]B.4B3DA@@^B.4B3JA@@_B.4B3G @0 . D\@ . J@@ . G\ 01460: 0100 0040 0256 6402 6315 0100 0041 0256 6235 0100 0042 0223 2261 1041 1501 0257 A@@ B.4B3MA@@!B.2]A@@"BSR1H!MAB/ @ . M@@!. @@" 1!BA/0 01500: 6235 0100 0043 0223 2261 1001 1622 0100 0044 1132 6320 1031 1517 1031 0064 0100 2]A@@#BSR1HANRA@@$IZ3PHYMOHY@4A@ @@# 1 B @0$Z P BO 24@ 01520: 0045 3000 0221 1031 0265 1031 1540 3000 0207 6251 3000 0206 0100 0046 1031 1542 @%X@BQHYB5HYM X@BG2)X@BFA@@&HYM" % 5 ` 6 ) `@& b# 01540: 5011 6451 0100 0047 1031 1552 5062 3054 1164 5100 0100 0050 3000 0220 1031 0251 (I4)A@@'HYM*(2X,I4)@A@@(X@BPHYB) )-@' j#2,&t@*@( ` ) 01560: 1031 1546 0251 3000 0207 3000 0206 0100 0051 0257 6234 0100 0052 0234 0027 0256 HYM&B)X@BGX@BFA@@)B/2\A@@*B\@WB. f#) @ )/ @@* . 01600: 6471 1005 0234 1257 6234 2270 1021 1573 0100 0053 0213 2256 1001 1620 0261 6223 49HEB\J/2\R8HQM;A@@+BKR.HANPB12S 9 R / 8D {#@+ . #1 01620: 0100 0054 0265 3000 0212 0100 0055 3000 0221 1031 0262 1031 1661 0257 6214 0214 A@@,B5X@BJA@@-X@BQHYB2HYN1B/2LBL @, 5 @ - 2 1/0 @ 01640: 0027 3000 0207 6472 2253 0214 1257 6214 2300 1021 1637 3000 0206 0100 0056 1031 @WX@BG4:R+BLJ/2LS@HQN_X@BFA@@.HY : + @/ ,@ B 6 @ . 01660: 1664 5070 6001 6151 0100 0057 0256 6240 0100 0060 0257 6241 0100 0061 0256 6225 N4(80A1)A@@/B.2 A@@0B/2!A@@1B.2U 48: iL@/ . @0 /! @1 . 01700: 0100 0062 0257 6226 0100 0063 1132 6320 1031 1714 1031 0064 0100 0064 3000 0221 A@@2B/2VA@@3IZ3PHYOLHY@4A@@4X@BQ @2 / @3 ZP, L# 4 @4 ` 01720: 1031 0262 1031 2236 3000 0207 6252 3000 0207 6247 3000 0207 6215 3000 0207 6250 HYB2HYR^X@BG2*X@BG2'X@BG2MX@BG2( 2 $ `* F ' ` F ( 01740: 3000 0207 6212 0257 0027 3000 0207 6471 0760 0260 0026 3000 0207 6461 0760 3000 X@BG2JB/@WX@BG49G0B0@VX@BG41G0X@ ` /@ 9 p0 1 p 01760: 0207 6216 3000 0207 6230 3000 0207 6227 3000 0207 6231 3000 0207 6222 3000 0207 BG2NX@BG2XX@BG2WX@BG2YX@BG2RX@BG ` F ` F ` Block: 0005 02000: 6220 0261 6214 0214 0027 3000 0207 6471 0760 0214 1257 6214 2263 1021 2003 0257 2PB12LBL@WX@BG49G0BLJ/2LR3HQPCB/ 1@ @ 9 p / ,3 B /@ 02020: 0027 3000 0207 6471 0777 0257 4261 1257 0026 3000 0207 6461 0573 0260 4261 1257 @WX@BG49G?B/"1J/@VX@BG41E;B0"1J/ 9 / 1/ 1 {0 1/ 02040: 0025 3000 0207 6451 0573 0257 4261 1260 0024 3000 0207 6441 0573 0260 4261 1260 @UX@BG4)E;B/"1J0@TX@BG4!E;B0"1J0 ) {/ 10 ! {0 10 02060: 0023 3000 0207 6431 0573 0257 4261 1261 0022 3000 0207 6421 0573 0260 4261 1261 @SX@BG4YE;B/"1J1@RX@BG4QE;B0"1J1 {/ 11 {0 11 02100: 0021 3000 0207 6411 0573 3000 0206 0100 0065 0213 2256 1123 2635 6253 0235 2256 @QX@BG4IE;X@BFA@@5BKR.ISV]2+B]R. { @ 5 .SB +\ . 02120: 1123 2626 4253 1041 1236 0100 0066 0213 2256 1041 3656 0100 0067 0215 2263 1001 ISVV"+H!J^A@@6BKR.H!^.A@@7BMR3HA S %+! @ 6 .!B.@p7 3 B 02140: 1706 0100 0070 1031 2151 5062 3054 1164 5100 0100 0071 0223 2261 1001 2405 0100 OFA@@8HYQ)(2X,I4)@A@@9BSR1HATEA@ F@08 i2J,tb@@ 9 1 B @P 02160: 0072 0252 2251 1051 1706 1001 2173 1031 1706 0100 0073 0240 1257 6240 0100 0074 @:B*R)H)OFHAQ;HYOFA@@;B J/2 A@@< :* ))BF 2{ BF@0; / ,@< 02200: 0257 6235 0100 0075 0240 2257 1041 2215 0257 0027 0247 6471 1005 0100 0076 0241 B/2]A@@=B R/H!RMB/@WB'49HEA@@>B! / @= / ! $/ '9 @ >! 02220: 0027 0471 1005 2247 1051 2266 1001 2316 1031 2266 0100 0077 1031 2264 5061 3054 @WD9HER'H)R6HASNHYR6A@@?HYR4(1X, 9 '$)6$ N$ 6$@? 4$1,& 02240: 1164 5411 6354 1161 5411 6654 1161 5461 3054 6211 6354 1162 5465 1161 5463 3054 I4,I3,I1,I6,I1,1X,2I3,I2,5I1,3X, t +lqB ,=q1+, llrB5q23,6 02260: 6311 6354 6711 6151 0100 0100 0241 1257 6241 0100 0101 0241 2270 1021 2301 0270 3I3,7I1)A@A@B!J/2!A@AAB!R8HQSAB8 IlLIi\@@ !/ !@@A! 8 BA8@ 02300: 6241 0100 0102 0241 0027 0247 6471 1005 0100 0103 1031 2316 0100 0104 0225 1257 2!A@ABB!@WB'49HEA@ACHYSNA@ADBUJ/ !@@B! ' 9 R@C N$@D / 02320: 6225 0100 0105 0225 2257 1041 2334 0257 0027 0215 6472 6243 0100 0106 0226 0027 2UA@AEBUR/H!S\B/@WBM4:2#A@AFBV@W @@E /!B\/@ :#\@F 02340: 0472 6243 2215 1051 2353 1001 2403 1031 2353 0100 0107 0226 1257 6226 0100 0110 D:2#RMH)S+HATCHYS+A@AGBVJ/2VA@AH :# )Bk B Rk@@G / ,@H 02360: 0226 2270 1021 2366 0270 6226 0100 0111 0226 0027 0215 6472 6243 0100 0112 1031 BVR8HQS6B82VA@AIBV@WBM4:2#A@AJHY 8 v$8 @I : #@@J Block: 0006 02400: 2403 0100 0113 0100 0114 0212 2257 1041 2416 0402 6307 1257 6402 6307 0100 0115 TCA@AKA@ALBJR/H!TNDB3GJ/4B3GA@AM @PK@ L /!B QG/B G\@M 02420: 0212 2257 1001 2431 0402 6312 1257 6402 6312 0100 0116 0212 2257 1001 2441 0260 BJR/HATYDB3JJ/4B3JA@ANBJR/HAT!B0 / % J / -J@@N / B!0P 02440: 6212 0100 0117 0257 6243 0100 0120 0243 0027 0471 0760 2303 1041 2460 0260 6212 2JA@AOB/2#A@APB#@WD9G0SCH!T0B02J @@O/ #@@P# 9 pC !0%0 02460: 0100 0121 0243 0027 0471 0760 2304 1041 2473 0260 6212 0100 0122 0305 6245 0100 A@AQB#@WD9G0SDH!T;B02JA@ARCE2%A@ @Q # 9p D!B;0P @@RE %@@ 02500: 0123 0243 0027 0471 0760 2245 1041 2512 0260 6212 0245 1257 6245 2306 1021 2477 ASB#@WD9G0R%H!UJB02JB%J/2%SFHQT? S# 9 p% !J%0 %/ %FD ?% 02520: 0100 0124 0243 1257 6243 2260 1021 2445 0100 0125 0402 6315 1257 6402 6315 0100 A@ATB#J/2#R0HQT%A@AUDB3MJ/4B3MA@ @T #/ #0D %%@U M / -M@@ 02540: 0126 0257 6214 0100 0127 0214 0027 0471 0760 2256 1123 2663 6253 0471 0760 2307 AVB/2LA@AWBL@WD9G0R.ISV32+D9G0SG V/ @@W 9 p. S3%+9ApG 02560: 1123 2675 1253 1041 2661 0100 0130 0214 2261 1051 2615 0100 0131 0214 0027 0471 ISV=J+H!V1A@AXBLR1H)VMA@AYBL@WD9 S=%+!"1@PX 1)B @PY 9 02600: 0760 2301 1061 2661 0100 0132 0402 6304 1257 6402 6304 0100 0133 0214 2261 1123 G0SAH1V1A@AZDB3DJ/4B3DA@A[BLR1IS pA 11%@Z D / -D@@[ 1SB 02620: 2707 6253 0214 0027 0471 0760 2302 1123 2707 4253 1041 2661 0100 0134 0214 0027 WG2+BL@WD9G0SBISWG"+H!V1A@A\BL@W G+\ 9p BSBG+X!1%@\ 02640: 0212 4307 1471 0760 0026 0212 4307 1471 0760 0025 0451 0525 1257 6461 0525 0100 BJ#GL9G0@VBJ#GL9G0@UD)EUJ/41EUA@ G 9p1 G9 p )U /1-U@ 02660: 0135 0214 1257 6214 2263 1021 2543 0100 0136 0216 2264 1061 2677 0257 6224 0100 A]BLJ/2LR3HQU#A@A^BNR4H1V?B/2TA@ ] / ,3 Bc@P^ 41B?/P @@ 02700: 0137 0216 2264 1123 2675 6253 0216 2273 1123 2663 4253 1001 2717 0260 6224 0100 A_BNR4ISV=2+BNR;ISV3"+HAWOB02TA@ _ 4SB=+\ ; S3%+ O0P @@ 02720: 0140 0216 2273 1123 2675 6253 0216 2274 1123 2663 4253 1001 2737 0261 6224 0100 A BNR;ISV=2+BNR<ISV3"+HAW_B12TA@ ` ;SB=+\ < S3%+ _1P @@ 02740: 0141 0216 2274 1123 2675 6253 0216 2275 1123 2663 4253 1001 2757 0262 6224 0100 A!BNR<ISV=2+BNR=ISV3"+HAW/B22TA@ a <SB=+\ = S3%+ o2P @@ 02760: 0142 0216 2275 1123 2675 6253 0216 2277 1123 2663 4253 1001 2777 0263 6224 0100 A"BNR=ISV=2+BNR?ISV3"+HAW?B32TA@ b =SB=+\ ? S3%+ 3P @@ Block: 0007 03000: 0143 0216 2277 1021 3007 0264 6224 0100 0144 0230 2257 1041 3017 0257 6232 0100 A#BNR?HQXGB42TA@A$BXR/H!XOB/2ZA@ c ? B 4` @@d /!B /` @@ 03020: 0145 0230 2257 1001 3027 0260 6232 0100 0146 0232 4264 1224 0027 0471 0364 1257 A%BXR/HAXWB02ZA@A&BZ"4JT@WD9C4J/ e / B 0` @@f 4 9 t/ 03040: 6471 0364 0100 0147 0261 4264 1224 0027 0471 0364 1257 6471 0364 0100 0150 0231 49C4A@A'B1"4JT@WD9C4J/49C4A@A(BY 9tP@g 14 9t /9-t@ h 03060: 2257 1041 3074 0262 4264 1224 0027 0471 0364 1257 6471 0364 0100 0151 0222 2257 R/H!X<B2"4JT@WD9C4J/49C4A@A)BRR/ /!B<2`4 9 t/ 9tP@i / 03100: 1041 3113 0263 4264 1224 0027 0471 0364 1257 6471 0364 0100 0152 0220 2257 1041 H!YKB3"4JT@WD9C4J/49C4A@A*BPR/H! !K&34 9t /9-t@ j /!B 03120: 3132 0264 4264 1224 0027 0471 0364 1257 6471 0364 0100 0153 0257 6244 0100 0154 YZB4"4JT@WD9C4J/49C4A@A+B/2$A@A, Z4`4 9 t/ 9tP@k /$ @l 03140: 0244 0027 0471 0760 2301 1123 2663 6253 0471 0760 2307 1123 2675 1253 1041 3422 B$@WD9G0SAISV32+D9G0SGISV=J+H!\R $ 9p ASB3+\9p GSB=+R! ' 03160: 0100 0155 0244 0027 0471 0760 2301 1021 3176 0471 0760 2301 6471 0760 0100 0156 A@A-B$@WD9G0SAHQY>D9G0SA49G0A@A. @m $ 9p A B~9apA 9pQ@n 03200: 0231 2257 1123 2626 6253 0244 0027 0471 0760 2256 1123 2635 4253 1001 3236 0270 BYR/ISVV2+B$@WD9G0R.ISV]"+HAZ^B8 / S %+$@ 9 p. S %+ 8` 03220: 4276 1471 0760 0026 0270 4276 1471 0760 0025 0452 2405 1257 6462 2405 0100 0157 ">L9G0@VB8">L9G0@UD*TEJ/42TEA@A/ >9 p 8> 9p1 * /R2 U@o 03240: 0220 2257 1123 2626 6253 0244 0027 0471 0760 2256 1123 2635 4253 1001 3276 0271 BPR/ISVV2+B$@WD9G0R.ISV]"+HAZ>B9 / S %+$@ 9 p. S %+ >9` 03260: 4276 1471 0760 0026 0271 4276 1471 0760 0025 0452 2405 1257 6462 2405 0100 0160 ">L9G0@VB9">L9G0@UD*TEJ/42TEA@A0 >9 p 9> 9p1 * /R2 U@p 03300: 0222 2257 1123 2626 6253 0244 0027 0471 0760 2256 1123 2635 4253 1001 3336 0272 BRR/ISVV2+B$@WD9G0R.ISV]"+HA[^B: / S %+$@ 9 p. S %+ ^:` 03320: 4276 1471 0760 0026 0272 4276 1471 0760 0025 0452 2405 1257 6462 2405 0100 0161 ">L9G0@VB:">L9G0@UD*TEJ/42TEA@A1 >9 p :> 9p1 * /R2 U@q 03340: 0257 6237 0100 0162 0257 4261 1237 0027 0471 0573 2256 1123 2635 6253 0244 0026 B/2_A@A2B/"1J_@WD9E;R.ISV]2+B$@V / @r /1 9{ .SB +\$ 03360: 0461 0760 2256 1123 2635 4253 6253 0471 0573 2266 1123 2663 4253 1001 3420 0471 D1G0R.ISV]"+2+D9E;R6ISV3"+HA\PD9 1p .SB +X+9A{6 S3%+ 9q Block: 0010 03400: 0573 4276 1461 0760 0025 0471 0573 4276 1461 0760 0024 0442 2405 1257 6452 2405 E;">L1G0@UD9E;">L1G0@TD"TEJ/4*TE {> 1p1 9 {> 1p1 " /R* U 03420: 0100 0163 0237 1257 6237 2261 1021 3342 0244 1257 6244 2260 1021 3136 0100 0164 A@A3B_J/2_R1HQ["B$J/2$R0HQY^A@A4 @s / 1D b&$/ $0D ^&@t 03440: 0257 6234 0100 0165 0257 4261 1234 0027 0471 0573 2257 1123 2626 6253 0471 0573 B/2\A@A5B/"1J\@WD9E;R/ISVV2+D9E; / @u /1 9{ /SB +\9{ 03460: 2261 1123 2626 1253 1041 3504 0100 0166 0234 1257 6234 2261 1021 3442 0100 0167 R1ISVVJ+H!]DA@A6B\J/2\R1HQ\"A@A7 1SB +R!D'@v / 1D "'@w 03500: 1031 3517 0100 0170 0265 4264 1224 0027 0471 0364 1257 6471 0364 0100 0171 0257 HY]OA@A8B5"4JT@WD9C4J/49C4A@A9B/ O'@x 54 9t /9-t@ y/ 03520: 6234 0100 0172 0257 4261 1234 0027 0471 0573 2256 1001 3620 0100 0173 0260 4261 2\A@A:B/"1J\@WD9E;R.HA^PA@A;B0"1 @@z/ 1 9 {. '@{ 01 03540: 1234 0027 0471 0573 2261 1123 2675 6253 0471 0573 2257 1123 2707 1253 1001 3563 J\@WD9E;R1ISV=2+D9E;R/ISWGJ+HA]3 9{ 1SB=+\9{ /SBG+R s' 03560: 0257 6471 0573 0100 0174 0257 4261 1234 0027 0260 4261 1234 0026 0461 0573 4267 B/49E;A@A<B/"1J\@WB0"1J\@VD1E;"7 /9 {@ |/ 1 0 1 1 {7 03600: 1471 0573 0025 0461 0573 4267 1471 0573 0024 0441 0604 1257 6451 0604 0100 0175 L9E;@UD1E;"7L9E;@TD!FDJ/4)FDA@A= 9{1 1 {7 9{1 ! / ) Q@} 03620: 0234 1257 6234 2261 1021 3521 0100 0176 1031 1706 0100 0177 0223 2257 1001 3656 B\J/2\R1HQ]QA@A>HYOFA@A?BSR/HA^. / 1D Q'@~ F#@ / .' 03640: 0100 0200 1031 3650 5047 4047 5401 6451 0100 0201 1031 1273 0100 0202 1132 6370 A@B@HY^((' ',A4)A@BAHYJ;A@BBIZ38 @ ('''( )=@ ;"@ Zx, 03660: 1031 3674 1031 0216 1031 0114 1031 1010 1031 0411 1031 0642 0100 0203 0223 2261 HY^<HYBNHYALHYHHHYDIHYF"A@BCBSR1 <' L " ! "!@ 1 03700: 1041 1236 0100 0204 1130 0223 0100 0205 1130 0223 7650 5707 4774 1423 3030 2023 H!J^A@BDIXBSA@BEIXBS>(/G'<LSXXPS ! "@ X @ X (G{| d 03720: 1423 3010 6201 4524 2161 6211 1410 3011 1011 4543 1054 4562 6211 1411 4351 1146 LSXH2A%TQ12ILHXIHI%#H,%22ILI#)I& 6 TIq L 6 c),r) Cif 03740: 4562 6211 1030 4351 4535 6211 1020 4771 5773 2142 4554 1147 1147 3042 1410 6201 %22IHX#)%]2IHP'9/;Q"%,I'I'X"LH2A r i(] y){b4lg g"& < 03760: 4557 4563 5751 0420 0310 1300 0601 0404 1500 7203 4537 7413 5140 2065 6156 0002 %/%3/)DPCHK@FADDM@:C%_<K) P51.@B os i 1H@ @ >_ `5$n @ Block: 0011 04000: 6212 5211 6701 2211 6311 6324 5705 0255 5660 1660 6215 0612 5307 6305 6611 1317 2J*I7ARI3I3T/EB-.0N02MFJ+G3E6IKO JA TITLE-0003 AGE, OR 04020: 5307 7211 5653 0660 4267 6666 6612 1304 5325 6307 6611 1317 5307 7211 5653 0260 +G:I.+F0"7666JKD+U3G6IKO+G:I.+B0 G .+0176 DRUG, ORG .+00 04040: 4263 6663 6612 1304 5725 1307 6254 7611 4322 4707 5656 0253 5661 0662 6215 4612 "3636JKD/UKG2,>I#R'G..B+.1F22M&J 33 DRUG2, ORG .+0121 I 04060: 6304 0711 4307 4654 6317 3722 5211 5656 5660 0660 4267 5215 6315 6707 4324 4654 3DGI#G&,3O_R*I...0F0"7*M3M7G#T&, DIAG, ORG .+0017 MGMT, 04100: 6317 3722 5211 5656 5660 0260 4266 5215 6320 7703 6304 0705 6254 7611 4322 4707 3O_R*I...0B0"6*M3P?C3DGE2,>I#R'G ORG .+0006 PCODEA, ORG 04120: 5656 0253 5660 3263 4215 4612 6243 1314 5314 7275 4215 4612 6303 6717 6315 7317 ..B+.0Z3"M&J2#KL+L:="M&J3C7O3M;O .+0036 #LBL=. COMMON 04140: 6215 0612 5722 1322 6254 7611 4322 4707 5656 3253 5663 2264 6615 2212 6311 6324 2MFJ/RKR2,>I#R'G..Z+.3R46MRJ3I3T ARR2, ORG .+6344 TITL 04160: 4305 4654 6317 3722 5211 5656 5660 3263 4260 5215 6701 1322 5262 6262 6611 1317 #E&,3O_R*I...0Z3"0*M7AKR*2226IKO E, ORG .+0360 ARR22, OR 04200: 5307 7211 5653 2263 4261 6660 6212 0711 6322 0705 6254 7611 4322 4707 5656 0253 +G:I.+R3"1602JGI3RGE2,>I#R'G..B+ G .+3410 IAREA, ORG .+0 04220: 5660 3263 6215 5612 6317 7325 4324 4654 6317 3722 5211 5656 5660 0260 4263 5215 .0Z32M.J3O;U#T&,3O_R*I...0B0"3*M 036 KOUNT, ORG .+0003 04240: 6324 7703 6725 2316 6254 7611 4322 4707 5656 0253 5660 1660 6215 4612 6703 2717 3T?C7USN2,>I#R'G..B+.0N02M&J7CWO TCOUNT, ORG .+0003 ICOU 04260: 5316 6324 6611 1317 5307 7211 5653 0260 4260 6663 6212 5724 6317 7325 4324 4654 +N3T6IKO+G:I.+B0"0632J/T3O;U#T&, NT, ORG .+0003 TKOUNT, 04300: 6317 3722 5211 5656 5660 0260 4263 5215 6611 1317 5307 1611 6314 6302 5215 1612 3O_R*I...0B0"3*M6IKO+GNI3L3B*MNJ ORG .+0003 ORG #LBL # 04320: 5323 6324 6211 0702 4323 4705 6243 0702 4323 6705 6612 1611 6305 1324 6211 1243 +S3T2IGB#S'E2#GB#S7E6JNI3EKT2IJ# ST, BASE #BASE SETB #B 04340: 6301 2723 4215 4612 6723 2305 5330 1611 4330 6722 6212 6211 4304 4730 5660 0260 3AWS"M&J7SSE+XNI#X7R2J2I#D'X.0B0 ASE SETX #XR LDX 000 04360: 5662 0254 4215 4612 6714 4304 5611 0260 5260 6263 4260 5215 6211 2314 5730 0211 .2B,"M&J7L#D.IB0*023"0*M2ISL/XBI 2,0 LDX 0003,0 LDX 0 Block: 0012 04400: 5660 2260 4254 6660 5212 1611 5707 0260 5660 6661 4256 5215 6611 1317 6307 4611 .0R0",60*JNI/GB0.061".*M6IKO3G&I 004,0 #G0001=. ORG I 04420: 6732 1305 5653 0260 4260 6660 5612 0211 5660 0260 5673 0260 5660 5660 5660 0260 7ZKE.+B0"060.JBI.0B0.;B0.0.0.0B0 ZER+0000 0000;0000;000 04440: 4260 5215 6611 1317 6307 6211 6732 1305 5653 0260 4260 6660 5612 3211 5660 0266 "0*M6IKO3G2I7ZKE.+B0"060.JZI.0B6 0 ORG LZER+0000 6060 04460: 5673 0266 5666 5660 5664 2260 4260 5215 6611 1317 6307 4611 6302 5714 5653 0260 .;B6.6.0.4R0"0*M6IKO3G&I3B/L.+B0 ;6060;4040 ORG IBLK+00 04500: 4260 6660 5612 2211 5660 0264 5673 0264 5664 5660 5664 2260 4260 5215 6611 1317 "060.JRI.0B4.;B4.4.0.4R0"0*M6IKO 00 4040;4040;4040 OR 04520: 5307 1611 5707 0260 4260 6661 6212 6211 4304 4730 5660 0260 5665 0254 4215 4612 +GNI/GB0"0612J2I#D'X.0B0.5B,"M&J G #G0001 LDX 0005,0 04540: 6306 2314 5301 1611 6714 2311 5653 0260 4263 6660 6212 2611 6330 2724 4322 4716 3FSL+ANI7LSI.+B0"3602JVI3XWT#R'N FLDA #LIT+0030 EXTERN 04560: 6243 2722 4327 5215 6611 1324 5701 1720 6611 1243 4305 6727 6212 6211 4304 4730 2#WR#W*M6IKT/AOP6IJ##E7W2J2I#D'X #REW TRAP3 #REW LDX 04600: 5660 0260 5666 0254 4215 4612 6306 2314 5301 1611 6714 2311 5653 0260 4263 6663 .0B0.6B,"M&J3FSL+ANI7LSI.+B0"363 0006,0 FLDA #LIT+0033 04620: 6212 2611 6330 2724 4322 4716 6243 2722 4327 5215 6611 1324 5701 1720 6611 1243 2JVI3XWT#R'N2#WR#W*M6IKT/AOP6IJ# EXTERN #REW TRAP3 #R 04640: 4305 6727 6212 6211 4304 4730 5660 0260 5667 0254 4215 6612 5612 0643 6254 3211 #E7W2J2I#D'X.0B0.7B,"M6J.JF#2,ZI EW LDX 0007,0 #1, F 04660: 6314 0704 6211 6243 5311 5724 5660 1260 4265 5215 6611 4305 6724 1305 5316 1611 3LGD2I2#+I/T.0J0"5*M6I#E7TKE+NNI LDA #LIT+0025 EXTERN # 04700: 6722 3705 4215 4612 6324 0722 4320 4663 6243 2722 4327 5215 6211 2314 5730 0211 7R_E"M&J3TGR#P&32#WR#W*M2ISL/XBI REW TRAP3 #REW LDX 0 04720: 5660 0261 4254 6660 6212 2611 6330 2724 4322 4716 6243 2722 6301 7704 4215 4612 .0B1",602JVI3XWT#R'N2#WR3A?D"M&J 010,0 EXTERN #READO 04740: 6324 0722 4320 4663 6243 2722 6301 7704 4215 4612 4312 4701 6243 4714 5724 0253 3TGR#P&32#WR3A?D"M&J#J'A2#'L/TB+ TRAP3 #READO JA #LIT+0 04760: 5660 0263 4215 4612 4312 4701 5643 0661 5660 1253 4215 4612 6306 2314 5301 1611 .0B3"M&J#J'A.#F1.0J+"M&J3FSL+ANI 030 JA #110+2 FLDA # Block: 0013 05000: 6714 2311 5653 0260 4260 6663 6212 3211 6323 0724 4211 6711 4212 5215 5643 0307 7LSI.+B0"0632JZI3SGT"I7I"J*M.#CG LIT+0003 FSTA I #G0 05020: 5660 1260 6254 3211 6314 0704 4211 6711 6212 0611 4324 4730 4267 5215 6611 4305 .0J02,ZI3LGD"I7I2JFI#T'X"7*M6I#E 002, FLDA I ATX 7 EX 05040: 6724 1305 5316 1611 6722 3323 4317 5215 6611 1324 5701 1720 6611 1243 6323 7726 7TKE+NNI7R[S#O*M6IKT/AOP6IJ#3S?V TERN #RSVO TRAP3 #RSVO 05060: 4215 4612 6706 2323 6701 2211 6311 6324 5705 0255 5660 1660 4254 6667 6212 3211 "M&J7FSS7ARI3I3T/EB-.0N0",672JZI FSTA TITLE-0003,7 F 05100: 6314 0704 4211 6711 6212 3211 6301 2304 6211 6243 5311 5724 5660 0260 4263 5215 3LGD"I7I2JZI3ASD2I2#+I/T.0B0"3*M LDA I FADD #LIT+0003 05120: 6611 1706 4324 4701 4311 5215 6611 1706 4325 4702 6243 4714 5724 0253 5660 3266 6IOF#T'A#I*M6IOF#U'B2#'L/TB+.0Z6 FSTA I FSUB #LIT+0066 05140: 4215 4612 6312 2714 6211 3643 5660 0260 4262 5215 6611 4305 6724 1305 5316 1611 "M&J3JWL2I^#.0B0"2*M6I#E7TKE+NNI JLE #G0002 EXTERN # 05160: 6322 7305 4304 6717 6612 2211 6722 0301 5263 1611 6322 7305 4304 6717 6212 6211 3R;E#D7O6JRI7RCA*3NI3R;E#D7O2J2I RENDO TRAP3 #RENDO L 05200: 4304 4730 5660 0660 5661 0254 4215 4612 6705 2330 6305 7322 6611 3643 6722 2311 #D'X.0F0.1B,"M&J7ESX3E;R6I^#7RSI DX 0011,0 EXTERN #WRIT 05220: 4317 5215 6611 1324 5701 1720 6611 3643 6722 2311 4317 5215 6211 0712 6211 6243 #O*M6IKT/AOP6I^#7RSI#O*M2IGJ2I2# O TRAP3 #WRITO JA #L 05240: 5311 5724 5660 0660 4264 5215 6211 0712 5611 3243 5260 5660 4262 5215 6611 4305 +I/T.0F0"4*M2IGJ.IZ#*0.0"2*M6I#E IT+0014 JA #600+2 EX 05260: 6724 1305 5316 1611 6322 7305 4304 6717 6612 2211 6722 0301 5263 1611 6322 7305 7TKE+NNI3R;E#D7O6JRI7RCA*3NI3R;E TERN #RENDO TRAP3 #REN 05300: 4304 6717 6212 6211 4304 4730 5660 0660 5662 0254 4215 6612 5612 3243 5260 6260 #D7O2J2I#D'X.0F0.2B,"M6J.JZ#*020 DO LDX 0012,0 #600, 05320: 6211 0712 5211 5656 5660 1660 4262 5215 5611 0265 4264 6667 5612 2211 5660 0661 2IGJ*I...0N0"2*M.IB5"467.JRI.0F1 JA .+0032 5047 4011 05340: 4215 4612 5662 2263 4260 5215 5611 1660 4261 6667 5612 0611 5665 0262 4215 4612 "M&J.2R3"0*M.IN0"167.JFI.5B2"M&J 2340 0317 1520 05360: 5661 0264 4265 5215 5611 2262 4260 6665 5612 2211 5660 1262 4215 4612 5662 0665 .1B4"5*M.IR2"065.JRI.0J2"M&J.2F5 1405 2405 4022 251 Block: 0014 05400: 4266 5215 5611 0264 4260 6664 5612 0211 5665 1662 4215 4612 5661 1261 4262 5215 "6*M.IB4"064.JBI.5N2"M&J.1J1"2*M 6 4004 0523 1122 05420: 5611 2660 4260 6664 5612 2211 5660 0265 4215 4612 5666 2660 4261 5215 5611 0264 .IV0"064.JRI.0B5"M&J.6V0"1*M.IB4 0504 4050 6051 40 05440: 4261 6667 5612 1211 5662 0264 4215 4612 5662 1263 4265 5215 5611 2661 4261 6665 "167.JJI.2B4"M&J.2J3"5*M.IV1"165 17 2240 2325 1515 05460: 5612 0211 5661 1262 4215 4612 5663 2261 4260 5215 5611 0265 4266 6661 5612 2611 .JBI.1J2"M&J.3R1"0*M.IB5"661.JVI 0122 3140 5061 5 05500: 5661 3667 4215 4612 5664 2667 4261 5215 6211 2314 5730 0211 5660 1661 4254 6660 .1^7"M&J.4V7"1*M2ISL/XBI.0N1",60 177 4751 LDX 0013,0 05520: 6212 2611 6330 2724 4322 4716 6243 2722 6301 7704 4215 4612 6324 0722 4320 4663 2JVI3XWT#R'N2#WR3A?D"M&J3TGR#P&3 EXTERN #READO TRAP3 05540: 6243 2722 6301 7704 4215 4612 4312 4701 6243 4714 5724 0253 5660 2261 4215 4612 2#WR3A?D"M&J#J'A2#'L/TB+.0R1"M&J #READO JA #LIT+0014 05560: 4312 4701 5643 0266 5661 1253 4215 4612 6705 2330 6305 7322 6611 1243 6323 7726 #J'A.#B6.1J+"M&J7ESX3E;R6IJ#3S?V JA #601+2 EXTERN #RSVO 05600: 4215 4612 6324 0722 4320 4663 6643 1722 4326 6717 6212 3211 6323 0724 6211 0711 "M&J3TGR#P&36#OR#V7O2JZI3SGT2IGI TRAP3 #RSVO FSTA IA 05620: 4316 6723 6212 2611 6330 2724 4322 4716 6243 2722 6316 7704 4215 4612 6324 0722 #N7S2JVI3XWT#R'N2#WR3N?D"M&J3TGR NS EXTERN #RENDO TRA 05640: 4320 4663 6243 2722 6316 7704 4215 4612 6714 4304 5611 0260 5261 6264 4260 5215 #P&32#WR3N?D"M&J7L#D.IB0*124"0*M P3 #RENDO LDX 0014,0 05660: 6211 6306 4304 4701 6243 4714 5724 0253 5660 1660 4215 4612 6706 2323 6301 4611 2I3F#D'A2#'L/TB+.0N0"M&J7FSS3A&I FLDA #LIT+0003 FSTA I 05700: 6306 0714 4307 5215 6211 2314 5730 0211 5660 2661 4254 6660 6212 3211 6314 0704 3FGL#G*M2ISL/XBI.0V1",602JZI3LGD FLAG LDX 0015,0 FLDA 05720: 6211 0711 4316 6723 6212 3211 6323 1325 6211 6243 5311 5724 5660 0260 4263 5215 2IGI#N7S2JZI3SKU2I2#+I/T.0B0"3*M IANS FSUB #LIT+0003 05740: 6211 7312 5305 1611 5707 0260 4260 6663 6212 3211 6314 0704 6211 6243 5311 5724 2I;J+ENI/GB0"0632JZI3LGD2I2#+I/T JNE #G0003 FLDA #LIT+ 05760: 5660 0660 4261 5215 6611 1706 4324 4701 6311 6306 4301 6707 6212 3643 5660 0260 .0F0"1*M6IOF#T'A3I3F#A7G2J^#.0B0 0011 FSTA IFLAG #G000 Block: 0015 06000: 4263 4654 6714 4304 5611 0260 5261 6266 4260 5215 5215 1612 5666 0660 6254 5211 "3&,7L#D.IB0*126"0*M*MNJ.6F02,*I 3, LDX 0016,0 #601, J 06020: 5301 7211 5653 0260 4260 6664 5612 2611 5660 0661 4215 4612 5666 2663 4261 5215 +A:I.+B0"064.JVI.0F1"M&J.6V3"1*M A .+0004 5011 6351 06040: 6211 2314 5730 0211 5660 3661 4254 6660 4212 5215 5243 6262 6211 6306 4304 4701 2ISL/XBI.0^1",60"J*M*#222I3F#D'A LDX 0017,0 #2, FLDA 06060: 6243 4714 5724 0253 5660 1660 4215 4612 6706 2323 6301 5211 4215 6612 6212 3643 2#'L/TB+.0N0"M&J7FSS3A*I"M6J2J^# #LIT+0003 FSTA J #G 06100: 5660 0260 4264 4654 6714 4304 5611 0260 5262 6260 4260 5215 6211 6306 4304 4701 .0B0"4&,7L#D.IB0*220"0*M2I3F#D'A 0004, LDX 0020,0 FLDA 06120: 6243 4714 5724 0253 5660 1660 4215 4612 6706 2323 6301 5211 4312 5215 5215 1612 2#'L/TB+.0N0"M&J7FSS3A*I#J*M*MNJ #LIT+0003 FSTA JJ # 06140: 5707 0260 5260 6265 6211 2314 5730 0211 5660 0662 4254 6660 4212 5215 5643 0261 /GB0*0252ISL/XBI.0F2",60"J*M.#B1 G0005, LDX 0021,0 #10 06160: 6254 3211 6314 0704 6211 5312 4215 4612 6706 2715 5314 1611 6714 2311 5653 0260 2,ZI3LGD2I+J"M&J7FWM+LNI7LSI.+B0 , FLDA JJ FMUL #LIT+00 06200: 4266 6660 6212 3211 6301 2304 4211 6712 6212 0611 4324 4730 4267 5215 6211 6306 "6602JZI3ASD"I7J2JFI#T'X"7*M2I3F 60 FADD J ATX 7 FL 06220: 4304 4701 6243 4714 5724 0253 5660 0260 4215 4612 6706 2323 6301 0611 5722 1322 #D'A2#'L/TB+.0B0"M&J7FSS3AFI/RKR DA #LIT+0000 FSTA ARR2 06240: 5662 0255 5662 0663 4254 6667 6212 3211 6314 0704 6211 5312 4215 4612 6306 2301 .2B-.2F3",672JZI3LGD2I+J"M&J3FSA 2-0231,7 FLDA JJ FAD 06260: 5304 1611 6714 2311 5653 0260 4260 6663 6212 3211 6323 0724 6211 5312 4215 4612 +DNI7LSI.+B0"0632JZI3SGT2I+J"M&J D #LIT+0003 FSTA JJ 06300: 6706 2723 5302 1611 6714 2311 5653 0260 4264 6664 6212 5211 4314 4705 5643 0307 7FWS+BNI7LSI.+B0"4642J*I#L'E.#CG FSUB #LIT+0044 JLE #G0 06320: 5660 2660 4215 4612 6306 2314 6301 5211 4215 4612 6306 2301 5304 1611 6714 2311 .0V0"M&J3FSL3A*I"M&J3FSA+DNI7LSI 005 FLDA J FADD #LIT 06340: 5653 0260 4260 6663 6212 3211 6323 0724 4211 6712 6212 3211 6323 1325 6211 6243 .+B0"0632JZI3SGT"I7J2JZI3SKU2I2# +0003 FSTA J FSUB #L 06360: 5311 5724 5660 3260 4260 5215 6211 6312 5305 1611 5707 0260 4260 6664 6212 6211 +I/T.0Z0"0*M2I3J+ENI/GB0"0642J2I IT+0060 JLE #G0004 L Block: 0016 06400: 4304 4730 5660 1260 5662 0254 4215 6612 5612 0643 5266 6260 6211 6306 4304 4701 #D'X.0J0.2B,"M6J.JF#*6202I3F#D'A DX 0022,0 #160, FLDA 06420: 6243 4714 5724 0253 5660 1660 4215 4612 6706 2323 6301 5211 4215 6612 6212 3643 2#'L/TB+.0N0"M&J7FSS3A*I"M6J2J^# #LIT+0003 FSTA J #G 06440: 5660 0260 4266 4654 6714 4304 5611 0260 5262 6263 4260 5215 6211 6306 4304 4701 .0B0"6&,7L#D.IB0*223"0*M2I3F#D'A 0006, LDX 0023,0 FLDA 06460: 6243 4714 5724 0253 5660 1660 4215 4612 6706 2323 6301 5611 4215 6612 6212 3643 2#'L/TB+.0N0"M&J7FSS3A.I"M6J2J^# #LIT+0003 FSTA K #G 06500: 5660 0260 4267 4654 6714 4304 5611 0260 5262 6264 4260 5215 5215 1612 5661 0666 .0B0"7&,7L#D.IB0*224"0*M*MNJ.1F6 0007, LDX 0024,0 #161 06520: 6254 3211 6314 0704 4211 6713 6212 3211 6315 6325 6211 6243 5311 5724 5660 0661 2,ZI3LGD"I7K2JZI3M3U2I2#+I/T.0F1 , FLDA K FMUL #LIT+011 06540: 4263 5215 6211 0706 4304 4704 4312 5215 6611 2301 5730 3611 4215 4612 6306 2314 "3*M2IGF#D'D#J*M6ISA/X^I"M&J3FSL 3 FADD J ATX 7 FLD 06560: 5301 1611 6714 2311 5653 0260 4260 6660 6212 3211 6323 0724 6611 1301 5322 6662 +ANI7LSI.+B0"0602JZI3SGT6IKA+R62 A #LIT+0000 FSTA ARR2- 06600: 5663 3261 5665 3654 4215 4612 6306 2314 6301 5611 4215 4612 6306 2301 5304 1611 .3Z1.5^,"M&J3FSL3A.I"M&J3FSA+DNI 3165,7 FLDA K FADD # 06620: 6714 2311 5653 0260 4260 6663 6212 3211 6323 0724 4211 6713 6212 3211 6323 1325 7LSI.+B0"0632JZI3SGT"I7K2JZI3SKU LIT+0003 FSTA K FSUB 06640: 6211 6243 5311 5724 5660 0260 4266 5215 6211 6312 5305 1611 5707 0260 4260 6667 2I2#+I/T.0B0"6*M2I3J+ENI/GB0"067 #LIT+0006 JLE #G0007 06660: 6212 3211 6314 0704 4211 6712 6212 3211 6301 2304 6211 6243 5311 5724 5660 0260 2JZI3LGD"I7J2JZI3ASD2I2#+I/T.0B0 FLDA J FADD #LIT+000 06700: 4263 5215 6611 1706 4324 4701 4312 5215 6611 1706 4325 4702 6243 4714 5724 0253 "3*M6IOF#T'A#J*M6IOF#U'B2#'L/TB+ 3 FSTA J FSUB #LIT+0 06720: 5661 1661 4215 4612 6312 2714 6211 3643 5660 0260 4266 5215 6211 2314 5730 0211 .1N1"M&J3JWL2I^#.0B0"6*M2ISL/XBI 113 JLE #G0006 LDX 0 06740: 5660 2662 4254 6660 6212 3211 6314 0704 6211 6243 5311 5724 5660 0260 4263 5215 .0V2",602JZI3LGD2I2#+I/T.0B0"3*M 025,0 FLDA #LIT+0003 06760: 6611 1706 4324 4701 4312 5215 5215 1612 5707 0260 5261 6260 6211 2314 5730 0211 6IOF#T'A#J*M*MNJ/GB0*1202ISL/XBI FSTA J #G0010, LDX 0 Block: 0017 07000: 5660 3262 4254 6660 6212 3211 6314 0704 6211 6243 5311 5724 5660 0260 4263 5215 .0Z2",602JZI3LGD2I2#+I/T.0B0"3*M 026,0 FLDA #LIT+0003 07020: 6611 1706 4324 4701 4313 5215 5215 1612 5707 0260 5261 6261 6211 2314 5730 0211 6IOF#T'A#K*M*MNJ/GB0*1212ISL/XBI FSTA K #G0011, LDX 0 07040: 5660 3662 4254 6660 4212 5215 5643 3261 4263 4654 6306 2314 6301 5611 4215 4612 .0^2",60"J*M.#Z1"3&,3FSL3A.I"M&J 027,0 #163, FLDA K 07060: 6706 2715 5314 1611 6714 2311 5653 0260 4262 6662 6212 3211 6301 2304 4211 6712 7FWM+LNI7LSI.+B0"2622JZI3ASD"I7J FMUL #LIT+0022 FADD J 07100: 6212 0611 4324 4730 4267 5215 6211 6306 4304 4701 6243 4714 5724 0253 5660 0260 2JFI#T'X"7*M2I3F#D'A2#'L/TB+.0B0 ATX 7 FLDA #LIT+0000 07120: 4215 4612 6706 2323 6301 0611 5307 6705 5660 1260 5665 3654 4215 4612 6306 2314 "M&J7FSS3AFI+G7E.0J0.5^,"M&J3FSL FSTA AGE-0025,7 FLD 07140: 6301 5611 4215 4612 6306 2301 5304 1611 6714 2311 5653 0260 4260 6663 6212 3211 3A.I"M&J3FSA+DNI7LSI.+B0"0632JZI A K FADD #LIT+0003 F 07160: 6323 0724 4211 6713 6212 3211 6323 1325 6211 6243 5311 5724 5660 1260 4265 5215 3SGT"I7K2JZI3SKU2I2#+I/T.0J0"5*M STA K FSUB #LIT+0025 07200: 6211 6312 5305 1611 5707 0260 4261 6661 6212 3211 6314 0704 4211 6712 6212 3211 2I3J+ENI/GB0"1612JZI3LGD"I7J2JZI JLE #G0011 FLDA J F 07220: 6301 2304 6211 6243 5311 5724 5660 0260 4263 5215 6611 1706 4324 4701 4312 5215 3ASD2I2#+I/T.0B0"3*M6IOF#T'A#J*M ADD #LIT+0003 FSTA J 07240: 6611 1706 4325 4702 6243 4714 5724 0253 5660 1262 4215 4612 6312 2714 6211 3643 6IOF#U'B2#'L/TB+.0J2"M&J3JWL2I^# FSUB #LIT+0022 JLE #G 07260: 5660 0660 4260 5215 6211 2314 5730 0211 5660 0263 4254 6660 6212 3211 6314 0704 .0F0"0*M2ISL/XBI.0B3",602JZI3LGD 0010 LDX 0030,0 FLDA 07300: 6211 6243 5311 5724 5660 0260 4263 5215 6611 1706 4324 4701 4312 5215 5215 1612 2I2#+I/T.0B0"3*M6IOF#T'A#J*M*MNJ #LIT+0003 FSTA J # 07320: 5707 0260 5261 6262 6211 2314 5730 0211 5660 0663 4254 6660 6212 3211 6314 0704 /GB0*1222ISL/XBI.0F3",602JZI3LGD G0012, LDX 0031,0 FLDA 07340: 6211 6243 5311 5724 5660 0260 4263 5215 6611 1706 4324 4701 4313 5215 5215 1612 2I2#+I/T.0B0"3*M6IOF#T'A#K*M*MNJ #LIT+0003 FSTA K # 07360: 5707 0260 5261 6263 6211 2314 5730 0211 5660 1263 4254 6660 4212 5215 5643 3261 /GB0*1232ISL/XBI.0J3",60"J*M.#Z1 G0013, LDX 0032,0 #16 Block: 0020 07400: 4264 4654 6306 2314 6301 5611 4215 4612 6706 2715 5314 1611 6714 2311 5653 0260 "4&,3FSL3A.I"M&J7FWM+LNI7LSI.+B0 4, FLDA K FMUL #LIT+00 07420: 4263 6663 6212 3211 6301 2304 4211 6712 6212 0611 4324 4730 4267 5215 6211 6306 "3632JZI3ASD"I7J2JFI#T'X"7*M2I3F 33 FADD J ATX 7 FL 07440: 4304 4701 6243 4714 5724 0253 5660 0260 4215 4612 6706 2323 6301 2211 6322 3725 #D'A2#'L/TB+.0B0"M&J7FSS3ARI3R_U DA #LIT+0000 FSTA DRUG 07460: 5662 0255 5660 3263 4254 6667 6212 3211 6314 0704 4211 6713 6212 3211 6301 2304 .2B-.0Z3",672JZI3LGD"I7K2JZI3ASD 2-0036,7 FLDA K FADD 07500: 6211 6243 5311 5724 5660 0260 4263 5215 6611 1706 4324 4701 4313 5215 6611 1706 2I2#+I/T.0B0"3*M6IOF#T'A#K*M6IOF #LIT+0003 FSTA K FS 07520: 4325 4702 6243 4714 5724 0253 5660 0661 4215 4612 6312 2714 6211 3643 5660 0660 #U'B2#'L/TB+.0F1"M&J3JWL2I^#.0F0 UB #LIT+0011 JLE #G001 07540: 4263 5215 6211 6306 4304 4701 4312 5215 6211 0706 4304 4704 6243 4714 5724 0253 "3*M2I3F#D'A#J*M2IGF#D'D2#'L/TB+ 3 FLDA J FADD #LIT+0 07560: 5660 1660 4215 4612 6706 2323 6301 5211 4215 4612 6706 2723 5302 1611 6714 2311 .0N0"M&J7FSS3A*I"M&J7FWS+BNI7LSI 003 FSTA J FSUB #LIT 07600: 5653 0260 4263 6663 6212 5211 4314 4705 5643 0307 5660 1261 4215 4612 6714 4304 .+B0"3632J*I#L'E.#CG.0J1"M&J7L#D +0033 JLE #G0012 LDX 07620: 5611 0260 5263 6263 4260 5215 6211 6306 4304 4701 6243 4714 5724 0253 5660 1660 .IB0*323"0*M2I3F#D'A2#'L/TB+.0N0 0033,0 FLDA #LIT+0003 07640: 4215 4612 6706 2323 6301 5211 4215 6612 6212 3643 5660 0660 4264 4654 6714 4304 "M&J7FSS3A*I"M6J2J^#.0F0"4&,7L#D FSTA J #G0014, LDX 07660: 5611 0260 5263 6264 4260 5215 5215 1612 5661 3266 6254 3211 6314 0704 4211 6712 .IB0*324"0*M*MNJ.1Z62,ZI3LGD"I7J 0034,0 #166, FLDA J 07700: 6212 0611 4324 4730 4267 5215 6211 6306 4304 4701 6243 4714 5724 0253 5660 0260 2JFI#T'X"7*M2I3F#D'A2#'L/TB+.0B0 ATX 7 FLDA #LIT+0000 07720: 4215 4612 6706 2323 6301 4611 6301 2722 5701 0255 5660 1660 4254 6667 6212 3211 "M&J7FSS3A&I3AWR/AB-.0N0",672JZI FSTA IAREA-0003,7 F 07740: 6314 0704 4211 6712 6212 3211 6301 2304 6211 6243 5311 5724 5660 0260 4263 5215 3LGD"I7J2JZI3ASD2I2#+I/T.0B0"3*M LDA J FADD #LIT+0003 07760: 6611 1706 4324 4701 4312 5215 6611 1706 4325 4702 6243 4714 5724 0253 5660 3263 6IOF#T'A#J*M6IOF#U'B2#'L/TB+.0Z3 FSTA J FSUB #LIT+0036 Block: 0021 10000: 4215 4612 6312 2714 6211 3643 5660 0660 4264 5215 6211 2314 5730 0211 5660 2663 "M&J3JWL2I^#.0F0"4*M2ISL/XBI.0V3 JLE #G0014 LDX 0035 10020: 4254 6660 6212 3211 6314 0704 6211 6243 5311 5724 5660 0260 4260 5215 6611 1706 ",602JZI3LGD2I2#+I/T.0B0"0*M6IOF ,0 FLDA #LIT+0000 FS 10040: 4324 4701 6713 2717 4316 6724 6212 6211 4304 4730 5660 1660 5666 0254 4215 4612 #T'A7KWO#N7T2J2I#D'X.0N0.6B,"M&J TA KOUNT LDX 0036,0 10060: 6306 2314 5301 1611 6714 2311 5653 0260 4260 6660 6212 3211 6323 0724 6211 1711 3FSL+ANI7LSI.+B0"0602JZI3SGT2IOI FLDA #LIT+0000 FSTA IC 10100: 6317 7325 4324 5215 6211 2314 5730 0211 5660 3663 4254 6660 6212 3211 6314 0704 3O;U#T*M2ISL/XBI.0^3",602JZI3LGD OUNT LDX 0037,0 FLDA 10120: 6211 6243 5311 5724 5660 0260 4260 5215 6611 1706 4324 4701 6324 7703 6725 2316 2I2#+I/T.0B0"0*M6IOF#T'A3T?C7USN #LIT+0000 FSTA TCOUNT 10140: 4215 4612 6714 4304 5611 0260 5264 6260 4260 5215 6211 6306 4304 4701 6243 4714 "M&J7L#D.IB0*420"0*M2I3F#D'A2#'L LDX 0040,0 FLDA #LI 10160: 5724 0253 5660 0260 4215 4612 6706 2323 6701 2211 6713 2717 4316 6724 6212 6211 /TB+.0B0"M&J7FSS7ARI7KWO#N7T2J2I T+0000 FSTA TKOUNT L 10200: 4304 4730 5660 2260 5661 0254 4215 4612 6306 2314 5301 1611 6714 2311 5653 0260 #D'X.0R0.1B,"M&J3FSL+ANI7LSI.+B0 DX 0041,0 FLDA #LIT+00 10220: 4260 6660 6212 3211 6323 0724 6211 3312 6314 3701 4215 4612 6714 4304 5611 0260 "0602JZI3SGT2I[J3L_A"M&J7L#D.IB0 00 FSTA JFLAG LDX 00 10240: 5264 6262 4260 5215 6211 6306 4304 4701 6311 6306 4301 6707 6212 3211 6323 1325 *422"0*M2I3F#D'A3I3F#A7G2JZI3SKU 42,0 FLDA IFLAG FSUB 10260: 6211 6243 5311 5724 5660 0660 4261 5215 6211 7312 5305 1611 5707 0260 4261 6665 2I2#+I/T.0F0"1*M2I;J+ENI/GB0"165 #LIT+0011 JNE #G0015 10300: 6212 3211 6314 0704 6211 6243 5311 5724 5660 0260 4263 5215 6611 1706 4324 4701 2JZI3LGD2I2#+I/T.0B0"3*M6IOF#T'A FLDA #LIT+0003 FSTA 10320: 6312 6306 4301 6707 6212 3643 5660 0660 4265 4654 6714 4304 5611 0260 5264 6263 3J3F#A7G2J^#.0F0"5&,7L#D.IB0*423 JFLAG #G0015, LDX 0043, 10340: 4260 5215 6211 6306 4304 4701 6311 6306 4301 6707 6212 3211 6323 1325 6211 6243 "0*M2I3F#D'A3I3F#A7G2JZI3SKU2I2# 0 FLDA IFLAG FSUB #L 10360: 5311 5724 5660 0660 4261 5215 6211 2712 5321 1611 5661 2660 4215 4612 6714 4304 +I/T.0F0"1*M2IWJ+QNI.1V0"M&J7L#D IT+0011 JEQ #105 LDX Block: 0022 10400: 5611 0260 5264 6264 4260 5215 5215 1612 5261 6270 6611 1712 6322 1611 6310 2713 .IB0*424"0*M*MNJ*1286IOJ3RNI3HWK 0044,0 #18, JSR CHKE 10420: 4317 6706 6212 5211 5301 7211 5653 0260 4260 6664 6212 5211 6301 2611 4317 6706 #O7F2J*I+A:I.+B0"0642J*I3AVI#O7F OF JA .+0004 JA EOF 10440: 6212 6211 4304 4730 5660 2260 5665 0254 4215 4612 6705 2330 6305 7322 6611 1243 2J2I#D'X.0R0.5B,"M&J7ESX3E;R6IJ# LDX 0045,0 EXTERN #R 10460: 6305 2301 4317 5215 6611 1324 5701 1720 6611 1243 6305 2301 4317 5215 6211 0712 3ESA#O*M6IKT/AOP6IJ#3ESA#O*M2IGJ EADO TRAP3 #READO JA 10500: 6211 6243 5311 5724 5660 1660 4260 5215 6211 0712 5611 0643 5260 5661 4262 5215 2I2#+I/T.0N0"0*M2IGJ.IF#*0.1"2*M #LIT+0030 JA #101+2 10520: 6611 4305 6724 1305 5316 1611 6722 3323 4317 5215 6611 1324 5701 1720 6611 1243 6I#E7TKE+NNI7R[S#O*M6IKT/AOP6IJ# EXTERN #RSVO TRAP3 #R 10540: 6323 7726 4215 4612 6706 2323 6701 1611 6303 2317 4305 6661 6212 2611 6330 2724 3S?V"M&J7FSS7ANI3CSO#E612JVI3XWT SVO FSTA SCODE1 EXTE 10560: 4322 4716 6243 2722 6316 7704 4215 4612 6324 0722 4320 4663 6243 2722 6316 7704 #R'N2#WR3N?D"M&J3TGR#P&32#WR3N?D RN #RENDO TRAP3 #RENDO 10600: 4215 4612 6714 4304 5611 0260 5264 6266 4260 5215 5215 1612 5661 0660 6254 5211 "M&J7L#D.IB0*426"0*M*MNJ.1F02,*I LDX 0046,0 #101, J 10620: 5301 7211 5653 0260 4260 6664 5612 2611 5660 0661 4215 4612 5666 2664 4261 5215 +A:I.+B0"064.JVI.0F1"M&J.6V4"1*M A .+0004 5011 6451 10640: 6211 2314 5730 0211 5660 3664 4254 6660 4212 5215 5643 0261 4262 4654 4312 4701 2ISL/XBI.0^4",60"J*M.#B1"2&,#J'A LDX 0047,0 #102, JA 10660: 5656 0253 5660 3260 4215 4612 5665 3260 4262 5215 5611 0263 4265 6664 5612 0611 ..B+.0Z0"M&J.5Z0"2*M.IB3"564.JFI .+0006 5062 3054 1 10700: 5661 2266 4215 4612 5665 0261 4260 5215 6211 2314 5730 0211 5660 0265 4254 6660 .1R6"M&J.5B1"0*M2ISL/XBI.0B5",60 164 5100 LDX 0050,0 10720: 6212 2611 6330 2724 4322 4716 6643 1327 6311 7724 4215 4612 6324 0722 4320 4663 2JVI3XWT#R'N6#KW3I?T"M&J3TGR#P&3 EXTERN #WRITO TRAP3 10740: 6643 1327 6311 7724 4215 4612 4312 4701 6243 4714 5724 0253 5660 2261 4215 4612 6#KW3I?T"M&J#J'A2#'L/TB+.0R1"M&J #WRITO JA #LIT+0014 10760: 4312 4701 5643 0261 5662 1253 4215 4612 6306 2314 6701 1611 6303 2317 4305 6661 #J'A.#B1.2J+"M&J3FSL7ANI3CSO#E61 JA #102+2 FLDA SCODE1 Block: 0023 11000: 6212 2611 6330 2724 4322 4716 6643 1722 4326 6717 6612 2211 6722 0301 5263 1611 2JVI3XWT#R'N6#OR#V7O6JRI7RCA*3NI EXTERN #RSVO TRAP3 # 11020: 6722 3323 4317 5215 6611 4305 6724 1305 5316 1611 6322 7305 4304 6717 6612 2211 7R[S#O*M6I#E7TKE+NNI3R;E#D7O6JRI RSVO EXTERN #RENDO T 11040: 6722 0301 5263 1611 6322 7305 4304 6717 6212 6211 4304 4730 5660 2660 5661 0254 7RCA*3NI3R;E#D7O2J2I#D'X.0V0.1B, RAP3 #RENDO LDX 0051,0 11060: 4215 4612 6306 2314 5301 1611 6714 2311 5653 0260 4260 6663 6212 3211 6323 0724 "M&J3FSL+ANI7LSI.+B0"0632JZI3SGT FLDA #LIT+0003 FSTA 11100: 4211 6712 4212 5215 5643 0307 5660 3261 6254 6211 4304 4730 5660 2660 5662 0254 "I7J"J*M.#CG.0Z12,2I#D'X.0V0.2B, J #G0016, LDX 0052,0 11120: 4215 6612 5612 0643 4271 4654 6306 2314 6301 5211 4215 4612 6701 4324 4211 6667 "M6J.JF#"9&,3FSL3A*I"M&J7A#T"I67 #19, FLDA J ATX 7 11140: 6212 3211 6314 0704 6211 6243 5311 5724 5660 0260 4260 5215 6611 1706 4324 4701 2JZI3LGD2I2#+I/T.0B0"0*M6IOF#T'A FLDA #LIT+0000 FSTA 11160: 6320 7703 6304 0705 5655 0260 5260 6263 4267 5215 6211 6306 4304 4701 4312 5215 3P?C3DGE.-B0*023"7*M2I3F#D'A#J*M PCODEA-0003,7 FLDA J 11200: 6211 0706 4304 4704 6243 4714 5724 0253 5660 1660 4215 4612 6706 2323 6301 5211 2IGF#D'D2#'L/TB+.0N0"M&J7FSS3A*I FADD #LIT+0003 FSTA J 11220: 4215 4612 6706 2723 5302 1611 6714 2311 5653 0260 4263 6666 6212 5211 4314 4705 "M&J7FWS+BNI7LSI.+B0"3662J*I#L'E FSUB #LIT+0036 JLE 11240: 5643 0307 5660 3261 4215 4612 6714 4304 5611 0260 5265 6263 4260 5215 6211 6306 .#CG.0Z1"M&J7L#D.IB0*523"0*M2I3F #G0016 LDX 0053,0 FL 11260: 4304 4701 6305 3317 4215 4612 6706 2723 5302 1611 6714 2311 5653 0260 4260 6660 #D'A3E[O"M&J7FWS+BNI7LSI.+B0"060 DA EOF FSUB #LIT+0000 11300: 6212 5211 4305 4721 5643 0307 5660 3661 4215 4612 6306 2314 5301 1611 6714 2311 2J*I#E'Q.#CG.0^1"M&J3FSL+ANI7LSI JEQ #G0017 FLDA #LIT 11320: 5653 0260 4261 6661 6212 3211 6323 0724 6211 3311 6314 3701 5215 1612 5707 0260 .+B0"1612JZI3SGT2I[I3L_A*MNJ/GB0 +0011 FSTA IFLAG #G00 11340: 5261 6267 6211 2314 5730 0211 5660 2265 4254 6660 4212 5215 5643 0261 4265 4654 *1272ISL/XBI.0R5",60"J*M.#B1"5&, 17, LDX 0054,0 #105, 11360: 6306 2314 5301 1611 6714 2311 5653 0260 4262 6665 6212 2611 6330 2724 4322 4716 3FSL+ANI7LSI.+B0"2652JVI3XWT#R'N FLDA #LIT+0025 EXTERN Block: 0024 11400: 6243 2722 4327 5215 6611 1324 5701 1720 6611 1243 4305 6727 6212 6211 4304 4730 2#WR#W*M6IKT/AOP6IJ##E7W2J2I#D'X #REW TRAP3 #REW LDX 11420: 5660 2660 5665 0254 4215 4612 6705 2330 6305 7322 6611 1243 6305 2301 4317 5215 .0V0.5B,"M&J7ESX3E;R6IJ#3ESA#O*M 0055,0 EXTERN #READO 11440: 6611 1324 5701 1720 6611 1243 6305 2301 4317 5215 6211 0712 6211 6243 5311 5724 6IKT/AOP6IJ#3ESA#O*M2IGJ2I2#+I/T TRAP3 #READO JA #LIT+ 11460: 5660 1260 4265 5215 6211 0712 5611 0643 5261 5660 4262 5215 6211 6306 4304 4701 .0J0"5*M2IGJ.IF#*1.0"2*M2I3F#D'A 0025 JA #110+2 FLDA 11500: 6243 4714 5724 0253 5660 1660 4215 4612 6706 2323 6301 4611 4215 6612 6212 3643 2#'L/TB+.0N0"M&J7FSS3A&I"M6J2J^# #LIT+0003 FSTA I #G 11520: 5660 1260 4260 4654 6306 2314 6301 4611 4215 4612 6701 4324 4211 6667 6212 2611 .0J0"0&,3FSL3A&I"M&J7A#T"I672JVI 0020, FLDA I ATX 7 E 11540: 6330 2724 4322 4716 6643 1722 4326 6717 6612 2211 6722 0301 5263 1611 6722 3323 3XWT#R'N6#OR#V7O6JRI7RCA*3NI7R[S XTERN #RSVO TRAP3 #RSV 11560: 4317 5215 6611 1706 4324 4701 6724 2311 5314 6705 5660 0260 5663 3654 4215 4612 #O*M6IOF#T'A7TSI+L7E.0B0.3^,"M&J O FSTA TITLE-0003,7 11600: 6306 2314 6301 4611 4215 4612 6306 2301 5304 1611 6714 2311 5653 0260 4260 6663 3FSL3A&I"M&J3FSA+DNI7LSI.+B0"063 FLDA I FADD #LIT+0003 11620: 6212 3211 6323 0724 4211 6711 6212 3211 6323 1325 6211 6243 5311 5724 5660 3260 2JZI3SGT"I7I2JZI3SKU2I2#+I/T.0Z0 FSTA I FSUB #LIT+006 11640: 4266 5215 6211 6312 5305 1611 5707 0260 4262 6660 6212 2611 6330 2724 4322 4716 "6*M2I3J+ENI/GB0"2602JVI3XWT#R'N 6 JLE #G0020 EXTERN 11660: 6243 2722 6316 7704 4215 4612 6324 0722 4320 4663 6243 2722 6316 7704 4215 4612 2#WR3N?D"M&J3TGR#P&32#WR3N?D"M&J #RENDO TRAP3 #RENDO 11700: 6714 4304 5611 0260 5265 6266 4260 5215 5215 1612 5661 0261 6254 5211 5301 7211 7L#D.IB0*526"0*M*MNJ.1B12,*I+A:I LDX 0056,0 #110, JA . 11720: 5653 0260 4260 6665 5612 2611 5660 0267 4215 4612 5666 0260 4261 5215 5611 0666 .+B0"065.JVI.0B7"M&J.6B0"1*M.IF6 +0005 5070 6001 61 11740: 4265 6661 6212 6211 4304 4730 5660 2660 5667 0254 4215 4612 6306 2314 5301 1611 "5612J2I#D'X.0V0.7B,"M&J3FSL+ANI 51 LDX 0057,0 FLDA # 11760: 6714 2311 5653 0260 4260 6660 6212 3211 6323 0724 6611 0312 4215 4612 6714 4304 7LSI.+B0"0602JZI3SGT6ICJ"M&J7L#D LIT+0000 FSTA JP LDX Block: 0025 12000: 5601 3336 4561 5777 1376 3000 1044 1375 7510 1374 1176 7110 7040 3002 7060 1041 .A[^%1/?K>X@H$K==HK<I>9H8 XB80H! ^6q ~ &$}"H|r~H. f0!b 12020: 7004 1373 3001 6201 1401 6211 2002 5246 0156 1234 3233 5637 5635 3265 3200 3400 8DK;XA2ALA2IPB*&A.J\Z[._.]Z5Z@\@ {b l < &Jn k 56 g 12040: 3260 3270 3251 3251 3251 3251 7010 7012 5226 1073 1074 3275 7201 1060 3054 2000 Z0Z8Z)Z)Z)Z)8H8J*VH;H<Z=:AH0X,P@ 08f))f))f n ;"<=& 0b, d 12060: 1426 0372 1000 3426 5601 1371 3426 2033 4551 1045 3447 4770 5601 0000 5553 7551 LVC:H@\V.AK9\VP[%)H%\''8.A@@-+=) z0 ' y2 ti% 'xy 0ki? 12100: 2222 7221 0545 7551 5555 7551 5553 7551 5555 7551 5555 7551 5555 7451 4505 7551 RR:QE%=)--=)-+=)--=)--=)--<)%E=) Nei mi?ki?mi?mi?m)?Ei 12120: 3706 7346 1767 7640 5766 1774 7710 2040 7344 3042 4765 5720 1042 4201 5332 1525 _F;&O7> /6O<?HP ;$X"'5/PH""A+ZMU Ff~w ?v|3H td"fuP " (ZU# 12140: 1424 4023 0503 2400 1726 0522 4003 1722 0500 1726 0522 4011 1501 0700 1617 4015 LT SECT@OVER CORE@OVER IMAG@NO M 8C VR1 R @V R A@1 8 12160: 0111 1600 0274 0002 7753 1000 2453 0000 4525 0011 7760 3276 0002 7771 0005 3425 AIN@B<@B?+H@T+@@%U@I?0Z>@B?9@E\U I < k r+ PU p>v y 12200: 3041 7346 1044 7450 5335 1236 7700 5225 1426 0162 7041 3000 1060 0162 7450 5225 X!;&H$<(+]J^?@*ULVA28!X@H0A2<(*U !fn$(/] "@ z r0! f0r ( z 12220: 1000 7650 5225 2030 7330 3041 1044 1377 3000 5400 5276 5274 5335 5243 7774 7771 H@>(*UPX;XX!H$K?X@,@*>*<+]*#?<?9 (/ $X!f$" k><*]#*|y 12240: 5334 5332 5330 1060 0162 7650 5335 1547 3000 1546 3001 7100 1443 1001 3546 7004 +\+Z+XH0A2>(+]M'X@M&XA9@L#HA]&8D \Z*X0"r( ]g# fc @n# 2f ~ 12260: 1442 1000 3547 1000 3442 1001 3443 1026 7001 3447 1160 3047 1060 5342 1060 0162 L"H@]'H@\"HA\#HV8A\'I0X'H0+"H0A2 " 2g r" r# r 'gp'&0b*0r 12300: 7650 5274 1447 4550 7240 1047 3000 7346 1400 7450 5274 1236 7650 5342 7100 1446 >(*<L'%(: H'X@;&L@<(*<J^>(+"9@L& (<z'h9 'b fn (?< "(bz@&c 12320: 1443 3443 7004 1445 0156 1442 3442 5272 2033 5335 2032 5335 2034 1026 7001 3447 L#\#8DL%A.L"\"*:P[+]PZ+]P\HV8A\' ##7 %cn" ":z ]J ]J B 'g 12340: 1376 3047 1044 1041 3426 4551 3000 1447 1375 1237 2000 7500 5351 7240 1000 7106 K>X'H$H!\V%)X@L'K=J_P@=@+): H@9F ~'&$!" iy 'c} " @Oi . F. 12360: 7004 1442 3445 1443 3446 5766 3200 6031 5761 5772 4045 7561 5452 5341 2152 3431 8DL"\%L#\&/6Z@0Y/1/: %=1,*+!Q*\Y "c%#s&v{ lqz;%q *a:j G Block: 0026 12400: 3410 2317 5200 4777 4776 4775 4774 5204 1316 7650 5773 1023 3026 1025 3027 4772 \HSO*@'?'>'='<*DKN>(/;HSXVHUXW': Ot )~} | N(/{ 2 b zi 12420: 5223 4772 1355 3022 3331 3353 3053 3050 5243 1011 0177 1371 3011 4770 2356 5244 *S':K-XR[Y[+X+X(*#HIA?K9XI'8S.*$ z)m &Ykf+(f# "y xin$J 12440: 1022 7640 5221 4320 1177 1026 3010 7346 3000 6221 1411 6211 7040 7450 5221 7001 HR> *Q#PI?HVXH;&X@2QLI2I8 <(*Q8A / P( " fn l < (o . 12460: 1410 7640 5231 2000 5251 4770 7240 1025 3010 1767 3410 1050 3410 1766 1053 3410 LH> *YP@*)'8: HUXHO7\HH(\HO6H+\H ? $)x) b wc (r vs+ ' 12500: 2061 1026 3353 4776 3060 4775 1163 1025 3025 1353 3026 2354 5221 5773 0001 0000 P1HV[+'>X0'=I3HUXUK+XVS,*Q/;@A@@ 1 Bk~i0}is " kb ld {+ 12520: 3644 1022 7640 5344 6201 4575 6172 2420 0000 0000 1331 7041 1353 3000 1365 2000 ^$HR> +$2A%=1:TP@@@@KY8!K+X@K5P@ $ r dz }Iz E Y!.k &u $ 12540: 5336 3357 1331 3353 1357 3356 7240 1330 3011 6211 5720 2544 7531 0001 7646 7600 +^[/KY[+K/[.: KXXI2I/PU$=Y@A>&>@ ^o&Yk&on& Xb lPd5Y p& 12560: 3145 5434 4245 0214 5200 7700 6174 6172 4545 0002 4562 4000 1022 3320 2421 1133 Y%,\"%BL*@?@1<1:%%@B%2 @HR[PTQI[ e k% @/|zLe r P& [R 12600: 1030 7650 5214 1377 4561 1176 3426 2026 2026 1030 7106 3426 4776 1023 3026 4554 HX>(*LK?%1I>\VPVPVHX9F\V'>HSXV%, (/ "q~ t BF g~ li 12620: 5227 7346 1426 7110 7650 4775 5217 7240 3417 1056 3774 1057 3773 1057 7100 1165 *W;&LV9H>('=*O: \OH._<H/_;H/9@I5 f. H>(}y . .r|/r{/r@ub 12640: 0157 7430 2056 3057 7201 3062 1372 3771 1370 3013 7201 3413 1367 3413 7240 1056 A/<XP.X/:AX2K:_9K8XK:A\KK7\K: H. o ./F 2fzy'x & gw ' .b 12660: 7110 1057 7004 7006 7006 3000 7201 3413 1000 3413 1000 1062 3062 2771 1366 2326 9HH/8D8F8FX@:A\KH@\KH@H2X2W9K6SV H/b n f g ' 2"2yevV$ 12700: 4561 5327 4775 2026 1413 7041 3000 1426 0156 7106 7004 2026 1426 3413 1062 3413 %1+W'=PVLK8!X@LVA.9F8DPVLV\KH2\K qW } !> cnF d 72 ' 12720: 1065 3413 1065 2000 5322 5273 0000 7200 1023 3026 4554 5765 4551 1445 0152 7450 H5\KH5P@+R*;@@:@HSXV%,/5%)L%A*<( 5 '5 $R;* &lu i% j( 12740: 5332 3042 1042 7112 7170 1042 1364 4564 1443 7100 1446 3446 7004 1445 0156 1442 +ZX"H"9J98H"K4%4L#9@L&\&8DL%A.L" Z"&"J.x"btt)#@>&&7 %cn" 12760: 3445 5332 4555 7004 2440 4200 2050 0010 7206 2052 1460 5436 5435 4451 4400 2043 \%+Z%-8DT "@P(@H:FP*L0,^,]$)$@P# %Zzm X( @ *d0 ; )9 # Block: 0027 13000: 1056 3777 1057 3776 1054 7450 5216 3060 6201 1775 3074 6211 4566 3337 1374 4561 H._?H/_>H,<(*NX02AO=X<2I%6[_K<%1 .'/~',(/ 0& }C< lv_ |q) 13020: 7410 5224 4566 3356 1037 7440 1026 3037 6201 1773 3772 6211 2026 1426 3771 2026 <H*T%6[.H_< HVX_2AO;_:2IPVLV_9PV zvn / & {Cz | Cy t 13040: 1426 3770 1040 3767 6201 1766 4575 1062 7106 7530 7200 7006 7430 7200 1766 6212 LV_8H _72AO6%=H29F=X:@8F<X:@O62J x7 w' vC}2 FXo n ~v < 13060: 4420 0003 5667 7702 5765 1062 7120 1263 7670 5274 4566 3351 1062 3764 1363 3010 $P@C.7?B/5H29PJ3>8*<%6[)H2_4K3XH 7B?u22P3b8<zvi 2t's & 13100: 1766 6211 0170 3410 1062 3410 1262 3410 6201 4575 2143 4210 7200 0001 6211 1362 O62IA8\HH2\HJ2\H2A%=Q#"H:@@A2IK2 v <x 2 '2 ' }Ic H ` rB 13120: 3011 1361 3010 1152 3000 1410 3066 1066 7112 7010 0156 3411 1066 0157 3411 1410 XIK1XHI*X@LHX6H69J8HA.\IH6A/\ILH qb jb c66bJ nn 6o s 13140: 3411 1410 3411 2010 2000 5325 1360 3066 7240 3031 5753 2000 3022 1411 3032 6201 \ILH\IPHP@+UK0X6: XY/+P@XRLIXZ2A s t UJp6& fk 4 c l 13160: 7200 7207 7177 2142 2046 1551 0501 7206 7202 7201 1465 1524 2062 3275 7204 7203 :@:G9?Q"P&M)EA:F:B:AL5MTP2Z=:D:C nbd&iCA n5T32=F n 13200: 4015 1032 7640 4221 1033 7650 5211 7240 4221 1034 7650 5600 1152 3035 7201 4221 MHZ> "QH[>(*I: "QH\>(.@I*X]:A"Q x (/ . ( {j & h 13220: 5600 0000 1152 3250 1023 3026 4554 5621 1250 1426 7640 5226 4551 1446 1377 0376 .@@@I*Z(HSXV%,.QJ(LV> *V%)L&K?C> 0j(& &l ( # zi& ~ 13240: 3446 4775 1035 1056 7750 5226 4566 3344 0000 4026 4551 1446 0157 7104 1445 7006 \&'=H]H.?(*V%6[$@@ V%)L&A/9DL%8F &}y ."h zvd i& oD % > 13260: 7006 3065 1446 7100 1057 3076 1057 3446 1076 3057 7004 1445 1056 3076 1076 0152 8FX5L&9@H/X>H/\&H>X/8DL%H.X>H>A* 5f&@>/>&/&'>/& %c.>&>j 13300: 7640 5246 1056 3445 1076 3056 5651 1114 1547 1060 3417 1546 3417 1147 4564 1560 > *&H.\%H>X..)ILM'H0\OM&\OI'%4M0 &z.%'>.&)L2g02 fs grtp 13320: 4550 4325 3443 3442 5707 4522 1442 7141 1445 7640 5336 1443 7141 1446 7630 5725 %(#U\#\"/G%RL"9!L%> +^L#9!L&>X/U hU #"wGR9"a>% ?^##a&c U{ 13340: 1442 3445 1443 3446 5725 3666 6221 1411 6211 7450 5745 3000 1050 1053 3053 1000 L"\%L#\&/U^62QLI2I<(/%X@H(H+X+H@ "%7#&7U67 C (Oe 6(+"+ b 13360: 3050 5745 3622 4554 5774 1426 0170 7112 7640 5363 5762 1103 4000 4451 7600 0177 X(/%^R%,/<LVA89J> +3/2IC @$)>@A? (ek ly| 3xJ szrC2 ) p Block: 0030 13400: 0000 0000 0000 0000 1036 1071 7140 1070 0000 0000 0000 0000 0000 0000 0000 5434 @@@@@@@@H^H99 H8@@@@@@@@@@@@@@,\ 9"`8b 13420: 0200 1600 0000 2436 0000 0000 0000 0000 0000 0000 0000 0000 0000 7777 7777 7774 B@N@@@T^@@@@@@@@@@@@@@@@@@?????< | 13440: 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 7247 0001 0000 @@@@@@@@@@@@@@@@@@@@@@@@@@:'@A@@ ' 13460: 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0041 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@! ! 13500: 1176 0334 6601 0244 0212 0215 7605 7700 0100 0336 0337 0202 6466 1024 0263 7443 I>C\6AB$BJBM>E?@A@C^C_BB46HTB3<# ~\ $P @@^ _ 6 R3# 13520: 0340 0251 7527 0611 0250 7761 7540 1002 7731 1112 1325 7725 0012 7506 0032 1347 C B)=WFIB(?1= HB?YIJKU?U@J=F@ZK' `) W q(q ` rYJrUU/ F g 13540: 0601 7760 0400 0004 7772 0077 2147 2146 0252 0245 7770 2704 1324 1744 0007 7400 FA?0D@@D?:@?Q'Q&B*B%?8WDKTO$@G<@ p z?pgfD*% xDuTd# 13560: 2150 1200 3400 0003 1316 0377 0446 0527 0017 7605 0400 0240 0077 0600 0004 7774 Q(J@\@@CKNC?D&EW@O>ED@B @?F@@D?< h B pN &W ? | 13600: 2202 5602 4601 0000 3237 4777 1055 3240 2240 1640 3241 2240 1640 7550 5243 1177 RB.B&A@@Z_'?H-Z R N Z!R N =(*#I? K i- & C! d h?#" 13620: 7500 7200 1176 7112 7012 7012 1237 6201 1776 1375 3237 1070 3240 4575 2143 0000 =@:@I>9J8J8JJ_2AO>K=Z_H8Z %=Q#@@ @ ~~J. n ,~}2 8b }ic @ 13640: 0000 0000 6211 7200 5603 0000 7201 1026 4252 5645 0000 3045 7201 1045 3046 5652 @@@@2I:@.C@@:AHV"*.%@@X%:AH%X&.* N 0 b*% % %b&*k 13660: 1114 1405 0701 1440 1722 1107 1116 0000 1726 0522 4023 3115 0200 1417 0104 0522 ILLEGAL ORIGIN@@OVER SYMB@LOADER L #A RG2N VR1 M DR 13700: 4011 5717 4005 2222 1722 0000 1723 5770 4005 1624 0522 4005 2222 1722 0000 5216 I/O ERROR@@OS/8 ENTER ERROR@@*N O R 0Sx; R RC 13720: 1025 3033 2037 5563 1026 5226 6041 5326 6042 6213 1052 3560 1053 3557 1054 5600 HUX[P_-3HV*V0!+V0"2KH*]0H+]/H,.@ & sK *!VJ" L*p'+o', + 13740: 4000 1260 3366 3022 3201 4001 7420 5372 3020 7346 3040 1201 7104 3023 1022 7004 @J0[6XRZA A<P+:XP;&X JA9DXSHR8D 0 v f h zz fn bD f . 13760: 7510 5563 3022 1023 2040 5354 1201 1201 1020 5344 1156 3040 1201 1577 2721 2666 =H-3XRHSP +,JAJAHP+$I.X JAM?WQV6 Hs{ b lJ " d*n & #Q6U Block: 0031 14000: 5314 1611 6714 2311 5653 0260 4261 6661 6212 3211 6301 2304 6211 6243 5311 5724 +LNI7LSI.+B0"1612JZI3ASD2I2#+I/T L #LIT+0011 FADD #LIT+ 14020: 5660 0660 4261 5215 6611 2301 5730 1211 4215 4612 6705 2330 6305 7322 6611 1243 .0F0"1*M6ISA/XJI"M&J7ESX3E;R6IJ# 0011 ATX 2 EXTERN #R 14040: 6323 7726 4215 4612 6324 0722 4320 4663 6643 1722 4326 6717 6212 3211 6323 0724 3S?V"M&J3TGR#P&36#OR#V7O2JZI3SGT SVO TRAP3 #RSVO FSTA 14060: 6611 1304 5325 6707 5660 0660 5664 1254 4215 4612 6306 2314 5301 1611 6714 2311 6IKD+U7G.0F0.4J,"M&J3FSL+ANI7LSI DRUG-0014,2 FLDA #LIT 14100: 5653 0260 4260 6666 6212 3211 6315 6325 6211 6243 5311 5724 5660 0660 4261 5215 .+B0"0662JZI3M3U2I2#+I/T.0F0"1*M +0006 FMUL #LIT+0011 14120: 6211 0706 4304 4704 6243 4714 5724 0253 5660 0661 4215 4612 6701 4324 4211 6661 2IGF#D'D2#'L/TB+.0F1"M&J7A#T"I61 FADD #LIT+0011 ATX 1 14140: 6212 2611 6330 2724 4322 4716 6643 1722 4326 6717 6612 2211 6722 0301 5263 1611 2JVI3XWT#R'N6#OR#V7O6JRI7RCA*3NI EXTERN #RSVO TRAP3 # 14160: 6722 3323 4317 5215 6611 1706 4324 4701 6704 2722 5707 0255 5660 2261 4254 6661 7R[S#O*M6IOF#T'A7DWR/GB-.0R1",61 RSVO FSTA DRUG-0014,1 14200: 6212 2611 6330 2724 4322 4716 6243 2722 6316 7704 4215 4612 6324 0722 4320 4663 2JVI3XWT#R'N2#WR3N?D"M&J3TGR#P&3 EXTERN #RENDO TRAP3 14220: 6243 2722 6316 7704 4215 4612 6714 4304 5611 0260 5266 6265 4260 5215 6211 6306 2#WR3N?D"M&J7L#D.IB0*625"0*M2I3F #RENDO LDX 0065,0 FL 14240: 4304 4701 6305 3317 4215 4612 6706 2723 5302 1611 6714 2311 5653 0260 4260 6660 #D'A3E[O"M&J7FWS+BNI7LSI.+B0"060 DA EOF FSUB #LIT+0000 14260: 6212 2611 6330 2724 4322 4716 6243 2716 4215 4612 6312 0723 6211 7243 4305 5215 2JVI3XWT#R'N2#WN"M&J3JGS2I:##E*M EXTERN #NE JSA #NE 14300: 6611 1706 4324 4701 6243 6724 5720 0253 5660 0260 4215 4612 6306 2314 6301 5211 6IOF#T'A2#7T/PB+.0B0"M&J3FSL3A*I FSTA #TMP+0000 FLDA J 14320: 6306 0714 4307 5215 6611 1706 4325 4702 6243 4714 5724 0253 5660 0260 4215 4612 3FGL#G*M6IOF#U'B2#'L/TB+.0B0"M&J FLAG FSUB #LIT+0000 14340: 6705 2330 6305 7322 6211 2643 4321 5215 6611 1712 5301 1611 4305 6721 6212 3211 7ESX3E;R2IV##Q*M6IOJ+ANI#E7Q2JZI EXTERN #EQ JSA #EQ F 14360: 6315 6325 6611 2243 5315 5720 5660 0260 4260 5215 6211 7312 5305 1611 4262 5215 3M3U6IR#+M/P.0B0"0*M2I;J+ENI"2*M MUL #TMP+0000 JNE #2 Block: 0032 14400: 6211 2314 5730 0211 5660 3266 4254 6660 6212 3211 6314 0704 6211 7705 4306 5215 2ISL/XBI.0Z6",602JZI3LGD2I?E#F*M LDX 0066,0 FLDA EOF 14420: 6611 1706 4325 4702 6243 4714 5724 0253 5660 0260 4215 4612 6312 2716 5611 4643 6IOF#U'B2#'L/TB+.0B0"M&J3JWN.I&# FSUB #LIT+0000 JNE #9 14440: 4266 5215 6211 2314 5730 0211 5660 3666 4254 6660 4212 5215 5643 0671 4261 4654 "6*M2ISL/XBI.0^6",60"J*M.#F9"1&, 6 LDX 0067,0 #911, 14460: 4312 4701 5656 0253 5660 3260 4215 4612 5665 3260 4262 5215 5611 0263 4265 6664 #J'A..B+.0Z0"M&J.5Z0"2*M.IB3"564 JA .+0006 5062 3054 14500: 5612 0611 5661 2266 4215 4612 5665 0261 4260 5215 6211 2314 5730 0211 5660 0267 .JFI.1R6"M&J.5B1"0*M2ISL/XBI.0B7 1164 5100 LDX 0070 14520: 4254 6660 6212 3211 6314 0704 6211 3311 6314 3701 4215 4612 6706 2723 5302 1611 ",602JZI3LGD2I[I3L_A"M&J7FWS+BNI ,0 FLDA IFLAG FSUB # 14540: 6714 2311 5653 0260 4261 6661 6212 5211 4305 4721 5643 0663 4215 4612 6714 4304 7LSI.+B0"1612J*I#E'Q.#F3"M&J7L#D LIT+0011 JEQ #31 LDX 14560: 5611 0260 5267 6261 4260 5215 6211 6306 4304 4701 6323 7703 5704 1305 4215 4612 .IB0*721"0*M2I3F#D'A3S?C/DKE"M&J 0071,0 FLDA SCODE2 14600: 6706 2723 6702 1611 6303 2317 4305 6661 6212 5211 4314 4724 5643 0262 4215 4612 7FWS7BNI3CSO#E612J*I#L'T.#B2"M&J FSUB SCODE1 JLT #20 14620: 6712 0705 5611 1243 4261 6661 6212 5211 5301 1611 4262 6660 6212 6211 4304 4730 7JGE.IJ#"1612J*I+ANI"2602J2I#D'X JEQ #211 JA #20 LDX 14640: 5660 3660 5662 0254 4215 6612 5612 1243 5261 6261 6211 6306 4304 4701 4312 6720 .0^0.2B,"M6J.JJ#*1212I3F#D'A#J7P 0072,0 #211, FLDA JP 14660: 6212 3211 6301 2304 6211 6243 5311 5724 5660 0260 4263 5215 6611 1706 4324 4701 2JZI3ASD2I2#+I/T.0B0"3*M6IOF#T'A FADD #LIT+0003 FSTA 14700: 4312 6720 6212 6211 4304 4730 5660 3660 5663 0254 4215 4612 6306 2314 5301 1611 #J7P2J2I#D'X.0^0.3B,"M&J3FSL+ANI JP LDX 0073,0 FLDA # 14720: 6714 2311 5653 0260 4260 6663 6212 3211 6323 0724 6211 3312 6314 3701 4215 4612 7LSI.+B0"0632JZI3SGT2I[J3L_A"M&J LIT+0003 FSTA JFLAG 14740: 6714 4304 5611 0260 5267 6264 4260 5215 6211 6306 4304 4701 4312 6720 6212 3211 7L#D.IB0*724"0*M2I3F#D'A#J7P2JZI LDX 0074,0 FLDA JP F 14760: 6323 1325 6211 6243 5311 5724 5660 0260 4263 5215 6211 7312 5305 1611 5707 0260 3SKU2I2#+I/T.0B0"3*M2I;J+ENI/GB0 SUB #LIT+0003 JNE #G00 Block: 0033 15000: 4262 6662 6212 3211 6314 0704 6211 6243 5311 5724 5660 0260 4263 5215 6611 2301 "2622JZI3LGD2I2#+I/T.0B0"3*M6ISA 22 FLDA #LIT+0003 AT 15020: 5730 3611 4215 4612 6306 2314 6701 0211 6303 2317 4305 5215 6611 1706 4324 4701 /X^I"M&J3FSL7ABI3CSO#E*M6IOF#T'A X 7 FLDA PCODE FSTA 15040: 6320 7703 6304 0705 5655 0260 5260 6263 4267 5215 5643 0307 5660 1262 6254 6211 3P?C3DGE.-B0*023"7*M.#CG.0J22,2I PCODEA-0003,7 #G0022, L 15060: 4304 4730 5660 3660 5665 0254 4215 4612 6306 2314 6301 5211 4320 6720 6212 0611 #D'X.0^0.5B,"M&J3FSL3A*I#P7P2JFI DX 0075,0 FLDA JPP A 15100: 4324 4730 4267 5215 6211 6306 4304 4701 6320 7703 6304 0705 5655 0260 5260 6263 #T'X"7*M2I3F#D'A3P?C3DGE.-B0*023 TX 7 FLDA PCODEA-0003, 15120: 4267 5215 6611 1706 4325 4702 6320 7703 4304 6705 6212 5211 4314 4724 5643 0662 "7*M6IOF#U'B3P?C#D7E2J*I#L'T.#F2 7 FSUB PCODE JLT #21 15140: 4215 4612 6712 0705 5611 1243 4263 5215 6211 0712 5611 1243 4261 5215 6211 2314 "M&J7JGE.IJ#"3*M2IGJ.IJ#"1*M2ISL JEQ #23 JA #21 LD 15160: 5730 0211 5660 3267 4254 6660 4212 5215 5643 1261 4260 4654 4312 4701 5656 0253 /XBI.0Z7",60"J*M.#J1"0&,#J'A..B+ X 0076,0 #120, JA .+0 15200: 5660 0263 4215 4612 5665 3260 4261 5215 5611 0263 4265 6664 5612 0611 5661 2266 .0B3"M&J.5Z0"1*M.IB3"564.JFI.1R6 030 5061 3054 1164 15220: 4215 4612 5665 0664 4261 5215 5611 1666 4265 6664 5612 0611 5661 0666 4215 4612 "M&J.5F4"1*M.IN6"564.JFI.1F6"M&J 5411 6354 1161 15240: 5665 0664 4261 5215 5611 3266 4265 6664 5612 0611 5661 0666 4215 4612 5665 3264 .5F4"1*M.IZ6"564.JFI.1F6"M&J.5Z4 5411 6654 1161 546 15260: 4261 5215 5611 0263 4265 6664 5612 3211 5662 0661 4215 4612 5666 2663 4264 5215 "1*M.IB3"564.JZI.2F1"M&J.6V3"4*M 1 3054 6211 6354 15300: 5611 0661 4266 6662 5612 2611 5664 2666 4215 4612 5661 3261 4261 5215 5611 2265 .IF1"662.JVI.4V6"M&J.1Z1"1*M.IR5 1162 5465 1161 54 15320: 4266 6663 5612 1611 5660 2265 4215 4612 5666 0663 4261 5215 5611 1666 4265 6664 "663.JNI.0R5"M&J.6F3"1*M.IN6"564 63 3054 6311 6354 15340: 5612 3211 5667 0661 4215 4612 5666 2661 4261 5215 6211 2314 5730 0211 5660 3667 .JZI.7F1"M&J.6V1"1*M2ISL/XBI.0^7 6711 6151 LDX 0077 15360: 4254 6660 4212 5215 5643 0662 6254 3211 6314 0704 6611 0312 4320 5215 6211 0706 ",60"J*M.#F22,ZI3LGD6ICJ#P*M2IGF ,0 #21, FLDA JPP FA Block: 0034 15400: 4304 4704 6243 4714 5724 0253 5660 1660 4215 4612 6706 2323 6301 5211 4320 6720 #D'D2#'L/TB+.0N0"M&J7FSS3A*I#P7P DD #LIT+0003 FSTA JPP 15420: 6212 6211 4304 4730 5660 0261 5660 0254 4215 4612 6306 2314 6301 5211 4320 6720 2J2I#D'X.0B1.0B,"M&J3FSL3A*I#P7P LDX 0100,0 FLDA JPP 15440: 6212 3211 6323 1325 6211 6243 5311 5724 5660 1660 4266 5215 6211 6312 5305 1611 2JZI3SKU2I2#+I/T.0N0"6*M2I3J+ENI FSUB #LIT+0036 JLE # 15460: 5707 0260 4262 6663 6212 3211 6314 0704 6211 6243 5311 5724 5660 1660 4266 5215 /GB0"2632JZI3LGD2I2#+I/T.0N0"6*M G0023 FLDA #LIT+0036 15500: 6611 1706 4324 4701 6712 0320 5215 1612 5707 0260 5262 6263 6211 2314 5730 0211 6IOF#T'A7JCP*MNJ/GB0*2232ISL/XBI FSTA JPP #G0023, LDX 0 15520: 5661 0660 4254 6660 6212 3211 6314 0704 6611 0312 4320 5215 6611 2301 5730 3611 .1F0",602JZI3LGD6ICJ#P*M6ISA/X^I 101,0 FLDA JPP ATX 7 15540: 4215 4612 6306 2314 6701 0211 6303 2317 4305 5215 6611 1706 4324 4701 6320 7703 "M&J3FSL7ABI3CSO#E*M6IOF#T'A3P?C FLDA PCODE FSTA PCO 15560: 6304 0705 5655 0260 5260 6263 4267 5215 6211 2314 5730 0211 5661 1260 4254 6660 3DGE.-B0*023"7*M2ISL/XBI.1J0",60 DEA-0003,7 LDX 0102,0 15600: 6212 5211 5301 1611 4262 6663 6212 6211 4304 4730 5660 0261 5663 0254 4215 6612 2J*I+ANI"2632J2I#D'X.0B1.3B,"M6J JA #23 LDX 0103,0 15620: 5612 1243 4263 4654 6306 2314 6301 4611 4320 5215 6211 0706 4304 4704 6243 4714 .JJ#"3&,3FSL3A&I#P*M2IGF#D'D2#'L #23, FLDA IP FADD #LI 15640: 5724 0253 5660 1660 4215 4612 6706 2323 6301 4611 4320 5215 6211 2314 5730 0211 /TB+.0N0"M&J7FSS3A&I#P*M2ISL/XBI T+0003 FSTA IP LDX 0 15660: 5661 2260 4254 6660 6212 3211 6314 0704 6611 0311 4215 4612 6706 2723 5302 1611 .1R0",602JZI3LGD6ICI"M&J7FWS+BNI 104,0 FLDA IP FSUB # 15700: 6714 2311 5653 0260 4260 6663 6212 5211 4316 4705 5643 0307 5660 2262 4215 4612 7LSI.+B0"0632J*I#N'E.#CG.0R2"M&J LIT+0003 JNE #G0024 15720: 6306 2314 5301 1611 6714 2311 5653 0260 4260 6663 6212 0611 4324 4730 4267 5215 3FSL+ANI7LSI.+B0"0632JFI#T'X"7*M FLDA #LIT+0003 ATX 7 15740: 6211 6306 4304 4701 4311 6701 6212 3211 6323 0724 6211 0711 6322 0705 5655 0260 2I3F#D'A#I7A2JZI3SGT2IGI3RGE.-B0 FLDA IA FSTA IAREA-00 15760: 5260 6263 4267 5215 5643 0307 5660 2262 6254 6211 4304 4730 5660 0261 5665 0254 *023"7*M.#CG.0R22,2I#D'X.0B1.5B, 03,7 #G0024, LDX 0105,0 Block: 0035 16000: 0000 0000 0004 2600 0000 0003 2400 0000 0006 2500 0000 0000 0000 0000 0000 0000 @@@@@DV@@@@CT@@@@FU@@@@@@@@@@@@@ P @ 16020: 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 16040: 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 16060: 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 16100: 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 16120: 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 16140: 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 16160: 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 16200: 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 16220: 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0002 2000 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@BP@ 16240: 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 16260: 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 16300: 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 16320: 1032 6333 0310 1305 1706 0000 0000 0000 0000 0000 0000 0006 0210 6402 6366 0200 HZ3[CHKEOF@@@@@@@@@@@@@FBH4B36B@ [,HE F 0 v @ 16340: 1112 6325 1102 6330 6200 0101 0001 0610 6200 1032 6360 0000 0000 0040 1032 6325 IJ3UIB3X2@AA@AFH2@HZ30@@@@@ HZ3U JU,BX, A@ Bp @ U, 16360: 0200 6400 0016 0005 0002 6600 1032 6366 1032 7157 0000 0000 0000 0000 0000 0000 B@4@@N@E@B6@HZ36HZ9/@@@@@@@@@@@@ v, o. Block: 0036 16400: 0000 0000 1725 2420 2524 1102 6372 1112 6413 1032 6414 0000 0000 0000 0000 0000 @@@@OUTPUTIB3:IJ4KHZ4L@@@@@@@@@@ U 5TBRzJB R P 16420: 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0001 2000 0000 0000 @@@@@@@@@@@@@@@@@@@@@@@@@AP@@@@@ 16440: 0000 0000 0000 0040 1032 6405 0040 0000 0000 0000 0000 0000 4040 4040 4040 0000 @@@@@@@ HZ4E@ @@@@@@@@@@ @@ - 16460: 0000 0000 0000 0000 0002 2000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 @@@@@@@@@BP@@@@@@@@@@@@@@@@@@@@@ 16500: 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 6060 6060 4040 @@@@@@@@@@@@@@@@@@@@@@@@@@0000 0 0 H 16520: 6060 6040 4040 6040 4040 4040 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 000 0 @@@@@@@@@@@@@@@@@@@@ 0 L 16540: 0000 0000 0000 0000 0000 0000 0000 0000 0001 2000 0000 0002 2000 0000 0002 3000 @@@@@@@@@@@@@@@@@AP@@@@BP@@@@BX@ @ 16560: 0000 0003 2000 0000 0003 3000 0000 0003 3400 0000 0004 2000 0000 0004 2200 0000 @@@CP@@@@CX@@@@C\@@@@DP@@@@DR@@@ @ p @ 16600: 0004 2400 0000 0004 3000 0000 0004 3600 0000 0006 3100 0000 0007 2400 0000 0011 @DT@@@@DX@@@@D^@@@@FY@@@@GT@@@@I ` @ ` 16620: 3720 0000 0011 3724 0000 0012 2114 0000 0007 3100 0000 0000 1031 0525 0000 1032 _P@@@I_T@@@JQL@@@GY@@@@@HYEU@@HZ P p T L @ @ U! 16640: 2405 0000 1032 6666 0000 1032 6243 0000 1032 6666 0000 1032 7075 0000 1032 2253 TE@@HZ66@@HZ2#@@HZ66@@HZ8=@@HZR+ P 6- # @ 6- = ` +$ 16660: 0000 0000 0003 0000 0000 0025 0000 0000 0036 0000 0000 0000 0000 0000 0000 0000 @@@@@C@@@@@U@@@@@^@@@@@@@@@@@@@@ 16700: 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0001 2000 0000 0000 0000 0000 @@@@@@@@@@@@@@@@@@@@@AP@@@@@@@@@ 16720: 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 16740: 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 16760: 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Block: 0037 17000: 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 17020: 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 17040: 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 17060: 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 17100: 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 17120: 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 17140: 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 1032 6447 0006 @@@@@@@@@@@@@@@@@@@@@@@@@@HZ4'@F ' P 17160: 0210 6402 6447 0200 1102 6372 1112 6413 0101 0000 6200 6212 0710 6205 0710 6206 BH4B4'B@IB3:IJ4KAA@@2@2JGH2EGH2F ' PBz,J -A LH H 17200: 0710 2267 6202 0710 2270 6203 0710 2271 6204 0005 0100 0002 0100 0003 0100 0004 GHR72BGHR82CGHR92D@EA@@BA@@CA@@D H7 HA8 LH9 @@ @ @ 17220: 0100 0005 0100 0006 0100 0007 0246 3000 0212 0100 0010 0237 6217 0100 0011 0217 A@@EA@@FA@@GB&X@BJA@@HB_2OA@@IBO @ @ @ & @ @@ 17240: 0027 0672 2236 1052 7311 1002 7253 1032 7311 0100 0012 1032 7307 0000 0000 0000 @WF:R^H*;IHB:+HZ;IA@@JHZ;G@@@@@@ : *BI b+ bI@` G ` 17260: 0000 0000 0000 0000 0000 1102 7255 0101 0000 0006 0200 6402 7305 0710 6201 0005 @@@@@@@@@@IB:-AA@@@FB@4B;EGH2A@E B -A` EHa @ 17300: 0601 6217 0236 1102 6372 0000 0000 0100 0013 0217 0027 0472 6243 2236 1052 7335 FA2OB^IB3:@@@@A@@KBO@WD:2#R^H*;] B z @ @ : # D*]. 17320: 1002 7326 1032 7335 0100 0014 0217 0027 0236 6472 6243 0100 0015 0217 1237 6217 HB;VHZ;]A@@LBO@WB^4:2#A@@MBOJ_2O V. ].@ : #@@ , 17340: 2247 1022 7235 0100 0016 0606 2241 1052 7357 1002 7627 1032 7357 0100 0017 3000 R'HR:]A@@NFFR!H*;/HB>WHZ;/A@@OX@ ' B @` !*Bo b ro@` 17360: 0220 1032 6556 1032 7467 0237 6214 0214 0027 0472 2253 3000 0207 0214 1237 6214 BPHZ5.HZ<7B_2LBL@WD:R+X@BGBLJ_2L n R7 p @ : + F , Block: 0040 17400: 2253 1022 7367 0605 3000 0207 0237 6214 0214 0027 0672 3000 0207 0214 1237 6214 R+HR;7FEX@BGB_2LBL@WF:X@BGBLJ_2L + Bw a ` : , 17420: 2247 1022 7410 0237 6214 0214 0027 0472 6243 3000 0207 0214 1237 6214 2247 1022 R'HR<HB_2LBL@WD:2#X@BGBLJ_2LR'HR ' B p @ : # F ,' B 17440: 7425 0402 6315 3000 0207 0402 6304 3000 0207 3000 0206 0100 0020 1032 7463 5062 <UDB3MX@BGDB3DX@BGX@BFA@@PHZ<3(2 qM F D F @ 32z 17460: 3054 1164 5100 0100 0021 1032 7621 5047 6147 5457 5757 5462 6030 5470 6001 6154 X,I4)@A@@QHZ>Q('1',///,20X,80A1, ,tb@@ 'zg/Ko2; 8K lL 17500: 5757 4740 2324 2504 0516 2440 0317 0405 4016 2515 0205 2240 4047 5411 6454 4057 //' STUDENT CODE NUMBER ',I4, / o`9TDEN O M ' ,/X 17520: 5447 4020 2205 0305 2024 1722 4003 1704 0540 1625 1502 0522 2340 4754 4061 6050 ,' PRECEPTOR CODE NUMBERS ', 10( ' 8 E@ RC D ` BR1`lI1( 17540: 6130 5411 6351 5465 3054 4701 2205 0123 5540 4754 6160 5061 3054 1161 5154 5757 1X,I3),5X,'AREAS- ',10(1X,I1),// X Ki5K,Ai S@`l9p1J,qblo+ 17560: 5463 3054 4724 1724 0114 4020 0124 1105 1624 2340 4754 4047 2305 0516 4055 4047 ,3X,'TOTAL PATIENTS ', 'SEEN - ' 3,6TT L TE `4l' ENA-' 17600: 5411 6654 5754 6360 3054 4724 1724 0114 4004 1101 0716 1723 0523 4055 4047 5411 ,I6,/,30X,'TOTAL DIAGNOSES - ',I ,=lp<,TiTL0 A NS S- ' 17620: 6651 0100 0022 1032 7773 0100 0023 3000 0220 1032 6556 1032 7671 0237 6214 0214 6)A@@RHZ?;A@@SX@BPHZ5.HZ>9B_2LBL )@P {@p n R9 p @ 17640: 0027 0472 2253 3000 0207 0214 1237 6214 2253 1022 7637 0402 6315 3000 0207 0402 @WD:R+X@BGBLJ_2LR+HR>_DB3MX@BGDB : + F ,+ B qM F 17660: 6304 3000 0207 3000 0206 0100 0024 1032 7771 5047 6147 5457 5757 5462 6030 5470 3DX@BGX@BFA@@THZ?9('1',///,20X,8 D F @ y'zg/Ko2; 8K 17700: 6001 6154 5757 5447 4047 5424 6360 5447 2325 1515 0122 3140 1706 4004 0124 0147 0A1,//,' ',T30,'SUMMARY OF DATA' lLo';' p'KUMCR` F 8Tg 17720: 5440 5754 4740 4754 6265 3054 4707 2201 1604 4024 1724 0114 4017 0640 2001 2411 , /,' ',25X,'GRAND TOTAL OF PATI l;`l 5,FG 8TL0 E 17740: 0516 2423 4040 4754 1166 5440 5754 6265 3054 4707 2201 1604 4024 1724 0114 4017 ENTS ',I6, /,25X,'GRAND TOTAL O N l v +l5<,Gi C T L 17760: 0640 0411 0107 1617 2305 2340 4047 5411 6651 0100 0025 3000 0220 1032 6556 1033 F DIAGNOSES ',I6)A@@UX@BPHZ5.H[ G E`D' )@P n R Block: 0041 20000: 0007 3000 0206 0100 0026 1033 0060 5047 4023 0521 2505 1603 0540 0317 0405 4754 @GX@BFA@@VH[@0(' SEQUENCE CODE', @ 0' Q E S`O l 20020: 6160 3054 4704 1101 0716 1723 1123 4003 1704 0547 5465 6030 5440 4720 2211 1501 10X,'DIAGNOSIS CODE',50X, 'PRIMA p,FDA NS S (Dg15 < P9 AC 20040: 2231 4754 6160 3054 4717 0223 0522 2605 2247 5461 6030 5447 2417 2401 1447 5100 RY',10X,'OBSERVER',10X,'TOTAL')@ lIp,FO R '1K 'K U'@: 20060: 0100 0027 0236 6224 0100 0030 0236 6223 0100 0031 0237 6217 0100 0032 0237 4256 A@@WB^2TA@@XB^2SA@@YB_2OA@@ZB_". @ @ @ @ . 20100: 1217 0027 0240 4256 1217 0026 0471 0525 1461 0525 6216 0100 0033 3000 0221 1032 JO@WB ".JO@VD9EUL1EU2NA@@[X@BQHZ . 9U 1U1 @@ 20120: 6575 1033 0152 3000 0207 6231 0237 6214 0214 0027 3000 0207 6472 7075 0214 1237 5=H[A*X@BG2YB_2LBL@WX@BG4:8=BLJ_ } Rj `:=^ 20140: 6214 2251 1023 0130 3000 0206 0100 0034 1033 0160 5065 3054 1165 5461 6501 6451 2LR)HSAXX@BFA@@\H[A0(5X,I5,15A4) )D X `@ p 5,&u1+A)] 20160: 0100 0035 0237 4256 1217 0027 0224 1471 0525 6224 0100 0036 0240 4256 1217 0027 A@@]B_".JO@WBTL9EU2TA@@^B ".JO@W @ . 9 U @ . 20200: 0223 1471 0525 6223 0100 0037 0216 2236 1003 0342 0100 0040 1133 2604 1033 0222 BSL9EU2SA@@_BNR^HCC"A@@ I[VDH[BR 9 U @ b @ [ % 20220: 1032 6526 3257 6232 0100 0041 3000 0220 1032 6556 1033 0311 0217 3000 0207 0232 HZ5VZ/2ZA@@!X@BPHZ5.H[CIBOX@BGBZ V-/ l@! ` n- I 20240: 3000 0207 0237 6214 0214 0027 0472 7075 3000 0207 0214 1237 6214 2251 1023 0244 X@BGB_2LBL@WD:8=X@BGBLJ_2LR)HSB$ ` := ` )D $ 20260: 0237 4256 1217 0027 0471 0525 3000 0207 0240 4256 1217 0026 0461 0525 3000 0207 B_".JO@WD9EUX@BGB ".JO@VD1EUX@BG . 9U ` . 1U ` 20300: 0216 3000 0207 3000 0206 0100 0042 1033 0340 5047 4047 5465 3054 1163 5461 6030 BNX@BGX@BFA@@"H[C (' ',5X,I3,10X @ " `' '5 ,sb1 < 20320: 5406 6656 6254 6165 0164 5464 3054 1165 5461 6030 5411 6554 6165 3054 1165 5100 ,F6.2,15A4,4X,I5,10X,I5,15X,I5)@ .=,uLt4 ,ub1 < l=u,Fu@* 20340: 0100 0043 0217 1237 6217 2254 1023 0074 0100 0044 0224 1223 6225 0100 0045 3000 A@@#BOJ_2OR,HS@<A@@$BTJS2UA@@%X@ @# ,D < @$ @@% 20360: 0220 1032 6556 1033 0373 3000 0206 0100 0046 1033 0427 5047 4047 5470 6630 5447 BPHZ5.H[C;X@BFA@@&H[DW(' ',86X,' n R{ @ & ' '8 '[ Block: 0042 20400: 5555 5555 5555 5555 5555 5555 5555 5555 5555 5555 5555 5555 5555 5555 5555 5555 -------------------------------- mm;mm;mm;mm;mm;mm;mm;mm; 20420: 5555 5555 5555 5555 5555 5547 5100 0100 0047 3000 0220 1032 6556 1033 0456 0224 -----------')@A@@'X@BPHZ5.H[D.BT mm;mm;mg;@@ ' n R. 20440: 3000 0207 0223 3000 0207 0225 3000 0207 3000 0206 0100 0050 1033 0505 5047 4047 X@BGBSX@BGBUX@BGX@BFA@@(H[EE(' ' ` ` `@( E!''( 20460: 5457 4740 4754 6761 3054 4723 2515 1501 2231 4754 6160 3054 1165 5461 6230 5411 ,/' ',71X,'SUMMARY',10X,I5,12X,I /`9lq ,SiMAS lIp,Fu1+ K 20500: 6554 6163 3054 1165 5100 0100 0051 1033 0517 0100 0052 1033 0517 0100 0053 3000 5,13X,I5)@A@@)H[EOA@@*H[EOA@@+X@ ls\,ub@@ ) O@ * O@ + 20520: 0220 1032 6556 1033 0533 3000 0206 0100 0054 1033 0643 5047 6147 5463 6030 5447 BPHZ5.H[E[X@BFA@@,H[F#('1',30X,' n R[ @ , #' g3K 'K 20540: 0222 0501 1304 1727 1640 0231 4001 0705 4754 5757 5466 3054 4701 0705 4754 6530 BREAKDOWN BY AGE',//,6X,'AGE',5X A DW# 0 E lo 6,6AE lX 20560: 5440 4715 0114 0540 4006 0515 0114 0547 5463 3054 4724 1724 0114 4047 5465 3054 , 'MALE FEMALE',3X,'TOTAL ',5X, M9L` M Lg 3,6TT L' 5,6 20600: 4724 1716 1715 0524 2231 4754 6530 5447 0611 0514 0423 4754 6530 5440 4702 1117 'TONOMETRY',5X,'FIELDS',5X, 'BIO TN MT1 lIX'[ L l X [BO 20620: 1511 0322 1723 0317 2031 4754 6530 5447 0411 1401 2411 1716 5703 3103 1417 2014 MICROSCOPY',5X,'DILATION/CYCLOPL IR0SO0 lIX'[ NSCC6 4 20640: 0507 1101 4751 0100 0055 3000 0220 1032 6556 1033 0710 0237 6221 0237 6217 0217 EGIA')A@@-X@BPHZ5.H[GHB_2QB_2OBO GA i@ - n RH @ @ 20660: 4243 1221 0027 0673 3000 0207 0217 1237 6217 2244 1023 0657 0221 1237 6221 2243 "#JQ@WF;X@BGBOJ_2OR$HSF/BQJ_2QR# # ; ` $D /! #D 20700: 1023 0655 3000 0206 0100 0056 1033 1117 5061 3054 4740 6055 4066 4754 6330 5411 HSF-X@BFA@@.H[IO(1X,' 0- 6',3X,I -! `@. O"1,&`- 6l X K 20720: 6654 6530 5411 6654 6230 5411 6654 6450 6730 5411 6651 5440 5754 6130 5447 4067 6,5X,I6,2X,I6,4(7X,I6), /,1X,' 7 ,X] ,= K,(]X [) [lX<'78 20740: 5561 6747 5440 4040 4040 6330 5411 6654 6530 5411 6654 6230 5411 6654 6450 6730 -17', 3X,I6,5X,I6,2X,I6,4(7X qg= 8 X ,=X [, \ ,=(X] 20760: 5411 6651 5440 5754 6130 5447 6170 5563 6047 5440 4040 4040 6330 5411 6654 6530 ,I6), /,1X,'18-30', 3X,I6,5X )= l;X'KxsK' K X K,X] Block: 0043 21000: 5411 6654 6230 5411 6654 6450 6730 5411 6651 5440 5754 6130 5447 6361 5564 6047 ,I6,2X,I6,4(7X,I6), /,1X,'31-40' ,= K,(]X [) [lX<'q<t'< 21020: 5440 4040 4040 6330 5411 6654 6530 5411 6654 6230 5411 6654 6450 6730 5411 6651 , 3X,I6,5X,I6,2X,I6,4(7X,I6) 8 X ,=X [, \ ,=(X] )= 21040: 5440 5754 6130 5447 6461 5566 6047 5440 4040 4040 6330 5411 6654 6530 5411 6654 , /,1X,'41-60', 3X,I6,5X,I6, l;X'K1v[' K X K,X] ,= 21060: 6230 5411 6654 6450 6730 5411 6651 5440 5754 6130 5447 4066 6153 4047 5440 4040 2X,I6,4(7X,I6), /,1X,' 61+ ', K,(]X [) [lX<'68k'H 8 21100: 4040 6330 5411 6654 6530 5411 6654 6230 5411 6654 6450 6730 5411 6651 5100 0100 3X,I6,5X,I6,2X,I6,4(7X,I6))@A@ X ,=X [, \ ,=(X] )=@@ 21120: 0057 0237 6217 0100 0060 0217 0027 0236 6472 6666 0217 1237 6217 2244 1023 1123 @/B_2OA@@0BO@WB^4:66BOJ_2OR$HSIS / @@0 :6] $D S" 21140: 0100 0061 0237 6217 0100 0062 0237 6221 0100 0063 0217 0027 0217 4243 1221 0026 A@@1B_2OA@@2B_2QA@@3BO@WBO"#JQ@V @1 @2 @3 # 21160: 0472 6666 1663 6472 6666 0221 1237 6221 2243 1023 1150 0217 1237 6217 2244 1023 D:66N34:66BQJ_2QR#HSI(BOJ_2OR$HS :6 3:=6 P ,# Bh ,$ B 21200: 1144 0100 0064 3000 0220 1032 6556 1033 1235 0237 6214 0214 0027 0472 6666 3000 I$A@@4X@BPHZ5.H[J]B_2LBL@WD:66X@ d@ 4 n R @ : 6 V 21220: 0207 0214 1237 6214 2244 1023 1213 3000 0206 0100 0065 1033 1263 5047 4047 5457 BGBLJ_2LR$HSJKX@BFA@@5H[J3(' ',/ ,$ B & @ 5 3'*'/ 21240: 5747 4024 1724 0114 4754 6330 5411 6654 6530 5411 6654 6230 5411 6654 6450 6730 /' TOTAL',3X,I6,5X,I6,2X,I6,4(7X g 8TL0lX ,=X [, \ ,=(X] 21260: 5411 6651 5100 0100 0066 3000 0220 1032 6556 1033 1301 3000 0206 0100 0067 1033 ,I6))@A@@6X@BPHZ5.H[KAX@BFA@@7H[ )=@@ 6 n RA & @ 7 21300: 1406 5047 4047 5457 5757 5462 6030 5447 2010 0122 1501 0305 2524 1103 0114 4001 LF(' ',///,20X,'PHARMACEUTICAL A ':'/ o2; 'K R@AE0TCRL 21320: 0705 1624 2347 5457 5466 3054 4047 0422 2507 4754 2462 6054 4724 1724 0114 4024 GENTS',/,6X, 'DRUG',T20,'TOTAL T E g/K6,6' GlY2,\TT L 21340: 1115 0523 4025 2305 0447 5465 3054 4716 1740 2205 0103 2411 1716 4754 6530 5440 IMES USED',5X,'NO REACTION',5X, MS! E '5 ,Ni` 4C Nl9X [ 21360: 4701 0426 0522 2305 4022 0501 0324 1117 1647 5465 3054 4705 1505 2207 0516 0331 'ADVERSE REACTION',5X,'EMERGENCY A RE A TO '5;,EiE 4NY Block: 0044 21400: 4024 3040 1605 0504 0504 4751 0100 0070 0237 6217 0100 0071 0217 0027 0237 4246 TX NEEDED')A@@8B_2OA@@9BO@WB_"& D1Di @8 @9 & 21420: 1217 0026 0240 4246 1217 0025 0664 1654 6233 0241 4246 1217 0024 0233 1644 6472 JO@VB "&JO@UF4N,2[B!"&JO@TB[N$4: & 4, !@& $:= 21440: 6666 0217 1237 6217 2246 1023 1412 0100 0072 0237 6217 0100 0073 0237 6221 0100 66BOJ_2OR&HSLJA@@:B_2OA@@;B_2QA@ 6 P ,& B @0: @@; @@ 21460: 0074 0221 1237 6222 0100 0075 0222 4246 1217 0027 0221 4246 1217 0026 0664 6472 @<BQJ_2RA@@=BR"&JO@WBQ"&JO@VF44: < ,@= & & 4: 21500: 6666 0221 1237 6221 2241 1023 1457 0217 1237 6217 2246 1023 1453 0100 0076 0237 66BQJ_2QR!HSL/BOJ_2OR&HSL+A@@>B_ 6 P ,! B/ 0 ,& B+@0> 21520: 6217 0100 0077 0237 4246 1217 0027 0217 0026 0462 6666 6472 6666 0217 1237 6217 2OA@@?B_"&JO@WBO@VD2664:66BOJ_2O @@? & 2 6:]6 P , 21540: 2246 1023 1521 0100 0100 3000 0220 1032 6556 1033 1611 0237 6217 0237 6221 0221 R&HSMQA@A@X@BPHZ5.H[NIB_2OB_2QBQ & BQ@0@ n R 0 @ @ 21560: 4246 1217 0027 0472 6666 3000 0207 0221 1237 6221 2242 1023 1557 0217 1237 6217 "&JO@WD:66X@BGBQJ_2QR"HSM/BOJ_2O & : 6 V ," Bo 0 , 21600: 2245 1023 1555 3000 0206 0100 0101 1033 2026 5047 4061 5640 1531 0422 1101 2411 R%HSM-X@BFA@AAH[PV(' 1. MYDRIATI % Bm 6 @ A 'J1 Y 1A % 21620: 0347 5424 6265 5411 6654 6350 6160 3054 1166 5154 4057 5447 4062 5640 1511 1724 C',T25,I6,3(10X,I6), /,' 2. MIOT g 5 K,h\p,Fvl*/' 2 IT3 21640: 1103 4754 2462 6554 1166 5463 5061 6030 5411 6651 5457 5447 4063 5640 0331 0314 IC',T25,I6,3(10X,I6),/,' 3. CYCL Cl)2l]v3+1 , )=/';3 YL 21660: 1720 1405 0711 0347 5424 6265 5411 6654 4063 5061 6030 5411 6651 5457 5447 4064 OPLEGIC',T25,I6, 3(10X,I6),/,' 4 P 3Ig 5< ,=31 K)/['48 21700: 5640 0116 0523 2410 0524 1103 4754 2462 6554 1166 5463 5061 6030 5411 6651 5457 . ANESTHETIC',T25,I6,3(10X,I6),/ N0S TC l2 lvR31: K)/[ 21720: 5447 4065 5640 2410 0522 0120 0525 2411 0347 4024 6265 5411 6654 6350 6160 3054 ,' 5. THERAPEUTIC' T25,I6,3(10X, '58 5RP U g 5 K,h\p,F 21740: 1166 5154 5754 4740 6656 4004 1101 0740 0431 0547 5424 6265 5411 6654 6350 6160 I6),/,' 6. DIAG DYE',T25,I6,3(10 vl*l`9. XA`! g 5< ,=hpL 21760: 3054 1166 5154 5754 4047 4067 5640 0317 1502 1116 0124 1117 1647 5424 6265 5411 X,I6),/, ' 7. COMBINATION',T25,I ,vbll+'7 O0BN2TO ' ;5 K Block: 0045 22000: 6654 6350 6160 3054 1166 5154 5754 4740 7056 4017 2410 0522 4754 2462 6554 4011 6,3(10X,I6),/,' 8. OTHER',T25, I ,h\p,Fvl*l`9. h RQl2 l X 22020: 6654 6350 6160 3054 1166 5151 0100 0102 0237 6217 0100 0103 0217 0027 0236 6472 6,3(10X,I6))A@ABB_2OA@ACBO@WB^4: ,h\p,Fvi*@B @C : 22040: 6666 0217 1237 6217 2242 1023 2032 0100 0104 0237 6217 0100 0105 0237 0027 0237 66BOJ_2OR"HSPZA@ADB_2OA@AEB_@WB_ 6 P ," B @@D @@E 22060: 4246 1217 0026 0472 6666 1462 6666 6472 6666 0100 0106 0240 0027 0237 4246 1217 "&JO@VD:66L2664:66A@AFB @WB_"&JO & : 62S6:]6@PF & 22100: 0026 0472 6666 1664 6472 6666 0100 0107 0241 0027 0240 4246 1217 0026 0472 6666 @VD:66N44:66A@AGB!@WB "&JO@VD:66 : 64S:6]@G ! & :6 22120: 1664 6472 6666 0100 0110 0242 0027 0241 4246 1217 0026 0472 6666 1664 6472 6666 N44:66A@AHB"@WB!"&JO@VD:66N44:66 4:=6@PH" ! & : 64S:6] 22140: 0100 0111 0217 1237 6217 2245 1023 2053 0100 0112 3000 0220 1032 6556 1033 2204 A@AIBOJ_2OR%HSP+A@AJX@BPHZ5.H[RD @I %D +$@J ` n- $ 22160: 0237 6214 0214 0027 0472 6666 3000 0207 0214 1237 6214 2242 1023 2162 3000 0206 B_2LBL@WD:66X@BGBLJ_2LR"HSQ2X@BF :6 ` "D r$ ` 22200: 0100 0113 1033 2225 5047 4047 5457 5447 4024 1724 0114 2347 5424 6265 5411 6654 A@AKH[RU(' ',/,' TOTALS',T25,I6, @K $''(/'; T Lg 5< ,= 22220: 6350 6160 3054 1166 5151 0100 0114 3000 0220 1032 6556 1033 2243 3000 0206 0100 3(10X,I6))A@ALX@BPHZ5.H[R#X@BFA@ hpL,vbi@ L n R# F @ 22240: 0115 1033 2344 5047 4047 5457 5754 6260 3054 4703 5617 5620 5624 5640 0116 0114 AMH[S$(' ',//,20X,'C.O.P.T. ANAL M d'J'/ l0<,Ci ; ;NL 22260: 3123 1123 4754 5757 5466 3054 4047 0405 2303 2211 2024 1117 1647 5424 6560 5447 YSIS',//,6X, 'DESCRIPTION',T50,' SSblo 6,6' C D OB' ;p'[ 22300: 1625 1502 0522 4754 6230 5440 4724 1716 4040 0211 1740 4006 1404 4040 1531 0440 NUMBER',2X, 'TON BIO FLD MYD B3Rl KTN ` 8 8Y 1 22320: 4015 1117 4040 0331 0340 4001 1623 4040 2410 2040 4047 5440 4704 3105 4040 0317 MIO CYC ANS THP ', 'DYE CO O Y ` 8 T' DE O 22340: 1540 4017 2410 4751 0100 0116 0255 6217 0100 0117 3000 0221 1032 6575 1033 0152 M OTH')A@ANB-2OA@AOX@BQHZ5=H[A* ` 8 iY@N - @O ` }- j 22360: 3000 0207 6231 0237 6214 0214 0027 3000 0207 6472 7075 0214 1237 6214 2251 1023 X@BG2YB_2LBL@WX@BG4:8=BLJ_2LR)HS ` @ @ : = ` ,) B Block: 0046 22400: 2365 3000 0206 0100 0120 0217 2254 6220 0100 0121 0237 4256 1217 0027 0240 4256 S5X@BFA@APBOR,2PA@AQB_".JO@WB ". u F @ P , L@Q . . 22420: 1217 0026 0471 0525 1461 0525 6215 0100 0122 0215 2236 1023 2566 0100 0123 3000 JO@VD9EUL1EU2MA@ARBMR^HSU6A@ASX@ 9U 1U1 @@R Bv@PS 22440: 0220 1032 6556 1033 2542 0220 3000 0207 0231 3000 0207 0237 6214 0214 0027 0472 BPHZ5.H[U"BPX@BGBYX@BGB_2LBL@WD: n Rb P ` @ : 22460: 7075 3000 0207 0214 1237 6214 2251 1023 2455 0215 3000 0207 0247 6221 0221 4252 8=X@BGBLJ_2LR)HST-BMX@BGB'2QBQ"* = f ,) B- P `' * 22500: 1220 0027 0472 2405 3000 0207 0221 1237 6221 2250 1023 2476 0237 6222 0222 4252 JP@WD:TEX@BGBQJ_2QR(HST>B_2RBR"* : ` (D >% * 22520: 1220 0027 0472 2405 3000 0207 0222 1237 6222 2245 1023 2516 3000 0206 0100 0124 JP@WD:TEX@BGBRJ_2RR%HSUNX@BFA@AT : ` %D N% `@T 22540: 1033 2564 5047 4047 5411 6254 6230 5411 6454 6165 0164 5424 6560 5411 6654 6161 H[U4(' ',I2,2X,I4,15A4,T50,I6,11 t%''( ,< K,u\t p [,q\ 22560: 5061 3054 1164 5151 0100 0125 0217 1237 6217 2256 1023 2350 0100 0126 1032 7155 (1X,I4))A@AUBOJ_2OR.HSS(A@AVHZ9- 1,&ti*@U .D h$@V m. 22600: 0100 0127 1032 7155 0200 0006 6403 2617 1403 2621 6201 0601 6201 0005 0601 0000 A@AWHZ9-B@@F4CVOLCVQ2AFA2A@EFA@@ @W m. U 5 A @ 22620: 0000 0000 0002 0403 2716 0005 1033 2626 1003 2623 0002 1033 2625 1033 2635 1003 @@@@@BDCWN@EH[VVHCVS@BH[VUH[V]HC N P % % R R 22640: 2643 0403 2716 0005 1033 2635 0403 2716 0005 1033 2651 1013 2646 0002 1033 2650 V#DCWN@EH[V]DCWN@EH[V)HKV&@BH[V( # QN P % N ) R& P (% 22660: 0403 2716 0005 1033 2663 1023 2660 0002 1033 2662 0403 2716 0005 1033 2675 1063 DCWN@EH[V3HSV0@BH[V2DCWN@EH[V=H3 N 3 R0 P 2% N =3R 22700: 2672 0002 1033 2674 0403 2716 0005 1033 2707 1053 2704 0002 1033 2706 0001 2000 V:@BH[V<DCWN@EH[WGH+WD@BH[WF@AP@ : P <% N G+RD P F% 22720: 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 22740: 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 22760: 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@