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.

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

Page 676

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

Page 677

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

Page 678

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

Page 679

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

Page 680

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

Page 681

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

Page 682

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

Page 683

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

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