Assembly listing generated by yaYUL

Source Code

These source-code files are part of a reconstructed copy of Comanche 72, the first release of the Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 13.

They have been adapted from sources files created from a listing of Comanche 55. These source files were updated to match binary dumps of a set of Comanche 67 rope modules. They were then further modified by applying known changes between Comanche 67 and Comanche 72. A binary dump of module B2 of Comanche 72, part number 2010802-021, was also used to validate changes made to banks 05-13. The resulting code assembles to have identical memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably high confidence that the changes that have been made are correct. In places where ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.

Since no contemporary listings of Comanche 72 are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

059079,000002: 059080,000003: 059081,000004: 059082,000005: 059083,000006: 059084,000007: 059085,000008: 059086,000009: 059087,000010: 059088,000011: 059089,000012: 059090,000013: 059091,000014: 059092,000015: 059093,000016: 059094,000017: 059095,000018: 059096,000019: 059097,000020: 01,3520 059098,000021: 01,2000 059099,000022: 01,2000 059100,000023: 059101,000024: 01,3520 E3,1436 059102,000025: 059103,000026: 01,3520 059104,000027: < ## Copyright: Public domain. ## Filename: RESTARTS_ROUTINE.agc ## Purpose: A section of Comanche revision 072. ## It is part of the reconstructed source code for the first ## release of the software for the Command Module's (CM) Apollo ## Guidance Computer (AGC) for Apollo 13. No original listings ## of this program are available; instead, this file was recreated ## from a printout of Comanche 055, binary dumps of a set of ## Comanche 067 rope modules, and changelogs between Comanche 067 ## and 072. It has been adapted such that the resulting bugger words ## exactly match those specified for Comanche 072 in NASA drawing ## 2021153G, which gives relatively high confidence that the ## reconstruction is correct. ## Assembler: yaYUL ## Contact: Ron Burkey <info@sandroid.org>. ## Website: www.ibiblio.org/apollo/index.html ## Mod history: 2024-05-13 MAS Created from Comanche 067. BANK 01 SETLOC RESTART BANK EBANK= PHSNAME1 # GOPROG MUST SWITCH TO THIS EBANK COUNT 01/RSROU 453">059105,000028: 01,3520 30161 RESTARTS CA MPAC +5 # GET GROUP NUMBER -1 60000 DOUBLE # SAVE FOR INDEXING 54155 TS TEMP2G 33762 CA PHS2CADR # SET UP EXIT IN CASE IT IS AN EVEN 54157 TS TEMPSWCH # TABLE PHASE 33557 CA RTRNCADR # TO SAVE TIME ASSUME IT WILL GET NEXT 54707 TS GOLOC +2 # GROUP AFTER THIS 30154 CA TEMPPHS 75065 MASK OCT1400 10000 CCS A # IS IT A VARIABLE OR TABLE RESTART 13543 TCF ITSAVAR # IT:S A VARIABLE RESTART 432">059120,000043: 01,3533 10154 GETPART2 CCS TEMPPHS # IS IT AN X.1 RESTART 10000 CCS A 13643 TCF ITSATBL # NO, ITS A TABLE RESTART 35102 CA PRIO14 # IT IS AN X.1 RESTART, THEREFORE START 05163 TC FINDVAC # THE DISPLAY RESTART JOB EBANK= LST1 03261 20063 2CADR INITDSP 03557 TC RTRNCADR # FINISHED WITH THIS GROUP, GET NEXT ONE 2">059131,000054: 01,3543 75065 ITSAVAR MASK OCT1400 # IS IT TYPE B ? 10000 CCS A 13614 TCF ITSLIKEB # YES, IT IS TYPE B 00006 EXTEND # STORE THE JOB (OR TASK) 2CADR FOR EXIT 50155 NDX TEMP2G 31437 DCA PHSNAME1 52706 DXCH GOLOC 30154 CA TEMPPHS # SEE IF THIS IS A JOB, TASK, OR A LONGCAL 75037 MASK OCT7 67715 AD MINUS2 10000 CCS A 13726 TCF ITSLNGCL # ITS A LONGCALL 452">059146,000069: 01,3557 04711 RTRNCADR TC SWRETURN # CANT GET HERE 13562 TCF ITSAWAIT 13627 TCF ITSAJOB # ITS A JOB 954">059151,000074: 01,3562 33766 ITSAWAIT CA WTLTCADR # SET UP WAITLIST CALL 54704 TS GOLOC -1 50155 NDX TEMP2G # DIRECTLY STORED 31054 CA PHSPRDT1 354">059156,000079: 01,3566 10000 TIMETEST CCS A # IS IT AN IMMEDIATE RESTART 24000 INCR A # NO, 13573 TCF FINDTIME # FIND OUT WHEN IT SHOULD BEGIN 15514 TCF ITSINDIR # STORED INDIRECTLY 13612 TCF IMEDIATE # IT WANTS AN IMMEDIATE RESTART # ***** THIS MUST BE IN FIXED FIXED ***** BLOCK 02 SETLOC FFTAG2 BANK COUNT 02/RSROU 952">059172,000095: 5514 22706 ITSINDIR LXCH GOLOC +1 # GET THE CORRECT E BANK IN CASE THIS IS 22006 LXCH BB # SWITCHED ERRASIBLE 50000 NDX A # GET THE TIME INDIRECTLY 30001 CA 1 22006 LXCH BB # RESTORE THE BB AND GOLOC 22706 LXCH GOLOC +1 13573 TCF FINDTIME # FIND OUT WHEN IT SHOULD BEGIN # ***** YOU MAY RETURN TO SWITCHED FIXED ***** BANK 01 SETLOC RESTART BANK COUNT 01/RSROU D45">059191,000114: 01,3573 40000 FINDTIME COM # MAKE NEGITIVE SINCE IT WILL BE SUBTRACTD 54001 TS L # AND SAVE 50155 NDX TEMP2G 41053 CS TBASE1 00006 EXTEND 60025 SU TIME1 10000 CCS A 40000 COM 67700 AD OCT37776 65033 AD ONE 60001 AD L 10000 CCS A 35035 CA ZERO 13612 TCF +2 13612 TCF +1 445">059206,000129: 01,3612 65033 IMEDIATE AD ONE 00704 TC GOLOC -1 542">059208,000131: 01,3614 33557 ITSLIKEB CA RTRNCADR # TYPE B, SO STORE RETURN IN 54157 TS TEMPSWCH # TEMPSWCH IN CASE OF AN EVEN PHASE 33763 CA PRT2CADR # SET UP EXIT TO GET TABLE PART OF THIS 54707 TS GOLOC +2 # VARIABLE TYPE OF PHASE 30154 CA TEMPPHS # MAKE THE PHASE LOOK RIGHT FOR THE TABLE 76043 MASK OCT177 # PART OF THIS VARIABLE PHASE 54154 TS TEMPPHS 00006 EXTEND 50155 NDX TEMP2G # OBTAIN THE JOB:S 2CADR 31437 DCA PHSNAME1 52706 DXCH GOLOC 2">059223,000146: 01,3627 50155 ITSAJOB NDX TEMP2G # NOW ADD THE PRIORITY AND LET:S GO 31054 CA PHSPRDT1 143">059225,000148: 01,3631 54704 CHKNOVAC TS GOLOC -1 # SAVE PRIO UNTIL WE SEE IF ITS 00006 EXTEND # A FINDVAC OR A NOVAC 63637 BZMF ITSNOVAC 33765 CAF FVACCADR # POSITIVE, SET UP FINDVAC CALL. 56704 XCH GOLOC -1 # PICK UP PRIO, 00704 TC GOLOC -1 # AND GO 143">059233,000156: 01,3637 33767 ITSNOVAC CAF NOVACADR # NEGATIVE, 56704 XCH GOLOC -1 # SET UP NOVAC CALL, 40000 COM # CORRECT PRIO, 00704 TC GOLOC -1 # AND GO C">059238,000161: 01,3643 54020 ITSATBL TS CYR # FIND OUT IF THE PHASE IS ODD OR EVEN 10020 CCS CYR 13646 TCF +1 # IT:S EVEN 13744 TCF ITSEVEN 33557 CA RTRNCADR # IN CASE THIS IS THE SECOND PART OF A 54707 TS GOLOC +2 # TYPE B RESTART, WE NEED PROPER EXIT 30154 CA TEMPPHS # SET UP POINTER FOR FINDING OUR PLACE IN 54021 TS SR # THE RESTART TABLES 60021 AD SR 50155 NDX TEMP2G 62001 AD SIZETAB +1 54156 TS POINTER 2">059252,000175: 01,3657 00006 CONTBL2 EXTEND # FIND OUT WHAT:S IN THE TABLE 50156 NDX POINTER 32002 DCA CADRTAB # GET THE 2CADR 22706 LXCH GOLOC +1 # STORE THE BB INFORMATION 10000 CCS A # IS IT A JOB OR IS IT TIMED 24000 INCR A # POSITIVE, MUST BE A JOB 13740 TCF ITSAJOB2 24000 INCR A # MUST BE EITHER A WAITLIST OR LONGCALL 54705 TS GOLOC # LET-S STORE THE CORRECT CADR 33766 CA WTLTCADR # SET UP OUR EXIT TO WAITLIST 54704 TS GOLOC -1 30706 CA GOLOC +1 # NOW FIND OUT IF IT IS A WAITLIST CALL 75022 MASK BIT10 # THIS SHOULD BE ONE IF WE HAVE -BB 10000 CCS A # FOR THAT MATTER SO SHOULD BE BITS 9,8,7, # 6,5, AND LAST BUT NOT LEAST (PERHAPS NOT # IN IMPORTANCE ANYWAY. BIT 4 13733 TCF ITSWTLST # IT IS A WAITLIST CALL 50156 NDX POINTER # OBTAIN THE ORIGINAL DELTA T 32000 CA PRDTTAB # ADDRESS FOR THIS LONGCALL 15523 TCF ITSLGCL1 # NOW GO GET THE DELTA TIME # ***** THIS MUST BE IN FIXED FIXED ***** BLOCK 02 SETLOC FFTAG2 BANK COUNT 02/RSROU C31">059288,000211: 5523 22706 ITSLGCL1 LXCH GOLOC +1 # OBTAIN THE CORRECT E BANK 22006 LXCH BB 22706 LXCH GOLOC +1 # AND PRESERVE OUR E AND F BANKS 00006 EXTEND # GET THE DELTA TIME 50000 NDX A 30001 DCA 0 22706 LXCH GOLOC +1 # RESTORE OUR E AND F BANK 22006 LXCH BB # RESTORE THE TASKS E AND F BANKS 22706 LXCH GOLOC +1 # AND PRESERVE OUR L 13701 TCF ITSLGCL2 # NOW LET:S PROCESS THIS LONGCALL # ***** YOU MAY RETURN TO SWITCHED FIXED ***** BANK 01 SETLOC RESTART BANK COUNT 01/RSROU C32">059307,000230: 01,3701 53140 ITSLGCL2 DXCH LONGTIME 00006 EXTEND # CALCULATE TIME LEFT 40025 DCS TIME2 21140 DAS LONGTIME 00006 EXTEND 31136 DCA LONGBASE 21140 DAS LONGTIME 11137 CCS LONGTIME # FIND OUT HOW THIS SHOULD BE RESTARTED 13721 TCF LONGCLCL 13714 TCF +2 13607 TCF IMEDIATE -3 11140 CCS LONGTIME +1 13721 TCF LONGCLCL 13717 NOOP # CAN:T GET HERE ********* 13607 TCF IMEDIATE -3 13612 TCF IMEDIATE 34C">059326,000249: 01,3721 33764 LONGCLCL CA LGCLCADR # WE WILL GO TO LONGCALL 54704 TS GOLOC -1 00006 EXTEND # PREPARE OUR ENTRY TO LONGCALL 31140 DCA LONGTIME 00704 TC GOLOC -1 34C">059333,000256: 01,3726 33766 ITSLNGCL CA WTLTCADR # ASSUME IT WILL GO TO WAITLIST 54704 TS GOLOC -1 50155 NDX TEMP2G 41054 CS PHSPRDT1 # GET THE DELTA T ADDRESS 15523 TCF ITSLGCL1 # NOW GET THE DELTA TIME 354">059341,000264: 01,3733 40706 ITSWTLST CS GOLOC +1 # CORRECT THE BBCON INFORMATION 54706 TS GOLOC +1 50156 NDX POINTER # GET THE DT AND FIND OUT IF IT WAS STORED 32000 CA PRDTTAB # DIRECTLY OR INDIRECTLY 13566 TCF TIMETEST # FIND OUT HOW THE TIME IS STORED 232">059348,000271: 01,3740 56705 ITSAJOB2 XCH GOLOC # STORE THE CADR 50156 NDX POINTER # ADD THE PRIORITY AND LET:S GO 32000 CA PRDTTAB 13631 TCF CHKNOVAC E">059355,000278: 01,3744 30157 ITSEVEN CA TEMPSWCH # SET UP FOR EITHER THE SECOND PART OF THE 54707 TS GOLOC +2 # TABLE, OR A RETURN FOR THE NEXT GROUP 50155 NDX TEMP2G # SET UP POINTER FOR OUR LOCATION WITHIN 32000 CA SIZETAB # THE TABLE 60154 AD TEMPPHS # THIS MAY LOOK BAD BUT LET:S SEE YOU DO 60154 AD TEMPPHS # BETTER IN TIME OR NUMBERR OF LOCATIONS 60154 AD TEMPPHS 54156 TS POINTER 13657 TCF CONTBL2 # NOW PROCESS WHAT IS IN THE TABLE 432">059367,000290: 01,3755 36214 PHSPART2 CA THREE # SET THE POINTER FOR THE SECOND HALF OF 26156 ADS POINTER # THE TABLE 33557 CA RTRNCADR # THIS WILL BE OUR LAST TIME THROUGH THE 54707 TS GOLOC +2 # EVEN TABLE, SO AFTER IT GET THE NEXT # GROUP 13657 TCF CONTBL2 # SO LET:S GET THE SECOND ENTRY IN THE TBL 3">059375,000298: 01,3762 0154 TEMPPHS EQUALS MPAC >059376,000299: 01,3762 0155 TEMP2G EQUALS MPAC +1 2">059377,000300: 01,3762 0156 POINTER EQUALS MPAC +2 348">059378,000301: 01,3762 0157 TEMPSWCH EQUALS MPAC +3 /a>059379,000302: 01,3762 0705 GOLOC EQUALS VAC5 +20D >059380,000303: 01,3762 7715 MINUS2 EQUALS NEG2 >059381,000304: 01,3762 6043 OCT177 EQUALS LOW7 452">059383,000306: 01,3762 03755 PHS2CADR GENADR PHSPART2 452">059384,000307: 01,3763 03533 PRT2CADR GENADR GETPART2 452">059385,000308: 01,3764 05356 LGCLCADR GENADR LONGCALL 452">059386,000309: 01,3765 05163 FVACCADR GENADR FINDVAC 452">059387,000310: 01,3766 05261 WTLTCADR GENADR WAITLIST 452">059388,000311: 01,3767 05150 NOVACADR GENADR NOVAC RESTARTS_ROUTINE.agc. Parent file is MAIN.agc