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.

032813,000002:                                                                                                  ## Copyright:    Public domain.
032814,000003:                                                                                                  ## Filename:     MISSION_PHASE_16-RCS_COLD_SOAK.agc
032815,000004:                                                                                                  ## Purpose:      A module for revision 0 of BURST120 (Sunburst). It 
032816,000005:                                                                                                  ##               is part of the source code for the Lunar Module's
032817,000006:                                                                                                  ##               (LM) Apollo Guidance Computer (AGC) for Apollo 5.
032818,000007:                                                                                                  ## Assembler:    yaYUL
032819,000008:                                                                                                  ## Contact:      Ron Burkey <info@sandroid.org>.
032820,000009:                                                                                                  ## Website:      www.ibiblio.org/apollo/index.html
032821,000010:                                                                                                  ## Mod history:  2016-09-30 RSB  Created draft version.
032822,000011:                                                                                                  ##               2016-10-29 MAS  Transcribed.
032823,000012:                                                                                                  ##               2016-12-06 RSB  Comments proofed using octopus/ProoferComments,
032824,000013:                                                                                                  ##                               no changes made.
032825,000014: 

Page 764

032827,000016: 27,3522                                           BANK     27                                    
032828,000017: 27,3522  E6,1407                                  EBANK=   EDOT                                  
032829,000018:                                                                                                  #  PROGRAM DESCRIPTION
032830,000019:                                                                                                  #  MOD NO- 0                                           LOG SECTION-
032831,000020:                                                                                                  #  ******** NOTE-     MP16 NOT UP TO DATE ********
032832,000021:                                                                                                  #                                                      RCS COLD SOAK
032833,000022:                                                                                                  #  FUNCTIONAL DESCRIPTION-
032834,000023:                                                                                                  #           CHANGE ATTITUDE OF SPACECRAFT TO REQUIRED
032835,000024:                                                                                                  #           ATTITUDE FOR COLD SOAK PHASES.
032836,000025:                                                                                                  #           ISSUE LMP COMMANDS, ETC.
032837,000026:                                                                                                  #           ACCORDING TO GSOP.
032838,000027:                                                                                                  #  CALLING SEQUENCE-
032839,000028:                                                                                                  #           START MP 16 WHEN MISSION TIMER 4
032840,000029:                                                                                                  #           COUNTS TO ZERO.
032841,000030:                                                                                                  #  SUBROUTINES CALLED-
032842,000031:                                                                                                  #           BANKCALL
032843,000032:                                                                                                  #           DFI T/M CAL. ROUTINE
032844,000033:                                                                                                  #           EXECUTIVE
032845,000034:                                                                                                  #           LEM MISSION PROGRAMMER
032846,000035:                                                                                                  #           KALCMANU
032847,000036:                                                                                                  #           WAITLIST
032848,000037:                                                                                                  #  NORMAL EXIT MODES-
032849,000038:                                                                                                  #           TC    ENDOFJOB/TASKOVER
032850,000039:                                                                                                  #  ALARM OR ABORT EXIT MODES-   NONE
032851,000040:                                                                                                  #  OUTPUT- (INTERFACE, DISPLAYS, MEANINGFUL INFORMATIONLEFT IN ERASABLE).
032852,000041:                                                                                                  #           SAME AS FOR KALCMANU EXCEPT-
032853,000042:                                                                                                  #           BIT 13 OF DAPBOOLS IS SET TO 1 BEFORE EXIT.
032854,000043:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED-
032855,000044:                                                                                                  #           TEPHEM   IN CENTISECONDS TRIPLE PRECISION
032856,000045:                                                                                                  #  DEBRIS- (ERASABLE LOCATIONS DESTROYED BY THIS PROGRAM)
032857,000046:                                                                                                  #           SAME AS FOR KALCMANU
032858,000047:                                                                                                  #  ORIENT THE LEM TO RCS COLD SOAK ATTITUDE
032859,000048:                                                                                                  #  (S/C X-AXIS NORMAL TO THE ECLIPTIC AND BISECTOR
032860,000049:                                                                                                  #  OF +Z/-Y AXES TOWARD THE SUN)
032861,000050: 
032862,000051:                                                                                                  #  START MISSION PHASE 16 WHEN MP TIMER 4 COUNTS TO ZERO
032863,000052: 
032864,000053: 27,3522           04117        MP16JOB            TC       NEWMODEX                              #  UPDATE PROGRAM NUMBER
032865,000054: 27,3523           00016                           OCT      16                                    #  ON DSKY
032866,000055: 
032867,000056: 27,3524           02670                           TC       COLDSOAK                              #  CALCULATE CDU ANGLES REQUIRED
032868,000057: 27,3525           37746                           CAF      PRIOKM                                #  SCHEDULE KALCMANU
032869,000058: 27,3526           00004                           INHINT                                         
032870,000059: 27,3527           05516                           TC       FINDVAC                               
032871,000060: 27,3530  E6,1407                                  EBANK=   EDOT                                  
032872,000061: 27,3530           02067 70066                     2CADR    KALCMAN3                              
032873,000062: 
032874,000063: 27,3532           00003                           RELINT                                         
032875,000064: 27,3533           10067                           CCS      NEWJOB                                #  FORCE KALCMANU JOB ON
032876,000065: 27,3534           05532                           TC       CHANG1                                
032877,000066: 

Page 765

032879,000068: 27,3535           05206                           TC       BANKCALL                              #  PUT JOB TO SLEEP TILL
032880,000069: 27,3536           26743                           CADR     ATTSTALL                              #  MANEUVER COMPLETED
032881,000070: 27,3537           13540                           NOOP                                           #  TC   BADATT-SICK RETURN- ***FIX THIS***
032882,000071: 
032883,000072: 27,3540           33551                           CAF      DEC1000                               #  GOOD RETURN--MAN. COMPLETED
032884,000073: 27,3541           00004                           INHINT                                         
032885,000074: 27,3542           05663                           TC       WAITLIST                              #  WAIT 10 SECONDS
032886,000075: 27,3543  E6,1407                                  EBANK=   EDOT                                  
032887,000076: 27,3543           03552 56066                     2CADR    PHAS16A                               
032888,000077: 
032889,000078: 27,3545           00003                           RELINT                                         
032890,000079: 27,3546           33550                           CAF      P16WAKE                               #  PUT THIS JOB
032891,000080: 27,3547           05545                           TC       JOBSLEEP                              #  TO SLEEP
032892,000081: 27,3550           57557        P16WAKE            CADR     PHAS16B                               
032893,000082: 27,3551           01750        DEC1000            DEC      1000       B-14                       
032894,000083: 27,3552           33550        PHAS16A            CAF      P16WAKE                               #  REACTIVATE THE JOB
032895,000084: 27,3553           05551                           TC       JOBWAKE                               #  THAT WAS PUT TO SLEEP
032896,000085: 27,3554           05270                           TC       IBNKCALL                              #  DO DFI T/M CALIBRATION ROUTINE
032897,000086: 27,3555           56204                           CADR     DFITMCAL                              
032898,000087: 
032899,000088: 27,3556           05727                           TC       TASKOVER                              
032900,000089: 
032901,000090:                                                                                                  #                                          WAIT FOR COMPLETION OF CALIBRATION + 1 SECOND
032902,000091: 
032903,000092: 27,3557           33606        PHAS16B            CAF      DEC1300                               #  13 SECONDS
032904,000093: 27,3560           00004                           INHINT                                         
032905,000094: 27,3561           05663                           TC       WAITLIST                              
032906,000095: 27,3562  E6,1407                                  EBANK=   EDOT                                  
032907,000096: 27,3562           03565 56066                     2CADR    P16MXDB                               
032908,000097: 
032909,000098: 27,3564           05567                           TC       ENDOFJOB                              
032910,000099: 27,3565           37747        P16MXDB            CAF      BIT13                                 #  SELECT MAX DEADBAND FOR DAP-
032911,000100: 27,3566           26077                           ADS      DAPBOOLS                              #  SET BIT 13 OF DAPBOOLS =1
032912,000101: 27,3567           05060                           TC       1LMP                                  #  THRUSTER ISOL VALVES PR 3A CLOSE
032913,000102: 27,3570           00136                           DEC      94         B-14                       
032914,000103: 27,3571           05060                           TC       1LMP                                  #  THRUSTER ISOL VALVES 3B CLOSE
032915,000104: 27,3572           00156                           DEC      110        B-14                       
032916,000105: 27,3573           33600                           CAF      DEC200                                #  WAIT 2 SECS
032917,000106: 27,3574           05663                           TC       WAITLIST                              
032918,000107: 27,3575  E6,1407                                  EBANK=   EDOT                                  
032919,000108: 27,3575           03601 56066                     2CADR    P16CLS                                
032920,000109: 
032921,000110: 27,3577           05727                           TC       TASKOVER                              
032922,000111: 27,3600           00310        DEC200             DEC      200        B-14                       
032923,000112: 27,3601           05060        P16CLS             TC       1LMP                                  #  THRUSTER ISOL VALVES PR 3A-
032924,000113: 27,3602           00137                           DEC      95         B-14                       #  CLOSE RESET
032925,000114: 27,3603           05060                           TC       1LMP                                  #  THRUSTER ISOL VALVES PR 3B-
032926,000115: 27,3604           00157                           DEC      111        B-14                       #  CLOSE RESET
032927,000116: 27,3605           05727                           TC       TASKOVER                              
032928,000117: 27,3606           02424        DEC1300            DEC      1300       B-14                       
032929,000118: 

End of include-file MISSION_PHASE_16-RCS_COLD_SOAK.agc.  Parent file is MAIN.agc