2.5 / 3.6 = 0.69444444 00330: ..11.1.... keys -> rom address A=36000000000000 B=02099999999999 C=03600000000000 D=02500000000000 M=00000000000000 P=c S=0.....678..b 00046: ..1.....11 -> 00040 L00046: go to l00040 A=36000000000000 B=02099999999999 C=03600000000000 D=02500000000000 M=00000000000000 P=c S=0.....678..b 00040: .11.1.1... l00040: stack -> a A=02500000000000 B=02099999999999 C=03600000000000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 00041: ...1....11 -> 00020 go to l00020 A=02500000000000 B=02099999999999 C=03600000000000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 00020: ....1.111. l00020: 0 -> b[w] A=02500000000000 B=00000000000000 C=03600000000000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 00021: ..1..1.... -> 01022 select rom 1 ; -> asn12 A=02500000000000 B=00000000000000 C=03600000000000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 01022: 1.1..11..1 -> 01246 asn12: jsb div11 A=02500000000000 B=00000000000000 C=03600000000000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 01246: .1.1..1.1. div11: a - c -> c[x] exponent sub A=02500000000000 B=00000000000000 C=03600000000000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 01247: .1...1.... -> 02250 select rom 2 ; -> l02250 A=02500000000000 B=00000000000000 C=03600000000000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02250: .1.1.1111. a - c -> c[s] sign sub A=02500000000000 B=00000000000000 C=03600000000000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02251: 1.1.1.1111 -> 02253 if no carry go to div22 go correct sign if both negative A=02500000000000 B=00000000000000 C=03600000000000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02253: 11..1..11. div22: a exchange b[m] prepare B and A A=00000000000000 B=02500000000000 C=03600000000000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02254: 1.111.111. 0 -> a[w] A=00000000000000 B=02500000000000 C=03600000000000 D=00000000000000 M=00000000000000 P=c S=0.....678..b switch p#3 -> multiplication that's the name of the game! 02255: 11..1.11.. if p # 12 A=00000000000000 B=02500000000000 C=03600000000000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02256: 11...1.111 -> 02305 then go to mpy27 A=00000000000000 B=02500000000000 C=03600000000000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02257: ...11..11. if c[m] >= 1 division routine A=00000000000000 B=02500000000000 C=03600000000000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02260: 1.11.11.11 -> 02266 then go to div23 test if it is not a division by zero A=00000000000000 B=02500000000000 C=03600000000000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02266: 1...11..1. div23: b exchange c[wp] [BP1] unpack Y Fraction Part in A and X FP in B A=00000000000000 B=03600000000000 C=02500000000000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02267: 111.1..11. a exchange c[m] A=02500000000000 B=03600000000000 C=00000000000000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02270: ..1..1.... -> 01271 select rom 1 ; -> l01271 a strange jump 01271 is part of a test A=02500000000000 B=03600000000000 C=00000000000000 save place to go from ROM2 to ROM1 D=00000000000000 M=00000000000000 P=c S=0.....678..b This is the real stuff: the divide loop 01271: 1.11..1111 -> 01263 then go to div15 A=02500000000000 B=03600000000000 C=00000000000000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] repeated subtraction A=98900000000000 B=03600000000000 C=00000000000000 [BP2] D=00000000000000 M=00000000000000 P=c S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 fist try no luck a carry A=98900000000000 B=03600000000000 C=00000000000000 can't make 25 - 36 D=00000000000000 M=00000000000000 P=c S=0.....678..b 01265: 111..1.11. a + b -> a[ms] reverse gear A=02500000000000 B=03600000000000 C=00000000000000 [BP3] D=00000000000000 M=00000000000000 P=c S=0.....678..b 01266: .1...1.11. shift left a[ms] SL A=25000000000000 B=03600000000000 C=00000000000000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 01267: .....111.. p - 1 -> p A=25000000000000 B=03600000000000 C=00000000000000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 01270: ....1.11.. if p # 0 A=25000000000000 B=03600000000000 C=00000000000000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 01271: 1.11..1111 -> 01263 then go to div15 A=25000000000000 B=03600000000000 C=00000000000000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] 25 - 3.6 A=21400000000000 B=03600000000000 C=00000000000000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 this time it works A=21400000000000 B=03600000000000 C=00000000000000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] put the result in c[b] A=21400000000000 B=03600000000000 C=00100000000000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] 21.4 - 3.6 = 17.8 A=17800000000000 B=03600000000000 C=00100000000000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=17800000000000 B=03600000000000 C=00100000000000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] increment c[b] the loop counter during the loop A=17800000000000 B=03600000000000 C=00200000000000 the resulting digit at the end og the loop D=00000000000000 M=00000000000000 P=b S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] 17.8 - 3.6 = 14.2 A=14200000000000 B=03600000000000 C=00200000000000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 and so on, around around we go again A=14200000000000 B=03600000000000 C=00200000000000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=14200000000000 B=03600000000000 C=00300000000000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=10600000000000 B=03600000000000 C=00300000000000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=10600000000000 B=03600000000000 C=00300000000000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=10600000000000 B=03600000000000 C=00400000000000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=07000000000000 B=03600000000000 C=00400000000000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=07000000000000 B=03600000000000 C=00400000000000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=07000000000000 B=03600000000000 C=00500000000000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=03400000000000 B=03600000000000 C=00500000000000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=03400000000000 B=03600000000000 C=00500000000000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=03400000000000 B=03600000000000 C=00600000000000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] this time we try 3.4 - 3.6 A=99800000000000 B=03600000000000 C=00600000000000 we gone too far D=00000000000000 M=00000000000000 P=b S=0.....678..b we have so far subracted 6 times 3.6 from 25 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=99800000000000 B=03600000000000 C=00600000000000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 01265: 111..1.11. a + b -> a[ms] reverse gear to restore remainder 3.4 A=03400000000000 B=03600000000000 C=00600000000000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 01266: .1...1.11. shift left a[ms] SL A, note B stays unchanged A=34000000000000 B=03600000000000 C=00600000000000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 01267: .....111.. p - 1 -> p A=34000000000000 B=03600000000000 C=00600000000000 D=00000000000000 M=00000000000000 P=a S=0.....678..b 01270: ....1.11.. if p # 0 game over ? A=34000000000000 B=03600000000000 C=00600000000000 D=00000000000000 M=00000000000000 P=a S=0.....678..b 01271: 1.11..1111 -> 01263 then go to div15 no we go again A=34000000000000 B=03600000000000 C=00600000000000 D=00000000000000 M=00000000000000 P=a S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] 34 - 3.6 = 30.4 A=30400000000000 B=03600000000000 C=00600000000000 D=00000000000000 M=00000000000000 P=a S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=30400000000000 B=03600000000000 C=00600000000000 D=00000000000000 M=00000000000000 P=a S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=30400000000000 B=03600000000000 C=00610000000000 D=00000000000000 M=00000000000000 P=a S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] 30.4 - 3.6 = 26.8 A=26800000000000 B=03600000000000 C=00610000000000 D=00000000000000 M=00000000000000 P=a S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=26800000000000 B=03600000000000 C=00610000000000 D=00000000000000 M=00000000000000 P=a S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=26800000000000 B=03600000000000 C=00620000000000 D=00000000000000 M=00000000000000 P=a S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] 26.8 - 3.6 = 23.2 A=23200000000000 B=03600000000000 C=00620000000000 D=00000000000000 M=00000000000000 P=a S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=23200000000000 B=03600000000000 C=00620000000000 D=00000000000000 M=00000000000000 P=a S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=23200000000000 B=03600000000000 C=00630000000000 D=00000000000000 M=00000000000000 P=a S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] 23.2 - 3.6 = 19.6 A=19600000000000 B=03600000000000 C=00630000000000 and so on D=00000000000000 M=00000000000000 P=a S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=19600000000000 B=03600000000000 C=00630000000000 D=00000000000000 M=00000000000000 P=a S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=19600000000000 B=03600000000000 C=00640000000000 D=00000000000000 M=00000000000000 P=a S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=16000000000000 B=03600000000000 C=00640000000000 D=00000000000000 M=00000000000000 P=a S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=16000000000000 B=03600000000000 C=00640000000000 D=00000000000000 M=00000000000000 P=a S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=16000000000000 B=03600000000000 C=00650000000000 D=00000000000000 M=00000000000000 P=a S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=12400000000000 B=03600000000000 C=00650000000000 D=00000000000000 M=00000000000000 P=a S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=12400000000000 B=03600000000000 C=00650000000000 D=00000000000000 M=00000000000000 P=a S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=12400000000000 B=03600000000000 C=00660000000000 D=00000000000000 M=00000000000000 P=a S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=08800000000000 B=03600000000000 C=00660000000000 D=00000000000000 M=00000000000000 P=a S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=08800000000000 B=03600000000000 C=00660000000000 D=00000000000000 M=00000000000000 P=a S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=08800000000000 B=03600000000000 C=00670000000000 D=00000000000000 M=00000000000000 P=a S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=05200000000000 B=03600000000000 C=00670000000000 D=00000000000000 M=00000000000000 P=a S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=05200000000000 B=03600000000000 C=00670000000000 D=00000000000000 M=00000000000000 P=a S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=05200000000000 B=03600000000000 C=00680000000000 D=00000000000000 M=00000000000000 P=a S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=01600000000000 B=03600000000000 C=00680000000000 D=00000000000000 M=00000000000000 P=a S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=01600000000000 B=03600000000000 C=00680000000000 D=00000000000000 M=00000000000000 P=a S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=01600000000000 B=03600000000000 C=00690000000000 D=00000000000000 M=00000000000000 P=a S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=98000000000000 B=03600000000000 C=00690000000000 D=00000000000000 M=00000000000000 P=a S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=98000000000000 B=03600000000000 C=00690000000000 D=00000000000000 M=00000000000000 P=a S=0.....678..b 01265: 111..1.11. a + b -> a[ms] A=01600000000000 B=03600000000000 C=00690000000000 D=00000000000000 M=00000000000000 P=a S=0.....678..b 01266: .1...1.11. shift left a[ms] A=16000000000000 B=03600000000000 C=00690000000000 D=00000000000000 M=00000000000000 P=a S=0.....678..b 01267: .....111.. p - 1 -> p A=16000000000000 B=03600000000000 C=00690000000000 D=00000000000000 M=00000000000000 P=9 S=0.....678..b 01270: ....1.11.. if p # 0 A=16000000000000 B=03600000000000 C=00690000000000 D=00000000000000 M=00000000000000 P=9 S=0.....678..b 01271: 1.11..1111 -> 01263 then go to div15 A=16000000000000 B=03600000000000 C=00690000000000 D=00000000000000 M=00000000000000 P=9 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=12400000000000 B=03600000000000 C=00690000000000 D=00000000000000 M=00000000000000 P=9 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=12400000000000 B=03600000000000 C=00690000000000 D=00000000000000 M=00000000000000 P=9 S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=12400000000000 B=03600000000000 C=00691000000000 D=00000000000000 M=00000000000000 P=9 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=08800000000000 B=03600000000000 C=00691000000000 D=00000000000000 M=00000000000000 P=9 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=08800000000000 B=03600000000000 C=00691000000000 D=00000000000000 M=00000000000000 P=9 S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=08800000000000 B=03600000000000 C=00692000000000 D=00000000000000 M=00000000000000 P=9 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=05200000000000 B=03600000000000 C=00692000000000 D=00000000000000 M=00000000000000 P=9 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=05200000000000 B=03600000000000 C=00692000000000 D=00000000000000 M=00000000000000 P=9 S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=05200000000000 B=03600000000000 C=00693000000000 D=00000000000000 M=00000000000000 P=9 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=01600000000000 B=03600000000000 C=00693000000000 D=00000000000000 M=00000000000000 P=9 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=01600000000000 B=03600000000000 C=00693000000000 D=00000000000000 M=00000000000000 P=9 S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=01600000000000 B=03600000000000 C=00694000000000 D=00000000000000 M=00000000000000 P=9 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=98000000000000 B=03600000000000 C=00694000000000 D=00000000000000 M=00000000000000 P=9 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=98000000000000 B=03600000000000 C=00694000000000 D=00000000000000 M=00000000000000 P=9 S=0.....678..b 01265: 111..1.11. a + b -> a[ms] A=01600000000000 B=03600000000000 C=00694000000000 D=00000000000000 M=00000000000000 P=9 S=0.....678..b 01266: .1...1.11. shift left a[ms] A=16000000000000 B=03600000000000 C=00694000000000 D=00000000000000 M=00000000000000 P=9 S=0.....678..b 01267: .....111.. p - 1 -> p A=16000000000000 B=03600000000000 C=00694000000000 D=00000000000000 M=00000000000000 P=8 S=0.....678..b 01270: ....1.11.. if p # 0 A=16000000000000 B=03600000000000 C=00694000000000 D=00000000000000 M=00000000000000 P=8 S=0.....678..b 01271: 1.11..1111 -> 01263 then go to div15 A=16000000000000 B=03600000000000 C=00694000000000 D=00000000000000 M=00000000000000 P=8 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=12400000000000 B=03600000000000 C=00694000000000 D=00000000000000 M=00000000000000 P=8 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=12400000000000 B=03600000000000 C=00694000000000 D=00000000000000 M=00000000000000 P=8 S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=12400000000000 B=03600000000000 C=00694100000000 D=00000000000000 M=00000000000000 P=8 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=08800000000000 B=03600000000000 C=00694100000000 D=00000000000000 M=00000000000000 P=8 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=08800000000000 B=03600000000000 C=00694100000000 D=00000000000000 M=00000000000000 P=8 S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=08800000000000 B=03600000000000 C=00694200000000 D=00000000000000 M=00000000000000 P=8 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=05200000000000 B=03600000000000 C=00694200000000 D=00000000000000 M=00000000000000 P=8 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=05200000000000 B=03600000000000 C=00694200000000 D=00000000000000 M=00000000000000 P=8 S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=05200000000000 B=03600000000000 C=00694300000000 D=00000000000000 M=00000000000000 P=8 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=01600000000000 B=03600000000000 C=00694300000000 D=00000000000000 M=00000000000000 P=8 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=01600000000000 B=03600000000000 C=00694300000000 D=00000000000000 M=00000000000000 P=8 S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=01600000000000 B=03600000000000 C=00694400000000 D=00000000000000 M=00000000000000 P=8 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=98000000000000 B=03600000000000 C=00694400000000 D=00000000000000 M=00000000000000 P=8 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=98000000000000 B=03600000000000 C=00694400000000 D=00000000000000 M=00000000000000 P=8 S=0.....678..b 01265: 111..1.11. a + b -> a[ms] A=01600000000000 B=03600000000000 C=00694400000000 D=00000000000000 M=00000000000000 P=8 S=0.....678..b 01266: .1...1.11. shift left a[ms] A=16000000000000 B=03600000000000 C=00694400000000 D=00000000000000 M=00000000000000 P=8 S=0.....678..b 01267: .....111.. p - 1 -> p A=16000000000000 B=03600000000000 C=00694400000000 D=00000000000000 M=00000000000000 P=7 S=0.....678..b 01270: ....1.11.. if p # 0 A=16000000000000 B=03600000000000 C=00694400000000 D=00000000000000 M=00000000000000 P=7 S=0.....678..b 01271: 1.11..1111 -> 01263 then go to div15 A=16000000000000 B=03600000000000 C=00694400000000 D=00000000000000 M=00000000000000 P=7 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=12400000000000 B=03600000000000 C=00694400000000 D=00000000000000 M=00000000000000 P=7 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=12400000000000 B=03600000000000 C=00694400000000 D=00000000000000 M=00000000000000 P=7 S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=12400000000000 B=03600000000000 C=00694410000000 D=00000000000000 M=00000000000000 P=7 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=08800000000000 B=03600000000000 C=00694410000000 D=00000000000000 M=00000000000000 P=7 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=08800000000000 B=03600000000000 C=00694410000000 D=00000000000000 M=00000000000000 P=7 S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=08800000000000 B=03600000000000 C=00694420000000 D=00000000000000 M=00000000000000 P=7 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=05200000000000 B=03600000000000 C=00694420000000 D=00000000000000 M=00000000000000 P=7 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=05200000000000 B=03600000000000 C=00694420000000 D=00000000000000 M=00000000000000 P=7 S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=05200000000000 B=03600000000000 C=00694430000000 D=00000000000000 M=00000000000000 P=7 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=01600000000000 B=03600000000000 C=00694430000000 D=00000000000000 M=00000000000000 P=7 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=01600000000000 B=03600000000000 C=00694430000000 D=00000000000000 M=00000000000000 P=7 S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=01600000000000 B=03600000000000 C=00694440000000 D=00000000000000 M=00000000000000 P=7 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=98000000000000 B=03600000000000 C=00694440000000 D=00000000000000 M=00000000000000 P=7 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=98000000000000 B=03600000000000 C=00694440000000 D=00000000000000 M=00000000000000 P=7 S=0.....678..b 01265: 111..1.11. a + b -> a[ms] A=01600000000000 B=03600000000000 C=00694440000000 D=00000000000000 M=00000000000000 P=7 S=0.....678..b 01266: .1...1.11. shift left a[ms] A=16000000000000 B=03600000000000 C=00694440000000 D=00000000000000 M=00000000000000 P=7 S=0.....678..b 01267: .....111.. p - 1 -> p A=16000000000000 B=03600000000000 C=00694440000000 D=00000000000000 M=00000000000000 P=6 S=0.....678..b 01270: ....1.11.. if p # 0 A=16000000000000 B=03600000000000 C=00694440000000 D=00000000000000 M=00000000000000 P=6 S=0.....678..b 01271: 1.11..1111 -> 01263 then go to div15 A=16000000000000 B=03600000000000 C=00694440000000 D=00000000000000 M=00000000000000 P=6 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=12400000000000 B=03600000000000 C=00694440000000 D=00000000000000 M=00000000000000 P=6 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=12400000000000 B=03600000000000 C=00694440000000 D=00000000000000 M=00000000000000 P=6 S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=12400000000000 B=03600000000000 C=00694441000000 D=00000000000000 M=00000000000000 P=6 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=08800000000000 B=03600000000000 C=00694441000000 D=00000000000000 M=00000000000000 P=6 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=08800000000000 B=03600000000000 C=00694441000000 D=00000000000000 M=00000000000000 P=6 S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=08800000000000 B=03600000000000 C=00694442000000 D=00000000000000 M=00000000000000 P=6 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=05200000000000 B=03600000000000 C=00694442000000 D=00000000000000 M=00000000000000 P=6 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=05200000000000 B=03600000000000 C=00694442000000 D=00000000000000 M=00000000000000 P=6 S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=05200000000000 B=03600000000000 C=00694443000000 D=00000000000000 M=00000000000000 P=6 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=01600000000000 B=03600000000000 C=00694443000000 D=00000000000000 M=00000000000000 P=6 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=01600000000000 B=03600000000000 C=00694443000000 D=00000000000000 M=00000000000000 P=6 S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=01600000000000 B=03600000000000 C=00694444000000 D=00000000000000 M=00000000000000 P=6 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=98000000000000 B=03600000000000 C=00694444000000 D=00000000000000 M=00000000000000 P=6 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=98000000000000 B=03600000000000 C=00694444000000 D=00000000000000 M=00000000000000 P=6 S=0.....678..b 01265: 111..1.11. a + b -> a[ms] A=01600000000000 B=03600000000000 C=00694444000000 D=00000000000000 M=00000000000000 P=6 S=0.....678..b 01266: .1...1.11. shift left a[ms] A=16000000000000 B=03600000000000 C=00694444000000 D=00000000000000 M=00000000000000 P=6 S=0.....678..b 01267: .....111.. p - 1 -> p A=16000000000000 B=03600000000000 C=00694444000000 D=00000000000000 M=00000000000000 P=5 S=0.....678..b 01270: ....1.11.. if p # 0 A=16000000000000 B=03600000000000 C=00694444000000 D=00000000000000 M=00000000000000 P=5 S=0.....678..b 01271: 1.11..1111 -> 01263 then go to div15 A=16000000000000 B=03600000000000 C=00694444000000 D=00000000000000 M=00000000000000 P=5 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=12400000000000 B=03600000000000 C=00694444000000 D=00000000000000 M=00000000000000 P=5 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=12400000000000 B=03600000000000 C=00694444000000 D=00000000000000 M=00000000000000 P=5 S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=12400000000000 B=03600000000000 C=00694444100000 D=00000000000000 M=00000000000000 P=5 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=08800000000000 B=03600000000000 C=00694444100000 D=00000000000000 M=00000000000000 P=5 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=08800000000000 B=03600000000000 C=00694444100000 D=00000000000000 M=00000000000000 P=5 S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=08800000000000 B=03600000000000 C=00694444200000 D=00000000000000 M=00000000000000 P=5 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=05200000000000 B=03600000000000 C=00694444200000 D=00000000000000 M=00000000000000 P=5 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=05200000000000 B=03600000000000 C=00694444200000 D=00000000000000 M=00000000000000 P=5 S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=05200000000000 B=03600000000000 C=00694444300000 D=00000000000000 M=00000000000000 P=5 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=01600000000000 B=03600000000000 C=00694444300000 D=00000000000000 M=00000000000000 P=5 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=01600000000000 B=03600000000000 C=00694444300000 D=00000000000000 M=00000000000000 P=5 S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=01600000000000 B=03600000000000 C=00694444400000 D=00000000000000 M=00000000000000 P=5 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=98000000000000 B=03600000000000 C=00694444400000 D=00000000000000 M=00000000000000 P=5 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=98000000000000 B=03600000000000 C=00694444400000 D=00000000000000 M=00000000000000 P=5 S=0.....678..b 01265: 111..1.11. a + b -> a[ms] A=01600000000000 B=03600000000000 C=00694444400000 D=00000000000000 M=00000000000000 P=5 S=0.....678..b 01266: .1...1.11. shift left a[ms] A=16000000000000 B=03600000000000 C=00694444400000 D=00000000000000 M=00000000000000 P=5 S=0.....678..b 01267: .....111.. p - 1 -> p A=16000000000000 B=03600000000000 C=00694444400000 D=00000000000000 M=00000000000000 P=4 S=0.....678..b 01270: ....1.11.. if p # 0 A=16000000000000 B=03600000000000 C=00694444400000 D=00000000000000 M=00000000000000 P=4 S=0.....678..b 01271: 1.11..1111 -> 01263 then go to div15 A=16000000000000 B=03600000000000 C=00694444400000 D=00000000000000 M=00000000000000 P=4 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=12400000000000 B=03600000000000 C=00694444400000 D=00000000000000 M=00000000000000 P=4 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=12400000000000 B=03600000000000 C=00694444400000 D=00000000000000 M=00000000000000 P=4 S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=12400000000000 B=03600000000000 C=00694444410000 D=00000000000000 M=00000000000000 P=4 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=08800000000000 B=03600000000000 C=00694444410000 D=00000000000000 M=00000000000000 P=4 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=08800000000000 B=03600000000000 C=00694444410000 D=00000000000000 M=00000000000000 P=4 S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=08800000000000 B=03600000000000 C=00694444420000 D=00000000000000 M=00000000000000 P=4 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=05200000000000 B=03600000000000 C=00694444420000 D=00000000000000 M=00000000000000 P=4 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=05200000000000 B=03600000000000 C=00694444420000 D=00000000000000 M=00000000000000 P=4 S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=05200000000000 B=03600000000000 C=00694444430000 D=00000000000000 M=00000000000000 P=4 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=01600000000000 B=03600000000000 C=00694444430000 D=00000000000000 M=00000000000000 P=4 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=01600000000000 B=03600000000000 C=00694444430000 D=00000000000000 M=00000000000000 P=4 S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=01600000000000 B=03600000000000 C=00694444440000 D=00000000000000 M=00000000000000 P=4 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=98000000000000 B=03600000000000 C=00694444440000 D=00000000000000 M=00000000000000 P=4 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=98000000000000 B=03600000000000 C=00694444440000 D=00000000000000 M=00000000000000 P=4 S=0.....678..b 01265: 111..1.11. a + b -> a[ms] A=01600000000000 B=03600000000000 C=00694444440000 D=00000000000000 M=00000000000000 P=4 S=0.....678..b 01266: .1...1.11. shift left a[ms] A=16000000000000 B=03600000000000 C=00694444440000 D=00000000000000 M=00000000000000 P=4 S=0.....678..b 01267: .....111.. p - 1 -> p A=16000000000000 B=03600000000000 C=00694444440000 D=00000000000000 M=00000000000000 P=3 S=0.....678..b 01270: ....1.11.. if p # 0 A=16000000000000 B=03600000000000 C=00694444440000 D=00000000000000 M=00000000000000 P=3 S=0.....678..b 01271: 1.11..1111 -> 01263 then go to div15 A=16000000000000 B=03600000000000 C=00694444440000 D=00000000000000 M=00000000000000 P=3 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=12400000000000 B=03600000000000 C=00694444440000 D=00000000000000 M=00000000000000 P=3 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=12400000000000 B=03600000000000 C=00694444440000 D=00000000000000 M=00000000000000 P=3 S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=12400000000000 B=03600000000000 C=00694444441000 D=00000000000000 M=00000000000000 P=3 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=08800000000000 B=03600000000000 C=00694444441000 D=00000000000000 M=00000000000000 P=3 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=08800000000000 B=03600000000000 C=00694444441000 D=00000000000000 M=00000000000000 P=3 S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=08800000000000 B=03600000000000 C=00694444442000 D=00000000000000 M=00000000000000 P=3 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=05200000000000 B=03600000000000 C=00694444442000 D=00000000000000 M=00000000000000 P=3 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=05200000000000 B=03600000000000 C=00694444442000 D=00000000000000 M=00000000000000 P=3 S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=05200000000000 B=03600000000000 C=00694444443000 D=00000000000000 M=00000000000000 P=3 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=01600000000000 B=03600000000000 C=00694444443000 D=00000000000000 M=00000000000000 P=3 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=01600000000000 B=03600000000000 C=00694444443000 D=00000000000000 M=00000000000000 P=3 S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=01600000000000 B=03600000000000 C=00694444444000 D=00000000000000 M=00000000000000 P=3 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=98000000000000 B=03600000000000 C=00694444444000 D=00000000000000 M=00000000000000 P=3 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=98000000000000 B=03600000000000 C=00694444444000 D=00000000000000 M=00000000000000 P=3 S=0.....678..b 01265: 111..1.11. a + b -> a[ms] A=01600000000000 B=03600000000000 C=00694444444000 D=00000000000000 M=00000000000000 P=3 S=0.....678..b 01266: .1...1.11. shift left a[ms] A=16000000000000 B=03600000000000 C=00694444444000 D=00000000000000 M=00000000000000 P=3 S=0.....678..b 01267: .....111.. p - 1 -> p A=16000000000000 B=03600000000000 C=00694444444000 D=00000000000000 M=00000000000000 P=2 S=0.....678..b 01270: ....1.11.. if p # 0 A=16000000000000 B=03600000000000 C=00694444444000 D=00000000000000 M=00000000000000 P=2 S=0.....678..b 01271: 1.11..1111 -> 01263 then go to div15 note we use the last 3 digits of C A=16000000000000 B=03600000000000 C=00694444444000 for mantissa calculation D=00000000000000 M=00000000000000 P=2 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=12400000000000 B=03600000000000 C=00694444444000 D=00000000000000 M=00000000000000 P=2 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=12400000000000 B=03600000000000 C=00694444444000 D=00000000000000 M=00000000000000 P=2 S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=12400000000000 B=03600000000000 C=00694444444100 D=00000000000000 M=00000000000000 P=2 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=08800000000000 B=03600000000000 C=00694444444100 D=00000000000000 M=00000000000000 P=2 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=08800000000000 B=03600000000000 C=00694444444100 D=00000000000000 M=00000000000000 P=2 S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=08800000000000 B=03600000000000 C=00694444444200 D=00000000000000 M=00000000000000 P=2 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=05200000000000 B=03600000000000 C=00694444444200 D=00000000000000 M=00000000000000 P=2 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=05200000000000 B=03600000000000 C=00694444444200 D=00000000000000 M=00000000000000 P=2 S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=05200000000000 B=03600000000000 C=00694444444300 D=00000000000000 M=00000000000000 P=2 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=01600000000000 B=03600000000000 C=00694444444300 D=00000000000000 M=00000000000000 P=2 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=01600000000000 B=03600000000000 C=00694444444300 D=00000000000000 M=00000000000000 P=2 S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=01600000000000 B=03600000000000 C=00694444444400 D=00000000000000 M=00000000000000 P=2 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=98000000000000 B=03600000000000 C=00694444444400 D=00000000000000 M=00000000000000 P=2 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=98000000000000 B=03600000000000 C=00694444444400 D=00000000000000 M=00000000000000 P=2 S=0.....678..b 01265: 111..1.11. a + b -> a[ms] A=01600000000000 B=03600000000000 C=00694444444400 D=00000000000000 M=00000000000000 P=2 S=0.....678..b 01266: .1...1.11. shift left a[ms] A=16000000000000 B=03600000000000 C=00694444444400 D=00000000000000 M=00000000000000 P=2 S=0.....678..b 01267: .....111.. p - 1 -> p A=16000000000000 B=03600000000000 C=00694444444400 D=00000000000000 M=00000000000000 P=1 S=0.....678..b 01270: ....1.11.. if p # 0 A=16000000000000 B=03600000000000 C=00694444444400 D=00000000000000 M=00000000000000 P=1 S=0.....678..b 01271: 1.11..1111 -> 01263 then go to div15 A=16000000000000 B=03600000000000 C=00694444444400 D=00000000000000 M=00000000000000 P=1 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=12400000000000 B=03600000000000 C=00694444444400 D=00000000000000 M=00000000000000 P=1 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=12400000000000 B=03600000000000 C=00694444444400 D=00000000000000 M=00000000000000 P=1 S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=12400000000000 B=03600000000000 C=00694444444410 D=00000000000000 M=00000000000000 P=1 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=08800000000000 B=03600000000000 C=00694444444410 D=00000000000000 M=00000000000000 P=1 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=08800000000000 B=03600000000000 C=00694444444410 D=00000000000000 M=00000000000000 P=1 S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=08800000000000 B=03600000000000 C=00694444444420 D=00000000000000 M=00000000000000 P=1 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=05200000000000 B=03600000000000 C=00694444444420 D=00000000000000 M=00000000000000 P=1 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=05200000000000 B=03600000000000 C=00694444444420 D=00000000000000 M=00000000000000 P=1 S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=05200000000000 B=03600000000000 C=00694444444430 D=00000000000000 M=00000000000000 P=1 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=01600000000000 B=03600000000000 C=00694444444430 D=00000000000000 M=00000000000000 P=1 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=01600000000000 B=03600000000000 C=00694444444430 D=00000000000000 M=00000000000000 P=1 S=0.....678..b 01262: .1111...1. div14: c + 1 -> c[p] A=01600000000000 B=03600000000000 C=00694444444440 D=00000000000000 M=00000000000000 P=1 S=0.....678..b 01263: 11...1.11. div15: a - b -> a[ms] A=98000000000000 B=03600000000000 C=00694444444440 D=00000000000000 M=00000000000000 P=1 S=0.....678..b 01264: 1.11..1.11 -> 01262 if no carry go to div14 A=98000000000000 B=03600000000000 C=00694444444440 D=00000000000000 M=00000000000000 P=1 S=0.....678..b 01265: 111..1.11. a + b -> a[ms] A=01600000000000 B=03600000000000 C=00694444444440 D=00000000000000 M=00000000000000 P=1 S=0.....678..b 01266: .1...1.11. shift left a[ms] A=16000000000000 B=03600000000000 C=00694444444440 D=00000000000000 M=00000000000000 P=1 S=0.....678..b 01267: .....111.. p - 1 -> p A=16000000000000 B=03600000000000 C=00694444444440 D=00000000000000 M=00000000000000 P=0 S=0.....678..b 01270: ....1.11.. if p # 0 now p=0 the operation is over A=16000000000000 B=03600000000000 C=00694444444440 D=00000000000000 M=00000000000000 P=0 S=0.....678..b 01271: 1.11..1111 -> 01263 then go to div15 A=16000000000000 B=03600000000000 C=00694444444440 D=00000000000000 M=00000000000000 P=0 S=0.....678..b 01272: ..1.11.111 -> 01055 go to tnm12 we go right to normalize ("tnm12") A=16000000000000 B=03600000000000 C=00694444444440 D=00000000000000 M=00000000000000 P=0 S=0.....678..b 01055: .11...111. tnm12: c -> a[w] we copy C to A A=00694444444440 B=03600000000000 C=00694444444440 D=00000000000000 M=00000000000000 P=0 S=0.....678..b 01056: ..1...1.1. b -> c[x] exponent of C to B A=00694444444440 B=03600000000000 C=00694444444000 D=00000000000000 M=00000000000000 P=0 S=0.....678..b 01057: 11..1.1111 -> 01313 go to add15 A=00694444444440 B=03600000000000 C=00694444444000 D=00000000000000 M=00000000000000 P=0 S=0.....678..b 01313: .1...1.... -> 02314 add15: select rom 2 ; -> nrm21 A=00694444444440 B=03600000000000 C=00694444444000 we go to normalization routine D=00000000000000 M=00000000000000 P=0 S=0.....678..b 02314: 1.1111111. nrm21: 0 -> a[s] A=00694444444440 B=03600000000000 C=00694444444000 D=00000000000000 M=00000000000000 P=0 S=0.....678..b 02315: 11....11.. 12 -> p A=00694444444440 B=03600000000000 C=00694444444000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02316: ....1.111. 0 -> b[w] A=00694444444440 B=00000000000000 C=00694444444000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02317: 1..11...1. nrm23: if a[p] >= 1 A=00694444444440 B=00000000000000 C=00694444444000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02320: 11.1.11.11 -> 02326 then go to nrm24 A=00694444444440 B=00000000000000 C=00694444444000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02321: .1....111. shift left a[w] A=06944444444400 B=00000000000000 C=00694444444000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02322: .1.11.1.1. c - 1 -> c[x] A=06944444444400 B=00000000000000 C=00694444444999 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02323: 1..11.111. if a[w] >= 1 A=06944444444400 B=00000000000000 C=00694444444999 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02324: 11..111111 -> 02317 then go to nrm23 A=06944444444400 B=00000000000000 C=00694444444999 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02317: 1..11...1. nrm23: if a[p] >= 1 A=06944444444400 B=00000000000000 C=00694444444999 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02320: 11.1.11.11 -> 02326 then go to nrm24 A=06944444444400 B=00000000000000 C=00694444444999 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02326: .1..1.1.1. nrm24: a -> b[x] A=06944444444400 B=00000000000400 C=00694444444999 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02327: 111...111. a + b -> a[w] A=06944444444800 B=00000000000400 C=00694444444999 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02330: 1..111111. if a[s] >= 1 A=06944444444800 B=00000000000400 C=00694444444999 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02331: 11...11111 -> 02307 then go to mpy28 A=06944444444800 B=00000000000400 C=00694444444999 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02332: 111.1..11. a exchange c[m] A=00694444444800 B=00000000000400 C=06944444444999 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02333: .11...111. c -> a[w] A=06944444444999 B=00000000000400 C=06944444444999 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02334: ....1.111. 0 -> b[w] A=06944444444999 B=00000000000000 C=06944444444999 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02335: 11....11.. nrm27: 12 -> p A=06944444444999 B=00000000000000 C=06944444444999 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02336: .1111.1.11 -> 02172 go to nrm26 A=06944444444999 B=00000000000000 C=06944444444999 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02172: ..1..1.1.. nrm26: if s2 = 0 A=06944444444999 B=00000000000000 C=06944444444999 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02173: 1..1.1..11 -> 02224 then go to rtn21 A=06944444444999 B=00000000000000 C=06944444444999 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02224: ..1..1.... -> 01225 rtn21: select rom 1 ; -> rtn11 A=06944444444999 B=00000000000000 C=06944444444999 D=00000000000000 M=00000000000000 P=c S=0.....678..b 01225: ...1.1.1.. rtn11: if s1 = 0 A=06944444444999 B=00000000000000 C=06944444444999 D=00000000000000 M=00000000000000 P=c S=0.....678..b 01226: 11.11.1.11 -> 01332 then go to rtn12 A=06944444444999 B=00000000000000 C=06944444444999 D=00000000000000 M=00000000000000 P=c S=0.....678..b 01332: .....1.... -> 00333 rtn12: select rom 0 ; -> l00333 A=06944444444999 B=00000000000000 C=06944444444999 D=00000000000000 M=00000000000000 P=c S=0.....678..b Numbers in A and C are normalized 6.944444 10^-1 00333: .1.111.1.1 -> 00135 l00333: jsb of13 We call "of13" to format output A=06944444444999 B=00000000000000 C=06944444444999 that is floating point in A D=00000000000000 M=00000000000000 P=c S=0.....678..b display mask in B 00135: ....11.1.. of13: clear status A=06944444444999 B=00000000000000 C=06944444444999 D=00000000000000 M=00000000000000 P=c S=............ 00136: .11...111. c -> a[w] A=06944444444999 B=00000000000000 C=06944444444999 D=00000000000000 M=00000000000000 P=c S=............ 00137: 11....11.. of14: 12 -> p A=06944444444999 B=00000000000000 C=06944444444999 D=00000000000000 M=00000000000000 P=c S=............ 00140: .1..1.1.1. a -> b[x] A=06944444444999 B=00000000000999 C=06944444444999 D=00000000000000 M=00000000000000 P=c S=............ 00141: .11...1.1. c -> a[x] A=06944444444999 B=00000000000999 C=06944444444999 D=00000000000000 M=00000000000000 P=c S=............ 00142: .11.111.1. if c[xs] = 0 A=06944444444999 B=00000000000999 C=06944444444999 D=00000000000000 M=00000000000000 P=c S=............ 00143: .11.1...11 -> 00150 then go to of15 A=06944444444999 B=00000000000999 C=06944444444999 D=00000000000000 M=00000000000000 P=c S=............ 00144: ..1.1.1.1. 0 - c -> c[x] A=06944444444999 B=00000000000999 C=06944444444001 D=00000000000000 M=00000000000000 P=c S=............ 00145: .1.1111.1. c - 1 -> c[xs] A=06944444444999 B=00000000000999 C=06944444444901 D=00000000000000 M=00000000000000 P=c S=............ 00146: .1.1.11111 -> 00127 if no carry go to of11 A=06944444444999 B=00000000000999 C=06944444444901 D=00000000000000 M=00000000000000 P=c S=............ 00147: .1.1..11.. 5 -> p A=06944444444999 B=00000000000999 C=06944444444901 D=00000000000000 M=00000000000000 P=5 S=............ 00150: 111.1.1.1. of15: a exchange c[x] A=06944444444901 B=00000000000999 C=06944444444999 D=00000000000000 M=00000000000000 P=5 S=............ 00151: .1...1.1.. if s4 = 0 A=06944444444901 B=00000000000999 C=06944444444999 D=00000000000000 M=00000000000000 P=5 S=............ 00152: .1....1.11 -> 00102 then go to l00102 A=06944444444901 B=00000000000999 C=06944444444999 D=00000000000000 M=00000000000000 P=5 S=............ 00102: .1..1.111. l00102: a -> b[w] A=06944444444901 B=06944444444901 C=06944444444999 D=00000000000000 M=00000000000000 P=5 S=............ 00103: 1.11111.1. 0 -> a[xs] A=06944444444001 B=06944444444901 C=06944444444999 D=00000000000000 M=00000000000000 P=5 S=............ 00104: .1...1.11. shift left a[ms] A=69444444440001 B=06944444444901 C=06944444444999 D=00000000000000 M=00000000000000 P=5 S=............ 00105: 11.11.1.1. l00105: a - 1 -> a[x] A=69444444440000 B=06944444444901 C=06944444444999 D=00000000000000 M=00000000000000 P=5 S=............ 00106: 111.....11 -> 00340 if no carry go to l00340 A=69444444440000 B=06944444444901 C=06944444444999 D=00000000000000 M=00000000000000 P=5 S=............ 00340: 1.11.1.11. l00340: shift right a[ms] A=06944444444000 B=06944444444901 C=06944444444999 D=00000000000000 M=00000000000000 P=5 S=............ 00341: .....111.. p - 1 -> p A=06944444444000 B=06944444444901 C=06944444444999 D=00000000000000 M=00000000000000 P=4 S=............ 00342: ..1.1.11.. if p # 2 A=06944444444000 B=06944444444901 C=06944444444999 D=00000000000000 M=00000000000000 P=4 S=............ 00343: .1...1.111 -> 00105 then go to l00105 A=06944444444000 B=06944444444901 C=06944444444999 D=00000000000000 M=00000000000000 P=4 S=............ 00105: 11.11.1.1. l00105: a - 1 -> a[x] A=06944444444999 B=06944444444901 C=06944444444999 D=00000000000000 M=00000000000000 P=4 S=............ 00106: 111.....11 -> 00340 if no carry go to l00340 A=06944444444999 B=06944444444901 C=06944444444999 D=00000000000000 M=00000000000000 P=4 S=............ 00107: .11.111.1. if c[xs] = 0 A=06944444444999 B=06944444444901 C=06944444444999 D=00000000000000 M=00000000000000 P=4 S=............ 00110: 111..11.11 -> 00346 then go to l00346 A=06944444444999 B=06944444444901 C=06944444444999 D=00000000000000 M=00000000000000 P=4 S=............ 00111: 11..11.11. a exchange b[ms] A=06944444444999 B=06944444444901 C=06944444444999 D=00000000000000 M=00000000000000 P=4 S=............ 00112: 11.1..11.. 13 -> p A=06944444444999 B=06944444444901 C=06944444444999 D=00000000000000 M=00000000000000 P=d S=............ 00113: 111..11.11 -> 00346 go to l00346 A=06944444444999 B=06944444444901 C=06944444444999 D=00000000000000 M=00000000000000 P=d S=............ 00346: 1.1111.11. l00346: 0 -> a[ms] A=00000000000999 B=06944444444901 C=06944444444999 D=00000000000000 M=00000000000000 P=d S=............ 00347: 11111...1. a + 1 -> a[p] A=10000000000999 B=06944444444901 C=06944444444999 D=00000000000000 M=00000000000000 P=d S=............ 00350: 11111...1. a + 1 -> a[p] A=20000000000999 B=06944444444901 C=06944444444999 D=00000000000000 M=00000000000000 P=d S=............ 00351: ..1...11.. 2 -> p A=20000000000999 B=06944444444901 C=06944444444999 D=00000000000000 M=00000000000000 P=2 S=............ 00352: ....1111.. l00352: p + 1 -> p A=20000000000999 B=06944444444901 C=06944444444999 D=00000000000000 M=00000000000000 P=3 S=............ 00353: 11.11...1. a - 1 -> a[p] A=20000000009999 B=06944444444901 C=06944444444999 D=00000000000000 M=00000000000000 P=3 S=............ 00354: 111.111111 -> 00357 if no carry go to l00357 A=20000000009999 B=06944444444901 C=06944444444999 D=00000000000000 M=00000000000000 P=3 S=............ 00355: ........1. if b[p] = 0 A=20000000009999 B=06944444444901 C=06944444444999 D=00000000000000 M=00000000000000 P=3 S=............ 00356: 111.1.1.11 -> 00352 then go to l00352 A=20000000009999 B=06944444444901 C=06944444444999 D=00000000000000 M=00000000000000 P=3 S=............ 00357: 11111...1. l00357: a + 1 -> a[p] A=20000000000999 B=06944444444901 C=06944444444999 D=00000000000000 M=00000000000000 P=3 S=............ 00360: 11..1.111. a exchange b[w] A=06944444444901 B=20000000000999 C=06944444444999 D=00000000000000 M=00000000000000 P=3 S=............ 00361: ....11.... return A, B, C in order we go to display and wait loop A=06944444444901 B=20000000000999 C=06944444444999 D=00000000000000 M=00000000000000 P=3 S=............ 00334: .111...1.. 1 -> s7 A=06944444444901 B=20000000000999 C=06944444444999 D=00000000000000 M=00000000000000 P=3 S=.......7.... 00335: 1111.111.1 -> 00367 fst2zx: jsb dsp1 A=06944444444901 B=20000000000999 C=06944444444999 D=00000000000000 M=00000000000000 P=3 S=.......7.... 00367: 1.1.1..1.. dsp1: 0 -> s10 A=06944444444901 B=20000000000999 C=06944444444999 D=00000000000000 M=00000000000000 P=3 S=.......7.... 00370: 11....1111 -> 00303 go to dsp7 A=06944444444901 B=20000000000999 C=06944444444999 D=00000000000000 M=00000000000000 P=3 S=.......7.... 00303: .11..1111. dsp7: c -> a[s] A=06944444444901 B=20000000000999 C=06944444444999 D=00000000000000 M=00000000000000 P=3 S=.......7.... 00304: 1...1..1.. l00304: 0 -> s8 A=06944444444901 B=20000000000999 C=06944444444999 D=00000000000000 M=00000000000000 P=3 S=.......7.... 00305: 11..111111 -> 00317 go to dsp8 A=06944444444901 B=20000000000999 C=06944444444999 D=00000000000000 M=00000000000000 P=3 S=.......7.... 00317: ....1..1.. dsp8: 0 -> s0 A=06944444444901 B=20000000000999 C=06944444444999 D=00000000000000 M=00000000000000 P=3 S=.......7.... 00320: .....111.. dsp6: p - 1 -> p A=06944444444901 B=20000000000999 C=06944444444999 D=00000000000000 M=00000000000000 P=2 S=.......7.... .....