123.45 EEX 78 CHS ENTER HP65 Logging started. ; A= 00000000000999 B= 02009999999999 ; S= 0........... f= ..2..5.. P= 1 M= 00000000000221 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 ... 00630 0 -> s0 ; S= ............ 00631 if s10 = 0 00632 goto 00641 00641 if s5 = 0 00642 goto 00734 00734 if s8 = 0 00735 goto 00710 00710 jsb 00675 00675 12 -> p 00676 1 -> f3 ; f= ..23.5.. 00677 dispoff 00700 c <-> m ; C= 00000000000221 M= 00000000000000 00701 shiftl a[w] ; A= 00000000009990 00702 return 00711 1 -> f7 ; f= ..23.5.7 00712 if s3 = 0 00713 goto 00715 00715 rom 2 01316 key -> rom ; f= ..23.5.. ;[1] 01004 rom 5 02405 goto 02444 02444 a + 1 -> a[x] ; A= 00000000009991 02445 goto 02506 02506 if c[m] = 0 02507 goto 02736 02736 c <-> m ; C= 00000000000000 M= 00000000000221 02737 if s3 = 0 02740 goto 02511 02511 rom 2 01112 if s1 = 0 01113 goto 01245 01245 0 -> s11 01246 0 -> f1 01247 if s11 = 0 01250 goto 01252 01252 0 -> c[w] 01253 12 -> p 01254 c - 1 -> c[wp] ; C= 09999999999999 01255 c + 1 -> c[s] ; C= 19999999999999 01256 c + 1 -> c[s] ; C= 29999999999999 01257 b <-> c[w] ; B= 29999999999999 C= 02009999999999 01260 0 -> c[w] ; C= 00000000000000 01261 if s2 = 0 01262 goto 01127 01127 shiftr b[w] ; B= 02999999999999 01130 b <-> c[w] ; B= 00000000000000 C= 02999999999999 01131 c + 1 -> c[w] ; C= 03000000000000 01132 0 -> p ; P= 0 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 1 01136 shiftl a[wp] ; A= 00000000009910 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 2 01136 shiftl a[wp] ; A= 00000000009100 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 3 01136 shiftl a[wp] ; A= 00000000001000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 4 01136 shiftl a[wp] ; A= 00000000010000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 5 01136 shiftl a[wp] ; A= 00000000100000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 6 01136 shiftl a[wp] ; A= 00000001000000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 7 01136 shiftl a[wp] ; A= 00000010000000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 8 01136 shiftl a[wp] ; A= 00000100000000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 9 01136 shiftl a[wp] ; A= 00001000000000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 10 01136 shiftl a[wp] ; A= 00010000000000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 11 01136 shiftl a[wp] ; A= 00100000000000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 12 01136 shiftl a[wp] ; A= 01000000000000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01151 c - 1 -> c[w] ; C= 02999999999999 01152 b <-> c[w] ; B= 02999999999999 C= 00000000000000 01153 if p # 3 01154 goto 01366 01366 if s1 = 0 01367 goto 01361 01361 shiftl a[w] ; A= 10000000000000 01362 1 -> s1 ; S= .1.......... 01363 goto 01156 01156 shiftr a[ms] ; A= 01000000000000 01157 c -> a[s] 01160 if s7 = 0 01161 goto 01163 01163 1 -> s9 ; S= .1.......9.. 01164 0 -> f3 ; S= .1.......9.b f= ..2..5.. 01165 1 -> f1 ; f= .12..5.. 01166 rom 1 00567 a <-> c[w] ; A= 00000000000000 C= 01000000000000 00570 c -> a[w] ; A= 01000000000000 00571 if a[m] >= 1 00572 goto 00546 00546 c + 1 -> c[xs] ; C= 01000000000100 00547 goto 00470 00470 0 -> c[xs] ; C= 01000000000000 00471 13 -> p ; P= 13 00472 c - 1 -> c[x] ; C= 01000000000999 00473 if b[p] = 0 00474 goto 00463 00463 p - 1 -> p ; P= 12 00464 c + 1 -> c[x] ; C= 01000000000000 00465 jsb 00473 00473 if b[p] = 0 00474 goto 00463 00475 12 -> p 00476 if a[p] >= 1 00477 goto 00574 00574 a <-> c[m] 00575 rom 2 01176 if c[xs] = 0 01177 goto 01334 01334 if c[m] >= 1 01335 goto 01337 01337 if p # 14 01340 goto 01217 01217 rom 1 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01000000000000 00535 0 -> s11 ; S= .1.......9.. 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01000000000000 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00730 0 -> s9 ; S= .1.......... 00731 1 -> s10 ; S= .1........a. 00732 disptoggle 00733 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 ; S= .1.......... 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01000000000000 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01000000000000 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01000000000000 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01000000000000 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01000000000000 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01000000000000 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01000000000000 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01000000000000 M= 00000000000221 00777 goto 00726 ; S= 01.......... 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00625 p + 1 -> p ; P= 13 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 14 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 15 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 0 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 1 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 2 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 3 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 4 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 5 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 6 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 7 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 8 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 9 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 10 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 11 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 12 00626 if p # 12 00627 goto 00625 00630 0 -> s0 ; S= .1.......... 00631 if s10 = 0 00632 goto 00641 00641 if s5 = 0 00642 goto 00734 00734 if s8 = 0 00735 goto 00710 00710 jsb 00675 00675 12 -> p 00676 1 -> f3 ; f= .123.5.. 00677 dispoff 00700 c <-> m ; C= 00000000000221 M= 01000000000000 00701 shiftl a[w] ; A= 10000000000000 00702 return 00711 1 -> f7 ; f= .123.5.7 00712 if s3 = 0 00713 goto 00715 00715 rom 2 01316 key -> rom ; f= .123.5.. ;[2] 01003 rom 5 02404 a + 1 -> a[x] ; A= 10000000000001 02405 goto 02444 02444 a + 1 -> a[x] ; A= 10000000000002 02445 goto 02506 02506 if c[m] = 0 02507 goto 02736 02736 c <-> m ; C= 01000000000000 M= 00000000000221 02737 if s3 = 0 02740 goto 02511 02511 rom 2 01112 if s1 = 0 01113 goto 01245 01114 if s7 = 0 01115 goto 01130 01130 b <-> c[w] ; B= 01000000000000 C= 02999999999999 01131 c + 1 -> c[w] ; C= 03000000000000 01132 0 -> p ; P= 0 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 1 01136 shiftl a[wp] ; A= 10000000000020 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 2 01136 shiftl a[wp] ; A= 10000000000200 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 3 01136 shiftl a[wp] ; A= 10000000002000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 4 01136 shiftl a[wp] ; A= 10000000020000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 5 01136 shiftl a[wp] ; A= 10000000200000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 6 01136 shiftl a[wp] ; A= 10000002000000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 7 01136 shiftl a[wp] ; A= 10000020000000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 8 01136 shiftl a[wp] ; A= 10000200000000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 9 01136 shiftl a[wp] ; A= 10002000000000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 10 01136 shiftl a[wp] ; A= 10020000000000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 11 01136 shiftl a[wp] ; A= 10200000000000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 12 01136 shiftl a[wp] ; A= 12000000000000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01151 c - 1 -> c[w] ; C= 02999999999999 01152 b <-> c[w] ; B= 02999999999999 C= 01000000000000 01153 if p # 3 01154 goto 01366 01366 if s1 = 0 01367 goto 01361 01370 if s2 = 0 01371 goto 01107 01107 shiftr b[wp] ; B= 00299999999999 01110 jsb 01156 01156 shiftr a[ms] ; A= 01200000000000 01157 c -> a[s] 01160 if s7 = 0 01161 goto 01163 01163 1 -> s9 ; S= .1.......9.. 01164 0 -> f3 ; S= .1.......9.b f= .12..5.. 01165 1 -> f1 01166 rom 1 00567 a <-> c[w] ; A= 01000000000000 C= 01200000000000 00570 c -> a[w] ; A= 01200000000000 00571 if a[m] >= 1 00572 goto 00546 00546 c + 1 -> c[xs] ; C= 01200000000100 00547 goto 00470 00470 0 -> c[xs] ; C= 01200000000000 00471 13 -> p ; P= 13 00472 c - 1 -> c[x] ; C= 01200000000999 00473 if b[p] = 0 00474 goto 00463 00463 p - 1 -> p ; P= 12 00464 c + 1 -> c[x] ; C= 01200000000000 00465 jsb 00473 00473 if b[p] = 0 00474 goto 00463 00463 p - 1 -> p ; P= 11 00464 c + 1 -> c[x] ; C= 01200000000001 00465 jsb 00473 00473 if b[p] = 0 00474 goto 00463 00475 12 -> p ; P= 12 00476 if a[p] >= 1 00477 goto 00574 00574 a <-> c[m] 00575 rom 2 01176 if c[xs] = 0 01177 goto 01334 01334 if c[m] >= 1 01335 goto 01337 01337 if p # 14 01340 goto 01217 01217 rom 1 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01200000000001 00535 0 -> s11 ; S= .1.......9.. 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01200000000001 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00730 0 -> s9 ; S= .1.......... 00731 1 -> s10 ; S= .1........a. 00732 disptoggle 00733 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 ; S= .1.......... 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01200000000001 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01200000000001 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01200000000001 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01200000000001 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01200000000001 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01200000000001 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01200000000001 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01200000000001 M= 00000000000221 00777 goto 00726 ; S= 01.......... 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00625 p + 1 -> p ; P= 13 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 14 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 15 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 0 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 1 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 2 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 3 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 4 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 5 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 6 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 7 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 8 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 9 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 10 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 11 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 12 00626 if p # 12 00627 goto 00625 00630 0 -> s0 ; S= .1.......... 00631 if s10 = 0 00632 goto 00641 00641 if s5 = 0 00642 goto 00734 00734 if s8 = 0 00735 goto 00710 00710 jsb 00675 00675 12 -> p 00676 1 -> f3 ; f= .123.5.. 00677 dispoff 00700 c <-> m ; C= 00000000000221 M= 01200000000001 00701 shiftl a[w] ; A= 12000000000000 00702 return 00711 1 -> f7 ; f= .123.5.7 00712 if s3 = 0 00713 goto 00715 00715 rom 2 01316 key -> rom ; f= .123.5.. ;[3] 01002 rom 5 02403 a + 1 -> a[x] ; A= 12000000000001 02404 a + 1 -> a[x] ; A= 12000000000002 02405 goto 02444 02444 a + 1 -> a[x] ; A= 12000000000003 02445 goto 02506 02506 if c[m] = 0 02507 goto 02736 02736 c <-> m ; C= 01200000000001 M= 00000000000221 02737 if s3 = 0 02740 goto 02511 02511 rom 2 01112 if s1 = 0 01113 goto 01245 01114 if s7 = 0 01115 goto 01130 01130 b <-> c[w] ; B= 01200000000001 C= 00299999999999 01131 c + 1 -> c[w] ; C= 00300000000000 01132 0 -> p ; P= 0 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 1 01136 shiftl a[wp] ; A= 12000000000030 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 2 01136 shiftl a[wp] ; A= 12000000000300 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 3 01136 shiftl a[wp] ; A= 12000000003000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 4 01136 shiftl a[wp] ; A= 12000000030000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 5 01136 shiftl a[wp] ; A= 12000000300000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 6 01136 shiftl a[wp] ; A= 12000003000000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 7 01136 shiftl a[wp] ; A= 12000030000000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 8 01136 shiftl a[wp] ; A= 12000300000000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 9 01136 shiftl a[wp] ; A= 12003000000000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 10 01136 shiftl a[wp] ; A= 12030000000000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 11 01136 shiftl a[wp] ; A= 12300000000000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01151 c - 1 -> c[w] ; C= 00299999999999 01152 b <-> c[w] ; B= 00299999999999 C= 01200000000001 01153 if p # 3 01154 goto 01366 01366 if s1 = 0 01367 goto 01361 01370 if s2 = 0 01371 goto 01107 01107 shiftr b[wp] ; B= 00029999999999 01110 jsb 01156 01156 shiftr a[ms] ; A= 01230000000000 01157 c -> a[s] 01160 if s7 = 0 01161 goto 01163 01163 1 -> s9 ; S= .1.......9.. 01164 0 -> f3 ; S= .1.......9.b f= .12..5.. 01165 1 -> f1 01166 rom 1 00567 a <-> c[w] ; A= 01200000000001 C= 01230000000000 00570 c -> a[w] ; A= 01230000000000 00571 if a[m] >= 1 00572 goto 00546 00546 c + 1 -> c[xs] ; C= 01230000000100 00547 goto 00470 00470 0 -> c[xs] ; C= 01230000000000 00471 13 -> p ; P= 13 00472 c - 1 -> c[x] ; C= 01230000000999 00473 if b[p] = 0 00474 goto 00463 00463 p - 1 -> p ; P= 12 00464 c + 1 -> c[x] ; C= 01230000000000 00465 jsb 00473 00473 if b[p] = 0 00474 goto 00463 00463 p - 1 -> p ; P= 11 00464 c + 1 -> c[x] ; C= 01230000000001 00465 jsb 00473 00473 if b[p] = 0 00474 goto 00463 00463 p - 1 -> p ; P= 10 00464 c + 1 -> c[x] ; C= 01230000000002 00465 jsb 00473 00473 if b[p] = 0 00474 goto 00463 00475 12 -> p ; P= 12 00476 if a[p] >= 1 00477 goto 00574 00574 a <-> c[m] 00575 rom 2 01176 if c[xs] = 0 01177 goto 01334 01334 if c[m] >= 1 01335 goto 01337 01337 if p # 14 01340 goto 01217 01217 rom 1 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01230000000002 00535 0 -> s11 ; S= .1.......9.. 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01230000000002 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00730 0 -> s9 ; S= .1.......... 00731 1 -> s10 ; S= .1........a. 00732 disptoggle 00733 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 ; S= .1.......... 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01230000000002 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01230000000002 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01230000000002 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01230000000002 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01230000000002 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01230000000002 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01230000000002 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01230000000002 M= 00000000000221 00777 goto 00726 ; S= 01.......... 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00625 p + 1 -> p ; P= 13 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 14 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 15 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 0 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 1 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 2 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 3 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 4 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 5 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 6 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 7 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 8 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 9 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 10 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 11 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 12 00626 if p # 12 00627 goto 00625 00630 0 -> s0 ; S= .1.......... 00631 if s10 = 0 00632 goto 00641 00641 if s5 = 0 00642 goto 00734 00734 if s8 = 0 00735 goto 00710 00710 jsb 00675 00675 12 -> p 00676 1 -> f3 ; f= .123.5.. 00677 dispoff 00700 c <-> m ; C= 00000000000221 M= 01230000000002 00701 shiftl a[w] ; A= 12300000000000 00702 return 00711 1 -> f7 ; f= .123.5.7 00712 if s3 = 0 00713 goto 00715 00715 rom 2 01316 key -> rom ; f= .123.5.. ;[.] 01043 goto 01271 01271 if c[m] >= 1 01272 goto 01270 01273 1 -> s2 ; S= .12......... 01274 if s1 = 0 01275 goto 01044 01276 goto 01304 01304 c <-> m ; C= 01230000000002 M= 00000000000221 01305 shiftr a[w] ; A= 01230000000000 01306 jsb 01157 01157 c -> a[s] 01160 if s7 = 0 01161 goto 01163 01163 1 -> s9 ; S= .12......9.. 01164 0 -> f3 ; S= .12......9.b f= .12..5.. 01165 1 -> f1 01166 rom 1 00567 a <-> c[w] ; A= 01230000000002 C= 01230000000000 00570 c -> a[w] ; A= 01230000000000 00571 if a[m] >= 1 00572 goto 00546 00546 c + 1 -> c[xs] ; C= 01230000000100 00547 goto 00470 00470 0 -> c[xs] ; C= 01230000000000 00471 13 -> p ; P= 13 00472 c - 1 -> c[x] ; C= 01230000000999 00473 if b[p] = 0 00474 goto 00463 00463 p - 1 -> p ; P= 12 00464 c + 1 -> c[x] ; C= 01230000000000 00465 jsb 00473 00473 if b[p] = 0 00474 goto 00463 00463 p - 1 -> p ; P= 11 00464 c + 1 -> c[x] ; C= 01230000000001 00465 jsb 00473 00473 if b[p] = 0 00474 goto 00463 00463 p - 1 -> p ; P= 10 00464 c + 1 -> c[x] ; C= 01230000000002 00465 jsb 00473 00473 if b[p] = 0 00474 goto 00463 00475 12 -> p ; P= 12 00476 if a[p] >= 1 00477 goto 00574 00574 a <-> c[m] 00575 rom 2 01176 if c[xs] = 0 01177 goto 01334 01334 if c[m] >= 1 01335 goto 01337 01337 if p # 14 01340 goto 01217 01217 rom 1 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01230000000002 00535 0 -> s11 ; S= .12......9.. 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01230000000002 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00730 0 -> s9 ; S= .12......... 00731 1 -> s10 ; S= .12.......a. 00732 disptoggle 00733 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 ; S= .12......... 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01230000000002 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01230000000002 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01230000000002 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01230000000002 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01230000000002 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01230000000002 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01230000000002 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01230000000002 M= 00000000000221 00777 goto 00726 ; S= 012......... 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00625 p + 1 -> p ; P= 13 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 14 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 15 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 0 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 1 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 2 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 3 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 4 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 5 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 6 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 7 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 8 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 9 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 10 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 11 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 12 00626 if p # 12 00627 goto 00625 00630 0 -> s0 ; S= .12......... 00631 if s10 = 0 00632 goto 00641 00641 if s5 = 0 00642 goto 00734 00734 if s8 = 0 00735 goto 00710 00710 jsb 00675 00675 12 -> p 00676 1 -> f3 ; f= .123.5.. 00677 dispoff 00700 c <-> m ; C= 00000000000221 M= 01230000000002 00701 shiftl a[w] ; A= 12300000000000 00702 return 00711 1 -> f7 ; f= .123.5.7 00712 if s3 = 0 00713 goto 00715 00715 rom 2 01316 key -> rom ; f= .123.5.. ;[4] 01024 rom 5 02425 goto 02402 02402 a + 1 -> a[x] ; A= 12300000000001 02403 a + 1 -> a[x] ; A= 12300000000002 02404 a + 1 -> a[x] ; A= 12300000000003 02405 goto 02444 02444 a + 1 -> a[x] ; A= 12300000000004 02445 goto 02506 02506 if c[m] = 0 02507 goto 02736 02736 c <-> m ; C= 01230000000002 M= 00000000000221 02737 if s3 = 0 02740 goto 02511 02511 rom 2 01112 if s1 = 0 01113 goto 01245 01114 if s7 = 0 01115 goto 01130 01130 b <-> c[w] ; B= 01230000000002 C= 00029999999999 01131 c + 1 -> c[w] ; C= 00030000000000 01132 0 -> p ; P= 0 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 1 01136 shiftl a[wp] ; A= 12300000000040 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 2 01136 shiftl a[wp] ; A= 12300000000400 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 3 01136 shiftl a[wp] ; A= 12300000004000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 4 01136 shiftl a[wp] ; A= 12300000040000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 5 01136 shiftl a[wp] ; A= 12300000400000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 6 01136 shiftl a[wp] ; A= 12300004000000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 7 01136 shiftl a[wp] ; A= 12300040000000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 8 01136 shiftl a[wp] ; A= 12300400000000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 9 01136 shiftl a[wp] ; A= 12304000000000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 10 01136 shiftl a[wp] ; A= 12340000000000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01151 c - 1 -> c[w] ; C= 00029999999999 01152 b <-> c[w] ; B= 00029999999999 C= 01230000000002 01153 if p # 3 01154 goto 01366 01366 if s1 = 0 01367 goto 01361 01370 if s2 = 0 01371 goto 01107 01372 p - 1 -> p ; P= 9 01373 0 -> b[p] ; B= 00020999999999 01374 jsb 01156 01156 shiftr a[ms] ; A= 01234000000000 01157 c -> a[s] 01160 if s7 = 0 01161 goto 01163 01163 1 -> s9 ; S= .12......9.. 01164 0 -> f3 ; S= .12......9.b f= .12..5.. 01165 1 -> f1 01166 rom 1 00567 a <-> c[w] ; A= 01230000000002 C= 01234000000000 00570 c -> a[w] ; A= 01234000000000 00571 if a[m] >= 1 00572 goto 00546 00546 c + 1 -> c[xs] ; C= 01234000000100 00547 goto 00470 00470 0 -> c[xs] ; C= 01234000000000 00471 13 -> p ; P= 13 00472 c - 1 -> c[x] ; C= 01234000000999 00473 if b[p] = 0 00474 goto 00463 00463 p - 1 -> p ; P= 12 00464 c + 1 -> c[x] ; C= 01234000000000 00465 jsb 00473 00473 if b[p] = 0 00474 goto 00463 00463 p - 1 -> p ; P= 11 00464 c + 1 -> c[x] ; C= 01234000000001 00465 jsb 00473 00473 if b[p] = 0 00474 goto 00463 00463 p - 1 -> p ; P= 10 00464 c + 1 -> c[x] ; C= 01234000000002 00465 jsb 00473 00473 if b[p] = 0 00474 goto 00463 00475 12 -> p ; P= 12 00476 if a[p] >= 1 00477 goto 00574 00574 a <-> c[m] 00575 rom 2 01176 if c[xs] = 0 01177 goto 01334 01334 if c[m] >= 1 01335 goto 01337 01337 if p # 14 01340 goto 01217 01217 rom 1 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01234000000002 00535 0 -> s11 ; S= .12......9.. 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01234000000002 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00730 0 -> s9 ; S= .12......... 00731 1 -> s10 ; S= .12.......a. 00732 disptoggle 00733 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 ; S= .12......... 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01234000000002 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01234000000002 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01234000000002 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01234000000002 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01234000000002 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01234000000002 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01234000000002 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01234000000002 M= 00000000000221 00777 goto 00726 ; S= 012......... 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00625 p + 1 -> p ; P= 13 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 14 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 15 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 0 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 1 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 2 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 3 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 4 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 5 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 6 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 7 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 8 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 9 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 10 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 11 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 12 00626 if p # 12 00627 goto 00625 00630 0 -> s0 ; S= .12......... 00631 if s10 = 0 00632 goto 00641 00641 if s5 = 0 00642 goto 00734 00734 if s8 = 0 00735 goto 00710 00710 jsb 00675 00675 12 -> p 00676 1 -> f3 ; f= .123.5.. 00677 dispoff 00700 c <-> m ; C= 00000000000221 M= 01234000000002 00701 shiftl a[w] ; A= 12340000000000 00702 return 00711 1 -> f7 ; f= .123.5.7 00712 if s3 = 0 00713 goto 00715 00715 rom 2 01316 key -> rom ; f= .123.5.. ;[5] 01023 rom 5 02424 a + 1 -> a[x] ; A= 12340000000001 02425 goto 02402 02402 a + 1 -> a[x] ; A= 12340000000002 02403 a + 1 -> a[x] ; A= 12340000000003 02404 a + 1 -> a[x] ; A= 12340000000004 02405 goto 02444 02444 a + 1 -> a[x] ; A= 12340000000005 02445 goto 02506 02506 if c[m] = 0 02507 goto 02736 02736 c <-> m ; C= 01234000000002 M= 00000000000221 02737 if s3 = 0 02740 goto 02511 02511 rom 2 01112 if s1 = 0 01113 goto 01245 01114 if s7 = 0 01115 goto 01130 01130 b <-> c[w] ; B= 01234000000002 C= 00020999999999 01131 c + 1 -> c[w] ; C= 00021000000000 01132 0 -> p ; P= 0 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 1 01136 shiftl a[wp] ; A= 12340000000050 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 2 01136 shiftl a[wp] ; A= 12340000000500 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 3 01136 shiftl a[wp] ; A= 12340000005000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 4 01136 shiftl a[wp] ; A= 12340000050000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 5 01136 shiftl a[wp] ; A= 12340000500000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 6 01136 shiftl a[wp] ; A= 12340005000000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 7 01136 shiftl a[wp] ; A= 12340050000000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 8 01136 shiftl a[wp] ; A= 12340500000000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 9 01136 shiftl a[wp] ; A= 12345000000000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01151 c - 1 -> c[w] ; C= 00020999999999 01152 b <-> c[w] ; B= 00020999999999 C= 01234000000002 01153 if p # 3 01154 goto 01366 01366 if s1 = 0 01367 goto 01361 01370 if s2 = 0 01371 goto 01107 01372 p - 1 -> p ; P= 8 01373 0 -> b[p] ; B= 00020099999999 01374 jsb 01156 01156 shiftr a[ms] ; A= 01234500000000 01157 c -> a[s] 01160 if s7 = 0 01161 goto 01163 01163 1 -> s9 ; S= .12......9.. 01164 0 -> f3 ; S= .12......9.b f= .12..5.. 01165 1 -> f1 01166 rom 1 00567 a <-> c[w] ; A= 01234000000002 C= 01234500000000 00570 c -> a[w] ; A= 01234500000000 00571 if a[m] >= 1 00572 goto 00546 00546 c + 1 -> c[xs] ; C= 01234500000100 00547 goto 00470 00470 0 -> c[xs] ; C= 01234500000000 00471 13 -> p ; P= 13 00472 c - 1 -> c[x] ; C= 01234500000999 00473 if b[p] = 0 00474 goto 00463 00463 p - 1 -> p ; P= 12 00464 c + 1 -> c[x] ; C= 01234500000000 00465 jsb 00473 00473 if b[p] = 0 00474 goto 00463 00463 p - 1 -> p ; P= 11 00464 c + 1 -> c[x] ; C= 01234500000001 00465 jsb 00473 00473 if b[p] = 0 00474 goto 00463 00463 p - 1 -> p ; P= 10 00464 c + 1 -> c[x] ; C= 01234500000002 00465 jsb 00473 00473 if b[p] = 0 00474 goto 00463 00475 12 -> p ; P= 12 00476 if a[p] >= 1 00477 goto 00574 00574 a <-> c[m] 00575 rom 2 01176 if c[xs] = 0 01177 goto 01334 01334 if c[m] >= 1 01335 goto 01337 01337 if p # 14 01340 goto 01217 01217 rom 1 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01234500000002 00535 0 -> s11 ; S= .12......9.. 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01234500000002 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00730 0 -> s9 ; S= .12......... 00731 1 -> s10 ; S= .12.......a. 00732 disptoggle 00733 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 ; S= .12......... 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01234500000002 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01234500000002 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01234500000002 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01234500000002 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01234500000002 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01234500000002 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01234500000002 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01234500000002 M= 00000000000221 00777 goto 00726 ; S= 012......... 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00625 p + 1 -> p ; P= 13 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 14 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 15 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 0 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 1 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 2 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 3 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 4 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 5 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 6 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 7 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 8 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 9 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 10 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 11 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 12 00626 if p # 12 00627 goto 00625 00630 0 -> s0 ; S= .12......... 00631 if s10 = 0 00632 goto 00641 00641 if s5 = 0 00642 goto 00734 00734 if s8 = 0 00735 goto 00710 00710 jsb 00675 00675 12 -> p 00676 1 -> f3 ; f= .123.5.. 00677 dispoff 00700 c <-> m ; C= 00000000000221 M= 01234500000002 00701 shiftl a[w] ; A= 12345000000000 00702 return 00711 1 -> f7 ; f= .123.5.7 00712 if s3 = 0 00713 goto 00715 00715 rom 2 01316 key -> rom ; f= .123.5.. ;[EEX] 01072 goto 01277 01277 if c[m] >= 1 01300 goto 01047 01301 1 -> s7 ; S= .12....7.... 01302 if s1 = 0 01303 goto 01004 01304 c <-> m ; C= 01234500000002 M= 00000000000221 01305 shiftr a[w] ; A= 01234500000000 01306 jsb 01157 01157 c -> a[s] 01160 if s7 = 0 01161 goto 01163 01162 0 -> b[x] ; B= 00020099999000 01163 1 -> s9 ; S= .12....7.9.. 01164 0 -> f3 ; S= .12....7.9.b f= .12..5.. 01165 1 -> f1 01166 rom 1 00567 a <-> c[w] ; A= 01234500000002 C= 01234500000000 00570 c -> a[w] ; A= 01234500000000 00571 if a[m] >= 1 00572 goto 00546 00546 c + 1 -> c[xs] ; C= 01234500000100 00547 goto 00470 00470 0 -> c[xs] ; C= 01234500000000 00471 13 -> p ; P= 13 00472 c - 1 -> c[x] ; C= 01234500000999 00473 if b[p] = 0 00474 goto 00463 00463 p - 1 -> p ; P= 12 00464 c + 1 -> c[x] ; C= 01234500000000 00465 jsb 00473 00473 if b[p] = 0 00474 goto 00463 00463 p - 1 -> p ; P= 11 00464 c + 1 -> c[x] ; C= 01234500000001 00465 jsb 00473 00473 if b[p] = 0 00474 goto 00463 00463 p - 1 -> p ; P= 10 00464 c + 1 -> c[x] ; C= 01234500000002 00465 jsb 00473 00473 if b[p] = 0 00474 goto 00463 00475 12 -> p ; P= 12 00476 if a[p] >= 1 00477 goto 00574 00574 a <-> c[m] 00575 rom 2 01176 if c[xs] = 0 01177 goto 01334 01334 if c[m] >= 1 01335 goto 01337 01337 if p # 14 01340 goto 01217 01217 rom 1 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01234500000002 00535 0 -> s11 ; S= .12....7.9.. 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01234500000002 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00730 0 -> s9 ; S= .12....7.... 00731 1 -> s10 ; S= .12....7..a. 00732 disptoggle 00733 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 ; S= .12....7.... 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01234500000002 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01234500000002 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01234500000002 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01234500000002 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01234500000002 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01234500000002 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01234500000002 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01234500000002 M= 00000000000221 00777 goto 00726 ; S= 012....7.... 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00625 p + 1 -> p ; P= 13 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 14 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 15 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 0 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 1 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 2 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 3 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 4 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 5 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 6 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 7 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 8 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 9 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 10 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 11 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 12 00626 if p # 12 00627 goto 00625 00630 0 -> s0 ; S= .12....7.... 00631 if s10 = 0 00632 goto 00641 00641 if s5 = 0 00642 goto 00734 00734 if s8 = 0 00735 goto 00710 00710 jsb 00675 00675 12 -> p 00676 1 -> f3 ; f= .123.5.. 00677 dispoff 00700 c <-> m ; C= 00000000000221 M= 01234500000002 00701 shiftl a[w] ; A= 12345000000000 00702 return 00711 1 -> f7 ; f= .123.5.7 00712 if s3 = 0 00713 goto 00715 00715 rom 2 01316 key -> rom ; f= .123.5.. ;[7] 01064 rom 5 02465 goto 02422 02422 a + 1 -> a[x] ; A= 12345000000001 02423 a + 1 -> a[x] ; A= 12345000000002 02424 a + 1 -> a[x] ; A= 12345000000003 02425 goto 02402 02402 a + 1 -> a[x] ; A= 12345000000004 02403 a + 1 -> a[x] ; A= 12345000000005 02404 a + 1 -> a[x] ; A= 12345000000006 02405 goto 02444 02444 a + 1 -> a[x] ; A= 12345000000007 02445 goto 02506 02506 if c[m] = 0 02507 goto 02736 02736 c <-> m ; C= 01234500000002 M= 00000000000221 02737 if s3 = 0 02740 goto 02511 02511 rom 2 01112 if s1 = 0 01113 goto 01245 01114 if s7 = 0 01115 goto 01130 01116 a <-> c[x] ; A= 12345000000002 C= 01234500000007 01117 shiftr a[w] ; A= 01234500000000 01120 1 -> p ; P= 1 01121 c -> a[wp] ; A= 01234500000007 01122 goto 01157 01157 c -> a[s] 01160 if s7 = 0 01161 goto 01163 01162 0 -> b[x] 01163 1 -> s9 ; S= .12....7.9.. 01164 0 -> f3 ; S= .12....7.9.b f= .12..5.. 01165 1 -> f1 01166 rom 1 00567 a <-> c[w] 00570 c -> a[w] 00571 if a[m] >= 1 00572 goto 00546 00546 c + 1 -> c[xs] ; C= 01234500000107 00547 goto 00470 00470 0 -> c[xs] ; C= 01234500000007 00471 13 -> p ; P= 13 00472 c - 1 -> c[x] ; C= 01234500000006 00473 if b[p] = 0 00474 goto 00463 00463 p - 1 -> p ; P= 12 00464 c + 1 -> c[x] ; C= 01234500000007 00465 jsb 00473 00473 if b[p] = 0 00474 goto 00463 00463 p - 1 -> p ; P= 11 00464 c + 1 -> c[x] ; C= 01234500000008 00465 jsb 00473 00473 if b[p] = 0 00474 goto 00463 00463 p - 1 -> p ; P= 10 00464 c + 1 -> c[x] ; C= 01234500000009 00465 jsb 00473 00473 if b[p] = 0 00474 goto 00463 00475 12 -> p ; P= 12 00476 if a[p] >= 1 00477 goto 00574 00574 a <-> c[m] 00575 rom 2 01176 if c[xs] = 0 01177 goto 01334 01334 if c[m] >= 1 01335 goto 01337 01337 if p # 14 01340 goto 01217 01217 rom 1 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01234500000009 00535 0 -> s11 ; S= .12....7.9.. 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01234500000009 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00730 0 -> s9 ; S= .12....7.... 00731 1 -> s10 ; S= .12....7..a. 00732 disptoggle 00733 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 ; S= .12....7.... 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01234500000009 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01234500000009 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01234500000009 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01234500000009 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01234500000009 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01234500000009 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01234500000009 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01234500000009 M= 00000000000221 00777 goto 00726 ; S= 012....7.... 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00625 p + 1 -> p ; P= 13 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 14 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 15 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 0 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 1 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 2 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 3 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 4 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 5 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 6 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 7 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 8 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 9 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 10 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 11 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 12 00626 if p # 12 00627 goto 00625 00630 0 -> s0 ; S= .12....7.... 00631 if s10 = 0 00632 goto 00641 00641 if s5 = 0 00642 goto 00734 00734 if s8 = 0 00735 goto 00710 00710 jsb 00675 00675 12 -> p 00676 1 -> f3 ; f= .123.5.. 00677 dispoff 00700 c <-> m ; C= 00000000000221 M= 01234500000009 00701 shiftl a[w] ; A= 12345000000070 00702 return 00711 1 -> f7 ; f= .123.5.7 00712 if s3 = 0 00713 goto 00715 00715 rom 2 01316 key -> rom ; f= .123.5.. ;[8] 01063 rom 5 02464 a + 1 -> a[x] ; A= 12345000000071 02465 goto 02422 02422 a + 1 -> a[x] ; A= 12345000000072 02423 a + 1 -> a[x] ; A= 12345000000073 02424 a + 1 -> a[x] ; A= 12345000000074 02425 goto 02402 02402 a + 1 -> a[x] ; A= 12345000000075 02403 a + 1 -> a[x] ; A= 12345000000076 02404 a + 1 -> a[x] ; A= 12345000000077 02405 goto 02444 02444 a + 1 -> a[x] ; A= 12345000000078 02445 goto 02506 02506 if c[m] = 0 02507 goto 02736 02736 c <-> m ; C= 01234500000009 M= 00000000000221 02737 if s3 = 0 02740 goto 02511 02511 rom 2 01112 if s1 = 0 01113 goto 01245 01114 if s7 = 0 01115 goto 01130 01116 a <-> c[x] ; A= 12345000000009 C= 01234500000078 01117 shiftr a[w] ; A= 01234500000000 01120 1 -> p ; P= 1 01121 c -> a[wp] ; A= 01234500000078 01122 goto 01157 01157 c -> a[s] 01160 if s7 = 0 01161 goto 01163 01162 0 -> b[x] 01163 1 -> s9 ; S= .12....7.9.. 01164 0 -> f3 ; S= .12....7.9.b f= .12..5.. 01165 1 -> f1 01166 rom 1 00567 a <-> c[w] 00570 c -> a[w] 00571 if a[m] >= 1 00572 goto 00546 00546 c + 1 -> c[xs] ; C= 01234500000178 00547 goto 00470 00470 0 -> c[xs] ; C= 01234500000078 00471 13 -> p ; P= 13 00472 c - 1 -> c[x] ; C= 01234500000077 00473 if b[p] = 0 00474 goto 00463 00463 p - 1 -> p ; P= 12 00464 c + 1 -> c[x] ; C= 01234500000078 00465 jsb 00473 00473 if b[p] = 0 00474 goto 00463 00463 p - 1 -> p ; P= 11 00464 c + 1 -> c[x] ; C= 01234500000079 00465 jsb 00473 00473 if b[p] = 0 00474 goto 00463 00463 p - 1 -> p ; P= 10 00464 c + 1 -> c[x] ; C= 01234500000080 00465 jsb 00473 00473 if b[p] = 0 00474 goto 00463 00475 12 -> p ; P= 12 00476 if a[p] >= 1 00477 goto 00574 00574 a <-> c[m] 00575 rom 2 01176 if c[xs] = 0 01177 goto 01334 01334 if c[m] >= 1 01335 goto 01337 01337 if p # 14 01340 goto 01217 01217 rom 1 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01234500000080 00535 0 -> s11 ; S= .12....7.9.. 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01234500000080 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00730 0 -> s9 ; S= .12....7.... 00731 1 -> s10 ; S= .12....7..a. 00732 disptoggle 00733 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 ; S= .12....7.... 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01234500000080 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01234500000080 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01234500000080 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01234500000080 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01234500000080 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01234500000080 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01234500000080 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01234500000080 M= 00000000000221 00777 goto 00726 ; S= 012....7.... 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00625 p + 1 -> p ; P= 13 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 14 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 15 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 0 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 1 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 2 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 3 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 4 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 5 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 6 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 7 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 8 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 9 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 10 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 11 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 12 00626 if p # 12 00627 goto 00625 00630 0 -> s0 ; S= .12....7.... 00631 if s10 = 0 00632 goto 00641 00641 if s5 = 0 00642 goto 00734 00734 if s8 = 0 00735 goto 00710 00710 jsb 00675 00675 12 -> p 00676 1 -> f3 ; f= .123.5.. 00677 dispoff 00700 c <-> m ; C= 00000000000221 M= 01234500000080 00701 shiftl a[w] ; A= 12345000000780 00702 return 00711 1 -> f7 ; f= .123.5.7 00712 if s3 = 0 00713 goto 00715 00715 rom 2 01316 key -> rom ; f= .123.5.. ;[CHS] 01073 goto 01375 01375 if c[m] = 0 01376 goto 01140 01140 c <-> m ; C= 01234500000080 M= 00000000000221 01141 shiftr a[w] ; A= 01234500000078 01142 if s7 = 0 01143 goto 01227 01144 a <-> c[x] ; A= 01234500000080 C= 01234500000078 01145 0 - c - 1 -> c[xs] ; C= 01234500000978 01146 a <-> c[x] ; A= 01234500000978 C= 01234500000080 01147 goto 01157 01157 c -> a[s] 01160 if s7 = 0 01161 goto 01163 01162 0 -> b[x] 01163 1 -> s9 ; S= .12....7.9.. 01164 0 -> f3 ; S= .12....7.9.b f= .12..5.. 01165 1 -> f1 01166 rom 1 00567 a <-> c[w] ; A= 01234500000080 C= 01234500000978 00570 c -> a[w] ; A= 01234500000978 00571 if a[m] >= 1 00572 goto 00546 00546 c + 1 -> c[xs] ; C= 01234500000078 00547 goto 00470 00550 0 - c -> c[x] ; C= 01234500000922 00551 jsb 00471 00471 13 -> p ; P= 13 00472 c - 1 -> c[x] ; C= 01234500000921 00473 if b[p] = 0 00474 goto 00463 00463 p - 1 -> p ; P= 12 00464 c + 1 -> c[x] ; C= 01234500000922 00465 jsb 00473 00473 if b[p] = 0 00474 goto 00463 00463 p - 1 -> p ; P= 11 00464 c + 1 -> c[x] ; C= 01234500000923 00465 jsb 00473 00473 if b[p] = 0 00474 goto 00463 00463 p - 1 -> p ; P= 10 00464 c + 1 -> c[x] ; C= 01234500000924 00465 jsb 00473 00473 if b[p] = 0 00474 goto 00463 00475 12 -> p ; P= 12 00476 if a[p] >= 1 00477 goto 00574 00574 a <-> c[m] 00575 rom 2 01176 if c[xs] = 0 01177 goto 01334 01200 c + 1 -> c[xs] ; C= 01234500000024 01201 if c[xs] = 0 01202 goto 01331 01331 if c[x] = 0 01332 goto 01352 01333 c - 1 -> c[xs] ; C= 01234500000924 01334 if c[m] >= 1 01335 goto 01337 01337 if p # 14 01340 goto 01217 01217 rom 1 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01234500000924 00535 0 -> s11 ; S= .12....7.9.. 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01234500000924 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00730 0 -> s9 ; S= .12....7.... 00731 1 -> s10 ; S= .12....7..a. 00732 disptoggle 00733 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 ; S= .12....7.... 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01234500000924 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01234500000924 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01234500000924 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01234500000924 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01234500000924 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01234500000924 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01234500000924 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01234500000924 M= 00000000000221 00777 goto 00726 ; S= 012....7.... 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00625 p + 1 -> p ; P= 13 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 14 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 15 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 0 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 1 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 2 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 3 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 4 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 5 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 6 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 7 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 8 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 9 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 10 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 11 00626 if p # 12 00627 goto 00625 00625 p + 1 -> p ; P= 12 00626 if p # 12 00627 goto 00625 00630 0 -> s0 ; S= .12....7.... 00631 if s10 = 0 00632 goto 00641 00641 if s5 = 0 00642 goto 00734 00734 if s8 = 0 00735 goto 00710 00710 jsb 00675 00675 12 -> p 00676 1 -> f3 ; f= .123.5.. 00677 dispoff 00700 c <-> m ; C= 00000000000221 M= 01234500000924 00701 shiftl a[w] ; A= 12345000009780 00702 return 00711 1 -> f7 ; f= .123.5.7 00712 if s3 = 0 00713 goto 00715 00715 rom 2 01316 key -> rom ; f= .123.5.. ;[ENTER] 01076 goto 01047 01047 rom 1 00450 goto 00414 00414 if c[m] = 0 00415 goto 00564 00564 delayed select rom 2 00565 goto 00503 01103 c <-> m ; C= 01234500000924 M= 00000000000221 01104 c -> stack ; D= 01234500000924 01105 goto 01237 01237 0 -> f1 ; S= .12....7...b f= ..23.5.. 01240 jsb 01167 01167 if s8 = 0 01170 goto 01123 01123 clearstatus ; S= ............ 01124 return 01241 goto 01334 01334 if c[m] >= 1 01335 goto 01337 01337 if p # 14 01340 goto 01217 01217 rom 1 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01234500000924 00535 0 -> s11 00536 0 -> f3 ; S= ...........b f= ..2..5.. 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00554 if c[p] = 0 00555 goto 00616 00556 c - 1 -> c[p] ; C= 00000000000211 00557 if c[p] = 0 00560 goto 00616 00561 load 2 ; C= 00000000000221 P= 0 00562 delayed select group 1 00563 rom 0 04164 jsb 04101 04101 dispoff 04102 c -> a[x] ; A= 12345000009221 04103 c <-> m ; C= 01234500000924 M= 00000000000221 04104 shiftr a[x] ; A= 12345000009022 04105 shiftr a[x] ; A= 12345000009002 04106 0 -> p 04107 if c[m] >= 1 04110 goto 04112 04112 b <-> c[w] ; B= 01234500000924 C= 00020099999000 04113 0 -> c[w] ; C= 00000000000000 04114 c - 1 -> c[w] ; C= 99999999999999 04115 c + 1 -> c[s] ; C= 09999999999999 04116 c + 1 -> c[s] ; C= 19999999999999 04117 c + 1 -> c[s] ; C= 29999999999999 04120 b <-> c[w] ; B= 29999999999999 C= 01234500000924 04121 0 -> f2 ; f= .....5.. 04122 return 04165 a + c -> a[x] ; A= 12345000009926 04166 jsb 04266 04266 a + 1 -> a[x] ; A= 12345000009927 04267 12 -> p ; P= 12 04270 goto 04124 04124 a - 1 -> a[x] ; A= 12345000009926 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 11 04124 a - 1 -> a[x] ; A= 12345000009925 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 10 04124 a - 1 -> a[x] ; A= 12345000009924 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 9 04124 a - 1 -> a[x] ; A= 12345000009923 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 8 04124 a - 1 -> a[x] ; A= 12345000009922 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 7 04124 a - 1 -> a[x] ; A= 12345000009921 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 6 04124 a - 1 -> a[x] ; A= 12345000009920 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 5 04124 a - 1 -> a[x] ; A= 12345000009919 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 4 04124 a - 1 -> a[x] ; A= 12345000009918 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 3 04124 a - 1 -> a[x] ; A= 12345000009917 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 2 04124 a - 1 -> a[x] ; A= 12345000009916 04125 goto 04206 04206 if p # 2 04207 goto 04123 04210 goto 04126 04126 0 -> a[w] ; A= 00000000000000 04127 c -> a[wp] ; A= 00000000000924 04130 a + c -> a[m] ; A= 01234500000924 04131 goto 04135 04135 a -> b[x] ; B= 29999999999924 04136 return 04167 if a[xs] >= 1 04170 goto 04364 04364 jsb 04272 04272 c <-> m ; C= 00000000000221 M= 01234500000924 04273 c -> a[x] ; A= 01234500000221 04274 c <-> m ; C= 01234500000924 M= 00000000000221 04275 return 04365 b <-> c[x] 04366 shiftr a[m] ; A= 00123450000221 04367 c + 1 -> c[x] ; C= 01234500000925 04370 a - 1 -> a[xs] ; A= 00123450000121 04371 goto 04200 04200 shiftr b[m] ; B= 20999999999924 04201 if c[x] = 0 04202 goto 04370 04203 goto 04366 04366 shiftr a[m] ; A= 00012345000121 04367 c + 1 -> c[x] ; C= 01234500000926 04370 a - 1 -> a[xs] ; A= 00012345000021 04371 goto 04200 04200 shiftr b[m] ; B= 20099999999924 04201 if c[x] = 0 04202 goto 04370 04203 goto 04366 04366 shiftr a[m] ; A= 00001234500021 04367 c + 1 -> c[x] ; C= 01234500000927 04370 a - 1 -> a[xs] ; A= 00001234500921 04371 goto 04200 04372 shiftr b[ms] ; B= 02009999999924 04373 b <-> c[x] ; B= 02009999999927 C= 01234500000924 04374 goto 04153 04153 0 -> a[x] ; A= 00001234500000 04154 a - 1 -> a[x] ; A= 00001234500999 04155 a -> b[x] ; B= 02009999999999 04156 goto 04321 04321 c -> a[s] 04322 if s5 = 0 04323 goto 04331 04331 clearstatus ; S= ............ 04332 goto 04326 04326 delayed select group 0 04327 rom 1 00730 0 -> s9 00731 1 -> s10 ; S= ..........a. 00732 disptoggle 00733 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 ; S= ............ 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 ; f= ..2..5.. 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01234500000924 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01234500000924 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01234500000924 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01234500000924 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01234500000924 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01234500000924 M= 00000000000221 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00441 0 -> s11 00442 0 -> f0 00443 if s11 = 0 00444 goto 00620 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 01234500000924 00535 0 -> s11 00536 0 -> f3 00537 if s3 = 0 00540 goto 00552 00552 if s11 = 0 00553 goto 00764 00764 if c[p] = 0 00765 goto 00776 00766 c - 1 -> c[p] ; C= 00000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000000211 00775 c + 1 -> c[p] ; C= 00000000000221 00776 c <-> m ; C= 01234500000924 M= 00000000000221