Source Code

These source-code files were obtained by digitally photographing an Artemis 72 (Apollo 15-17 Command Module) program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Photography was by Ron Burkey, and transcription was performed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images may be available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971
Note that the date is the date of the printout, not the date of the program revision.

045552,000002:                                                                                                  ## Copyright:   Public domain.
045553,000003:                                                                                                  ## Filename:    RCS-CSM_DAP_EXECUTIVE_PROGRAMS.agc
045554,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
045555,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM) 
045556,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for 
045557,000007:                                                                                                  ##              Apollo 15-17.
045558,000008:                                                                                                  ## Assembler:   yaYUL
045559,000009:                                                                                                  ## Contact:     Sergio Navarro <sergionavarrog@gmail.com>
045560,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
045561,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
045562,000012:                                                                                                  ## Mod history: 2009-08-27 SN   Adapted from corresponding Comanche 055 file.
045563,000013:                                                                                                  ##              2009-09-04 JL   Minor fixes.
045564,000014:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
045565,000015:                                                                                                  ##              2017-02-08 RSB  Proofed comment text by diff'ing vs Comanche 55
045566,000016:                                                                                                  ##                              and/or octopus/ProoferComments as most-appropriate.
045567,000017: 

Page 1036

045569,000019:                                                                                                  #  CALCULATION OF  AMGB, AMBG     ONCE EVERY SECOND
045570,000020: 
045571,000021:                                                                                                  #   AMGB =  1    SIN(PSI)                0
045572,000022:                                                                                                  #           0    COS(PSI)COS(PHI)        SIN(PHI)
045573,000023:                                                                                                  #           0    -COS(PSI)SIN(PHI)       COS(PHI)
045574,000024: 
045575,000025:                                                                                                  #   AMBG =  1    -TAN(PSI)COS(PHI)       TAN(PSI)SIN(PHI)
045576,000026:                                                                                                  #           0    COS(PHI)/COS(PSI)       -SIN(PHI)/COS(PSI)
045577,000027:                                                                                                  #           0    SIN(PHI)                COS(PHI)
045578,000028: 
045579,000029:                                                                                                  #   WHERE PHI AND PSI ARE CDU ANGLES
045580,000030: 
045581,000031: 22,2000                                           SETLOC   DAPS8                                 
045582,000032: 22,2000                                           BANK                                           
045583,000033: 
045584,000034: 22,3560                                           COUNT*   $$/DAPEX                              
045585,000035: 22,3560  E6,1510                                  EBANK=   KMPAC                                 
045586,000036: 22,3560           30102        AMBGUPDT           CA       FLAGWRD6                              #  CHECK FOR RCS AUTOPILOT
045587,000037: 22,3561           74076                           MASK     DPCONFIG                              
045588,000038: 22,3562           00006                           EXTEND                                         
045589,000039: 22,3563           65205                           BZMF     ENDOFJOB                              #  BIT15 = 0, BIT14 = 1
045590,000040: 22,3564           74753                           MASK     DAP2BIT                               #  IF NOT RCS, EXIT
045591,000041: 22,3565           00006                           EXTEND                                         
045592,000042: 22,3566           15205                           BZF      ENDOFJOB                              #  TO PROTECT TVC DAP ON SWITCHOVER
045593,000043: 
045594,000044: 22,3567           30034                           CA       CDUZ                                  
045595,000045: 22,3570           05061                           TC       SPSIN2                                
045596,000046: 22,3571           55640                           TS       AMGB1                                 #  CALCULATE AMGB
045597,000047: 22,3572           30034                           CA       CDUZ                                  
045598,000048: 22,3573           05060                           TC       SPCOS2                                
045599,000049: 22,3574           55645                           TS       CAPSI                                 #  MUST CHECK FOR GIMBAL LOCK
045600,000050: 22,3575           34620                           CAF      QUADANGL                              #  = 7.25  DEGREES JET QUAD ANGULAR OFFSET
045601,000051: 22,3576           00006                           EXTEND                                         
045602,000052: 22,3577           20032                           MSU      CDUX                                  
045603,000053: 22,3600           40000                           COM                                            #  CDUX - 7.25 DEG
045604,000054: 22,3601           05060                           TC       SPCOS1                                
045605,000055: 22,3602           55644                           TS       AMGB8                                 
045606,000056: 22,3603           00006                           EXTEND                                         
045607,000057: 22,3604           71645                           MP       CAPSI                                 
045608,000058: 22,3605           55641                           TS       AMGB4                                 
045609,000059: 22,3606           34620                           CAF      QUADANGL                              
045610,000060: 22,3607           00006                           EXTEND                                         
045611,000061: 22,3610           20032                           MSU      CDUX                                  
045612,000062: 22,3611           40000                           COM                                            #  CDUX - 7.25 DEG
045613,000063: 22,3612           05061                           TC       SPSIN1                                
045614,000064: 22,3613           55642                           TS       AMGB5                                 
045615,000065: 22,3614           00006                           EXTEND                                         
045616,000066: 22,3615           71645                           MP       CAPSI                                 
045617,000067: 22,3616           40000                           COM                                            

Page 1037

045619,000069: 22,3617           55643                           TS       AMGB7                                 
045620,000070: 22,3620           15205                           TCF      ENDOFJOB                              
045621,000071:    4000                                           SETLOC   FFTAG12                               
045622,000072:    4000                                           BANK                                           
045623,000073: 
045624,000074:    4620                                           COUNT*   $$/DAPEX                              
045625,000075:    4620           01224        QUADANGL           DEC      660        B-14                       #  = 7.25 DEGREES

End of include-file RCS-CSM_DAP_EXECUTIVE_PROGRAMS.agc.  Parent file is MAIN.agc