Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of BURST120 (SUNBURST 120). They were scanned at archive.org's Boston facility, and the scanning was sponsored by Mike Stewart. The code was transcribed from these scans by a team of volunteers who are referenced in the program comments. Comments from the original source code are in ALL-CAPS, whereas comments added later in transcription are in Mixed-Case. In some cases, where similar code blocks exist in previously-transcribed AGC programs (primarily Luminary 99, from Apollo 11) those code blocks were used as a starting point and then corrected to agree with the BURST120 scans. The full scans are available at the Virtual AGC project's collection at archive.org, while more-convenient reduced-size (but reduced-quality) images are available at the main Virtual AGC website. Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository. Notations on the program listing read, in part:

	YUL SYSTEM FOR AGC: REVISION 0 OF PROGRAM BURST120 
	BY NASA 2021106-031 DEC 7, 1967

	THIS LISTING IS A COPY OF A VERSION OF THE PROGRAM INTENDED 
	FOR USE IN THE ON-BOARD PRIMARY GUIDANCE COMPUTER IN THE 
	UNMANNED FLIGHT OF APOLLO LUNAR MODULE 1 --- THE AS206 MISSION.
Note that the date is the date of the printout, not the date of the program revision.

030302,000002:                                                                                                  ## Copyright:    Public domain.
030303,000003:                                                                                                  ## Filename:     MISSION_PHASE_6_COAST_SIVB_ATTACHED.agc
030304,000004:                                                                                                  ## Purpose:      A module for revision 0 of BURST120 (Sunburst). It 
030305,000005:                                                                                                  ##               is part of the source code for the Lunar Module's
030306,000006:                                                                                                  ##               (LM) Apollo Guidance Computer (AGC) for Apollo 5.
030307,000007:                                                                                                  ## Assembler:    yaYUL
030308,000008:                                                                                                  ## Contact:      Ron Burkey <info@sandroid.org>.
030309,000009:                                                                                                  ## Website:      www.ibiblio.org/apollo/index.html
030310,000010:                                                                                                  ## Mod history:  2016-09-30 RSB  Created draft version.
030311,000011:                                                                                                  ##               2016-10-25 MAS  Transcribed.
030312,000012:                                                                                                  ##               2016-12-06 RSB  Comments proofed using octopus/ProoferComments,
030313,000013:                                                                                                  ##                               no changes made.
030314,000014: 

Page 709

030316,000016:                                                                                                  #  PROGRAM DESCRIPTION
030317,000017:                                                                                                  #     COAST SIVB ATTACHED
030318,000018: 
030319,000019:                                                                                                  #  MOD NO   1      DATE - 4 NOV 66
030320,000020: 
030321,000021:                                                                                                  #  MOD BY - OVERBAUGH
030322,000022:                                                                                                  #  FUNCTIONAL DESCRIPTION
030323,000023:                                                                                                  #     WHEN THE DV MONITOR DETECTS SIVB SHUTDOWN THE
030324,000024:                                                                                                  #     THRUST MISSION CONTROL PROGRAM INITIATES MP6.
030325,000025:                                                                                                  #     DURING THIS PHASE THE ABORT COMMAND MONITOR AND
030326,000026:                                                                                                  #     THE TUMBLE MONITOR ARE TERMINATED AND THE C-BAND
030327,000027:                                                                                                  #     XPONDER IS SET TO ON*.  WHEN THRUST DUE TO
030328,000028:                                                                                                  #     VENTING BECOMES NEGLIGIBLE READING OF
030329,000029:                                                                                                  #     THE PIPAS IS TERMINATED.
030330,000030: 
030331,000031:                                                                                                  #  NORMAL EXIT MODES -
030332,000032:                                                                                                  #     TC   TASKOVER
030333,000033: 
030334,000034:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
030335,000035:                                                                                                  #     MP6TO7
030336,000036: 
030337,000037:                                                                                                  #  OUTPUT
030338,000038:                                                                                                  #     UPDATE MODREG
030339,000039:                                                                                                  #     TERMINATE ABORT COMMAND MONITOR
030340,000040:                                                                                                  #     TERMINATE TUMBLE MONITOR
030341,000041:                                                                                                  #     MISSION SCHEDULING REGISTERS SET TO CALL MP7
030342,000042: 
030343,000043:                                                                                                  #  DEBRIS
030344,000044:                                                                                                  #     CENTRALS,A,Q,Z
030345,000045: 
030346,000046:                                                                                                  #  SUBROUTINES CALLED
030347,000047:                                                                                                  #     EXECUTIVE(ENDOFJOB)
030348,000048:                                                                                                  #     WAITLIST
030349,000049:                                                                                                  #     LONGCALL
030350,000050:                                                                                                  #     NEWMODEX
030351,000051:                                                                                                  #     1LMP
030352,000052:                                                                                                  #     FLAG1DWN
030353,000053:                                                                                                  #     FLAG2DWN
030354,000054:                                                                                                  #     SCHEDULE ENTRY ROUTINE(MPENTRY)
030355,000055: 
030356,000056: 27,2504                                           BANK     27                                    
030357,000057: 27,2504  E3,1772                                  EBANK=   MP6TO7                                
030358,000058: 
030359,000059: 27,2504           04117        MP6JOB             TC       NEWMODEX                              #  UPDATE MODREG
030360,000060: 27,2505           00013                           OCT      13                                    
030361,000061: 
030362,000062: 27,2506           36306                           CAF      SIX                                   
030363,000063: 27,2507           54764                           TS       PHASENUM                              
030364,000064: 
030365,000065: 27,2510           04161                           TC       PHASCHNG                              

Page 710

030367,000067: 27,2511           47012                           OCT      47012                                 
030368,000068: 27,2512           13560                           DEC      6000       B-14                       
030369,000069: 27,2513  E3,1772                                  EBANK=   MP6TO7                                
030370,000070: 27,2513           02526 56063                     2CADR    MP6A                                  
030371,000071: 
030372,000072: 27,2515           37756                           CAF      BIT6                                  
030373,000073: 27,2516           04105                           TC       SETRSTRT                              #  SET RESTART FLAG
030374,000074: 
030375,000075: 27,2517           32525                           CAF      DEC6000                               #  INITIALIZE 1 MIN DELAY
030376,000076: 27,2520           00004                           INHINT                                         
030377,000077: 27,2521           05663                           TC       WAITLIST                              
030378,000078: 27,2522  E3,1772                                  EBANK=   MP6TO7                                
030379,000079: 27,2522           02526 56063                     2CADR    MP6A                                  
030380,000080: 
030381,000081: 27,2524           15567                           TCF      ENDOFJOB                              
030382,000082: 27,2525           13560        DEC6000            DEC      6000       B-14                       
030383,000083: 
030384,000084: 27,2526           06076        MP6A               TC       FLAG2DWN                              #  TERMINATE ABORT COMMAND MONITOR
030385,000085: 27,2527           00400                           OCT      00400                                 #  BIT 9
030386,000086: 
030387,000087:                                                                                                  #                                    TERMINATE TUMBLE MONITOR
030388,000088: 
030389,000089: 27,2530           06067                           TC       FLAG1DWN                              
030390,000090: 27,2531           20000                           OCT      20000                                 #  BIT14
030391,000091: 27,2532           04161        MP6B               TC       PHASCHNG                              
030392,000092: 27,2533           27042                           OCT      27042                                 
030393,000093: 27,2534           75232                           -GENADR  656SEC                                
030394,000094: 27,2535  E3,1772                                  EBANK=   MP6TO7                                
030395,000095: 27,2535           02547 56063                     2CADR    CBXPNDR                               
030396,000096:                                                                                                  #  REF   1       27,2536   56063 1  CALL C-BAND TRANSPONDER-ON*
030397,000097: 
030398,000098: 27,2537           00006                           EXTEND                                         
030399,000099: 27,2540           32546                           DCA      656SEC                                #  LONGCALL 10 M 56 S
030400,000100: 27,2541           05741                           TC       LONGCALL                              #  FOR C-BAND TRANSPONDER-ON*
030401,000101: 27,2542  E3,1772                                  EBANK=   MP6TO7                                
030402,000102: 27,2542           02547 56063                     2CADR    CBXPNDR                               
030403,000103: 
030404,000104: 27,2544           15727                           TCF      TASKOVER                              
030405,000105: 27,2545           00004 00100  656SEC             2DEC     65600      B-28                       
030406,000106:                                                                                                  #                27,2546   00100 0  C-BAND TRANSPONDER-ON*
030407,000107: 
030408,000108: 27,2547           05060        CBXPNDR            TC       1LMP                                  
030409,000109: 27,2550           00152                           DEC      106        B-14                       
030410,000110: 
030411,000111: 27,2551           04141                           TC       2PHSCHNG                              
030412,000112: 27,2552           00002                           OCT      00002                                 
030413,000113: 27,2553           05013                           OCT      05013                                 
030414,000114: 27,2554           77777                           OCT      77777                                 
030415,000115: 
030416,000116:                                                                                                  #                                    CALL SCHEDULE ENTRY ROUTINE
030417,000117: 

Page 711

030419,000119: 27,2555           05126                           TC       MPENTRY                               
030420,000120: 27,2556           00001                           DEC      1          B-14                       #  J=1
030421,000121: 27,2557           00007                           DEC      7          B-14                       #  MP=7
030422,000122: 27,2560           01772                           ADRES    MP6TO7                                #  DT = 28 MIN
030423,000123: 
030424,000124:                                                                                                  #                                    TERMINATE READING OF PIPAS.
030425,000125:                                                                                                  #                                    THRUST DUE TO VENTING AFTER SIVB
030426,000126:                                                                                                  #                                    SHUTDOWN HAS BECOME NEGLIGIBLE.
030427,000127: 
030428,000128: 27,2561           06067                           TC       FLAG1DWN                              #  TERMINATE SERVICER
030429,000129: 27,2562           00001                           OCT      1                                     
030430,000130: 27,2563           15727                           TCF      TASKOVER                              
030431,000131: 
030432,000132:                                                                                                  #  END OF MISSION PHASE 6

End of include-file MISSION_PHASE_6_COAST_SIVB_ATTACHED.agc.  Parent file is MAIN.agc