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.

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

Page 1036

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

Page 1037

045609,000069: 22,3617           55643                           TS       AMGB7                                 
045610,000070: 22,3620           15205                           TCF      ENDOFJOB                              
045611,000071:    4000                                           SETLOC   FFTAG12                               
045612,000072:    4000                                           BANK                                           
045613,000073: 
045614,000074:    4620                                           COUNT*   $$/DAPEX                              
045615,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