65-start2 HP65 Logging started. ; S= ............ 00000 jsb 00301 00301 delayed select group 1 00302 rom 2 05303 clearregs 05304 1 -> f2 05305 1 -> f3 05306 clearstatus 05307 2 -> p ; P= 2 05310 load 2 ; C= 00000000000200 P= 1 05311 load 2 ; C= 00000000000220 P= 0 05312 load 1 ; C= 00000000000221 P= 15 05313 0 -> f5 ; S= ...........b 05314 1 -> f7 05315 jsb 05053 .05053 goto 05037 .05037 memory insert ; =053 .05040 1 -> f7 .05041 0 -> s11 ; S= ............ .05042 0 -> f5 ; f5 = pgm mem ready .05043 if s11 = 0 ; s11 is set if fN went 1->0 .05044 goto 05042 ; ... .05044 goto 05042 .05042 0 -> f5 ; S= ...........b .05043 if s11 = 0 ; !=0 so was "ready" .05044 goto 05042 .05045 0 -> f5 .05046 return ; so safe to finish up now 05316 jsb 05036 .05036 goto 05037 .05037 memory insert ; =036 .05040 1 -> f7 .05041 0 -> s11 ; S= ............ .05042 0 -> f5 .05043 if s11 = 0 .05044 goto 05042 ; ... .05044 goto 05042 .05042 0 -> f5 ; S= ...........b .05043 if s11 = 0 .05044 goto 05042 .05045 0 -> f5 .05046 return 05317 jsb 05010 : 05010 goto 05037 ; =010 05320 jsb 05024 : 05024 goto 05037 ; =024 05321 jsb 05052 : 05052 goto 05037 ; =052 05322 jsb 05053 : 05053 goto 05037 ; =053 05323 jsb 05034 : 05034 goto 05037 ; =034 05324 jsb 05016 : 05016 goto 05037 ; =016 05325 jsb 05062 : 05062 goto 05037 ; =062 05326 jsb 05052 : 05052 goto 05037 ; =052 05327 jsb 05053 : 05053 goto 05037 ; =053 05330 jsb 05033 : 05033 goto 05037 ; =033 05331 jsb 05010 : 05010 goto 05037 ; =010 05332 jsb 05023 : 05023 goto 05037 ; =023 05333 jsb 05052 : 05052 goto 05037 ; =052 05334 jsb 05053 : 05053 goto 05037 ; =053 05335 jsb 05032 : 05032 goto 05037 ; =032 05336 jsb 05015 : 05015 goto 05037 ; =015 05337 jsb 05052 : 05052 goto 05037 ; =052 05340 jsb 05053 : 05053 goto 05037 ; =053 05341 jsb 05030 : 05030 goto 05037 ; =030 05342 jsb 05021 : 05021 goto 05037 ; =021 05343 jsb 05052 : 05052 goto 05037 ; =052 ; f7=1 S= ...........b 05344 jsb 05011 05011 search for label 05012 goto 05041 05041 0 -> s11 ; S= ............ 05042 0 -> f5 05043 if s11 = 0 05044 goto 05042 05042 0 -> f5 05043 if s11 = 0 05044 goto 05042 05042 0 -> f5 05043 if s11 = 0 05044 goto 05042 05042 0 -> f5 05043 if s11 = 0 05044 goto 05042 05042 0 -> f5 ; S= ...........b 05043 if s11 = 0 05044 goto 05042 05045 0 -> f5 05046 return 05345 jsb 05352 05352 12 -> p ; P= 12 05353 0 -> b[w] 05354 b <-> c[w] ; B= 00000000000221 C= 00000000000000 05355 return 05346 goto 05357 05357 c -> data address 05360 a <-> c[w] 05361 c -> data ; 0 -> ram[0] 05362 a + 1 -> a[p] ; A= 01000000000000 05363 goto 05356 05356 a <-> c[w] ; A= 00000000000000 C= 01000000000000 05357 c -> data address 05360 a <-> c[w] ; A= 01000000000000 C= 00000000000000 05361 c -> data ; 0 -> ram[1] 05362 a + 1 -> a[p] ; A= 02000000000000 05363 goto 05356 ; C= 00000000000000 : c -> ram[2] : A= 03000000000000 ; C= 00000000000000 : c -> ram[3] : A= 04000000000000 ; C= 00000000000000 : c -> ram[4] : A= 05000000000000 ; C= 00000000000000 : c -> ram[5] : A= 06000000000000 ; C= 00000000000000 : c -> ram[6] : A= 07000000000000 ; C= 00000000000000 : c -> ram[7] : A= 08000000000000 ; C= 00000000000000 : c -> ram[8] : A= 09000000000000 ; C= 00000000000000 : c -> ram[9] : A= 00000000000000 05363 goto 05356 ; not done (because of carry ie 9->0) 05364 goto 05277 05277 b <-> c[w] ; B= 00000000000000 C= 00000000000221 05300 0 -> c[m] 05301 c <-> m ; C= 00000000000000 M =00000000000221 05302 goto 05216 05216 delayed select group 0 05217 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 =00000000000000 00535 0 -> s11 ; S= ............ 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= 00000000000221 04103 c <-> m ; C= 00000000000000 M =00000000000221 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] 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= 00000000000000 04121 0 -> f2 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= 00000000000221 M =00000000000000 04273 c -> a[x] ; A= 00000000000221 04274 c <-> m ; C= 00000000000000 M =00000000000221 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 ; ="0.00" 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 =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= 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= 00000000000000 M =00000000000221 00777 goto 00726 00726 ... 00777 goto 00726 00726 ... 00777 goto 00726 00726 ... 00777 goto 00726