- B1 — Revision 292
- B2 — Revision 302
- B3 — Revision 302
- B4 — Revision 302
- B5 — Revision 292
- B6 — Revision 306
Source Code
|
|
These source code files are an attempted reconstruction of Sundance revision 306, the Apollo 9
LM (Lunar Module) AGC (Apollo Guidance Computer) flight software, created from binary dumps of
original core rope program modules, as follows:
|
034134,000002: ## Copyright: Public domain.
034135,000003: ## Filename: SERVICER.agc
034136,000004: ## Purpose: A section of an attempt to reconstruct Sundance revision 306
034137,000005: ## as closely as possible with available information. Sundance
034138,000006: ## 306 is the source code for the Lunar Module's (LM) Apollo
034139,000007: ## Guidance Computer (AGC) for Apollo 9. This program was created
034140,000008: ## using the mixed-revision SundanceXXX as a starting point, and
034141,000009: ## pulling back features from Luminary 69 believed to have been
034142,000010: ## added based on memos, checklists, observed address changes,
034143,000011: ## or the Sundance GSOPs.
034144,000012: ## Assembler: yaYUL
034145,000013: ## Contact: Ron Burkey <info@sandroid.org>.
034146,000014: ## Website: www.ibiblio.org/apollo/index.html
034147,000015: ## Mod history: 2020-07-24 MAS Created from SundanceXXX.
034148,000016: ## 2020-07-29 MAS Added code to do an AUXFLAG-like cycle delay
034149,000017: ## in DVMON.
034150,000018: ## 2021-05-30 ABS Aligned IAW to field boundary.
034151,000019:
034152,000020:
034153,000021: 33,2000 BANK 33
034154,000022: 33,2000 SETLOC SERVICES
034155,000023: 33,2000 BANK
034156,000024:
034157,000025: 33,2000 E7,1472 EBANK= DVCNTR
034158,000026: # ************************************* PREREAD **************************************************************
034159,000027:
034160,000028:
034161,000029: 33,2000 COUNT* $$/SERV
034162,000030:
034163,000031: 33,2000 35032 PREREAD CAF SEVEN # 5.7 SPOT TO SKIP LASTBIAS AFTER
034164,000032: 33,2001 05511 TC NEWPHASE # RESTART.
034165,000033: 33,2002 00005 OCT 5
034166,000034: 33,2003 35101 CAF PRIO21
034167,000035: 33,2004 05142 TC NOVAC
034168,000036: 33,2005 E3,1460 EBANK= NBDX
034169,000037: 33,2005 03661 14063 2CADR LASTBIAS # DO LAST GYRO COMPENSATION IN FREE FALL
034170,000038:
034171,000039: 33,2007 02433 BIBIBIAS TC PIPASR +3 # CLEAR + READ PIPS LAST TIME IN FRE5+F133
034172,000040: # DO NOT DESTROY VALUE OF PIPTIME1
034173,000041:
034174,000042: 33,2010 05566 TC UPFLAG
034175,000043: 33,2011 00162 ADRES V37FLAG # SET V37FLAG AND AVEGFLAG (BITS 5 AND 6
034176,000044: 33,2012 05566 TC UPFLAG # OF FLAGWRD7)
034177,000045: 33,2013 00163 ADRES AVEGFLAG
034178,000046:
034179,000047: 33,2014 05600 TC DOWNFLAG # RESET DRIFTFLAG
034180,000048: 33,2015 00036 ADRES DRIFTFLG
034181,000049:
034182,000050: 33,2016 35024 CAF FOUR # INITIALIZE DV MONITOR
034183,000051: 33,2017 55472 TS DVCNTR
034184,000052: 33,2020 55261 TS PIPAGE
034185,000053: 33,2021 55260 TS STOPDVC
034186,000054:
034187,000055: 33,2022 35010 CAF LRBYBIT
034188,000056: 33,2023 55263 TS LRSTAT
034189,000057:
034190,000058: 33,2024 32357 CAF ENDJBCAD # POINT OUTROUTE TO END-OF-JOB.
034191,000059: 33,2025 55262 TS OUTROUTE
034192,000060:
034193,000061: 33,2026 37662 CAF PRIO22
034194,000062: 33,2027 05155 TC FINDVAC # TO FIRST ENTRY TO AVERAGE G.
034195,000063: 33,2030 E7,1472 EBANK= DVCNTR
034196,000064: 33,2030 02360 66067 2CADR NORMLIZE
034197,000065:
034198,000066: 33,2032 35050 CAF 2SECS # WAIT TWO SECONDS FOR READACCS
034199,000067: 33,2033 05252 TC WAITLIST
034200,000068: 33,2034 E7,1472 EBANK= DVCNTR
034201,000069: 33,2034 02042 66067 2CADR READACCS
034202,000070:
034203,000071: 33,2036 45025 CS TWO # 5.2SPOT FOR REREADAC AND NORMLIZE
034204,000072: 33,2037 05511 TC NEWPHASE
034205,000073: 33,2040 00005 OCT 5
034206,000074:
034207,000075: 33,2041 15331 TCF TASKOVER
034208,000076:
034209,000077: # ************************************* READACCS *************************************************************
034210,000078: 33,2042 40102 READACCS CS FLAGWRD6
034211,000079: 33,2043 75017 MASK MUNFLBIT
034212,000080: 33,2044 10000 CCS A
034213,000081: 33,2045 12061 TCF PIPSDONE -1
034214,000082:
034215,000083: 33,2046 40103 CS FLAGWRD7
034216,000084: 33,2047 75014 MASK SWANDBIT
034217,000085: 33,2050 10000 CCS A
034218,000086: 33,2051 12057 TCF SWANDOFF
034219,000087:
034220,000088: 33,2052 35746 CAF TWELVE
034221,000089: 33,2053 05252 TC WAITLIST
034222,000090: 33,2054 E7,1523 EBANK= UNIT/R/
034223,000091: 33,2054 02102 42067 2CADR LANDISP
034224,000092:
034225,000093: 33,2056 12061 TCF PIPSDONE -1
034226,000094:
034227,000095: 33,2057 04737 SWANDOFF TC IBNKCALL
034228,000096: 33,2060 43027 CADR DISPRSET
034229,000097:
034230,000098: 33,2061 02430 TC PIPASR # READ THE PIPAS.
034231,000099:
034232,000100: 33,2062 35031 PIPSDONE CA FIVE
034233,000101: 33,2063 05511 TC NEWPHASE
034234,000102: 33,2064 00005 OCT 5
034235,000103: 33,2065 35026 REDO5.5 CAF ONE
034236,000104: 33,2066 55261 TS PIPAGE
034237,000105:
034238,000106: 33,2067 35032 CAF SEVEN # SET PIPCTR FOR 4X/SEC RATE.
034239,000107: 33,2070 55257 TS PIPCTR
034240,000108:
034241,000109: 33,2071 40103 CS FLAGWRD7
034242,000110: 33,2072 75022 MASK AVEGFBIT
034243,000111: 33,2073 10000 CCS A
034244,000112: 33,2074 02121 TC AVEGOUT # AVEGFLAG DOWN - SET UP FINAL EXIT
034245,000113:
034246,000114: 33,2075 35050 MAKEACCS CAF 2SECS
034247,000115: 33,2076 05243 TC TWIDDLE
034248,000116: 33,2077 02042 ADRES READACCS
034249,000117:
034250,000118: 33,2100 41263 CS LRSTAT
034251,000119: 33,2101 75010 MASK LRBYBIT
034252,000120: 33,2102 00006 EXTEND
034253,000121: 33,2103 12107 BZF STRTSERV
034254,000122:
034255,000123: 33,2104 33220 CAF 1.95SECS
034256,000124: 33,2105 05243 TC TWIDDLE
034257,000125: 33,2106 02545 ADRES LRHTASK
034258,000126:
034259,000127: 33,2107 35011 STRTSERV CA PRIO20
034260,000128: 33,2110 05155 TC FINDVAC
034261,000129: 33,2111 E7,1472 EBANK= DVCNTR
034262,000130: 33,2111 02127 66067 2CADR SERVICER # SET UP SERVICER JOB
034263,000131:
034264,000132: 33,2113 05423 TC PHASCHNG
034265,000133: 33,2114 40045 OCT 40045
034266,000134:
034267,000135: 33,2115 35016 CA BIT9
034268,000136: 33,2116 00006 EXTEND
034269,000137: 33,2117 05011 WOR DSALMOUT # TURN ON TEST CONNECTOR OUTBIT
034270,000138:
034271,000139: 33,2120 15331 TCF TASKOVER
034272,000140:
034273,000141: 33,2121 00006 AVEGOUT EXTEND
034274,000142: 33,2122 32126 DCA AVOUTCAD # SET UP FINAL SERVICER EXIT
034275,000143: 33,2123 53253 DXCH AVGEXIT
034276,000144:
034277,000145: 33,2124 12107 TCF STRTSERV # END TASK WITHOUT CALLING READACCS
034278,000146:
034279,000147:
034280,000148: 33,2125 E7,1472 EBANK= DVCNTR
034281,000149: 33,2125 02312 66067 AVOUTCAD 2CADR AVGEND
034282,000150:
034283,000151: # ************************************* SERVICER *************************************************************
034284,000152:
034285,000153: 33,2127 05423 SERVICER TC PHASCHNG # RESTART REREADAC + SERVICER
034286,000154: 33,2130 16035 OCT 16035
034287,000155: 33,2131 20000 OCT 20000
034288,000156: 33,2132 E7,1472 EBANK= DVCNTR
034289,000157: 33,2132 02140 66067 2CADR GETABVAL
034290,000158:
034291,000159: 33,2134 37670 CAF PRIO31 # INITIALIZE 1/PIPADT IN CASE RESTART HAS
034292,000160: 33,2135 55075 TS 1/PIPADT # CAUSED LASTBIAS TO BE SKIPPED.
034293,000161:
034294,000162:
034295,000163: 33,2136 04655 TC BANKCALL # PIPA COMPENSATION CALL
034296,000164: 33,2137 15277 CADR 1/PIPA
034297,000165:
034298,000166: 33,2140 06014 GETABVAL TC INTPRET
034299,000167: 33,2141 51575 VLOAD ABVAL
034300,000168: 33,2142 01212 DELV
034301,000169: 33,2143 01246 STORE ABDELV # ABDELV = CM/SEC*2(-14).
034302,000170: 33,2144 77605 DMP
034303,000171: 33,2145 27117 KPIP
034304,000172: 33,2146 03471 STORE ABDVCONV # ABDVCONV = M/CS * 2(-5).
034305,000173: 33,2147 76014 MASSMON BON AXT,1 # ARE WE ON THE SURFACE?
034306,000174: 33,2150 04307 SURFFLAG
034307,000175: 33,2151 66171 MOONSPOT # YES: BYPASS MASS MESS
034308,000176: 33,2152 00000 0
034309,000177: 33,2153 43071 DDV BON # NO: WHICH VEX SHOULD BE USED?
034310,000178: 33,2154 27143 1SEC(7)
034311,000179: 33,2155 00703 APSFLAG
034312,000180: 33,2156 66161 +3
034313,000181: 33,2157 77770 AXT,1
034314,000182: 33,2160 00002 2
034315,000183: 33,2161 15250 STODL /AF/ # /AF/ = MAGNITUDE DV/DT
034316,000184: 33,2162 03471 ABDVCONV
034317,000185: 33,2163 55702 VSR4 DDV*
034318,000186: 33,2164 27147 APSVEX1,1
034319,000187: 33,2165 43205 DMP DAD
034320,000188: 33,2166 01244 MASS
034321,000189: 33,2167 01244 MASS
034322,000190: 33,2170 03556 STORE MASS1
034323,000191:
034324,000192: 33,2171 50545 MOONSPOT DLOAD VSR6
034325,000193: 33,2172 03471 ABDVCONV
034326,000194: 33,2173 77615 DAD
034327,000195: 33,2174 03467 DVTOTAL
034328,000196: 33,2175 03467 STORE DVTOTAL # UPDATE DVTOTAL FOR DISPLAY
034329,000197:
034330,000198: 33,2176 45034 RTB CALL
034331,000199: 33,2177 66536 TMPTOSPT
034332,000200: 33,2200 47341 CD*TR*G
034333,000201: 33,2201 45160 AXC,1 CALL
034334,000202: 33,2202 02147 XNBPIP
034335,000203: 33,2203 30671 XNBNDX
034336,000204:
034337,000205: 33,2204 45014 AVERAGEG BON CALL
034338,000206: 33,2205 03307 MUNFLAG
034339,000207: 33,2206 67150 MUNRVG
034340,000208: 33,2207 67062 CALCRVG
034341,000209: 33,2210 77776 EXIT
034342,000210:
034343,000211: 33,2211 05423 GOSERV TC PHASCHNG
034344,000212: 33,2212 10035 OCT 10035
034345,000213:
034346,000214: 33,2213 02421 COPYCYCL TC COPYCYC
034347,000215:
034348,000216: 33,2214 05600 TC DOWNFLAG # CLEAR STEERSW PRIOR TO DVMON.
034349,000217: 33,2215 00042 ADRES STEERSW
034350,000218:
034351,000219: 33,2216 35020 CAF IDLEFBIT # IS THE IDLE FLAG SET?
034352,000220: 33,2217 70103 MASK FLAGWRD7
034353,000221: 33,2220 10000 CCS A
034354,000222: 33,2221 12271 TCF USEJETS # IDLEFLAG = 1, HENCE SET AUXFLAG TO 0.
034355,000223:
|
|
The following three instructions have been added to approximate the AUXFLAG logic in Luminary, using only three instructions as observed from module B6 of Sundance 306. They are, however, a modern recreation, and may or may not match what actually went into 306. |
034359,000227: 33,2222 57202 XCH AUXFLAG
034360,000228: 33,2223 10000 CCS A
034361,000229: 33,2224 12271 TCF USEJETS
034362,000230:
034363,000231: 33,2225 00004 DVMON INHINT
034364,000232: 33,2226 41201 CS DVTHRUSH
034365,000233: 33,2227 61245 AD ABDELV
034366,000234: 33,2230 00006 EXTEND
034367,000235: 33,2231 62262 BZMF LOTHRUST
034368,000236:
034369,000237: 33,2232 04737 TC IBNKCALL
034370,000238: 33,2233 74643 CADR NOULLAGE
034371,000239:
034372,000240: 33,2234 40076 CS FLAGWRD2 # SET STEERSW.
034373,000241: 33,2235 75014 MASK STEERBIT
034374,000242: 33,2236 26076 ADS FLAGWRD2
034375,000243:
034376,000244: 33,2237 31260 DVCNTSET CA STOPDVC # UPDATE MAXIMUM NOW THAT
034377,000245: 33,2240 55472 TS DVCNTR # THRUXT HAS BEEN DETECTED.
034378,000246:
034379,000247: 33,2241 30075 CA FLAGWRD1
034380,000248: 33,2242 75023 MASK GIMBFBIT
034381,000249: 33,2243 00006 EXTEND
034382,000250: 33,2244 12271 BZF USEJETS
034383,000251:
034384,000252: 33,2245 30075 CA FLAGWRD1 # BRANCH IF APSFLAG IS SET.
034385,000253: 33,2246 75013 MASK APSFLBIT
034386,000254: 33,2247 10000 CCS A
034387,000255: 33,2250 12271 TCF USEJETS
034388,000256:
034389,000257: 33,2251 35016 CA BIT9 # CHECK GIMBAL FAIL BIT
034390,000258: 33,2252 00006 EXTEND
034391,000259: 33,2253 02032 RAND CHAN32
034392,000260: 33,2254 00006 EXTEND
034393,000261: 33,2255 12271 BZF USEJETS
034394,000262:
034395,000263: 33,2256 45011 USEGTS CS USEQRJTS
034396,000264: 33,2257 71102 MASK DAPBOOLS
034397,000265: 33,2260 55102 TS DAPBOOLS
034398,000266: 33,2261 12275 TCF SERVOUT
034399,000267:
034400,000268: 33,2262 11472 LOTHRUST CCS DVCNTR
034401,000269: 33,2263 12270 TCF DECCNTR
034402,000270:
034403,000271: 33,2264 05423 TC PHASCHNG
034404,000272: 33,2265 10035 OCT 10035
034405,000273:
034406,000274: 33,2266 04674 TC POSTJUMP
034407,000275: 33,2267 74606 CADR COMFAIL
034408,000276:
034409,000277: 33,2270 55472 DECCNTR TS DVCNTR
034410,000278:
034411,000279: 33,2271 00004 USEJETS INHINT
034412,000280: 33,2272 41102 CS DAPBOOLS
034413,000281: 33,2273 75011 MASK USEQRJTS
034414,000282: 33,2274 27102 ADS DAPBOOLS
034415,000283: 33,2275 00003 SERVOUT RELINT
034416,000284: 33,2276 04655 TC BANKCALL
034417,000285: 33,2277 40315 CADR 1/ACCS
034418,000286:
034419,000287: 33,2300 30167 CA PRIORITY
034420,000288: 33,2301 75054 MASK LOW9
034421,000289: 33,2302 54166 TS PUSHLOC
034422,000290: 33,2303 22007 ZL
034423,000291: 33,2304 52121 DXCH FIXLOC # FIXLOC AND OVFIND
034424,000292:
034425,000293: 33,2305 05423 TC PHASCHNG
034426,000294: 33,2306 10035 OCT 10035
034427,000295: 33,2307 00006 EXTEND # EXIT TO SELECTED ROUTINE WHETHER THERE
034428,000296: 33,2310 31253 DCA AVGEXIT # IS THRUST OR NOT. THE STATE OF STEERSW
034429,000297: 33,2311 52006 DXCH Z # WILL CONVEY THIS INFORMATION.
034430,000298:
034431,000299: 33,2312 31234 AVGEND CA PIPTIME +1 # FINAL AVERAGE G EXIT
034432,000300: 33,2313 55075 TS 1/PIPADT # SET UP FREE FALL GYRO COMPENSATION.
034433,000301:
034434,000302: 33,2314 05566 TC UPFLAG # SET DRIFT FLAG.
034435,000303: 33,2315 00036 ADRES DRIFTFLG
034436,000304:
034437,000305: 33,2316 04655 TC BANKCALL
034438,000306: 33,2317 17221 CADR PIPFREE
034439,000307:
034440,000308: 33,2320 45016 CS BIT9
034441,000309: 33,2321 00006 EXTEND
034442,000310: 33,2322 03011 WAND DSALMOUT
034443,000311:
034444,000312: 33,2323 05403 TC 2PHSCHNG
034445,000313:
034446,000314: 33,2324 00005 OCT 5 # GROUP 5 OFF
034447,000315: 33,2325 05022 OCT 05022 # GROUP 2 ON
034448,000316: 33,2326 20000 OCT 20000
034449,000317:
034450,000318: 33,2327 06014 TC INTPRET
034451,000319: 33,2330 77624 CALL
034452,000320: 33,2331 27466 AVETOMID
034453,000321: 33,2332 43014 BON BOFF
034454,000322: 33,2333 00310 RNDVZFLG
034455,000323: 33,2334 66350 AVG2.7
034456,000324: 33,2335 00346 P25FLAG
034457,000325: 33,2336 66344 GRP2OFF
034458,000326: 33,2337 77776 EXIT
034459,000327:
034460,000328: 33,2340 05423 TC PHASCHNG
034461,000329: 33,2341 40112 OCT 40112
034462,000330:
034463,000331: 33,2342 31262 AVERTRN CA OUTROUTE # RETURN TO DESIRED POINT.
034464,000332: 33,2343 04677 TC BANKJUMP
034465,000333:
034466,000334: 33,2344 77776 GRP2OFF EXIT
034467,000335: 33,2345 05423 TC PHASCHNG
034468,000336: 33,2346 00002 OCT 00002
034469,000337: 33,2347 12342 TCF AVERTRN
034470,000338:
034471,000339: 33,2350 77776 AVG2.7 EXIT
034472,000340: 33,2351 05423 TC PHASCHNG
034473,000341: 33,2352 40072 OCT 40072
034474,000342: 33,2353 12342 TCF AVERTRN
034475,000343:
034476,000344: 33,2354 33,2342 OUTGOAVE = AVERTRN
034477,000345:
034478,000346: 33,2354 E7,1555 DVCNTR1 = MASS1
034479,000347:
034480,000348: 33,2354 05423 SERVEXIT TC PHASCHNG
034481,000349: 33,2355 00035 OCT 00035
034482,000350:
034483,000351: 33,2356 15225 +2 TCF ENDOFJOB
034484,000352:
034485,000353: 33,2357 66356 ENDJBCAD CADR SERVEXIT +2
034486,000354:
034487,000355: # NORMLIZE AND COPYCYCL
034488,000356:
034489,000357: 33,2360 06014 NORMLIZE TC INTPRET
034490,000358: 33,2361 77745 DLOAD
034491,000359: 33,2362 01244 MASS
034492,000360: 33,2363 27556 STOVL MASS1
034493,000361: 33,2364 06231 UNITX
034494,000362: 33,2365 03461 STORE UASTEER
034495,000363: 33,2366 77214 BOFF VLOAD
034496,000364: 33,2367 03347 MUNFLAG
034497,000365: 33,2370 66413 NORMLIZ1
034498,000366: 33,2371 03540 VN1
034499,000367: 33,2372 76521 MXV VSL1
034500,000368: 33,2373 01736 REFSMMAT
034501,000369: 33,2374 27504 STOVL V
034502,000370: 33,2375 03532 RN1
034503,000371: 33,2376 52521 MXV VSL6
034504,000372: 33,2377 01736 REFSMMAT
034505,000373: 33,2400 37476 STCALL R
034506,000374: 33,2401 67203 MUNGRAV
034507,000375: 33,2402 77214 BON VLOAD
034508,000376: 33,2403 04702 FLP70
034509,000377: 33,2404 66411 ASCSPOT
034510,000378: 33,2405 03504 V
034511,000379: 33,2406 53435 VXV UNIT
034512,000380: 33,2407 03476 R
034513,000381: 33,2410 03707 STORE UHYP
034514,000382: 33,2411 77776 ASCSPOT EXIT
034515,000383: 33,2412 12417 TCF NORMLIZ2
034516,000384:
034517,000385: 33,2413 45175 NORMLIZ1 VLOAD CALL
034518,000386: 33,2414 03532 RN1
034519,000387: 33,2415 67013 CALCGRAV
034520,000388: 33,2416 77776 EXIT
034521,000389:
034522,000390: 33,2417 02421 NORMLIZ2 TC COPYCYC
034523,000391: 33,2420 05225 TC ENDOFJOB
034524,000392:
034525,000393:
034526,000394: 33,2421 00006 COPYCYC EXTEND
034527,000395: 33,2422 22157 QXCH COPEXIT
034528,000396: 33,2423 34374 CAF OCT25
034529,000397: 33,2424 05626 TC GENTRAN
034530,000398: 33,2425 01531 ADRES RN1
034531,000399: 33,2426 01217 ADRES RN
034532,000400: 33,2427 00157 TC COPEXIT
034533,000401:
034534,000402: 33,2430 0157 COPEXIT = MPAC +3
034535,000403:
034536,000404: # ******************* PIPA READER ********************
034537,000405:
034538,000406: # MOD NO. 00 BY D. LICKLY DEC.9 1966
034539,000407:
034540,000408:
034541,000409: # FUNCTIONAL DESCRIPTION
034542,000410:
034543,000411: # SUBROUTINE TO READ PIPA COUNTERS, TRYING TO BE VERY CAREFUL SO THAT IT WILL BE RESTARTABLE.
034544,000412: # PIPA READINGS ARE STORED IN THE VECTOR DELV. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS THE PIPA READING,
034545,000413: # RESTARTS BEGIN AT REREADAC.
034546,000414:
034547,000415:
034548,000416: # AT THE END OF THE PIPA READER THE CDUS ARE READ AND STORED AS A
034549,000417: # VECTOR IN CDUTEMP. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS
034550,000418: # THE CDU READING IN 2S COMP IN THE ORDER CDUX,Y,Z. THE THRUST
034551,000419: # VECTOR ESTIMATOR IN FINDCDUD REQUIRES THE CDUS BE READ AT PIPTIME.
034552,000420:
034553,000421: # CALLING SEQUENCE AND EXIT
034554,000422:
034555,000423: # CALL VIA TC, ISWCALL, ETC.
034556,000424:
034557,000425: # EXIT IS VIA Q.
034558,000426:
034559,000427:
034560,000428:
034561,000429:
034562,000430: # INPUT
034563,000431:
034564,000432: # INPUT IS THROUGH THE COUNTERS PIPAX, PIPAY, PIPAZ, AND TIME2.
034565,000433:
034566,000434:
034567,000435: # OUTPUT
034568,000436:
034569,000437: # HIGH ORDER COMPONENTS OF THE VECTOR DELV CONTAIN THE PIPA READINGS.
034570,000438: # PIPTIME CONTAINS TIME OF PIPA READING.
034571,000439:
034572,000440:
034573,000441: # DEBRIS (ERASABLE LOCATIONS DESTROYED BY PROGRAM)
034574,000442:
034575,000443: # TEMX TEMY TEMZ PIPAGE
034576,000444:
034577,000445: 33,2430 00006 PIPASR EXTEND
034578,000446:
034579,000447: 33,2431 30025 DCA TIME2
034580,000448: 33,2432 53546 DXCH PIPTIME1 # CURRENT TIME POSITIVE VALUE
034581,000449: 33,2433 45030 +3 CS ZERO # INITIALIZE THESE AT NEG. ZERO.
034582,000450: 33,2434 55254 TS TEMX
034583,000451: 33,2435 55255 TS TEMY
034584,000452: 33,2436 55256 TS TEMZ
034585,000453:
034586,000454: 33,2437 35030 CA ZERO
034587,000455: 33,2440 55215 TS DELVZ # OTHER DELVS OK INCLUDING LOW ORDER
034588,000456: 33,2441 55213 TS DELVY
034589,000457: 33,2442 55261 TS PIPAGE # SHOW PIPA READING IN PROGRESS
034590,000458:
034591,000459: 33,2443 00006 REPIP1 EXTEND
034592,000460: 33,2444 40040 DCS PIPAX # X AND Y PIPS READ
034593,000461: 33,2445 53255 DXCH TEMX
034594,000462: 33,2446 52040 DXCH PIPAX # PIPAS SET TO NEG ZERO AS READ.
034595,000463: 33,2447 55211 TS DELVX
034596,000464: 33,2450 23213 LXCH DELVY
034597,000465:
034598,000466: 33,2451 40041 REPIP3 CS PIPAZ # REPEAT PROCESS FOR Z PIP
034599,000467: 33,2452 57256 XCH TEMZ
034600,000468: 33,2453 56041 XCH PIPAZ
034601,000469: 33,2454 55215 DODELVZ TS DELVZ
034602,000470:
034603,000471: 33,2455 30032 REPIP4 CA CDUX # READ CDUS INTO HIGH ORDER CDUTEMPS
034604,000472: 33,2456 55167 TS CDUTEMPX
034605,000473: 33,2457 30033 CA CDUY
034606,000474: 33,2460 55170 TS CDUTEMPY
034607,000475: 33,2461 30034 CA CDUZ
034608,000476: 33,2462 55171 TS CDUTEMPZ
034609,000477: 33,2463 31211 CA DELVX
034610,000478: 33,2464 55172 TS PIPATMPX
034611,000479: 33,2465 31213 CA DELVY
034612,000480: 33,2466 55173 TS PIPATMPY
034613,000481: 33,2467 31215 CA DELVZ
034614,000482: 33,2470 55174 TS PIPATMPZ
034615,000483:
034616,000484: 33,2471 00002 TC Q
034617,000485:
034618,000486:
034619,000487: 33,2472 10763 REREADAC CCS PHASE5
034620,000488: 33,2473 12475 TCF +2
034621,000489: 33,2474 15331 TCF TASKOVER
034622,000490:
034623,000491: 33,2475 11261 CCS PIPAGE
034624,000492: 33,2476 12042 TCF READACCS # PIP READING NOT STARTED. GO TO BEGINNING
034625,000493:
034626,000494:
034627,000495: 33,2477 32535 CAF DONEADR # SET UP RETURN FROM PIPASR
034628,000496: 33,2500 54002 TS Q
034629,000497:
034630,000498: 33,2501 11215 CCS DELVZ
034631,000499: 33,2502 12455 TCF REPIP4 # Z DONE, GO DO CDUS
034632,000500: 33,2503 12506 TCF +3 # Z NOT DONE, CHECK Y.
034633,000501: 33,2504 12455 TCF REPIP4
034634,000502: 33,2505 12455 TCF REPIP4
034635,000503:
034636,000504: 33,2506 22007 ZL
034637,000505: 33,2507 11213 CCS DELVY
034638,000506: 33,2510 12513 TCF +3
034639,000507: 33,2511 12522 TCF CHKTEMX # Y NOT DONE, CHECK X.
034640,000508: 33,2512 12513 TCF +1
034641,000509: 33,2513 22041 LXCH PIPAZ # Y DONE, ZERO Z PIP.
034642,000510:
034643,000511: 33,2514 11256 CCS TEMZ
034644,000512: 33,2515 41256 CS TEMZ # TEMZ NOT = -0, CONTAINS -PIPAZ VALUE.
034645,000513: 33,2516 12454 TCF DODELVZ
034646,000514: 33,2517 12515 TCF -2
034647,000515: 33,2520 23215 LXCH DELVZ # TEMZ = -0, L HAS ZPIP VALUE.
034648,000516: 33,2521 12455 TCF REPIP4
034649,000517:
034650,000518: 33,2522 11254 CHKTEMX CCS TEMX # HAS THIS CHANGED
034651,000519: 33,2523 41254 CS TEMX # YES
034652,000520: 33,2524 12527 TCF +3 # YES
034653,000521: 33,2525 12523 TCF -2 # YES
034654,000522: 33,2526 12443 TCF REPIP1 # NO
034655,000523: 33,2527 55211 TS DELVX
034656,000524:
034657,000525: 33,2530 41255 CS TEMY
034658,000526: 33,2531 55213 TS DELVY
034659,000527:
034660,000528: 33,2532 45030 CS ZERO # ZERO X AND Y PIPS
034661,000529: 33,2533 52040 DXCH PIPAX # L STILL ZERO FROM ABOVE
034662,000530:
034663,000531: 33,2534 12451 TCF REPIP3
034664,000532:
034665,000533: 33,2535 02062 DONEADR GENADR PIPSDONE
034666,000534:
034667,000535: 33,2536 31170 TMPTOSPT CA CDUTEMPY # THIS SUBROUTINE, CALLED BY AN RTB FROM
034668,000536: 33,2537 54766 TS CDUSPOTY # INTERPRETIVE, LOADS THE CDUS CORRESPON-
034669,000537: 33,2540 31171 CA CDUTEMPZ # DING TO PIPTIME INTO THE CDUSPOT VECTOR.
034670,000538: 33,2541 54770 TS CDUSPOTZ
034671,000539: 33,2542 31167 CA CDUTEMPX
034672,000540: 33,2543 54772 TS CDUSPOTX
034673,000541: 33,2544 16035 TCF DANZIG
034674,000542:
034675,000543: # LRHTASK IS A WAITLIST TASK SET BY READACCS DURING THE DESCENT BRAKING
034676,000544: # PHASE WHEN THE ALT TO THE LUNAR SURFACE IS LESS THAN 25,000 FT. THIS
034677,000545: # TASK CLEARS THE ALTITUDE MEASUREMENT MADE DISCRETE AND INITIATES THE
034678,000546: # LANDING RADAR MEASUREMENT JOB (LRHJOB) TO TAKE A ALTITUDE MEASUREMENT
034679,000547: # 50 MS PRIOR TO THE NEXT READACCS TASK.
034680,000548:
034681,000549: 33,2545 35021 LRHTASK CA READLBIT
034682,000550: 33,2546 71263 MASK LRSTAT # IS READLR FLAG SET?
034683,000551: 33,2547 00006 EXTEND
034684,000552: 33,2550 15331 BZF TASKOVER # NO. BYPASS LR READ.
034685,000553:
034686,000554: 33,2551 41263 CS LRSTAT
034687,000555: 33,2552 75015 MASK NOLRRBIT # IS LR READ INHIBITED?
034688,000556: 33,2553 00006 EXTEND
034689,000557: 33,2554 15331 BZF TASKOVER # YES. BYPASS LR READ.
034690,000558:
034691,000559: 33,2555 37672 CA PRIO32 # LR READ OK SET JOB TO DO IT
034692,000560: 33,2556 05142 TC NOVAC # ABOUT 50 MS PRIOR TO PIPA READ
034693,000561: 33,2557 E7,1672 EBANK= HMEAS
034694,000562: 33,2557 03624 66067 2CADR LRHJOB
034695,000563:
034696,000564: 33,2561 05331 TC TASKOVER
034697,000565:
034698,000566:
034699,000567: # HIGATASK IS ENTERED APPROXIMATELY 6 SECS PRIOR TO HIGATE DURING THE
034700,000568: # DESCENT PHASE. HIGATASK SETS THE HIGATE FLAG (BIT11) AND THE LR INHIBIT
034701,000569: # FLAG (BIT10) IN LRSTAT. THE HIGATJOB IS SET UP TO REPOSITION THE LR
034702,000570: # ANTENNA FROM POSITION 1 TO POSITION 2. IF THE REPOSITIONING IS
034703,000571: # SUCCESSFUL THE ALT BEAM AND VELOCITY BEAMS ARE TRANSFORMED TO THE NEW
034704,000572: # ORIENTATION IN NB COORDINATES AND STORED IN ERASABLE.
034705,000573:
034706,000574: 33,2562 00004 HIGATASK INHINT
034707,000575: 33,2563 45065 CS PRIO3 # SET HIGATE AND LR INHIBIT FLAGS
034708,000576: 33,2564 71263 MASK LRSTAT
034709,000577: 33,2565 65065 AD PRIO3
034710,000578: 33,2566 55263 TS LRSTAT
034711,000579: 33,2567 37672 CAF PRIO32
034712,000580: 33,2570 05155 TC FINDVAC # SET LR POSITIONING JOB (POS2)
034713,000581: 33,2571 E7,1672 EBANK= HMEAS
034714,000582: 33,2571 03656 66067 2CADR HIGATJOB
034715,000583: 33,2573 00003 RELINT
034716,000584: 33,2574 12644 TCF CONTSERV # CONTINUE SERVICER
034717,000585:
034718,000586: # MUNRETRN IS THE RETURN LOC FROM SPECIAL AVE G ROUTINE (MUNRVG)
034719,000587:
034720,000588: 33,2575 77776 MUNRETRN EXIT
034721,000589:
034722,000590: 33,2576 35016 CAF XORFLBIT # WERE WE BELOW 30000 FT LAST PASS?
034723,000591: 33,2577 71263 MASK LRSTAT
034724,000592: 33,2600 00006 EXTEND
034725,000593: 33,2601 12764 BZF XORCHK # NO - TEST THIS PASS
034726,000594:
034727,000595: 33,2602 41263 CS LRSTAT
034728,000596: 33,2603 75010 MASK LRBYBIT
034729,000597: 33,2604 00006 EXTEND
034730,000598: 33,2605 12650 BZF COPYCYC1 # BYPASS LR LOGIC IF BIT15 IS SET.
034731,000599:
034732,000600: 33,2606 35021 CA READLBIT # SEE IF ALT < 35000 FT LAST CYCLE
034733,000601: 33,2607 71263 MASK LRSTAT
034734,000602: 33,2610 00006 EXTEND
034735,000603: 33,2611 12775 BZF 25KCHK # ALT WAS > 35000 FT LAST CYCLE CHK NOW
034736,000604:
034737,000605: 33,2612 35014 HITEST CAF PSTHIBIT # CHECK FOR HIGATE
034738,000606: 33,2613 71263 MASK LRSTAT
034739,000607: 33,2614 00006 EXTEND
034740,000608: 33,2615 12631 BZF HIGATCHK # NOT AT HIGATE LAST CYCLE-CHK THIS CYCLE
034741,000609:
034742,000610: 33,2616 35020 POS2CHK CAF BIT7 # VERIFY LR IN POS2
034743,000611: 33,2617 00006 EXTEND
034744,000612: 33,2620 02033 RAND CHAN33
034745,000613: 33,2621 00006 EXTEND
034746,000614: 33,2622 13261 BZF UPDATCHK # IT IS-CHECK FOR LR UPDATE
034747,000615: 33,2623 35012 CAF BIT13 # NOT IN POS2-MAYBE REPOSITIONING
034748,000616: 33,2624 00006 EXTEND
034749,000617: 33,2625 02012 RAND CHAN12
034750,000618: 33,2626 00006 EXTEND
034751,000619: 33,2627 12642 BZF LRPOSALM # LR NOT IN POS2 OR REPOSITIONING-BAD
034752,000620: 33,2630 12644 TCF CONTSERV # LR BEING REPOSITIONED-CONTINUE SERV
034753,000621:
034754,000622: 33,2631 41635 HIGATCHK CS TTF/8 # IS TTF > CRITERION?
034755,000623: 33,2632 63221 AD RPCRTIME
034756,000624:
034757,000625: 33,2633 00006 EXTEND
034758,000626: 33,2634 62562 BZMF HIGATASK # IF UXBXP > QSW, THEN REPOSITION
034759,000627:
034760,000628: 33,2635 35021 POS1CHK CAF BIT6 # HIGATE NOT IN SIGHT-DO POS1 CHK
034761,000629: 33,2636 00006 EXTEND
034762,000630: 33,2637 02033 RAND 33
034763,000631: 33,2640 00006 EXTEND
034764,000632: 33,2641 13261 BZF UPDATCHK # LR IN POS1-CHECK FOR LR UPDATE
034765,000633:
034766,000634: 33,2642 05651 LRPOSALM TC ALARM # LR NOT IN PROPER POS-ALARM-BYPASS UPDATE
034767,000635: 33,2643 00511 OCT 511 # AND CONTINUE SERVICER
034768,000636: 33,2644 00004 CONTSERV INHINT
034769,000637: 33,2645 43260 CS BITS4-7
034770,000638: 33,2646 71263 MASK LRSTAT # CLEAR LR MEASUREMENT MADE DISCRETES.
034771,000639: 33,2647 55263 TS LRSTAT
034772,000640:
034773,000641: 33,2650 05423 COPYCYC1 TC PHASCHNG
034774,000642: 33,2651 10035 OCT 10035
034775,000643:
034776,000644: 33,2652 06014 TC INTPRET # INTPRET DOES A RELINT.
034777,000645: 33,2653 61375 VLOAD VXM
034778,000646: 33,2654 03566 V1S
034779,000647: 33,2655 01736 REFSMMAT
034780,000648: 33,2656 77772 VSL1
034781,000649: 33,2657 03540 STORE VN1 # TEMP. REF. VELOCITY VECTOR*2(7)M/CS.
034782,000650: 33,2660 77646 ABVAL
034783,000651: 33,2661 27516 STOVL ABVEL
034784,000652: 33,2662 03560 R1S
034785,000653: 33,2663 60505 VXM VSR4
034786,000654: 33,2664 01736 REFSMMAT
034787,000655: 33,2665 03532 STORE RN1 # TEMP. REF. POSITION VECTOR*2(29)M.
034788,000656: 33,2666 77656 UNIT
034789,000657: 33,2667 01760 STORE UNITR
034790,000658: 33,2670 47014 BOFF RTB
034791,000659: 33,2671 04742 FLP70
034792,000660: 33,2672 66674 +2
034793,000661: 33,2673 66731 COPYCYC3
034794,000662: 33,2674 53575 VLOAD UNIT
034795,000663: 33,2675 03560 R1S
034796,000664: 33,2676 76435 VXV VSL1
034797,000665: 33,2677 03707 UHYP
034798,000666: 33,2700 27715 STOVL UHZP # DOWNRANGE HALF-UNIT VECTOR FOR R10.
034799,000667: 33,2701 03622 WM
034800,000668: 33,2702 72435 VXV VSL2
034801,000669: 33,2703 03560 R1S
034802,000670: 33,2704 17725 STODL DELVS
034803,000671: 33,2705 00045 36D
034804,000672: 33,2706 77625 DSU
034805,000673: 33,2707 02023 /LAND/
034806,000674: 33,2710 03512 STORE HCALC # NEW HCALC*2(24)M.
034807,000675: 33,2711 77605 DMP
034808,000676: 33,2712 27137 ALTCONV
034809,000677: 33,2713 27736 STOVL ALTBITS # ALTITUDE FOR R10 IN BIT UNITS.
034810,000678: 33,2714 03566 V1S
034811,000679: 33,2715 56236 VSQ DDV
034812,000680: 33,2716 00045 36D
034813,000681: 33,2717 75205 DMP SIGN
034814,000682: 33,2720 27141 ARCONV1
034815,000683: 33,2721 03520 HDOTDISP
034816,000684: 33,2722 77776 COPYCYC2 EXIT # LEAVE ALTITUDE RATE COMPENSATION IN MPAC
034817,000685: 33,2723 35031 CAF FIVE
034818,000686: 33,2724 05626 TC GENTRAN
034819,000687: 33,2725 01523 ADRES UNIT/R/
034820,000688: 33,2726 01737 ADRES RUNIT
034821,000689:
034822,000690: 33,2727 30154 CA MPAC
034823,000691: 33,2730 55757 TS DALTRATE
034824,000692:
034825,000693: 33,2731 35033 COPYCYC3 CAF ELEVEN
034826,000694: 33,2732 05626 TC GENTRAN
034827,000695: 33,2733 01557 ADRES R1S
034828,000696: 33,2734 01475 ADRES R
034829,000697:
034830,000698: 33,2735 55172 TS PIPATMPX
034831,000699: 33,2736 55173 TS PIPATMPY
034832,000700: 33,2737 55174 TS PIPATMPZ
034833,000701:
034834,000702: 33,2740 12213 TCF COPYCYCL # COMPLETE THE COYPCYCL.
034835,000703:
034836,000704: # ALTCHK COMPARES CURRENT ALTITUDE (IN HCALC) WITH A SPECIFIED ALTITUDE FROM A TABLE BEGINNING AT ALTCRIT.
034837,000705: # ITS CALLING SEQUENCE IS AS FOLLOWS:-
034838,000706:
034839,000707: # L CAF N
034840,000708: # L+1 TC BANKCALL
034841,000709: # L+2 CADR ALTCHK
034842,000710: # L+3 RETURN HERE IF HCALC STILL > SPECIFIED CRITERION. C(L) = +0.
034843,000711: # L+4 RETURN HERE IF HCALC < OR = SPECIFIED CRITERION. C(A) = C(L) = +0
034844,000712:
034845,000713: # ALTCHK MUST BE BANKCALLED EVEN FROM ITS OWN BANK. N IS THE LOCATION, RELATIVE TO THE TAG ALTCRIT,
034846,000714: # OF THE BEGINNING OF THE DP CONSTANT TO BE USED AS A CRITERION.
034847,000715:
034848,000716: 33,2741 00006 ALTCHK EXTEND
034849,000717: 33,2742 50000 INDEX A
034850,000718: 33,2743 32755 DCA ALTCRIT
034851,000719: 33,2744 52156 DXCH MPAC +1
034852,000720: 33,2745 00006 EXTEND
034853,000721: 33,2746 41512 DCS HCALC
034854,000722: 33,2747 20156 DAS MPAC +1
034855,000723: 33,2750 06703 TC BRANCH +4
034856,000724: 33,2751 35030 CAF ZERO # BETTER THAN A NOOP, PERHAPS
034857,000725: 33,2752 24133 INCR BUF2
034858,000726: 33,2753 14670 TCF SWRETURN
034859,000727:
034860,000728: 33,2754 33,2754 ALTCRIT = 25KFT
034861,000729:
034862,000730: 33,2754 00007 16100 25KFT 2DEC 7620 B-24 # (0)
034863,000731: 33,2756 00004 16700 15KFT 2DEC 4572 B-24 # (2)
034864,000732: 33,2760 00000 00364 50FT 2DEC 15.24 B-24 # (4)
034865,000733: 33,2762 00010 35600 30KFT 2DEC 9144 B-24 # (6)
034866,000734:
034867,000735:
034868,000736: 33,2764 36216 XORCHK CAF SIX # ARE WE BELOW 30000 FT?
034869,000737: 33,2765 04655 TC BANKCALL
034870,000738: 33,2766 66741 CADR ALTCHK
034871,000739: 33,2767 12644 TCF CONTSERV # CONTINUE LR UPDATE
034872,000740: 33,2770 05566 TC UPFLAG # YES: INHIBIT X-AXIS OVERRIDE
034873,000741: 33,2771 17140 CADR XOVINFLG
034874,000742: 33,2772 05566 TC UPFLAG
034875,000743: 33,2773 22377 CADR XORFLG
034876,000744: 33,2774 12644 TCF CONTSERV # CONTINUE LR UPDATE
034877,000745:
034878,000746:
034879,000747: 33,2775 35030 25KCHK CAF ZERO # ARE WE BELOW 25000 FT?
034880,000748:
034881,000749: 33,2776 04655 TC BANKCALL
034882,000750: 33,2777 66741 CADR ALTCHK
034883,000751: 33,3000 12644 TCF CONTSERV
034884,000752: 33,3001 35021 CAF READLBIT # SET READLR FLAG TO ENABLE LR READING.
034885,000753: 33,3002 27263 SETLRSTT ADS LRSTAT
034886,000754: 33,3003 12644 TCF CONTSERV
034887,000755:
034888,000756: 33,3004 35025 15KCHK CAF TWO # ARE WE BELOW 15000 FT?
034889,000757:
034890,000758: 33,3005 04655 TC BANKCALL
034891,000759: 33,3006 66741 CADR ALTCHK
034892,000760: 33,3007 12644 TCF CONTSERV
034893,000761: 33,3010 23661 LXCH VSELECT
034894,000762: 33,3011 35022 CAF READVBIT
034895,000763: 33,3012 13002 TCF SETLRSTT
034896,000764:
034897,000765: # *********************************************************************************************************
034898,000766:
034899,000767:
034900,000768: 33,3013 63256 CALCGRAV UNIT PDVL # SAVE UNIT/R/ IN PUSHLIST (18)
034901,000769: 33,3014 06233 ZEROVECS
034902,000770: 33,3015 27476 STOVL UNITGOBL
034903,000771: 33,3016 41560 AXC,1 PUSH
034904,000772: 33,3017 00002 2
034905,000773: 33,3020 01760 STORE UNITR
034906,000774: 33,3021 74014 BON AXC,1
034907,000775: 33,3022 04304 LMOONFLG
034908,000776: 33,3023 67051 CALCGRV1
034909,000777: 33,3024 00000 0
034910,000778: 33,3025 41441 DOT PUSH
034911,000779: 33,3026 01714 UNITW
034912,000780: 33,3027 44316 DSQ BDSU
034913,000781: 33,3030 27127 DP1/20
034914,000782: 33,3031 56325 PDDL DDV
034915,000783: 33,3032 27131 RESQ
034916,000784: 33,3033 00043 34D # (RN)SQ
034917,000785: 33,3034 00041 STORE 32D # TEMP FOR (RE/RN)SQ
034918,000786: 33,3035 41205 DMP DMP
034919,000787: 33,3036 27133 20J
034920,000788: 33,3037 65361 VXSC PDDL
034921,000789: 33,3040 01760 UNITR
034922,000790: 33,3041 41205 DMP DMP
034923,000791: 33,3042 27135 2J
034924,000792: 33,3043 00041 32D
034925,000793: 33,3044 53361 VXSC VAD
034926,000794: 33,3045 01714 UNITW
034927,000795: 33,3046 77626 STADR
034928,000796: 33,3047 74301 STORE UNITGOBL
034929,000797: 33,3050 41455 VAD PUSH # MPAC = UNIT GRAVITY VECTOR. (18)
034930,000798: 33,3051 60345 CALCGRV1 DLOAD NORM # PERFORM A NORMALIZATION ON RMAGSQ IN
034931,000799: 33,3052 00043 34D # ORDER TO BE ABLE TO SCALE THE MU FOR
034932,000800: 33,3053 00050 X2 # MAXIMUM PRECISION.
034933,000801: 33,3054 53663 BDDV* SLR*
034934,000802: 33,3055 27121 -MUDT,1
034935,000803: 33,3056 56623 0 -21D,2
034936,000804: 33,3057 45561 VXSC STADR
034937,000805: 33,3060 74227 STORE GDT1/2 # SCALED AT 2(+7) M/CS
034938,000806: 33,3061 77616 RVQ
034939,000807:
034940,000808: 33,3062 61375 CALCRVG VLOAD VXM
034941,000809: 33,3063 01212 DELV
034942,000810: 33,3064 01736 REFSMMAT
034943,000811: 33,3065 76561 VXSC VSL1
034944,000812: 33,3066 27115 KPIP1
034945,000813: 33,3067 03504 STORE DELVREF
034946,000814: 33,3070 41562 VSR1 PUSH
034947,000815: 33,3071 41455 VAD PUSH # (DV-OLDGDT)/2 TO PD SCALED AT 2(+7)M/CS
034948,000816:
034949,000817: 33,3072 01236 GDT/2
034950,000818: 33,3073 65255 VAD PDDL # (18)
034951,000819: 33,3074 01226 VN
034952,000820: 33,3075 03546 PIPTIME1
034953,000821: 33,3076 54225 DSU SL
034954,000822: 33,3077 01234 PIPTIME
034955,000823: 33,3100 20207 6D
034956,000824: 33,3101 77761 VXSC
034957,000825: 33,3102 44055 VAD STQ
034958,000826: 33,3103 01220 RN
034959,000827: 33,3104 00037 31D
034960,000828: 33,3105 37532 STCALL RN1 # TEMP STORAGE OF RN SCALED 2(+29)M
034961,000829: 33,3106 67013 CALCGRAV
034962,000830:
034963,000831: 33,3107 53255 VAD VAD
034964,000832: 33,3110 77655 VAD
034965,000833: 33,3111 01226 VN
034966,000834: 33,3112 37540 STCALL VN1 # TEMP STORAGE OF VN SCALED 2(+7)M/CS
034967,000835: 33,3113 00037 31D
034968,000836:
034969,000837: 33,3114 00321 26706 KPIP1 2DEC .0128 # SCALES DELV TO UNITS OF 2(7) M/CS.
034970,000838: 33,3116 03215 27057 KPIP 2DEC .1024 # SCALES DELV TO UNITS OF 2(4) M/CS.
034971,000839:
034972,000840: # *** THE ORDER OF THE FOLLOWING TWO CONSTANTS MUST BE PRESERVED *********
034973,000841:
034974,000842: 33,3120 61377 55754 -MUDT 2DEC* -7.9720645 E+12 B-44*
034975,000843: 33,3122 77644 65556 -MUDT1 2DEC* -9.8055560 E+10 B-44*
034976,000844:
034977,000845: 33,3124 00000 31000 UNUSEDF3 2DEC 12800 B-28
034978,000846:
034979,000847: 33,3126 01463 06315 DP1/20 2DEC 0.05
034980,000848: 33,3130 00002 11777 RESQ 2DEC* 40.6809913 E12 B-58*
034981,000849: 33,3132 01023 37155 20J 2DEC 3.24692010 E-2
034982,000850: 33,3134 00065 06244 2J 2DEC 3.24692010 E-3
034983,000851: 33,3136 02633 26756 ALTCONV 2DEC 1.40206802 B-4 # CONVERTS M*2(-24) TO BIT UNITS *2(-28).
034984,000852: 33,3140 24402 26003 ARCONV1 2DEC 656.167979 B-10 # CONV. ALTRATE COMP. TO BIT UNITS<
034985,000853: 33,3142 31000 00000 1SEC(7) 2DEC 100 B-7
034986,000854: 33,3144 60763 72204 DPSVEX1 2DEC -3004.75757 E-2 B-6
034987,000855: 33,3146 60663 44215 APSVEX1 2DEC -3030.0259 E-2 B-6
034988,000856: 33,3150 30,3161 200B17 = 2SEC(17)
034989,000857:
034990,000858: # ****************************************************************************************************************
034991,000859:
034992,000860: # MUNRVG IS A SPECIAL AVERAGE G INTEGRATION ROUTINE USED BY THRUSTING
034993,000861: # PROGRAMS WHICH FUNCTION IN THE VICINITY OF AN ASSUMED SPHERICAL MOON.
034994,000862: # THE INPUT AND OUTPUT QUANTITIES ARE REFERENCED TO THE STABLE MEMBER
034995,000863: # COORDINATE SYSTEM.
034996,000864:
034997,000865: 33,3150 74375 MUNRVG VLOAD VXSC
034998,000866: 33,3151 01212 DELV
034999,000867: 33,3152 27217 KPIP2
035000,000868: 33,3153 53206 PUSH VAD # 1ST PUSH: DELV IN UNITS OF 2(8) M/CS
035001,000869: 33,3154 01236 GDT/2
035002,000870: 33,3155 53206 PUSH VAD # 2ND PUSH: (DELV + GDT)/2, UNITS OF 2(7)
035003,000871: 33,3156 03504 V # (12)
035004,000872: 33,3157 53361 VXSC VAD
035005,000873: 33,3160 21162 200B17
035006,000874: 33,3161 03476 R
035007,000875: 33,3162 37560 STCALL R1S # STORE R SCALED AT 2(+24)M.
035008,000876: 33,3163 67203 MUNGRAV
035009,000877:
035010,000878: 33,3164 53255 VAD VAD
035011,000879: 33,3165 77655 VAD # (0)
035012,000880: 33,3166 03504 V
035013,000881: 33,3167 03566 STORE V1S # STORE V SCALED AT 2(+7)M/CS.
035014,000882: 33,3170 77646 ABVAL
035015,000883: 33,3171 27514 STOVL ABVELINT # STORE SPEED FOR LR AND DISPLAYS.
035016,000884: 33,3172 03524 UNIT/R/
035017,000885: 33,3173 72441 DOT SL1
035018,000886: 33,3174 03566 V1S
035019,000887: 33,3175 17520 STODL HDOTDISP # HDOT = V. UNIT(R)*2(7)M/CS.
035020,000888: 33,3176 00045 36D
035021,000889: 33,3177 77625 DSU
035022,000890: 33,3200 02023 /LAND/
035023,000891: 33,3201 37512 STCALL HCALC # FOR NOW, DISPLAY WHETHER POS OR NEG
035024,000892: 33,3202 66575 MUNRETRN
035025,000893: 33,3203 77656 MUNGRAV UNIT # AT 36D HAVE ABVAL(R), AT 34D R.R
035026,000894: 33,3204 17524 STODL UNIT/R/
035027,000895: 33,3205 00043 34D
035028,000896: 33,3206 55301 NORM BDDV
035029,000897: 33,3207 00050 X2
035030,000898: 33,3210 27123 -MUDT1
035031,000899: 33,3211 74257 SLR* VXSC
035032,000900: 33,3212 56611 0 -11D,2
035033,000901: 33,3213 03524 UNIT/R/
035034,000902: 33,3214 03550 STORE GDT1/2 # 1/2GDT SCALED AT 2(7) M/CS.
035035,000903: 33,3215 77616 RVQ
035036,000904:
035037,000905: 33,3216 00150 33343 KPIP2 2DEC .0064 # SCALES DELV TO UNITS OF 2(8) M/CS.
035038,000906: 33,3220 00303 1.95SECS DEC 195 B-14
035039,000907: 33,3221 77664 RPCRTIME DEC -6 E2 B-17
035040,000908: 33,3222 05463 06315 0.175 2DEC 0.175
035041,000909: 33,3224 04753 20510 0.155 2DEC 0.155
035042,000910: 33,3226 35056 21351 LRWH 2DEC 0.4545454545 B1
035043,000911: 33,3230 76643 50641 VSCAL3 2DEC -4.72441006 B-7 # 15.5 FT/SEC AT 2(7) M/CS
035044,000912: 33,3232 00004 34035 6.25 2DEC .01905 B-6 # 6.25 FT/SEC AT 2(6) M/CS
035045,000913: 33,3234 00012 15300 LRHMAX 2DEC 170688 B-28
035046,000914: 33,3236 00014 20000 2SEC(18) 2DEC 200 B-18
035047,000915: 33,3240 00000 00310 2SEC(28) 2OCT 00000 00310 # 2SEC AT 2(28)
035048,000916:
035049,000917: 33,3242 65363 64451 HSCAL 2DEC -.3288792 # SCALES 1.079 FT/BIT TO 2(22)M.
035050,000918:
035051,000919: # ***** THE SEQUENCE OF THE FOLLOWING CONSTANTS MUST BE PRESERVED ********
035052,000920: 33,3244 21241 03216 VZSCAL 2DEC +.5410829105 # SCALES .8668 FT/SEC/BIT TO 2(18) M/CS.
035053,000921: 33,3246 30153 23101 VYSCAL 2DEC +.7565672446 # SCALES 1.212 FT/SEC/BIT TO 2(18) M/CS.
035054,000922: 33,3250 63105 61733 VXSCAL 2DEC -.4020043770 # SCALES -.644 FT/SEC/BIT TO 2(18) M/CS.
035055,000923:
035056,000924: 33,3252 26314 31463 LRWVZ 2DEC 0.7
035057,000925: 33,3254 26314 31463 LRWVY 2DEC 0.7
035058,000926: 33,3256 14631 23146 LRWVX 2DEC 0.4
035059,000927:
035060,000928: 33,3260 00110 BITS4-7 OCT 110
035061,000929:
035062,000930: # LRSTAT BIT DEFINITIONS
035063,000931: 33,3261 5010 LRBYBIT = BIT15 # LR UPDATE BYPASS FLAG
035064,000932: 33,3261 5014 PSTHIBIT = BIT11 # PAST HIGATE FLAG
035065,000933: 33,3261 5015 NOLRRBIT = BIT10 # LANDING RADAR REPOSITIONING FLAG
035066,000934: 33,3261 5016 XORFLBIT = BIT9 # X-AXIS OVERRIDE LIMIT FLAG
035067,000935: 33,3261 5020 VELDABIT = BIT7 # LR VELOCITY MEASUREMENT MADE FLAG
035068,000936: 33,3261 5021 READLBIT = BIT6 # OK TO READ LR RANGE DATA FLAG
035069,000937: 33,3261 5022 READVBIT = BIT5 # OK TO READ LR VELOCITY DATA FLAG
035070,000938: 33,3261 5023 RNGEDBIT = BIT4 # LR ALTITUDE MEASUREMENT MADE FLAG
035071,000939:
035072,000940: # THE FOLLOWING DEFINITIONS ALLOW LRSTAT AND
035073,000941: 33,3261 XOVINFLG = 11872D # X-AXIS OVERRIDE FLAG
035074,000942: 33,3261 LRBYPASS = 13561D # LANDING RADAR BYPASS FLAG
035075,000943: 33,3261 XORFLG = 13567D # X-AXIS OVERRIDE LIMIT FLAG
035076,000944:
035077,000945: 33,3261 35015 UPDATCHK CAF NOLRRBIT # SEE IF LR UPDATE INHIBITED.
035078,000946: 33,3262 71263 MASK LRSTAT
035079,000947: 33,3263 10000 CCS A
035080,000948: 33,3264 12644 TCF CONTSERV # IT IS-NO LR UPDATE
035081,000949: 33,3265 35023 CAF RNGEDBIT # NO INHIBIT - SEE ALT MEAS. THIS CYCLE.
035082,000950: 33,3266 71263 MASK LRSTAT
035083,000951: 33,3267 00006 EXTEND
035084,000952: 33,3270 13363 BZF VMEASCHK # NO ALT MEAS THIS CYCLE-CHECK FOR VEL
035085,000953:
035086,000954: 33,3271 06014 POSUPDAT TC INTPRET
035087,000955: 33,3272 61375 VLOAD VXM
035088,000956: 33,3273 03663 HBEAMNB # RANGE VECTOR IN NB COORDINATES AT 2(22)M
035089,000957: 33,3274 02150 XNBPIP # CONVERT TO SM COORDINATES AT 2(23)M
035090,000958: 33,3275 40372 VSL1 SETPD
035091,000959: 33,3276 00001 0
035092,000960: 33,3277 41241 DOT DMP
035093,000961: 33,3300 03524 UNIT/R/ # ALTITUDE AT 2(24)M
035094,000962: 33,3301 03673 HMEAS
035095,000963: 33,3302 41261 SL DMP
035096,000964: 33,3303 20207 6D
035097,000965: 33,3304 27243 HSCAL
035098,000966: 33,3305 41425 DSU PUSH
035099,000967: 33,3306 03512 HCALC
035100,000968: 33,3307 16425 STODL DELTAH
035101,000969: 33,3310 03512 HCALC
035102,000970: 33,3311 43205 DMP DAD
035103,000971: 33,3312 27223 0.175
035104,000972: 33,3313 26761 50FT
035105,000973: 33,3314 51525 PDDL ABS
035106,000974: 33,3315 02425 DELTAH
035107,000975: 33,3316 56204 BOVB DDV
035108,000976: 33,3317 57702 TCDANZIG
035109,000977: 33,3320 77776 EXIT
035110,000978:
035111,000979: 33,3321 24156 INCR LRLCTR
035112,000980: 33,3322 10121 CCS OVFIND
035113,000981: 33,3323 13563 TCF HFAIL # DELTA H TOO LARGE
035114,000982:
035115,000983: 33,3324 30075 CA FLAGWRD1
035116,000984: 33,3325 75026 MASK HINHFBIT
035117,000985: 33,3326 10000 CCS A
035118,000986: 33,3327 13363 TCF VMEASCHK # UPDATE INHIBITED - TEST VELOCITY ANYWAY
035119,000987:
035120,000988: 33,3330 06014 TC INTPRET # DO POSITION UPDATE
035121,000989:
035122,000990: 33,3331 56345 DLOAD DDV
035123,000991: 33,3332 03512 HCALC # RESCALE H TO 2(28)M
035124,000992: 33,3333 27235 LRHMAX
035125,000993: 33,3334 44204 BOVB BDSU
035126,000994: 33,3335 67363 VMEASCHK
035127,000995: 33,3336 17722 NEARONE
035128,000996: 33,3337 56205 DMP DDV
035129,000997: 33,3340 02425 DELTAH
035130,000998: 33,3341 27227 LRWH
035131,000999: 33,3342 53361 VXSC VAD
035132,001000: 33,3343 03524 UNIT/R/
035133,001001: 33,3344 03560 R1S
035134,001002: 33,3345 03675 STORE GNUR
035135,001003: 33,3346 77776 EXIT
035136,001004:
035137,001005: 33,3347 05423 TC PHASCHNG
035138,001006: 33,3350 10035 OCT 10035
035139,001007:
035140,001008: 33,3351 35031 CA FIVE
035141,001009: 33,3352 05626 TC GENTRAN
035142,001010: 33,3353 01674 ADRES GNUR
035143,001011: 33,3354 01557 ADRES R1S
035144,001012: 33,3355 00003 RELINT
035145,001013:
035146,001014: 33,3356 06014 TC INTPRET
035147,001015: 33,3357 45175 VLOAD CALL
035148,001016: 33,3360 03560 R1S
035149,001017: 33,3361 67203 MUNGRAV
035150,001018: 33,3362 77776 EXIT
035151,001019:
035152,001020: 33,3363 05423 VMEASCHK TC PHASCHNG # RESTART AT NEXT LOCATION
035153,001021: 33,3364 10035 OCT 10035
035154,001022: 33,3365 35020 CAF VELDABIT # IS V READING AVAILABLE?
035155,001023: 33,3366 71263 MASK LRSTAT
035156,001024: 33,3367 00006 EXTEND
035157,001025: 33,3370 13547 BZF VALTCHK # NO SEE IF V READING TO BE TAKEN
035158,001026:
035159,001027: 33,3371 41661 VELUPDAT CS VSELECT # PROCESS VELOCITY DATA
035160,001028: 33,3372 60000 DOUBLE
035161,001029: 33,3373 54001 TS L # -2 VSELECT IN L
035162,001030: 33,3374 60001 AD L
035163,001031: 33,3375 60001 AD L # -6 VSELECT IN A
035164,001032: 33,3376 50120 INDEX FIXLOC
035165,001033: 33,3377 52047 DXCH X1 # X1 = -6 VSELECT, X2 = -2 VSELECT
035166,001034:
035167,001035:
035168,001036: 33,3400 35014 CA EBANK4
035169,001037: 33,3401 54003 TS EBANK
035170,001038: 33,3402 E4,1662 EBANK= LRXCDU
035171,001039:
035172,001040: 33,3402 31665 CA PIPTEM # STORE DELV IN MPAC
035173,001041: 33,3403 22007 ZL
035174,001042: 33,3404 52155 DXCH MPAC
035175,001043:
035176,001044: 33,3405 31666 CA PIPTEM +1
035177,001045: 33,3406 22007 ZL
035178,001046: 33,3407 52160 DXCH MPAC +3
035179,001047:
035180,001048: 33,3410 31667 CA PIPTEM +2
035181,001049: 33,3411 22007 ZL
035182,001050: 33,3412 52162 DXCH MPAC +5
035183,001051:
035184,001052: 33,3413 31663 CA LRYCDU # STORE LRCDUS IN CDUSPOTS
035185,001053: 33,3414 54766 TS CDUSPOT
035186,001054: 33,3415 31664 CA LRZCDU
035187,001055: 33,3416 54770 TS CDUSPOT +2
035188,001056: 33,3417 31662 CA LRXCDU
035189,001057: 33,3420 54772 TS CDUSPOT +4
035190,001058:
035191,001059: 33,3421 45026 CS ONE
035192,001060: 33,3422 54163 TS MODE # CHANGE STORE MODE TO VECTOR
035193,001061:
035194,001062: 33,3423 35066 CA EBANK7
035195,001063: 33,3424 54003 TS EBANK # RESTORE EBANK 7
035196,001064: 33,3425 E7,1472 EBANK= DVCNTR
035197,001065:
035198,001066: 33,3425 30120 CA FIXLOC
035199,001067: 33,3426 54166 TS PUSHLOC # SET PD TO ZERO
035200,001068:
035201,001069: 33,3427 06014 TC INTPRET
035202,001070: 33,3430 45113 PDVL* CALL
035203,001071: 33,3431 02237 VZBEAMNB,1 # CONVERT VBEAM FROM NB TO SM
035204,001072: 33,3432 47472 TRG*NBSM
035205,001073: 33,3433 77715 PDVL
035206,001074: 33,3434 65361 VXSC PDDL
035207,001075: 33,3435 27115 KPIP1 # SCALE DELV TO 2(7) M/CS AND PUSH
035208,001076: 33,3436 02261 LRVTIME # TIME OF DELV AT 2(28)CS
035209,001077: 33,3437 56225 DSU DDV
035210,001078: 33,3440 01234 PIPTIME # TU - T(N-1)
035211,001079: 33,3441 27241 2SEC(28)
035212,001080: 33,3442 76561 VXSC VSL1 # G(N-1)(TU - T(N-1))
035213,001081: 33,3443 01236 GDT/2 # SCALED AT 2(7) M/CS
035214,001082: 33,3444 53255 VAD VAD # PUSH UP FOR DELV
035215,001083: 33,3445 03504 DELVREF
035216,001084: 33,3446 47315 PDVL VXV
035217,001085: 33,3447 03476 R
035218,001086: 33,3450 03622 WM
035219,001087: 33,3451 77655 VAD
035220,001088: 33,3452 65241 DOT PDDL
035221,001089: 33,3453 00001 0
035222,001090: 33,3454 03671 VMEAS
035223,001091: 33,3455 40661 SL DMP*
035224,001092: 33,3456 20213 10D
035225,001093: 33,3457 50532 VZSCAL,2
035226,001094: 33,3460 65225 DSU PDDL
035227,001095: 33,3461 00007 6
035228,001096: 33,3462 41246 ABS DMP
035229,001097: 33,3463 27225 0.155
035230,001098: 33,3464 65215 DAD PDDL
035231,001099: 33,3465 27233 6.25
035232,001100: 33,3466 00007 6
035233,001101: 33,3467 44246 ABS BDSU
035234,001102: 33,3470 77776 EXIT
035235,001103:
035236,001104: 33,3471 24156 INCR LRMCTR
035237,001105: 33,3472 06677 TC BRANCH
035238,001106: 33,3473 13517 TCF VUPDAT
035239,001107: 33,3474 13475 TCF VFAIL # DELTA V TOO LARGE ALARM
035240,001108:
035241,001109: 33,3475 40156 VFAIL CS LRSCTR # DELTA Q LARGE
035242,001110: 33,3476 00006 EXTEND # IF S = 0, DO NOT TURN ON TRACKER FAIL
035243,001111: 33,3477 13504 BZF NOLITE
035244,001112: 33,3500 60156 AD LRMCTR # M-S
035245,001113: 33,3501 77717 MASK NEG3 # TEST FOR M-S > 3
035246,001114: 33,3502 00006 EXTEND # IF M-S > 3, THEN TWO OR MORE OF THE
035247,001115: 33,3503 13504 BZF +1 # LAST FOUR V READINGS WERE BAD,
035248,001116: # TCF NOLITE # SO TURN ON VELOCITY FAIL LIGHT
035249,001117:
035250,001118: # TC UPFLAG # AND SET BIT TO TURN ON TRACKER FAIL LITE
035251,001119: # ADRES VFLSHFLG
035252,001120:
035253,001121: 33,3504 30156 NOLITE CA LRMCTR # SET S = M
035254,001122: 33,3505 54156 TS LRSCTR
035255,001123:
035256,001124: 33,3506 40074 CS FLAGWRD0
035257,001125: 33,3507 75015 MASK VORIDBIT
035258,001126: 33,3510 00006 EXTEND
035259,001127: 33,3511 13523 BZF VUPDAT1
035260,001128:
035261,001129: 33,3512 11661 CCS VSELECT # TEST FOR Z COMPONENT
035262,001130: 33,3513 13547 TCF VALTCHK # NOT Z, DO NOT SET VX INHIBIT
035263,001131:
035264,001132: 33,3514 35025 CAF TWO
035265,001133: 33,3515 55661 TS VSELECT
035266,001134: 33,3516 13547 TCF VALTCHK
035267,001135:
035268,001136: 33,3517 30074 VUPDAT CA FLAGWRD0
035269,001137: 33,3520 75014 MASK VINHFBIT
035270,001138: 33,3521 10000 CCS A
035271,001139: 33,3522 13547 TCF VALTCHK # UPDATE INHIBITED
035272,001140:
035273,001141: 33,3523 06014 VUPDAT1 TC INTPRET
035274,001142: 33,3524 56345 DLOAD DDV
035275,001143: 33,3525 03514 ABVELINT
035276,001144: 33,3526 27231 VSCAL3
035277,001145: 33,3527 43204 BOVB DAD
035278,001146: 33,3530 67547 VALTCHK
035279,001147: 33,3531 17722 NEARONE
035280,001148: 33,3532 41203 DMP* DMP
035281,001149: 33,3533 50524 LRWVZ,2
035282,001150: 33,3534 77761 VXSC
035283,001151: 33,3535 77655 VAD
035284,001152: 33,3536 03566 V1S # ADD WEIGHTED DELTA V TO VELOCITY
035285,001153: 33,3537 03675 STORE GNUV
035286,001154: 33,3540 77776 EXIT
035287,001155:
035288,001156: 33,3541 05423 TC PHASCHNG # DO NOT RE-UPDATE
035289,001157: 33,3542 10035 OCT 10035
035290,001158:
035291,001159: 33,3543 35031 CA FIVE
035292,001160: 33,3544 05626 TC GENTRAN # STORE NEW VELOCITY VECTOR
035293,001161: 33,3545 01674 ADRES GNUV
035294,001162: 33,3546 01565 ADRES V1S
035295,001163:
035296,001164: 33,3547 33,3547 ENDVDAT = VALTCHK
035297,001165:
035298,001166: 33,3547 05423 VALTCHK TC PHASCHNG # DO NOT REPEAT ABOVE
035299,001167: 33,3550 10035 OCT 10035
035300,001168:
035301,001169: 33,3551 35022 CAF READVBIT # TEST READVEL TO SEE IF VELOCITY READING
035302,001170: 33,3552 71263 MASK LRSTAT # IS DESIRED.
035303,001171: 33,3553 00006 EXTEND
035304,001172: 33,3554 13004 BZF 15KCHK # TES - READ VELOCITY
035305,001173:
035306,001174: 33,3555 00004 READV INHINT
035307,001175: 33,3556 37672 CAF PRIO32 # SET UP JOB TO READ VELOCITY BEAMS.
035308,001176: 33,3557 05142 TC NOVAC
035309,001177: 33,3560 E7,1672 EBANK= HMEAS
035310,001178: 33,3560 03576 66067 2CADR LRVJOB
035311,001179:
035312,001180: 33,3562 12644 TCF CONTSERV # CONTINUE WITH SERVICER
035313,001181:
035314,001182: 33,3563 40156 HFAIL CS LRRCTR
035315,001183: 33,3564 00006 EXTEND
035316,001184: 33,3565 13572 BZF NORLITE # IF R = 0, DO NOT TURN ON TRK FAIL
035317,001185: 33,3566 60156 AD LRLCTR
035318,001186: 33,3567 77717 MASK NEG3
035319,001187: 33,3570 00006 EXTEND # IF L-R LT 4, DO NOT TURN ON TRK FAIL
035320,001188: 33,3571 13572 BZF +1
035321,001189: # TCF NORLITE
035322,001190:
035323,001191: # TC UPFLAG # AND SET BIT TO TURN ON TRACKER FAIL LITE
035324,001192: # ADRES HFLSHFLG
035325,001193:
035326,001194: 33,3572 30156 NORLITE CA LRLCTR
035327,001195: 33,3573 54156 TS LRRCTR # SET R = L
035328,001196: 33,3574 54156 TS LRMCTR
035329,001197:
035330,001198: 33,3575 13363 TCF VMEASCHK
035331,001199:
035332,001200:
035333,001201: # ********************************************************************************************************
035334,001202: # LRVJOB IS SET WHEN THE LEM IS BELOW 15000 FT DURING THE LANDING PHASE
035335,001203: # THIS JOB INITIALIZES THE LANDING RADAR READ ROUTINE FOR 5 VELOCITY
035336,001204: # SAMPLES AND GOES TO SLEEP WHILE THE SAMPLING IS DONE-ABOUT 500 MS.
035337,001205: # WITH A GOODEND RETURN THE DATA IS STORED IN VMEAS AND BIT7 OF LRSTAT
035338,001206: # IS SET. THE GIMBAL ANGLES ARE READ ABOUT MIDWAY IN THE SAMPLING .
035339,001207:
035340,001208:
035341,001209: 33,3576 00004 LRVJOB INHINT
035342,001210: 33,3577 33740 CA 24MS # SET TASK TO READ CDUS + PIPAS
035343,001211: 33,3600 05252 TC WAITLIST
035344,001212: 33,3601 E4,1660 EBANK= LRVTIME
035345,001213: 33,3601 03640 66064 2CADR RDGIMS
035346,001214:
035347,001215: 33,3603 11661 CCS VSELECT # SEQUENCE LR VEL BEAM SELECTOR
035348,001216: 33,3604 13606 TCF +2
035349,001217: 33,3605 35025 CAF TWO # IF ZERO-RESET TO TWO
035350,001218: 33,3606 55661 TS VSELECT
035351,001219: 33,3607 60000 DOUBLE # 2XVSELECT USED FOR VBEAM INDEX IN LRVEL
035352,001220: 33,3610 04655 TC BANKCALL # GO INITIALIZE LR VEL READ ROUTINE
035353,001221: 33,3611 53061 CADR LRVEL
035354,001222: 33,3612 04655 TC BANKCALL # PUT LRVJOB TO SLEEP ABOUT 500 MS
035355,001223: 33,3613 17623 CADR RADSTALL
035356,001224: 33,3614 05225 TC ENDOFJOB
035357,001225:
035358,001226: 33,3615 00006 EXTEND # GOOD RETURN-STOW AWAY VMEAS
035359,001227: 33,3616 31105 DCA SAMPLSUM
035360,001228: 33,3617 53671 DXCH VMEAS
035361,001229:
035362,001230: 33,3620 41263 CS LRSTAT # SET BIT TO INDICATE VELOCITY
035363,001231: 33,3621 75020 MASK VELDABIT # MEASUREMENT MADE.
035364,001232: 33,3622 27263 ADS LRSTAT
035365,001233:
035366,001234: 33,3623 05225 TC ENDOFJOB
035367,001235:
035368,001236: # LRHJOB IS SET BY LRHTASK WHEN LEM IS BELOW 25000 FT. THIS JOB
035369,001237: # INITIALIZES THE LR READ ROUTINE FOR AN ALT MEASUREMENT AND GOES TO
035370,001238: # SLEEP WHILE THE SAMPLING IS DONE-ABOUT 95 MS. WITH A GOODEND RETURN
035371,001239: # THE ALT DATA IS STORED IN HMEAS AND BIT7 OF LRSTAT IS SET.
035372,001240:
035373,001241: 33,3624 04655 LRHJOB TC BANKCALL # INITIATE LR ALT MEASUREMENT
035374,001242: 33,3625 53045 CADR LRALT
035375,001243: 33,3626 04655 TC BANKCALL # LRHJOB TO SLEEP ABOUT 95MS
035376,001244: 33,3627 17623 CADR RADSTALL
035377,001245: 33,3630 05225 TC ENDOFJOB
035378,001246:
035379,001247: 33,3631 00006 EXTEND
035380,001248: 33,3632 31105 DCA SAMPLSUM # GOOD RETURN-STORE AWAY LRH DATA
035381,001249: 33,3633 53673 DXCH HMEAS # LRH DATA 1.079 FT/BIT
035382,001250:
035383,001251: 33,3634 41263 CS LRSTAT # SET BIT TO INDICATE RANGE
035384,001252: 33,3635 75023 MASK RNGEDBIT # MEASUREMENT MADE.
035385,001253: 33,3636 27263 ADS LRSTAT
035386,001254: 33,3637 05225 TC ENDOFJOB # TERMINATE LRHJOB
035387,001255:
035388,001256: # RDGIMS IS A TASK SET UP BY LRVJOB TO PICK UP THE IMU CDUS AND TIME
035389,001257: # AT ABOUT THE MIDPOINT OF THE LR VEL READ ROUTINE WHEN 5 VEL SAMPLES
035390,001258: # ARE SPECIFIED.
035391,001259:
035392,001260: 33,3640 E4,1660 EBANK= LRVTIME
035393,001261: 33,3640 00006 RDGIMS EXTEND
035394,001262: 33,3641 30025 DCA TIME2 # PICK UP TIME2,TIME1
035395,001263: 33,3642 53661 DXCH LRVTIME # AND SAVE IN LRVTIME
035396,001264:
035397,001265: 33,3643 00006 EXTEND
035398,001266: 33,3644 30033 DCA CDUX # PICK UP CDUX AND CDUY
035399,001267: 33,3645 53663 DXCH LRXCDU # AND SAVE IN LRXCDU AND LRYCDU
035400,001268:
035401,001269: 33,3646 30034 CA CDUZ
035402,001270: 33,3647 55664 TS LRZCDU # SAVE CDUZ IN LRZCDU
035403,001271:
035404,001272: 33,3650 30037 CA PIPAX
035405,001273: 33,3651 55665 TS PIPTEM # SAVE PIPAX IN PIPTEM
035406,001274:
035407,001275: 33,3652 00006 EXTEND
035408,001276: 33,3653 30041 DCA PIPAY # PICK UP PIPAY AND PIPAZ
035409,001277: 33,3654 53667 DXCH PIPTEM +1 # AND SAVE IN PIPTEM +1 AND PIPTEM +2
035410,001278: 33,3655 05331 TC TASKOVER
035411,001279:
035412,001280: # HIGATJOB IS SET APPROXIMATELY 6 SECONDS PRIOR TO HIGH GATE DURING
035413,001281: # THE DESCENT BURN PHASE OF LUNAR LANDING. THIS JOB INITIATES THE
035414,001282: # LANDING RADAR REPOSITIONING ROUTINE AND GOES TO SLEEP UNTIL THE
035415,001283: # LR ANTENNA MOVES FROM POSITION 1 TO POSITION 2. IF THE LR ANTENNA
035416,001284: # ACHIEVES POSITION 2 WITHIN 22 SECONDS THE ALTITUDE AND VELOCITY
035417,001285: # BEAM VECTORS ARE RECOMPUTED TO REFLECT THE NEW ORIENTATION WITH
035418,001286: # RESPECT TO THE NB. BIT10 OF LRSTAT IS CLEARED TO ALLOW LR
035419,001287: # MEASUREMENTS AND THE JOB TERMINATES.
035420,001288:
035421,001289: 33,3656 04655 HIGATJOB TC BANKCALL # START LRPOS2 JOB
035422,001290: 33,3657 53422 CADR LRPOS2
035423,001291: 33,3660 04655 TC BANKCALL # PUT HIGATJOB TO SLEEP UNTIL JOB IS DONE
035424,001292: 33,3661 17623 CADR RADSTALL
035425,001293: 33,3662 05225 TC ENDOFJOB # BAD END
035426,001294:
035427,001295: 33,3663 03676 TC SETPOS2 # LR IN POS2 - SET UP TRANSFORMATIONS
035428,001296:
035429,001297: 33,3664 45015 CS NOLRRBIT # RESET NOLRREAD FLAG TO ENABLE LR READING
035430,001298: 33,3665 71263 MASK LRSTAT
035431,001299: 33,3666 55263 TS LRSTAT
035432,001300: 33,3667 05225 TC ENDOFJOB
035433,001301:
035434,001302: 33,3670 04704 SETPOS1 TC MAKECADR # MUST BE CALLED BY BANKCALL
035435,001303: 33,3671 55674 TS LRADRET1 # SAVE RETURN CADR, SINCE BUF2 CLOBBERED
035436,001304:
035437,001305: 33,3672 35030 CA ZERO # INDEX FOR LRALPHA,LRBETA IN POS 1.
035438,001306:
035439,001307: # TS LRLCTR # SET L,M,R, ANS S TO ZERO
035440,001308: # TS LRMCTR
035441,001309: # TS LRRCTR
035442,001310: # TS LRSCTR
035443,001311: 33,3673 03677 TC SETPOS # CONTINUE WITH COMPUTATIONS
035444,001312:
035445,001313: 33,3674 31674 CA LRADRET1
035446,001314: 33,3675 04677 TC BANKJUMP # RETURN TO CALLER
035447,001315:
035448,001316:
035449,001317: 33,3676 35025 SETPOS2 CA TWO # INDEX FOR POS2
035450,001318: 33,3677 00006 SETPOS EXTEND
035451,001319: 33,3700 50000 INDEX A
035452,001320: 33,3701 31413 DCA LRALPHA # LRALPHA IN A, LRBETA IN L
035453,001321: 33,3702 54772 TS CDUSPOT +4 # ROTATION ABOUT X
035454,001322: 33,3703 22766 LXCH CDUSPOT # ROTATION ABOUT Y
035455,001323: 33,3704 35030 CA ZERO
035456,001324: 33,3705 54770 TS CDUSPOT +2 # ZERO ROTATION ABOUT Z.
035457,001325:
035458,001326: 33,3706 00006 EXTEND
035459,001327: 33,3707 23660 QXCH LRADRET # SAVE RETURN
035460,001328:
035461,001329: 33,3710 06014 TC INTPRET
035462,001330: 33,3711 45175 VLOAD CALL
035463,001331: 33,3712 06227 UNITY # CONVERT UNITY(ANTENNA) TO NB
035464,001332: 33,3713 47457 TRG*SMNB
035465,001333: 33,3714 26245 STOVL VYBEAMNB
035466,001334: 33,3715 06231 UNITX # CONVERT UNITX(ANTENNA) TO NB
035467,001335: 33,3716 77624 CALL
035468,001336: 33,3717 47477 *SMNB*
035469,001337: 33,3720 02253 STORE VXBEAMNB
035470,001338: 33,3721 76435 VXV VSL1
035471,001339: 33,3722 02245 VYBEAMNB
035472,001340: 33,3723 16237 STODL VZBEAMNB # Z = X * Y
035473,001341: 33,3724 03417 HANGLE
035474,001342: 33,3725 41434 RTB PUSH
035475,001343: 33,3726 21457 CDULOGIC
035476,001344: 33,3727 65356 SIN PDDL
035477,001345: 33,3730 65346 COS PDDL
035478,001346: 33,3731 06233 ZEROVECS
035479,001347: 33,3732 55525 PDDL VDEF
035480,001348: 33,3733 45076 VCOMP CALL
035481,001349: 33,3734 47477 *SMNB* # CONVERT TO NB
035482,001350: 33,3735 03663 STORE HBEAMNB
035483,001351: 33,3736 77776 EXIT
035484,001352: 33,3737 01660 TC LRADRET
035485,001353:
035486,001354: 33,3740 00030 24MS DEC 24 B-14
End of include-file SERVICER.agc. Parent file is MAIN.agc