1 2 P00032=0032 3 P00034=0034 4 D00044=0044 5 D00045=0045 6 D00046=0046 7 P00120=0120 8 P00125=0125 9 D00146=0146 10 11 *5000 12 05000 0000 P05000, 0 13 05001 7320 CLA CLL CML 14 05002 1235 TAD D05035 15 05003 3224 DCA D05024 16 05004 1236 TAD D05036 17 05005 3276 DCA D05076 18 05006 1044 TAD D00044 / Copy argument to TEMP 19 05007 3240 DCA D05040 20 05010 1045 TAD D00045 21 05011 3241 DCA D05041 22 05012 1046 TAD D00046 23 05013 3242 DCA D05042 24 05014 3044 DCA D00044 / Clear result 25 05015 3045 D05015, DCA D00045 26 05016 3046 DCA D00046 27 05017 2044 ISZ D00044 / Increment exponent 28 05020 7012 RTR / Get 2000 29 05021 3045 DCA D00045 / Set result to 1.0 30 05022 4637 L05022, JMS I PFPP 31 05023 3240 DCA D05040 / FMPY TEMP 32 05024 3243 D05024, DCA D05043 / FMPY next constant 33 05025 1273 TAD D05073 / FADD 1.0? 34 05026 0000 0000 / FEXT 35 05027 2224 ISZ D05024 / Point at next constant 36 05030 2224 ISZ D05024 37 05031 2224 ISZ D05024 38 05032 2276 ISZ D05076 / Done them all? 39 05033 5222 JMP L05022 / No, again 40 05034 5600 JMP I P05000 / Yes, return 41 05035 3243 D05035, 3243 42 05036 7767 D05036, 7767 43 05037 5600 PFPP, FPP 44 05040 0000 D05040, 0000 / TEMP 45 05041 0000 D05041, 0000 46 05042 0000 D05042, 0000 47 05043 7775 D05043, 7775 / 0.111111 48 05044 3434 3434 49 05045 3432 3432 50 05046 7776 7776 / 0.125 51 05047 2000 2000 52 05050 0000 0000 53 05051 7776 7776 / 0.142857 54 05052 2222 2222 55 05053 2215 2215 56 05054 7776 7776 / 0.166667 57 05055 2525 2525 58 05056 2520 2520 59 05057 7776 7776 / 0.200000 60 05060 3146 3146 61 05061 3146 3146 62 05062 7777 7777 / 0.25 63 05063 2000 2000 64 05064 0000 0000 65 05065 7777 7777 / 0.333333 66 05066 2525 2525 67 05067 2525 2525 68 05070 0000 0000 / 0.5 69 05071 2000 2000 70 05072 0000 0000 71 05073 0001 D05073, 0001 / 1.0 72 05074 2000 2000 73 05075 0000 0000 74 D05076=5076 75 FPP=5600 76 $ D00044 0044 D00045 0045 D00046 0046 D00146 0146 unreferenced D05015 5015 unreferenced D05024 5024 D05035 5035 D05036 5036 D05040 5040 D05041 5041 D05042 5042 D05043 5043 D05073 5073 D05076 5076 FPP 5600 L05022 5022 P00032 0032 unreferenced P00034 0034 unreferenced P00120 0120 unreferenced P00125 0125 unreferenced P05000 5000 PFPP 5037