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.

030812,000002:                                                                                                  ## Copyright:    Public domain.
030813,000003:                                                                                                  ## Filename:     MISSION_PHASE_8-DPS_COLD_SOAK.agc
030814,000004:                                                                                                  ## Purpose:      A module for revision 0 of BURST120 (Sunburst). It 
030815,000005:                                                                                                  ##               is part of the source code for the Lunar Module's
030816,000006:                                                                                                  ##               (LM) Apollo Guidance Computer (AGC) for Apollo 5.
030817,000007:                                                                                                  ## Assembler:    yaYUL
030818,000008:                                                                                                  ## Contact:      Ron Burkey <info@sandroid.org>.
030819,000009:                                                                                                  ## Website:      www.ibiblio.org/apollo/index.html
030820,000010:                                                                                                  ## Mod history:  2016-09-30 RSB  Created draft version.
030821,000011:                                                                                                  ##               2016-10-28 MAS  Transcribed.
030822,000012:                                                                                                  ##               2016-12-06 RSB  Comments proofed using octopus/ProoferComments,
030823,000013:                                                                                                  ##                               changes made.
030824,000014:                                                                                                  ##               2017-06-03 MAS Replaced some instances of P00H with POOH.
030825,000015: 
030826,000016: 

Page 720

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

Page 721

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

Page 722

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

Page 723

030983,000173: 27,2662           40054                           CADR     SETMAXDB                              
030984,000174: 
030985,000175:                                                                                                  #                                          CALL MISSION PHASE 9
030986,000176: 
030987,000177: 27,2663           05126                           TC       MPENTRY                               #  MANEUVER SUCCESSFUL
030988,000178: 27,2664           00002                           DEC      2          B-14                       #  J=2
030989,000179: 27,2665           00011                           DEC      9          B-14                       #  MP=9
030990,000180: 27,2666           01773                           ADRES    MP8TO9                                #  DT = 2H 59M 14S
030991,000181: 
030992,000182: 27,2667           04272                           TC       POOH                                  #  END OF MISSION PHASE 8
030993,000183: 

Page 724

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

Page 725

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

Page 726

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

Page 727

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

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