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.

030319,000002:                                                                                                  ## Copyright:    Public domain.
030320,000003:                                                                                                  ## Filename:     MISSION_PHASE_6_COAST_SIVB_ATTACHED.agc
030321,000004:                                                                                                  ## Purpose:      A module for revision 0 of BURST120 (Sunburst). It 
030322,000005:                                                                                                  ##               is part of the source code for the Lunar Module's
030323,000006:                                                                                                  ##               (LM) Apollo Guidance Computer (AGC) for Apollo 5.
030324,000007:                                                                                                  ## Assembler:    yaYUL
030325,000008:                                                                                                  ## Contact:      Ron Burkey <info@sandroid.org>.
030326,000009:                                                                                                  ## Website:      www.ibiblio.org/apollo/index.html
030327,000010:                                                                                                  ## Mod history:  2016-09-30 RSB  Created draft version.
030328,000011:                                                                                                  ##               2016-10-25 MAS  Transcribed.
030329,000012:                                                                                                  ##               2016-12-06 RSB  Comments proofed using octopus/ProoferComments,
030330,000013:                                                                                                  ##                               no changes made.
030331,000014: 

Page 709

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

Page 710

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

Page 711

030436,000119: 27,2555           05126                           TC       MPENTRY                               
030437,000120: 27,2556           00001                           DEC      1          B-14                       #  J=1
030438,000121: 27,2557           00007                           DEC      7          B-14                       #  MP=7
030439,000122: 27,2560           01772                           ADRES    MP6TO7                                #  DT = 28 MIN
030440,000123: 
030441,000124:                                                                                                  #                                    TERMINATE READING OF PIPAS.
030442,000125:                                                                                                  #                                    THRUST DUE TO VENTING AFTER SIVB
030443,000126:                                                                                                  #                                    SHUTDOWN HAS BECOME NEGLIGIBLE.
030444,000127: 
030445,000128: 27,2561           06067                           TC       FLAG1DWN                              #  TERMINATE SERVICER
030446,000129: 27,2562           00001                           OCT      1                                     
030447,000130: 27,2563           15727                           TCF      TASKOVER                              
030448,000131: 
030449,000132:                                                                                                  #  END OF MISSION PHASE 6

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