Source Code

These source-code files were obtained by digitally photographing an Artemis 72 (Apollo 15-17 Command Module) program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Photography was by Ron Burkey, and transcription was performed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images may be available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971
Note that the date is the date of the printout, not the date of the program revision.

020153,000002:                                                                                                  ## Copyright:   Public domain.
020154,000003:                                                                                                  ## Filename:    GROUND_TRACKING_DETERMINATION_PROGRAM_-_P21.agc
020155,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
020156,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM) 
020157,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for 
020158,000007:                                                                                                  ##              Apollo 15-17.
020159,000008:                                                                                                  ## Assembler:   yaYUL
020160,000009:                                                                                                  ## Contact:     Sergio Navarro <sergionavarrog@gmail.com>
020161,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
020162,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
020163,000012:                                                                                                  ## Mod history: 2009-08-19 SN   Adapted from corresponding Comanche 055 file.
020164,000013:                                                                                                  ##              2009-09-03 JL   Fixed symbol names.
020165,000014:                                                                                                  ##              2009-09-04 JL   Fixed a bunch of typos.
020166,000015:                                                                                                  ##              2009-09-05 JL   Fixed typos.
020167,000016:                                                                                                  ##              2010-01-31 JL   Fixed build errors.
020168,000017:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
020169,000018:                                                                                                  ##              2017-02-05 RSB  Proofed comment text by diff'ing vs Comanche 55
020170,000019:                                                                                                  ##                              and fixed errors found.
020171,000020: 

Page 455

020173,000022:                                                                                                  #  GROUND TRACKING DETERMINATION PROGRAM P21
020174,000023: 
020175,000024:                                                                                                  #  PROGRAM DESCRIPTION
020176,000025:                                                                                                  #  MOD NO - 1
020177,000026:                                                                                                  #  MOD BY - N. M. NEVILLE
020178,000027: 
020179,000028:                                                                                                  #  FUNCTIONAL DECRIPTION-
020180,000029: 
020181,000030:                                                                                                  #        TO PROVIDE THE ASTRONAUT DETAILS OF THE LM OR CSM GROUND TRACK WITHOUT
020182,000031:                                                                                                  #        THE NEED FOR GROUND COMMUNICATION (REQUESTED BY DSKY).
020183,000032: 
020184,000033:                                                                                                  #  CALLING SEQUENCE -
020185,000034: 
020186,000035:                                                                                                  #        ASTRONAUT REQUEST THROUGH DSKY V37E21E
020187,000036: 
020188,000037:                                                                                                  #  SUBROUTINES CALLED-
020189,000038: 
020190,000039:                                                                                                  #        GOPERF4
020191,000040:                                                                                                  #        GOFLASH
020192,000041:                                                                                                  #        THISPREC
020193,000042:                                                                                                  #        OTHPREC
020194,000043:                                                                                                  #        LAT-LONG
020195,000044: 
020196,000045:                                                                                                  #  NORMAL EXIT MODES-
020197,000046: 
020198,000047:                                                                                                  #        ASTRONAUT REQUEST TROUGH DSKY TO TERMINATE PROGRAM V34E
020199,000048: 
020200,000049:                                                                                                  #  ALARM OR ABORT EXIT MODES-
020201,000050:                                                                                                  #  
020202,000051:                                                                                                  #        NONE
020203,000052: 
020204,000053:                                                                                                  #  OUTPUT -
020205,000054: 
020206,000055:                                                                                                  #        OCTAL DISPLAY OF OPTION CODE AND VEHICLE WHOSE GROUND TRACK IS TO BE
020207,000056:                                                                                                  #        COMPUTED
020208,000057:                                                                                                  #                OPTION CODE     00002
020209,000058:                                                                                                  #                THIS            00001
020210,000059:                                                                                                  #                OTHER           00002
020211,000060:                                                                                                  #        DECIMAL DISPLAY OF TIME TO BE INTEGRATED TO HOURS , MINUTES , SECONDS
020212,000061:                                                                                                  #        DECIMAL DISPLAY OF LAT,LONG,ALT
020213,000062: 
020214,000063:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
020215,000064: 
020216,000065:                                                                                                  #        AX0      2DEC   4.652459653 E-5   RADIANS       %68-69 CONSTANTS"
020217,000066: 
020218,000067:                                                                                                  #        -AY0     2DEC   2.147535898 E-5   RADIANS
020219,000068: 
020220,000069:                                                                                                  #        AZ0      2DEC   .7753206164       REVOLUTIONS
020221,000070: 
020222,000071:                                                                                                  #        FOR LUNAR ORBITS 504LM VECTOR IS NEEDED
020223,000072: 
020224,000073:                                                                                                  #        504LM    2DEC   -2.700340600 E-5  RADIANS
020225,000074: 
020226,000075:                                                                                                  #        504LM _2 2DEC   -7.514128400 E-4  RADIANS
020227,000076: 
020228,000077:                                                                                                  #        504LM _4 2DEC   _2.553198641 E-4  RADIANS
020229,000078: 
020230,000079:                                                                                                  #        NONE
020231,000080: 
020232,000081:                                                                                                  #  DEBRIS
020233,000082: 

Page 456

020235,000084:                                                                                                  #        CENTRALS - A,Q,L
020236,000085:                                                                                                  #        OTHER - THOSE USED BY THE ABOVE LISTED SUBROUTINES
020237,000086:                                                                                                  #        SEE LEMPREC,LAT-LONG
020238,000087: 
020239,000088: 43,3166  30,2000                                  SBANK=   LOWSUPER                              #  FOR LOW 2CADR'S.
020240,000089: 
020241,000090: 37,2000                                           SETLOC   P20S                                  
020242,000091: 37,2000                                           BANK                                           
020243,000092: 
020244,000093: 37,2000  E7,1537                                  EBANK=   P21TIME                               
020245,000094: 37,2000                                           COUNT*   $$/P21                                
020246,000095: 37,2000           34770        PROG21             CAF      ONE                                   
020247,000096: 37,2001           54776                           TS       OPTION2                               #  ASSUMED VEHICLE IS LM, R2 = 00001
020248,000097: 37,2002           05547                           TC       UPFLAG                                
020249,000098: 37,2003           00031                           ADRES    TRACKFLG                              
020250,000099: 
020251,000100: 37,2004           34767                           CAF      BIT2                                  #   OPTION 2
020252,000101: 37,2005           04636                           TC       BANKCALL                              
020253,000102: 37,2006           21074                           CADR     GOPERF4                               
020254,000103: 37,2007           04103                           TC       GOTOPOOH                              #  TERMINATE
020255,000104: 37,2010           02012                           TC       +2                                    #  PROCEED VALUE OF ASSUMED VEHICLE OK
020256,000105: 37,2011           02004                           TC       -5                                    #  R2 LOADED THROUGH DSKY
020257,000106: 37,2012           34772                           CAF      ZERO                                  #  ZERO DSPTEM
020258,000107: 37,2013           55250                           TS       DSPTEM1                               
020259,000108: 37,2014           55251                           TS       DSPTEM1    +1                         
020260,000109: 37,2015           35027        P21PROG1           CAF      V6N34                                 #  LOAD DESIRED TIME OF LAT-LONG.
020261,000110: 37,2016           05535                           TC       VNFLASH                               
020262,000111: 37,2017           06006                           TC       INTPRET                               
020263,000112: 37,2020           53145                           DLOAD    BZE                                   
020264,000113: 37,2021           01251                                    DSPTEM1                               
020265,000114: 37,2022           76155                                    P21PRTM                               #  SET TO INTEG TO PRES TIME
020266,000115: 37,2023           34041        P21PROG2           STCALL   TDEC1                                 #  INTEG TO TIME SPECIFIED IN TDEC
020267,000116: 37,2024           27516                                    INTSTALL                              
020268,000117: 37,2025           43014                           BON      SET                                   
020269,000118: 37,2026           01303                                    P21FLAG                               
020270,000119: 37,2027           76045                                    P21CONT                               #  ON...RECYCLE USING BASE VECTOR
020271,000120: 37,2030           01474                                    VINTFLAG                              #  OFF..1ST PASS CALC BASE VECTOR
020272,000121: 37,2031           70535                           SLOAD    SR1                                   
020273,000122: 37,2032           00777                                    OPTION2                               
020274,000123: 37,2033           43030                           BHIZ     CLEAR                                 
020275,000124: 37,2034           76036                                    +2                                    #  ZERO..THIS VEHICLE (CM)
020276,000125: 37,2035           01674                                    VINTFLAG                              #  ONE...OTHER VEHICLE(LM)
020277,000126: 37,2036           43014                           CLEAR    CLEAR                                 
020278,000127: 37,2037           01676                                    DIM0FLAG                              
020279,000128: 37,2040           01673                                    INTYPFLG                              #  PRECISION
020280,000129: 37,2041           77624                           CALL                                           
020281,000130: 37,2042           27236                                    INTEGRV                               #  CALCULATE
020282,000131: 37,2043           77650                           GOTO                                           #  .AND
020283,000132: 37,2044           76066                                    P21VSAVE                              #  ..SAVE BASE VECTOR
020284,000133: 37,2045           77775        P21CONT            VLOAD                                          #  RECYCLE..INTEG FROM BASE VECTOR                       

Page 457

020286,000135: 37,2046           03605                                    P21BASER                              
020287,000136: 37,2047           25535                           STOVL    RCV                                   #  ..POS
020288,000137: 37,2050           03613                                    P21BASEV                              
020289,000138: 37,2051           15543                           STODL    VCV                                   #  ..VEL
020290,000139: 37,2052           03540                                    P21TIME                               
020291,000140: 37,2053           01517                           STORE    TET                                   #  ..TIME
020292,000141: 37,2054           43014                           CLEAR    CLEAR                                 
020293,000142: 37,2055           01676                                    DIM0FLAG                              
020294,000143: 37,2056           00263                                    MOONFLAG                              
020295,000144: 37,2057           53135                           SLOAD    BZE                                   
020296,000145: 37,2060           03604                                    P21ORIG                               
020297,000146: 37,2061           76064                                    +3                                    #  ZERO = EARTH
020298,000147: 37,2062           77614                           SET                                            #  ...2 = MOON
020299,000148: 37,2063           00063                                    MOONFLAG                              
020300,000149: 37,2064           77624                           CALL                                           
020301,000150: 37,2065           27211                                    INTEGRVS                              
020302,000151: 37,2066           77745        P21VSAVE           DLOAD                                          #  SAVE CURRENT BASE VECTOR
020303,000152: 37,2067           00015                                    TAT                                   
020304,000153: 37,2070           27540                           STOVL    P21TIME                               #  ..TIME
020305,000154: 37,2071           00017                                    RATT1                                 
020306,000155: 37,2072           27605                           STOVL    P21BASER                              #  ..POS B-29 OR B-27
020307,000156: 37,2073           00025                                    VATT1                                 
020308,000157: 37,2074           03613                           STORE    P21BASEV                              #  ..VEL B-7  OR B-5
020309,000158: 37,2075           77614                           BONCLR                                         #  WITH ADJUSTED P29 BASE TIME, SKIP
020310,000159: 37,2076           02605                                    NEWTFLAG                              #       P29 DISPLAYS
020311,000160: 37,2077           60015                                    HOP29DSP                              
020312,000161: 37,2100           47014                           BOFF     RTB                                   #  RETURN TO P29 IF P29FLAG IS SET
020313,000162: 37,2101           00356                                    P29FLAG                               
020314,000163: 37,2102           76104                                    +2                                    
020315,000164: 37,2103           60004                                    LONGPASS                              
020316,000165: 37,2104           53646                           ABVAL    SL*                                   
020317,000166: 37,2105           57576                                    0,2                                   
020318,000167: 37,2106           27623                           STOVL    P21VEL                                #  /VEL/ FOR N73 DSP
020319,000168: 37,2107           00001                                    RATT                                  
020320,000169: 37,2110           50256                           UNIT     DOT                                   
020321,000170: 37,2111           00007                                    VATT                                  #  U(R).(V)
020322,000171: 37,2112           67471                           DDV      ASIN                                  #  U(R).U(V)
020323,000172: 37,2113           03623                                    P21VEL                                
020324,000173: 37,2114           03625                           STORE    P21GAM                                #  SIN-1 U(R).U(V), -90 TO +90
020325,000174: 37,2115           43134                           SXA,2    SET                                   
020326,000175: 37,2116           03603                                    P21ORIG                               #  0 = EARTH  2 = MOON
020327,000176: 37,2117           01063                                    P21FLAG                               
020328,000177: 37,2120           67214        P21DSP             CLEAR    SLOAD                                 #  GENERATE DISPLAY DATA
020329,000178: 37,2121           01663                                    LUNAFLAG                              
020330,000179: 37,2122           00050                                    X2                                    
020331,000180: 37,2123           43054                           BZE      SET                                   
020332,000181: 37,2124           76126                                    +2                                    #  0 = EARTH
020333,000182: 37,2125           01463                                    LUNAFLAG                              
020334,000183: 37,2126           77775                           VLOAD                                          
020335,000184: 37,2127           00001                                    RATT                                  

Page 458

020337,000186: 37,2130           16152                           STODL    ALPHAV                                
020338,000187: 37,2131           00015                                    TAT                                   
020339,000188: 37,2132           45014                           CLEAR    CALL                                  
020340,000189: 37,2133           00662                                    ERADFLAG                              
020341,000190: 37,2134           26453                                    LAT-LONG                              
020342,000191: 37,2135           77605                           DMP                                            #  MPAC = ALT, METERS B-29
020343,000192: 37,2136           36166                                    K.01                                  
020344,000193: 37,2137           03621                           STORE    P21ALT                                #  ALT/100 FOR N73 DSP
020345,000194: 37,2140           77776                           EXIT                                           
020346,000195: 37,2141           32164                           CAF      V06N43                                #  DISPLAY LAT,LONG,ALT
020347,000196: 37,2142           04636                           TC       BANKCALL                              #  LAT,LONG = REVS B0    BOTH EARTH/MOON
020348,000197: 37,2143           20743                           CADR     GOFLASH                               #  ALT = METERS B-29     BOTH EARTH/MOON
020349,000198: 37,2144           04103                           TC       GOTOPOOH                              #  TERM
020350,000199: 37,2145           04103                           TC       GOTOPOOH                              
020351,000200: 37,2146           06006                           TC       INTPRET                               #  V32E RECYCLE
020352,000201: 37,2147           43345                           DLOAD    DAD                                   
020353,000202: 37,2150           03540                                    P21TIME                               
020354,000203: 37,2151           36161                                    600SEC                                #  600 SECONDS OR 10 MIN
020355,000204: 37,2152           01251                           STORE    DSPTEM1                               
020356,000205: 37,2153           77634                           RTB                                            
020357,000206: 37,2154           76015                                    P21PROG1                              
020358,000207: 37,2155           52034        P21PRTM            RTB      GOTO                                  
020359,000208: 37,2156           51751                                    LOADTIME                              
020360,000209: 37,2157           76023                                    P21PROG2                              
020361,000210: 37,2160           00003 25140  600SEC             2DEC     60000      B-28                       #  10 MIN
020362,000211: 
020363,000212: 37,2162           00001        P21ONENN           OCT      00001                                 #  NEEDED TO DETERMINE VEHICLE
020364,000213: 37,2163           00000                           OCT      00000                                 #  TO BE INTEGRATED
020365,000214: 37,2164           01453        V06N43             VN       00643                                 
020366,000215: 37,2165     5027               V6N34              =        V06N34                                
020367,000216: 37,2165           00243 32703  K.01               2DEC     .01                                   
020368,000217: 
020369,000218: 30,2000                                           SETLOC   P29TAG1                               
020370,000219: 30,2000                                           BANK                                           
020371,000220: 
020372,000221: 30,2000                                           COUNT*   $$/P29                                
020373,000222: 30,2000  E7,1543                                  EBANK=   LONGFOR                               
020374,000223: 
020375,000224: 30,2000           06006        P29                TC       INTPRET                               #  TIME-TO-LONGITUDE PROGRAM
020376,000225: 30,2001           47014                           SET      RTB                                   #  SET=P29,CLEARED=P21--CHECKED IN P21
020377,000226: 30,2002           00076                                    P29FLAG                               #  FLAG ALSO MARKS FIRST PASS THRU P29
020378,000227: 30,2003           76000                                    PROG21                                #  GET BASE TIME + STATE VECTOR FROM P21
020379,000228: 30,2004           32152        LONGPASS           CAF      V06N43LP                              
020380,000229: 30,2005           05540                           TC       VNFLASHR                              #  ASTRONAUT LOADS DESIRED LONGITUDE
020381,000230: 30,2006           12012                           TCF      +4                                    
020382,000231: 30,2007           34773                           CAF      FIVE                                  #  BLANK R1,R3
020383,000232: 30,2010           05516                           TC       BLANKET                               
020384,000233: 30,2011           05205                           TC       ENDOFJOB                              
020385,000234: 30,2012           52751                           DXCH     LONG                                  
020386,000235: 30,2013           53544                           DXCH     LONGFOR                               #  STORE DESIRED LONGITUDE

Page 459

020388,000237: 30,2014           06006                           TC       INTPRET                               
020389,000238: 30,2015           65375        HOP29DSP           VLOAD    PDDL                                  #  STORE UNIT NORTH(IN PLANETARY COORDS )
020390,000239: 30,2016           15330                                    UNITZ                                 #       AND BASE TIME ON PUSHLIST FOR
020391,000240: 30,2017           03540                                    P29BASET                              #       RP-TO-R
020392,000241: 30,2020           03542                           STORE    PASSTIME                              #  INITIALIZE TIME OF CROSSING
020393,000242: 30,2021           43125                           PDDL     SET                                   
020394,000243: 30,2022           15336                                    ZEROVECS                              
020395,000244: 30,2023           00076                                    P29FLAG                               #  IN CASE OF RESTART OR REPEAT INTEGRATION
020396,000245: 30,2024           03546                           STORE    DELTLONG                              #  INITIALIZE LONGITUDE DIFFERENCE TO ZERO
020397,000246: 30,2025           43014                           CLEAR    BOFF                                  
020398,000247: 30,2026           01663                                    LUNAFLAG                              
020399,000248: 30,2027           04343                                    CMOONFLG                              
020400,000249: 30,2030           60034                                    +4                                    
020401,000250: 30,2031           71214                           SET      DLOAD                                 
020402,000251: 30,2032           01463                                    LUNAFLAG                              #  SET LUNAFLAG=CMOONFLG FOR LAT-LONG
020403,000252: 30,2033           20150                                    FMOON                                 #  MPAC NONZERO FOR MOON, ZERO FOR EARTH
020404,000253: 30,2034           77624                           CALL                                           #  GET UNIT PLANETARY NORTH IN BASE COORDS.
020405,000254: 30,2035           55345                                    RP-TO-R                               
020406,000255: 30,2036           41406                           PUSH     PUSH                                  #  PD=12D,MUSUBZ(UNIT PLANETARY NORTH)
020407,000256: 30,2037           53435                           VXV      UNIT                                  
020408,000257: 30,2040           03605                                    P29BASER                              
020409,000258: 30,2041           27552                           STOVL    MUSUBE                                #  PD=6D,MUSUBE=UNIT LOCAL EAST AT P29BASER
020410,000259: 30,2042           53435                           VXV      UNIT                                  
020411,000260: 30,2043           03552                                    MUSUBE                                
020412,000261: 30,2044           27560                           STOVL    MUSUBC                                #  UNIT EQUATORIAL CENTRAL-DIRECTED VECTOR
020413,000262: 30,2045           03605                                    P29BASER                              
020414,000263: 30,2046           53435                           VXV      UNIT                                  #  FORM MUSUBN(UNIT ORBITAL LOCAL NORTH)
020415,000264: 30,2047           03613                                    P29BASEV                              
020416,000265: 30,2050           41406                           PUSH     PUSH                                  #  PD=18D
020417,000266: 30,2051           53435                           VXV      UNIT                                  
020418,000267: 30,2052           03605                                    P29BASER                              
020419,000268: 30,2053           27566                           STOVL    MUSUBS                                #  PD=12D,MUSUBS=UNIT ORBITAL TANG. VEL.
020420,000269: 30,2054           63241                           DOT      PDVL                                  #  PD=8D,MUSUBZ AT 0D, EXCHANGE DOT-PRODUCT
020421,000270: 30,2055           00001                                    0D                                    #       WITH MUSUBN IN PUSHLIST
020422,000271: 30,2056           45565                           SIGN     STADR                                 #  PD=6D, PUT MUSUBN IN HEMI. OF MUSUBZ
020423,000272: 30,2057           50203                           STOVL    MUSUBN                                
020424,000273: 30,2060           03605                                    P29BASER                              
020425,000274: 30,2061           70414        HOPALONG           BOFF     VSR2                                  #  MUST BE B+29 FOR LAT-LONG
020426,000275: 30,2062           04343                                    CMOONFLG                              
020427,000276: 30,2063           60064                                    +1                                    
020428,000277: 30,2064           16152                           STODL    ALPHAV                                #  STORE FOR LAT-LONG
020429,000278: 30,2065           03542                                    PASSTIME                              
020430,000279: 30,2066           45014                           CLEAR    CALL                                  #  FIND LONGITUDE FOR PRESENT ITERATION OF
020431,000280: 30,2067           00662                                    ERADFLAG                              #       POSITION VECTOR
020432,000281: 30,2070           26453                                    LAT-LONG                              
020433,000282: 30,2071           45345                           DLOAD    DSU                                   #  COMPARE WITH DESIRED LONGITUDE
020434,000283: 30,2072           03544                                    LONGFOR                               
020435,000284: 30,2073           00751                                    LONG                                  
020436,000285: 30,2074           51406                           PUSH     ABS                                   #  PD=2D, SAVE DELTA
020437,000286: 30,2075           50025                           DSU      BMN                                   #  IF WITHIN EPSILONG, DISPLAY RESULTS

Page 460

020439,000288: 30,2076           20142                                    EPSILONG                              #  .01 DEGREES
020440,000289: 30,2077           60122                                    PASSOUT                               
020441,000290: 30,2100           77600                           BOV                                            #  CLEAR OVERFLOW INDICATOR
020442,000291: 30,2101           60102                                    +1                                    
020443,000292: 30,2102           40015                           DAD      BOV                                   #  CHECK WHETHER WITHIN EPSILON OF 360 DEG.
020444,000293: 30,2103           20144                                    TWICEEPS                              #  .02 DEGREES
020445,000294: 30,2104           60122                                    PASSOUT                               
020446,000295: 30,2105           71214                           BOFCLR   DLOAD                                 #  P29FLAG CLEARED FOR LATER PASSES
020447,000296: 30,2106           00256                                    P29FLAG                               #  PD=0D
020448,000297: 30,2107           40272                                    MODULO                                
020449,000298: 30,2110           43244                           BPL      DAD                                   #  MAKE DELTA>0
020450,000299: 30,2111           60113                                    +2                                    
020451,000300: 30,2112           15344                                    DPPOSMAX                              
020452,000301: 30,2113           45214                           BOFF     DSU                                   #  FOR EARTH,DELTA>0
020453,000302: 30,2114           04343                                    CMOONFLG                              #  FOR MOON, DELTA.0
020454,000303: 30,2115           40212                                    HOP1                                  
020455,000304: 30,2116           15344                                    DPPOSMAX                              
020456,000305: 30,2117           52125                           PDDL     GOTO                                  #  PD=2D
020457,000306: 30,2120           20150                                    FMOON                                 #  327.8/328.8, 8+1
020458,000307: 30,2121           40214                                    HOP2                                  
020459,000308: 20,2000                                           SETLOC   P29TAG2                               
020460,000309: 20,2000                                           BANK                                           
020461,000310: 
020462,000311: 20,2212                                           COUNT*   $$/P29                                
020463,000312: 20,2212           77725        HOP1               PDDL                                           #  PD=2D
020464,000313: 20,2213           20146                                    FEARTH                                #  16/15, B+1
020465,000314: 20,2214           03550        HOP2               STORE    FUDGE                                 
020466,000315: 20,2215           77745        DELTLOAD           DLOAD                                          #  PD=0D, LOAD DELTA
020467,000316: 20,2216           40005        THETCOMP           DMP      BOV                                   
020468,000317: 20,2217           03550                                    FUDGE                                 
020469,000318: 20,2220           40221                                    +1                                    #  CLEAR OVERFLOW INDICATOR
020470,000319: 20,2221           43352                           SL1      DAD                                   #  SHIFT TO GET B0, SINCE FUDGE IS B+1
020471,000320: 20,2222           03546                                    DELTLONG                              
020472,000321: 20,2223           40006                           PUSH     BOV                                   #  PD=2D, IF FUDGE FACTOR MAKES DELTLONG>
020473,000322: 20,2224           40303                                    ADDTEN                                #       360, MODIFY BASE TIME
020474,000323: 20,2225           03546                           STORE    DELTLONG                              #  CUMULATIVE EQUATORIAL DELTA
020475,000324: 20,2226           74346                           COS      VXSC                                  
020476,000325: 20,2227           03552                                    MUSUBE                                
020477,000326: 20,2230           73525                           PDDL     SIN                                   #  PD=6D
020478,000327: 20,2231           53361                           VXSC     VAD                                   #  PD=0D
020479,000328: 20,2232           03560                                    MUSUBC                                #  ROTATE MUSUBE THRU ANGLE DELTLONG
020480,000329: 20,2233           53435                           VXV      UNIT                                  #  FORM MUSUBD=ROTATED ORBITAL UNIT
020481,000330: 20,2234           03574                                    MUSUBN                                #       POSITION VECTOR, OUTWARD-DIRECTED
020482,000331: 20,2235           63206                           PUSH     PDVL                                  #  PD=12D
020483,000332: 20,2236           03605                                    P29BASER                              
020484,000333: 20,2237           50256                           UNIT     DOT                                   #  PD=6D, DOT PRODUCT IS B+2
020485,000334: 20,2240           63352                           SL1      PDVL                                  #  PD=2D, MAKE B+1 FOR ACOS, EXCHANGE
020486,000335: 20,2241           65241                           DOT      PDDL                                  #  PD=2D, EXCHANGE WITH PUSHLIST
020487,000336: 20,2242           03566                                    MUSUBS                                
020488,000337: 20,2243           75326                           ACOS     SIGN                                  #  PD=0D

Page 461

020490,000339: 20,2244           73406                           PUSH     SIN                                   #  PD=2D, FORM THETA=ORBITAL DELTA
020491,000340: 20,2245           16732                           STODL    SNTH                                  #  PD=0D
020492,000341: 20,2246           74146                           COS      AXC,1                                 
020493,000342: 20,2247           00002                                    2D                                    
020494,000343: 20,2250           26734                           STOVL    CSTH                                  #  STORE ANGLE DATA AND BASE STATE VECTOR
020495,000344: 20,2251           03605                                    P29BASER                              #       FOR TIME-THETA
020496,000345: 20,2252           26657                           STOVL    RVEC                                  
020497,000346: 20,2253           03613                                    P29BASEV                              
020498,000347: 20,2254           02746                           STORE    VVEC                                  
020499,000348: 20,2255           74014                           BOFF     AXC,1                                 #  SET X1=-2D FOR EARTH, -10D FOR MOON
020500,000349: 20,2256           04343                                    CMOONFLG                              
020501,000350: 20,2257           40261                                    +2                                    
020502,000351: 20,2260           00012                                    10D                                   
020503,000352: 20,2261           45014                           CLEAR    CALL                                  #  INTEGRATE BASE STATE VECTOR THRU THETA
020504,000353: 20,2262           03666                                    RVSW                                  
020505,000354: 20,2263           25002                                    TIMETHET                              
020506,000355: 20,2264           43345                           DLOAD    DAD                                   
020507,000356: 20,2265           00037                                    T                                     #  T=TIME TO TRAVERSE THETA
020508,000357: 20,2266           03540                                    P29BASET                              
020509,000358: 20,2267           27542                           STOVL    PASSTIME                              #  TIME OF LONGITUDE CROSSING
020510,000359: 20,2270           77650                           GOTO                                           #  UPDATED POSITION VECTOR LOADED FOR
020511,000360: 20,2271           60061                                    HOPALONG                              #       LAT-LONG
020512,000361: 20,2272           50025        MODULO             DSU      BMN                                   #  MPAC CONTAINS ABS(DELTA)+EPSILONG
020513,000362: 20,2273           15334                                    DPHALF                                #  IF THIS IS NEAR 360, MUST ADJUST DELTA
020514,000363: 20,2274           40215                                    DELTLOAD                              #       BY 360 TO GET ANGLE NEAR ZERO
020515,000364: 20,2275           77625                           DSU                                            #  TO ADJUST, SUBTRACT DPHALF (TWICE) AND
020516,000365: 20,2276           20142                                    EPSILONG                              #       EPSILONG TO GET NEGATIVE NUMBER,
020517,000366: 20,2277           75225                           DSU      SIGN                                  #       AND SIGN BY UNADJUSTED DIFFERENCE,
020518,000367: 20,2300           15334                                    DPHALF                                #       AT TOP OF PUSHLIST, PD=0D.
020519,000368: 20,2301           77650                           GOTO                                           
020520,000369: 20,2302           40216                                    THETCOMP                              
020521,000370: 20,2303           43345        ADDTEN             DLOAD    DAD                                   #  ADD 10 MINUTES TO BASE TIME
020522,000371: 20,2304           03540                                    P29BASET                              
020523,000372: 20,2305           36161                                    600SEC                                
020524,000373: 20,2306           52014                           SET      GOTO                                  #  SET FLAG TO SKIP DISPLAYS ON RETURN TO
020525,000374: 20,2307           02465                                    NEWTFLAG                              #        P29
020526,000375: 20,2310           76023                                    P21PROG2                              #  GO TO P21 FOR INTEGRATION
020527,000376: 30,2000                                           SETLOC   P29TAG1                               
020528,000377: 30,2000                                           BANK                                           
020529,000378: 
020530,000379: 30,2122                                           COUNT*   $$/P29                                
020531,000380: 30,2122           77776        PASSOUT            EXIT                                           
020532,000381: 30,2123           53542                           DXCH     PASSTIME                              
020533,000382: 30,2124           53251                           DXCH     DSPTEM1                               
020534,000383: 30,2125           32151                           CAF      V06N34LP                              
020535,000384: 30,2126           04636                           TC       BANKCALL                              
020536,000385: 30,2127           20743                           CADR     GOFLASH                               #  DISPLAY PASSTIME
020537,000386: 30,2130           04103                           TC       GOTOPOOH                              
020538,000387: 30,2131           02133                           TC       +2                                    
020539,000388: 30,2132           02004                           TC       LONGPASS                              #  RECYCLE TO LONGITUDE INPUT

Page 462

020541,000390: 30,2133           32152                           CAF      V06N43LP                              
020542,000391: 30,2134           04636                           TC       BANKCALL                              #  DISPLAY LAT,LONG,ALT AT DESIRED
020543,000392: 30,2135           20743                           CADR     GOFLASH                               #       LONGITUDE
020544,000393: 30,2136           04103                           TC       GOTOPOOH                              
020545,000394: 30,2137           04103                           TC       GOTOPOOH                              
020546,000395: 30,2140           02000                           TC       P29                                   #  RECYCLE TO START OF PROGRAM
020547,000396: 30,2141           00000 16441  EPSILONG           2DEC     .2777778                              #  .01 DEGREES
020548,000397: 30,2143           00000 35101  TWICEEPS           2DEC     .5555556                              #  .02 DEGREES
020549,000398: 30,2145           21042 04211  FEARTH             2DEC     1.06666667 B-01                       #  16/15
020550,000399: 30,2147           17747 02563  FMOON              2DEC     .996958637 B-01                       #  327.8/328.8
020551,000400: 30,2151           01442        V06N34LP           VN       0634                                  
020552,000401: 30,2152           01453        V06N43LP           VN       0643                                  

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