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.

041249,000002:                                                                                                 #  Copyright:     Public domain.
041250,000003:                                                                                                 #  Filename:      S-BAND_ANTENNA_FOR_CM.agc
041251,000004:                                                                                                 #  Purpose:       Part of the source code for Artemis (i.e., Colossus 3),
041252,000005:                                                                                                 #                 build 072.  This is for the Command Module's (CM)
041253,000006:                                                                                                 #                 Apollo Guidance Computer (AGC), we believe for
041254,000007:                                                                                                 #                 Apollo 15-17.
041255,000008:                                                                                                 #  Assembler:     yaYUL
041256,000009:                                                                                                 #  Contact:       Steve Case <case.steve@gmail.com>
041257,000010:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
041258,000011:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Artemis072/
041259,000012:                                                                                                 #  Mod history:   2009-09-01 SMC  Adapted from Comanche055 files.
041260,000013:                                                                                                 #                 2009-09-04 JL   Fixed page comments. Fixed typos.
041261,000014:                                                                                                 #                 2010-02-20 RSB  Un-##'d this header.
041262,000015: 
041263,000016:                                                                                                 # # Page 940
041264,000017: 42,2000                                          SETLOC   SBAND                                 
041265,000018: 42,2000                                          BANK                                           
041266,000019: 
041267,000020: 42,3504                                          COUNT*   $$/R05                                
041268,000021: 42,3504  E4,1417                                 EBANK=   EMSALT                                
041269,000022: 
041270,000023: 42,3504           06006        SBANDANT          TC       INTPRET                               
041271,000024: 42,3505           45034                          RTB      CALL                                  
041272,000025: 42,3506           51751                                   LOADTIME                              #  PICKUP CURRENT TIME SCALED B-28
041273,000026: 42,3507           47530                                   CDUTRIG                               #  COMPUTE SINES AND COSINES OF CDU ANGLES
041274,000027: 42,3510           34041                          STCALL   TDEC1                                 #  ADVANCE INTEGRATION TO TIME IN TDEC1
041275,000028: 42,3511           27170                                   CSMCONIC                              #  USING CONIC INTEGRATION
041276,000029: 42,3512           46135                          SLOAD    BHIZ                                  #  ORIGIN OF REFERENCE INERTIAL SYSTEM IS
041277,000030: 42,3513           00050                                   X2                                    #  EARTH = 0, MOON = 2
041278,000031: 42,3514           65527                                   EISOI                                 
041279,000032: 42,3515           77775                          VLOAD                                          
041280,000033: 42,3516           00001                                   RATT                                  
041281,000034: 42,3517           00003                          STORE    RCM                                   #  MOVE RATT TO PREVENT WIPEOUT
041282,000035: 42,3520           45145                          DLOAD    CALL                                  #  MOON, PUSH ON
041283,000036: 42,3521           00015                                   TAT                                   #  GET ORIGINAL TIME
041284,000037: 42,3522           54141                                   LUNPOS                                #  COMPUTE POSITION VECTOR OF MOON
041285,000038: 42,3523           57455                          VAD      VCOMP                                 #  R= -(REM+RCM) = NEG. OF S/C POS. VEC
041286,000039: 42,3524           00003                                   RCM                                   
041287,000040: 42,3525           77650                          GOTO                                           
041288,000041: 42,3526           65531                                   EISOI      +2                         
041289,000042: 42,3527           57575        EISOI             VLOAD    VCOMP                                 #  EARTH, R= -RCM
041290,000043: 42,3530           00001                                   RATT                                  
041291,000044: 42,3531           64201                          SETPD    MXV                                   #  RCS TO STABLE MEMBER- B-1X B-29X B+1
041292,000045: 42,3532           00003                                   2D                                    #  2D
041293,000046: 42,3533           01734                                   REFSMMAT                              #  STABLE MEMBER.  B-1X B-29X B+1= B-29
041294,000047: 42,3534           65372                          VSL1     PDDL                                  #  8D
041295,000048: 42,3535           15336                                   HI6ZEROS                              
041296,000049: 42,3536           24025                          STOVL    YAWANG                                #  ZERO OUT YAWANG, SET UP FOR SMNB
041297,000050: 42,3537           00003                                   RCM                                   #  TRANSFORMATION. SM COORD. SCALED B-29
041298,000051: 42,3540           77624                          CALL                                           
041299,000052: 42,3541           47633                                   *SMNB*                                
041300,000053: 42,3542           00003                          STORE    R                                     #  SAVE NAV. BASE COORDINATES
041301,000054: 42,3543           63256                          UNIT     PDVL                                  #  14D
041302,000055: 42,3544           00003                                   R                                     
041303,000056: 42,3545           72431                          VPROJ    VSL2                                  #  COMPUTE PROJECTION OF VECTOR INTO CM
041304,000057: 42,3546           15330                                   HIUNITZ                               #  XY-PLANE, R-(R.UZ)UZ
041305,000058: 42,3547           40045                          BVSU     BOV                                   #  CLEAR OVERFLOW INDICATOR IF SET
041306,000059: 42,3550           00003                                   R                                     
041307,000060: 42,3551           65552                                   COVCNV                                
041308,000061: 42,3552           40056        COVCNV            UNIT     BOV                                   #  TEST OVERFLOW FOR INDICATION OF NULL
041309,000062: 42,3553           65567                                   NOADJUST                              #  VECTOR
041310,000063: 42,3554           50206                          PUSH     DOT                                   #  20D
041311,000064: 42,3555           15334                                   HIUNITX                               #  COMPUTE YAW ANGLE = ACOS (URP.UX)
041312,000065: 42,3556           65552                          SL1      ACOS                                  #  REVOLUTIONS SCALED B0
041313,000066: 42,3557           50315                          PDVL     DOT                                   #  22D YAWANG
041314,000067:                                                                                                 # # Page 941
041315,000068: 42,3560           00017                                   URP                                   
041316,000069: 42,3561           15332                                   HIUNITY                               #  COMPUTE FOLLOWING- URP.UY
041317,000070: 42,3562           51152                          SL1      BPL                                   #  POSITIVE
041318,000071: 42,3563           65567                                   NOADJUST                              #  YES, 0- 180 DEGREES
041319,000072: 42,3564           45345                          DLOAD    DSU                                   #  NO, 181-360 DEGREES 20D
041320,000073: 42,3565           15344                                   DPPOSMAX                              #  COMPUTE 2 PI MINUS YAW ANGLE
041321,000074: 42,3566           77606                          PUSH                                           #  22D YAWANG
041322,000075: 42,3567           50375        NOADJUST          VLOAD    DOT                                   #  COMPUTE PITCH ANGLE
041323,000076: 42,3570           00011                                   UR                                    #  ACOS (UR.UZ) - PI/2
041324,000077: 42,3571           15330                                   HIUNITZ                               
041325,000078: 42,3572           65552                          SL1      ACOS                                  #  REVOLUTIONS B0
041326,000079: 42,3573           77625                          DSU                                            
041327,000080: 42,3574           15326                                   HIDP1/4                               
041328,000081: 42,3575           16312                          STODL    RHOSB                                 
041329,000082: 42,3576           00025                                   YAWANG                                
041330,000083: 42,3577           02314                          STORE    GAMMASB                               #  PATCH FOR CHECKOUT
041331,000084: 42,3600           77776                          EXIT                                           
041332,000085: 42,3601           35047                          CAF      PRIO5                                 
041333,000086: 42,3602           05176                          TC       PRIOCHNG                              
041334,000087: 
041335,000088: 42,3603           31247                          CA       EXTVBACT                              #  IS BIT 5 STILL ON
041336,000089: 42,3604           74764                          MASK     BIT5                                  
041337,000090: 42,3605           00006                          EXTEND                                         
041338,000091: 42,3606           15524                          BZF      ENDEXT                                #  NO, WE HAVE BEEN ANSWERED
041339,000092: 42,3607           33625                          CAF      V06N51                                #  DISPLAY ANGLES
041340,000093: 42,3610           04636                          TC       BANKCALL                              
041341,000094: 42,3611           20607                          CADR     GOMARKFR                              
041342,000095: 42,3612           05626                          TC       B5OFF                                 #  TERMINATE
041343,000096: 42,3613           05626                          TC       B5OFF                                 
041344,000097: 42,3614           05205                          TC       ENDOFJOB                              #  RECYCLE
041345,000098: 42,3615           34766                          CAF      BIT3                                  #  IMMEDIATE RETURN
041346,000099: 42,3616           05516                          TC       BLANKET                               #  BLANK R3
041347,000100: 42,3617           34755                          CAF      PRIO4                                 
041348,000101: 42,3620           05176                          TC       PRIOCHNG                              
041349,000102: 
041350,000103: 42,3621           34770                          CAF      BIT1                                  #  DELAY MINIMUM TIME TO ALLOW DISPLAY IN
041351,000104: 42,3622           04636                          TC       BANKCALL                              
041352,000105: 42,3623           01731                          CADR     DELAYJOB                              
041353,000106: 42,3624           13504                          TCF      SBANDANT                              
041354,000107: 42,3625           01463        V06N51            VN       0651                                  
041355,000108: 42,3626                        RCM               EQUALS   2D                                    
041356,000109: 42,3626                        UR                EQUALS   8D                                    
041357,000110: 42,3626                        URP               EQUALS   14D                                   
041358,000111: 42,3626                        YAWANG            EQUALS   20D                                   
041359,000112: 42,3626                        PITCHANG          EQUALS   22D                                   
041360,000113: 42,3626  0000002               R                 EQUALS   RCM                                   
041361,000114: 42,3626  30,2000                                 SBANK=   LOWSUPER                              
041362,000115: 
041363,000116:                                                                                                 # # Page 942
041364,000117:                                                                                                 #  *** END OF MENELAUS.061 ***
041365,000118: 

End of include-file S-BAND_ANTENNA_FOR_CM.agc.  Parent file is MAIN.agc