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. 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.

020055,000002:                                                                                                  ## Copyright:   Public domain.
020056,000003:                                                                                                  ## Filename:    GROUND_TRACKING_DETERMINATION_PROGRAM.agc
020057,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
020058,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM) 
020059,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), we believe for 
020060,000007:                                                                                                  ##              Apollo 15-17.
020061,000008:                                                                                                  ## Assembler:   yaYUL
020062,000009:                                                                                                  ## Contact:     Sergio Navarro <sergionavarrog@gmail.com>
020063,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
020064,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
020065,000012:                                                                                                  ## Mod history: 2009-08-19 SN   Adapted from corresponding Comanche 055 file.
020066,000013:                                                                                                  ##              2009-09-03 JL   Fixed symbol names.
020067,000014:                                                                                                  ##              2009-09-04 JL   Fixed a bunch of typos.
020068,000015:                                                                                                  ##              2009-09-05 JL   Fixed typos.
020069,000016:                                                                                                  ##              2010-01-31 JL   Fixed build errors.
020070,000017:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
020071,000018: 

Page 455

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

Page 456

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

Page 457

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

Page 458

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

Page 459

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

Page 460

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

Page 461

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

Page 462

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

End of include-file GROUND_TRACKING_DETERMINATION_PROGRAM-P21.agc.  Parent file is MAIN.agc