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