{"id":2106,"date":"2018-04-14T12:58:57","date_gmt":"2018-04-14T12:58:57","guid":{"rendered":"http:\/\/www.sydneysmith.com\/wordpress\/?p=2106"},"modified":"2018-04-14T12:58:57","modified_gmt":"2018-04-14T12:58:57","slug":"hp-29c-keypress-routine","status":"publish","type":"post","link":"https:\/\/www.sydneysmith.com\/wordpress\/2106\/hp-29c-keypress-routine\/","title":{"rendered":"HP-29C Keypress Routine"},"content":{"rendered":"

So, you bought an old calculator; or a new one a very long time ago. You press a button and an answer pops out. How does it get from the first thing, to the second? This’ll answer the “getting from” part. I’ll leave the “getting to” part to later (get the HP-65 book<\/a> if you’re not good at waiting). Here’s what happens …<\/p>\n

Pressing a key results in the s15 flag inside the calculator getting set and a scancode being passed to its processor. (See HP-29C Wait Loop<\/a> and HP-29 Scan Codes<\/a>).<\/p>\n

The Wait Loop is waiting for something to happen, such as s15 getting set. This article covers what the microcode inside the calculator does as a result.<\/p>\n

Here’s part of the Wait Loop:
\n<\/p>\n

\r\n00173: if 0 = s 15 then goto 00152\r\n00152: ...\r\n00166: ... then goto 00173\r\n<\/pre>\n
<\/code>
\nIt checks that there isn’t a key press, goes to 00152, checks some other things, and then ends up back at 00173 again.<\/p>\n
Here’s what happens is s15 isn’t 0:
\n<\/p>\n
\r\n(press the \"x<->y\" key, scan code 0x43)\r\n(s 15 gets set, shown here as \"S= ..F\")\r\n00156: if 0 = s 11 then goto 00165         ; S=...3.5...9.....F\r\n00165: 0 -> s 5                            ;\r\n00166: if 1 = s 5 then goto 00173          ;\r\n00173: if 0 = s 15 then goto 00152         ; it's not, so we're not going\r\n00175: ...                                 ;\r\n<\/pre>\n
<\/code>
\nWe’re no longer in the loop – we didn’t go to 00152. The “if (something) then goto (somewhere)” instruction is a  two-word instruction. We went instead, to the next instruction after 00173 – to 00175. That makes 00175 the “keypressed” address. It looks like:
\n<\/p>\n
\r\n00175: display off                         ;\r\n00176: b exchange c[w]                     ; B=00000000000000 C=29000000000000\r\n00177: keys to a                           ; A=0000FFFFFFF430\r\n00200: 0 -> s 13                           ;\r\n<\/pre>\n
<\/code>
\nIt turns the display off and we see that as a blink when we press a key. It saves anything in the C register, by putting it in B for now, because it is about to use A and C to work some things out. The keys to a” instruction puts the current scan code in A[2] and A[1]. You can see 43 there. Remember that we pressed the “x<->y” key which has a scan code of 0x43. It also clears s13. I don’t know why as yet.<\/p>\n
The next thing it does is multiply the scan code row (the 4) by 5 and add the scan code column. This is a simple way of reducing the range down to something smaller. If you look at the HP-29 scan code article, you’ll see that column numbers are all within 0-4 so multiplying row by 5 and adding column makes sense. In theory, you could reduce a range of (potentially) 00-FF down to 35 keys. Scan codes are easier for hardware. A short list of possible keys is easier for software. In practice, the row numbers range from 4-D(=13) so it isn’t quite as neat as it could be; but it does reduce the span of the jump table.<\/p>\n
The row*5+col code looks like this:
\n<\/p>\n
\r\n00201: binary                              ;\r\n00202: 0 -> c[x]                           ;\r\n00203: c + 1 -> c[x]                       ; C=29000000000001\r\n00204: a - 1 -> a[xs]                      ; A=0000FFFFFFF330\r\n00205: if n\/c goto 0203                    ;\r\n00203: c + 1 -> c[x]                       ; C=29000000000002\r\n00204: a - 1 -> a[xs]                      ; A=0000FFFFFFF230\r\n00205: if n\/c goto 0203                    ;\r\n00203: c + 1 -> c[x]                       ; C=29000000000003\r\n00204: a - 1 -> a[xs]                      ; A=0000FFFFFFF130\r\n00205: if n\/c goto 0203                    ;\r\n00203: c + 1 -> c[x]                       ; C=29000000000004\r\n00204: a - 1 -> a[xs]                      ; A=0000FFFFFFF030\r\n00205: if n\/c goto 0203                    ;\r\n00203: c + 1 -> c[x]                       ; C=29000000000005\r\n00204: a - 1 -> a[xs]                      ; A=0000FFFFFFFF30\r\n00205: if n\/c goto 0203                    ;\r\n00206: c - 1 -> c[x]                       ; C=29000000000004 c[0]= was a[2]\r\n00207: 0 -> a[xs]                          ; A=0000FFFFFFF030\r\n00210: shift right a[x]                    ; A=0000FFFFFFF003 a[0]= was a[1]\r\n00211: a + c -> a[x]                       ; A=0000FFFFFFF007 a[x]= was a[2]+a[1]\r\n00212: c + c -> c[x]                       ; C=29000000000008 c[0]= 2x was a[2]\r\n00213: c + c -> c[x]                       ; C=29000000000010 c[0]= 4x was a[2]\r\n00214: a + c -> a[x]                       ; A=0000FFFFFFF017 a[x]= 5x was a[2] + was a[1]\r\n<\/pre>\n
<\/code>
\n00203-00205 is a loop reducing the row number by 1 each time and adding 1 to C[0]. It is like doing “a -> c [xs]” then “shift right a[x]” twice (A[2]->C[2]; C[2]->C[1]->C[0]). We end up with the 4 from 0x43 in C[0].<\/p>\n
We still have the 3 from 0x43 in A[1] so 00210 moves it into A[0].<\/p>\n
As shown, the sequence 00211-00214: adds row+col (4+3=7), sets C[x] to 4*row (4*4=0x10), and adds that too. We get (row+col + 4*row = 5*row+col). For 0x43, row=4, col=3, 5*4+3= 23= 1*16+7=) 0x17 in A[x].<\/p>\n
The next bit looks a little confusing; but it is really just a jump to 00400 + 5*row+col
\n<\/p>\n
\r\n00215: shift left a[x]                     ; A=0000FFFFFFF170\r\n00216: p <- 1                              ; P= 1\r\n00217: m1 -> c                             ; C=00000000000000\r\n00220: 0 -> c[x]                           ;\r\n00221: delayed rom 1                       ; to 00400-00777\r\n00222: a -> rom address                    ; 0x17 = 10111 = 027\r\n; scancode 043 -> row4,col3 -> 5*4+3 = 23\r\n; 23= 1*16+7 so hex  = 0x17\r\n; 23= 2* 8+7 so octal= 027 \r\n00427: if n\/c goto 0151                    ; 00400 + 5*row + col\r\n<\/pre>\n
<\/code>
\nYou end up with:<\/p>\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n
Keycode<\/td>\nKey<\/td>\nScan Code<\/td>\nGoto<\/td>\n<\/tr>\n
11<\/td>\nSST<\/td>\n0xb3<\/td>\n00472<\/td>\n<\/tr>\n
12<\/td>\nGSB<\/td>\n0xb2<\/td>\n00471<\/td>\n<\/tr>\n
13<\/td>\nGTO<\/td>\n0xb1<\/td>\n00470<\/td>\n<\/tr>\n
14<\/td>\nf  <\/td>\n0xb0<\/td>\n00467<\/td>\n<\/tr>\n
15<\/td>\ng  <\/td>\n0xb4<\/td>\n00473<\/td>\n<\/tr>\n
21<\/td>\nx<->y<\/td>\n0x43<\/td>\n00427<\/td>\n<\/tr>\n
22<\/td>\nRv <\/td>\n0x42<\/td>\n00426<\/td>\n<\/tr>\n
23<\/td>\nSTO<\/td>\n0x41<\/td>\n00425<\/td>\n<\/tr>\n
24<\/td>\nRCL<\/td>\n0x40<\/td>\n00424<\/td>\n<\/tr>\n
25<\/td>\nSUM<\/td>\n0x44<\/td>\n00430<\/td>\n<\/tr>\n
31<\/td>\nENTER<\/td>\n0xd3<\/td>\n00504<\/td>\n<\/tr>\n
33<\/td>\nCHS<\/td>\n0xd1<\/td>\n00502<\/td>\n<\/tr>\n
34<\/td>\nEEX<\/td>\n0xd0<\/td>\n00501<\/td>\n<\/tr>\n
35<\/td>\nCLx<\/td>\n0xd4<\/td>\n00505<\/td>\n<\/tr>\n
41<\/td>\n–<\/td>\n0x63<\/td>\n00441<\/td>\n<\/tr>\n
42<\/td>\n7<\/td>\n0x62<\/td>\n00440<\/td>\n<\/tr>\n
43<\/td>\n8<\/td>\n0x61<\/td>\n00437<\/td>\n<\/tr>\n
44<\/td>\n9<\/td>\n0x60<\/td>\n00436<\/td>\n<\/tr>\n
51<\/td>\n+<\/td>\n0xa3<\/td>\n00465<\/td>\n<\/tr>\n
52<\/td>\n4<\/td>\n0xa2<\/td>\n00464<\/td>\n<\/tr>\n
53<\/td>\n5<\/td>\n0xa1<\/td>\n00463<\/td>\n<\/tr>\n
54<\/td>\n6<\/td>\n0xa0<\/td>\n00462<\/td>\n<\/tr>\n
61<\/td>\nx<\/td>\n0x73<\/td>\n00446<\/td>\n<\/tr>\n
62<\/td>\n1<\/td>\n0x72<\/td>\n00445<\/td>\n<\/tr>\n
63<\/td>\n2<\/td>\n0x71<\/td>\n00444<\/td>\n<\/tr>\n
64<\/td>\n3<\/td>\n0x70<\/td>\n00443<\/td>\n<\/tr>\n
71<\/td>\n\/<\/td>\n0x93<\/td>\n00460<\/td>\n<\/tr>\n
72<\/td>\n0<\/td>\n0x92<\/td>\n00457<\/td>\n<\/tr>\n
73<\/td>\n.<\/td>\n0x91<\/td>\n00456<\/td>\n<\/tr>\n
74<\/td>\nR\/S<\/td>\n0x90<\/td>\n00455<\/td>\n<\/tr>\n<\/table>\n","protected":false},"excerpt":{"rendered":"
So, you bought an old calculator; or a new one a very long time ago. You press a button and an answer pops out. How does it get from the first thing, to the second? This’ll answer the “getting from” part. I’ll leave the “getting to” part to later (get the HP-65 book if you’re … Continue reading HP-29C Keypress Routine<\/span> →<\/span><\/a><\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":[],"categories":[16,5,66],"tags":[],"_links":{"self":[{"href":"https:\/\/www.sydneysmith.com\/wordpress\/wp-json\/wp\/v2\/posts\/2106"}],"collection":[{"href":"https:\/\/www.sydneysmith.com\/wordpress\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.sydneysmith.com\/wordpress\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.sydneysmith.com\/wordpress\/wp-json\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"https:\/\/www.sydneysmith.com\/wordpress\/wp-json\/wp\/v2\/comments?post=2106"}],"version-history":[{"count":2,"href":"https:\/\/www.sydneysmith.com\/wordpress\/wp-json\/wp\/v2\/posts\/2106\/revisions"}],"predecessor-version":[{"id":2108,"href":"https:\/\/www.sydneysmith.com\/wordpress\/wp-json\/wp\/v2\/posts\/2106\/revisions\/2108"}],"wp:attachment":[{"href":"https:\/\/www.sydneysmith.com\/wordpress\/wp-json\/wp\/v2\/media?parent=2106"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.sydneysmith.com\/wordpress\/wp-json\/wp\/v2\/categories?post=2106"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.sydneysmith.com\/wordpress\/wp-json\/wp\/v2\/tags?post=2106"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}