Source Code

These source-code files were transcribed from a printout in Don Eyles's personal collection, scanned by archive.org, and financially sponsored by Peter McDermott. A team of volunteers performed the transcription and proof-reading. The scanned page images are available at the Virtual AGC Project website, as well as higher-quality (but much larger) images at the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating "issues" at the Virtual AGC Project's GitHub Repository.

Notations on the program listing read, in part:

	YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES
	DEC 13, 1966

	THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37 
        OF PROGRAM SUNBURST BY LEM GROUP
Note that the date is the date of the printout, not the date of the program revision.

032195,000002:                                                                                                  ## Copyright:   Public domain.
032196,000003:                                                                                                  ## Filename:    MISSION_PHASE_16_-_RCS_COLD_SOAK.agc
032197,000004:                                                                                                  ## Purpose:     A section of Sunburst revision 37, or Shepatin revision 0.
032198,000005:                                                                                                  ##              It is part of an early development version of the software
032199,000006:                                                                                                  ##              for Apollo Guidance Computer (AGC) on the unmanned Lunar
032200,000007:                                                                                                  ##              Module (LM) flight Apollo 5. Sunburst 37 was the program
032201,000008:                                                                                                  ##              upon which Don Eyles's offline development program Shepatin
032202,000009:                                                                                                  ##              was based; the listing herein transcribed was actually for
032203,000010:                                                                                                  ##              the equivalent revision 0 of Shepatin.
032204,000011:                                                                                                  ##              This file is intended to be a faithful transcription, except
032205,000012:                                                                                                  ##              that the code format has been changed to conform to the
032206,000013:                                                                                                  ##              requirements of the yaYUL assembler rather than the
032207,000014:                                                                                                  ##              original YUL assembler.
032208,000015:                                                                                                  ## Reference:   pp. 711-712
032209,000016:                                                                                                  ## Assembler:   yaYUL
032210,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
032211,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
032212,000019:                                                                                                  ## Mod history: 2017-05-24 MAS  Created from Sunburst 120.
032213,000020:                                                                                                  ##              2017-06-08 HG   Transcribed
032214,000021:                                                                                                  ##              2017-06-23 RSB  Proofed comment text with
032215,000022:                                                                                                  ##                              octopus/ProoferComments.
032216,000023: 

Page 711

032218,000025: 27,3404                                           BANK     27                                    
032219,000026: 27,3404  E6,1407                                  EBANK=   EDOT                                  
032220,000027:                                                                                                  #  PROGRAM DESCRIPTION
032221,000028:                                                                                                  #  MOD NO- 0                                           LOG SECTION-
032222,000029:                                                                                                  #  ******** NOTE-     MP16 NOT UP TO DATE ********
032223,000030:                                                                                                  #                                                      RCS COLD SOAK
032224,000031:                                                                                                  #  FUNCTIONAL DESCRIPTION-
032225,000032:                                                                                                  #           CHANGE ATTITUDE OF SPACECRAFT TO REQUIRED
032226,000033:                                                                                                  #           ATTITUDE FOR COLD SOAK PHASES.
032227,000034:                                                                                                  #           ISSUE LMP COMMANDS, ETC.
032228,000035:                                                                                                  #           ACCORDING TO GSOP.
032229,000036:                                                                                                  #  CALLING SEQUENCE-
032230,000037:                                                                                                  #           START MP 16 WHEN MISSION TIMER 4
032231,000038:                                                                                                  #           COUNTS TO ZERO.
032232,000039:                                                                                                  #  SUBROUTINES CALLED-
032233,000040:                                                                                                  #           BANKCALL
032234,000041:                                                                                                  #           DFI T/M CAL. ROUTINE
032235,000042:                                                                                                  #           EXECUTIVE
032236,000043:                                                                                                  #           LEM MISSION PROGRAMMER
032237,000044:                                                                                                  #           KALCMANU
032238,000045:                                                                                                  #           WAITLIST
032239,000046:                                                                                                  #  NORMAL EXIT MODES-
032240,000047:                                                                                                  #           TC    ENDOFJOB/TASKOVER
032241,000048:                                                                                                  #  ALARM OR ABORT EXIT MODES-   NONE
032242,000049:                                                                                                  #  OUTPUT- (INTERFACE, DISPLAYS, MEANINGFUL INFORMATIONLEFT IN ERASABLE).
032243,000050:                                                                                                  #           SAME AS FOR KALCMANU EXCEPT-
032244,000051:                                                                                                  #           BIT 13 OF DAPBOOLS IS SET TO 1 BEFORE EXIT.
032245,000052:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED-
032246,000053:                                                                                                  #           TEPHEM   IN CENTISECONDS TRIPLE PRECISION
032247,000054:                                                                                                  #  DEBRIS- (ERASABLE LOCATIONS DESTROYED BY THIS PROGRAM)
032248,000055:                                                                                                  #           SAME AS FOR KALCMANU
032249,000056:                                                                                                  #  ORIENT THE LEM TO RCS COLD SOAK ATTITUDE
032250,000057:                                                                                                  #  (S/C X-AXIS NORMAL TO THE ECLIPTIC AND BISECTOR
032251,000058:                                                                                                  #  OF +Z/-Y AXES TOWARD THE SUN)
032252,000059: 
032253,000060:                                                                                                  #  START MISSION PHASE 16 WHEN MP TIMER 4 COUNTS TO ZERO
032254,000061: 
032255,000062: 27,3404           04105        MP16JOB            TC       NEWMODEX                              #  UPDATE PROGRAM NUMBER
032256,000063: 27,3405           00016                           OCT      16                                    #  ON DSKY
032257,000064: 
032258,000065: 27,3406           02655                           TC       COLDSOAK                              #  CALCULATE CDU ANGLES REQUIRED
032259,000066: 27,3407           37740                           CAF      PRIOKM                                #  SCHEDULE KALCMANU
032260,000067: 27,3410           00004                           INHINT                                         
032261,000068: 27,3411           05534                           TC       FINDVAC                               
032262,000069: 27,3412  E6,1407                                  EBANK=   EDOT                                  
032263,000070: 27,3412           02067 70066                     2CADR    KALCMAN3                              
032264,000071: 
032265,000072: 27,3414           00003                           RELINT                                         
032266,000073: 27,3415           10067                           CCS      NEWJOB                                #  FORCE KALCMANU JOB ON
032267,000074: 27,3416           05550                           TC       CHANG1                                
032268,000075: 

Page 712

032270,000077: 27,3417           05224                           TC       BANKCALL                              #  PUT JOB TO SLEEP TILL
032271,000078: 27,3420           26754                           CADR     ATTSTALL                              #  MANEUVER COMPLETED
032272,000079: 27,3421           13422                           NOOP                                           #  TC   BADATT-SICK RETURN- ***FIX THIS***
032273,000080: 
032274,000081: 27,3422           33433                           CAF      DEC1000                               #  GOOD RETURN--MAN. COMPLETED
032275,000082: 27,3423           00004                           INHINT                                         
032276,000083: 27,3424           05701                           TC       WAITLIST                              #  WAIT 10 SECONDS
032277,000084: 27,3425  E6,1407                                  EBANK=   EDOT                                  
032278,000085: 27,3425           03434 56006                     2CADR    PHAS16A                               
032279,000086: 
032280,000087: 27,3427           00003                           RELINT                                         
032281,000088: 27,3430           33432                           CAF      P16WAKE                               #  PUT THIS JOB
032282,000089: 27,3431           05563                           TC       JOBSLEEP                              #  TO SLEEP
032283,000090: 27,3432           57441        P16WAKE            CADR     PHAS16B                               
032284,000091: 27,3433           01750        DEC1000            DEC      1000       B-14                       
032285,000092: 27,3434           33432        PHAS16A            CAF      P16WAKE                               #  REACTIVATE THE JOB
032286,000093: 27,3435           05567                           TC       JOBWAKE                               #  THAT WAS PUT TO SLEEP
032287,000094: 27,3436           05307                           TC       IBNKCALL                              #  DO DFI T/M CALIBRATION ROUTINE
032288,000095: 27,3437           56211                           CADR     DFITMCAL                              
032289,000096: 
032290,000097: 27,3440           05745                           TC       TASKOVER                              
032291,000098: 
032292,000099:                                                                                                  #                                          WAIT FOR COMPLETION OF CALIBRATION + 1 SECOND
032293,000100: 
032294,000101: 27,3441           33470        PHAS16B            CAF      DEC1300                               #  13 SECONDS
032295,000102: 27,3442           00004                           INHINT                                         
032296,000103: 
032297,000104: 27,3443           05701                           TC       WAITLIST                              
032298,000105: 27,3444  E6,1407                                  EBANK=   EDOT                                  
032299,000106: 27,3444           03447 56006                     2CADR    P16MXDB                               
032300,000107: 
032301,000108: 27,3446           05605                           TC       ENDOFJOB                              
032302,000109: 27,3447           37741        P16MXDB            CAF      BIT13                                 #  SELECT MAX DEADBAND FOR DAP-
032303,000110: 27,3450           26077                           ADS      DAPBOOLS                              #  SET BIT 13 OF DAPBOOLS =1
032304,000111: 27,3451           05073                           TC       1LMP                                  #  THRUSTER ISOL VALVES PR 3A CLOSE
032305,000112: 27,3452           00136                           DEC      94         B-14                       
032306,000113: 27,3453           05073                           TC       1LMP                                  #  THRUSTER ISOL VALVES 3B CLOSE
032307,000114: 27,3454           00156                           DEC      110        B-14                       
032308,000115: 27,3455           33462                           CAF      DEC200                                #  WAIT 2 SECS
032309,000116: 27,3456           05701                           TC       WAITLIST                              
032310,000117: 27,3457  E6,1407                                  EBANK=   EDOT                                  
032311,000118: 27,3457           03463 56006                     2CADR    P16CLS                                
032312,000119: 
032313,000120: 27,3461           05745                           TC       TASKOVER                              
032314,000121: 27,3462           00310        DEC200             DEC      200        B-14                       
032315,000122: 27,3463           05073        P16CLS             TC       1LMP                                  #  THRUSTER ISOL VALVES PR 3A-
032316,000123: 27,3464           00137                           DEC      95         B-14                       #  CLOSE RESET
032317,000124: 27,3465           05073                           TC       1LMP                                  #  THRUSTER ISOL VALVES PR 3B-
032318,000125: 27,3466           00157                           DEC      111        B-14                       #  CLOSE RESET
032319,000126: 27,3467           05745                           TC       TASKOVER                              
032320,000127: 27,3470           02424        DEC1300            DEC      1300       B-14                       

End of include-file MISSION_PHASE_16_-_RCS_COLD_SOAK.agc.  Parent file is MAIN.agc