Source Code
|
These source-code files are part of a reconstructed copy of Skylark 048, the
Block II Command Module (CM) Apollo Guidance Computer (AGC) software for the
Skylab-2, Skylab-3, Skylab-4, and Apollo-Soyuz Test Project missions.
They have been created via disassembly of binary dumps of the original core rope
memory modules actually flown on Skylab-2, part numbers 2010802-541, 2010802-551,
2010802-561, 2010802-571, 2010802-581, and 2010802-591. Access to these modules
was provided by the New Mexico Museum of Space History, who we are much indebted to.
The source code for the Apollo 15, 16, and 17 software, Artemis 072, was used as
a starting point. Heavy use was made of TRW 4900.5-244, Programmed Guidance Equations
for Skylark Command Module Earth Orbital Program, dated 14 February 1972. This document
contains pseudocode of essentially all of Skylark, using original program labels which
have been copied for this source reconstruction.
Since only binary dumps (rather than listings) of Skylark are available as source material,
all comments and labels are approximate.
They have been taken from the Programmed Guidance Equations or other AGC programs where
possible, or, in some places, written from scratch to match what we believe would have
been in the original listing.
|
019269,000002: ## Copyright: Public domain.
019270,000003: ## Filename: GROUND_TRACKING_DETERMINATION_PROGRAM_-_P21.agc
019271,000004: ## Purpose: A section of Skylark revision 048.
019272,000005: ## It is part of the source code for the Apollo Guidance Computer (AGC)
019273,000006: ## for Skylab-2, Skylab-3, Skylab-4, and ASTP. No original listings of
019274,000007: ## this software are available; instead, this file was created via
019275,000008: ## disassembly of dumps of the core rope modules actually flown on
019276,000009: ## Skylab-2. Access to these modules was provided by the New Mexico
019277,000010: ## Museum of Space History.
019278,000011: ## Assembler: yaYUL
019279,000012: ## Contact: Ron Burkey <info@sandroid.org>.
019280,000013: ## Website: www.ibiblio.org/apollo/index.html
019281,000014: ## Mod history: 2023-09-04 MAS Created from Artemis 072.
019282,000015: ## 2024-03-04 MAS Updated for Skylark 48.
019283,000016:
019284,000017: # GROUND TRACKING DETERMINATION PROGRAM P21
019285,000018:
019286,000019: # PROGRAM DESCRIPTION
019287,000020: # MOD NO - 1
019288,000021: # MOD BY - N. M. NEVILLE
019289,000022:
019290,000023: # FUNCTIONAL DECRIPTION-
019291,000024:
019292,000025: # TO PROVIDE THE ASTRONAUT DETAILS OF THE LM OR CSM GROUND TRACK WITHOUT
019293,000026: # THE NEED FOR GROUND COMMUNICATION (REQUESTED BY DSKY).
019294,000027:
019295,000028: # CALLING SEQUENCE -
019296,000029:
019297,000030: # ASTRONAUT REQUEST THROUGH DSKY V37E21E
019298,000031:
019299,000032: # SUBROUTINES CALLED-
019300,000033:
019301,000034: # GOPERF4
019302,000035: # GOFLASH
019303,000036: # THISPREC
019304,000037: # OTHPREC
019305,000038: # LAT-LONG
019306,000039:
019307,000040: # NORMAL EXIT MODES-
019308,000041:
019309,000042: # ASTRONAUT REQUEST TROUGH DSKY TO TERMINATE PROGRAM V34E
019310,000043:
019311,000044: # ALARM OR ABORT EXIT MODES-
019312,000045: #
019313,000046: # NONE
019314,000047:
019315,000048: # OUTPUT -
019316,000049:
019317,000050: # OCTAL DISPLAY OF OPTION CODE AND VEHICLE WHOSE GROUND TRACK IS TO BE
019318,000051: # COMPUTED
019319,000052: # OPTION CODE 00002
019320,000053: # THIS 00001
019321,000054: # OTHER 00002
019322,000055: # DECIMAL DISPLAY OF TIME TO BE INTEGRATED TO HOURS , MINUTES , SECONDS
019323,000056: # DECIMAL DISPLAY OF LAT,LONG,ALT
019324,000057:
019325,000058: # ERASABLE INITIALIZATION REQUIRED
019326,000059:
019327,000060: # AX0 2DEC 4.652459653 E-5 RADIANS %68-69 CONSTANTS"
019328,000061:
019329,000062: # -AY0 2DEC 2.147535898 E-5 RADIANS
019330,000063:
019331,000064: # AZ0 2DEC .7753206164 REVOLUTIONS
019332,000065:
019333,000066: # NONE
019334,000067:
019335,000068: # DEBRIS
019336,000069:
019337,000070: # CENTRALS - A,Q,L
019338,000071: # OTHER - THOSE USED BY THE ABOVE LISTED SUBROUTINES
019339,000072: # SEE LEMPREC,LAT-LONG
019340,000073:
019341,000074: 43,3231 30,2000 SBANK= LOWSUPER # FOR LOW 2CADR'S.
019342,000075:
019343,000076: 37,2000 SETLOC P20S
019344,000077: 37,2000 BANK
019345,000078:
019346,000079: 37,2000 E7,1515 EBANK= P21TIME
019347,000080: 37,2000 COUNT* $$/P21
019348,000081: 37,2000 35001 PROG21 CAF ONE
019349,000082: 37,2001 54771 TS OPTION2 # ASSUMED VEHICLE IS LM, R2 = 00001
019350,000083: 37,2002 07710 TC UPFLAG
019351,000084: 37,2003 00031 ADRES TRACKFLG
019352,000085:
019353,000086: 37,2004 35000 CAF BIT2 # OPTION 2
019354,000087: 37,2005 04647 TC BANKCALL
019355,000088: 37,2006 20754 CADR GOPERF4
019356,000089: 37,2007 04103 TC GOTOPOOH # TERMINATE
019357,000090: 37,2010 02012 TC +2 # PROCEED VALUE OF ASSUMED VEHICLE OK
019358,000091: 37,2011 02004 TC -5 # R2 LOADED THROUGH DSKY
019359,000092: 37,2012 35003 CAF ZERO # ZERO DSPTEM
019360,000093: 37,2013 55240 TS DSPTEM1
019361,000094: 37,2014 55241 TS DSPTEM1 +1
019362,000095: 37,2015 35042 P21PROG1 CAF V6N34 # LOAD DESIRED TIME OF LAT-LONG.
019363,000096: 37,2016 05550 TC VNFLASH
019364,000097: 37,2017 06006 TC INTPRET
019365,000098: 37,2020 53145 DLOAD BZE
019366,000099: 37,2021 01241 DSPTEM1
019367,000100: 37,2022 76140 P21PRTM # SET TO INTEG TO PRES TIME
019368,000101: 37,2023 34041 P21PROG2 STCALL TDEC1 # INTEG TO TIME SPECIFIED IN TDEC
019369,000102: 37,2024 11720 INTSTALL
019370,000103: 37,2025 43014 BON SET
019371,000104: 37,2026 01303 P21FLAG
019372,000105: 37,2027 76045 P21CONT # ON...RECYCLE USING BASE VECTOR
019373,000106: 37,2030 01474 VINTFLAG # OFF..1ST PASS CALC BASE VECTOR
019374,000107: 37,2031 70535 SLOAD SR1
019375,000108: 37,2032 00772 OPTION2
019376,000109: 37,2033 43030 BHIZ CLEAR
019377,000110: 37,2034 76036 +2 # ZERO..THIS VEHICLE (CM)
019378,000111: 37,2035 01674 VINTFLAG # ONE...OTHER VEHICLE(LM)
019379,000112: 37,2036 43014 CLEAR CLEAR
019380,000113: 37,2037 01676 DIM0FLAG
019381,000114: 37,2040 01673 INTYPFLG # PRECISION
019382,000115: 37,2041 77624 CALL
019383,000116: 37,2042 11460 INTEGRV # CALCULATE
019384,000117: 37,2043 77650 GOTO # .AND
019385,000118: 37,2044 76060 P21VSAVE # ..SAVE BASE VECTOR
019386,000119: 37,2045 77775 P21CONT VLOAD # RECYCLE..INTEG FROM BASE VECTOR
019387,000120: 37,2046 03520 P21BASER
019388,000121: 37,2047 25535 STOVL RCV # ..POS
019389,000122: 37,2050 03526 P21BASEV
019390,000123: 37,2051 15543 STODL VCV # ..VEL
019391,000124: 37,2052 03516 P21TIME
019392,000125: 37,2053 01517 STORE TET # ..TIME
019393,000126: 37,2054 77614 CLEAR
019394,000127: 37,2055 01676 DIM0FLAG
019395,000128: 37,2056 77624 CALL
019396,000129: 37,2057 11444 INTEGRVS
019397,000130: 37,2060 77745 P21VSAVE DLOAD # SAVE CURRENT BASE VECTOR
019398,000131: 37,2061 00015 TAT
019399,000132: 37,2062 27516 STOVL P21TIME # ..TIME
019400,000133: 37,2063 00017 RATT1
019401,000134: 37,2064 27520 STOVL P21BASER # ..POS B-29 OR B-27
019402,000135: 37,2065 00025 VATT1
019403,000136: 37,2066 03526 STORE P21BASEV # ..VEL B-7 OR B-5
019404,000137: 37,2067 77614 BONCLR # WITH ADJUSTED P29 BASE TIME, SKIP
019405,000138: 37,2070 02605 NEWTFLAG # P29 DISPLAYS
019406,000139: 37,2071 60015 HOP29DSP
019407,000140: 37,2072 47014 BOFF RTB # RETURN TO P29 IF P29FLAG IS SET
019408,000141: 37,2073 00356 P29FLAG
019409,000142: 37,2074 76076 +2
019410,000143: 37,2075 60004 LONGPASS
019411,000144: 37,2076 53646 ABVAL SL*
019412,000145: 37,2077 57576 0,2
019413,000146: 37,2100 27536 STOVL P21VEL # /VEL/ FOR N73 DSP
019414,000147: 37,2101 00001 RATT
019415,000148: 37,2102 50256 UNIT DOT
019416,000149: 37,2103 00007 VATT # U(R).(V)
019417,000150: 37,2104 67471 DDV ASIN # U(R).U(V)
019418,000151: 37,2105 03536 P21VEL
019419,000152: 37,2106 03540 STORE P21GAM # SIN-1 U(R).U(V), -90 TO +90
019420,000153: 37,2107 77614 SET
019421,000154: 37,2110 01063 P21FLAG
019422,000155: 37,2111 77775 P21DSP VLOAD # GENERATE DISPLAY DATA
019423,000156: 37,2112 00001 RATT
019424,000157: 37,2113 16054 STODL ALPHAV
019425,000158: 37,2114 00015 TAT
019426,000159: 37,2115 45014 CLEAR CALL
019427,000160: 37,2116 00662 ERADFLAG
019428,000161: 37,2117 22461 LAT-LONG
019429,000162: 37,2120 77605 DMP # MPAC = ALT, METERS B-29
019430,000163: 37,2121 36151 K.01
019431,000164: 37,2122 03534 STORE P21ALT # ALT/100 FOR N73 DSP
019432,000165: 37,2123 77776 EXIT
019433,000166: 37,2124 32147 CAF V06N43 # DISPLAY LAT,LONG,ALT
019434,000167: 37,2125 04647 TC BANKCALL # LAT,LONG = REVS B0 BOTH EARTH/MOON
019435,000168: 37,2126 20623 CADR GOFLASH # ALT = METERS B-29 BOTH EARTH/MOON
019436,000169: 37,2127 04103 TC GOTOPOOH # TERM
019437,000170: 37,2130 04103 TC GOTOPOOH
019438,000171: 37,2131 06006 TC INTPRET # V32E RECYCLE
019439,000172: 37,2132 43345 DLOAD DAD
019440,000173: 37,2133 03516 P21TIME
019441,000174: 37,2134 36144 600SEC # 600 SECONDS OR 10 MIN
019442,000175: 37,2135 01241 STORE DSPTEM1
019443,000176: 37,2136 77634 RTB
019444,000177: 37,2137 76015 P21PROG1
019445,000178: 37,2140 52034 P21PRTM RTB GOTO
019446,000179: 37,2141 45563 LOADTIME
019447,000180: 37,2142 76023 P21PROG2
019448,000181: 37,2143 00003 25140 600SEC 2DEC 60000 B-28 # 10 MIN
019449,000182:
019450,000183: 37,2145 00001 P21ONENN OCT 00001 # NEEDED TO DETERMINE VEHICLE
019451,000184: 37,2146 00000 OCT 00000 # TO BE INTEGRATED
019452,000185: 37,2147 01453 V06N43 VN 00643
019453,000186: 37,2150 5042 V6N34 = V06N34
019454,000187: 37,2150 00243 32703 K.01 2DEC .01
019455,000188:
019456,000189: 30,2000 SETLOC P29TAG1
019457,000190: 30,2000 BANK
019458,000191:
019459,000192: 30,2000 COUNT* $$/P29
019460,000193: 30,2000 E7,1543 EBANK= LONGFOR
019461,000194:
019462,000195: 30,2000 06006 P29 TC INTPRET # TIME-TO-LONGITUDE PROGRAM
019463,000196: 30,2001 47014 SET RTB # SET=P29,CLEARED=P21--CHECKED IN P21
019464,000197: 30,2002 00076 P29FLAG # FLAG ALSO MARKS FIRST PASS THRU P29
019465,000198: 30,2003 76000 PROG21 # GET BASE TIME + STATE VECTOR FROM P21
019466,000199: 30,2004 32127 LONGPASS CAF V06N43LP
019467,000200: 30,2005 05553 TC VNFLASHR # ASTRONAUT LOADS DESIRED LONGITUDE
019468,000201: 30,2006 12012 TCF +4
019469,000202: 30,2007 35004 CAF FIVE # BLANK R1,R3
019470,000203: 30,2010 05531 TC BLANKET
019471,000204: 30,2011 05220 TC ENDOFJOB
019472,000205: 30,2012 52744 DXCH LONG
019473,000206: 30,2013 53544 DXCH LONGFOR # STORE DESIRED LONGITUDE
019474,000207: 30,2014 06006 TC INTPRET
019475,000208: 30,2015 65375 HOP29DSP VLOAD PDDL # STORE UNIT NORTH(IN PLANETARY COORDS )
019476,000209: 30,2016 15176 UNITZ # AND BASE TIME ON PUSHLIST FOR
019477,000210: 30,2017 03516 P29BASET # RP-TO-R
019478,000211: 30,2020 03542 STORE PASSTIME # INITIALIZE TIME OF CROSSING
019479,000212: 30,2021 43125 PDDL SET
019480,000213: 30,2022 15204 ZEROVECS
019481,000214: 30,2023 00076 P29FLAG # IN CASE OF RESTART OR REPEAT INTEGRATION
019482,000215: 30,2024 37546 STCALL DELTLONG # INITIALIZE LONGITUDE DIFFERENCE TO ZERO
019483,000216: 30,2025 55213 RP-TO-R # GET UNIT PLANETARY NORTH IN BASE COORDS.
019484,000217: 30,2026 41406 PUSH PUSH # PD=12D,MUSUBZ(UNIT PLANETARY NORTH)
019485,000218: 30,2027 53435 VXV UNIT
019486,000219: 30,2030 03520 P29BASER
019487,000220: 30,2031 27552 STOVL MUSUBE # PD=6D,MUSUBE=UNIT LOCAL EAST AT P29BASER
019488,000221: 30,2032 53435 VXV UNIT
019489,000222: 30,2033 03552 MUSUBE
019490,000223: 30,2034 27560 STOVL MUSUBC # UNIT EQUATORIAL CENTRAL-DIRECTED VECTOR
019491,000224: 30,2035 03520 P29BASER
019492,000225: 30,2036 53435 VXV UNIT # FORM MUSUBN(UNIT ORBITAL LOCAL NORTH)
019493,000226: 30,2037 03526 P29BASEV
019494,000227: 30,2040 41406 PUSH PUSH # PD=18D
019495,000228: 30,2041 53435 VXV UNIT
019496,000229: 30,2042 03520 P29BASER
019497,000230: 30,2043 27566 STOVL MUSUBS # PD=12D,MUSUBS=UNIT ORBITAL TANG. VEL.
019498,000231: 30,2044 63241 DOT PDVL # PD=8D,MUSUBZ AT 0D, EXCHANGE DOT-PRODUCT
019499,000232: 30,2045 00001 0D # WITH MUSUBN IN PUSHLIST
019500,000233: 30,2046 45565 SIGN STADR # PD=6D, PUT MUSUBN IN HEMI. OF MUSUBZ
019501,000234: 30,2047 50203 STOVL MUSUBN
019502,000235: 30,2050 03520 P29BASER
019503,000236: 30,2051 16054 HOPALONG STODL ALPHAV # STORE FOR LAT-LONG
019504,000237: 30,2052 03542 PASSTIME
019505,000238: 30,2053 45014 CLEAR CALL # FIND LONGITUDE FOR PRESENT ITERATION OF
019506,000239: 30,2054 00662 ERADFLAG # POSITION VECTOR
019507,000240: 30,2055 22461 LAT-LONG
019508,000241: 30,2056 45345 DLOAD DSU # COMPARE WITH DESIRED LONGITUDE
019509,000242: 30,2057 03544 LONGFOR
019510,000243: 30,2060 00744 LONG
019511,000244: 30,2061 51406 PUSH ABS # PD=2D, SAVE DELTA
019512,000245: 30,2062 50025 DSU BMN # IF WITHIN EPSILONG, DISPLAY RESULTS
019513,000246: 30,2063 20122 EPSILONG # .01 DEGREES
019514,000247: 30,2064 60102 PASSOUT
019515,000248: 30,2065 77600 BOV # CLEAR OVERFLOW INDICATOR
019516,000249: 30,2066 60067 +1
019517,000250: 30,2067 40015 DAD BOV # CHECK WHETHER WITHIN EPSILON OF 360 DEG.
019518,000251: 30,2070 20124 TWICEEPS # .02 DEGREES
019519,000252: 30,2071 60102 PASSOUT
019520,000253: 30,2072 71214 BOFCLR DLOAD # P29FLAG CLEARED FOR LATER PASSES
019521,000254: 30,2073 00256 P29FLAG # PD=0D
019522,000255: 30,2074 40273 MODULO
019523,000256: 30,2075 43244 BPL DAD # MAKE DELTA>0
019524,000257: 30,2076 60100 +2
019525,000258: 30,2077 15212 DPPOSMAX
019526,000259: 30,2100 77650 GOTO
019527,000260: 30,2101 40220 HOP1
019528,000261: 20,2000 SETLOC P29TAG2
019529,000262: 20,2000 BANK
019530,000263:
019531,000264: 20,2220 COUNT* $$/P29
019532,000265: 20,2220 77725 HOP1 PDDL # PD=2D
019533,000266: 20,2221 20126 FEARTH # 16/15, B+1
019534,000267: 20,2222 03550 HOP2 STORE FUDGE
019535,000268: 20,2223 77745 DELTLOAD DLOAD # PD=0D, LOAD DELTA
019536,000269: 20,2224 40005 THETCOMP DMP BOV
019537,000270: 20,2225 03550 FUDGE
019538,000271: 20,2226 40227 +1 # CLEAR OVERFLOW INDICATOR
019539,000272: 20,2227 43352 SL1 DAD # SHIFT TO GET B0, SINCE FUDGE IS B+1
019540,000273: 20,2230 03546 DELTLONG
019541,000274: 20,2231 40006 PUSH BOV # PD=2D, IF FUDGE FACTOR MAKES DELTLONG>
019542,000275: 20,2232 40304 ADDTEN # 360, MODIFY BASE TIME
019543,000276: 20,2233 03546 STORE DELTLONG # CUMULATIVE EQUATORIAL DELTA
019544,000277: 20,2234 74346 COS VXSC
019545,000278: 20,2235 03552 MUSUBE
019546,000279: 20,2236 73525 PDDL SIN # PD=6D
019547,000280: 20,2237 53361 VXSC VAD # PD=0D
019548,000281: 20,2240 03560 MUSUBC # ROTATE MUSUBE THRU ANGLE DELTLONG
019549,000282: 20,2241 53435 VXV UNIT # FORM MUSUBD=ROTATED ORBITAL UNIT
019550,000283: 20,2242 03574 MUSUBN # POSITION VECTOR, OUTWARD-DIRECTED
019551,000284: 20,2243 63206 PUSH PDVL # PD=12D
019552,000285: 20,2244 03520 P29BASER
019553,000286: 20,2245 50256 UNIT DOT # PD=6D, DOT PRODUCT IS B+2
019554,000287: 20,2246 63352 SL1 PDVL # PD=2D, MAKE B+1 FOR ACOS, EXCHANGE
019555,000288: 20,2247 65241 DOT PDDL # PD=2D, EXCHANGE WITH PUSHLIST
019556,000289: 20,2250 03566 MUSUBS
019557,000290: 20,2251 75326 ACOS SIGN # PD=0D
019558,000291: 20,2252 73406 PUSH SIN # PD=2D, FORM THETA=ORBITAL DELTA
019559,000292: 20,2253 16724 STODL SNTH # PD=0D
019560,000293: 20,2254 77746 COS
019561,000294: 20,2255 26726 STOVL CSTH # STORE ANGLE DATA AND BASE STATE VECTOR
019562,000295: 20,2256 03520 P29BASER # FOR TIME-THETA
019563,000296: 20,2257 26651 STOVL RVEC
019564,000297: 20,2260 03526 P29BASEV
019565,000298: 20,2261 02740 STORE VVEC
019566,000299: 20,2262 45014 CLEAR CALL # INTEGRATE BASE STATE VECTOR THRU THETA
019567,000300: 20,2263 03666 RVSW
019568,000301: 20,2264 25004 TIMETHET
019569,000302: 20,2265 43345 DLOAD DAD
019570,000303: 20,2266 00037 T # T=TIME TO TRAVERSE THETA
019571,000304: 20,2267 03516 P29BASET
019572,000305: 20,2270 27542 STOVL PASSTIME # TIME OF LONGITUDE CROSSING
019573,000306: 20,2271 77650 GOTO # UPDATED POSITION VECTOR LOADED FOR
019574,000307: 20,2272 60051 HOPALONG # LAT-LONG
019575,000308: 20,2273 50025 MODULO DSU BMN # MPAC CONTAINS ABS(DELTA)+EPSILONG
019576,000309: 20,2274 15202 DPHALF # IF THIS IS NEAR 360, MUST ADJUST DELTA
019577,000310: 20,2275 40223 DELTLOAD # BY 360 TO GET ANGLE NEAR ZERO
019578,000311: 20,2276 77625 DSU # TO ADJUST, SUBTRACT DPHALF (TWICE) AND
019579,000312: 20,2277 20122 EPSILONG # EPSILONG TO GET NEGATIVE NUMBER,
019580,000313: 20,2300 75225 DSU SIGN # AND SIGN BY UNADJUSTED DIFFERENCE,
019581,000314: 20,2301 15202 DPHALF # AT TOP OF PUSHLIST, PD=0D.
019582,000315: 20,2302 77650 GOTO
019583,000316: 20,2303 40224 THETCOMP
019584,000317: 20,2304 43345 ADDTEN DLOAD DAD # ADD 10 MINUTES TO BASE TIME
019585,000318: 20,2305 03516 P29BASET
019586,000319: 20,2306 36144 600SEC
019587,000320: 20,2307 52014 SET GOTO # SET FLAG TO SKIP DISPLAYS ON RETURN TO
019588,000321: 20,2310 02465 NEWTFLAG # P29
019589,000322: 20,2311 76023 P21PROG2 # GO TO P21 FOR INTEGRATION
019590,000323: 30,2000 SETLOC P29TAG1
019591,000324: 30,2000 BANK
019592,000325:
019593,000326: 30,2102 COUNT* $$/P29
019594,000327: 30,2102 77776 PASSOUT EXIT
019595,000328: 30,2103 53542 DXCH PASSTIME
019596,000329: 30,2104 53241 DXCH DSPTEM1
019597,000330: 30,2105 35042 CAF V06N34LP
019598,000331: 30,2106 04647 TC BANKCALL
019599,000332: 30,2107 20623 CADR GOFLASH # DISPLAY PASSTIME
019600,000333: 30,2110 04103 TC GOTOPOOH
019601,000334: 30,2111 02113 TC +2
019602,000335: 30,2112 02004 TC LONGPASS # RECYCLE TO LONGITUDE INPUT
019603,000336: 30,2113 32127 CAF V06N43LP
019604,000337: 30,2114 04647 TC BANKCALL # DISPLAY LAT,LONG,ALT AT DESIRED
019605,000338: 30,2115 20623 CADR GOFLASH # LONGITUDE
019606,000339: 30,2116 04103 TC GOTOPOOH
019607,000340: 30,2117 04103 TC GOTOPOOH
019608,000341: 30,2120 02000 TC P29 # RECYCLE TO START OF PROGRAM
019609,000342: 30,2121 00000 16441 EPSILONG 2DEC .2777778 # .01 DEGREES
019610,000343: 30,2123 00000 35101 TWICEEPS 2DEC .5555556 # .02 DEGREES
019611,000344: 30,2125 21042 04211 FEARTH 2DEC 1.06666667 B-01 # 16/15
019612,000345: 30,2127 5042 V06N34LP = V06N34
019613,000346: 30,2127 01453 V06N43LP VN 0643
End of include-file GROUND_TRACKING_DETERMINATION_PROGRAM_-_P21.agc. Parent file is MAIN.agc