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