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