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