Source Code

These source-code files were obtained by digitally photographing an Artemis 72 program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. 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

	THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS
				COLOSSUS 3
	THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED
	IN REPORT R-577.  THIS PROGRAM WAS PREPARED UNDER OSR
	PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT
	CENTER OF THE NATIONAL AERONAUTICS AND SPACE
	ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE
	CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF
	TECHNOLOGY, CAMBRIDGE, MASS.

045342,000002:                                                                                                 #  Copyright:     Public domain.
045343,000003:                                                                                                 #  Filename:      RCS-CSM_DAP_EXECUTIVE_PROGRAMS.agc
045344,000004:                                                                                                 #  Purpose:       Part of the source code for Artemis (i.e., Colossus 3),
045345,000005:                                                                                                 #                 build 072.  This is for the Command Module's (CM) 
045346,000006:                                                                                                 #                 Apollo Guidance Computer (AGC), we believe for 
045347,000007:                                                                                                 #                 Apollo 15-17.
045348,000008:                                                                                                 #  Assembler:     yaYUL
045349,000009:                                                                                                 #  Contact:       Sergio Navarro <sergionavarrog@gmail.com>
045350,000010:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
045351,000011:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Artemis072/
045352,000012:                                                                                                 #  Mod history:   2009-08-27 SN   Adapted from corresponding Comanche 055 file.
045353,000013:                                                                                                 #                 2009-09-04 JL   Minor fixes.
045354,000014:                                                                                                 #                 2010-02-20 RSB  Un-##'d this header.
045355,000015: 
045356,000016:                                                                                                 # # Page 1036
045357,000017:                                                                                                 #  CALCULATION OF  AMGB, AMBG     ONCE EVERY SECOND
045358,000018: 
045359,000019:                                                                                                 #   AMGB =  1     SIN(PSI)                0
045360,000020:                                                                                                 #            0    COS(PSI)COS(PHI)        SIN(PHI)
045361,000021:                                                                                                 #            0    -COS(PSI)SIN(PHI)       COS(PHI)
045362,000022: 
045363,000023:                                                                                                 #   AMBG =  1     -TAN(PSI)COS(PHI)       TAN(PSI)SIN(PHI)
045364,000024:                                                                                                 #            0    COS(PHI)/COS(PSI)       -SIN(PHI)/COS(PSI)
045365,000025:                                                                                                 #            0    SIN(PHI)                COS(PHI)
045366,000026: 
045367,000027:                                                                                                 #   WHERE PHI AND PSI ARE CDU ANGLES
045368,000028: 
045369,000029: 22,2000                                          SETLOC   DAPS8                                 
045370,000030: 22,2000                                          BANK                                           
045371,000031: 
045372,000032: 22,3560                                          COUNT*   $$/DAPEX                              
045373,000033: 22,3560  E6,1510                                 EBANK=   KMPAC                                 
045374,000034: 22,3560           30102        AMBGUPDT          CA       FLAGWRD6                              #  CHECK FOR RCS AUTOPILOT
045375,000035: 22,3561           74076                          MASK     DPCONFIG                              
045376,000036: 22,3562           00006                          EXTEND                                         
045377,000037: 22,3563           65205                          BZMF     ENDOFJOB                              #  BIT15 = 0, BIT14 = 1
045378,000038: 22,3564           74753                          MASK     DAP2BIT                               #  IF NOT RCS, EXIT
045379,000039: 22,3565           00006                          EXTEND                                         
045380,000040: 22,3566           15205                          BZF      ENDOFJOB                              #  TO PROTECT TVC DAP ON SWITCHOVER
045381,000041: 
045382,000042: 22,3567           30034                          CA       CDUZ                                  
045383,000043: 22,3570           05061                          TC       SPSIN2                                
045384,000044: 22,3571           55640                          TS       AMGB1                                 #  CALCULATE AMGB
045385,000045: 22,3572           30034                          CA       CDUZ                                  
045386,000046: 22,3573           05060                          TC       SPCOS2                                
045387,000047: 22,3574           55645                          TS       CAPSI                                 #  MUST CHECK FOR GIMBAL LOCK
045388,000048: 22,3575           34620                          CAF      QUADANGL                              #  = 7.25  DEGREES JET QUAD ANGULAR OFFSET
045389,000049: 22,3576           00006                          EXTEND                                         
045390,000050: 22,3577           20032                          MSU      CDUX                                  
045391,000051: 22,3600           40000                          COM                                            #  CDUX - 7.25 DEG
045392,000052: 22,3601           05060                          TC       SPCOS1                                
045393,000053: 22,3602           55644                          TS       AMGB8                                 
045394,000054: 22,3603           00006                          EXTEND                                         
045395,000055: 22,3604           71645                          MP       CAPSI                                 
045396,000056: 22,3605           55641                          TS       AMGB4                                 
045397,000057: 22,3606           34620                          CAF      QUADANGL                              
045398,000058: 22,3607           00006                          EXTEND                                         
045399,000059: 22,3610           20032                          MSU      CDUX                                  
045400,000060: 22,3611           40000                          COM                                            #  CDUX - 7.25 DEG
045401,000061: 22,3612           05061                          TC       SPSIN1                                
045402,000062: 22,3613           55642                          TS       AMGB5                                 
045403,000063: 22,3614           00006                          EXTEND                                         
045404,000064: 22,3615           71645                          MP       CAPSI                                 
045405,000065: 22,3616           40000                          COM                                            
045406,000066:                                                                                                 # # Page 1037
045407,000067: 22,3617           55643                          TS       AMGB7                                 
045408,000068: 22,3620           15205                          TCF      ENDOFJOB                              
045409,000069:    4000                                          SETLOC   FFTAG12                               
045410,000070:    4000                                          BANK                                           
045411,000071: 
045412,000072:    4620                                          COUNT*   $$/DAPEX                              
045413,000073:    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