POWER KEY 3 enter 2 x^y 00006: ..1....1.. 1 -> s2 A=20000000000000 B=02999999999999 C=02000000000000 D=03000000000000 M=00000000000000 P=c S=0.2....78..b 00007: .1...1.... -> 02010 select rom 2 ; -> l02010 A=20000000000000 B=02999999999999 C=02000000000000 D=03000000000000 M=00000000000000 P=c S=0.2....78..b Entry point for e^x ln(x) log(x) -------------------------------- Status bits S2 S5 S9 e^x 1 0 0 ln 1 0 1 log 1 0 1 02010: .11...111. c -> a[w] A=02000000000000 B=02999999999999 C=02000000000000 D=03000000000000 M=00000000000000 P=c S=0.2....78..b 02011: 1....1.1.. if s8 = 0 A=02000000000000 B=02999999999999 C=02000000000000 D=03000000000000 M=00000000000000 P=c S=0.2....78..b 02012: .1....1.11 -> 02102 then go to exp21 A=02000000000000 B=02999999999999 C=02000000000000 D=03000000000000 M=00000000000000 P=c S=0.2....78..b 02013: 1.111.111. 0 -> a[w] A=00000000000000 B=02999999999999 C=02000000000000 D=03000000000000 M=00000000000000 P=c S=0.2....78..b 02014: 11.1...11. a - c -> a[m] A=08000000000000 B=02999999999999 C=02000000000000 D=03000000000000 M=00000000000000 P=c S=0.2....78..b 02015: ........11 -> 02000 if no carry go to err21 A=08000000000000 B=02999999999999 C=02000000000000 D=03000000000000 M=00000000000000 P=c S=0.2....78..b 02016: 1.11..111. shift right a[w] A=00800000000000 B=02999999999999 C=02000000000000 D=03000000000000 M=00000000000000 P=c S=0.2....78..b 02017: .1.111111. c - 1 -> c[s] A=00800000000000 B=02999999999999 C=92000000000000 D=03000000000000 M=00000000000000 P=c S=0.2....78..b 02020: ........11 -> 02000 if no carry go to err21 A=00800000000000 B=02999999999999 C=92000000000000 D=03000000000000 M=00000000000000 P=c S=0.2....78..b 02021: .11111111. ln25: c + 1 -> c[s] A=00800000000000 B=02999999999999 C=02000000000000 D=03000000000000 M=00000000000000 P=c S=0.2....78..b 02022: .1..1.111. ln26: a -> b[w] A=00800000000000 B=00800000000000 C=02000000000000 D=03000000000000 M=00000000000000 P=c S=0.2....78..b 02023: 1..1.11..1 -> 02226 jsb eca22 A=00800000000000 B=00800000000000 C=02000000000000 D=03000000000000 M=00000000000000 P=c S=0.2....78..b ../.. Standard ln(x) code Cf. the ln(x) trace ../.. 02173: 1..1.1..11 -> 02224 then go to rtn21 A=06931471805999 B=00000000000000 C=06931471805999 D=03000000000000 M=00000000000000 P=c S=0.2....7...b 02174: ....11.... return A=06931471805999 B=00000000000000 C=06931471805999 D=03000000000000 M=00000000000000 P=c S=0.2....7...b result ln(2) 02073: 1..1.1.1.. if s9 = 0 A=06931471805999 B=00000000000000 C=06931471805999 D=03000000000000 M=00000000000000 P=c S=0.2....7...b go to xty22 to flush the stack: y -> A then call mpy21 to multiply C * A (ln(x) * y) 02074: .....11.11 -> 02006 then go to xty22 A=06931471805999 B=00000000000000 C=06931471805999 D=03000000000000 M=00000000000000 P=c S=0.2....7...b 02006: .11.1.1... xty22: stack -> a A=03000000000000 B=00000000000000 C=06931471805999 D=00000000000000 M=00000000000000 P=c S=0.2....7...b multiplication ln(2) x 3 02007: 1.1..11..1 -> 02246 jsb mpy21 A=03000000000000 B=00000000000000 C=06931471805999 D=00000000000000 M=00000000000000 P=c S=0.2....7...b 02246: ..11..11.. mpy21: 3 -> p A=03000000000000 B=00000000000000 C=06931471805999 D=00000000000000 M=00000000000000 P=3 S=0.2....7...b ../.. standard floating point multiply routine Cf. floating point article. ../.. 02174: ....11.... return A=02079441542000 B=00000000000000 C=02079441542000 D=00000000000000 M=00000000000000 P=c S=0.2....7...b ln(2) * 3 = 2.07944 02010: .11...111. c -> a[w] A=02079441542000 B=00000000000000 C=02079441542000 D=00000000000000 M=00000000000000 P=c S=0.2....7...b 02011: 1....1.1.. if s8 = 0 A=02079441542000 B=00000000000000 C=02079441542000 D=00000000000000 M=00000000000000 P=c S=0.2....7...b Status bit s8=0, call exp(x) exp(ln(2) * 3) 02012: .1....1.11 -> 02102 then go to exp21 A=02079441542000 B=00000000000000 C=02079441542000 D=00000000000000 M=00000000000000 P=c S=0.2....7...b 02102: 1111.11..1 -> 02366 exp21: jsb lnc10 A=02079441542000 B=00000000000000 C=02079441542000 D=00000000000000 M=00000000000000 P=c S=0.2....7...b ../.. ../.. standard floating exp routine Cf. exponential article. ../.. final result exp(ln(2) * 3) = 8 goto normalize, output format and display wait loop. 02223: 11..11...1 -> 02314 jsb nrm21 A=08000000002400 B=90700000000240 C=00000000000000 D=00000000000000 M=00000000000000 P=c S=0.2....7...b 02314: 1.1111111. nrm21: 0 -> a[s] A=08000000002400 B=90700000000240 C=00000000000000 D=00000000000000 M=00000000000000 P=c S=0.2....7...b 02315: 11....11.. 12 -> p A=08000000002400 B=90700000000240 C=00000000000000 D=00000000000000 M=00000000000000 P=c S=0.2....7...b 02316: ....1.111. 0 -> b[w] A=08000000002400 B=00000000000000 C=00000000000000 D=00000000000000 M=00000000000000 P=c S=0.2....7...b 02317: 1..11...1. nrm23: if a[p] >= 1 A=08000000002400 B=00000000000000 C=00000000000000 D=00000000000000 M=00000000000000 P=c S=0.2....7...b 02320: 11.1.11.11 -> 02326 then go to nrm24 A=08000000002400 B=00000000000000 C=00000000000000 D=00000000000000 M=00000000000000 P=c S=0.2....7...b 02326: .1..1.1.1. nrm24: a -> b[x] A=08000000002400 B=00000000000400 C=00000000000000 D=00000000000000 M=00000000000000 P=c S=0.2....7...b 02327: 111...111. a + b -> a[w] A=08000000002800 B=00000000000400 C=00000000000000 D=00000000000000 M=00000000000000 P=c S=0.2....7...b 02330: 1..111111. if a[s] >= 1 A=08000000002800 B=00000000000400 C=00000000000000 D=00000000000000 M=00000000000000 P=c S=0.2....7...b 02331: 11...11111 -> 02307 then go to mpy28 A=08000000002800 B=00000000000400 C=00000000000000 D=00000000000000 M=00000000000000 P=c S=0.2....7...b 02332: 111.1..11. a exchange c[m] A=00000000000800 B=00000000000400 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=0.2....7...b 02333: .11...111. c -> a[w] A=08000000002000 B=00000000000400 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=0.2....7...b 02334: ....1.111. 0 -> b[w] A=08000000002000 B=00000000000000 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=0.2....7...b 02335: 11....11.. nrm27: 12 -> p A=08000000002000 B=00000000000000 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=0.2....7...b 02336: .1111.1.11 -> 02172 go to nrm26 A=08000000002000 B=00000000000000 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=0.2....7...b 02172: ..1..1.1.. nrm26: if s2 = 0 A=08000000002000 B=00000000000000 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=0.2....7...b 02173: 1..1.1..11 -> 02224 then go to rtn21 A=08000000002000 B=00000000000000 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=0.2....7...b 02174: ....11.... return A=08000000002000 B=00000000000000 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=0.2....7...b 02224: ..1..1.... -> 01225 rtn21: select rom 1 ; -> rtn11 A=08000000002000 B=00000000000000 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=0.2....7...b 01225: ...1.1.1.. rtn11: if s1 = 0 A=08000000002000 B=00000000000000 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=0.2....7...b 01226: 11.11.1.11 -> 01332 then go to rtn12 A=08000000002000 B=00000000000000 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=0.2....7...b 01332: .....1.... -> 00333 rtn12: select rom 0 ; -> l00333 A=08000000002000 B=00000000000000 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=0.2....7...b 00333: .1.111.1.1 -> 00135 l00333: jsb of13 A=08000000002000 B=00000000000000 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=0.2....7...b 00135: ....11.1.. of13: clear status A=08000000002000 B=00000000000000 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=............ 00136: .11...111. c -> a[w] A=08000000002000 B=00000000000000 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=............ 00137: 11....11.. of14: 12 -> p A=08000000002000 B=00000000000000 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=............ 00140: .1..1.1.1. a -> b[x] A=08000000002000 B=00000000000000 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=............ 00141: .11...1.1. c -> a[x] A=08000000002000 B=00000000000000 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=............ 00142: .11.111.1. if c[xs] = 0 A=08000000002000 B=00000000000000 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=............ 00143: .11.1...11 -> 00150 then go to of15 A=08000000002000 B=00000000000000 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=............ 00150: 111.1.1.1. of15: a exchange c[x] A=08000000002000 B=00000000000000 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=............ 00151: .1...1.1.. if s4 = 0 A=08000000002000 B=00000000000000 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=............ 00152: .1....1.11 -> 00102 then go to l00102 A=08000000002000 B=00000000000000 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=............ 00102: .1..1.111. l00102: a -> b[w] A=08000000002000 B=08000000002000 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=............ 00103: 1.11111.1. 0 -> a[xs] A=08000000002000 B=08000000002000 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=............ 00104: .1...1.11. shift left a[ms] A=80000000020000 B=08000000002000 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=............ 00105: 11.11.1.1. l00105: a - 1 -> a[x] A=80000000020999 B=08000000002000 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=............ 00106: 111.....11 -> 00340 if no carry go to l00340 A=80000000020999 B=08000000002000 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=............ 00107: .11.111.1. if c[xs] = 0 A=80000000020999 B=08000000002000 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=............ 00110: 111..11.11 -> 00346 then go to l00346 A=80000000020999 B=08000000002000 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=............ 00346: 1.1111.11. l00346: 0 -> a[ms] A=00000000000999 B=08000000002000 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=............ 00347: 11111...1. a + 1 -> a[p] A=01000000000999 B=08000000002000 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=............ 00350: 11111...1. a + 1 -> a[p] A=02000000000999 B=08000000002000 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=............ 00351: ..1...11.. 2 -> p A=02000000000999 B=08000000002000 C=08000000002000 D=00000000000000 M=00000000000000 P=2 S=............ 00352: ....1111.. l00352: p + 1 -> p A=02000000000999 B=08000000002000 C=08000000002000 D=00000000000000 M=00000000000000 P=3 S=............ 00353: 11.11...1. a - 1 -> a[p] A=02000000009999 B=08000000002000 C=08000000002000 D=00000000000000 M=00000000000000 P=3 S=............ 00354: 111.111111 -> 00357 if no carry go to l00357 A=02000000009999 B=08000000002000 C=08000000002000 D=00000000000000 M=00000000000000 P=3 S=............ 00355: ........1. if b[p] = 0 A=02000000009999 B=08000000002000 C=08000000002000 D=00000000000000 M=00000000000000 P=3 S=............ 00356: 111.1.1.11 -> 00352 then go to l00352 A=02000000009999 B=08000000002000 C=08000000002000 D=00000000000000 M=00000000000000 P=3 S=............ 00357: 11111...1. l00357: a + 1 -> a[p] A=02000000000999 B=08000000002000 C=08000000002000 D=00000000000000 M=00000000000000 P=3 S=............ 00360: 11..1.111. a exchange b[w] A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=3 S=............ 00361: ....11.... return A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=3 S=............ 00334: .111...1.. 1 -> s7 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=3 S=.......7.... 00335: 1111.111.1 -> 00367 fst2zx: jsb dsp1 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=3 S=.......7.... 00367: 1.1.1..1.. dsp1: 0 -> s10 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=3 S=.......7.... 00370: 11....1111 -> 00303 go to dsp7 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=3 S=.......7.... 00303: .11..1111. dsp7: c -> a[s] A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=3 S=.......7.... 00304: 1...1..1.. l00304: 0 -> s8 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=3 S=.......7.... 00305: 11..111111 -> 00317 go to dsp8 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=3 S=.......7.... 00317: ....1..1.. dsp8: 0 -> s0 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=3 S=.......7.... 00320: .....111.. dsp6: p - 1 -> p A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=2 S=.......7.... 00321: 11..1.11.. if p # 12 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=2 S=.......7.... 00322: 11.1....11 -> 00320 then go to dsp6 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=2 S=.......7.... 00320: .....111.. dsp6: p - 1 -> p A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=1 S=.......7.... 00321: 11..1.11.. if p # 12 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=1 S=.......7.... 00322: 11.1....11 -> 00320 then go to dsp6 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=1 S=.......7.... 00320: .....111.. dsp6: p - 1 -> p A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=0 S=.......7.... 00321: 11..1.11.. if p # 12 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=0 S=.......7.... 00322: 11.1....11 -> 00320 then go to dsp6 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=0 S=.......7.... 00320: .....111.. dsp6: p - 1 -> p A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=f S=.......7.... 00321: 11..1.11.. if p # 12 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=f S=.......7.... 00322: 11.1....11 -> 00320 then go to dsp6 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=f S=.......7.... 00320: .....111.. dsp6: p - 1 -> p A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=e S=.......7.... 00321: 11..1.11.. if p # 12 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=e S=.......7.... 00322: 11.1....11 -> 00320 then go to dsp6 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=e S=.......7.... 00320: .....111.. dsp6: p - 1 -> p A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=d S=.......7.... 00321: 11..1.11.. if p # 12 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=d S=.......7.... 00322: 11.1....11 -> 00320 then go to dsp6 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=d S=.......7.... 00320: .....111.. dsp6: p - 1 -> p A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......7.... 00321: 11..1.11.. if p # 12 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......7.... 00322: 11.1....11 -> 00320 then go to dsp6 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......7.... 00323: 1...1.1... display off A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......7.... 00324: 1....1.1.. if s8 = 0 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......7.... 00325: 11..11..11 -> 00314 then go to dsp4 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......7.... 00314: ....1.1... dsp4: display toggle A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......7.... 00315: .....1.1.. dsp5: if s0 = 0 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......7.... 00316: 11...11111 -> 00307 then go to dsp3 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......7.... 00307: 1......1.. dsp3: 1 -> s8 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......78... 00310: .1.1.1.1.. if s5 = 0 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......78... 00311: 11..11.111 -> 00315 then go to dsp5 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......78... 00315: .....1.1.. dsp5: if s0 = 0 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......78... 00316: 11...11111 -> 00307 then go to dsp3 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......78... 00307: 1......1.. dsp3: 1 -> s8 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......78... 00310: .1.1.1.1.. if s5 = 0 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......78... 00311: 11..11.111 -> 00315 then go to dsp5 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......78... 00315: .....1.1.. dsp5: if s0 = 0 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......78... 00316: 11...11111 -> 00307 then go to dsp3 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......78... 00307: 1......1.. dsp3: 1 -> s8 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......78... 00310: .1.1.1.1.. if s5 = 0 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......78... 00311: 11..11.111 -> 00315 then go to dsp5 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......78... 00315: .....1.1.. dsp5: if s0 = 0 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......78... 00316: 11...11111 -> 00307 then go to dsp3 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......78... 00307: 1......1.. dsp3: 1 -> s8 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......78... 00310: .1.1.1.1.. if s5 = 0 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......78... 00311: 11..11.111 -> 00315 then go to dsp5 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......78... 00315: .....1.1.. dsp5: if s0 = 0 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......78... 00316: 11...11111 -> 00307 then go to dsp3 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......78... 00307: 1......1.. dsp3: 1 -> s8 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......78... 00310: .1.1.1.1.. if s5 = 0 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......78... 00311: 11..11.111 -> 00315 then go to dsp5 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......78... 00315: .....1.1.. dsp5: if s0 = 0 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......78... 00316: 11...11111 -> 00307 then go to dsp3 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......78... 00307: 1......1.. dsp3: 1 -> s8 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......78... 00310: .1.1.1.1.. if s5 = 0 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......78... 00311: 11..11.111 -> 00315 then go to dsp5 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......78... 00315: .....1.1.. dsp5: if s0 = 0 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......78... 00316: 11...11111 -> 00307 then go to dsp3 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......78... 00307: 1......1.. dsp3: 1 -> s8 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......78... 00310: .1.1.1.1.. if s5 = 0 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......78... 00311: 11..11.111 -> 00315 then go to dsp5 A=08000000002000 B=02000000000999 C=08000000002000 D=00000000000000 M=00000000000000 P=c S=.......78... ln(x) 00006: ..1....1.. 1 -> s2 00007: .1...1.... -> 02010 select rom 2 ; -> l02010 02010: .11...111. c -> a[w] 02011: 1....1.1.. if s8 = 0 02012: .1....1.11 -> 02102 then go to exp21 02013: 1.111.111. 0 -> a[w] 02014: 11.1...11. a - c -> a[m] 02015: ........11 -> 02000 if no carry go to err21 02016: 1.11..111. shift right a[w] 02017: .1.111111. c - 1 -> c[s] 02020: ........11 -> 02000 if no carry go to err21 02021: .11111111. ln25: c + 1 -> c[s] 02022: .1..1.111. ln26: a -> b[w] 02023: 1..1.11..1 -> 02226 jsb eca22 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02230: 1.1111111. 0 -> a[s] 02231: 111...111. a + b -> a[w] 02232: ....11.... return 02024: 11.11...1. a - 1 -> a[p] 02025: ...1...111 -> 02021 if no carry go to ln25 02021: .11111111. ln25: c + 1 -> c[s] 02022: .1..1.111. ln26: a -> b[w] 02023: 1..1.11..1 -> 02226 jsb eca22 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02230: 1.1111111. 0 -> a[s] 02231: 111...111. a + b -> a[w] 02232: ....11.... return 02024: 11.11...1. a - 1 -> a[p] 02025: ...1...111 -> 02021 if no carry go to ln25 02021: .11111111. ln25: c + 1 -> c[s] 02022: .1..1.111. ln26: a -> b[w] 02023: 1..1.11..1 -> 02226 jsb eca22 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02230: 1.1111111. 0 -> a[s] 02231: 111...111. a + b -> a[w] 02232: ....11.... return 02024: 11.11...1. a - 1 -> a[p] 02025: ...1...111 -> 02021 if no carry go to ln25 02026: 11..11..1. a exchange b[wp] 02027: 111..1111. a + b -> a[s] 02030: .......111 -> 02001 if no carry go to ln24 02001: 11..11111. ln24: a exchange b[s] 02002: 111111111. a + 1 -> a[s] 02003: 1..1.1.11. shift right c[ms] 02004: .1...1..1. shift left a[wp] 02005: ...1..1.11 -> 02022 go to ln26 02022: .1..1.111. ln26: a -> b[w] 02023: 1..1.11..1 -> 02226 jsb eca22 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02230: 1.1111111. 0 -> a[s] 02231: 111...111. a + b -> a[w] 02232: ....11.... return 02024: 11.11...1. a - 1 -> a[p] 02025: ...1...111 -> 02021 if no carry go to ln25 02021: .11111111. ln25: c + 1 -> c[s] 02022: .1..1.111. ln26: a -> b[w] 02023: 1..1.11..1 -> 02226 jsb eca22 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02230: 1.1111111. 0 -> a[s] 02231: 111...111. a + b -> a[w] 02232: ....11.... return 02024: 11.11...1. a - 1 -> a[p] 02025: ...1...111 -> 02021 if no carry go to ln25 02021: .11111111. ln25: c + 1 -> c[s] 02022: .1..1.111. ln26: a -> b[w] 02023: 1..1.11..1 -> 02226 jsb eca22 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02230: 1.1111111. 0 -> a[s] 02231: 111...111. a + b -> a[w] 02232: ....11.... return 02024: 11.11...1. a - 1 -> a[p] 02025: ...1...111 -> 02021 if no carry go to ln25 02026: 11..11..1. a exchange b[wp] 02027: 111..1111. a + b -> a[s] 02030: .......111 -> 02001 if no carry go to ln24 02001: 11..11111. ln24: a exchange b[s] 02002: 111111111. a + 1 -> a[s] 02003: 1..1.1.11. shift right c[ms] 02004: .1...1..1. shift left a[wp] 02005: ...1..1.11 -> 02022 go to ln26 02022: .1..1.111. ln26: a -> b[w] 02023: 1..1.11..1 -> 02226 jsb eca22 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02230: 1.1111111. 0 -> a[s] 02231: 111...111. a + b -> a[w] 02232: ....11.... return 02024: 11.11...1. a - 1 -> a[p] 02025: ...1...111 -> 02021 if no carry go to ln25 02021: .11111111. ln25: c + 1 -> c[s] 02022: .1..1.111. ln26: a -> b[w] 02023: 1..1.11..1 -> 02226 jsb eca22 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02230: 1.1111111. 0 -> a[s] 02231: 111...111. a + b -> a[w] 02232: ....11.... return 02024: 11.11...1. a - 1 -> a[p] 02025: ...1...111 -> 02021 if no carry go to ln25 02021: .11111111. ln25: c + 1 -> c[s] 02022: .1..1.111. ln26: a -> b[w] 02023: 1..1.11..1 -> 02226 jsb eca22 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02230: 1.1111111. 0 -> a[s] 02231: 111...111. a + b -> a[w] 02232: ....11.... return 02024: 11.11...1. a - 1 -> a[p] 02025: ...1...111 -> 02021 if no carry go to ln25 02021: .11111111. ln25: c + 1 -> c[s] 02022: .1..1.111. ln26: a -> b[w] 02023: 1..1.11..1 -> 02226 jsb eca22 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02230: 1.1111111. 0 -> a[s] 02231: 111...111. a + b -> a[w] 02232: ....11.... return 02024: 11.11...1. a - 1 -> a[p] 02025: ...1...111 -> 02021 if no carry go to ln25 02026: 11..11..1. a exchange b[wp] 02027: 111..1111. a + b -> a[s] 02030: .......111 -> 02001 if no carry go to ln24 02001: 11..11111. ln24: a exchange b[s] 02002: 111111111. a + 1 -> a[s] 02003: 1..1.1.11. shift right c[ms] 02004: .1...1..1. shift left a[wp] 02005: ...1..1.11 -> 02022 go to ln26 02022: .1..1.111. ln26: a -> b[w] 02023: 1..1.11..1 -> 02226 jsb eca22 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02230: 1.1111111. 0 -> a[s] 02231: 111...111. a + b -> a[w] 02232: ....11.... return 02024: 11.11...1. a - 1 -> a[p] 02025: ...1...111 -> 02021 if no carry go to ln25 02021: .11111111. ln25: c + 1 -> c[s] 02022: .1..1.111. ln26: a -> b[w] 02023: 1..1.11..1 -> 02226 jsb eca22 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02230: 1.1111111. 0 -> a[s] 02231: 111...111. a + b -> a[w] 02232: ....11.... return 02024: 11.11...1. a - 1 -> a[p] 02025: ...1...111 -> 02021 if no carry go to ln25 02021: .11111111. ln25: c + 1 -> c[s] 02022: .1..1.111. ln26: a -> b[w] 02023: 1..1.11..1 -> 02226 jsb eca22 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02230: 1.1111111. 0 -> a[s] 02231: 111...111. a + b -> a[w] 02232: ....11.... return 02024: 11.11...1. a - 1 -> a[p] 02025: ...1...111 -> 02021 if no carry go to ln25 02026: 11..11..1. a exchange b[wp] 02027: 111..1111. a + b -> a[s] 02030: .......111 -> 02001 if no carry go to ln24 02001: 11..11111. ln24: a exchange b[s] 02002: 111111111. a + 1 -> a[s] 02003: 1..1.1.11. shift right c[ms] 02004: .1...1..1. shift left a[wp] 02005: ...1..1.11 -> 02022 go to ln26 02022: .1..1.111. ln26: a -> b[w] 02023: 1..1.11..1 -> 02226 jsb eca22 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02230: 1.1111111. 0 -> a[s] 02231: 111...111. a + b -> a[w] 02232: ....11.... return 02024: 11.11...1. a - 1 -> a[p] 02025: ...1...111 -> 02021 if no carry go to ln25 02021: .11111111. ln25: c + 1 -> c[s] 02022: .1..1.111. ln26: a -> b[w] 02023: 1..1.11..1 -> 02226 jsb eca22 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02230: 1.1111111. 0 -> a[s] 02231: 111...111. a + b -> a[w] 02232: ....11.... return 02024: 11.11...1. a - 1 -> a[p] 02025: ...1...111 -> 02021 if no carry go to ln25 02021: .11111111. ln25: c + 1 -> c[s] 02022: .1..1.111. ln26: a -> b[w] 02023: 1..1.11..1 -> 02226 jsb eca22 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02230: 1.1111111. 0 -> a[s] 02231: 111...111. a + b -> a[w] 02232: ....11.... return 02024: 11.11...1. a - 1 -> a[p] 02025: ...1...111 -> 02021 if no carry go to ln25 02021: .11111111. ln25: c + 1 -> c[s] 02022: .1..1.111. ln26: a -> b[w] 02023: 1..1.11..1 -> 02226 jsb eca22 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02230: 1.1111111. 0 -> a[s] 02231: 111...111. a + b -> a[w] 02232: ....11.... return 02024: 11.11...1. a - 1 -> a[p] 02025: ...1...111 -> 02021 if no carry go to ln25 02021: .11111111. ln25: c + 1 -> c[s] 02022: .1..1.111. ln26: a -> b[w] 02023: 1..1.11..1 -> 02226 jsb eca22 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02230: 1.1111111. 0 -> a[s] 02231: 111...111. a + b -> a[w] 02232: ....11.... return 02024: 11.11...1. a - 1 -> a[p] 02025: ...1...111 -> 02021 if no carry go to ln25 02021: .11111111. ln25: c + 1 -> c[s] 02022: .1..1.111. ln26: a -> b[w] 02023: 1..1.11..1 -> 02226 jsb eca22 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02230: 1.1111111. 0 -> a[s] 02231: 111...111. a + b -> a[w] 02232: ....11.... return 02024: 11.11...1. a - 1 -> a[p] 02025: ...1...111 -> 02021 if no carry go to ln25 02021: .11111111. ln25: c + 1 -> c[s] 02022: .1..1.111. ln26: a -> b[w] 02023: 1..1.11..1 -> 02226 jsb eca22 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02230: 1.1111111. 0 -> a[s] 02231: 111...111. a + b -> a[w] 02232: ....11.... return 02024: 11.11...1. a - 1 -> a[p] 02025: ...1...111 -> 02021 if no carry go to ln25 02026: 11..11..1. a exchange b[wp] 02027: 111..1111. a + b -> a[s] 02030: .......111 -> 02001 if no carry go to ln24 02001: 11..11111. ln24: a exchange b[s] 02002: 111111111. a + 1 -> a[s] 02003: 1..1.1.11. shift right c[ms] 02004: .1...1..1. shift left a[wp] 02005: ...1..1.11 -> 02022 go to ln26 02022: .1..1.111. ln26: a -> b[w] 02023: 1..1.11..1 -> 02226 jsb eca22 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02230: 1.1111111. 0 -> a[s] 02231: 111...111. a + b -> a[w] 02232: ....11.... return 02024: 11.11...1. a - 1 -> a[p] 02025: ...1...111 -> 02021 if no carry go to ln25 02021: .11111111. ln25: c + 1 -> c[s] 02022: .1..1.111. ln26: a -> b[w] 02023: 1..1.11..1 -> 02226 jsb eca22 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02230: 1.1111111. 0 -> a[s] 02231: 111...111. a + b -> a[w] 02232: ....11.... return 02024: 11.11...1. a - 1 -> a[p] 02025: ...1...111 -> 02021 if no carry go to ln25 02021: .11111111. ln25: c + 1 -> c[s] 02022: .1..1.111. ln26: a -> b[w] 02023: 1..1.11..1 -> 02226 jsb eca22 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02230: 1.1111111. 0 -> a[s] 02231: 111...111. a + b -> a[w] 02232: ....11.... return 02024: 11.11...1. a - 1 -> a[p] 02025: ...1...111 -> 02021 if no carry go to ln25 02021: .11111111. ln25: c + 1 -> c[s] 02022: .1..1.111. ln26: a -> b[w] 02023: 1..1.11..1 -> 02226 jsb eca22 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02230: 1.1111111. 0 -> a[s] 02231: 111...111. a + b -> a[w] 02232: ....11.... return 02024: 11.11...1. a - 1 -> a[p] 02025: ...1...111 -> 02021 if no carry go to ln25 02021: .11111111. ln25: c + 1 -> c[s] 02022: .1..1.111. ln26: a -> b[w] 02023: 1..1.11..1 -> 02226 jsb eca22 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02230: 1.1111111. 0 -> a[s] 02231: 111...111. a + b -> a[w] 02232: ....11.... return 02024: 11.11...1. a - 1 -> a[p] 02025: ...1...111 -> 02021 if no carry go to ln25 02021: .11111111. ln25: c + 1 -> c[s] 02022: .1..1.111. ln26: a -> b[w] 02023: 1..1.11..1 -> 02226 jsb eca22 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02230: 1.1111111. 0 -> a[s] 02231: 111...111. a + b -> a[w] 02232: ....11.... return 02024: 11.11...1. a - 1 -> a[p] 02025: ...1...111 -> 02021 if no carry go to ln25 02021: .11111111. ln25: c + 1 -> c[s] 02022: .1..1.111. ln26: a -> b[w] 02023: 1..1.11..1 -> 02226 jsb eca22 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02230: 1.1111111. 0 -> a[s] 02231: 111...111. a + b -> a[w] 02232: ....11.... return 02024: 11.11...1. a - 1 -> a[p] 02025: ...1...111 -> 02021 if no carry go to ln25 02021: .11111111. ln25: c + 1 -> c[s] 02022: .1..1.111. ln26: a -> b[w] 02023: 1..1.11..1 -> 02226 jsb eca22 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02225: 1.11.1..1. eca21: shift right a[wp] 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02230: 1.1111111. 0 -> a[s] 02231: 111...111. a + b -> a[w] 02232: ....11.... return 02024: 11.11...1. a - 1 -> a[p] 02025: ...1...111 -> 02021 if no carry go to ln25 02026: 11..11..1. a exchange b[wp] 02027: 111..1111. a + b -> a[s] 02030: .......111 -> 02001 if no carry go to ln24 02031: .111..11.. 7 -> p 02032: .11.11.1.1 -> 02155 jsb pqo23 02155: 1...1.111. pqo23: b exchange c[w] 02156: ..11..111. 0 -> c[w] 02157: .1.11..11. c - 1 -> c[m] 02160: ..1..1.1.. if s2 = 0 02161: .111.11.11 -> 02166 then go to pqo28 02162: .1...11... load constant 4 02163: .1111..11. c + 1 -> c[m] 02164: .1111..111 -> 02171 if no carry go to pqo24 02171: 1..1..111. pqo24: shift right c[w] 02172: ..1..1.1.. nrm26: if s2 = 0 02173: 1..1.1..11 -> 02224 then go to rtn21 02174: ....11.... return 02033: 1.....11.. 8 -> p 02034: 1..111.1.1 -> 02235 jsb pmu22 02235: 1...1.111. pmu22: b exchange c[w] 02236: 1.1.....11 -> 02240 go to pmu24 02240: .1.111111. pmu24: c - 1 -> c[s] 02241: 1..1111111 -> 02237 if no carry go to pmu23 02237: 111...111. pmu23: a + b -> a[w] 02240: .1.111111. pmu24: c - 1 -> c[s] 02241: 1..1111111 -> 02237 if no carry go to pmu23 02237: 111...111. pmu23: a + b -> a[w] 02240: .1.111111. pmu24: c - 1 -> c[s] 02241: 1..1111111 -> 02237 if no carry go to pmu23 02237: 111...111. pmu23: a + b -> a[w] 02240: .1.111111. pmu24: c - 1 -> c[s] 02241: 1..1111111 -> 02237 if no carry go to pmu23 02237: 111...111. pmu23: a + b -> a[w] 02240: .1.111111. pmu24: c - 1 -> c[s] 02241: 1..1111111 -> 02237 if no carry go to pmu23 02237: 111...111. pmu23: a + b -> a[w] 02240: .1.111111. pmu24: c - 1 -> c[s] 02241: 1..1111111 -> 02237 if no carry go to pmu23 02237: 111...111. pmu23: a + b -> a[w] 02240: .1.111111. pmu24: c - 1 -> c[s] 02241: 1..1111111 -> 02237 if no carry go to pmu23 02237: 111...111. pmu23: a + b -> a[w] 02240: .1.111111. pmu24: c - 1 -> c[s] 02241: 1..1111111 -> 02237 if no carry go to pmu23 02242: 111.1.111. a exchange c[w] 02243: .1...1.11. shift left a[ms] 02244: 111.1.111. a exchange c[w] 02245: .11.11.111 -> 02155 go to pqo23 02155: 1...1.111. pqo23: b exchange c[w] 02156: ..11..111. 0 -> c[w] 02157: .1.11..11. c - 1 -> c[m] 02160: ..1..1.1.. if s2 = 0 02161: .111.11.11 -> 02166 then go to pqo28 02162: .1...11... load constant 4 02163: .1111..11. c + 1 -> c[m] 02164: .1111..111 -> 02171 if no carry go to pqo24 02171: 1..1..111. pqo24: shift right c[w] 02172: ..1..1.1.. nrm26: if s2 = 0 02173: 1..1.1..11 -> 02224 then go to rtn21 02174: ....11.... return 02035: 1..1..11.. 9 -> p 02036: 1..111...1 -> 02234 jsb pmu21 02234: 1.11..111. pmu21: shift right a[w] 02235: 1...1.111. pmu22: b exchange c[w] 02236: 1.1.....11 -> 02240 go to pmu24 02240: .1.111111. pmu24: c - 1 -> c[s] 02241: 1..1111111 -> 02237 if no carry go to pmu23 02237: 111...111. pmu23: a + b -> a[w] 02240: .1.111111. pmu24: c - 1 -> c[s] 02241: 1..1111111 -> 02237 if no carry go to pmu23 02237: 111...111. pmu23: a + b -> a[w] 02240: .1.111111. pmu24: c - 1 -> c[s] 02241: 1..1111111 -> 02237 if no carry go to pmu23 02237: 111...111. pmu23: a + b -> a[w] 02240: .1.111111. pmu24: c - 1 -> c[s] 02241: 1..1111111 -> 02237 if no carry go to pmu23 02237: 111...111. pmu23: a + b -> a[w] 02240: .1.111111. pmu24: c - 1 -> c[s] 02241: 1..1111111 -> 02237 if no carry go to pmu23 02237: 111...111. pmu23: a + b -> a[w] 02240: .1.111111. pmu24: c - 1 -> c[s] 02241: 1..1111111 -> 02237 if no carry go to pmu23 02237: 111...111. pmu23: a + b -> a[w] 02240: .1.111111. pmu24: c - 1 -> c[s] 02241: 1..1111111 -> 02237 if no carry go to pmu23 02242: 111.1.111. a exchange c[w] 02243: .1...1.11. shift left a[ms] 02244: 111.1.111. a exchange c[w] 02245: .11.11.111 -> 02155 go to pqo23 02155: 1...1.111. pqo23: b exchange c[w] 02156: ..11..111. 0 -> c[w] 02157: .1.11..11. c - 1 -> c[m] 02160: ..1..1.1.. if s2 = 0 02161: .111.11.11 -> 02166 then go to pqo28 02162: .1...11... load constant 4 02163: .1111..11. c + 1 -> c[m] 02164: .1111..111 -> 02171 if no carry go to pqo24 02171: 1..1..111. pqo24: shift right c[w] 02172: ..1..1.1.. nrm26: if s2 = 0 02173: 1..1.1..11 -> 02224 then go to rtn21 02174: ....11.... return 02037: 1111111..1 -> 02376 jsb lncd3 02376: .1.1..11.. lncd3: 5 -> p 02377: .111111.11 -> 02176 go to lnc6 02176: ..11.11... lnc6: load constant 3 02177: ..11.11... load constant 3 02200: .....11... load constant 0 02201: 1....11... lnc7: load constant 8 02202: .1.1.11... load constant 5 02203: .....11... load constant 0 02204: 1..1.11... load constant 9 02205: 111.1.1.11 -> 02352 go to lnc9 02352: ..11.11... lnc9: load constant 3 02353: 11.111.111 -> 02335 go to nrm27 02335: 11....11.. nrm27: 12 -> p 02336: .1111.1.11 -> 02172 go to nrm26 02172: ..1..1.1.. nrm26: if s2 = 0 02173: 1..1.1..11 -> 02224 then go to rtn21 02174: ....11.... return 02040: 1.1...11.. 10 -> p 02041: 1..111...1 -> 02234 jsb pmu21 02234: 1.11..111. pmu21: shift right a[w] 02235: 1...1.111. pmu22: b exchange c[w] 02236: 1.1.....11 -> 02240 go to pmu24 02240: .1.111111. pmu24: c - 1 -> c[s] 02241: 1..1111111 -> 02237 if no carry go to pmu23 02237: 111...111. pmu23: a + b -> a[w] 02240: .1.111111. pmu24: c - 1 -> c[s] 02241: 1..1111111 -> 02237 if no carry go to pmu23 02237: 111...111. pmu23: a + b -> a[w] 02240: .1.111111. pmu24: c - 1 -> c[s] 02241: 1..1111111 -> 02237 if no carry go to pmu23 02242: 111.1.111. a exchange c[w] 02243: .1...1.11. shift left a[ms] 02244: 111.1.111. a exchange c[w] 02245: .11.11.111 -> 02155 go to pqo23 02155: 1...1.111. pqo23: b exchange c[w] 02156: ..11..111. 0 -> c[w] 02157: .1.11..11. c - 1 -> c[m] 02160: ..1..1.1.. if s2 = 0 02161: .111.11.11 -> 02166 then go to pqo28 02162: .1...11... load constant 4 02163: .1111..11. c + 1 -> c[m] 02164: .1111..111 -> 02171 if no carry go to pqo24 02171: 1..1..111. pqo24: shift right c[w] 02172: ..1..1.1.. nrm26: if s2 = 0 02173: 1..1.1..11 -> 02224 then go to rtn21 02174: ....11.... return 02042: .11111.1.1 -> 02175 jsb lncd2 02175: .111..11.. lncd2: 7 -> p 02176: ..11.11... lnc6: load constant 3 02177: ..11.11... load constant 3 02200: .....11... load constant 0 02201: 1....11... lnc7: load constant 8 02202: .1.1.11... load constant 5 02203: .....11... load constant 0 02204: 1..1.11... load constant 9 02205: 111.1.1.11 -> 02352 go to lnc9 02352: ..11.11... lnc9: load constant 3 02353: 11.111.111 -> 02335 go to nrm27 02335: 11....11.. nrm27: 12 -> p 02336: .1111.1.11 -> 02172 go to nrm26 02172: ..1..1.1.. nrm26: if s2 = 0 02173: 1..1.1..11 -> 02224 then go to rtn21 02174: ....11.... return 02043: 1.11..11.. 11 -> p 02044: 1..111...1 -> 02234 jsb pmu21 02234: 1.11..111. pmu21: shift right a[w] 02235: 1...1.111. pmu22: b exchange c[w] 02236: 1.1.....11 -> 02240 go to pmu24 02240: .1.111111. pmu24: c - 1 -> c[s] 02241: 1..1111111 -> 02237 if no carry go to pmu23 02237: 111...111. pmu23: a + b -> a[w] 02240: .1.111111. pmu24: c - 1 -> c[s] 02241: 1..1111111 -> 02237 if no carry go to pmu23 02237: 111...111. pmu23: a + b -> a[w] 02240: .1.111111. pmu24: c - 1 -> c[s] 02241: 1..1111111 -> 02237 if no carry go to pmu23 02237: 111...111. pmu23: a + b -> a[w] 02240: .1.111111. pmu24: c - 1 -> c[s] 02241: 1..1111111 -> 02237 if no carry go to pmu23 02242: 111.1.111. a exchange c[w] 02243: .1...1.11. shift left a[ms] 02244: 111.1.111. a exchange c[w] 02245: .11.11.111 -> 02155 go to pqo23 02155: 1...1.111. pqo23: b exchange c[w] 02156: ..11..111. 0 -> c[w] 02157: .1.11..11. c - 1 -> c[m] 02160: ..1..1.1.. if s2 = 0 02161: .111.11.11 -> 02166 then go to pqo28 02162: .1...11... load constant 4 02163: .1111..11. c + 1 -> c[m] 02164: .1111..111 -> 02171 if no carry go to pqo24 02171: 1..1..111. pqo24: shift right c[w] 02172: ..1..1.1.. nrm26: if s2 = 0 02173: 1..1.1..11 -> 02224 then go to rtn21 02174: ....11.... return 02045: 11.11111.1 -> 02337 jsb lncd1 02337: 1..1..11.. lncd1: 9 -> p 02340: ..11.11... load constant 3 02341: ...1.11... load constant 1 02342: .....11... load constant 0 02343: ...1.11... load constant 1 02344: .111.11... load constant 7 02345: 1..1.11... load constant 9 02346: 1....11... lnc8: load constant 8 02347: .....11... load constant 0 02350: .1.1.11... load constant 5 02351: .1.1.11... load constant 5 02352: ..11.11... lnc9: load constant 3 02353: 11.111.111 -> 02335 go to nrm27 02335: 11....11.. nrm27: 12 -> p 02336: .1111.1.11 -> 02172 go to nrm26 02172: ..1..1.1.. nrm26: if s2 = 0 02173: 1..1.1..11 -> 02224 then go to rtn21 02174: ....11.... return 02046: 1..111...1 -> 02234 jsb pmu21 02234: 1.11..111. pmu21: shift right a[w] 02235: 1...1.111. pmu22: b exchange c[w] 02236: 1.1.....11 -> 02240 go to pmu24 02240: .1.111111. pmu24: c - 1 -> c[s] 02241: 1..1111111 -> 02237 if no carry go to pmu23 02237: 111...111. pmu23: a + b -> a[w] 02240: .1.111111. pmu24: c - 1 -> c[s] 02241: 1..1111111 -> 02237 if no carry go to pmu23 02237: 111...111. pmu23: a + b -> a[w] 02240: .1.111111. pmu24: c - 1 -> c[s] 02241: 1..1111111 -> 02237 if no carry go to pmu23 02242: 111.1.111. a exchange c[w] 02243: .1...1.11. shift left a[ms] 02244: 111.1.111. a exchange c[w] 02245: .11.11.111 -> 02155 go to pqo23 02155: 1...1.111. pqo23: b exchange c[w] 02156: ..11..111. 0 -> c[w] 02157: .1.11..11. c - 1 -> c[m] 02160: ..1..1.1.. if s2 = 0 02161: .111.11.11 -> 02166 then go to pqo28 02162: .1...11... load constant 4 02163: .1111..11. c + 1 -> c[m] 02164: .1111..111 -> 02171 if no carry go to pqo24 02171: 1..1..111. pqo24: shift right c[w] 02172: ..1..1.1.. nrm26: if s2 = 0 02173: 1..1.1..11 -> 02224 then go to rtn21 02174: ....11.... return 02047: 1.111..1.1 -> 02271 jsb lnc2 02271: 1...1..1.. lnc2: 0 -> s8 02272: .11..11... load constant 6 02273: 1..1.11... load constant 9 02274: ..11.11... load constant 3 02275: ...1.11... load constant 1 02276: .1...11... load constant 4 02277: .111.11... load constant 7 02300: ...1.11... load constant 1 02301: 111..11.11 -> 02346 go to lnc8 02346: 1....11... lnc8: load constant 8 02347: .....11... load constant 0 02350: .1.1.11... load constant 5 02351: .1.1.11... load constant 5 02352: ..11.11... lnc9: load constant 3 02353: 11.111.111 -> 02335 go to nrm27 02335: 11....11.. nrm27: 12 -> p 02336: .1111.1.11 -> 02172 go to nrm26 02172: ..1..1.1.. nrm26: if s2 = 0 02173: 1..1.1..11 -> 02224 then go to rtn21 02174: ....11.... return 02050: 1..111...1 -> 02234 jsb pmu21 02234: 1.11..111. pmu21: shift right a[w] 02235: 1...1.111. pmu22: b exchange c[w] 02236: 1.1.....11 -> 02240 go to pmu24 02240: .1.111111. pmu24: c - 1 -> c[s] 02241: 1..1111111 -> 02237 if no carry go to pmu23 02237: 111...111. pmu23: a + b -> a[w] 02240: .1.111111. pmu24: c - 1 -> c[s] 02241: 1..1111111 -> 02237 if no carry go to pmu23 02237: 111...111. pmu23: a + b -> a[w] 02240: .1.111111. pmu24: c - 1 -> c[s] 02241: 1..1111111 -> 02237 if no carry go to pmu23 02242: 111.1.111. a exchange c[w] 02243: .1...1.11. shift left a[ms] 02244: 111.1.111. a exchange c[w] 02245: .11.11.111 -> 02155 go to pqo23 02155: 1...1.111. pqo23: b exchange c[w] 02156: ..11..111. 0 -> c[w] 02157: .1.11..11. c - 1 -> c[m] 02160: ..1..1.1.. if s2 = 0 02161: .111.11.11 -> 02166 then go to pqo28 02162: .1...11... load constant 4 02163: .1111..11. c + 1 -> c[m] 02164: .1111..111 -> 02171 if no carry go to pqo24 02171: 1..1..111. pqo24: shift right c[w] 02172: ..1..1.1.. nrm26: if s2 = 0 02173: 1..1.1..11 -> 02224 then go to rtn21 02174: ....11.... return 02051: 1111.11..1 -> 02366 jsb lnc10 02366: ..11..111. lnc10: 0 -> c[w] 02367: 11....11.. 12 -> p 02370: ..1..11... load constant 2 02371: ..11.11... load constant 3 02372: .....11... load constant 0 02373: ..1..11... load constant 2 02374: .1.1.11... load constant 5 02375: 1......111 -> 02201 go to lnc7 02201: 1....11... lnc7: load constant 8 02202: .1.1.11... load constant 5 02203: .....11... load constant 0 02204: 1..1.11... load constant 9 02205: 111.1.1.11 -> 02352 go to lnc9 02352: ..11.11... lnc9: load constant 3 02353: 11.111.111 -> 02335 go to nrm27 02335: 11....11.. nrm27: 12 -> p 02336: .1111.1.11 -> 02172 go to nrm26 02172: ..1..1.1.. nrm26: if s2 = 0 02173: 1..1.1..11 -> 02224 then go to rtn21 02174: ....11.... return 02052: 111.1.111. a exchange c[w] 02053: .1.1..111. a - c -> c[w] 02054: .....11.1. if b[xs] = 0 02055: ..1.111111 -> 02057 then go to ln27 02057: 11..1.111. ln27: a exchange b[w] 02060: .....111.. ln28: p - 1 -> p 02061: .1....111. shift left a[w] 02062: ...11.11.. if p # 1 02063: ..11....11 -> 02060 then go to ln28 02060: .....111.. ln28: p - 1 -> p 02061: .1....111. shift left a[w] 02062: ...11.11.. if p # 1 02063: ..11....11 -> 02060 then go to ln28 02060: .....111.. ln28: p - 1 -> p 02061: .1....111. shift left a[w] 02062: ...11.11.. if p # 1 02063: ..11....11 -> 02060 then go to ln28 02060: .....111.. ln28: p - 1 -> p 02061: .1....111. shift left a[w] 02062: ...11.11.. if p # 1 02063: ..11....11 -> 02060 then go to ln28 02060: .....111.. ln28: p - 1 -> p 02061: .1....111. shift left a[w] 02062: ...11.11.. if p # 1 02063: ..11....11 -> 02060 then go to ln28 02060: .....111.. ln28: p - 1 -> p 02061: .1....111. shift left a[w] 02062: ...11.11.. if p # 1 02063: ..11....11 -> 02060 then go to ln28 02060: .....111.. ln28: p - 1 -> p 02061: .1....111. shift left a[w] 02062: ...11.11.. if p # 1 02063: ..11....11 -> 02060 then go to ln28 02060: .....111.. ln28: p - 1 -> p 02061: .1....111. shift left a[w] 02062: ...11.11.. if p # 1 02063: ..11....11 -> 02060 then go to ln28 02060: .....111.. ln28: p - 1 -> p 02061: .1....111. shift left a[w] 02062: ...11.11.. if p # 1 02063: ..11....11 -> 02060 then go to ln28 02060: .....111.. ln28: p - 1 -> p 02061: .1....111. shift left a[w] 02062: ...11.11.. if p # 1 02063: ..11....11 -> 02060 then go to ln28 02060: .....111.. ln28: p - 1 -> p 02061: .1....111. shift left a[w] 02062: ...11.11.. if p # 1 02063: ..11....11 -> 02060 then go to ln28 02064: 111.1.111. a exchange c[w] 02065: .11.11111. if c[s] = 0 02066: ..111...11 -> 02070 then go to ln29 02070: .1111.1.1. ln29: c + 1 -> c[x] 02071: 1.11..11.. 11 -> p 02072: 11...1.1.1 -> 02305 jsb mpy27 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02307: 1.11..111. mpy28: shift right a[w] 02310: ....1111.. p + 1 -> p 02311: 11.11.11.. if p # 13 02312: 11...1.111 -> 02305 then go to mpy27 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02307: 1.11..111. mpy28: shift right a[w] 02310: ....1111.. p + 1 -> p 02311: 11.11.11.. if p # 13 02312: 11...1.111 -> 02305 then go to mpy27 02313: .1111.1.1. c + 1 -> c[x] 02314: 1.1111111. nrm21: 0 -> a[s] 02315: 11....11.. 12 -> p 02316: ....1.111. 0 -> b[w] 02317: 1..11...1. nrm23: if a[p] >= 1 02320: 11.1.11.11 -> 02326 then go to nrm24 02321: .1....111. shift left a[w] 02322: .1.11.1.1. c - 1 -> c[x] 02323: 1..11.111. if a[w] >= 1 02324: 11..111111 -> 02317 then go to nrm23 02317: 1..11...1. nrm23: if a[p] >= 1 02320: 11.1.11.11 -> 02326 then go to nrm24 02321: .1....111. shift left a[w] 02322: .1.11.1.1. c - 1 -> c[x] 02323: 1..11.111. if a[w] >= 1 02324: 11..111111 -> 02317 then go to nrm23 02317: 1..11...1. nrm23: if a[p] >= 1 02320: 11.1.11.11 -> 02326 then go to nrm24 02321: .1....111. shift left a[w] 02322: .1.11.1.1. c - 1 -> c[x] 02323: 1..11.111. if a[w] >= 1 02324: 11..111111 -> 02317 then go to nrm23 02317: 1..11...1. nrm23: if a[p] >= 1 02320: 11.1.11.11 -> 02326 then go to nrm24 02326: .1..1.1.1. nrm24: a -> b[x] 02327: 111...111. a + b -> a[w] 02330: 1..111111. if a[s] >= 1 02331: 11...11111 -> 02307 then go to mpy28 02332: 111.1..11. a exchange c[m] 02333: .11...111. c -> a[w] 02334: ....1.111. 0 -> b[w] 02335: 11....11.. nrm27: 12 -> p 02336: .1111.1.11 -> 02172 go to nrm26 02172: ..1..1.1.. nrm26: if s2 = 0 02173: 1..1.1..11 -> 02224 then go to rtn21 02174: ....11.... return 02073: 1..1.1.1.. if s9 = 0 02074: .....11.11 -> 02006 then go to xty22 flush y from stack 02006: .11.1.1... xty22: stack -> a multiply ln(x) by y 02007: 1.1..11..1 -> 02246 jsb mpy21 02246: ..11..11.. mpy21: 3 -> p 02247: .111..1.1. mpy22: a + c -> c[x] 02250: .1.1.1111. a - c -> c[s] 02251: 1.1.1.1111 -> 02253 if no carry go to div22 02253: 11..1..11. div22: a exchange b[m] 02254: 1.111.111. 0 -> a[w] 02255: 11..1.11.. if p # 12 02256: 11...1.111 -> 02305 then go to mpy27 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02307: 1.11..111. mpy28: shift right a[w] 02310: ....1111.. p + 1 -> p 02311: 11.11.11.. if p # 13 02312: 11...1.111 -> 02305 then go to mpy27 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02307: 1.11..111. mpy28: shift right a[w] 02310: ....1111.. p + 1 -> p 02311: 11.11.11.. if p # 13 02312: 11...1.111 -> 02305 then go to mpy27 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02307: 1.11..111. mpy28: shift right a[w] 02310: ....1111.. p + 1 -> p 02311: 11.11.11.. if p # 13 02312: 11...1.111 -> 02305 then go to mpy27 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02307: 1.11..111. mpy28: shift right a[w] 02310: ....1111.. p + 1 -> p 02311: 11.11.11.. if p # 13 02312: 11...1.111 -> 02305 then go to mpy27 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02307: 1.11..111. mpy28: shift right a[w] 02310: ....1111.. p + 1 -> p 02311: 11.11.11.. if p # 13 02312: 11...1.111 -> 02305 then go to mpy27 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02307: 1.11..111. mpy28: shift right a[w] 02310: ....1111.. p + 1 -> p 02311: 11.11.11.. if p # 13 02312: 11...1.111 -> 02305 then go to mpy27 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02307: 1.11..111. mpy28: shift right a[w] 02310: ....1111.. p + 1 -> p 02311: 11.11.11.. if p # 13 02312: 11...1.111 -> 02305 then go to mpy27 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02307: 1.11..111. mpy28: shift right a[w] 02310: ....1111.. p + 1 -> p 02311: 11.11.11.. if p # 13 02312: 11...1.111 -> 02305 then go to mpy27 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02307: 1.11..111. mpy28: shift right a[w] 02310: ....1111.. p + 1 -> p 02311: 11.11.11.. if p # 13 02312: 11...1.111 -> 02305 then go to mpy27 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02304: 111...111. myp26: a + b -> a[w] 02305: .1.11...1. mpy27: c - 1 -> c[p] 02306: 11...1..11 -> 02304 if no carry go to myp26 02307: 1.11..111. mpy28: shift right a[w] 02310: ....1111.. p + 1 -> p 02311: 11.11.11.. if p # 13 02312: 11...1.111 -> 02305 then go to mpy27 02313: .1111.1.1. c + 1 -> c[x] 02314: 1.1111111. nrm21: 0 -> a[s] 02315: 11....11.. 12 -> p 02316: ....1.111. 0 -> b[w] 02317: 1..11...1. nrm23: if a[p] >= 1 02320: 11.1.11.11 -> 02326 then go to nrm24 02326: .1..1.1.1. nrm24: a -> b[x] 02327: 111...111. a + b -> a[w] 02330: 1..111111. if a[s] >= 1 02331: 11...11111 -> 02307 then go to mpy28 02332: 111.1..11. a exchange c[m] 02333: .11...111. c -> a[w] 02334: ....1.111. 0 -> b[w] 02335: 11....11.. nrm27: 12 -> p 02336: .1111.1.11 -> 02172 go to nrm26 02172: ..1..1.1.. nrm26: if s2 = 0 02173: 1..1.1..11 -> 02224 then go to rtn21 02174: ....11.... return 02010: .11...111. c -> a[w] 02011: 1....1.1.. if s8 = 0 02012: .1....1.11 -> 02102 then go to exp21 take e ^ ((ln(x) * y) 02102: 1111.11..1 -> 02366 exp21: jsb lnc10 02366: ..11..111. lnc10: 0 -> c[w] 02367: 11....11.. 12 -> p 02370: ..1..11... load constant 2 02371: ..11.11... load constant 3 02372: .....11... load constant 0 02373: ..1..11... load constant 2 02374: .1.1.11... load constant 5 02375: 1......111 -> 02201 go to lnc7 02201: 1....11... lnc7: load constant 8 02202: .1.1.11... load constant 5 02203: .....11... load constant 0 02204: 1..1.11... load constant 9 02205: 111.1.1.11 -> 02352 go to lnc9 02352: ..11.11... lnc9: load constant 3 02353: 11.111.111 -> 02335 go to nrm27 02335: 11....11.. nrm27: 12 -> p 02336: .1111.1.11 -> 02172 go to nrm26 02172: ..1..1.1.. nrm26: if s2 = 0 02173: 1..1.1..11 -> 02224 then go to rtn21 02174: ....11.... return 02103: 111.11...1 -> 02354 jsb pre21 02354: 111.1.111. pre21: a exchange c[w] 02355: .1..1.111. a -> b[w] 02356: .11....11. c -> a[m] 02357: 1.1.111.1. c + c -> c[xs] 02360: .1.1111.11 -> 02136 if no carry go to pre24 02136: 11...1.11. pre24: a - b -> a[ms] 02137: .1.11..111 -> 02131 if no carry go to pre23 02140: 111..1.11. a + b -> a[ms] 02141: .1....111. shift left a[w] 02142: .1.11.1.1. c - 1 -> c[x] 02143: .1.111..11 -> 02134 if no carry go to pre29 02144: 1.11..111. pre25: shift right a[w] 02145: ..11.1..1. 0 -> c[wp] 02146: 111.1.1.1. a exchange c[x] 02147: .11.11111. pre26: if c[s] = 0 02150: .11.11..11 -> 02154 then go to pre28 02154: 1.11..111. pre28: shift right a[w] 02155: 1...1.111. pqo23: b exchange c[w] 02156: ..11..111. 0 -> c[w] 02157: .1.11..11. c - 1 -> c[m] 02160: ..1..1.1.. if s2 = 0 02161: .111.11.11 -> 02166 then go to pqo28 02162: .1...11... load constant 4 02163: .1111..11. c + 1 -> c[m] 02164: .1111..111 -> 02171 if no carry go to pqo24 02171: 1..1..111. pqo24: shift right c[w] 02172: ..1..1.1.. nrm26: if s2 = 0 02173: 1..1.1..11 -> 02224 then go to rtn21 02174: ....11.... return 02104: 1.111..1.1 -> 02271 jsb lnc2 02271: 1...1..1.. lnc2: 0 -> s8 02272: .11..11... load constant 6 02273: 1..1.11... load constant 9 02274: ..11.11... load constant 3 02275: ...1.11... load constant 1 02276: .1...11... load constant 4 02277: .111.11... load constant 7 02300: ...1.11... load constant 1 02301: 111..11.11 -> 02346 go to lnc8 02346: 1....11... lnc8: load constant 8 02347: .....11... load constant 0 02350: .1.1.11... load constant 5 02351: .1.1.11... load constant 5 02352: ..11.11... lnc9: load constant 3 02353: 11.111.111 -> 02335 go to nrm27 02335: 11....11.. nrm27: 12 -> p 02336: .1111.1.11 -> 02172 go to nrm26 02172: ..1..1.1.. nrm26: if s2 = 0 02173: 1..1.1..11 -> 02224 then go to rtn21 02174: ....11.... return 02105: 1.11..11.. 11 -> p 02106: 1..11.11.1 -> 02233 jsb pqo21 02233: ..1..1.... -> 01234 pqo21: select rom 1 ; -> pqo11 01234: .1....111. pqo11: shift left a[w] 01235: 1.1..1.11. pqo12: shift right b[ms] 01236: 1...1.111. b exchange c[w] 01237: 1.1....111 -> 01241 go to pqo16 01241: 11....111. pqo16: a - b -> a[w] 01242: 1.1.....11 -> 01240 if no carry go to pqo15 01240: .11111111. pqo15: c + 1 -> c[s] 01241: 11....111. pqo16: a - b -> a[w] 01242: 1.1.....11 -> 01240 if no carry go to pqo15 01240: .11111111. pqo15: c + 1 -> c[s] 01241: 11....111. pqo16: a - b -> a[w] 01242: 1.1.....11 -> 01240 if no carry go to pqo15 01240: .11111111. pqo15: c + 1 -> c[s] 01241: 11....111. pqo16: a - b -> a[w] 01242: 1.1.....11 -> 01240 if no carry go to pqo15 01243: 111...111. a + b -> a[w] 01244: .1...1.... -> 02245 pqo13: select rom 2 ; -> l02245 02245: .11.11.111 -> 02155 go to pqo23 02155: 1...1.111. pqo23: b exchange c[w] 02156: ..11..111. 0 -> c[w] 02157: .1.11..11. c - 1 -> c[m] 02160: ..1..1.1.. if s2 = 0 02161: .111.11.11 -> 02166 then go to pqo28 02162: .1...11... load constant 4 02163: .1111..11. c + 1 -> c[m] 02164: .1111..111 -> 02171 if no carry go to pqo24 02171: 1..1..111. pqo24: shift right c[w] 02172: ..1..1.1.. nrm26: if s2 = 0 02173: 1..1.1..11 -> 02224 then go to rtn21 02174: ....11.... return 02107: 11.11111.1 -> 02337 jsb lncd1 02337: 1..1..11.. lncd1: 9 -> p 02340: ..11.11... load constant 3 02341: ...1.11... load constant 1 02342: .....11... load constant 0 02343: ...1.11... load constant 1 02344: .111.11... load constant 7 02345: 1..1.11... load constant 9 02346: 1....11... lnc8: load constant 8 02347: .....11... load constant 0 02350: .1.1.11... load constant 5 02351: .1.1.11... load constant 5 02352: ..11.11... lnc9: load constant 3 02353: 11.111.111 -> 02335 go to nrm27 02335: 11....11.. nrm27: 12 -> p 02336: .1111.1.11 -> 02172 go to nrm26 02172: ..1..1.1.. nrm26: if s2 = 0 02173: 1..1.1..11 -> 02224 then go to rtn21 02174: ....11.... return 02110: 1.1...11.. 10 -> p 02111: 1..11.11.1 -> 02233 jsb pqo21 02233: ..1..1.... -> 01234 pqo21: select rom 1 ; -> pqo11 01234: .1....111. pqo11: shift left a[w] 01235: 1.1..1.11. pqo12: shift right b[ms] 01236: 1...1.111. b exchange c[w] 01237: 1.1....111 -> 01241 go to pqo16 01241: 11....111. pqo16: a - b -> a[w] 01242: 1.1.....11 -> 01240 if no carry go to pqo15 01243: 111...111. a + b -> a[w] 01244: .1...1.... -> 02245 pqo13: select rom 2 ; -> l02245 02245: .11.11.111 -> 02155 go to pqo23 02155: 1...1.111. pqo23: b exchange c[w] 02156: ..11..111. 0 -> c[w] 02157: .1.11..11. c - 1 -> c[m] 02160: ..1..1.1.. if s2 = 0 02161: .111.11.11 -> 02166 then go to pqo28 02162: .1...11... load constant 4 02163: .1111..11. c + 1 -> c[m] 02164: .1111..111 -> 02171 if no carry go to pqo24 02171: 1..1..111. pqo24: shift right c[w] 02172: ..1..1.1.. nrm26: if s2 = 0 02173: 1..1.1..11 -> 02224 then go to rtn21 02174: ....11.... return 02112: .11111.1.1 -> 02175 jsb lncd2 02175: .111..11.. lncd2: 7 -> p 02176: ..11.11... lnc6: load constant 3 02177: ..11.11... load constant 3 02200: .....11... load constant 0 02201: 1....11... lnc7: load constant 8 02202: .1.1.11... load constant 5 02203: .....11... load constant 0 02204: 1..1.11... load constant 9 02205: 111.1.1.11 -> 02352 go to lnc9 02352: ..11.11... lnc9: load constant 3 02353: 11.111.111 -> 02335 go to nrm27 02335: 11....11.. nrm27: 12 -> p 02336: .1111.1.11 -> 02172 go to nrm26 02172: ..1..1.1.. nrm26: if s2 = 0 02173: 1..1.1..11 -> 02224 then go to rtn21 02174: ....11.... return 02113: 1..1..11.. 9 -> p 02114: 1..11.11.1 -> 02233 jsb pqo21 02233: ..1..1.... -> 01234 pqo21: select rom 1 ; -> pqo11 01234: .1....111. pqo11: shift left a[w] 01235: 1.1..1.11. pqo12: shift right b[ms] 01236: 1...1.111. b exchange c[w] 01237: 1.1....111 -> 01241 go to pqo16 01241: 11....111. pqo16: a - b -> a[w] 01242: 1.1.....11 -> 01240 if no carry go to pqo15 01243: 111...111. a + b -> a[w] 01244: .1...1.... -> 02245 pqo13: select rom 2 ; -> l02245 02245: .11.11.111 -> 02155 go to pqo23 02155: 1...1.111. pqo23: b exchange c[w] 02156: ..11..111. 0 -> c[w] 02157: .1.11..11. c - 1 -> c[m] 02160: ..1..1.1.. if s2 = 0 02161: .111.11.11 -> 02166 then go to pqo28 02162: .1...11... load constant 4 02163: .1111..11. c + 1 -> c[m] 02164: .1111..111 -> 02171 if no carry go to pqo24 02171: 1..1..111. pqo24: shift right c[w] 02172: ..1..1.1.. nrm26: if s2 = 0 02173: 1..1.1..11 -> 02224 then go to rtn21 02174: ....11.... return 02115: 1111111..1 -> 02376 jsb lncd3 02376: .1.1..11.. lncd3: 5 -> p 02377: .111111.11 -> 02176 go to lnc6 02176: ..11.11... lnc6: load constant 3 02177: ..11.11... load constant 3 02200: .....11... load constant 0 02201: 1....11... lnc7: load constant 8 02202: .1.1.11... load constant 5 02203: .....11... load constant 0 02204: 1..1.11... load constant 9 02205: 111.1.1.11 -> 02352 go to lnc9 02352: ..11.11... lnc9: load constant 3 02353: 11.111.111 -> 02335 go to nrm27 02335: 11....11.. nrm27: 12 -> p 02336: .1111.1.11 -> 02172 go to nrm26 02172: ..1..1.1.. nrm26: if s2 = 0 02173: 1..1.1..11 -> 02224 then go to rtn21 02174: ....11.... return 02116: 1.....11.. 8 -> p 02117: 1..11.11.1 -> 02233 jsb pqo21 02233: ..1..1.... -> 01234 pqo21: select rom 1 ; -> pqo11 01234: .1....111. pqo11: shift left a[w] 01235: 1.1..1.11. pqo12: shift right b[ms] 01236: 1...1.111. b exchange c[w] 01237: 1.1....111 -> 01241 go to pqo16 01241: 11....111. pqo16: a - b -> a[w] 01242: 1.1.....11 -> 01240 if no carry go to pqo15 01243: 111...111. a + b -> a[w] 01244: .1...1.... -> 02245 pqo13: select rom 2 ; -> l02245 02245: .11.11.111 -> 02155 go to pqo23 02155: 1...1.111. pqo23: b exchange c[w] 02156: ..11..111. 0 -> c[w] 02157: .1.11..11. c - 1 -> c[m] 02160: ..1..1.1.. if s2 = 0 02161: .111.11.11 -> 02166 then go to pqo28 02162: .1...11... load constant 4 02163: .1111..11. c + 1 -> c[m] 02164: .1111..111 -> 02171 if no carry go to pqo24 02171: 1..1..111. pqo24: shift right c[w] 02172: ..1..1.1.. nrm26: if s2 = 0 02173: 1..1.1..11 -> 02224 then go to rtn21 02174: ....11.... return 02120: 1..11.11.1 -> 02233 jsb pqo21 02233: ..1..1.... -> 01234 pqo21: select rom 1 ; -> pqo11 01234: .1....111. pqo11: shift left a[w] 01235: 1.1..1.11. pqo12: shift right b[ms] 01236: 1...1.111. b exchange c[w] 01237: 1.1....111 -> 01241 go to pqo16 01241: 11....111. pqo16: a - b -> a[w] 01242: 1.1.....11 -> 01240 if no carry go to pqo15 01243: 111...111. a + b -> a[w] 01244: .1...1.... -> 02245 pqo13: select rom 2 ; -> l02245 02245: .11.11.111 -> 02155 go to pqo23 02155: 1...1.111. pqo23: b exchange c[w] 02156: ..11..111. 0 -> c[w] 02157: .1.11..11. c - 1 -> c[m] 02160: ..1..1.1.. if s2 = 0 02161: .111.11.11 -> 02166 then go to pqo28 02162: .1...11... load constant 4 02163: .1111..11. c + 1 -> c[m] 02164: .1111..111 -> 02171 if no carry go to pqo24 02171: 1..1..111. pqo24: shift right c[w] 02172: ..1..1.1.. nrm26: if s2 = 0 02173: 1..1.1..11 -> 02224 then go to rtn21 02174: ....11.... return 02121: 1..11.11.1 -> 02233 jsb pqo21 02233: ..1..1.... -> 01234 pqo21: select rom 1 ; -> pqo11 01234: .1....111. pqo11: shift left a[w] 01235: 1.1..1.11. pqo12: shift right b[ms] 01236: 1...1.111. b exchange c[w] 01237: 1.1....111 -> 01241 go to pqo16 01241: 11....111. pqo16: a - b -> a[w] 01242: 1.1.....11 -> 01240 if no carry go to pqo15 01243: 111...111. a + b -> a[w] 01244: .1...1.... -> 02245 pqo13: select rom 2 ; -> l02245 02245: .11.11.111 -> 02155 go to pqo23 02155: 1...1.111. pqo23: b exchange c[w] 02156: ..11..111. 0 -> c[w] 02157: .1.11..11. c - 1 -> c[m] 02160: ..1..1.1.. if s2 = 0 02161: .111.11.11 -> 02166 then go to pqo28 02162: .1...11... load constant 4 02163: .1111..11. c + 1 -> c[m] 02164: .1111..111 -> 02171 if no carry go to pqo24 02171: 1..1..111. pqo24: shift right c[w] 02172: ..1..1.1.. nrm26: if s2 = 0 02173: 1..1.1..11 -> 02224 then go to rtn21 02174: ....11.... return 02122: .11...11.. 6 -> p 02123: 1.1111..1. 0 -> a[wp] 02124: 11.1..11.. 13 -> p 02125: 1...1.111. b exchange c[w] 02126: 111.1.111. a exchange c[w] 02127: .11..11... load constant 6 02130: 1...111.11 -> 02216 go to exp23 02216: 111.1.111. exp23: a exchange c[w] 02217: 11.111111. a - 1 -> a[s] 02220: 1...1...11 -> 02210 if no carry go to exp22 02210: .1..1.111. exp22: a -> b[w] 02211: .1.111111. c - 1 -> c[s] 02212: 1....11.11 -> 02206 if no carry go to exp29 02213: 1.11.1..1. shift right a[wp] 02214: 111.1.111. a exchange c[w] 02215: .1...1.11. shift left a[ms] 02216: 111.1.111. exp23: a exchange c[w] 02217: 11.111111. a - 1 -> a[s] 02220: 1...1...11 -> 02210 if no carry go to exp22 02210: .1..1.111. exp22: a -> b[w] 02211: .1.111111. c - 1 -> c[s] 02212: 1....11.11 -> 02206 if no carry go to exp29 02213: 1.11.1..1. shift right a[wp] 02214: 111.1.111. a exchange c[w] 02215: .1...1.11. shift left a[ms] 02216: 111.1.111. exp23: a exchange c[w] 02217: 11.111111. a - 1 -> a[s] 02220: 1...1...11 -> 02210 if no carry go to exp22 02210: .1..1.111. exp22: a -> b[w] 02211: .1.111111. c - 1 -> c[s] 02212: 1....11.11 -> 02206 if no carry go to exp29 02213: 1.11.1..1. shift right a[wp] 02214: 111.1.111. a exchange c[w] 02215: .1...1.11. shift left a[ms] 02216: 111.1.111. exp23: a exchange c[w] 02217: 11.111111. a - 1 -> a[s] 02220: 1...1...11 -> 02210 if no carry go to exp22 02210: .1..1.111. exp22: a -> b[w] 02211: .1.111111. c - 1 -> c[s] 02212: 1....11.11 -> 02206 if no carry go to exp29 02213: 1.11.1..1. shift right a[wp] 02214: 111.1.111. a exchange c[w] 02215: .1...1.11. shift left a[ms] 02216: 111.1.111. exp23: a exchange c[w] 02217: 11.111111. a - 1 -> a[s] 02220: 1...1...11 -> 02210 if no carry go to exp22 02210: .1..1.111. exp22: a -> b[w] 02211: .1.111111. c - 1 -> c[s] 02212: 1....11.11 -> 02206 if no carry go to exp29 02213: 1.11.1..1. shift right a[wp] 02214: 111.1.111. a exchange c[w] 02215: .1...1.11. shift left a[ms] 02216: 111.1.111. exp23: a exchange c[w] 02217: 11.111111. a - 1 -> a[s] 02220: 1...1...11 -> 02210 if no carry go to exp22 02210: .1..1.111. exp22: a -> b[w] 02211: .1.111111. c - 1 -> c[s] 02212: 1....11.11 -> 02206 if no carry go to exp29 02206: 1..1.11..1 -> 02226 exp29: jsb eca22 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02230: 1.1111111. 0 -> a[s] 02231: 111...111. a + b -> a[w] 02232: ....11.... return 02207: 11111...1. a + 1 -> a[p] 02210: .1..1.111. exp22: a -> b[w] 02211: .1.111111. c - 1 -> c[s] 02212: 1....11.11 -> 02206 if no carry go to exp29 02206: 1..1.11..1 -> 02226 exp29: jsb eca22 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02230: 1.1111111. 0 -> a[s] 02231: 111...111. a + b -> a[w] 02232: ....11.... return 02207: 11111...1. a + 1 -> a[p] 02210: .1..1.111. exp22: a -> b[w] 02211: .1.111111. c - 1 -> c[s] 02212: 1....11.11 -> 02206 if no carry go to exp29 02206: 1..1.11..1 -> 02226 exp29: jsb eca22 02226: 11.111111. eca22: a - 1 -> a[s] 02227: 1..1.1.111 -> 02225 if no carry go to eca21 02230: 1.1111111. 0 -> a[s] 02231: 111...111. a + b -> a[w] 02232: ....11.... return 02207: 11111...1. a + 1 -> a[p] 02210: .1..1.111. exp22: a -> b[w] 02211: .1.111111. c - 1 -> c[s] 02212: 1....11.11 -> 02206 if no carry go to exp29 02213: 1.11.1..1. shift right a[wp] 02214: 111.1.111. a exchange c[w] 02215: .1...1.11. shift left a[ms] 02216: 111.1.111. exp23: a exchange c[w] 02217: 11.111111. a - 1 -> a[s] 02220: 1...1...11 -> 02210 if no carry go to exp22 02221: 11..1.111. a exchange b[w] 02222: 11111...1. a + 1 -> a[p] 02223: 11..11...1 -> 02314 jsb nrm21 02314: 1.1111111. nrm21: 0 -> a[s] 02315: 11....11.. 12 -> p 02316: ....1.111. 0 -> b[w] 02317: 1..11...1. nrm23: if a[p] >= 1 02320: 11.1.11.11 -> 02326 then go to nrm24 02326: .1..1.1.1. nrm24: a -> b[x] 02327: 111...111. a + b -> a[w] 02330: 1..111111. if a[s] >= 1 02331: 11...11111 -> 02307 then go to mpy28 02332: 111.1..11. a exchange c[m] 02333: .11...111. c -> a[w] 02334: ....1.111. 0 -> b[w] 02335: 11....11.. nrm27: 12 -> p 02336: .1111.1.11 -> 02172 go to nrm26 02172: ..1..1.1.. nrm26: if s2 = 0 02173: 1..1.1..11 -> 02224 then go to rtn21 02174: ....11.... return 02224: ..1..1.... -> 01225 rtn21: select rom 1 ; -> rtn11 01225: ...1.1.1.. rtn11: if s1 = 0 01226: 11.11.1.11 -> 01332 then go to rtn12 01332: .....1.... -> 00333 rtn12: select rom 0 ; -> l00333 00333: .1.111.1.1 -> 00135 l00333: jsb of13 00135: ....11.1.. of13: clear status 00136: .11...111. c -> a[w] 00137: 11....11.. of14: 12 -> p 00140: .1..1.1.1. a -> b[x] 00141: .11...1.1. c -> a[x] 00142: .11.111.1. if c[xs] = 0 00143: .11.1...11 -> 00150 then go to of15 00150: 111.1.1.1. of15: a exchange c[x] 00151: .1...1.1.. if s4 = 0 00152: .1....1.11 -> 00102 then go to l00102 00102: .1..1.111. l00102: a -> b[w] 00103: 1.11111.1. 0 -> a[xs] 00104: .1...1.11. shift left a[ms] 00105: 11.11.1.1. l00105: a - 1 -> a[x] 00106: 111.....11 -> 00340 if no carry go to l00340 00107: .11.111.1. if c[xs] = 0 00110: 111..11.11 -> 00346 then go to l00346 00346: 1.1111.11. l00346: 0 -> a[ms] 00347: 11111...1. a + 1 -> a[p] 00350: 11111...1. a + 1 -> a[p] 00351: ..1...11.. 2 -> p 00352: ....1111.. l00352: p + 1 -> p 00353: 11.11...1. a - 1 -> a[p] 00354: 111.111111 -> 00357 if no carry go to l00357 00355: ........1. if b[p] = 0 00356: 111.1.1.11 -> 00352 then go to l00352 00357: 11111...1. l00357: a + 1 -> a[p] 00360: 11..1.111. a exchange b[w] 00361: ....11.... return 00334: .111...1.. 1 -> s7 00335: 1111.111.1 -> 00367 fst2zx: jsb dsp1 00367: 1.1.1..1.. dsp1: 0 -> s10 00370: 11....1111 -> 00303 go to dsp7 00303: .11..1111. dsp7: c -> a[s] 00304: 1...1..1.. l00304: 0 -> s8 00305: 11..111111 -> 00317 go to dsp8 00317: ....1..1.. dsp8: 0 -> s0 00320: .....111.. dsp6: p - 1 -> p 00321: 11..1.11.. if p # 12 00322: 11.1....11 -> 00320 then go to dsp6 00320: .....111.. dsp6: p - 1 -> p 00321: 11..1.11.. if p # 12 00322: 11.1....11 -> 00320 then go to dsp6 00320: .....111.. dsp6: p - 1 -> p 00321: 11..1.11.. if p # 12 00322: 11.1....11 -> 00320 then go to dsp6 00320: .....111.. dsp6: p - 1 -> p 00321: 11..1.11.. if p # 12 00322: 11.1....11 -> 00320 then go to dsp6 00320: .....111.. dsp6: p - 1 -> p 00321: 11..1.11.. if p # 12 00322: 11.1....11 -> 00320 then go to dsp6 00320: .....111.. dsp6: p - 1 -> p 00321: 11..1.11.. if p # 12 00322: 11.1....11 -> 00320 then go to dsp6 00320: .....111.. dsp6: p - 1 -> p 00321: 11..1.11.. if p # 12 00322: 11.1....11 -> 00320 then go to dsp6 00323: 1...1.1... display off 00324: 1....1.1.. if s8 = 0 00325: 11..11..11 -> 00314 then go to dsp4 00314: ....1.1... dsp4: display toggle 00315: .....1.1.. dsp5: if s0 = 0 00316: 11...11111 -> 00307 then go to dsp3 00307: 1......1.. dsp3: 1 -> s8 00310: .1.1.1.1.. if s5 = 0 00311: 11..11.111 -> 00315 then go to dsp5 00315: .....1.1.. dsp5: if s0 = 0 00316: 11...11111 -> 00307 then go to dsp3 00307: 1......1.. dsp3: 1 -> s8 00310: .1.1.1.1.. if s5 = 0 00311: 11..11.111 -> 00315 then go to dsp5 00315: .....1.1.. dsp5: if s0 = 0 00316: 11...11111 -> 00307 then go to dsp3 00307: 1......1.. dsp3: 1 -> s8 00310: .1.1.1.1.. if s5 = 0 00311: 11..11.111 -> 00315 then go to dsp5 00315: .....1.1.. dsp5: if s0 = 0 00316: 11...11111 -> 00307 then go to dsp3 00307: 1......1.. dsp3: 1 -> s8