SIDE1 38 0000000 0000000 0000000 3100222 12131e1 53919fa 0000000 0000e37 0000000 0000000 0000000 0000000 0000000 0000000 0000000 0000000 0000000 0000000 0000000 0000000 0000000 0000000 0000000 0000000 0000000 0000000 0000000 0000000 0000000 0000000 0000000 0000000 0000000 0000000 0000000 0000000 96a5c34 96a5c34 SIDE2 0 CARD 11 Title: Temperature A: C->F B: C: D: E: a: b: c: d: e: HELP 1 END ============ HP67 Logging started. (00167 - 00213 wait loop) 01324 ... 13216 0 -> s 3 13217 CRC 1300 ; ?C merge 13220 if 0 = s 3 13221 then go to 013223 13223 CRC 760 ; init ... 13226 jsb 013341 13341 display off 13342 CRC 1700 ; r/w *** CardRead 1: 0000000 13343 CRC 260 ; motor on 13344 CRC 100 ; ? ready 13345 p <- 6 13346 jsb 013360 ; wait 6 ... 13367 return 13347 CRC 100 ; ? ready 13350 c -> a[w] 13351 jsb 013167 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 ; ? ready 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 ; r/w *** CardRead 2: 0000000 13211 if 1 = s 3 13212 then go to 013406 13213 return 13352 a exchange c[w] 13353 p <- 4 13354 jsb 013363 ; wait 4 ... 13367 return 13355 CRC 100 ; ? ready 13356 p <- 10 13357 if n/c go to 013361 ; wait 10 ... 13367 return 13227 CRC 100 13230 jsb 013162 13162 p <- 1 13163 load constant 9 13164 load constant 9 13165 c -> addr 13166 return 13231 jsb 013167 I 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 3: 3100222 13211 if 1 = s 3 13212 then go to 013406 13213 return I 13232 data register -> c 11 *** ram[155] -> c (=31002223100222) 13233 p <- 5 13234 0 -> c[wp] 13235 b exchange c[w] 13236 b -> c[w] 13237 c - 1 -> c[s] 13240 if c[s] = 0 13241 then go to 012707 13242 c - 1 -> c[s] 13243 if c[s] = 0 13244 then go to 012704 13245 c - 1 -> c[s] 13246 if c[s] = 0 13247 then go to 013254 ; ; read prog 1 (001-112) 13254 1 -> s 4 13255 delayed rom 07 13256 jsb 013551 13551 p <- 1 13552 load constant 3 13553 c -> addr 13554 data register -> c 13 *** ram[61] -> c (=00000000000000) 13555 if c[x] = 0 13556 then go to 013563 13563 p <- 2 13564 load constant 7 13565 load constant 2 13566 load constant 15 13567 p <- 1 13570 c - 1 -> c[xs] ; step 001 ("62f") 13571 if n/c go to 013573 13573 c -> a[xs] 13574 p <- 2 13575 load constant 5 13576 a - 1 -> a[xs] 13577 c - 1 -> c[xs] 13600 if n/c go to 013576 13576 a - 1 -> a[xs] 13577 c - 1 -> c[xs] 13600 if n/c go to 013576 13576 a - 1 -> a[xs] 13577 c - 1 -> c[xs] 13600 if n/c go to 013576 13576 a - 1 -> a[xs] 13577 c - 1 -> c[xs] 13600 if n/c go to 013576 13576 a - 1 -> a[xs] 13577 c - 1 -> c[xs] 13600 if n/c go to 013576 13576 a - 1 -> a[xs] 13577 c - 1 -> c[xs] 13600 if n/c go to 013576 13601 a exchange c[xs] 13602 0 - c -> c[xs] 13603 b exchange c[ms] 13604 p <- 3 13605 load constant 15 13606 c -> data register 15 *** c -> ram[63] (=3100222300f02f) 13607 p <- 12 13610 if c[p] = 0 13611 then go to 013613 13612 1 -> s 7 13613 return ; 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13320 jsb 013162 13162 p <- 1 13163 load constant 9 13164 load constant 9 13165 c -> addr 13166 return 13321 jsb 013167 I 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 4: 12131e1 13211 if 1 = s 3 13212 then go to 013406 13213 return I 13322 data register -> c 11 *** ram[155] -> c (=12131e112131e1) 13323 p <- 6 13324 0 -> c[wp] 13325 a + c -> a[w] 13326 b exchange c[w] 13327 jsb 013167 I 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 5: 53919fa 13211 if 1 = s 3 13212 then go to 013406 13213 return I 13330 p <- 6 13331 data register -> c 11 *** ram[155] -> c (=53919fa53919fa) 13332 b exchange c[wp] 13333 0 -> c[wp] 13334 a + c -> a[w] 13335 b exchange c[w] 13336 a exchange c[w] 13337 p <- 3 13340 return I 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[47] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[47] (=12131e153919fa) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[46] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[46] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13320 jsb 013162 13162 p <- 1 13163 load constant 9 13164 load constant 9 13165 c -> addr 13166 return 13321 jsb 013167 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 6: 0000000 13211 if 1 = s 3 13212 then go to 013406 13213 return 13322 data register -> c 11 *** ram[155] -> c (=00000000000000) 13323 p <- 6 13324 0 -> c[wp] 13325 a + c -> a[w] 13326 b exchange c[w] 13327 jsb 013167 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 7: 0000e37 13211 if 1 = s 3 13212 then go to 013406 13213 return 13330 p <- 6 13331 data register -> c 11 *** ram[155] -> c (=0000e370000e37) 13332 b exchange c[wp] 13333 0 -> c[wp] 13334 a + c -> a[w] 13335 b exchange c[w] 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[46] -> c (=00000000000000) *** c -> ram[46] (=00000000000e37) ; *** ram[45] -> c (=00000000000000) *** c -> ram[45] (=00000000000000) *** CardRead 8: 0000000 *** ram[155] -> c (=00000000000000) *** CardRead 9: 0000000 *** ram[155] -> c (=00000000000000) *** ram[45] -> c (=00000000000000) *** c -> ram[45] (=00000000000000) ; *** ram[44] -> c (=00000000000000) *** c -> ram[44] (=00000000000000) *** CardRead 10: 0000000 *** ram[155] -> c (=00000000000000) *** CardRead 11: 0000000 *** ram[155] -> c (=00000000000000) *** ram[44] -> c (=00000000000000) *** c -> ram[44] (=00000000000000) ; *** ram[43] -> c (=00000000000000) *** c -> ram[43] (=00000000000000) *** CardRead 12: 0000000 *** ram[155] -> c (=00000000000000) *** CardRead 13: 0000000 *** ram[155] -> c (=00000000000000) *** ram[43] -> c (=00000000000000) *** c -> ram[43] (=00000000000000) ; *** ram[42] -> c (=00000000000000) *** c -> ram[42] (=00000000000000) *** CardRead 14: 0000000 *** ram[155] -> c (=00000000000000) *** CardRead 15: 0000000 *** ram[155] -> c (=00000000000000) *** ram[42] -> c (=00000000000000) *** c -> ram[42] (=00000000000000) ; *** ram[41] -> c (=00000000000000) *** c -> ram[41] (=00000000000000) *** CardRead 16: 0000000 *** ram[155] -> c (=00000000000000) *** CardRead 17: 0000000 *** ram[155] -> c (=00000000000000) *** ram[41] -> c (=00000000000000) *** c -> ram[41] (=00000000000000) ; *** ram[40] -> c (=00000000000000) *** c -> ram[40] (=00000000000000) *** CardRead 18: 0000000 *** ram[155] -> c (=00000000000000) *** CardRead 19: 0000000 *** ram[155] -> c (=00000000000000) *** ram[40] -> c (=00000000000000) *** c -> ram[40] (=00000000000000) ; *** ram[39] -> c (=00000000000000) *** c -> ram[39] (=00000000000000) *** CardRead 20: 0000000 *** ram[155] -> c (=00000000000000) *** CardRead 21: 0000000 *** ram[155] -> c (=00000000000000) *** ram[39] -> c (=00000000000000) *** c -> ram[39] (=00000000000000) ; *** ram[38] -> c (=00000000000000) *** c -> ram[38] (=00000000000000) *** CardRead 22: 0000000 *** ram[155] -> c (=00000000000000) *** CardRead 23: 0000000 *** ram[155] -> c (=00000000000000) *** ram[38] -> c (=00000000000000) *** c -> ram[38] (=00000000000000) ; *** ram[37] -> c (=00000000000000) *** c -> ram[37] (=00000000000000) *** CardRead 24: 0000000 *** ram[155] -> c (=00000000000000) *** CardRead 25: 0000000 *** ram[155] -> c (=00000000000000) *** ram[37] -> c (=00000000000000) *** c -> ram[37] (=00000000000000) ; *** ram[36] -> c (=00000000000000) *** c -> ram[36] (=00000000000000) *** CardRead 26: 0000000 *** ram[155] -> c (=00000000000000) *** CardRead 27: 0000000 *** ram[155] -> c (=00000000000000) *** ram[36] -> c (=00000000000000) *** c -> ram[36] (=00000000000000) ; *** ram[35] -> c (=00000000000000) *** c -> ram[35] (=00000000000000) *** CardRead 28: 0000000 *** ram[155] -> c (=00000000000000) *** CardRead 29: 0000000 *** ram[155] -> c (=00000000000000) *** ram[35] -> c (=00000000000000) *** c -> ram[35] (=00000000000000) ; *** ram[34] -> c (=00000000000000) *** c -> ram[34] (=00000000000000) *** CardRead 30: 0000000 *** ram[155] -> c (=00000000000000) *** CardRead 31: 0000000 *** ram[155] -> c (=00000000000000) *** ram[34] -> c (=00000000000000) *** c -> ram[34] (=00000000000000) ; *** ram[33] -> c (=00000000000000) *** c -> ram[33] (=00000000000000) *** CardRead 32: 0000000 *** ram[155] -> c (=00000000000000) *** CardRead 33: 0000000 *** ram[155] -> c (=00000000000000) *** ram[33] -> c (=00000000000000) *** c -> ram[33] (=00000000000000) ; *** ram[32] -> c (=00000000000000) *** c -> ram[32] (=00000000000000) *** CardRead 34: 0000000 *** ram[155] -> c (=00000000000000) *** CardRead 35: 0000000 *** ram[155] -> c (=00000000000000) *** ram[32] -> c (=00000000000000) *** c -> ram[32] (=00000000000000) ; 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[31] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[31] (=00000000000000) 13731 a exchange c[w] 13732 return I 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13265 jsb 013370 13370 if 1 = s 6 13371 then go to 013405 13372 a exchange c[w] 13373 jsb 013162 13162 p <- 1 13163 load constant 9 13164 load constant 9 13165 c -> addr 13166 return 13374 jsb 013167 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 36: 96a5c34 13211 if 1 = s 3 13212 then go to 013406 13213 return 13375 p <- 6 13376 data register -> c 11 *** ram[155] -> c (=96a5c3496a5c34) 13377 a -> b[w] 13400 b exchange c[w] 13401 a -> b[wp] 13402 a - b -> a[w] 13403 if a[w] # 0 ; does chksum match 13404 then go to 013410 13405 return I 13266 jsb 013112 13112 delayed rom 07 13113 if n/c go to 013647 13647 0 -> s 3 13650 CRC 1700 *** CardRead 37: 96a5c34 13651 CRC 560 13652 if 1 = s 3 13653 then go to 013112 13654 CRC 360 13655 CRC 100 13656 return 13267 if 1 = s 8 13270 then go to 013273 13271 delayed rom 07 13272 jsb 013505 13505 if 1 = s 6 13506 then go to 013273 13507 p <- 1 13510 load constant 3 13511 c -> addr 13512 data register -> c 15 *** ram[63] -> c (=3100222300f02f) 13513 a exchange c[w] 13514 shift left a[w] 13515 shift left a[w] 13516 p <- 8 13517 shift right a[m] 13520 p - 1 -> p 13521 if p # 3 13522 then go to 013517 13517 shift right a[m] 13520 p - 1 -> p 13521 if p # 3 13522 then go to 013517 13517 shift right a[m] 13520 p - 1 -> p 13521 if p # 3 13522 then go to 013517 13517 shift right a[m] 13520 p - 1 -> p 13521 if p # 3 13522 then go to 013517 13517 shift right a[m] 13520 p - 1 -> p 13521 if p # 3 13522 then go to 013517 13523 0 -> a[wp] 13524 a exchange c[w] 13525 c + c -> c[s] 13526 if n/c go to 013530 13530 p - 1 -> p 13531 if p # 13 13532 then go to 013525 13525 c + c -> c[s] 13526 if n/c go to 013530 13530 p - 1 -> p 13531 if p # 13 13532 then go to 013525 13525 c + c -> c[s] 13526 if n/c go to 013530 13530 p - 1 -> p 13531 if p # 13 13532 then go to 013525 13525 c + c -> c[s] 13526 if n/c go to 013530 13530 p - 1 -> p 13531 if p # 13 13532 then go to 013525 13533 p <- 7 13534 0 -> s 0 13535 0 -> s 14 13536 if c[p] = 0 13537 then go to 013546 13546 load constant 1 13547 c -> data register 14 *** c -> ram[62] (=00000012220000) 13550 return 13273 if 0 = s 4 13274 then go to 013301 13275 if 1 = s 10 13276 then go to 013641 13277 if 1 = s 7 13300 then go to 013304 13304 1 -> s 6 13305 delayed rom 07 13306 jsb 013551 13551 p <- 1 13552 load constant 3 13553 c -> addr 13554 data register -> c 13 *** ram[61] -> c (=00000000000000) 13555 if c[x] = 0 13556 then go to 013563 13563 p <- 2 13564 load constant 7 13565 load constant 2 13566 load constant 15 13567 p <- 1 13570 c - 1 -> c[xs] 13571 if n/c go to 013573 13573 c -> a[xs] 13574 p <- 2 13575 load constant 5 13576 a - 1 -> a[xs] 13577 c - 1 -> c[xs] 13600 if n/c go to 013576 13576 a - 1 -> a[xs] 13577 c - 1 -> c[xs] 13600 if n/c go to 013576 13576 a - 1 -> a[xs] 13577 c - 1 -> c[xs] 13600 if n/c go to 013576 13576 a - 1 -> a[xs] 13577 c - 1 -> c[xs] 13600 if n/c go to 013576 13576 a - 1 -> a[xs] 13577 c - 1 -> c[xs] 13600 if n/c go to 013576 13576 a - 1 -> a[xs] 13577 c - 1 -> c[xs] 13600 if n/c go to 013576 13601 a exchange c[xs] 13602 0 - c -> c[xs] 13603 b exchange c[ms] 13604 p <- 3 13605 load constant 15 13606 c -> data register 15 *** c -> ram[63] (=96a5c34300f02f) 13607 p <- 12 13610 if c[p] = 0 13611 then go to 013613 13612 1 -> s 7 13613 return 13307 1 -> s 10 13310 p <- 1 13311 c - 1 -> c[p] 13312 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13313 0 -> c[w] 13314 if n/c go to 013336 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[31] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[31] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[30] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[30] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13313 0 -> c[w] 13314 if n/c go to 013336 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[30] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[30] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[29] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[29] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13313 0 -> c[w] 13314 if n/c go to 013336 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[29] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[29] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[28] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[28] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13313 0 -> c[w] 13314 if n/c go to 013336 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[28] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[28] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[27] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[27] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13313 0 -> c[w] 13314 if n/c go to 013336 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[27] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[27] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[26] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[26] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13313 0 -> c[w] 13314 if n/c go to 013336 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[26] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[26] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[25] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[25] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13313 0 -> c[w] 13314 if n/c go to 013336 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[25] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[25] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[24] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[24] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13313 0 -> c[w] 13314 if n/c go to 013336 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[24] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[24] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[23] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[23] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13313 0 -> c[w] 13314 if n/c go to 013336 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[23] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[23] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[22] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[22] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13313 0 -> c[w] 13314 if n/c go to 013336 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[22] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[22] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[21] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[21] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13313 0 -> c[w] 13314 if n/c go to 013336 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[21] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[21] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[20] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[20] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13313 0 -> c[w] 13314 if n/c go to 013336 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[20] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[20] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[19] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[19] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13313 0 -> c[w] 13314 if n/c go to 013336 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[19] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[19] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[18] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[18] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13313 0 -> c[w] 13314 if n/c go to 013336 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[18] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[18] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[17] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[17] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13313 0 -> c[w] 13314 if n/c go to 013336 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[17] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[17] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[16] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[16] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13313 0 -> c[w] 13314 if n/c go to 013336 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[16] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[16] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[15] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13265 jsb 013370 13370 if 1 = s 6 13371 then go to 013405 13405 return 13266 jsb 013112 ; 13112 delayed rom 07 13113 if n/c go to 013647 13647 0 -> s 3 13650 CRC 1700 *** CardRead 1: 0000000 13651 CRC 560 ; card inserted? 13652 if 1 = s 3 13653 then go to 013112 ; continue reading and ignoring until card is gone 13654 CRC 360 ; ? ready 13655 CRC 100 ; motor off 13656 return ; 13267 if 1 = s 8 13270 then go to 013273 13271 delayed rom 07 13272 jsb 013505 13505 if 1 = s 6 13506 then go to 013273 13273 if 0 = s 4 13274 then go to 013301 13275 if 1 = s 10 13276 then go to 013641 13641 if 1 = s 13 13642 then go to 013657 13643 m1 -> c 13644 0 -> s 3 13645 delayed rom 00 13646 if n/c go to 010073 10073 nop I 00074 b -> c[w] 00075 1 -> s 9 00076 0 -> s 12 ... 00161 hi im woodstock ... (00167 - 00213 wait loop) ============ HP67 Logging started. (00167 - 00213 wait loop) 00167 0 -> s 3 00170 CRC 1500 00171 if 1 = s 3 00172 then go to 0263 00173 0 -> s 1 00174 CRC 300 00175 if 1 = s 3 00176 then go to 0204 00177 if 0 = s 11 00200 then go to 0206 00206 0 -> s 3 00207 CRC 560 00210 if 1 = s 3 00211 then go to 01324 I 01324 jsb 01205 01205 0 -> s 4 01206 0 -> s 6 01207 0 -> s 7 01210 0 -> s 8 01211 0 -> s 10 01212 0 -> s 13 01213 return 01325 delayed rom 07 01326 if n/c go to 03770 03770 bank switch 13771 delayed rom 06 13772 if n/c go to 013214 13214 m1 exch c 13215 p <- 1 13216 0 -> s 3 13217 CRC 1300 13220 if 0 = s 3 13221 then go to 013223 13223 CRC 760 13224 if 1 = s 11 13225 then go to 013032 13226 jsb 013341 13341 display off 13342 CRC 1700 *** CardRead 1: 0000000 13343 CRC 260 13344 CRC 100 13345 p <- 6 13346 jsb 013360 13360 p - 1 -> p 13361 nop 13362 nop 13363 nop 13364 binary 13365 if p # 0 13366 then go to 013360 13360 p - 1 -> p 13361 nop 13362 nop 13363 nop 13364 binary 13365 if p # 0 13366 then go to 013360 13360 p - 1 -> p 13361 nop 13362 nop 13363 nop 13364 binary 13365 if p # 0 13366 then go to 013360 13360 p - 1 -> p 13361 nop 13362 nop 13363 nop 13364 binary 13365 if p # 0 13366 then go to 013360 13360 p - 1 -> p 13361 nop 13362 nop 13363 nop 13364 binary 13365 if p # 0 13366 then go to 013360 13360 p - 1 -> p 13361 nop 13362 nop 13363 nop 13364 binary 13365 if p # 0 13366 then go to 013360 13367 return 13347 CRC 100 13350 c -> a[w] 13351 jsb 013167 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 2: 0000000 13211 if 1 = s 3 13212 then go to 013406 13213 return 13352 a exchange c[w] 13353 p <- 4 13354 jsb 013363 13363 nop 13364 binary 13365 if p # 0 13366 then go to 013360 13360 p - 1 -> p 13361 nop 13362 nop 13363 nop 13364 binary 13365 if p # 0 13366 then go to 013360 13360 p - 1 -> p 13361 nop 13362 nop 13363 nop 13364 binary 13365 if p # 0 13366 then go to 013360 13360 p - 1 -> p 13361 nop 13362 nop 13363 nop 13364 binary 13365 if p # 0 13366 then go to 013360 13360 p - 1 -> p 13361 nop 13362 nop 13363 nop 13364 binary 13365 if p # 0 13366 then go to 013360 13367 return 13355 CRC 100 13356 p <- 10 13357 if n/c go to 013361 13361 nop 13362 nop 13363 nop 13364 binary 13365 if p # 0 13366 then go to 013360 13360 p - 1 -> p 13361 nop 13362 nop 13363 nop 13364 binary 13365 if p # 0 13366 then go to 013360 13360 p - 1 -> p 13361 nop 13362 nop 13363 nop 13364 binary 13365 if p # 0 13366 then go to 013360 13360 p - 1 -> p 13361 nop 13362 nop 13363 nop 13364 binary 13365 if p # 0 13366 then go to 013360 13360 p - 1 -> p 13361 nop 13362 nop 13363 nop 13364 binary 13365 if p # 0 13366 then go to 013360 13360 p - 1 -> p 13361 nop 13362 nop 13363 nop 13364 binary 13365 if p # 0 13366 then go to 013360 13360 p - 1 -> p 13361 nop 13362 nop 13363 nop 13364 binary 13365 if p # 0 13366 then go to 013360 13360 p - 1 -> p 13361 nop 13362 nop 13363 nop 13364 binary 13365 if p # 0 13366 then go to 013360 13360 p - 1 -> p 13361 nop 13362 nop 13363 nop 13364 binary 13365 if p # 0 13366 then go to 013360 13360 p - 1 -> p 13361 nop 13362 nop 13363 nop 13364 binary 13365 if p # 0 13366 then go to 013360 13360 p - 1 -> p 13361 nop 13362 nop 13363 nop 13364 binary 13365 if p # 0 13366 then go to 013360 13367 return 13227 CRC 100 13230 jsb 013162 13162 p <- 1 13163 load constant 9 13164 load constant 9 13165 c -> addr 13166 return 13231 jsb 013167 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 3: 3100222 13211 if 1 = s 3 13212 then go to 013406 13213 return 13232 data register -> c 11 *** ram[155] -> c (=31002223100222) 13233 p <- 5 13234 0 -> c[wp] 13235 b exchange c[w] 13236 b -> c[w] 13237 c - 1 -> c[s] 13240 if c[s] = 0 13241 then go to 012707 13242 c - 1 -> c[s] 13243 if c[s] = 0 13244 then go to 012704 13245 c - 1 -> c[s] 13246 if c[s] = 0 13247 then go to 013254 13254 1 -> s 4 13255 delayed rom 07 13256 jsb 013551 13551 p <- 1 13552 load constant 3 13553 c -> addr 13554 data register -> c 13 *** ram[61] -> c (=00000000000000) 13555 if c[x] = 0 13556 then go to 013563 13563 p <- 2 13564 load constant 7 13565 load constant 2 13566 load constant 15 13567 p <- 1 13570 c - 1 -> c[xs] 13571 if n/c go to 013573 13573 c -> a[xs] 13574 p <- 2 13575 load constant 5 13576 a - 1 -> a[xs] 13577 c - 1 -> c[xs] 13600 if n/c go to 013576 13576 a - 1 -> a[xs] 13577 c - 1 -> c[xs] 13600 if n/c go to 013576 13576 a - 1 -> a[xs] 13577 c - 1 -> c[xs] 13600 if n/c go to 013576 13576 a - 1 -> a[xs] 13577 c - 1 -> c[xs] 13600 if n/c go to 013576 13576 a - 1 -> a[xs] 13577 c - 1 -> c[xs] 13600 if n/c go to 013576 13576 a - 1 -> a[xs] 13577 c - 1 -> c[xs] 13600 if n/c go to 013576 13601 a exchange c[xs] 13602 0 - c -> c[xs] 13603 b exchange c[ms] 13604 p <- 3 13605 load constant 15 13606 c -> data register 15 *** c -> ram[63] (=3100222300f02f) 13607 p <- 12 13610 if c[p] = 0 13611 then go to 013613 13612 1 -> s 7 13613 return 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13320 jsb 013162 13162 p <- 1 13163 load constant 9 13164 load constant 9 13165 c -> addr 13166 return 13321 jsb 013167 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 4: 12131e1 13211 if 1 = s 3 13212 then go to 013406 13213 return 13322 data register -> c 11 *** ram[155] -> c (=12131e112131e1) 13323 p <- 6 13324 0 -> c[wp] 13325 a + c -> a[w] 13326 b exchange c[w] 13327 jsb 013167 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 5: 53919fa 13211 if 1 = s 3 13212 then go to 013406 13213 return 13330 p <- 6 13331 data register -> c 11 *** ram[155] -> c (=53919fa53919fa) 13332 b exchange c[wp] 13333 0 -> c[wp] 13334 a + c -> a[w] 13335 b exchange c[w] 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[47] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[47] (=12131e153919fa) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[46] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[46] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13320 jsb 013162 13162 p <- 1 13163 load constant 9 13164 load constant 9 13165 c -> addr 13166 return 13321 jsb 013167 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 6: 0000000 13211 if 1 = s 3 13212 then go to 013406 13213 return 13322 data register -> c 11 *** ram[155] -> c (=00000000000000) 13323 p <- 6 13324 0 -> c[wp] 13325 a + c -> a[w] 13326 b exchange c[w] 13327 jsb 013167 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 7: 0000e37 13211 if 1 = s 3 13212 then go to 013406 13213 return 13330 p <- 6 13331 data register -> c 11 *** ram[155] -> c (=0000e370000e37) 13332 b exchange c[wp] 13333 0 -> c[wp] 13334 a + c -> a[w] 13335 b exchange c[w] 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[46] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[46] (=00000000000e37) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[45] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[45] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13320 jsb 013162 13162 p <- 1 13163 load constant 9 13164 load constant 9 13165 c -> addr 13166 return 13321 jsb 013167 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 8: 0000000 13211 if 1 = s 3 13212 then go to 013406 13213 return 13322 data register -> c 11 *** ram[155] -> c (=00000000000000) 13323 p <- 6 13324 0 -> c[wp] 13325 a + c -> a[w] 13326 b exchange c[w] 13327 jsb 013167 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 9: 0000000 13211 if 1 = s 3 13212 then go to 013406 13213 return 13330 p <- 6 13331 data register -> c 11 *** ram[155] -> c (=00000000000000) 13332 b exchange c[wp] 13333 0 -> c[wp] 13334 a + c -> a[w] 13335 b exchange c[w] 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[45] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[45] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[44] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[44] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13320 jsb 013162 13162 p <- 1 13163 load constant 9 13164 load constant 9 13165 c -> addr 13166 return 13321 jsb 013167 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 10: 0000000 13211 if 1 = s 3 13212 then go to 013406 13213 return 13322 data register -> c 11 *** ram[155] -> c (=00000000000000) 13323 p <- 6 13324 0 -> c[wp] 13325 a + c -> a[w] 13326 b exchange c[w] 13327 jsb 013167 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 11: 0000000 13211 if 1 = s 3 13212 then go to 013406 13213 return 13330 p <- 6 13331 data register -> c 11 *** ram[155] -> c (=00000000000000) 13332 b exchange c[wp] 13333 0 -> c[wp] 13334 a + c -> a[w] 13335 b exchange c[w] 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[44] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[44] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[43] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[43] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13320 jsb 013162 13162 p <- 1 13163 load constant 9 13164 load constant 9 13165 c -> addr 13166 return 13321 jsb 013167 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 12: 0000000 13211 if 1 = s 3 13212 then go to 013406 13213 return 13322 data register -> c 11 *** ram[155] -> c (=00000000000000) 13323 p <- 6 13324 0 -> c[wp] 13325 a + c -> a[w] 13326 b exchange c[w] 13327 jsb 013167 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 13: 0000000 13211 if 1 = s 3 13212 then go to 013406 13213 return 13330 p <- 6 13331 data register -> c 11 *** ram[155] -> c (=00000000000000) 13332 b exchange c[wp] 13333 0 -> c[wp] 13334 a + c -> a[w] 13335 b exchange c[w] 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[43] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[43] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[42] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[42] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13320 jsb 013162 13162 p <- 1 13163 load constant 9 13164 load constant 9 13165 c -> addr 13166 return 13321 jsb 013167 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 14: 0000000 13211 if 1 = s 3 13212 then go to 013406 13213 return 13322 data register -> c 11 *** ram[155] -> c (=00000000000000) 13323 p <- 6 13324 0 -> c[wp] 13325 a + c -> a[w] 13326 b exchange c[w] 13327 jsb 013167 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 15: 0000000 13211 if 1 = s 3 13212 then go to 013406 13213 return 13330 p <- 6 13331 data register -> c 11 *** ram[155] -> c (=00000000000000) 13332 b exchange c[wp] 13333 0 -> c[wp] 13334 a + c -> a[w] 13335 b exchange c[w] 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[42] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[42] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[41] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[41] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13320 jsb 013162 13162 p <- 1 13163 load constant 9 13164 load constant 9 13165 c -> addr 13166 return 13321 jsb 013167 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 16: 0000000 13211 if 1 = s 3 13212 then go to 013406 13213 return 13322 data register -> c 11 *** ram[155] -> c (=00000000000000) 13323 p <- 6 13324 0 -> c[wp] 13325 a + c -> a[w] 13326 b exchange c[w] 13327 jsb 013167 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 17: 0000000 13211 if 1 = s 3 13212 then go to 013406 13213 return 13330 p <- 6 13331 data register -> c 11 *** ram[155] -> c (=00000000000000) 13332 b exchange c[wp] 13333 0 -> c[wp] 13334 a + c -> a[w] 13335 b exchange c[w] 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[41] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[41] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[40] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[40] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13320 jsb 013162 13162 p <- 1 13163 load constant 9 13164 load constant 9 13165 c -> addr 13166 return 13321 jsb 013167 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 18: 0000000 13211 if 1 = s 3 13212 then go to 013406 13213 return 13322 data register -> c 11 *** ram[155] -> c (=00000000000000) 13323 p <- 6 13324 0 -> c[wp] 13325 a + c -> a[w] 13326 b exchange c[w] 13327 jsb 013167 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 19: 0000000 13211 if 1 = s 3 13212 then go to 013406 13213 return 13330 p <- 6 13331 data register -> c 11 *** ram[155] -> c (=00000000000000) 13332 b exchange c[wp] 13333 0 -> c[wp] 13334 a + c -> a[w] 13335 b exchange c[w] 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[40] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[40] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[39] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[39] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13320 jsb 013162 13162 p <- 1 13163 load constant 9 13164 load constant 9 13165 c -> addr 13166 return 13321 jsb 013167 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 20: 0000000 13211 if 1 = s 3 13212 then go to 013406 13213 return 13322 data register -> c 11 *** ram[155] -> c (=00000000000000) 13323 p <- 6 13324 0 -> c[wp] 13325 a + c -> a[w] 13326 b exchange c[w] 13327 jsb 013167 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 21: 0000000 13211 if 1 = s 3 13212 then go to 013406 13213 return 13330 p <- 6 13331 data register -> c 11 *** ram[155] -> c (=00000000000000) 13332 b exchange c[wp] 13333 0 -> c[wp] 13334 a + c -> a[w] 13335 b exchange c[w] 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[39] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[39] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[38] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[38] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13320 jsb 013162 13162 p <- 1 13163 load constant 9 13164 load constant 9 13165 c -> addr 13166 return 13321 jsb 013167 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 22: 0000000 13211 if 1 = s 3 13212 then go to 013406 13213 return 13322 data register -> c 11 *** ram[155] -> c (=00000000000000) 13323 p <- 6 13324 0 -> c[wp] 13325 a + c -> a[w] 13326 b exchange c[w] 13327 jsb 013167 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 23: 0000000 13211 if 1 = s 3 13212 then go to 013406 13213 return 13330 p <- 6 13331 data register -> c 11 *** ram[155] -> c (=00000000000000) 13332 b exchange c[wp] 13333 0 -> c[wp] 13334 a + c -> a[w] 13335 b exchange c[w] 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[38] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[38] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[37] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[37] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13320 jsb 013162 13162 p <- 1 13163 load constant 9 13164 load constant 9 13165 c -> addr 13166 return 13321 jsb 013167 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 24: 0000000 13211 if 1 = s 3 13212 then go to 013406 13213 return 13322 data register -> c 11 *** ram[155] -> c (=00000000000000) 13323 p <- 6 13324 0 -> c[wp] 13325 a + c -> a[w] 13326 b exchange c[w] 13327 jsb 013167 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 25: 0000000 13211 if 1 = s 3 13212 then go to 013406 13213 return 13330 p <- 6 13331 data register -> c 11 *** ram[155] -> c (=00000000000000) 13332 b exchange c[wp] 13333 0 -> c[wp] 13334 a + c -> a[w] 13335 b exchange c[w] 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[37] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[37] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[36] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[36] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13320 jsb 013162 13162 p <- 1 13163 load constant 9 13164 load constant 9 13165 c -> addr 13166 return 13321 jsb 013167 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 26: 0000000 13211 if 1 = s 3 13212 then go to 013406 13213 return 13322 data register -> c 11 *** ram[155] -> c (=00000000000000) 13323 p <- 6 13324 0 -> c[wp] 13325 a + c -> a[w] 13326 b exchange c[w] 13327 jsb 013167 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 27: 0000000 13211 if 1 = s 3 13212 then go to 013406 13213 return 13330 p <- 6 13331 data register -> c 11 *** ram[155] -> c (=00000000000000) 13332 b exchange c[wp] 13333 0 -> c[wp] 13334 a + c -> a[w] 13335 b exchange c[w] 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[36] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[36] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[35] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[35] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13320 jsb 013162 13162 p <- 1 13163 load constant 9 13164 load constant 9 13165 c -> addr 13166 return 13321 jsb 013167 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 28: 0000000 13211 if 1 = s 3 13212 then go to 013406 13213 return 13322 data register -> c 11 *** ram[155] -> c (=00000000000000) 13323 p <- 6 13324 0 -> c[wp] 13325 a + c -> a[w] 13326 b exchange c[w] 13327 jsb 013167 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 29: 0000000 13211 if 1 = s 3 13212 then go to 013406 13213 return 13330 p <- 6 13331 data register -> c 11 *** ram[155] -> c (=00000000000000) 13332 b exchange c[wp] 13333 0 -> c[wp] 13334 a + c -> a[w] 13335 b exchange c[w] 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[35] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[35] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[34] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[34] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13320 jsb 013162 13162 p <- 1 13163 load constant 9 13164 load constant 9 13165 c -> addr 13166 return 13321 jsb 013167 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 30: 0000000 13211 if 1 = s 3 13212 then go to 013406 13213 return 13322 data register -> c 11 *** ram[155] -> c (=00000000000000) 13323 p <- 6 13324 0 -> c[wp] 13325 a + c -> a[w] 13326 b exchange c[w] 13327 jsb 013167 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 31: 0000000 13211 if 1 = s 3 13212 then go to 013406 13213 return 13330 p <- 6 13331 data register -> c 11 *** ram[155] -> c (=00000000000000) 13332 b exchange c[wp] 13333 0 -> c[wp] 13334 a + c -> a[w] 13335 b exchange c[w] 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[34] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[34] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[33] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[33] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13320 jsb 013162 13162 p <- 1 13163 load constant 9 13164 load constant 9 13165 c -> addr 13166 return 13321 jsb 013167 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 32: 0000000 13211 if 1 = s 3 13212 then go to 013406 13213 return 13322 data register -> c 11 *** ram[155] -> c (=00000000000000) 13323 p <- 6 13324 0 -> c[wp] 13325 a + c -> a[w] 13326 b exchange c[w] 13327 jsb 013167 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 33: 0000000 13211 if 1 = s 3 13212 then go to 013406 13213 return 13330 p <- 6 13331 data register -> c 11 *** ram[155] -> c (=00000000000000) 13332 b exchange c[wp] 13333 0 -> c[wp] 13334 a + c -> a[w] 13335 b exchange c[w] 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[33] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[33] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[32] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[32] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13320 jsb 013162 13162 p <- 1 13163 load constant 9 13164 load constant 9 13165 c -> addr 13166 return 13321 jsb 013167 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 34: 0000000 13211 if 1 = s 3 13212 then go to 013406 13213 return 13322 data register -> c 11 *** ram[155] -> c (=00000000000000) 13323 p <- 6 13324 0 -> c[wp] 13325 a + c -> a[w] 13326 b exchange c[w] 13327 jsb 013167 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 35: 0000000 13211 if 1 = s 3 13212 then go to 013406 13213 return 13330 p <- 6 13331 data register -> c 11 *** ram[155] -> c (=00000000000000) 13332 b exchange c[wp] 13333 0 -> c[wp] 13334 a + c -> a[w] 13335 b exchange c[w] 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[32] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[32] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[31] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[31] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13265 jsb 013370 13370 if 1 = s 6 13371 then go to 013405 13372 a exchange c[w] 13373 jsb 013162 13162 p <- 1 13163 load constant 9 13164 load constant 9 13165 c -> addr 13166 return 13374 jsb 013167 13167 0 -> s 3 13170 0 -> c[w] 13171 decimal 13172 CRC 100 13173 if 1 = s 3 13174 then go to 013205 13205 binary 13206 p <- 0 13207 0 -> s 3 13210 CRC 1700 *** CardRead 36: 96a5c34 13211 if 1 = s 3 13212 then go to 013406 13213 return 13375 p <- 6 13376 data register -> c 11 *** ram[155] -> c (=96a5c3496a5c34) 13377 a -> b[w] 13400 b exchange c[w] 13401 a -> b[wp] 13402 a - b -> a[w] 13403 if a[w] # 0 13404 then go to 013410 13405 return 13266 jsb 013112 13112 delayed rom 07 13113 if n/c go to 013647 13647 0 -> s 3 13650 CRC 1700 *** CardRead 37: 96a5c34 13651 CRC 560 13652 if 1 = s 3 13653 then go to 013112 13654 CRC 360 13655 CRC 100 13656 return 13267 if 1 = s 8 13270 then go to 013273 13271 delayed rom 07 13272 jsb 013505 13505 if 1 = s 6 13506 then go to 013273 13507 p <- 1 13510 load constant 3 13511 c -> addr 13512 data register -> c 15 *** ram[63] -> c (=3100222300f02f) 13513 a exchange c[w] 13514 shift left a[w] 13515 shift left a[w] 13516 p <- 8 13517 shift right a[m] 13520 p - 1 -> p 13521 if p # 3 13522 then go to 013517 13517 shift right a[m] 13520 p - 1 -> p 13521 if p # 3 13522 then go to 013517 13517 shift right a[m] 13520 p - 1 -> p 13521 if p # 3 13522 then go to 013517 13517 shift right a[m] 13520 p - 1 -> p 13521 if p # 3 13522 then go to 013517 13517 shift right a[m] 13520 p - 1 -> p 13521 if p # 3 13522 then go to 013517 13523 0 -> a[wp] 13524 a exchange c[w] 13525 c + c -> c[s] 13526 if n/c go to 013530 13530 p - 1 -> p 13531 if p # 13 13532 then go to 013525 13525 c + c -> c[s] 13526 if n/c go to 013530 13530 p - 1 -> p 13531 if p # 13 13532 then go to 013525 13525 c + c -> c[s] 13526 if n/c go to 013530 13530 p - 1 -> p 13531 if p # 13 13532 then go to 013525 13525 c + c -> c[s] 13526 if n/c go to 013530 13530 p - 1 -> p 13531 if p # 13 13532 then go to 013525 13533 p <- 7 13534 0 -> s 0 13535 0 -> s 14 13536 if c[p] = 0 13537 then go to 013546 13546 load constant 1 13547 c -> data register 14 *** c -> ram[62] (=00000012220000) 13550 return 13273 if 0 = s 4 13274 then go to 013301 13275 if 1 = s 10 13276 then go to 013641 13277 if 1 = s 7 13300 then go to 013304 13304 1 -> s 6 13305 delayed rom 07 13306 jsb 013551 13551 p <- 1 13552 load constant 3 13553 c -> addr 13554 data register -> c 13 *** ram[61] -> c (=00000000000000) 13555 if c[x] = 0 13556 then go to 013563 13563 p <- 2 13564 load constant 7 13565 load constant 2 13566 load constant 15 13567 p <- 1 13570 c - 1 -> c[xs] 13571 if n/c go to 013573 13573 c -> a[xs] 13574 p <- 2 13575 load constant 5 13576 a - 1 -> a[xs] 13577 c - 1 -> c[xs] 13600 if n/c go to 013576 13576 a - 1 -> a[xs] 13577 c - 1 -> c[xs] 13600 if n/c go to 013576 13576 a - 1 -> a[xs] 13577 c - 1 -> c[xs] 13600 if n/c go to 013576 13576 a - 1 -> a[xs] 13577 c - 1 -> c[xs] 13600 if n/c go to 013576 13576 a - 1 -> a[xs] 13577 c - 1 -> c[xs] 13600 if n/c go to 013576 13576 a - 1 -> a[xs] 13577 c - 1 -> c[xs] 13600 if n/c go to 013576 13601 a exchange c[xs] 13602 0 - c -> c[xs] 13603 b exchange c[ms] 13604 p <- 3 13605 load constant 15 13606 c -> data register 15 *** c -> ram[63] (=96a5c34300f02f) 13607 p <- 12 13610 if c[p] = 0 13611 then go to 013613 13612 1 -> s 7 13613 return 13307 1 -> s 10 13310 p <- 1 13311 c - 1 -> c[p] 13312 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13313 0 -> c[w] 13314 if n/c go to 013336 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[31] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[31] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[30] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[30] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13313 0 -> c[w] 13314 if n/c go to 013336 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[30] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[30] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[29] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[29] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13313 0 -> c[w] 13314 if n/c go to 013336 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[29] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[29] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[28] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[28] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13313 0 -> c[w] 13314 if n/c go to 013336 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[28] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[28] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[27] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[27] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13313 0 -> c[w] 13314 if n/c go to 013336 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[27] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[27] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[26] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[26] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13313 0 -> c[w] 13314 if n/c go to 013336 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[26] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[26] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[25] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[25] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13313 0 -> c[w] 13314 if n/c go to 013336 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[25] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[25] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[24] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[24] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13313 0 -> c[w] 13314 if n/c go to 013336 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[24] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[24] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[23] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[23] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13313 0 -> c[w] 13314 if n/c go to 013336 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[23] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[23] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[22] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[22] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13313 0 -> c[w] 13314 if n/c go to 013336 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[22] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[22] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[21] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[21] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13313 0 -> c[w] 13314 if n/c go to 013336 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[21] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[21] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[20] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[20] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13313 0 -> c[w] 13314 if n/c go to 013336 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[20] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[20] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[19] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[19] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13313 0 -> c[w] 13314 if n/c go to 013336 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[19] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[19] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[18] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[18] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13313 0 -> c[w] 13314 if n/c go to 013336 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[18] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[18] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[17] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[17] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13313 0 -> c[w] 13314 if n/c go to 013336 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[17] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[17] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[16] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13727 a exchange c[w] 13730 c -> data *** c -> ram[16] (=00000000000000) 13731 a exchange c[w] 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13257 jsb 013315 13315 a exchange c[w] 13316 if 1 = s 6 13317 then go to 013313 13313 0 -> c[w] 13314 if n/c go to 013336 13336 a exchange c[w] 13337 p <- 3 13340 return 13260 delayed rom 07 13261 jsb 013664 13664 b exchange c[w] 13665 CRC 1100 13666 b -> c[w] 13667 0 -> s 3 13670 c -> addr 13671 p <- 1 13672 if c[p] = 0 13673 then go to 013732 13674 p <- 0 13675 if n/c go to 013702 13702 c - 1 -> c[xs] 13703 if n/c go to 013676 13704 data -> c *** ram[16] -> c (=00000000000000) 13705 a exchange c[wp] 13706 a exchange c[p] 13707 a exchange c[w] 13710 c -> data *** c -> ram[16] (=00000000000000) 13711 b -> c[w] 13712 c - 1 -> c[x] 13713 c -> addr 13714 data -> c *** ram[15] -> c (=00000000000000) 13715 if p = 0 13716 then go to 013721 13721 a exchange c[w] 13722 b -> c[w] 13723 p <- 1 13724 c - 1 -> c[wp] 13725 if c[p] = 0 13726 then go to 013732 13732 return 13262 p <- 3 13263 c - 1 -> c[p] 13264 if n/c go to 013257 13265 jsb 013370 13370 if 1 = s 6 13371 then go to 013405 13405 return 13266 jsb 013112 13112 delayed rom 07 13113 if n/c go to 013647 13647 0 -> s 3 13650 CRC 1700 *** CardRead 1: 0000000 13651 CRC 560 13652 if 1 = s 3 13653 then go to 013112 13654 CRC 360 13655 CRC 100 13656 return 13267 if 1 = s 8 13270 then go to 013273 13271 delayed rom 07 13272 jsb 013505 13505 if 1 = s 6 13506 then go to 013273 13273 if 0 = s 4 13274 then go to 013301 13275 if 1 = s 10 13276 then go to 013641 13641 if 1 = s 13 13642 then go to 013657 13643 m1 -> c 13644 0 -> s 3 13645 delayed rom 00 13646 if n/c go to 010073 10073 nop 00074 b -> c[w] 00075 1 -> s 9 00076 0 -> s 12 00077 if n/c go to 0124 00124 CRC 1300 00125 binary 00126 0 -> s 3 00127 delayed rom 02 00130 jsb 01205 01205 0 -> s 4 01206 0 -> s 6 01207 0 -> s 7 01210 0 -> s 8 01211 0 -> s 10 01212 0 -> s 13 01213 return 00131 CRC 1500 00132 if 1 = s 3 00133 then go to 0257 00134 jsb 0116 00116 if 1 = s 2 00117 then go to 0122 00120 if 0 = s 1 00121 then go to 0123 00123 return 00135 b -> c[w] 00136 if 1 = s 2 00137 then go to 0304 00140 0 -> c[w] 00141 0 -> s 1 00142 0 -> s 3 00143 0 -> c[s] 00144 m1 exch c 00145 if 1 = s 11 00146 then go to 0317 00147 delayed rom 017 00150 jsb 07706 07706 p <- 1 07707 load constant 3 07710 c -> addr 07711 data register -> c 15 *** ram[63] -> c (=96a5c34300f02f) 07712 return 00151 a exchange b[w] 00152 a -> b[w] 00153 if 1 = s 12 00154 then go to 0157 00155 delayed rom 04 00156 jsb 02007 02007 p <- 1 02010 load constant 3 02011 c -> addr 02012 0 -> s 3 02013 data register -> c 14 *** ram[62] -> c (=00000012220000) 02014 decimal 02015 jsb 02137 02137 c -> a[w] 02140 0 -> c[w] 02141 p <- 3 02142 0 -> a[wp] 02143 p <- 6 02144 a exchange c[wp] 02145 c -> a[p] 02146 c - 1 -> c[s] 02147 a - 1 -> a[p] 02150 if n/c go to 02146 02146 c - 1 -> c[s] 02147 a - 1 -> a[p] 02150 if n/c go to 02146 02146 c - 1 -> c[s] 02147 a - 1 -> a[p] 02150 if n/c go to 02146 02151 c -> a[s] 02152 p <- 12 02153 c - 1 -> c[p] 02154 a - 1 -> a[s] 02155 if n/c go to 02153 02153 c - 1 -> c[p] 02154 a - 1 -> a[s] 02155 if n/c go to 02153 02153 c - 1 -> c[p] 02154 a - 1 -> a[s] 02155 if n/c go to 02153 02153 c - 1 -> c[p] 02154 a - 1 -> a[s] 02155 if n/c go to 02153 02153 c - 1 -> c[p] 02154 a - 1 -> a[s] 02155 if n/c go to 02153 02153 c - 1 -> c[p] 02154 a - 1 -> a[s] 02155 if n/c go to 02153 02153 c - 1 -> c[p] 02154 a - 1 -> a[s] 02155 if n/c go to 02153 02153 c - 1 -> c[p] 02154 a - 1 -> a[s] 02155 if n/c go to 02153 02156 return 02016 if 1 = s 3 02017 then go to 02023 02020 p <- 4 02021 if c[p] # 0 02022 then go to 02066 02066 p <- 6 02067 b -> c[x] 02070 if c[xs] = 0 02071 then go to 02124 02124 if c[x] = 0 02125 then go to 02116 02116 if 1 = s 3 02117 then go to 02105 02120 jsb 02162 02162 p <- 3 02163 c -> a[w] 02164 c + 1 -> c[s] 02165 a - 1 -> a[p] 02166 if n/c go to 02164 02167 c - 1 -> c[s] 02170 0 -> s 3 02171 p <- 12 02172 a exchange b[wp] 02173 a -> b[wp] 02174 if b[m] = 0 02175 then go to 02232 02232 return 02121 if 0 = s 3 02122 then go to 02105 02105 c + 1 -> c[xs] 02106 if n/c go to 02063 02063 binary 02064 0 -> s 3 02065 return 00157 delayed rom 02 00160 jsb 01162 01162 jsb 01143 01143 c -> a[x] 01144 if b[s] = 0 01145 then go to 01147 01147 p <- 12 01150 shift right c[wp] 01151 if c[xs] = 0 01152 then go to 01156 01156 shift right c[wp] 01157 shift right c[wp] 01160 shift right c[wp] 01161 return 01163 p <- 3 01164 shift left a[w] 01165 0 -> c[m] 01166 if c[s] = 0 01167 then go to 01174 01170 p + 1 -> p 01171 a - 1 -> a[p] 01172 c - 1 -> c[s] 01173 if n/c go to 01166 01166 if c[s] = 0 01167 then go to 01174 01170 p + 1 -> p 01171 a - 1 -> a[p] 01172 c - 1 -> c[s] 01173 if n/c go to 01166 01166 if c[s] = 0 01167 then go to 01174 01170 p + 1 -> p 01171 a - 1 -> a[p] 01172 c - 1 -> c[s] 01173 if n/c go to 01166 01166 if c[s] = 0 01167 then go to 01174 01170 p + 1 -> p 01171 a - 1 -> a[p] 01172 c - 1 -> c[s] 01173 if n/c go to 01166 01166 if c[s] = 0 01167 then go to 01174 01170 p + 1 -> p 01171 a - 1 -> a[p] 01172 c - 1 -> c[s] 01173 if n/c go to 01166 01166 if c[s] = 0 01167 then go to 01174 01170 p + 1 -> p 01171 a - 1 -> a[p] 01172 c - 1 -> c[s] 01173 if n/c go to 01166 01166 if c[s] = 0 01167 then go to 01174 01170 p + 1 -> p 01171 a - 1 -> a[p] 01172 c - 1 -> c[s] 01173 if n/c go to 01166 01166 if c[s] = 0 01167 then go to 01174 01174 if c[xs] = 0 01175 then go to 01201 01176 c - 1 -> c[xs] 01177 p + 1 -> p 01200 if n/c go to 01174 01174 if c[xs] = 0 01175 then go to 01201 01176 c - 1 -> c[xs] 01177 p + 1 -> p 01200 if n/c go to 01174 01174 if c[xs] = 0 01175 then go to 01201 01201 shift right a[wp] 01202 load constant 3 01203 b exchange c[w] 01204 return 00161 hi im woodstock 00162 display off 00163 display toggle 00164 0 -> s 15 00165 if 1 = s 15 00166 then go to 0164 00167 0 -> s 3 00170 CRC 1500 00171 if 1 = s 3 00172 then go to 0263 00173 0 -> s 1 00174 CRC 300 00175 if 1 = s 3 00176 then go to 0204 00177 if 0 = s 11 00200 then go to 0206 00206 0 -> s 3 00207 CRC 560 00210 if 1 = s 3 00211 then go to 01324 00212 if 0 = s 15 00213 then go to 0167 00167 0 -> s 3 00170 CRC 1500 00171 if 1 = s 3 00172 then go to 0263 00173 0 -> s 1 00174 CRC 300 00175 if 1 = s 3 00176 then go to 0204 00177 if 0 = s 11 00200 then go to 0206 00206 0 -> s 3 00207 CRC 560 00210 if 1 = s 3 00211 then go to 01324 00212 if 0 = s 15 00213 then go to 0167 00167 0 -> s 3