Source Code

061213,000001: 061214,000002: 061215,000003: 061216,000004: 061217,000005: 061218,000006: 061219,000007: 061220,000008: 061221,000009: 061222,000010: 061223,000011: 061224,000012: 061225,000013: 061226,000014: 061227,000015: 061228,000016: 061229,000017: 061230,000018: 061231,000019: 061232,000020: 061233,000021: 061234,000022: 061235,000023: 061236,000024: 061237,000025: 061238,000026: 061239,000027: 061240,000028: 061241,000029: 061242,000030: 061243,000031: 061244,000032: 061245,000033: 061246,000034: 061247,000035: 01,3520 061248,000036: 01,2000 061249,000037: 01,2000 061250,000038: 061251,000039: 01,3520 E3,1436 061252,000040: 061253,000041: 01,3520 061254,000042: < # Copyright: Public domain. # Filename: RESTARTS_ROUTINE.agc # Purpose: Part of the source code for Comanche, build 055. It # is part of the source code for the Command Module's # (CM) Apollo Guidance Computer (AGC), Apollo 11. # Assembler: yaYUL # Reference: pp. 1414-1419 # Contact: Ron Burkey <info@sandroid.org> # Website: http://www.ibiblio.org/apollo. # Mod history: 2009-05-07 RSB Adapted from Colossus249 file of the same # name, and page images. Corrected various # typos in the transcription of program # comments, and these should be back-ported # to Colossus249. # The contents of the "Comanche055" files, in general, are transcribed # from scanned documents. # Assemble revision 055 of AGC program Comanche by NASA # 2021113-051. April 1, 1969. # This AGC program shall also be referred to as Colossus 2A # Prepared by # Massachussets Institute of Technology # 75 Cambridge Parkway # Cambridge, Massachusetts # under NASA contract NAS 9-4065. # Refer directly to the online document mentioned above for further # information. Please report any errors to info@sandroid.org. # Page 1414 BANK 01 SETLOC RESTART BANK EBANK= PHSNAME1 # GOPROG MUST SWITCH TO THIS EBANK COUNT 01/RSROU 453">061255,000043: 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 75051 MASK OCT1400 10000 CCS A # IS IT A VARIABLE OR TABLE RESTART 13543 TCF ITSAVAR # IT'S A VARIABLE RESTART 432">061270,000058: 01,3533 10154 GETPART2 CCS TEMPPHS # IS IT AN X.1 RESTART 10000 CCS A 13643 TCF ITSATBL # NO, IT'S A TABLE RESTART 35066 CA PRIO14 # IT IS AN X.1 RESTART, THEREFORE START 05147 TC FINDVAC # THE DISPLAY RESTART JOB EBANK= LST1 03261 20063 2CADR INITDSP 03557 TC RTRNCADR # FINISHED WITH THIS GROUP, GET NEXT ONE 2">061281,000069: 01,3543 75051 ITSAVAR MASK OCT1400 # IS IT TYPE B ? 10000 CCS A 13614 TCF ITSLIKEB # YES, IT IS TYPE B 00006 EXTEND # STORES 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 LONGCALL 75023 MASK OCT7 67715 AD MINUS2 10000 CCS A 13726 TCF ITSLNGCL # IT'S A LONGCALL # Page 1415 452">061297,000085: 01,3557 04675 RTRNCADR TC SWRETURN # CAN'T GET HERE. 13562 TCF ITSAWAIT 13627 TCF ITSAJOB # IT'S A JOB 954">061302,000090: 01,3562 33766 ITSAWAIT CA WTLTCADR # SET UP WAITLIST CALL 54704 TS GOLOC -1 50155 NDX TEMP2G # DIRECTLY STORED 31054 CA PHSPRDT1 354">061307,000095: 01,3566 10000 TIMETEST CCS A # IS IT AN IMMEDIATE RESTART 24000 INCR A # NO. 13573 TCF FINDTIME # FIND OUT WHEN IT SHOULD BEGIN 15500 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">061323,000111: 5500 22706 ITSINDIR LXCH GOLOC +1 # GET THE CORRECT E BANK IN CASE THIS IS 22006 LXCH BB # SWITCHED ERASABLE 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">061342,000130: 01,3573 40000 FINDTIME COM # MAKE NEGATIVE SINCE IT WILL BE SUBTRACTED 54001 TS L # AND SAVE 50155 NDX TEMP2G 41053 CS TBASE1 00006 EXTEND # Page 1416 60025 SU TIME1 10000 CCS A 40000 COM 67700 AD OCT37776 65017 AD ONE 60001 AD L 10000 CCS A 35021 CA ZERO 13612 TCF +2 13612 TCF +1 445">061358,000146: 01,3612 65017 IMEDIATE AD ONE 00704 TC GOLOC -1 542">061360,000148: 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">061375,000163: 01,3627 50155 ITSAJOB NDX TEMP2G # NOW ADD THE PRIORITY AND LET'S GO 31054 CA PHSPRDT1 143">061377,000165: 01,3631 54704 CHKNOVAC TS GOLOC -1 # SAVE PRIO UNTIL WE SEE IF IT'S 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 143">061385,000173: 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">061390,000178: 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 # Page 1417 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">061405,000193: 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 IT 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 75006 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. BUT 4 13733 TCF ITSWTLST # IT IS A WAITLIST CALL 50156 NDX POINTER # OBTAIN THE ORIGINAL DELTA T 32000 CA PRDTTAB # ADDRESS FOR THIS LONGCALL 15507 TCF ITSLGCL1 # NOW GO GET THE DELTA TIME # ***** THIS MUST BE IN FIXED FIXED ***** BLOCK 02 SETLOC FFTAG2 BANK COUNT 02/RSROU C31">061441,000229: 5507 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 # Page 1418 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 # NOT GET'S PROCESS THIS LONGCALL # ***** YOU MAY RETURN TO SWITCHED FIXED ***** BANK 01 SETLOC RESTART BANK COUNT 01/RSROU C32">061461,000249: 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">061480,000268: 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">061487,000275: 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 15507 TCF ITSLGCL1 # NOW GET THE DELTA TIME 354">061495,000283: 01,3733 40706 ITSWTLST CS GOLOC +1 # CORRECT THE BBCON INFORMATION 54706 TS GOLOC +1 # Page 1419 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">061503,000291: 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">061510,000298: 01,3744 30157 ITSEVEN CA TEMPSWCH # SET 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 NUMBER OF LOCATIONS 60154 AD TEMPPHS 54156 TS POINTER 13657 TCF CONTBL2 # NO PROCESS WHAT IS IN THE TABLE 432">061522,000310: 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">061530,000318: 01,3762 0154 TEMPPHS EQUALS MPAC >061531,000319: 01,3762 0155 TEMP2G EQUALS MPAC +1 2">061532,000320: 01,3762 0156 POINTER EQUALS MPAC +2 348">061533,000321: 01,3762 0157 TEMPSWCH EQUALS MPAC +3 /a>061534,000322: 01,3762 0705 GOLOC EQUALS VAC5 +20D >061535,000323: 01,3762 7715 MINUS2 EQUALS NEG2 >061536,000324: 01,3762 6043 OCT177 EQUALS LOW7 452">061538,000326: 01,3762 03755 PHS2CADR GENADR PHSPART2 452">061539,000327: 01,3763 03533 PRT2CADR GENADR GETPART2 452">061540,000328: 01,3764 05342 LGCLCADR GENADR LONGCALL 452">061541,000329: 01,3765 05147 FVACCADR GENADR FINDVAC 452">061542,000330: 01,3766 05245 WTLTCADR GENADR WAITLIST 452">061543,000331: 01,3767 05134 NOVACADR GENADR NOVAC RESTARTS_ROUTINE.agc. Parent file is MAIN.agc