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

	THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS
				COLOSSUS 3
	THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED
	IN REPORT R-577.  THIS PROGRAM WAS PREPARED UNDER OSR
	PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT
	CENTER OF THE NATIONAL AERONAUTICS AND SPACE
	ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE
	CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF
	TECHNOLOGY, CAMBRIDGE, MASS.

020054,000002:                                                                                                 #  Copyright:     Public domain.
020055,000003:                                                                                                 #  Filename:      GROUND_TRACKING_DETERMINATION_PROGRAM.agc
020056,000004:                                                                                                 #  Purpose:       Part of the source code for Artemis (i.e., Colossus 3),
020057,000005:                                                                                                 #                 build 072.  This is for the Command Module's (CM) 
020058,000006:                                                                                                 #                 Apollo Guidance Computer (AGC), we believe for 
020059,000007:                                                                                                 #                 Apollo 15-17.
020060,000008:                                                                                                 #  Assembler:     yaYUL
020061,000009:                                                                                                 #  Contact:       Sergio Navarro <sergionavarrog@gmail.com>
020062,000010:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
020063,000011:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Artemis072/
020064,000012:                                                                                                 #  Mod history:   2009-08-19 SN   Adapted from corresponding Comanche 055 file.
020065,000013:                                                                                                 #                 2009-09-03 JL   Fixed symbol names.
020066,000014:                                                                                                 #                 2009-09-04 JL   Fixed a bunch of typos.
020067,000015:                                                                                                 #                 2009-09-05 JL   Fixed typos.
020068,000016:                                                                                                 #                 2010-01-31 JL   Fixed build errors.
020069,000017:                                                                                                 #                 2010-02-20 RSB  Un-##'d this header.
020070,000018: 
020071,000019:                                                                                                 # # Page 455
020072,000020:                                                                                                 #  GROUND TRACKING DETERMINATION PROGRAM P21
020073,000021: 
020074,000022:                                                                                                 #  PROGRAM DESCRIPTION
020075,000023:                                                                                                 #  MOD NO - 1
020076,000024:                                                                                                 #  MOD BY - N. M. NEVILLE
020077,000025: 
020078,000026:                                                                                                 #  FUNCTIONAL DESCRIPTION-
020079,000027: 
020080,000028:                                                                                                 #         TO PROVIDE THE ASTRONAUT DETAILS OF THE LM OR CSM GROUND TRACK WITHOUT
020081,000029:                                                                                                 #         THE NEED FOR GROUND COMMUNICATION (REQUESTED BY DSKY).
020082,000030: 
020083,000031:                                                                                                 #  CALLING SEQUENCE -
020084,000032: 
020085,000033:                                                                                                 #         ASTRONAUT REQUEST THROUGH DSKY V37E21E
020086,000034: 
020087,000035:                                                                                                 #  SUBROUTINES CALLED-
020088,000036: 
020089,000037:                                                                                                 #         GOPERF4
020090,000038:                                                                                                 #         GOFLASH
020091,000039:                                                                                                 #         THISPREC
020092,000040:                                                                                                 #         OTHPREC
020093,000041:                                                                                                 #         LAT-LONG
020094,000042: 
020095,000043:                                                                                                 #  NORMAL EXIT MODES-
020096,000044: 
020097,000045:                                                                                                 #         ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V34E
020098,000046: 
020099,000047:                                                                                                 #  ALARM OR ABORT EXIT MODES-
020100,000048:                                                                                                 #  
020101,000049:                                                                                                 #         NONE
020102,000050: 
020103,000051:                                                                                                 #  OUTPUT -
020104,000052: 
020105,000053:                                                                                                 #         OCTAL DISPLAY OF OPTION CODE AND VEHICLE WHOSE GROUND TRACK IS TO BE
020106,000054:                                                                                                 #         COMPUTED
020107,000055:                                                                                                 #                 OPTION CODE     00002
020108,000056:                                                                                                 #                 THIS            00001
020109,000057:                                                                                                 #                 OTHER           00002
020110,000058:                                                                                                 #         DECIMAL DISPLAY OF TIME TO BE INTEGRATED TO HOURS , MINUTES , SECONDS
020111,000059:                                                                                                 #         DECIMAL DISPLAY OF LAT,LONG,ALT
020112,000060: 
020113,000061:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED
020114,000062: 
020115,000063:                                                                                                 #         AX0      2DEC   4.652459653 E-5   RADIANS       $68-69 CONSTANTS"
020116,000064: 
020117,000065:                                                                                                 #         -AY0     2DEC   2.147535898 E-5   RADIANS
020118,000066: 
020119,000067:                                                                                                 #         AZ0      2DEC   .7753206164       REVOLUTIONS
020120,000068: 
020121,000069:                                                                                                 #         FOR LUNAR ORBITS 504LM VECTOR IS NEEDED
020122,000070: 
020123,000071:                                                                                                 #         504LM    2DEC   -2.700340600 E-5  RADIANS
020124,000072: 
020125,000073:                                                                                                 #         504LM _2 2DEC   -7.514128400 E-4  RADIANS
020126,000074: 
020127,000075:                                                                                                 #         504LM _4 2DEC   _2.553198641 E-4  RADIANS
020128,000076: 
020129,000077:                                                                                                 #         NONE
020130,000078: 
020131,000079:                                                                                                 #  DEBRIS
020132,000080: 
020133,000081:                                                                                                 # # Page 456
020134,000082:                                                                                                 #         CENTRALS - A,Q,L
020135,000083:                                                                                                 #         OTHER - THOSE USED BY THE ABOVE LISTED SUBROUTINES
020136,000084:                                                                                                 #         SEE LEMPREC,LAT-LONG
020137,000085: 
020138,000086: ???????  30,2000                                 SBANK=   LOWSUPER                              #  FOR LOW 2CADR'S.
020139,000087: 
020140,000088: 37,2000                                          SETLOC   P20S                                  
020141,000089: 37,2000                                          BANK                                           
020142,000090: 
020143,000091: 37,2000  E7,1537                                 EBANK=   P21TIME                               
020144,000092: 37,2000                                          COUNT*   $$/P21                                
020145,000093: 37,2000           34770        PROG21            CAF      ONE                                   
020146,000094: 37,2001           54776                          TS       OPTION2                               #  ASSUMED VEHICLE IS LM, R2 = 00001
020147,000095: 37,2002           05547                          TC       UPFLAG                                
020148,000096: 37,2003           00031                          ADRES    TRACKFLG                              
020149,000097: 
020150,000098: 37,2004           34767                          CAF      BIT2                                  #   OPTION 2
020151,000099: 37,2005           04636                          TC       BANKCALL                              
020152,000100: 37,2006           21074                          CADR     GOPERF4                               
020153,000101: 37,2007           04103                          TC       GOTOPOOH                              #  TERMINATE
020154,000102: 37,2010           02012                          TC       +2                                    #  PROCEED VALUE OF ASSUMED VEHICLE OK
020155,000103: 37,2011           02004                          TC       -5                                    #  R2 LOADED THROUGH DSKY
020156,000104: 37,2012           34772                          CAF      ZERO                                  #  ZERO DSPTEM
020157,000105: 37,2013           55250                          TS       DSPTEM1                               
020158,000106: 37,2014           55251                          TS       DSPTEM1    +1                         
020159,000107: 37,2015           35027        P21PROG1          CAF      V6N34                                 #  LOAD DESIRED TIME OF LAT-LONG.
020160,000108: 37,2016           05535                          TC       VNFLASH                               
020161,000109: 37,2017           06006                          TC       INTPRET                               
020162,000110: 37,2020           53145                          DLOAD    BZE                                   
020163,000111: 37,2021           01251                                   DSPTEM1                               
020164,000112: 37,2022           76155                                   P21PRTM                               #  SET TO INTEG TO PRES TIME
020165,000113: 37,2023           34041        P21PROG2          STCALL   TDEC1                                 #  INTEG TO TIME SPECIFIED IN TDEC
020166,000114: 37,2024           27516                                   INTSTALL                              
020167,000115: 37,2025           43014                          BON      SET                                   
020168,000116: 37,2026           01303                                   P21FLAG                               
020169,000117: 37,2027           76045                                   P21CONT                               #  ON...RECYCLE USING BASE VECTOR
020170,000118: 37,2030           01474                                   VINTFLAG                              #  OFF..1ST PASS CALC BASE VECTOR
020171,000119: 37,2031           70535                          SLOAD    SR1                                   
020172,000120: 37,2032           00777                                   OPTION2                               
020173,000121: 37,2033           43030                          BHIZ     CLEAR                                 
020174,000122: 37,2034           76036                                   +2                                    #  ZERO..THIS VEHICLE (CM)
020175,000123: 37,2035           01674                                   VINTFLAG                              #  ONE...OTHER VEHICLE(LM)
020176,000124: 37,2036           43014                          CLEAR    CLEAR                                 
020177,000125: 37,2037           01676                                   DIM0FLAG                              
020178,000126: 37,2040           01673                                   INTYPFLG                              #  PRECISION
020179,000127: 37,2041           77624                          CALL                                           
020180,000128: 37,2042           27236                                   INTEGRV                               #  CALCULATE
020181,000129: 37,2043           77650                          GOTO                                           #  .AND
020182,000130: 37,2044           76066                                   P21VSAVE                              #  ..SAVE BASE VECTOR
020183,000131: 37,2045           77775        P21CONT           VLOAD                                          #  RECYCLE..INTEG FROM BASE VECTOR                        
020184,000132:                                                                                                 # # Page 457
020185,000133: 37,2046           03605                                   P21BASER                              
020186,000134: 37,2047           25535                          STOVL    RCV                                   #  ..POS
020187,000135: 37,2050           03613                                   P21BASEV                              
020188,000136: 37,2051           15543                          STODL    VCV                                   #  ..VEL
020189,000137: 37,2052           03540                                   P21TIME                               
020190,000138: 37,2053           01517                          STORE    TET                                   #  ..TIME
020191,000139: 37,2054           43014                          CLEAR    CLEAR                                 
020192,000140: 37,2055           01676                                   DIM0FLAG                              
020193,000141: 37,2056           00263                                   MOONFLAG                              
020194,000142: 37,2057           53135                          SLOAD    BZE                                   
020195,000143: 37,2060           03604                                   P21ORIG                               
020196,000144: 37,2061           76064                                   +3                                    #  ZERO = EARTH
020197,000145: 37,2062           77614                          SET                                            #  ...2 = MOON
020198,000146: 37,2063           00063                                   MOONFLAG                              
020199,000147: 37,2064           77624                          CALL                                           
020200,000148: 37,2065           27211                                   INTEGRVS                              
020201,000149: 37,2066           77745        P21VSAVE          DLOAD                                          #  SAVE CURRENT BASE VECTOR
020202,000150: 37,2067           00015                                   TAT                                   
020203,000151: 37,2070           27540                          STOVL    P21TIME                               #  ..TIME
020204,000152: 37,2071           00017                                   RATT1                                 
020205,000153: 37,2072           27605                          STOVL    P21BASER                              #  ..POS B-29 OR B-27
020206,000154: 37,2073           00025                                   VATT1                                 
020207,000155: 37,2074           03613                          STORE    P21BASEV                              #  ..VEL B-7  OR B-5
020208,000156: 37,2075           77614                          BONCLR                                         #  WITH ADJUSTED P29 BASE TIME, SKIP
020209,000157: 37,2076           02605                                   NEWTFLAG                              #       P29 DISPLAYS
020210,000158: 37,2077           60015                                   HOP29DSP                              
020211,000159: 37,2100           47014                          BOFF     RTB                                   #  RETURN TO P29 IF P29FLAG IS SET
020212,000160: 37,2101           00356                                   P29FLAG                               
020213,000161: 37,2102           76104                                   +2                                    
020214,000162: 37,2103           60004                                   LONGPASS                              
020215,000163: 37,2104           53646                          ABVAL    SL*                                   
020216,000164: 37,2105           57576                                   0,2                                   
020217,000165: 37,2106           27623                          STOVL    P21VEL                                #  /VEL/ FOR N73 DSP
020218,000166: 37,2107           00001                                   RATT                                  
020219,000167: 37,2110           50256                          UNIT     DOT                                   
020220,000168: 37,2111           00007                                   VATT                                  #  U(R).(V)
020221,000169: 37,2112           67471                          DDV      ASIN                                  #  U(R).U(V)
020222,000170: 37,2113           03623                                   P21VEL                                
020223,000171: 37,2114           03625                          STORE    P21GAM                                #  SIN-1 U(R).U(V), -90 TO +90
020224,000172: 37,2115           43134                          SXA,2    SET                                   
020225,000173: 37,2116           03603                                   P21ORIG                               #  0 = EARTH  2 = MOON
020226,000174: 37,2117           01063                                   P21FLAG                               
020227,000175: 37,2120           67214        P21DSP            CLEAR    SLOAD                                 #  GENERATE DISPLAY DATA
020228,000176: 37,2121           01663                                   LUNAFLAG                              
020229,000177: 37,2122           00050                                   X2                                    
020230,000178: 37,2123           43054                          BZE      SET                                   
020231,000179: 37,2124           76126                                   +2                                    #  0 = EARTH
020232,000180: 37,2125           01463                                   LUNAFLAG                              
020233,000181: 37,2126           77775                          VLOAD                                          
020234,000182: 37,2127           00001                                   RATT                                  
020235,000183:                                                                                                 # # Page 458
020236,000184: 37,2130           16152                          STODL    ALPHAV                                
020237,000185: 37,2131           00015                                   TAT                                   
020238,000186: 37,2132           45014                          CLEAR    CALL                                  
020239,000187: 37,2133           00662                                   ERADFLAG                              
020240,000188: 37,2134           26453                                   LAT-LONG                              
020241,000189: 37,2135           77605                          DMP                                            #  MPAC = ALT, METERS B-29
020242,000190: 37,2136           36166                                   K.01                                  
020243,000191: 37,2137           03621                          STORE    P21ALT                                #  ALT/100 FOR N73 DSP
020244,000192: 37,2140           77776                          EXIT                                           
020245,000193: 37,2141           32164                          CAF      V06N43                                #  DISPLAY LAT,LONG,ALT
020246,000194: 37,2142           04636                          TC       BANKCALL                              #  LAT,LONG = REVS B0     BOTH EARTH/MOON
020247,000195: 37,2143           20743                          CADR     GOFLASH                               #  ALT = METERS B-29      BOTH EARTH/MOON
020248,000196: 37,2144           04103                          TC       GOTOPOOH                              #  TERM
020249,000197: 37,2145           04103                          TC       GOTOPOOH                              
020250,000198: 37,2146           06006                          TC       INTPRET                               #  V32E RECYCLE
020251,000199: 37,2147           43345                          DLOAD    DAD                                   
020252,000200: 37,2150           03540                                   P21TIME                               
020253,000201: 37,2151           36161                                   600SEC                                #  600 SECONDS OR 10 MIN
020254,000202: 37,2152           01251                          STORE    DSPTEM1                               
020255,000203: 37,2153           77634                          RTB                                            
020256,000204: 37,2154           76015                                   P21PROG1                              
020257,000205: 37,2155           52034        P21PRTM           RTB      GOTO                                  
020258,000206: 37,2156           51751                                   LOADTIME                              
020259,000207: 37,2157           76023                                   P21PROG2                              
020260,000208: 37,2160           00003 25140  600SEC            2DEC     60000      B-28                       #  10 MIN
020261,000209: 
020262,000210: 37,2162           00001        P21ONENN          OCT      00001                                 #  NEEDED TO DETERMINE VEHICLE
020263,000211: 37,2163           00000                          OCT      00000                                 #  TO BE INTEGRATED
020264,000212: 37,2164           01453        V06N43            VN       00643                                 
020265,000213: 37,2165     5027               V6N34             =        V06N34                                
020266,000214: 37,2165           00243 32703  K.01              2DEC     .01                                   
020267,000215: 
020268,000216: 30,2000                                          SETLOC   P29TAG1                               
020269,000217: 30,2000                                          BANK                                           
020270,000218: 
020271,000219: 30,2000                                          COUNT*   $$/P29                                
020272,000220: 30,2000  E7,1543                                 EBANK=   LONGFOR                               
020273,000221: 
020274,000222: 30,2000           06006        P29               TC       INTPRET                               #  TIME-TO-LONGITUDE PROGRAM
020275,000223: 30,2001           47014                          SET      RTB                                   #  SET=P29,CLEARED=P21--CHECKED IN P21
020276,000224: 30,2002           00076                                   P29FLAG                               #  FLAG ALSO MARKS FIRST PASS THRU P29
020277,000225: 30,2003           76000                                   PROG21                                #  GET BASE TIME + STATE VECTOR FROM P21
020278,000226: 30,2004           32152        LONGPASS          CAF      V06N43LP                              
020279,000227: 30,2005           05540                          TC       VNFLASHR                              #  ASTRONAUT LOADS DESIRED LONGITUDE
020280,000228: 30,2006           12012                          TCF      +4                                    
020281,000229: 30,2007           34773                          CAF      FIVE                                  #  BLANK R1,R3
020282,000230: 30,2010           05516                          TC       BLANKET                               
020283,000231: 30,2011           05205                          TC       ENDOFJOB                              
020284,000232: 30,2012           52751                          DXCH     LONG                                  
020285,000233: 30,2013           53544                          DXCH     LONGFOR                               #  STORE DESIRED LONGITUDE
020286,000234:                                                                                                 # # Page 459
020287,000235: 30,2014           06006                          TC       INTPRET                               
020288,000236: 30,2015           65375        HOP29DSP          VLOAD    PDDL                                  #  STORE UNIT NORTH(IN PLANETARY COORDS )
020289,000237: 30,2016           15330                                   UNITZ                                 #       AND BASE TIME ON PUSHLIST FOR
020290,000238: 30,2017           03540                                   P29BASET                              #       RP-TO-R
020291,000239: 30,2020           03542                          STORE    PASSTIME                              #  INITIALIZE TIME OF CROSSING
020292,000240: 30,2021           43125                          PDDL     SET                                   
020293,000241: 30,2022           15336                                   ZEROVECS                              
020294,000242: 30,2023           00076                                   P29FLAG                               #  IN CASE OF RESTART OR REPEAT INTEGRATION
020295,000243: 30,2024           03546                          STORE    DELTLONG                              #  INITIALIZE LONGITUDE DIFFERENCE TO ZERO
020296,000244: 30,2025           43014                          CLEAR    BOFF                                  
020297,000245: 30,2026           01663                                   LUNAFLAG                              
020298,000246: 30,2027           04343                                   CMOONFLG                              
020299,000247: 30,2030           60034                                   +4                                    
020300,000248: 30,2031           71214                          SET      DLOAD                                 
020301,000249: 30,2032           01463                                   LUNAFLAG                              #  SET LUNAFLAG=CMOONFLG FOR LAT-LONG
020302,000250: 30,2033           20150                                   FMOON                                 #  MPAC NONZERO FOR MOON, ZERO FOR EARTH
020303,000251: 30,2034           77624                          CALL                                           #  GET UNIT PLANETARY NORTH IN BASE COORDS.
020304,000252: 30,2035           55345                                   RP-TO-R                               
020305,000253: 30,2036           41406                          PUSH     PUSH                                  #  PD=12D,MUSUBZ(UNIT PLANETARY NORTH)
020306,000254: 30,2037           53435                          VXV      UNIT                                  
020307,000255: 30,2040           03605                                   P29BASER                              
020308,000256: 30,2041           27552                          STOVL    MUSUBE                                #  PD=6D,MUSUBE=UNIT LOCAL EAST AT P29BASER
020309,000257: 30,2042           53435                          VXV      UNIT                                  
020310,000258: 30,2043           03552                                   MUSUBE                                
020311,000259: 30,2044           27560                          STOVL    MUSUBC                                #  UNIT EQUATORIAL CENTRAL-DIRECTED VECTOR
020312,000260: 30,2045           03605                                   P29BASER                              
020313,000261: 30,2046           53435                          VXV      UNIT                                  #  FORM MUSUBN(UNIT ORBITAL LOCAL NORTH)
020314,000262: 30,2047           03613                                   P29BASEV                              
020315,000263: 30,2050           41406                          PUSH     PUSH                                  #  PD=18D
020316,000264: 30,2051           53435                          VXV      UNIT                                  
020317,000265: 30,2052           03605                                   P29BASER                              
020318,000266: 30,2053           27566                          STOVL    MUSUBS                                #  PD=12D,MUSUBS=UNIT ORBITAL TANG. VEL.
020319,000267: 30,2054           63241                          DOT      PDVL                                  #  PD=8D,MUSUBZ AT 0D, EXCHANGE DOT-PRODUCT
020320,000268: 30,2055           00001                                   0D                                    #       WITH MUSUBN IN PUSHLIST
020321,000269: 30,2056           45565                          SIGN     STADR                                 #  PD=6D, PUT MUSUBN IN HEMI. OF MUSUBZ
020322,000270: 30,2057           50203                          STOVL    MUSUBN                                
020323,000271: 30,2060           03605                                   P29BASER                              
020324,000272: 30,2061           70414        HOPALONG          BOFF     VSR2                                  #  MUST BE B+29 FOR LAT-LONG
020325,000273: 30,2062           04343                                   CMOONFLG                              
020326,000274: 30,2063           60064                                   +1                                    
020327,000275: 30,2064           16152                          STODL    ALPHAV                                #  STORE FOR LAT-LONG
020328,000276: 30,2065           03542                                   PASSTIME                              
020329,000277: 30,2066           45014                          CLEAR    CALL                                  #  FIND LONGITUDE FOR PRESENT ITERATION OF
020330,000278: 30,2067           00662                                   ERADFLAG                              #       POSITION VECTOR
020331,000279: 30,2070           26453                                   LAT-LONG                              
020332,000280: 30,2071           45345                          DLOAD    DSU                                   #  COMPARE WITH DESIRED LONGITUDE
020333,000281: 30,2072           03544                                   LONGFOR                               
020334,000282: 30,2073           00751                                   LONG                                  
020335,000283: 30,2074           51406                          PUSH     ABS                                   #  PD=2D, SAVE DELTA
020336,000284: 30,2075           50025                          DSU      BMN                                   #  IF WITHIN EPSILONG, DISPLAY RESULTS
020337,000285:                                                                                                 # # Page 460
020338,000286: 30,2076           20142                                   EPSILONG                              #  .01 DEGREES
020339,000287: 30,2077           60122                                   PASSOUT                               
020340,000288: 30,2100           77600                          BOV                                            #  CLEAR OVERFLOW INDICATOR
020341,000289: 30,2101           60102                                   +1                                    
020342,000290: 30,2102           40015                          DAD      BOV                                   #  CHECK WHETHER WITHIN EPSILON OF 360 DEG.
020343,000291: 30,2103           20144                                   TWICEEPS                              #  .02 DEGREES
020344,000292: 30,2104           60122                                   PASSOUT                               
020345,000293: 30,2105           71214                          BOFCLR   DLOAD                                 #  P29FLAG CLEARED FOR LATER PASSES
020346,000294: 30,2106           00256                                   P29FLAG                               #  PD=0D
020347,000295: 30,2107           40272                                   MODULO                                
020348,000296: 30,2110           43244                          BPL      DAD                                   #  MAKE DELTA>0
020349,000297: 30,2111           60113                                   +2                                    
020350,000298: 30,2112           15344                                   DPPOSMAX                              
020351,000299: 30,2113           45214                          BOFF     DSU                                   #  FOR EARTH,DELTA>0
020352,000300: 30,2114           04343                                   CMOONFLG                              #  FOR MOON, DELTA.0
020353,000301: 30,2115           40212                                   HOP1                                  
020354,000302: 30,2116           15344                                   DPPOSMAX                              
020355,000303: 30,2117           52125                          PDDL     GOTO                                  #  PD=2D
020356,000304: 30,2120           20150                                   FMOON                                 #  327.8/328.8, 8+1
020357,000305: 30,2121           40214                                   HOP2                                  
020358,000306: 20,2000                                          SETLOC   P29TAG2                               
020359,000307: 20,2000                                          BANK                                           
020360,000308: 
020361,000309: 20,2212                                          COUNT*   $$/P29                                
020362,000310: 20,2212           77725        HOP1              PDDL                                           #  PD=2D
020363,000311: 20,2213           20146                                   FEARTH                                #  16/15, B+1
020364,000312: 20,2214           03550        HOP2              STORE    FUDGE                                 
020365,000313: 20,2215           77745        DELTLOAD          DLOAD                                          #  PD=0D, LOAD DELTA
020366,000314: 20,2216           40005        THETCOMP          DMP      BOV                                   
020367,000315: 20,2217           03550                                   FUDGE                                 
020368,000316: 20,2220           40221                                   +1                                    #  CLEAR OVERFLOW INDICATOR
020369,000317: 20,2221           43352                          SL1      DAD                                   #  SHIFT TO GET B0, SINCE FUDGE IS B+1
020370,000318: 20,2222           03546                                   DELTLONG                              
020371,000319: 20,2223           40006                          PUSH     BOV                                   #  PD=2D, IF FUDGE FACTOR MAKES DELTLONG>
020372,000320: 20,2224           40303                                   ADDTEN                                #       360, MODIFY BASE TIME
020373,000321: 20,2225           03546                          STORE    DELTLONG                              #  CUMULATIVE EQUATORIAL DELTA
020374,000322: 20,2226           74346                          COS      VXSC                                  
020375,000323: 20,2227           03552                                   MUSUBE                                
020376,000324: 20,2230           73525                          PDDL     SIN                                   #  PD=6D
020377,000325: 20,2231           53361                          VXSC     VAD                                   #  PD=0D
020378,000326: 20,2232           03560                                   MUSUBC                                #  ROTATE MUSUBE THRU ANGLE DELTLONG
020379,000327: 20,2233           53435                          VXV      UNIT                                  #  FORM MUSUBD=ROTATED ORBITAL UNIT
020380,000328: 20,2234           03574                                   MUSUBN                                #       POSITION VECTOR, OUTWARD-DIRECTED
020381,000329: 20,2235           63206                          PUSH     PDVL                                  #  PD=12D
020382,000330: 20,2236           03605                                   P29BASER                              
020383,000331: 20,2237           50256                          UNIT     DOT                                   #  PD=6D, DOT PRODUCT IS B+2
020384,000332: 20,2240           63352                          SL1      PDVL                                  #  PD=2D, MAKE B+1 FOR ACOS, EXCHANGE
020385,000333: 20,2241           65241                          DOT      PDDL                                  #  PD=2D, EXCHANGE WITH PUSHLIST
020386,000334: 20,2242           03566                                   MUSUBS                                
020387,000335: 20,2243           75326                          ACOS     SIGN                                  #  PD=0D
020388,000336:                                                                                                 # # Page 461
020389,000337: 20,2244           73406                          PUSH     SIN                                   #  PD=2D, FORM THETA=ORBITAL DELTA
020390,000338: 20,2245           16732                          STODL    SNTH                                  #  PD=0D
020391,000339: 20,2246           74146                          COS      AXC,1                                 
020392,000340: 20,2247           00002                                   2D                                    
020393,000341: 20,2250           26734                          STOVL    CSTH                                  #  STORE ANGLE DATA AND BASE STATE VECTOR
020394,000342: 20,2251           03605                                   P29BASER                              #       FOR TIME-THETA
020395,000343: 20,2252           26657                          STOVL    RVEC                                  
020396,000344: 20,2253           03613                                   P29BASEV                              
020397,000345: 20,2254           02746                          STORE    VVEC                                  
020398,000346: 20,2255           74014                          BOFF     AXC,1                                 #  SET X1=-2D FOR EARTH, -10D FOR MOON
020399,000347: 20,2256           04343                                   CMOONFLG                              
020400,000348: 20,2257           40261                                   +2                                    
020401,000349: 20,2260           00012                                   10D                                   
020402,000350: 20,2261           45014                          CLEAR    CALL                                  #  INTEGRATE BASE STATE VECTOR THRU THETA
020403,000351: 20,2262           03666                                   RVSW                                  
020404,000352: 20,2263           25002                                   TIMETHET                              
020405,000353: 20,2264           43345                          DLOAD    DAD                                   
020406,000354: 20,2265           00037                                   T                                     #  T=TIME TO TRAVERSE THETA
020407,000355: 20,2266           03540                                   P29BASET                              
020408,000356: 20,2267           27542                          STOVL    PASSTIME                              #  TIME OF LONGITUDE CROSSING
020409,000357: 20,2270           77650                          GOTO                                           #  UPDATED POSITION VECTOR LOADED FOR
020410,000358: 20,2271           60061                                   HOPALONG                              #       LAT-LONG
020411,000359: 20,2272           50025        MODULO            DSU      BMN                                   #  MPAC CONTAINS ABS(DELTA)+EPSILONG
020412,000360: 20,2273           15334                                   DPHALF                                #  IF THIS IS NEAR 360, MUST ADJUST DELTA
020413,000361: 20,2274           40215                                   DELTLOAD                              #       BY 360 TO GET ANGLE NEAR ZERO
020414,000362: 20,2275           77625                          DSU                                            #  TO ADJUST, SUBTRACT DPHALF (TWICE) AND
020415,000363: 20,2276           20142                                   EPSILONG                              #       EPSILONG TO GET NEGATIVE NUMBER,
020416,000364: 20,2277           75225                          DSU      SIGN                                  #       AND SIGN BY UNADJUSTED DIFFERENCE,
020417,000365: 20,2300           15334                                   DPHALF                                #       AT TOP OF PUSHLIST, PD=0D.
020418,000366: 20,2301           77650                          GOTO                                           
020419,000367: 20,2302           40216                                   THETCOMP                              
020420,000368: 20,2303           43345        ADDTEN            DLOAD    DAD                                   #  ADD 10 MINUTES TO BASE TIME
020421,000369: 20,2304           03540                                   P29BASET                              
020422,000370: 20,2305           36161                                   600SEC                                
020423,000371: 20,2306           52014                          SET      GOTO                                  #  SET FLAG TO SKIP DISPLAYS ON RETURN TO
020424,000372: 20,2307           02465                                   NEWTFLAG                              #        P29
020425,000373: 20,2310           76023                                   P21PROG2                              #  GO TO P21 FOR INTEGRATION
020426,000374: 30,2000                                          SETLOC   P29TAG1                               
020427,000375: 30,2000                                          BANK                                           
020428,000376: 
020429,000377: 30,2122                                          COUNT*   $$/P29                                
020430,000378: 30,2122           77776        PASSOUT           EXIT                                           
020431,000379: 30,2123           53542                          DXCH     PASSTIME                              
020432,000380: 30,2124           53251                          DXCH     DSPTEM1                               
020433,000381: 30,2125           32151                          CAF      V06N34LP                              
020434,000382: 30,2126           04636                          TC       BANKCALL                              
020435,000383: 30,2127           20743                          CADR     GOFLASH                               #  DISPLAY PASSTIME
020436,000384: 30,2130           04103                          TC       GOTOPOOH                              
020437,000385: 30,2131           02133                          TC       +2                                    
020438,000386: 30,2132           02004                          TC       LONGPASS                              #  RECYCLE TO LONGITUDE INPUT
020439,000387:                                                                                                 # # Page 462
020440,000388: 30,2133           32152                          CAF      V06N43LP                              
020441,000389: 30,2134           04636                          TC       BANKCALL                              #  DISPLAY LAT,LONG,ALT AT DESIRED
020442,000390: 30,2135           20743                          CADR     GOFLASH                               #       LONGITUDE
020443,000391: 30,2136           04103                          TC       GOTOPOOH                              
020444,000392: 30,2137           04103                          TC       GOTOPOOH                              
020445,000393: 30,2140           02000                          TC       P29                                   #  RECYCLE TO START OF PROGRAM
020446,000394: 30,2141           00000 16441  EPSILONG          2DEC     .2777778                              #  .01 DEGREES
020447,000395: 30,2143           00000 35101  TWICEEPS          2DEC     .5555556                              #  .02 DEGREES
020448,000396: 30,2145           21042 04211  FEARTH            2DEC     1.06666667 B-01                       #  16/15
020449,000397: 30,2147           17747 02563  FMOON             2DEC     .996958637 B-01                       #  327.8/328.8
020450,000398: 30,2151           01442        V06N34LP          VN       0634                                  
020451,000399: 30,2152           01453        V06N43LP          VN       0643                                  

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