arctan(20) 00056: ....1.111. l00056: 0 -> b[w] A=20000000000000 B=00000000000000 C=02000000000001 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 00057: ..1..1.... -> 01060 select rom 1 ; -> l01060 A=20000000000000 B=00000000000000 C=02000000000001 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01060: .11...111. c -> a[w] A=02000000000001 B=00000000000000 C=02000000000001 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01061: ...1.1.1.. if s1 = 0 A=02000000000001 B=00000000000000 C=02000000000001 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01062: ..1..1.111 -> 01045 then go to sqt11 A=02000000000001 B=00000000000000 C=02000000000001 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01063: 1.1..1.1.. if s10 = 0 A=02000000000001 B=00000000000000 C=02000000000001 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01064: .11.11.111 -> 01155 then go to l01155 A=02000000000001 B=00000000000000 C=02000000000001 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01065: .1.1.1.1.. if s5 = 0 A=02000000000001 B=00000000000000 C=02000000000001 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01066: ...1.1.111 -> 01025 then go to atn11 A=02000000000001 B=00000000000000 C=02000000000001 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01025: 1.111.111. atn11: 0 -> a[w] A=00000000000000 B=00000000000000 C=02000000000001 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01026: 11111...1. a + 1 -> a[p] A=01000000000000 B=00000000000000 C=02000000000001 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01027: .1..1..11. a -> b[m] A=01000000000000 B=01000000000000 C=02000000000001 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01030: 111.1..11. a exchange c[m] A=02000000000000 B=01000000000000 C=01000000000001 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01031: .1.11.1.1. atn12: c - 1 -> c[x] A=02000000000000 B=01000000000000 C=01000000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01032: 1.1..1..1. shift right b[wp] A=02000000000000 B=00100000000000 C=01000000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01033: .11.111.1. if c[xs] = 0 A=02000000000000 B=00100000000000 C=01000000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01034: ...11..111 -> 01031 then go to atn12 A=02000000000000 B=00100000000000 C=01000000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01031: .1.11.1.1. atn12: c - 1 -> c[x] A=02000000000000 B=00100000000000 C=01000000000999 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01032: 1.1..1..1. shift right b[wp] A=02000000000000 B=00010000000000 C=01000000000999 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01033: .11.111.1. if c[xs] = 0 A=02000000000000 B=00010000000000 C=01000000000999 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01034: ...11..111 -> 01031 then go to atn12 A=02000000000000 B=00010000000000 C=01000000000999 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01035: 1.11.1..1. atn13: shift right a[wp] A=00200000000000 B=00010000000000 C=01000000000999 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01036: .1111.1.1. c + 1 -> c[x] A=00200000000000 B=00010000000000 C=01000000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01037: ...111.111 -> 01035 if no carry go to atn13 A=00200000000000 B=00010000000000 C=01000000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01040: 1.11..111. shift right a[w] A=00020000000000 B=00010000000000 C=01000000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01041: 1.1...111. shift right b[w] A=00020000000000 B=00001000000000 C=01000000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01042: .1..1.1... c -> stack A=00020000000000 B=00001000000000 C=01000000000000 D=01000000000000 M=00000000000000 P=c S=01.....78.ab 01043: 1...1.111. atn14: b exchange c[w] A=00020000000000 B=01000000000000 C=00001000000000 D=01000000000000 M=00000000000000 P=c S=01.....78.ab 01044: .1.....111 -> 01101 go to atn18 A=00020000000000 B=01000000000000 C=00001000000000 D=01000000000000 M=00000000000000 P=c S=01.....78.ab [BP1] Cordic Rotations 01101: .1..1.111. atn18: a -> b[w] A=00020000000000 B=00020000000000 C=00001000000000 D=01000000000000 M=00000000000000 P=c S=01.....78.ab 01102: 11.1.1..1. a - c -> a[wp] A=00019000000000 B=00020000000000 C=00001000000000 D=01000000000000 M=00000000000000 P=c S=01.....78.ab 01103: ..111.1111 -> 01073 if no carry go to atn16 A=00019000000000 B=00020000000000 C=00001000000000 D=01000000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=90019000000000 B=00020000000000 C=00001000000000 D=01000000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=90019000000000 B=00020000000000 C=00001000000000 D=01000000000000 M=00000000000000 P=c S=01.....78.ab 01075: .11111111. c + 1 -> c[s] A=90019000000000 B=00020000000000 C=10001000000000 D=01000000000000 M=00000000000000 P=c S=01.....78.ab 01076: 11..11..1. a exchange b[wp] A=90020000000000 B=00019000000000 C=10001000000000 D=01000000000000 M=00000000000000 P=c S=01.....78.ab 01077: .111.1..1. a + c -> c[wp] First rotation A=90020000000000 B=00019000000000 C=10021000000000 D=01000000000000 M=00000000000000 P=c S=01.....78.ab X=21 Y=19 01100: 11..1.111. a exchange b[w] A=00019000000000 B=90020000000000 C=10021000000000 D=01000000000000 M=00000000000000 P=c S=01.....78.ab 01101: .1..1.111. atn18: a -> b[w] A=00019000000000 B=00019000000000 C=10021000000000 D=01000000000000 M=00000000000000 P=c S=01.....78.ab [BP2] 1 rotation 10^-0 01102: 11.1.1..1. a - c -> a[wp] A=09998000000000 B=00019000000000 C=10021000000000 D=01000000000000 M=00000000000000 P=c S=01.....78.ab 01103: ..111.1111 -> 01073 if no carry go to atn16 A=09998000000000 B=00019000000000 C=10021000000000 D=01000000000000 M=00000000000000 P=c S=01.....78.ab 01104: .11.1.1... stack -> a A=01000000000000 B=00019000000000 C=10021000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01105: 1.11..111. shift right a[w] A=00100000000000 B=00019000000000 C=10021000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01106: 111.11..1. a exchange c[wp] A=00021000000000 B=00019000000000 C=10100000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01107: 11..1.111. a exchange b[w] A=00019000000000 B=00021000000000 C=10100000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01110: .1...1..1. shift left a[wp] A=00190000000000 B=00021000000000 C=10100000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01111: .1..1.1... c -> stack A=00190000000000 B=00021000000000 C=10100000000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01112: 111111111. a + 1 -> a[s] A=10190000000000 B=00021000000000 C=10100000000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01113: 111111111. a + 1 -> a[s] A=20190000000000 B=00021000000000 C=10100000000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab [BP2A] 01114: ..1...1111 -> 01043 if no carry go to atn14 A=20190000000000 B=00021000000000 C=10100000000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01043: 1...1.111. atn14: b exchange c[w] A=20190000000000 B=10100000000000 C=00021000000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01044: .1.....111 -> 01101 go to atn18 A=20190000000000 B=10100000000000 C=00021000000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01101: .1..1.111. atn18: a -> b[w] A=20190000000000 B=20190000000000 C=00021000000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 1 rotation 10^-1 [BP2B] 01102: 11.1.1..1. a - c -> a[wp] A=20169000000000 B=20190000000000 C=00021000000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01103: ..111.1111 -> 01073 if no carry go to atn16 A=20169000000000 B=20190000000000 C=00021000000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=10169000000000 B=20190000000000 C=00021000000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=10169000000000 B=20190000000000 C=00021000000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=10169000000000 B=20019000000000 C=00021000000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=00169000000000 B=20019000000000 C=00021000000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=00169000000000 B=20019000000000 C=00021000000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=00169000000000 B=20001900000000 C=00021000000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=90169000000000 B=20001900000000 C=00021000000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=90169000000000 B=20001900000000 C=00021000000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01075: .11111111. c + 1 -> c[s] A=90169000000000 B=20001900000000 C=10021000000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01076: 11..11..1. a exchange b[wp] A=90001900000000 B=20169000000000 C=10021000000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab [BP2C] 01077: .111.1..1. a + c -> c[wp] A=90001900000000 B=20169000000000 C=10022900000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab X=22.9 Y=16.9 01100: 11..1.111. a exchange b[w] A=20169000000000 B=90001900000000 C=10022900000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01101: .1..1.111. atn18: a -> b[w] A=20169000000000 B=20169000000000 C=10022900000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab second rotation 10^-1 01102: 11.1.1..1. a - c -> a[wp] A=20146100000000 B=20169000000000 C=10022900000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01103: ..111.1111 -> 01073 if no carry go to atn16 A=20146100000000 B=20169000000000 C=10022900000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=10146100000000 B=20169000000000 C=10022900000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=10146100000000 B=20169000000000 C=10022900000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=10146100000000 B=20016900000000 C=10022900000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=00146100000000 B=20016900000000 C=10022900000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=00146100000000 B=20016900000000 C=10022900000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=00146100000000 B=20001690000000 C=10022900000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=90146100000000 B=20001690000000 C=10022900000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=90146100000000 B=20001690000000 C=10022900000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01075: .11111111. c + 1 -> c[s] A=90146100000000 B=20001690000000 C=20022900000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01076: 11..11..1. a exchange b[wp] A=90001690000000 B=20146100000000 C=20022900000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01077: .111.1..1. a + c -> c[wp] A=90001690000000 B=20146100000000 C=20024590000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab X=24.59 Y=14.61 01100: 11..1.111. a exchange b[w] A=20146100000000 B=90001690000000 C=20024590000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01101: .1..1.111. atn18: a -> b[w] A=20146100000000 B=20146100000000 C=20024590000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab third rotation 10^-1 01102: 11.1.1..1. a - c -> a[wp] A=20121510000000 B=20146100000000 C=20024590000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01103: ..111.1111 -> 01073 if no carry go to atn16 A=20121510000000 B=20146100000000 C=20024590000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=10121510000000 B=20146100000000 C=20024590000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=10121510000000 B=20146100000000 C=20024590000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=10121510000000 B=20014610000000 C=20024590000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=00121510000000 B=20014610000000 C=20024590000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=00121510000000 B=20014610000000 C=20024590000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=00121510000000 B=20001461000000 C=20024590000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=90121510000000 B=20001461000000 C=20024590000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=90121510000000 B=20001461000000 C=20024590000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01075: .11111111. c + 1 -> c[s] A=90121510000000 B=20001461000000 C=30024590000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01076: 11..11..1. a exchange b[wp] A=90001461000000 B=20121510000000 C=30024590000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01077: .111.1..1. a + c -> c[wp] A=90001461000000 B=20121510000000 C=30026051000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab X=26.051 Y=12.151 01100: 11..1.111. a exchange b[w] A=20121510000000 B=90001461000000 C=30026051000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01101: .1..1.111. atn18: a -> b[w] A=20121510000000 B=20121510000000 C=30026051000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 4th rotation 10^-1 01102: 11.1.1..1. a - c -> a[wp] A=20095459000000 B=20121510000000 C=30026051000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01103: ..111.1111 -> 01073 if no carry go to atn16 A=20095459000000 B=20121510000000 C=30026051000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=10095459000000 B=20121510000000 C=30026051000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=10095459000000 B=20121510000000 C=30026051000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=10095459000000 B=20012151000000 C=30026051000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=00095459000000 B=20012151000000 C=30026051000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=00095459000000 B=20012151000000 C=30026051000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=00095459000000 B=20001215100000 C=30026051000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=90095459000000 B=20001215100000 C=30026051000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=90095459000000 B=20001215100000 C=30026051000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01075: .11111111. c + 1 -> c[s] A=90095459000000 B=20001215100000 C=40026051000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01076: 11..11..1. a exchange b[wp] A=90001215100000 B=20095459000000 C=40026051000000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01077: .111.1..1. a + c -> c[wp] A=90001215100000 B=20095459000000 C=40027266100000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab X=27.2661 Y=9.5459 01100: 11..1.111. a exchange b[w] A=20095459000000 B=90001215100000 C=40027266100000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01101: .1..1.111. atn18: a -> b[w] A=20095459000000 B=20095459000000 C=40027266100000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 5th rotation 10^-1 01102: 11.1.1..1. a - c -> a[wp] A=20068192900000 B=20095459000000 C=40027266100000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01103: ..111.1111 -> 01073 if no carry go to atn16 A=20068192900000 B=20095459000000 C=40027266100000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=10068192900000 B=20095459000000 C=40027266100000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=10068192900000 B=20095459000000 C=40027266100000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=10068192900000 B=20009545900000 C=40027266100000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=00068192900000 B=20009545900000 C=40027266100000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=00068192900000 B=20009545900000 C=40027266100000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=00068192900000 B=20000954590000 C=40027266100000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=90068192900000 B=20000954590000 C=40027266100000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=90068192900000 B=20000954590000 C=40027266100000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01075: .11111111. c + 1 -> c[s] A=90068192900000 B=20000954590000 C=50027266100000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01076: 11..11..1. a exchange b[wp] A=90000954590000 B=20068192900000 C=50027266100000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01077: .111.1..1. a + c -> c[wp] A=90000954590000 B=20068192900000 C=50028220690000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab X=28.22069 Y=6.81929 01100: 11..1.111. a exchange b[w] A=20068192900000 B=90000954590000 C=50028220690000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01101: .1..1.111. atn18: a -> b[w] A=20068192900000 B=20068192900000 C=50028220690000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 6th rotation 10^-1 01102: 11.1.1..1. a - c -> a[wp] A=20039972210000 B=20068192900000 C=50028220690000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01103: ..111.1111 -> 01073 if no carry go to atn16 A=20039972210000 B=20068192900000 C=50028220690000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=10039972210000 B=20068192900000 C=50028220690000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=10039972210000 B=20068192900000 C=50028220690000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=10039972210000 B=20006819290000 C=50028220690000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=00039972210000 B=20006819290000 C=50028220690000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=00039972210000 B=20006819290000 C=50028220690000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=00039972210000 B=20000681929000 C=50028220690000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=90039972210000 B=20000681929000 C=50028220690000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=90039972210000 B=20000681929000 C=50028220690000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01075: .11111111. c + 1 -> c[s] A=90039972210000 B=20000681929000 C=60028220690000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01076: 11..11..1. a exchange b[wp] A=90000681929000 B=20039972210000 C=60028220690000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01077: .111.1..1. a + c -> c[wp] A=90000681929000 B=20039972210000 C=60028902619000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab X=28.902619 Y=3.9972210 01100: 11..1.111. a exchange b[w] A=20039972210000 B=90000681929000 C=60028902619000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01101: .1..1.111. atn18: a -> b[w] A=20039972210000 B=20039972210000 C=60028902619000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 7th rotation 10^-1 01102: 11.1.1..1. a - c -> a[wp] A=20011069591000 B=20039972210000 C=60028902619000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01103: ..111.1111 -> 01073 if no carry go to atn16 A=20011069591000 B=20039972210000 C=60028902619000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=10011069591000 B=20039972210000 C=60028902619000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=10011069591000 B=20039972210000 C=60028902619000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=10011069591000 B=20003997221000 C=60028902619000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=00011069591000 B=20003997221000 C=60028902619000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=00011069591000 B=20003997221000 C=60028902619000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=00011069591000 B=20000399722100 C=60028902619000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=90011069591000 B=20000399722100 C=60028902619000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=90011069591000 B=20000399722100 C=60028902619000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01075: .11111111. c + 1 -> c[s] A=90011069591000 B=20000399722100 C=70028902619000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01076: 11..11..1. a exchange b[wp] A=90000399722100 B=20011069591000 C=70028902619000 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01077: .111.1..1. a + c -> c[wp] A=90000399722100 B=20011069591000 C=70029302341100 D=10100000000000 M=00000000000000 P=c S=01.....78.ab X=29.3023411 Y= 1.1069591 01100: 11..1.111. a exchange b[w] A=20011069591000 B=90000399722100 C=70029302341100 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01101: .1..1.111. atn18: a -> b[w] A=20011069591000 B=20011069591000 C=70029302341100 D=10100000000000 M=00000000000000 P=c S=01.....78.ab KO 01102: 11.1.1..1. a - c -> a[wp] A=29981767249900 B=20011069591000 C=70029302341100 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01103: ..111.1111 -> 01073 if no carry go to atn16 A=29981767249900 B=20011069591000 C=70029302341100 D=10100000000000 M=00000000000000 P=c S=01.....78.ab 01104: .11.1.1... stack -> a A=10100000000000 B=20011069591000 C=70029302341100 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01105: 1.11..111. shift right a[w] A=01010000000000 B=20011069591000 C=70029302341100 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01106: 111.11..1. a exchange c[wp] A=00029302341100 B=20011069591000 C=71010000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01107: 11..1.111. a exchange b[w] A=20011069591000 B=00029302341100 C=71010000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01110: .1...1..1. shift left a[wp] A=20110695910000 B=00029302341100 C=71010000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01111: .1..1.1... c -> stack A=20110695910000 B=00029302341100 C=71010000000000 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01112: 111111111. a + 1 -> a[s] A=30110695910000 B=00029302341100 C=71010000000000 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01113: 111111111. a + 1 -> a[s] A=40110695910000 B=00029302341100 C=71010000000000 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01114: ..1...1111 -> 01043 if no carry go to atn14 A=40110695910000 B=00029302341100 C=71010000000000 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01043: 1...1.111. atn14: b exchange c[w] A=40110695910000 B=71010000000000 C=00029302341100 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01044: .1.....111 -> 01101 go to atn18 A=40110695910000 B=71010000000000 C=00029302341100 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01101: .1..1.111. atn18: a -> b[w] A=40110695910000 B=40110695910000 C=00029302341100 D=71010000000000 M=00000000000000 P=c S=01.....78.ab first rotation 10^-2 (of 3) 01102: 11.1.1..1. a - c -> a[wp] A=40081393568900 B=40110695910000 C=00029302341100 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01103: ..111.1111 -> 01073 if no carry go to atn16 A=40081393568900 B=40110695910000 C=00029302341100 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=30081393568900 B=40110695910000 C=00029302341100 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=30081393568900 B=40110695910000 C=00029302341100 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=30081393568900 B=40011069591000 C=00029302341100 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=20081393568900 B=40011069591000 C=00029302341100 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=20081393568900 B=40011069591000 C=00029302341100 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=20081393568900 B=40001106959100 C=00029302341100 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=10081393568900 B=40001106959100 C=00029302341100 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=10081393568900 B=40001106959100 C=00029302341100 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=10081393568900 B=40000110695910 C=00029302341100 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=00081393568900 B=40000110695910 C=00029302341100 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=00081393568900 B=40000110695910 C=00029302341100 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=00081393568900 B=40000011069591 C=00029302341100 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=90081393568900 B=40000011069591 C=00029302341100 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=90081393568900 B=40000011069591 C=00029302341100 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01075: .11111111. c + 1 -> c[s] A=90081393568900 B=40000011069591 C=10029302341100 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01076: 11..11..1. a exchange b[wp] A=90000011069591 B=40081393568900 C=10029302341100 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01077: .111.1..1. a + c -> c[wp] A=90000011069591 B=40081393568900 C=10029313410691 D=71010000000000 M=00000000000000 P=c S=01.....78.ab X=29.313410691 Y=0.813935689 01100: 11..1.111. a exchange b[w] A=40081393568900 B=90000011069591 C=10029313410691 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01101: .1..1.111. atn18: a -> b[w] A=40081393568900 B=40081393568900 C=10029313410691 D=71010000000000 M=00000000000000 P=c S=01.....78.ab second rotation 10^-2 01102: 11.1.1..1. a - c -> a[wp] A=40052080158209 B=40081393568900 C=10029313410691 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01103: ..111.1111 -> 01073 if no carry go to atn16 A=40052080158209 B=40081393568900 C=10029313410691 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=30052080158209 B=40081393568900 C=10029313410691 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=30052080158209 B=40081393568900 C=10029313410691 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=30052080158209 B=40008139356890 C=10029313410691 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=20052080158209 B=40008139356890 C=10029313410691 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=20052080158209 B=40008139356890 C=10029313410691 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=20052080158209 B=40000813935689 C=10029313410691 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=10052080158209 B=40000813935689 C=10029313410691 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=10052080158209 B=40000813935689 C=10029313410691 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=10052080158209 B=40000081393568 C=10029313410691 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=00052080158209 B=40000081393568 C=10029313410691 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=00052080158209 B=40000081393568 C=10029313410691 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=00052080158209 B=40000008139356 C=10029313410691 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=90052080158209 B=40000008139356 C=10029313410691 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=90052080158209 B=40000008139356 C=10029313410691 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01075: .11111111. c + 1 -> c[s] A=90052080158209 B=40000008139356 C=20029313410691 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01076: 11..11..1. a exchange b[wp] A=90000008139356 B=40052080158209 C=20029313410691 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01077: .111.1..1. a + c -> c[wp] A=90000008139356 B=40052080158209 C=20029321550047 D=71010000000000 M=00000000000000 P=c S=01.....78.ab X=29.321550047 Y=0.52080158209 01100: 11..1.111. a exchange b[w] A=40052080158209 B=90000008139356 C=20029321550047 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01101: .1..1.111. atn18: a -> b[w] A=40052080158209 B=40052080158209 C=20029321550047 D=71010000000000 M=00000000000000 P=c S=01.....78.ab third rotation 10^-2 01102: 11.1.1..1. a - c -> a[wp] A=40022758608162 B=40052080158209 C=20029321550047 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01103: ..111.1111 -> 01073 if no carry go to atn16 A=40022758608162 B=40052080158209 C=20029321550047 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=30022758608162 B=40052080158209 C=20029321550047 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=30022758608162 B=40052080158209 C=20029321550047 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=30022758608162 B=40005208015820 C=20029321550047 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=20022758608162 B=40005208015820 C=20029321550047 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=20022758608162 B=40005208015820 C=20029321550047 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=20022758608162 B=40000520801582 C=20029321550047 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=10022758608162 B=40000520801582 C=20029321550047 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=10022758608162 B=40000520801582 C=20029321550047 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=10022758608162 B=40000052080158 C=20029321550047 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=00022758608162 B=40000052080158 C=20029321550047 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=00022758608162 B=40000052080158 C=20029321550047 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=00022758608162 B=40000005208015 C=20029321550047 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=90022758608162 B=40000005208015 C=20029321550047 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=90022758608162 B=40000005208015 C=20029321550047 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01075: .11111111. c + 1 -> c[s] A=90022758608162 B=40000005208015 C=30029321550047 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01076: 11..11..1. a exchange b[wp] A=90000005208015 B=40022758608162 C=30029321550047 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01077: .111.1..1. a + c -> c[wp] A=90000005208015 B=40022758608162 C=30029326758062 D=71010000000000 M=00000000000000 P=c S=01.....78.ab X=29.326758062 Y=0.22758608162 01100: 11..1.111. a exchange b[w] A=40022758608162 B=90000005208015 C=30029326758062 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01101: .1..1.111. atn18: a -> b[w] A=40022758608162 B=40022758608162 C=30029326758062 D=71010000000000 M=00000000000000 P=c S=01.....78.ab KO 01102: 11.1.1..1. a - c -> a[wp] A=49993431850100 B=40022758608162 C=30029326758062 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01103: ..111.1111 -> 01073 if no carry go to atn16 A=49993431850100 B=40022758608162 C=30029326758062 D=71010000000000 M=00000000000000 P=c S=01.....78.ab 01104: .11.1.1... stack -> a A=71010000000000 B=40022758608162 C=30029326758062 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01105: 1.11..111. shift right a[w] A=07101000000000 B=40022758608162 C=30029326758062 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01106: 111.11..1. a exchange c[wp] A=00029326758062 B=40022758608162 C=37101000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01107: 11..1.111. a exchange b[w] A=40022758608162 B=00029326758062 C=37101000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01110: .1...1..1. shift left a[wp] A=40227586081620 B=00029326758062 C=37101000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01111: .1..1.1... c -> stack A=40227586081620 B=00029326758062 C=37101000000000 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01112: 111111111. a + 1 -> a[s] A=50227586081620 B=00029326758062 C=37101000000000 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01113: 111111111. a + 1 -> a[s] A=60227586081620 B=00029326758062 C=37101000000000 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01114: ..1...1111 -> 01043 if no carry go to atn14 A=60227586081620 B=00029326758062 C=37101000000000 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01043: 1...1.111. atn14: b exchange c[w] A=60227586081620 B=37101000000000 C=00029326758062 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01044: .1.....111 -> 01101 go to atn18 A=60227586081620 B=37101000000000 C=00029326758062 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01101: .1..1.111. atn18: a -> b[w] A=60227586081620 B=60227586081620 C=00029326758062 D=37101000000000 M=00000000000000 P=c S=01.....78.ab first rotation 10^-3 (of 7) 01102: 11.1.1..1. a - c -> a[wp] A=60198259323558 B=60227586081620 C=00029326758062 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01103: ..111.1111 -> 01073 if no carry go to atn16 A=60198259323558 B=60227586081620 C=00029326758062 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=50198259323558 B=60227586081620 C=00029326758062 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=50198259323558 B=60227586081620 C=00029326758062 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=50198259323558 B=60022758608162 C=00029326758062 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=40198259323558 B=60022758608162 C=00029326758062 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=40198259323558 B=60022758608162 C=00029326758062 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=40198259323558 B=60002275860816 C=00029326758062 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=30198259323558 B=60002275860816 C=00029326758062 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=30198259323558 B=60002275860816 C=00029326758062 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=30198259323558 B=60000227586081 C=00029326758062 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=20198259323558 B=60000227586081 C=00029326758062 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=20198259323558 B=60000227586081 C=00029326758062 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=20198259323558 B=60000022758608 C=00029326758062 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=10198259323558 B=60000022758608 C=00029326758062 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=10198259323558 B=60000022758608 C=00029326758062 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=10198259323558 B=60000002275860 C=00029326758062 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=00198259323558 B=60000002275860 C=00029326758062 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=00198259323558 B=60000002275860 C=00029326758062 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=00198259323558 B=60000000227586 C=00029326758062 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=90198259323558 B=60000000227586 C=00029326758062 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=90198259323558 B=60000000227586 C=00029326758062 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01075: .11111111. c + 1 -> c[s] A=90198259323558 B=60000000227586 C=10029326758062 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01076: 11..11..1. a exchange b[wp] A=90000000227586 B=60198259323558 C=10029326758062 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01077: .111.1..1. a + c -> c[wp] A=90000000227586 B=60198259323558 C=10029326985648 D=37101000000000 M=00000000000000 P=c S=01.....78.ab X=29.326985648 Y=0.198259323558 01100: 11..1.111. a exchange b[w] A=60198259323558 B=90000000227586 C=10029326985648 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01101: .1..1.111. atn18: a -> b[w] A=60198259323558 B=60198259323558 C=10029326985648 D=37101000000000 M=00000000000000 P=c S=01.....78.ab second rotation 10^-3 01102: 11.1.1..1. a - c -> a[wp] A=60168932337910 B=60198259323558 C=10029326985648 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01103: ..111.1111 -> 01073 if no carry go to atn16 A=60168932337910 B=60198259323558 C=10029326985648 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=50168932337910 B=60198259323558 C=10029326985648 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=50168932337910 B=60198259323558 C=10029326985648 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=50168932337910 B=60019825932355 C=10029326985648 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=40168932337910 B=60019825932355 C=10029326985648 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=40168932337910 B=60019825932355 C=10029326985648 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=40168932337910 B=60001982593235 C=10029326985648 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=30168932337910 B=60001982593235 C=10029326985648 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=30168932337910 B=60001982593235 C=10029326985648 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=30168932337910 B=60000198259323 C=10029326985648 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=20168932337910 B=60000198259323 C=10029326985648 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=20168932337910 B=60000198259323 C=10029326985648 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=20168932337910 B=60000019825932 C=10029326985648 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=10168932337910 B=60000019825932 C=10029326985648 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=10168932337910 B=60000019825932 C=10029326985648 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=10168932337910 B=60000001982593 C=10029326985648 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=00168932337910 B=60000001982593 C=10029326985648 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=00168932337910 B=60000001982593 C=10029326985648 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=00168932337910 B=60000000198259 C=10029326985648 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=90168932337910 B=60000000198259 C=10029326985648 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=90168932337910 B=60000000198259 C=10029326985648 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01075: .11111111. c + 1 -> c[s] A=90168932337910 B=60000000198259 C=20029326985648 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01076: 11..11..1. a exchange b[wp] A=90000000198259 B=60168932337910 C=20029326985648 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01077: .111.1..1. a + c -> c[wp] A=90000000198259 B=60168932337910 C=20029327183907 D=37101000000000 M=00000000000000 P=c S=01.....78.ab X=29.327183907 Y=0.168932337910 01100: 11..1.111. a exchange b[w] A=60168932337910 B=90000000198259 C=20029327183907 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01101: .1..1.111. atn18: a -> b[w] A=60168932337910 B=60168932337910 C=20029327183907 D=37101000000000 M=00000000000000 P=c S=01.....78.ab third rotation 10^-3 01102: 11.1.1..1. a - c -> a[wp] A=60139605154003 B=60168932337910 C=20029327183907 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01103: ..111.1111 -> 01073 if no carry go to atn16 A=60139605154003 B=60168932337910 C=20029327183907 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=50139605154003 B=60168932337910 C=20029327183907 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=50139605154003 B=60168932337910 C=20029327183907 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=50139605154003 B=60016893233791 C=20029327183907 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=40139605154003 B=60016893233791 C=20029327183907 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=40139605154003 B=60016893233791 C=20029327183907 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=40139605154003 B=60001689323379 C=20029327183907 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=30139605154003 B=60001689323379 C=20029327183907 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=30139605154003 B=60001689323379 C=20029327183907 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=30139605154003 B=60000168932337 C=20029327183907 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=20139605154003 B=60000168932337 C=20029327183907 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=20139605154003 B=60000168932337 C=20029327183907 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=20139605154003 B=60000016893233 C=20029327183907 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=10139605154003 B=60000016893233 C=20029327183907 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=10139605154003 B=60000016893233 C=20029327183907 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=10139605154003 B=60000001689323 C=20029327183907 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=00139605154003 B=60000001689323 C=20029327183907 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=00139605154003 B=60000001689323 C=20029327183907 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=00139605154003 B=60000000168932 C=20029327183907 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=90139605154003 B=60000000168932 C=20029327183907 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=90139605154003 B=60000000168932 C=20029327183907 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01075: .11111111. c + 1 -> c[s] A=90139605154003 B=60000000168932 C=30029327183907 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01076: 11..11..1. a exchange b[wp] A=90000000168932 B=60139605154003 C=30029327183907 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01077: .111.1..1. a + c -> c[wp] A=90000000168932 B=60139605154003 C=30029327352839 D=37101000000000 M=00000000000000 P=c S=01.....78.ab X=29.327352839 Y=0.139605154003 01100: 11..1.111. a exchange b[w] A=60139605154003 B=90000000168932 C=30029327352839 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01101: .1..1.111. atn18: a -> b[w] A=60139605154003 B=60139605154003 C=30029327352839 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 4th rotation 10^-3 01102: 11.1.1..1. a - c -> a[wp] A=60110277801164 B=60139605154003 C=30029327352839 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01103: ..111.1111 -> 01073 if no carry go to atn16 A=60110277801164 B=60139605154003 C=30029327352839 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=50110277801164 B=60139605154003 C=30029327352839 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=50110277801164 B=60139605154003 C=30029327352839 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=50110277801164 B=60013960515400 C=30029327352839 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=40110277801164 B=60013960515400 C=30029327352839 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=40110277801164 B=60013960515400 C=30029327352839 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=40110277801164 B=60001396051540 C=30029327352839 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=30110277801164 B=60001396051540 C=30029327352839 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=30110277801164 B=60001396051540 C=30029327352839 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=30110277801164 B=60000139605154 C=30029327352839 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=20110277801164 B=60000139605154 C=30029327352839 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=20110277801164 B=60000139605154 C=30029327352839 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=20110277801164 B=60000013960515 C=30029327352839 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=10110277801164 B=60000013960515 C=30029327352839 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=10110277801164 B=60000013960515 C=30029327352839 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=10110277801164 B=60000001396051 C=30029327352839 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=00110277801164 B=60000001396051 C=30029327352839 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=00110277801164 B=60000001396051 C=30029327352839 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=00110277801164 B=60000000139605 C=30029327352839 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=90110277801164 B=60000000139605 C=30029327352839 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=90110277801164 B=60000000139605 C=30029327352839 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01075: .11111111. c + 1 -> c[s] A=90110277801164 B=60000000139605 C=40029327352839 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01076: 11..11..1. a exchange b[wp] A=90000000139605 B=60110277801164 C=40029327352839 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01077: .111.1..1. a + c -> c[wp] A=90000000139605 B=60110277801164 C=40029327492444 D=37101000000000 M=00000000000000 P=c S=01.....78.ab X=29.327492444 Y=0.110277801164 01100: 11..1.111. a exchange b[w] A=60110277801164 B=90000000139605 C=40029327492444 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01101: .1..1.111. atn18: a -> b[w] A=60110277801164 B=60110277801164 C=40029327492444 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 5th rotation 10^-3 01102: 11.1.1..1. a - c -> a[wp] A=60080950308720 B=60110277801164 C=40029327492444 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01103: ..111.1111 -> 01073 if no carry go to atn16 A=60080950308720 B=60110277801164 C=40029327492444 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=50080950308720 B=60110277801164 C=40029327492444 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=50080950308720 B=60110277801164 C=40029327492444 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=50080950308720 B=60011027780116 C=40029327492444 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=40080950308720 B=60011027780116 C=40029327492444 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=40080950308720 B=60011027780116 C=40029327492444 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=40080950308720 B=60001102778011 C=40029327492444 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=30080950308720 B=60001102778011 C=40029327492444 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=30080950308720 B=60001102778011 C=40029327492444 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=30080950308720 B=60000110277801 C=40029327492444 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=20080950308720 B=60000110277801 C=40029327492444 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=20080950308720 B=60000110277801 C=40029327492444 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=20080950308720 B=60000011027780 C=40029327492444 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=10080950308720 B=60000011027780 C=40029327492444 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=10080950308720 B=60000011027780 C=40029327492444 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=10080950308720 B=60000001102778 C=40029327492444 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=00080950308720 B=60000001102778 C=40029327492444 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=00080950308720 B=60000001102778 C=40029327492444 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=00080950308720 B=60000000110277 C=40029327492444 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=90080950308720 B=60000000110277 C=40029327492444 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=90080950308720 B=60000000110277 C=40029327492444 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01075: .11111111. c + 1 -> c[s] A=90080950308720 B=60000000110277 C=50029327492444 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01076: 11..11..1. a exchange b[wp] A=90000000110277 B=60080950308720 C=50029327492444 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01077: .111.1..1. a + c -> c[wp] A=90000000110277 B=60080950308720 C=50029327602721 D=37101000000000 M=00000000000000 P=c S=01.....78.ab X=29.327602721 Y=0.080950308720 01100: 11..1.111. a exchange b[w] A=60080950308720 B=90000000110277 C=50029327602721 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01101: .1..1.111. atn18: a -> b[w] A=60080950308720 B=60080950308720 C=50029327602721 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 6th rotation 10^-3 01102: 11.1.1..1. a - c -> a[wp] A=60051622705999 B=60080950308720 C=50029327602721 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01103: ..111.1111 -> 01073 if no carry go to atn16 A=60051622705999 B=60080950308720 C=50029327602721 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=50051622705999 B=60080950308720 C=50029327602721 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=50051622705999 B=60080950308720 C=50029327602721 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=50051622705999 B=60008095030872 C=50029327602721 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=40051622705999 B=60008095030872 C=50029327602721 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=40051622705999 B=60008095030872 C=50029327602721 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=40051622705999 B=60000809503087 C=50029327602721 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=30051622705999 B=60000809503087 C=50029327602721 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=30051622705999 B=60000809503087 C=50029327602721 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=30051622705999 B=60000080950308 C=50029327602721 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=20051622705999 B=60000080950308 C=50029327602721 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=20051622705999 B=60000080950308 C=50029327602721 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=20051622705999 B=60000008095030 C=50029327602721 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=10051622705999 B=60000008095030 C=50029327602721 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=10051622705999 B=60000008095030 C=50029327602721 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=10051622705999 B=60000000809503 C=50029327602721 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=00051622705999 B=60000000809503 C=50029327602721 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=00051622705999 B=60000000809503 C=50029327602721 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=00051622705999 B=60000000080950 C=50029327602721 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=90051622705999 B=60000000080950 C=50029327602721 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=90051622705999 B=60000000080950 C=50029327602721 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01075: .11111111. c + 1 -> c[s] A=90051622705999 B=60000000080950 C=60029327602721 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01076: 11..11..1. a exchange b[wp] A=90000000080950 B=60051622705999 C=60029327602721 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01077: .111.1..1. a + c -> c[wp] A=90000000080950 B=60051622705999 C=60029327683671 D=37101000000000 M=00000000000000 P=c S=01.....78.ab X=29.327683671 Y=0.051622705999 01100: 11..1.111. a exchange b[w] A=60051622705999 B=90000000080950 C=60029327683671 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01101: .1..1.111. atn18: a -> b[w] A=60051622705999 B=60051622705999 C=60029327683671 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 7th rotation 10^-3 01102: 11.1.1..1. a - c -> a[wp] A=60022295022328 B=60051622705999 C=60029327683671 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01103: ..111.1111 -> 01073 if no carry go to atn16 A=60022295022328 B=60051622705999 C=60029327683671 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=50022295022328 B=60051622705999 C=60029327683671 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=50022295022328 B=60051622705999 C=60029327683671 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=50022295022328 B=60005162270599 C=60029327683671 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=40022295022328 B=60005162270599 C=60029327683671 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=40022295022328 B=60005162270599 C=60029327683671 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=40022295022328 B=60000516227059 C=60029327683671 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=30022295022328 B=60000516227059 C=60029327683671 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=30022295022328 B=60000516227059 C=60029327683671 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=30022295022328 B=60000051622705 C=60029327683671 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=20022295022328 B=60000051622705 C=60029327683671 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=20022295022328 B=60000051622705 C=60029327683671 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=20022295022328 B=60000005162270 C=60029327683671 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=10022295022328 B=60000005162270 C=60029327683671 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=10022295022328 B=60000005162270 C=60029327683671 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=10022295022328 B=60000000516227 C=60029327683671 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=00022295022328 B=60000000516227 C=60029327683671 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=00022295022328 B=60000000516227 C=60029327683671 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=00022295022328 B=60000000051622 C=60029327683671 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=90022295022328 B=60000000051622 C=60029327683671 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=90022295022328 B=60000000051622 C=60029327683671 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01075: .11111111. c + 1 -> c[s] A=90022295022328 B=60000000051622 C=70029327683671 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01076: 11..11..1. a exchange b[wp] A=90000000051622 B=60022295022328 C=70029327683671 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01077: .111.1..1. a + c -> c[wp] A=90000000051622 B=60022295022328 C=70029327735293 D=37101000000000 M=00000000000000 P=c S=01.....78.ab X=29.327735293 Y=0.022295022328 01100: 11..1.111. a exchange b[w] A=60022295022328 B=90000000051622 C=70029327735293 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01101: .1..1.111. atn18: a -> b[w] A=60022295022328 B=60022295022328 C=70029327735293 D=37101000000000 M=00000000000000 P=c S=01.....78.ab KO 01102: 11.1.1..1. a - c -> a[wp] A=69992967287035 B=60022295022328 C=70029327735293 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01103: ..111.1111 -> 01073 if no carry go to atn16 A=69992967287035 B=60022295022328 C=70029327735293 D=37101000000000 M=00000000000000 P=c S=01.....78.ab 01104: .11.1.1... stack -> a A=37101000000000 B=60022295022328 C=70029327735293 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01105: 1.11..111. shift right a[w] A=03710100000000 B=60022295022328 C=70029327735293 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01106: 111.11..1. a exchange c[wp] A=00029327735293 B=60022295022328 C=73710100000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01107: 11..1.111. a exchange b[w] A=60022295022328 B=00029327735293 C=73710100000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01110: .1...1..1. shift left a[wp] A=60222950223280 B=00029327735293 C=73710100000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01111: .1..1.1... c -> stack A=60222950223280 B=00029327735293 C=73710100000000 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01112: 111111111. a + 1 -> a[s] A=70222950223280 B=00029327735293 C=73710100000000 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01113: 111111111. a + 1 -> a[s] A=80222950223280 B=00029327735293 C=73710100000000 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01114: ..1...1111 -> 01043 if no carry go to atn14 A=80222950223280 B=00029327735293 C=73710100000000 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01043: 1...1.111. atn14: b exchange c[w] A=80222950223280 B=73710100000000 C=00029327735293 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01044: .1.....111 -> 01101 go to atn18 A=80222950223280 B=73710100000000 C=00029327735293 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01101: .1..1.111. atn18: a -> b[w] A=80222950223280 B=80222950223280 C=00029327735293 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 1rst rotation 10^-4 (of 7) 01102: 11.1.1..1. a - c -> a[wp] A=80193622487987 B=80222950223280 C=00029327735293 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01103: ..111.1111 -> 01073 if no carry go to atn16 A=80193622487987 B=80222950223280 C=00029327735293 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=70193622487987 B=80222950223280 C=00029327735293 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=70193622487987 B=80222950223280 C=00029327735293 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=70193622487987 B=80022295022328 C=00029327735293 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=60193622487987 B=80022295022328 C=00029327735293 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=60193622487987 B=80022295022328 C=00029327735293 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=60193622487987 B=80002229502232 C=00029327735293 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=50193622487987 B=80002229502232 C=00029327735293 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=50193622487987 B=80002229502232 C=00029327735293 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=50193622487987 B=80000222950223 C=00029327735293 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=40193622487987 B=80000222950223 C=00029327735293 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=40193622487987 B=80000222950223 C=00029327735293 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=40193622487987 B=80000022295022 C=00029327735293 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=30193622487987 B=80000022295022 C=00029327735293 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=30193622487987 B=80000022295022 C=00029327735293 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=30193622487987 B=80000002229502 C=00029327735293 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=20193622487987 B=80000002229502 C=00029327735293 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=20193622487987 B=80000002229502 C=00029327735293 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=20193622487987 B=80000000222950 C=00029327735293 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=10193622487987 B=80000000222950 C=00029327735293 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=10193622487987 B=80000000222950 C=00029327735293 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=10193622487987 B=80000000022295 C=00029327735293 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=00193622487987 B=80000000022295 C=00029327735293 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=00193622487987 B=80000000022295 C=00029327735293 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=00193622487987 B=80000000002229 C=00029327735293 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=90193622487987 B=80000000002229 C=00029327735293 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=90193622487987 B=80000000002229 C=00029327735293 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01075: .11111111. c + 1 -> c[s] A=90193622487987 B=80000000002229 C=10029327735293 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01076: 11..11..1. a exchange b[wp] A=90000000002229 B=80193622487987 C=10029327735293 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01077: .111.1..1. a + c -> c[wp] A=90000000002229 B=80193622487987 C=10029327737522 D=73710100000000 M=00000000000000 P=c S=01.....78.ab X=29.327737522 Y=0.0193622487987 01100: 11..1.111. a exchange b[w] A=80193622487987 B=90000000002229 C=10029327737522 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01101: .1..1.111. atn18: a -> b[w] A=80193622487987 B=80193622487987 C=10029327737522 D=73710100000000 M=00000000000000 P=c S=01.....78.ab second rotation 10^-4 01102: 11.1.1..1. a - c -> a[wp] A=80164294750465 B=80193622487987 C=10029327737522 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01103: ..111.1111 -> 01073 if no carry go to atn16 A=80164294750465 B=80193622487987 C=10029327737522 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=70164294750465 B=80193622487987 C=10029327737522 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=70164294750465 B=80193622487987 C=10029327737522 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=70164294750465 B=80019362248798 C=10029327737522 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=60164294750465 B=80019362248798 C=10029327737522 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=60164294750465 B=80019362248798 C=10029327737522 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=60164294750465 B=80001936224879 C=10029327737522 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=50164294750465 B=80001936224879 C=10029327737522 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=50164294750465 B=80001936224879 C=10029327737522 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=50164294750465 B=80000193622487 C=10029327737522 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=40164294750465 B=80000193622487 C=10029327737522 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=40164294750465 B=80000193622487 C=10029327737522 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=40164294750465 B=80000019362248 C=10029327737522 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=30164294750465 B=80000019362248 C=10029327737522 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=30164294750465 B=80000019362248 C=10029327737522 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=30164294750465 B=80000001936224 C=10029327737522 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=20164294750465 B=80000001936224 C=10029327737522 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=20164294750465 B=80000001936224 C=10029327737522 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=20164294750465 B=80000000193622 C=10029327737522 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=10164294750465 B=80000000193622 C=10029327737522 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=10164294750465 B=80000000193622 C=10029327737522 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=10164294750465 B=80000000019362 C=10029327737522 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=00164294750465 B=80000000019362 C=10029327737522 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=00164294750465 B=80000000019362 C=10029327737522 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=00164294750465 B=80000000001936 C=10029327737522 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=90164294750465 B=80000000001936 C=10029327737522 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=90164294750465 B=80000000001936 C=10029327737522 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01075: .11111111. c + 1 -> c[s] A=90164294750465 B=80000000001936 C=20029327737522 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01076: 11..11..1. a exchange b[wp] A=90000000001936 B=80164294750465 C=20029327737522 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01077: .111.1..1. a + c -> c[wp] A=90000000001936 B=80164294750465 C=20029327739458 D=73710100000000 M=00000000000000 P=c S=01.....78.ab X=29.327739458 Y=0.0164294750465 01100: 11..1.111. a exchange b[w] A=80164294750465 B=90000000001936 C=20029327739458 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01101: .1..1.111. atn18: a -> b[w] A=80164294750465 B=80164294750465 C=20029327739458 D=73710100000000 M=00000000000000 P=c S=01.....78.ab third rotation 10^-4 01102: 11.1.1..1. a - c -> a[wp] A=80134967011007 B=80164294750465 C=20029327739458 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01103: ..111.1111 -> 01073 if no carry go to atn16 A=80134967011007 B=80164294750465 C=20029327739458 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=70134967011007 B=80164294750465 C=20029327739458 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=70134967011007 B=80164294750465 C=20029327739458 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=70134967011007 B=80016429475046 C=20029327739458 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=60134967011007 B=80016429475046 C=20029327739458 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=60134967011007 B=80016429475046 C=20029327739458 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=60134967011007 B=80001642947504 C=20029327739458 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=50134967011007 B=80001642947504 C=20029327739458 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=50134967011007 B=80001642947504 C=20029327739458 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=50134967011007 B=80000164294750 C=20029327739458 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=40134967011007 B=80000164294750 C=20029327739458 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=40134967011007 B=80000164294750 C=20029327739458 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=40134967011007 B=80000016429475 C=20029327739458 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=30134967011007 B=80000016429475 C=20029327739458 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=30134967011007 B=80000016429475 C=20029327739458 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=30134967011007 B=80000001642947 C=20029327739458 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=20134967011007 B=80000001642947 C=20029327739458 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=20134967011007 B=80000001642947 C=20029327739458 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=20134967011007 B=80000000164294 C=20029327739458 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=10134967011007 B=80000000164294 C=20029327739458 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=10134967011007 B=80000000164294 C=20029327739458 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=10134967011007 B=80000000016429 C=20029327739458 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=00134967011007 B=80000000016429 C=20029327739458 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=00134967011007 B=80000000016429 C=20029327739458 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=00134967011007 B=80000000001642 C=20029327739458 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=90134967011007 B=80000000001642 C=20029327739458 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=90134967011007 B=80000000001642 C=20029327739458 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01075: .11111111. c + 1 -> c[s] A=90134967011007 B=80000000001642 C=30029327739458 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01076: 11..11..1. a exchange b[wp] A=90000000001642 B=80134967011007 C=30029327739458 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01077: .111.1..1. a + c -> c[wp] A=90000000001642 B=80134967011007 C=30029327741100 D=73710100000000 M=00000000000000 P=c S=01.....78.ab X= 29.327741100 Y=0.0134967011007 01100: 11..1.111. a exchange b[w] A=80134967011007 B=90000000001642 C=30029327741100 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01101: .1..1.111. atn18: a -> b[w] A=80134967011007 B=80134967011007 C=30029327741100 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 4th rotation 10^-4 01102: 11.1.1..1. a - c -> a[wp] A=80105639269907 B=80134967011007 C=30029327741100 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01103: ..111.1111 -> 01073 if no carry go to atn16 A=80105639269907 B=80134967011007 C=30029327741100 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=70105639269907 B=80134967011007 C=30029327741100 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=70105639269907 B=80134967011007 C=30029327741100 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=70105639269907 B=80013496701100 C=30029327741100 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=60105639269907 B=80013496701100 C=30029327741100 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=60105639269907 B=80013496701100 C=30029327741100 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=60105639269907 B=80001349670110 C=30029327741100 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=50105639269907 B=80001349670110 C=30029327741100 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=50105639269907 B=80001349670110 C=30029327741100 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=50105639269907 B=80000134967011 C=30029327741100 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=40105639269907 B=80000134967011 C=30029327741100 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=40105639269907 B=80000134967011 C=30029327741100 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=40105639269907 B=80000013496701 C=30029327741100 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=30105639269907 B=80000013496701 C=30029327741100 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=30105639269907 B=80000013496701 C=30029327741100 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=30105639269907 B=80000001349670 C=30029327741100 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=20105639269907 B=80000001349670 C=30029327741100 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=20105639269907 B=80000001349670 C=30029327741100 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=20105639269907 B=80000000134967 C=30029327741100 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=10105639269907 B=80000000134967 C=30029327741100 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=10105639269907 B=80000000134967 C=30029327741100 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=10105639269907 B=80000000013496 C=30029327741100 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=00105639269907 B=80000000013496 C=30029327741100 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=00105639269907 B=80000000013496 C=30029327741100 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=00105639269907 B=80000000001349 C=30029327741100 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=90105639269907 B=80000000001349 C=30029327741100 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=90105639269907 B=80000000001349 C=30029327741100 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01075: .11111111. c + 1 -> c[s] A=90105639269907 B=80000000001349 C=40029327741100 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01076: 11..11..1. a exchange b[wp] A=90000000001349 B=80105639269907 C=40029327741100 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01077: .111.1..1. a + c -> c[wp] A=90000000001349 B=80105639269907 C=40029327742449 D=73710100000000 M=00000000000000 P=c S=01.....78.ab X=29.327742449 Y=0.0105639269907 01100: 11..1.111. a exchange b[w] A=80105639269907 B=90000000001349 C=40029327742449 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01101: .1..1.111. atn18: a -> b[w] A=80105639269907 B=80105639269907 C=40029327742449 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 5th rotation 10^-4 01102: 11.1.1..1. a - c -> a[wp] A=80076311527458 B=80105639269907 C=40029327742449 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01103: ..111.1111 -> 01073 if no carry go to atn16 A=80076311527458 B=80105639269907 C=40029327742449 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=70076311527458 B=80105639269907 C=40029327742449 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=70076311527458 B=80105639269907 C=40029327742449 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=70076311527458 B=80010563926990 C=40029327742449 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=60076311527458 B=80010563926990 C=40029327742449 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=60076311527458 B=80010563926990 C=40029327742449 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=60076311527458 B=80001056392699 C=40029327742449 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=50076311527458 B=80001056392699 C=40029327742449 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=50076311527458 B=80001056392699 C=40029327742449 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=50076311527458 B=80000105639269 C=40029327742449 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=40076311527458 B=80000105639269 C=40029327742449 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=40076311527458 B=80000105639269 C=40029327742449 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=40076311527458 B=80000010563926 C=40029327742449 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=30076311527458 B=80000010563926 C=40029327742449 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=30076311527458 B=80000010563926 C=40029327742449 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=30076311527458 B=80000001056392 C=40029327742449 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=20076311527458 B=80000001056392 C=40029327742449 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=20076311527458 B=80000001056392 C=40029327742449 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=20076311527458 B=80000000105639 C=40029327742449 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=10076311527458 B=80000000105639 C=40029327742449 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=10076311527458 B=80000000105639 C=40029327742449 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=10076311527458 B=80000000010563 C=40029327742449 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=00076311527458 B=80000000010563 C=40029327742449 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=00076311527458 B=80000000010563 C=40029327742449 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=00076311527458 B=80000000001056 C=40029327742449 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=90076311527458 B=80000000001056 C=40029327742449 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=90076311527458 B=80000000001056 C=40029327742449 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01075: .11111111. c + 1 -> c[s] A=90076311527458 B=80000000001056 C=50029327742449 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01076: 11..11..1. a exchange b[wp] A=90000000001056 B=80076311527458 C=50029327742449 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01077: .111.1..1. a + c -> c[wp] A=90000000001056 B=80076311527458 C=50029327743505 D=73710100000000 M=00000000000000 P=c S=01.....78.ab X=29.327743505 Y=0.0076311527458 01100: 11..1.111. a exchange b[w] A=80076311527458 B=90000000001056 C=50029327743505 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01101: .1..1.111. atn18: a -> b[w] A=80076311527458 B=80076311527458 C=50029327743505 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 6th rotation 10^-4 01102: 11.1.1..1. a - c -> a[wp] A=80046983783953 B=80076311527458 C=50029327743505 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01103: ..111.1111 -> 01073 if no carry go to atn16 A=80046983783953 B=80076311527458 C=50029327743505 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=70046983783953 B=80076311527458 C=50029327743505 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=70046983783953 B=80076311527458 C=50029327743505 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=70046983783953 B=80007631152745 C=50029327743505 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=60046983783953 B=80007631152745 C=50029327743505 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=60046983783953 B=80007631152745 C=50029327743505 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=60046983783953 B=80000763115274 C=50029327743505 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=50046983783953 B=80000763115274 C=50029327743505 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=50046983783953 B=80000763115274 C=50029327743505 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=50046983783953 B=80000076311527 C=50029327743505 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=40046983783953 B=80000076311527 C=50029327743505 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=40046983783953 B=80000076311527 C=50029327743505 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=40046983783953 B=80000007631152 C=50029327743505 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=30046983783953 B=80000007631152 C=50029327743505 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=30046983783953 B=80000007631152 C=50029327743505 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=30046983783953 B=80000000763115 C=50029327743505 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=20046983783953 B=80000000763115 C=50029327743505 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=20046983783953 B=80000000763115 C=50029327743505 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=20046983783953 B=80000000076311 C=50029327743505 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=10046983783953 B=80000000076311 C=50029327743505 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=10046983783953 B=80000000076311 C=50029327743505 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=10046983783953 B=80000000007631 C=50029327743505 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=00046983783953 B=80000000007631 C=50029327743505 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=00046983783953 B=80000000007631 C=50029327743505 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=00046983783953 B=80000000000763 C=50029327743505 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=90046983783953 B=80000000000763 C=50029327743505 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=90046983783953 B=80000000000763 C=50029327743505 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01075: .11111111. c + 1 -> c[s] A=90046983783953 B=80000000000763 C=60029327743505 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01076: 11..11..1. a exchange b[wp] A=90000000000763 B=80046983783953 C=60029327743505 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01077: .111.1..1. a + c -> c[wp] A=90000000000763 B=80046983783953 C=60029327744268 D=73710100000000 M=00000000000000 P=c S=01.....78.ab X=29.327744268 Y=0.0046983783953 01100: 11..1.111. a exchange b[w] A=80046983783953 B=90000000000763 C=60029327744268 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01101: .1..1.111. atn18: a -> b[w] A=80046983783953 B=80046983783953 C=60029327744268 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 7th rotation 10^-4 01102: 11.1.1..1. a - c -> a[wp] A=80017656039685 B=80046983783953 C=60029327744268 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01103: ..111.1111 -> 01073 if no carry go to atn16 A=80017656039685 B=80046983783953 C=60029327744268 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=70017656039685 B=80046983783953 C=60029327744268 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=70017656039685 B=80046983783953 C=60029327744268 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=70017656039685 B=80004698378395 C=60029327744268 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=60017656039685 B=80004698378395 C=60029327744268 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=60017656039685 B=80004698378395 C=60029327744268 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=60017656039685 B=80000469837839 C=60029327744268 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=50017656039685 B=80000469837839 C=60029327744268 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=50017656039685 B=80000469837839 C=60029327744268 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=50017656039685 B=80000046983783 C=60029327744268 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=40017656039685 B=80000046983783 C=60029327744268 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=40017656039685 B=80000046983783 C=60029327744268 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=40017656039685 B=80000004698378 C=60029327744268 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=30017656039685 B=80000004698378 C=60029327744268 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=30017656039685 B=80000004698378 C=60029327744268 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=30017656039685 B=80000000469837 C=60029327744268 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=20017656039685 B=80000000469837 C=60029327744268 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=20017656039685 B=80000000469837 C=60029327744268 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=20017656039685 B=80000000046983 C=60029327744268 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=10017656039685 B=80000000046983 C=60029327744268 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=10017656039685 B=80000000046983 C=60029327744268 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=10017656039685 B=80000000004698 C=60029327744268 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=00017656039685 B=80000000004698 C=60029327744268 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=00017656039685 B=80000000004698 C=60029327744268 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=00017656039685 B=80000000000469 C=60029327744268 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=90017656039685 B=80000000000469 C=60029327744268 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=90017656039685 B=80000000000469 C=60029327744268 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01075: .11111111. c + 1 -> c[s] A=90017656039685 B=80000000000469 C=70029327744268 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01076: 11..11..1. a exchange b[wp] A=90000000000469 B=80017656039685 C=70029327744268 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01077: .111.1..1. a + c -> c[wp] A=90000000000469 B=80017656039685 C=70029327744737 D=73710100000000 M=00000000000000 P=c S=01.....78.ab X=29.327744737 Y=0.0017656039685 01100: 11..1.111. a exchange b[w] A=80017656039685 B=90000000000469 C=70029327744737 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01101: .1..1.111. atn18: a -> b[w] A=80017656039685 B=80017656039685 C=70029327744737 D=73710100000000 M=00000000000000 P=c S=01.....78.ab KO 01102: 11.1.1..1. a - c -> a[wp] A=89988328294948 B=80017656039685 C=70029327744737 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01103: ..111.1111 -> 01073 if no carry go to atn16 A=89988328294948 B=80017656039685 C=70029327744737 D=73710100000000 M=00000000000000 P=c S=01.....78.ab 01104: .11.1.1... stack -> a A=73710100000000 B=80017656039685 C=70029327744737 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01105: 1.11..111. shift right a[w] A=07371010000000 B=80017656039685 C=70029327744737 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01106: 111.11..1. a exchange c[wp] A=00029327744737 B=80017656039685 C=77371010000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01107: 11..1.111. a exchange b[w] A=80017656039685 B=00029327744737 C=77371010000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01110: .1...1..1. shift left a[wp] A=80176560396850 B=00029327744737 C=77371010000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01111: .1..1.1... c -> stack A=80176560396850 B=00029327744737 C=77371010000000 D=77371010000000 M=00000000000000 P=c S=01.....78.ab 01112: 111111111. a + 1 -> a[s] A=90176560396850 B=00029327744737 C=77371010000000 D=77371010000000 M=00000000000000 P=c S=01.....78.ab 01113: 111111111. a + 1 -> a[s] A=00176560396850 B=00029327744737 C=77371010000000 D=77371010000000 M=00000000000000 P=c S=01.....78.ab 01114: ..1...1111 -> 01043 if no carry go to atn14 A=00176560396850 B=00029327744737 C=77371010000000 D=77371010000000 M=00000000000000 P=c S=01.....78.ab [BP3] pq are 77371 X=29.327744737 Y=0.0017656039685 01115: ..11..111. 0 -> c[w] A=00176560396850 B=00029327744737 C=00000000000000 D=77371010000000 M=00000000000000 P=c S=01.....78.ab 01116: ....1.1.1. 0 -> b[x] A=00176560396850 B=00029327744000 C=00000000000000 D=77371010000000 M=00000000000000 P=c S=01.....78.ab 01117: 1.11.1.11. shift right a[ms] A=00017656039850 B=00029327744000 C=00000000000000 D=77371010000000 M=00000000000000 P=c S=01.....78.ab compute Y/X (A/B) will be Y/X = 0.0000602025134 01120: 1.11..1..1 -> 01262 jsb div14 A=00017656039850 B=00029327744000 C=00000000000000 D=77371010000000 M=00000000000000 P=c S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00017656039850 B=00029327744000 C=01000000000000 D=77371010000000 M=00000000000000 P=c S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=99988328295850 B=00029327744000 C=01000000000000 D=77371010000000 M=00000000000000 P=c S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=99988328295850 B=00029327744000 C=01000000000000 D=77371010000000 M=00000000000000 P=c S=01.....78.ab 01265: 111..1.11. a + b -> a[ms] A=00017656039850 B=00029327744000 C=01000000000000 D=77371010000000 M=00000000000000 P=c S=01.....78.ab 01266: .1...1.11. shift left a[ms] A=00176560390850 B=00029327744000 C=01000000000000 D=77371010000000 M=00000000000000 P=c S=01.....78.ab 01267: .....111.. p - 1 -> p A=00176560390850 B=00029327744000 C=01000000000000 D=77371010000000 M=00000000000000 P=b S=01.....78.ab 01270: ....1.11.. if p # 0 A=00176560390850 B=00029327744000 C=01000000000000 D=77371010000000 M=00000000000000 P=b S=01.....78.ab 01271: 1.11..1111 -> 01263 then go to div15 A=00176560390850 B=00029327744000 C=01000000000000 D=77371010000000 M=00000000000000 P=b S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00147232646850 B=00029327744000 C=01000000000000 D=77371010000000 M=00000000000000 P=b S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00147232646850 B=00029327744000 C=01000000000000 D=77371010000000 M=00000000000000 P=b S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00147232646850 B=00029327744000 C=01100000000000 D=77371010000000 M=00000000000000 P=b S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00117904902850 B=00029327744000 C=01100000000000 D=77371010000000 M=00000000000000 P=b S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00117904902850 B=00029327744000 C=01100000000000 D=77371010000000 M=00000000000000 P=b S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00117904902850 B=00029327744000 C=01200000000000 D=77371010000000 M=00000000000000 P=b S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00088577158850 B=00029327744000 C=01200000000000 D=77371010000000 M=00000000000000 P=b S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00088577158850 B=00029327744000 C=01200000000000 D=77371010000000 M=00000000000000 P=b S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00088577158850 B=00029327744000 C=01300000000000 D=77371010000000 M=00000000000000 P=b S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00059249414850 B=00029327744000 C=01300000000000 D=77371010000000 M=00000000000000 P=b S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00059249414850 B=00029327744000 C=01300000000000 D=77371010000000 M=00000000000000 P=b S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00059249414850 B=00029327744000 C=01400000000000 D=77371010000000 M=00000000000000 P=b S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00029921670850 B=00029327744000 C=01400000000000 D=77371010000000 M=00000000000000 P=b S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00029921670850 B=00029327744000 C=01400000000000 D=77371010000000 M=00000000000000 P=b S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00029921670850 B=00029327744000 C=01500000000000 D=77371010000000 M=00000000000000 P=b S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00000593926850 B=00029327744000 C=01500000000000 D=77371010000000 M=00000000000000 P=b S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00000593926850 B=00029327744000 C=01500000000000 D=77371010000000 M=00000000000000 P=b S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00000593926850 B=00029327744000 C=01600000000000 D=77371010000000 M=00000000000000 P=b S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=99971266182850 B=00029327744000 C=01600000000000 D=77371010000000 M=00000000000000 P=b S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=99971266182850 B=00029327744000 C=01600000000000 D=77371010000000 M=00000000000000 P=b S=01.....78.ab 01265: 111..1.11. a + b -> a[ms] A=00000593926850 B=00029327744000 C=01600000000000 D=77371010000000 M=00000000000000 P=b S=01.....78.ab 01266: .1...1.11. shift left a[ms] A=00005939260850 B=00029327744000 C=01600000000000 D=77371010000000 M=00000000000000 P=b S=01.....78.ab 01267: .....111.. p - 1 -> p A=00005939260850 B=00029327744000 C=01600000000000 D=77371010000000 M=00000000000000 P=a S=01.....78.ab 01270: ....1.11.. if p # 0 A=00005939260850 B=00029327744000 C=01600000000000 D=77371010000000 M=00000000000000 P=a S=01.....78.ab 01271: 1.11..1111 -> 01263 then go to div15 A=00005939260850 B=00029327744000 C=01600000000000 D=77371010000000 M=00000000000000 P=a S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=99976611516850 B=00029327744000 C=01600000000000 D=77371010000000 M=00000000000000 P=a S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=99976611516850 B=00029327744000 C=01600000000000 D=77371010000000 M=00000000000000 P=a S=01.....78.ab 01265: 111..1.11. a + b -> a[ms] A=00005939260850 B=00029327744000 C=01600000000000 D=77371010000000 M=00000000000000 P=a S=01.....78.ab 01266: .1...1.11. shift left a[ms] A=00059392600850 B=00029327744000 C=01600000000000 D=77371010000000 M=00000000000000 P=a S=01.....78.ab 01267: .....111.. p - 1 -> p A=00059392600850 B=00029327744000 C=01600000000000 D=77371010000000 M=00000000000000 P=9 S=01.....78.ab 01270: ....1.11.. if p # 0 A=00059392600850 B=00029327744000 C=01600000000000 D=77371010000000 M=00000000000000 P=9 S=01.....78.ab 01271: 1.11..1111 -> 01263 then go to div15 A=00059392600850 B=00029327744000 C=01600000000000 D=77371010000000 M=00000000000000 P=9 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00030064856850 B=00029327744000 C=01600000000000 D=77371010000000 M=00000000000000 P=9 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00030064856850 B=00029327744000 C=01600000000000 D=77371010000000 M=00000000000000 P=9 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00030064856850 B=00029327744000 C=01601000000000 D=77371010000000 M=00000000000000 P=9 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00000737112850 B=00029327744000 C=01601000000000 D=77371010000000 M=00000000000000 P=9 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00000737112850 B=00029327744000 C=01601000000000 D=77371010000000 M=00000000000000 P=9 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00000737112850 B=00029327744000 C=01602000000000 D=77371010000000 M=00000000000000 P=9 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=99971409368850 B=00029327744000 C=01602000000000 D=77371010000000 M=00000000000000 P=9 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=99971409368850 B=00029327744000 C=01602000000000 D=77371010000000 M=00000000000000 P=9 S=01.....78.ab 01265: 111..1.11. a + b -> a[ms] A=00000737112850 B=00029327744000 C=01602000000000 D=77371010000000 M=00000000000000 P=9 S=01.....78.ab 01266: .1...1.11. shift left a[ms] A=00007371120850 B=00029327744000 C=01602000000000 D=77371010000000 M=00000000000000 P=9 S=01.....78.ab 01267: .....111.. p - 1 -> p A=00007371120850 B=00029327744000 C=01602000000000 D=77371010000000 M=00000000000000 P=8 S=01.....78.ab 01270: ....1.11.. if p # 0 A=00007371120850 B=00029327744000 C=01602000000000 D=77371010000000 M=00000000000000 P=8 S=01.....78.ab 01271: 1.11..1111 -> 01263 then go to div15 A=00007371120850 B=00029327744000 C=01602000000000 D=77371010000000 M=00000000000000 P=8 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=99978043376850 B=00029327744000 C=01602000000000 D=77371010000000 M=00000000000000 P=8 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=99978043376850 B=00029327744000 C=01602000000000 D=77371010000000 M=00000000000000 P=8 S=01.....78.ab 01265: 111..1.11. a + b -> a[ms] A=00007371120850 B=00029327744000 C=01602000000000 D=77371010000000 M=00000000000000 P=8 S=01.....78.ab 01266: .1...1.11. shift left a[ms] A=00073711200850 B=00029327744000 C=01602000000000 D=77371010000000 M=00000000000000 P=8 S=01.....78.ab 01267: .....111.. p - 1 -> p A=00073711200850 B=00029327744000 C=01602000000000 D=77371010000000 M=00000000000000 P=7 S=01.....78.ab 01270: ....1.11.. if p # 0 A=00073711200850 B=00029327744000 C=01602000000000 D=77371010000000 M=00000000000000 P=7 S=01.....78.ab 01271: 1.11..1111 -> 01263 then go to div15 A=00073711200850 B=00029327744000 C=01602000000000 D=77371010000000 M=00000000000000 P=7 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00044383456850 B=00029327744000 C=01602000000000 D=77371010000000 M=00000000000000 P=7 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00044383456850 B=00029327744000 C=01602000000000 D=77371010000000 M=00000000000000 P=7 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00044383456850 B=00029327744000 C=01602010000000 D=77371010000000 M=00000000000000 P=7 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00015055712850 B=00029327744000 C=01602010000000 D=77371010000000 M=00000000000000 P=7 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00015055712850 B=00029327744000 C=01602010000000 D=77371010000000 M=00000000000000 P=7 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00015055712850 B=00029327744000 C=01602020000000 D=77371010000000 M=00000000000000 P=7 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=99985727968850 B=00029327744000 C=01602020000000 D=77371010000000 M=00000000000000 P=7 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=99985727968850 B=00029327744000 C=01602020000000 D=77371010000000 M=00000000000000 P=7 S=01.....78.ab 01265: 111..1.11. a + b -> a[ms] A=00015055712850 B=00029327744000 C=01602020000000 D=77371010000000 M=00000000000000 P=7 S=01.....78.ab 01266: .1...1.11. shift left a[ms] A=00150557120850 B=00029327744000 C=01602020000000 D=77371010000000 M=00000000000000 P=7 S=01.....78.ab 01267: .....111.. p - 1 -> p A=00150557120850 B=00029327744000 C=01602020000000 D=77371010000000 M=00000000000000 P=6 S=01.....78.ab 01270: ....1.11.. if p # 0 A=00150557120850 B=00029327744000 C=01602020000000 D=77371010000000 M=00000000000000 P=6 S=01.....78.ab 01271: 1.11..1111 -> 01263 then go to div15 A=00150557120850 B=00029327744000 C=01602020000000 D=77371010000000 M=00000000000000 P=6 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00121229376850 B=00029327744000 C=01602020000000 D=77371010000000 M=00000000000000 P=6 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00121229376850 B=00029327744000 C=01602020000000 D=77371010000000 M=00000000000000 P=6 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00121229376850 B=00029327744000 C=01602021000000 D=77371010000000 M=00000000000000 P=6 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00091901632850 B=00029327744000 C=01602021000000 D=77371010000000 M=00000000000000 P=6 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00091901632850 B=00029327744000 C=01602021000000 D=77371010000000 M=00000000000000 P=6 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00091901632850 B=00029327744000 C=01602022000000 D=77371010000000 M=00000000000000 P=6 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00062573888850 B=00029327744000 C=01602022000000 D=77371010000000 M=00000000000000 P=6 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00062573888850 B=00029327744000 C=01602022000000 D=77371010000000 M=00000000000000 P=6 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00062573888850 B=00029327744000 C=01602023000000 D=77371010000000 M=00000000000000 P=6 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00033246144850 B=00029327744000 C=01602023000000 D=77371010000000 M=00000000000000 P=6 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00033246144850 B=00029327744000 C=01602023000000 D=77371010000000 M=00000000000000 P=6 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00033246144850 B=00029327744000 C=01602024000000 D=77371010000000 M=00000000000000 P=6 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00003918400850 B=00029327744000 C=01602024000000 D=77371010000000 M=00000000000000 P=6 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00003918400850 B=00029327744000 C=01602024000000 D=77371010000000 M=00000000000000 P=6 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00003918400850 B=00029327744000 C=01602025000000 D=77371010000000 M=00000000000000 P=6 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=99974590656850 B=00029327744000 C=01602025000000 D=77371010000000 M=00000000000000 P=6 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=99974590656850 B=00029327744000 C=01602025000000 D=77371010000000 M=00000000000000 P=6 S=01.....78.ab 01265: 111..1.11. a + b -> a[ms] A=00003918400850 B=00029327744000 C=01602025000000 D=77371010000000 M=00000000000000 P=6 S=01.....78.ab 01266: .1...1.11. shift left a[ms] A=00039184000850 B=00029327744000 C=01602025000000 D=77371010000000 M=00000000000000 P=6 S=01.....78.ab 01267: .....111.. p - 1 -> p A=00039184000850 B=00029327744000 C=01602025000000 D=77371010000000 M=00000000000000 P=5 S=01.....78.ab 01270: ....1.11.. if p # 0 A=00039184000850 B=00029327744000 C=01602025000000 D=77371010000000 M=00000000000000 P=5 S=01.....78.ab 01271: 1.11..1111 -> 01263 then go to div15 A=00039184000850 B=00029327744000 C=01602025000000 D=77371010000000 M=00000000000000 P=5 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00009856256850 B=00029327744000 C=01602025000000 D=77371010000000 M=00000000000000 P=5 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00009856256850 B=00029327744000 C=01602025000000 D=77371010000000 M=00000000000000 P=5 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00009856256850 B=00029327744000 C=01602025100000 D=77371010000000 M=00000000000000 P=5 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=99980528512850 B=00029327744000 C=01602025100000 D=77371010000000 M=00000000000000 P=5 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=99980528512850 B=00029327744000 C=01602025100000 D=77371010000000 M=00000000000000 P=5 S=01.....78.ab 01265: 111..1.11. a + b -> a[ms] A=00009856256850 B=00029327744000 C=01602025100000 D=77371010000000 M=00000000000000 P=5 S=01.....78.ab 01266: .1...1.11. shift left a[ms] A=00098562560850 B=00029327744000 C=01602025100000 D=77371010000000 M=00000000000000 P=5 S=01.....78.ab 01267: .....111.. p - 1 -> p A=00098562560850 B=00029327744000 C=01602025100000 D=77371010000000 M=00000000000000 P=4 S=01.....78.ab 01270: ....1.11.. if p # 0 A=00098562560850 B=00029327744000 C=01602025100000 D=77371010000000 M=00000000000000 P=4 S=01.....78.ab 01271: 1.11..1111 -> 01263 then go to div15 A=00098562560850 B=00029327744000 C=01602025100000 D=77371010000000 M=00000000000000 P=4 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00069234816850 B=00029327744000 C=01602025100000 D=77371010000000 M=00000000000000 P=4 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00069234816850 B=00029327744000 C=01602025100000 D=77371010000000 M=00000000000000 P=4 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00069234816850 B=00029327744000 C=01602025110000 D=77371010000000 M=00000000000000 P=4 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00039907072850 B=00029327744000 C=01602025110000 D=77371010000000 M=00000000000000 P=4 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00039907072850 B=00029327744000 C=01602025110000 D=77371010000000 M=00000000000000 P=4 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00039907072850 B=00029327744000 C=01602025120000 D=77371010000000 M=00000000000000 P=4 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00010579328850 B=00029327744000 C=01602025120000 D=77371010000000 M=00000000000000 P=4 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00010579328850 B=00029327744000 C=01602025120000 D=77371010000000 M=00000000000000 P=4 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00010579328850 B=00029327744000 C=01602025130000 D=77371010000000 M=00000000000000 P=4 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=99981251584850 B=00029327744000 C=01602025130000 D=77371010000000 M=00000000000000 P=4 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=99981251584850 B=00029327744000 C=01602025130000 D=77371010000000 M=00000000000000 P=4 S=01.....78.ab 01265: 111..1.11. a + b -> a[ms] A=00010579328850 B=00029327744000 C=01602025130000 D=77371010000000 M=00000000000000 P=4 S=01.....78.ab 01266: .1...1.11. shift left a[ms] A=00105793280850 B=00029327744000 C=01602025130000 D=77371010000000 M=00000000000000 P=4 S=01.....78.ab 01267: .....111.. p - 1 -> p A=00105793280850 B=00029327744000 C=01602025130000 D=77371010000000 M=00000000000000 P=3 S=01.....78.ab 01270: ....1.11.. if p # 0 A=00105793280850 B=00029327744000 C=01602025130000 D=77371010000000 M=00000000000000 P=3 S=01.....78.ab 01271: 1.11..1111 -> 01263 then go to div15 A=00105793280850 B=00029327744000 C=01602025130000 D=77371010000000 M=00000000000000 P=3 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00076465536850 B=00029327744000 C=01602025130000 D=77371010000000 M=00000000000000 P=3 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00076465536850 B=00029327744000 C=01602025130000 D=77371010000000 M=00000000000000 P=3 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00076465536850 B=00029327744000 C=01602025131000 D=77371010000000 M=00000000000000 P=3 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00047137792850 B=00029327744000 C=01602025131000 D=77371010000000 M=00000000000000 P=3 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00047137792850 B=00029327744000 C=01602025131000 D=77371010000000 M=00000000000000 P=3 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00047137792850 B=00029327744000 C=01602025132000 D=77371010000000 M=00000000000000 P=3 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00017810048850 B=00029327744000 C=01602025132000 D=77371010000000 M=00000000000000 P=3 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00017810048850 B=00029327744000 C=01602025132000 D=77371010000000 M=00000000000000 P=3 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00017810048850 B=00029327744000 C=01602025133000 D=77371010000000 M=00000000000000 P=3 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=99988482304850 B=00029327744000 C=01602025133000 D=77371010000000 M=00000000000000 P=3 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=99988482304850 B=00029327744000 C=01602025133000 D=77371010000000 M=00000000000000 P=3 S=01.....78.ab 01265: 111..1.11. a + b -> a[ms] A=00017810048850 B=00029327744000 C=01602025133000 D=77371010000000 M=00000000000000 P=3 S=01.....78.ab 01266: .1...1.11. shift left a[ms] A=00178100480850 B=00029327744000 C=01602025133000 D=77371010000000 M=00000000000000 P=3 S=01.....78.ab 01267: .....111.. p - 1 -> p A=00178100480850 B=00029327744000 C=01602025133000 D=77371010000000 M=00000000000000 P=2 S=01.....78.ab 01270: ....1.11.. if p # 0 A=00178100480850 B=00029327744000 C=01602025133000 D=77371010000000 M=00000000000000 P=2 S=01.....78.ab 01271: 1.11..1111 -> 01263 then go to div15 A=00178100480850 B=00029327744000 C=01602025133000 D=77371010000000 M=00000000000000 P=2 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00148772736850 B=00029327744000 C=01602025133000 D=77371010000000 M=00000000000000 P=2 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00148772736850 B=00029327744000 C=01602025133000 D=77371010000000 M=00000000000000 P=2 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00148772736850 B=00029327744000 C=01602025133100 D=77371010000000 M=00000000000000 P=2 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00119444992850 B=00029327744000 C=01602025133100 D=77371010000000 M=00000000000000 P=2 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00119444992850 B=00029327744000 C=01602025133100 D=77371010000000 M=00000000000000 P=2 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00119444992850 B=00029327744000 C=01602025133200 D=77371010000000 M=00000000000000 P=2 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00090117248850 B=00029327744000 C=01602025133200 D=77371010000000 M=00000000000000 P=2 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00090117248850 B=00029327744000 C=01602025133200 D=77371010000000 M=00000000000000 P=2 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00090117248850 B=00029327744000 C=01602025133300 D=77371010000000 M=00000000000000 P=2 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00060789504850 B=00029327744000 C=01602025133300 D=77371010000000 M=00000000000000 P=2 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00060789504850 B=00029327744000 C=01602025133300 D=77371010000000 M=00000000000000 P=2 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00060789504850 B=00029327744000 C=01602025133400 D=77371010000000 M=00000000000000 P=2 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00031461760850 B=00029327744000 C=01602025133400 D=77371010000000 M=00000000000000 P=2 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00031461760850 B=00029327744000 C=01602025133400 D=77371010000000 M=00000000000000 P=2 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00031461760850 B=00029327744000 C=01602025133500 D=77371010000000 M=00000000000000 P=2 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00002134016850 B=00029327744000 C=01602025133500 D=77371010000000 M=00000000000000 P=2 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00002134016850 B=00029327744000 C=01602025133500 D=77371010000000 M=00000000000000 P=2 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00002134016850 B=00029327744000 C=01602025133600 D=77371010000000 M=00000000000000 P=2 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=99972806272850 B=00029327744000 C=01602025133600 D=77371010000000 M=00000000000000 P=2 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=99972806272850 B=00029327744000 C=01602025133600 D=77371010000000 M=00000000000000 P=2 S=01.....78.ab 01265: 111..1.11. a + b -> a[ms] A=00002134016850 B=00029327744000 C=01602025133600 D=77371010000000 M=00000000000000 P=2 S=01.....78.ab 01266: .1...1.11. shift left a[ms] A=00021340160850 B=00029327744000 C=01602025133600 D=77371010000000 M=00000000000000 P=2 S=01.....78.ab 01267: .....111.. p - 1 -> p A=00021340160850 B=00029327744000 C=01602025133600 D=77371010000000 M=00000000000000 P=1 S=01.....78.ab 01270: ....1.11.. if p # 0 A=00021340160850 B=00029327744000 C=01602025133600 D=77371010000000 M=00000000000000 P=1 S=01.....78.ab 01271: 1.11..1111 -> 01263 then go to div15 A=00021340160850 B=00029327744000 C=01602025133600 D=77371010000000 M=00000000000000 P=1 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=99992012416850 B=00029327744000 C=01602025133600 D=77371010000000 M=00000000000000 P=1 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=99992012416850 B=00029327744000 C=01602025133600 D=77371010000000 M=00000000000000 P=1 S=01.....78.ab 01265: 111..1.11. a + b -> a[ms] A=00021340160850 B=00029327744000 C=01602025133600 D=77371010000000 M=00000000000000 P=1 S=01.....78.ab 01266: .1...1.11. shift left a[ms] A=00213401600850 B=00029327744000 C=01602025133600 D=77371010000000 M=00000000000000 P=1 S=01.....78.ab 01267: .....111.. p - 1 -> p A=00213401600850 B=00029327744000 C=01602025133600 D=77371010000000 M=00000000000000 P=0 S=01.....78.ab 01270: ....1.11.. if p # 0 A=00213401600850 B=00029327744000 C=01602025133600 D=77371010000000 M=00000000000000 P=0 S=01.....78.ab 01271: 1.11..1111 -> 01263 then go to div15 A=00213401600850 B=00029327744000 C=01602025133600 D=77371010000000 M=00000000000000 P=0 S=01.....78.ab 01272: ..1.11.111 -> 01055 go to tnm12 A=00213401600850 B=00029327744000 C=01602025133600 D=77371010000000 M=00000000000000 P=0 S=01.....78.ab 01055: .11...111. tnm12: c -> a[w] A=01602025133600 B=00029327744000 C=01602025133600 D=77371010000000 M=00000000000000 P=0 S=01.....78.ab 01056: ..1...1.1. b -> c[x] A=01602025133600 B=00029327744000 C=01602025133000 D=77371010000000 M=00000000000000 P=0 S=01.....78.ab 01057: 11..1.1111 -> 01313 go to add15 A=01602025133600 B=00029327744000 C=01602025133000 D=77371010000000 M=00000000000000 P=0 S=01.....78.ab 01313: .1...1.... -> 02314 add15: select rom 2 ; -> nrm21 A=01602025133600 B=00029327744000 C=01602025133000 D=77371010000000 M=00000000000000 P=0 S=01.....78.ab 02314: 1.1111111. nrm21: 0 -> a[s] A=01602025133600 B=00029327744000 C=01602025133000 D=77371010000000 M=00000000000000 P=0 S=01.....78.ab 02315: 11....11.. 12 -> p A=01602025133600 B=00029327744000 C=01602025133000 D=77371010000000 M=00000000000000 P=c S=01.....78.ab 02316: ....1.111. 0 -> b[w] A=01602025133600 B=00000000000000 C=01602025133000 D=77371010000000 M=00000000000000 P=c S=01.....78.ab 02317: 1..11...1. nrm23: if a[p] >= 1 A=01602025133600 B=00000000000000 C=01602025133000 D=77371010000000 M=00000000000000 P=c S=01.....78.ab 02320: 11.1.11.11 -> 02326 then go to nrm24 A=01602025133600 B=00000000000000 C=01602025133000 D=77371010000000 M=00000000000000 P=c S=01.....78.ab 02326: .1..1.1.1. nrm24: a -> b[x] A=01602025133600 B=00000000000600 C=01602025133000 D=77371010000000 M=00000000000000 P=c S=01.....78.ab 02327: 111...111. a + b -> a[w] A=01602025134200 B=00000000000600 C=01602025133000 D=77371010000000 M=00000000000000 P=c S=01.....78.ab 02330: 1..111111. if a[s] >= 1 A=01602025134200 B=00000000000600 C=01602025133000 D=77371010000000 M=00000000000000 P=c S=01.....78.ab 02331: 11...11111 -> 02307 then go to mpy28 A=01602025134200 B=00000000000600 C=01602025133000 D=77371010000000 M=00000000000000 P=c S=01.....78.ab 02332: 111.1..11. a exchange c[m] A=01602025133200 B=00000000000600 C=01602025134000 D=77371010000000 M=00000000000000 P=c S=01.....78.ab 02333: .11...111. c -> a[w] A=01602025134000 B=00000000000600 C=01602025134000 D=77371010000000 M=00000000000000 P=c S=01.....78.ab 02334: ....1.111. 0 -> b[w] A=01602025134000 B=00000000000000 C=01602025134000 D=77371010000000 M=00000000000000 P=c S=01.....78.ab 02335: 11....11.. nrm27: 12 -> p A=01602025134000 B=00000000000000 C=01602025134000 D=77371010000000 M=00000000000000 P=c S=01.....78.ab 02336: .1111.1.11 -> 02172 go to nrm26 A=01602025134000 B=00000000000000 C=01602025134000 D=77371010000000 M=00000000000000 P=c S=01.....78.ab 02172: ..1..1.1.. nrm26: if s2 = 0 A=01602025134000 B=00000000000000 C=01602025134000 D=77371010000000 M=00000000000000 P=c S=01.....78.ab 02173: 1..1.1..11 -> 02224 then go to rtn21 A=01602025134000 B=00000000000000 C=01602025134000 D=77371010000000 M=00000000000000 P=c S=01.....78.ab 02224: ..1..1.... -> 01225 rtn21: select rom 1 ; -> rtn11 A=01602025134000 B=00000000000000 C=01602025134000 D=77371010000000 M=00000000000000 P=c S=01.....78.ab 01225: ...1.1.1.. rtn11: if s1 = 0 A=01602025134000 B=00000000000000 C=01602025134000 D=77371010000000 M=00000000000000 P=c S=01.....78.ab 01226: 11.11.1.11 -> 01332 then go to rtn12 A=01602025134000 B=00000000000000 C=01602025134000 D=77371010000000 M=00000000000000 P=c S=01.....78.ab 01227: ....11.... return A=01602025134000 B=00000000000000 C=01602025134000 D=77371010000000 M=00000000000000 P=c S=01.....78.ab 01121: .1.11...1. c - 1 -> c[p] A=01602025134000 B=00000000000000 C=00602025134000 D=77371010000000 M=00000000000000 P=c S=01.....78.ab [BP4] END of pseudo division Y/X = 0.0000602025134 01122: .11.1.1... stack -> a A=77371010000000 B=00000000000000 C=00602025134000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01123: 111.1.111. a exchange c[w] A=00602025134000 B=00000000000000 C=77371010000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01124: .1....11.. 4 -> p A=00602025134000 B=00000000000000 C=77371010000000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 01125: 1.1..1...1 -> 01244 jsb pqo13 A=00602025134000 B=00000000000000 C=77371010000000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 01244: .1...1.... -> 02245 pqo13: select rom 2 ; -> l02245 A=00602025134000 B=00000000000000 C=77371010000000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 02245: .11.11.111 -> 02155 go to pqo23 A=00602025134000 B=00000000000000 C=77371010000000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 02155: 1...1.111. pqo23: b exchange c[w] A=00602025134000 B=77371010000000 C=00000000000000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 02156: ..11..111. 0 -> c[w] A=00602025134000 B=77371010000000 C=00000000000000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 02157: .1.11..11. c - 1 -> c[m] A=00602025134000 B=77371010000000 C=09999999999000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 02160: ..1..1.1.. if s2 = 0 A=00602025134000 B=77371010000000 C=09999999999000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 02161: .111.11.11 -> 02166 then go to pqo28 A=00602025134000 B=77371010000000 C=09999999999000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00602025134000 B=77371010000000 C=09999999999000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00602025134000 B=77371010000000 C=09999999999000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=00602025134000 B=77371010000000 C=09999999969000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00602025134000 B=77371010000000 C=09999999969000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00602025134000 B=77371010000000 C=09999999969000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=00602025134000 B=77371010000000 C=09999999966000 D=00000000000000 M=00000000000000 P=2 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00602025134000 B=77371010000000 C=09999999966000 D=00000000000000 M=00000000000000 P=2 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00602025134000 B=77371010000000 C=09999999966000 D=00000000000000 M=00000000000000 P=2 S=01.....78.ab 02165: .11..11... pqo27: load constant 6 loading tan-1(0.0001) A=00602025134000 B=77371010000000 C=09999999966600 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00602025134000 B=77371010000000 C=09999999966600 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00602025134000 B=77371010000000 C=09999999966600 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02170: 1..1..111. shift right c[w] A=00602025134000 B=77371010000000 C=00999999996660 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02171: 1..1..111. pqo24: shift right c[w] A=00602025134000 B=77371010000000 C=00099999999666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02172: ..1..1.1.. nrm26: if s2 = 0 A=00602025134000 B=77371010000000 C=00099999999666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02173: 1..1.1..11 -> 02224 then go to rtn21 A=00602025134000 B=77371010000000 C=00099999999666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02224: ..1..1.... -> 01225 rtn21: select rom 1 ; -> rtn11 A=00602025134000 B=77371010000000 C=00099999999666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 01225: ...1.1.1.. rtn11: if s1 = 0 A=00602025134000 B=77371010000000 C=00099999999666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 01226: 11.11.1.11 -> 01332 then go to rtn12 A=00602025134000 B=77371010000000 C=00099999999666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 01227: ....11.... return A=00602025134000 B=77371010000000 C=00099999999666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab Cst loaded tan^-1(0.0001) 01126: .11...11.. 6 -> p A=00602025134000 B=77371010000000 C=00099999999666 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 01127: 1..11.11.1 -> 01233 jsb pmu11 A=00602025134000 B=77371010000000 C=00099999999666 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 01233: .1...1.... -> 02234 pmu11: select rom 2 ; -> pmu21 A=00602025134000 B=77371010000000 C=00099999999666 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02234: 1.11..111. pmu21: shift right a[w] A=00060202513400 B=77371010000000 C=00099999999666 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02235: 1...1.111. pmu22: b exchange c[w] A=00060202513400 B=00099999999666 C=77371010000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02236: 1.1.....11 -> 02240 go to pmu24 A=00060202513400 B=00099999999666 C=77371010000000 set of pq=77371 in C D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02240: .1.111111. pmu24: c - 1 -> c[s] A=00060202513400 B=00099999999666 C=67371010000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02241: 1..1111111 -> 02237 if no carry go to pmu23 A=00060202513400 B=00099999999666 C=67371010000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02237: 111...111. pmu23: a + b -> a[w] first pseudo mutltiplication A=00160202513066 B=00099999999666 C=67371010000000 of 7 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02240: .1.111111. pmu24: c - 1 -> c[s] A=00160202513066 B=00099999999666 C=57371010000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02241: 1..1111111 -> 02237 if no carry go to pmu23 A=00160202513066 B=00099999999666 C=57371010000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02237: 111...111. pmu23: a + b -> a[w] pm A=00260202512732 B=00099999999666 C=57371010000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02240: .1.111111. pmu24: c - 1 -> c[s] A=00260202512732 B=00099999999666 C=47371010000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02241: 1..1111111 -> 02237 if no carry go to pmu23 A=00260202512732 B=00099999999666 C=47371010000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02237: 111...111. pmu23: a + b -> a[w] pm A=00360202512398 B=00099999999666 C=47371010000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02240: .1.111111. pmu24: c - 1 -> c[s] A=00360202512398 B=00099999999666 C=37371010000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02241: 1..1111111 -> 02237 if no carry go to pmu23 A=00360202512398 B=00099999999666 C=37371010000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02237: 111...111. pmu23: a + b -> a[w] pm A=00460202512064 B=00099999999666 C=37371010000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02240: .1.111111. pmu24: c - 1 -> c[s] A=00460202512064 B=00099999999666 C=27371010000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02241: 1..1111111 -> 02237 if no carry go to pmu23 A=00460202512064 B=00099999999666 C=27371010000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02237: 111...111. pmu23: a + b -> a[w] pm A=00560202511730 B=00099999999666 C=27371010000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02240: .1.111111. pmu24: c - 1 -> c[s] A=00560202511730 B=00099999999666 C=17371010000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02241: 1..1111111 -> 02237 if no carry go to pmu23 A=00560202511730 B=00099999999666 C=17371010000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02237: 111...111. pmu23: a + b -> a[w] pm A=00660202511396 B=00099999999666 C=17371010000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02240: .1.111111. pmu24: c - 1 -> c[s] A=00660202511396 B=00099999999666 C=07371010000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02241: 1..1111111 -> 02237 if no carry go to pmu23 A=00660202511396 B=00099999999666 C=07371010000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02237: 111...111. pmu23: a + b -> a[w] pm A=00760202511062 B=00099999999666 C=07371010000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab after 7 pm q4 =0.000760202511062 02240: .1.111111. pmu24: c - 1 -> c[s] A=00760202511062 B=00099999999666 C=97371010000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02241: 1..1111111 -> 02237 if no carry go to pmu23 A=00760202511062 B=00099999999666 C=97371010000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab KO 02242: 111.1.111. a exchange c[w] A=97371010000000 B=00099999999666 C=00760202511062 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02243: .1...1.11. shift left a[ms] A=73710100000000 B=00099999999666 C=00760202511062 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02244: 111.1.111. a exchange c[w] A=00760202511062 B=00099999999666 C=73710100000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02245: .11.11.111 -> 02155 go to pqo23 A=00760202511062 B=00099999999666 C=73710100000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02155: 1...1.111. pqo23: b exchange c[w] A=00760202511062 B=73710100000000 C=00099999999666 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02156: ..11..111. 0 -> c[w] A=00760202511062 B=73710100000000 C=00000000000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02157: .1.11..11. c - 1 -> c[m] A=00760202511062 B=73710100000000 C=09999999999000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02160: ..1..1.1.. if s2 = 0 A=00760202511062 B=73710100000000 C=09999999999000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02161: .111.11.11 -> 02166 then go to pqo28 A=00760202511062 B=73710100000000 C=09999999999000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00760202511062 B=73710100000000 C=09999999999000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00760202511062 B=73710100000000 C=09999999999000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02165: .11..11... pqo27: load constant 6 loading tan-1(0.001) A=00760202511062 B=73710100000000 C=09999996999000 D=00000000000000 M=00000000000000 P=5 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00760202511062 B=73710100000000 C=09999996999000 D=00000000000000 M=00000000000000 P=5 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00760202511062 B=73710100000000 C=09999996999000 D=00000000000000 M=00000000000000 P=5 S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=00760202511062 B=73710100000000 C=09999996699000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00760202511062 B=73710100000000 C=09999996699000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00760202511062 B=73710100000000 C=09999996699000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=00760202511062 B=73710100000000 C=09999996669000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00760202511062 B=73710100000000 C=09999996669000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00760202511062 B=73710100000000 C=09999996669000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=00760202511062 B=73710100000000 C=09999996666000 D=00000000000000 M=00000000000000 P=2 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00760202511062 B=73710100000000 C=09999996666000 D=00000000000000 M=00000000000000 P=2 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00760202511062 B=73710100000000 C=09999996666000 D=00000000000000 M=00000000000000 P=2 S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=00760202511062 B=73710100000000 C=09999996666600 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00760202511062 B=73710100000000 C=09999996666600 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00760202511062 B=73710100000000 C=09999996666600 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02170: 1..1..111. shift right c[w] A=00760202511062 B=73710100000000 C=00999999666660 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02171: 1..1..111. pqo24: shift right c[w] A=00760202511062 B=73710100000000 C=00099999966666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02172: ..1..1.1.. nrm26: if s2 = 0 A=00760202511062 B=73710100000000 C=00099999966666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02173: 1..1.1..11 -> 02224 then go to rtn21 A=00760202511062 B=73710100000000 C=00099999966666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02224: ..1..1.... -> 01225 rtn21: select rom 1 ; -> rtn11 A=00760202511062 B=73710100000000 C=00099999966666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 01225: ...1.1.1.. rtn11: if s1 = 0 A=00760202511062 B=73710100000000 C=00099999966666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 01226: 11.11.1.11 -> 01332 then go to rtn12 A=00760202511062 B=73710100000000 C=00099999966666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 01227: ....11.... return A=00760202511062 B=73710100000000 C=00099999966666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab cst loaded 01130: 1.....11.. 8 -> p A=00760202511062 B=73710100000000 C=00099999966666 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 01131: 1..11.11.1 -> 01233 jsb pmu11 A=00760202511062 B=73710100000000 C=00099999966666 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 01233: .1...1.... -> 02234 pmu11: select rom 2 ; -> pmu21 A=00760202511062 B=73710100000000 C=00099999966666 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02234: 1.11..111. pmu21: shift right a[w] A=00076020251106 B=73710100000000 C=00099999966666 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02235: 1...1.111. pmu22: b exchange c[w] A=00076020251106 B=00099999966666 C=73710100000000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02236: 1.1.....11 -> 02240 go to pmu24 rest of pq in C = 7371 A=00076020251106 B=00099999966666 C=73710100000000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02240: .1.111111. pmu24: c - 1 -> c[s] A=00076020251106 B=00099999966666 C=63710100000000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02241: 1..1111111 -> 02237 if no carry go to pmu23 A=00076020251106 B=00099999966666 C=63710100000000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02237: 111...111. pmu23: a + b -> a[w] first pm with the new cst A=00176020217772 B=00099999966666 C=63710100000000 (of 7) D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02240: .1.111111. pmu24: c - 1 -> c[s] A=00176020217772 B=00099999966666 C=53710100000000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02241: 1..1111111 -> 02237 if no carry go to pmu23 A=00176020217772 B=00099999966666 C=53710100000000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02237: 111...111. pmu23: a + b -> a[w] pm A=00276020184438 B=00099999966666 C=53710100000000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02240: .1.111111. pmu24: c - 1 -> c[s] A=00276020184438 B=00099999966666 C=43710100000000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02241: 1..1111111 -> 02237 if no carry go to pmu23 A=00276020184438 B=00099999966666 C=43710100000000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02237: 111...111. pmu23: a + b -> a[w] pm A=00376020151104 B=00099999966666 C=43710100000000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02240: .1.111111. pmu24: c - 1 -> c[s] A=00376020151104 B=00099999966666 C=33710100000000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02241: 1..1111111 -> 02237 if no carry go to pmu23 A=00376020151104 B=00099999966666 C=33710100000000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02237: 111...111. pmu23: a + b -> a[w] pm A=00476020117770 B=00099999966666 C=33710100000000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02240: .1.111111. pmu24: c - 1 -> c[s] A=00476020117770 B=00099999966666 C=23710100000000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02241: 1..1111111 -> 02237 if no carry go to pmu23 A=00476020117770 B=00099999966666 C=23710100000000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02237: 111...111. pmu23: a + b -> a[w] pm A=00576020084436 B=00099999966666 C=23710100000000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02240: .1.111111. pmu24: c - 1 -> c[s] A=00576020084436 B=00099999966666 C=13710100000000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02241: 1..1111111 -> 02237 if no carry go to pmu23 A=00576020084436 B=00099999966666 C=13710100000000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02237: 111...111. pmu23: a + b -> a[w] pm A=00676020051102 B=00099999966666 C=13710100000000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02240: .1.111111. pmu24: c - 1 -> c[s] A=00676020051102 B=00099999966666 C=03710100000000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02241: 1..1111111 -> 02237 if no carry go to pmu23 A=00676020051102 B=00099999966666 C=03710100000000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02237: 111...111. pmu23: a + b -> a[w] pm A=00776020017768 B=00099999966666 C=03710100000000 after 7 pm q4 + 7 pm q3 = 0.00776020017768 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02240: .1.111111. pmu24: c - 1 -> c[s] A=00776020017768 B=00099999966666 C=93710100000000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02241: 1..1111111 -> 02237 if no carry go to pmu23 A=00776020017768 B=00099999966666 C=93710100000000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab KO 02242: 111.1.111. a exchange c[w] A=93710100000000 B=00099999966666 C=00776020017768 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02243: .1...1.11. shift left a[ms] A=37101000000000 B=00099999966666 C=00776020017768 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02244: 111.1.111. a exchange c[w] A=00776020017768 B=00099999966666 C=37101000000000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02245: .11.11.111 -> 02155 go to pqo23 A=00776020017768 B=00099999966666 C=37101000000000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02155: 1...1.111. pqo23: b exchange c[w] A=00776020017768 B=37101000000000 C=00099999966666 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02156: ..11..111. 0 -> c[w] A=00776020017768 B=37101000000000 C=00000000000000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02157: .1.11..11. c - 1 -> c[m] A=00776020017768 B=37101000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02160: ..1..1.1.. if s2 = 0 A=00776020017768 B=37101000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02161: .111.11.11 -> 02166 then go to pqo28 A=00776020017768 B=37101000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00776020017768 B=37101000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00776020017768 B=37101000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02165: .11..11... pqo27: load constant 6 loading tan-1(0.01) A=00776020017768 B=37101000000000 C=09999699999000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00776020017768 B=37101000000000 C=09999699999000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00776020017768 B=37101000000000 C=09999699999000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=00776020017768 B=37101000000000 C=09999669999000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00776020017768 B=37101000000000 C=09999669999000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00776020017768 B=37101000000000 C=09999669999000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=00776020017768 B=37101000000000 C=09999666999000 D=00000000000000 M=00000000000000 P=5 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00776020017768 B=37101000000000 C=09999666999000 D=00000000000000 M=00000000000000 P=5 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00776020017768 B=37101000000000 C=09999666999000 D=00000000000000 M=00000000000000 P=5 S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=00776020017768 B=37101000000000 C=09999666699000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00776020017768 B=37101000000000 C=09999666699000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00776020017768 B=37101000000000 C=09999666699000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=00776020017768 B=37101000000000 C=09999666669000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00776020017768 B=37101000000000 C=09999666669000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00776020017768 B=37101000000000 C=09999666669000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=00776020017768 B=37101000000000 C=09999666666000 D=00000000000000 M=00000000000000 P=2 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00776020017768 B=37101000000000 C=09999666666000 D=00000000000000 M=00000000000000 P=2 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00776020017768 B=37101000000000 C=09999666666000 D=00000000000000 M=00000000000000 P=2 S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=00776020017768 B=37101000000000 C=09999666666600 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00776020017768 B=37101000000000 C=09999666666600 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00776020017768 B=37101000000000 C=09999666666600 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02170: 1..1..111. shift right c[w] A=00776020017768 B=37101000000000 C=00999966666660 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02171: 1..1..111. pqo24: shift right c[w] A=00776020017768 B=37101000000000 C=00099996666666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02172: ..1..1.1.. nrm26: if s2 = 0 A=00776020017768 B=37101000000000 C=00099996666666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02173: 1..1.1..11 -> 02224 then go to rtn21 A=00776020017768 B=37101000000000 C=00099996666666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02224: ..1..1.... -> 01225 rtn21: select rom 1 ; -> rtn11 A=00776020017768 B=37101000000000 C=00099996666666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 01225: ...1.1.1.. rtn11: if s1 = 0 A=00776020017768 B=37101000000000 C=00099996666666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 01226: 11.11.1.11 -> 01332 then go to rtn12 A=00776020017768 B=37101000000000 C=00099996666666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 01227: ....11.... return loaded A=00776020017768 B=37101000000000 C=00099996666666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 01132: ..1...11.. 2 -> p A=00776020017768 B=37101000000000 C=00099996666666 D=00000000000000 M=00000000000000 P=2 S=01.....78.ab 01133: 1....11... load constant 8 A=00776020017768 B=37101000000000 C=00099996666866 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 01134: 1.1...11.. 10 -> p A=00776020017768 B=37101000000000 C=00099996666866 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 01135: 1..11.11.1 -> 01233 jsb pmu11 A=00776020017768 B=37101000000000 C=00099996666866 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 01233: .1...1.... -> 02234 pmu11: select rom 2 ; -> pmu21 A=00776020017768 B=37101000000000 C=00099996666866 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 02234: 1.11..111. pmu21: shift right a[w] A=00077602001776 B=37101000000000 C=00099996666866 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 02235: 1...1.111. pmu22: b exchange c[w] A=00077602001776 B=00099996666866 C=37101000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 02236: 1.1.....11 -> 02240 go to pmu24 A=00077602001776 B=00099996666866 C=37101000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 02240: .1.111111. pmu24: c - 1 -> c[s] A=00077602001776 B=00099996666866 C=27101000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 02241: 1..1111111 -> 02237 if no carry go to pmu23 A=00077602001776 B=00099996666866 C=27101000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 02237: 111...111. pmu23: a + b -> a[w] first pm with new cst A=00177598668642 B=00099996666866 C=27101000000000 of 3 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 02240: .1.111111. pmu24: c - 1 -> c[s] A=00177598668642 B=00099996666866 C=17101000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 02241: 1..1111111 -> 02237 if no carry go to pmu23 A=00177598668642 B=00099996666866 C=17101000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 02237: 111...111. pmu23: a + b -> a[w] pm A=00277595335508 B=00099996666866 C=17101000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 02240: .1.111111. pmu24: c - 1 -> c[s] A=00277595335508 B=00099996666866 C=07101000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 02241: 1..1111111 -> 02237 if no carry go to pmu23 A=00277595335508 B=00099996666866 C=07101000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 02237: 111...111. pmu23: a + b -> a[w] pm A=00377592002374 B=00099996666866 C=07101000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab after 7 pm q4 + 7 pm q3 + 3 pm q2 = 0.0377592002374 02240: .1.111111. pmu24: c - 1 -> c[s] A=00377592002374 B=00099996666866 C=97101000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 02241: 1..1111111 -> 02237 if no carry go to pmu23 A=00377592002374 B=00099996666866 C=97101000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab KO 02242: 111.1.111. a exchange c[w] A=97101000000000 B=00099996666866 C=00377592002374 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 02243: .1...1.11. shift left a[ms] A=71010000000000 B=00099996666866 C=00377592002374 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 02244: 111.1.111. a exchange c[w] A=00377592002374 B=00099996666866 C=71010000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 02245: .11.11.111 -> 02155 go to pqo23 A=00377592002374 B=00099996666866 C=71010000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 02155: 1...1.111. pqo23: b exchange c[w] A=00377592002374 B=71010000000000 C=00099996666866 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 02156: ..11..111. 0 -> c[w] A=00377592002374 B=71010000000000 C=00000000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 02157: .1.11..11. c - 1 -> c[m] A=00377592002374 B=71010000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 02160: ..1..1.1.. if s2 = 0 A=00377592002374 B=71010000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 02161: .111.11.11 -> 02166 then go to pqo28 A=00377592002374 B=71010000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00377592002374 B=71010000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00377592002374 B=71010000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 02165: .11..11... pqo27: load constant 6 loading tan-1(0.1) A=00377592002374 B=71010000000000 C=09969999999000 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00377592002374 B=71010000000000 C=09969999999000 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00377592002374 B=71010000000000 C=09969999999000 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=00377592002374 B=71010000000000 C=09966999999000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00377592002374 B=71010000000000 C=09966999999000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00377592002374 B=71010000000000 C=09966999999000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=00377592002374 B=71010000000000 C=09966699999000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00377592002374 B=71010000000000 C=09966699999000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00377592002374 B=71010000000000 C=09966699999000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=00377592002374 B=71010000000000 C=09966669999000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00377592002374 B=71010000000000 C=09966669999000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00377592002374 B=71010000000000 C=09966669999000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=00377592002374 B=71010000000000 C=09966666999000 D=00000000000000 M=00000000000000 P=5 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00377592002374 B=71010000000000 C=09966666999000 D=00000000000000 M=00000000000000 P=5 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00377592002374 B=71010000000000 C=09966666999000 D=00000000000000 M=00000000000000 P=5 S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=00377592002374 B=71010000000000 C=09966666699000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00377592002374 B=71010000000000 C=09966666699000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00377592002374 B=71010000000000 C=09966666699000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=00377592002374 B=71010000000000 C=09966666669000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00377592002374 B=71010000000000 C=09966666669000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00377592002374 B=71010000000000 C=09966666669000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=00377592002374 B=71010000000000 C=09966666666000 D=00000000000000 M=00000000000000 P=2 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00377592002374 B=71010000000000 C=09966666666000 D=00000000000000 M=00000000000000 P=2 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00377592002374 B=71010000000000 C=09966666666000 D=00000000000000 M=00000000000000 P=2 S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=00377592002374 B=71010000000000 C=09966666666600 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00377592002374 B=71010000000000 C=09966666666600 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00377592002374 B=71010000000000 C=09966666666600 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02170: 1..1..111. shift right c[w] A=00377592002374 B=71010000000000 C=00996666666660 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02171: 1..1..111. pqo24: shift right c[w] A=00377592002374 B=71010000000000 C=00099666666666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02172: ..1..1.1.. nrm26: if s2 = 0 A=00377592002374 B=71010000000000 C=00099666666666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02173: 1..1.1..11 -> 02224 then go to rtn21 A=00377592002374 B=71010000000000 C=00099666666666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02224: ..1..1.... -> 01225 rtn21: select rom 1 ; -> rtn11 A=00377592002374 B=71010000000000 C=00099666666666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 01225: ...1.1.1.. rtn11: if s1 = 0 A=00377592002374 B=71010000000000 C=00099666666666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 01226: 11.11.1.11 -> 01332 then go to rtn12 A=00377592002374 B=71010000000000 C=00099666666666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 01227: ....11.... return A=00377592002374 B=71010000000000 C=00099666666666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 01136: 1...111..1 -> 01216 jsb atcd1 A=00377592002374 B=71010000000000 C=00099666666666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 01216: .11...11.. atcd1: 6 -> p A=00377592002374 B=71010000000000 C=00099666666666 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 01217: 1....11... load constant 8 A=00377592002374 B=71010000000000 C=00099668666666 D=00000000000000 M=00000000000000 P=5 S=01.....78.ab 01220: .11..11... load constant 6 A=00377592002374 B=71010000000000 C=00099668666666 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 01221: .1.1.11... load constant 5 A=00377592002374 B=71010000000000 C=00099668656666 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 01222: ..1..11... load constant 2 A=00377592002374 B=71010000000000 C=00099668652666 D=00000000000000 M=00000000000000 P=2 S=01.....78.ab 01223: .1...11... load constant 4 A=00377592002374 B=71010000000000 C=00099668652466 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 01224: 1..1.11... load constant 9 A=00377592002374 B=71010000000000 C=00099668652496 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 01225: ...1.1.1.. rtn11: if s1 = 0 A=00377592002374 B=71010000000000 C=00099668652496 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 01226: 11.11.1.11 -> 01332 then go to rtn12 A=00377592002374 B=71010000000000 C=00099668652496 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 01227: ....11.... return A=00377592002374 B=71010000000000 C=00099668652496 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab new const loaded 01137: 1..11.11.1 -> 01233 jsb pmu11 A=00377592002374 B=71010000000000 C=00099668652496 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 01233: .1...1.... -> 02234 pmu11: select rom 2 ; -> pmu21 A=00377592002374 B=71010000000000 C=00099668652496 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 02234: 1.11..111. pmu21: shift right a[w] A=00037759200237 B=71010000000000 C=00099668652496 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 02235: 1...1.111. pmu22: b exchange c[w] A=00037759200237 B=00099668652496 C=71010000000000 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 02236: 1.1.....11 -> 02240 go to pmu24 A=00037759200237 B=00099668652496 C=71010000000000 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 02240: .1.111111. pmu24: c - 1 -> c[s] A=00037759200237 B=00099668652496 C=61010000000000 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 02241: 1..1111111 -> 02237 if no carry go to pmu23 A=00037759200237 B=00099668652496 C=61010000000000 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 02237: 111...111. pmu23: a + b -> a[w] first pm with new cst A=00137427852733 B=00099668652496 C=61010000000000 (of 7) D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 02240: .1.111111. pmu24: c - 1 -> c[s] A=00137427852733 B=00099668652496 C=51010000000000 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 02241: 1..1111111 -> 02237 if no carry go to pmu23 A=00137427852733 B=00099668652496 C=51010000000000 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 02237: 111...111. pmu23: a + b -> a[w] pm A=00237096505229 B=00099668652496 C=51010000000000 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 02240: .1.111111. pmu24: c - 1 -> c[s] A=00237096505229 B=00099668652496 C=41010000000000 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 02241: 1..1111111 -> 02237 if no carry go to pmu23 A=00237096505229 B=00099668652496 C=41010000000000 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 02237: 111...111. pmu23: a + b -> a[w] pm A=00336765157725 B=00099668652496 C=41010000000000 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 02240: .1.111111. pmu24: c - 1 -> c[s] A=00336765157725 B=00099668652496 C=31010000000000 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 02241: 1..1111111 -> 02237 if no carry go to pmu23 A=00336765157725 B=00099668652496 C=31010000000000 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 02237: 111...111. pmu23: a + b -> a[w] pm A=00436433810221 B=00099668652496 C=31010000000000 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 02240: .1.111111. pmu24: c - 1 -> c[s] A=00436433810221 B=00099668652496 C=21010000000000 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 02241: 1..1111111 -> 02237 if no carry go to pmu23 A=00436433810221 B=00099668652496 C=21010000000000 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 02237: 111...111. pmu23: a + b -> a[w] pm A=00536102462717 B=00099668652496 C=21010000000000 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 02240: .1.111111. pmu24: c - 1 -> c[s] A=00536102462717 B=00099668652496 C=11010000000000 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 02241: 1..1111111 -> 02237 if no carry go to pmu23 A=00536102462717 B=00099668652496 C=11010000000000 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 02237: 111...111. pmu23: a + b -> a[w] pm A=00635771115213 B=00099668652496 C=11010000000000 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 02240: .1.111111. pmu24: c - 1 -> c[s] A=00635771115213 B=00099668652496 C=01010000000000 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 02241: 1..1111111 -> 02237 if no carry go to pmu23 A=00635771115213 B=00099668652496 C=01010000000000 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 02237: 111...111. pmu23: a + b -> a[w] pm A=00735439767709 B=00099668652496 C=01010000000000 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab after 7 pm q4 + 7 pm q3 + 3 pm q2 + 7 pm q1 =0.735439767709 02240: .1.111111. pmu24: c - 1 -> c[s] A=00735439767709 B=00099668652496 C=91010000000000 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 02241: 1..1111111 -> 02237 if no carry go to pmu23 KO A=00735439767709 B=00099668652496 C=91010000000000 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 02242: 111.1.111. a exchange c[w] A=91010000000000 B=00099668652496 C=00735439767709 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 02243: .1...1.11. shift left a[ms] A=10100000000000 B=00099668652496 C=00735439767709 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 02244: 111.1.111. a exchange c[w] A=00735439767709 B=00099668652496 C=10100000000000 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 02245: .11.11.111 -> 02155 go to pqo23 A=00735439767709 B=00099668652496 C=10100000000000 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 02155: 1...1.111. pqo23: b exchange c[w] A=00735439767709 B=10100000000000 C=00099668652496 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 02156: ..11..111. 0 -> c[w] A=00735439767709 B=10100000000000 C=00000000000000 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 02157: .1.11..11. c - 1 -> c[m] A=00735439767709 B=10100000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 02160: ..1..1.1.. if s2 = 0 A=00735439767709 B=10100000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 02161: .111.11.11 -> 02166 then go to pqo28 A=00735439767709 B=10100000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00735439767709 B=10100000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00735439767709 B=10100000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=00735439767709 B=10100000000000 C=09999999999006 D=00000000000000 M=00000000000000 P=f S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00735439767709 B=10100000000000 C=09999999999006 D=00000000000000 M=00000000000000 P=f S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00735439767709 B=10100000000000 C=09999999999006 D=00000000000000 M=00000000000000 P=f S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=00735439767709 B=10100000000000 C=09999999999006 D=00000000000000 M=00000000000000 P=e S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00735439767709 B=10100000000000 C=09999999999006 D=00000000000000 M=00000000000000 P=e S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00735439767709 B=10100000000000 C=09999999999006 D=00000000000000 M=00000000000000 P=e S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=00735439767709 B=10100000000000 C=09999999999006 D=00000000000000 M=00000000000000 P=d S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00735439767709 B=10100000000000 C=09999999999006 D=00000000000000 M=00000000000000 P=d S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00735439767709 B=10100000000000 C=09999999999006 D=00000000000000 M=00000000000000 P=d S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=00735439767709 B=10100000000000 C=69999999999006 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00735439767709 B=10100000000000 C=69999999999006 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00735439767709 B=10100000000000 C=69999999999006 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=00735439767709 B=10100000000000 C=66999999999006 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00735439767709 B=10100000000000 C=66999999999006 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00735439767709 B=10100000000000 C=66999999999006 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=00735439767709 B=10100000000000 C=66699999999006 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00735439767709 B=10100000000000 C=66699999999006 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00735439767709 B=10100000000000 C=66699999999006 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=00735439767709 B=10100000000000 C=66669999999006 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00735439767709 B=10100000000000 C=66669999999006 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00735439767709 B=10100000000000 C=66669999999006 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=00735439767709 B=10100000000000 C=66666999999006 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00735439767709 B=10100000000000 C=66666999999006 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00735439767709 B=10100000000000 C=66666999999006 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=00735439767709 B=10100000000000 C=66666699999006 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00735439767709 B=10100000000000 C=66666699999006 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00735439767709 B=10100000000000 C=66666699999006 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=00735439767709 B=10100000000000 C=66666669999006 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00735439767709 B=10100000000000 C=66666669999006 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00735439767709 B=10100000000000 C=66666669999006 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=00735439767709 B=10100000000000 C=66666666999006 D=00000000000000 M=00000000000000 P=5 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00735439767709 B=10100000000000 C=66666666999006 D=00000000000000 M=00000000000000 P=5 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00735439767709 B=10100000000000 C=66666666999006 D=00000000000000 M=00000000000000 P=5 S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=00735439767709 B=10100000000000 C=66666666699006 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00735439767709 B=10100000000000 C=66666666699006 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00735439767709 B=10100000000000 C=66666666699006 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=00735439767709 B=10100000000000 C=66666666669006 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00735439767709 B=10100000000000 C=66666666669006 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00735439767709 B=10100000000000 C=66666666669006 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=00735439767709 B=10100000000000 C=66666666666006 D=00000000000000 M=00000000000000 P=2 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00735439767709 B=10100000000000 C=66666666666006 D=00000000000000 M=00000000000000 P=2 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00735439767709 B=10100000000000 C=66666666666006 D=00000000000000 M=00000000000000 P=2 S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=00735439767709 B=10100000000000 C=66666666666606 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=00735439767709 B=10100000000000 C=66666666666606 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00735439767709 B=10100000000000 C=66666666666606 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02170: 1..1..111. shift right c[w] A=00735439767709 B=10100000000000 C=06666666666660 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02171: 1..1..111. pqo24: shift right c[w] A=00735439767709 B=10100000000000 C=00666666666666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02172: ..1..1.1.. nrm26: if s2 = 0 A=00735439767709 B=10100000000000 C=00666666666666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02173: 1..1.1..11 -> 02224 then go to rtn21 A=00735439767709 B=10100000000000 C=00666666666666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02224: ..1..1.... -> 01225 rtn21: select rom 1 ; -> rtn11 A=00735439767709 B=10100000000000 C=00666666666666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 01225: ...1.1.1.. rtn11: if s1 = 0 A=00735439767709 B=10100000000000 C=00666666666666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 01226: 11.11.1.11 -> 01332 then go to rtn12 A=00735439767709 B=10100000000000 C=00666666666666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 01227: ....11.... return A=00735439767709 B=10100000000000 C=00666666666666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 01140: 11..11...1 -> 01314 jsb atc1 load last cst tan-1(1) = pi/4 A=00735439767709 B=10100000000000 C=00666666666666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 01314: ..11..111. atc1: 0 -> c[w] A=00735439767709 B=10100000000000 C=00000000000000 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 01315: 1.11..11.. 11 -> p A=00735439767709 B=10100000000000 C=00000000000000 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 01316: .111.11... load constant 7 ; load pi/4 A=00735439767709 B=10100000000000 C=00700000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 01317: 1....11... load constant 8 A=00735439767709 B=10100000000000 C=00780000000000 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 01320: .1.1.11... load constant 5 A=00735439767709 B=10100000000000 C=00785000000000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 01321: ..11.11... load constant 3 A=00735439767709 B=10100000000000 C=00785300000000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 01322: 1..1.11... load constant 9 A=00735439767709 B=10100000000000 C=00785390000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 01323: 1....11... load constant 8 A=00735439767709 B=10100000000000 C=00785398000000 D=00000000000000 M=00000000000000 P=5 S=01.....78.ab 01324: ...1.11... load constant 1 A=00735439767709 B=10100000000000 C=00785398100000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 01325: .11..11... load constant 6 A=00735439767709 B=10100000000000 C=00785398160000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 01326: ..11.11... load constant 3 A=00735439767709 B=10100000000000 C=00785398163000 D=00000000000000 M=00000000000000 P=2 S=01.....78.ab 01327: .1.1.11... load constant 5 A=00735439767709 B=10100000000000 C=00785398163500 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 01330: 11....11.. 12 -> p A=00735439767709 B=10100000000000 C=00785398163500 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01331: ....11.... return A=00735439767709 B=10100000000000 C=00785398163500 D=00000000000000 M=00000000000000 P=c S=01.....78.ab done 01141: .1....111. shift left a[w] A=07354397677090 B=10100000000000 C=00785398163500 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01142: 1..11.11.1 -> 01233 jsb pmu11 A=07354397677090 B=10100000000000 C=00785398163500 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01233: .1...1.... -> 02234 pmu11: select rom 2 ; -> pmu21 A=07354397677090 B=10100000000000 C=00785398163500 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02234: 1.11..111. pmu21: shift right a[w] A=00735439767709 B=10100000000000 C=00785398163500 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02235: 1...1.111. pmu22: b exchange c[w] A=00735439767709 B=00785398163500 C=10100000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02236: 1.1.....11 -> 02240 go to pmu24 A=00735439767709 B=00785398163500 C=10100000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02240: .1.111111. pmu24: c - 1 -> c[s] A=00735439767709 B=00785398163500 C=00100000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02241: 1..1111111 -> 02237 if no carry go to pmu23 A=00735439767709 B=00785398163500 C=00100000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02237: 111...111. pmu23: a + b -> a[w] First and last pm with new cst A=01520837931209 B=00785398163500 C=00100000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab angle radian =1.520837931209 02240: .1.111111. pmu24: c - 1 -> c[s] A=01520837931209 B=00785398163500 C=90100000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02241: 1..1111111 -> 02237 if no carry go to pmu23 KO A=01520837931209 B=00785398163500 C=90100000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02242: 111.1.111. a exchange c[w] A=90100000000000 B=00785398163500 C=01520837931209 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02243: .1...1.11. shift left a[ms] A=01000000000000 B=00785398163500 C=01520837931209 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02244: 111.1.111. a exchange c[w] A=01520837931209 B=00785398163500 C=01000000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02245: .11.11.111 -> 02155 go to pqo23 A=01520837931209 B=00785398163500 C=01000000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02155: 1...1.111. pqo23: b exchange c[w] A=01520837931209 B=01000000000000 C=00785398163500 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02156: ..11..111. 0 -> c[w] A=01520837931209 B=01000000000000 C=00000000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02157: .1.11..11. c - 1 -> c[m] A=01520837931209 B=01000000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02160: ..1..1.1.. if s2 = 0 A=01520837931209 B=01000000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02161: .111.11.11 -> 02166 then go to pqo28 A=01520837931209 B=01000000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=01520837931209 B=01000000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=01520837931209 B=01000000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=01520837931209 B=01000000000000 C=06999999999000 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=01520837931209 B=01000000000000 C=06999999999000 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=01520837931209 B=01000000000000 C=06999999999000 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=01520837931209 B=01000000000000 C=06699999999000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=01520837931209 B=01000000000000 C=06699999999000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=01520837931209 B=01000000000000 C=06699999999000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=01520837931209 B=01000000000000 C=06669999999000 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=01520837931209 B=01000000000000 C=06669999999000 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=01520837931209 B=01000000000000 C=06669999999000 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=01520837931209 B=01000000000000 C=06666999999000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=01520837931209 B=01000000000000 C=06666999999000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=01520837931209 B=01000000000000 C=06666999999000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=01520837931209 B=01000000000000 C=06666699999000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=01520837931209 B=01000000000000 C=06666699999000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=01520837931209 B=01000000000000 C=06666699999000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=01520837931209 B=01000000000000 C=06666669999000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=01520837931209 B=01000000000000 C=06666669999000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=01520837931209 B=01000000000000 C=06666669999000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=01520837931209 B=01000000000000 C=06666666999000 D=00000000000000 M=00000000000000 P=5 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=01520837931209 B=01000000000000 C=06666666999000 D=00000000000000 M=00000000000000 P=5 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=01520837931209 B=01000000000000 C=06666666999000 D=00000000000000 M=00000000000000 P=5 S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=01520837931209 B=01000000000000 C=06666666699000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=01520837931209 B=01000000000000 C=06666666699000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=01520837931209 B=01000000000000 C=06666666699000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=01520837931209 B=01000000000000 C=06666666669000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=01520837931209 B=01000000000000 C=06666666669000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=01520837931209 B=01000000000000 C=06666666669000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=01520837931209 B=01000000000000 C=06666666666000 D=00000000000000 M=00000000000000 P=2 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=01520837931209 B=01000000000000 C=06666666666000 D=00000000000000 M=00000000000000 P=2 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=01520837931209 B=01000000000000 C=06666666666000 D=00000000000000 M=00000000000000 P=2 S=01.....78.ab 02165: .11..11... pqo27: load constant 6 A=01520837931209 B=01000000000000 C=06666666666600 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02166: ...11.11.. pqo28: if p # 1 A=01520837931209 B=01000000000000 C=06666666666600 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=01520837931209 B=01000000000000 C=06666666666600 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02170: 1..1..111. shift right c[w] A=01520837931209 B=01000000000000 C=00666666666660 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02171: 1..1..111. pqo24: shift right c[w] A=01520837931209 B=01000000000000 C=00066666666666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02172: ..1..1.1.. nrm26: if s2 = 0 A=01520837931209 B=01000000000000 C=00066666666666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02173: 1..1.1..11 -> 02224 then go to rtn21 A=01520837931209 B=01000000000000 C=00066666666666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02224: ..1..1.... -> 01225 rtn21: select rom 1 ; -> rtn11 A=01520837931209 B=01000000000000 C=00066666666666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 01225: ...1.1.1.. rtn11: if s1 = 0 A=01520837931209 B=01000000000000 C=00066666666666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 01226: 11.11.1.11 -> 01332 then go to rtn12 A=01520837931209 B=01000000000000 C=00066666666666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 01227: ....11.... return A=01520837931209 B=01000000000000 C=00066666666666 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab result is in A 01143: ..1...111. b -> c[w] A=01520837931209 B=01000000000000 C=01000000000000 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 01144: 11..1.11.1 -> 01313 jsb add15 A=01520837931209 B=01000000000000 C=01000000000000 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 01313: .1...1.... -> 02314 add15: select rom 2 ; -> nrm21 A=01520837931209 B=01000000000000 C=01000000000000 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02314: 1.1111111. nrm21: 0 -> a[s] A=01520837931209 B=01000000000000 C=01000000000000 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 02315: 11....11.. 12 -> p A=01520837931209 B=01000000000000 C=01000000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02316: ....1.111. 0 -> b[w] A=01520837931209 B=00000000000000 C=01000000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02317: 1..11...1. nrm23: if a[p] >= 1 A=01520837931209 B=00000000000000 C=01000000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02320: 11.1.11.11 -> 02326 then go to nrm24 A=01520837931209 B=00000000000000 C=01000000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02326: .1..1.1.1. nrm24: a -> b[x] A=01520837931209 B=00000000000209 C=01000000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02327: 111...111. a + b -> a[w] A=01520837931418 B=00000000000209 C=01000000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02330: 1..111111. if a[s] >= 1 A=01520837931418 B=00000000000209 C=01000000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02331: 11...11111 -> 02307 then go to mpy28 A=01520837931418 B=00000000000209 C=01000000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02332: 111.1..11. a exchange c[m] A=01000000000418 B=00000000000209 C=01520837931000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02333: .11...111. c -> a[w] A=01520837931000 B=00000000000209 C=01520837931000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02334: ....1.111. 0 -> b[w] A=01520837931000 B=00000000000000 C=01520837931000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02335: 11....11.. nrm27: 12 -> p A=01520837931000 B=00000000000000 C=01520837931000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02336: .1111.1.11 -> 02172 go to nrm26 A=01520837931000 B=00000000000000 C=01520837931000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02172: ..1..1.1.. nrm26: if s2 = 0 A=01520837931000 B=00000000000000 C=01520837931000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02173: 1..1.1..11 -> 02224 then go to rtn21 A=01520837931000 B=00000000000000 C=01520837931000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02224: ..1..1.... -> 01225 rtn21: select rom 1 ; -> rtn11 A=01520837931000 B=00000000000000 C=01520837931000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01225: ...1.1.1.. rtn11: if s1 = 0 A=01520837931000 B=00000000000000 C=01520837931000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01226: 11.11.1.11 -> 01332 then go to rtn12 A=01520837931000 B=00000000000000 C=01520837931000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01227: ....11.... return A=01520837931000 B=00000000000000 C=01520837931000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab [BP5] result (the angle) in A normalized A= 1.520837931 10^0 01145: 11..11...1 -> 01314 jsb atc1 load pi/4 in C A=01520837931000 B=00000000000000 C=01520837931000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01314: ..11..111. atc1: 0 -> c[w] A=01520837931000 B=00000000000000 C=00000000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01315: 1.11..11.. 11 -> p A=01520837931000 B=00000000000000 C=00000000000000 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 01316: .111.11... load constant 7 ; load pi/4 A=01520837931000 B=00000000000000 C=00700000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 01317: 1....11... load constant 8 A=01520837931000 B=00000000000000 C=00780000000000 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 01320: .1.1.11... load constant 5 A=01520837931000 B=00000000000000 C=00785000000000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 01321: ..11.11... load constant 3 A=01520837931000 B=00000000000000 C=00785300000000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 01322: 1..1.11... load constant 9 A=01520837931000 B=00000000000000 C=00785390000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 01323: 1....11... load constant 8 A=01520837931000 B=00000000000000 C=00785398000000 D=00000000000000 M=00000000000000 P=5 S=01.....78.ab 01324: ...1.11... load constant 1 A=01520837931000 B=00000000000000 C=00785398100000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 01325: .11..11... load constant 6 A=01520837931000 B=00000000000000 C=00785398160000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 01326: ..11.11... load constant 3 A=01520837931000 B=00000000000000 C=00785398163000 D=00000000000000 M=00000000000000 P=2 S=01.....78.ab 01327: .1.1.11... load constant 5 A=01520837931000 B=00000000000000 C=00785398163500 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 01330: 11....11.. 12 -> p A=01520837931000 B=00000000000000 C=00785398163500 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01331: ....11.... return A=01520837931000 B=00000000000000 C=00785398163500 D=00000000000000 M=00000000000000 P=c S=01.....78.ab done 01146: 1.1.1.111. c + c -> c[w] double it = pi/2 A=01520837931000 B=00000000000000 C=01570796327000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab [BP6] 01147: 1.1..11..1 -> 01246 jsb div11 divide A by pi/2 A=01520837931000 B=00000000000000 C=01570796327000 to have in A the angle in radians D=00000000000000 M=00000000000000 P=c S=01.....78.ab division by pi/2 will start conversion 01246: .1.1..1.1. div11: a - c -> c[x] A=01520837931000 B=00000000000000 C=01570796327000 angle degree = angle rad * 180 D=00000000000000 M=00000000000000 P=c S=01.....78.ab --------------- 01247: .1...1.... -> 02250 select rom 2 ; -> l02250 pi A=01520837931000 B=00000000000000 C=01570796327000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab so we'll have to mult by 90 02250: .1.1.1111. a - c -> c[s] A=01520837931000 B=00000000000000 C=01570796327000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02251: 1.1.1.1111 -> 02253 if no carry go to div22 A=01520837931000 B=00000000000000 C=01570796327000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02253: 11..1..11. div22: a exchange b[m] A=00000000000000 B=01520837931000 C=01570796327000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02254: 1.111.111. 0 -> a[w] A=00000000000000 B=01520837931000 C=01570796327000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02255: 11..1.11.. if p # 12 A=00000000000000 B=01520837931000 C=01570796327000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02256: 11...1.111 -> 02305 then go to mpy27 A=00000000000000 B=01520837931000 C=01570796327000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02257: ...11..11. if c[m] >= 1 A=00000000000000 B=01520837931000 C=01570796327000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02260: 1.11.11.11 -> 02266 then go to div23 A=00000000000000 B=01520837931000 C=01570796327000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02266: 1...11..1. div23: b exchange c[wp] A=00000000000000 B=01570796327000 C=01520837931000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02267: 111.1..11. a exchange c[m] A=01520837931000 B=01570796327000 C=00000000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02270: ..1..1.... -> 01271 select rom 1 ; -> l01271 A=01520837931000 B=01570796327000 C=00000000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01271: 1.11..1111 -> 01263 then go to div15 A=01520837931000 B=01570796327000 C=00000000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=99950041604000 B=01570796327000 C=00000000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=99950041604000 B=01570796327000 C=00000000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01265: 111..1.11. a + b -> a[ms] A=01520837931000 B=01570796327000 C=00000000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01266: .1...1.11. shift left a[ms] A=15208379310000 B=01570796327000 C=00000000000000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01267: .....111.. p - 1 -> p A=15208379310000 B=01570796327000 C=00000000000000 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 01270: ....1.11.. if p # 0 A=15208379310000 B=01570796327000 C=00000000000000 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 01271: 1.11..1111 -> 01263 then go to div15 A=15208379310000 B=01570796327000 C=00000000000000 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=13637582983000 B=01570796327000 C=00000000000000 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=13637582983000 B=01570796327000 C=00000000000000 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=13637582983000 B=01570796327000 C=00100000000000 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=12066786656000 B=01570796327000 C=00100000000000 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=12066786656000 B=01570796327000 C=00100000000000 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=12066786656000 B=01570796327000 C=00200000000000 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=10495990329000 B=01570796327000 C=00200000000000 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=10495990329000 B=01570796327000 C=00200000000000 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=10495990329000 B=01570796327000 C=00300000000000 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=08925194002000 B=01570796327000 C=00300000000000 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=08925194002000 B=01570796327000 C=00300000000000 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=08925194002000 B=01570796327000 C=00400000000000 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=07354397675000 B=01570796327000 C=00400000000000 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=07354397675000 B=01570796327000 C=00400000000000 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=07354397675000 B=01570796327000 C=00500000000000 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=05783601348000 B=01570796327000 C=00500000000000 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=05783601348000 B=01570796327000 C=00500000000000 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=05783601348000 B=01570796327000 C=00600000000000 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=04212805021000 B=01570796327000 C=00600000000000 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=04212805021000 B=01570796327000 C=00600000000000 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=04212805021000 B=01570796327000 C=00700000000000 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=02642008694000 B=01570796327000 C=00700000000000 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=02642008694000 B=01570796327000 C=00700000000000 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=02642008694000 B=01570796327000 C=00800000000000 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=01071212367000 B=01570796327000 C=00800000000000 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=01071212367000 B=01570796327000 C=00800000000000 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=01071212367000 B=01570796327000 C=00900000000000 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=99500416040000 B=01570796327000 C=00900000000000 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=99500416040000 B=01570796327000 C=00900000000000 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 01265: 111..1.11. a + b -> a[ms] A=01071212367000 B=01570796327000 C=00900000000000 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 01266: .1...1.11. shift left a[ms] A=10712123670000 B=01570796327000 C=00900000000000 D=00000000000000 M=00000000000000 P=b S=01.....78.ab 01267: .....111.. p - 1 -> p A=10712123670000 B=01570796327000 C=00900000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 01270: ....1.11.. if p # 0 A=10712123670000 B=01570796327000 C=00900000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 01271: 1.11..1111 -> 01263 then go to div15 A=10712123670000 B=01570796327000 C=00900000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=09141327343000 B=01570796327000 C=00900000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=09141327343000 B=01570796327000 C=00900000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=09141327343000 B=01570796327000 C=00910000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=07570531016000 B=01570796327000 C=00910000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=07570531016000 B=01570796327000 C=00910000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=07570531016000 B=01570796327000 C=00920000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=05999734689000 B=01570796327000 C=00920000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=05999734689000 B=01570796327000 C=00920000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=05999734689000 B=01570796327000 C=00930000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=04428938362000 B=01570796327000 C=00930000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=04428938362000 B=01570796327000 C=00930000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=04428938362000 B=01570796327000 C=00940000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=02858142035000 B=01570796327000 C=00940000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=02858142035000 B=01570796327000 C=00940000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=02858142035000 B=01570796327000 C=00950000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=01287345708000 B=01570796327000 C=00950000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=01287345708000 B=01570796327000 C=00950000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=01287345708000 B=01570796327000 C=00960000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=99716549381000 B=01570796327000 C=00960000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=99716549381000 B=01570796327000 C=00960000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 01265: 111..1.11. a + b -> a[ms] A=01287345708000 B=01570796327000 C=00960000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 01266: .1...1.11. shift left a[ms] A=12873457080000 B=01570796327000 C=00960000000000 D=00000000000000 M=00000000000000 P=a S=01.....78.ab 01267: .....111.. p - 1 -> p A=12873457080000 B=01570796327000 C=00960000000000 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 01270: ....1.11.. if p # 0 A=12873457080000 B=01570796327000 C=00960000000000 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 01271: 1.11..1111 -> 01263 then go to div15 A=12873457080000 B=01570796327000 C=00960000000000 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=11302660753000 B=01570796327000 C=00960000000000 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=11302660753000 B=01570796327000 C=00960000000000 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=11302660753000 B=01570796327000 C=00961000000000 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=09731864426000 B=01570796327000 C=00961000000000 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=09731864426000 B=01570796327000 C=00961000000000 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=09731864426000 B=01570796327000 C=00962000000000 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=08161068099000 B=01570796327000 C=00962000000000 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=08161068099000 B=01570796327000 C=00962000000000 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=08161068099000 B=01570796327000 C=00963000000000 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=06590271772000 B=01570796327000 C=00963000000000 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=06590271772000 B=01570796327000 C=00963000000000 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=06590271772000 B=01570796327000 C=00964000000000 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=05019475445000 B=01570796327000 C=00964000000000 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=05019475445000 B=01570796327000 C=00964000000000 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=05019475445000 B=01570796327000 C=00965000000000 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=03448679118000 B=01570796327000 C=00965000000000 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=03448679118000 B=01570796327000 C=00965000000000 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=03448679118000 B=01570796327000 C=00966000000000 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=01877882791000 B=01570796327000 C=00966000000000 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=01877882791000 B=01570796327000 C=00966000000000 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=01877882791000 B=01570796327000 C=00967000000000 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00307086464000 B=01570796327000 C=00967000000000 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00307086464000 B=01570796327000 C=00967000000000 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00307086464000 B=01570796327000 C=00968000000000 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=98736290137000 B=01570796327000 C=00968000000000 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=98736290137000 B=01570796327000 C=00968000000000 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 01265: 111..1.11. a + b -> a[ms] A=00307086464000 B=01570796327000 C=00968000000000 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 01266: .1...1.11. shift left a[ms] A=03070864640000 B=01570796327000 C=00968000000000 D=00000000000000 M=00000000000000 P=9 S=01.....78.ab 01267: .....111.. p - 1 -> p A=03070864640000 B=01570796327000 C=00968000000000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 01270: ....1.11.. if p # 0 A=03070864640000 B=01570796327000 C=00968000000000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 01271: 1.11..1111 -> 01263 then go to div15 A=03070864640000 B=01570796327000 C=00968000000000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=01500068313000 B=01570796327000 C=00968000000000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=01500068313000 B=01570796327000 C=00968000000000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=01500068313000 B=01570796327000 C=00968100000000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=99929271986000 B=01570796327000 C=00968100000000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=99929271986000 B=01570796327000 C=00968100000000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 01265: 111..1.11. a + b -> a[ms] A=01500068313000 B=01570796327000 C=00968100000000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 01266: .1...1.11. shift left a[ms] A=15000683130000 B=01570796327000 C=00968100000000 D=00000000000000 M=00000000000000 P=8 S=01.....78.ab 01267: .....111.. p - 1 -> p A=15000683130000 B=01570796327000 C=00968100000000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 01270: ....1.11.. if p # 0 A=15000683130000 B=01570796327000 C=00968100000000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 01271: 1.11..1111 -> 01263 then go to div15 A=15000683130000 B=01570796327000 C=00968100000000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=13429886803000 B=01570796327000 C=00968100000000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=13429886803000 B=01570796327000 C=00968100000000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=13429886803000 B=01570796327000 C=00968110000000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=11859090476000 B=01570796327000 C=00968110000000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=11859090476000 B=01570796327000 C=00968110000000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=11859090476000 B=01570796327000 C=00968120000000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=10288294149000 B=01570796327000 C=00968120000000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=10288294149000 B=01570796327000 C=00968120000000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=10288294149000 B=01570796327000 C=00968130000000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=08717497822000 B=01570796327000 C=00968130000000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=08717497822000 B=01570796327000 C=00968130000000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=08717497822000 B=01570796327000 C=00968140000000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=07146701495000 B=01570796327000 C=00968140000000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=07146701495000 B=01570796327000 C=00968140000000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=07146701495000 B=01570796327000 C=00968150000000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=05575905168000 B=01570796327000 C=00968150000000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=05575905168000 B=01570796327000 C=00968150000000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=05575905168000 B=01570796327000 C=00968160000000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=04005108841000 B=01570796327000 C=00968160000000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=04005108841000 B=01570796327000 C=00968160000000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=04005108841000 B=01570796327000 C=00968170000000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=02434312514000 B=01570796327000 C=00968170000000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=02434312514000 B=01570796327000 C=00968170000000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=02434312514000 B=01570796327000 C=00968180000000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00863516187000 B=01570796327000 C=00968180000000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00863516187000 B=01570796327000 C=00968180000000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00863516187000 B=01570796327000 C=00968190000000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=99292719860000 B=01570796327000 C=00968190000000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=99292719860000 B=01570796327000 C=00968190000000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 01265: 111..1.11. a + b -> a[ms] A=00863516187000 B=01570796327000 C=00968190000000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 01266: .1...1.11. shift left a[ms] A=08635161870000 B=01570796327000 C=00968190000000 D=00000000000000 M=00000000000000 P=7 S=01.....78.ab 01267: .....111.. p - 1 -> p A=08635161870000 B=01570796327000 C=00968190000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 01270: ....1.11.. if p # 0 A=08635161870000 B=01570796327000 C=00968190000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 01271: 1.11..1111 -> 01263 then go to div15 A=08635161870000 B=01570796327000 C=00968190000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=07064365543000 B=01570796327000 C=00968190000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=07064365543000 B=01570796327000 C=00968190000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=07064365543000 B=01570796327000 C=00968191000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=05493569216000 B=01570796327000 C=00968191000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=05493569216000 B=01570796327000 C=00968191000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=05493569216000 B=01570796327000 C=00968192000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=03922772889000 B=01570796327000 C=00968192000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=03922772889000 B=01570796327000 C=00968192000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=03922772889000 B=01570796327000 C=00968193000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=02351976562000 B=01570796327000 C=00968193000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=02351976562000 B=01570796327000 C=00968193000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=02351976562000 B=01570796327000 C=00968194000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00781180235000 B=01570796327000 C=00968194000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00781180235000 B=01570796327000 C=00968194000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00781180235000 B=01570796327000 C=00968195000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=99210383908000 B=01570796327000 C=00968195000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=99210383908000 B=01570796327000 C=00968195000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 01265: 111..1.11. a + b -> a[ms] A=00781180235000 B=01570796327000 C=00968195000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 01266: .1...1.11. shift left a[ms] A=07811802350000 B=01570796327000 C=00968195000000 D=00000000000000 M=00000000000000 P=6 S=01.....78.ab 01267: .....111.. p - 1 -> p A=07811802350000 B=01570796327000 C=00968195000000 D=00000000000000 M=00000000000000 P=5 S=01.....78.ab 01270: ....1.11.. if p # 0 A=07811802350000 B=01570796327000 C=00968195000000 D=00000000000000 M=00000000000000 P=5 S=01.....78.ab 01271: 1.11..1111 -> 01263 then go to div15 A=07811802350000 B=01570796327000 C=00968195000000 D=00000000000000 M=00000000000000 P=5 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=06241006023000 B=01570796327000 C=00968195000000 D=00000000000000 M=00000000000000 P=5 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=06241006023000 B=01570796327000 C=00968195000000 D=00000000000000 M=00000000000000 P=5 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=06241006023000 B=01570796327000 C=00968195100000 D=00000000000000 M=00000000000000 P=5 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=04670209696000 B=01570796327000 C=00968195100000 D=00000000000000 M=00000000000000 P=5 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=04670209696000 B=01570796327000 C=00968195100000 D=00000000000000 M=00000000000000 P=5 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=04670209696000 B=01570796327000 C=00968195200000 D=00000000000000 M=00000000000000 P=5 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=03099413369000 B=01570796327000 C=00968195200000 D=00000000000000 M=00000000000000 P=5 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=03099413369000 B=01570796327000 C=00968195200000 D=00000000000000 M=00000000000000 P=5 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=03099413369000 B=01570796327000 C=00968195300000 D=00000000000000 M=00000000000000 P=5 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=01528617042000 B=01570796327000 C=00968195300000 D=00000000000000 M=00000000000000 P=5 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=01528617042000 B=01570796327000 C=00968195300000 D=00000000000000 M=00000000000000 P=5 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=01528617042000 B=01570796327000 C=00968195400000 D=00000000000000 M=00000000000000 P=5 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=99957820715000 B=01570796327000 C=00968195400000 D=00000000000000 M=00000000000000 P=5 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=99957820715000 B=01570796327000 C=00968195400000 D=00000000000000 M=00000000000000 P=5 S=01.....78.ab 01265: 111..1.11. a + b -> a[ms] A=01528617042000 B=01570796327000 C=00968195400000 D=00000000000000 M=00000000000000 P=5 S=01.....78.ab 01266: .1...1.11. shift left a[ms] A=15286170420000 B=01570796327000 C=00968195400000 D=00000000000000 M=00000000000000 P=5 S=01.....78.ab 01267: .....111.. p - 1 -> p A=15286170420000 B=01570796327000 C=00968195400000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 01270: ....1.11.. if p # 0 A=15286170420000 B=01570796327000 C=00968195400000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 01271: 1.11..1111 -> 01263 then go to div15 A=15286170420000 B=01570796327000 C=00968195400000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=13715374093000 B=01570796327000 C=00968195400000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=13715374093000 B=01570796327000 C=00968195400000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=13715374093000 B=01570796327000 C=00968195410000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=12144577766000 B=01570796327000 C=00968195410000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=12144577766000 B=01570796327000 C=00968195410000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=12144577766000 B=01570796327000 C=00968195420000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=10573781439000 B=01570796327000 C=00968195420000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=10573781439000 B=01570796327000 C=00968195420000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=10573781439000 B=01570796327000 C=00968195430000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=09002985112000 B=01570796327000 C=00968195430000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=09002985112000 B=01570796327000 C=00968195430000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=09002985112000 B=01570796327000 C=00968195440000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=07432188785000 B=01570796327000 C=00968195440000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=07432188785000 B=01570796327000 C=00968195440000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=07432188785000 B=01570796327000 C=00968195450000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=05861392458000 B=01570796327000 C=00968195450000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=05861392458000 B=01570796327000 C=00968195450000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=05861392458000 B=01570796327000 C=00968195460000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=04290596131000 B=01570796327000 C=00968195460000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=04290596131000 B=01570796327000 C=00968195460000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=04290596131000 B=01570796327000 C=00968195470000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=02719799804000 B=01570796327000 C=00968195470000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=02719799804000 B=01570796327000 C=00968195470000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=02719799804000 B=01570796327000 C=00968195480000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=01149003477000 B=01570796327000 C=00968195480000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=01149003477000 B=01570796327000 C=00968195480000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=01149003477000 B=01570796327000 C=00968195490000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=99578207150000 B=01570796327000 C=00968195490000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=99578207150000 B=01570796327000 C=00968195490000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 01265: 111..1.11. a + b -> a[ms] A=01149003477000 B=01570796327000 C=00968195490000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 01266: .1...1.11. shift left a[ms] A=11490034770000 B=01570796327000 C=00968195490000 D=00000000000000 M=00000000000000 P=4 S=01.....78.ab 01267: .....111.. p - 1 -> p A=11490034770000 B=01570796327000 C=00968195490000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 01270: ....1.11.. if p # 0 A=11490034770000 B=01570796327000 C=00968195490000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 01271: 1.11..1111 -> 01263 then go to div15 A=11490034770000 B=01570796327000 C=00968195490000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=09919238443000 B=01570796327000 C=00968195490000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=09919238443000 B=01570796327000 C=00968195490000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=09919238443000 B=01570796327000 C=00968195491000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=08348442116000 B=01570796327000 C=00968195491000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=08348442116000 B=01570796327000 C=00968195491000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=08348442116000 B=01570796327000 C=00968195492000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=06777645789000 B=01570796327000 C=00968195492000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=06777645789000 B=01570796327000 C=00968195492000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=06777645789000 B=01570796327000 C=00968195493000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=05206849462000 B=01570796327000 C=00968195493000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=05206849462000 B=01570796327000 C=00968195493000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=05206849462000 B=01570796327000 C=00968195494000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=03636053135000 B=01570796327000 C=00968195494000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=03636053135000 B=01570796327000 C=00968195494000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=03636053135000 B=01570796327000 C=00968195495000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=02065256808000 B=01570796327000 C=00968195495000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=02065256808000 B=01570796327000 C=00968195495000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=02065256808000 B=01570796327000 C=00968195496000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00494460481000 B=01570796327000 C=00968195496000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00494460481000 B=01570796327000 C=00968195496000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00494460481000 B=01570796327000 C=00968195497000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=98923664154000 B=01570796327000 C=00968195497000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=98923664154000 B=01570796327000 C=00968195497000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 01265: 111..1.11. a + b -> a[ms] A=00494460481000 B=01570796327000 C=00968195497000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 01266: .1...1.11. shift left a[ms] A=04944604810000 B=01570796327000 C=00968195497000 D=00000000000000 M=00000000000000 P=3 S=01.....78.ab 01267: .....111.. p - 1 -> p A=04944604810000 B=01570796327000 C=00968195497000 D=00000000000000 M=00000000000000 P=2 S=01.....78.ab 01270: ....1.11.. if p # 0 A=04944604810000 B=01570796327000 C=00968195497000 D=00000000000000 M=00000000000000 P=2 S=01.....78.ab 01271: 1.11..1111 -> 01263 then go to div15 A=04944604810000 B=01570796327000 C=00968195497000 D=00000000000000 M=00000000000000 P=2 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=03373808483000 B=01570796327000 C=00968195497000 D=00000000000000 M=00000000000000 P=2 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=03373808483000 B=01570796327000 C=00968195497000 D=00000000000000 M=00000000000000 P=2 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=03373808483000 B=01570796327000 C=00968195497100 D=00000000000000 M=00000000000000 P=2 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=01803012156000 B=01570796327000 C=00968195497100 D=00000000000000 M=00000000000000 P=2 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=01803012156000 B=01570796327000 C=00968195497100 D=00000000000000 M=00000000000000 P=2 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=01803012156000 B=01570796327000 C=00968195497200 D=00000000000000 M=00000000000000 P=2 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00232215829000 B=01570796327000 C=00968195497200 D=00000000000000 M=00000000000000 P=2 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00232215829000 B=01570796327000 C=00968195497200 D=00000000000000 M=00000000000000 P=2 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00232215829000 B=01570796327000 C=00968195497300 D=00000000000000 M=00000000000000 P=2 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=98661419502000 B=01570796327000 C=00968195497300 D=00000000000000 M=00000000000000 P=2 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=98661419502000 B=01570796327000 C=00968195497300 D=00000000000000 M=00000000000000 P=2 S=01.....78.ab 01265: 111..1.11. a + b -> a[ms] A=00232215829000 B=01570796327000 C=00968195497300 D=00000000000000 M=00000000000000 P=2 S=01.....78.ab 01266: .1...1.11. shift left a[ms] A=02322158290000 B=01570796327000 C=00968195497300 D=00000000000000 M=00000000000000 P=2 S=01.....78.ab 01267: .....111.. p - 1 -> p A=02322158290000 B=01570796327000 C=00968195497300 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 01270: ....1.11.. if p # 0 A=02322158290000 B=01570796327000 C=00968195497300 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 01271: 1.11..1111 -> 01263 then go to div15 A=02322158290000 B=01570796327000 C=00968195497300 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00751361963000 B=01570796327000 C=00968195497300 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00751361963000 B=01570796327000 C=00968195497300 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00751361963000 B=01570796327000 C=00968195497310 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 01263: 11...1.11. div15: a - b -> a[ms] A=99180565636000 B=01570796327000 C=00968195497310 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=99180565636000 B=01570796327000 C=00968195497310 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 01265: 111..1.11. a + b -> a[ms] A=00751361963000 B=01570796327000 C=00968195497310 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 01266: .1...1.11. shift left a[ms] A=07513619630000 B=01570796327000 C=00968195497310 D=00000000000000 M=00000000000000 P=1 S=01.....78.ab 01267: .....111.. p - 1 -> p A=07513619630000 B=01570796327000 C=00968195497310 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 01270: ....1.11.. if p # 0 A=07513619630000 B=01570796327000 C=00968195497310 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 01271: 1.11..1111 -> 01263 then go to div15 A=07513619630000 B=01570796327000 C=00968195497310 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 01272: ..1.11.111 -> 01055 go to tnm12 A=07513619630000 B=01570796327000 C=00968195497310 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 01055: .11...111. tnm12: c -> a[w] A=00968195497310 B=01570796327000 C=00968195497310 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 01056: ..1...1.1. b -> c[x] A=00968195497310 B=01570796327000 C=00968195497000 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 01057: 11..1.1111 -> 01313 go to add15 A=00968195497310 B=01570796327000 C=00968195497000 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab division is done go normalized result = 0.968195497 (in degrees /90) 01313: .1...1.... -> 02314 add15: select rom 2 ; -> nrm21 A=00968195497310 B=01570796327000 C=00968195497000 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 02314: 1.1111111. nrm21: 0 -> a[s] A=00968195497310 B=01570796327000 C=00968195497000 D=00000000000000 M=00000000000000 P=0 S=01.....78.ab 02315: 11....11.. 12 -> p A=00968195497310 B=01570796327000 C=00968195497000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02316: ....1.111. 0 -> b[w] A=00968195497310 B=00000000000000 C=00968195497000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02317: 1..11...1. nrm23: if a[p] >= 1 A=00968195497310 B=00000000000000 C=00968195497000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02320: 11.1.11.11 -> 02326 then go to nrm24 A=00968195497310 B=00000000000000 C=00968195497000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02321: .1....111. shift left a[w] A=09681954973100 B=00000000000000 C=00968195497000 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02322: .1.11.1.1. c - 1 -> c[x] A=09681954973100 B=00000000000000 C=00968195497999 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02323: 1..11.111. if a[w] >= 1 A=09681954973100 B=00000000000000 C=00968195497999 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02324: 11..111111 -> 02317 then go to nrm23 A=09681954973100 B=00000000000000 C=00968195497999 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02317: 1..11...1. nrm23: if a[p] >= 1 A=09681954973100 B=00000000000000 C=00968195497999 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02320: 11.1.11.11 -> 02326 then go to nrm24 A=09681954973100 B=00000000000000 C=00968195497999 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02326: .1..1.1.1. nrm24: a -> b[x] A=09681954973100 B=00000000000100 C=00968195497999 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02327: 111...111. a + b -> a[w] A=09681954973200 B=00000000000100 C=00968195497999 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02330: 1..111111. if a[s] >= 1 A=09681954973200 B=00000000000100 C=00968195497999 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02331: 11...11111 -> 02307 then go to mpy28 A=09681954973200 B=00000000000100 C=00968195497999 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02332: 111.1..11. a exchange c[m] A=00968195497200 B=00000000000100 C=09681954973999 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02333: .11...111. c -> a[w] A=09681954973999 B=00000000000100 C=09681954973999 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02334: ....1.111. 0 -> b[w] A=09681954973999 B=00000000000000 C=09681954973999 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02335: 11....11.. nrm27: 12 -> p A=09681954973999 B=00000000000000 C=09681954973999 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02336: .1111.1.11 -> 02172 go to nrm26 A=09681954973999 B=00000000000000 C=09681954973999 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02172: ..1..1.1.. nrm26: if s2 = 0 A=09681954973999 B=00000000000000 C=09681954973999 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02173: 1..1.1..11 -> 02224 then go to rtn21 A=09681954973999 B=00000000000000 C=09681954973999 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 02224: ..1..1.... -> 01225 rtn21: select rom 1 ; -> rtn11 A=09681954973999 B=00000000000000 C=09681954973999 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01225: ...1.1.1.. rtn11: if s1 = 0 A=09681954973999 B=00000000000000 C=09681954973999 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01226: 11.11.1.11 -> 01332 then go to rtn12 A=09681954973999 B=00000000000000 C=09681954973999 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01227: ....11.... return A=09681954973999 B=00000000000000 C=09681954973999 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01150: 1..1.1.1.. if s9 = 0 A=09681954973999 B=00000000000000 C=09681954973999 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01151: .11.11..11 -> 01154 then go to l01154 A=09681954973999 B=00000000000000 C=09681954973999 D=00000000000000 M=00000000000000 P=c S=01.....78.ab 01154: ...11..1.. l01154: 0 -> s1 A=09681954973999 B=00000000000000 C=09681954973999 D=00000000000000 M=00000000000000 P=c S=0......78.ab 01155: ..11..111. l01155: 0 -> c[w] A=09681954973999 B=00000000000000 C=00000000000000 D=00000000000000 M=00000000000000 P=c S=0......78.ab 01156: .1.11...1. c - 1 -> c[p] A=09681954973999 B=00000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=0......78.ab 01157: .1111.1.1. c + 1 -> c[x] A=09681954973999 B=00000000000000 C=09000000000001 build number 90 in C D=00000000000000 M=00000000000000 P=c S=0......78.ab 01160: ...1.1.1.. if s1 = 0 A=09681954973999 B=00000000000000 C=09000000000001 D=00000000000000 M=00000000000000 P=c S=0......78.ab 01161: 1.1..1.111 -> 01245 then go to mpy11 A=09681954973999 B=00000000000000 C=09000000000001 D=00000000000000 M=00000000000000 P=c S=0......78.ab [BP7) multiply by 90 to have angle in degrees 01245: .1...1.... -> 02246 mpy11: select rom 2 ; -> mpy21 A=09681954973999 B=00000000000000 C=09000000000001 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02246: ..11..11.. mpy21: 3 -> p A=09681954973999 B=00000000000000 C=09000000000001 D=00000000000000 M=00000000000000 P=3 S=0......78.ab 02247: .111..1.1. mpy22: a + c -> c[x] A=09681954973999 B=00000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=3 S=0......78.ab 02250: .1.1.1111. a - c -> c[s] A=09681954973999 B=00000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=3 S=0......78.ab 02251: 1.1.1.1111 -> 02253 if no carry go to div22 A=09681954973999 B=00000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=3 S=0......78.ab 02253: 11..1..11. div22: a exchange b[m] A=00000000000999 B=09681954973000 C=09000000000000 D=00000000000000 M=00000000000000 P=3 S=0......78.ab 02254: 1.111.111. 0 -> a[w] A=00000000000000 B=09681954973000 C=09000000000000 D=00000000000000 M=00000000000000 P=3 S=0......78.ab 02255: 11..1.11.. if p # 12 A=00000000000000 B=09681954973000 C=09000000000000 D=00000000000000 M=00000000000000 P=3 S=0......78.ab 02256: 11...1.111 -> 02305 then go to mpy27 A=00000000000000 B=09681954973000 C=09000000000000 D=00000000000000 M=00000000000000 P=3 S=0......78.ab 02305: .1.11...1. mpy27: c - 1 -> c[p] A=00000000000000 B=09681954973000 C=09000000009000 D=00000000000000 M=00000000000000 P=3 S=0......78.ab 02306: 11...1..11 -> 02304 if no carry go to myp26 A=00000000000000 B=09681954973000 C=09000000009000 D=00000000000000 M=00000000000000 P=3 S=0......78.ab 02307: 1.11..111. mpy28: shift right a[w] A=00000000000000 B=09681954973000 C=09000000009000 D=00000000000000 M=00000000000000 P=3 S=0......78.ab 02310: ....1111.. p + 1 -> p A=00000000000000 B=09681954973000 C=09000000009000 D=00000000000000 M=00000000000000 P=4 S=0......78.ab 02311: 11.11.11.. if p # 13 A=00000000000000 B=09681954973000 C=09000000009000 D=00000000000000 M=00000000000000 P=4 S=0......78.ab 02312: 11...1.111 -> 02305 then go to mpy27 A=00000000000000 B=09681954973000 C=09000000009000 D=00000000000000 M=00000000000000 P=4 S=0......78.ab 02305: .1.11...1. mpy27: c - 1 -> c[p] A=00000000000000 B=09681954973000 C=09000000099000 D=00000000000000 M=00000000000000 P=4 S=0......78.ab 02306: 11...1..11 -> 02304 if no carry go to myp26 A=00000000000000 B=09681954973000 C=09000000099000 D=00000000000000 M=00000000000000 P=4 S=0......78.ab 02307: 1.11..111. mpy28: shift right a[w] A=00000000000000 B=09681954973000 C=09000000099000 D=00000000000000 M=00000000000000 P=4 S=0......78.ab 02310: ....1111.. p + 1 -> p A=00000000000000 B=09681954973000 C=09000000099000 D=00000000000000 M=00000000000000 P=5 S=0......78.ab 02311: 11.11.11.. if p # 13 A=00000000000000 B=09681954973000 C=09000000099000 D=00000000000000 M=00000000000000 P=5 S=0......78.ab 02312: 11...1.111 -> 02305 then go to mpy27 A=00000000000000 B=09681954973000 C=09000000099000 D=00000000000000 M=00000000000000 P=5 S=0......78.ab 02305: .1.11...1. mpy27: c - 1 -> c[p] A=00000000000000 B=09681954973000 C=09000000999000 D=00000000000000 M=00000000000000 P=5 S=0......78.ab 02306: 11...1..11 -> 02304 if no carry go to myp26 A=00000000000000 B=09681954973000 C=09000000999000 D=00000000000000 M=00000000000000 P=5 S=0......78.ab 02307: 1.11..111. mpy28: shift right a[w] A=00000000000000 B=09681954973000 C=09000000999000 D=00000000000000 M=00000000000000 P=5 S=0......78.ab 02310: ....1111.. p + 1 -> p A=00000000000000 B=09681954973000 C=09000000999000 D=00000000000000 M=00000000000000 P=6 S=0......78.ab 02311: 11.11.11.. if p # 13 A=00000000000000 B=09681954973000 C=09000000999000 D=00000000000000 M=00000000000000 P=6 S=0......78.ab 02312: 11...1.111 -> 02305 then go to mpy27 A=00000000000000 B=09681954973000 C=09000000999000 D=00000000000000 M=00000000000000 P=6 S=0......78.ab 02305: .1.11...1. mpy27: c - 1 -> c[p] A=00000000000000 B=09681954973000 C=09000009999000 D=00000000000000 M=00000000000000 P=6 S=0......78.ab 02306: 11...1..11 -> 02304 if no carry go to myp26 A=00000000000000 B=09681954973000 C=09000009999000 D=00000000000000 M=00000000000000 P=6 S=0......78.ab 02307: 1.11..111. mpy28: shift right a[w] A=00000000000000 B=09681954973000 C=09000009999000 D=00000000000000 M=00000000000000 P=6 S=0......78.ab 02310: ....1111.. p + 1 -> p A=00000000000000 B=09681954973000 C=09000009999000 D=00000000000000 M=00000000000000 P=7 S=0......78.ab 02311: 11.11.11.. if p # 13 A=00000000000000 B=09681954973000 C=09000009999000 D=00000000000000 M=00000000000000 P=7 S=0......78.ab 02312: 11...1.111 -> 02305 then go to mpy27 A=00000000000000 B=09681954973000 C=09000009999000 D=00000000000000 M=00000000000000 P=7 S=0......78.ab 02305: .1.11...1. mpy27: c - 1 -> c[p] A=00000000000000 B=09681954973000 C=09000099999000 D=00000000000000 M=00000000000000 P=7 S=0......78.ab 02306: 11...1..11 -> 02304 if no carry go to myp26 A=00000000000000 B=09681954973000 C=09000099999000 D=00000000000000 M=00000000000000 P=7 S=0......78.ab 02307: 1.11..111. mpy28: shift right a[w] A=00000000000000 B=09681954973000 C=09000099999000 D=00000000000000 M=00000000000000 P=7 S=0......78.ab 02310: ....1111.. p + 1 -> p A=00000000000000 B=09681954973000 C=09000099999000 D=00000000000000 M=00000000000000 P=8 S=0......78.ab 02311: 11.11.11.. if p # 13 A=00000000000000 B=09681954973000 C=09000099999000 D=00000000000000 M=00000000000000 P=8 S=0......78.ab 02312: 11...1.111 -> 02305 then go to mpy27 A=00000000000000 B=09681954973000 C=09000099999000 D=00000000000000 M=00000000000000 P=8 S=0......78.ab 02305: .1.11...1. mpy27: c - 1 -> c[p] A=00000000000000 B=09681954973000 C=09000999999000 D=00000000000000 M=00000000000000 P=8 S=0......78.ab 02306: 11...1..11 -> 02304 if no carry go to myp26 A=00000000000000 B=09681954973000 C=09000999999000 D=00000000000000 M=00000000000000 P=8 S=0......78.ab 02307: 1.11..111. mpy28: shift right a[w] A=00000000000000 B=09681954973000 C=09000999999000 D=00000000000000 M=00000000000000 P=8 S=0......78.ab 02310: ....1111.. p + 1 -> p A=00000000000000 B=09681954973000 C=09000999999000 D=00000000000000 M=00000000000000 P=9 S=0......78.ab 02311: 11.11.11.. if p # 13 A=00000000000000 B=09681954973000 C=09000999999000 D=00000000000000 M=00000000000000 P=9 S=0......78.ab 02312: 11...1.111 -> 02305 then go to mpy27 A=00000000000000 B=09681954973000 C=09000999999000 D=00000000000000 M=00000000000000 P=9 S=0......78.ab 02305: .1.11...1. mpy27: c - 1 -> c[p] A=00000000000000 B=09681954973000 C=09009999999000 D=00000000000000 M=00000000000000 P=9 S=0......78.ab 02306: 11...1..11 -> 02304 if no carry go to myp26 A=00000000000000 B=09681954973000 C=09009999999000 D=00000000000000 M=00000000000000 P=9 S=0......78.ab 02307: 1.11..111. mpy28: shift right a[w] A=00000000000000 B=09681954973000 C=09009999999000 D=00000000000000 M=00000000000000 P=9 S=0......78.ab 02310: ....1111.. p + 1 -> p A=00000000000000 B=09681954973000 C=09009999999000 D=00000000000000 M=00000000000000 P=a S=0......78.ab 02311: 11.11.11.. if p # 13 A=00000000000000 B=09681954973000 C=09009999999000 D=00000000000000 M=00000000000000 P=a S=0......78.ab 02312: 11...1.111 -> 02305 then go to mpy27 A=00000000000000 B=09681954973000 C=09009999999000 D=00000000000000 M=00000000000000 P=a S=0......78.ab 02305: .1.11...1. mpy27: c - 1 -> c[p] A=00000000000000 B=09681954973000 C=09099999999000 D=00000000000000 M=00000000000000 P=a S=0......78.ab 02306: 11...1..11 -> 02304 if no carry go to myp26 A=00000000000000 B=09681954973000 C=09099999999000 D=00000000000000 M=00000000000000 P=a S=0......78.ab 02307: 1.11..111. mpy28: shift right a[w] A=00000000000000 B=09681954973000 C=09099999999000 D=00000000000000 M=00000000000000 P=a S=0......78.ab 02310: ....1111.. p + 1 -> p A=00000000000000 B=09681954973000 C=09099999999000 D=00000000000000 M=00000000000000 P=b S=0......78.ab 02311: 11.11.11.. if p # 13 A=00000000000000 B=09681954973000 C=09099999999000 D=00000000000000 M=00000000000000 P=b S=0......78.ab 02312: 11...1.111 -> 02305 then go to mpy27 A=00000000000000 B=09681954973000 C=09099999999000 D=00000000000000 M=00000000000000 P=b S=0......78.ab 02305: .1.11...1. mpy27: c - 1 -> c[p] A=00000000000000 B=09681954973000 C=09999999999000 D=00000000000000 M=00000000000000 P=b S=0......78.ab 02306: 11...1..11 -> 02304 if no carry go to myp26 A=00000000000000 B=09681954973000 C=09999999999000 D=00000000000000 M=00000000000000 P=b S=0......78.ab 02307: 1.11..111. mpy28: shift right a[w] A=00000000000000 B=09681954973000 C=09999999999000 D=00000000000000 M=00000000000000 P=b S=0......78.ab 02310: ....1111.. p + 1 -> p A=00000000000000 B=09681954973000 C=09999999999000 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02311: 11.11.11.. if p # 13 A=00000000000000 B=09681954973000 C=09999999999000 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02312: 11...1.111 -> 02305 then go to mpy27 A=00000000000000 B=09681954973000 C=09999999999000 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02305: .1.11...1. mpy27: c - 1 -> c[p] A=00000000000000 B=09681954973000 C=08999999999000 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02306: 11...1..11 -> 02304 if no carry go to myp26 A=00000000000000 B=09681954973000 C=08999999999000 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02304: 111...111. myp26: a + b -> a[w] A=09681954973000 B=09681954973000 C=08999999999000 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02305: .1.11...1. mpy27: c - 1 -> c[p] A=09681954973000 B=09681954973000 C=07999999999000 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02306: 11...1..11 -> 02304 if no carry go to myp26 A=09681954973000 B=09681954973000 C=07999999999000 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02304: 111...111. myp26: a + b -> a[w] A=19363909946000 B=09681954973000 C=07999999999000 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02305: .1.11...1. mpy27: c - 1 -> c[p] A=19363909946000 B=09681954973000 C=06999999999000 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02306: 11...1..11 -> 02304 if no carry go to myp26 A=19363909946000 B=09681954973000 C=06999999999000 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02304: 111...111. myp26: a + b -> a[w] A=29045864919000 B=09681954973000 C=06999999999000 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02305: .1.11...1. mpy27: c - 1 -> c[p] A=29045864919000 B=09681954973000 C=05999999999000 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02306: 11...1..11 -> 02304 if no carry go to myp26 A=29045864919000 B=09681954973000 C=05999999999000 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02304: 111...111. myp26: a + b -> a[w] A=38727819892000 B=09681954973000 C=05999999999000 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02305: .1.11...1. mpy27: c - 1 -> c[p] A=38727819892000 B=09681954973000 C=04999999999000 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02306: 11...1..11 -> 02304 if no carry go to myp26 A=38727819892000 B=09681954973000 C=04999999999000 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02304: 111...111. myp26: a + b -> a[w] A=48409774865000 B=09681954973000 C=04999999999000 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02305: .1.11...1. mpy27: c - 1 -> c[p] A=48409774865000 B=09681954973000 C=03999999999000 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02306: 11...1..11 -> 02304 if no carry go to myp26 A=48409774865000 B=09681954973000 C=03999999999000 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02304: 111...111. myp26: a + b -> a[w] A=58091729838000 B=09681954973000 C=03999999999000 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02305: .1.11...1. mpy27: c - 1 -> c[p] A=58091729838000 B=09681954973000 C=02999999999000 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02306: 11...1..11 -> 02304 if no carry go to myp26 A=58091729838000 B=09681954973000 C=02999999999000 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02304: 111...111. myp26: a + b -> a[w] A=67773684811000 B=09681954973000 C=02999999999000 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02305: .1.11...1. mpy27: c - 1 -> c[p] A=67773684811000 B=09681954973000 C=01999999999000 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02306: 11...1..11 -> 02304 if no carry go to myp26 A=67773684811000 B=09681954973000 C=01999999999000 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02304: 111...111. myp26: a + b -> a[w] A=77455639784000 B=09681954973000 C=01999999999000 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02305: .1.11...1. mpy27: c - 1 -> c[p] A=77455639784000 B=09681954973000 C=00999999999000 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02306: 11...1..11 -> 02304 if no carry go to myp26 A=77455639784000 B=09681954973000 C=00999999999000 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02304: 111...111. myp26: a + b -> a[w] A=87137594757000 B=09681954973000 C=00999999999000 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02305: .1.11...1. mpy27: c - 1 -> c[p] A=87137594757000 B=09681954973000 C=09999999999000 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02306: 11...1..11 -> 02304 if no carry go to myp26 A=87137594757000 B=09681954973000 C=09999999999000 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02307: 1.11..111. mpy28: shift right a[w] A=08713759475700 B=09681954973000 C=09999999999000 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02310: ....1111.. p + 1 -> p A=08713759475700 B=09681954973000 C=09999999999000 D=00000000000000 M=00000000000000 P=d S=0......78.ab 02311: 11.11.11.. if p # 13 A=08713759475700 B=09681954973000 C=09999999999000 D=00000000000000 M=00000000000000 P=d S=0......78.ab 02312: 11...1.111 -> 02305 then go to mpy27 A=08713759475700 B=09681954973000 C=09999999999000 D=00000000000000 M=00000000000000 P=d S=0......78.ab 02313: .1111.1.1. c + 1 -> c[x] A=08713759475700 B=09681954973000 C=09999999999001 D=00000000000000 M=00000000000000 P=d S=0......78.ab [BP8] We have the result 8.7137137594757 10^1 go normalized 02314: 1.1111111. nrm21: 0 -> a[s] A=08713759475700 B=09681954973000 C=09999999999001 D=00000000000000 M=00000000000000 P=d S=0......78.ab 02315: 11....11.. 12 -> p A=08713759475700 B=09681954973000 C=09999999999001 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02316: ....1.111. 0 -> b[w] A=08713759475700 B=00000000000000 C=09999999999001 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02317: 1..11...1. nrm23: if a[p] >= 1 A=08713759475700 B=00000000000000 C=09999999999001 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02320: 11.1.11.11 -> 02326 then go to nrm24 A=08713759475700 B=00000000000000 C=09999999999001 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02326: .1..1.1.1. nrm24: a -> b[x] A=08713759475700 B=00000000000700 C=09999999999001 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02327: 111...111. a + b -> a[w] A=08713759476400 B=00000000000700 C=09999999999001 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02330: 1..111111. if a[s] >= 1 A=08713759476400 B=00000000000700 C=09999999999001 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02331: 11...11111 -> 02307 then go to mpy28 A=08713759476400 B=00000000000700 C=09999999999001 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02332: 111.1..11. a exchange c[m] A=09999999999400 B=00000000000700 C=08713759476001 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02333: .11...111. c -> a[w] A=08713759476001 B=00000000000700 C=08713759476001 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02334: ....1.111. 0 -> b[w] A=08713759476001 B=00000000000000 C=08713759476001 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02335: 11....11.. nrm27: 12 -> p A=08713759476001 B=00000000000000 C=08713759476001 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02336: .1111.1.11 -> 02172 go to nrm26 A=08713759476001 B=00000000000000 C=08713759476001 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02172: ..1..1.1.. nrm26: if s2 = 0 A=08713759476001 B=00000000000000 C=08713759476001 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02173: 1..1.1..11 -> 02224 then go to rtn21 A=08713759476001 B=00000000000000 C=08713759476001 D=00000000000000 M=00000000000000 P=c S=0......78.ab 02224: ..1..1.... -> 01225 rtn21: select rom 1 ; -> rtn11 A=08713759476001 B=00000000000000 C=08713759476001 D=00000000000000 M=00000000000000 P=c S=0......78.ab 01225: ...1.1.1.. rtn11: if s1 = 0 A=08713759476001 B=00000000000000 C=08713759476001 D=00000000000000 M=00000000000000 P=c S=0......78.ab result is normalized C=08713759476001 87.13759476 01226: 11.11.1.11 -> 01332 then go to rtn12 A=08713759476001 B=00000000000000 C=08713759476001 D=00000000000000 M=00000000000000 P=c S=0......78.ab 01332: .....1.... -> 00333 rtn12: select rom 0 ; -> l00333 A=08713759476001 B=00000000000000 C=08713759476001 D=00000000000000 M=00000000000000 P=c S=0......78.ab 00333: .1.111.1.1 -> 00135 l00333: jsb of13 A=08713759476001 B=00000000000000 C=08713759476001 D=00000000000000 M=00000000000000 P=c S=0......78.ab 00135: ....11.1.. of13: clear status A=08713759476001 B=00000000000000 C=08713759476001 D=00000000000000 M=00000000000000 P=c S=............ 00136: .11...111. c -> a[w] A=08713759476001 B=00000000000000 C=08713759476001 D=00000000000000 M=00000000000000 P=c S=............ 00137: 11....11.. of14: 12 -> p A=08713759476001 B=00000000000000 C=08713759476001 D=00000000000000 M=00000000000000 P=c S=............ 00140: .1..1.1.1. a -> b[x] A=08713759476001 B=00000000000001 C=08713759476001 D=00000000000000 M=00000000000000 P=c S=............ 00141: .11...1.1. c -> a[x] A=08713759476001 B=00000000000001 C=08713759476001 D=00000000000000 M=00000000000000 P=c S=............ 00142: .11.111.1. if c[xs] = 0 A=08713759476001 B=00000000000001 C=08713759476001 D=00000000000000 M=00000000000000 P=c S=............ 00143: .11.1...11 -> 00150 then go to of15 A=08713759476001 B=00000000000001 C=08713759476001 D=00000000000000 M=00000000000000 P=c S=............ 00150: 111.1.1.1. of15: a exchange c[x] A=08713759476001 B=00000000000001 C=08713759476001 D=00000000000000 M=00000000000000 P=c S=............ 00151: .1...1.1.. if s4 = 0 A=08713759476001 B=00000000000001 C=08713759476001 D=00000000000000 M=00000000000000 P=c S=............ 00152: .1....1.11 -> 00102 then go to l00102 A=08713759476001 B=00000000000001 C=08713759476001 D=00000000000000 M=00000000000000 P=c S=............ 00102: .1..1.111. l00102: a -> b[w] A=08713759476001 B=08713759476001 C=08713759476001 D=00000000000000 M=00000000000000 P=c S=............ 00103: 1.11111.1. 0 -> a[xs] A=08713759476001 B=08713759476001 C=08713759476001 D=00000000000000 M=00000000000000 P=c S=............ 00104: .1...1.11. shift left a[ms] A=87137594760001 B=08713759476001 C=08713759476001 D=00000000000000 M=00000000000000 P=c S=............ 00105: 11.11.1.1. l00105: a - 1 -> a[x] A=87137594760000 B=08713759476001 C=08713759476001 D=00000000000000 M=00000000000000 P=c S=............ 00106: 111.....11 -> 00340 if no carry go to l00340 A=87137594760000 B=08713759476001 C=08713759476001 D=00000000000000 M=00000000000000 P=c S=............ 00340: 1.11.1.11. l00340: shift right a[ms] A=08713759476000 B=08713759476001 C=08713759476001 D=00000000000000 M=00000000000000 P=c S=............ 00341: .....111.. p - 1 -> p A=08713759476000 B=08713759476001 C=08713759476001 D=00000000000000 M=00000000000000 P=b S=............ 00342: ..1.1.11.. if p # 2 A=08713759476000 B=08713759476001 C=08713759476001 D=00000000000000 M=00000000000000 P=b S=............ 00343: .1...1.111 -> 00105 then go to l00105 A=08713759476000 B=08713759476001 C=08713759476001 D=00000000000000 M=00000000000000 P=b S=............ 00105: 11.11.1.1. l00105: a - 1 -> a[x] A=08713759476999 B=08713759476001 C=08713759476001 D=00000000000000 M=00000000000000 P=b S=............ 00106: 111.....11 -> 00340 if no carry go to l00340 A=08713759476999 B=08713759476001 C=08713759476001 D=00000000000000 M=00000000000000 P=b S=............ 00107: .11.111.1. if c[xs] = 0 A=08713759476999 B=08713759476001 C=08713759476001 D=00000000000000 M=00000000000000 P=b S=............ 00110: 111..11.11 -> 00346 then go to l00346 A=08713759476999 B=08713759476001 C=08713759476001 D=00000000000000 M=00000000000000 P=b S=............ 00346: 1.1111.11. l00346: 0 -> a[ms] A=00000000000999 B=08713759476001 C=08713759476001 D=00000000000000 M=00000000000000 P=b S=............ 00347: 11111...1. a + 1 -> a[p] A=00100000000999 B=08713759476001 C=08713759476001 D=00000000000000 M=00000000000000 P=b S=............ 00350: 11111...1. a + 1 -> a[p] A=00200000000999 B=08713759476001 C=08713759476001 D=00000000000000 M=00000000000000 P=b S=............ 00351: ..1...11.. 2 -> p A=00200000000999 B=08713759476001 C=08713759476001 D=00000000000000 M=00000000000000 P=2 S=............ 00352: ....1111.. l00352: p + 1 -> p A=00200000000999 B=08713759476001 C=08713759476001 D=00000000000000 M=00000000000000 P=3 S=............ 00353: 11.11...1. a - 1 -> a[p] A=00200000009999 B=08713759476001 C=08713759476001 D=00000000000000 M=00000000000000 P=3 S=............ 00354: 111.111111 -> 00357 if no carry go to l00357 A=00200000009999 B=08713759476001 C=08713759476001 D=00000000000000 M=00000000000000 P=3 S=............ 00355: ........1. if b[p] = 0 A=00200000009999 B=08713759476001 C=08713759476001 D=00000000000000 M=00000000000000 P=3 S=............ 00356: 111.1.1.11 -> 00352 then go to l00352 A=00200000009999 B=08713759476001 C=08713759476001 D=00000000000000 M=00000000000000 P=3 S=............ 00357: 11111...1. l00357: a + 1 -> a[p] A=00200000000999 B=08713759476001 C=08713759476001 D=00000000000000 M=00000000000000 P=3 S=............ 00360: 11..1.111. a exchange b[w] A=08713759476001 B=00200000000999 C=08713759476001 D=00000000000000 M=00000000000000 P=3 S=............ 00361: ....11.... return A=08713759476001 B=00200000000999 C=08713759476001 D=00000000000000 M=00000000000000 P=3 S=............ result in A to dispay mask in B Register C has normalized floating point form. 00334: .111...1.. 1 -> s7 A=08713759476001 B=00200000000999 C=08713759476001 D=00000000000000 M=00000000000000 P=3 S=.......7.... 00335: 1111.111.1 -> 00367 fst2zx: jsb dsp1 A=08713759476001 B=00200000000999 C=08713759476001 D=00000000000000 M=00000000000000 P=3 S=.......7.... 00367: 1.1.1..1.. dsp1: 0 -> s10 A=08713759476001 B=00200000000999 C=08713759476001 D=00000000000000 M=00000000000000 P=3 S=.......7.... 00370: 11....1111 -> 00303 go to dsp7 A=08713759476001 B=00200000000999 C=08713759476001 D=00000000000000 M=00000000000000 P=3 S=.......7....