2.5 x 3.6 = 9 00327: .1.11..1.. 0 -> s5 A=36000000000000 B=02099999999999 C=03600000000000 D=02500000000000 M=00000000000000 P=c S=0.....678..b 00330: ..11.1.... keys -> rom address A=36000000000000 B=02099999999999 C=03600000000000 D=02500000000000 M=00000000000000 P=c S=0.....678..b 00036: ..11..11.. l00036: 3 -> p P points LSD A=36000000000000 B=02099999999999 C=03600000000000 D=02500000000000 M=00000000000000 P=3 S=0.....678..b 00037: ..1.1.1.1. 0 - c -> c[x] A=36000000000000 B=02099999999999 C=03600000000000 D=02500000000000 M=00000000000000 P=3 S=0.....678..b 00040: .11.1.1... l00040: stack -> a A=02500000000000 B=02099999999999 C=03600000000000 D=00000000000000 M=00000000000000 P=3 S=0.....678..b 00041: ...1....11 -> 00020 go to l00020 A=02500000000000 B=02099999999999 C=03600000000000 D=00000000000000 M=00000000000000 P=3 S=0.....678..b 00020: ....1.111. l00020: 0 -> b[w] A=02500000000000 B=00000000000000 C=03600000000000 D=00000000000000 M=00000000000000 P=3 S=0.....678..b 00021: ..1..1.... -> 01022 select rom 1 ; -> asn12 A=02500000000000 B=00000000000000 C=03600000000000 D=00000000000000 M=00000000000000 P=3 S=0.....678..b 01022: 1.1..11..1 -> 01246 asn12: jsb div11 A=02500000000000 B=00000000000000 C=03600000000000 D=00000000000000 M=00000000000000 P=3 S=0.....678..b 01246: .1.1..1.1. div11: a - c -> c[x] A=02500000000000 B=00000000000000 C=03600000000000 D=00000000000000 M=00000000000000 P=3 S=0.....678..b 01247: .1...1.... -> 02250 select rom 2 ; -> l02250 A=02500000000000 B=00000000000000 C=03600000000000 D=00000000000000 M=00000000000000 P=3 S=0.....678..b 02250: .1.1.1111. a - c -> c[s] A=02500000000000 B=00000000000000 C=03600000000000 D=00000000000000 M=00000000000000 P=3 S=0.....678..b 02251: 1.1.1.1111 -> 02253 if no carry go to div22 A=02500000000000 B=00000000000000 C=03600000000000 D=00000000000000 M=00000000000000 P=3 S=0.....678..b 02253: 11..1..11. div22: a exchange b[m] A=00000000000000 B=02500000000000 C=03600000000000 D=00000000000000 M=00000000000000 P=3 S=0.....678..b 02254: 1.111.111. 0 -> a[w] A=00000000000000 B=02500000000000 C=03600000000000 D=00000000000000 M=00000000000000 P=3 S=0.....678..b 02255: 11..1.11.. if p # 12 A=00000000000000 B=02500000000000 C=03600000000000 D=00000000000000 M=00000000000000 P=3 S=0.....678..b 02256: 11...1.111 -> 02305 then go to mpy27 A=00000000000000 B=02500000000000 C=03600000000000 D=00000000000000 M=00000000000000 P=3 S=0.....678..b 02305: .1.11...1. mpy27: c - 1 -> c[p] c[3] - 1 = 9 A=00000000000000 B=02500000000000 C=03600000009000 carry D=00000000000000 M=00000000000000 P=3 S=0.....678..b 9 -> c[3] 02306: 11...1..11 -> 02304 if no carry go to myp26 A=00000000000000 B=02500000000000 C=03600000009000 D=00000000000000 M=00000000000000 P=3 S=0.....678..b 02307: 1.11..111. mpy28: shift right a[w] a[w] = 0 A=00000000000000 B=02500000000000 C=03600000009000 D=00000000000000 M=00000000000000 P=3 S=0.....678..b 02310: ....1111.. p + 1 -> p p = 4 A=00000000000000 B=02500000000000 C=03600000009000 D=00000000000000 M=00000000000000 P=4 S=0.....678..b 02311: 11.11.11.. if p # 13 A=00000000000000 B=02500000000000 C=03600000009000 D=00000000000000 M=00000000000000 P=4 S=0.....678..b 02312: 11...1.111 -> 02305 then go to mpy27 A=00000000000000 B=02500000000000 C=03600000009000 D=00000000000000 M=00000000000000 P=4 S=0.....678..b [BP1] 02305: .1.11...1. mpy27: c - 1 -> c[p] C will be filled with "9" until we encounter in the loop A=00000000000000 B=02500000000000 C=03600000099000 a significant digit in c[p] D=00000000000000 M=00000000000000 P=4 S=0.....678..b 02306: 11...1..11 -> 02304 if no carry go to myp26 A=00000000000000 B=02500000000000 C=03600000099000 D=00000000000000 M=00000000000000 P=4 S=0.....678..b 02307: 1.11..111. mpy28: shift right a[w] A=00000000000000 B=02500000000000 C=03600000099000 D=00000000000000 M=00000000000000 P=4 S=0.....678..b 02310: ....1111.. p + 1 -> p A=00000000000000 B=02500000000000 C=03600000099000 D=00000000000000 M=00000000000000 P=5 S=0.....678..b 02311: 11.11.11.. if p # 13 A=00000000000000 B=02500000000000 C=03600000099000 D=00000000000000 M=00000000000000 P=5 S=0.....678..b 02312: 11...1.111 -> 02305 then go to mpy27 A=00000000000000 B=02500000000000 C=03600000099000 D=00000000000000 M=00000000000000 P=5 S=0.....678..b 02305: .1.11...1. mpy27: c - 1 -> c[p] A=00000000000000 B=02500000000000 C=03600000999000 D=00000000000000 M=00000000000000 P=5 S=0.....678..b 02306: 11...1..11 -> 02304 if no carry go to myp26 A=00000000000000 B=02500000000000 C=03600000999000 D=00000000000000 M=00000000000000 P=5 S=0.....678..b 02307: 1.11..111. mpy28: shift right a[w] A=00000000000000 B=02500000000000 C=03600000999000 D=00000000000000 M=00000000000000 P=5 S=0.....678..b 02310: ....1111.. p + 1 -> p A=00000000000000 B=02500000000000 C=03600000999000 D=00000000000000 M=00000000000000 P=6 S=0.....678..b 02311: 11.11.11.. if p # 13 A=00000000000000 B=02500000000000 C=03600000999000 D=00000000000000 M=00000000000000 P=6 S=0.....678..b 02312: 11...1.111 -> 02305 then go to mpy27 A=00000000000000 B=02500000000000 C=03600000999000 D=00000000000000 M=00000000000000 P=6 S=0.....678..b 02305: .1.11...1. mpy27: c - 1 -> c[p] A=00000000000000 B=02500000000000 C=03600009999000 D=00000000000000 M=00000000000000 P=6 S=0.....678..b 02306: 11...1..11 -> 02304 if no carry go to myp26 A=00000000000000 B=02500000000000 C=03600009999000 D=00000000000000 M=00000000000000 P=6 S=0.....678..b 02307: 1.11..111. mpy28: shift right a[w] A=00000000000000 B=02500000000000 C=03600009999000 D=00000000000000 M=00000000000000 P=6 S=0.....678..b 02310: ....1111.. p + 1 -> p A=00000000000000 B=02500000000000 C=03600009999000 D=00000000000000 M=00000000000000 P=7 S=0.....678..b 02311: 11.11.11.. if p # 13 A=00000000000000 B=02500000000000 C=03600009999000 D=00000000000000 M=00000000000000 P=7 S=0.....678..b 02312: 11...1.111 -> 02305 then go to mpy27 A=00000000000000 B=02500000000000 C=03600009999000 D=00000000000000 M=00000000000000 P=7 S=0.....678..b 02305: .1.11...1. mpy27: c - 1 -> c[p] A=00000000000000 B=02500000000000 C=03600099999000 D=00000000000000 M=00000000000000 P=7 S=0.....678..b 02306: 11...1..11 -> 02304 if no carry go to myp26 A=00000000000000 B=02500000000000 C=03600099999000 D=00000000000000 M=00000000000000 P=7 S=0.....678..b 02307: 1.11..111. mpy28: shift right a[w] A=00000000000000 B=02500000000000 C=03600099999000 D=00000000000000 M=00000000000000 P=7 S=0.....678..b 02310: ....1111.. p + 1 -> p A=00000000000000 B=02500000000000 C=03600099999000 D=00000000000000 M=00000000000000 P=8 S=0.....678..b 02311: 11.11.11.. if p # 13 A=00000000000000 B=02500000000000 C=03600099999000 D=00000000000000 M=00000000000000 P=8 S=0.....678..b 02312: 11...1.111 -> 02305 then go to mpy27 A=00000000000000 B=02500000000000 C=03600099999000 D=00000000000000 M=00000000000000 P=8 S=0.....678..b 02305: .1.11...1. mpy27: c - 1 -> c[p] A=00000000000000 B=02500000000000 C=03600999999000 D=00000000000000 M=00000000000000 P=8 S=0.....678..b 02306: 11...1..11 -> 02304 if no carry go to myp26 A=00000000000000 B=02500000000000 C=03600999999000 D=00000000000000 M=00000000000000 P=8 S=0.....678..b 02307: 1.11..111. mpy28: shift right a[w] A=00000000000000 B=02500000000000 C=03600999999000 D=00000000000000 M=00000000000000 P=8 S=0.....678..b 02310: ....1111.. p + 1 -> p A=00000000000000 B=02500000000000 C=03600999999000 D=00000000000000 M=00000000000000 P=9 S=0.....678..b 02311: 11.11.11.. if p # 13 A=00000000000000 B=02500000000000 C=03600999999000 D=00000000000000 M=00000000000000 P=9 S=0.....678..b 02312: 11...1.111 -> 02305 then go to mpy27 A=00000000000000 B=02500000000000 C=03600999999000 D=00000000000000 M=00000000000000 P=9 S=0.....678..b 02305: .1.11...1. mpy27: c - 1 -> c[p] A=00000000000000 B=02500000000000 C=03609999999000 D=00000000000000 M=00000000000000 P=9 S=0.....678..b 02306: 11...1..11 -> 02304 if no carry go to myp26 A=00000000000000 B=02500000000000 C=03609999999000 D=00000000000000 M=00000000000000 P=9 S=0.....678..b 02307: 1.11..111. mpy28: shift right a[w] A=00000000000000 B=02500000000000 C=03609999999000 D=00000000000000 M=00000000000000 P=9 S=0.....678..b 02310: ....1111.. p + 1 -> p A=00000000000000 B=02500000000000 C=03609999999000 D=00000000000000 M=00000000000000 P=a S=0.....678..b 02311: 11.11.11.. if p # 13 A=00000000000000 B=02500000000000 C=03609999999000 D=00000000000000 M=00000000000000 P=a S=0.....678..b 02312: 11...1.111 -> 02305 then go to mpy27 A=00000000000000 B=02500000000000 C=03609999999000 D=00000000000000 M=00000000000000 P=a S=0.....678..b 02305: .1.11...1. mpy27: c - 1 -> c[p] A=00000000000000 B=02500000000000 C=03699999999000 D=00000000000000 M=00000000000000 P=a S=0.....678..b 02306: 11...1..11 -> 02304 if no carry go to myp26 A=00000000000000 B=02500000000000 C=03699999999000 D=00000000000000 M=00000000000000 P=a S=0.....678..b 02307: 1.11..111. mpy28: shift right a[w] A=00000000000000 B=02500000000000 C=03699999999000 D=00000000000000 M=00000000000000 P=a S=0.....678..b 02310: ....1111.. p + 1 -> p A=00000000000000 B=02500000000000 C=03699999999000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 02311: 11.11.11.. if p # 13 A=00000000000000 B=02500000000000 C=03699999999000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 02312: 11...1.111 -> 02305 then go to mpy27 A=00000000000000 B=02500000000000 C=03699999999000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 02305: .1.11...1. mpy27: c - 1 -> c[p] c = b A=00000000000000 B=02500000000000 C=03599999999000 c[b] - 1 = 5 D=00000000000000 M=00000000000000 P=b S=0.....678..b no carry goto mpy26 02306: 11...1..11 -> 02304 if no carry go to myp26 A=00000000000000 B=02500000000000 C=03599999999000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 02304: 111...111. myp26: a + b -> a[w] 0 + 2.5 = 2.5 A=02500000000000 B=02500000000000 C=03599999999000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 02305: .1.11...1. mpy27: c - 1 -> c[p] A=02500000000000 B=02500000000000 C=03499999999000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 02306: 11...1..11 -> 02304 if no carry go to myp26 A=02500000000000 B=02500000000000 C=03499999999000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 02304: 111...111. myp26: a + b -> a[w] 2.5 + 2.5 = 5 A=05000000000000 B=02500000000000 C=03499999999000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 02305: .1.11...1. mpy27: c - 1 -> c[p] A=05000000000000 B=02500000000000 C=03399999999000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 02306: 11...1..11 -> 02304 if no carry go to myp26 A=05000000000000 B=02500000000000 C=03399999999000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 02304: 111...111. myp26: a + b -> a[w] 5 + 2.5 = 7.5 A=07500000000000 B=02500000000000 C=03399999999000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 02305: .1.11...1. mpy27: c - 1 -> c[p] A=07500000000000 B=02500000000000 C=03299999999000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 02306: 11...1..11 -> 02304 if no carry go to myp26 A=07500000000000 B=02500000000000 C=03299999999000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 02304: 111...111. myp26: a + b -> a[w] 7.5 + 2.5 = 10 A=10000000000000 B=02500000000000 C=03299999999000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 02305: .1.11...1. mpy27: c - 1 -> c[p] A=10000000000000 B=02500000000000 C=03199999999000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 02306: 11...1..11 -> 02304 if no carry go to myp26 A=10000000000000 B=02500000000000 C=03199999999000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 02304: 111...111. myp26: a + b -> a[w] 10 + 2.5 = 12.5 A=12500000000000 B=02500000000000 C=03199999999000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 02305: .1.11...1. mpy27: c - 1 -> c[p] A=12500000000000 B=02500000000000 C=03099999999000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 02306: 11...1..11 -> 02304 if no carry go to myp26 A=12500000000000 B=02500000000000 C=03099999999000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 02304: 111...111. myp26: a + b -> a[w] A=15000000000000 B=02500000000000 C=03099999999000 12.5 + 2.5 = 15 D=00000000000000 M=00000000000000 P=b S=0.....678..b 02305: .1.11...1. mpy27: c - 1 -> c[p] [BP2] A=15000000000000 B=02500000000000 C=03999999999000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 02306: 11...1..11 -> 02304 if no carry go to myp26 carry A=15000000000000 B=02500000000000 C=03999999999000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 02307: 1.11..111. mpy28: shift right a[w] SR A : A=1.5 A=01500000000000 B=02500000000000 C=03999999999000 D=00000000000000 M=00000000000000 P=b S=0.....678..b 02310: ....1111.. p + 1 -> p A=01500000000000 B=02500000000000 C=03999999999000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02311: 11.11.11.. if p # 13 A=01500000000000 B=02500000000000 C=03999999999000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02312: 11...1.111 -> 02305 then go to mpy27 A=01500000000000 B=02500000000000 C=03999999999000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02305: .1.11...1. mpy27: c - 1 -> c[p] A=01500000000000 B=02500000000000 C=02999999999000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02306: 11...1..11 -> 02304 if no carry go to myp26 A=01500000000000 B=02500000000000 C=02999999999000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02304: 111...111. myp26: a + b -> a[w] 1.5 + 2.5 = 4 A=04000000000000 B=02500000000000 C=02999999999000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02305: .1.11...1. mpy27: c - 1 -> c[p] A=04000000000000 B=02500000000000 C=01999999999000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02306: 11...1..11 -> 02304 if no carry go to myp26 A=04000000000000 B=02500000000000 C=01999999999000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02304: 111...111. myp26: a + b -> a[w] 4 + 2.5 = 6.5 A=06500000000000 B=02500000000000 C=01999999999000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02305: .1.11...1. mpy27: c - 1 -> c[p] A=06500000000000 B=02500000000000 C=00999999999000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02306: 11...1..11 -> 02304 if no carry go to myp26 A=06500000000000 B=02500000000000 C=00999999999000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02304: 111...111. myp26: a + b -> a[w] 6.5 + 2.5 = 9 A=09000000000000 B=02500000000000 C=00999999999000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02305: .1.11...1. mpy27: c - 1 -> c[p] A=09000000000000 B=02500000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02306: 11...1..11 -> 02304 if no carry go to myp26 A=09000000000000 B=02500000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02307: 1.11..111. mpy28: shift right a[w] final SR A=00900000000000 B=02500000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02310: ....1111.. p + 1 -> p A=00900000000000 B=02500000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=d S=0.....678..b 02311: 11.11.11.. if p # 13 [BP3] A=00900000000000 B=02500000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=d S=0.....678..b 02312: 11...1.111 -> 02305 then go to mpy27 A=00900000000000 B=02500000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=d S=0.....678..b 02313: .1111.1.1. c + 1 -> c[x] A=00900000000000 B=02500000000000 C=09999999999001 D=00000000000000 M=00000000000000 P=d S=0.....678..b 02314: 1.1111111. nrm21: 0 -> a[s] goto normalization A=00900000000000 B=02500000000000 C=09999999999001 see service routines comment D=00000000000000 M=00000000000000 P=d S=0.....678..b 02315: 11....11.. 12 -> p A=00900000000000 B=02500000000000 C=09999999999001 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02316: ....1.111. 0 -> b[w] A=00900000000000 B=00000000000000 C=09999999999001 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02317: 1..11...1. nrm23: if a[p] >= 1 A=00900000000000 B=00000000000000 C=09999999999001 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02320: 11.1.11.11 -> 02326 then go to nrm24 A=00900000000000 B=00000000000000 C=09999999999001 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02321: .1....111. shift left a[w] A=09000000000000 B=00000000000000 C=09999999999001 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02322: .1.11.1.1. c - 1 -> c[x] A=09000000000000 B=00000000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02323: 1..11.111. if a[w] >= 1 A=09000000000000 B=00000000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02324: 11..111111 -> 02317 then go to nrm23 A=09000000000000 B=00000000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02317: 1..11...1. nrm23: if a[p] >= 1 A=09000000000000 B=00000000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02320: 11.1.11.11 -> 02326 then go to nrm24 A=09000000000000 B=00000000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02326: .1..1.1.1. nrm24: a -> b[x] A=09000000000000 B=00000000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02327: 111...111. a + b -> a[w] A=09000000000000 B=00000000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02330: 1..111111. if a[s] >= 1 A=09000000000000 B=00000000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02331: 11...11111 -> 02307 then go to mpy28 A=09000000000000 B=00000000000000 C=09999999999000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02332: 111.1..11. a exchange c[m] A=09999999999000 B=00000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02333: .11...111. c -> a[w] A=09000000000000 B=00000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02334: ....1.111. 0 -> b[w] A=09000000000000 B=00000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02335: 11....11.. nrm27: 12 -> p A=09000000000000 B=00000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02336: .1111.1.11 -> 02172 go to nrm26 A=09000000000000 B=00000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02172: ..1..1.1.. nrm26: if s2 = 0 A=09000000000000 B=00000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02173: 1..1.1..11 -> 02224 then go to rtn21 A=09000000000000 B=00000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02224: ..1..1.... -> 01225 rtn21: select rom 1 ; -> rtn11 A=09000000000000 B=00000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 01225: ...1.1.1.. rtn11: if s1 = 0 A=09000000000000 B=00000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 01226: 11.11.1.11 -> 01332 then go to rtn12 A=09000000000000 B=00000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 01332: .....1.... -> 00333 rtn12: select rom 0 ; -> l00333 A=09000000000000 B=00000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 00333: .1.111.1.1 -> 00135 l00333: jsb of13 A=09000000000000 B=00000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=0.....678..b 00135: ....11.1.. of13: clear status output format A=09000000000000 B=00000000000000 C=09000000000000 see service routines comment D=00000000000000 M=00000000000000 P=c S=............ 00136: .11...111. c -> a[w] A=09000000000000 B=00000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=............ 00137: 11....11.. of14: 12 -> p A=09000000000000 B=00000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=............ 00140: .1..1.1.1. a -> b[x] A=09000000000000 B=00000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=............ 00141: .11...1.1. c -> a[x] A=09000000000000 B=00000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=............ 00142: .11.111.1. if c[xs] = 0 A=09000000000000 B=00000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=............ 00143: .11.1...11 -> 00150 then go to of15 A=09000000000000 B=00000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=............ 00150: 111.1.1.1. of15: a exchange c[x] A=09000000000000 B=00000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=............ 00151: .1...1.1.. if s4 = 0 A=09000000000000 B=00000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=............ 00152: .1....1.11 -> 00102 then go to l00102 A=09000000000000 B=00000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=............ 00102: .1..1.111. l00102: a -> b[w] A=09000000000000 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=............ 00103: 1.11111.1. 0 -> a[xs] A=09000000000000 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=............ 00104: .1...1.11. shift left a[ms] A=90000000000000 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=............ 00105: 11.11.1.1. l00105: a - 1 -> a[x] A=90000000000999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=............ 00106: 111.....11 -> 00340 if no carry go to l00340 A=90000000000999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=............ 00107: .11.111.1. if c[xs] = 0 A=90000000000999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=............ 00110: 111..11.11 -> 00346 then go to l00346 A=90000000000999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=............ 00346: 1.1111.11. l00346: 0 -> a[ms] A=00000000000999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=............ 00347: 11111...1. a + 1 -> a[p] A=01000000000999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=............ 00350: 11111...1. a + 1 -> a[p] A=02000000000999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=............ 00351: ..1...11.. 2 -> p A=02000000000999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=2 S=............ 00352: ....1111.. l00352: p + 1 -> p A=02000000000999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=3 S=............ 00353: 11.11...1. a - 1 -> a[p] A=02000000009999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=3 S=............ 00354: 111.111111 -> 00357 if no carry go to l00357 A=02000000009999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=3 S=............ 00355: ........1. if b[p] = 0 A=02000000009999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=3 S=............ 00356: 111.1.1.11 -> 00352 then go to l00352 A=02000000009999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=3 S=............ 00352: ....1111.. l00352: p + 1 -> p A=02000000009999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=4 S=............ 00353: 11.11...1. a - 1 -> a[p] A=02000000099999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=4 S=............ 00354: 111.111111 -> 00357 if no carry go to l00357 A=02000000099999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=4 S=............ 00355: ........1. if b[p] = 0 A=02000000099999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=4 S=............ 00356: 111.1.1.11 -> 00352 then go to l00352 A=02000000099999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=4 S=............ 00352: ....1111.. l00352: p + 1 -> p A=02000000099999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=5 S=............ 00353: 11.11...1. a - 1 -> a[p] A=02000000999999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=5 S=............ 00354: 111.111111 -> 00357 if no carry go to l00357 A=02000000999999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=5 S=............ 00355: ........1. if b[p] = 0 A=02000000999999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=5 S=............ 00356: 111.1.1.11 -> 00352 then go to l00352 A=02000000999999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=5 S=............ 00352: ....1111.. l00352: p + 1 -> p A=02000000999999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=6 S=............ 00353: 11.11...1. a - 1 -> a[p] A=02000009999999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=6 S=............ 00354: 111.111111 -> 00357 if no carry go to l00357 A=02000009999999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=6 S=............ 00355: ........1. if b[p] = 0 A=02000009999999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=6 S=............ 00356: 111.1.1.11 -> 00352 then go to l00352 A=02000009999999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=6 S=............ 00352: ....1111.. l00352: p + 1 -> p A=02000009999999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=7 S=............ 00353: 11.11...1. a - 1 -> a[p] A=02000099999999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=7 S=............ 00354: 111.111111 -> 00357 if no carry go to l00357 A=02000099999999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=7 S=............ 00355: ........1. if b[p] = 0 A=02000099999999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=7 S=............ 00356: 111.1.1.11 -> 00352 then go to l00352 A=02000099999999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=7 S=............ 00352: ....1111.. l00352: p + 1 -> p A=02000099999999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=8 S=............ 00353: 11.11...1. a - 1 -> a[p] A=02000999999999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=8 S=............ 00354: 111.111111 -> 00357 if no carry go to l00357 A=02000999999999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=8 S=............ 00355: ........1. if b[p] = 0 A=02000999999999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=8 S=............ 00356: 111.1.1.11 -> 00352 then go to l00352 A=02000999999999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=8 S=............ 00352: ....1111.. l00352: p + 1 -> p A=02000999999999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=9 S=............ 00353: 11.11...1. a - 1 -> a[p] A=02009999999999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=9 S=............ 00354: 111.111111 -> 00357 if no carry go to l00357 A=02009999999999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=9 S=............ 00355: ........1. if b[p] = 0 A=02009999999999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=9 S=............ 00356: 111.1.1.11 -> 00352 then go to l00352 A=02009999999999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=9 S=............ 00352: ....1111.. l00352: p + 1 -> p A=02009999999999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=a S=............ 00353: 11.11...1. a - 1 -> a[p] A=02099999999999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=a S=............ 00354: 111.111111 -> 00357 if no carry go to l00357 A=02099999999999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=a S=............ 00355: ........1. if b[p] = 0 A=02099999999999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=a S=............ 00356: 111.1.1.11 -> 00352 then go to l00352 A=02099999999999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=a S=............ 00352: ....1111.. l00352: p + 1 -> p A=02099999999999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=b S=............ 00353: 11.11...1. a - 1 -> a[p] A=02999999999999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=b S=............ 00354: 111.111111 -> 00357 if no carry go to l00357 A=02999999999999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=b S=............ 00355: ........1. if b[p] = 0 A=02999999999999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=b S=............ 00356: 111.1.1.11 -> 00352 then go to l00352 A=02999999999999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=b S=............ 00352: ....1111.. l00352: p + 1 -> p A=02999999999999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=............ 00353: 11.11...1. a - 1 -> a[p] A=01999999999999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=............ 00354: 111.111111 -> 00357 if no carry go to l00357 A=01999999999999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=............ 00357: 11111...1. l00357: a + 1 -> a[p] A=02999999999999 B=09000000000000 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=............ 00360: 11..1.111. a exchange b[w] A=09000000000000 B=02999999999999 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=............ 00361: ....11.... return A=09000000000000 B=02999999999999 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=............ 00334: .111...1.. 1 -> s7 go display and wait loop A=09000000000000 B=02999999999999 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=.......7.... 00335: 1111.111.1 -> 00367 fst2zx: jsb dsp1 A=09000000000000 B=02999999999999 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=.......7.... 00367: 1.1.1..1.. dsp1: 0 -> s10 A=09000000000000 B=02999999999999 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=.......7.... 00370: 11....1111 -> 00303 go to dsp7 A=09000000000000 B=02999999999999 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=.......7.... 00303: .11..1111. dsp7: c -> a[s] A=09000000000000 B=02999999999999 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=.......7.... 00304: 1...1..1.. l00304: 0 -> s8 A=09000000000000 B=02999999999999 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=.......7.... 00305: 11..111111 -> 00317 go to dsp8 A=09000000000000 B=02999999999999 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=.......7.... 00317: ....1..1.. dsp8: 0 -> s0 A=09000000000000 B=02999999999999 C=09000000000000 D=00000000000000 M=00000000000000 P=c S=.......7.... 00320: .....111.. dsp6: p - 1 -> p A=09000000000000 B=02999999999999 C=09000000000000 D=00000000000000 M=00000000000000 P=b S=.......7.... 00321: 11..1.11.. if p # 12 A=09000000000000 B=02999999999999 C=09000000000000 D=00000000000000 M=00000000000000 P=b S=.......7.... .....