5 CHS f √ (flashing display) CLx "0.00" HP65 Logging started. ; A= 95000000000999 B= 02009999999999 C= 95000000000000 ; S= 0........... f= .12..5.. P= 1 M= 00000010000221 ; ( 5 CHS and f already pressed ) 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= 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= 00000010000221 M= 95000000000000 00701 shiftl a[w] ; A= 50000000009990 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.. ; [9] was pressed (scancode 062) for f root 01062 rom 5 02463 a + 1 -> a[x] ; A= 50000000009991 02464 a + 1 -> a[x] ; A= 50000000009992 02465 goto 02422 02422 a + 1 -> a[x] ; A= 50000000009993 02423 a + 1 -> a[x] ; A= 50000000009994 02424 a + 1 -> a[x] ; A= 50000000009995 02425 goto 02402 02402 a + 1 -> a[x] ; A= 50000000009996 02403 a + 1 -> a[x] ; A= 50000000009997 02404 a + 1 -> a[x] ; A= 50000000009998 02405 goto 02444 02444 a + 1 -> a[x] ; A= 50000000009999 02445 goto 02506 02506 if c[m] = 0 ; no c[7] is set because f was pressed 02507 goto 02736 02510 rom 2 01111 goto 01220 01220 jsb 01167 01167 if s8 = 0 ; if not running 01170 goto 01123 01123 clearstatus 01124 return 01221 3 -> p ; P= 3 01222 rom 5 02623 shiftl a[x] ; A= 50000000009990 02624 shiftl a[x] ; A= 50000000009900 02625 if c[p] >= 1 ; if g was pressed 02626 goto 02566 02627 rom 0 00230 4 -> p ; P= 4 00231 if c[p] = 0 ; if not RCL 00232 goto 00116 00116 5 -> p ; P= 5 00117 if c[p] = 0 ; if not STO 00120 goto 00206 00206 if s3 = 0 ; if in run mode 00207 goto 00144 00144 rom 4 02145 11 -> p ; P= 11 02146 if c[p] >= 1 ; if GTO 02147 goto 02257 02150 10 -> p ; P= 10 02151 if c[p] >= 1 ; if LBL 02152 goto 02360 02153 rom 5 02554 goto 02613 02613 7 -> p ; P= 7 02614 if c[p] = 0 ; if not f 02615 goto 02575 02616 jsb 02665 ; but it was f so we're still here .02665 0 -> c[m] ; C= 00000000000221 (clear prefixes) .02666 c <-> m ; C= 95000000000000 M= 00000000000221 (X to C, state to M) .02667 0 -> b[w] ; B= 00000000000000 .02670 b <-> c[w] ; B= 95000000000000 C= 00000000000000 (X in B) .02671 c -> data address ; select LastX mem .02672 b <-> c[w] ; B= 00000000000000 C= 95000000000000 (X in C) *** c -> ram[0] .02673 c -> data ; save LastX .02674 12 -> p ; P= 12 .02675 return 02617 a + 1 -> a[xs] ; A= 50000000009000 02620 goto 02500 02621 0 -> b[w] 02622 jsb 02457 02457 rom 3 01460 c -> a[w] ; A= 95000000000000 01461 if s1 = 0 ; if not data entry in progress 01462 goto 01454 01454 rom 6 03055 b <-> c[w] ; B= 95000000000000 C= 00000000000000 03056 4 -> p ; P= 4 03057 goto 03336 03336 c + 1 -> c[s] ; C= 10000000000000 03337 if p # 0 03340 goto 03273 03273 p - 1 -> p ; P= 3 03274 a + b -> a[ms] ; A= 90000000000000 03275 goto 03333 ; doesn't go because sign was 9 so carry=1 ; square root of a negative number 03276 rom 5 02677 clearstatus 02700 0 -> c[w] ; C= 00000000000000 (set result to 0?) 02701 1 -> s5 ; S= .....5...... (set error flag =1) 02702 goto 02717 02717 rom 2 01320 1 -> f3 ; display needed 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= 00000000000221 M= 00000000000000 00535 0 -> s11 00536 0 -> f3 ; S= .....5.....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= 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= 90000000000221 04103 c <-> m ; C= 00000000000000 M= 00000000000221 04104 shiftr a[x] ; A= 90000000000022 04105 shiftr a[x] ; A= 90000000000002 04106 0 -> p 04107 if c[m] >= 1 04110 goto 04112 04111 0 -> c[x] 04112 b <-> c[w] ; B= 00000000000000 C= 95000000000000 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= .1...5.. 04122 return 04165 a + c -> a[x] 04166 jsb 04266 04266 a + 1 -> a[x] ; A= 90000000000003 04267 12 -> p ; P= 12 04270 goto 04124 04124 a - 1 -> a[x] ; A= 90000000000002 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 11 04124 a - 1 -> a[x] ; A= 90000000000001 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 10 04124 a - 1 -> a[x] ; A= 90000000000000 04125 goto 04206 04206 if p # 2 04207 goto 04123 04123 p - 1 -> p ; P= 9 04124 a - 1 -> a[x] ; A= 90000000000999 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 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 (continues until x=99) ; 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 ; but doesn't because carry=1 ; 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= 00000000000898 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 ; again, doesn't happen (carry=1) ; 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= 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= 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 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 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 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= 00000000000809 ; C= 00000000000910 S= 0....5...... ; C= 00000000000011 ... ; 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 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 ; P= 15 ; P= 0 ... 00625 p + 1 -> p ; P= 12 00626 if p # 12 00627 goto 00625 00630 0 -> s0 ; S= .....5...... 00631 if s10 = 0 00632 goto 00641 00641 if s5 = 0 00642 goto 00734 00643 goto 00737 00737 1 -> f3 ; f= .1.3.5.. 00740 clearstatus ; S= ............ 00741 goto 00620 00620 if s8 = 0 00621 goto 00531 display: 00531 0 -> s3 00532 1 -> f2 ; f= .123.5.. 00533 1 -> p ; P= 1 00534 c <-> m ; C= 00000000000221 M= 00000000000000 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= 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] ; 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= .1...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= 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 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= 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 waitloop: 00726 ... 00777 goto 00726 00726 ... 00777 goto 00726 00726 ... 00777 goto 00726