65 sto + 1 HP65 Logging started. ; A= 05432100000999 B= 00000200999999 C= 05432100000004 S= 0........... P= 1 M =00000000000221 D= 05432100000004 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 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 00677 dispoff 00700 c <-> m ; C= 00000000000221 M =05432100000004 00701 shiftl a[w] ; A= 54321000009990 00702 return 00711 1 -> f7 00712 if s3 = 0 00713 goto 00715 00715 rom 2 01316 key -> rom 01013 goto 01347 01347 rom 4 02350 buffer -> rom address 02351 goto 02000 02013 goto 02157 02157 p - 1 -> p ; P= 11 02160 p - 1 -> p ; P= 10 02161 p - 1 -> p ; P= 9 02162 0 -> c[m] 02163 p - 1 -> p ; P= 8 02164 p - 1 -> p ; P= 7 02165 p - 1 -> p ; P= 6 02166 p - 1 -> p ; P= 5 02167 if p # 8 02170 goto 02305 02305 if c[m] = 0 02306 goto 02220 02220 if p # 9 02221 goto 02120 02120 c + 1 -> c[p] ; C= 00000000100221 02121 if s8 = 0 02122 goto 02337 02337 jsb 02276 02276 c <-> m ; C= 05432100000004 M =00000000100221 02277 shiftr a[w] ; A= 05432100000999 02300 c -> a[s] 02301 return 02340 if s3 = 0 02341 goto 02217 02217 rom 1 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000100221 M =05432100000004 00535 0 -> s11 00536 0 -> f3 ; S= 0..........b 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= 00000000100211 00557 if c[p] = 0 00560 goto 00616 00561 load 2 ; C= 00000000100221 P= 0 00562 delayed select group 1 00563 rom 0 04164 jsb 04101 04101 dispoff 04102 c -> a[x] ; A= 05432100000221 04103 c <-> m ; C= 05432100000004 M =00000000100221 04104 shiftr a[x] ; A= 05432100000022 04105 shiftr a[x] ; A= 05432100000002 04106 0 -> p 04107 if c[m] >= 1 04110 goto 04112 04112 b <-> c[w] ; B= 05432100000004 C= 00000200999999 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= 05432100000004 04121 0 -> f2 04122 return 04165 a + c -> a[x] ; A= 05432100000006 04166 jsb 04266 04266 a + 1 -> a[x] ; A= 05432100000007 04267 12 -> p ; P= 12 04270 goto 04124 04124 a - 1 -> a[x] ; A= 05432100000006 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 11 04124 a - 1 -> a[x] ; A= 05432100000005 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 10 04124 a - 1 -> a[x] ; A= 05432100000004 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 9 04124 a - 1 -> a[x] ; A= 05432100000003 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 8 04124 a - 1 -> a[x] ; A= 05432100000002 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 7 04124 a - 1 -> a[x] ; A= 05432100000001 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 6 04124 a - 1 -> a[x] ; A= 05432100000000 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 5 04124 a - 1 -> a[x] ; A= 05432100000999 04125 goto 04206 04126 0 -> a[w] ; A= 00000000000000 04127 c -> a[wp] ; A= 00000000000004 04130 a + c -> a[m] ; A= 05432100000004 04131 goto 04135 04135 a -> b[x] ; B= 29999999999004 04136 return 04167 if a[xs] >= 1 04170 goto 04364 04171 13 -> p ; P= 13 04172 p - 1 -> p ; P= 12 04173 shiftr b[ms] ; B= 02999999999004 04174 a - 1 -> a[x] ; A= 05432100000003 04175 goto 04361 04361 if p # 3 04362 goto 04172 04172 p - 1 -> p ; P= 11 04173 shiftr b[ms] ; B= 00299999999004 04174 a - 1 -> a[x] ; A= 05432100000002 04175 goto 04361 04361 if p # 3 04362 goto 04172 04172 p - 1 -> p ; P= 10 04173 shiftr b[ms] ; B= 00029999999004 04174 a - 1 -> a[x] ; A= 05432100000001 04175 goto 04361 04361 if p # 3 04362 goto 04172 04172 p - 1 -> p ; P= 9 04173 shiftr b[ms] ; B= 00002999999004 04174 a - 1 -> a[x] ; A= 05432100000000 04175 goto 04361 04361 if p # 3 04362 goto 04172 04172 p - 1 -> p ; P= 8 04173 shiftr b[ms] ; B= 00000299999004 04174 a - 1 -> a[x] ; A= 05432100000999 04175 goto 04361 04176 jsb 04272 04272 c <-> m ; C= 00000000100221 M =05432100000004 04273 c -> a[x] ; A= 05432100000221 04274 c <-> m ; C= 05432100000004 M =00000000100221 04275 return 04177 goto 04151 04151 if a[xs] >= 1 04152 goto 04231 04231 p - 1 -> p ; P= 7 04232 if p # 2 04233 goto 04147 04147 0 -> b[p] ; B= 00000209999004 04150 a - 1 -> a[xs] ; A= 05432100000121 04151 if a[xs] >= 1 04152 goto 04231 04231 p - 1 -> p ; P= 6 04232 if p # 2 04233 goto 04147 04147 0 -> b[p] ; B= 00000200999004 04150 a - 1 -> a[xs] ; A= 05432100000021 04151 if a[xs] >= 1 04152 goto 04231 04153 0 -> a[x] ; A= 05432100000000 04154 a - 1 -> a[x] ; A= 05432100000999 04155 a -> b[x] ; B= 00000200999999 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 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000100221 M =05432100000004 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= 00000000100211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000100201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000100211 00775 c + 1 -> c[p] ; C= 00000000100221 00776 c <-> m ; C= 05432100000004 M =00000000100221 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= 00000000100221 M =05432100000004 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= 00000000100211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000100201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000100211 00775 c + 1 -> c[p] ; C= 00000000100221 00776 c <-> m ; C= 05432100000004 M =00000000100221 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= 00000000100221 M =05432100000004 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= 00000000100211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000100201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000100211 00775 c + 1 -> c[p] ; C= 00000000100221 00776 c <-> m ; C= 05432100000004 M =00000000100221 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= 00000000100221 M =05432100000004 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= 00000000100211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000100201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000100211 00775 c + 1 -> c[p] ; C= 00000000100221 00776 c <-> m ; C= 05432100000004 M =00000000100221 00777 goto 00726 ; S= 0........... 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 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 00677 dispoff 00700 c <-> m ; C= 00000000100221 M =05432100000004 00701 shiftl a[w] ; A= 54321000009990 00702 return 00711 1 -> f7 00712 if s3 = 0 00713 goto 00715 00715 rom 2 01316 key -> rom 01026 goto 01311 01311 a + 1 -> a[x] ; A= 54321000009991 01312 jsb 01167 01167 if s8 = 0 01170 goto 01123 01123 clearstatus ; S= ............ 01124 return 01313 if c[m] = 0 01314 goto 01150 01315 rom 4 02316 5 -> p ; P= 5 02317 if c[p] = 0 02320 goto 02060 02321 0 -> c[m] ; C= 00000000000221 02322 shiftl a[x] ; A= 54321000009910 02323 shiftl a[x] ; A= 54321000009100 02324 c + 1 -> c[p] ; C= 00000000100221 02325 c + 1 -> c[p] ; C= 00000000200221 02326 a - 1 -> a[xs] ; A= 54321000009000 02327 goto 02325 02325 c + 1 -> c[p] ; C= 00000000300221 02326 a - 1 -> a[xs] ; A= 54321000009900 02327 goto 02325 02330 c <-> m ; C= 05432100000004 M =00000000300221 02331 goto 02217 02217 rom 1 00620 if s8 = 0 00621 goto 00531 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000300221 M =05432100000004 00535 0 -> s11 00536 0 -> f3 ; S= ...........b 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= 00000000300211 00557 if c[p] = 0 00560 goto 00616 00561 load 2 ; C= 00000000300221 P= 0 00562 delayed select group 1 00563 rom 0 04164 jsb 04101 04101 dispoff 04102 c -> a[x] ; A= 54321000009221 04103 c <-> m ; C= 05432100000004 M =00000000300221 04104 shiftr a[x] ; A= 54321000009022 04105 shiftr a[x] ; A= 54321000009002 04106 0 -> p 04107 if c[m] >= 1 04110 goto 04112 04112 b <-> c[w] ; B= 05432100000004 C= 00000200999999 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= 05432100000004 04121 0 -> f2 04122 return 04165 a + c -> a[x] ; A= 54321000009006 04166 jsb 04266 04266 a + 1 -> a[x] ; A= 54321000009007 04267 12 -> p ; P= 12 04270 goto 04124 04124 a - 1 -> a[x] ; A= 54321000009006 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 11 04124 a - 1 -> a[x] ; A= 54321000009005 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 10 04124 a - 1 -> a[x] ; A= 54321000009004 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 9 04124 a - 1 -> a[x] ; A= 54321000009003 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 8 04124 a - 1 -> a[x] ; A= 54321000009002 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 7 04124 a - 1 -> a[x] ; A= 54321000009001 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 6 04124 a - 1 -> a[x] ; A= 54321000009000 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 5 04124 a - 1 -> a[x] ; A= 54321000009999 04125 goto 04206 04126 0 -> a[w] ; A= 00000000000000 04127 c -> a[wp] ; A= 00000000000004 04130 a + c -> a[m] ; A= 05432100000004 04131 goto 04135 04135 a -> b[x] ; B= 29999999999004 04136 return 04167 if a[xs] >= 1 04170 goto 04364 04171 13 -> p ; P= 13 04172 p - 1 -> p ; P= 12 04173 shiftr b[ms] ; B= 02999999999004 04174 a - 1 -> a[x] ; A= 05432100000003 04175 goto 04361 04361 if p # 3 04362 goto 04172 04172 p - 1 -> p ; P= 11 04173 shiftr b[ms] ; B= 00299999999004 04174 a - 1 -> a[x] ; A= 05432100000002 04175 goto 04361 04361 if p # 3 04362 goto 04172 04172 p - 1 -> p ; P= 10 04173 shiftr b[ms] ; B= 00029999999004 04174 a - 1 -> a[x] ; A= 05432100000001 04175 goto 04361 04361 if p # 3 04362 goto 04172 04172 p - 1 -> p ; P= 9 04173 shiftr b[ms] ; B= 00002999999004 04174 a - 1 -> a[x] ; A= 05432100000000 04175 goto 04361 04361 if p # 3 04362 goto 04172 04172 p - 1 -> p ; P= 8 04173 shiftr b[ms] ; B= 00000299999004 04174 a - 1 -> a[x] ; A= 05432100000999 04175 goto 04361 04176 jsb 04272 04272 c <-> m ; C= 00000000300221 M =05432100000004 04273 c -> a[x] ; A= 05432100000221 04274 c <-> m ; C= 05432100000004 M =00000000300221 04275 return 04177 goto 04151 04151 if a[xs] >= 1 04152 goto 04231 04231 p - 1 -> p ; P= 7 04232 if p # 2 04233 goto 04147 04147 0 -> b[p] ; B= 00000209999004 04150 a - 1 -> a[xs] ; A= 05432100000121 04151 if a[xs] >= 1 04152 goto 04231 04231 p - 1 -> p ; P= 6 04232 if p # 2 04233 goto 04147 04147 0 -> b[p] ; B= 00000200999004 04150 a - 1 -> a[xs] ; A= 05432100000021 04151 if a[xs] >= 1 04152 goto 04231 04153 0 -> a[x] ; A= 05432100000000 04154 a - 1 -> a[x] ; A= 05432100000999 04155 a -> b[x] ; B= 00000200999999 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 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000300221 M =05432100000004 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= 00000000300211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000300201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000300211 00775 c + 1 -> c[p] ; C= 00000000300221 00776 c <-> m ; C= 05432100000004 M =00000000300221 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= 00000000300221 M =05432100000004 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= 00000000300211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000300201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000300211 00775 c + 1 -> c[p] ; C= 00000000300221 00776 c <-> m ; C= 05432100000004 M =00000000300221 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= 00000000300221 M =05432100000004 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= 00000000300211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000300201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000300211 00775 c + 1 -> c[p] ; C= 00000000300221 00776 c <-> m ; C= 05432100000004 M =00000000300221 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= 00000000300221 M =05432100000004 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= 00000000300211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 00000000300201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 00000000300211 00775 c + 1 -> c[p] ; C= 00000000300221 00776 c <-> m ; C= 05432100000004 M =00000000300221 00777 goto 00726 ; S= 0........... 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 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 00677 dispoff 00700 c <-> m ; C= 00000000300221 M =05432100000004 00701 shiftl a[w] ; A= 54321000009990 00702 return 00711 1 -> f7 00712 if s3 = 0 00713 goto 00715 00715 rom 2 01316 key -> rom 01004 rom 5 02405 goto 02444 02444 a + 1 -> a[x] ; A= 54321000009991 02445 goto 02506 02506 if c[m] = 0 02507 goto 02736 02510 rom 2 01111 goto 01220 01220 jsb 01167 01167 if s8 = 0 01170 goto 01123 01123 clearstatus ; S= ............ 01124 return 01221 3 -> p ; P= 3 01222 rom 5 02623 shiftl a[x] ; A= 54321000009910 02624 shiftl a[x] ; A= 54321000009100 02625 if c[p] >= 1 02626 goto 02566 02627 rom 0 00230 4 -> p ; P= 4 00231 if c[p] = 0 00232 goto 00116 00116 5 -> p ; P= 5 00117 if c[p] = 0 00120 goto 00206 00121 c - 1 -> c[p] ; C= 00000000200221 00122 if c[p] = 0 00123 goto 00153 00124 c - 1 -> c[p] ; C= 00000000100221 00125 2 -> p ; P= 2 00126 jsb 00164 00164 1 -> s4 ; S= ....4....... 00165 if a[xs] >= 1 00166 goto 00130 00130 0 -> b[w] ; B= 00000000000000 00131 shiftl a[w] ; A= 43210000091000 00132 p + 1 -> p ; P= 3 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 32100000910000 00132 p + 1 -> p ; P= 4 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 21000009100000 00132 p + 1 -> p ; P= 5 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 10000091000000 00132 p + 1 -> p ; P= 6 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 00000910000000 00132 p + 1 -> p ; P= 7 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 00009100000000 00132 p + 1 -> p ; P= 8 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 00091000000000 00132 p + 1 -> p ; P= 9 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 00910000000000 00132 p + 1 -> p ; P= 10 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 09100000000000 00132 p + 1 -> p ; P= 11 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 91000000000000 00132 p + 1 -> p ; P= 12 00133 if p # 12 00134 goto 00131 00135 a <-> c[w] ; A= 00000000100221 C= 91000000000000 00136 c -> data address 00137 a <-> c[w] ; A= 91000000000000 C= 00000000100221 00140 return 00127 goto 00367 00367 5 -> p ; P= 5 00370 c - 1 -> c[p] ; C= 00000000000221 00371 goto 00021 00021 c - 1 -> c[p] ; C= 00000000900221 00022 goto 00200 00023 jsb 00266 00266 0 -> c[m] ; C= 00000000000221 00267 c <-> m ; C= 05432100000004 M =00000000000221 00270 12 -> p ; P= 12 00271 c -> a[w] ; A= 05432100000004 *** ram[1] -> c 00272 data -> c ; C= 00000000000000 00273 a <-> c[w] ; A= 00000000000000 C= 05432100000004 *** c -> ram[1] 00274 c -> data 00275 return 00024 goto 00374 00374 rom 5 02775 jsb 02633 02633 0 -> b[w] 02634 a + 1 -> a[xs] ; A= 00000000000100 02635 a + 1 -> a[xs] ; A= 00000000000200 02636 c + 1 -> c[xs] ; C= 05432100000104 02637 c + 1 -> c[xs] ; C= 05432100000204 02640 if a >= c[x] 02641 goto 02643 02642 a <-> c[w] ; A= 05432100000204 C= 00000000000200 02643 a <-> c[m] ; A= 00000000000204 C= 05432100000200 02644 if c[m] = 0 02645 goto 02647 02646 a <-> c[w] ; A= 05432100000200 C= 00000000000204 02647 b <-> c[m] 02650 if a >= c[x] 02651 goto 02676 02652 shiftr b[w] 02653 a + 1 -> a[x] ; A= 05432100000201 02654 if b[w] = 0 02655 goto 02676 02676 rom 6 03277 c - 1 -> c[xs] ; C= 00000000000104 03300 c - 1 -> c[xs] ; C= 00000000000004 03301 0 -> a[x] ; A= 05432100000000 03302 a - c -> a[s] 03303 if a[s] >= 1 03304 goto 03306 03305 rom 7 03706 goto 03704 03704 a + b -> a[w] 03705 c - 1 -> c[p] ; C= 09000000000004 03706 goto 03704 03707 shiftr a[w] ; A= 00543210000000 03710 p + 1 -> p ; P= 13 03711 if p # 13 03712 goto 03705 03713 c + 1 -> c[x] ; C= 09000000000005 03714 0 -> a[s] 03715 12 -> p ; P= 12 03716 0 -> b[w] 03717 if a[p] >= 1 03720 goto 03726 03721 shiftl a[w] ; A= 05432100000000 03722 c - 1 -> c[x] ; C= 09000000000004 03723 if a[w] >= 1 03724 goto 03717 03717 if a[p] >= 1 03720 goto 03726 03726 a -> b[x] 03727 a + b -> a[w] 03730 if a[s] >= 1 03731 goto 03707 03732 a <-> c[m] ; A= 09000000000000 C= 05432100000004 03733 c -> a[w] ; A= 05432100000004 03734 0 -> b[w] 03735 12 -> p 03736 goto 03572 03572 if s2 = 0 03573 goto 03624 03624 rom 6 03225 if s1 = 0 03226 goto 03332 03332 rom 3 01733 if s10 = 0 01734 goto 01732 01732 rom 5 02733 if s4 = 0 02734 goto 02725 02735 return 02776 14 -> p ; P= 14 02777 goto 02725 02725 rom 2 01326 1 -> f1 01327 jsb 01167 01167 if s8 = 0 01170 goto 01123 01123 clearstatus ; S= ............ 01124 return 01330 goto 01176 01176 if c[xs] = 0 01177 goto 01334 01334 if c[m] >= 1 01335 goto 01337 01337 if p # 14 01340 goto 01217 01341 rom 0 00342 jsb 00271 00271 c -> a[w] *** ram[1] -> c 00272 data -> c 00273 a <-> c[w] *** c -> ram[1] 00274 c -> data 00275 return 00343 a <-> c[w] 00344 goto 00217 00217 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 =05432100000004 00535 0 -> s11 00536 0 -> f3 ; S= ...........b 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= 05432100000221 04103 c <-> m ; C= 05432100000004 M =00000000000221 04104 shiftr a[x] ; A= 05432100000022 04105 shiftr a[x] ; A= 05432100000002 04106 0 -> p 04107 if c[m] >= 1 04110 goto 04112 04112 b <-> c[w] ; B= 05432100000004 C= 00000000000000 04113 0 -> c[w] 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= 05432100000004 04121 0 -> f2 04122 return 04165 a + c -> a[x] ; A= 05432100000006 04166 jsb 04266 04266 a + 1 -> a[x] ; A= 05432100000007 04267 12 -> p ; P= 12 04270 goto 04124 04124 a - 1 -> a[x] ; A= 05432100000006 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 11 04124 a - 1 -> a[x] ; A= 05432100000005 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 10 04124 a - 1 -> a[x] ; A= 05432100000004 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 9 04124 a - 1 -> a[x] ; A= 05432100000003 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 8 04124 a - 1 -> a[x] ; A= 05432100000002 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 7 04124 a - 1 -> a[x] ; A= 05432100000001 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 6 04124 a - 1 -> a[x] ; A= 05432100000000 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 5 04124 a - 1 -> a[x] ; A= 05432100000999 04125 goto 04206 04126 0 -> a[w] ; A= 00000000000000 04127 c -> a[wp] ; A= 00000000000004 04130 a + c -> a[m] ; A= 05432100000004 04131 goto 04135 04135 a -> b[x] ; B= 29999999999004 04136 return 04167 if a[xs] >= 1 04170 goto 04364 04171 13 -> p ; P= 13 04172 p - 1 -> p ; P= 12 04173 shiftr b[ms] ; B= 02999999999004 04174 a - 1 -> a[x] ; A= 05432100000003 04175 goto 04361 04361 if p # 3 04362 goto 04172 04172 p - 1 -> p ; P= 11 04173 shiftr b[ms] ; B= 00299999999004 04174 a - 1 -> a[x] ; A= 05432100000002 04175 goto 04361 04361 if p # 3 04362 goto 04172 04172 p - 1 -> p ; P= 10 04173 shiftr b[ms] ; B= 00029999999004 04174 a - 1 -> a[x] ; A= 05432100000001 04175 goto 04361 04361 if p # 3 04362 goto 04172 04172 p - 1 -> p ; P= 9 04173 shiftr b[ms] ; B= 00002999999004 04174 a - 1 -> a[x] ; A= 05432100000000 04175 goto 04361 04361 if p # 3 04362 goto 04172 04172 p - 1 -> p ; P= 8 04173 shiftr b[ms] ; B= 00000299999004 04174 a - 1 -> a[x] ; A= 05432100000999 04175 goto 04361 04176 jsb 04272 04272 c <-> m ; C= 00000000000221 M =05432100000004 04273 c -> a[x] ; A= 05432100000221 04274 c <-> m ; C= 05432100000004 M =00000000000221 04275 return 04177 goto 04151 04151 if a[xs] >= 1 04152 goto 04231 04231 p - 1 -> p ; P= 7 04232 if p # 2 04233 goto 04147 04147 0 -> b[p] ; B= 00000209999004 04150 a - 1 -> a[xs] ; A= 05432100000121 04151 if a[xs] >= 1 04152 goto 04231 04231 p - 1 -> p ; P= 6 04232 if p # 2 04233 goto 04147 04147 0 -> b[p] ; B= 00000200999004 04150 a - 1 -> a[xs] ; A= 05432100000021 04151 if a[xs] >= 1 04152 goto 04231 04153 0 -> a[x] ; A= 05432100000000 04154 a - 1 -> a[x] ; A= 05432100000999 04155 a -> b[x] ; B= 00000200999999 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 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M =05432100000004 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= 05432100000004 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 =05432100000004 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= 05432100000004 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 =05432100000004 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= 05432100000004 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 =05432100000004 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= 05432100000004 M =00000000000221