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.

030795,000002:                                                                                                  ## Copyright:    Public domain.
030796,000003:                                                                                                  ## Filename:     MISSION_PHASE_8-DPS_COLD_SOAK.agc
030797,000004:                                                                                                  ## Purpose:      A module for revision 0 of BURST120 (Sunburst). It 
030798,000005:                                                                                                  ##               is part of the source code for the Lunar Module's
030799,000006:                                                                                                  ##               (LM) Apollo Guidance Computer (AGC) for Apollo 5.
030800,000007:                                                                                                  ## Assembler:    yaYUL
030801,000008:                                                                                                  ## Contact:      Ron Burkey <info@sandroid.org>.
030802,000009:                                                                                                  ## Website:      www.ibiblio.org/apollo/index.html
030803,000010:                                                                                                  ## Mod history:  2016-09-30 RSB  Created draft version.
030804,000011:                                                                                                  ##               2016-10-28 MAS  Transcribed.
030805,000012:                                                                                                  ##               2016-12-06 RSB  Comments proofed using octopus/ProoferComments,
030806,000013:                                                                                                  ##                               changes made.
030807,000014: 

Page 720

030809,000016: 27,2564                                           BANK     27                                    
030810,000017: 27,2564  E3,1652                                  EBANK=   RATEINDX                              
030811,000018:                                                                                                  #  PROGRAM DESCRIPTION-            DATE- 07 DEC 66
030812,000019: 
030813,000020:                                                                                                  #  MOD NO- 4                       LOG SECTION-
030814,000021:                                                                                                  #  MOD BY- ELIASSEN                MISSION PHASE 8 - DPS COLD SOAK
030815,000022:                                                                                                  #  FUNCTIONAL DESCRIPTION-
030816,000023: 
030817,000024:                                                                                                  #  0/54/23  START MISSION PHASE 8 WHEN MISSION TIMER 4 COUNTS TO ZERO.
030818,000025: 
030819,000026:                                                                                                  #           CHANGE MAJOR MODE TO 15.
030820,000027: 
030821,000028:                                                                                                  #           DO DFI T/M CALIBRATION  (14 SECONDS).
030822,000029: 
030823,000030:                                                                                                  #           WAIT 1 SECOND
030824,000031: 
030825,000032:                                                                                                  #  0/54/38  LMP COMMANDS-
030826,000033:                                                                                                  #                  LANDING RADAR POWER ON*
030827,000034:                                                                                                  #                  RADAR SELF TEST ON*
030828,000035: 
030829,000036:                                                                                                  #           CALL TO CALCULATE REQUIRED ATTITUDE
030830,000037:                                                                                                  #                  FOR DPS COLD SOAK -
030831,000038:                                                                                                  #                  LM X-AXIS NORMAL TO THE ECLIPTIC PLANE
030832,000039:                                                                                                  #                  AND BISECTOR OF LM +Z/-Y AXES TOWARD THE SUN.
030833,000040: 
030834,000041:                                                                                                  #                  CHANGE THE ATTITUDE OF THE
030835,000042:                                                                                                  #                  SPACECRAFT TO THAT REQUIRED FOR DPS COLD SOAK
030836,000043:                                                                                                  #                  USING KALCMANU ROUTINE - MANEUVER RATE= 5 DEG/SEC.
030837,000044: 
030838,000045:                                                                                                  #           WAIT 60 SECONDS
030839,000046: 
030840,000047:                                                                                                  #           LMP COMMAND-
030841,000048:                                                                                                  #                  RADAR SELF TEST OFF*
030842,000049: 
030843,000050:                                                                                                  #           WAIT 60 SECONDS
030844,000051: 
030845,000052:                                                                                                  #  0/56/38  LMP COMMAND-
030846,000053:                                                                                                  #                  LANDING RADAR POWER OFF*
030847,000054: 
030848,000055:                                                                                                  #           WAIT 15 SECONDS
030849,000056: 
030850,000057:                                                                                                  #  0/56/53  VERIFY THAT MANEUVER IS COMPLETE.
030851,000058:                                                                                                  #                  (IF NOT GO TO CURTAINS)
030852,000059: 
030853,000060:                                                                                                  #           SET MAXIMUM DEADBAND FOR LM-DAP.
030854,000061: 
030855,000062:                                                                                                  #           CALL SCHEDULE ENTRY ROUTINE FOR DPS 1 WITH
030856,000063:                                                                                                  #                  J=2
030857,000064:                                                                                                  #                  MP=9
030858,000065:                                                                                                  #                  DT= 2H 59M 14S
030859,000066: 

Page 721

030861,000068:                                                                                                  #  SUBROUTINES CALLED-
030862,000069:                                                                                                  #           FINDVAC, ENDOFJOB
030863,000070:                                                                                                  #           WAITLIST, TASKOVER
030864,000071:                                                                                                  #           NEWMODEX, MPENTRY, PHASCHNG, 2PHSCHNG
030865,000072:                                                                                                  #           INTPRET, BANKCALL, IBNKCALL, ATTSTALL, CURTAINS, P00H
030866,000073:                                                                                                  #           FLAG1DWN, FLAG2DWN, SETMINDB, SETMAXDB
030867,000074:                                                                                                  #           KALCMAN3, DCMTOCDU, V1STO2S
030868,000075:                                                                                                  #           1LMP, 1LMP+DT, 2LMP+DT
030869,000076: 
030870,000077:                                                                                                  #  NORMAL EXIT MODES-
030871,000078:                                                                                                  #           TC    ENDOFJOB/TASKOVER
030872,000079:                                                                                                  #  ALARM OR ABORT EXIT MODES-   NONE
030873,000080:                                                                                                  #  OUTPUT- (INTERFACE, DISPLAYS, MEANINGFUL INFORMATION LEFT IN ERASABLE)
030874,000081:                                                                                                  #           SAME AS FOR KALCMANU
030875,000082:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED-
030876,000083:                                                                                                  #           TEPHEM   IN CENTISECONDS TRIPLE PRECISION
030877,000084:                                                                                                  #           MP8TO9   DT FOR CALLING MP9- IN SECONDS(SEE ABOVE)
030878,000085: 
030879,000086:                                                                                                  #  DEBRIS- (ERASABLE LOCATIONS DESTROYED BY THIS PROGRAM)
030880,000087:                                                                                                  #           SAME AS FOR KALCMANU
030881,000088: 27,2564     7746               PRIOKM             EQUALS   PRIO20                                #  PRIORITY FOR KALCMANU PHASE 8 + 16
030882,000089: 27,2564           04117        MP8JOB             TC       NEWMODEX                              #  UPDATE PROGRAM NUMBER
030883,000090: 27,2565           00015                           OCT      15                                    #  ON DSKY
030884,000091: 
030885,000092: 27,2566           04161                           TC       PHASCHNG                              
030886,000093: 27,2567           05022                           OCT      05022                                 
030887,000094: 27,2570           20000                           OCT      20000                                 
030888,000095: 27,2571           37754                           CAF      BIT8                                  
030889,000096: 27,2572           04105                           TC       SETRSTRT                              #  SET RESTART FLAG
030890,000097: 
030891,000098: 27,2573           37763                           CAF      ONE                                   #  ESTABLISH TASK TO
030892,000099: 27,2574           00004                           INHINT                                         #  PERFORM DFI T/M CAL.
030893,000100: 27,2575           05663                           TC       WAITLIST                              
030894,000101: 27,2576  E3,1652                                  EBANK=   RATEINDX                              
030895,000102: 27,2576           02601 56063                     2CADR    MP8TASK                               
030896,000103: 
030897,000104: 27,2600           05567                           TC       ENDOFJOB                              
030898,000105: 
030899,000106: 27,2601           05101        MP8TASK            TC       1LMP+DT                               #  LMP COMMAND
030900,000107: 27,2602           00354                           DEC      236        B-14                       #  DFI T/M CALIBRATE ON*
030901,000108: 27,2603           02260                           DEC      1200       B-14                       #  12 SECONDS DELAY
030902,000109: 
030903,000110: 27,2604           05073                           TC       2LMP+DT                               #  LMP COMMANDS
030904,000111: 27,2605           00355                           DEC      237        B-14                       #  DFI T/M CALIBRATE OFF*
030905,000112: 27,2606           00306                           DEC      198        B-14                       #  MASTER C+W ALARM RESET**  COMMAND
030906,000113: 27,2607           00310                           DEC      200        B-14                       #  2 SECONDS DELAY
030907,000114: 
030908,000115: 27,2610           05101                           TC       1LMP+DT                               #  LMP COMMAND
030909,000116: 27,2611           00307                           DEC      199        B-14                       #  MASTER C+W ALARM RESET- COMMAND RESET
030910,000117: 27,2612           00144                           DEC      100        B-14                       #  1 SECOND
030911,000118: 

Page 722

030913,000120: 27,2613           37747        M8RADON            CAF      PRIO10                                #  SET UP JOB TO CALCULATE
030914,000121: 27,2614           05516                           TC       FINDVAC                               #  REQ CDU ANGLES
030915,000122: 27,2615  E3,1652                                  EBANK=   RATEINDX                              
030916,000123: 27,2615           02670 56063                     2CADR    COLDSOAK                              
030917,000124: 
030918,000125: 27,2617           04141                           TC       2PHSCHNG                              
030919,000126: 27,2620           00054                           OCT      00054                                 
030920,000127: 27,2621           05012                           OCT      05012                                 
030921,000128: 27,2622           77777                           OCT      77777                                 
030922,000129: 
030923,000130: 27,2623           05073                           TC       2LMP+DT                               #  LMP COMMANDS
030924,000131: 27,2624           00266                           DEC      182        B-14                       #  LANDING RADAR POWER ON*
030925,000132: 27,2625           00032                           DEC      26         B-14                       #  RADAR SELF TEST ON*
030926,000133: 27,2626           13560                           DEC      6000       B-14                       #  WAIT 1 MIN
030927,000134: 
030928,000135: 27,2627           05101                           TC       1LMP+DT                               #  LMP COMMAND
030929,000136: 27,2630           00033                           DEC      27         B-14                       #  RADAR SELF TEST OFF*
030930,000137: 27,2631           13560                           DEC      6000       B-14                       #  WAIT 1 MIN
030931,000138: 
030932,000139: 27,2632           05101                           TC       1LMP+DT                               
030933,000140: 27,2633           00267                           DEC      183        B-14                       #  LANDING RADAR POWER OFF*
030934,000141: 27,2634           02734                           DEC      1500       B-14                       #  15 SECONDS
030935,000142: 
030936,000143: 27,2635           35656                           CAF      PRIO35                                #  SET UP JOB TO
030937,000144: 27,2636           05505                           TC       NOVAC                                 #  END MISSION PHASE
030938,000145: 27,2637  E3,1400                                  EBANK=   LST1                                  
030939,000146: 27,2637           02642 56063                     2CADR    MP9CALL                               
030940,000147: 
030941,000148: 27,2641           05727                           TC       TASKOVER                              
030942,000149: 27,2642           30076        MP9CALL            CA       FLAGWRD2                              #  CHECK IF MANEUVER
030943,000150: 27,2643           77751                           MASK     BIT11                                 #  WAS COMPLETED
030944,000151: 27,2644           00006                           EXTEND                                         
030945,000152: 27,2645           12647                           BZF      +2                                    
030946,000153: 27,2646           04743                           TC       CURTAINS                              #  MANEUVER NOT COMPLETED
030947,000154: 27,2647           05206                           TC       BANKCALL                              
030948,000155: 27,2650           26743                           CADR     ATTSTALL                              
030949,000156: 27,2651           04743                           TC       CURTAINS                              #  SICK RETURN
030950,000157: 
030951,000158:                                                                                                  #                                          SET LM-DAP DEADBAND TO MAX-
030952,000159: 
030953,000160: 27,2652           04161                           TC       PHASCHNG                              
030954,000161: 27,2653           00002                           OCT      00002                                 #  DEACTIVATE GR 2
030955,000162: 
030956,000163: 27,2654           04141                           TC       2PHSCHNG                              
030957,000164: 27,2655           00004                           OCT      00004                                 
030958,000165: 27,2656           05023                           OCT      05023                                 
030959,000166: 27,2657           30000                           OCT      30000                                 
030960,000167: 
030961,000168: 27,2660           00004                           INHINT                                         
030962,000169: 27,2661           05206                           TC       BANKCALL                              

Page 723

030964,000171: 27,2662           40054                           CADR     SETMAXDB                              
030965,000172: 
030966,000173:                                                                                                  #                                          CALL MISSION PHASE 9
030967,000174: 
030968,000175: 27,2663           05126                           TC       MPENTRY                               #  MANEUVER SUCCESSFUL
030969,000176: 27,2664           00002                           DEC      2          B-14                       #  J=2
030970,000177: 27,2665           00011                           DEC      9          B-14                       #  MP=9
030971,000178: 27,2666           01773                           ADRES    MP8TO9                                #  DT = 2H 59M 14S
030972,000179: 
030973,000180: 27,2667           04272                           TC       P00H                                  #  END OF MISSION PHASE 8
030974,000181: 

Page 724

030976,000183:                                                                                                  #           CALCULATE CDU ANGLES FOR REQUIRED
030977,000184:                                                                                                  #           COLDSOAK ATTITUDE - LEM X-AXIS NORMAL TO THE
030978,000185:                                                                                                  #           ECLIPTIC AND BISECTOR OF -Y/+Z AXES TOWARD THE SUN.
030979,000186: 27,2670           00006        COLDSOAK           EXTEND                                         
030980,000187: 27,2671           30025                           DCA      TIME2                                 
030981,000188: 27,2672           52145                           DXCH     MPAC                                  
030982,000189: 27,2673           00006                           EXTEND                                         
030983,000190: 27,2674           31741                           DCA      TLIFTOFF                              
030984,000191: 27,2675           20145                           DAS      MPAC                                  #  ADD TIME CLOCK ZEROED TO TIME2
030985,000192: 
030986,000193: 27,2676           37767                           CA       ZERO                                  
030987,000194: 27,2677           54153                           TS       MODE                                  
030988,000195: 27,2700           06112                           TC       INTPRET                               
030989,000196:                                                                                                  #  CALCULATE TRANSFORMATION MATRIX FROM RCS COLD SOAK ATTITUDE
030990,000197:                                                                                                  #  TO STABLE MEMBER COORDINATES.   CONVERT TO CDU ANGLES.
030991,000198: 27,2701           54201                           SETPD    SR                                    
030992,000199: 27,2702           00001                                    0                                     
030993,000200: 27,2703           20617                                    14D                                   
030994,000201: 27,2704           56371                           TAD      DDV                                   
030995,000202: 27,2705           01754                                    TEPHEM                                #  TIME IN CENTISEC SINCE PRECEDING JUNE 30
030996,000203: 27,2706           17113                                    CSPERDAY                              #  CENTISEC PER DAY
030997,000204: 27,2707           77606                           PUSH                                           #  T/2**9 = (DAYS SINCE JUNE 30TH)/2**9
030998,000205: 
030999,000206:                                                                                                  #                                          COMPUTE  SIN(2*PI*T/365.25), COS(2*PI*T/365.25)  WHERE
031000,000207:                                                                                                  #                                          T= NUMBER OF DAYS SINCE MIDNIGHT OF PRECEDING JUNE 30TH.
031001,000208: 
031002,000209: 27,2710           51025        ALTA               DSU      BPL                                   #  DIMINISH T/2**9 BY 365.25/2**9
031003,000210: 27,2711           17111                                    ONEYR                                 #  UNTIL A NEGATIVE RESULT OCCURS.
031004,000211: 27,2712           56710                                    ALTA                                  
031005,000212: 27,2713           56215                           DAD      DDV                                   #  ADD BACK 365.25/2**9 ONCE.
031006,000213: 27,2714           17111                                    ONEYR                                 #  LET Y=RESULT
031007,000214: 27,2715           17111                                    ONEYR                                 #  Y/365.25 IS LESS THAN ONE AND POSITIVE.
031008,000215: 27,2716           73406                           PUSH     SIN                                   #  .5*SIN(2*PI*Y/365.25)
031009,000216: 27,2717           71525                           PDDL     COS                                   #  .5*COS(2*PI*Y/365.25)
031010,000217: 
031011,000218:                                                                                                  #                                          COMPUTE (1/8 +LOS) IN REVOLUTIONS WHERE
031012,000219:                                                                                                  #                                          LOS= LOS0+LOSR*T-C0Y*SIN(2*PI*Y/365.25)-C1Y*COS(2*PI*Y/365.25) .
031013,000220:                                                                                                  #                                          LOS = LONGITUDE OF SUN IN PLANE OF ECLIPTIC.
031014,000221: 
031015,000222: 27,2720           65205                           DMP      PDDL                                  
031016,000223: 27,2721           17073                                    C1Y                                   #  .5*C1Y*COS/2
031017,000224: 27,2722           43205                           DMP      DAD                                   
031018,000225: 27,2723           17071                                    C0Y                                   #  (C0Y*SIN +C1Y*COS)/4
031019,000226: 27,2724           77725                           PDDL                                           #  T/2**9
031020,000227: 27,2725           54205                           DMP      SL                                    
031021,000228: 27,2726           17067                                    LOSR                                  #  LOSR*T/2**9
031022,000229: 27,2727           20210                                    7                                     #  LOSR*T/4
031023,000230: 27,2730           77625                           DSU                                            #  (LOSR*T-C0Y*SIN-C1Y*COS)/4
031024,000231: 27,2731           43215                           DAD      DAD                                   
031025,000232: 27,2732           17065                                    LOS0                                  #  LOS/4= (LOS0+LOSR*T-C0Y*SIN-C1Y*COS)/4

Page 725

031027,000234: 27,2733           17107                                    EGHTH                                 #  (1/8 +LOS)/4  ,  1/8 REV = 45 DEG
031028,000235: 
031029,000236: 27,2734           51025        ALTB               DSU      BPL                                   #  DIMINISH (1/8 +LOS)/4 REVS BY (1REV)/4
031030,000237: 27,2735           17105                                    ONEREV                                #  UNTIL A NEGATIVE RESULT OCCURS.
031031,000238: 27,2736           56734                                    ALTB                                  
031032,000239: 27,2737           62415                           DAD      SL2                                   #  ADD BACK (1REV)/4 .
031033,000240: 27,2740           17105                                    ONEREV                                #  AND MULTIPLY BY FOUR.
031034,000241: 27,2741           77606                           PUSH                                           #  (1/8 +LOS) POSITIVE AND LESS THAN ONE.
031035,000242: 
031036,000243:                                                                                                  #                                          CONSTRUCT TRANSFORMATION MATRIX FROM RCS COLD SOAK ATTITUDE
031037,000244:                                                                                                  #                                          TO EARTH REFERENCE COORDINATES.  MATRIX IS SCALED BY -1 .
031038,000245:                                                                                                  #                                          MATRIX TRANSPOSE IS STORED STARTING IN FIRST LOCATION OF PUSHDOWN LIST.
031039,000246:                                                                                                  #                                          OBL= OBLIQUITY= ANGLE BETWEEN ECLIPTIC AND EQUATORIAL PLANES.
031040,000247:                                                                                                  #                                          DEFINE LOSR= 2*PI*LOS
031041,000248: 
031042,000249: 27,2742           57546                           COS      DCOMP                                 
031043,000250: 27,2743           00007                           STORE    6                                     #  -.5*COS(PI/4+LOSR)
031044,000251: 27,2744           77605                           DMP                                            
031045,000252: 27,2745           17077                                    COSOBL                                
031046,000253: 27,2746           00017                           STORE    14D                                   #  -.5*COS(PI/4+LOSR)*COS(OBL)
031047,000254: 27,2747           77605                           DMP                                            
031048,000255: 27,2750           17101                                    TANOBL                                
031049,000256: 27,2751           14021                           STODL    16D                                   #  -.5*COS(PI/4+LOSR)*SIN(OBL)
031050,000257: 27,2752           00001                                    0                                     
031051,000258: 27,2753           77756                           SIN                                            
031052,000259: 27,2754           00015                           STORE    12D                                   #   .5*SIN(PI/4+LOSR)
031053,000260: 27,2755           57405                           DMP      DCOMP                                 
031054,000261: 27,2756           17077                                    COSOBL                                
031055,000262: 27,2757           00011                           STORE    8D                                    #  -.5*SIN(PI/4+LOSR)*COS(OBL)
031056,000263: 27,2760           77605                           DMP                                            
031057,000264: 27,2761           17101                                    TANOBL                                
031058,000265: 27,2762           14013                           STODL    10D                                   #  -.5*SIN(PI/4+LOSR)*SIN(OBL)
031059,000266: 27,2763           17077                                    COSOBL                                
031060,000267: 27,2764           77742                           SR1                                            
031061,000268: 27,2765           14005                           STODL    4                                     #   .5*COS(OBL)
031062,000269: 27,2766           17075                                    SINOBL                                
031063,000270: 27,2767           57542                           SR1      DCOMP                                 
031064,000271: 27,2770           14003                           STODL    2                                     #  -.5*SIN(OBL)
031065,000272: 27,2771           17103                                    DPZRO                                 
031066,000273: 27,2772           00001                           STORE    0                                     #   0
031067,000274: 
031068,000275:                                                                                                  #                                          PERFORM THE MATRIX MULTIPLICATION (REFSMMAT)X(RCS TO REF MATRIX)/2
031069,000276: 27,2773           64375                           VLOAD    MXV                                   
031070,000277: 27,2774           00001                                    0                                     
031071,000278: 27,2775           01263                                    REFSMMAT                              
031072,000279: 27,2776           77772                           VSL1                                           
031073,000280: 27,2777           24001                           STOVL    0                                     
031074,000281: 27,3000           00007                                    6                                     
031075,000282: 27,3001           76521                           MXV      VSL1                                  
031076,000283: 27,3002           01263                                    REFSMMAT                              
031077,000284: 

Page 726

031079,000286: 27,3003           24007                           STOVL    6                                     
031080,000287: 27,3004           00015                                    12D                                   
031081,000288: 27,3005           76521                           MXV      VSL1                                  
031082,000289: 27,3006           01263                                    REFSMMAT                              
031083,000290: 27,3007           00015                           STORE    12D                                   
031084,000291: 27,3010           77776                           EXIT                                           
031085,000292: 
031086,000293:                                                                                                  #                                          TRANSPOSE RESULTING DIRECTION COSINE MATRIX.
031087,000294: 
031088,000295: 27,3011           50110                           INDEX    FIXLOC                                
031089,000296: 27,3012           52003                           DXCH     2                                     
031090,000297: 27,3013           50110                           INDEX    FIXLOC                                
031091,000298: 27,3014           52007                           DXCH     6                                     
031092,000299: 27,3015           50110                           INDEX    FIXLOC                                
031093,000300: 27,3016           52003                           DXCH     2                                     
031094,000301: 27,3017           50110                           INDEX    FIXLOC                                
031095,000302: 27,3020           52005                           DXCH     4                                     
031096,000303: 27,3021           50110                           INDEX    FIXLOC                                
031097,000304: 27,3022           52015                           DXCH     12D                                   
031098,000305: 27,3023           50110                           INDEX    FIXLOC                                
031099,000306: 27,3024           52005                           DXCH     4                                     
031100,000307: 27,3025           50110                           INDEX    FIXLOC                                
031101,000308: 27,3026           52013                           DXCH     10D                                   
031102,000309: 27,3027           50110                           INDEX    FIXLOC                                
031103,000310: 27,3030           52017                           DXCH     14D                                   
031104,000311: 27,3031           50110                           INDEX    FIXLOC                                
031105,000312: 27,3032           52013                           DXCH     10D                                   
031106,000313: 27,3033           06112                           TC       INTPRET                               
031107,000314: 
031108,000315:                                                                                                  #                                          CALL ROUTINE TO CONVERT DIRECTION COSINE MATRIX TO CDU ANGLES.
031109,000316: 
031110,000317: 27,3034           74001                           SETPD    AXC,1                                 
031111,000318: 27,3035           00023                                    18D                                   
031112,000319: 27,3036           00000                                    0                                     
031113,000320: 27,3037           77624                           CALL                                           
031114,000321: 27,3040           70711                                    DCMTOCDU                              
031115,000322: 
031116,000323:                                                                                                  #                                          CONVERT CDU ANGLES FROM ONES TO TWOS COMPLEMENT.
031117,000324: 
031118,000325: 27,3041           47131                           SSP      RTB                                   
031119,000326: 27,3042           01653                                    RATEINDX                              
031120,000327: 27,3043           00004                                    4                                     #  CODE FOUR = MANEUVER RATE OF 5 DEG/SEC.
031121,000328: 27,3044           33526                                    V1STO2S                               #      STORE CDU ANGLES IN CONSECUTIVE
031122,000329: 27,3045           01632                           STORE    CPHI                                  #      LOCATIONS  CPHI,CTHETA,CPSI.
031123,000330: 27,3046           77776                           EXIT                                           
031124,000331: 
031125,000332:                                                                                                  #                                          SET UP PARAMETERS FOR KALCMANU MANEUVER ROUTINE
031126,000333: 
031127,000334: 27,3047           06076                           TC       FLAG2DWN                              #  RESET STATE SWITCH 33 (BIT 12)
031128,000335: 27,3050           04000                           OCT      04000                                 #  FOR FINAL ROLL , IF ANY.
031129,000336: 

Page 727

031131,000338: 27,3051           06060                           TC       FLAG2UP                               #  SET BIT FOR KALCMANU
031132,000339: 27,3052           02000                           OCT      02000                                 #  BIT 11
031133,000340: 
031134,000341: 27,3053           04161                           TC       PHASCHNG                              
031135,000342: 27,3054           05024                           OCT      05024                                 
031136,000343: 27,3055           20000                           OCT      20000                                 
031137,000344: 
031138,000345: 27,3056           37746        COLDSK1            CAF      PRIOKM                                #  SCHEDULE KALCMANU
031139,000346: 27,3057           00004                           INHINT                                         
031140,000347: 27,3060           05516                           TC       FINDVAC                               
031141,000348: 27,3061  E3,1652                                  EBANK=   RATEINDX                              
031142,000349: 27,3061           02067 70063                     2CADR    KALCMAN3                              
031143,000350: 
031144,000351: 27,3063           05567                           TC       ENDOFJOB                              
031145,000352: 
031146,000353: 27,3064           02142 00045  LOS0               2DEC     .273926331 B-2                        #  1966-67,IN REVOLUTIONS
031147,000354: 
031148,000355: 27,3066           00054 33312  LOSR               2DEC     .0027377992                            #  1966-67,IN REVOLUTIONS
031149,000356: 
031150,000357: 27,3070           00053 17056  C0Y                2DEC     .005306583 B-1                        #  1966-67,IN REVOLUTIONS
031151,000358: 
031152,000359: 27,3072           77774 66451  C1Y                2DEC     -.000402139 B-1                        #  1966-67,IN REVOLUTIONS
031153,000360: 
031154,000361: 27,3074           14566 11602  SINOBL             2DEC     .397845753                            #  1966-67
031155,000362: 
031156,000363: 27,3076           35267 21173  COSOBL             2DEC     .917452318                            #  1966-67
031157,000364: 
031158,000365: 27,3100           15700 31171  TANOBL             2DEC     .433641885                            #  1966-67
031159,000366: 
031160,000367: 27,3102           00000 00000  DPZRO              2DEC     0          B-28                       
031161,000368: 
031162,000369: 27,3104           10000 00000  ONEREV             2DEC     .999999999 B-2                        
031163,000370: 
031164,000371: 27,3106           01000 00000  EGHTH              2DEC     .125       B-2                        
031165,000372: 
031166,000373: 27,3110           26650 00000  ONEYR              2DEC     365.25     B-9                        
031167,000374: 
031168,000375: 27,3112           00020 17260  CSPERDAY           2DEC     8640000    B-33                       #  CENTISEC PER DAY
031169,000376: 
031170,000377:                                                                                                  #  END OF MISSION PHASE 8

End of include-file MISSION_PHASE_8-DPS_COLD_SOAK.agc.  Parent file is MAIN.agc