{"id":1175,"date":"2015-10-30T04:39:17","date_gmt":"2015-10-30T04:39:17","guid":{"rendered":"http:\/\/www.sydneysmith.com\/wordpress\/?p=1175"},"modified":"2017-05-14T01:45:53","modified_gmt":"2017-05-14T01:45:53","slug":"hp67-error-routine","status":"publish","type":"post","link":"https:\/\/www.sydneysmith.com\/wordpress\/1175\/hp67-error-routine\/","title":{"rendered":"HP67 Error Routine"},"content":{"rendered":"<p>The HP67 Error routine displays &#8220;Error&#8221;, flashes once (blank out and then comes back) and then waits for a keypress to clear the error message. It works like this <!--more--><\/p>\n<pre>\r\n01247 0 -&gt; a[w]\r\n01250 0 -&gt; c[w]\r\n01251 0 -&gt; s 2\r\n01252 p &lt;- 13\r\n01253 load constant 14 ; E\r\n01254 load constant 10 ; r\r\n01255 load constant 10 ; r\r\n01256 load constant 12 ; o\r\n01257 load constant 10 ; r\r\n\r\n(C=eaaca000000000)\r\n\r\n01260 binary\r\n01261 c - 1 -&gt; c[wp]\r\n\r\n(C=eaacafffffffff)\r\n\r\n01262 a exchange c[w]\r\n01263 b exchange c[w]\r\n01264 display off\r\n01265 display toggle   ; show \"Error\"\r\n01266 m1 exch c\r\n01267 p &lt;- 2\r\n01270 load constant 4\r\n\r\n(C=00000000000401)\r\n\r\n; wait 0x401 \r\n01271 c - 1 -&gt; c[x]\r\n01272 if n\/c go to 01271\r\n(01271 - 01272) * n\r\n\r\n(C=...)\r\n(C=00000000000004)\r\n(C=00000000000003)\r\n(C=00000000000002)\r\n(C=00000000000001)\r\n(C=00000000000000)\r\n(C=00000000000fff)\r\n\r\n01272 if n\/c go to 01271\r\n01273 display toggle      ; blank\r\n\r\n; wait 0xff\r\n01274 c - 1 -&gt; c[wp]\r\n01275 if n\/c go to 01274\r\n(01274 - 01275) * n\r\n\r\n(C=00000000000ffe)\r\n...\r\n(C=00000000000f01)\r\n(C=00000000000f00)\r\n(C=00000000000fff)\r\n\r\n01275 if n\/c go to 01274\r\n\r\n01276 display toggle      ; show \"Error\"\r\n\r\n; clear keypress\r\n01277 0 -&gt; s 15\r\n01300 if 1 = s 15\r\n01301 then go to 01277\r\n\r\n01302 m1 exch c\r\n01303 0 -&gt; s 3\r\n01304 CRC 300             ; w\/prgm?\r\n01305 if 0 = s 3\r\n01306 then go to 01312\r\n01312 CRC 300\r\n01313 if 1 = s 15\r\n01314 then go to 01317\r\n01315 if 0 = s 3\r\n01316 then go to 01312\r\n(01312 - 01316) * n\r\n\r\n(key pressed)\r\n\r\n01312 CRC 300             ; w\/prgm?\r\n01313 if 1 = s 15\r\n01314 then go to 01317\r\n\r\n01317 display toggle      ; =off\r\n01320 b exchange c[w]\r\n01321 CRC 100 ; ready?\r\n01322 delayed rom 00\r\n01323 if n\/c go to 0064\r\nI\r\n00064 binary\r\n00065 CRC 1500\r\n00066 CRC 1300\r\n00067 0 -&gt; s 12\r\n00070 delayed rom 02\r\n00071 jsb 01205\r\n00072 if n\/c go to 0135\r\n00135 b -&gt; c[w]\r\n00136 if 1 = s 2\r\n00137 then go to 0304\r\n00140 0 -&gt; c[w]\r\n00141 0 -&gt; s 1\r\n00142 0 -&gt; s 3\r\n00143 0 -&gt; c[s]\r\n00144 m1 exch c\r\n00145 if 1 = s 11\r\n00146 then go to 0317\r\n00147 delayed rom 017\r\n00150 jsb 07706\r\n00151 a exchange b[w]\r\n00152 a -&gt; b[w]\r\n00153 if 1 = s 12\r\n00154 then go to 0157\r\n00155 delayed rom 04\r\n00156 jsb 02007\r\n00157 delayed rom 02\r\n00160 jsb 01162\r\n00161 hi im woodstock\r\n00162 display off\r\n00163 display toggle\r\n; clear s 15\r\n00164 0 -&gt; s 15\r\n00165 if 1 = s 15\r\n00166 then go to 0164\r\n\r\n(00167 - 00213 = wait loop)\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>The HP67 Error routine displays &#8220;Error&#8221;, flashes once (blank out and then comes back) and then waits for a keypress to clear the error message. It works like this<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":[],"categories":[16,5,3],"tags":[33,32],"_links":{"self":[{"href":"https:\/\/www.sydneysmith.com\/wordpress\/wp-json\/wp\/v2\/posts\/1175"}],"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=1175"}],"version-history":[{"count":3,"href":"https:\/\/www.sydneysmith.com\/wordpress\/wp-json\/wp\/v2\/posts\/1175\/revisions"}],"predecessor-version":[{"id":1354,"href":"https:\/\/www.sydneysmith.com\/wordpress\/wp-json\/wp\/v2\/posts\/1175\/revisions\/1354"}],"wp:attachment":[{"href":"https:\/\/www.sydneysmith.com\/wordpress\/wp-json\/wp\/v2\/media?parent=1175"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.sydneysmith.com\/wordpress\/wp-json\/wp\/v2\/categories?post=1175"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.sydneysmith.com\/wordpress\/wp-json\/wp\/v2\/tags?post=1175"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}