arc tan (0.0002) NEW ROM 00330: ..11.1.... keys -> rom address A=00002000000000 B=02000099999999 C=02000000000996 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 00050: ...1...1.. 1 -> s1 A=00002000000000 B=02000099999999 C=02000000000996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 00051: ..1.111.11 -> 00056 go to l00056 A=00002000000000 B=02000099999999 C=02000000000996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 00056: ....1.111. l00056: 0 -> b[w] A=00002000000000 B=00000000000000 C=02000000000996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 00057: ..1..1.... -> 01060 select rom 1 ; -> l01060 A=00002000000000 B=00000000000000 C=02000000000996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01060: .11...111. c -> a[w] A=02000000000996 B=00000000000000 C=02000000000996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01061: ...1.1.1.. if s1 = 0 A=02000000000996 B=00000000000000 C=02000000000996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01062: ..1..1.111 -> 01045 then go to sqt11 A=02000000000996 B=00000000000000 C=02000000000996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01063: 1.1..1.1.. if s10 = 0 A=02000000000996 B=00000000000000 C=02000000000996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01064: .11.11.111 -> 01155 then go to l01155 A=02000000000996 B=00000000000000 C=02000000000996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01065: .1.1.1.1.. if s5 = 0 A=02000000000996 B=00000000000000 C=02000000000996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01066: ...1.1.111 -> 01025 then go to atn11 A=02000000000996 B=00000000000000 C=02000000000996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01025: 1.111.111. atn11: 0 -> a[w] A=00000000000000 B=00000000000000 C=02000000000996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01026: 11111...1. a + 1 -> a[p] A=01000000000000 B=00000000000000 C=02000000000996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01027: .1..1..11. a -> b[m] A=01000000000000 B=01000000000000 C=02000000000996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01030: 111.1..11. a exchange c[m] A=02000000000000 B=01000000000000 C=01000000000996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01031: .1.11.1.1. atn12: c - 1 -> c[x] A=02000000000000 B=01000000000000 C=01000000000995 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01032: 1.1..1..1. shift right b[wp] A=02000000000000 B=00100000000000 C=01000000000995 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01033: .11.111.1. if c[xs] = 0 A=02000000000000 B=00100000000000 C=01000000000995 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01034: ...11..111 -> 01031 then go to atn12 A=02000000000000 B=00100000000000 C=01000000000995 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01035: 1.11.1..1. atn13: shift right a[wp] A=00200000000000 B=00100000000000 C=01000000000995 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01036: .1111.1.1. c + 1 -> c[x] A=00200000000000 B=00100000000000 C=01000000000996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01037: ...111.111 -> 01035 if no carry go to atn13 A=00200000000000 B=00100000000000 C=01000000000996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01035: 1.11.1..1. atn13: shift right a[wp] A=00020000000000 B=00100000000000 C=01000000000996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01036: .1111.1.1. c + 1 -> c[x] A=00020000000000 B=00100000000000 C=01000000000997 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01037: ...111.111 -> 01035 if no carry go to atn13 A=00020000000000 B=00100000000000 C=01000000000997 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01035: 1.11.1..1. atn13: shift right a[wp] A=00002000000000 B=00100000000000 C=01000000000997 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01036: .1111.1.1. c + 1 -> c[x] A=00002000000000 B=00100000000000 C=01000000000998 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01037: ...111.111 -> 01035 if no carry go to atn13 A=00002000000000 B=00100000000000 C=01000000000998 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01035: 1.11.1..1. atn13: shift right a[wp] A=00000200000000 B=00100000000000 C=01000000000998 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01036: .1111.1.1. c + 1 -> c[x] A=00000200000000 B=00100000000000 C=01000000000999 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01037: ...111.111 -> 01035 if no carry go to atn13 A=00000200000000 B=00100000000000 C=01000000000999 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01035: 1.11.1..1. atn13: shift right a[wp] A=00000020000000 B=00100000000000 C=01000000000999 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01036: .1111.1.1. c + 1 -> c[x] A=00000020000000 B=00100000000000 C=01000000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01037: ...111.111 -> 01035 if no carry go to atn13 A=00000020000000 B=00100000000000 C=01000000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01040: 1.11..111. shift right a[w] A=00000002000000 B=00100000000000 C=01000000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01041: 1.1...111. shift right b[w] A=00000002000000 B=00010000000000 C=01000000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01042: .1..1.1... c -> stack A=00000002000000 B=00010000000000 C=01000000000000 D=01000000000000 M=00000000000000 P=c S=01....678.ab 01043: 1...1.111. atn14: b exchange c[w] A=00000002000000 B=01000000000000 C=00010000000000 D=01000000000000 M=00000000000000 P=c S=01....678.ab 01044: .1.....111 -> 01101 go to atn18 A=00000002000000 B=01000000000000 C=00010000000000 D=01000000000000 M=00000000000000 P=c S=01....678.ab 01101: .1..1.111. atn18: a -> b[w] A=00000002000000 B=00000002000000 C=00010000000000 D=01000000000000 M=00000000000000 P=c S=01....678.ab start of cordic rotations 01102: 11.1.1..1. a - c -> a[wp] A=09990002000000 B=00000002000000 C=00010000000000 D=01000000000000 M=00000000000000 P=c S=01....678.ab 01103: ..111.1111 -> 01073 if no carry go to atn16 A=09990002000000 B=00000002000000 C=00010000000000 D=01000000000000 M=00000000000000 P=c S=01....678.ab 01104: .11.1.1... stack -> a A=01000000000000 B=00000002000000 C=00010000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01105: 1.11..111. shift right a[w] A=00100000000000 B=00000002000000 C=00010000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01106: 111.11..1. a exchange c[wp] A=00010000000000 B=00000002000000 C=00100000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01107: 11..1.111. a exchange b[w] A=00000002000000 B=00010000000000 C=00100000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01110: .1...1..1. shift left a[wp] A=00000020000000 B=00010000000000 C=00100000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01111: .1..1.1... c -> stack A=00000020000000 B=00010000000000 C=00100000000000 D=00100000000000 M=00000000000000 P=c S=01....678.ab 01112: 111111111. a + 1 -> a[s] A=10000020000000 B=00010000000000 C=00100000000000 D=00100000000000 M=00000000000000 P=c S=01....678.ab 01113: 111111111. a + 1 -> a[s] A=20000020000000 B=00010000000000 C=00100000000000 D=00100000000000 M=00000000000000 P=c S=01....678.ab 01114: ..1...1111 -> 01043 if no carry go to atn14 A=20000020000000 B=00010000000000 C=00100000000000 D=00100000000000 M=00000000000000 P=c S=01....678.ab 01043: 1...1.111. atn14: b exchange c[w] A=20000020000000 B=00100000000000 C=00010000000000 D=00100000000000 M=00000000000000 P=c S=01....678.ab 01044: .1.....111 -> 01101 go to atn18 A=20000020000000 B=00100000000000 C=00010000000000 D=00100000000000 M=00000000000000 P=c S=01....678.ab 01101: .1..1.111. atn18: a -> b[w] A=20000020000000 B=20000020000000 C=00010000000000 D=00100000000000 M=00000000000000 P=c S=01....678.ab 01102: 11.1.1..1. a - c -> a[wp] A=29990020000000 B=20000020000000 C=00010000000000 D=00100000000000 M=00000000000000 P=c S=01....678.ab 01103: ..111.1111 -> 01073 if no carry go to atn16 KO A=29990020000000 B=20000020000000 C=00010000000000 D=00100000000000 M=00000000000000 P=c S=01....678.ab 01104: .11.1.1... stack -> a A=00100000000000 B=20000020000000 C=00010000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01105: 1.11..111. shift right a[w] A=00010000000000 B=20000020000000 C=00010000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01106: 111.11..1. a exchange c[wp] A=00010000000000 B=20000020000000 C=00010000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01107: 11..1.111. a exchange b[w] A=20000020000000 B=00010000000000 C=00010000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01110: .1...1..1. shift left a[wp] A=20000200000000 B=00010000000000 C=00010000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01111: .1..1.1... c -> stack A=20000200000000 B=00010000000000 C=00010000000000 D=00010000000000 M=00000000000000 P=c S=01....678.ab 01112: 111111111. a + 1 -> a[s] A=30000200000000 B=00010000000000 C=00010000000000 D=00010000000000 M=00000000000000 P=c S=01....678.ab 01113: 111111111. a + 1 -> a[s] A=40000200000000 B=00010000000000 C=00010000000000 D=00010000000000 M=00000000000000 P=c S=01....678.ab 01114: ..1...1111 -> 01043 if no carry go to atn14 A=40000200000000 B=00010000000000 C=00010000000000 D=00010000000000 M=00000000000000 P=c S=01....678.ab 01043: 1...1.111. atn14: b exchange c[w] A=40000200000000 B=00010000000000 C=00010000000000 D=00010000000000 M=00000000000000 P=c S=01....678.ab 01044: .1.....111 -> 01101 go to atn18 A=40000200000000 B=00010000000000 C=00010000000000 D=00010000000000 M=00000000000000 P=c S=01....678.ab 01101: .1..1.111. atn18: a -> b[w] A=40000200000000 B=40000200000000 C=00010000000000 D=00010000000000 M=00000000000000 P=c S=01....678.ab 01102: 11.1.1..1. a - c -> a[wp] A=49990200000000 B=40000200000000 C=00010000000000 D=00010000000000 M=00000000000000 P=c S=01....678.ab 01103: ..111.1111 -> 01073 if no carry go to atn16 A=49990200000000 B=40000200000000 C=00010000000000 D=00010000000000 M=00000000000000 P=c S=01....678.ab KO 01104: .11.1.1... stack -> a A=00010000000000 B=40000200000000 C=00010000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01105: 1.11..111. shift right a[w] A=00001000000000 B=40000200000000 C=00010000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01106: 111.11..1. a exchange c[wp] A=00010000000000 B=40000200000000 C=00001000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01107: 11..1.111. a exchange b[w] A=40000200000000 B=00010000000000 C=00001000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01110: .1...1..1. shift left a[wp] A=40002000000000 B=00010000000000 C=00001000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01111: .1..1.1... c -> stack A=40002000000000 B=00010000000000 C=00001000000000 D=00001000000000 M=00000000000000 P=c S=01....678.ab 01112: 111111111. a + 1 -> a[s] A=50002000000000 B=00010000000000 C=00001000000000 D=00001000000000 M=00000000000000 P=c S=01....678.ab 01113: 111111111. a + 1 -> a[s] A=60002000000000 B=00010000000000 C=00001000000000 D=00001000000000 M=00000000000000 P=c S=01....678.ab 01114: ..1...1111 -> 01043 if no carry go to atn14 A=60002000000000 B=00010000000000 C=00001000000000 D=00001000000000 M=00000000000000 P=c S=01....678.ab 01043: 1...1.111. atn14: b exchange c[w] A=60002000000000 B=00001000000000 C=00010000000000 D=00001000000000 M=00000000000000 P=c S=01....678.ab 01044: .1.....111 -> 01101 go to atn18 A=60002000000000 B=00001000000000 C=00010000000000 D=00001000000000 M=00000000000000 P=c S=01....678.ab 01101: .1..1.111. atn18: a -> b[w] A=60002000000000 B=60002000000000 C=00010000000000 D=00001000000000 M=00000000000000 P=c S=01....678.ab 01102: 11.1.1..1. a - c -> a[wp] A=69992000000000 B=60002000000000 C=00010000000000 D=00001000000000 M=00000000000000 P=c S=01....678.ab 01103: ..111.1111 -> 01073 if no carry go to atn16 KO A=69992000000000 B=60002000000000 C=00010000000000 D=00001000000000 M=00000000000000 P=c S=01....678.ab 01104: .11.1.1... stack -> a A=00001000000000 B=60002000000000 C=00010000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01105: 1.11..111. shift right a[w] A=00000100000000 B=60002000000000 C=00010000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01106: 111.11..1. a exchange c[wp] A=00010000000000 B=60002000000000 C=00000100000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01107: 11..1.111. a exchange b[w] A=60002000000000 B=00010000000000 C=00000100000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01110: .1...1..1. shift left a[wp] A=60020000000000 B=00010000000000 C=00000100000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01111: .1..1.1... c -> stack A=60020000000000 B=00010000000000 C=00000100000000 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01112: 111111111. a + 1 -> a[s] A=70020000000000 B=00010000000000 C=00000100000000 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01113: 111111111. a + 1 -> a[s] A=80020000000000 B=00010000000000 C=00000100000000 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01114: ..1...1111 -> 01043 if no carry go to atn14 A=80020000000000 B=00010000000000 C=00000100000000 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01043: 1...1.111. atn14: b exchange c[w] A=80020000000000 B=00000100000000 C=00010000000000 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01044: .1.....111 -> 01101 go to atn18 A=80020000000000 B=00000100000000 C=00010000000000 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01101: .1..1.111. atn18: a -> b[w] A=80020000000000 B=80020000000000 C=00010000000000 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01102: 11.1.1..1. a - c -> a[wp] A=80010000000000 B=80020000000000 C=00010000000000 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01103: ..111.1111 -> 01073 if no carry go to atn16 OK A=80010000000000 B=80020000000000 C=00010000000000 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=70010000000000 B=80020000000000 C=00010000000000 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=70010000000000 B=80020000000000 C=00010000000000 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=70010000000000 B=80002000000000 C=00010000000000 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=60010000000000 B=80002000000000 C=00010000000000 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=60010000000000 B=80002000000000 C=00010000000000 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=60010000000000 B=80000200000000 C=00010000000000 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=50010000000000 B=80000200000000 C=00010000000000 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=50010000000000 B=80000200000000 C=00010000000000 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=50010000000000 B=80000020000000 C=00010000000000 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=40010000000000 B=80000020000000 C=00010000000000 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=40010000000000 B=80000020000000 C=00010000000000 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=40010000000000 B=80000002000000 C=00010000000000 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=30010000000000 B=80000002000000 C=00010000000000 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=30010000000000 B=80000002000000 C=00010000000000 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=30010000000000 B=80000000200000 C=00010000000000 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=20010000000000 B=80000000200000 C=00010000000000 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=20010000000000 B=80000000200000 C=00010000000000 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=20010000000000 B=80000000020000 C=00010000000000 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=10010000000000 B=80000000020000 C=00010000000000 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=10010000000000 B=80000000020000 C=00010000000000 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=10010000000000 B=80000000002000 C=00010000000000 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=00010000000000 B=80000000002000 C=00010000000000 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=00010000000000 B=80000000002000 C=00010000000000 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01072: 1.1..1..1. atn15: shift right b[wp] A=00010000000000 B=80000000000200 C=00010000000000 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01073: 11.111111. atn16: a - 1 -> a[s] A=90010000000000 B=80000000000200 C=00010000000000 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01074: ..111.1.11 -> 01072 if no carry go to atn15 A=90010000000000 B=80000000000200 C=00010000000000 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01075: .11111111. c + 1 -> c[s] A=90010000000000 B=80000000000200 C=10010000000000 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01076: 11..11..1. a exchange b[wp] A=90000000000200 B=80010000000000 C=10010000000000 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01077: .111.1..1. a + c -> c[wp] A=90000000000200 B=80010000000000 C=10010000000200 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01100: 11..1.111. a exchange b[w] A=80010000000000 B=90000000000200 C=10010000000200 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01101: .1..1.111. atn18: a -> b[w] A=80010000000000 B=80010000000000 C=10010000000200 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01102: 11.1.1..1. a - c -> a[wp] A=89999999999800 B=80010000000000 C=10010000000200 D=00000100000000 M=00000000000000 P=c S=01....678.ab 01103: ..111.1111 -> 01073 if no carry go to atn16 A=89999999999800 B=80010000000000 C=10010000000200 D=00000100000000 M=00000000000000 P=c S=01....678.ab KO 01104: .11.1.1... stack -> a A=00000100000000 B=80010000000000 C=10010000000200 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01105: 1.11..111. shift right a[w] A=00000010000000 B=80010000000000 C=10010000000200 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01106: 111.11..1. a exchange c[wp] A=00010000000200 B=80010000000000 C=10000010000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01107: 11..1.111. a exchange b[w] A=80010000000000 B=00010000000200 C=10000010000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01110: .1...1..1. shift left a[wp] A=80100000000000 B=00010000000200 C=10000010000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01111: .1..1.1... c -> stack A=80100000000000 B=00010000000200 C=10000010000000 pq=10000 D=10000010000000 M=00000000000000 P=c S=01....678.ab 01112: 111111111. a + 1 -> a[s] A=90100000000000 B=00010000000200 C=10000010000000 D=10000010000000 M=00000000000000 P=c S=01....678.ab 01113: 111111111. a + 1 -> a[s] A=00100000000000 B=00010000000200 C=10000010000000 D=10000010000000 M=00000000000000 P=c S=01....678.ab 01114: ..1...1111 -> 01043 if no carry go to atn14 A=00100000000000 B=00010000000200 C=10000010000000 D=10000010000000 M=00000000000000 P=c S=01....678.ab X= 1.0000000200000000000 Y= 0.00010000000000000000 Y/X= 0.000099999998000000040000 End of part1 --- same result in buggy ROM 01115: ..11..111. 0 -> c[w] A=00100000000000 B=00010000000200 C=00000000000000 D=10000010000000 M=00000000000000 P=c S=01....678.ab 01116: ....1.1.1. 0 -> b[x] A=00100000000000 B=00010000000000 C=00000000000000 D=10000010000000 M=00000000000000 P=c S=01....678.ab 01117: 1.11.1.11. shift right a[ms] A=00010000000000 B=00010000000000 C=00000000000000 D=10000010000000 M=00000000000000 P=c S=01....678.ab 01120: 1.11..1..1 -> 01262 jsb div14 Y/X (A/B) A=00010000000000 B=00010000000000 C=00000000000000 D=10000010000000 M=00000000000000 P=c S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00010000000000 B=00010000000000 C=01000000000000 D=10000010000000 M=00000000000000 P=c S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00000000000000 B=00010000000000 C=01000000000000 D=10000010000000 M=00000000000000 P=c S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00000000000000 B=00010000000000 C=01000000000000 D=10000010000000 M=00000000000000 P=c S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=c S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=99990000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=c S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=99990000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=c S=01....678.ab 01265: 111..1.11. a + b -> a[ms] A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=c S=01....678.ab 01266: .1...1.11. shift left a[ms] A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=c S=01....678.ab 01267: .....111.. p - 1 -> p A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=b S=01....678.ab 01270: ....1.11.. if p # 0 A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=b S=01....678.ab 01271: 1.11..1111 -> 01263 then go to div15 A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=b S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=99990000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=b S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=99990000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=b S=01....678.ab 01265: 111..1.11. a + b -> a[ms] A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=b S=01....678.ab 01266: .1...1.11. shift left a[ms] A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=b S=01....678.ab 01267: .....111.. p - 1 -> p A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=a S=01....678.ab 01270: ....1.11.. if p # 0 A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=a S=01....678.ab 01271: 1.11..1111 -> 01263 then go to div15 A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=a S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=99990000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=a S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=99990000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=a S=01....678.ab 01265: 111..1.11. a + b -> a[ms] A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=a S=01....678.ab 01266: .1...1.11. shift left a[ms] A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=a S=01....678.ab 01267: .....111.. p - 1 -> p A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=9 S=01....678.ab 01270: ....1.11.. if p # 0 A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=9 S=01....678.ab 01271: 1.11..1111 -> 01263 then go to div15 A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=9 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=99990000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=9 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=99990000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=9 S=01....678.ab 01265: 111..1.11. a + b -> a[ms] A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=9 S=01....678.ab 01266: .1...1.11. shift left a[ms] A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=9 S=01....678.ab 01267: .....111.. p - 1 -> p A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=8 S=01....678.ab 01270: ....1.11.. if p # 0 A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=8 S=01....678.ab 01271: 1.11..1111 -> 01263 then go to div15 A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=8 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=99990000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=8 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=99990000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=8 S=01....678.ab 01265: 111..1.11. a + b -> a[ms] A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=8 S=01....678.ab 01266: .1...1.11. shift left a[ms] A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=8 S=01....678.ab 01267: .....111.. p - 1 -> p A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=7 S=01....678.ab 01270: ....1.11.. if p # 0 A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=7 S=01....678.ab 01271: 1.11..1111 -> 01263 then go to div15 A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=7 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=99990000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=7 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=99990000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=7 S=01....678.ab 01265: 111..1.11. a + b -> a[ms] A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=7 S=01....678.ab 01266: .1...1.11. shift left a[ms] A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=7 S=01....678.ab 01267: .....111.. p - 1 -> p A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=6 S=01....678.ab 01270: ....1.11.. if p # 0 A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=6 S=01....678.ab 01271: 1.11..1111 -> 01263 then go to div15 A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=6 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=99990000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=6 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=99990000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=6 S=01....678.ab 01265: 111..1.11. a + b -> a[ms] A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=6 S=01....678.ab 01266: .1...1.11. shift left a[ms] A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=6 S=01....678.ab 01267: .....111.. p - 1 -> p A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=5 S=01....678.ab 01270: ....1.11.. if p # 0 A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=5 S=01....678.ab 01271: 1.11..1111 -> 01263 then go to div15 A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=5 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=99990000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=5 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=99990000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=5 S=01....678.ab 01265: 111..1.11. a + b -> a[ms] A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=5 S=01....678.ab 01266: .1...1.11. shift left a[ms] A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=5 S=01....678.ab 01267: .....111.. p - 1 -> p A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=4 S=01....678.ab 01270: ....1.11.. if p # 0 A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=4 S=01....678.ab 01271: 1.11..1111 -> 01263 then go to div15 A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=4 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=99990000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=4 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=99990000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=4 S=01....678.ab 01265: 111..1.11. a + b -> a[ms] A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=4 S=01....678.ab 01266: .1...1.11. shift left a[ms] A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=4 S=01....678.ab 01267: .....111.. p - 1 -> p A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=3 S=01....678.ab 01270: ....1.11.. if p # 0 A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=3 S=01....678.ab 01271: 1.11..1111 -> 01263 then go to div15 A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=3 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=99990000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=3 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=99990000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=3 S=01....678.ab 01265: 111..1.11. a + b -> a[ms] A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=3 S=01....678.ab 01266: .1...1.11. shift left a[ms] A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=3 S=01....678.ab 01267: .....111.. p - 1 -> p A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=2 S=01....678.ab 01270: ....1.11.. if p # 0 A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=2 S=01....678.ab 01271: 1.11..1111 -> 01263 then go to div15 A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=2 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=99990000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=2 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=99990000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=2 S=01....678.ab 01265: 111..1.11. a + b -> a[ms] A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=2 S=01....678.ab 01266: .1...1.11. shift left a[ms] A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=2 S=01....678.ab 01267: .....111.. p - 1 -> p A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=1 S=01....678.ab 01270: ....1.11.. if p # 0 A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=1 S=01....678.ab 01271: 1.11..1111 -> 01263 then go to div15 A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=1 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=99990000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=1 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=99990000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=1 S=01....678.ab 01265: 111..1.11. a + b -> a[ms] A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=1 S=01....678.ab 01266: .1...1.11. shift left a[ms] A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=1 S=01....678.ab 01267: .....111.. p - 1 -> p A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=0 S=01....678.ab 01270: ....1.11.. if p # 0 A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=0 S=01....678.ab 01271: 1.11..1111 -> 01263 then go to div15 A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=0 S=01....678.ab 01272: ..1.11.111 -> 01055 go to tnm12 A=00000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=0 S=01....678.ab 01055: .11...111. tnm12: c -> a[w] A=02000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=0 S=01....678.ab 01056: ..1...1.1. b -> c[x] A=02000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=0 S=01....678.ab 01057: 11..1.1111 -> 01313 go to add15 A=02000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=0 S=01....678.ab 01313: .1...1.... -> 02314 add15: select rom 2 ; -> nrm21 A=02000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=0 S=01....678.ab 02314: 1.1111111. nrm21: 0 -> a[s] A=02000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=0 S=01....678.ab 02315: 11....11.. 12 -> p A=02000000000000 B=00010000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=c S=01....678.ab 02316: ....1.111. 0 -> b[w] A=02000000000000 B=00000000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=c S=01....678.ab 02317: 1..11...1. nrm23: if a[p] >= 1 A=02000000000000 B=00000000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=c S=01....678.ab 02320: 11.1.11.11 -> 02326 then go to nrm24 A=02000000000000 B=00000000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=c S=01....678.ab 02326: .1..1.1.1. nrm24: a -> b[x] A=02000000000000 B=00000000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=c S=01....678.ab 02327: 111...111. a + b -> a[w] A=02000000000000 B=00000000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=c S=01....678.ab 02330: 1..111111. if a[s] >= 1 A=02000000000000 B=00000000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=c S=01....678.ab 02331: 11...11111 -> 02307 then go to mpy28 A=02000000000000 B=00000000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=c S=01....678.ab 02332: 111.1..11. a exchange c[m] A=02000000000000 B=00000000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=c S=01....678.ab 02333: .11...111. c -> a[w] A=02000000000000 B=00000000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=c S=01....678.ab 02334: ....1.111. 0 -> b[w] A=02000000000000 B=00000000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=c S=01....678.ab 02335: 11....11.. nrm27: 12 -> p A=02000000000000 B=00000000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=c S=01....678.ab 02336: .1111.1.11 -> 02172 go to nrm26 A=02000000000000 B=00000000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=c S=01....678.ab 02172: ..1..1.1.. nrm26: if s2 = 0 A=02000000000000 B=00000000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=c S=01....678.ab 02173: 1..1.1..11 -> 02224 then go to rtn21 A=02000000000000 B=00000000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=c S=01....678.ab 02224: ..1..1.... -> 01225 rtn21: select rom 1 ; -> rtn11 A=02000000000000 B=00000000000000 C=02000000000000 result in C = 2 D=10000010000000 M=00000000000000 P=c S=01....678.ab 01225: ...1.1.1.. rtn11: if s1 = 0 A=02000000000000 B=00000000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=c S=01....678.ab 01226: 11.11.1.11 -> 01332 then go to rtn12 A=02000000000000 B=00000000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=c S=01....678.ab 01227: ....11.... return A=02000000000000 B=00000000000000 C=02000000000000 D=10000010000000 M=00000000000000 P=c S=01....678.ab 01121: .1.11...1. c - 1 -> c[p] A=02000000000000 B=00000000000000 C=01000000000000 D=10000010000000 M=00000000000000 P=c S=01....678.ab 01122: .11.1.1... stack -> a A=10000010000000 B=00000000000000 C=01000000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01123: 111.1.111. a exchange c[w] A=01000000000000 B=00000000000000 C=10000010000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01124: .1....11.. 4 -> p A=01000000000000 B=00000000000000 C=10000010000000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 01125: 1.1..1...1 -> 01244 jsb pqo13 A=01000000000000 B=00000000000000 C=10000010000000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 01244: .1...1.... -> 02245 pqo13: select rom 2 ; -> l02245 A=01000000000000 B=00000000000000 C=10000010000000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 02245: .11.11.111 -> 02155 go to pqo23 A=01000000000000 B=00000000000000 C=10000010000000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 02155: 1...1.111. pqo23: b exchange c[w] A=01000000000000 B=10000010000000 C=00000000000000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 02156: ..11..111. 0 -> c[w] A=01000000000000 B=10000010000000 C=00000000000000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 02157: .1.11..11. c - 1 -> c[m] A=01000000000000 B=10000010000000 C=09999999999000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 02160: ..1..1.1.. if s2 = 0 A=01000000000000 B=10000010000000 C=09999999999000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 02161: .111.11.11 -> 02166 then go to pqo28 A=01000000000000 B=10000010000000 C=09999999999000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=01000000000000 B=10000010000000 C=09999999999000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=01000000000000 B=10000010000000 C=09999999999000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=01000000000000 B=10000010000000 C=09999999969000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=01000000000000 B=10000010000000 C=09999999969000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=01000000000000 B=10000010000000 C=09999999969000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=01000000000000 B=10000010000000 C=09999999966000 D=00000000000000 M=00000000000000 P=2 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=01000000000000 B=10000010000000 C=09999999966000 D=00000000000000 M=00000000000000 P=2 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=01000000000000 B=10000010000000 C=09999999966000 D=00000000000000 M=00000000000000 P=2 S=01....678.ab 02165: .11..11... pqo27: load constant 6 loading tan-1(0.0001) A=01000000000000 B=10000010000000 C=09999999966600 C=09999999966600 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=01000000000000 B=10000010000000 C=09999999966600 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=01000000000000 B=10000010000000 C=09999999966600 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02170: 1..1..111. shift right c[w] A=01000000000000 B=10000010000000 C=00999999996660 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02171: 1..1..111. pqo24: shift right c[w] A=01000000000000 B=10000010000000 C=00099999999666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02172: ..1..1.1.. nrm26: if s2 = 0 A=01000000000000 B=10000010000000 C=00099999999666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02173: 1..1.1..11 -> 02224 then go to rtn21 A=01000000000000 B=10000010000000 C=00099999999666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02224: ..1..1.... -> 01225 rtn21: select rom 1 ; -> rtn11 A=01000000000000 B=10000010000000 C=00099999999666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 01225: ...1.1.1.. rtn11: if s1 = 0 A=01000000000000 B=10000010000000 C=00099999999666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 01226: 11.11.1.11 -> 01332 then go to rtn12 A=01000000000000 B=10000010000000 C=00099999999666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 01227: ....11.... return A=01000000000000 B=10000010000000 C=00099999999666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 01126: .11...11.. 6 -> p A=01000000000000 B=10000010000000 C=00099999999666 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 01127: 1..11.11.1 -> 01233 jsb pmu11 A=01000000000000 B=10000010000000 C=00099999999666 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 01233: .1...1.... -> 02234 pmu11: select rom 2 ; -> pmu21 A=01000000000000 B=10000010000000 C=00099999999666 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 02234: 1.11..111. pmu21: shift right a[w] A=00100000000000 B=10000010000000 C=00099999999666 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 02235: 1...1.111. pmu22: b exchange c[w] A=00100000000000 B=00099999999666 C=10000010000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 02236: 1.1.....11 -> 02240 go to pmu24 A=00100000000000 B=00099999999666 C=10000010000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 02240: .1.111111. pmu24: c - 1 -> c[s] A=00100000000000 B=00099999999666 C=00000010000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 02241: 1..1111111 -> 02237 if no carry go to pmu23 A=00100000000000 B=00099999999666 C=00000010000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab PM 02237: 111...111. pmu23: a + b -> a[w] 1 * tan-1(0.0001) A=00199999999666 B=00099999999666 C=00000010000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 02240: .1.111111. pmu24: c - 1 -> c[s] A=00199999999666 B=00099999999666 C=90000010000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 02241: 1..1111111 -> 02237 if no carry go to pmu23 A=00199999999666 B=00099999999666 C=90000010000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 02242: 111.1.111. a exchange c[w] A=90000010000000 B=00099999999666 C=00199999999666 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 02243: .1...1.11. shift left a[ms] A=00000100000000 B=00099999999666 C=00199999999666 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 02244: 111.1.111. a exchange c[w] A=00199999999666 B=00099999999666 C=00000100000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 02245: .11.11.111 -> 02155 go to pqo23 A=00199999999666 B=00099999999666 C=00000100000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 02155: 1...1.111. pqo23: b exchange c[w] A=00199999999666 B=00000100000000 C=00099999999666 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 02156: ..11..111. 0 -> c[w] A=00199999999666 B=00000100000000 C=00000000000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 02157: .1.11..11. c - 1 -> c[m] A=00199999999666 B=00000100000000 C=09999999999000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 02160: ..1..1.1.. if s2 = 0 A=00199999999666 B=00000100000000 C=09999999999000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 02161: .111.11.11 -> 02166 then go to pqo28 A=00199999999666 B=00000100000000 C=09999999999000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00199999999666 B=00000100000000 C=09999999999000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00199999999666 B=00000100000000 C=09999999999000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00199999999666 B=00000100000000 C=09999996999000 D=00000000000000 M=00000000000000 P=5 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00199999999666 B=00000100000000 C=09999996999000 D=00000000000000 M=00000000000000 P=5 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00199999999666 B=00000100000000 C=09999996999000 D=00000000000000 M=00000000000000 P=5 S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00199999999666 B=00000100000000 C=09999996699000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00199999999666 B=00000100000000 C=09999996699000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00199999999666 B=00000100000000 C=09999996699000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00199999999666 B=00000100000000 C=09999996669000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00199999999666 B=00000100000000 C=09999996669000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00199999999666 B=00000100000000 C=09999996669000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00199999999666 B=00000100000000 C=09999996666000 D=00000000000000 M=00000000000000 P=2 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00199999999666 B=00000100000000 C=09999996666000 D=00000000000000 M=00000000000000 P=2 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00199999999666 B=00000100000000 C=09999996666000 D=00000000000000 M=00000000000000 P=2 S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00199999999666 B=00000100000000 C=09999996666600 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00199999999666 B=00000100000000 C=09999996666600 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00199999999666 B=00000100000000 C=09999996666600 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02170: 1..1..111. shift right c[w] A=00199999999666 B=00000100000000 C=00999999666660 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02171: 1..1..111. pqo24: shift right c[w] A=00199999999666 B=00000100000000 C=00099999966666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02172: ..1..1.1.. nrm26: if s2 = 0 A=00199999999666 B=00000100000000 C=00099999966666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02173: 1..1.1..11 -> 02224 then go to rtn21 A=00199999999666 B=00000100000000 C=00099999966666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02224: ..1..1.... -> 01225 rtn21: select rom 1 ; -> rtn11 A=00199999999666 B=00000100000000 C=00099999966666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 01225: ...1.1.1.. rtn11: if s1 = 0 A=00199999999666 B=00000100000000 C=00099999966666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 01226: 11.11.1.11 -> 01332 then go to rtn12 A=00199999999666 B=00000100000000 C=00099999966666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 01227: ....11.... return A=00199999999666 B=00000100000000 C=00099999966666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 01130: 1.....11.. 8 -> p A=00199999999666 B=00000100000000 C=00099999966666 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 01131: 1..11.11.1 -> 01233 jsb pmu11 A=00199999999666 B=00000100000000 C=00099999966666 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 01233: .1...1.... -> 02234 pmu11: select rom 2 ; -> pmu21 A=00199999999666 B=00000100000000 C=00099999966666 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 02234: 1.11..111. pmu21: shift right a[w] / 10 A=00019999999966 B=00000100000000 C=00099999966666 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 02235: 1...1.111. pmu22: b exchange c[w] A=00019999999966 B=00099999966666 C=00000100000000 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 02236: 1.1.....11 -> 02240 go to pmu24 A=00019999999966 B=00099999966666 C=00000100000000 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 02240: .1.111111. pmu24: c - 1 -> c[s] A=00019999999966 B=00099999966666 C=90000100000000 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 02241: 1..1111111 -> 02237 if no carry go to pmu23 NO PM A=00019999999966 B=00099999966666 C=90000100000000 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 02242: 111.1.111. a exchange c[w] A=90000100000000 B=00099999966666 C=00019999999966 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 02243: .1...1.11. shift left a[ms] A=00001000000000 B=00099999966666 C=00019999999966 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 02244: 111.1.111. a exchange c[w] A=00019999999966 B=00099999966666 C=00001000000000 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 02245: .11.11.111 -> 02155 go to pqo23 A=00019999999966 B=00099999966666 C=00001000000000 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 02155: 1...1.111. pqo23: b exchange c[w] A=00019999999966 B=00001000000000 C=00099999966666 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 02156: ..11..111. 0 -> c[w] A=00019999999966 B=00001000000000 C=00000000000000 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 02157: .1.11..11. c - 1 -> c[m] A=00019999999966 B=00001000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 02160: ..1..1.1.. if s2 = 0 A=00019999999966 B=00001000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 02161: .111.11.11 -> 02166 then go to pqo28 A=00019999999966 B=00001000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00019999999966 B=00001000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00019999999966 B=00001000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00019999999966 B=00001000000000 C=09999699999000 D=00000000000000 M=00000000000000 P=7 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00019999999966 B=00001000000000 C=09999699999000 D=00000000000000 M=00000000000000 P=7 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00019999999966 B=00001000000000 C=09999699999000 D=00000000000000 M=00000000000000 P=7 S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00019999999966 B=00001000000000 C=09999669999000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00019999999966 B=00001000000000 C=09999669999000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00019999999966 B=00001000000000 C=09999669999000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00019999999966 B=00001000000000 C=09999666999000 D=00000000000000 M=00000000000000 P=5 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00019999999966 B=00001000000000 C=09999666999000 D=00000000000000 M=00000000000000 P=5 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00019999999966 B=00001000000000 C=09999666999000 D=00000000000000 M=00000000000000 P=5 S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00019999999966 B=00001000000000 C=09999666699000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00019999999966 B=00001000000000 C=09999666699000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00019999999966 B=00001000000000 C=09999666699000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00019999999966 B=00001000000000 C=09999666669000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00019999999966 B=00001000000000 C=09999666669000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00019999999966 B=00001000000000 C=09999666669000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00019999999966 B=00001000000000 C=09999666666000 D=00000000000000 M=00000000000000 P=2 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00019999999966 B=00001000000000 C=09999666666000 D=00000000000000 M=00000000000000 P=2 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00019999999966 B=00001000000000 C=09999666666000 D=00000000000000 M=00000000000000 P=2 S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00019999999966 B=00001000000000 C=09999666666600 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00019999999966 B=00001000000000 C=09999666666600 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00019999999966 B=00001000000000 C=09999666666600 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02170: 1..1..111. shift right c[w] A=00019999999966 B=00001000000000 C=00999966666660 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02171: 1..1..111. pqo24: shift right c[w] A=00019999999966 B=00001000000000 C=00099996666666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02172: ..1..1.1.. nrm26: if s2 = 0 A=00019999999966 B=00001000000000 C=00099996666666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02173: 1..1.1..11 -> 02224 then go to rtn21 A=00019999999966 B=00001000000000 C=00099996666666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02224: ..1..1.... -> 01225 rtn21: select rom 1 ; -> rtn11 A=00019999999966 B=00001000000000 C=00099996666666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 01225: ...1.1.1.. rtn11: if s1 = 0 A=00019999999966 B=00001000000000 C=00099996666666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 01226: 11.11.1.11 -> 01332 then go to rtn12 A=00019999999966 B=00001000000000 C=00099996666666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 01227: ....11.... return A=00019999999966 B=00001000000000 C=00099996666666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 01132: ..1...11.. 2 -> p A=00019999999966 B=00001000000000 C=00099996666666 D=00000000000000 M=00000000000000 P=2 S=01....678.ab 01133: 1....11... load constant 8 A=00019999999966 B=00001000000000 C=00099996666866 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 01134: 1.1...11.. 10 -> p A=00019999999966 B=00001000000000 C=00099996666866 D=00000000000000 M=00000000000000 P=a S=01....678.ab 01135: 1..11.11.1 -> 01233 jsb pmu11 A=00019999999966 B=00001000000000 C=00099996666866 D=00000000000000 M=00000000000000 P=a S=01....678.ab 01233: .1...1.... -> 02234 pmu11: select rom 2 ; -> pmu21 A=00019999999966 B=00001000000000 C=00099996666866 D=00000000000000 M=00000000000000 P=a S=01....678.ab 02234: 1.11..111. pmu21: shift right a[w] / 10 A=00001999999996 B=00001000000000 C=00099996666866 D=00000000000000 M=00000000000000 P=a S=01....678.ab 02235: 1...1.111. pmu22: b exchange c[w] A=00001999999996 B=00099996666866 C=00001000000000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 02236: 1.1.....11 -> 02240 go to pmu24 A=00001999999996 B=00099996666866 C=00001000000000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 02240: .1.111111. pmu24: c - 1 -> c[s] A=00001999999996 B=00099996666866 C=90001000000000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 02241: 1..1111111 -> 02237 if no carry go to pmu23 A=00001999999996 B=00099996666866 C=90001000000000 D=00000000000000 M=00000000000000 P=a S=01....678.ab NO PM 02242: 111.1.111. a exchange c[w] A=90001000000000 B=00099996666866 C=00001999999996 D=00000000000000 M=00000000000000 P=a S=01....678.ab 02243: .1...1.11. shift left a[ms] A=00010000000000 B=00099996666866 C=00001999999996 D=00000000000000 M=00000000000000 P=a S=01....678.ab 02244: 111.1.111. a exchange c[w] A=00001999999996 B=00099996666866 C=00010000000000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 02245: .11.11.111 -> 02155 go to pqo23 A=00001999999996 B=00099996666866 C=00010000000000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 02155: 1...1.111. pqo23: b exchange c[w] A=00001999999996 B=00010000000000 C=00099996666866 D=00000000000000 M=00000000000000 P=a S=01....678.ab 02156: ..11..111. 0 -> c[w] A=00001999999996 B=00010000000000 C=00000000000000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 02157: .1.11..11. c - 1 -> c[m] A=00001999999996 B=00010000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 02160: ..1..1.1.. if s2 = 0 A=00001999999996 B=00010000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 02161: .111.11.11 -> 02166 then go to pqo28 A=00001999999996 B=00010000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00001999999996 B=00010000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00001999999996 B=00010000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00001999999996 B=00010000000000 C=09969999999000 D=00000000000000 M=00000000000000 P=9 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00001999999996 B=00010000000000 C=09969999999000 D=00000000000000 M=00000000000000 P=9 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00001999999996 B=00010000000000 C=09969999999000 D=00000000000000 M=00000000000000 P=9 S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00001999999996 B=00010000000000 C=09966999999000 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00001999999996 B=00010000000000 C=09966999999000 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00001999999996 B=00010000000000 C=09966999999000 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00001999999996 B=00010000000000 C=09966699999000 D=00000000000000 M=00000000000000 P=7 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00001999999996 B=00010000000000 C=09966699999000 D=00000000000000 M=00000000000000 P=7 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00001999999996 B=00010000000000 C=09966699999000 D=00000000000000 M=00000000000000 P=7 S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00001999999996 B=00010000000000 C=09966669999000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00001999999996 B=00010000000000 C=09966669999000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00001999999996 B=00010000000000 C=09966669999000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00001999999996 B=00010000000000 C=09966666999000 D=00000000000000 M=00000000000000 P=5 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00001999999996 B=00010000000000 C=09966666999000 D=00000000000000 M=00000000000000 P=5 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00001999999996 B=00010000000000 C=09966666999000 D=00000000000000 M=00000000000000 P=5 S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00001999999996 B=00010000000000 C=09966666699000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00001999999996 B=00010000000000 C=09966666699000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00001999999996 B=00010000000000 C=09966666699000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00001999999996 B=00010000000000 C=09966666669000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00001999999996 B=00010000000000 C=09966666669000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00001999999996 B=00010000000000 C=09966666669000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00001999999996 B=00010000000000 C=09966666666000 D=00000000000000 M=00000000000000 P=2 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00001999999996 B=00010000000000 C=09966666666000 D=00000000000000 M=00000000000000 P=2 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00001999999996 B=00010000000000 C=09966666666000 D=00000000000000 M=00000000000000 P=2 S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00001999999996 B=00010000000000 C=09966666666600 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00001999999996 B=00010000000000 C=09966666666600 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00001999999996 B=00010000000000 C=09966666666600 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02170: 1..1..111. shift right c[w] A=00001999999996 B=00010000000000 C=00996666666660 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02171: 1..1..111. pqo24: shift right c[w] A=00001999999996 B=00010000000000 C=00099666666666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02172: ..1..1.1.. nrm26: if s2 = 0 A=00001999999996 B=00010000000000 C=00099666666666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02173: 1..1.1..11 -> 02224 then go to rtn21 A=00001999999996 B=00010000000000 C=00099666666666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02224: ..1..1.... -> 01225 rtn21: select rom 1 ; -> rtn11 A=00001999999996 B=00010000000000 C=00099666666666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 01225: ...1.1.1.. rtn11: if s1 = 0 A=00001999999996 B=00010000000000 C=00099666666666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 01226: 11.11.1.11 -> 01332 then go to rtn12 A=00001999999996 B=00010000000000 C=00099666666666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 01227: ....11.... return A=00001999999996 B=00010000000000 C=00099666666666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 01136: 1...111..1 -> 01216 jsb atcd1 A=00001999999996 B=00010000000000 C=00099666666666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 01216: .11...11.. atcd1: 6 -> p A=00001999999996 B=00010000000000 C=00099666666666 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 01217: 1....11... load constant 8 A=00001999999996 B=00010000000000 C=00099668666666 D=00000000000000 M=00000000000000 P=5 S=01....678.ab 01220: .11..11... load constant 6 A=00001999999996 B=00010000000000 C=00099668666666 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 01221: .1.1.11... load constant 5 A=00001999999996 B=00010000000000 C=00099668656666 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 01222: ..1..11... load constant 2 A=00001999999996 B=00010000000000 C=00099668652666 D=00000000000000 M=00000000000000 P=2 S=01....678.ab 01223: .1...11... load constant 4 A=00001999999996 B=00010000000000 C=00099668652466 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 01224: 1..1.11... load constant 9 A=00001999999996 B=00010000000000 C=00099668652496 D=00000000000000 M=00000000000000 P=0 S=01....678.ab 01225: ...1.1.1.. rtn11: if s1 = 0 A=00001999999996 B=00010000000000 C=00099668652496 D=00000000000000 M=00000000000000 P=0 S=01....678.ab 01226: 11.11.1.11 -> 01332 then go to rtn12 A=00001999999996 B=00010000000000 C=00099668652496 D=00000000000000 M=00000000000000 P=0 S=01....678.ab 01227: ....11.... return A=00001999999996 B=00010000000000 C=00099668652496 D=00000000000000 M=00000000000000 P=0 S=01....678.ab 01137: 1..11.11.1 -> 01233 jsb pmu11 A=00001999999996 B=00010000000000 C=00099668652496 D=00000000000000 M=00000000000000 P=0 S=01....678.ab 01233: .1...1.... -> 02234 pmu11: select rom 2 ; -> pmu21 A=00001999999996 B=00010000000000 C=00099668652496 D=00000000000000 M=00000000000000 P=0 S=01....678.ab 02234: 1.11..111. pmu21: shift right a[w] / 10 A=00000199999999 B=00010000000000 C=00099668652496 D=00000000000000 M=00000000000000 P=0 S=01....678.ab 02235: 1...1.111. pmu22: b exchange c[w] A=00000199999999 B=00099668652496 C=00010000000000 D=00000000000000 M=00000000000000 P=0 S=01....678.ab 02236: 1.1.....11 -> 02240 go to pmu24 A=00000199999999 B=00099668652496 C=00010000000000 D=00000000000000 M=00000000000000 P=0 S=01....678.ab 02240: .1.111111. pmu24: c - 1 -> c[s] A=00000199999999 B=00099668652496 C=90010000000000 D=00000000000000 M=00000000000000 P=0 S=01....678.ab 02241: 1..1111111 -> 02237 if no carry go to pmu23 A=00000199999999 B=00099668652496 C=90010000000000 D=00000000000000 M=00000000000000 P=0 S=01....678.ab NO PM 02242: 111.1.111. a exchange c[w] A=90010000000000 B=00099668652496 C=00000199999999 D=00000000000000 M=00000000000000 P=0 S=01....678.ab 02243: .1...1.11. shift left a[ms] A=00100000000000 B=00099668652496 C=00000199999999 D=00000000000000 M=00000000000000 P=0 S=01....678.ab 02244: 111.1.111. a exchange c[w] A=00000199999999 B=00099668652496 C=00100000000000 D=00000000000000 M=00000000000000 P=0 S=01....678.ab 02245: .11.11.111 -> 02155 go to pqo23 A=00000199999999 B=00099668652496 C=00100000000000 D=00000000000000 M=00000000000000 P=0 S=01....678.ab 02155: 1...1.111. pqo23: b exchange c[w] A=00000199999999 B=00100000000000 C=00099668652496 D=00000000000000 M=00000000000000 P=0 S=01....678.ab 02156: ..11..111. 0 -> c[w] A=00000199999999 B=00100000000000 C=00000000000000 D=00000000000000 M=00000000000000 P=0 S=01....678.ab 02157: .1.11..11. c - 1 -> c[m] A=00000199999999 B=00100000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=0 S=01....678.ab 02160: ..1..1.1.. if s2 = 0 A=00000199999999 B=00100000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=0 S=01....678.ab 02161: .111.11.11 -> 02166 then go to pqo28 A=00000199999999 B=00100000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=0 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00000199999999 B=00100000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=0 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00000199999999 B=00100000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=0 S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00000199999999 B=00100000000000 C=09999999999006 D=00000000000000 M=00000000000000 P=f S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00000199999999 B=00100000000000 C=09999999999006 D=00000000000000 M=00000000000000 P=f S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00000199999999 B=00100000000000 C=09999999999006 D=00000000000000 M=00000000000000 P=f S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00000199999999 B=00100000000000 C=09999999999006 D=00000000000000 M=00000000000000 P=e S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00000199999999 B=00100000000000 C=09999999999006 D=00000000000000 M=00000000000000 P=e S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00000199999999 B=00100000000000 C=09999999999006 D=00000000000000 M=00000000000000 P=e S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00000199999999 B=00100000000000 C=09999999999006 D=00000000000000 M=00000000000000 P=d S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00000199999999 B=00100000000000 C=09999999999006 D=00000000000000 M=00000000000000 P=d S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00000199999999 B=00100000000000 C=09999999999006 D=00000000000000 M=00000000000000 P=d S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00000199999999 B=00100000000000 C=69999999999006 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00000199999999 B=00100000000000 C=69999999999006 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00000199999999 B=00100000000000 C=69999999999006 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00000199999999 B=00100000000000 C=66999999999006 D=00000000000000 M=00000000000000 P=b S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00000199999999 B=00100000000000 C=66999999999006 D=00000000000000 M=00000000000000 P=b S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00000199999999 B=00100000000000 C=66999999999006 D=00000000000000 M=00000000000000 P=b S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00000199999999 B=00100000000000 C=66699999999006 D=00000000000000 M=00000000000000 P=a S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00000199999999 B=00100000000000 C=66699999999006 D=00000000000000 M=00000000000000 P=a S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00000199999999 B=00100000000000 C=66699999999006 D=00000000000000 M=00000000000000 P=a S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00000199999999 B=00100000000000 C=66669999999006 D=00000000000000 M=00000000000000 P=9 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00000199999999 B=00100000000000 C=66669999999006 D=00000000000000 M=00000000000000 P=9 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00000199999999 B=00100000000000 C=66669999999006 D=00000000000000 M=00000000000000 P=9 S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00000199999999 B=00100000000000 C=66666999999006 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00000199999999 B=00100000000000 C=66666999999006 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00000199999999 B=00100000000000 C=66666999999006 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00000199999999 B=00100000000000 C=66666699999006 D=00000000000000 M=00000000000000 P=7 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00000199999999 B=00100000000000 C=66666699999006 D=00000000000000 M=00000000000000 P=7 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00000199999999 B=00100000000000 C=66666699999006 D=00000000000000 M=00000000000000 P=7 S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00000199999999 B=00100000000000 C=66666669999006 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00000199999999 B=00100000000000 C=66666669999006 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00000199999999 B=00100000000000 C=66666669999006 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00000199999999 B=00100000000000 C=66666666999006 D=00000000000000 M=00000000000000 P=5 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00000199999999 B=00100000000000 C=66666666999006 D=00000000000000 M=00000000000000 P=5 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00000199999999 B=00100000000000 C=66666666999006 D=00000000000000 M=00000000000000 P=5 S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00000199999999 B=00100000000000 C=66666666699006 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00000199999999 B=00100000000000 C=66666666699006 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00000199999999 B=00100000000000 C=66666666699006 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00000199999999 B=00100000000000 C=66666666669006 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00000199999999 B=00100000000000 C=66666666669006 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00000199999999 B=00100000000000 C=66666666669006 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00000199999999 B=00100000000000 C=66666666666006 D=00000000000000 M=00000000000000 P=2 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00000199999999 B=00100000000000 C=66666666666006 D=00000000000000 M=00000000000000 P=2 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00000199999999 B=00100000000000 C=66666666666006 D=00000000000000 M=00000000000000 P=2 S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00000199999999 B=00100000000000 C=66666666666606 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00000199999999 B=00100000000000 C=66666666666606 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00000199999999 B=00100000000000 C=66666666666606 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02170: 1..1..111. shift right c[w] A=00000199999999 B=00100000000000 C=06666666666660 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02171: 1..1..111. pqo24: shift right c[w] A=00000199999999 B=00100000000000 C=00666666666666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02172: ..1..1.1.. nrm26: if s2 = 0 A=00000199999999 B=00100000000000 C=00666666666666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02173: 1..1.1..11 -> 02224 then go to rtn21 A=00000199999999 B=00100000000000 C=00666666666666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02224: ..1..1.... -> 01225 rtn21: select rom 1 ; -> rtn11 A=00000199999999 B=00100000000000 C=00666666666666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 01225: ...1.1.1.. rtn11: if s1 = 0 A=00000199999999 B=00100000000000 C=00666666666666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 01226: 11.11.1.11 -> 01332 then go to rtn12 A=00000199999999 B=00100000000000 C=00666666666666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 01227: ....11.... return A=00000199999999 B=00100000000000 C=00666666666666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 01140: 11..11...1 -> 01314 jsb atc1 A=00000199999999 B=00100000000000 C=00666666666666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 01314: ..11..111. atc1: 0 -> c[w] A=00000199999999 B=00100000000000 C=00000000000000 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 01315: 1.11..11.. 11 -> p A=00000199999999 B=00100000000000 C=00000000000000 D=00000000000000 M=00000000000000 P=b S=01....678.ab 01316: .111.11... load constant 7 ; load pi/4 A=00000199999999 B=00100000000000 C=00700000000000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 01317: 1....11... load constant 8 A=00000199999999 B=00100000000000 C=00780000000000 D=00000000000000 M=00000000000000 P=9 S=01....678.ab 01320: .1.1.11... load constant 5 A=00000199999999 B=00100000000000 C=00785000000000 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 01321: ..11.11... load constant 3 A=00000199999999 B=00100000000000 C=00785300000000 D=00000000000000 M=00000000000000 P=7 S=01....678.ab 01322: 1..1.11... load constant 9 A=00000199999999 B=00100000000000 C=00785390000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 01323: 1....11... load constant 8 A=00000199999999 B=00100000000000 C=00785398000000 D=00000000000000 M=00000000000000 P=5 S=01....678.ab 01324: ...1.11... load constant 1 A=00000199999999 B=00100000000000 C=00785398100000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 01325: .11..11... load constant 6 A=00000199999999 B=00100000000000 C=00785398160000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 01326: ..11.11... load constant 3 A=00000199999999 B=00100000000000 C=00785398163000 D=00000000000000 M=00000000000000 P=2 S=01....678.ab 01327: .1.1.11... load constant 5 A=00000199999999 B=00100000000000 C=00785398163500 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 01330: 11....11.. 12 -> p A=00000199999999 B=00100000000000 C=00785398163500 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01331: ....11.... return A=00000199999999 B=00100000000000 C=00785398163500 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01141: .1....111. shift left a[w] A=00001999999990 B=00100000000000 C=00785398163500 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01142: 1..11.11.1 -> 01233 jsb pmu11 A=00001999999990 B=00100000000000 C=00785398163500 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01233: .1...1.... -> 02234 pmu11: select rom 2 ; -> pmu21 A=00001999999990 B=00100000000000 C=00785398163500 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02234: 1.11..111. pmu21: shift right a[w] /10 A=00000199999999 B=00100000000000 C=00785398163500 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02235: 1...1.111. pmu22: b exchange c[w] A=00000199999999 B=00785398163500 C=00100000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02236: 1.1.....11 -> 02240 go to pmu24 A=00000199999999 B=00785398163500 C=00100000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02240: .1.111111. pmu24: c - 1 -> c[s] A=00000199999999 B=00785398163500 C=90100000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02241: 1..1111111 -> 02237 if no carry go to pmu23 A=00000199999999 B=00785398163500 C=90100000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab NO PM 02242: 111.1.111. a exchange c[w] A=90100000000000 B=00785398163500 C=00000199999999 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02243: .1...1.11. shift left a[ms] A=01000000000000 B=00785398163500 C=00000199999999 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02244: 111.1.111. a exchange c[w] A=00000199999999 B=00785398163500 C=01000000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02245: .11.11.111 -> 02155 go to pqo23 A=00000199999999 B=00785398163500 C=01000000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02155: 1...1.111. pqo23: b exchange c[w] A=00000199999999 B=01000000000000 C=00785398163500 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02156: ..11..111. 0 -> c[w] A=00000199999999 B=01000000000000 C=00000000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02157: .1.11..11. c - 1 -> c[m] A=00000199999999 B=01000000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02160: ..1..1.1.. if s2 = 0 A=00000199999999 B=01000000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02161: .111.11.11 -> 02166 then go to pqo28 A=00000199999999 B=01000000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00000199999999 B=01000000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00000199999999 B=01000000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00000199999999 B=01000000000000 C=06999999999000 D=00000000000000 M=00000000000000 P=b S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00000199999999 B=01000000000000 C=06999999999000 D=00000000000000 M=00000000000000 P=b S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00000199999999 B=01000000000000 C=06999999999000 D=00000000000000 M=00000000000000 P=b S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00000199999999 B=01000000000000 C=06699999999000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00000199999999 B=01000000000000 C=06699999999000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00000199999999 B=01000000000000 C=06699999999000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00000199999999 B=01000000000000 C=06669999999000 D=00000000000000 M=00000000000000 P=9 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00000199999999 B=01000000000000 C=06669999999000 D=00000000000000 M=00000000000000 P=9 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00000199999999 B=01000000000000 C=06669999999000 D=00000000000000 M=00000000000000 P=9 S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00000199999999 B=01000000000000 C=06666999999000 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00000199999999 B=01000000000000 C=06666999999000 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00000199999999 B=01000000000000 C=06666999999000 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00000199999999 B=01000000000000 C=06666699999000 D=00000000000000 M=00000000000000 P=7 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00000199999999 B=01000000000000 C=06666699999000 D=00000000000000 M=00000000000000 P=7 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00000199999999 B=01000000000000 C=06666699999000 D=00000000000000 M=00000000000000 P=7 S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00000199999999 B=01000000000000 C=06666669999000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00000199999999 B=01000000000000 C=06666669999000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00000199999999 B=01000000000000 C=06666669999000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00000199999999 B=01000000000000 C=06666666999000 D=00000000000000 M=00000000000000 P=5 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00000199999999 B=01000000000000 C=06666666999000 D=00000000000000 M=00000000000000 P=5 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00000199999999 B=01000000000000 C=06666666999000 D=00000000000000 M=00000000000000 P=5 S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00000199999999 B=01000000000000 C=06666666699000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00000199999999 B=01000000000000 C=06666666699000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00000199999999 B=01000000000000 C=06666666699000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00000199999999 B=01000000000000 C=06666666669000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00000199999999 B=01000000000000 C=06666666669000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00000199999999 B=01000000000000 C=06666666669000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00000199999999 B=01000000000000 C=06666666666000 D=00000000000000 M=00000000000000 P=2 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00000199999999 B=01000000000000 C=06666666666000 D=00000000000000 M=00000000000000 P=2 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00000199999999 B=01000000000000 C=06666666666000 D=00000000000000 M=00000000000000 P=2 S=01....678.ab 02165: .11..11... pqo27: load constant 6 A=00000199999999 B=01000000000000 C=06666666666600 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02166: ...11.11.. pqo28: if p # 1 A=00000199999999 B=01000000000000 C=06666666666600 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02167: .111.1.111 -> 02165 then go to pqo27 A=00000199999999 B=01000000000000 C=06666666666600 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02170: 1..1..111. shift right c[w] A=00000199999999 B=01000000000000 C=00666666666660 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02171: 1..1..111. pqo24: shift right c[w] A=00000199999999 B=01000000000000 C=00066666666666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02172: ..1..1.1.. nrm26: if s2 = 0 A=00000199999999 B=01000000000000 C=00066666666666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02173: 1..1.1..11 -> 02224 then go to rtn21 A=00000199999999 B=01000000000000 C=00066666666666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02224: ..1..1.... -> 01225 rtn21: select rom 1 ; -> rtn11 A=00000199999999 B=01000000000000 C=00066666666666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 01225: ...1.1.1.. rtn11: if s1 = 0 A=00000199999999 B=01000000000000 C=00066666666666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 01226: 11.11.1.11 -> 01332 then go to rtn12 A=00000199999999 B=01000000000000 C=00066666666666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 01227: ....11.... return A=00000199999999 B=01000000000000 C=00066666666666 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 01143: ..1...111. b -> c[w] A=00000199999999 B=01000000000000 C=01000000000000 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 01144: 11..1.11.1 -> 01313 jsb add15 A=00000199999999 B=01000000000000 C=01000000000000 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 01313: .1...1.... -> 02314 add15: select rom 2 ; -> nrm21 A=00000199999999 B=01000000000000 C=01000000000000 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02314: 1.1111111. nrm21: 0 -> a[s] A=00000199999999 B=01000000000000 C=01000000000000 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 02315: 11....11.. 12 -> p A=00000199999999 B=01000000000000 C=01000000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02316: ....1.111. 0 -> b[w] A=00000199999999 B=00000000000000 C=01000000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02317: 1..11...1. nrm23: if a[p] >= 1 A=00000199999999 B=00000000000000 C=01000000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02320: 11.1.11.11 -> 02326 then go to nrm24 A=00000199999999 B=00000000000000 C=01000000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02321: .1....111. shift left a[w] A=00001999999990 B=00000000000000 C=01000000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02322: .1.11.1.1. c - 1 -> c[x] A=00001999999990 B=00000000000000 C=01000000000999 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02323: 1..11.111. if a[w] >= 1 A=00001999999990 B=00000000000000 C=01000000000999 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02324: 11..111111 -> 02317 then go to nrm23 A=00001999999990 B=00000000000000 C=01000000000999 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02317: 1..11...1. nrm23: if a[p] >= 1 A=00001999999990 B=00000000000000 C=01000000000999 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02320: 11.1.11.11 -> 02326 then go to nrm24 A=00001999999990 B=00000000000000 C=01000000000999 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02321: .1....111. shift left a[w] A=00019999999900 B=00000000000000 C=01000000000999 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02322: .1.11.1.1. c - 1 -> c[x] A=00019999999900 B=00000000000000 C=01000000000998 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02323: 1..11.111. if a[w] >= 1 A=00019999999900 B=00000000000000 C=01000000000998 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02324: 11..111111 -> 02317 then go to nrm23 A=00019999999900 B=00000000000000 C=01000000000998 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02317: 1..11...1. nrm23: if a[p] >= 1 A=00019999999900 B=00000000000000 C=01000000000998 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02320: 11.1.11.11 -> 02326 then go to nrm24 A=00019999999900 B=00000000000000 C=01000000000998 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02321: .1....111. shift left a[w] A=00199999999000 B=00000000000000 C=01000000000998 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02322: .1.11.1.1. c - 1 -> c[x] A=00199999999000 B=00000000000000 C=01000000000997 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02323: 1..11.111. if a[w] >= 1 A=00199999999000 B=00000000000000 C=01000000000997 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02324: 11..111111 -> 02317 then go to nrm23 A=00199999999000 B=00000000000000 C=01000000000997 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02317: 1..11...1. nrm23: if a[p] >= 1 A=00199999999000 B=00000000000000 C=01000000000997 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02320: 11.1.11.11 -> 02326 then go to nrm24 A=00199999999000 B=00000000000000 C=01000000000997 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02321: .1....111. shift left a[w] A=01999999990000 B=00000000000000 C=01000000000997 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02322: .1.11.1.1. c - 1 -> c[x] A=01999999990000 B=00000000000000 C=01000000000996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02323: 1..11.111. if a[w] >= 1 A=01999999990000 B=00000000000000 C=01000000000996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02324: 11..111111 -> 02317 then go to nrm23 A=01999999990000 B=00000000000000 C=01000000000996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02317: 1..11...1. nrm23: if a[p] >= 1 A=01999999990000 B=00000000000000 C=01000000000996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02320: 11.1.11.11 -> 02326 then go to nrm24 A=01999999990000 B=00000000000000 C=01000000000996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02326: .1..1.1.1. nrm24: a -> b[x] A=01999999990000 B=00000000000000 C=01000000000996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02327: 111...111. a + b -> a[w] A=01999999990000 B=00000000000000 C=01000000000996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02330: 1..111111. if a[s] >= 1 A=01999999990000 B=00000000000000 C=01000000000996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02331: 11...11111 -> 02307 then go to mpy28 A=01999999990000 B=00000000000000 C=01000000000996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02332: 111.1..11. a exchange c[m] A=01000000000000 B=00000000000000 C=01999999990996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02333: .11...111. c -> a[w] A=01999999990996 B=00000000000000 C=01999999990996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02334: ....1.111. 0 -> b[w] A=01999999990996 B=00000000000000 C=01999999990996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02335: 11....11.. nrm27: 12 -> p A=01999999990996 B=00000000000000 C=01999999990996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02336: .1111.1.11 -> 02172 go to nrm26 A=01999999990996 B=00000000000000 C=01999999990996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02172: ..1..1.1.. nrm26: if s2 = 0 A=01999999990996 B=00000000000000 C=01999999990996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02173: 1..1.1..11 -> 02224 then go to rtn21 A=01999999990996 B=00000000000000 C=01999999990996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02224: ..1..1.... -> 01225 rtn21: select rom 1 ; -> rtn11 A=01999999990996 B=00000000000000 C=01999999990996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01225: ...1.1.1.. rtn11: if s1 = 0 A=01999999990996 B=00000000000000 C=01999999990996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01226: 11.11.1.11 -> 01332 then go to rtn12 A=01999999990996 B=00000000000000 C=01999999990996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01227: ....11.... return A=01999999990996 B=00000000000000 C=01999999990996 D=00000000000000 M=00000000000000 P=c S=01....678.ab Normalized C=1.999999990996 1.999 10^-4 Next converting to degrees 01145: 11..11...1 -> 01314 jsb atc1 A=01999999990996 B=00000000000000 C=01999999990996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01314: ..11..111. atc1: 0 -> c[w] A=01999999990996 B=00000000000000 C=00000000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01315: 1.11..11.. 11 -> p A=01999999990996 B=00000000000000 C=00000000000000 D=00000000000000 M=00000000000000 P=b S=01....678.ab 01316: .111.11... load constant 7 ; load pi/4 A=01999999990996 B=00000000000000 C=00700000000000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 01317: 1....11... load constant 8 A=01999999990996 B=00000000000000 C=00780000000000 D=00000000000000 M=00000000000000 P=9 S=01....678.ab 01320: .1.1.11... load constant 5 A=01999999990996 B=00000000000000 C=00785000000000 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 01321: ..11.11... load constant 3 A=01999999990996 B=00000000000000 C=00785300000000 D=00000000000000 M=00000000000000 P=7 S=01....678.ab 01322: 1..1.11... load constant 9 A=01999999990996 B=00000000000000 C=00785390000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 01323: 1....11... load constant 8 A=01999999990996 B=00000000000000 C=00785398000000 D=00000000000000 M=00000000000000 P=5 S=01....678.ab 01324: ...1.11... load constant 1 A=01999999990996 B=00000000000000 C=00785398100000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 01325: .11..11... load constant 6 A=01999999990996 B=00000000000000 C=00785398160000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 01326: ..11.11... load constant 3 A=01999999990996 B=00000000000000 C=00785398163000 D=00000000000000 M=00000000000000 P=2 S=01....678.ab 01327: .1.1.11... load constant 5 A=01999999990996 B=00000000000000 C=00785398163500 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 01330: 11....11.. 12 -> p A=01999999990996 B=00000000000000 C=00785398163500 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01331: ....11.... return A=01999999990996 B=00000000000000 C=00785398163500 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01146: 1.1.1.111. c + c -> c[w] A=01999999990996 B=00000000000000 C=01570796327000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01147: 1.1..11..1 -> 01246 jsb div11 A=01999999990996 B=00000000000000 C=01570796327000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01246: .1.1..1.1. div11: a - c -> c[x] A=01999999990996 B=00000000000000 C=01570796327996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01247: .1...1.... -> 02250 select rom 2 ; -> l02250 A=01999999990996 B=00000000000000 C=01570796327996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02250: .1.1.1111. a - c -> c[s] A=01999999990996 B=00000000000000 C=01570796327996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02251: 1.1.1.1111 -> 02253 if no carry go to div22 A=01999999990996 B=00000000000000 C=01570796327996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02253: 11..1..11. div22: a exchange b[m] A=00000000000996 B=01999999990000 C=01570796327996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02254: 1.111.111. 0 -> a[w] A=00000000000000 B=01999999990000 C=01570796327996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02255: 11..1.11.. if p # 12 A=00000000000000 B=01999999990000 C=01570796327996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02256: 11...1.111 -> 02305 then go to mpy27 A=00000000000000 B=01999999990000 C=01570796327996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02257: ...11..11. if c[m] >= 1 A=00000000000000 B=01999999990000 C=01570796327996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02260: 1.11.11.11 -> 02266 then go to div23 A=00000000000000 B=01999999990000 C=01570796327996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02266: 1...11..1. div23: b exchange c[wp] A=00000000000000 B=01570796327996 C=01999999990000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02267: 111.1..11. a exchange c[m] A=01999999990000 B=01570796327996 C=00000000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02270: ..1..1.... -> 01271 select rom 1 ; -> l01271 A=01999999990000 B=01570796327996 C=00000000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01271: 1.11..1111 -> 01263 then go to div15 A=01999999990000 B=01570796327996 C=00000000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00429203663000 B=01570796327996 C=00000000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00429203663000 B=01570796327996 C=00000000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00429203663000 B=01570796327996 C=01000000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=98858407336000 B=01570796327996 C=01000000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=98858407336000 B=01570796327996 C=01000000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01265: 111..1.11. a + b -> a[ms] A=00429203663000 B=01570796327996 C=01000000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01266: .1...1.11. shift left a[ms] A=04292036630000 B=01570796327996 C=01000000000000 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01267: .....111.. p - 1 -> p A=04292036630000 B=01570796327996 C=01000000000000 D=00000000000000 M=00000000000000 P=b S=01....678.ab 01270: ....1.11.. if p # 0 A=04292036630000 B=01570796327996 C=01000000000000 D=00000000000000 M=00000000000000 P=b S=01....678.ab 01271: 1.11..1111 -> 01263 then go to div15 A=04292036630000 B=01570796327996 C=01000000000000 D=00000000000000 M=00000000000000 P=b S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=02721240303000 B=01570796327996 C=01000000000000 D=00000000000000 M=00000000000000 P=b S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=02721240303000 B=01570796327996 C=01000000000000 D=00000000000000 M=00000000000000 P=b S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=02721240303000 B=01570796327996 C=01100000000000 D=00000000000000 M=00000000000000 P=b S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=01150443976000 B=01570796327996 C=01100000000000 D=00000000000000 M=00000000000000 P=b S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=01150443976000 B=01570796327996 C=01100000000000 D=00000000000000 M=00000000000000 P=b S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=01150443976000 B=01570796327996 C=01200000000000 D=00000000000000 M=00000000000000 P=b S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=99579647649000 B=01570796327996 C=01200000000000 D=00000000000000 M=00000000000000 P=b S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=99579647649000 B=01570796327996 C=01200000000000 D=00000000000000 M=00000000000000 P=b S=01....678.ab 01265: 111..1.11. a + b -> a[ms] A=01150443976000 B=01570796327996 C=01200000000000 D=00000000000000 M=00000000000000 P=b S=01....678.ab 01266: .1...1.11. shift left a[ms] A=11504439760000 B=01570796327996 C=01200000000000 D=00000000000000 M=00000000000000 P=b S=01....678.ab 01267: .....111.. p - 1 -> p A=11504439760000 B=01570796327996 C=01200000000000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 01270: ....1.11.. if p # 0 A=11504439760000 B=01570796327996 C=01200000000000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 01271: 1.11..1111 -> 01263 then go to div15 A=11504439760000 B=01570796327996 C=01200000000000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=09933643433000 B=01570796327996 C=01200000000000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=09933643433000 B=01570796327996 C=01200000000000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=09933643433000 B=01570796327996 C=01210000000000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=08362847106000 B=01570796327996 C=01210000000000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=08362847106000 B=01570796327996 C=01210000000000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=08362847106000 B=01570796327996 C=01220000000000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=06792050779000 B=01570796327996 C=01220000000000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=06792050779000 B=01570796327996 C=01220000000000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=06792050779000 B=01570796327996 C=01230000000000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=05221254452000 B=01570796327996 C=01230000000000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=05221254452000 B=01570796327996 C=01230000000000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=05221254452000 B=01570796327996 C=01240000000000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=03650458125000 B=01570796327996 C=01240000000000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=03650458125000 B=01570796327996 C=01240000000000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=03650458125000 B=01570796327996 C=01250000000000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=02079661798000 B=01570796327996 C=01250000000000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=02079661798000 B=01570796327996 C=01250000000000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=02079661798000 B=01570796327996 C=01260000000000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00508865471000 B=01570796327996 C=01260000000000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00508865471000 B=01570796327996 C=01260000000000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00508865471000 B=01570796327996 C=01270000000000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=98938069144000 B=01570796327996 C=01270000000000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=98938069144000 B=01570796327996 C=01270000000000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 01265: 111..1.11. a + b -> a[ms] A=00508865471000 B=01570796327996 C=01270000000000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 01266: .1...1.11. shift left a[ms] A=05088654710000 B=01570796327996 C=01270000000000 D=00000000000000 M=00000000000000 P=a S=01....678.ab 01267: .....111.. p - 1 -> p A=05088654710000 B=01570796327996 C=01270000000000 D=00000000000000 M=00000000000000 P=9 S=01....678.ab 01270: ....1.11.. if p # 0 A=05088654710000 B=01570796327996 C=01270000000000 D=00000000000000 M=00000000000000 P=9 S=01....678.ab 01271: 1.11..1111 -> 01263 then go to div15 A=05088654710000 B=01570796327996 C=01270000000000 D=00000000000000 M=00000000000000 P=9 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=03517858383000 B=01570796327996 C=01270000000000 D=00000000000000 M=00000000000000 P=9 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=03517858383000 B=01570796327996 C=01270000000000 D=00000000000000 M=00000000000000 P=9 S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=03517858383000 B=01570796327996 C=01271000000000 D=00000000000000 M=00000000000000 P=9 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=01947062056000 B=01570796327996 C=01271000000000 D=00000000000000 M=00000000000000 P=9 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=01947062056000 B=01570796327996 C=01271000000000 D=00000000000000 M=00000000000000 P=9 S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=01947062056000 B=01570796327996 C=01272000000000 D=00000000000000 M=00000000000000 P=9 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00376265729000 B=01570796327996 C=01272000000000 D=00000000000000 M=00000000000000 P=9 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00376265729000 B=01570796327996 C=01272000000000 D=00000000000000 M=00000000000000 P=9 S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00376265729000 B=01570796327996 C=01273000000000 D=00000000000000 M=00000000000000 P=9 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=98805469402000 B=01570796327996 C=01273000000000 D=00000000000000 M=00000000000000 P=9 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=98805469402000 B=01570796327996 C=01273000000000 D=00000000000000 M=00000000000000 P=9 S=01....678.ab 01265: 111..1.11. a + b -> a[ms] A=00376265729000 B=01570796327996 C=01273000000000 D=00000000000000 M=00000000000000 P=9 S=01....678.ab 01266: .1...1.11. shift left a[ms] A=03762657290000 B=01570796327996 C=01273000000000 D=00000000000000 M=00000000000000 P=9 S=01....678.ab 01267: .....111.. p - 1 -> p A=03762657290000 B=01570796327996 C=01273000000000 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 01270: ....1.11.. if p # 0 A=03762657290000 B=01570796327996 C=01273000000000 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 01271: 1.11..1111 -> 01263 then go to div15 A=03762657290000 B=01570796327996 C=01273000000000 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=02191860963000 B=01570796327996 C=01273000000000 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=02191860963000 B=01570796327996 C=01273000000000 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=02191860963000 B=01570796327996 C=01273100000000 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00621064636000 B=01570796327996 C=01273100000000 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00621064636000 B=01570796327996 C=01273100000000 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00621064636000 B=01570796327996 C=01273200000000 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=99050268309000 B=01570796327996 C=01273200000000 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=99050268309000 B=01570796327996 C=01273200000000 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 01265: 111..1.11. a + b -> a[ms] A=00621064636000 B=01570796327996 C=01273200000000 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 01266: .1...1.11. shift left a[ms] A=06210646360000 B=01570796327996 C=01273200000000 D=00000000000000 M=00000000000000 P=8 S=01....678.ab 01267: .....111.. p - 1 -> p A=06210646360000 B=01570796327996 C=01273200000000 D=00000000000000 M=00000000000000 P=7 S=01....678.ab 01270: ....1.11.. if p # 0 A=06210646360000 B=01570796327996 C=01273200000000 D=00000000000000 M=00000000000000 P=7 S=01....678.ab 01271: 1.11..1111 -> 01263 then go to div15 A=06210646360000 B=01570796327996 C=01273200000000 D=00000000000000 M=00000000000000 P=7 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=04639850033000 B=01570796327996 C=01273200000000 D=00000000000000 M=00000000000000 P=7 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=04639850033000 B=01570796327996 C=01273200000000 D=00000000000000 M=00000000000000 P=7 S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=04639850033000 B=01570796327996 C=01273210000000 D=00000000000000 M=00000000000000 P=7 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=03069053706000 B=01570796327996 C=01273210000000 D=00000000000000 M=00000000000000 P=7 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=03069053706000 B=01570796327996 C=01273210000000 D=00000000000000 M=00000000000000 P=7 S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=03069053706000 B=01570796327996 C=01273220000000 D=00000000000000 M=00000000000000 P=7 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=01498257379000 B=01570796327996 C=01273220000000 D=00000000000000 M=00000000000000 P=7 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=01498257379000 B=01570796327996 C=01273220000000 D=00000000000000 M=00000000000000 P=7 S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=01498257379000 B=01570796327996 C=01273230000000 D=00000000000000 M=00000000000000 P=7 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=99927461052000 B=01570796327996 C=01273230000000 D=00000000000000 M=00000000000000 P=7 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=99927461052000 B=01570796327996 C=01273230000000 D=00000000000000 M=00000000000000 P=7 S=01....678.ab 01265: 111..1.11. a + b -> a[ms] A=01498257379000 B=01570796327996 C=01273230000000 D=00000000000000 M=00000000000000 P=7 S=01....678.ab 01266: .1...1.11. shift left a[ms] A=14982573790000 B=01570796327996 C=01273230000000 D=00000000000000 M=00000000000000 P=7 S=01....678.ab 01267: .....111.. p - 1 -> p A=14982573790000 B=01570796327996 C=01273230000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 01270: ....1.11.. if p # 0 A=14982573790000 B=01570796327996 C=01273230000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 01271: 1.11..1111 -> 01263 then go to div15 A=14982573790000 B=01570796327996 C=01273230000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=13411777463000 B=01570796327996 C=01273230000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=13411777463000 B=01570796327996 C=01273230000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=13411777463000 B=01570796327996 C=01273231000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=11840981136000 B=01570796327996 C=01273231000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=11840981136000 B=01570796327996 C=01273231000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=11840981136000 B=01570796327996 C=01273232000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=10270184809000 B=01570796327996 C=01273232000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=10270184809000 B=01570796327996 C=01273232000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=10270184809000 B=01570796327996 C=01273233000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=08699388482000 B=01570796327996 C=01273233000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=08699388482000 B=01570796327996 C=01273233000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=08699388482000 B=01570796327996 C=01273234000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=07128592155000 B=01570796327996 C=01273234000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=07128592155000 B=01570796327996 C=01273234000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=07128592155000 B=01570796327996 C=01273235000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=05557795828000 B=01570796327996 C=01273235000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=05557795828000 B=01570796327996 C=01273235000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=05557795828000 B=01570796327996 C=01273236000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=03986999501000 B=01570796327996 C=01273236000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=03986999501000 B=01570796327996 C=01273236000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=03986999501000 B=01570796327996 C=01273237000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=02416203174000 B=01570796327996 C=01273237000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=02416203174000 B=01570796327996 C=01273237000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=02416203174000 B=01570796327996 C=01273238000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00845406847000 B=01570796327996 C=01273238000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00845406847000 B=01570796327996 C=01273238000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00845406847000 B=01570796327996 C=01273239000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=99274610520000 B=01570796327996 C=01273239000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=99274610520000 B=01570796327996 C=01273239000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 01265: 111..1.11. a + b -> a[ms] A=00845406847000 B=01570796327996 C=01273239000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 01266: .1...1.11. shift left a[ms] A=08454068470000 B=01570796327996 C=01273239000000 D=00000000000000 M=00000000000000 P=6 S=01....678.ab 01267: .....111.. p - 1 -> p A=08454068470000 B=01570796327996 C=01273239000000 D=00000000000000 M=00000000000000 P=5 S=01....678.ab 01270: ....1.11.. if p # 0 A=08454068470000 B=01570796327996 C=01273239000000 D=00000000000000 M=00000000000000 P=5 S=01....678.ab 01271: 1.11..1111 -> 01263 then go to div15 A=08454068470000 B=01570796327996 C=01273239000000 D=00000000000000 M=00000000000000 P=5 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=06883272143000 B=01570796327996 C=01273239000000 D=00000000000000 M=00000000000000 P=5 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=06883272143000 B=01570796327996 C=01273239000000 D=00000000000000 M=00000000000000 P=5 S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=06883272143000 B=01570796327996 C=01273239100000 D=00000000000000 M=00000000000000 P=5 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=05312475816000 B=01570796327996 C=01273239100000 D=00000000000000 M=00000000000000 P=5 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=05312475816000 B=01570796327996 C=01273239100000 D=00000000000000 M=00000000000000 P=5 S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=05312475816000 B=01570796327996 C=01273239200000 D=00000000000000 M=00000000000000 P=5 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=03741679489000 B=01570796327996 C=01273239200000 D=00000000000000 M=00000000000000 P=5 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=03741679489000 B=01570796327996 C=01273239200000 D=00000000000000 M=00000000000000 P=5 S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=03741679489000 B=01570796327996 C=01273239300000 D=00000000000000 M=00000000000000 P=5 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=02170883162000 B=01570796327996 C=01273239300000 D=00000000000000 M=00000000000000 P=5 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=02170883162000 B=01570796327996 C=01273239300000 D=00000000000000 M=00000000000000 P=5 S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=02170883162000 B=01570796327996 C=01273239400000 D=00000000000000 M=00000000000000 P=5 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00600086835000 B=01570796327996 C=01273239400000 D=00000000000000 M=00000000000000 P=5 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00600086835000 B=01570796327996 C=01273239400000 D=00000000000000 M=00000000000000 P=5 S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00600086835000 B=01570796327996 C=01273239500000 D=00000000000000 M=00000000000000 P=5 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=99029290508000 B=01570796327996 C=01273239500000 D=00000000000000 M=00000000000000 P=5 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=99029290508000 B=01570796327996 C=01273239500000 D=00000000000000 M=00000000000000 P=5 S=01....678.ab 01265: 111..1.11. a + b -> a[ms] A=00600086835000 B=01570796327996 C=01273239500000 D=00000000000000 M=00000000000000 P=5 S=01....678.ab 01266: .1...1.11. shift left a[ms] A=06000868350000 B=01570796327996 C=01273239500000 D=00000000000000 M=00000000000000 P=5 S=01....678.ab 01267: .....111.. p - 1 -> p A=06000868350000 B=01570796327996 C=01273239500000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 01270: ....1.11.. if p # 0 A=06000868350000 B=01570796327996 C=01273239500000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 01271: 1.11..1111 -> 01263 then go to div15 A=06000868350000 B=01570796327996 C=01273239500000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=04430072023000 B=01570796327996 C=01273239500000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=04430072023000 B=01570796327996 C=01273239500000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=04430072023000 B=01570796327996 C=01273239510000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=02859275696000 B=01570796327996 C=01273239510000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=02859275696000 B=01570796327996 C=01273239510000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=02859275696000 B=01570796327996 C=01273239520000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=01288479369000 B=01570796327996 C=01273239520000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=01288479369000 B=01570796327996 C=01273239520000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=01288479369000 B=01570796327996 C=01273239530000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=99717683042000 B=01570796327996 C=01273239530000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=99717683042000 B=01570796327996 C=01273239530000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 01265: 111..1.11. a + b -> a[ms] A=01288479369000 B=01570796327996 C=01273239530000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 01266: .1...1.11. shift left a[ms] A=12884793690000 B=01570796327996 C=01273239530000 D=00000000000000 M=00000000000000 P=4 S=01....678.ab 01267: .....111.. p - 1 -> p A=12884793690000 B=01570796327996 C=01273239530000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 01270: ....1.11.. if p # 0 A=12884793690000 B=01570796327996 C=01273239530000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 01271: 1.11..1111 -> 01263 then go to div15 A=12884793690000 B=01570796327996 C=01273239530000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=11313997363000 B=01570796327996 C=01273239530000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=11313997363000 B=01570796327996 C=01273239530000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=11313997363000 B=01570796327996 C=01273239531000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=09743201036000 B=01570796327996 C=01273239531000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=09743201036000 B=01570796327996 C=01273239531000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=09743201036000 B=01570796327996 C=01273239532000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=08172404709000 B=01570796327996 C=01273239532000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=08172404709000 B=01570796327996 C=01273239532000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=08172404709000 B=01570796327996 C=01273239533000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=06601608382000 B=01570796327996 C=01273239533000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=06601608382000 B=01570796327996 C=01273239533000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=06601608382000 B=01570796327996 C=01273239534000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=05030812055000 B=01570796327996 C=01273239534000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=05030812055000 B=01570796327996 C=01273239534000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=05030812055000 B=01570796327996 C=01273239535000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=03460015728000 B=01570796327996 C=01273239535000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=03460015728000 B=01570796327996 C=01273239535000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=03460015728000 B=01570796327996 C=01273239536000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=01889219401000 B=01570796327996 C=01273239536000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=01889219401000 B=01570796327996 C=01273239536000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=01889219401000 B=01570796327996 C=01273239537000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00318423074000 B=01570796327996 C=01273239537000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00318423074000 B=01570796327996 C=01273239537000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00318423074000 B=01570796327996 C=01273239538000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=98747626747000 B=01570796327996 C=01273239538000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=98747626747000 B=01570796327996 C=01273239538000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 01265: 111..1.11. a + b -> a[ms] A=00318423074000 B=01570796327996 C=01273239538000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 01266: .1...1.11. shift left a[ms] A=03184230740000 B=01570796327996 C=01273239538000 D=00000000000000 M=00000000000000 P=3 S=01....678.ab 01267: .....111.. p - 1 -> p A=03184230740000 B=01570796327996 C=01273239538000 D=00000000000000 M=00000000000000 P=2 S=01....678.ab 01270: ....1.11.. if p # 0 A=03184230740000 B=01570796327996 C=01273239538000 D=00000000000000 M=00000000000000 P=2 S=01....678.ab 01271: 1.11..1111 -> 01263 then go to div15 A=03184230740000 B=01570796327996 C=01273239538000 D=00000000000000 M=00000000000000 P=2 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=01613434413000 B=01570796327996 C=01273239538000 D=00000000000000 M=00000000000000 P=2 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=01613434413000 B=01570796327996 C=01273239538000 D=00000000000000 M=00000000000000 P=2 S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=01613434413000 B=01570796327996 C=01273239538100 D=00000000000000 M=00000000000000 P=2 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=00042638086000 B=01570796327996 C=01273239538100 D=00000000000000 M=00000000000000 P=2 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=00042638086000 B=01570796327996 C=01273239538100 D=00000000000000 M=00000000000000 P=2 S=01....678.ab 01262: .1111...1. div14: c + 1 -> c[p] A=00042638086000 B=01570796327996 C=01273239538200 D=00000000000000 M=00000000000000 P=2 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=98471841759000 B=01570796327996 C=01273239538200 D=00000000000000 M=00000000000000 P=2 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=98471841759000 B=01570796327996 C=01273239538200 D=00000000000000 M=00000000000000 P=2 S=01....678.ab 01265: 111..1.11. a + b -> a[ms] A=00042638086000 B=01570796327996 C=01273239538200 D=00000000000000 M=00000000000000 P=2 S=01....678.ab 01266: .1...1.11. shift left a[ms] A=00426380860000 B=01570796327996 C=01273239538200 D=00000000000000 M=00000000000000 P=2 S=01....678.ab 01267: .....111.. p - 1 -> p A=00426380860000 B=01570796327996 C=01273239538200 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 01270: ....1.11.. if p # 0 A=00426380860000 B=01570796327996 C=01273239538200 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 01271: 1.11..1111 -> 01263 then go to div15 A=00426380860000 B=01570796327996 C=01273239538200 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 01263: 11...1.11. div15: a - b -> a[ms] A=98855584533000 B=01570796327996 C=01273239538200 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=98855584533000 B=01570796327996 C=01273239538200 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 01265: 111..1.11. a + b -> a[ms] A=00426380860000 B=01570796327996 C=01273239538200 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 01266: .1...1.11. shift left a[ms] A=04263808600000 B=01570796327996 C=01273239538200 D=00000000000000 M=00000000000000 P=1 S=01....678.ab 01267: .....111.. p - 1 -> p A=04263808600000 B=01570796327996 C=01273239538200 D=00000000000000 M=00000000000000 P=0 S=01....678.ab 01270: ....1.11.. if p # 0 A=04263808600000 B=01570796327996 C=01273239538200 D=00000000000000 M=00000000000000 P=0 S=01....678.ab 01271: 1.11..1111 -> 01263 then go to div15 A=04263808600000 B=01570796327996 C=01273239538200 D=00000000000000 M=00000000000000 P=0 S=01....678.ab 01272: ..1.11.111 -> 01055 go to tnm12 A=04263808600000 B=01570796327996 C=01273239538200 D=00000000000000 M=00000000000000 P=0 S=01....678.ab 01055: .11...111. tnm12: c -> a[w] A=01273239538200 B=01570796327996 C=01273239538200 D=00000000000000 M=00000000000000 P=0 S=01....678.ab 01056: ..1...1.1. b -> c[x] A=01273239538200 B=01570796327996 C=01273239538996 D=00000000000000 M=00000000000000 P=0 S=01....678.ab 01057: 11..1.1111 -> 01313 go to add15 A=01273239538200 B=01570796327996 C=01273239538996 D=00000000000000 M=00000000000000 P=0 S=01....678.ab 01313: .1...1.... -> 02314 add15: select rom 2 ; -> nrm21 A=01273239538200 B=01570796327996 C=01273239538996 D=00000000000000 M=00000000000000 P=0 S=01....678.ab 02314: 1.1111111. nrm21: 0 -> a[s] A=01273239538200 B=01570796327996 C=01273239538996 D=00000000000000 M=00000000000000 P=0 S=01....678.ab 02315: 11....11.. 12 -> p A=01273239538200 B=01570796327996 C=01273239538996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02316: ....1.111. 0 -> b[w] A=01273239538200 B=00000000000000 C=01273239538996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02317: 1..11...1. nrm23: if a[p] >= 1 A=01273239538200 B=00000000000000 C=01273239538996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02320: 11.1.11.11 -> 02326 then go to nrm24 A=01273239538200 B=00000000000000 C=01273239538996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02326: .1..1.1.1. nrm24: a -> b[x] A=01273239538200 B=00000000000200 C=01273239538996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02327: 111...111. a + b -> a[w] A=01273239538400 B=00000000000200 C=01273239538996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02330: 1..111111. if a[s] >= 1 A=01273239538400 B=00000000000200 C=01273239538996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02331: 11...11111 -> 02307 then go to mpy28 A=01273239538400 B=00000000000200 C=01273239538996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02332: 111.1..11. a exchange c[m] A=01273239538400 B=00000000000200 C=01273239538996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02333: .11...111. c -> a[w] A=01273239538996 B=00000000000200 C=01273239538996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02334: ....1.111. 0 -> b[w] A=01273239538996 B=00000000000000 C=01273239538996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02335: 11....11.. nrm27: 12 -> p A=01273239538996 B=00000000000000 C=01273239538996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02336: .1111.1.11 -> 02172 go to nrm26 A=01273239538996 B=00000000000000 C=01273239538996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02172: ..1..1.1.. nrm26: if s2 = 0 A=01273239538996 B=00000000000000 C=01273239538996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02173: 1..1.1..11 -> 02224 then go to rtn21 A=01273239538996 B=00000000000000 C=01273239538996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 02224: ..1..1.... -> 01225 rtn21: select rom 1 ; -> rtn11 A=01273239538996 B=00000000000000 C=01273239538996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01225: ...1.1.1.. rtn11: if s1 = 0 A=01273239538996 B=00000000000000 C=01273239538996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01226: 11.11.1.11 -> 01332 then go to rtn12 A=01273239538996 B=00000000000000 C=01273239538996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01227: ....11.... return A=01273239538996 B=00000000000000 C=01273239538996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01150: 1..1.1.1.. if s9 = 0 A=01273239538996 B=00000000000000 C=01273239538996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01151: .11.11..11 -> 01154 then go to l01154 A=01273239538996 B=00000000000000 C=01273239538996 D=00000000000000 M=00000000000000 P=c S=01....678.ab 01154: ...11..1.. l01154: 0 -> s1 A=01273239538996 B=00000000000000 C=01273239538996 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 01155: ..11..111. l01155: 0 -> c[w] A=01273239538996 B=00000000000000 C=00000000000000 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 01156: .1.11...1. c - 1 -> c[p] A=01273239538996 B=00000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 01157: .1111.1.1. c + 1 -> c[x] A=01273239538996 B=00000000000000 C=09000000000001 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 01160: ...1.1.1.. if s1 = 0 A=01273239538996 B=00000000000000 C=09000000000001 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 01161: 1.1..1.111 -> 01245 then go to mpy11 A=01273239538996 B=00000000000000 C=09000000000001 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 01245: .1...1.... -> 02246 mpy11: select rom 2 ; -> mpy21 A=01273239538996 B=00000000000000 C=09000000000001 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02246: ..11..11.. mpy21: 3 -> p A=01273239538996 B=00000000000000 C=09000000000001 D=00000000000000 M=00000000000000 P=3 S=0.....678.ab 02247: .111..1.1. mpy22: a + c -> c[x] A=01273239538996 B=00000000000000 C=09000000000997 D=00000000000000 M=00000000000000 P=3 S=0.....678.ab 02250: .1.1.1111. a - c -> c[s] A=01273239538996 B=00000000000000 C=09000000000997 D=00000000000000 M=00000000000000 P=3 S=0.....678.ab 02251: 1.1.1.1111 -> 02253 if no carry go to div22 A=01273239538996 B=00000000000000 C=09000000000997 D=00000000000000 M=00000000000000 P=3 S=0.....678.ab 02253: 11..1..11. div22: a exchange b[m] A=00000000000996 B=01273239538000 C=09000000000997 D=00000000000000 M=00000000000000 P=3 S=0.....678.ab 02254: 1.111.111. 0 -> a[w] A=00000000000000 B=01273239538000 C=09000000000997 D=00000000000000 M=00000000000000 P=3 S=0.....678.ab 02255: 11..1.11.. if p # 12 A=00000000000000 B=01273239538000 C=09000000000997 D=00000000000000 M=00000000000000 P=3 S=0.....678.ab 02256: 11...1.111 -> 02305 then go to mpy27 A=00000000000000 B=01273239538000 C=09000000000997 D=00000000000000 M=00000000000000 P=3 S=0.....678.ab 02305: .1.11...1. mpy27: c - 1 -> c[p] A=00000000000000 B=01273239538000 C=09000000009997 D=00000000000000 M=00000000000000 P=3 S=0.....678.ab 02306: 11...1..11 -> 02304 if no carry go to myp26 A=00000000000000 B=01273239538000 C=09000000009997 D=00000000000000 M=00000000000000 P=3 S=0.....678.ab 02307: 1.11..111. mpy28: shift right a[w] A=00000000000000 B=01273239538000 C=09000000009997 D=00000000000000 M=00000000000000 P=3 S=0.....678.ab 02310: ....1111.. p + 1 -> p A=00000000000000 B=01273239538000 C=09000000009997 D=00000000000000 M=00000000000000 P=4 S=0.....678.ab 02311: 11.11.11.. if p # 13 A=00000000000000 B=01273239538000 C=09000000009997 D=00000000000000 M=00000000000000 P=4 S=0.....678.ab 02312: 11...1.111 -> 02305 then go to mpy27 A=00000000000000 B=01273239538000 C=09000000009997 D=00000000000000 M=00000000000000 P=4 S=0.....678.ab 02305: .1.11...1. mpy27: c - 1 -> c[p] A=00000000000000 B=01273239538000 C=09000000099997 D=00000000000000 M=00000000000000 P=4 S=0.....678.ab 02306: 11...1..11 -> 02304 if no carry go to myp26 A=00000000000000 B=01273239538000 C=09000000099997 D=00000000000000 M=00000000000000 P=4 S=0.....678.ab 02307: 1.11..111. mpy28: shift right a[w] A=00000000000000 B=01273239538000 C=09000000099997 D=00000000000000 M=00000000000000 P=4 S=0.....678.ab 02310: ....1111.. p + 1 -> p A=00000000000000 B=01273239538000 C=09000000099997 D=00000000000000 M=00000000000000 P=5 S=0.....678.ab 02311: 11.11.11.. if p # 13 A=00000000000000 B=01273239538000 C=09000000099997 D=00000000000000 M=00000000000000 P=5 S=0.....678.ab 02312: 11...1.111 -> 02305 then go to mpy27 A=00000000000000 B=01273239538000 C=09000000099997 D=00000000000000 M=00000000000000 P=5 S=0.....678.ab 02305: .1.11...1. mpy27: c - 1 -> c[p] A=00000000000000 B=01273239538000 C=09000000999997 D=00000000000000 M=00000000000000 P=5 S=0.....678.ab 02306: 11...1..11 -> 02304 if no carry go to myp26 A=00000000000000 B=01273239538000 C=09000000999997 D=00000000000000 M=00000000000000 P=5 S=0.....678.ab 02307: 1.11..111. mpy28: shift right a[w] A=00000000000000 B=01273239538000 C=09000000999997 D=00000000000000 M=00000000000000 P=5 S=0.....678.ab 02310: ....1111.. p + 1 -> p A=00000000000000 B=01273239538000 C=09000000999997 D=00000000000000 M=00000000000000 P=6 S=0.....678.ab 02311: 11.11.11.. if p # 13 A=00000000000000 B=01273239538000 C=09000000999997 D=00000000000000 M=00000000000000 P=6 S=0.....678.ab 02312: 11...1.111 -> 02305 then go to mpy27 A=00000000000000 B=01273239538000 C=09000000999997 D=00000000000000 M=00000000000000 P=6 S=0.....678.ab 02305: .1.11...1. mpy27: c - 1 -> c[p] A=00000000000000 B=01273239538000 C=09000009999997 D=00000000000000 M=00000000000000 P=6 S=0.....678.ab 02306: 11...1..11 -> 02304 if no carry go to myp26 A=00000000000000 B=01273239538000 C=09000009999997 D=00000000000000 M=00000000000000 P=6 S=0.....678.ab 02307: 1.11..111. mpy28: shift right a[w] A=00000000000000 B=01273239538000 C=09000009999997 D=00000000000000 M=00000000000000 P=6 S=0.....678.ab 02310: ....1111.. p + 1 -> p A=00000000000000 B=01273239538000 C=09000009999997 D=00000000000000 M=00000000000000 P=7 S=0.....678.ab 02311: 11.11.11.. if p # 13 A=00000000000000 B=01273239538000 C=09000009999997 D=00000000000000 M=00000000000000 P=7 S=0.....678.ab 02312: 11...1.111 -> 02305 then go to mpy27 A=00000000000000 B=01273239538000 C=09000009999997 D=00000000000000 M=00000000000000 P=7 S=0.....678.ab 02305: .1.11...1. mpy27: c - 1 -> c[p] A=00000000000000 B=01273239538000 C=09000099999997 D=00000000000000 M=00000000000000 P=7 S=0.....678.ab 02306: 11...1..11 -> 02304 if no carry go to myp26 A=00000000000000 B=01273239538000 C=09000099999997 D=00000000000000 M=00000000000000 P=7 S=0.....678.ab 02307: 1.11..111. mpy28: shift right a[w] A=00000000000000 B=01273239538000 C=09000099999997 D=00000000000000 M=00000000000000 P=7 S=0.....678.ab 02310: ....1111.. p + 1 -> p A=00000000000000 B=01273239538000 C=09000099999997 D=00000000000000 M=00000000000000 P=8 S=0.....678.ab 02311: 11.11.11.. if p # 13 A=00000000000000 B=01273239538000 C=09000099999997 D=00000000000000 M=00000000000000 P=8 S=0.....678.ab 02312: 11...1.111 -> 02305 then go to mpy27 A=00000000000000 B=01273239538000 C=09000099999997 D=00000000000000 M=00000000000000 P=8 S=0.....678.ab 02305: .1.11...1. mpy27: c - 1 -> c[p] A=00000000000000 B=01273239538000 C=09000999999997 D=00000000000000 M=00000000000000 P=8 S=0.....678.ab 02306: 11...1..11 -> 02304 if no carry go to myp26 A=00000000000000 B=01273239538000 C=09000999999997 D=00000000000000 M=00000000000000 P=8 S=0.....678.ab 02307: 1.11..111. mpy28: shift right a[w] A=00000000000000 B=01273239538000 C=09000999999997 D=00000000000000 M=00000000000000 P=8 S=0.....678.ab 02310: ....1111.. p + 1 -> p A=00000000000000 B=01273239538000 C=09000999999997 D=00000000000000 M=00000000000000 P=9 S=0.....678.ab 02311: 11.11.11.. if p # 13 A=00000000000000 B=01273239538000 C=09000999999997 D=00000000000000 M=00000000000000 P=9 S=0.....678.ab 02312: 11...1.111 -> 02305 then go to mpy27 A=00000000000000 B=01273239538000 C=09000999999997 D=00000000000000 M=00000000000000 P=9 S=0.....678.ab 02305: .1.11...1. mpy27: c - 1 -> c[p] A=00000000000000 B=01273239538000 C=09009999999997 D=00000000000000 M=00000000000000 P=9 S=0.....678.ab 02306: 11...1..11 -> 02304 if no carry go to myp26 A=00000000000000 B=01273239538000 C=09009999999997 D=00000000000000 M=00000000000000 P=9 S=0.....678.ab 02307: 1.11..111. mpy28: shift right a[w] A=00000000000000 B=01273239538000 C=09009999999997 D=00000000000000 M=00000000000000 P=9 S=0.....678.ab 02310: ....1111.. p + 1 -> p A=00000000000000 B=01273239538000 C=09009999999997 D=00000000000000 M=00000000000000 P=a S=0.....678.ab 02311: 11.11.11.. if p # 13 A=00000000000000 B=01273239538000 C=09009999999997 D=00000000000000 M=00000000000000 P=a S=0.....678.ab 02312: 11...1.111 -> 02305 then go to mpy27 A=00000000000000 B=01273239538000 C=09009999999997 D=00000000000000 M=00000000000000 P=a S=0.....678.ab 02305: .1.11...1. mpy27: c - 1 -> c[p] A=00000000000000 B=01273239538000 C=09099999999997 D=00000000000000 M=00000000000000 P=a S=0.....678.ab 02306: 11...1..11 -> 02304 if no carry go to myp26 A=00000000000000 B=01273239538000 C=09099999999997 D=00000000000000 M=00000000000000 P=a S=0.....678.ab 02307: 1.11..111. mpy28: shift right a[w] A=00000000000000 B=01273239538000 C=09099999999997 D=00000000000000 M=00000000000000 P=a S=0.....678.ab 02310: ....1111.. p + 1 -> p A=00000000000000 B=01273239538000 C=09099999999997 D=00000000000000 M=00000000000000 P=b S=0.....678.ab 02311: 11.11.11.. if p # 13 A=00000000000000 B=01273239538000 C=09099999999997 D=00000000000000 M=00000000000000 P=b S=0.....678.ab 02312: 11...1.111 -> 02305 then go to mpy27 A=00000000000000 B=01273239538000 C=09099999999997 D=00000000000000 M=00000000000000 P=b S=0.....678.ab 02305: .1.11...1. mpy27: c - 1 -> c[p] A=00000000000000 B=01273239538000 C=09999999999997 D=00000000000000 M=00000000000000 P=b S=0.....678.ab 02306: 11...1..11 -> 02304 if no carry go to myp26 A=00000000000000 B=01273239538000 C=09999999999997 D=00000000000000 M=00000000000000 P=b S=0.....678.ab 02307: 1.11..111. mpy28: shift right a[w] A=00000000000000 B=01273239538000 C=09999999999997 D=00000000000000 M=00000000000000 P=b S=0.....678.ab 02310: ....1111.. p + 1 -> p A=00000000000000 B=01273239538000 C=09999999999997 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02311: 11.11.11.. if p # 13 A=00000000000000 B=01273239538000 C=09999999999997 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02312: 11...1.111 -> 02305 then go to mpy27 A=00000000000000 B=01273239538000 C=09999999999997 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02305: .1.11...1. mpy27: c - 1 -> c[p] A=00000000000000 B=01273239538000 C=08999999999997 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02306: 11...1..11 -> 02304 if no carry go to myp26 A=00000000000000 B=01273239538000 C=08999999999997 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02304: 111...111. myp26: a + b -> a[w] A=01273239538000 B=01273239538000 C=08999999999997 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02305: .1.11...1. mpy27: c - 1 -> c[p] A=01273239538000 B=01273239538000 C=07999999999997 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02306: 11...1..11 -> 02304 if no carry go to myp26 A=01273239538000 B=01273239538000 C=07999999999997 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02304: 111...111. myp26: a + b -> a[w] A=02546479076000 B=01273239538000 C=07999999999997 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02305: .1.11...1. mpy27: c - 1 -> c[p] A=02546479076000 B=01273239538000 C=06999999999997 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02306: 11...1..11 -> 02304 if no carry go to myp26 A=02546479076000 B=01273239538000 C=06999999999997 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02304: 111...111. myp26: a + b -> a[w] A=03819718614000 B=01273239538000 C=06999999999997 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02305: .1.11...1. mpy27: c - 1 -> c[p] A=03819718614000 B=01273239538000 C=05999999999997 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02306: 11...1..11 -> 02304 if no carry go to myp26 A=03819718614000 B=01273239538000 C=05999999999997 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02304: 111...111. myp26: a + b -> a[w] A=05092958152000 B=01273239538000 C=05999999999997 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02305: .1.11...1. mpy27: c - 1 -> c[p] A=05092958152000 B=01273239538000 C=04999999999997 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02306: 11...1..11 -> 02304 if no carry go to myp26 A=05092958152000 B=01273239538000 C=04999999999997 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02304: 111...111. myp26: a + b -> a[w] A=06366197690000 B=01273239538000 C=04999999999997 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02305: .1.11...1. mpy27: c - 1 -> c[p] A=06366197690000 B=01273239538000 C=03999999999997 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02306: 11...1..11 -> 02304 if no carry go to myp26 A=06366197690000 B=01273239538000 C=03999999999997 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02304: 111...111. myp26: a + b -> a[w] A=07639437228000 B=01273239538000 C=03999999999997 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02305: .1.11...1. mpy27: c - 1 -> c[p] A=07639437228000 B=01273239538000 C=02999999999997 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02306: 11...1..11 -> 02304 if no carry go to myp26 A=07639437228000 B=01273239538000 C=02999999999997 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02304: 111...111. myp26: a + b -> a[w] A=08912676766000 B=01273239538000 C=02999999999997 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02305: .1.11...1. mpy27: c - 1 -> c[p] A=08912676766000 B=01273239538000 C=01999999999997 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02306: 11...1..11 -> 02304 if no carry go to myp26 A=08912676766000 B=01273239538000 C=01999999999997 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02304: 111...111. myp26: a + b -> a[w] A=10185916304000 B=01273239538000 C=01999999999997 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02305: .1.11...1. mpy27: c - 1 -> c[p] A=10185916304000 B=01273239538000 C=00999999999997 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02306: 11...1..11 -> 02304 if no carry go to myp26 A=10185916304000 B=01273239538000 C=00999999999997 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02304: 111...111. myp26: a + b -> a[w] A=11459155842000 B=01273239538000 C=00999999999997 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02305: .1.11...1. mpy27: c - 1 -> c[p] A=11459155842000 B=01273239538000 C=09999999999997 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02306: 11...1..11 -> 02304 if no carry go to myp26 A=11459155842000 B=01273239538000 C=09999999999997 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02307: 1.11..111. mpy28: shift right a[w] A=01145915584200 B=01273239538000 C=09999999999997 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02310: ....1111.. p + 1 -> p A=01145915584200 B=01273239538000 C=09999999999997 D=00000000000000 M=00000000000000 P=d S=0.....678.ab 02311: 11.11.11.. if p # 13 A=01145915584200 B=01273239538000 C=09999999999997 D=00000000000000 M=00000000000000 P=d S=0.....678.ab 02312: 11...1.111 -> 02305 then go to mpy27 A=01145915584200 B=01273239538000 C=09999999999997 D=00000000000000 M=00000000000000 P=d S=0.....678.ab 02313: .1111.1.1. c + 1 -> c[x] A=01145915584200 B=01273239538000 C=09999999999998 D=00000000000000 M=00000000000000 P=d S=0.....678.ab 02314: 1.1111111. nrm21: 0 -> a[s] A=01145915584200 B=01273239538000 C=09999999999998 D=00000000000000 M=00000000000000 P=d S=0.....678.ab 02315: 11....11.. 12 -> p A=01145915584200 B=01273239538000 C=09999999999998 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02316: ....1.111. 0 -> b[w] A=01145915584200 B=00000000000000 C=09999999999998 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02317: 1..11...1. nrm23: if a[p] >= 1 A=01145915584200 B=00000000000000 C=09999999999998 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02320: 11.1.11.11 -> 02326 then go to nrm24 A=01145915584200 B=00000000000000 C=09999999999998 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02326: .1..1.1.1. nrm24: a -> b[x] A=01145915584200 B=00000000000200 C=09999999999998 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02327: 111...111. a + b -> a[w] A=01145915584400 B=00000000000200 C=09999999999998 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02330: 1..111111. if a[s] >= 1 A=01145915584400 B=00000000000200 C=09999999999998 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02331: 11...11111 -> 02307 then go to mpy28 A=01145915584400 B=00000000000200 C=09999999999998 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02332: 111.1..11. a exchange c[m] A=09999999999400 B=00000000000200 C=01145915584998 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02333: .11...111. c -> a[w] A=01145915584998 B=00000000000200 C=01145915584998 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02334: ....1.111. 0 -> b[w] A=01145915584998 B=00000000000000 C=01145915584998 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02335: 11....11.. nrm27: 12 -> p A=01145915584998 B=00000000000000 C=01145915584998 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02336: .1111.1.11 -> 02172 go to nrm26 A=01145915584998 B=00000000000000 C=01145915584998 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02172: ..1..1.1.. nrm26: if s2 = 0 A=01145915584998 B=00000000000000 C=01145915584998 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02173: 1..1.1..11 -> 02224 then go to rtn21 A=01145915584998 B=00000000000000 C=01145915584998 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 02224: ..1..1.... -> 01225 rtn21: select rom 1 ; -> rtn11 A=01145915584998 B=00000000000000 C=01145915584998 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 01225: ...1.1.1.. rtn11: if s1 = 0 A=01145915584998 B=00000000000000 C=01145915584998 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 01226: 11.11.1.11 -> 01332 then go to rtn12 A=01145915584998 B=00000000000000 C=01145915584998 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 01332: .....1.... -> 00333 rtn12: select rom 0 ; -> l00333 A=01145915584998 B=00000000000000 C=01145915584998 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 00333: .1.111.1.1 -> 00135 l00333: jsb of13 A=01145915584998 B=00000000000000 C=01145915584998 D=00000000000000 M=00000000000000 P=c S=0.....678.ab 00135: ....11.1.. of13: clear status A=01145915584998 B=00000000000000 C=01145915584998 D=00000000000000 M=00000000000000 P=c S=............ 00136: .11...111. c -> a[w] A=01145915584998 B=00000000000000 C=01145915584998 D=00000000000000 M=00000000000000 P=c S=............ 00137: 11....11.. of14: 12 -> p A=01145915584998 B=00000000000000 C=01145915584998 D=00000000000000 M=00000000000000 P=c S=............ 00140: .1..1.1.1. a -> b[x] A=01145915584998 B=00000000000998 C=01145915584998 D=00000000000000 M=00000000000000 P=c S=............ 00141: .11...1.1. c -> a[x] A=01145915584998 B=00000000000998 C=01145915584998 D=00000000000000 M=00000000000000 P=c S=............ 00142: .11.111.1. if c[xs] = 0 A=01145915584998 B=00000000000998 C=01145915584998 D=00000000000000 M=00000000000000 P=c S=............ 00143: .11.1...11 -> 00150 then go to of15 A=01145915584998 B=00000000000998 C=01145915584998 D=00000000000000 M=00000000000000 P=c S=............ 00144: ..1.1.1.1. 0 - c -> c[x] A=01145915584998 B=00000000000998 C=01145915584002 D=00000000000000 M=00000000000000 P=c S=............ 00145: .1.1111.1. c - 1 -> c[xs] A=01145915584998 B=00000000000998 C=01145915584902 D=00000000000000 M=00000000000000 P=c S=............ 00146: .1.1.11111 -> 00127 if no carry go to of11 A=01145915584998 B=00000000000998 C=01145915584902 D=00000000000000 M=00000000000000 P=c S=............ 00147: .1.1..11.. 5 -> p A=01145915584998 B=00000000000998 C=01145915584902 D=00000000000000 M=00000000000000 P=5 S=............ 00150: 111.1.1.1. of15: a exchange c[x] A=01145915584902 B=00000000000998 C=01145915584998 D=00000000000000 M=00000000000000 P=5 S=............ 00151: .1...1.1.. if s4 = 0 A=01145915584902 B=00000000000998 C=01145915584998 D=00000000000000 M=00000000000000 P=5 S=............ 00152: .1....1.11 -> 00102 then go to l00102 A=01145915584902 B=00000000000998 C=01145915584998 D=00000000000000 M=00000000000000 P=5 S=............ 00102: .1..1.111. l00102: a -> b[w] A=01145915584902 B=01145915584902 C=01145915584998 D=00000000000000 M=00000000000000 P=5 S=............ 00103: 1.11111.1. 0 -> a[xs] A=01145915584002 B=01145915584902 C=01145915584998 D=00000000000000 M=00000000000000 P=5 S=............ 00104: .1...1.11. shift left a[ms] A=11459155840002 B=01145915584902 C=01145915584998 D=00000000000000 M=00000000000000 P=5 S=............ 00105: 11.11.1.1. l00105: a - 1 -> a[x] A=11459155840001 B=01145915584902 C=01145915584998 D=00000000000000 M=00000000000000 P=5 S=............ 00106: 111.....11 -> 00340 if no carry go to l00340 A=11459155840001 B=01145915584902 C=01145915584998 D=00000000000000 M=00000000000000 P=5 S=............ 00340: 1.11.1.11. l00340: shift right a[ms] A=01145915584001 B=01145915584902 C=01145915584998 D=00000000000000 M=00000000000000 P=5 S=............ 00341: .....111.. p - 1 -> p A=01145915584001 B=01145915584902 C=01145915584998 D=00000000000000 M=00000000000000 P=4 S=............ 00342: ..1.1.11.. if p # 2 A=01145915584001 B=01145915584902 C=01145915584998 D=00000000000000 M=00000000000000 P=4 S=............ 00343: .1...1.111 -> 00105 then go to l00105 A=01145915584001 B=01145915584902 C=01145915584998 D=00000000000000 M=00000000000000 P=4 S=............ 00105: 11.11.1.1. l00105: a - 1 -> a[x] A=01145915584000 B=01145915584902 C=01145915584998 D=00000000000000 M=00000000000000 P=4 S=............ 00106: 111.....11 -> 00340 if no carry go to l00340 A=01145915584000 B=01145915584902 C=01145915584998 D=00000000000000 M=00000000000000 P=4 S=............ 00340: 1.11.1.11. l00340: shift right a[ms] A=00114591558000 B=01145915584902 C=01145915584998 D=00000000000000 M=00000000000000 P=4 S=............ 00341: .....111.. p - 1 -> p A=00114591558000 B=01145915584902 C=01145915584998 D=00000000000000 M=00000000000000 P=3 S=............ 00342: ..1.1.11.. if p # 2 A=00114591558000 B=01145915584902 C=01145915584998 D=00000000000000 M=00000000000000 P=3 S=............ 00343: .1...1.111 -> 00105 then go to l00105 A=00114591558000 B=01145915584902 C=01145915584998 D=00000000000000 M=00000000000000 P=3 S=............ 00105: 11.11.1.1. l00105: a - 1 -> a[x] A=00114591558999 B=01145915584902 C=01145915584998 D=00000000000000 M=00000000000000 P=3 S=............ 00106: 111.....11 -> 00340 if no carry go to l00340 A=00114591558999 B=01145915584902 C=01145915584998 D=00000000000000 M=00000000000000 P=3 S=............ 00107: .11.111.1. if c[xs] = 0 A=00114591558999 B=01145915584902 C=01145915584998 D=00000000000000 M=00000000000000 P=3 S=............ 00110: 111..11.11 -> 00346 then go to l00346 A=00114591558999 B=01145915584902 C=01145915584998 D=00000000000000 M=00000000000000 P=3 S=............ 00111: 11..11.11. a exchange b[ms] A=01145915584999 B=00114591558902 C=01145915584998 D=00000000000000 M=00000000000000 P=3 S=............ 00112: 11.1..11.. 13 -> p A=01145915584999 B=00114591558902 C=01145915584998 D=00000000000000 M=00000000000000 P=d S=............ 00113: 111..11.11 -> 00346 go to l00346 A=01145915584999 B=00114591558902 C=01145915584998 D=00000000000000 M=00000000000000 P=d S=............ 00346: 1.1111.11. l00346: 0 -> a[ms] A=00000000000999 B=00114591558902 C=01145915584998 D=00000000000000 M=00000000000000 P=d S=............ 00347: 11111...1. a + 1 -> a[p] A=10000000000999 B=00114591558902 C=01145915584998 D=00000000000000 M=00000000000000 P=d S=............ 00350: 11111...1. a + 1 -> a[p] A=20000000000999 B=00114591558902 C=01145915584998 D=00000000000000 M=00000000000000 P=d S=............ 00351: ..1...11.. 2 -> p A=20000000000999 B=00114591558902 C=01145915584998 D=00000000000000 M=00000000000000 P=2 S=............ 00352: ....1111.. l00352: p + 1 -> p A=20000000000999 B=00114591558902 C=01145915584998 D=00000000000000 M=00000000000000 P=3 S=............ 00353: 11.11...1. a - 1 -> a[p] A=20000000009999 B=00114591558902 C=01145915584998 D=00000000000000 M=00000000000000 P=3 S=............ 00354: 111.111111 -> 00357 if no carry go to l00357 A=20000000009999 B=00114591558902 C=01145915584998 D=00000000000000 M=00000000000000 P=3 S=............ 00355: ........1. if b[p] = 0 A=20000000009999 B=00114591558902 C=01145915584998 D=00000000000000 M=00000000000000 P=3 S=............ 00356: 111.1.1.11 -> 00352 then go to l00352 A=20000000009999 B=00114591558902 C=01145915584998 D=00000000000000 M=00000000000000 P=3 S=............ 00357: 11111...1. l00357: a + 1 -> a[p] A=20000000000999 B=00114591558902 C=01145915584998 D=00000000000000 M=00000000000000 P=3 S=............ 00360: 11..1.111. a exchange b[w] A=00114591558902 B=20000000000999 C=01145915584998 D=00000000000000 M=00000000000000 P=3 S=............ 00361: ....11.... return A=00114591558902 B=20000000000999 C=01145915584998 D=00000000000000 M=00000000000000 P=3 S=............ 00334: .111...1.. 1 -> s7 A=00114591558902 B=20000000000999 C=01145915584998 D=00000000000000 M=00000000000000 P=3 S=.......7.... 00335: 1111.111.1 -> 00367 fst2zx: jsb dsp1 A=00114591558902 B=20000000000999 C=01145915584998 D=00000000000000 M=00000000000000 P=3 S=.......7.... 00367: 1.1.1..1.. dsp1: 0 -> s10 A=00114591558902 B=20000000000999 C=01145915584998 D=00000000000000 M=00000000000000 P=3 S=.......7....