001: 23 : LBL 002: 11 : A 003: 01 : 1 004: 61 : + 005: 84 : R/S 006: 22 : GTO 007: 11 : A [R/S] pressed HP65 Logging started. ; A= 03000000000999 B= 02009999999999 C= 03000000000000 ; S= 0........... f= .12..5.. P= 1 M= 10000000000221 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 ... 00627 goto 00625 00625 p + 1 -> p ; P= 12 00626 if p # 12 00627 goto 00625 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= .123.5.. 00677 dispoff 00700 c <-> m ; C= 10000000000221 M= 03000000000000 00701 shiftl a[w] ; A= 30000000009990 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.. 01042 goto 01101 ; [R/S] from keyboard ; s8=0 (not running) 01101 0 -> c[m] 01102 delayed select group 1 01103 c <-> m ; C= 03000000000000 M= 10000000000221 05104 delayed select rom 1 05105 goto 04604 04604 if s8 = 0 04605 goto 04405 04405 if s9 = 0 04406 goto 04434 04434 rom 2 05035 goto 05376 05376 delayed select group 0 05377 goto 05223 01223 clearstatus 01224 1 -> s8 ; S= ........8... 01225 1 -> s10 ; S= ........8.a. 01226 goto 01217 01217 rom 1 00620 if s8 = 0 00621 goto 00531 ; clear up 00622 12 -> p 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 ; S= ........8... 00453 if s5 = 0 00454 goto 00750 00750 if s8 = 0 00751 goto 00441 ; get next instruction 00752 pointer advance ; f= .123.... 00753 disptoggle 00754 c <-> m ; C= 10000000000221 M= 03000000000000 00755 shiftl a[w] ; A= 00000000099900 00756 0 -> s11 00757 0 -> f5 00760 if s11 = 0 00761 goto 00757 00757 0 -> f5 ; S= ........8..b 00760 if s11 = 0 ; f= .123.5.. 00761 goto 00757 00762 0 -> f5 ; f= .123.... 00763 rom 2 ; f= .123.5.. 01364 buffer -> rom address 01365 goto 01000 01054 goto 01347 01347 rom 4 02350 buffer -> rom address 02351 goto 02000 02054 goto 02166 02166 p - 1 -> p ; P= 11 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= 10100000000221 02121 if s8 = 0 02122 goto 02337 02123 c <-> m ; C= 03000000000000 M= 10100000000221 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= .123.... 00753 disptoggle 00754 c <-> m ; C= 10100000000221 M= 03000000000000 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= .123.5.. 00761 goto 00757 00762 0 -> f5 ; f= .123.... 00763 rom 2 ; f= .123.5.. 01364 buffer -> rom address 01365 goto 01000 01036 goto 01351 01351 rom 4 02352 0 -> f5 ; f= .123.... 02353 if c[m] = 0 ; f= .123.5.. 02354 goto 02371 02355 10 -> p ; P= 10 02356 if c[p] = 0 02357 goto 02366 02366 11 -> p ; P= 11 02367 if c[p] >= 1 02370 goto 02257 02257 search for label ; f= .123.... 02260 jsb 02127 02127 0 -> s11 ; S= ........8... 02130 0 -> f5 02131 if s11 = 0 02132 goto 02130 02130 0 -> f5 02131 if s11 = 0 02132 goto 02130 02130 0 -> f5 02131 if s11 = 0 02132 goto 02130 02130 0 -> f5 02131 if s11 = 0 ; f= .123.5.. 02132 goto 02130 02130 0 -> f5 ; S= ........8..b f= .123.... 02131 if s11 = 0 ; f= .123.5.. 02132 goto 02130 02133 0 -> f5 ; f= .123.... 02134 return ; f= .123.5.. 02261 goto 02360 02360 0 -> c[m] ; C= 10000000000221 02361 c <-> m ; C= 03000000000000 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= .123.... 00753 disptoggle 00754 c <-> m ; C= 10000000000221 M= 03000000000000 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= .123.5.. 00761 goto 00757 00762 0 -> f5 ; f= .123.... 00763 rom 2 ; f= .123.5.. 01364 buffer -> rom address 01365 goto 01000 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= 03000000000000 M= 10010000000221 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= .123.... 00753 disptoggle 00754 c <-> m ; C= 10010000000221 M= 03000000000000 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= .123.5.. 00761 goto 00757 00762 0 -> f5 ; f= .123.... 00763 rom 2 ; f= .123.5.. 01364 buffer -> rom address 01365 goto 01000 01036 goto 01351 01351 rom 4 02352 0 -> f5 ; f= .123.... 02353 if c[m] = 0 ; f= .123.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= 03000000000000 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= .123.... 00753 disptoggle 00754 c <-> m ; C= 10000000000221 M= 03000000000000 00755 shiftl a[w] ; A= 00000999000000 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= .123.5.. 00761 goto 00757 00762 0 -> f5 ; f= .123.... 00763 rom 2 ; f= .123.5.. 01364 buffer -> rom address 01365 goto 01000 01004 rom 5 02405 goto 02444 02444 a + 1 -> a[x] ; A= 00000999000001 02445 goto 02506 02506 if c[m] = 0 02507 goto 02736 02736 c <-> m ; C= 03000000000000 M= 10000000000221 02737 if s3 = 0 02740 goto 02511 02511 rom 2 01112 if s1 = 0 01113 goto 01245 01245 0 -> s11 ; S= ........8... 01246 0 -> f1 ; S= ........8..b f= ..23.5.. 01247 if s11 = 0 01250 goto 01252 01251 c -> stack ; D= 03000000000000 01252 0 -> c[w] ; C= 00000000000000 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= 00000999000010 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 2 01136 shiftl a[wp] ; A= 00000999000100 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 3 01136 shiftl a[wp] ; A= 00000999001000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 4 01136 shiftl a[wp] ; A= 00000999010000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 5 01136 shiftl a[wp] ; A= 00000999100000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 6 01136 shiftl a[wp] ; A= 00000991000000 01137 goto 01133 01133 if c[p] >= 1 01134 goto 01151 01135 p + 1 -> p ; P= 7 01136 shiftl a[wp] ; A= 00000910000000 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......8..b 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......89.b 01164 0 -> f3 ; 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 00622 12 -> p 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= .12..... 00753 disptoggle 00754 c <-> m ; C= 10000000000221 M= 01000000000000 00755 shiftl a[w] ; A= 10000000000000 00756 0 -> s11 ; S= .1......89.. 00757 0 -> f5 00760 if s11 = 0 00761 goto 00757 00757 0 -> f5 ; S= .1......89.b 00760 if s11 = 0 ; f= .12..5.. 00761 goto 00757 00762 0 -> f5 ; f= .12..... 00763 rom 2 ; f= .12..5.. 01364 buffer -> rom address 01365 goto 01000 01026 goto 01311 01311 a + 1 -> a[x] ; A= 10000000000001 01312 jsb 01167 01167 if s8 = 0 01170 goto 01123 01171 clearstatus ; S= ............ 01172 1 -> s8 ; S= ........8... 01173 return 01313 if c[m] = 0 01314 goto 01150 01150 rom 5 02551 jsb 02666 02666 c <-> m ; C= 01000000000000 M= 10000000000221 02667 0 -> b[w] ; B= 00000000000000 02670 b <-> c[w] ; B= 01000000000000 C= 00000000000000 02671 c -> data address 02672 b <-> c[w] ; B= 00000000000000 C= 01000000000000 *** c -> ram[0] 02673 c -> data 02674 12 -> p 02675 return 02552 buffer -> rom address 02553 goto 02400 02426 goto 02632 02632 stack -> a ; A= 03000000000000 D= 00000000000000 02633 0 -> b[w] 02634 a + 1 -> a[xs] ; A= 03000000000100 02635 a + 1 -> a[xs] ; A= 03000000000200 02636 c + 1 -> c[xs] ; C= 01000000000100 02637 c + 1 -> c[xs] ; C= 01000000000200 02640 if a >= c[x] 02641 goto 02643 02643 a <-> c[m] ; A= 01000000000200 C= 03000000000200 02644 if c[m] = 0 02645 goto 02647 02646 a <-> c[w] ; A= 03000000000200 C= 01000000000200 02647 b <-> c[m] ; B= 01000000000000 C= 00000000000200 02650 if a >= c[x] 02651 goto 02676 02676 rom 6 03277 c - 1 -> c[xs] ; C= 00000000000100 03300 c - 1 -> c[xs] ; C= 00000000000000 03301 0 -> a[x] ; A= 03000000000000 03302 a - c -> a[s] 03303 if a[s] >= 1 03304 goto 03306 03305 rom 7 03706 goto 03704 03704 a + b -> a[w] ; A= 04000000000000 03705 c - 1 -> c[p] ; C= 09000000000000 03706 goto 03704 03707 shiftr a[w] ; A= 00400000000000 03710 p + 1 -> p ; P= 13 03711 if p # 13 03712 goto 03705 03713 c + 1 -> c[x] ; C= 09000000000001 03714 0 -> a[s] 03715 12 -> p ; P= 12 03716 0 -> b[w] ; B= 00000000000000 03717 if a[p] >= 1 03720 goto 03726 03721 shiftl a[w] ; A= 04000000000000 03722 c - 1 -> c[x] ; C= 09000000000000 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= 04000000000000 03733 c -> a[w] ; A= 04000000000000 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 02725 rom 2 01326 1 -> f1 01327 jsb 01167 01167 if s8 = 0 01170 goto 01123 01171 clearstatus ; S= ............ 01172 1 -> s8 ; S= ........8... 01173 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 01217 rom 1 00620 if s8 = 0 00621 goto 00531 00622 12 -> p 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= .12..... 00753 disptoggle 00754 c <-> m ; C= 10000000000221 M= 04000000000000 00755 shiftl a[w] ; A= 40000000000000 00756 0 -> s11 00757 0 -> f5 00760 if s11 = 0 00761 goto 00757 00757 0 -> f5 ; S= ........8..b 00760 if s11 = 0 ; f= .12..5.. 00761 goto 00757 00762 0 -> f5 ; f= .12..... 00763 rom 2 ; f= .12..5.. 01364 buffer -> rom address 01365 goto 01000 ; R/S in program ; s8 = 1 (running) 01042 goto 01101 01101 0 -> c[m] 01102 delayed select group 1 01103 c <-> m ; C= 04000000000000 M= 10000000000221 05104 delayed select rom 1 05105 goto 04604 04604 if s8 = 0 04605 goto 04405 04606 goto 04502 04502 shiftr a[w] ; A= 04000000000000 04503 c -> a[s] 04504 delayed select group 0 04505 rom 2 01106 goto 01354 01354 if s1 = 0 01355 goto 01213 01213 clearstatus ; S= ............ 01214 goto 01266 01266 1 -> f3 ; f= .123.5.. 01267 goto 01240 01240 jsb 01167 01167 if s8 = 0 01170 goto 01123 01123 clearstatus 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 display: 00531 0 -> s3 00532 1 -> f2 00533 1 -> p ; P= 1 00534 c <-> m ; C= 10000000000221 M= 04000000000000 00535 0 -> s11 00536 0 -> f3 ; S= ...........b f= .12..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= 04000000000221 04103 c <-> m ; C= 04000000000000 M= 10000000000221 04104 shiftr a[x] ; A= 04000000000022 04105 shiftr a[x] ; A= 04000000000002 04106 0 -> p 04107 if c[m] >= 1 04110 goto 04112 04112 b <-> c[w] ; B= 04000000000000 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= 04000000000000 04121 0 -> f2 ; f= .1...5.. 04122 return 04165 a + c -> a[x] 04166 jsb 04266 04266 a + 1 -> a[x] ; A= 04000000000003 04267 12 -> p ; P= 12 04270 goto 04124 04124 a - 1 -> a[x] ; A= 04000000000002 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 11 04124 a - 1 -> a[x] ; A= 04000000000001 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 10 04124 a - 1 -> a[x] ; A= 04000000000000 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 9 04124 a - 1 -> a[x] ; A= 04000000000999 04125 goto 04206 04126 0 -> a[w] ; A= 00000000000000 04127 c -> a[wp] 04130 a + c -> a[m] ; A= 04000000000000 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= 04000000000999 04175 goto 04361 04176 jsb 04272 04272 c <-> m ; C= 10000000000221 M= 04000000000000 04273 c -> a[x] ; A= 04000000000221 04274 c <-> m ; C= 04000000000000 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= 04000000000121 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= 04000000000021 04151 if a[xs] >= 1 04152 goto 04231 04153 0 -> a[x] ; A= 04000000000000 04154 a - 1 -> a[x] ; A= 04000000000999 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= .12..5.. 00533 1 -> p ; P= 1 00534 c <-> m ; C= 10000000000221 M= 04000000000000 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= 04000000000000 M= 10000000000221 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= 10000000000221 M= 04000000000000 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= 04000000000000 M= 10000000000221 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= 10000000000221 M= 04000000000000 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= 04000000000000 M= 10000000000221 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= 10000000000221 M= 04000000000000 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= 04000000000000 M= 10000000000221