X-Spam-Virus: No X-Spam-Checker-Version: SpamAssassin 3.2.3 (2007-08-08) on bdamer1.startlogic.com X-Spam-Level: ** X-Spam-Status: No, score=2.3 required=7.0 tests=AWL,BAYES_50, FH_HOST_EQ_PACBELL_D,FRT_PENIS1,RDNS_DYNAMIC autolearn=no version=3.2.3 X-Authentication-Warning: magellan.magic.com: smap set sender to using -f Date: Fri, 10 Sep 2010 07:58:35 -0700 (PDT) From: "James A. Markevitch" To: bdamer@digitalspace.com Subject: Re: 8008 disassembly for 1972-73 SacState DOS/PROMs? Bruce, > Oh wow, amazed! So you can read the 8008 assembly language, I guess > it is close to 8080. Yes, would love to see that 1200 line > disassembly. Could you put some comments in where there are key > points? I could then publish it on the Digibarn site (all credit to > you) and send it to Bill Pentz to see if we can figure the code out. Attached below is the disassembly. Please don't put it up yet, since I want to add a couple of things to it and also add the notes about what different things mean (e.g. Snnnnn is where the disassembler inferred a subroutine, etc.). The idea is that the output of the disassembler purposely uses certain formats to make it easy to search for and change things in the listing. I'll send you a "final" one tonight or tomorrow morning that you can post and that people can dig into to add comments, define labels, etc. James Markevitch * External references 23440 S23440 EQU 23440 23451 L23451 EQU 23451 23467 S23467 EQU 23467 23551 L23551 EQU 23551 23553 L23553 EQU 23553 23642 L23642 EQU 23642 23652 L23652 EQU 23652 23751 S23751 EQU 23751 23753 S23753 EQU 23753 23757 L23757 EQU 23757 23765 S23765 EQU 23765 23770 L23770 EQU 23770 04070 L04070 EQU 04070 22745 S22745 EQU 22745 22773 S22773 EQU 22773 23142 S23142 EQU 23142 23156 S23156 EQU 23156 23262 S23262 EQU 23262 23267 S23267 EQU 23267 23343 S23343 EQU 23343 23365 S23365 EQU 23365 00000 ORG 00000 00000 103 INP 1 00001 044 114 NDI 114 00003 104 00141 JMP L00141 00006 000 00007 000 00010 007 00011 037 C011 DEF 037 00012 015 00013 012 00014 077 00015 035 C015 DEF 035 00016 067 00017 177 00020 040 00021 100 00022 037 00023 000 00024 100 00025 100 00026 000 00027 040 C027 DEF 040 00030 041 00031 043 00032 046 00033 052 00034 053 00035 055 00036 057 00037 072 00040 075 00041 100 00042 144 00043 146 00044 154 00045 162 00046 163 00047 164 00050 165 00051 172 00052 134 00053 136 00054 174 00055 176 00056 314 006 ENT56 DAD TAB56 00060 045 007 ENT60 DAD TAB60 00062 176 001 ENT62 DAD TAB62 00064 053 004 ENT64 DAD TAB64 00066 156 002 ENT66 DAD TAB66 00070 207 002 ENT70 DAD TAB70 00072 240 002 ENT72 DAD TAB72 00074 046 004 ENT74 DAD TAB74 00076 245 005 ENT76 DAD TAB76 00100 141 007 ENT100 DAD TAB100 00102 230 007 ENT102 DAD TAB102 00104 013 006 ENT104 DAD TAB104 00106 144 004 ENT106 DAD TAB106 00110 070 006 ENT110 DAD TAB110 00112 246 004 ENT112 DAD TAB112 00114 372 004 ENT114 DAD TAB114 00116 060 004 ENT116 DAD TAB116 00120 300 004 ENT120 DAD TAB120 00122 247 002 ENT122 DAD TAB122 00124 101 001 ENT124 DAD TAB124 00126 355 002 ENT126 DAD TAB126 00130 365 002 ENT130 DAD TAB130 00132 010 C132 DEF 010 00133 033 00134 070 00135 140 00136 010 00137 033 00140 073 00141 150 00160 L00141 JTZ L00160 00144 044 104 NDI 104 00146 013 RFZ 00147 167 OUT 21 00150 157 OUT 21 00151 111 INP 4 00152 044 001 NDI 001 00154 013 RFZ 00155 104 00217 JMP L00217 00160 106 03267 L00160 CAL S03267 00163 056 010 LHI 010 00165 066 000 LLI 000 00167 250 L00167 XRA 00170 370 LMA 00171 060 INL 00172 306 LAL 00173 002 RLC 00174 100 00167 JFC L00167 00177 066 050 LLI 050 00201 076 104 LMI 104 00203 066 021 LLI 021 00205 076 037 LMI 037 00207 066 024 LLI 024 00211 076 140 LMI 140 00213 066 026 LLI 026 00215 076 065 LMI 065 00217 106 00225 L00217 CAL S00225 00222 104 00217 JMP L00217 00225 006 024 S00225 LAI 024 00227 106 03753 CAL S03753 00232 106 02631 CAL S02631 00235 250 XRA 00236 056 010 LHI 010 00240 066 025 LLI 025 00242 370 LMA 00243 066 030 LLI 030 00245 370 LMA 00246 056 000 LHI 000 00250 066 011 LLI 011 00252 016 004 LBI 004 00254 106 02773 CAL S02773 00257 026 000 LCI 000 00261 056 010 LHI 010 00263 066 005 LLI 005 00265 060 L00265 INL 00266 106 03725 L00266 CAL S03725 00271 074 035 CPI 035 00273 150 02437 JTZ L02437 00276 074 002 CPI 002 00300 150 01556 JTZ L01556 00303 074 015 CPI 015 00305 150 00430 JTZ L00430 00310 074 042 CPI 042 00312 150 00742 JTZ L00742 00315 106 03753 CAL S03753 00320 074 011 CPI 011 00322 150 00266 JTZ L00266 00325 074 012 CPI 012 00327 053 RTZ 00330 074 075 CPI 075 00332 110 00337 JFZ L00337 00335 026 001 LCI 001 00337 074 141 L00337 CPI 141 00341 140 00346 JTC L00346 00344 026 001 LCI 001 00346 074 140 L00346 CPI 140 00350 053 RTZ 00351 310 LBA 00352 250 XRA 00353 272 CPC 00354 301 LAB 00355 110 00424 JFZ L00424 00360 074 060 CPI 060 00362 140 00424 JTC L00424 00365 074 072 CPI 072 00367 100 00424 JFC L00424 00372 044 017 NDI 017 00374 310 LBA 00375 106 02724 CAL S02724 00400 377 HLT 00401 060 INL 00402 074 015 CPI 015 00404 150 00430 JTZ L00430 00407 061 DCL 00410 336 LDL 00411 066 006 LLI 006 00413 006 046 LAI 046 00415 277 CPM 00416 363 LLD 00417 110 00424 JFZ L00424 00422 026 001 LCI 001 00424 371 L00424 LMB 00425 104 00265 JMP L00265 00430 370 L00430 LMA 00431 066 006 LLI 006 00433 317 LBM 00434 056 000 LHI 000 00436 066 027 LLI 027 00440 006 056 L00440 LAI 056 00442 276 CPL 00443 053 RTZ 00444 307 LAM 00445 060 INL 00446 271 CPB 00447 110 00440 JFZ L00440 00452 306 LAL 00453 024 031 SUI 031 00455 022 RAC 00456 004 056 ADI 056 00460 360 LLA 00461 337 LDM 00462 060 INL 00463 347 LEM 00464 056 010 LHI 010 00466 066 070 LLI 070 00470 076 104 LMI 104 00472 060 INL 00473 373 LMD 00474 060 INL 00475 374 LME 00476 104 04070 JMP L04070 00501 066 000 TAB124 LLI 000 00503 106 03172 CAL S03172 00506 106 03445 CAL TAB60 00511 066 000 LLI 000 00513 106 03222 CAL S03222 00516 066 000 LLI 000 00520 106 03222 CAL S03222 00523 066 000 LLI 000 00525 106 02705 CAL S02705 00530 066 056 LLI 056 00532 106 02677 CAL S02677 00535 066 000 LLI 000 00537 106 03172 CAL S03172 00542 006 004 LAI 004 00544 106 03543 CAL S03543 00547 106 03117 CAL S03117 00552 066 200 LLI 200 00554 076 006 LMI 006 00556 060 INL 00557 106 02677 CAL S02677 00562 066 000 LLI 000 00564 106 02705 CAL S02705 00567 106 03321 CAL S03321 00572 106 03142 CAL S03142 00575 007 RET 00576 066 047 TAB62 LLI 047 00600 076 000 LMI 000 00602 066 000 L00602 LLI 000 00604 106 02705 CAL S02705 00607 066 000 LLI 000 00611 106 03222 CAL S03222 00614 106 03365 CAL S03365 00617 066 200 LLI 200 00621 006 006 LAI 006 00623 277 CPM 00624 150 00725 JTZ L00725 00627 006 004 LAI 004 00631 277 CPM 00632 150 00674 JTZ L00674 00635 066 011 LLI 011 00637 106 02705 CAL S02705 00642 106 03321 CAL S03321 00645 066 011 LLI 011 00647 106 03222 CAL S03222 00652 006 076 LAI 076 00654 066 007 LLI 007 00656 277 CPM 00657 150 00602 JTZ L00602 00662 307 LAM 00663 066 047 LLI 047 00665 317 LBM 00666 010 INB 00667 271 CPB 00670 371 LMB 00671 110 00602 JFZ L00602 00674 066 011 L00674 LLI 011 00676 106 02705 CAL S02705 00701 006 054 LAI 054 00703 106 03753 CAL S03753 00706 106 03252 CAL S03252 00711 106 03541 CAL TAB100 00714 066 000 LLI 000 00716 106 02677 CAL S02677 00721 106 03314 CAL TAB56 00724 007 RET 00725 066 201 L00725 LLI 201 00727 106 02705 CAL S02705 00732 066 003 LLI 003 00734 106 02677 CAL S02677 00737 104 00602 JMP L00602 00742 006 200 L00742 LAI 200 00744 106 03505 CAL S03505 00747 066 200 LLI 200 00751 076 037 LMI 037 00753 066 200 L00753 LLI 200 00755 106 03725 CAL S03725 00760 074 134 CPI 134 00762 150 01023 JTZ L01023 00765 074 042 CPI 042 00767 150 01137 JTZ S01137 00772 074 177 CPI 177 00774 150 01127 JTZ L01127 00777 106 03753 CAL S03753 01002 310 LBA 01003 106 01137 CAL S01137 01006 371 LMB 01007 066 027 LLI 027 01011 307 LAM 01012 004 001 ADI 001 01014 370 LMA 01015 106 03560 CAL S03560 01020 104 00753 JMP L00753 01023 106 03725 L01023 CAL S03725 01026 074 150 CPI 150 01030 150 01076 JTZ L01076 01033 004 007 ADI 007 01035 330 LDA 01036 026 033 LCI 033 01040 016 000 LBI 000 01042 106 03252 CAL S03252 01045 006 022 LAI 022 01047 106 03753 CAL S03753 01052 106 03252 CAL S03252 01055 006 024 LAI 024 01057 106 03753 CAL S03753 01062 066 027 LLI 027 01064 307 LAM 01065 004 002 ADI 002 01067 370 LMA 01070 106 03560 CAL S03560 01073 104 00753 JMP L00753 01076 056 000 L01076 LHI 000 01100 066 015 LLI 015 01102 016 006 LBI 006 01104 106 02773 CAL S02773 01107 006 022 LAI 022 01111 106 03753 CAL S03753 01114 106 02773 CAL S02773 01117 006 024 LAI 024 01121 106 03753 CAL S03753 01124 104 00753 JMP L00753 01127 370 L01127 LMA 01130 305 LAH 01131 106 03753 CAL S03753 01134 104 00753 JMP L00753 01137 006 022 S01137 LAI 022 01141 106 03753 CAL S03753 01144 307 LAM 01145 106 03753 CAL S03753 01150 006 024 LAI 024 01152 106 03753 CAL S03753 01155 007 RET 01156 066 007 TAB66 LLI 007 01160 006 015 LAI 015 01162 277 CPM 01163 110 01170 JFZ L01170 01166 076 001 LMI 001 01170 026 000 L01170 LCI 000 01172 317 LBM 01173 302 L01173 LAC 01174 271 CPB 01175 053 RTZ 01176 066 000 LLI 000 01200 106 03222 CAL S03222 01203 020 INC 01204 104 01173 JMP L01173 01207 066 007 TAB70 LLI 007 01211 006 015 LAI 015 01213 277 CPM 01214 110 01221 JFZ L01221 01217 076 001 LMI 001 01221 026 000 L01221 LCI 000 01223 317 LBM 01224 302 L01224 LAC 01225 271 CPB 01226 053 RTZ 01227 066 000 LLI 000 01231 106 03172 CAL S03172 01234 020 INC 01235 104 01224 JMP L01224 01240 066 053 TAB72 LLI 053 01242 076 000 LMI 000 01244 104 01253 JMP L01253 01247 066 053 TAB122 LLI 053 01251 076 001 LMI 001 01253 066 007 L01253 LLI 007 01255 307 LAM 01256 074 076 CPI 076 01260 150 01344 JTZ L01344 01263 074 015 CPI 015 01265 110 01272 JFZ L01272 01270 076 001 LMI 001 01272 250 L01272 XRA 01273 317 LBM 01274 271 CPB 01275 053 RTZ 01276 066 050 LLI 050 01300 371 LMB 01301 060 INL 01302 370 LMA 01303 066 053 L01303 LLI 053 01305 250 XRA 01306 277 CPM 01307 066 000 LLI 000 01311 110 01322 JFZ L01322 01314 106 03222 CAL S03222 01317 104 01325 JMP L01325 01322 106 03172 L01322 CAL S03172 01325 106 01355 L01325 CAL TAB126 01330 066 050 LLI 050 01332 307 LAM 01333 060 INL 01334 317 LBM 01335 010 INB 01336 271 CPB 01337 053 RTZ 01340 371 LMB 01341 104 01303 JMP L01303 01344 066 000 L01344 LLI 000 01346 106 02705 CAL S02705 01351 106 03652 CAL S03652 01354 007 RET 01355 066 000 TAB126 LLI 000 01357 106 02705 CAL S02705 01362 106 03365 CAL S03365 01365 066 036 TAB130 LLI 036 01367 250 XRA 01370 277 CPM 01371 150 01400 JTZ L01400 01374 106 01441 CAL S01441 01377 007 RET 01400 106 01404 L01400 CAL S01404 01403 007 RET 01404 066 200 S01404 LLI 200 01406 006 035 LAI 035 01410 277 CPM 01411 150 01433 JTZ L01433 01414 106 03753 CAL S03753 01417 016 005 LBI 005 01421 006 032 LAI 032 01423 277 CPM 01424 110 01430 JFZ L01430 01427 010 INB 01430 106 02773 L01430 CAL S02773 01433 016 200 L01433 LBI 200 01435 106 02773 CAL S02773 01440 007 RET 01441 016 073 S01441 LBI 073 01443 106 02763 CAL S02763 01446 006 015 LAI 015 01450 106 03753 CAL S03753 01453 006 012 LAI 012 01455 106 03753 CAL S03753 01460 106 03753 CAL S03753 01463 066 200 LLI 200 01465 307 L01465 LAM 01466 074 177 CPI 177 01470 110 01500 JFZ L01500 01473 006 122 LAI 122 01475 104 01507 JMP L01507 01500 074 040 L01500 CPI 040 01502 100 01537 JFC L01537 01505 064 040 ORI 040 01507 106 03753 L01507 CAL S03753 01512 336 LDL 01513 066 047 LLI 047 01515 373 LMD 01516 056 000 LHI 000 01520 066 132 LLI 132 01522 016 007 LBI 007 01524 106 02773 CAL S02773 01527 056 010 LHI 010 01531 066 047 LLI 047 01533 337 LDM 01534 363 LLD 01535 006 011 LAI 011 01537 106 03753 L01537 CAL S03753 01542 060 INL 01543 250 XRA 01544 276 CPL 01545 110 01465 JFZ L01465 01550 016 070 LBI 070 01552 106 02763 CAL S02763 01555 007 RET 01556 066 177 L01556 LLI 177 01560 016 001 LBI 001 01562 106 01634 CAL S01634 01565 106 01674 CAL S01674 01570 106 01576 L01570 CAL S01576 01573 104 01570 JMP L01570 01576 106 03725 S01576 CAL S03725 01601 074 011 CPI 011 01603 150 01763 JTZ L01763 01606 074 177 CPI 177 01610 150 02013 JTZ L02013 01613 074 002 CPI 002 01615 150 01674 JTZ S01674 01620 074 015 CPI 015 01622 150 00217 JTZ L00217 01625 370 LMA 01626 064 040 ORI 040 01630 106 03753 CAL S03753 01633 007 RET 01634 306 S01634 LAL 01635 201 ADB 01636 330 LDA 01637 066 036 LLI 036 01641 250 XRA 01642 277 CPM 01643 360 LLA 01644 003 RFC 01645 250 XRA 01646 251 XRB 01647 160 01664 JTS L01664 01652 060 INL 01653 307 LAM 01654 061 DCL 01655 074 033 CPI 033 01657 013 RFZ 01660 060 INL 01661 060 INL 01662 060 INL 01663 007 RET 01664 307 L01664 LAM 01665 074 040 CPI 040 01667 043 RTC 01670 061 DCL 01671 061 DCL 01672 061 DCL 01673 007 RET 01674 336 S01674 LDL 01675 066 036 LLI 036 01677 250 XRA 01700 277 CPM 01701 363 LLD 01702 150 01712 JTZ L01712 01705 307 LAM 01706 106 03753 CAL S03753 01711 007 RET 01712 006 035 L01712 LAI 035 01714 277 CPM 01715 016 005 LBI 005 01717 053 RTZ 01720 106 03753 CAL S03753 01723 106 02773 CAL S02773 01726 010 INB 01727 106 02773 CAL S02773 01732 007 RET 01733 306 Q1733 LAL 01734 074 200 CPI 200 01736 053 RTZ 01737 336 LDL 01740 066 036 LLI 036 01742 016 372 LBI 372 01744 250 XRA 01745 277 CPM 01746 363 LLD 01747 150 01754 JTZ L01754 01752 016 377 LBI 377 01754 106 01634 L01754 CAL S01634 01757 106 01674 CAL S01674 01762 007 RET 01763 306 L01763 LAL 01764 074 372 CPI 372 01766 003 RFC 01767 336 LDL 01770 066 036 LLI 036 01772 016 006 LBI 006 01774 250 XRA 01775 277 CPM 01776 363 LLD 01777 150 02004 JTZ L02004 02002 016 001 LBI 001 02004 106 01634 L02004 CAL S01634 02007 106 01674 CAL S01674 02012 007 RET 02013 336 L02013 LDL 02014 250 XRA 02015 277 CPM 02016 150 02024 JTZ L02024 02021 076 026 LMI 026 02023 007 RET 02024 106 03725 L02024 CAL S03725 02027 074 001 CPI 001 02031 110 02037 JFZ L02037 02034 076 035 LMI 035 02036 007 RET 02037 306 L02037 LAL 02040 004 005 ADI 005 02042 360 LLA 02043 076 026 LMI 026 02045 007 RET 02046 066 036 TAB74 LLI 036 02050 076 000 LMI 000 02052 007 RET 02053 066 036 TAB64 LLI 036 02055 076 001 LMI 001 02057 007 RET 02060 066 007 TAB116 LLI 007 02062 106 02705 L02062 CAL S02705 02065 066 000 LLI 000 02067 106 02677 CAL S02677 02072 106 03365 L02072 CAL S03365 02075 066 200 LLI 200 02077 307 LAM 02100 074 004 CPI 004 02102 053 RTZ 02103 074 006 CPI 006 02105 150 02133 JTZ L02133 02110 060 INL 02111 074 005 CPI 005 02113 150 02062 JTZ L02062 02116 066 000 LLI 000 02120 106 03222 CAL S03222 02123 066 000 LLI 000 02125 106 02705 CAL S02705 02130 104 02072 JMP L02072 02133 006 004 L02133 LAI 004 02135 106 03543 CAL S03543 02140 106 03321 CAL S03321 02143 007 RET 02144 066 007 TAB106 LLI 007 02146 106 02705 L02146 CAL S02705 02151 066 000 LLI 000 02153 106 02677 CAL S02677 02156 106 03365 L02156 CAL S03365 02161 066 200 LLI 200 02163 307 LAM 02164 074 004 CPI 004 02166 150 02221 JTZ L02221 02171 060 INL 02172 074 005 CPI 005 02174 150 02146 JTZ L02146 02177 074 006 CPI 006 02201 150 02146 JTZ L02146 02204 066 000 LLI 000 02206 106 03222 CAL S03222 02211 066 000 LLI 000 02213 106 02705 CAL S02705 02216 104 02156 JMP L02156 02221 076 006 L02221 LMI 006 02223 066 013 LLI 013 02225 106 02705 CAL S02705 02230 066 201 LLI 201 02232 106 02677 CAL S02677 02235 066 000 LLI 000 02237 106 02705 CAL S02705 02242 106 03321 CAL S03321 02245 007 RET 02246 056 010 TAB112 LHI 010 02250 066 000 LLI 000 02252 106 02705 CAL S02705 02255 006 026 LAI 026 02257 106 03543 CAL S03543 02262 066 200 LLI 200 02264 106 02677 CAL S02677 02267 016 060 LBI 060 02271 321 LCB 02272 036 100 LDI 100 02274 106 03321 CAL S03321 02277 007 RET 02300 006 377 TAB120 LAI 377 02302 106 03505 CAL S03505 02305 106 03427 CAL S03427 02310 006 004 LAI 004 02312 106 03543 CAL S03543 02315 066 010 LLI 010 02317 006 057 LAI 057 02321 277 CPM 02322 110 02342 JFZ L02342 02325 066 056 LLI 056 02327 106 02705 CAL S02705 02332 066 200 LLI 200 02334 076 006 LMI 006 02336 060 INL 02337 106 02677 CAL S02677 02342 066 000 L02342 LLI 000 02344 106 03222 CAL S03222 02347 066 000 LLI 000 02351 106 03222 CAL S03222 02354 066 000 LLI 000 02356 106 02705 CAL S02705 02361 106 03321 CAL S03321 02364 066 000 LLI 000 02366 106 03222 CAL S03222 02371 007 RET 02372 036 015 TAB114 LDI 015 02374 026 054 LCI 054 02376 066 007 LLI 007 02400 302 LAC 02401 277 CPM 02402 150 02422 JTZ L02422 02405 303 LAD 02406 277 CPM 02407 150 02520 JTZ L02520 02412 317 LBM 02413 066 026 LLI 026 02415 307 LAM 02416 044 040 NDI 040 02420 261 ORB 02421 370 LMA 02422 060 L02422 INL 02423 303 LAD 02424 277 CPM 02425 150 02520 JTZ L02520 02430 317 LBM 02431 066 024 LLI 024 02433 371 LMB 02434 104 02520 JMP L02520 02437 006 022 L02437 LAI 022 02441 106 03753 CAL S03753 02444 066 023 LLI 023 02446 250 XRA 02447 370 LMA 02450 006 035 LAI 035 02452 104 02542 JMP L02542 02455 066 023 L02455 LLI 023 02457 076 001 LMI 001 02461 016 035 LBI 035 02463 026 033 LCI 033 02465 060 INL 02466 337 LDM 02467 006 024 LAI 024 02471 106 03753 CAL S03753 02474 106 03252 CAL S03252 02477 066 027 LLI 027 02501 307 LAM 02502 004 011 ADI 011 02504 370 LMA 02505 106 03560 CAL S03560 02510 006 022 LAI 022 02512 106 03753 CAL S03753 02515 106 03252 CAL S03252 02520 106 02631 L02520 CAL S02631 02523 106 03725 CAL S03725 02526 074 037 CPI 037 02530 110 02535 JFZ L02535 02533 006 032 LAI 032 02535 074 040 L02535 CPI 040 02537 140 02614 JTC L02614 02542 066 022 L02542 LLI 022 02544 056 000 LHI 000 02546 104 02556 JMP L02556 02551 106 03725 L02551 CAL S03725 02554 207 ADM 02555 060 INL 02556 106 03753 L02556 CAL S03753 02561 006 030 LAI 030 02563 276 CPL 02564 110 02551 JFZ L02551 02567 056 010 LHI 010 02571 066 027 LLI 027 02573 307 LAM 02574 004 006 ADI 006 02576 370 LMA 02577 106 03560 CAL S03560 02602 250 XRA 02603 066 023 LLI 023 02605 277 CPM 02606 150 02455 JTZ L02455 02611 104 02520 JMP L02520 02614 006 024 L02614 LAI 024 02616 106 03753 CAL S03753 02621 106 02713 CAL S02713 02624 006 010 LAI 010 02626 106 03753 CAL S03753 02631 106 02713 S02631 CAL S02713 02634 056 010 LHI 010 02636 066 026 LLI 026 02640 307 LAM 02641 106 03753 CAL S03753 02644 007 RET 02645 066 007 TAB76 LLI 007 02647 006 015 LAI 015 02651 277 CPM 02652 150 02666 JTZ L02666 02655 106 02705 CAL S02705 02660 066 000 LLI 000 02662 106 02677 CAL S02677 02665 007 RET 02666 066 000 L02666 LLI 000 02670 106 02705 CAL S02705 02673 106 03252 CAL S03252 02676 007 RET 02677 371 S02677 LMB 02700 060 INL 02701 372 LMC 02702 060 INL 02703 373 LMD 02704 007 RET 02705 317 S02705 LBM 02706 060 INL 02707 327 LCM 02710 060 INL 02711 337 LDM 02712 007 RET 02713 106 03751 S02713 CAL S03751 02716 006 041 LAI 041 02720 106 03753 CAL S03753 02723 007 RET 02724 106 03725 S02724 CAL S03725 02727 074 015 CPI 015 02731 053 RTZ 02732 106 03753 CAL S03753 02735 074 054 CPI 054 02737 053 RTZ 02740 074 140 CPI 140 02742 150 00217 JTZ L00217 02745 044 017 NDI 017 02747 330 LDA 02750 301 LAB 02751 022 RAC 02752 310 LBA 02753 022 RAC 02754 022 RAC 02755 201 ADB 02756 203 ADD 02757 310 LBA 02760 104 02724 JMP S02724 02763 106 03751 S02763 CAL S03751 02766 301 LAB 02767 106 03753 CAL S03753 02772 007 RET 02773 250 S02773 XRA 02774 320 LCA 02775 336 LDL 02776 307 L02776 LAM 02777 106 03753 CAL S03753 03002 060 INL 03003 301 LAB 03004 020 INC 03005 272 CPC 03006 110 02776 JFZ L02776 03011 363 LLD 03012 007 RET 03013 066 007 TAB104 LLI 007 03015 307 LAM 03016 074 015 CPI 015 03020 150 03044 JTZ L03044 03023 066 000 LLI 000 03025 106 02705 CAL S02705 03030 074 041 CPI 041 03032 150 03064 JTZ L03064 03035 365 LLH 03036 106 02705 CAL S02705 03041 104 03057 JMP L03057 03044 006 075 L03044 LAI 075 03046 106 03753 CAL S03753 03051 106 03117 CAL S03117 03054 106 03252 CAL S03252 03057 066 000 L03057 LLI 000 03061 106 02677 CAL S02677 03064 106 03142 L03064 CAL S03142 03067 007 RET 03070 106 03267 TAB110 CAL S03267 03073 106 03541 CAL TAB100 03076 066 200 LLI 200 03100 016 060 LBI 060 03102 321 LCB 03103 036 100 LDI 100 03105 371 LMB 03106 060 INL 03107 371 LMB 03110 060 INL 03111 076 101 LMI 101 03113 106 03321 CAL S03321 03116 007 RET 03117 016 060 S03117 LBI 060 03121 321 LCB 03122 036 100 LDI 100 03124 106 03365 CAL S03365 03127 066 200 LLI 200 03131 106 02705 CAL S02705 03134 066 000 LLI 000 03136 106 02677 CAL S02677 03141 007 RET 03142 106 03303 S03142 CAL S03303 03145 006 047 LAI 047 03147 106 03753 CAL S03753 03152 106 03252 CAL S03252 03155 007 RET 03156 106 03303 Q3156 CAL S03303 03161 006 041 LAI 041 03163 106 03753 CAL S03753 03166 106 03252 CAL S03252 03171 007 RET 03172 060 S03172 INL 03173 060 INL 03174 317 LBM 03175 011 DCB 03176 074 077 CPI 077 03200 371 LMB 03201 013 RFZ 03202 076 137 LMI 137 03204 061 DCL 03205 317 LBM 03206 011 DCB 03207 074 057 CPI 057 03211 371 LMB 03212 013 RFZ 03213 076 071 LMI 071 03215 061 DCL 03216 317 LBM 03217 011 DCB 03220 371 LMB 03221 007 RET 03222 060 S03222 INL 03223 060 INL 03224 317 LBM 03225 010 INB 03226 074 140 CPI 140 03230 371 LMB 03231 013 RFZ 03232 076 100 LMI 100 03234 061 DCL 03235 317 LBM 03236 010 INB 03237 074 072 CPI 072 03241 371 LMB 03242 013 RFZ 03243 076 060 LMI 060 03245 061 DCL 03246 317 LBM 03247 010 INB 03250 371 LMB 03251 007 RET 03252 301 S03252 LAB 03253 106 03753 CAL S03753 03256 302 LAC 03257 106 03753 CAL S03753 03262 303 LAD 03263 106 03753 CAL S03753 03266 007 RET 03267 106 03751 S03267 CAL S03751 03272 006 067 LAI 067 03274 106 03753 CAL S03753 03277 106 03753 CAL S03753 03302 007 RET 03303 106 03751 S03303 CAL S03751 03306 006 046 LAI 046 03310 106 03753 CAL S03753 03313 007 RET 03314 066 000 TAB56 LLI 000 03316 106 02705 CAL S02705 03321 106 03303 S03321 CAL S03303 03324 006 046 LAI 046 03326 106 03753 CAL S03753 03331 106 03252 CAL S03252 03334 006 022 LAI 022 03336 106 03753 CAL S03753 03341 056 010 LHI 010 03343 066 200 LLI 200 03345 307 S03345 LAM 03346 106 03753 CAL S03753 03351 060 INL 03352 250 XRA 03353 276 CPL 03354 110 03345 JFZ S03345 03357 006 024 LAI 024 03361 106 03753 CAL S03753 03364 007 RET 03365 106 03303 S03365 CAL S03303 03370 006 044 LAI 044 03372 106 03753 CAL S03753 03375 106 03252 CAL S03252 03400 046 061 LEI 061 03402 146 23753 CAL S23753 03405 056 050 LHI 050 03407 066 240 LLI 240 03411 146 23765 CAL S23765 03414 370 LMA 03415 060 INL 03416 250 XRA 03417 276 CPL 03420 150 23451 JTZ L23451 03423 146 23765 CAL S23765 03426 047 RET 03427 146 23751 S03427 CAL S23751 03432 046 067 LEI 067 03434 146 23753 CAL S23753 03437 046 065 LEI 065 03441 146 23753 CAL S23753 03444 047 RET 03445 066 040 TAB60 LLI 040 03447 146 22745 CAL S22745 03452 146 23365 CAL S23365 03455 146 23142 CAL S23142 03460 046 062 LEI 062 03462 146 23753 CAL S23753 03465 056 177 LHI 177 03467 066 240 LLI 240 03471 146 22773 CAL S22773 03474 046 064 LEI 064 03476 146 23753 CAL S23753 03501 146 23467 CAL S23467 03504 047 RET 03505 066 067 S03505 LLI 067 03507 267 ORM 03510 350 LHA 03511 066 040 LLI 040 03513 046 064 LEI 064 03515 146 23753 CAL S23753 03520 341 LEB 03521 272 CPC 03522 053 RTZ 03523 046 062 LEI 062 03525 146 23753 CAL S23753 03530 046 066 LEI 066 03532 146 23753 CAL S23753 03535 060 INL 03536 144 23553 JMP L23553 03541 046 066 TAB100 LEI 066 03543 056 050 S03543 LHI 050 03545 066 240 LLI 240 03547 340 LEA 03550 250 XRA 03551 374 LME 03552 060 INL 03553 276 CPL 03554 150 23551 JTZ L23551 03557 047 RET 03560 074 172 S03560 CPI 172 03562 043 RTC 03563 066 067 LLI 067 03565 350 LHA 03566 046 240 LEI 240 03570 261 ORB 03571 350 LHA 03572 066 040 LLI 040 03574 372 LMC 03575 046 062 LEI 062 03577 146 23753 CAL S23753 03602 046 066 LEI 066 03604 146 23753 CAL S23753 03607 060 INL 03610 341 LEB 03611 272 CPC 03612 150 23642 JTZ L23642 03615 046 064 LEI 064 03617 146 23753 CAL S23753 03622 066 040 LLI 040 03624 146 23262 CAL S23262 03627 047 RET 03630 146 23267 TAB102 CAL S23267 03633 046 073 LEI 073 03635 146 23753 CAL S23753 03640 046 054 LEI 054 03642 146 23753 CAL S23753 03645 066 047 LLI 047 03647 146 22745 CAL S22745 03652 146 23156 S03652 CAL S23156 03655 046 061 LEI 061 03657 146 23753 CAL S23753 03662 146 23765 CAL S23765 03665 146 23343 CAL S23343 03670 046 044 LEI 044 03672 146 23753 CAL S23753 03675 146 23440 CAL S23440 03700 066 240 LLI 240 03702 347 LEM 03703 074 044 CPI 044 03705 150 23757 JTZ L23757 03710 060 INL 03711 146 22745 CAL S22745 03714 144 23652 JMP L23652 03717 046 063 Q3717 LEI 063 03721 146 23753 CAL S23753 03724 047 RET 03725 046 044 S03725 LEI 044 03727 161 OUT 20 03730 143 OUT 21 03731 044 054 NDI 054 03733 150 23770 JTZ L23770 03736 141 OUT 20 03737 044 177 NDI 177 03741 340 LEA 03742 046 050 LEI 050 03744 161 OUT 20 03745 177 OUT 21 03746 157 OUT 21 03747 344 LEE 03750 047 RET 03751 046 073 S03751 LEI 073 03753 340 S03753 LEA 03754 046 140 LEI 140 03756 161 OUT 20 03757 143 OUT 21 03760 044 140 NDI 140 03762 150 23757 JTZ L23757 03765 344 LEE 03766 155 OUT 20 03767 046 050 LEI 050 03771 161 OUT 20 03772 173 OUT 21 03773 344 LEE 03774 047 RET 03775 040 03776 040 03777 040 04000 END