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.

041424,000002:                                                                                                  ## Copyright:   Public domain.
041425,000003:                                                                                                  ## Filename:    S-BAND_ANTENNA_FOR_CM.agc
041426,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
041427,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM)
041428,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for
041429,000007:                                                                                                  ##              Apollo 15-17.
041430,000008:                                                                                                  ## Assembler:   yaYUL
041431,000009:                                                                                                  ## Contact:     Steve Case <case.steve@gmail.com>
041432,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
041433,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
041434,000012:                                                                                                  ## Mod history: 2009-09-01 SMC  Adapted from Comanche055 files.
041435,000013:                                                                                                  ##              2009-09-04 JL   Fixed page comments. Fixed typos.
041436,000014:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
041437,000015:                                                                                                  ##              2017-02-08 RSB  Proofed comment text by diff'ing vs Comanche 55
041438,000016:                                                                                                  ##                              and/or octopus/ProoferComments as most-appropriate.
041439,000017: 

Page 940

041441,000019: 42,2000                                           SETLOC   SBAND                                 
041442,000020: 42,2000                                           BANK                                           
041443,000021: 
041444,000022: 42,3504                                           COUNT*   $$/R05                                
041445,000023: 42,3504  E4,1417                                  EBANK=   EMSALT                                
041446,000024: 
041447,000025: 42,3504           06006        SBANDANT           TC       INTPRET                               
041448,000026: 42,3505           45034                           RTB      CALL                                  
041449,000027: 42,3506           51751                                    LOADTIME                              #  PICKUP CURRENT TIME SCALED B-28
041450,000028: 42,3507           47530                                    CDUTRIG                               #  COMPUTE SINES AND COSINES OF CDU ANGLES
041451,000029: 42,3510           34041                           STCALL   TDEC1                                 #  ADVANCE INTEGRATION TO TIME IN TDEC1
041452,000030: 42,3511           27170                                    CSMCONIC                              #  USING CONIC INTEGRATION
041453,000031: 42,3512           46135                           SLOAD    BHIZ                                  #  ORIGIN OF REFERENCE INERTIAL SYSTEM IS
041454,000032: 42,3513           00050                                    X2                                    #  EARTH = 0, MOON = 2
041455,000033: 42,3514           65527                                    EISOI                                 
041456,000034: 42,3515           77775                           VLOAD                                          
041457,000035: 42,3516           00001                                    RATT                                  
041458,000036: 42,3517           00003                           STORE    RCM                                   #  MOVE RATT TO PREVENT WIPEOUT
041459,000037: 42,3520           45145                           DLOAD    CALL                                  #  MOON, PUSH ON
041460,000038: 42,3521           00015                                    TAT                                   #  GET ORIGINAL TIME
041461,000039: 42,3522           54141                                    LUNPOS                                #  COMPUTE POSITION VECTOR OF MOON
041462,000040: 42,3523           57455                           VAD      VCOMP                                 #  R= -(REM+RCM) = NEG. OF S/C POS. VEC
041463,000041: 42,3524           00003                                    RCM                                   
041464,000042: 42,3525           77650                           GOTO                                           
041465,000043: 42,3526           65531                                    EISOI      +2                         
041466,000044: 42,3527           57575        EISOI              VLOAD    VCOMP                                 #  EARTH, R= -RCM
041467,000045: 42,3530           00001                                    RATT                                  
041468,000046: 42,3531           64201                           SETPD    MXV                                   #  RCS TO STABLE MEMBER- B-1X B-29X B+1
041469,000047: 42,3532           00003                                    2D                                    #  2D
041470,000048: 42,3533           01734                                    REFSMMAT                              #  STABLE MEMBER.  B-1X B-29X B+1= B-29
041471,000049: 42,3534           65372                           VSL1     PDDL                                  #  8D
041472,000050: 42,3535           15336                                    HI6ZEROS                              
041473,000051: 42,3536           24025                           STOVL    YAWANG                                #  ZERO OUT YAWANG, SET UP FOR SMNB
041474,000052: 42,3537           00003                                    RCM                                   #  TRANSFORMATION. SM COORD. SCALED B-29
041475,000053: 42,3540           77624                           CALL                                           
041476,000054: 42,3541           47633                                    *SMNB*                                
041477,000055: 42,3542           00003                           STORE    R                                     #  SAVE NAV. BASE COORDINATES
041478,000056: 42,3543           63256                           UNIT     PDVL                                  #  14D
041479,000057: 42,3544           00003                                    R                                     
041480,000058: 42,3545           72431                           VPROJ    VSL2                                  #  COMPUTE PROJECTION OF VECTOR INTO CM
041481,000059: 42,3546           15330                                    HIUNITZ                               #  XY-PLANE, R-(R.UZ)UZ
041482,000060: 42,3547           40045                           BVSU     BOV                                   #  CLEAR OVERFLOW INDICATOR IF SET
041483,000061: 42,3550           00003                                    R                                     
041484,000062: 42,3551           65552                                    COVCNV                                
041485,000063: 42,3552           40056        COVCNV             UNIT     BOV                                   #  TEST OVERFLOW FOR INDICATION OF NULL
041486,000064: 42,3553           65567                                    NOADJUST                              #  VECTOR
041487,000065: 42,3554           50206                           PUSH     DOT                                   #  20D
041488,000066: 42,3555           15334                                    HIUNITX                               #  COMPUTE YAW ANGLE = ACOS (URP.UX)
041489,000067: 42,3556           65552                           SL1      ACOS                                  #  REVOLUTIONS SCALED B0
041490,000068: 42,3557           50315                           PDVL     DOT                                   #  22D YAWANG

Page 941

041492,000070: 42,3560           00017                                    URP                                   
041493,000071: 42,3561           15332                                    HIUNITY                               #  COMPUTE FOLLOWING- URP.UY
041494,000072: 42,3562           51152                           SL1      BPL                                   #  POSITIVE
041495,000073: 42,3563           65567                                    NOADJUST                              #  YES, 0- 180 DEGREES
041496,000074: 42,3564           45345                           DLOAD    DSU                                   #  NO, 181-360 DEGREES 20D
041497,000075: 42,3565           15344                                    DPPOSMAX                              #  COMPUTE 2 PI MINUS YAW ANGLE
041498,000076: 42,3566           77606                           PUSH                                           #  22D YAWANG
041499,000077: 42,3567           50375        NOADJUST           VLOAD    DOT                                   #  COMPUTE PITCH ANGLE
041500,000078: 42,3570           00011                                    UR                                    #  ACOS (UR.UZ) - PI/2
041501,000079: 42,3571           15330                                    HIUNITZ                               
041502,000080: 42,3572           65552                           SL1      ACOS                                  #  REVOLUTIONS B0
041503,000081: 42,3573           77625                           DSU                                            
041504,000082: 42,3574           15326                                    HIDP1/4                               
041505,000083: 42,3575           16312                           STODL    RHOSB                                 
041506,000084: 42,3576           00025                                    YAWANG                                
041507,000085: 42,3577           02314                           STORE    GAMMASB                               #  PATCH FOR CHECKOUT
041508,000086: 42,3600           77776                           EXIT                                           
041509,000087: 42,3601           35047                           CAF      PRIO5                                 
041510,000088: 42,3602           05176                           TC       PRIOCHNG                              
041511,000089: 
041512,000090: 42,3603           31247                           CA       EXTVBACT                              #  IS BIT 5 STILL ON
041513,000091: 42,3604           74764                           MASK     BIT5                                  
041514,000092: 42,3605           00006                           EXTEND                                         
041515,000093: 42,3606           15524                           BZF      ENDEXT                                #  NO, WE HAVE BEEN ANSWERED
041516,000094: 42,3607           33625                           CAF      V06N51                                #  DISPLAY ANGLES
041517,000095: 42,3610           04636                           TC       BANKCALL                              
041518,000096: 42,3611           20607                           CADR     GOMARKFR                              
041519,000097: 42,3612           05626                           TC       B5OFF                                 #  TERMINATE
041520,000098: 42,3613           05626                           TC       B5OFF                                 
041521,000099: 42,3614           05205                           TC       ENDOFJOB                              #  RECYCLE
041522,000100: 42,3615           34766                           CAF      BIT3                                  #  IMMEDIATE RETURN
041523,000101: 42,3616           05516                           TC       BLANKET                               #  BLANK R3
041524,000102: 42,3617           34755                           CAF      PRIO4                                 
041525,000103: 42,3620           05176                           TC       PRIOCHNG                              
041526,000104: 
041527,000105: 42,3621           34770                           CAF      BIT1                                  #  DELAY MINIMUM TIME TO ALLOW DISPLAY IN
041528,000106: 42,3622           04636                           TC       BANKCALL                              
041529,000107: 42,3623           01731                           CADR     DELAYJOB                              
041530,000108: 42,3624           13504                           TCF      SBANDANT                              
041531,000109: 42,3625           01463        V06N51             VN       0651                                  
041532,000110: 42,3626                        RCM                EQUALS   2D                                    
041533,000111: 42,3626                        UR                 EQUALS   8D                                    
041534,000112: 42,3626                        URP                EQUALS   14D                                   
041535,000113: 42,3626                        YAWANG             EQUALS   20D                                   
041536,000114: 42,3626                        PITCHANG           EQUALS   22D                                   
041537,000115: 42,3626  0000002               R                  EQUALS   RCM                                   
041538,000116: 42,3626  30,2000                                  SBANK=   LOWSUPER                              
041539,000117: 

Page 942 This page contains only assembler-generated messages.

041542,000120: 
041543,000121: 

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