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.

030504,000002:                                                                                                  ## Copyright:   Public domain.
030505,000003:                                                                                                  ## Filename:    MISSION_PHASE_8_-_DPS_COLD_SOAK.agc
030506,000004:                                                                                                  ## Purpose:     A section of Sunburst revision 37, or Shepatin revision 0.
030507,000005:                                                                                                  ##              It is part of an early development version of the software
030508,000006:                                                                                                  ##              for Apollo Guidance Computer (AGC) on the unmanned Lunar
030509,000007:                                                                                                  ##              Module (LM) flight Apollo 5. Sunburst 37 was the program
030510,000008:                                                                                                  ##              upon which Don Eyles's offline development program Shepatin
030511,000009:                                                                                                  ##              was based; the listing herein transcribed was actually for
030512,000010:                                                                                                  ##              the equivalent revision 0 of Shepatin.
030513,000011:                                                                                                  ##              This file is intended to be a faithful transcription, except
030514,000012:                                                                                                  ##              that the code format has been changed to conform to the
030515,000013:                                                                                                  ##              requirements of the yaYUL assembler rather than the
030516,000014:                                                                                                  ##              original YUL assembler.
030517,000015:                                                                                                  ## Reference:   pp. 676-683
030518,000016:                                                                                                  ## Assembler:   yaYUL
030519,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
030520,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
030521,000019:                                                                                                  ## Mod history: 2017-05-24 MAS  Created from Sunburst 120.
030522,000020:                                                                                                  ##              2017-06-14 RSB  Transcribed.
030523,000021:                                                                                                  ##              2017-06-15 HG   Fix vlaue OCT  00054 -> OCT  00034 
030524,000022:                                                                                                  ##              2017-06-22 RSB  Proofed comment text with
030525,000023:                                                                                                  ##                              octopus/ProoferComments.
030526,000024: 

Page 676

030528,000026: 27,2555                                           BANK     27                                    
030529,000027: 27,2555  E3,1652                                  EBANK=   RATEINDX                              
030530,000028: 
030531,000029:                                                                                                  #  PROGRAM DESCRIPTION-            DATE- 07 DEC 66
030532,000030: 
030533,000031:                                                                                                  #  MOD NO- 4                       LOG SECTION-
030534,000032:                                                                                                  #  MOD BY- ELIASSEN                MISSION PHASE 8 - DPS COLD SOAK
030535,000033:                                                                                                  #  FUNCTIONAL DESCRIPTION-
030536,000034: 
030537,000035:                                                                                                  #  0/54/23  START MISSION PHASE 8 WHEN MISSION TIMER 4 COUNTS TO ZERO.
030538,000036: 
030539,000037:                                                                                                  #           CHANGE MAJOR MODE TO 15.
030540,000038: 
030541,000039:                                                                                                  #           DO DFI T/M CALIBRATION  (14 SECONDS).
030542,000040: 
030543,000041:                                                                                                  #           WAIT 1 SECOND
030544,000042: 
030545,000043:                                                                                                  #  0/54/38  LMP COMMANDS-
030546,000044:                                                                                                  #                  LANDING RADAR POWER ON*
030547,000045:                                                                                                  #                  RADAR SELF TEST ON*
030548,000046: 
030549,000047:                                                                                                  #           CALL TO CALCULATE REQUIRED ATTITUDE
030550,000048:                                                                                                  #                  FOR DPS COLD SOAK -
030551,000049:                                                                                                  #                  LM X-AXIS NORMAL TO THE ECLIPTIC PLANE
030552,000050:                                                                                                  #                  AND BISECTOR OF LM +Z/-Y AXES TOWARD THE SUN.
030553,000051: 
030554,000052:                                                                                                  #                  CHANGE THE ATTITUDE OF THE
030555,000053:                                                                                                  #                  SPACECRAFT TO THAT REQUIRED FOR DPS COLD SOAK
030556,000054:                                                                                                  #                  USING KALCMANU ROUTINE - MANEUVER RATE= 5 DEG/SEC.
030557,000055: 
030558,000056:                                                                                                  #           WAIT 60 SECONDS
030559,000057: 
030560,000058:                                                                                                  #           LMP COMMAND-
030561,000059:                                                                                                  #                  RADAR SELF TEST OFF*
030562,000060: 
030563,000061:                                                                                                  #           WAIT 60 SECONDS
030564,000062: 
030565,000063:                                                                                                  #  0/56/38  LMP COMMAND-
030566,000064:                                                                                                  #                  LANDING RADAR POWER OFF*
030567,000065: 
030568,000066:                                                                                                  #           WAIT 15 SECONDS
030569,000067: 
030570,000068:                                                                                                  #  0/56/53  VERIFY THAT MANEUVER IS COMPLETE.
030571,000069:                                                                                                  #                  (IF NOT GO TO CURTAINS)
030572,000070: 
030573,000071:                                                                                                  #           SET MAXIMUM DEADBAND FOR LM-DAP.
030574,000072: 
030575,000073:                                                                                                  #           CALL SCHEDULE ENTRY ROUTINE FOR DPS 1 WITH
030576,000074:                                                                                                  #                  J=2
030577,000075:                                                                                                  #                  MP=9
030578,000076: 
030579,000077:                                                                                                  #                  DT= 2H 59M 14S
030580,000078: 

Page 677

030582,000080:                                                                                                  #  SUBROUTINES CALLED-
030583,000081:                                                                                                  #           FINDVAC, ENDOFJOB
030584,000082:                                                                                                  #           WAITLIST, TASKOVER
030585,000083:                                                                                                  #           NEWMODEX, MPENTRY, PHASCHNG, 2PHSCHNG
030586,000084:                                                                                                  #           INTPRET, BANKCALL, IBNKCALL, ATTSTALL, CURTAINS, POOH
030587,000085:                                                                                                  #           FLAG1DWN, FLAG2DWN, SETMINDB, SETMAXDB
030588,000086:                                                                                                  #           KALCMAN3, DCMTOCDU, V1STO2S
030589,000087:                                                                                                  #           1LMP, 1LMP+DT, 2LMP+DT
030590,000088: 
030591,000089:                                                                                                  #  NORMAL EXIT MODES-
030592,000090:                                                                                                  #           TC    ENDOFJOB/TASKOVER
030593,000091:                                                                                                  #  ALARM OR ABORT EXIT MODES-   NONE
030594,000092:                                                                                                  #  OUTPUT- (INTERFACE, DISPLAYS, MEANINGFUL INFORMATION LEFT IN ERASABLE)
030595,000093:                                                                                                  #           SAME AS FOR KALCMANU
030596,000094:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED-
030597,000095:                                                                                                  #           TEPHEM   IN CENTISECONDS TRIPLE PRECISION
030598,000096:                                                                                                  #           MP8TO9   DT FOR CALLING MP9- IN SECONDS(SEE ABOVE)
030599,000097: 
030600,000098:                                                                                                  #  DEBRIS- (ERASABLE LOCATIONS DESTROYED BY THIS PROGRAM)
030601,000099:                                                                                                  #           SAME AS FOR KALCMANU
030602,000100: 27,2555     7740               PRIOKM             EQUALS   PRIO20                                #  PRIORITY FOR KALCMANU PHASE 8 + 16
030603,000101: 27,2555           04105        MP8JOB             TC       NEWMODEX                              #  UPDATE PROGRAM NUMBER
030604,000102: 27,2556           00015                           OCT      15                                    #  ON DSKY
030605,000103: 
030606,000104: 27,2557           33070                           CAF      8BOOLS                                #  ASSURE PROPER
030607,000105: 27,2560           54077                           TS       DAPBOOLS                              #  INITIALIZATION
030608,000106: 27,2561           05224                           TC       BANKCALL                              #  OF LM DAP
030609,000107: 27,2562           34000                           FCADR    SETMINDB                              #  FOR MP8
030610,000108: 
030611,000109: 27,2563           04147                           TC       PHASCHNG                              
030612,000110: 27,2564           05012                           OCT      05012                                 
030613,000111: 27,2565           77777                           OCT      77777                                 
030614,000112: 
030615,000113: 27,2566           37755                           CAF      ONE                                   #  ESTABLISH TASK TO
030616,000114: 27,2567           00004                           INHINT                                         #  PERFORM DFI T/M CAL.
030617,000115: 27,2570           05701                           TC       WAITLIST                              
030618,000116: 27,2571  E3,1652                                  EBANK=   RATEINDX                              
030619,000117: 27,2571           02575 56003                     2CADR    MP8TASK                               
030620,000118: 
030621,000119: 27,2573           00003                           RELINT                                         
030622,000120: 27,2574           05605                           TC       ENDOFJOB                              
030623,000121: 
030624,000122: 27,2575           05114        MP8TASK            TC       1LMP+DT                               #  LMP COMMAND
030625,000123: 27,2576           00354                           DEC      236        B-14                       #  DFI T/M CALIBRATE ON*
030626,000124: 27,2577           02260                           DEC      1200       B-14                       #  12 SECONDS DELAY
030627,000125: 
030628,000126: 27,2600           05106                           TC       2LMP+DT                               #  LMP COMMANDS
030629,000127: 27,2601           00355                           DEC      237        B-14                       #  DFI T/M CALIBRATE OFF*
030630,000128: 27,2602           00306                           DEC      198        B-14                       #  MASTER C+W ALARM RESET**  COMMAND
030631,000129: 27,2603           00310                           DEC      200        B-14                       #  2 SECONDS DELAY

Page 678

030633,000131: 
030634,000132: 27,2604           05114                           TC       1LMP+DT                               #  LMP COMMAND
030635,000133: 27,2605           00307                           DEC      199        B-14                       #  MASTER C+W ALARM RESET- COMMAND RESET
030636,000134: 27,2606           00144                           DEC      100        B-14                       #  1 SECOND
030637,000135: 
030638,000136: 27,2607           37741        M8RADON            CAF      PRIO10                                #  SET UP JOB TO CALCULATE
030639,000137: 27,2610           05534                           TC       FINDVAC                               #  REQ CDU ANGLES
030640,000138: 27,2611  E3,1652                                  EBANK=   RATEINDX                              
030641,000139: 27,2611           02655 56003                     2CADR    COLDSOAK                              
030642,000140: 
030643,000141: 27,2613           04127                           TC       2PHSCHNG                              
030644,000142: 27,2614           00034                           OCT      00034                                 
030645,000143: 27,2615           05012                           OCT      05012                                 
030646,000144: 27,2616           77777                           OCT      77777                                 
030647,000145: 
030648,000146: 27,2617           05106                           TC       2LMP+DT                               #  LMP COMMANDS
030649,000147: 27,2620           00266                           DEC      182        B-14                       #  LANDING RADAR POWER ON*
030650,000148: 27,2621           00032                           DEC      26         B-14                       #  RADAR SELF TEST ON*
030651,000149: 27,2622           13560                           DEC      6000       B-14                       #  WAIT 1 MIN
030652,000150: 
030653,000151: 27,2623           05114                           TC       1LMP+DT                               #  LMP COMMAND
030654,000152: 27,2624           00033                           DEC      27         B-14                       #  RADAR SELF TEST OFF*
030655,000153: 27,2625           13560                           DEC      6000       B-14                       #  WAIT 1 MIN
030656,000154: 
030657,000155: 27,2626           05114                           TC       1LMP+DT                               
030658,000156: 27,2627           00267                           DEC      183        B-14                       #  LANDING RADAR POWER OFF*
030659,000157: 27,2630           02734                           DEC      1500       B-14                       #  15 SECONDS
030660,000158: 
030661,000159: 27,2631           35674                           CAF      PRIO35                                #  SET UP JOB TO
030662,000160: 27,2632           05523                           TC       NOVAC                                 #  END MISSION PHASE
030663,000161: 27,2633  E3,1400                                  EBANK=   LST1                                  
030664,000162: 27,2633           02636 56003                     2CADR    MP9CALL                               
030665,000163: 
030666,000164: 27,2635           05745                           TC       TASKOVER                              
030667,000165: 27,2636           30076        MP9CALL            CA       FLAGWRD2                              #  CHECK IF MANEUVER
030668,000166: 27,2637           77743                           MASK     BIT11                                 #  WAS COMPLETED
030669,000167: 27,2640           00006                           EXTEND                                         
030670,000168: 27,2641           12643                           BZF      +2                                    
030671,000169: 27,2642           04732                           TC       CURTAINS                              #  MANEUVER NOT COMPLETED
030672,000170: 
030673,000171: 27,2643           05224                           TC       BANKCALL                              
030674,000172: 27,2644           26754                           CADR     ATTSTALL                              
030675,000173: 27,2645           04732                           TC       CURTAINS                              #  SICK RETURN
030676,000174: 
030677,000175:                                                                                                  #                                          SET LM-DAP DEADBAND TO MAX-
030678,000176: 
030679,000177: 27,2646           05224                           TC       BANKCALL                              
030680,000178: 27,2647           34012                           CADR     SETMAXDB                              
030681,000179: 
030682,000180:                                                                                                  #                                          CALL MISSION PHASE 9
030683,000181: 
030684,000182: 27,2650           05141                           TC       MPENTRY                               #  MANEUVER SUCCESSFUL

Page 679

030686,000184: 27,2651           00002                           DEC      2          B-14                       #  J=2
030687,000185: 27,2652           00011                           DEC      9          B-14                       #  MP=9
030688,000186: 27,2653           01775                           ADRES    MP8TO9                                #  DT = 2H 59M 14S
030689,000187: 27,2654           04261                           TC       POOH                                  #  END OF MISSION PHASE 8
030690,000188: 

Page 680

030692,000190:                                                                                                  #           CALCULATE CDU ANGLES FOR REQUIRED
030693,000191:                                                                                                  #           COLDSOAK ATTITUDE - LEM X-AXIS NORMAL TO THE
030694,000192: 
030695,000193:                                                                                                  #           ECLIPTIC AND BISECTOR OF -Y/+Z AXES TOWARD THE SUN.
030696,000194: 27,2655     0144               CSRET              EQUALS   MPAC                                  
030697,000195: 27,2655           06103        COLDSOAK           TC       INTPRET                               
030698,000196: 27,2656           77601                           SETPD                                          
030699,000197: 27,2657           00001                                    0                                     
030700,000198:                                                                                                  #  CALCULATE TRANSFORMATION MATRIX FROM RCS COLD SOAK ATTITUDE
030701,000199:                                                                                                  #  TO STABLE MEMBER COORDINATES.  CONVERT TO CDU ANGLES.
030702,000200: 
030703,000201: 27,2660           54345                           DLOAD    SR                                    
030704,000202: 27,2661           00025                                    TIME2                                 
030705,000203: 27,2662           20617                                    14D                                   
030706,000204: 27,2663           56371                           TAD      DDV                                   
030707,000205: 27,2664           01772                                    TEPHEM                                #  TIME IN CENTISEC SINCE PRECEDING JUNE 30
030708,000206: 27,2665           17067                                    CSPERDAY                              #  CENTISEC PER DAY
030709,000207: 27,2666           77606                           PUSH                                           #  T/2**9 = (DAYS SINCE JUNE 30TH)/2**9
030710,000208: 
030711,000209:                                                                                                  #                                          COMPUTE  SIN(2*PI*T/365.25), COS(2*PI*T/365.25)  WHERE
030712,000210:                                                                                                  #                                          T= NUMBER OF DAYS SINCE MIDNIGHT OF PRECEDING JUNE 30TH.
030713,000211: 
030714,000212: 27,2667           51025        ALTA               DSU      BPL                                   #  DIMINISH T/2**9 BY 365.25/2**9
030715,000213: 27,2670           17065                                    ONEYR                                 #  UNTIL A NEGATIVE RESULT OCCURS.
030716,000214: 27,2671           56667                                    ALTA                                  
030717,000215: 27,2672           56215                           DAD      DDV                                   #  ADD BACK 365.25/2**9 ONCE.
030718,000216: 
030719,000217: 27,2673           17065                                    ONEYR                                 #  LET Y=RESULT
030720,000218: 27,2674           17065                                    ONEYR                                 #  Y/365.25 IS LESS THAN ONE AND POSITIVE.
030721,000219: 27,2675           73406                           PUSH     SIN                                   #  .5*SIN(2*PI*Y/365.25)
030722,000220: 27,2676           71525                           PDDL     COS                                   #  .5*COS(2*PI*Y/365.25)
030723,000221: 
030724,000222:                                                                                                  #                                          COMPUTE (1/8 +LOS) IN REVOLUTIONS WHERE
030725,000223:                                                                                                  #                                          LOS= LOS0+LOSR*T-C0Y*SIN(2*PI*Y/365.25)-C1Y*COS(2*PI*Y/365.25) .
030726,000224:                                                                                                  #                                          LOS = LONGITUDE OF SUN IN PLANE OF ECLIPTIC.
030727,000225: 
030728,000226: 27,2677           65205                           DMP      PDDL                                  
030729,000227: 27,2700           17047                                    C1Y                                   #  .5*C1Y*COS/2
030730,000228: 27,2701           43205                           DMP      DAD                                   
030731,000229: 27,2702           17045                                    C0Y                                   #  (C0Y*SIN +C1Y*COS)/4
030732,000230: 27,2703           77725                           PDDL                                           #  T/2**9
030733,000231: 27,2704           54205                           DMP      SL                                    
030734,000232: 27,2705           17043                                    LOSR                                  #  LOSR*T/2**9
030735,000233: 27,2706           20210                                    7                                     #  LOSR*T/4
030736,000234: 27,2707           77625                           DSU                                            #  (LOSR*T-C0Y*SIN-C1Y*COS)/4
030737,000235: 27,2710           43215                           DAD      DAD                                   
030738,000236: 27,2711           17041                                    LOS0                                  #  LOS/4= (LOS0+LOSR*T-C0Y*SIN-C1Y*COS)/4
030739,000237: 27,2712           17063                                    EGHTH                                 #  (1/8 +LOS)/4  ,  1/8 REV = 45 DEG
030740,000238: 
030741,000239: 27,2713           51025        ALTB               DSU      BPL                                   #  DIMINISH (1/8 +LOS)/4 REVS BY (1REV)/4
030742,000240: 
030743,000241: 27,2714           17061                                    ONEREV                                #  UNTIL A NEGATIVE RESULT OCCURS.
030744,000242: 27,2715           56713                                    ALTB                                  

Page 681

030746,000244: 27,2716           62415                           DAD      SL2                                   #  ADD BACK (1REV)/4 .
030747,000245: 27,2717           17061                                    ONEREV                                #  AND MULTIPLY BY FOUR.
030748,000246: 27,2720           77606                           PUSH                                           #  (1/8 +LOS) POSITIVE AND LESS THAN ONE.
030749,000247: 
030750,000248:                                                                                                  #                                          CONSTRUCT TRANSFORMATION MATRIX FROM RCS COLD SOAK ATTITUDE
030751,000249:                                                                                                  #                                          TO EARTH REFERENCE COORDINATES.  MATRIX IS SCALED BY -1 .
030752,000250:                                                                                                  #                                          MATRIX TRANSPOSE IS STORED STARTING IN FIRST LOCATION OF PUSHDOWN LIST.
030753,000251:                                                                                                  #                                          OBL= OBLIQUITY= ANGLE BETWEEN ECLIPTIC AND EQUATORIAL PLANES.
030754,000252: 
030755,000253:                                                                                                  #                                          DEFINE LOSR= 2*PI*LOS
030756,000254: 
030757,000255: 27,2721           57546                           COS      DCOMP                                 
030758,000256: 27,2722           00007                           STORE    6                                     #  -.5*COS(PI/4+LOSR)
030759,000257: 27,2723           77605                           DMP                                            
030760,000258: 27,2724           17053                                    COSOBL                                
030761,000259: 27,2725           00017                           STORE    14D                                   #  -.5*COS(PI/4+LOSR)*COS(OBL)
030762,000260: 27,2726           77605                           DMP                                            
030763,000261: 27,2727           17055                                    TANOBL                                
030764,000262: 27,2730           14021                           STODL    16D                                   #  -.5*COS(PI/4+LOSR)*SIN(OBL)
030765,000263: 27,2731           00001                                    0                                     
030766,000264: 27,2732           77756                           SIN                                            
030767,000265: 27,2733           00015                           STORE    12D                                   #   .5*SIN(PI/4+LOSR)
030768,000266: 27,2734           57405                           DMP      DCOMP                                 
030769,000267: 27,2735           17053                                    COSOBL                                
030770,000268: 27,2736           00011                           STORE    8D                                    #  -.5*SIN(PI/4+LOSR)*COS(OBL)
030771,000269: 27,2737           77605                           DMP                                            
030772,000270: 27,2740           17055                                    TANOBL                                
030773,000271: 27,2741           14013                           STODL    10D                                   #  -.5*SIN(PI/4+LOSR)*SIN(OBL)
030774,000272: 27,2742           17053                                    COSOBL                                
030775,000273: 27,2743           77742                           SR1                                            
030776,000274: 27,2744           14005                           STODL    4                                     #   .5*COS(OBL)
030777,000275: 27,2745           17051                                    SINOBL                                
030778,000276: 
030779,000277: 27,2746           57542                           SR1      DCOMP                                 
030780,000278: 27,2747           14003                           STODL    2                                     #  -.5*SIN(OBL)
030781,000279: 27,2750           17057                                    DPZRO                                 
030782,000280: 27,2751           00001                           STORE    0                                     #   0
030783,000281: 
030784,000282:                                                                                                  #                                          PERFORM THE MATRIX MULTIPLICATION (REFSMMAT)X(RCS TO REF MATRIX)
030785,000283: 27,2752           64375                           VLOAD    MXV                                   
030786,000284: 27,2753           00001                                    0                                     
030787,000285: 27,2754           01275                                    REFSMMAT                              
030788,000286: 27,2755           77772                           VSL1                                           
030789,000287: 27,2756           24001                           STOVL    0                                     
030790,000288: 27,2757           00007                                    6                                     
030791,000289: 27,2760           76521                           MXV      VSL1                                  
030792,000290: 27,2761           01275                                    REFSMMAT                              
030793,000291: 27,2762           24007                           STOVL    6                                     
030794,000292: 27,2763           00015                                    12D                                   
030795,000293: 27,2764           76521                           MXV      VSL1                                  
030796,000294: 27,2765           01275                                    REFSMMAT                              

Page 682

030798,000296: 27,2766           00015                           STORE    12D                                   
030799,000297: 27,2767           77776                           EXIT                                           
030800,000298: 
030801,000299:                                                                                                  #                                          TRANSPOSE RESULTING DIRECTION COSINE MATRIX.
030802,000300: 
030803,000301: 27,2770           50110                           INDEX    FIXLOC                                
030804,000302: 27,2771           52003                           DXCH     2                                     
030805,000303: 27,2772           50110                           INDEX    FIXLOC                                
030806,000304: 27,2773           52007                           DXCH     6                                     
030807,000305: 27,2774           50110                           INDEX    FIXLOC                                
030808,000306: 27,2775           52003                           DXCH     2                                     
030809,000307: 27,2776           50110                           INDEX    FIXLOC                                
030810,000308: 27,2777           52005                           DXCH     4                                     
030811,000309: 27,3000           50110                           INDEX    FIXLOC                                
030812,000310: 
030813,000311: 27,3001           52015                           DXCH     12D                                   
030814,000312: 27,3002           50110                           INDEX    FIXLOC                                
030815,000313: 27,3003           52005                           DXCH     4                                     
030816,000314: 27,3004           50110                           INDEX    FIXLOC                                
030817,000315: 27,3005           52013                           DXCH     10D                                   
030818,000316: 27,3006           50110                           INDEX    FIXLOC                                
030819,000317: 27,3007           52017                           DXCH     14D                                   
030820,000318: 27,3010           50110                           INDEX    FIXLOC                                
030821,000319: 27,3011           52013                           DXCH     10D                                   
030822,000320: 27,3012           06103                           TC       INTPRET                               
030823,000321: 
030824,000322:                                                                                                  #                                          CALL ROUTINE TO CONVERT DIRECTION COSINE MATRIX TO CDU ANGLES.
030825,000323: 
030826,000324: 27,3013           74001                           SETPD    AXC,1                                 
030827,000325: 27,3014           00023                                    18D                                   
030828,000326: 27,3015           00000                                    0                                     
030829,000327: 27,3016           77624                           CALL                                           
030830,000328: 27,3017           70727                                    DCMTOCDU                              
030831,000329: 
030832,000330:                                                                                                  #                                          CONVERT CDU ANGLES FROM ONES TO TWOS COMPLEMENT.
030833,000331: 
030834,000332: 27,3020           47131                           SSP      RTB                                   
030835,000333: 27,3021           01653                                    RATEINDX                              
030836,000334: 
030837,000335: 27,3022           00004                                    4                                     #  CODE FOUR = MANEUVER RATE OF 5 DEG/SEC.
030838,000336: 27,3023           33573                                    V1STO2S                               #      STORE CDU ANGLES IN CONSECUTIVE
030839,000337: 27,3024           01632                           STORE    CPHI                                  #      LOCATIONS  CPHI,CTHETA,CPSI.
030840,000338: 27,3025           77776                           EXIT                                           
030841,000339: 
030842,000340:                                                                                                  #                                          SET UP PARAMETERS FOR KALCMANU MANEUVER ROUTINE
030843,000341: 
030844,000342: 27,3026           06045                           TC       FLAG2DWN                              #      RESET STATE SWITCH 33 (BIT 12)
030845,000343: 27,3027           04000                           OCT      04000                                 #      FOR FINAL ROLL , IF ANY.
030846,000344: 27,3030           06027                           TC       FLAG2UP                               #  SET BIT FOR KALCMANU
030847,000345: 
030848,000346: 27,3031           02000                           OCT      02000                                 #  BIT 11
030849,000347: 27,3032           37740        COLDSK1            CAF      PRIOKM                                #  SCHEDULE KALCMANU
030850,000348: 27,3033           00004                           INHINT                                         

Page 683

030852,000350: 27,3034           05534                           TC       FINDVAC                               
030853,000351: 27,3035  E3,1652                                  EBANK=   RATEINDX                              
030854,000352: 27,3035           02067 70063                     2CADR    KALCMAN3                              
030855,000353: 
030856,000354: 27,3037           05605                           TC       ENDOFJOB                              
030857,000355: 27,3040           02142 00045  LOS0               2DEC     .273926331 B-2                        #  1966-67,IN REVOLUTIONS
030858,000356: 
030859,000357: 27,3042           00054 33330  LOSR               2DEC     .0027378507                            #  1966-67,IN REVOLUTIONS
030860,000358: 
030861,000359: 27,3044           04672 27416  C0Y                2DEC     .304044828 B-1                        #  1966-67,IN REVOLUTIONS
030862,000360: 
030863,000361: 27,3046           77503 47763  C1Y                2DEC     -.023040861 B-1                        #  1966-67,IN REVOLUTIONS
030864,000362: 
030865,000363: 27,3050           14566 11602  SINOBL             2DEC     .397845753                            #  1966-67
030866,000364: 
030867,000365: 27,3052           35267 21173  COSOBL             2DEC     .917452318                            #  1966-67
030868,000366: 
030869,000367: 27,3054           15700 31171  TANOBL             2DEC     .433641885                            #  1966-67
030870,000368: 
030871,000369: 
030872,000370: 27,3056           00000 00000  DPZRO              2DEC     0          B-28                       
030873,000371: 
030874,000372: 27,3060           10000 00000  ONEREV             2DEC     .999999999 B-2                        
030875,000373: 
030876,000374: 27,3062           01000 00000  EGHTH              2DEC     .125       B-2                        
030877,000375: 
030878,000376: 27,3064           26650 00000  ONEYR              2DEC     365.25     B-9                        
030879,000377: 
030880,000378: 27,3066           00020 17260  CSPERDAY           2DEC     8640000    B-33                       #  CENTISEC PER DAY
030881,000379: 
030882,000380: 27,3070           42032        8BOOLS             OCT      42032                                 #  COURTESY G. C. 11/16/66
030883,000381:                                                                                                  #  END OF MISSION PHASE 8

End of include-file MISSION_PHASE_8_-_DPS_COLD_SOAK.agc.  Parent file is MAIN.agc