65 prgm sto rcl 001: 23 : LBL 002: 11 : A 003: 33 : STO 004: 09 : 9 005: 33 08 : STO 8 006: 33 : STO 007: 61 : + 008: 01 : 1 009: 44 : CLx 010: 34 08 : RCL 8 011: 34 : RCL 012: 09 : 9 013: 24 : RTN HP65 Logging started. ; A= 05432100000999 B= 00000200999999 C= 05432100000004 S= 0........... P= 1 M =00000000000221 D= 05432100000004 waitloop1: 00726 if s9 = 0 00727 goto 00622 ; else 0 -> s9 : 1 -> s10 : disptoggle : goto 00622 waitloop2: 00622 ... ; P= 12 00623 if s0 = 0 00624 goto 00452 keypressed: 00625 p + 1 -> p ; P= 13 00626 if p # 12 00627 goto 00625 ; P= 14,15,0,1,2,...,11,12 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 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 01036 goto 01351 01351 rom 4 02352 0 -> f5 ; S= ...........b 02353 if c[m] = 0 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 ; looks for scan code [A] =036 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. Running 02377 goto 02260 02260 jsb 02127 ; wait for ready (f5 == 1) .02127 0 -> s11 .02130 0 -> f5 .02131 if s11 = 0 .02132 goto 02130 ; S= ........8.ab .02132 goto 02130 .02133 0 -> f5 .02134 return 02261 goto 02360 02360 0 -> c[m] ; clear prefix keys 02361 c <-> m ; C= 05432100000004 M =10000000000221 02362 goto 02045 02045 rom 0 00046 if s8 = 0 00047 goto 00216 ; would do 1 -> s10 00050 goto 00217 00217 rom 1 00620 if s8 = 0 00621 goto 00531 waitloop2: 00622 ... 00623 if s0 = 0 00624 goto 00452 00452 0 -> s10 ; S= ........8..b 00453 if s5 = 0 00454 goto 00750 ; if not running 00750 if s8 = 0 00751 goto 00441 ; else 00752 pointer advance 00753 disptoggle 00754 c <-> m ; C= 10000000000221 M =05432100000004 00755 shiftl a[w] ; A= 43210000099900 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 00761 goto 00757 00762 0 -> f5 00763 rom 2 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= 05432100000004 M =10010000000221 02124 clearstatus ; S= ............ 02125 1 -> s8 ; S= ........8... 02126 goto 02217 02217 rom 1 00620 if s8 = 0 00621 goto 00531 waitloop2: 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 00753 disptoggle 00754 c <-> m ; C= 10010000000221 M =05432100000004 00755 shiftl a[w] ; A= 32100000999000 00756 0 -> s11 00757 0 -> f5 00760 if s11 = 0 00761 goto 00757 00757 0 -> f5 ; S= ........8..b 00760 if s11 = 0 00761 goto 00757 00762 0 -> f5 00763 rom 2 01364 buffer -> rom address 01365 goto 01000 01036 goto 01351 01351 rom 4 02352 0 -> f5 02353 if c[m] = 0 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= 05432100000004 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 waitloop2: 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 00753 disptoggle 00754 c <-> m ; C= 10000000000221 M =05432100000004 00755 shiftl a[w] ; A= 21000009990000 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 00761 goto 00757 00762 0 -> f5 00763 rom 2 01364 buffer -> rom address 01365 goto 01000 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= 10000000100221 02121 if s8 = 0 02122 goto 02337 02123 c <-> m ; C= 05432100000004 M =10000000100221 02124 clearstatus ; S= ............ 02125 1 -> s8 ; S= ........8... 02126 goto 02217 02217 rom 1 00620 if s8 = 0 00621 goto 00531 waitloop2: 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 00753 disptoggle 00754 c <-> m ; C= 10000000100221 M =05432100000004 00755 shiftl a[w] ; A= 10000099900000 00756 0 -> s11 00757 0 -> f5 00760 if s11 = 0 00761 goto 00757 00757 0 -> f5 ; S= ........8..b 00760 if s11 = 0 00761 goto 00757 00762 0 -> f5 00763 rom 2 01364 buffer -> rom address 01365 goto 01000 01062 rom 5 02463 a + 1 -> a[x] ; A= 10000099900001 02464 a + 1 -> a[x] ; A= 10000099900002 02465 goto 02422 02422 a + 1 -> a[x] ; A= 10000099900003 02423 a + 1 -> a[x] ; A= 10000099900004 02424 a + 1 -> a[x] ; A= 10000099900005 02425 goto 02402 02402 a + 1 -> a[x] ; A= 10000099900006 02403 a + 1 -> a[x] ; A= 10000099900007 02404 a + 1 -> a[x] ; A= 10000099900008 02405 goto 02444 02444 a + 1 -> a[x] ; A= 10000099900009 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 01171 clearstatus ; S= ............ 01172 1 -> s8 ; S= ........8... 01173 return 01221 3 -> p ; P= 3 01222 rom 5 02623 shiftl a[x] ; A= 10000099900090 02624 shiftl a[x] ; A= 10000099900900 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= 10000000000221 00122 if c[p] = 0 00123 goto 00153 00153 jsb 00212 00212 0 -> c[m] 00213 c <-> m ; C= 05432100000004 M =10000000000221 00214 2 -> p ; P= 2 00215 return 00154 if s3 = 0 00155 goto 00323 00323 jsb 00165 00165 if a[xs] >= 1 00166 goto 00130 00130 0 -> b[w] ; B= 00000000000000 00131 shiftl a[w] ; A= 00000999009000 00132 p + 1 -> p ; P= 3 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 00009990090000 00132 p + 1 -> p ; P= 4 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 00099900900000 00132 p + 1 -> p ; P= 5 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 00999009000000 00132 p + 1 -> p ; P= 6 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 09990090000000 00132 p + 1 -> p ; P= 7 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 99900900000000 00132 p + 1 -> p ; P= 8 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 99009000000000 00132 p + 1 -> p ; P= 9 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 90090000000000 00132 p + 1 -> p ; P= 10 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 00900000000000 00132 p + 1 -> p ; P= 11 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 09000000000000 00132 p + 1 -> p ; P= 12 00133 if p # 12 00134 goto 00131 00135 a <-> c[w] ; A= 05432100000004 C= 09000000000000 00136 c -> data address 00137 a <-> c[w] ; A= 09000000000000 C= 05432100000004 00140 return *** c -> ram[9] 00324 c -> data 00325 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 waitloop2: 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 00753 disptoggle 00754 c <-> m ; C= 10000000000221 M =05432100000004 00755 shiftl a[w] ; A= 90000000000000 00756 0 -> s11 00757 0 -> f5 00760 if s11 = 0 00761 goto 00757 00757 0 -> f5 ; S= ........8..b 00760 if s11 = 0 00761 goto 00757 00762 0 -> f5 00763 rom 2 01364 buffer -> rom address 01365 goto 01000 01065 goto 01360 01360 rom 0 00361 buffer -> rom address 00362 goto 00000 00065 goto 00052 00052 a + 1 -> a[x] ; A= 90000000000001 00053 a + 1 -> a[x] ; A= 90000000000002 00054 a + 1 -> a[x] ; A= 90000000000003 00055 a + 1 -> a[x] ; A= 90000000000004 00056 a + 1 -> a[x] ; A= 90000000000005 00057 a + 1 -> a[x] ; A= 90000000000006 00060 a + 1 -> a[x] ; A= 90000000000007 00061 a + 1 -> a[x] ; A= 90000000000008 00062 if s3 = 0 00063 goto 00321 00321 jsb 00212 00212 0 -> c[m] 00213 c <-> m ; C= 05432100000004 M =10000000000221 00214 2 -> p ; P= 2 00215 return 00322 0 -> p ; P= 0 00323 jsb 00165 00165 if a[xs] >= 1 00166 goto 00130 00167 if s4 = 0 00170 goto 00173 00173 rom 2 01174 jsb 01167 01167 if s8 = 0 01170 goto 01123 01171 clearstatus ; S= ............ 01172 1 -> s8 ; S= ........8... 01173 return 01175 rom 1 00576 jsb 00675 00675 12 -> p ; P= 12 00676 1 -> f3 00677 dispoff 00700 c <-> m ; C= 10000000000221 M =05432100000004 00701 shiftl a[w] ; A= 00000000000080 00702 return 00577 if s3 = 0 00600 goto 00763 00763 rom 2 01364 buffer -> rom address 01365 goto 01000 01065 goto 01360 01360 rom 0 00361 buffer -> rom address 00362 goto 00000 00065 goto 00052 00052 a + 1 -> a[x] ; A= 00000000000081 00053 a + 1 -> a[x] ; A= 00000000000082 00054 a + 1 -> a[x] ; A= 00000000000083 00055 a + 1 -> a[x] ; A= 00000000000084 00056 a + 1 -> a[x] ; A= 00000000000085 00057 a + 1 -> a[x] ; A= 00000000000086 00060 a + 1 -> a[x] ; A= 00000000000087 00061 a + 1 -> a[x] ; A= 00000000000088 00062 if s3 = 0 00063 goto 00321 00321 jsb 00212 00212 0 -> c[m] 00213 c <-> m ; C= 05432100000004 M =10000000000221 00214 2 -> p ; P= 2 00215 return 00322 0 -> p ; P= 0 00323 jsb 00165 00165 if a[xs] >= 1 00166 goto 00130 00167 if s4 = 0 00170 goto 00173 00173 rom 2 01174 jsb 01167 01167 if s8 = 0 01170 goto 01123 01171 clearstatus ; S= ............ 01172 1 -> s8 ; S= ........8... 01173 return 01175 rom 1 00576 jsb 00675 00675 12 -> p ; P= 12 00676 1 -> f3 00677 dispoff 00700 c <-> m ; C= 10000000000221 M =05432100000004 00701 shiftl a[w] ; A= 00000000000880 00702 return 00577 if s3 = 0 00600 goto 00763 00763 rom 2 01364 buffer -> rom address 01365 goto 01000 01065 goto 01360 01360 rom 0 00361 buffer -> rom address 00362 goto 00000 00065 goto 00052 00052 a + 1 -> a[x] ; A= 00000000000881 00053 a + 1 -> a[x] ; A= 00000000000882 00054 a + 1 -> a[x] ; A= 00000000000883 00055 a + 1 -> a[x] ; A= 00000000000884 00056 a + 1 -> a[x] ; A= 00000000000885 00057 a + 1 -> a[x] ; A= 00000000000886 00060 a + 1 -> a[x] ; A= 00000000000887 00061 a + 1 -> a[x] ; A= 00000000000888 00062 if s3 = 0 00063 goto 00321 00321 jsb 00212 00212 0 -> c[m] 00213 c <-> m ; C= 05432100000004 M =10000000000221 00214 2 -> p ; P= 2 00215 return 00322 0 -> p ; P= 0 00323 jsb 00165 00165 if a[xs] >= 1 00166 goto 00130 00130 0 -> b[w] 00131 shiftl a[w] ; A= 00000000008880 00132 p + 1 -> p ; P= 1 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 00000000088800 00132 p + 1 -> p ; P= 2 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 00000000888000 00132 p + 1 -> p ; P= 3 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 00000008880000 00132 p + 1 -> p ; P= 4 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 00000088800000 00132 p + 1 -> p ; P= 5 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 00000888000000 00132 p + 1 -> p ; P= 6 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 00008880000000 00132 p + 1 -> p ; P= 7 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 00088800000000 00132 p + 1 -> p ; P= 8 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 00888000000000 00132 p + 1 -> p ; P= 9 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 08880000000000 00132 p + 1 -> p ; P= 10 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 88800000000000 00132 p + 1 -> p ; P= 11 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 88000000000000 00132 p + 1 -> p ; P= 12 00133 if p # 12 00134 goto 00131 00135 a <-> c[w] ; A= 05432100000004 C= 88000000000000 00136 c -> data address 00137 a <-> c[w] ; A= 88000000000000 C= 05432100000004 00140 return *** c -> ram[8] 00324 c -> data 00325 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 waitloop2: 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 00753 disptoggle 00754 c <-> m ; C= 10000000000221 M =05432100000004 00755 shiftl a[w] ; A= 80000000000000 00756 0 -> s11 00757 0 -> f5 00760 if s11 = 0 00761 goto 00757 00757 0 -> f5 ; S= ........8..b 00760 if s11 = 0 00761 goto 00757 00762 0 -> f5 00763 rom 2 01364 buffer -> rom address 01365 goto 01000 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= 10000000100221 02121 if s8 = 0 02122 goto 02337 02123 c <-> m ; C= 05432100000004 M =10000000100221 02124 clearstatus ; S= ............ 02125 1 -> s8 ; S= ........8... 02126 goto 02217 02217 rom 1 00620 if s8 = 0 00621 goto 00531 waitloop2: 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 00753 disptoggle 00754 c <-> m ; C= 10000000100221 M =05432100000004 00755 shiftl a[w] ; A= 00000000000000 00756 0 -> s11 00757 0 -> f5 00760 if s11 = 0 00761 goto 00757 00757 0 -> f5 ; S= ........8..b 00760 if s11 = 0 00761 goto 00757 00762 0 -> f5 00763 rom 2 01364 buffer -> rom address 01365 goto 01000 01026 goto 01311 01311 a + 1 -> a[x] ; A= 00000000000001 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 01315 rom 4 02316 5 -> p ; P= 5 02317 if c[p] = 0 02320 goto 02060 02321 0 -> c[m] ; C= 10000000000221 02322 shiftl a[x] ; A= 00000000000010 02323 shiftl a[x] ; A= 00000000000100 02324 c + 1 -> c[p] ; C= 10000000100221 02325 c + 1 -> c[p] ; C= 10000000200221 02326 a - 1 -> a[xs] ; A= 00000000000000 02327 goto 02325 02325 c + 1 -> c[p] ; C= 10000000300221 02326 a - 1 -> a[xs] ; A= 00000000000900 02327 goto 02325 02330 c <-> m ; C= 05432100000004 M =10000000300221 02331 goto 02217 02217 rom 1 00620 if s8 = 0 00621 goto 00531 waitloop2: 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 00753 disptoggle 00754 c <-> m ; C= 10000000300221 M =05432100000004 00755 shiftl a[w] ; A= 00000000009000 00756 0 -> s11 00757 0 -> f5 00760 if s11 = 0 00761 goto 00757 00757 0 -> f5 ; S= ........8..b 00760 if s11 = 0 00761 goto 00757 00762 0 -> f5 00763 rom 2 01364 buffer -> rom address 01365 goto 01000 01004 rom 5 02405 goto 02444 02444 a + 1 -> a[x] ; A= 00000000009001 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 01171 clearstatus ; S= ............ 01172 1 -> s8 ; S= ........8... 01173 return 01221 3 -> p ; P= 3 01222 rom 5 02623 shiftl a[x] ; A= 00000000009010 02624 shiftl a[x] ; A= 00000000009100 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= 10000000200221 00122 if c[p] = 0 00123 goto 00153 00124 c - 1 -> c[p] ; C= 10000000100221 00125 2 -> p ; P= 2 00126 jsb 00164 00164 1 -> s4 ; S= ....4...8... 00165 if a[xs] >= 1 00166 goto 00130 00130 0 -> b[w] 00131 shiftl a[w] ; A= 00000000091000 00132 p + 1 -> p ; P= 3 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 00000000910000 00132 p + 1 -> p ; P= 4 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 00000009100000 00132 p + 1 -> p ; P= 5 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 00000091000000 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= 10000000100221 C= 91000000000000 00136 c -> data address 00137 a <-> c[w] ; A= 91000000000000 C= 10000000100221 00140 return 00127 goto 00367 00367 5 -> p ; P= 5 00370 c - 1 -> c[p] ; C= 10000000000221 00371 goto 00021 00021 c - 1 -> c[p] ; C= 10000000900221 00022 goto 00200 00023 jsb 00266 00266 0 -> c[m] ; C= 10000000000221 00267 c <-> m ; C= 05432100000004 M =10000000000221 00270 12 -> p ; P= 12 00271 c -> a[w] ; A= 05432100000004 *** ram[1] -> c 00272 data -> c 00273 a <-> c[w] *** 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= 05432100000104 02635 a + 1 -> a[xs] ; A= 05432100000204 02636 c + 1 -> c[xs] ; C= 05432100000104 02637 c + 1 -> c[xs] ; C= 05432100000204 02640 if a >= c[x] 02641 goto 02643 02643 a <-> c[m] 02644 if c[m] = 0 02645 goto 02647 02646 a <-> c[w] 02647 b <-> c[m] ; B= 05432100000000 C= 00000000000204 02650 if a >= c[x] 02651 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] ; A= 10864200000000 03705 c - 1 -> c[p] ; C= 09000000000004 03706 goto 03704 03707 shiftr a[w] ; A= 01086420000000 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] ; B= 00000000000000 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= 01086420000005 03733 c -> a[w] ; A= 01086420000005 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 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 01341 rom 0 00342 jsb 00271 00271 c -> a[w] *** ram[1] -> c 00272 data -> c ; C= 05432100000004 00273 a <-> c[w] ; A= 05432100000004 C= 01086420000005 *** c -> ram[1] 00274 c -> data 00275 return 00343 a <-> c[w] ; A= 01086420000005 C= 05432100000004 00344 goto 00217 00217 rom 1 00620 if s8 = 0 00621 goto 00531 waitloop2: 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 00753 disptoggle 00754 c <-> m ; C= 10000000000221 M =05432100000004 00755 shiftl a[w] ; A= 10864200000050 00756 0 -> s11 00757 0 -> f5 00760 if s11 = 0 00761 goto 00757 00757 0 -> f5 ; S= ........8..b 00760 if s11 = 0 00761 goto 00757 00762 0 -> f5 00763 rom 2 01364 buffer -> rom address 01365 goto 01000 01070 goto 01234 01234 0 -> c[m] 01235 c <-> m ; C= 05432100000004 M =10000000000221 01236 0 -> c[w] ; C= 00000000000000 01237 0 -> f1 01240 jsb 01167 01167 if s8 = 0 01170 goto 01123 01171 clearstatus ; S= ............ 01172 1 -> s8 ; S= ........8... 01173 return 01241 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 00621 goto 00531 waitloop2: 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 00753 disptoggle 00754 c <-> m ; C= 10000000000221 M =00000000000000 00755 shiftl a[w] ; A= 08642000000500 00756 0 -> s11 00757 0 -> f5 00760 if s11 = 0 00761 goto 00757 00757 0 -> f5 ; S= ........8..b 00760 if s11 = 0 00761 goto 00757 00762 0 -> f5 00763 rom 2 01364 buffer -> rom address 01365 goto 01000 01017 goto 01360 01360 rom 0 00361 buffer -> rom address 00362 goto 00000 00017 goto 00032 00032 a + 1 -> a[x] ; A= 08642000000501 00033 a + 1 -> a[x] ; A= 08642000000502 00034 a + 1 -> a[x] ; A= 08642000000503 00035 a + 1 -> a[x] ; A= 08642000000504 00036 a + 1 -> a[x] ; A= 08642000000505 00037 a + 1 -> a[x] ; A= 08642000000506 00040 a + 1 -> a[x] ; A= 08642000000507 00041 a + 1 -> a[x] ; A= 08642000000508 00042 if s3 = 0 00043 goto 00327 00327 jsb 00212 00212 0 -> c[m] 00213 c <-> m ; C= 00000000000000 M =10000000000221 00214 2 -> p ; P= 2 00215 return 00330 0 -> p ; P= 0 00331 jsb 00165 00165 if a[xs] >= 1 00166 goto 00130 00130 0 -> b[w] 00131 shiftl a[w] ; A= 86420000005080 00132 p + 1 -> p ; P= 1 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 64200000050800 00132 p + 1 -> p ; P= 2 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 42000000508000 00132 p + 1 -> p ; P= 3 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 20000005080000 00132 p + 1 -> p ; P= 4 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 00000050800000 00132 p + 1 -> p ; P= 5 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 00000508000000 00132 p + 1 -> p ; P= 6 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 00005080000000 00132 p + 1 -> p ; P= 7 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 00050800000000 00132 p + 1 -> p ; P= 8 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 00508000000000 00132 p + 1 -> p ; P= 9 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 05080000000000 00132 p + 1 -> p ; P= 10 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 50800000000000 00132 p + 1 -> p ; P= 11 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 08000000000000 00132 p + 1 -> p ; P= 12 00133 if p # 12 00134 goto 00131 00135 a <-> c[w] ; A= 00000000000000 C= 08000000000000 00136 c -> data address 00137 a <-> c[w] ; A= 08000000000000 C= 00000000000000 00140 return 00332 0 -> s11 ; S= ........8... 00333 0 -> f1 00334 if s11 = 0 00335 goto 00337 *** ram[8] -> c 00337 data -> c ; C= 05432100000004 00340 goto 00325 00325 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 waitloop2: 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 00753 disptoggle 00754 c <-> m ; C= 10000000000221 M =05432100000004 00755 shiftl a[w] ; A= 80000000000000 00756 0 -> s11 00757 0 -> f5 00760 if s11 = 0 00761 goto 00757 00757 0 -> f5 ; S= ........8..b 00760 if s11 = 0 00761 goto 00757 00762 0 -> f5 00763 rom 2 01364 buffer -> rom address 01365 goto 01000 01012 goto 01347 01347 rom 4 02350 buffer -> rom address 02351 goto 02000 02012 goto 02156 02156 p - 1 -> p ; P= 11 02157 p - 1 -> p ; P= 10 02160 p - 1 -> p ; P= 9 02161 p - 1 -> p ; P= 8 02162 0 -> c[m] 02163 p - 1 -> p ; P= 7 02164 p - 1 -> p ; P= 6 02165 p - 1 -> p ; P= 5 02166 p - 1 -> p ; P= 4 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= 10000000010221 02121 if s8 = 0 02122 goto 02337 02123 c <-> m ; C= 05432100000004 M =10000000010221 02124 clearstatus ; S= ............ 02125 1 -> s8 ; S= ........8... 02126 goto 02217 02217 rom 1 00620 if s8 = 0 00621 goto 00531 waitloop2: 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 00753 disptoggle 00754 c <-> m ; C= 10000000010221 M =05432100000004 00755 shiftl a[w] ; A= 00000000000000 00756 0 -> s11 00757 0 -> f5 00760 if s11 = 0 00761 goto 00757 00757 0 -> f5 ; S= ........8..b 00760 if s11 = 0 00761 goto 00757 00762 0 -> f5 00763 rom 2 01364 buffer -> rom address 01365 goto 01000 01062 rom 5 02463 a + 1 -> a[x] ; A= 00000000000001 02464 a + 1 -> a[x] ; A= 00000000000002 02465 goto 02422 02422 a + 1 -> a[x] ; A= 00000000000003 02423 a + 1 -> a[x] ; A= 00000000000004 02424 a + 1 -> a[x] ; A= 00000000000005 02425 goto 02402 02402 a + 1 -> a[x] ; A= 00000000000006 02403 a + 1 -> a[x] ; A= 00000000000007 02404 a + 1 -> a[x] ; A= 00000000000008 02405 goto 02444 02444 a + 1 -> a[x] ; A= 00000000000009 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 01171 clearstatus ; S= ............ 01172 1 -> s8 ; S= ........8... 01173 return 01221 3 -> p ; P= 3 01222 rom 5 02623 shiftl a[x] ; A= 00000000000090 02624 shiftl a[x] ; A= 00000000000900 02625 if c[p] >= 1 02626 goto 02566 02627 rom 0 00230 4 -> p ; P= 4 00231 if c[p] = 0 00232 goto 00116 00233 jsb 00212 00212 0 -> c[m] ; C= 10000000000221 00213 c <-> m ; C= 05432100000004 M =10000000000221 00214 2 -> p ; P= 2 00215 return 00234 if s3 = 0 00235 goto 00331 00331 jsb 00165 00165 if a[xs] >= 1 00166 goto 00130 00130 0 -> b[w] 00131 shiftl a[w] ; A= 00000000009000 00132 p + 1 -> p ; P= 3 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 00000000090000 00132 p + 1 -> p ; P= 4 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 00000000900000 00132 p + 1 -> p ; P= 5 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 00000009000000 00132 p + 1 -> p ; P= 6 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 00000090000000 00132 p + 1 -> p ; P= 7 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 00000900000000 00132 p + 1 -> p ; P= 8 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 00009000000000 00132 p + 1 -> p ; P= 9 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 00090000000000 00132 p + 1 -> p ; P= 10 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 00900000000000 00132 p + 1 -> p ; P= 11 00133 if p # 12 00134 goto 00131 00131 shiftl a[w] ; A= 09000000000000 00132 p + 1 -> p ; P= 12 00133 if p # 12 00134 goto 00131 00135 a <-> c[w] ; A= 05432100000004 C= 09000000000000 00136 c -> data address 00137 a <-> c[w] ; A= 09000000000000 C= 05432100000004 00140 return 00332 0 -> s11 00333 0 -> f1 ; S= ........8..b 00334 if s11 = 0 00335 goto 00337 00336 c -> stack *** ram[9] -> c 00337 data -> c 00340 goto 00325 00325 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 waitloop2: 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 00753 disptoggle 00754 c <-> m ; C= 10000000000221 M =05432100000004 00755 shiftl a[w] ; A= 90000000000000 00756 0 -> s11 00757 0 -> f5 00760 if s11 = 0 00761 goto 00757 00757 0 -> f5 ; S= ........8..b 00760 if s11 = 0 00761 goto 00757 00762 0 -> f5 00763 rom 2 01364 buffer -> rom address 01365 goto 01000 01052 goto 01347 01347 rom 4 02350 buffer -> rom address 02351 goto 02000 02052 goto 02164 02164 p - 1 -> p ; P= 11 02165 p - 1 -> p ; P= 10 02166 p - 1 -> p ; P= 9 02167 if p # 8 02170 goto 02305 02305 if c[m] = 0 02306 goto 02220 02220 if p # 9 02221 goto 02120 02222 if s3 = 0 02223 goto 02240 02240 if s8 = 0 02241 goto 02332 02242 if c[s] = 0 02243 goto 02210 02244 c - 1 -> c[s] ; C= 00000000000221 02245 if c[s] = 0 02246 goto 02334 02334 0 -> c[ms] 02335 c <-> m ; C= 05432100000004 M =00000000000221 02336 rom 1 00737 1 -> f3 00740 clearstatus ; S= ............ 00741 goto 00620 00620 if s8 = 0 00621 goto 00531 display: 00531 ... 00732 disptoggle 00733 goto 00622 waitloop2: 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 display: 00531 ... 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 waitloop2: 00622 ... 00777 goto 00726 00726 if s9 = 0 00727 goto 00622 waitloop2: 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 display: 00531 ... 00777 goto 00726 ; C= 05432100000004 M =00000000000221