; 0 1/x 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 ; key pressed 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= 12 00626 if p # 12 00627 goto 00625 ; clear key press flag 00630 0 -> s0 ; S= ............ 00631 if s10 = 0 ; if interruptable 00632 goto 00641 00641 if s5 = 0 ; if no error 00642 goto 00734 00734 if s8 = 0 ; if not running 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.. ; 036 = [A] 01036 goto 01351 ; [A] key 01351 rom 4 02352 0 -> f5 ; S= ...........b f= ..23.... 02353 if c[m] = 0 ; f= ..23.5.. 02354 goto 02371 02371 0 -> c[ms] 02372 if s8 = 0 02373 goto 02102 02102 if s9 = 0 02103 goto 02302 ; *** 02302 search for label ; f= ..23.... 02303 goto 02106 02106 c + 1 -> c[s] ; C= 10000000000221 02107 clearstatus ; S= ............ 02110 1 -> s10 ; S= ..........a. 02111 jsb 02376 02376 1 -> s8 ; S= ........8.a. (set running flag) 02377 goto 02260 02260 jsb 02127 02127 0 -> s11 02130 0 -> f5 02131 if s11 = 0 02132 goto 02130 02130 0 -> f5 ; S= ........8.ab 02131 if s11 = 0 ; f= ..23.5.. 02132 goto 02130 02133 0 -> f5 ; f= ..23.... 02134 return ; f= ..23.5.. 02261 goto 02360 02360 0 -> c[m] 02361 c <-> m ; C= 00000000000000 M= 10000000000221 02362 goto 02045 02045 rom 0 00046 if s8 = 0 00047 goto 00216 00050 goto 00217 00217 rom 1 00620 if s8 = 0 00621 goto 00531 00622 12 -> p 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 ; S= ........8..b 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 00752 pointer advance ; f= ..23.... 00753 disptoggle 00754 c <-> m ; C= 10000000000221 M= 00000000000000 00755 shiftl a[w] ; A= 00000000099900 00756 0 -> s11 ; S= ........8... 00757 0 -> f5 00760 if s11 = 0 00761 goto 00757 00757 0 -> f5 ; S= ........8..b 00760 if s11 = 0 ; f= ..23.5.. 00761 goto 00757 00762 0 -> f5 ; f= ..23.... 00763 rom 2 ; f= ..23.5.. 01364 buffer -> rom address 01365 goto 01000 ; 053 = LBL 01053 goto 01347 01347 rom 4 02350 buffer -> rom address 02351 goto 02000 02053 goto 02165 02165 p - 1 -> p ; P= 11 02166 p - 1 -> p ; P= 10 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= 10010000000221 02121 if s8 = 0 02122 goto 02337 02123 c <-> m ; C= 00000000000000 M= 10010000000221 02124 clearstatus ; S= ............ 02125 1 -> s8 ; S= ........8... 02126 goto 02217 02217 rom 1 00620 if s8 = 0 00621 goto 00531 ; only updates display if not running 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 00752 pointer advance ; f= ..23.... 00753 disptoggle 00754 c <-> m ; C= 10010000000221 M= 00000000000000 00755 shiftl a[w] ; A= 00000000999000 00756 0 -> s11 00757 0 -> f5 00760 if s11 = 0 00761 goto 00757 00757 0 -> f5 ; S= ........8..b 00760 if s11 = 0 ; f= ..23.5.. 00761 goto 00757 00762 0 -> f5 ; f= ..23.... 00763 rom 2 ; f= ..23.5.. 01364 buffer -> rom address 01365 goto 01000 ; 036 = [A] 01036 goto 01351 01351 rom 4 02352 0 -> f5 ; f= ..23.... 02353 if c[m] = 0 ; f= ..23.5.. 02354 goto 02371 02355 10 -> p ; P= 10 02356 if c[p] = 0 02357 goto 02366 02360 0 -> c[m] ; C= 10000000000221 02361 c <-> m ; C= 00000000000000 M= 10000000000221 02362 goto 02045 02045 rom 0 00046 if s8 = 0 00047 goto 00216 00050 goto 00217 00217 rom 1 00620 if s8 = 0 00621 goto 00531 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 00752 pointer advance ; f= ..23.... 00753 disptoggle 00754 c <-> m ; C= 10000000000221 M= 00000000000000 00755 shiftl a[w] ; A= 00000009990000 00756 0 -> s11 ; S= ........8... 00757 0 -> f5 00760 if s11 = 0 00761 goto 00757 00757 0 -> f5 ; S= ........8..b 00760 if s11 = 0 ; f= ..23.5.. 00761 goto 00757 00762 0 -> f5 ; f= ..23.... 00763 rom 2 ; f= ..23.5.. 01364 buffer -> rom address 01365 goto 01000 ; 010 = [g] 01010 goto 01347 01347 rom 4 02350 buffer -> rom address 02351 goto 02000 02010 goto 02155 02155 p - 1 -> p ; P= 11 02156 p - 1 -> p ; P= 10 02157 p - 1 -> p ; P= 9 02160 p - 1 -> p ; P= 8 02161 p - 1 -> p ; P= 7 02162 0 -> c[m] 02163 p - 1 -> p ; P= 6 02164 p - 1 -> p ; P= 5 02165 p - 1 -> p ; P= 4 02166 p - 1 -> p ; P= 3 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= 10000000001221 02121 if s8 = 0 02122 goto 02337 02123 c <-> m ; C= 00000000000000 M= 10000000001221 02124 clearstatus ; S= ............ 02125 1 -> s8 ; S= ........8... 02126 goto 02217 02217 rom 1 00620 if s8 = 0 00621 goto 00531 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 00752 pointer advance ; f= ..23.... 00753 disptoggle 00754 c <-> m ; C= 10000000001221 M= 00000000000000 00755 shiftl a[w] ; A= 00000099900000 00756 0 -> s11 00757 0 -> f5 00760 if s11 = 0 00761 goto 00757 00757 0 -> f5 ; S= ........8..b 00760 if s11 = 0 ; f= ..23.5.. 00761 goto 00757 00762 0 -> f5 ; f= ..23.... 00763 rom 2 ; f= ..23.5.. 01364 buffer -> rom address 01365 goto 01000 ; 024 = [4], [g][4]= 1/x 01024 rom 5 02425 goto 02402 02402 a + 1 -> a[x] ; A= 00000099900001 02403 a + 1 -> a[x] ; A= 00000099900002 02404 a + 1 -> a[x] ; A= 00000099900003 02405 goto 02444 02444 a + 1 -> a[x] ; A= 00000099900004 02445 goto 02506 ; knows it was a "4" (A[0]=4) 02506 if c[m] = 0 ; if no prefix 02507 goto 02736 02510 rom 2 ; but there was one 01111 goto 01220 01220 jsb 01167 ; clear S, except for running .01167 if s8 = 0 .01170 goto 01123 .01171 clearstatus ; S= ............ .01172 1 -> s8 ; S= ........8... .01173 return 01221 3 -> p ; P= 3 01222 rom 5 02623 shiftl a[x] ; A= 00000099900040 02624 shiftl a[x] ; A= 00000099900400 02625 if c[p] >= 1 ; if g was pressed before 02626 goto 02566 ; (it was so go 02566) 02566 a - 1 -> a[xs] ; A= 00000099900300 02567 goto 02572 ; if it wasn't g 0 02572 a - 1 -> a[xs] ; A= 00000099900200 02573 goto 02743 ; if it wasn't g 1 02743 2 -> p ; P= 2 02744 b <-> c[w] ; B= 10000000001221 C= 02009999999999 02745 load 5 ; C= 02009999999599 P= 1 02746 b <-> c[w] ; B= 02009999999599 C= 10000000001221 02747 if a >= b[xs] ; if it was g N where N>=7 (x<>y Rv R^) 02750 goto 02515 02751 if s3 = 0 ; if in run mode 02752 goto 02525 02525 0 -> c[m] ; C= 10000000000221 (clear prefixes) 02526 c <-> m ; C= 00000000000000 M= 10000000000221 02527 goto 02556 02556 0 -> b[w] ; B= 00000000000000 02557 a - 1 -> a[xs] ; A= 00000099900100 02560 goto 02722 ; if it wasn't g 2 02722 jsb 02667 ; save LastX .02667 0 -> b[w] .02670 b <-> c[w] .02671 c -> data address .02672 b <-> c[w] *** c -> ram[0] .02673 c -> data .02674 12 -> p ; P= 12 .02675 return 02723 goto 02704 02704 rom 0 00305 a - 1 -> a[xs] ; A= 00000099900000 00306 goto 00310 ; if it wasn't g 3 00310 rom 5 02711 goto 02730 02730 a - 1 -> a[xs] ; A= 00000099900900 02731 goto 02536 ; if it wasn't g 4 ; [g] [4] = 1/x ; but it was 02732 goto 02416 02416 0 -> a[w] ; A= 00000000000000 02417 a + 1 -> a[p] ; A= 01000000000000 02420 0 -> b[w] 02421 rom 6 03022 jsb 03246 03246 a - c -> c[x] 03247 rom 7 03650 a - c -> c[s] 03651 goto 03653 03653 a <-> b[m] ; A= 00000000000000 B= 01000000000000 03654 0 -> a[w] 03655 if p # 12 03656 goto 03705 03657 if c[m] >= 1 ; if mantissa not zero 03660 goto 03666 03661 if s1 = 0 ; but it is. 03662 goto 03400 03400 rom 5 02401 goto 02677 02677 clearstatus ; S= ............ (stop running) 02700 0 -> c[w] 02701 1 -> s5 ; S= .....5...... (set error) 02702 goto 02717 02717 rom 2 01320 1 -> f3 ; need to display 01321 goto 01176 01176 if c[xs] = 0 01177 goto 01334 01334 if c[m] >= 1 01335 goto 01337 01336 0 -> c[w] 01337 if p # 14 01340 goto 01217 01217 rom 1 00620 if s8 = 0 ; if not running 00621 goto 00531 display: 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 10000000000221 M= 00000000000000 00535 0 -> s11 00536 0 -> f3 ; S= .....5.....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= 10000000000211 00557 if c[p] = 0 00560 goto 00616 00561 load 2 ; C= 10000000000221 P= 0 00562 delayed select group 1 00563 rom 0 04164 jsb 04101 04101 dispoff 04102 c -> a[x] ; A= 00000000000221 04103 c <-> m ; C= 00000000000000 M= 10000000000221 04104 shiftr a[x] ; A= 00000000000022 04105 shiftr a[x] ; A= 00000000000002 04106 0 -> p 04107 if c[m] >= 1 04110 goto 04112 04111 0 -> c[x] 04112 b <-> c[w] ; B= 00000000000000 C= 01000000000000 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= 00000000000000 04121 0 -> f2 ; f= .....5.. 04122 return 04165 a + c -> a[x] 04166 jsb 04266 04266 a + 1 -> a[x] ; A= 00000000000003 04267 12 -> p ; P= 12 04270 goto 04124 04124 a - 1 -> a[x] ; A= 00000000000002 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 11 04124 a - 1 -> a[x] ; A= 00000000000001 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 10 04124 a - 1 -> a[x] ; A= 00000000000000 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 9 04124 a - 1 -> a[x] ; A= 00000000000999 04125 goto 04206 04126 0 -> a[w] ; A= 00000000000000 04127 c -> a[wp] 04130 a + c -> a[m] 04131 goto 04135 04135 a -> b[x] ; B= 29999999999000 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= 02999999999000 04174 a - 1 -> a[x] ; A= 00000000000999 04175 goto 04361 04176 jsb 04272 04272 c <-> m ; C= 10000000000221 M= 00000000000000 04273 c -> a[x] ; A= 00000000000221 04274 c <-> m ; C= 00000000000000 M= 10000000000221 04275 return 04177 goto 04151 04151 if a[xs] >= 1 04152 goto 04231 04231 p - 1 -> p ; P= 11 04232 if p # 2 04233 goto 04147 04147 0 -> b[p] ; B= 02099999999000 04150 a - 1 -> a[xs] ; A= 00000000000121 04151 if a[xs] >= 1 04152 goto 04231 04231 p - 1 -> p ; P= 10 04232 if p # 2 04233 goto 04147 04147 0 -> b[p] ; B= 02009999999000 04150 a - 1 -> a[xs] ; A= 00000000000021 04151 if a[xs] >= 1 04152 goto 04231 04153 0 -> a[x] ; A= 00000000000000 04154 a - 1 -> a[x] ; A= 00000000000999 04155 a -> b[x] ; B= 02009999999999 04156 goto 04321 04321 c -> a[s] 04322 if s5 = 0 04323 goto 04331 04324 clearstatus ; S= ............ 04325 1 -> s5 ; S= .....5...... 04326 delayed select group 0 04327 rom 1 00730 0 -> s9 00731 1 -> s10 ; S= .....5....a. 00732 disptoggle 00733 goto 00622 00622 12 -> p ; P= 12 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 ; S= .....5...... 00453 if s5 = 0 00454 goto 00750 00455 c + 1 -> c[x] ; C= 00000000000001 00456 goto 00451 00451 c + 1 -> c[xs] ; C= 00000000000101 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00455 c + 1 -> c[x] ; C= 00000000000102 00456 goto 00451 ; C= 00000000000203 ; C= 00000000000304 ; C= 00000000000405 ; C= 00000000000506 ; C= 00000000000607 ; C= 00000000000708 ; C= 00000000000809 ; C= 00000000000910 ; C= 00000000000011 ; C= 00000000000112 ... ; C= 00000000000697 ; C= 00000000000798 ; C= 00000000000899 00451 c + 1 -> c[xs] ; C= 00000000000999 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00455 c + 1 -> c[x] ; C= 00000000000000 00456 goto 00451 ; end of time delay loop 00457 goto 00732 00732 disptoggle ; flash display 00733 goto 00622 00622 12 -> p 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00455 c + 1 -> c[x] ; C= 00000000000001 00456 goto 00451 00451 c + 1 -> c[xs] ; C= 00000000000101 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00455 c + 1 -> c[x] ; C= 00000000000102 00456 goto 00451 ; C= 00000000000203 ; C= 00000000000304 ; C= 00000000000405 ... ; C= 00000000000899 00451 c + 1 -> c[xs] ; C= 00000000000999 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00455 c + 1 -> c[x] ; C= 00000000000000 00456 goto 00451 ; end of time delay loop 00457 goto 00732 00732 disptoggle ; flash display 00733 goto 00622 00622 12 -> p 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00455 c + 1 -> c[x] ; C= 00000000000001 00456 goto 00451 00451 c + 1 -> c[xs] ; C= 00000000000101 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00455 c + 1 -> c[x] ; C= 00000000000102 00456 goto 00451 ; C= 00000000000203 ; C= 00000000000304 ; C= 00000000000405 ... ; C= 00000000000899 00451 c + 1 -> c[xs] ; C= 00000000000999 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00455 c + 1 -> c[x] ; C= 00000000000000 00456 goto 00451 ; end of time delay loop 00457 goto 00732 00732 disptoggle ; flash display 00733 goto 00622 00622 12 -> p 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00455 c + 1 -> c[x] ; C= 00000000000001 00456 goto 00451 00451 ... 00456 goto 00451 ; end of time delay loop 00457 goto 00732 00732 disptoggle 00733 goto 00622 00622 12 -> p 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00455 c + 1 -> c[x] ; C= 00000000000001 00456 goto 00451 00451 ... 00456 goto 00451 ; end of time delay loop 00457 goto 00732 00732 disptoggle 00733 goto 00622 00622 12 -> p 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00455 c + 1 -> c[x] ; C= 00000000000001 00456 goto 00451 00451 ... 00456 goto 00451 ; end of time delay loop 00457 goto 00732 00732 disptoggle 00733 goto 00622 00622 12 -> p 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 00453 if s5 = 0 00454 goto 00750 00455 c + 1 -> c[x] ; C= 00000000000001 00456 goto 00451 00451 ... 00456 goto 00451 ; S= 0....5...... ; end of time delay loop 00457 goto 00732 00732 disptoggle 00733 goto 00622 ; ; *** NOTE: a key has been pressed. s0=1 ; 00622 12 -> p 00623 if s0 = 0 00624 goto 00452 00625 p + 1 -> p ; P= 13 00626 if p # 12 00627 goto 00625 ; P= 14, 15, 0, 1, 2, ..., 11 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 00643 goto 00737 00737 1 -> f3 ; f= ...3.5.. 00740 clearstatus ; S= ............ 00741 goto 00620 ; S= 0........... 00620 if s8 = 0 00621 goto 00531 display: 00531 0 -> s3 00532 1 -> f2 ; f= ..23.5.. 00533 1 -> p ; P= 1 00534 c <-> m ; C= 10000000000221 M= 00000000000000 00535 0 -> s11 00536 0 -> f3 ; S= 0..........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= 10000000000211 00557 if c[p] = 0 00560 goto 00616 00561 load 2 ; C= 10000000000221 P= 0 00562 delayed select group 1 00563 rom 0 04164 jsb 04101 04101 dispoff 04102 c -> a[x] ; A= 00000000000221 04103 c <-> m ; C= 00000000000000 M= 10000000000221 04104 shiftr a[x] ; A= 00000000000022 04105 shiftr a[x] ; A= 00000000000002 04106 0 -> p 04107 if c[m] >= 1 04110 goto 04112 04111 0 -> c[x] 04112 b <-> c[w] ; B= 00000000000000 C= 02009999999999 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= 00000000000000 04121 0 -> f2 ; f= .....5.. 04122 return 04165 a + c -> a[x] 04166 jsb 04266 04266 a + 1 -> a[x] ; A= 00000000000003 04267 12 -> p ; P= 12 04270 goto 04124 04124 a - 1 -> a[x] ; A= 00000000000002 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 11 04124 a - 1 -> a[x] ; A= 00000000000001 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 10 04124 a - 1 -> a[x] ; A= 00000000000000 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 9 04124 a - 1 -> a[x] ; A= 00000000000999 04125 goto 04206 04126 0 -> a[w] ; A= 00000000000000 04127 c -> a[wp] 04130 a + c -> a[m] 04131 goto 04135 04135 a -> b[x] ; B= 29999999999000 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= 02999999999000 04174 a - 1 -> a[x] ; A= 00000000000999 04175 goto 04361 04176 jsb 04272 04272 c <-> m ; C= 10000000000221 M= 00000000000000 04273 c -> a[x] ; A= 00000000000221 04274 c <-> m ; C= 00000000000000 M= 10000000000221 04275 return 04177 goto 04151 04151 if a[xs] >= 1 04152 goto 04231 04231 p - 1 -> p ; P= 11 04232 if p # 2 04233 goto 04147 04147 0 -> b[p] ; B= 02099999999000 04150 a - 1 -> a[xs] ; A= 00000000000121 04151 if a[xs] >= 1 04152 goto 04231 04231 p - 1 -> p ; P= 10 04232 if p # 2 04233 goto 04147 04147 0 -> b[p] ; B= 02009999999000 04150 a - 1 -> a[xs] ; A= 00000000000021 04151 if a[xs] >= 1 04152 goto 04231 04153 0 -> a[x] ; A= 00000000000000 04154 a - 1 -> a[x] ; A= 00000000000999 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= 10000000000221 M= 00000000000000 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= 10000000000211 00767 if c[p] = 0 00770 goto 00717 00771 c - 1 -> c[p] ; C= 10000000000201 00772 if c[p] >= 1 00773 goto 00611 00774 c + 1 -> c[p] ; C= 10000000000211 00775 c + 1 -> c[p] ; C= 10000000000221 00776 c <-> m ; C= 00000000000000 M= 10000000000221 00777 goto 00726 00726 ... 00777 goto 00726 00726 ... 00777 goto 00726 00726 ... 00777 goto 00726