Source Code

These source-code files are part of a reconstructed copy of Artemis 071, the first release of the Apollo 15 through 17 Command Module (CM) Apollo Guidance Computer (AGC) software.

The reconstruction began with source code of Artemis 072 previously transcribed from a digitized copy of that program. The code was then updated by undoing changes between the two versions. The reconstruction was verified by matching memory-bank checksums to those listed in drawing 2021154-. Note that page numbers in the reconstructed code match those on the Artemis 072 printout, although the changed code would likely have changed page numbers for a real Artemis 071 listing.

Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository.

020066,000002:                                                                                                  ## Copyright:   Public domain.
020067,000003:                                                                                                  ## Filename:    GROUND_TRACKING_DETERMINATION_PROGRAM_-_P21.agc
020068,000004:                                                                                                  ## Purpose:     A section of Artemis revision 071.
020069,000005:                                                                                                  ##              It is part of the reconstructed source code for the first
020070,000006:                                                                                                  ##              release of the flight software for the Command Module's
020071,000007:                                                                                                  ##              (CM) Apollo Guidance Computer (AGC) for Apollo 15 through
020072,000008:                                                                                                  ##              17. The code has been recreated from a copy of Artemis 072.
020073,000009:                                                                                                  ##              It has been adapted such that the resulting bugger words
020074,000010:                                                                                                  ##              exactly match those specified for Artemis 071 in NASA
020075,000011:                                                                                                  ##              drawing 2021154-, which gives relatively high confidence
020076,000012:                                                                                                  ##              that the reconstruction is correct.
020077,000013:                                                                                                  ## Reference:   455
020078,000014:                                                                                                  ## Assembler:   yaYUL
020079,000015:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
020080,000016:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
020081,000017:                                                                                                  ## Mod history: 2019-08-14 MAS  Created from Artemis 072.
020082,000018: 

Page 455

020084,000020:                                                                                                  #  GROUND TRACKING DETERMINATION PROGRAM P21
020085,000021: 
020086,000022:                                                                                                  #  PROGRAM DESCRIPTION
020087,000023:                                                                                                  #  MOD NO - 1
020088,000024:                                                                                                  #  MOD BY - N. M. NEVILLE
020089,000025: 
020090,000026:                                                                                                  #  FUNCTIONAL DECRIPTION-
020091,000027: 
020092,000028:                                                                                                  #        TO PROVIDE THE ASTRONAUT DETAILS OF THE LM OR CSM GROUND TRACK WITHOUT
020093,000029:                                                                                                  #        THE NEED FOR GROUND COMMUNICATION (REQUESTED BY DSKY).
020094,000030: 
020095,000031:                                                                                                  #  CALLING SEQUENCE -
020096,000032: 
020097,000033:                                                                                                  #        ASTRONAUT REQUEST THROUGH DSKY V37E21E
020098,000034: 
020099,000035:                                                                                                  #  SUBROUTINES CALLED-
020100,000036: 
020101,000037:                                                                                                  #        GOPERF4
020102,000038:                                                                                                  #        GOFLASH
020103,000039:                                                                                                  #        THISPREC
020104,000040:                                                                                                  #        OTHPREC
020105,000041:                                                                                                  #        LAT-LONG
020106,000042: 
020107,000043:                                                                                                  #  NORMAL EXIT MODES-
020108,000044: 
020109,000045:                                                                                                  #        ASTRONAUT REQUEST TROUGH DSKY TO TERMINATE PROGRAM V34E
020110,000046: 
020111,000047:                                                                                                  #  ALARM OR ABORT EXIT MODES-
020112,000048:                                                                                                  #  
020113,000049:                                                                                                  #        NONE
020114,000050: 
020115,000051:                                                                                                  #  OUTPUT -
020116,000052: 
020117,000053:                                                                                                  #        OCTAL DISPLAY OF OPTION CODE AND VEHICLE WHOSE GROUND TRACK IS TO BE
020118,000054:                                                                                                  #        COMPUTED
020119,000055:                                                                                                  #                OPTION CODE     00002
020120,000056:                                                                                                  #                THIS            00001
020121,000057:                                                                                                  #                OTHER           00002
020122,000058:                                                                                                  #        DECIMAL DISPLAY OF TIME TO BE INTEGRATED TO HOURS , MINUTES , SECONDS
020123,000059:                                                                                                  #        DECIMAL DISPLAY OF LAT,LONG,ALT
020124,000060: 
020125,000061:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
020126,000062: 
020127,000063:                                                                                                  #        AX0      2DEC   4.652459653 E-5   RADIANS       %68-69 CONSTANTS"
020128,000064: 
020129,000065:                                                                                                  #        -AY0     2DEC   2.147535898 E-5   RADIANS
020130,000066: 
020131,000067:                                                                                                  #        AZ0      2DEC   .7753206164       REVOLUTIONS
020132,000068: 
020133,000069:                                                                                                  #        FOR LUNAR ORBITS 504LM VECTOR IS NEEDED
020134,000070: 
020135,000071:                                                                                                  #        504LM    2DEC   -2.700340600 E-5  RADIANS
020136,000072: 
020137,000073:                                                                                                  #        504LM _2 2DEC   -7.514128400 E-4  RADIANS
020138,000074: 
020139,000075:                                                                                                  #        504LM _4 2DEC   _2.553198641 E-4  RADIANS
020140,000076: 
020141,000077:                                                                                                  #        NONE
020142,000078: 
020143,000079:                                                                                                  #  DEBRIS
020144,000080: 

Page 456

020146,000082:                                                                                                  #        CENTRALS - A,Q,L
020147,000083:                                                                                                  #        OTHER - THOSE USED BY THE ABOVE LISTED SUBROUTINES
020148,000084:                                                                                                  #        SEE LEMPREC,LAT-LONG
020149,000085: 
020150,000086: 43,3166  30,2000                                  SBANK=   LOWSUPER                              #  FOR LOW 2CADR'S.
020151,000087: 
020152,000088: 37,2000                                           SETLOC   P20S                                  
020153,000089: 37,2000                                           BANK                                           
020154,000090: 
020155,000091: 37,2000  E7,1537                                  EBANK=   P21TIME                               
020156,000092: 37,2000                                           COUNT*   $$/P21                                
020157,000093: 37,2000           34770        PROG21             CAF      ONE                                   
020158,000094: 37,2001           54776                           TS       OPTION2                               #  ASSUMED VEHICLE IS LM, R2 = 00001
020159,000095: 37,2002           05547                           TC       UPFLAG                                
020160,000096: 37,2003           00031                           ADRES    TRACKFLG                              
020161,000097: 
020162,000098: 37,2004           34767                           CAF      BIT2                                  #   OPTION 2
020163,000099: 37,2005           04636                           TC       BANKCALL                              
020164,000100: 37,2006           21074                           CADR     GOPERF4                               
020165,000101: 37,2007           04103                           TC       GOTOPOOH                              #  TERMINATE
020166,000102: 37,2010           02012                           TC       +2                                    #  PROCEED VALUE OF ASSUMED VEHICLE OK
020167,000103: 37,2011           02004                           TC       -5                                    #  R2 LOADED THROUGH DSKY
020168,000104: 37,2012           34772                           CAF      ZERO                                  #  ZERO DSPTEM
020169,000105: 37,2013           55250                           TS       DSPTEM1                               
020170,000106: 37,2014           55251                           TS       DSPTEM1    +1                         
020171,000107: 37,2015           35027        P21PROG1           CAF      V6N34                                 #  LOAD DESIRED TIME OF LAT-LONG.
020172,000108: 37,2016           05535                           TC       VNFLASH                               
020173,000109: 37,2017           06006                           TC       INTPRET                               
020174,000110: 37,2020           53145                           DLOAD    BZE                                   
020175,000111: 37,2021           01251                                    DSPTEM1                               
020176,000112: 37,2022           76155                                    P21PRTM                               #  SET TO INTEG TO PRES TIME
020177,000113: 37,2023           34041        P21PROG2           STCALL   TDEC1                                 #  INTEG TO TIME SPECIFIED IN TDEC
020178,000114: 37,2024           27516                                    INTSTALL                              
020179,000115: 37,2025           43014                           BON      SET                                   
020180,000116: 37,2026           01303                                    P21FLAG                               
020181,000117: 37,2027           76045                                    P21CONT                               #  ON...RECYCLE USING BASE VECTOR
020182,000118: 37,2030           01474                                    VINTFLAG                              #  OFF..1ST PASS CALC BASE VECTOR
020183,000119: 37,2031           70535                           SLOAD    SR1                                   
020184,000120: 37,2032           00777                                    OPTION2                               
020185,000121: 37,2033           43030                           BHIZ     CLEAR                                 
020186,000122: 37,2034           76036                                    +2                                    #  ZERO..THIS VEHICLE (CM)
020187,000123: 37,2035           01674                                    VINTFLAG                              #  ONE...OTHER VEHICLE(LM)
020188,000124: 37,2036           43014                           CLEAR    CLEAR                                 
020189,000125: 37,2037           01676                                    DIM0FLAG                              
020190,000126: 37,2040           01673                                    INTYPFLG                              #  PRECISION
020191,000127: 37,2041           77624                           CALL                                           
020192,000128: 37,2042           27236                                    INTEGRV                               #  CALCULATE
020193,000129: 37,2043           77650                           GOTO                                           #  .AND
020194,000130: 37,2044           76066                                    P21VSAVE                              #  ..SAVE BASE VECTOR
020195,000131: 37,2045           77775        P21CONT            VLOAD                                          #  RECYCLE..INTEG FROM BASE VECTOR                       

Page 457

020197,000133: 37,2046           03605                                    P21BASER                              
020198,000134: 37,2047           25535                           STOVL    RCV                                   #  ..POS
020199,000135: 37,2050           03613                                    P21BASEV                              
020200,000136: 37,2051           15543                           STODL    VCV                                   #  ..VEL
020201,000137: 37,2052           03540                                    P21TIME                               
020202,000138: 37,2053           01517                           STORE    TET                                   #  ..TIME
020203,000139: 37,2054           43014                           CLEAR    CLEAR                                 
020204,000140: 37,2055           01676                                    DIM0FLAG                              
020205,000141: 37,2056           00263                                    MOONFLAG                              
020206,000142: 37,2057           53135                           SLOAD    BZE                                   
020207,000143: 37,2060           03604                                    P21ORIG                               
020208,000144: 37,2061           76064                                    +3                                    #  ZERO = EARTH
020209,000145: 37,2062           77614                           SET                                            #  ...2 = MOON
020210,000146: 37,2063           00063                                    MOONFLAG                              
020211,000147: 37,2064           77624                           CALL                                           
020212,000148: 37,2065           27211                                    INTEGRVS                              
020213,000149: 37,2066           77745        P21VSAVE           DLOAD                                          #  SAVE CURRENT BASE VECTOR
020214,000150: 37,2067           00015                                    TAT                                   
020215,000151: 37,2070           27540                           STOVL    P21TIME                               #  ..TIME
020216,000152: 37,2071           00017                                    RATT1                                 
020217,000153: 37,2072           27605                           STOVL    P21BASER                              #  ..POS B-29 OR B-27
020218,000154: 37,2073           00025                                    VATT1                                 
020219,000155: 37,2074           03613                           STORE    P21BASEV                              #  ..VEL B-7  OR B-5
020220,000156: 37,2075           77614                           BONCLR                                         #  WITH ADJUSTED P29 BASE TIME, SKIP
020221,000157: 37,2076           02605                                    NEWTFLAG                              #       P29 DISPLAYS
020222,000158: 37,2077           60015                                    HOP29DSP                              
020223,000159: 37,2100           47014                           BOFF     RTB                                   #  RETURN TO P29 IF P29FLAG IS SET
020224,000160: 37,2101           00356                                    P29FLAG                               
020225,000161: 37,2102           76104                                    +2                                    
020226,000162: 37,2103           60004                                    LONGPASS                              
020227,000163: 37,2104           53646                           ABVAL    SL*                                   
020228,000164: 37,2105           57576                                    0,2                                   
020229,000165: 37,2106           27623                           STOVL    P21VEL                                #  /VEL/ FOR N73 DSP
020230,000166: 37,2107           00001                                    RATT                                  
020231,000167: 37,2110           50256                           UNIT     DOT                                   
020232,000168: 37,2111           00007                                    VATT                                  #  U(R).(V)
020233,000169: 37,2112           67471                           DDV      ASIN                                  #  U(R).U(V)
020234,000170: 37,2113           03623                                    P21VEL                                
020235,000171: 37,2114           03625                           STORE    P21GAM                                #  SIN-1 U(R).U(V), -90 TO +90
020236,000172: 37,2115           43134                           SXA,2    SET                                   
020237,000173: 37,2116           03603                                    P21ORIG                               #  0 = EARTH  2 = MOON
020238,000174: 37,2117           01063                                    P21FLAG                               
020239,000175: 37,2120           67214        P21DSP             CLEAR    SLOAD                                 #  GENERATE DISPLAY DATA
020240,000176: 37,2121           01663                                    LUNAFLAG                              
020241,000177: 37,2122           00050                                    X2                                    
020242,000178: 37,2123           43054                           BZE      SET                                   
020243,000179: 37,2124           76126                                    +2                                    #  0 = EARTH
020244,000180: 37,2125           01463                                    LUNAFLAG                              
020245,000181: 37,2126           77775                           VLOAD                                          
020246,000182: 37,2127           00001                                    RATT                                  

Page 458

020248,000184: 37,2130           16152                           STODL    ALPHAV                                
020249,000185: 37,2131           00015                                    TAT                                   
020250,000186: 37,2132           45014                           CLEAR    CALL                                  
020251,000187: 37,2133           00662                                    ERADFLAG                              
020252,000188: 37,2134           26453                                    LAT-LONG                              
020253,000189: 37,2135           77605                           DMP                                            #  MPAC = ALT, METERS B-29
020254,000190: 37,2136           36166                                    K.01                                  
020255,000191: 37,2137           03621                           STORE    P21ALT                                #  ALT/100 FOR N73 DSP
020256,000192: 37,2140           77776                           EXIT                                           
020257,000193: 37,2141           32164                           CAF      V06N43                                #  DISPLAY LAT,LONG,ALT
020258,000194: 37,2142           04636                           TC       BANKCALL                              #  LAT,LONG = REVS B0    BOTH EARTH/MOON
020259,000195: 37,2143           20743                           CADR     GOFLASH                               #  ALT = METERS B-29     BOTH EARTH/MOON
020260,000196: 37,2144           04103                           TC       GOTOPOOH                              #  TERM
020261,000197: 37,2145           04103                           TC       GOTOPOOH                              
020262,000198: 37,2146           06006                           TC       INTPRET                               #  V32E RECYCLE
020263,000199: 37,2147           43345                           DLOAD    DAD                                   
020264,000200: 37,2150           03540                                    P21TIME                               
020265,000201: 37,2151           36161                                    600SEC                                #  600 SECONDS OR 10 MIN
020266,000202: 37,2152           01251                           STORE    DSPTEM1                               
020267,000203: 37,2153           77634                           RTB                                            
020268,000204: 37,2154           76015                                    P21PROG1                              
020269,000205: 37,2155           52034        P21PRTM            RTB      GOTO                                  
020270,000206: 37,2156           51751                                    LOADTIME                              
020271,000207: 37,2157           76023                                    P21PROG2                              
020272,000208: 37,2160           00003 25140  600SEC             2DEC     60000      B-28                       #  10 MIN
020273,000209: 
020274,000210: 37,2162           00001        P21ONENN           OCT      00001                                 #  NEEDED TO DETERMINE VEHICLE
020275,000211: 37,2163           00000                           OCT      00000                                 #  TO BE INTEGRATED
020276,000212: 37,2164           01453        V06N43             VN       00643                                 
020277,000213: 37,2165     5027               V6N34              =        V06N34                                
020278,000214: 37,2165           00243 32703  K.01               2DEC     .01                                   
020279,000215: 
020280,000216: 30,2000                                           SETLOC   P29TAG1                               
020281,000217: 30,2000                                           BANK                                           
020282,000218: 
020283,000219: 30,2000                                           COUNT*   $$/P29                                
020284,000220: 30,2000  E7,1543                                  EBANK=   LONGFOR                               
020285,000221: 
020286,000222: 30,2000           06006        P29                TC       INTPRET                               #  TIME-TO-LONGITUDE PROGRAM
020287,000223: 30,2001           47014                           SET      RTB                                   #  SET=P29,CLEARED=P21--CHECKED IN P21
020288,000224: 30,2002           00076                                    P29FLAG                               #  FLAG ALSO MARKS FIRST PASS THRU P29
020289,000225: 30,2003           76000                                    PROG21                                #  GET BASE TIME + STATE VECTOR FROM P21
020290,000226: 30,2004           32152        LONGPASS           CAF      V06N43LP                              
020291,000227: 30,2005           05540                           TC       VNFLASHR                              #  ASTRONAUT LOADS DESIRED LONGITUDE
020292,000228: 30,2006           12012                           TCF      +4                                    
020293,000229: 30,2007           34773                           CAF      FIVE                                  #  BLANK R1,R3
020294,000230: 30,2010           05516                           TC       BLANKET                               
020295,000231: 30,2011           05205                           TC       ENDOFJOB                              
020296,000232: 30,2012           52751                           DXCH     LONG                                  
020297,000233: 30,2013           53544                           DXCH     LONGFOR                               #  STORE DESIRED LONGITUDE

Page 459

020299,000235: 30,2014           06006                           TC       INTPRET                               
020300,000236: 30,2015           65375        HOP29DSP           VLOAD    PDDL                                  #  STORE UNIT NORTH(IN PLANETARY COORDS )
020301,000237: 30,2016           15330                                    UNITZ                                 #       AND BASE TIME ON PUSHLIST FOR
020302,000238: 30,2017           03540                                    P29BASET                              #       RP-TO-R
020303,000239: 30,2020           03542                           STORE    PASSTIME                              #  INITIALIZE TIME OF CROSSING
020304,000240: 30,2021           43125                           PDDL     SET                                   
020305,000241: 30,2022           15336                                    ZEROVECS                              
020306,000242: 30,2023           00076                                    P29FLAG                               #  IN CASE OF RESTART OR REPEAT INTEGRATION
020307,000243: 30,2024           03546                           STORE    DELTLONG                              #  INITIALIZE LONGITUDE DIFFERENCE TO ZERO
020308,000244: 30,2025           43014                           CLEAR    BOFF                                  
020309,000245: 30,2026           01663                                    LUNAFLAG                              
020310,000246: 30,2027           04343                                    CMOONFLG                              
020311,000247: 30,2030           60034                                    +4                                    
020312,000248: 30,2031           71214                           SET      DLOAD                                 
020313,000249: 30,2032           01463                                    LUNAFLAG                              #  SET LUNAFLAG=CMOONFLG FOR LAT-LONG
020314,000250: 30,2033           20150                                    FMOON                                 #  MPAC NONZERO FOR MOON, ZERO FOR EARTH
020315,000251: 30,2034           77624                           CALL                                           #  GET UNIT PLANETARY NORTH IN BASE COORDS.
020316,000252: 30,2035           55345                                    RP-TO-R                               
020317,000253: 30,2036           41406                           PUSH     PUSH                                  #  PD=12D,MUSUBZ(UNIT PLANETARY NORTH)
020318,000254: 30,2037           53435                           VXV      UNIT                                  
020319,000255: 30,2040           03605                                    P29BASER                              
020320,000256: 30,2041           27552                           STOVL    MUSUBE                                #  PD=6D,MUSUBE=UNIT LOCAL EAST AT P29BASER
020321,000257: 30,2042           53435                           VXV      UNIT                                  
020322,000258: 30,2043           03552                                    MUSUBE                                
020323,000259: 30,2044           27560                           STOVL    MUSUBC                                #  UNIT EQUATORIAL CENTRAL-DIRECTED VECTOR
020324,000260: 30,2045           03605                                    P29BASER                              
020325,000261: 30,2046           53435                           VXV      UNIT                                  #  FORM MUSUBN(UNIT ORBITAL LOCAL NORTH)
020326,000262: 30,2047           03613                                    P29BASEV                              
020327,000263: 30,2050           41406                           PUSH     PUSH                                  #  PD=18D
020328,000264: 30,2051           53435                           VXV      UNIT                                  
020329,000265: 30,2052           03605                                    P29BASER                              
020330,000266: 30,2053           27566                           STOVL    MUSUBS                                #  PD=12D,MUSUBS=UNIT ORBITAL TANG. VEL.
020331,000267: 30,2054           63241                           DOT      PDVL                                  #  PD=8D,MUSUBZ AT 0D, EXCHANGE DOT-PRODUCT
020332,000268: 30,2055           00001                                    0D                                    #       WITH MUSUBN IN PUSHLIST
020333,000269: 30,2056           45565                           SIGN     STADR                                 #  PD=6D, PUT MUSUBN IN HEMI. OF MUSUBZ
020334,000270: 30,2057           50203                           STOVL    MUSUBN                                
020335,000271: 30,2060           03605                                    P29BASER                              
020336,000272: 30,2061           70414        HOPALONG           BOFF     VSR2                                  #  MUST BE B+29 FOR LAT-LONG
020337,000273: 30,2062           04343                                    CMOONFLG                              
020338,000274: 30,2063           60064                                    +1                                    
020339,000275: 30,2064           16152                           STODL    ALPHAV                                #  STORE FOR LAT-LONG
020340,000276: 30,2065           03542                                    PASSTIME                              
020341,000277: 30,2066           45014                           CLEAR    CALL                                  #  FIND LONGITUDE FOR PRESENT ITERATION OF
020342,000278: 30,2067           00662                                    ERADFLAG                              #       POSITION VECTOR
020343,000279: 30,2070           26453                                    LAT-LONG                              
020344,000280: 30,2071           45345                           DLOAD    DSU                                   #  COMPARE WITH DESIRED LONGITUDE
020345,000281: 30,2072           03544                                    LONGFOR                               
020346,000282: 30,2073           00751                                    LONG                                  
020347,000283: 30,2074           51406                           PUSH     ABS                                   #  PD=2D, SAVE DELTA
020348,000284: 30,2075           50025                           DSU      BMN                                   #  IF WITHIN EPSILONG, DISPLAY RESULTS

Page 460

020350,000286: 30,2076           20142                                    EPSILONG                              #  .01 DEGREES
020351,000287: 30,2077           60122                                    PASSOUT                               
020352,000288: 30,2100           77600                           BOV                                            #  CLEAR OVERFLOW INDICATOR
020353,000289: 30,2101           60102                                    +1                                    
020354,000290: 30,2102           40015                           DAD      BOV                                   #  CHECK WHETHER WITHIN EPSILON OF 360 DEG.
020355,000291: 30,2103           20144                                    TWICEEPS                              #  .02 DEGREES
020356,000292: 30,2104           60122                                    PASSOUT                               
020357,000293: 30,2105           71214                           BOFCLR   DLOAD                                 #  P29FLAG CLEARED FOR LATER PASSES
020358,000294: 30,2106           00256                                    P29FLAG                               #  PD=0D
020359,000295: 30,2107           40272                                    MODULO                                
020360,000296: 30,2110           43244                           BPL      DAD                                   #  MAKE DELTA>0
020361,000297: 30,2111           60113                                    +2                                    
020362,000298: 30,2112           15344                                    DPPOSMAX                              
020363,000299: 30,2113           45214                           BOFF     DSU                                   #  FOR EARTH,DELTA>0
020364,000300: 30,2114           04343                                    CMOONFLG                              #  FOR MOON, DELTA.0
020365,000301: 30,2115           40212                                    HOP1                                  
020366,000302: 30,2116           15344                                    DPPOSMAX                              
020367,000303: 30,2117           52125                           PDDL     GOTO                                  #  PD=2D
020368,000304: 30,2120           20150                                    FMOON                                 #  327.8/328.8, 8+1
020369,000305: 30,2121           40214                                    HOP2                                  
020370,000306: 20,2000                                           SETLOC   P29TAG2                               
020371,000307: 20,2000                                           BANK                                           
020372,000308: 
020373,000309: 20,2212                                           COUNT*   $$/P29                                
020374,000310: 20,2212           77725        HOP1               PDDL                                           #  PD=2D
020375,000311: 20,2213           20146                                    FEARTH                                #  16/15, B+1
020376,000312: 20,2214           03550        HOP2               STORE    FUDGE                                 
020377,000313: 20,2215           77745        DELTLOAD           DLOAD                                          #  PD=0D, LOAD DELTA
020378,000314: 20,2216           40005        THETCOMP           DMP      BOV                                   
020379,000315: 20,2217           03550                                    FUDGE                                 
020380,000316: 20,2220           40221                                    +1                                    #  CLEAR OVERFLOW INDICATOR
020381,000317: 20,2221           43352                           SL1      DAD                                   #  SHIFT TO GET B0, SINCE FUDGE IS B+1
020382,000318: 20,2222           03546                                    DELTLONG                              
020383,000319: 20,2223           40006                           PUSH     BOV                                   #  PD=2D, IF FUDGE FACTOR MAKES DELTLONG>
020384,000320: 20,2224           40303                                    ADDTEN                                #       360, MODIFY BASE TIME
020385,000321: 20,2225           03546                           STORE    DELTLONG                              #  CUMULATIVE EQUATORIAL DELTA
020386,000322: 20,2226           74346                           COS      VXSC                                  
020387,000323: 20,2227           03552                                    MUSUBE                                
020388,000324: 20,2230           73525                           PDDL     SIN                                   #  PD=6D
020389,000325: 20,2231           53361                           VXSC     VAD                                   #  PD=0D
020390,000326: 20,2232           03560                                    MUSUBC                                #  ROTATE MUSUBE THRU ANGLE DELTLONG
020391,000327: 20,2233           53435                           VXV      UNIT                                  #  FORM MUSUBD=ROTATED ORBITAL UNIT
020392,000328: 20,2234           03574                                    MUSUBN                                #       POSITION VECTOR, OUTWARD-DIRECTED
020393,000329: 20,2235           63206                           PUSH     PDVL                                  #  PD=12D
020394,000330: 20,2236           03605                                    P29BASER                              
020395,000331: 20,2237           50256                           UNIT     DOT                                   #  PD=6D, DOT PRODUCT IS B+2
020396,000332: 20,2240           63352                           SL1      PDVL                                  #  PD=2D, MAKE B+1 FOR ACOS, EXCHANGE
020397,000333: 20,2241           65241                           DOT      PDDL                                  #  PD=2D, EXCHANGE WITH PUSHLIST
020398,000334: 20,2242           03566                                    MUSUBS                                
020399,000335: 20,2243           75326                           ACOS     SIGN                                  #  PD=0D

Page 461

020401,000337: 20,2244           73406                           PUSH     SIN                                   #  PD=2D, FORM THETA=ORBITAL DELTA
020402,000338: 20,2245           16732                           STODL    SNTH                                  #  PD=0D
020403,000339: 20,2246           74146                           COS      AXC,1                                 
020404,000340: 20,2247           00002                                    2D                                    
020405,000341: 20,2250           26734                           STOVL    CSTH                                  #  STORE ANGLE DATA AND BASE STATE VECTOR
020406,000342: 20,2251           03605                                    P29BASER                              #       FOR TIME-THETA
020407,000343: 20,2252           26657                           STOVL    RVEC                                  
020408,000344: 20,2253           03613                                    P29BASEV                              
020409,000345: 20,2254           02746                           STORE    VVEC                                  
020410,000346: 20,2255           74014                           BOFF     AXC,1                                 #  SET X1=-2D FOR EARTH, -10D FOR MOON
020411,000347: 20,2256           04343                                    CMOONFLG                              
020412,000348: 20,2257           40261                                    +2                                    
020413,000349: 20,2260           00012                                    10D                                   
020414,000350: 20,2261           45014                           CLEAR    CALL                                  #  INTEGRATE BASE STATE VECTOR THRU THETA
020415,000351: 20,2262           03666                                    RVSW                                  
020416,000352: 20,2263           25002                                    TIMETHET                              
020417,000353: 20,2264           43345                           DLOAD    DAD                                   
020418,000354: 20,2265           00037                                    T                                     #  T=TIME TO TRAVERSE THETA
020419,000355: 20,2266           03540                                    P29BASET                              
020420,000356: 20,2267           27542                           STOVL    PASSTIME                              #  TIME OF LONGITUDE CROSSING
020421,000357: 20,2270           77650                           GOTO                                           #  UPDATED POSITION VECTOR LOADED FOR
020422,000358: 20,2271           60061                                    HOPALONG                              #       LAT-LONG
020423,000359: 20,2272           50025        MODULO             DSU      BMN                                   #  MPAC CONTAINS ABS(DELTA)+EPSILONG
020424,000360: 20,2273           15334                                    DPHALF                                #  IF THIS IS NEAR 360, MUST ADJUST DELTA
020425,000361: 20,2274           40215                                    DELTLOAD                              #       BY 360 TO GET ANGLE NEAR ZERO
020426,000362: 20,2275           77625                           DSU                                            #  TO ADJUST, SUBTRACT DPHALF (TWICE) AND
020427,000363: 20,2276           20142                                    EPSILONG                              #       EPSILONG TO GET NEGATIVE NUMBER,
020428,000364: 20,2277           75225                           DSU      SIGN                                  #       AND SIGN BY UNADJUSTED DIFFERENCE,
020429,000365: 20,2300           15334                                    DPHALF                                #       AT TOP OF PUSHLIST, PD=0D.
020430,000366: 20,2301           77650                           GOTO                                           
020431,000367: 20,2302           40216                                    THETCOMP                              
020432,000368: 20,2303           43345        ADDTEN             DLOAD    DAD                                   #  ADD 10 MINUTES TO BASE TIME
020433,000369: 20,2304           03540                                    P29BASET                              
020434,000370: 20,2305           36161                                    600SEC                                
020435,000371: 20,2306           52014                           SET      GOTO                                  #  SET FLAG TO SKIP DISPLAYS ON RETURN TO
020436,000372: 20,2307           02465                                    NEWTFLAG                              #        P29
020437,000373: 20,2310           76023                                    P21PROG2                              #  GO TO P21 FOR INTEGRATION
020438,000374: 30,2000                                           SETLOC   P29TAG1                               
020439,000375: 30,2000                                           BANK                                           
020440,000376: 
020441,000377: 30,2122                                           COUNT*   $$/P29                                
020442,000378: 30,2122           77776        PASSOUT            EXIT                                           
020443,000379: 30,2123           53542                           DXCH     PASSTIME                              
020444,000380: 30,2124           53251                           DXCH     DSPTEM1                               
020445,000381: 30,2125           32151                           CAF      V06N34LP                              
020446,000382: 30,2126           04636                           TC       BANKCALL                              
020447,000383: 30,2127           20743                           CADR     GOFLASH                               #  DISPLAY PASSTIME
020448,000384: 30,2130           04103                           TC       GOTOPOOH                              
020449,000385: 30,2131           02133                           TC       +2                                    
020450,000386: 30,2132           02004                           TC       LONGPASS                              #  RECYCLE TO LONGITUDE INPUT

Page 462

020452,000388: 30,2133           32152                           CAF      V06N43LP                              
020453,000389: 30,2134           04636                           TC       BANKCALL                              #  DISPLAY LAT,LONG,ALT AT DESIRED
020454,000390: 30,2135           20743                           CADR     GOFLASH                               #       LONGITUDE
020455,000391: 30,2136           04103                           TC       GOTOPOOH                              
020456,000392: 30,2137           04103                           TC       GOTOPOOH                              
020457,000393: 30,2140           02000                           TC       P29                                   #  RECYCLE TO START OF PROGRAM
020458,000394: 30,2141           00000 16441  EPSILONG           2DEC     .2777778                              #  .01 DEGREES
020459,000395: 30,2143           00000 35101  TWICEEPS           2DEC     .5555556                              #  .02 DEGREES
020460,000396: 30,2145           21042 04211  FEARTH             2DEC     1.06666667 B-01                       #  16/15
020461,000397: 30,2147           17747 02563  FMOON              2DEC     .996958637 B-01                       #  327.8/328.8
020462,000398: 30,2151           01442        V06N34LP           VN       0634                                  
020463,000399: 30,2152           01453        V06N43LP           VN       0643                                  

End of include-file GROUND_TRACKING_DETERMINATION_PROGRAM_-_P21.agc.  Parent file is MAIN.agc