FIXMRI FADD=1000 FIXMRI FSUB=2000 FIXMRI FMPY=3000 FIXMRI FDIV=4000 FIXMRI FGET=5000 FIXMRI FPUT=6000 FEXT=0000 FSQT=0002 FNOR=7000 FIXTAB P00000=0000 P00001=0001 FIELD 0 *0004 P00004, S01041 P00005, D07400 P00006, D07200 P00007, D05600 P00010=0010 P00011=0011 D00012=0012 P00015=0015 D00016=0016 *0017 P00017, P00000 P00020, L00600 D00021, 7600 D00022, 7740 D00023, 0023 D00024, 0003 D00025, 7475 D00026, 0031 P00027, P00006 D00030, 0115 D00031, 7734 P00040=0040 D00055=0055 D00056=0056 D00057=0057 D00060=0060 *0066 S00066, 0000 L00067, TSF JMP L00067 TLS P00072, D06041 5272 CLA 5666 S00076, 0000 3375 P00100, D01305 D00101, 4266 D00102, 2375 5300 5676 P00105, D00240 S00106, 0000 1314 4266 1315 4266 5706 D00114, 0215 D00115, 0212 P00116, P00000 D00117, 0000 P00120, P00000 AND P00000 D00122, 0000 P00123, P00000 L00124, AND P00000 D00125, 0000 AND P00000 L00127, AND P00000 AND P00000 AND P00000 P00132, P00000 D00133, 0000 D00134, 0000 L00135, AND P00000 AND P00000 AND P00000 P00140, P00000 D00141, 0000 D00142, 0000 L00143, AND P00000 AND P00000 AND P00000 L00146, AND P00000 D00147, 0000 D00150, 0000 L00151, AND P00000 AND P00000 AND P00000 D00154, 0000 AND P00000 AND P00000 L00157, AND P00000 AND P00000 AND P00000 NOP D00163, 7410 P00164, S00301 P00165, L00257 P00166, L00400 D00167, 7774 D00170, 7775 D00171, 0027 D00172, 7772 P00173, L00200 D00174, 0000 D00175, 0000 *0200 L00200, KCC TAD D00114 TLS CLA TAD D00115 JMS S00066 TAD D00030 DCA P00017 TAD D00031 DCA D00175 L00212, DCA I P00017 ISZ D00175 JMP L00212 DCA D00056 DCA D00055 JMP L00257 L00220, TAD D00057 DCA D00174 TAD D00174 TAD D00025 SNA JMP I P00355 TAD D00026 SNA JMP I P00166 TAD P00027 SNA CLA JMP I P00020 TAD D00174 SNA JMP L00257 TAD D00021 D00240, 7450 JMP L00257 TAD D00022 SNA JMP L00257 TAD D00023 SNA JMP L00257 TAD D00024 SNA CLA JMP L00257 TAD D00174 HLT CLA JMP L00257 L00257, CLA 4405 TAD D00060 SNA CLA JMP L00220 JMS I P00007 FSUB P00120 FPUT P00140 FADD L00127 FPUT L00127 FGET P00140 FMPY P00140 FADD L00124 FPUT L00124 FEXT ISZ P00123 ISZ P00116 JMP L00257 S00301, 0000 DCA D00174 TAD D00167 DCA D00175 TAD D00350 DCA P00345 TAD D00344 DCA D00327 L00311, DCA D00347 TAD D00174 L00313, CLL TAD I P00345 SNL JMP L00321 ISZ D00347 JMP L00313 L00321, DCA D00174 TAD I P00345 CIA TAD D00174 DCA D00174 TAD D00347 D00327, 7450 JMP L00336 TAD D00346 JMS S00066 TAD D00163 DCA D00327 JMP L00340 L00336, TAD P00105 JMS S00066 L00340, ISZ P00345 ISZ D00175 JMP L00311 JMP I S00301 D00344, 7450 P00345, P00000 D00346, 0260 D00347, 0000 D00350, 0351 6030 SZL CLA OSR SZA SMA SNL CLA OSR HLT 7777 P00355, L00532 *0400 L00400, JMS S00402 JMP I P00165 S00402, 0000 CLA TAD P00123 SNA JMP I P00165 DCA D00134 DCA D00133 TAD D00171 DCA P00132 ISZ D00117 JMS I P00007 FGET P00132 FNOR FPUT P00132 FGET L00127 FADD L00151 FPUT L00151 FGET L00124 FADD L00143 FPUT L00143 FGET L00127 FDIV P00132 FPUT P00132 FMPY L00127 FPUT L00127 FGET L00124 FSUB L00127 FPUT L00135 FGET L00127 FADD L00157 FPUT L00157 FGET P00132 FADD P00120 FPUT P00132 FEXT CLA OSR SPA CLA JMP L00522 TAD D00537 JMS I P00004 TAD D00117 JMS I P00164 TAD D00170 JMS S00076 TAD P00123 JMS I P00164 TAD D00170 JMS S00076 JMS I P00007 FGET P00132 FEXT JMS I P00006 TAD D00170 JMS S00076 CMA TAD P00123 SNA JMP L00520 DCA D00134 DCA D00133 TAD D00171 DCA P00132 JMS I P00007 FGET P00132 FNOR FPUT P00132 FGET L00135 FDIV P00132 FPUT L00135 FEXT JMS I P00006 TAD D00170 JMS S00076 JMS I P00007 FGET L00135 FSQT FEXT JMS I P00006 L00520, JMS S00106 JMS S00106 L00522, TAD D00540 DCA D00175 TAD D00541 DCA P00017 L00526, DCA I P00017 ISZ D00175 JMP L00526 JMP I S00402 L00532, JMS I P00005 JMS I P00007 FPUT P00120 FEXT JMP I P00165 D00537, 1200 D00540, 7760 D00541, 0122 *0600 L00600, JMS I P00741 TAD D00742 JMS I P00004 TAD P00116 DCA D00150 DCA D00147 TAD D00171 DCA L00146 JMS I P00007 FGET L00146 FNOR FPUT L00146 FGET L00151 FDIV L00146 FPUT L00146 FADD P00120 FEXT JMS I P00006 TAD D00743 JMS I P00004 TAD D00170 JMS S00076 JMS I P00007 FGET L00146 FMPY L00151 FPUT D00154 FGET L00157 FSUB D00154 FPUT L00127 FEXT JMS I P00006 CMA TAD D00117 DCA D00142 DCA D00141 TAD D00171 DCA P00140 TAD D00172 4076 TAD D00142 JMS I P00164 TAD D00172 JMS S00076 JMS I P00007 FGET P00140 FNOR FPUT P00140 5127 FDIV P00140 FPUT P00132 FEXT JMS I P00006 TAD D00744 JMS I P00004 1167 JMS S00076 JMS I P00007 FGET L00143 FSUB L00157 FPUT L00127 FEXT JMS I P00006 TAD D00172 JMS S00076 TAD D00117 CIA TAD P00116 DCA D00142 DCA D00141 TAD D00171 DCA P00140 TAD D00142 JMS I P00164 TAD D00172 JMS S00076 JMS I P00007 FGET P00140 FNOR FPUT P00140 FGET L00127 FDIV P00140 FPUT L00146 FEXT JMS I P00006 TAD D00745 JMS I P00004 TAD D00740 JMS S00076 JMS I P00007 FGET L00143 FSUB D00154 FPUT L00127 FEXT JMS I P00006 JMP I P00737 P00737, L01000 D00740, 7763 P00741, S00402 D00742, 1246 D00743, 1266 D00744, 1362 D00745, 1257 *1000 L01000, CMA TAD P00116 DCA D00142 DCA D00141 TAD D00171 DCA P00140 TAD D00172 JMS S00076 TAD D00142 JMS I P00164 TAD D00172 JMS S00076 JMS I P00007 FGET P00140 FNOR FPUT P00140 FGET L00127 FDIV P00140 FEXT JMS I P00006 TAD D01040 JMS I P00004 JMS I P00007 FGET P00132 FDIV L00146 FEXT JMS I P00006 TAD D01037 JMS I P00004 HLT JMP I P00173 D01037, 1376 D01040, 1415 S01041, 0000 DCA P01127 DCA D01131 L01044, TAD I P01127 AND D01133 DCA D01132 TAD I P01127 RTR RTR RTR AND D01133 JMS S01061 TAD D01132 JMS S01061 ISZ P01127 JMP L01044 S01061, 0000 DCA D01130 TAD D01131 SZA CLA JMP L01075 TAD D01130 SNA JMP L01073 JMS S01122 JMP I S01061 L01073, ISZ D01131 JMP I S01061 L01075, DCA D01131 TAD D01130 CIA SNA JMP L01107 IAC SNA CLA JMP I S01041 TAD D01134 DCA D01116 L01107, TAD D01130 JMS S01122 TAD D01135 DCA D01116 JMP I S01061 S01114, 0000 TAD D01136 D01116, 7510 TAD D01137 TAD D01140 JMP I S01114 S01122, 0000 AND D01133 JMS S01114 JMS S00066 JMP I S01122 P01127, P00000 D01130, 0000 D01131, 0000 D01132, 0000 D01133, 0077 D01134, 7500 D01135, 7510 D01136, 7740 D01137, 0100 D01140, 0240 *1200 D01200, 4040 P01201, D02301 TAD I P00120 P01203, D01405 P01204, P00015 D01205, 0012 JMS D00016 TAD I P01340 JMS P00040 D01211, 4023 TAD P00132 AND I P00140 JMS P00040 JMS P00040 JMS P00040 TAD I P00105 AND P00116 JMS P00040 JMS P00040 JMS P00040 JMS P00040 JMS D00026 AND D00122 TAD D00101 TAD I P01203 AND I P00140 JMS P00040 JMS P00040 JMS P00040 JMS D00023 ISZ I P00001 TAD I P01204 P01240, L05640 AND I P00005 ISZ I P01256 AND P00015 AND D00012 AND P00001 AND P00015 AND D00012 AND I P01322 AND P00116 AND I P00040 TAD I P00105 AND P00116 SZA SMA P01256, P00001 AND P00015 AND D00012 AND D00012 ISZ I P00017 ISZ I P00001 TAD I P00072 AND P00001 AND P00015 AND D00012 AND D00012 AND P00116 AND D00114 DCA P00123 TAD P00123 JMS P00017 AND I P01240 ISZ I P01201 ISZ D01211 D01301, 0116 AND D01305 JMS D00024 AND D00102 D01305, 1405 P01306, D07200 TAD I P00100 TAD D01200 P01311, P01240 JMS P00040 JMS D00023 TAD I P01325 ISZ P01203 AND I P00140 JMS P00040 JMS P00040 JMS P00040 P01322, D02325 TAD I P00140 TAD I P01306 P01325, D04023 ISZ D00125 AND D00122 AND I P00123 JMS P00040 JMS P00040 JMS P00040 JMS P00040 JMS P00040 AND I P00006 JMS P00040 P01340, D04040 JMS P00040 ISZ I P01201 ISZ D01211 AND P00116 AND D01305 AND P00015 AND D00012 AND D00012 AND D01205 ISZ I P00027 AND I P00105 TAD I P01240 ISZ D01301 TAD I P00120 TAD I P00005 ISZ D01372 AND P00001 AND P00015 AND D00012 AND D00012 ISZ I P01311 ISZ I P00010 TAD P00116 JMS D00023 AND D00115 D01372, 2014 AND I P00123 CLA AND P00100 AND P00015 AND D00012 *1400 AND D00012 D01401, 0012 AND D00012 AND D00012 AND D00012 D01405, 0516 AND I P00040 TAD I P01506 JMS D00012 TAD I P01502 AND P00015 AND D00012 AND P00001 AND P00015 AND D00012 AND D00012 AND D00012 AND D00012 ISZ D01401 ISZ I P00011 TAD I P01572 JMS P00040 AND D01405 ISZ I P00027 AND I P00105 TAD I P01457 ISZ I P01511 ISZ I P00010 TAD P00116 SZA SMA AND P00001 P01457=1457 P01502=1502 P01506=1506 P01511=1511 P01572=1572 D02301=2301 D02325=2325 D04023=4023 D04040=4040 D05600=5600 L05640=5640 D06041=6041 D07200=7200 D07400=7400 $