Source Code

053910,000001: 053911,000002: 053912,000003: 053913,000004: 053914,000005: 053915,000006: 053916,000007: 053917,000008: 053918,000009: 053919,000010: 053920,000011: 053921,000012: 053922,000013: 053923,000014: 053924,000015: 053925,000016: 053926,000017: 01,3527 053927,000018: 01,2000 053928,000019: 01,2000 053929,000020: 053930,000021: 01,3527 E3,1436 053931,000022: 053932,000023: 01,3527 < # Copyright: Public domain. # Filename: RESTARTS_ROUTINE.agc # Purpose: A section of Luminary 1C, revision 131. # It is part of the source code for the Lunar Module's (LM) # Apollo Guidance Computer (AGC) for Apollo 13 and Apollo 14. # This file is intended to be a faithful transcription, except # that the code format has been changed to conform to the # requirements of the yaYUL assembler rather than the # original YUL assembler. # Reference: pp. 1300-1305 of 1729.pdf. # Contact: Ron Burkey <info@sandroid.org>. # Website: www.ibiblio.org/apollo/index.html # Mod history: 06/05/03 RSB. Began transcribing. # 05/14/05 RSB Corrected website references above. # Page 1300 BANK 01 SETLOC RESTART BANK EBANK= PHSNAME1 # GOPROG MUST SWITCH TO THIS EBANK COUNT* $$/RSROU 453">053933,000024: 01,3527 30161 RESTARTS CA MPAC +5 # GET GROUP NUMBER -1 60000 DOUBLE # SAVE FOR INDEXING 54155 TS TEMP2G 33771 CA PHS2CADR # SET UP EXIT IN CASE IT IS AN EVEN 54157 TS TEMPSWCH # TABLE PHASE 33566 CA RTRNCADR # TO SAVE TIME ASSUME IT WILL GET NEXT 54707 TS GOLOC +2 # GROUP AFTER THIS 30154 CA TEMPPHS 75007 MASK OCT1400 10000 CCS A # IS IT A VARIABLE OR TABLE RESTART 13552 TCF ITSAVAR # IT'S A VARIABLE RESTART 432">053948,000039: 01,3542 10154 GETPART2 CCS TEMPPHS # IS IT AN X.1 RESTART 10000 CCS A 13652 TCF ITSATBL # NO, IT'S A TABLE RESTART 35024 CA PRIO14 # IT IS AN X.1 RESTART, THEREFORE START 05105 TC FINDVAC # THE DISPLAY RESTART JOB EBANK= LST1 03040 20103 2CADR INITDSP 03566 TC RTRNCADR # FINISHED WITH THIS GROUP, GET NEXT ONE 2">053959,000050: 01,3552 75007 ITSAVAR MASK OCT1400 # IS IT TYPE B ? 10000 CCS A 13623 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 74757 MASK OCT7 67751 AD MINUS2 10000 CCS A 13735 TCF ITSLNGCL # IT'S A LONGCALL 452">053974,000065: 01,3566 04631 RTRNCADR TC SWRETURN # CAN'T GET HERE. # Page 1301 13571 TCF ITSAWAIT 13636 TCF ITSAJOB # IT'S A JOB 954">053980,000071: 01,3571 33775 ITSAWAIT CA WTLTCADR # SET UP WAITLIST CALL 54704 TS GOLOC -1 50155 NDX TEMP2G # DIRECTLY STORED 31053 CA PHSPRDT1 354">053985,000076: 01,3575 10000 TIMETEST CCS A # IS IT AN IMMEDIATE RESTART 24000 INCR A # NO. 13602 TCF FINDTIME # FIND OUT WHEN IT SHOULD BEGIN 15436 TCF ITSINDIR # STORED INDIRECTLY 13621 TCF IMEDIATE # IT WANTS AN IMMEDIATE RESTART # ***** THIS MUST BE IN FIXED FIXED ***** BLOCK 02 SETLOC FFTAG2 BANK COUNT* $$/RSROU 952">054000,000091: 5436 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 13602 TCF FINDTIME # FIND OUT WHEN IT SHOULD BEGIN # ***** YOU MAY RETURN TO SWITCHED FIXED ***** BANK 01 SETLOC RESTART BANK COUNT* $$/RSROU D45">054018,000109: 01,3602 40000 FINDTIME COM # MAKE NEGATIVE SINCE IT WILL BE SUBTRACTED 54001 TS L # AND SAVE 50155 NDX TEMP2G 41052 CS TBASE1 00006 EXTEND 60025 SU TIME1 10000 CCS A 40000 COM # Page 1302 67734 AD OCT37776 64753 AD ONE 60001 AD L 10000 CCS A 34755 CA ZERO 13621 TCF +2 13621 TCF +1 445">054034,000125: 01,3621 64753 IMEDIATE AD ONE 00704 TC GOLOC -1 542">054036,000127: 01,3623 33566 ITSLIKEB CA RTRNCADR # TYPE B, SO STORE RETURN IN 54157 TS TEMPSWCH # TEMPSWCH IN CASE OF AN EVEN PHASE 33772 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 76077 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">054051,000142: 01,3636 50155 ITSAJOB NDX TEMP2G # NOW ADD THE PRIORITY AND LET'S GO 31053 CA PHSPRDT1 143">054053,000144: 01,3640 54704 CHKNOVAC TS GOLOC -1 # SAVE PRIO UNTIL WE SEE IF IT'S 00006 EXTEND # A FINDVAC OR A NOVAC 63646 BZMF ITSNOVAC 33774 CAF FVACCADR # POSITIVE, SET UP FINDVAC CALL. 56704 XCH GOLOC -1 # PICK UP PRIO 00704 TC GOLOC -1 AND 143">054061,000152: 01,3646 33776 ITSNOVAC CAF NOVACADR # NEGATIVE, 56704 XCH GOLOC -1 # SET UP NOVAC CALL, 40000 COM # CORRECT PRIO, 00704 TC GOLOC -1 # AND GO C">054066,000157: 01,3652 54020 ITSATBL TS CYR # FIND OUT IF THE PHASE IS ODD OR EVEN 10020 CCS CYR 13655 TCF +1 # IT'S EVEN 13753 TCF ITSEVEN 33566 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 # Page 1303 50155 NDX TEMP2G 62003 AD SIZETAB +1 54156 TS POINTER 2">054082,000173: 01,3666 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 13747 TCF ITSAJOB2 24000 INCR A # MUST BE EITHER A WAITLIST OR LONGCALL 54705 TS GOLOC # LET'S STORE THE CORRECT CADR 33775 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 74742 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 13742 TCF ITSWTLST # IT IS A WAITLIST CALL 50156 NDX POINTER # OBTAIN THE ORIGINAL DELTA T 32000 CA PRDTTAB # ADDRESS FOR THIS LONGCALL 15445 TCF ITSLGCL1 # NOW GO GET THE DELTA TIME # ***** THIS MUST BE IN FIXED FIXED ***** BLOCK 02 SETLOC FFTAG2 BANK COUNT* $$/RSROU C31">054117,000208: 5445 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 # Page 1304 13710 TCF ITSLGCL2 # NOT GET'S PROCESS THIS LONGCALL # ***** YOU MAY RETURN TO SWITCHED FIXED ***** BANK 01 SETLOC RESTART BANK COUNT* $$/RSROU C32">054138,000229: 01,3710 53153 ITSLGCL2 DXCH LONGTIME 00006 EXTEND # CALCULATE TIME LEFT 40025 DCS TIME2 21153 DAS LONGTIME 00006 EXTEND 31151 DCA LONGBASE 21153 DAS LONGTIME 11152 CCS LONGTIME # FIND OUT HOW THIS SHOULD BE RESTARTED 13730 TCF LONGCLCL 13723 TCF +2 13616 TCF IMEDIATE -3 11153 CCS LONGTIME +1 13730 TCF LONGCLCL 13726 NOOP # CAN'T GET HERE ************ 13616 TCF IMEDIATE -3 13621 TCF IMEDIATE 34C">054157,000248: 01,3730 33773 LONGCLCL CA LGCLCADR # WE WILL GO TO LONGCALL 54704 TS GOLOC -1 00006 EXTEND # PREPARE OUR ENTRY TO LONGCALL 31153 DCA LONGTIME 00704 TC GOLOC -1 34C">054164,000255: 01,3735 33775 ITSLNGCL CA WTLTCADR # ASSUME IT WILL GO TO WAITLIST 54704 TS GOLOC -1 50155 NDX TEMP2G 41053 CS PHSPRDT1 # GET THE DELTA T ADDRESS 15445 TCF ITSLGCL1 # NOW GET THE DELTA TIME 354">054172,000263: 01,3742 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 # DIRECTOY OR INDIRECTLY 13575 TCF TIMETEST # FIND OUT HOW THE TIME IS STORED # Page 1305 232">054181,000272: 01,3747 56705 ITSAJOB2 XCH GOLOC # STORE THE CADR 50156 NDX POINTER # ADD THE PRIORITY AND LET'S GO 32000 CA PRDTTAB 13640 TCF CHKNOVAC E">054188,000279: 01,3753 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 32002 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 13666 TCF CONTBL2 # NO PROCESS WHAT IS IN THE TABLE 432">054200,000291: 01,3764 36250 PHSPART2 CA THREE # SET THE POINTER FOR THE SECOND HALF OF 26156 ADS POINTER # THE TABLE 33566 CA RTRNCADR # THIS WILL BE OUR LAST TIME THROUGH THE 54707 TS GOLOC +2 # EVEN TABLE, SO AFTER IT GET THE NEXT # GROUP 13666 TCF CONTBL2 # SO LET'S GET THE SECOND ENTRY IN THE TBL 3">054208,000299: 01,3771 0154 TEMPPHS EQUALS MPAC >054209,000300: 01,3771 0155 TEMP2G EQUALS MPAC +1 2">054210,000301: 01,3771 0156 POINTER EQUALS MPAC +2 348">054211,000302: 01,3771 0157 TEMPSWCH EQUALS MPAC +3 /a>054212,000303: 01,3771 0705 GOLOC EQUALS VAC5 +20D >054213,000304: 01,3771 7751 MINUS2 EQUALS NEG2 >054214,000305: 01,3771 6077 OCT177 EQUALS LOW7 452">054216,000307: 01,3771 03764 PHS2CADR GENADR PHSPART2 452">054217,000308: 01,3772 03542 PRT2CADR GENADR GETPART2 452">054218,000309: 01,3773 05277 LGCLCADR GENADR LONGCALL 452">054219,000310: 01,3774 05105 FVACCADR GENADR FINDVAC 452">054220,000311: 01,3775 05203 WTLTCADR GENADR WAITLIST 452">054221,000312: 01,3776 05072 NOVACADR GENADR NOVAC RESTARTS_ROUTINE.agc. Parent file is MAIN.agc