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