Trace for 100 + 12.5 (100 ENTER 12.5 +) D=100 C=12.5 00330: ..11.1.... keys -> rom address A=12500000000000 B=00209999999999 C=01250000000001 D=01000000000002 M=00000000000000 P=c S=0.....678..b 00026: 1..11.1..1 -> 00232 jsb l00232 entry point for "+" A=12500000000000 B=00209999999999 C=01250000000001 D=01000000000002 M=00000000000000 P=c S=0.....678..b [BP1] 00232: .11.1.1... l00232: stack -> a A=01000000000002 B=00209999999999 C=01250000000001 D=00000000000000 M=00000000000000 P=c S=0.....678..b 00233: ....1.111. 0 -> b[w] A=01000000000002 B=00000000000000 C=01250000000001 D=00000000000000 M=00000000000000 P=c S=0.....678..b [BP2] 00234: 1111111.1. a + 1 -> a[xs] A=01000000000102 B=00000000000000 C=01250000000001 D=00000000000000 M=00000000000000 P=c S=0.....678..b 00235: 1111111.1. a + 1 -> a[xs] A=01000000000202 B=00000000000000 C=01250000000001 D=00000000000000 M=00000000000000 P=c S=0.....678..b 00236: .111111.1. c + 1 -> c[xs] A=01000000000202 B=00000000000000 C=01250000000101 D=00000000000000 M=00000000000000 P=c S=0.....678..b 00237: .111111.1. c + 1 -> c[xs] A=01000000000202 B=00000000000000 C=01250000000201 D=00000000000000 M=00000000000000 P=c S=0.....678..b 00240: ...1..1.1. if a >= c[x] exponents comparison (absolute value) A=01000000000202 B=00000000000000 C=01250000000201 D=00000000000000 M=00000000000000 P=c S=0.....678..b 00241: 1.1...1111 -> 00243 then go to add4 A=01000000000202 B=00000000000000 C=01250000000201 D=00000000000000 M=00000000000000 P=c S=0.....678..b [BP3] 00243: 111.1..11. add4: a exchange c[m] A=01250000000202 B=00000000000000 C=01000000000201 D=00000000000000 M=00000000000000 P=c S=0.....678..b 00244: .11.1..11. if c[m] = 0 A=01250000000202 B=00000000000000 C=01000000000201 D=00000000000000 M=00000000000000 P=c S=0.....678..b 00245: 1.1..11111 -> 00247 then go to add5 A=01250000000202 B=00000000000000 C=01000000000201 D=00000000000000 M=00000000000000 P=c S=0.....678..b 00246: 111.1.111. a exchange c[w] A=01000000000201 B=00000000000000 C=01250000000202 D=00000000000000 M=00000000000000 P=c S=0.....678..b 00247: 1...1..11. add5: b exchange c[m] A=01000000000201 B=01250000000000 C=00000000000202 D=00000000000000 M=00000000000000 P=c S=0.....678..b [BP4] Fraction part alignment routine 00250: ...1..1.1. add6: if a >= c[x] A=01000000000201 B=01250000000000 C=00000000000202 D=00000000000000 M=00000000000000 P=c S=0.....678..b 00251: 1.11111.11 -> 00276 then go to l00276 A=01000000000201 B=01250000000000 C=00000000000202 D=00000000000000 M=00000000000000 P=c S=0.....678..b 00252: 1.1...111. shift right b[w] A=01000000000201 B=00125000000000 C=00000000000202 D=00000000000000 M=00000000000000 P=c S=0.....678..b 00253: 11111.1.1. a + 1 -> a[x] A=01000000000202 B=00125000000000 C=00000000000202 D=00000000000000 M=00000000000000 P=c S=0.....678..b 00254: ......111. if b[w] = 0 A=01000000000202 B=00125000000000 C=00000000000202 D=00000000000000 M=00000000000000 P=c S=0.....678..b 00255: 1.11111.11 -> 00276 then go to l00276 A=01000000000202 B=00125000000000 C=00000000000202 D=00000000000000 M=00000000000000 P=c S=0.....678..b 00256: 1.1.1...11 -> 00250 go to add6 A=01000000000202 B=00125000000000 C=00000000000202 D=00000000000000 M=00000000000000 P=c S=0.....678..b 00250: ...1..1.1. add6: if a >= c[x] A=01000000000202 B=00125000000000 C=00000000000202 D=00000000000000 M=00000000000000 P=c S=0.....678..b 00251: 1.11111.11 -> 00276 then go to l00276 A=01000000000202 B=00125000000000 C=00000000000202 D=00000000000000 M=00000000000000 P=c S=0.....678..b 00276: ..1..1.... -> 01277 l00276: select rom 1 A=01000000000202 B=00125000000000 C=00000000000202 D=00000000000000 M=00000000000000 P=c S=0.....678..b [BP5] 01277: .1.1111.1. add12: c - 1 -> c[xs] ; fraction parts aligned A=01000000000202 B=00125000000000 C=00000000000102 D=00000000000000 M=00000000000000 P=c S=0.....678..b 01300: .1.1111.1. c - 1 -> c[xs] A=01000000000202 B=00125000000000 C=00000000000002 D=00000000000000 M=00000000000000 P=c S=0.....678..b 01301: 1.111.1.1. 0 -> a[x] A=01000000000000 B=00125000000000 C=00000000000002 D=00000000000000 M=00000000000000 P=c S=0.....678..b 01302: 11.1.1111. a - c -> a[s] sign problem A=01000000000000 B=00125000000000 C=00000000000002 D=00000000000000 M=00000000000000 P=c S=0.....678..b 01303: 1..111111. if a[s] >= 1 A=01000000000000 B=00125000000000 C=00000000000002 D=00000000000000 M=00000000000000 P=c S=0.....678..b 01304: 11...11.11 -> 01306 then go to add13 A=01000000000000 B=00125000000000 C=00000000000002 D=00000000000000 M=00000000000000 P=c S=0.....678..b 01305: .1...1.... -> 02306 select rom 2 ; -> l02306 A=01000000000000 B=00125000000000 C=00000000000002 D=00000000000000 M=00000000000000 P=c S=0.....678..b [BP6] 02306: 11...1..11 -> 02304 if no carry go to myp26 A=01000000000000 B=00125000000000 C=00000000000002 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02304: 111...111. myp26: a + b -> a[w] ADDER A=01125000000000 B=00125000000000 C=00000000000002 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02305: .1.11...1. mpy27: c - 1 -> c[p] A=01125000000000 B=00125000000000 C=09000000000002 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02306: 11...1..11 -> 02304 if no carry go to myp26 A=01125000000000 B=00125000000000 C=09000000000002 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02307: 1.11..111. mpy28: shift right a[w] Right scaling A=00112500000000 B=00125000000000 C=09000000000002 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02310: ....1111.. p + 1 -> p A=00112500000000 B=00125000000000 C=09000000000002 D=00000000000000 M=00000000000000 P=d S=0.....678..b 02311: 11.11.11.. if p # 13 A=00112500000000 B=00125000000000 C=09000000000002 D=00000000000000 M=00000000000000 P=d S=0.....678..b 02312: 11...1.111 -> 02305 then go to mpy27 A=00112500000000 B=00125000000000 C=09000000000002 D=00000000000000 M=00000000000000 P=d S=0.....678..b 02313: .1111.1.1. c + 1 -> c[x] exponent inc A=00112500000000 B=00125000000000 C=09000000000003 D=00000000000000 M=00000000000000 P=d S=0.....678..b [BP7] 02314: 1.1111111. nrm21: 0 -> a[s] normalization begins here A=00112500000000 B=00125000000000 C=09000000000003 D=00000000000000 M=00000000000000 P=d S=0.....678..b 02315: 11....11.. 12 -> p A=00112500000000 B=00125000000000 C=09000000000003 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02316: ....1.111. 0 -> b[w] A=00112500000000 B=00000000000000 C=09000000000003 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02317: 1..11...1. nrm23: if a[p] >= 1 A=00112500000000 B=00000000000000 C=09000000000003 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02320: 11.1.11.11 -> 02326 then go to nrm24 A=00112500000000 B=00000000000000 C=09000000000003 D=00000000000000 M=00000000000000 P=c S=0.....678..b [BP8left] left scaling 02321: .1....111. shift left a[w] SL A=01125000000000 B=00000000000000 C=09000000000003 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02322: .1.11.1.1. c - 1 -> c[x] exponent dec A=01125000000000 B=00000000000000 C=09000000000002 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02323: 1..11.111. if a[w] >= 1 if null A fraction part A=01125000000000 B=00000000000000 C=09000000000002 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02324: 11..111111 -> 02317 then go to nrm23 A=01125000000000 B=00000000000000 C=09000000000002 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02317: 1..11...1. nrm23: if a[p] >= 1 A=01125000000000 B=00000000000000 C=09000000000002 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02320: 11.1.11.11 -> 02326 then go to nrm24 A=01125000000000 B=00000000000000 C=09000000000002 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02326: .1..1.1.1. nrm24: a -> b[x] A=01125000000000 B=00000000000000 C=09000000000002 D=00000000000000 M=00000000000000 P=c S=0.....678..b [BP8right] 02327: 111...111. a + b -> a[w] double A exponent A=01125000000000 B=00000000000000 C=09000000000002 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02330: 1..111111. if a[s] >= 1 fraction overflow A=01125000000000 B=00000000000000 C=09000000000002 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02331: 11...11111 -> 02307 then go to mpy28 go right scaling and rounding A=01125000000000 B=00000000000000 C=09000000000002 D=00000000000000 M=00000000000000 P=c S=0.....678..b [BP9] 02332: 111.1..11. a exchange c[m] result in C (mantissa and exponent) A=09000000000000 B=00000000000000 C=01125000000002 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02333: .11...111. c -> a[w] and A too A=01125000000002 B=00000000000000 C=01125000000002 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02334: ....1.111. 0 -> b[w] zero B A=01125000000002 B=00000000000000 C=01125000000002 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02335: 11....11.. nrm27: 12 -> p A=01125000000002 B=00000000000000 C=01125000000002 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02336: .1111.1.11 -> 02172 go to nrm26 A=01125000000002 B=00000000000000 C=01125000000002 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02172: ..1..1.1.. nrm26: if s2 = 0 "exit" for e^x, ln etc, don't take it A=01125000000002 B=00000000000000 C=01125000000002 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02173: 1..1.1..11 -> 02224 then go to rtn21 A=01125000000002 B=00000000000000 C=01125000000002 D=00000000000000 M=00000000000000 P=c S=0.....678..b 02224: ..1..1.... -> 01225 rtn21: select rom 1 ; -> rtn11 A=01125000000002 B=00000000000000 C=01125000000002 D=00000000000000 M=00000000000000 P=c S=0.....678..b 01225: ...1.1.1.. rtn11: if s1 = 0 "exit" for trigo we don't take it A=01125000000002 B=00000000000000 C=01125000000002 D=00000000000000 M=00000000000000 P=c S=0.....678..b 01226: 11.11.1.11 -> 01332 then go to rtn12 A=01125000000002 B=00000000000000 C=01125000000002 D=00000000000000 M=00000000000000 P=c S=0.....678..b 01332: .....1.... -> 00333 rtn12: select rom 0 ; -> l00333 A=01125000000002 B=00000000000000 C=01125000000002 D=00000000000000 M=00000000000000 P=c S=0.....678..b 00333: .1.111.1.1 -> 00135 l00333: jsb of13 Call output format A=01125000000002 B=00000000000000 C=01125000000002 to build floating point in A D=00000000000000 M=00000000000000 P=c S=0.....678..b and display mask in B 00135: ....11.1.. of13: clear status A=01125000000002 B=00000000000000 C=01125000000002 D=00000000000000 M=00000000000000 P=c S=............ 00136: .11...111. c -> a[w] A=01125000000002 B=00000000000000 C=01125000000002 D=00000000000000 M=00000000000000 P=c S=............ 00137: 11....11.. of14: 12 -> p A=01125000000002 B=00000000000000 C=01125000000002 D=00000000000000 M=00000000000000 P=c S=............ 00140: .1..1.1.1. a -> b[x] A=01125000000002 B=00000000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=c S=............ 00141: .11...1.1. c -> a[x] A=01125000000002 B=00000000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=c S=............ 00142: .11.111.1. if c[xs] = 0 A=01125000000002 B=00000000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=c S=............ 00143: .11.1...11 -> 00150 then go to of15 A=01125000000002 B=00000000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=c S=............ 00150: 111.1.1.1. of15: a exchange c[x] A=01125000000002 B=00000000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=c S=............ 00151: .1...1.1.. if s4 = 0 decimal point has been entered ? A=01125000000002 B=00000000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=c S=............ 00152: .1....1.11 -> 00102 then go to l00102 A=01125000000002 B=00000000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=c S=............ 00102: .1..1.111. l00102: a -> b[w] A=01125000000002 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=c S=............ 00103: 1.11111.1. 0 -> a[xs] A=01125000000002 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=c S=............ 00104: .1...1.11. shift left a[ms] left align fisplay in A A=11250000000002 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=c S=............ 00105: 11.11.1.1. l00105: a - 1 -> a[x] A=11250000000001 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=c S=............ 00106: 111.....11 -> 00340 if no carry go to l00340 A=11250000000001 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=c S=............ 00340: 1.11.1.11. l00340: shift right a[ms] and shift right till exponent underflow A=01125000000001 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=c S=............ 00341: .....111.. p - 1 -> p A=01125000000001 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=b S=............ 00342: ..1.1.11.. if p # 2 A=01125000000001 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=b S=............ 00343: .1...1.111 -> 00105 then go to l00105 A=01125000000001 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=b S=............ 00105: 11.11.1.1. l00105: a - 1 -> a[x] A=01125000000000 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=b S=............ 00106: 111.....11 -> 00340 if no carry go to l00340 A=01125000000000 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=b S=............ 00340: 1.11.1.11. l00340: shift right a[ms] A=00112500000000 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=b S=............ 00341: .....111.. p - 1 -> p A=00112500000000 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=a S=............ 00342: ..1.1.11.. if p # 2 A=00112500000000 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=a S=............ 00343: .1...1.111 -> 00105 then go to l00105 A=00112500000000 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=a S=............ 00105: 11.11.1.1. l00105: a - 1 -> a[x] A=00112500000999 B=01125000000002 C=01125000000002 A exponent will be blanked D=00000000000000 M=00000000000000 P=a S=............ 00106: 111.....11 -> 00340 if no carry go to l00340 A=00112500000999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=a S=............ 00107: .11.111.1. if c[xs] = 0 A=00112500000999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=a S=............ 00110: 111..11.11 -> 00346 then go to l00346 A=00112500000999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=a S=............ 00346: 1.1111.11. l00346: 0 -> a[ms] forge mask for FP result in A A=00000000000999 B=01125000000002 C=01125000000002 P point 10 D=00000000000000 M=00000000000000 P=a S=............ 00347: 11111...1. a + 1 -> a[p] put "1" in digit 10 A=00010000000999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=a S=............ 00350: 11111...1. a + 1 -> a[p] put "2" in place in register A A=00020000000999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=a S=............ 00351: ..1...11.. 2 -> p p points 2 (LSB of mantissa) A=00020000000999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=2 S=............ 00352: ....1111.. l00352: p + 1 -> p A=00020000000999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=3 S=............ 00353: 11.11...1. a - 1 -> a[p] LOOP to fill A with 9 in place A=00020000009999 B=01125000000002 C=01125000000002 this will blank non significants zeros D=00000000000000 M=00000000000000 P=3 S=............ 00354: 111.111111 -> 00357 if no carry go to l00357 A=00020000009999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=3 S=............ 00355: ........1. if b[p] = 0 A=00020000009999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=3 S=............ 00356: 111.1.1.11 -> 00352 then go to l00352 A=00020000009999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=3 S=............ 00352: ....1111.. l00352: p + 1 -> p A=00020000009999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=4 S=............ 00353: 11.11...1. a - 1 -> a[p] A=00020000099999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=4 S=............ 00354: 111.111111 -> 00357 if no carry go to l00357 A=00020000099999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=4 S=............ 00355: ........1. if b[p] = 0 A=00020000099999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=4 S=............ 00356: 111.1.1.11 -> 00352 then go to l00352 A=00020000099999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=4 S=............ 00352: ....1111.. l00352: p + 1 -> p A=00020000099999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=5 S=............ 00353: 11.11...1. a - 1 -> a[p] A=00020000999999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=5 S=............ 00354: 111.111111 -> 00357 if no carry go to l00357 A=00020000999999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=5 S=............ 00355: ........1. if b[p] = 0 A=00020000999999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=5 S=............ 00356: 111.1.1.11 -> 00352 then go to l00352 A=00020000999999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=5 S=............ 00352: ....1111.. l00352: p + 1 -> p A=00020000999999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=6 S=............ 00353: 11.11...1. a - 1 -> a[p] A=00020009999999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=6 S=............ 00354: 111.111111 -> 00357 if no carry go to l00357 A=00020009999999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=6 S=............ 00355: ........1. if b[p] = 0 A=00020009999999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=6 S=............ 00356: 111.1.1.11 -> 00352 then go to l00352 A=00020009999999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=6 S=............ 00352: ....1111.. l00352: p + 1 -> p A=00020009999999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=7 S=............ 00353: 11.11...1. a - 1 -> a[p] A=00020099999999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=7 S=............ 00354: 111.111111 -> 00357 if no carry go to l00357 A=00020099999999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=7 S=............ 00355: ........1. if b[p] = 0 A=00020099999999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=7 S=............ 00356: 111.1.1.11 -> 00352 then go to l00352 A=00020099999999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=7 S=............ 00352: ....1111.. l00352: p + 1 -> p A=00020099999999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=8 S=............ 00353: 11.11...1. a - 1 -> a[p] A=00020999999999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=8 S=............ 00354: 111.111111 -> 00357 if no carry go to l00357 A=00020999999999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=8 S=............ 00355: ........1. if b[p] = 0 A=00020999999999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=8 S=............ 00356: 111.1.1.11 -> 00352 then go to l00352 A=00020999999999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=8 S=............ 00352: ....1111.. l00352: p + 1 -> p A=00020999999999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=9 S=............ 00353: 11.11...1. a - 1 -> a[p] A=00029999999999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=9 S=............ 00354: 111.111111 -> 00357 if no carry go to l00357 KO loop is over A=00029999999999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=9 S=............ 00355: ........1. if b[p] = 0 A=00029999999999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=9 S=............ 00356: 111.1.1.11 -> 00352 then go to l00352 A=00029999999999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=9 S=............ 00357: 11111...1. l00357: a + 1 -> a[p] Mask 00020999999999 is buit A=00020999999999 B=01125000000002 C=01125000000002 D=00000000000000 M=00000000000000 P=9 S=............ 00360: 11..1.111. a exchange b[w] Put it in place A=01125000000002 B=00020999999999 C=01125000000002 D=00000000000000 M=00000000000000 P=9 S=............ 00361: ....11.... return Ready to display A=01125000000002 B=00020999999999 C=01125000000002 C normalized D=00000000000000 M=00000000000000 P=9 S=............ A Floating point B mask 00334: .111...1.. 1 -> s7 Stak must be flushed A=01125000000002 B=00020999999999 C=01125000000002 D=00000000000000 M=00000000000000 P=9 S=.......7.... 00335: 1111.111.1 -> 00367 fst2zx: jsb dsp1 Call display & waiting loop A=01125000000002 B=00020999999999 C=01125000000002 D=00000000000000 M=00000000000000 P=9 S=.......7.... 00367: 1.1.1..1.. dsp1: 0 -> s10 A=01125000000002 B=00020999999999 C=01125000000002 D=00000000000000 M=00000000000000 P=9 S=.......7.... 00370: 11....1111 -> 00303 go to dsp7 A=01125000000002 B=00020999999999 C=01125000000002 D=00000000000000 M=00000000000000 P=9 S=.......7.... 00303: .11..1111. dsp7: c -> a[s] A=01125000000002 B=00020999999999 C=01125000000002 D=00000000000000 M=00000000000000 P=9 S=.......7.... 00304: 1...1..1.. l00304: 0 -> s8 A=01125000000002 B=00020999999999 C=01125000000002 D=00000000000000 M=00000000000000 P=9 S=.......7.... 00305: 11..111111 -> 00317 go to dsp8 A=01125000000002 B=00020999999999 C=01125000000002 D=00000000000000 M=00000000000000 P=9 S=.......7.... 00317: ....1..1.. dsp8: 0 -> s0 A=01125000000002 B=00020999999999 C=01125000000002 D=00000000000000 M=00000000000000 P=9 S=.......7.... 00320: .....111.. dsp6: p - 1 -> p A=01125000000002 B=00020999999999 C=01125000000002 D=00000000000000 M=00000000000000 P=8 S=.......7.... 00321: 11..1.11.. if p # 12 A=01125000000002 B=00020999999999 C=01125000000002 D=00000000000000 M=00000000000000 P=8 S=.......7.... ......