exp(4.4) 02010: .11...111. c -> a[w] A=04400000000000 B=02099999999999 C=04400000000000 C is argument in normalized for 4.4 10^0 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b A is x in dispayed for 02011: 1....1.1.. if s8 = 0 B is the mask "digit, point, digit" A=04400000000000 B=02099999999999 C=04400000000000 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b s8 is set (s8=1) if e^x key is pressed 02012: .1....1.11 -> 02102 then go to exp21 exp21 is the entry point for exp A=04400000000000 B=02099999999999 C=04400000000000 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02102: 1111.11..1 -> 02366 exp21: jsb lnc10 loading ln(10) in C A=04400000000000 B=02099999999999 C=04400000000000 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b [BP1] 02366: ..11..111. lnc10: 0 -> c[w] same routine as for ln(x) A=04400000000000 B=02099999999999 C=00000000000000 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02367: 11....11.. 12 -> p A=04400000000000 B=02099999999999 C=00000000000000 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02370: ..1..11... load constant 2 A=04400000000000 B=02099999999999 C=02000000000000 D=00000000000000 M=00000000000000 P=b S=0.2...67.9.b 02371: ..11.11... load constant 3 A=04400000000000 B=02099999999999 C=02300000000000 D=00000000000000 M=00000000000000 P=a S=0.2...67.9.b 02372: .....11... load constant 0 A=04400000000000 B=02099999999999 C=02300000000000 D=00000000000000 M=00000000000000 P=9 S=0.2...67.9.b 02373: ..1..11... load constant 2 A=04400000000000 B=02099999999999 C=02302000000000 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 02374: .1.1.11... load constant 5 A=04400000000000 B=02099999999999 C=02302500000000 D=00000000000000 M=00000000000000 P=7 S=0.2...67.9.b 02375: 1......111 -> 02201 go to lnc7 A=04400000000000 B=02099999999999 C=02302500000000 D=00000000000000 M=00000000000000 P=7 S=0.2...67.9.b 02201: 1....11... lnc7: load constant 8 A=04400000000000 B=02099999999999 C=02302580000000 D=00000000000000 M=00000000000000 P=6 S=0.2...67.9.b 02202: .1.1.11... load constant 5 A=04400000000000 B=02099999999999 C=02302585000000 D=00000000000000 M=00000000000000 P=5 S=0.2...67.9.b 02203: .....11... load constant 0 A=04400000000000 B=02099999999999 C=02302585000000 D=00000000000000 M=00000000000000 P=4 S=0.2...67.9.b 02204: 1..1.11... load constant 9 A=04400000000000 B=02099999999999 C=02302585090000 D=00000000000000 M=00000000000000 P=3 S=0.2...67.9.b 02205: 111.1.1.11 -> 02352 go to lnc9 A=04400000000000 B=02099999999999 C=02302585090000 D=00000000000000 M=00000000000000 P=3 S=0.2...67.9.b 02352: ..11.11... lnc9: load constant 3 A=04400000000000 B=02099999999999 C=02302585093000 D=00000000000000 M=00000000000000 P=2 S=0.2...67.9.b 02353: 11.111.111 -> 02335 go to nrm27 A=04400000000000 B=02099999999999 C=02302585093000 D=00000000000000 M=00000000000000 P=2 S=0.2...67.9.b [BP2] 02335: 11....11.. nrm27: 12 -> p A=04400000000000 B=02099999999999 C=02302585093000 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02336: .1111.1.11 -> 02172 go to nrm26 A=04400000000000 B=02099999999999 C=02302585093000 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02172: ..1..1.1.. nrm26: if s2 = 0 A=04400000000000 B=02099999999999 C=02302585093000 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02173: 1..1.1..11 -> 02224 then go to rtn21 A=04400000000000 B=02099999999999 C=02302585093000 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02174: ....11.... return ln(10) loaded A=04400000000000 B=02099999999999 C=02302585093000 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b [BP3] 02103: 111.11...1 -> 02354 jsb pre21 A=04400000000000 B=02099999999999 C=02302585093000 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02354: 111.1.111. pre21: a exchange c[w] A=02302585093000 B=02099999999999 C=04400000000000 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02355: .1..1.111. a -> b[w] A=02302585093000 B=02302585093000 C=04400000000000 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02356: .11....11. c -> a[m] A=04400000000000 B=02302585093000 C=04400000000000 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02357: 1.1.111.1. c + c -> c[xs] A=04400000000000 B=02302585093000 C=04400000000000 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02360: .1.1111.11 -> 02136 if no carry go to pre24 A=04400000000000 B=02302585093000 C=04400000000000 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02136: 11...1.11. pre24: a - b -> a[ms] a-b first time A=02097414907000 B=02302585093000 C=04400000000000 4.4 - 2.302585093 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02137: .1.11..111 -> 02131 if no carry go to pre23 A=02097414907000 B=02302585093000 C=04400000000000 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02131: ..1..1.1.. pre23: if s2 = 0 A=02097414907000 B=02302585093000 C=04400000000000 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02132: .1.1111.11 -> 02136 then go to pre24 A=02097414907000 B=02302585093000 C=04400000000000 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02133: 11111.1.1. a + 1 -> a[x] A=02097414907001 B=02302585093000 C=04400000000000 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02134: 1..1111.1. pre29: if a[xs] >= 1 A=02097414907001 B=02302585093000 C=04400000000000 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02135: 11....1.11 -> 02302 then go to pre27 A=02097414907001 B=02302585093000 C=04400000000000 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02136: 11...1.11. pre24: a - b -> a[ms] 2nd time A=99794829814001 B=02302585093000 C=04400000000000 KO D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 1 time is kept in A byte 0 02137: .1.11..111 -> 02131 if no carry go to pre23 A=99794829814001 B=02302585093000 C=04400000000000 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02140: 111..1.11. a + b -> a[ms] restore A=02097414907001 B=02302585093000 C=04400000000000 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02141: .1....111. shift left a[w] result is 1 time A=20974149070010 B=02302585093000 C=04400000000000 we save it in A byte 1 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02142: .1.11.1.1. c - 1 -> c[x] A=20974149070010 B=02302585093000 C=04400000000999 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02143: .1.111..11 -> 02134 if no carry go to pre29 exponent x is positive A=20974149070010 B=02302585093000 C=04400000000999 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02144: 1.11..111. pre25: shift right a[w] A=02097414907001 B=02302585093000 C=04400000000999 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02145: ..11.1..1. 0 -> c[wp] A=02097414907001 B=02302585093000 C=00000000000000 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02146: 111.1.1.1. a exchange c[x] we save in c[x] previous result A=02097414907000 B=02302585093000 C=00000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02147: .11.11111. pre26: if c[s] = 0 A=02097414907000 B=02302585093000 C=00000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02150: .11.11..11 -> 02154 then go to pre28 A=02097414907000 B=02302585093000 C=00000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02154: 1.11..111. pre28: shift right a[w] A=00209741490700 B=02302585093000 C=00000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b [BP4] 02155: 1...1.111. pqo23: b exchange c[w] Start of pqj (pseudo quotients) computation A=00209741490700 B=00000000000001 C=02302585093000 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02156: ..11..111. 0 -> c[w] A=00209741490700 B=00000000000001 C=00000000000000 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02157: .1.11..11. c - 1 -> c[m] A=00209741490700 B=00000000000001 C=09999999999000 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02160: ..1..1.1.. if s2 = 0 A=00209741490700 B=00000000000001 C=09999999999000 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02161: .111.11.11 -> 02166 then go to pqo28 A=00209741490700 B=00000000000001 C=09999999999000 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02162: .1...11... load constant 4 A=00209741490700 B=00000000000001 C=04999999999000 D=00000000000000 M=00000000000000 P=b S=0.2...67.9.b 02163: .1111..11. c + 1 -> c[m] A=00209741490700 B=00000000000001 C=05000000000000 D=00000000000000 M=00000000000000 P=b S=0.2...67.9.b 02164: .1111..111 -> 02171 if no carry go to pqo24 A=00209741490700 B=00000000000001 C=05000000000000 D=00000000000000 M=00000000000000 P=b S=0.2...67.9.b 02171: 1..1..111. pqo24: shift right c[w] A=00209741490700 B=00000000000001 C=00500000000000 D=00000000000000 M=00000000000000 P=b S=0.2...67.9.b 02172: ..1..1.1.. nrm26: if s2 = 0 A=00209741490700 B=00000000000001 C=00500000000000 D=00000000000000 M=00000000000000 P=b S=0.2...67.9.b 02173: 1..1.1..11 -> 02224 then go to rtn21 A=00209741490700 B=00000000000001 C=00500000000000 D=00000000000000 M=00000000000000 P=b S=0.2...67.9.b 02174: ....11.... return A=00209741490700 B=00000000000001 C=00500000000000 D=00000000000000 M=00000000000000 P=b S=0.2...67.9.b 02104: 1.111..1.1 -> 02271 jsb lnc2 load ln(2) - same routine as for ln(x) A=00209741490700 B=00000000000001 C=00500000000000 D=00000000000000 M=00000000000000 P=b S=0.2...67.9.b 02271: 1...1..1.. lnc2: 0 -> s8 A=00209741490700 B=00000000000001 C=00500000000000 D=00000000000000 M=00000000000000 P=b S=0.2...67.9.b 02272: .11..11... load constant 6 A=00209741490700 B=00000000000001 C=00600000000000 D=00000000000000 M=00000000000000 P=a S=0.2...67.9.b 02273: 1..1.11... load constant 9 A=00209741490700 B=00000000000001 C=00690000000000 D=00000000000000 M=00000000000000 P=9 S=0.2...67.9.b 02274: ..11.11... load constant 3 A=00209741490700 B=00000000000001 C=00693000000000 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 02275: ...1.11... load constant 1 A=00209741490700 B=00000000000001 C=00693100000000 D=00000000000000 M=00000000000000 P=7 S=0.2...67.9.b 02276: .1...11... load constant 4 A=00209741490700 B=00000000000001 C=00693140000000 D=00000000000000 M=00000000000000 P=6 S=0.2...67.9.b 02277: .111.11... load constant 7 A=00209741490700 B=00000000000001 C=00693147000000 D=00000000000000 M=00000000000000 P=5 S=0.2...67.9.b 02300: ...1.11... load constant 1 A=00209741490700 B=00000000000001 C=00693147100000 D=00000000000000 M=00000000000000 P=4 S=0.2...67.9.b 02301: 111..11.11 -> 02346 go to lnc8 A=00209741490700 B=00000000000001 C=00693147100000 D=00000000000000 M=00000000000000 P=4 S=0.2...67.9.b 02346: 1....11... lnc8: load constant 8 A=00209741490700 B=00000000000001 C=00693147180000 D=00000000000000 M=00000000000000 P=3 S=0.2...67.9.b 02347: .....11... load constant 0 A=00209741490700 B=00000000000001 C=00693147180000 D=00000000000000 M=00000000000000 P=2 S=0.2...67.9.b 02350: .1.1.11... load constant 5 A=00209741490700 B=00000000000001 C=00693147180500 D=00000000000000 M=00000000000000 P=1 S=0.2...67.9.b 02351: .1.1.11... load constant 5 A=00209741490700 B=00000000000001 C=00693147180550 D=00000000000000 M=00000000000000 P=0 S=0.2...67.9.b 02352: ..11.11... lnc9: load constant 3 A=00209741490700 B=00000000000001 C=00693147180553 D=00000000000000 M=00000000000000 P=f S=0.2...67.9.b ln(2) loaded 02353: 11.111.111 -> 02335 go to nrm27 A=00209741490700 B=00000000000001 C=00693147180553 D=00000000000000 M=00000000000000 P=f S=0.2...67.9.b 02335: 11....11.. nrm27: 12 -> p A=00209741490700 B=00000000000001 C=00693147180553 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02336: .1111.1.11 -> 02172 go to nrm26 A=00209741490700 B=00000000000001 C=00693147180553 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02172: ..1..1.1.. nrm26: if s2 = 0 A=00209741490700 B=00000000000001 C=00693147180553 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02173: 1..1.1..11 -> 02224 then go to rtn21 A=00209741490700 B=00000000000001 C=00693147180553 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02174: ....11.... return A=00209741490700 B=00000000000001 C=00693147180553 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02105: 1.11..11.. 11 -> p A=00209741490700 B=00000000000001 C=00693147180553 D=00000000000000 M=00000000000000 P=b S=0.2...67.9.b 02106: 1..11.11.1 -> 02233 jsb pqo21 A=00209741490700 B=00000000000001 C=00693147180553 D=00000000000000 M=00000000000000 P=b S=0.2...67.9.b 02233: ..1..1.... -> 01234 pqo21: select rom 1 ; -> pqo11 A=00209741490700 B=00000000000001 C=00693147180553 D=00000000000000 M=00000000000000 P=b S=0.2...67.9.b 01234: .1....111. pqo11: shift left a[w] A=02097414907000 B=00000000000001 C=00693147180553 D=00000000000000 M=00000000000000 P=b S=0.2...67.9.b 01235: 1.1..1.11. pqo12: shift right b[ms] A=02097414907000 B=00000000000001 C=00693147180553 D=00000000000000 M=00000000000000 P=b S=0.2...67.9.b 01236: 1...1.111. b exchange c[w] A=02097414907000 B=00693147180553 C=00000000000001 D=00000000000000 M=00000000000000 P=b S=0.2...67.9.b 01237: 1.1....111 -> 01241 go to pqo16 A=02097414907000 B=00693147180553 C=00000000000001 D=00000000000000 M=00000000000000 P=b S=0.2...67.9.b 01241: 11....111. pqo16: a - b -> a[w] a - b A=01404267726447 B=00693147180553 C=00000000000001 D=00000000000000 M=00000000000000 P=b S=0.2...67.9.b 01242: 1.1.....11 -> 01240 if no carry go to pqo15 A=01404267726447 B=00693147180553 C=00000000000001 D=00000000000000 M=00000000000000 P=b S=0.2...67.9.b 01240: .11111111. pqo15: c + 1 -> c[s] A=01404267726447 B=00693147180553 C=10000000000001 D=00000000000000 M=00000000000000 P=b S=0.2...67.9.b 01241: 11....111. pqo16: a - b -> a[w] A=00711120545894 B=00693147180553 C=10000000000001 D=00000000000000 M=00000000000000 P=b S=0.2...67.9.b 01242: 1.1.....11 -> 01240 if no carry go to pqo15 A=00711120545894 B=00693147180553 C=10000000000001 D=00000000000000 M=00000000000000 P=b S=0.2...67.9.b 01240: .11111111. pqo15: c + 1 -> c[s] A=00711120545894 B=00693147180553 C=20000000000001 D=00000000000000 M=00000000000000 P=b S=0.2...67.9.b 01241: 11....111. pqo16: a - b -> a[w] A=00017973365341 B=00693147180553 C=20000000000001 D=00000000000000 M=00000000000000 P=b S=0.2...67.9.b 01242: 1.1.....11 -> 01240 if no carry go to pqo15 A=00017973365341 B=00693147180553 C=20000000000001 D=00000000000000 M=00000000000000 P=b S=0.2...67.9.b 01240: .11111111. pqo15: c + 1 -> c[s] A=00017973365341 B=00693147180553 C=30000000000001 D=00000000000000 M=00000000000000 P=b S=0.2...67.9.b 01241: 11....111. pqo16: a - b -> a[w] A=99324826184788 B=00693147180553 C=30000000000001 D=00000000000000 M=00000000000000 P=b S=0.2...67.9.b 01242: 1.1.....11 -> 01240 if no carry go to pqo15 A=99324826184788 B=00693147180553 C=30000000000001 D=00000000000000 M=00000000000000 P=b S=0.2...67.9.b 01243: 111...111. a + b -> a[w] A=00017973365341 B=00693147180553 C=30000000000001 D=00000000000000 M=00000000000000 P=b S=0.2...67.9.b 01244: .1...1.... -> 02245 pqo13: select rom 2 ; -> l02245 A=00017973365341 B=00693147180553 C=30000000000001 D=00000000000000 M=00000000000000 P=b S=0.2...67.9.b 02245: .11.11.111 -> 02155 go to pqo23 A=00017973365341 B=00693147180553 C=30000000000001 D=00000000000000 M=00000000000000 P=b S=0.2...67.9.b 02155: 1...1.111. pqo23: b exchange c[w] A=00017973365341 B=30000000000001 C=00693147180553 D=00000000000000 M=00000000000000 P=b S=0.2...67.9.b 02156: ..11..111. 0 -> c[w] A=00017973365341 B=30000000000001 C=00000000000000 D=00000000000000 M=00000000000000 P=b S=0.2...67.9.b 02157: .1.11..11. c - 1 -> c[m] A=00017973365341 B=30000000000001 C=09999999999000 D=00000000000000 M=00000000000000 P=b S=0.2...67.9.b 02160: ..1..1.1.. if s2 = 0 A=00017973365341 B=30000000000001 C=09999999999000 D=00000000000000 M=00000000000000 P=b S=0.2...67.9.b 02161: .111.11.11 -> 02166 then go to pqo28 A=00017973365341 B=30000000000001 C=09999999999000 D=00000000000000 M=00000000000000 P=b S=0.2...67.9.b 02162: .1...11... load constant 4 A=00017973365341 B=30000000000001 C=09499999999000 D=00000000000000 M=00000000000000 P=a S=0.2...67.9.b 02163: .1111..11. c + 1 -> c[m] A=00017973365341 B=30000000000001 C=09500000000000 D=00000000000000 M=00000000000000 P=a S=0.2...67.9.b 02164: .1111..111 -> 02171 if no carry go to pqo24 A=00017973365341 B=30000000000001 C=09500000000000 D=00000000000000 M=00000000000000 P=a S=0.2...67.9.b 02171: 1..1..111. pqo24: shift right c[w] A=00017973365341 B=30000000000001 C=00950000000000 D=00000000000000 M=00000000000000 P=a S=0.2...67.9.b 02172: ..1..1.1.. nrm26: if s2 = 0 A=00017973365341 B=30000000000001 C=00950000000000 D=00000000000000 M=00000000000000 P=a S=0.2...67.9.b 02173: 1..1.1..11 -> 02224 then go to rtn21 A=00017973365341 B=30000000000001 C=00950000000000 D=00000000000000 M=00000000000000 P=a S=0.2...67.9.b 02174: ....11.... return A=00017973365341 B=30000000000001 C=00950000000000 D=00000000000000 M=00000000000000 P=a S=0.2...67.9.b 02107: 11.11111.1 -> 02337 jsb lncd1 same as for ln(x), load ln(1.1) A=00017973365341 B=30000000000001 C=00950000000000 D=00000000000000 M=00000000000000 P=a S=0.2...67.9.b 02337: 1..1..11.. lncd1: 9 -> p A=00017973365341 B=30000000000001 C=00950000000000 D=00000000000000 M=00000000000000 P=9 S=0.2...67.9.b 02340: ..11.11... load constant 3 A=00017973365341 B=30000000000001 C=00953000000000 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 02341: ...1.11... load constant 1 A=00017973365341 B=30000000000001 C=00953100000000 D=00000000000000 M=00000000000000 P=7 S=0.2...67.9.b 02342: .....11... load constant 0 A=00017973365341 B=30000000000001 C=00953100000000 D=00000000000000 M=00000000000000 P=6 S=0.2...67.9.b 02343: ...1.11... load constant 1 A=00017973365341 B=30000000000001 C=00953101000000 D=00000000000000 M=00000000000000 P=5 S=0.2...67.9.b 02344: .111.11... load constant 7 A=00017973365341 B=30000000000001 C=00953101700000 D=00000000000000 M=00000000000000 P=4 S=0.2...67.9.b 02345: 1..1.11... load constant 9 A=00017973365341 B=30000000000001 C=00953101790000 D=00000000000000 M=00000000000000 P=3 S=0.2...67.9.b 02346: 1....11... lnc8: load constant 8 A=00017973365341 B=30000000000001 C=00953101798000 D=00000000000000 M=00000000000000 P=2 S=0.2...67.9.b 02347: .....11... load constant 0 A=00017973365341 B=30000000000001 C=00953101798000 D=00000000000000 M=00000000000000 P=1 S=0.2...67.9.b 02350: .1.1.11... load constant 5 A=00017973365341 B=30000000000001 C=00953101798050 D=00000000000000 M=00000000000000 P=0 S=0.2...67.9.b 02351: .1.1.11... load constant 5 A=00017973365341 B=30000000000001 C=00953101798055 D=00000000000000 M=00000000000000 P=f S=0.2...67.9.b 02352: ..11.11... lnc9: load constant 3 A=00017973365341 B=30000000000001 C=00953101798055 D=00000000000000 M=00000000000000 P=e S=0.2...67.9.b 02353: 11.111.111 -> 02335 go to nrm27 A=00017973365341 B=30000000000001 C=00953101798055 D=00000000000000 M=00000000000000 P=e S=0.2...67.9.b 02335: 11....11.. nrm27: 12 -> p A=00017973365341 B=30000000000001 C=00953101798055 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02336: .1111.1.11 -> 02172 go to nrm26 A=00017973365341 B=30000000000001 C=00953101798055 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02172: ..1..1.1.. nrm26: if s2 = 0 A=00017973365341 B=30000000000001 C=00953101798055 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02173: 1..1.1..11 -> 02224 then go to rtn21 A=00017973365341 B=30000000000001 C=00953101798055 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02174: ....11.... return A=00017973365341 B=30000000000001 C=00953101798055 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02110: 1.1...11.. 10 -> p A=00017973365341 B=30000000000001 C=00953101798055 D=00000000000000 M=00000000000000 P=a S=0.2...67.9.b 02111: 1..11.11.1 -> 02233 jsb pqo21 A=00017973365341 B=30000000000001 C=00953101798055 D=00000000000000 M=00000000000000 P=a S=0.2...67.9.b 02233: ..1..1.... -> 01234 pqo21: select rom 1 ; -> pqo11 A=00017973365341 B=30000000000001 C=00953101798055 D=00000000000000 M=00000000000000 P=a S=0.2...67.9.b 01234: .1....111. pqo11: shift left a[w] A=00179733653410 B=30000000000001 C=00953101798055 D=00000000000000 M=00000000000000 P=a S=0.2...67.9.b 01235: 1.1..1.11. pqo12: shift right b[ms] A=00179733653410 B=03000000000001 C=00953101798055 D=00000000000000 M=00000000000000 P=a S=0.2...67.9.b 01236: 1...1.111. b exchange c[w] A=00179733653410 B=00953101798055 C=03000000000001 D=00000000000000 M=00000000000000 P=a S=0.2...67.9.b 01237: 1.1....111 -> 01241 go to pqo16 A=00179733653410 B=00953101798055 C=03000000000001 D=00000000000000 M=00000000000000 P=a S=0.2...67.9.b 01241: 11....111. pqo16: a - b -> a[w] A=99226631855355 B=00953101798055 C=03000000000001 D=00000000000000 M=00000000000000 P=a S=0.2...67.9.b 01242: 1.1.....11 -> 01240 if no carry go to pqo15 A=99226631855355 B=00953101798055 C=03000000000001 D=00000000000000 M=00000000000000 P=a S=0.2...67.9.b 01243: 111...111. a + b -> a[w] A=00179733653410 B=00953101798055 C=03000000000001 D=00000000000000 M=00000000000000 P=a S=0.2...67.9.b 01244: .1...1.... -> 02245 pqo13: select rom 2 ; -> l02245 A=00179733653410 B=00953101798055 C=03000000000001 D=00000000000000 M=00000000000000 P=a S=0.2...67.9.b 02245: .11.11.111 -> 02155 go to pqo23 A=00179733653410 B=00953101798055 C=03000000000001 D=00000000000000 M=00000000000000 P=a S=0.2...67.9.b 02155: 1...1.111. pqo23: b exchange c[w] A=00179733653410 B=03000000000001 C=00953101798055 D=00000000000000 M=00000000000000 P=a S=0.2...67.9.b 02156: ..11..111. 0 -> c[w] A=00179733653410 B=03000000000001 C=00000000000000 D=00000000000000 M=00000000000000 P=a S=0.2...67.9.b 02157: .1.11..11. c - 1 -> c[m] A=00179733653410 B=03000000000001 C=09999999999000 D=00000000000000 M=00000000000000 P=a S=0.2...67.9.b 02160: ..1..1.1.. if s2 = 0 A=00179733653410 B=03000000000001 C=09999999999000 D=00000000000000 M=00000000000000 P=a S=0.2...67.9.b 02161: .111.11.11 -> 02166 then go to pqo28 A=00179733653410 B=03000000000001 C=09999999999000 D=00000000000000 M=00000000000000 P=a S=0.2...67.9.b 02162: .1...11... load constant 4 A=00179733653410 B=03000000000001 C=09949999999000 D=00000000000000 M=00000000000000 P=9 S=0.2...67.9.b 02163: .1111..11. c + 1 -> c[m] A=00179733653410 B=03000000000001 C=09950000000000 D=00000000000000 M=00000000000000 P=9 S=0.2...67.9.b 02164: .1111..111 -> 02171 if no carry go to pqo24 A=00179733653410 B=03000000000001 C=09950000000000 D=00000000000000 M=00000000000000 P=9 S=0.2...67.9.b 02171: 1..1..111. pqo24: shift right c[w] A=00179733653410 B=03000000000001 C=00995000000000 D=00000000000000 M=00000000000000 P=9 S=0.2...67.9.b 02172: ..1..1.1.. nrm26: if s2 = 0 A=00179733653410 B=03000000000001 C=00995000000000 D=00000000000000 M=00000000000000 P=9 S=0.2...67.9.b 02173: 1..1.1..11 -> 02224 then go to rtn21 A=00179733653410 B=03000000000001 C=00995000000000 D=00000000000000 M=00000000000000 P=9 S=0.2...67.9.b 02174: ....11.... return A=00179733653410 B=03000000000001 C=00995000000000 D=00000000000000 M=00000000000000 P=9 S=0.2...67.9.b 02112: .11111.1.1 -> 02175 jsb lncd2 A=00179733653410 B=03000000000001 C=00995000000000 D=00000000000000 M=00000000000000 P=9 S=0.2...67.9.b 02175: .111..11.. lncd2: 7 -> p same as for ln(x), load ln(1.01) A=00179733653410 B=03000000000001 C=00995000000000 D=00000000000000 M=00000000000000 P=7 S=0.2...67.9.b 02176: ..11.11... lnc6: load constant 3 A=00179733653410 B=03000000000001 C=00995030000000 D=00000000000000 M=00000000000000 P=6 S=0.2...67.9.b 02177: ..11.11... load constant 3 A=00179733653410 B=03000000000001 C=00995033000000 D=00000000000000 M=00000000000000 P=5 S=0.2...67.9.b 02200: .....11... load constant 0 A=00179733653410 B=03000000000001 C=00995033000000 D=00000000000000 M=00000000000000 P=4 S=0.2...67.9.b 02201: 1....11... lnc7: load constant 8 A=00179733653410 B=03000000000001 C=00995033080000 D=00000000000000 M=00000000000000 P=3 S=0.2...67.9.b 02202: .1.1.11... load constant 5 A=00179733653410 B=03000000000001 C=00995033085000 D=00000000000000 M=00000000000000 P=2 S=0.2...67.9.b 02203: .....11... load constant 0 A=00179733653410 B=03000000000001 C=00995033085000 D=00000000000000 M=00000000000000 P=1 S=0.2...67.9.b 02204: 1..1.11... load constant 9 A=00179733653410 B=03000000000001 C=00995033085090 D=00000000000000 M=00000000000000 P=0 S=0.2...67.9.b 02205: 111.1.1.11 -> 02352 go to lnc9 A=00179733653410 B=03000000000001 C=00995033085090 D=00000000000000 M=00000000000000 P=0 S=0.2...67.9.b 02352: ..11.11... lnc9: load constant 3 A=00179733653410 B=03000000000001 C=00995033085093 D=00000000000000 M=00000000000000 P=f S=0.2...67.9.b 02353: 11.111.111 -> 02335 go to nrm27 A=00179733653410 B=03000000000001 C=00995033085093 D=00000000000000 M=00000000000000 P=f S=0.2...67.9.b 02335: 11....11.. nrm27: 12 -> p A=00179733653410 B=03000000000001 C=00995033085093 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02336: .1111.1.11 -> 02172 go to nrm26 A=00179733653410 B=03000000000001 C=00995033085093 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02172: ..1..1.1.. nrm26: if s2 = 0 A=00179733653410 B=03000000000001 C=00995033085093 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02173: 1..1.1..11 -> 02224 then go to rtn21 A=00179733653410 B=03000000000001 C=00995033085093 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02174: ....11.... return A=00179733653410 B=03000000000001 C=00995033085093 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02113: 1..1..11.. 9 -> p A=00179733653410 B=03000000000001 C=00995033085093 D=00000000000000 M=00000000000000 P=9 S=0.2...67.9.b 02114: 1..11.11.1 -> 02233 jsb pqo21 A=00179733653410 B=03000000000001 C=00995033085093 D=00000000000000 M=00000000000000 P=9 S=0.2...67.9.b 02233: ..1..1.... -> 01234 pqo21: select rom 1 ; -> pqo11 A=00179733653410 B=03000000000001 C=00995033085093 D=00000000000000 M=00000000000000 P=9 S=0.2...67.9.b 01234: .1....111. pqo11: shift left a[w] A=01797336534100 B=03000000000001 C=00995033085093 D=00000000000000 M=00000000000000 P=9 S=0.2...67.9.b 01235: 1.1..1.11. pqo12: shift right b[ms] A=01797336534100 B=00300000000001 C=00995033085093 D=00000000000000 M=00000000000000 P=9 S=0.2...67.9.b 01236: 1...1.111. b exchange c[w] A=01797336534100 B=00995033085093 C=00300000000001 D=00000000000000 M=00000000000000 P=9 S=0.2...67.9.b 01237: 1.1....111 -> 01241 go to pqo16 A=01797336534100 B=00995033085093 C=00300000000001 D=00000000000000 M=00000000000000 P=9 S=0.2...67.9.b 01241: 11....111. pqo16: a - b -> a[w] A=00802303449007 B=00995033085093 C=00300000000001 D=00000000000000 M=00000000000000 P=9 S=0.2...67.9.b 01242: 1.1.....11 -> 01240 if no carry go to pqo15 A=00802303449007 B=00995033085093 C=00300000000001 D=00000000000000 M=00000000000000 P=9 S=0.2...67.9.b 01240: .11111111. pqo15: c + 1 -> c[s] A=00802303449007 B=00995033085093 C=10300000000001 D=00000000000000 M=00000000000000 P=9 S=0.2...67.9.b 01241: 11....111. pqo16: a - b -> a[w] A=99807270363914 B=00995033085093 C=10300000000001 D=00000000000000 M=00000000000000 P=9 S=0.2...67.9.b 01242: 1.1.....11 -> 01240 if no carry go to pqo15 A=99807270363914 B=00995033085093 C=10300000000001 D=00000000000000 M=00000000000000 P=9 S=0.2...67.9.b 01243: 111...111. a + b -> a[w] A=00802303449007 B=00995033085093 C=10300000000001 D=00000000000000 M=00000000000000 P=9 S=0.2...67.9.b 01244: .1...1.... -> 02245 pqo13: select rom 2 ; -> l02245 A=00802303449007 B=00995033085093 C=10300000000001 D=00000000000000 M=00000000000000 P=9 S=0.2...67.9.b 02245: .11.11.111 -> 02155 go to pqo23 A=00802303449007 B=00995033085093 C=10300000000001 D=00000000000000 M=00000000000000 P=9 S=0.2...67.9.b 02155: 1...1.111. pqo23: b exchange c[w] A=00802303449007 B=10300000000001 C=00995033085093 D=00000000000000 M=00000000000000 P=9 S=0.2...67.9.b 02156: ..11..111. 0 -> c[w] A=00802303449007 B=10300000000001 C=00000000000000 D=00000000000000 M=00000000000000 P=9 S=0.2...67.9.b 02157: .1.11..11. c - 1 -> c[m] A=00802303449007 B=10300000000001 C=09999999999000 D=00000000000000 M=00000000000000 P=9 S=0.2...67.9.b 02160: ..1..1.1.. if s2 = 0 A=00802303449007 B=10300000000001 C=09999999999000 D=00000000000000 M=00000000000000 P=9 S=0.2...67.9.b 02161: .111.11.11 -> 02166 then go to pqo28 A=00802303449007 B=10300000000001 C=09999999999000 D=00000000000000 M=00000000000000 P=9 S=0.2...67.9.b 02162: .1...11... load constant 4 A=00802303449007 B=10300000000001 C=09994999999000 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 02163: .1111..11. c + 1 -> c[m] A=00802303449007 B=10300000000001 C=09995000000000 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 02164: .1111..111 -> 02171 if no carry go to pqo24 A=00802303449007 B=10300000000001 C=09995000000000 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 02171: 1..1..111. pqo24: shift right c[w] A=00802303449007 B=10300000000001 C=00999500000000 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 02172: ..1..1.1.. nrm26: if s2 = 0 A=00802303449007 B=10300000000001 C=00999500000000 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 02173: 1..1.1..11 -> 02224 then go to rtn21 A=00802303449007 B=10300000000001 C=00999500000000 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 02174: ....11.... return A=00802303449007 B=10300000000001 C=00999500000000 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 02115: 1111111..1 -> 02376 jsb lncd3 A=00802303449007 B=10300000000001 C=00999500000000 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 02376: .1.1..11.. lncd3: 5 -> p A=00802303449007 B=10300000000001 C=00999500000000 D=00000000000000 M=00000000000000 P=5 S=0.2...67.9.b 02377: .111111.11 -> 02176 go to lnc6 A=00802303449007 B=10300000000001 C=00999500000000 D=00000000000000 M=00000000000000 P=5 S=0.2...67.9.b 02176: ..11.11... lnc6: load constant 3 A=00802303449007 B=10300000000001 C=00999500300000 D=00000000000000 M=00000000000000 P=4 S=0.2...67.9.b 02177: ..11.11... load constant 3 A=00802303449007 B=10300000000001 C=00999500330000 D=00000000000000 M=00000000000000 P=3 S=0.2...67.9.b 02200: .....11... load constant 0 A=00802303449007 B=10300000000001 C=00999500330000 D=00000000000000 M=00000000000000 P=2 S=0.2...67.9.b 02201: 1....11... lnc7: load constant 8 A=00802303449007 B=10300000000001 C=00999500330800 D=00000000000000 M=00000000000000 P=1 S=0.2...67.9.b 02202: .1.1.11... load constant 5 A=00802303449007 B=10300000000001 C=00999500330850 D=00000000000000 M=00000000000000 P=0 S=0.2...67.9.b 02203: .....11... load constant 0 A=00802303449007 B=10300000000001 C=00999500330850 D=00000000000000 M=00000000000000 P=f S=0.2...67.9.b 02204: 1..1.11... load constant 9 A=00802303449007 B=10300000000001 C=00999500330850 D=00000000000000 M=00000000000000 P=e S=0.2...67.9.b 02205: 111.1.1.11 -> 02352 go to lnc9 A=00802303449007 B=10300000000001 C=00999500330850 D=00000000000000 M=00000000000000 P=e S=0.2...67.9.b 02352: ..11.11... lnc9: load constant 3 same as for ln(x) load ln(1.001) A=00802303449007 B=10300000000001 C=00999500330850 D=00000000000000 M=00000000000000 P=d S=0.2...67.9.b 02353: 11.111.111 -> 02335 go to nrm27 A=00802303449007 B=10300000000001 C=00999500330850 D=00000000000000 M=00000000000000 P=d S=0.2...67.9.b 02335: 11....11.. nrm27: 12 -> p A=00802303449007 B=10300000000001 C=00999500330850 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02336: .1111.1.11 -> 02172 go to nrm26 A=00802303449007 B=10300000000001 C=00999500330850 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02172: ..1..1.1.. nrm26: if s2 = 0 A=00802303449007 B=10300000000001 C=00999500330850 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02173: 1..1.1..11 -> 02224 then go to rtn21 A=00802303449007 B=10300000000001 C=00999500330850 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02174: ....11.... return A=00802303449007 B=10300000000001 C=00999500330850 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02116: 1.....11.. 8 -> p A=00802303449007 B=10300000000001 C=00999500330850 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 02117: 1..11.11.1 -> 02233 jsb pqo21 A=00802303449007 B=10300000000001 C=00999500330850 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 02233: ..1..1.... -> 01234 pqo21: select rom 1 ; -> pqo11 A=00802303449007 B=10300000000001 C=00999500330850 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 01234: .1....111. pqo11: shift left a[w] A=08023034490070 B=10300000000001 C=00999500330850 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 01235: 1.1..1.11. pqo12: shift right b[ms] A=08023034490070 B=01030000000001 C=00999500330850 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 01236: 1...1.111. b exchange c[w] A=08023034490070 B=00999500330850 C=01030000000001 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 01237: 1.1....111 -> 01241 go to pqo16 A=08023034490070 B=00999500330850 C=01030000000001 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 01241: 11....111. pqo16: a - b -> a[w] A=07023534159220 B=00999500330850 C=01030000000001 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 01242: 1.1.....11 -> 01240 if no carry go to pqo15 A=07023534159220 B=00999500330850 C=01030000000001 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 01240: .11111111. pqo15: c + 1 -> c[s] A=07023534159220 B=00999500330850 C=11030000000001 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 01241: 11....111. pqo16: a - b -> a[w] A=06024033828370 B=00999500330850 C=11030000000001 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 01242: 1.1.....11 -> 01240 if no carry go to pqo15 A=06024033828370 B=00999500330850 C=11030000000001 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 01240: .11111111. pqo15: c + 1 -> c[s] A=06024033828370 B=00999500330850 C=21030000000001 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 01241: 11....111. pqo16: a - b -> a[w] A=05024533497520 B=00999500330850 C=21030000000001 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 01242: 1.1.....11 -> 01240 if no carry go to pqo15 A=05024533497520 B=00999500330850 C=21030000000001 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 01240: .11111111. pqo15: c + 1 -> c[s] A=05024533497520 B=00999500330850 C=31030000000001 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 01241: 11....111. pqo16: a - b -> a[w] A=04025033166670 B=00999500330850 C=31030000000001 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 01242: 1.1.....11 -> 01240 if no carry go to pqo15 A=04025033166670 B=00999500330850 C=31030000000001 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 01240: .11111111. pqo15: c + 1 -> c[s] A=04025033166670 B=00999500330850 C=41030000000001 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 01241: 11....111. pqo16: a - b -> a[w] A=03025532835820 B=00999500330850 C=41030000000001 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 01242: 1.1.....11 -> 01240 if no carry go to pqo15 A=03025532835820 B=00999500330850 C=41030000000001 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 01240: .11111111. pqo15: c + 1 -> c[s] A=03025532835820 B=00999500330850 C=51030000000001 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 01241: 11....111. pqo16: a - b -> a[w] A=02026032504970 B=00999500330850 C=51030000000001 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 01242: 1.1.....11 -> 01240 if no carry go to pqo15 A=02026032504970 B=00999500330850 C=51030000000001 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 01240: .11111111. pqo15: c + 1 -> c[s] A=02026032504970 B=00999500330850 C=61030000000001 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 01241: 11....111. pqo16: a - b -> a[w] A=01026532174120 B=00999500330850 C=61030000000001 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 01242: 1.1.....11 -> 01240 if no carry go to pqo15 A=01026532174120 B=00999500330850 C=61030000000001 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 01240: .11111111. pqo15: c + 1 -> c[s] A=01026532174120 B=00999500330850 C=71030000000001 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 01241: 11....111. pqo16: a - b -> a[w] A=00027031843270 B=00999500330850 C=71030000000001 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 01242: 1.1.....11 -> 01240 if no carry go to pqo15 A=00027031843270 B=00999500330850 C=71030000000001 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 01240: .11111111. pqo15: c + 1 -> c[s] A=00027031843270 B=00999500330850 C=81030000000001 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 01241: 11....111. pqo16: a - b -> a[w] A=99027531512420 B=00999500330850 C=81030000000001 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 01242: 1.1.....11 -> 01240 if no carry go to pqo15 A=99027531512420 B=00999500330850 C=81030000000001 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 01243: 111...111. a + b -> a[w] A=00027031843270 B=00999500330850 C=81030000000001 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 01244: .1...1.... -> 02245 pqo13: select rom 2 ; -> l02245 A=00027031843270 B=00999500330850 C=81030000000001 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 02245: .11.11.111 -> 02155 go to pqo23 A=00027031843270 B=00999500330850 C=81030000000001 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 02155: 1...1.111. pqo23: b exchange c[w] A=00027031843270 B=81030000000001 C=00999500330850 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 02156: ..11..111. 0 -> c[w] A=00027031843270 B=81030000000001 C=00000000000000 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 02157: .1.11..11. c - 1 -> c[m] A=00027031843270 B=81030000000001 C=09999999999000 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 02160: ..1..1.1.. if s2 = 0 A=00027031843270 B=81030000000001 C=09999999999000 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 02161: .111.11.11 -> 02166 then go to pqo28 A=00027031843270 B=81030000000001 C=09999999999000 D=00000000000000 M=00000000000000 P=8 S=0.2...67.9.b 02162: .1...11... load constant 4 load ln(1.0001) A=00027031843270 B=81030000000001 C=09999499999000 D=00000000000000 M=00000000000000 P=7 S=0.2...67.9.b 02163: .1111..11. c + 1 -> c[m] A=00027031843270 B=81030000000001 C=09999500000000 D=00000000000000 M=00000000000000 P=7 S=0.2...67.9.b 02164: .1111..111 -> 02171 if no carry go to pqo24 A=00027031843270 B=81030000000001 C=09999500000000 D=00000000000000 M=00000000000000 P=7 S=0.2...67.9.b 02171: 1..1..111. pqo24: shift right c[w] A=00027031843270 B=81030000000001 C=00999950000000 D=00000000000000 M=00000000000000 P=7 S=0.2...67.9.b 02172: ..1..1.1.. nrm26: if s2 = 0 A=00027031843270 B=81030000000001 C=00999950000000 D=00000000000000 M=00000000000000 P=7 S=0.2...67.9.b 02173: 1..1.1..11 -> 02224 then go to rtn21 A=00027031843270 B=81030000000001 C=00999950000000 D=00000000000000 M=00000000000000 P=7 S=0.2...67.9.b 02174: ....11.... return A=00027031843270 B=81030000000001 C=00999950000000 D=00000000000000 M=00000000000000 P=7 S=0.2...67.9.b 02120: 1..11.11.1 -> 02233 jsb pqo21 A=00027031843270 B=81030000000001 C=00999950000000 D=00000000000000 M=00000000000000 P=7 S=0.2...67.9.b 02233: ..1..1.... -> 01234 pqo21: select rom 1 ; -> pqo11 A=00027031843270 B=81030000000001 C=00999950000000 D=00000000000000 M=00000000000000 P=7 S=0.2...67.9.b 01234: .1....111. pqo11: shift left a[w] A=00270318432700 B=81030000000001 C=00999950000000 D=00000000000000 M=00000000000000 P=7 S=0.2...67.9.b 01235: 1.1..1.11. pqo12: shift right b[ms] A=00270318432700 B=08103000000001 C=00999950000000 D=00000000000000 M=00000000000000 P=7 S=0.2...67.9.b 01236: 1...1.111. b exchange c[w] A=00270318432700 B=00999950000000 C=08103000000001 D=00000000000000 M=00000000000000 P=7 S=0.2...67.9.b 01237: 1.1....111 -> 01241 go to pqo16 A=00270318432700 B=00999950000000 C=08103000000001 D=00000000000000 M=00000000000000 P=7 S=0.2...67.9.b 01241: 11....111. pqo16: a - b -> a[w] A=99270368432700 B=00999950000000 C=08103000000001 D=00000000000000 M=00000000000000 P=7 S=0.2...67.9.b 01242: 1.1.....11 -> 01240 if no carry go to pqo15 A=99270368432700 B=00999950000000 C=08103000000001 D=00000000000000 M=00000000000000 P=7 S=0.2...67.9.b 01243: 111...111. a + b -> a[w] A=00270318432700 B=00999950000000 C=08103000000001 D=00000000000000 M=00000000000000 P=7 S=0.2...67.9.b 01244: .1...1.... -> 02245 pqo13: select rom 2 ; -> l02245 A=00270318432700 B=00999950000000 C=08103000000001 D=00000000000000 M=00000000000000 P=7 S=0.2...67.9.b 02245: .11.11.111 -> 02155 go to pqo23 A=00270318432700 B=00999950000000 C=08103000000001 D=00000000000000 M=00000000000000 P=7 S=0.2...67.9.b 02155: 1...1.111. pqo23: b exchange c[w] A=00270318432700 B=08103000000001 C=00999950000000 D=00000000000000 M=00000000000000 P=7 S=0.2...67.9.b 02156: ..11..111. 0 -> c[w] A=00270318432700 B=08103000000001 C=00000000000000 D=00000000000000 M=00000000000000 P=7 S=0.2...67.9.b 02157: .1.11..11. c - 1 -> c[m] A=00270318432700 B=08103000000001 C=09999999999000 D=00000000000000 M=00000000000000 P=7 S=0.2...67.9.b 02160: ..1..1.1.. if s2 = 0 A=00270318432700 B=08103000000001 C=09999999999000 D=00000000000000 M=00000000000000 P=7 S=0.2...67.9.b 02161: .111.11.11 -> 02166 then go to pqo28 A=00270318432700 B=08103000000001 C=09999999999000 D=00000000000000 M=00000000000000 P=7 S=0.2...67.9.b 02162: .1...11... load constant 4 load ln(1.00001) A=00270318432700 B=08103000000001 C=09999949999000 D=00000000000000 M=00000000000000 P=6 S=0.2...67.9.b 02163: .1111..11. c + 1 -> c[m] A=00270318432700 B=08103000000001 C=09999950000000 D=00000000000000 M=00000000000000 P=6 S=0.2...67.9.b 02164: .1111..111 -> 02171 if no carry go to pqo24 A=00270318432700 B=08103000000001 C=09999950000000 D=00000000000000 M=00000000000000 P=6 S=0.2...67.9.b 02171: 1..1..111. pqo24: shift right c[w] A=00270318432700 B=08103000000001 C=00999995000000 D=00000000000000 M=00000000000000 P=6 S=0.2...67.9.b 02172: ..1..1.1.. nrm26: if s2 = 0 A=00270318432700 B=08103000000001 C=00999995000000 D=00000000000000 M=00000000000000 P=6 S=0.2...67.9.b 02173: 1..1.1..11 -> 02224 then go to rtn21 A=00270318432700 B=08103000000001 C=00999995000000 D=00000000000000 M=00000000000000 P=6 S=0.2...67.9.b 02174: ....11.... return A=00270318432700 B=08103000000001 C=00999995000000 D=00000000000000 M=00000000000000 P=6 S=0.2...67.9.b 02121: 1..11.11.1 -> 02233 jsb pqo21 A=00270318432700 B=08103000000001 C=00999995000000 D=00000000000000 M=00000000000000 P=6 S=0.2...67.9.b 02233: ..1..1.... -> 01234 pqo21: select rom 1 ; -> pqo11 A=00270318432700 B=08103000000001 C=00999995000000 D=00000000000000 M=00000000000000 P=6 S=0.2...67.9.b 01234: .1....111. pqo11: shift left a[w] A=02703184327000 B=08103000000001 C=00999995000000 D=00000000000000 M=00000000000000 P=6 S=0.2...67.9.b 01235: 1.1..1.11. pqo12: shift right b[ms] A=02703184327000 B=00810300000001 C=00999995000000 D=00000000000000 M=00000000000000 P=6 S=0.2...67.9.b 01236: 1...1.111. b exchange c[w] A=02703184327000 B=00999995000000 C=00810300000001 D=00000000000000 M=00000000000000 P=6 S=0.2...67.9.b 01237: 1.1....111 -> 01241 go to pqo16 A=02703184327000 B=00999995000000 C=00810300000001 D=00000000000000 M=00000000000000 P=6 S=0.2...67.9.b 01241: 11....111. pqo16: a - b -> a[w] A=01703189327000 B=00999995000000 C=00810300000001 D=00000000000000 M=00000000000000 P=6 S=0.2...67.9.b 01242: 1.1.....11 -> 01240 if no carry go to pqo15 A=01703189327000 B=00999995000000 C=00810300000001 D=00000000000000 M=00000000000000 P=6 S=0.2...67.9.b 01240: .11111111. pqo15: c + 1 -> c[s] A=01703189327000 B=00999995000000 C=10810300000001 D=00000000000000 M=00000000000000 P=6 S=0.2...67.9.b 01241: 11....111. pqo16: a - b -> a[w] A=00703194327000 B=00999995000000 C=10810300000001 D=00000000000000 M=00000000000000 P=6 S=0.2...67.9.b 01242: 1.1.....11 -> 01240 if no carry go to pqo15 A=00703194327000 B=00999995000000 C=10810300000001 D=00000000000000 M=00000000000000 P=6 S=0.2...67.9.b 01240: .11111111. pqo15: c + 1 -> c[s] A=00703194327000 B=00999995000000 C=20810300000001 D=00000000000000 M=00000000000000 P=6 S=0.2...67.9.b 01241: 11....111. pqo16: a - b -> a[w] A=99703199327000 B=00999995000000 C=20810300000001 D=00000000000000 M=00000000000000 P=6 S=0.2...67.9.b 01242: 1.1.....11 -> 01240 if no carry go to pqo15 A=99703199327000 B=00999995000000 C=20810300000001 D=00000000000000 M=00000000000000 P=6 S=0.2...67.9.b 01243: 111...111. a + b -> a[w] A=00703194327000 B=00999995000000 C=20810300000001 D=00000000000000 M=00000000000000 P=6 S=0.2...67.9.b 01244: .1...1.... -> 02245 pqo13: select rom 2 ; -> l02245 A=00703194327000 B=00999995000000 C=20810300000001 D=00000000000000 M=00000000000000 P=6 S=0.2...67.9.b 02245: .11.11.111 -> 02155 go to pqo23 A=00703194327000 B=00999995000000 C=20810300000001 D=00000000000000 M=00000000000000 P=6 S=0.2...67.9.b 02155: 1...1.111. pqo23: b exchange c[w] A=00703194327000 B=20810300000001 C=00999995000000 D=00000000000000 M=00000000000000 P=6 S=0.2...67.9.b 02156: ..11..111. 0 -> c[w] A=00703194327000 B=20810300000001 C=00000000000000 D=00000000000000 M=00000000000000 P=6 S=0.2...67.9.b 02157: .1.11..11. c - 1 -> c[m] A=00703194327000 B=20810300000001 C=09999999999000 D=00000000000000 M=00000000000000 P=6 S=0.2...67.9.b 02160: ..1..1.1.. if s2 = 0 A=00703194327000 B=20810300000001 C=09999999999000 D=00000000000000 M=00000000000000 P=6 S=0.2...67.9.b 02161: .111.11.11 -> 02166 then go to pqo28 A=00703194327000 B=20810300000001 C=09999999999000 D=00000000000000 M=00000000000000 P=6 S=0.2...67.9.b 02162: .1...11... load constant 4 A=00703194327000 B=20810300000001 C=09999994999000 D=00000000000000 M=00000000000000 P=5 S=0.2...67.9.b 02163: .1111..11. c + 1 -> c[m] A=00703194327000 B=20810300000001 C=09999995000000 D=00000000000000 M=00000000000000 P=5 S=0.2...67.9.b 02164: .1111..111 -> 02171 if no carry go to pqo24 A=00703194327000 B=20810300000001 C=09999995000000 D=00000000000000 M=00000000000000 P=5 S=0.2...67.9.b 02171: 1..1..111. pqo24: shift right c[w] A=00703194327000 B=20810300000001 C=00999999500000 D=00000000000000 M=00000000000000 P=5 S=0.2...67.9.b 02172: ..1..1.1.. nrm26: if s2 = 0 A=00703194327000 B=20810300000001 C=00999999500000 D=00000000000000 M=00000000000000 P=5 S=0.2...67.9.b 02173: 1..1.1..11 -> 02224 then go to rtn21 A=00703194327000 B=20810300000001 C=00999999500000 D=00000000000000 M=00000000000000 P=5 S=0.2...67.9.b 02174: ....11.... return A=00703194327000 B=20810300000001 C=00999999500000 D=00000000000000 M=00000000000000 P=5 S=0.2...67.9.b 02122: .11...11.. 6 -> p A=00703194327000 B=20810300000001 C=00999999500000 D=00000000000000 M=00000000000000 P=6 S=0.2...67.9.b 02123: 1.1111..1. 0 -> a[wp] A=00703190000000 B=20810300000001 C=00999999500000 D=00000000000000 M=00000000000000 P=6 S=0.2...67.9.b 02124: 11.1..11.. 13 -> p A=00703190000000 B=20810300000001 C=00999999500000 D=00000000000000 M=00000000000000 P=d S=0.2...67.9.b 02125: 1...1.111. b exchange c[w] A=00703190000000 B=00999999500000 C=20810300000001 D=00000000000000 M=00000000000000 P=d S=0.2...67.9.b 02126: 111.1.111. a exchange c[w] A=20810300000001 B=00999999500000 C=00703190000000 D=00000000000000 M=00000000000000 P=d S=0.2...67.9.b 02127: .11..11... load constant 6 A=20810300000001 B=00999999500000 C=60703190000000 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b Start of part2: pseudo multiplication [BP5] result is 2081031 02130: 1...111.11 -> 02216 go to exp23 A=20810300000001 B=00999999500000 C=60703190000000 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02216: 111.1.111. exp23: a exchange c[w] A=60703190000000 B=00999999500000 C=20810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02217: 11.111111. a - 1 -> a[s] A=50703190000000 B=00999999500000 C=20810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02220: 1...1...11 -> 02210 if no carry go to exp22 A=50703190000000 B=00999999500000 C=20810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02210: .1..1.111. exp22: a -> b[w] We process q5=2 (SR=5) A=50703190000000 B=50703190000000 C=20810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02211: .1.111111. c - 1 -> c[s] A=50703190000000 B=50703190000000 C=10810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02212: 1....11.11 -> 02206 if no carry go to exp29 A=50703190000000 B=50703190000000 C=10810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02206: 1..1.11..1 -> 02226 exp29: jsb eca22 A=50703190000000 B=50703190000000 C=10810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=40703190000000 B=50703190000000 C=10810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=40703190000000 B=50703190000000 C=10810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02225: 1.11.1..1. eca21: shift right a[wp] 1 SR A=40070319000000 B=50703190000000 C=10810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=30070319000000 B=50703190000000 C=10810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=30070319000000 B=50703190000000 C=10810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02225: 1.11.1..1. eca21: shift right a[wp] 2 SR A=30007031900000 B=50703190000000 C=10810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=20007031900000 B=50703190000000 C=10810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=20007031900000 B=50703190000000 C=10810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02225: 1.11.1..1. eca21: shift right a[wp] 3 SR A=20000703190000 B=50703190000000 C=10810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=10000703190000 B=50703190000000 C=10810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=10000703190000 B=50703190000000 C=10810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02225: 1.11.1..1. eca21: shift right a[wp] 4 SR A=10000070319000 B=50703190000000 C=10810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=00000070319000 B=50703190000000 C=10810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=00000070319000 B=50703190000000 C=10810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02225: 1.11.1..1. eca21: shift right a[wp] 5 SR A=00000007031900 B=50703190000000 C=10810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=90000007031900 B=50703190000000 C=10810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 KO A=90000007031900 B=50703190000000 C=10810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02230: 1.1111111. 0 -> a[s] A=00000007031900 B=50703190000000 C=10810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02231: 111...111. a + b -> a[w] The PM A=50703197031900 B=50703190000000 C=10810300000001 7.031970319 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02232: ....11.... return A=50703197031900 B=50703190000000 C=10810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02207: 11111...1. a + 1 -> a[p] A mantissa corection A=51703197031900 B=50703190000000 C=10810300000001 17.031970319 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02210: .1..1.111. exp22: a -> b[w] A=51703197031900 B=51703197031900 C=10810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02211: .1.111111. c - 1 -> c[s] A=51703197031900 B=51703197031900 C=00810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02212: 1....11.11 -> 02206 if no carry go to exp29 A=51703197031900 B=51703197031900 C=00810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02206: 1..1.11..1 -> 02226 exp29: jsb eca22 A=51703197031900 B=51703197031900 C=00810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=41703197031900 B=51703197031900 C=00810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=41703197031900 B=51703197031900 C=00810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02225: 1.11.1..1. eca21: shift right a[wp] A=40170319703190 B=51703197031900 C=00810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=30170319703190 B=51703197031900 C=00810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=30170319703190 B=51703197031900 C=00810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02225: 1.11.1..1. eca21: shift right a[wp] A=30017031970319 B=51703197031900 C=00810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=20017031970319 B=51703197031900 C=00810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=20017031970319 B=51703197031900 C=00810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02225: 1.11.1..1. eca21: shift right a[wp] A=20001703197031 B=51703197031900 C=00810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=10001703197031 B=51703197031900 C=00810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=10001703197031 B=51703197031900 C=00810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02225: 1.11.1..1. eca21: shift right a[wp] A=10000170319703 B=51703197031900 C=00810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=00000170319703 B=51703197031900 C=00810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=00000170319703 B=51703197031900 C=00810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02225: 1.11.1..1. eca21: shift right a[wp] A=00000017031970 B=51703197031900 C=00810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=90000017031970 B=51703197031900 C=00810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=90000017031970 B=51703197031900 C=00810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02230: 1.1111111. 0 -> a[s] A=00000017031970 B=51703197031900 C=00810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02231: 111...111. a + b -> a[w] 2nd PM A=51703214063870 B=51703197031900 C=00810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02232: ....11.... return 17.03214063870 A=51703214063870 B=51703197031900 C=00810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02207: 11111...1. a + 1 -> a[p] mantissa correction A=52703214063870 B=51703197031900 C=00810300000001 27.03214063870 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02210: .1..1.111. exp22: a -> b[w] A=52703214063870 B=52703214063870 C=00810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02211: .1.111111. c - 1 -> c[s] A=52703214063870 B=52703214063870 C=90810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02212: 1....11.11 -> 02206 if no carry go to exp29 A=52703214063870 B=52703214063870 C=90810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02213: 1.11.1..1. shift right a[wp] divide by 10 A=50270321406387 B=52703214063870 C=90810300000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02214: 111.1.111. a exchange c[w] result is C=2.70321406387 A=90810300000001 B=52703214063870 C=50270321406387 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02215: .1...1.11. shift left a[ms] A=08103000000001 B=52703214063870 C=50270321406387 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02216: 111.1.111. exp23: a exchange c[w] A=50270321406387 B=52703214063870 C=08103000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02217: 11.111111. a - 1 -> a[s] A=40270321406387 B=52703214063870 C=08103000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02220: 1...1...11 -> 02210 if no carry go to exp22 A=40270321406387 B=52703214063870 C=08103000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02210: .1..1.111. exp22: a -> b[w] New cst q4=0 SR=4 A=40270321406387 B=40270321406387 C=08103000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02211: .1.111111. c - 1 -> c[s] A=40270321406387 B=40270321406387 C=98103000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02212: 1....11.11 -> 02206 if no carry go to exp29 A=40270321406387 B=40270321406387 C=98103000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02213: 1.11.1..1. shift right a[wp] New cts, divide by 10 (align mantissa) A=40027032140638 B=40270321406387 C=98103000000001 q3=8, SR=3 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02214: 111.1.111. a exchange c[w] A=98103000000001 B=40270321406387 C=40027032140638 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02215: .1...1.11. shift left a[ms] A=81030000000001 B=40270321406387 C=40027032140638 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02216: 111.1.111. exp23: a exchange c[w] A=40027032140638 B=40270321406387 C=81030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02217: 11.111111. a - 1 -> a[s] A=30027032140638 B=40270321406387 C=81030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02220: 1...1...11 -> 02210 if no carry go to exp22 A=30027032140638 B=40270321406387 C=81030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02210: .1..1.111. exp22: a -> b[w] A=30027032140638 B=30027032140638 C=81030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02211: .1.111111. c - 1 -> c[s] A=30027032140638 B=30027032140638 C=71030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02212: 1....11.11 -> 02206 if no carry go to exp29 A=30027032140638 B=30027032140638 C=71030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02206: 1..1.11..1 -> 02226 exp29: jsb eca22 A=30027032140638 B=30027032140638 C=71030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=20027032140638 B=30027032140638 C=71030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=20027032140638 B=30027032140638 C=71030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02225: 1.11.1..1. eca21: shift right a[wp] A=20002703214063 B=30027032140638 C=71030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=10002703214063 B=30027032140638 C=71030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=10002703214063 B=30027032140638 C=71030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02225: 1.11.1..1. eca21: shift right a[wp] A=10000270321406 B=30027032140638 C=71030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=00000270321406 B=30027032140638 C=71030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=00000270321406 B=30027032140638 C=71030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02225: 1.11.1..1. eca21: shift right a[wp] A=00000027032140 B=30027032140638 C=71030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=90000027032140 B=30027032140638 C=71030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=90000027032140 B=30027032140638 C=71030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02230: 1.1111111. 0 -> a[s] A=00000027032140 B=30027032140638 C=71030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02231: 111...111. a + b -> a[w] A=30027059172778 B=30027032140638 C=71030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02232: ....11.... return A=30027059172778 B=30027032140638 C=71030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02207: 11111...1. a + 1 -> a[p] A=31027059172778 B=30027032140638 C=71030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02210: .1..1.111. exp22: a -> b[w] A=31027059172778 B=31027059172778 C=71030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02211: .1.111111. c - 1 -> c[s] A=31027059172778 B=31027059172778 C=61030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02212: 1....11.11 -> 02206 if no carry go to exp29 A=31027059172778 B=31027059172778 C=61030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02206: 1..1.11..1 -> 02226 exp29: jsb eca22 A=31027059172778 B=31027059172778 C=61030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=21027059172778 B=31027059172778 C=61030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=21027059172778 B=31027059172778 C=61030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02225: 1.11.1..1. eca21: shift right a[wp] A=20102705917277 B=31027059172778 C=61030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=10102705917277 B=31027059172778 C=61030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=10102705917277 B=31027059172778 C=61030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02225: 1.11.1..1. eca21: shift right a[wp] A=10010270591727 B=31027059172778 C=61030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=00010270591727 B=31027059172778 C=61030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=00010270591727 B=31027059172778 C=61030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02225: 1.11.1..1. eca21: shift right a[wp] A=00001027059172 B=31027059172778 C=61030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=90001027059172 B=31027059172778 C=61030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=90001027059172 B=31027059172778 C=61030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02230: 1.1111111. 0 -> a[s] A=00001027059172 B=31027059172778 C=61030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02231: 111...111. a + b -> a[w] A=31028086231950 B=31027059172778 C=61030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02232: ....11.... return A=31028086231950 B=31027059172778 C=61030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02207: 11111...1. a + 1 -> a[p] A=32028086231950 B=31027059172778 C=61030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02210: .1..1.111. exp22: a -> b[w] A=32028086231950 B=32028086231950 C=61030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02211: .1.111111. c - 1 -> c[s] A=32028086231950 B=32028086231950 C=51030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02212: 1....11.11 -> 02206 if no carry go to exp29 A=32028086231950 B=32028086231950 C=51030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02206: 1..1.11..1 -> 02226 exp29: jsb eca22 A=32028086231950 B=32028086231950 C=51030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=22028086231950 B=32028086231950 C=51030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=22028086231950 B=32028086231950 C=51030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02225: 1.11.1..1. eca21: shift right a[wp] A=20202808623195 B=32028086231950 C=51030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=10202808623195 B=32028086231950 C=51030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=10202808623195 B=32028086231950 C=51030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02225: 1.11.1..1. eca21: shift right a[wp] A=10020280862319 B=32028086231950 C=51030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=00020280862319 B=32028086231950 C=51030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=00020280862319 B=32028086231950 C=51030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02225: 1.11.1..1. eca21: shift right a[wp] A=00002028086231 B=32028086231950 C=51030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=90002028086231 B=32028086231950 C=51030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=90002028086231 B=32028086231950 C=51030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02230: 1.1111111. 0 -> a[s] A=00002028086231 B=32028086231950 C=51030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02231: 111...111. a + b -> a[w] A=32030114318181 B=32028086231950 C=51030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02232: ....11.... return A=32030114318181 B=32028086231950 C=51030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02207: 11111...1. a + 1 -> a[p] A=33030114318181 B=32028086231950 C=51030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02210: .1..1.111. exp22: a -> b[w] A=33030114318181 B=33030114318181 C=51030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02211: .1.111111. c - 1 -> c[s] A=33030114318181 B=33030114318181 C=41030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02212: 1....11.11 -> 02206 if no carry go to exp29 A=33030114318181 B=33030114318181 C=41030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02206: 1..1.11..1 -> 02226 exp29: jsb eca22 A=33030114318181 B=33030114318181 C=41030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=23030114318181 B=33030114318181 C=41030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=23030114318181 B=33030114318181 C=41030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02225: 1.11.1..1. eca21: shift right a[wp] A=20303011431818 B=33030114318181 C=41030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=10303011431818 B=33030114318181 C=41030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=10303011431818 B=33030114318181 C=41030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02225: 1.11.1..1. eca21: shift right a[wp] A=10030301143181 B=33030114318181 C=41030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=00030301143181 B=33030114318181 C=41030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=00030301143181 B=33030114318181 C=41030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02225: 1.11.1..1. eca21: shift right a[wp] A=00003030114318 B=33030114318181 C=41030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=90003030114318 B=33030114318181 C=41030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=90003030114318 B=33030114318181 C=41030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02230: 1.1111111. 0 -> a[s] A=00003030114318 B=33030114318181 C=41030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02231: 111...111. a + b -> a[w] A=33033144432499 B=33030114318181 C=41030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02232: ....11.... return A=33033144432499 B=33030114318181 C=41030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02207: 11111...1. a + 1 -> a[p] A=34033144432499 B=33030114318181 C=41030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02210: .1..1.111. exp22: a -> b[w] A=34033144432499 B=34033144432499 C=41030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02211: .1.111111. c - 1 -> c[s] A=34033144432499 B=34033144432499 C=31030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02212: 1....11.11 -> 02206 if no carry go to exp29 A=34033144432499 B=34033144432499 C=31030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02206: 1..1.11..1 -> 02226 exp29: jsb eca22 A=34033144432499 B=34033144432499 C=31030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=24033144432499 B=34033144432499 C=31030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=24033144432499 B=34033144432499 C=31030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02225: 1.11.1..1. eca21: shift right a[wp] A=20403314443249 B=34033144432499 C=31030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=10403314443249 B=34033144432499 C=31030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=10403314443249 B=34033144432499 C=31030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02225: 1.11.1..1. eca21: shift right a[wp] A=10040331444324 B=34033144432499 C=31030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=00040331444324 B=34033144432499 C=31030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=00040331444324 B=34033144432499 C=31030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02225: 1.11.1..1. eca21: shift right a[wp] A=00004033144432 B=34033144432499 C=31030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=90004033144432 B=34033144432499 C=31030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=90004033144432 B=34033144432499 C=31030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02230: 1.1111111. 0 -> a[s] A=00004033144432 B=34033144432499 C=31030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02231: 111...111. a + b -> a[w] A=34037177576931 B=34033144432499 C=31030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02232: ....11.... return A=34037177576931 B=34033144432499 C=31030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02207: 11111...1. a + 1 -> a[p] A=35037177576931 B=34033144432499 C=31030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02210: .1..1.111. exp22: a -> b[w] A=35037177576931 B=35037177576931 C=31030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02211: .1.111111. c - 1 -> c[s] A=35037177576931 B=35037177576931 C=21030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02212: 1....11.11 -> 02206 if no carry go to exp29 A=35037177576931 B=35037177576931 C=21030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02206: 1..1.11..1 -> 02226 exp29: jsb eca22 A=35037177576931 B=35037177576931 C=21030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=25037177576931 B=35037177576931 C=21030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=25037177576931 B=35037177576931 C=21030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02225: 1.11.1..1. eca21: shift right a[wp] A=20503717757693 B=35037177576931 C=21030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=10503717757693 B=35037177576931 C=21030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=10503717757693 B=35037177576931 C=21030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02225: 1.11.1..1. eca21: shift right a[wp] A=10050371775769 B=35037177576931 C=21030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=00050371775769 B=35037177576931 C=21030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=00050371775769 B=35037177576931 C=21030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02225: 1.11.1..1. eca21: shift right a[wp] A=00005037177576 B=35037177576931 C=21030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=90005037177576 B=35037177576931 C=21030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=90005037177576 B=35037177576931 C=21030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02230: 1.1111111. 0 -> a[s] A=00005037177576 B=35037177576931 C=21030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02231: 111...111. a + b -> a[w] A=35042214754507 B=35037177576931 C=21030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02232: ....11.... return A=35042214754507 B=35037177576931 C=21030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02207: 11111...1. a + 1 -> a[p] A=36042214754507 B=35037177576931 C=21030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02210: .1..1.111. exp22: a -> b[w] A=36042214754507 B=36042214754507 C=21030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02211: .1.111111. c - 1 -> c[s] A=36042214754507 B=36042214754507 C=11030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02212: 1....11.11 -> 02206 if no carry go to exp29 A=36042214754507 B=36042214754507 C=11030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02206: 1..1.11..1 -> 02226 exp29: jsb eca22 A=36042214754507 B=36042214754507 C=11030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=26042214754507 B=36042214754507 C=11030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=26042214754507 B=36042214754507 C=11030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02225: 1.11.1..1. eca21: shift right a[wp] A=20604221475450 B=36042214754507 C=11030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=10604221475450 B=36042214754507 C=11030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=10604221475450 B=36042214754507 C=11030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02225: 1.11.1..1. eca21: shift right a[wp] A=10060422147545 B=36042214754507 C=11030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=00060422147545 B=36042214754507 C=11030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=00060422147545 B=36042214754507 C=11030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02225: 1.11.1..1. eca21: shift right a[wp] A=00006042214754 B=36042214754507 C=11030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=90006042214754 B=36042214754507 C=11030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=90006042214754 B=36042214754507 C=11030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02230: 1.1111111. 0 -> a[s] A=00006042214754 B=36042214754507 C=11030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02231: 111...111. a + b -> a[w] A=36048256969261 B=36042214754507 C=11030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02232: ....11.... return A=36048256969261 B=36042214754507 C=11030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02207: 11111...1. a + 1 -> a[p] A=37048256969261 B=36042214754507 C=11030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02210: .1..1.111. exp22: a -> b[w] A=37048256969261 B=37048256969261 C=11030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02211: .1.111111. c - 1 -> c[s] A=37048256969261 B=37048256969261 C=01030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02212: 1....11.11 -> 02206 if no carry go to exp29 A=37048256969261 B=37048256969261 C=01030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02206: 1..1.11..1 -> 02226 exp29: jsb eca22 A=37048256969261 B=37048256969261 C=01030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=27048256969261 B=37048256969261 C=01030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=27048256969261 B=37048256969261 C=01030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02225: 1.11.1..1. eca21: shift right a[wp] A=20704825696926 B=37048256969261 C=01030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=10704825696926 B=37048256969261 C=01030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=10704825696926 B=37048256969261 C=01030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02225: 1.11.1..1. eca21: shift right a[wp] A=10070482569692 B=37048256969261 C=01030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=00070482569692 B=37048256969261 C=01030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=00070482569692 B=37048256969261 C=01030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02225: 1.11.1..1. eca21: shift right a[wp] A=00007048256969 B=37048256969261 C=01030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=90007048256969 B=37048256969261 C=01030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=90007048256969 B=37048256969261 C=01030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02230: 1.1111111. 0 -> a[s] A=00007048256969 B=37048256969261 C=01030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02231: 111...111. a + b -> a[w] A=37055305226230 B=37048256969261 C=01030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02232: ....11.... return A=37055305226230 B=37048256969261 C=01030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02207: 11111...1. a + 1 -> a[p] A=38055305226230 B=37048256969261 C=01030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02210: .1..1.111. exp22: a -> b[w] A=38055305226230 B=38055305226230 C=01030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02211: .1.111111. c - 1 -> c[s] A=38055305226230 B=38055305226230 C=91030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02212: 1....11.11 -> 02206 if no carry go to exp29 A=38055305226230 B=38055305226230 C=91030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02213: 1.11.1..1. shift right a[wp] A=30805530522623 B=38055305226230 C=91030000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02214: 111.1.111. a exchange c[w] A=91030000000001 B=38055305226230 C=30805530522623 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02215: .1...1.11. shift left a[ms] A=10300000000001 B=38055305226230 C=30805530522623 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02216: 111.1.111. exp23: a exchange c[w] A=30805530522623 B=38055305226230 C=10300000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02217: 11.111111. a - 1 -> a[s] A=20805530522623 B=38055305226230 C=10300000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02220: 1...1...11 -> 02210 if no carry go to exp22 A=20805530522623 B=38055305226230 C=10300000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02210: .1..1.111. exp22: a -> b[w] new Cst A=20805530522623 B=20805530522623 C=10300000000001 q2 = 1 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b SR = 2 02211: .1.111111. c - 1 -> c[s] A=20805530522623 B=20805530522623 C=00300000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02212: 1....11.11 -> 02206 if no carry go to exp29 A=20805530522623 B=20805530522623 C=00300000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02206: 1..1.11..1 -> 02226 exp29: jsb eca22 A=20805530522623 B=20805530522623 C=00300000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=10805530522623 B=20805530522623 C=00300000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=10805530522623 B=20805530522623 C=00300000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02225: 1.11.1..1. eca21: shift right a[wp] A=10080553052262 B=20805530522623 C=00300000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=00080553052262 B=20805530522623 C=00300000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=00080553052262 B=20805530522623 C=00300000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02225: 1.11.1..1. eca21: shift right a[wp] A=00008055305226 B=20805530522623 C=00300000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=90008055305226 B=20805530522623 C=00300000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=90008055305226 B=20805530522623 C=00300000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02230: 1.1111111. 0 -> a[s] A=00008055305226 B=20805530522623 C=00300000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02231: 111...111. a + b -> a[w] A=20813585827849 B=20805530522623 C=00300000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02232: ....11.... return A=20813585827849 B=20805530522623 C=00300000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02207: 11111...1. a + 1 -> a[p] A=21813585827849 B=20805530522623 C=00300000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02210: .1..1.111. exp22: a -> b[w] A=21813585827849 B=21813585827849 C=00300000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02211: .1.111111. c - 1 -> c[s] A=21813585827849 B=21813585827849 C=90300000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02212: 1....11.11 -> 02206 if no carry go to exp29 A=21813585827849 B=21813585827849 C=90300000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02213: 1.11.1..1. shift right a[wp] A=20181358582784 B=21813585827849 C=90300000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02214: 111.1.111. a exchange c[w] A=90300000000001 B=21813585827849 C=20181358582784 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02215: .1...1.11. shift left a[ms] A=03000000000001 B=21813585827849 C=20181358582784 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02216: 111.1.111. exp23: a exchange c[w] A=20181358582784 B=21813585827849 C=03000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02217: 11.111111. a - 1 -> a[s] A=10181358582784 B=21813585827849 C=03000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02220: 1...1...11 -> 02210 if no carry go to exp22 A=10181358582784 B=21813585827849 C=03000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02210: .1..1.111. exp22: a -> b[w] nex cst q1=0 SR=1 A=10181358582784 B=10181358582784 C=03000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02211: .1.111111. c - 1 -> c[s] A=10181358582784 B=10181358582784 C=93000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02212: 1....11.11 -> 02206 if no carry go to exp29 A=10181358582784 B=10181358582784 C=93000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02213: 1.11.1..1. shift right a[wp] A=10018135858278 B=10181358582784 C=93000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02214: 111.1.111. a exchange c[w] A=93000000000001 B=10181358582784 C=10018135858278 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02215: .1...1.11. shift left a[ms] A=30000000000001 B=10181358582784 C=10018135858278 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02216: 111.1.111. exp23: a exchange c[w] A=10018135858278 B=10181358582784 C=30000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02217: 11.111111. a - 1 -> a[s] A=00018135858278 B=10181358582784 C=30000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02220: 1...1...11 -> 02210 if no carry go to exp22 A=00018135858278 B=10181358582784 C=30000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02210: .1..1.111. exp22: a -> b[w] New Cst, q0=3, SR=0 A=00018135858278 B=00018135858278 C=30000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02211: .1.111111. c - 1 -> c[s] A=00018135858278 B=00018135858278 C=20000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02212: 1....11.11 -> 02206 if no carry go to exp29 A=00018135858278 B=00018135858278 C=20000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02206: 1..1.11..1 -> 02226 exp29: jsb eca22 A=00018135858278 B=00018135858278 C=20000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=90018135858278 B=00018135858278 C=20000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=90018135858278 B=00018135858278 C=20000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02230: 1.1111111. 0 -> a[s] A=00018135858278 B=00018135858278 C=20000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02231: 111...111. a + b -> a[w] A=00036271716556 B=00018135858278 C=20000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02232: ....11.... return A=00036271716556 B=00018135858278 C=20000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02207: 11111...1. a + 1 -> a[p] A=01036271716556 B=00018135858278 C=20000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02210: .1..1.111. exp22: a -> b[w] A=01036271716556 B=01036271716556 C=20000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02211: .1.111111. c - 1 -> c[s] A=01036271716556 B=01036271716556 C=10000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02212: 1....11.11 -> 02206 if no carry go to exp29 A=01036271716556 B=01036271716556 C=10000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02206: 1..1.11..1 -> 02226 exp29: jsb eca22 A=01036271716556 B=01036271716556 C=10000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=91036271716556 B=01036271716556 C=10000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=91036271716556 B=01036271716556 C=10000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02230: 1.1111111. 0 -> a[s] A=01036271716556 B=01036271716556 C=10000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02231: 111...111. a + b -> a[w] A=02072543433112 B=01036271716556 C=10000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02232: ....11.... return A=02072543433112 B=01036271716556 C=10000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02207: 11111...1. a + 1 -> a[p] A=03072543433112 B=01036271716556 C=10000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02210: .1..1.111. exp22: a -> b[w] A=03072543433112 B=03072543433112 C=10000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02211: .1.111111. c - 1 -> c[s] A=03072543433112 B=03072543433112 C=00000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02212: 1....11.11 -> 02206 if no carry go to exp29 A=03072543433112 B=03072543433112 C=00000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02206: 1..1.11..1 -> 02226 exp29: jsb eca22 A=03072543433112 B=03072543433112 C=00000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02226: 11.111111. eca22: a - 1 -> a[s] A=93072543433112 B=03072543433112 C=00000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02227: 1..1.1.111 -> 02225 if no carry go to eca21 A=93072543433112 B=03072543433112 C=00000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02230: 1.1111111. 0 -> a[s] A=03072543433112 B=03072543433112 C=00000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02231: 111...111. a + b -> a[w] A=06145086866224 B=03072543433112 C=00000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02232: ....11.... return A=06145086866224 B=03072543433112 C=00000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02207: 11111...1. a + 1 -> a[p] A=07145086866224 B=03072543433112 C=00000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02210: .1..1.111. exp22: a -> b[w] A=07145086866224 B=07145086866224 C=00000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02211: .1.111111. c - 1 -> c[s] A=07145086866224 B=07145086866224 C=90000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02212: 1....11.11 -> 02206 if no carry go to exp29 A=07145086866224 B=07145086866224 C=90000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02213: 1.11.1..1. shift right a[wp] A=00714508686622 B=07145086866224 C=90000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02214: 111.1.111. a exchange c[w] A=90000000000001 B=07145086866224 C=00714508686622 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02215: .1...1.11. shift left a[ms] A=00000000000001 B=07145086866224 C=00714508686622 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02216: 111.1.111. exp23: a exchange c[w] A=00714508686622 B=07145086866224 C=00000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02217: 11.111111. a - 1 -> a[s] A=90714508686622 B=07145086866224 C=00000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02220: 1...1...11 -> 02210 if no carry go to exp22 A=90714508686622 B=07145086866224 C=00000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02221: 11..1.111. a exchange b[w] A=07145086866224 B=90714508686622 C=00000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02222: 11111...1. a + 1 -> a[p] last mantissa correction A=08145086866224 B=90714508686622 C=00000000000001 result appears: 8.145086866224 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b [BP6] Normalization of register A 02223: 11..11...1 -> 02314 jsb nrm21 A=08145086866224 B=90714508686622 C=00000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02314: 1.1111111. nrm21: 0 -> a[s] A=08145086866224 B=90714508686622 C=00000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02315: 11....11.. 12 -> p A=08145086866224 B=90714508686622 C=00000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02316: ....1.111. 0 -> b[w] A=08145086866224 B=00000000000000 C=00000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02317: 1..11...1. nrm23: if a[p] >= 1 A=08145086866224 B=00000000000000 C=00000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02320: 11.1.11.11 -> 02326 then go to nrm24 A=08145086866224 B=00000000000000 C=00000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02326: .1..1.1.1. nrm24: a -> b[x] A=08145086866224 B=00000000000224 C=00000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02327: 111...111. a + b -> a[w] A=08145086866448 B=00000000000224 C=00000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02330: 1..111111. if a[s] >= 1 A=08145086866448 B=00000000000224 C=00000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02331: 11...11111 -> 02307 then go to mpy28 A=08145086866448 B=00000000000224 C=00000000000001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02332: 111.1..11. a exchange c[m] A=00000000000448 B=00000000000224 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02333: .11...111. c -> a[w] Result in C and A with correct exponent A=08145086866001 B=00000000000224 C=08145086866001 8.145086866 001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02334: ....1.111. 0 -> b[w] A=08145086866001 B=00000000000000 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b Register B = 0 02335: 11....11.. nrm27: 12 -> p A=08145086866001 B=00000000000000 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02336: .1111.1.11 -> 02172 go to nrm26 A=08145086866001 B=00000000000000 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02172: ..1..1.1.. nrm26: if s2 = 0 A=08145086866001 B=00000000000000 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02173: 1..1.1..11 -> 02224 then go to rtn21 A=08145086866001 B=00000000000000 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02174: ....11.... return A=08145086866001 B=00000000000000 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 02224: ..1..1.... -> 01225 rtn21: select rom 1 ; -> rtn11 A=08145086866001 B=00000000000000 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 01225: ...1.1.1.. rtn11: if s1 = 0 A=08145086866001 B=00000000000000 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 01226: 11.11.1.11 -> 01332 then go to rtn12 A=08145086866001 B=00000000000000 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 01332: .....1.... -> 00333 rtn12: select rom 0 ; -> l00333 A=08145086866001 B=00000000000000 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 00333: .1.111.1.1 -> 00135 l00333: jsb of13 Build mask in register B=00200000000999 A=08145086866001 B=00000000000000 C=08145086866001 and go looping in display and wait a key routine D=00000000000000 M=00000000000000 P=c S=0.2...67.9.b 00135: ....11.1.. of13: clear status A=08145086866001 B=00000000000000 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=............ 00136: .11...111. c -> a[w] A=08145086866001 B=00000000000000 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=............ 00137: 11....11.. of14: 12 -> p A=08145086866001 B=00000000000000 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=............ 00140: .1..1.1.1. a -> b[x] A=08145086866001 B=00000000000001 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=............ 00141: .11...1.1. c -> a[x] A=08145086866001 B=00000000000001 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=............ 00142: .11.111.1. if c[xs] = 0 A=08145086866001 B=00000000000001 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=............ 00143: .11.1...11 -> 00150 then go to of15 A=08145086866001 B=00000000000001 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=............ 00150: 111.1.1.1. of15: a exchange c[x] A=08145086866001 B=00000000000001 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=............ 00151: .1...1.1.. if s4 = 0 A=08145086866001 B=00000000000001 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=............ 00152: .1....1.11 -> 00102 then go to l00102 A=08145086866001 B=00000000000001 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=............ 00102: .1..1.111. l00102: a -> b[w] A=08145086866001 B=08145086866001 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=............ 00103: 1.11111.1. 0 -> a[xs] A=08145086866001 B=08145086866001 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=............ 00104: .1...1.11. shift left a[ms] A=81450868660001 B=08145086866001 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=............ 00105: 11.11.1.1. l00105: a - 1 -> a[x] A=81450868660000 B=08145086866001 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=............ 00106: 111.....11 -> 00340 if no carry go to l00340 A=81450868660000 B=08145086866001 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=............ 00340: 1.11.1.11. l00340: shift right a[ms] A=08145086866000 B=08145086866001 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=............ 00341: .....111.. p - 1 -> p A=08145086866000 B=08145086866001 C=08145086866001 D=00000000000000 M=00000000000000 P=b S=............ 00342: ..1.1.11.. if p # 2 A=08145086866000 B=08145086866001 C=08145086866001 D=00000000000000 M=00000000000000 P=b S=............ 00343: .1...1.111 -> 00105 then go to l00105 A=08145086866000 B=08145086866001 C=08145086866001 D=00000000000000 M=00000000000000 P=b S=............ 00105: 11.11.1.1. l00105: a - 1 -> a[x] A=08145086866999 B=08145086866001 C=08145086866001 D=00000000000000 M=00000000000000 P=b S=............ 00106: 111.....11 -> 00340 if no carry go to l00340 A=08145086866999 B=08145086866001 C=08145086866001 D=00000000000000 M=00000000000000 P=b S=............ 00107: .11.111.1. if c[xs] = 0 A=08145086866999 B=08145086866001 C=08145086866001 D=00000000000000 M=00000000000000 P=b S=............ 00110: 111..11.11 -> 00346 then go to l00346 A=08145086866999 B=08145086866001 C=08145086866001 D=00000000000000 M=00000000000000 P=b S=............ 00346: 1.1111.11. l00346: 0 -> a[ms] A=00000000000999 B=08145086866001 C=08145086866001 D=00000000000000 M=00000000000000 P=b S=............ 00347: 11111...1. a + 1 -> a[p] A=00100000000999 B=08145086866001 C=08145086866001 D=00000000000000 M=00000000000000 P=b S=............ 00350: 11111...1. a + 1 -> a[p] A=00200000000999 B=08145086866001 C=08145086866001 D=00000000000000 M=00000000000000 P=b S=............ 00351: ..1...11.. 2 -> p A=00200000000999 B=08145086866001 C=08145086866001 D=00000000000000 M=00000000000000 P=2 S=............ 00352: ....1111.. l00352: p + 1 -> p A=00200000000999 B=08145086866001 C=08145086866001 D=00000000000000 M=00000000000000 P=3 S=............ 00353: 11.11...1. a - 1 -> a[p] A=00200000009999 B=08145086866001 C=08145086866001 D=00000000000000 M=00000000000000 P=3 S=............ 00354: 111.111111 -> 00357 if no carry go to l00357 A=00200000009999 B=08145086866001 C=08145086866001 D=00000000000000 M=00000000000000 P=3 S=............ 00355: ........1. if b[p] = 0 A=00200000009999 B=08145086866001 C=08145086866001 D=00000000000000 M=00000000000000 P=3 S=............ 00356: 111.1.1.11 -> 00352 then go to l00352 A=00200000009999 B=08145086866001 C=08145086866001 D=00000000000000 M=00000000000000 P=3 S=............ 00357: 11111...1. l00357: a + 1 -> a[p] A=00200000000999 B=08145086866001 C=08145086866001 D=00000000000000 M=00000000000000 P=3 S=............ 00360: 11..1.111. a exchange b[w] A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=3 S=............ 00361: ....11.... return A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=3 S=............ 00334: .111...1.. 1 -> s7 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=3 S=.......7.... 00335: 1111.111.1 -> 00367 fst2zx: jsb dsp1 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=3 S=.......7.... 00367: 1.1.1..1.. dsp1: 0 -> s10 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=3 S=.......7.... 00370: 11....1111 -> 00303 go to dsp7 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=3 S=.......7.... 00303: .11..1111. dsp7: c -> a[s] A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=3 S=.......7.... 00304: 1...1..1.. l00304: 0 -> s8 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=3 S=.......7.... 00305: 11..111111 -> 00317 go to dsp8 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=3 S=.......7.... 00317: ....1..1.. dsp8: 0 -> s0 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=3 S=.......7.... 00320: .....111.. dsp6: p - 1 -> p A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=2 S=.......7.... 00321: 11..1.11.. if p # 12 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=2 S=.......7.... 00322: 11.1....11 -> 00320 then go to dsp6 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=2 S=.......7.... 00320: .....111.. dsp6: p - 1 -> p A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=1 S=.......7.... 00321: 11..1.11.. if p # 12 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=1 S=.......7.... 00322: 11.1....11 -> 00320 then go to dsp6 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=1 S=.......7.... 00320: .....111.. dsp6: p - 1 -> p A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=0 S=.......7.... 00321: 11..1.11.. if p # 12 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=0 S=.......7.... 00322: 11.1....11 -> 00320 then go to dsp6 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=0 S=.......7.... 00320: .....111.. dsp6: p - 1 -> p A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=f S=.......7.... 00321: 11..1.11.. if p # 12 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=f S=.......7.... 00322: 11.1....11 -> 00320 then go to dsp6 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=f S=.......7.... 00320: .....111.. dsp6: p - 1 -> p A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=e S=.......7.... 00321: 11..1.11.. if p # 12 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=e S=.......7.... 00322: 11.1....11 -> 00320 then go to dsp6 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=e S=.......7.... 00320: .....111.. dsp6: p - 1 -> p A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=d S=.......7.... 00321: 11..1.11.. if p # 12 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=d S=.......7.... 00322: 11.1....11 -> 00320 then go to dsp6 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=d S=.......7.... 00320: .....111.. dsp6: p - 1 -> p A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=.......7.... 00321: 11..1.11.. if p # 12 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=.......7.... 00322: 11.1....11 -> 00320 then go to dsp6 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=.......7.... 00323: 1...1.1... display off A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=.......7.... 00324: 1....1.1.. if s8 = 0 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=.......7.... 00325: 11..11..11 -> 00314 then go to dsp4 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=.......7.... 00314: ....1.1... dsp4: display toggle A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=.......7.... 00315: .....1.1.. dsp5: if s0 = 0 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=.......7.... 00316: 11...11111 -> 00307 then go to dsp3 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=.......7.... 00307: 1......1.. dsp3: 1 -> s8 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=.......78... 00310: .1.1.1.1.. if s5 = 0 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=.......78... 00311: 11..11.111 -> 00315 then go to dsp5 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=.......78... 00315: .....1.1.. dsp5: if s0 = 0 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=.......78... 00316: 11...11111 -> 00307 then go to dsp3 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=.......78... 00307: 1......1.. dsp3: 1 -> s8 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=.......78... 00310: .1.1.1.1.. if s5 = 0 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=.......78... 00311: 11..11.111 -> 00315 then go to dsp5 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=.......78... 00315: .....1.1.. dsp5: if s0 = 0 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=.......78... 00316: 11...11111 -> 00307 then go to dsp3 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=.......78... 00307: 1......1.. dsp3: 1 -> s8 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=.......78... 00310: .1.1.1.1.. if s5 = 0 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=.......78... 00311: 11..11.111 -> 00315 then go to dsp5 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=.......78... 00315: .....1.1.. dsp5: if s0 = 0 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=.......78... 00316: 11...11111 -> 00307 then go to dsp3 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=.......78... 00307: 1......1.. dsp3: 1 -> s8 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=.......78... 00310: .1.1.1.1.. if s5 = 0 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=.......78... 00311: 11..11.111 -> 00315 then go to dsp5 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=.......78... 00315: .....1.1.. dsp5: if s0 = 0 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=.......78... 00316: 11...11111 -> 00307 then go to dsp3 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=.......78... 00307: 1......1.. dsp3: 1 -> s8 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=.......78... 00310: .1.1.1.1.. if s5 = 0 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=.......78... 00311: 11..11.111 -> 00315 then go to dsp5 A=08145086866001 B=00200000000999 C=08145086866001 D=00000000000000 M=00000000000000 P=c S=.......78...