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.

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

Page 940

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

Page 941

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

Page 942 This page contains only assembler-generated messages.

041552,000120: 
041553,000121: 

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