Source Code
This is a reconstruction of the AGC program Luminary 99 Rev 0. It was the third release
of the Lunar Module flight software targeted for use in Apollo 11, after Luminary 96 and 97.
A bug (which had been around since at least Apollo 10, Luminary 69) was
discovered in Rev 0 shortly before the Apollo 11 flight, resulting in a last minute
revision into Rev 1,
which is what actually flew rather than
the Rev 0 presented here. A hardcopy of Rev 0 is known to
exist — it belonged to AGC developer Allan Klumpp for many years — but
unfortunately the Virtual AGC Project has not had access to that hardcopy. Thus
the code you see here had been reconstructed (we believe accurately) rather than
transcribed. The first step of the reconstruction of the Rev 0 source code was
the transcription of the Rev 1 source code from a hardcopy in the MIT Museum collection.
The process of reverting the active portion of the source code (i.e., other than
program comments) from Rev 1 to Rev 0 was very minor, consisting
only of moving the position of the STARTSB1 label in
FRESH START AND RESTART. Allan had previously given
us the checksums of the memory banks of Rev 0, and we have verified the program presented here has checksums
identical to all banks of Allan's listing of Rev 0. The notations on Allan's Rev 0 program listing read,
in part:GAP: ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-051 A single program comment is known to differ between Rev 0 and Rev 1, but these are harder to reconstruct and verify than changes to the active portion of the code. Thus it is possible that there are additional differences between the program comments in Rev 0 and Rev 1 that are unknown to us, and therefore are not reflected in the code presented here. |
038214,000002: ## Copyright: Public domain. 038215,000003: ## Filename: SERVICER.agc 038216,000004: ## Purpose: Part of the reconstructed source code for LMY99 Rev 0, 038217,000005: ## otherwise known as Luminary Rev 99, the third release 038218,000006: ## of the Apollo Guidance Computer (AGC) software for Apollo 11. 038219,000007: ## It differs from LMY99 Rev 1 (the flown version) only in the 038220,000008: ## placement of a single label. The corrections shown here have 038221,000009: ## been verified to have the same bank checksums as AGC developer 038222,000010: ## Allan Klumpp's copy of Luminary Rev 99, and so are believed 038223,000011: ## to be accurate. This file is intended to be a faithful 038224,000012: ## recreation, except that the code format has been changed to 038225,000013: ## conform to the requirements of the yaYUL assembler rather than 038226,000014: ## the original YUL assembler. 038227,000015: ## 038228,000016: ## Assembler: yaYUL 038229,000017: ## Reference: pp. 857-897 038230,000018: ## Contact: Ron Burkey <info@sandroid.org>, 038231,000019: ## Fabrizio Bernardini <fabrizio@spacecraft.it> 038232,000020: ## Website: http://www.ibiblio.org/apollo. 038233,000021: ## Mod history: 2009-06-01 FB Transcription Batch 4 Assignment. 038234,000022: ## 2009-06-05 RSB Fixed a couple of typos, plus a goofy relative 038235,000023: ## label reference from the original source. 038236,000024: ## 2011-01-06 JL Fixed pseudo-label indentation. 038237,000025: ## 2011-01-06 JL Fixed pseudo-labels which were incorrectly real labels. 038238,000026: ## 2016-12-13 RSB GOTOP00H -> GOTOPOOH 038239,000027: ## 2016-12-17 RSB Proofed text comments with octopus/ProoferComments 038240,000028: ## and corrected the errors found. 038241,000029: ## 2017-03-14 RSB Comment-text fixes noted in proofing Luminary 116. 038242,000030: ## 2017-03-16 RSB Comment-text fixes identified in 5-way 038243,000031: ## side-by-side diff of Luminary 69/99/116/131/210. 038244,000032: ## 2017-08-01 MAS Created from LMY99 Rev 1. 038245,000033: 038246,000034: ## This source code has been transcribed or otherwise adapted from 038247,000035: ## digitized images of a hardcopy from the MIT Museum. The digitization 038248,000036: ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of 038249,000037: ## the Museum. Many thanks to both. The images (with suitable reduction 038250,000038: ## in storage size and consequent reduction in image quality as well) are 038251,000039: ## available online at www.ibiblio.org/apollo. If for some reason you 038252,000040: ## find that the images are illegible, contact me at info@sandroid.org 038253,000041: ## about getting access to the (much) higher-quality images which Paul 038254,000042: ## actually created. 038255,000043: ## 038256,000044: ## The code has been modified to match LMY99 Revision 0, otherwise 038257,000045: ## known as Luminary Revision 99, the Apollo 11 software release preceeding 038258,000046: ## the listing from which it was transcribed. It has been verified to 038259,000047: ## contain the same bank checksums as AGC developer Allan Klumpp's listing 038260,000048: ## of Luminary Revision 99 (for which we do not have scans). 038261,000049: ## 038262,000050: ## Notations on Allan Klumpp's listing read, in part: 038263,000051: ## 038264,000052: ## ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-51 038265,000053:
Page 857 |
038267,000055: 37,3410 BANK 37 038268,000056: 37,2000 SETLOC SERV1 038269,000057: 37,2000 BANK 038270,000058: 038271,000059: 37,3410 E7,1515 EBANK= DVCNTR 038272,000060: 038273,000061: # ************************************* PREREAD ************************************************************** 038274,000062: 038275,000063: 37,3410 COUNT* $$/SERV 038276,000064: 038277,000065: 37,3410 34757 PREREAD CAF SEVEN # 5.7 SPOT TO SKIP LASTBIAS AFTER 038278,000066: 37,3411 03531 TC GNUFAZE5 # RESTART. 038279,000067: 37,3412 35031 CAF PRIO21 038280,000068: 37,3413 05072 TC NOVAC 038281,000069: 37,3414 E3,1460 EBANK= NBDX 038282,000070: 37,3414 03663 14063 2CADR LASTBIAS # DO LAST GYRO COMPENSATION IN FREE FALL 038283,000071: 038284,000072: 37,3416 03544 BIBIBIAS TC PIPASR +3 # CLEAR + READ PIPS LAST TIME IN FRE5+F133 038285,000073: # DO NOT DESTROY VALUE OF PIPTIME1 038286,000074: 038287,000075: 37,3417 40103 CS FLAGWRD7 038288,000076: 37,3420 74773 MASK SUPER011 # SET V37FLAG AND AVEGFLAG (BITS 5 AND 6 038289,000077: 37,3421 26103 ADS FLAGWRD7 # OF FLAGWRD7) 038290,000078: 038291,000079: 37,3422 44735 CS DRFTBIT 038292,000080: 37,3423 70076 MASK FLAGWRD2 # RESET DRIFTFLAG 038293,000081: 37,3424 54076 TS FLAGWRD2 038294,000082: 038295,000083: 37,3425 34751 CAF FOUR # INITIALIZE DV MONITOR 038296,000084: 37,3426 55257 TS PIPAGE 038297,000085: 038298,000086: 37,3427 33537 CAF ENDJBCAD # POINT OUTROUTE TO END-OF-JOB. 038299,000087: 37,3430 55260 TS OUTROUTE 038300,000088: 038301,000089: 37,3431 37710 CAF PRIO22 038302,000090: 37,3432 05105 TC FINDVAC # TO FIRST ENTRY TO AVERAGE G. 038303,000091: 37,3433 E7,1515 EBANK= DVCNTR 038304,000092: 37,3433 02461 46067 2CADR NORMLIZE 038305,000093: 038306,000094: 37,3435 34752 CA TWO # 5.2SPOT FOR REREADAC AND NORMLIZE 038307,000095: 37,3436 03525 GOREADAX TC GNUTFAZ5 038308,000096: 37,3437 35000 CA 2SECS # WAIT TWO SECONDS FOR READACCS 038309,000097: 37,3440 05224 TC VARDELAY 038310,000098:
Page 858 |
038312,000100: # ************************************* READACCS ************************************************************* 038313,000101: 038314,000102: 37,3441 43540 READACCS CS OCT37771 # THIS PIECE OF CODING ATTEMPTS TO 038315,000103: 37,3442 60030 AD TIME5 # SYNCHRONIZE READACCS WITH THE DIGITAL 038316,000104: 37,3443 10000 CCS A # AUTOPILOT SO THAT A PAXIS RUPT WILL 038317,000105: 37,3444 44753 CS ONE # OCCUR APPROXIMATELY 70 MILLISECONDS 038318,000106: 37,3445 13447 TCF +2 # FOLLOWING THE READACCS RUPT. THE 70 MS 038319,000107: 37,3446 34753 CA ONE # OFFSET WAS CHOSEN SO THAT THE PAXIS 038320,000108: 37,3447 26030 +2 ADS TIME5 # RUPT WOULD NOT OCCUR SIMULTANEOUSLY 038321,000109: # WITH ANY OF THE 8 SUBSEQUENT R10,R11 038322,000110: # INTERRUPTS -- THUS MINIMIZING THE POSS- 038323,000111: # IBILITY OF LOSING DOWNRUPTS. 038324,000112: 038325,000113: 37,3450 03541 TC PIPASR # READ THE PIPAS. 038326,000114: 038327,000115: 37,3451 34756 PIPSDONE CA FIVE 038328,000116: 37,3452 03531 TC GNUFAZE5 038329,000117: 37,3453 34753 REDO5.5 CAF ONE 038330,000118: 37,3454 55257 TS PIPAGE 038331,000119: 038332,000120: 37,3455 34736 CA PRIO20 038333,000121: 37,3456 05105 TC FINDVAC 038334,000122: 37,3457 E7,1515 EBANK= DVCNTR 038335,000123: 37,3457 02206 66067 2CADR SERVICER # SET UP SERVICER JOB 038336,000124: 038337,000125: 37,3461 34743 CA BIT9 038338,000126: 37,3462 00006 EXTEND 038339,000127: 37,3463 05011 WOR DSALMOUT # TURN ON TEST CONNECTOR OUTBIT 038340,000128: 038341,000129: 37,3464 30103 CA FLAGWRD7 038342,000130: 37,3465 74747 MASK AVEGFBIT 038343,000131: 37,3466 00006 EXTEND 038344,000132: 37,3467 13517 BZF AVEGOUT # AVEGFLAG DOWN - SET UP FINAL EXIT 038345,000133: 038346,000134: 37,3470 30102 CA FLAGWRD6 038347,000135: 37,3471 74744 MASK MUNFLBIT 038348,000136: 37,3472 00006 EXTEND 038349,000137: 37,3473 13515 BZF MAKEACCS # MUNFLAG CLEAR - BYPASS LR AND DISP. 038350,000138: 038351,000139: 37,3474 10755 CCS PHASE2 038352,000140: 37,3475 13515 TCF MAKEACCS # PHASE 2 ACTIVATED - AVOID MULTIPLE R10. 038353,000141: 038354,000142: 37,3476 34757 CAF SEVEN # SET PIPCTR FOR 4X/SEC RATE. 038355,000143: 37,3477 55056 TS PIPCTR 038356,000144: 038357,000145: 37,3500 40025 CS TIME1 # SET TBASE2 .05 SECONDS IN THE PAST. 038358,000146: 37,3501 64756 AD FIVE 038359,000147: 37,3502 64734 AD NEG1/2 038360,000148: 37,3503 64734 AD NEG1/2 038361,000149: 37,3504 57055 XCH TBASE2
Page 859 |
038363,000151: 37,3505 34361 CAF DEC17 # 2.21SPOT FOR R10,R11 038364,000152: 37,3506 54001 TS L 038365,000153: 37,3507 40000 COM 038366,000154: 37,3510 52755 DXCH -PHASE2 038367,000155: 038368,000156: 37,3511 36007 CAF OCT24 # FIRST R10,R11 IN .200 SECONDS. 038369,000157: 37,3512 05203 TC WAITLIST 038370,000158: 37,3513 E7,1536 EBANK= UNIT/R/ 038371,000159: 37,3513 02006 42067 2CADR R10,R11 038372,000160: 038373,000161: 37,3515 34751 MAKEACCS CA FOUR 038374,000162: 37,3516 13436 TCF GOREADAX # DO PHASE CHANGE AND RECALL READACCS 038375,000163: 038376,000164: 37,3517 00006 AVEGOUT EXTEND 038377,000165: 37,3520 33536 DCA AVOUTCAD # SET UP FINAL SERVICER EXIT 038378,000166: 37,3521 53253 DXCH AVGEXIT 038379,000167: 038380,000168: 37,3522 34751 CA FOUR # SET 5.4 SPOT FOR REREADAC AND SERVICER 038381,000169: 37,3523 03525 TC GNUTFAZ5 # IF REREADAC IS CALLED, IT WILL EXIT 038382,000170: 37,3524 05261 TC TASKOVER # END TASK WITHOUT CALLING READACCS 038383,000171: 038384,000172: 37,3525 54001 GNUTFAZ5 TS L # SAVE INPUT IN L 038385,000173: 37,3526 40025 CS TIME1 038386,000174: 37,3527 55063 TS TBASE5 # SET TBASE5 038387,000175: 37,3530 13532 TCF +2 038388,000176: 038389,000177: 37,3531 54001 GNUFAZE5 TS L # SAVE INPUT IN L 038390,000178: 37,3532 40001 CS L # -PHASE IN A, PHASE IN L 038391,000179: 37,3533 52763 DXCH -PHASE5 # SET -PHASE5,PHASE5 038392,000180: 37,3534 00002 TC Q 038393,000181: 038394,000182: 37,3535 E7,1515 EBANK= DVCNTR 038395,000183: 37,3535 03661 44067 AVOUTCAD 2CADR AVGEND 038396,000184: 038397,000185: 37,3537 65772 ENDJBCAD CADR SERVEXIT +2 038398,000186: 038399,000187: 37,3540 37771 OCT37771 OCT 37771 038400,000188: 038401,000189: 33,2206 BANK 33 038402,000190: 33,2000 SETLOC SERVICES 038403,000191: 33,2000 BANK 038404,000192: 038405,000193: 33,2206 COUNT* $$/SERV 038406,000194:
Page 860 |
038408,000196: # ************************************* SERVICER ************************************************************* 038409,000197: 038410,000198: 33,2206 05353 SERVICER TC PHASCHNG # RESTART REREADAC + SERVICER 038411,000199: 33,2207 16035 OCT 16035 038412,000200: 33,2210 20000 OCT 20000 038413,000201: 33,2211 E7,1515 EBANK= DVCNTR 038414,000202: 33,2211 02217 66067 2CADR GETABVAL 038415,000203: 038416,000204: 33,2213 37716 CAF PRIO31 # INITIALIZE 1/PIPADT IN CASE RESTART HAS 038417,000205: 33,2214 55075 TS 1/PIPADT # CAUSED LASTBIAS TO BE SKIPPED. 038418,000206: 038419,000207: 33,2215 04616 TC BANKCALL # PIPA COMPENSATION CALL 038420,000208: 33,2216 15263 CADR 1/PIPA 038421,000209: 038422,000210: 33,2217 06037 GETABVAL TC INTPRET 038423,000211: 33,2220 51575 VLOAD ABVAL 038424,000212: 33,2221 00325 DELV 038425,000213: 33,2222 77776 EXIT 038426,000214: 33,2223 30154 CA MPAC 038427,000215: 33,2224 55246 TS ABDELV # ABDELV = CM/SEC*2(-14). 038428,000216: 33,2225 00006 EXTEND 038429,000217: 33,2226 72020 MP KPIP 038430,000218: 33,2227 53514 DXCH ABDVCONV # ABDVCONV = M/CS * 2(-5). 038431,000219: 33,2230 00006 EXTEND 038432,000220: 33,2231 31245 DCA MASS 038433,000221: 33,2232 53571 DXCH MASS1 # INITIALIZE MASS1 IN CASE WE SKIP MASSMON 038434,000222: 33,2233 40104 MASSMON CS FLAGWRD8 # ARE WE ON THE SURFACE? 038435,000223: 33,2234 74744 MASK SURFFBIT 038436,000224: 33,2235 00006 EXTEND 038437,000225: 33,2236 12254 BZF MOONSPOT # YES: BYPASS MASS MESS 038438,000226: 038439,000227: 33,2237 30106 CA FLGWRD10 # NO: WHICH VEX SHOULD BE USED? 038440,000228: 33,2240 74737 MASK APSFLBIT 038441,000229: 33,2241 10000 CCS A 038442,000230: 33,2242 00006 EXTEND # IF EXTEND IS EXECUTED, APSVEX --> A, 038443,000231: 33,2243 32001 DCA APSVEX # OTHERWISE DPSVEX --> A 038444,000232: 33,2244 54002 TS Q 038445,000233: 038446,000234: 33,2245 00006 EXTEND 038447,000235: 33,2246 31514 DCA ABDVCONV 038448,000236: 33,2247 00006 EXTEND 038449,000237: 33,2250 10002 OCT10002 DV Q # WHERE APPROPRIATE VEX RESIDES 038450,000238: 33,2251 00006 EXTEND 038451,000239: 33,2252 71244 MP MASS 038452,000240: 33,2253 21571 DAS MASS1 038453,000241: 038454,000242: 33,2254 32021 MOONSPOT CA KPIP1 # TP MPAC = ABDELV AT 2(14) CM/SEC 038455,000243: 33,2255 07307 TC SHORTMP # MULTIPLY BY KPIP1 TO GET
Page 861 |
038457,000245: 33,2256 52155 DXCH MPAC # ABDELV AT 2(7) M/CS 038458,000246: 33,2257 21510 DAS DVTOTAL # UPDATE DVTOTAL FOR DISPLAY 038459,000247: 038460,000248: 33,2260 02440 TC TMPTOSPT 038461,000249: 038462,000250: 33,2261 04616 TC BANKCALL 038463,000251: 33,2262 47615 CADR QUICTRIG 038464,000252: 038465,000253: 33,2263 32414 CAF XNBPIPAD 038466,000254: 33,2264 04616 TC BANKCALL 038467,000255: 33,2265 20037 CADR FLESHPOT 038468,000256: 33,2266 06037 TC INTPRET 038469,000257: 33,2267 45014 AVERAGEG BON CALL 038470,000258: 33,2270 03307 MUNFLAG 038471,000259: 33,2271 67032 RVBOTH 038472,000260: 33,2272 66776 CALCRVG 038473,000261: 33,2273 77776 EXIT 038474,000262: 33,2274 03552 GOSERV TC QUIKFAZ5 038475,000263: 038476,000264: 33,2275 02423 COPYCYCL TC COPYCYC 038477,000265: 038478,000266: # CA ZERO A IS ZERO ON RETURN FROM COPYCYC 038479,000267: 33,2276 55160 TS PIPATMPX # STILL UNDER INHINT 038480,000268: 33,2277 55161 TS PIPATMPY 038481,000269: 33,2300 55162 TS PIPATMPZ 038482,000270: 038483,000271: 33,2301 44741 CS STEERBIT # CLEAR STEERSW PRIOR TO DVMON. 038484,000272: 33,2302 70076 MASK FLAGWRD2 038485,000273: 33,2303 54076 TS FLAGWRD2 038486,000274: 038487,000275: 33,2304 34745 CAF IDLEFBIT # IS THE IDLE FLAG SET? 038488,000276: 33,2305 70103 MASK FLAGWRD7 038489,000277: 33,2306 10000 CCS A 038490,000278: 33,2307 12342 TCF NODVMON1 # IDLEFLAG = 1, HENCE SET AUXFLAG TO 0. 038491,000279: 038492,000280: 33,2310 40102 CS FLAGWRD6 038493,000281: 33,2311 74752 MASK AUXFLBIT 038494,000282: 33,2312 10000 CCS A 038495,000283: 33,2313 12346 TCF NODVMON2 # AUXFLAG = 0, HENCE SET AUXFLAG TO 1. 038496,000284: 038497,000285: 33,2314 41251 DVMON CS DVTHRUSH 038498,000286: 33,2315 61246 AD ABDELV 038499,000287: 33,2316 00006 EXTEND 038500,000288: 33,2317 62352 BZMF LOTHRUST 038501,000289: 038502,000290: 33,2320 40076 CS FLAGWRD2 # SET STEERSW. 038503,000291: 33,2321 74741 MASK STEERBIT 038504,000292: 33,2322 26076 ADS FLAGWRD2 038505,000293: 038506,000294: 33,2323 34753 DVCNTSET CAF ONE # ALLOW TWO PASSES MAXIMUM NOW THAT
Page 862 |
038508,000296: 33,2324 55515 TS DVCNTR # THRUST HAS BEEN DETECTED. 038509,000297: 038510,000298: 33,2325 30106 CA FLGWRD10 # BRANCH IF APSFLAG IS SET. 038511,000299: 33,2326 74737 MASK APSFLBIT 038512,000300: 33,2327 10000 CCS A 038513,000301: 33,2330 12375 TCF USEJETS 038514,000302: 038515,000303: 33,2331 34743 CA BIT9 # CHECK GIMBAL FAIL BIT 038516,000304: 33,2332 00006 EXTEND 038517,000305: 33,2333 02032 RAND CHAN32 038518,000306: 33,2334 00006 EXTEND 038519,000307: 33,2335 12375 BZF USEJETS 038520,000308: 038521,000309: 33,2336 44736 USEGTS CS USEQRJTS 038522,000310: 33,2337 70111 MASK DAPBOOLS 038523,000311: 33,2340 54111 TS DAPBOOLS 038524,000312: 33,2341 12400 TCF SERVOUT 038525,000313: 038526,000314: 33,2342 44752 NODVMON1 CS AUXFLBIT # SET AUXFLAG TO 0. 038527,000315: 33,2343 70102 MASK FLAGWRD6 038528,000316: 33,2344 54102 TS FLAGWRD6 038529,000317: 33,2345 12375 TCF USEJETS 038530,000318: 33,2346 40102 NODVMON2 CS FLAGWRD6 # SET AUXFLAG TO 1. 038531,000319: 33,2347 74752 MASK AUXFLBIT 038532,000320: 33,2350 26102 ADS FLAGWRD6 038533,000321: 33,2351 12375 TCF USEJETS 038534,000322: 038535,000323: 33,2352 03552 LOTHRUST TC QUIKFAZ5 038536,000324: 33,2353 11515 CCS DVCNTR 038537,000325: 33,2354 12366 TCF DECCNTR 038538,000326: 038539,000327: 33,2355 10761 CCS PHASE4 # COMFAIL JOB ACTIVE? 038540,000328: 33,2356 12400 TCF SERVOUT # YES WON'T NEED ANOTHER. 038541,000329: 038542,000330: 33,2357 05353 TC PHASCHNG # 4.37SPOT FOR COMFAIL. 038543,000331: 33,2360 00374 OCT 00374 038544,000332: 038545,000333: 33,2361 37713 CAF PRIO25 038546,000334: 33,2362 05072 TC NOVAC 038547,000335: 33,2363 E7,1455 EBANK= WHICH 038548,000336: 33,2363 02571 74067 2CADR COMFAIL 038549,000337: 038550,000338: 33,2365 12400 TCF SERVOUT 038551,000339: 038552,000340: 33,2366 55570 DECCNTR TS DVCNTR1 038553,000341: 33,2367 03552 TC QUIKFAZ5 038554,000342: 33,2370 31570 CA DVCNTR1 038555,000343: 33,2371 55515 TS DVCNTR 038556,000344: 33,2372 00004 INHINT 038557,000345: 33,2373 04674 TC IBNKCALL # IF THRUST IS LOW, NO STEERING IS DONE
Page 863 |
038559,000347: 33,2374 40165 CADR STOPRATE # AND THE DESIRED RATES ARE SET TO ZERO. 038560,000348: 33,2375 40111 USEJETS CS DAPBOOLS 038561,000349: 33,2376 74736 MASK USEQRJTS 038562,000350: 33,2377 26111 ADS DAPBOOLS 038563,000351: 33,2400 00003 SERVOUT RELINT 038564,000352: 33,2401 04616 TC BANKCALL 038565,000353: 33,2402 40457 CADR 1/ACCS 038566,000354: 038567,000355: 33,2403 30167 CA PRIORITY 038568,000356: 33,2404 75004 MASK LOW9 038569,000357: 33,2405 54166 TS PUSHLOC 038570,000358: 33,2406 22007 ZL 038571,000359: 33,2407 52121 DXCH FIXLOC # FIXLOC AND OVFIND 038572,000360: 038573,000361: 33,2410 03552 TC QUIKFAZ5 038574,000362: 33,2411 00006 EXTEND # EXIT TO SELECTED ROUTINE WHETHER THERE 038575,000363: 33,2412 31253 DCA AVGEXIT # IS THRUST OR NOT. THE STATE OF STEERSW 038576,000364: 33,2413 52006 DXCH Z # WILL CONVEY THIS INFORMATION. 038577,000365: 038578,000366: 33,2414 02145 XNBPIPAD ECADR XNBPIP 038579,000367: 038580,000368: 32,3770 BANK 32 038581,000369: 22,2000 SETLOC SERV2 038582,000370: 22,2000 BANK 038583,000371: 22,3661 COUNT* $$/SERV 038584,000372: 038585,000373: 22,3661 31235 AVGEND CA PIPTIME +1 # FINAL AVERAGE G EXIT 038586,000374: 22,3662 55075 TS 1/PIPADT # SET UP FREE FALL GYRO COMPENSATION. 038587,000375: 038588,000376: 22,3663 05504 TC UPFLAG # SET DRIFT FLAG. 038589,000377: 22,3664 00036 ADRES DRIFTFLG 038590,000378: 038591,000379: 22,3665 04616 TC BANKCALL 038592,000380: 22,3666 17310 CADR PIPFREE 038593,000381: 038594,000382: 22,3667 44743 CS BIT9 038595,000383: 22,3670 00006 EXTEND 038596,000384: 22,3671 03011 WAND DSALMOUT 038597,000385: 038598,000386: 22,3672 05327 TC 2PHSCHNG 038599,000387: 22,3673 00005 OCT 5 # GROUP 5 OFF 038600,000388: 22,3674 05022 OCT 05022 # GROUP 2 ON 038601,000389: 22,3675 20000 OCT 20000 038602,000390: 038603,000391: 22,3676 06037 TC INTPRET 038604,000392: 22,3677 43014 SET CLEAR 038605,000393: 22,3700 01464 NOR29FLG # SHUT OFF R29 WHEN SERVICER ENDS. 038606,000394: 22,3701 03664 SWANDISP # SHUT OFF R10 WHEN SERVICER ENDS. 038607,000395: 22,3702 45014 CLEAR CALL # RESET MUNFLAG. 038608,000396: 22,3703 03267 MUNFLAG
Page 864 |
038610,000398: 22,3704 27467 AVETOMID 038611,000399: 22,3705 77414 CLEAR EXIT 038612,000400: 22,3706 03671 V37FLAG 038613,000401: 22,3707 31260 AVERTRN CA OUTROUTE # RETURN TO DESIRED POINT. 038614,000402: 22,3710 04640 TC BANKJUMP 038615,000403: 038616,000404: 22,3711 22,3707 OUTGOAVE = AVERTRN 038617,000405: 22,3711 E7,1570 DVCNTR1 = MASS1 038618,000406:
Page 865 |
038620,000408: 27,2000 SETLOC SERV3 038621,000409: 27,2000 BANK 038622,000410: 27,3321 COUNT* $$/SERV 038623,000411: 038624,000412: 27,3321 00006 SERVIDLE EXTEND # DISCONNECT SERVICER FROM ALL GUIDANCE 038625,000413: 27,3322 33357 DCA SVEXTADR 038626,000414: 27,3323 53253 DXCH AVGEXIT 038627,000415: 038628,000416: 27,3324 40103 CS FLAGWRD7 # DISCONNECT THE DELTA-V MONITOR 038629,000417: 27,3325 74745 MASK IDLEFBIT 038630,000418: 27,3326 26103 ADS FLAGWRD7 038631,000419: 038632,000420: 27,3327 34735 CAF LRBYBIT # TERMINATE R12 IF RUNNING. 038633,000421: 27,3330 54107 TS FLGWRD11 038634,000422: 038635,000423: 27,3331 00006 EXTEND 038636,000424: 27,3332 34755 DCA NEG0 038637,000425: 27,3333 52753 DXCH -PHASE1 038638,000426: 038639,000427: 27,3334 30102 CA FLAGWRD6 # DO NOT TURN OFF PHASE 2 IF MUNFLAG SET. 038640,000428: 27,3335 74744 MASK MUNFLBIT 038641,000429: 27,3336 10000 CCS A 038642,000430: 27,3337 13343 TCF +4 038643,000431: 038644,000432: 27,3340 00006 EXTEND 038645,000433: 27,3341 34755 DCA NEG0 038646,000434: 27,3342 52755 DXCH -PHASE2 038647,000435: 038648,000436: 27,3343 00006 +4 EXTEND 038649,000437: 27,3344 34755 DCA NEG0 038650,000438: 27,3345 52757 DXCH -PHASE3 038651,000439: 038652,000440: 27,3346 00006 EXTEND 038653,000441: 27,3347 34755 DCA NEG0 038654,000442: 27,3350 52765 DXCH -PHASE6 038655,000443: 038656,000444: 27,3351 34764 CAF OCT33 # 4.33SPOT FOR GOPOOFIX 038657,000445: 27,3352 54001 TS L 038658,000446: 27,3353 40000 COM 038659,000447: 27,3354 52761 DXCH -PHASE4 038660,000448: 038661,000449: 27,3355 15644 TCF WHIMPER # PERFORM A SOFTWARE RESTART AND PROCEED 038662,000450: # TO GOTOPOOH WHILE SERVICER CONTINUES TO 038663,000451: # RUN, ALBEIT IN A GROUND STATE WHERE 038664,000452: # ONLY STATE-VECTOR DEPENDENT FUNCTIONS 038665,000453: # ARE MAINTAINED. 038666,000454: 038667,000455: 27,3356 E7,1515 EBANK= DVCNTR
Page 866 |
038669,000457: 27,3356 03770 64067 SVEXTADR 2CADR SERVEXIT 038670,000458: 038671,000459: 32,3770 BANK 32 038672,000460: 32,2000 SETLOC SERV 038673,000461: 32,2000 BANK 038674,000462: 32,3770 COUNT* $$/SERV 038675,000463: 038676,000464: 32,3770 05353 SERVEXIT TC PHASCHNG 038677,000465: 32,3771 00035 OCT 00035 038678,000466: 038679,000467: 32,3772 15155 +2 TCF ENDOFJOB 038680,000468: 038681,000469: 23,2461 BANK 23 038682,000470: 23,2000 SETLOC NORMLIZ 038683,000471: 23,2000 BANK 038684,000472: 038685,000473: 23,2461 COUNT* $$/SERV 038686,000474:
Page 867 |
038688,000476: # NORMLIZE AND COPYCYCL 038689,000477: 038690,000478: 23,2461 06037 NORMLIZE TC INTPRET 038691,000479: 23,2462 43175 VLOAD BOFF 038692,000480: 23,2463 03545 RN1 038693,000481: 23,2464 03347 MUNFLAG 038694,000482: 23,2465 66415 NORMLIZ1 038695,000483: 23,2466 64252 VSL6 MXV 038696,000484: 23,2467 01734 REFSMMAT 038697,000485: 23,2470 37521 STCALL R 038698,000486: 23,2471 67130 MUNGRAV 038699,000487: 23,2472 76575 VLOAD VSL1 038700,000488: 23,2473 03553 VN1 038701,000489: 23,2474 77721 MXV 038702,000490: 23,2475 01734 REFSMMAT 038703,000491: 23,2476 27527 STOVL V 038704,000492: 23,2477 01726 V(CSM) 038705,000493: 23,2500 53435 VXV UNIT 038706,000494: 23,2501 01720 R(CSM) 038707,000495: 23,2502 03720 STORE UHYP 038708,000496: 23,2503 77776 ASCSPOT EXIT 038709,000497: 23,2504 00006 EXTEND # MAKE SURE GOUP 2 IS OFF. 038710,000498: 23,2505 34755 DCA NEG0 038711,000499: 23,2506 52755 DXCH -PHASE2 038712,000500: 038713,000501: 23,2507 04635 TC POSTJUMP 038714,000502: 23,2510 66420 CADR NORMLIZ2 038715,000503: 038716,000504: 33,2415 BANK 33 038717,000505: 33,2000 SETLOC SERVICES 038718,000506: 33,2000 BANK 038719,000507: 33,2415 COUNT* $$/SERV 038720,000508: 038721,000509: 33,2415 77624 NORMLIZ1 CALL 038722,000510: 33,2416 66730 CALCGRAV 038723,000511: 33,2417 77776 EXIT 038724,000512: 038725,000513: 33,2420 32437 NORMLIZ2 CA EIGHTEEN 038726,000514: 33,2421 02424 TC COPYCYC +1 # DO NOT COPY MASS IN NORMLIZE 038727,000515: 33,2422 05155 TC ENDOFJOB 038728,000516: 038729,000517: 33,2423 36007 COPYCYC CA OCT24 # DEC 20 038730,000518: 33,2424 00004 +1 INHINT 038731,000519: 33,2425 77747 +2 MASK NEG1 # REDUCE BY 1 IF ODD 038732,000520: 33,2426 54061 TS ITEMP1 038733,000521: 33,2427 00006 EXTEND 038734,000522: 33,2430 50061 INDEX ITEMP1 038735,000523: 33,2431 31545 DCA RN1 038736,000524: 33,2432 50061 INDEX ITEMP1
Page 868 |
038738,000526: 33,2433 53221 DXCH RN 038739,000527: 33,2434 10061 CCS ITEMP1 038740,000528: 33,2435 12425 TCF COPYCYC +2 038741,000529: 33,2436 00002 TC Q # RETURN UNDER INHINT 038742,000530: 038743,000531: 33,2437 00022 EIGHTEEN DEC 18 B-14 038744,000532:
Page 869 |
038746,000534: # ******************* PIPA READER ******************** 038747,000535: # MOD NO. 00 BY D. LICKLY DEC. 9 1966 038748,000536: 038749,000537: # FUNCTIONAL DESCRIPTION 038750,000538: # SUBROUTINE TO READ PIPA COUNTERS, TRYING TO BE VERY CAREFUL SO THAT IT WILL BE RESTARTABLE. 038751,000539: # PIPA READINGS ARE STORED IN THE VECTOR DELV. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS THE PIPA READING, 038752,000540: # RESTARTS BEGIN AT REREADAC. 038753,000541: 038754,000542: # AT THE END OF THE PIPA READER THE CDUS ARE READ AND STORED AS A 038755,000543: # VECTOR IN CDUTEMP. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS 038756,000544: # THE CDU READING IN 2S COMP IN THE ORDER CDUX,Y,Z. THE THRUST 038757,000545: # VECTOR ESTIMATOR IN FINDCDUD REQUIRES THE CDUS BE READ AT PIPTIME. 038758,000546: 038759,000547: # CALLING SEQUENCE AND EXIT 038760,000548: # CALL VIA TC, ISWCALL, ETC. 038761,000549: # EXIT IS VIA Q. 038762,000550: 038763,000551: # INPUT 038764,000552: # INPUT IS THROUGH THE COUNTERS PIPAX, PIPAY, PIPAZ, AND TIME2. 038765,000553: 038766,000554: # OUTPUT 038767,000555: # HIGH ORDER COMPONENTS OF THE VECTOR DELV CONTAIN THE PIPA READINGS. 038768,000556: # PIPTIME CONTAINS TIME OF PIPA READING. 038769,000557: 038770,000558: # DEBRIS (ERASABLE LOCATIONS DESTROYED BY PROGRAM) 038771,000559: # TEMX TEMY TEMZ PIPAGE 038772,000560: 038773,000561: 37,3541 BANK 37 038774,000562: 37,2000 SETLOC SERV1 038775,000563: 37,2000 BANK 038776,000564: 038777,000565: 37,3541 COUNT* $$/SERV 038778,000566: 038779,000567: 37,3541 00006 PIPASR EXTEND
Page 870 |
038781,000569: 37,3542 30025 DCA TIME2 038782,000570: 37,3543 53561 DXCH PIPTIME1 # CURRENT TIME POSITIVE VALUE 038783,000571: 37,3544 44755 +3 CS ZERO # INITIALIZE THESE AT NEG. ZERO. 038784,000572: 37,3545 55254 TS TEMX 038785,000573: 37,3546 55255 TS TEMY 038786,000574: 37,3547 55256 TS TEMZ 038787,000575: 038788,000576: 37,3550 34755 CA ZERO 038789,000577: 37,3551 54330 TS DELVZ 038790,000578: 37,3552 54331 TS DELVZ +1 038791,000579: 37,3553 54326 TS DELVY 038792,000580: 37,3554 54327 TS DELVY +1 038793,000581: 37,3555 54325 TS DELVX +1 038794,000582: 37,3556 55257 TS PIPAGE # SHOW PIPA READING IN PROGRESS 038795,000583: 038796,000584: 37,3557 00006 REPIP1 EXTEND 038797,000585: 37,3560 40040 DCS PIPAX # X AND Y PIPS READ 038798,000586: 37,3561 53255 DXCH TEMX 038799,000587: 37,3562 52040 DXCH PIPAX # PIPAS SET TO NEG ZERO AS READ. 038800,000588: 37,3563 54324 TS DELVX 038801,000589: 37,3564 22326 LXCH DELVY 038802,000590: 038803,000591: 37,3565 40041 REPIP3 CS PIPAZ # REPEAT PROCESS FOR Z PIP 038804,000592: 37,3566 57256 XCH TEMZ 038805,000593: 37,3567 56041 XCH PIPAZ 038806,000594: 37,3570 54330 DODELVZ TS DELVZ 038807,000595: 038808,000596: 37,3571 00006 REPIP4 EXTEND # COMPUTE GUIDANCE PERIOD 038809,000597: 37,3572 31561 DCA PIPTIME1 038810,000598: 37,3573 53250 DXCH PGUIDE 038811,000599: 37,3574 00006 EXTEND 038812,000600: 37,3575 41235 DCS PIPTIME 038813,000601: 37,3576 21250 DAS PGUIDE 038814,000602: 038815,000603: 37,3577 30032 CA CDUX # READ CDUS INTO HIGH ORDER CDUTEMPS 038816,000604: 37,3600 55155 TS CDUTEMPX 038817,000605: 37,3601 30033 CA CDUY 038818,000606: 37,3602 55156 TS CDUTEMPY 038819,000607: 37,3603 30034 CA CDUZ 038820,000608: 37,3604 55157 TS CDUTEMPZ 038821,000609: 37,3605 30324 CA DELVX 038822,000610: 37,3606 55160 TS PIPATMPX 038823,000611: 37,3607 30326 CA DELVY 038824,000612: 37,3610 55161 TS PIPATMPY 038825,000613: 37,3611 30330 CA DELVZ 038826,000614: 37,3612 55162 TS PIPATMPZ 038827,000615: 038828,000616: 37,3613 00002 TC Q 038829,000617:
Page 871 |
038831,000619: 37,3614 11257 REREADAC CCS PIPAGE 038832,000620: 37,3615 13441 TCF READACCS # PIP READING NOT STARTED. GO TO BEGINNING 038833,000621: 038834,000622: 37,3616 33654 CAF DONEADR # SET UP RETURN FROM PIPASR 038835,000623: 37,3617 54002 TS Q 038836,000624: 038837,000625: 37,3620 10330 CCS DELVZ 038838,000626: 37,3621 13571 TCF REPIP4 # Z DONE, GO DO CDUS 038839,000627: 37,3622 13625 TCF +3 # Z NOT DONE, CHECK Y. 038840,000628: 37,3623 13571 TCF REPIP4 038841,000629: 37,3624 13571 TCF REPIP4 038842,000630: 038843,000631: 37,3625 22007 ZL 038844,000632: 37,3626 10326 CCS DELVY 038845,000633: 37,3627 13632 TCF +3 038846,000634: 37,3630 13641 TCF CHKTEMX # Y NOT DONE, CHECK X. 038847,000635: 37,3631 13632 TCF +1 038848,000636: 37,3632 22041 LXCH PIPAZ # Y DONE, ZERO Z PIP. 038849,000637: 038850,000638: 37,3633 11256 CCS TEMZ 038851,000639: 37,3634 41256 CS TEMZ # TEMZ NOT = -0, CONTAINS -PIPAZ VALUE. 038852,000640: 37,3635 13570 TCF DODELVZ 038853,000641: 37,3636 13634 TCF -2 038854,000642: 37,3637 22330 LXCH DELVZ # TEMZ = -0, L HAS ZPIP VALUE. 038855,000643: 37,3640 13571 TCF REPIP4 038856,000644: 038857,000645: 37,3641 11254 CHKTEMX CCS TEMX # HAS THIS CHANGED 038858,000646: 37,3642 41254 CS TEMX # YES 038859,000647: 37,3643 13646 TCF +3 # YES 038860,000648: 37,3644 13642 TCF -2 # YES 038861,000649: 37,3645 13557 TCF REPIP1 # NO 038862,000650: 37,3646 54324 TS DELVX 038863,000651: 038864,000652: 37,3647 41255 CS TEMY 038865,000653: 37,3650 54326 TS DELVY 038866,000654: 038867,000655: 37,3651 44755 CS ZERO # ZERO X AND Y PIPS 038868,000656: 37,3652 52040 DXCH PIPAX # L STILL ZERO FROM ABOVE 038869,000657: 038870,000658: 37,3653 13565 TCF REPIP3 038871,000659: 038872,000660: 37,3654 03451 DONEADR GENADR PIPSDONE 038873,000661:
Page 872 |
038875,000663: 33,2440 BANK 33 038876,000664: 33,2000 SETLOC SERVICES 038877,000665: 33,2000 BANK 038878,000666: 038879,000667: 33,2440 COUNT* $$/SERV 038880,000668: 038881,000669: 33,2440 31156 TMPTOSPT CA CDUTEMPY # THIS SUBROUTINE, CALLED BY AN RTB FROM 038882,000670: 33,2441 54766 TS CDUSPOTY # INTERPRETIVE, LOADS THE CDUS CORRESPON- 038883,000671: 33,2442 31157 CA CDUTEMPZ # DING TO PIPTIME INTO THE CDUSPOT VECTOR. 038884,000672: 33,2443 54770 TS CDUSPOTZ 038885,000673: 33,2444 31155 CA CDUTEMPX 038886,000674: 33,2445 54772 TS CDUSPOTX 038887,000675: 33,2446 00002 TC Q 038888,000676: 038889,000677: # LRHTASK IS A WAITLIST TASK SET BY READACCS DURING THE DESCENT BRAKING 038890,000678: # PHASE WHEN THE ALT TO THE LUNAR SURFACE IS LESS THAN 25,000 FT. THIS 038891,000679: # TASK CLEARS THE ALTITUDE MEASUREMENT MADE DISCRETE AND INITIATES THE 038892,000680: # LANDING RADAR MEASUREMENT JOB (LRHJOB) TO TAKE A ALTITUDE MEASUREMENT 038893,000681: # 50 MS PRIOR TO THE NEXT READACCS TASK. 038894,000682: 038895,000683: 21,2130 BANK 21 038896,000684: 21,2000 SETLOC R10 038897,000685: 21,2000 BANK 038898,000686: 038899,000687: 21,2130 COUNT* $$/SERV 038900,000688: 038901,000689: 21,2130 40107 LRHTASK CS FLGWRD11 038902,000690: 21,2131 74735 MASK LRBYBIT 038903,000691: 21,2132 00006 EXTEND 038904,000692: 21,2133 12150 BZF GRP2OFF # LR BYPASS SET - BYPASS ALL LR READING. 038905,000693: 038906,000694: 21,2134 34746 CA READLBIT 038907,000695: 21,2135 70107 MASK FLGWRD11 # IS READLR FLAG SET? 038908,000696: 21,2136 00006 EXTEND 038909,000697: 21,2137 12150 BZF GRP2OFF # NO. BYPASS LR READ. 038910,000698: 038911,000699: 21,2140 40107 CS FLGWRD11 038912,000700: 21,2141 74742 MASK NOLRRBIT # IS LR READ INHIBITED? 038913,000701: 21,2142 00006 EXTEND 038914,000702: 21,2143 12150 BZF GRP2OFF # YES. BYPASS LR READ. 038915,000703: 038916,000704: 21,2144 37720 CA PRIO32 # LR READ OK SET JOB TO DO IT 038917,000705: 21,2145 05072 TC NOVAC # ABOUT 50 MS PRIOR TO PIPA READ 038918,000706: 21,2146 E7,1654 EBANK= HMEAS 038919,000707: 21,2146 03716 70067 2CADR LRHJOB 038920,000708: 038921,000709: 21,2150 00006 GRP2OFF EXTEND 038922,000710: 21,2151 34755 DCA NEG0 038923,000711: 21,2152 52755 DXCH -PHASE2 038924,000712: 21,2153 12021 TCF R10,R11A 038925,000713: 038926,000714: 33,2447 BANK 33 038927,000715: 33,2000 SETLOC SERVICES 038928,000716: 33,2000 BANK
Page 873 |
038930,000718: 33,2447 COUNT* $$/SERV 038931,000719: 038932,000720: # HIGATASK IS ENTERED APPROXIMATELY 6 SECS PRIOR TO HIGATE DURING THE 038933,000721: # DESCENT PHASE. HIGATASK SETS THE HIGATE FLAG (BIT11) AND THE LR INHIBIT 038934,000722: # FLAG (BIT10) IN LRSTAT. THE HIGATJOB IS SET UP TO REPOSITION THE LR 038935,000723: # ANTENNA FROM POSITION 1 TO POSITION 2. IF THE REPOSITIONING IS 038936,000724: # SUCCESSFUL THE ALT BEAM AND VELOCITY BEAMS ARE TRANSFORMED TO THE NEW 038937,000725: # ORIENTATION IN NB COORDINATES AND STORED IN ERASABLE. 038938,000726: 038939,000727: 33,2447 00004 HIGATASK INHINT 038940,000728: 33,2450 45015 CS PRIO3 # SET HIGATE AND LR INHIBIT FLAGS 038941,000729: 33,2451 70107 MASK FLGWRD11 038942,000730: 33,2452 65015 AD PRIO3 038943,000731: 33,2453 54107 TS FLGWRD11 038944,000732: 33,2454 37720 CAF PRIO32 038945,000733: 33,2455 05105 TC FINDVAC # SET LR POSITIONING JOB (POS2) 038946,000734: 33,2456 E7,1654 EBANK= HMEAS 038947,000735: 33,2456 03670 66067 2CADR HIGATJOB 038948,000736: 038949,000737: 33,2460 12540 TCF CONTSERV # CONTINUE SERVICER 038950,000738:
Page 874 |
038952,000740: # MUNRETRN IS THE RETURN LOC FROM SPECIAL AVE G ROUTINE (MUNRVG) 038953,000741: 038954,000742: 33,2461 77776 MUNRETRN EXIT 038955,000743: 038956,000744: 33,2462 40107 CS FLGWRD11 038957,000745: 33,2463 74735 MASK LRBYBIT 038958,000746: 33,2464 00006 EXTEND 038959,000747: 33,2465 12546 BZF COPYCYC1 # BYPASS LR LOGIC IF BIT15 IS SET. 038960,000748: 038961,000749: 33,2466 34746 CA READLBIT # SEE IF ALT < 35000 FT LAST CYCLE 038962,000750: 33,2467 70107 MASK FLGWRD11 038963,000751: 33,2470 00006 EXTEND 038964,000752: 33,2471 12721 BZF 35KCHK # ALT WAS > 35000 FT LAST CYCLE CHK NOW 038965,000753: 038966,000754: 33,2472 34743 CAF XORFLBIT # WERE WE BELOW 30000 FT LAST PASS? 038967,000755: 33,2473 70107 MASK FLGWRD11 038968,000756: 33,2474 00006 EXTEND 038969,000757: 33,2475 12710 BZF XORCHK # NO - TEST THIS PASS 038970,000758: 33,2476 34741 HITEST CAF PSTHIBIT # CHECK FOR HIGATE 038971,000759: 33,2477 70107 MASK FLGWRD11 038972,000760: 33,2500 00006 EXTEND 038973,000761: 33,2501 12515 BZF HIGATCHK # NOT AT HIGATE LAST CYCLE-CHK THIS CYCLE 038974,000762: 038975,000763: 33,2502 34745 POS2CHK CAF BIT7 # VERIFY LR IN POS2 038976,000764: 33,2503 00006 EXTEND 038977,000765: 33,2504 02033 RAND CHAN33 038978,000766: 33,2505 00006 EXTEND 038979,000767: 33,2506 13155 BZF UPDATCHK # IT IS-CHECK FOR LR UPDATE 038980,000768: 33,2507 34737 CAF BIT13 # NOT IN POS2-MAYBE REPOSITIONING 038981,000769: 33,2510 00006 EXTEND 038982,000770: 33,2511 02012 RAND CHAN12 038983,000771: 33,2512 00006 EXTEND 038984,000772: 33,2513 12536 BZF LRPOSALM # LR NOT IN POS2 OR REPOSITIONING-BAD 038985,000773: 33,2514 12540 TCF CONTSERV # LR BEING REPOSITIONED-CONTINUE SERV 038986,000774: 038987,000775: 33,2515 31642 HIGATCHK CA TTF/8 # IS TTF > CRITERION? (TTF IS NEGATIVE) 038988,000776: 33,2516 61427 AD RPCRTIME 038989,000777: 33,2517 00006 EXTEND 038990,000778: 33,2520 62531 BZMF POS1CHK # NO 038991,000779: 038992,000780: 33,2521 34741 CA EBANK4 # MUST SWITCH EBANKS 038993,000781: 33,2522 56003 XCH EBANK 038994,000782: 33,2523 54001 TS L # SAVE IN L 038995,000783: 038996,000784: 33,2524 E4,1545 EBANK= XNBPIP 038997,000785: 33,2524 41545 CS XNBPIP # UXBXP IN GSOP CH5 038998,000786: 33,2525 E7,1515 EBANK= DVCNTR 038999,000787: 33,2525 22003 LXCH EBANK # RESTORE EBANK 039000,000788: 33,2526 61430 AD RPCRTQSW # QSW - UXBXP
Page 875 |
039002,000790: 039003,000791: 33,2527 00006 EXTEND 039004,000792: 33,2530 62447 BZMF HIGATASK # IF UXBXP > QSW, THEN REPOSITION 039005,000793: 039006,000794: 33,2531 34746 POS1CHK CAF BIT6 # HIGATE NOT IN SIGHT-DO POS1 CHK 039007,000795: 33,2532 00006 EXTEND 039008,000796: 33,2533 02033 RAND 33 039009,000797: 33,2534 00006 EXTEND 039010,000798: 33,2535 13155 BZF UPDATCHK # LR IN POS1-CHECK FOR LR UPDATE 039011,000799: 039012,000800: 33,2536 05567 LRPOSALM TC ALARM # LR NOT IN PROPER POS-ALARM-BYPASS UPDATE 039013,000801: 33,2537 00511 OCT 511 # AND CONTINUE SERVICER 039014,000802: 33,2540 00004 CONTSERV INHINT 039015,000803: 33,2541 43154 CS BITS4-7 039016,000804: 33,2542 70107 MASK FLGWRD11 # CLEAR LR MEASUREMENT MADE DISCRETES. 039017,000805: 33,2543 54107 TS FLGWRD11 039018,000806: 039019,000807: 33,2544 04674 TC IBNKCALL # SET LR LITES PROPERLY 039020,000808: 33,2545 53607 CADR R12LITES 039021,000809:
Page 876 |
039023,000811: 33,2546 03552 COPYCYC1 TC QUIKFAZ5 039024,000812: 039025,000813: 33,2547 30077 R29? CA FLAGWRD3 039026,000814: 33,2550 75014 MASK NR29&RDR 039027,000815: 33,2551 10000 CCS A # IS NOR29FLG OR READRFLG SET? 039028,000816: 33,2552 12564 TCF R29NODES # YES, SO DON'T DESIGNATE. 039029,000817: 039030,000818: 33,2553 30110 CA RADMODES # NO, SO R29 IS CALLED FOR. 039031,000819: 33,2554 72250 MASK OCT10002 # IS THE RR NOT ZEROING ITS CDUS, AND 039032,000820: 33,2555 10000 CCS A # IS THE RENDEZVOUS RADAR IN AUTO MODE? 039033,000821: 33,2556 12564 TCF R29NODES # NO, SO DON'T DESIGNATE. 039034,000822: 039035,000823: 33,2557 30110 CA RADMODES 039036,000824: 33,2560 77710 MASK PRIO22 039037,000825: 33,2561 10000 CCS A # IS RR REPOSITIONING OR REMODING? 039038,000826: 33,2562 12570 TCF NOR29NOW # YES; COME BACK IN 2 SECONDS & TRY AGAIN. 039039,000827: 039040,000828: 33,2563 12045 TCF R29 039041,000829: 039042,000830: 33,2564 00004 R29NODES INHINT # R29 NOT ALLOWED THIS CYCLE. 039043,000831: 33,2565 44742 CS DESIGBIT # SHOW THAT DESIGNATION IS OFF. 039044,000832: 33,2566 70110 MASK RADMODES 039045,000833: 33,2567 54110 TS RADMODES 039046,000834: 039047,000835: 33,2570 06037 NOR29NOW TC INTPRET # INTPRET DOES A RELINT. 039048,000836: 33,2571 51575 VLOAD ABVAL # MPAC = ABVAL( NEW SM. POSITION VECTOR ) 039049,000837: 33,2572 03573 R1S 039050,000838: 33,2573 45206 PUSH DSU # (2) 039051,000839: 33,2574 02333 /LAND/ 039052,000840: 33,2575 03535 STORE HCALC # NEW HCALC*2(24)M. 039053,000841: 33,2576 03775 STORE HCALC1 039054,000842: 33,2577 47075 DMPR RTB 039055,000843: 33,2600 26026 ALTCONV 039056,000844: 33,2601 21612 SGNAGREE 039057,000845: 33,2602 27742 STOVL ALTBITS # ALTITUDE FOR R10 IN BIT UNITS. 039058,000846: 33,2603 03537 UNIT/R/ 039059,000847: 33,2604 53435 VXV UNIT 039060,000848: 33,2605 03720 UHYP 039061,000849: 33,2606 27726 STOVL UHZP # DOWNRANGE HALF-UNIT VECTOR FOR R10. 039062,000850: 33,2607 03573 R1S 039063,000851: 33,2610 60505 VXM VSR4 039064,000852: 33,2611 01734 REFSMMAT 039065,000853: 33,2612 27545 STOVL RN1 # TEMP. REF. POSITION VECTOR*2(29)M. 039066,000854: 33,2613 03601 V1S 039067,000855: 33,2614 76505 VXM VSL1 039068,000856: 33,2615 01734 REFSMMAT 039069,000857: 33,2616 27553 STOVL VN1 # TEMP. REF. VELOCITY VECTOR*2(7) M/CS. 039070,000858: 33,2617 03537 UNIT/R/ 039071,000859: 33,2620 51435 VXV ABVAL
Page 877 |
039073,000861: 33,2621 03601 V1S 039074,000862: 33,2622 63552 SL1 DSQ 039075,000863: 33,2623 77671 DDV 039076,000864: 33,2624 47075 DMPR RTB 039077,000865: 33,2625 26030 ARCONV1 039078,000866: 33,2626 21612 SGNAGREE 039079,000867: 33,2627 77776 COPYCYC2 EXIT # LEAVE ALTITUDE RATE COMPENSATION IN MPAC 039080,000868: 33,2630 00004 INHINT 039081,000869: 33,2631 31536 CA UNIT/R/ # UPDATE RUNIT FOR R10. 039082,000870: 33,2632 55743 TS RUNIT 039083,000871: 33,2633 31540 CA UNIT/R/ +2 039084,000872: 33,2634 55744 TS RUNIT +1 039085,000873: 33,2635 31542 CA UNIT/R/ +4 039086,000874: 33,2636 55745 TS RUNIT +2 039087,000875: 33,2637 30154 CA MPAC # LOAD NEW DALTRATE FOR R10. 039088,000876: 33,2640 55716 TS DALTRATE 039089,000877: 039090,000878: 33,2641 00006 EXTEND 039091,000879: 33,2642 31573 DCA R1S 039092,000880: 33,2643 53521 DXCH R 039093,000881: 33,2644 00006 EXTEND 039094,000882: 33,2645 31575 DCA R1S +2 039095,000883: 33,2646 53523 DXCH R +2 039096,000884: 33,2647 00006 EXTEND 039097,000885: 33,2650 31577 DCA R1S +4 039098,000886: 33,2651 53525 DXCH R +4 039099,000887: 33,2652 00006 EXTEND 039100,000888: 33,2653 31601 DCA V1S 039101,000889: 33,2654 53527 DXCH V 039102,000890: 33,2655 00006 EXTEND 039103,000891: 33,2656 31603 DCA V1S +2 039104,000892: 33,2657 53531 DXCH V +2 039105,000893: 33,2660 00006 EXTEND 039106,000894: 33,2661 31605 DCA V1S +4 039107,000895: 33,2662 53533 DXCH V +4 039108,000896: 039109,000897: 33,2663 12275 TCF COPYCYCL # COMPLETE THE COYPCYCL. 039110,000898:
Page 878 |
039112,000900: # ALTCHK COMPARES CURRENT ALTITUDE (IN HCALC) WITH A SPECIFIED ALTITUDE FROM A TABLE BEGINNING AT ALTCRIT. 039113,000901: # ITS CALLING SEQUENCE IS AS FOLLOWS:- 039114,000902: 039115,000903: # L CAF N 039116,000904: # L+1 TC BANKCALL 039117,000905: # L+2 CADR ALTCHK 039118,000906: # L+3 RETURN HERE IF HCALC STILL > SPECIFIED CRITERION. C(L) = +0. 039119,000907: # L+4 RETURN HERE IF HCALC < OR = SPECIFIED CRITERION. C(A) = C(L) = +0 039120,000908: 039121,000909: # ALTCHK MUST BE BANKCALLED EVEN FROM ITS OWN BANK. N IS THE LOCATION, RELATIVE TO THE TAG ALTCRIT, 039122,000910: # OF THE BEGINNING OF THE DP CONSTANT TO BE USED AS A CRITERION. 039123,000911: 039124,000912: 33,2664 00006 ALTCHK EXTEND 039125,000913: 33,2665 50000 INDEX A 039126,000914: 33,2666 32700 DCA ALTCRIT 039127,000915: 33,2667 52156 DXCH MPAC +1 039128,000916: 33,2670 00006 EXTEND 039129,000917: 33,2671 41535 DCS HCALC 039130,000918: 33,2672 20156 DAS MPAC +1 039131,000919: 33,2673 06727 TC BRANCH +4 039132,000920: 33,2674 34755 CAF ZERO # BETTER THAN A NOOP, PERHAPS 039133,000921: 33,2675 24133 INCR BUF2 039134,000922: 33,2676 14631 TCF SWRETURN 039135,000923: 039136,000924: 33,2677 33,2677 ALTCRIT = 25KFT 039137,000925: 039138,000926: 33,2677 00007 16100 25KFT 2DEC 7620 B-24 # (0) 039139,000927: 039140,000928: 33,2701 00016 34200 50KFT 2DEC 15240 B-24 # (2) 039141,000929: 039142,000930: 33,2703 00000 00364 50FT 2DEC 15.24 B-24 # (4) 039143,000931: 039144,000932: 33,2705 00010 35600 30KFT 2DEC 9144 B-24 # (6) 039145,000933: 039146,000934: 33,2707 01414 2KFT/SEC DEC 6.096 B-7 # 2000 FT/SEC AT 2(7) M/CS 039147,000935: 039148,000936:
A remark was likely to be needed here to explain XORCHK — 4/Jun/09,FB |
039150,000938: 039151,000939: 33,2710 36242 XORCHK CAF SIX # ARE WE BELOW 30000 FT? 039152,000940: 33,2711 04616 TC BANKCALL 039153,000941: 33,2712 66664 CADR ALTCHK 039154,000942: 33,2713 12476 TCF HITEST # CONTINUE LR UPDATE 039155,000943: 33,2714 05504 TC UPFLAG # YES: INHIBIT X-AXIS OVERRIDE 039156,000944: 33,2715 00311 ADRES XOVINFLG 039157,000945: 33,2716 05504 TC UPFLAG 039158,000946: 33,2717 00253 ADRES XORFLG 039159,000947: 33,2720 12476 TCF HITEST # CONTINUE LR UPDATE 039160,000948: 039161,000949: 33,2721 34752 35KCHK CAF TWO # ARE WE BELOW 35000 FT? 039162,000950:
Page 879 |
039164,000952: 33,2722 04616 TC BANKCALL 039165,000953: 33,2723 66664 CADR ALTCHK 039166,000954: 33,2724 12540 TCF CONTSERV 039167,000955: 33,2725 05504 TC UPFLAG 039168,000956: 33,2726 00256 ADRES READLR # SET READLR FLAG TO ENABLE LR READING. 039169,000957: 33,2727 12540 TCF CONTSERV 039170,000958:
Page 880 |
039172,000960: # ********************************************************************************************************* 039173,000961: 039174,000962: 33,2730 41456 CALCGRAV UNIT PUSH # SAVE UNIT/R/ IN PUSHLIST (18) 039175,000963: 33,2731 03537 STORE UNIT/R/ 039176,000964: 33,2732 67340 LXC,1 SLOAD # RTX2 = 0 IF EARTH ORBIT, =2 IF LUNAR. 039177,000965: 33,2733 02777 RTX2 039178,000966: 33,2734 03000 RTX2 039179,000967: 33,2735 50076 DCOMP BMN 039180,000968: 33,2736 66765 CALCGRV1 039181,000969: 33,2737 50375 VLOAD DOT # (12) 039182,000970: 33,2740 06514 UNITZ 039183,000971: 33,2741 03537 UNIT/R/ 039184,000972: 33,2742 41552 SL1 PUSH # (14) 039185,000973: 33,2743 44316 DSQ BDSU 039186,000974: 33,2744 27027 DP1/20 039187,000975: 33,2745 56325 PDDL DDV 039188,000976: 33,2746 26040 RESQ 039189,000977: 33,2747 00043 34D # (RN)SQ 039190,000978: 33,2750 00041 STORE 32D # TEMP FOR (RE/RN)SQ 039191,000979: 33,2751 41205 DMP DMP 039192,000980: 33,2752 26042 20J 039193,000981: 33,2753 65361 VXSC PDDL 039194,000982: 33,2754 03537 UNIT/R/ 039195,000983: 33,2755 41205 DMP DMP 039196,000984: 33,2756 26044 2J 039197,000985: 33,2757 00041 32D 039198,000986: 33,2760 76561 VXSC VSL1 039199,000987: 33,2761 06514 UNITZ 039200,000988: 33,2762 45455 VAD STADR 039201,000989: 33,2763 74256 STORE UNITGOBL 039202,000990: 33,2764 41455 VAD PUSH # MPAC = UNIT GRAVITY VECTOR. (18) 039203,000991: 33,2765 60345 CALCGRV1 DLOAD NORM # PERFORM A NORMALIZATION ON RMAGSQ IN 039204,000992: 33,2766 00043 34D # ORDER TO BE ABLE TO SCALE THE MU FOR 039205,000993: 33,2767 00050 X2 # MAXIMUM PRECISION. 039206,000994: 33,2770 53663 BDDV* SLR* 039207,000995: 33,2771 26032 -MUDT,1 039208,000996: 33,2772 56623 0 -21D,2 039209,000997: 33,2773 45561 VXSC STADR 039210,000998: 33,2774 74214 STORE GDT1/2 # SCALED AT 2(+7) M/CS 039211,000999: 33,2775 77616 RVQ 039212,001000: 039213,001001: 33,2776 61375 CALCRVG VLOAD VXM 039214,001002: 33,2777 00325 DELV 039215,001003: 33,3000 01734 REFSMMAT 039216,001004: 33,3001 76561 VXSC VSL1 039217,001005: 33,3002 26022 KPIP1 039218,001006: 33,3003 03527 STORE DELVREF 039219,001007: 33,3004 41562 VSR1 PUSH 039220,001008: 33,3005 41455 VAD PUSH # (DV-OLDGDT)/2 TO PD SCALED AT 2(+7) M/CS
Page 881 |
039222,001010: 33,3006 01237 GDT/2 039223,001011: 33,3007 65255 VAD PDDL # (18) 039224,001012: 33,3010 01227 VN 039225,001013: 33,3011 01250 PGUIDE 039226,001014: 33,3012 74261 SL VXSC 039227,001015: 33,3013 20207 6D 039228,001016: 33,3014 44055 VAD STQ 039229,001017: 33,3015 01221 RN 039230,001018: 33,3016 00037 31D 039231,001019: 33,3017 37545 STCALL RN1 # TEMP STORAGE OF RN SCALED 2(+29)M 039232,001020: 33,3020 66730 CALCGRAV 039233,001021: 039234,001022: 33,3021 53255 VAD VAD 039235,001023: 33,3022 77655 VAD 039236,001024: 33,3023 01227 VN 039237,001025: 33,3024 37553 STCALL VN1 # TEMP STORAGE OF VN SCALED 2(+7)M/CS 039238,001026: 33,3025 00037 31D 039239,001027: 039240,001028: 33,3026 01463 06315 DP1/20 2DEC 0.05 039241,001029: 33,3030 00010 00000 SHIFT11 2DEC 1 B-11 039242,001030:
Page 882 |
039244,001032: # **************************************************************************************************************** 039245,001033: # MUNRVG IS A SPECIAL AVERAGE G INTEGRATION ROUTINE USED BY THRUSTING 039246,001034: # PROGRAMS WHICH FUNCTION IN THE VICINITY OF AN ASSUMED SPHERICAL MOON. 039247,001035: # THE INPUT AND OUTPUT QUANTITIES ARE REFERENCED TO THE STABLE MEMBER 039248,001036: # COORDINATE SYSTEM. 039249,001037: 039250,001038: 33,3032 41575 RVBOTH VLOAD PUSH 039251,001039: 33,3033 02317 G(CSM) 039252,001040: 33,3034 65255 VAD PDDL 039253,001041: 33,3035 01726 V(CSM) 039254,001042: 33,3036 01250 PGUIDE 039255,001043: 33,3037 74271 DDV VXSC 039256,001044: 33,3040 27031 SHIFT11 039257,001045: 33,3041 77655 VAD 039258,001046: 33,3042 01720 R(CSM) 039259,001047: 33,3043 37573 STCALL R1S 039260,001048: 33,3044 67130 MUNGRAV 039261,001049: 33,3045 53255 VAD VAD 039262,001050: 33,3046 01726 V(CSM) 039263,001051: 33,3047 77626 STADR 039264,001052: 33,3050 74176 STORE V1S 039265,001053: 33,3051 77776 EXIT 039266,001054: 33,3052 03552 TC QUIKFAZ5 039267,001055: 33,3053 06037 TC INTPRET 039268,001056: 33,3054 77775 VLOAD 039269,001057: 33,3055 03563 GDT1/2 039270,001058: 33,3056 26317 STOVL G(CSM) 039271,001059: 33,3057 03573 R1S 039272,001060: 33,3060 25720 STOVL R(CSM) 039273,001061: 33,3061 03601 V1S 039274,001062: 33,3062 01726 STORE V(CSM) 039275,001063: 33,3063 77776 EXIT 039276,001064: 33,3064 03552 TC QUIKFAZ5 039277,001065: 33,3065 06037 TC INTPRET 039278,001066: 33,3066 74375 MUNRVG VLOAD VXSC 039279,001067: 33,3067 00325 DELV 039280,001068: 33,3070 26024 KPIP2 039281,001069: 33,3071 53206 PUSH VAD # 1ST PUSH: DELV IN UNITS OF 2(8) M/CS 039282,001070: 33,3072 01237 GDT/2 039283,001071: 33,3073 53206 PUSH VAD # 2ND PUSH: (DELV + GDT)/2, UNITS OF 2(7) 039284,001072: 33,3074 03527 V # (12) 039285,001073: 33,3075 56325 PDDL DDV 039286,001074: 33,3076 01250 PGUIDE 039287,001075: 33,3077 27031 SHIFT11 039288,001076: 33,3100 77761 VXSC 039289,001077: 33,3101 77655 VAD 039290,001078: 33,3102 03521 R 039291,001079: 33,3103 37573 STCALL R1S # STORE R SCALED AT 2(+24) M. 039292,001080: 33,3104 67130 MUNGRAV
Page 883 |
039294,001082: 33,3105 53255 VAD VAD 039295,001083: 33,3106 77655 VAD # (0) 039296,001084: 33,3107 03527 V 039297,001085: 33,3110 03601 STORE V1S # STORE V SCALED AT 2(+7) M/CS. 039298,001086: 33,3111 77646 ABVAL 039299,001087: 33,3112 27472 STOVL ABVEL # STORE SPEED FOR LR AND DISPLAYS. 039300,001088: 33,3113 03537 UNIT/R/ 039301,001089: 33,3114 72441 DOT SL1 039302,001090: 33,3115 03601 V1S 039303,001091: 33,3116 27474 STOVL HDOTDISP # HDOT = V. UNIT(R)*2(7) M/CS. 039304,001092: 33,3117 03573 R1S 039305,001093: 33,3120 72435 VXV VSL2 039306,001094: 33,3121 02325 WM 039307,001095: 33,3122 17734 STODL DELVS # LUNAR ROTATION CORRECTION TERM*2(5) M/CS. 039308,001096: 33,3123 00045 36D 039309,001097: 33,3124 77625 DSU 039310,001098: 33,3125 02333 /LAND/ 039311,001099: 33,3126 37535 STCALL HCALC # FOR NOW, DISPLAY WHETHER POS OR NEG 039312,001100: 33,3127 66461 MUNRETRN 039313,001101: 33,3130 77656 MUNGRAV UNIT # AT 36D HAVE ABVAL(R), AT 34D R.R 039314,001102: 33,3131 17537 STODL UNIT/R/ 039315,001103: 33,3132 00043 34D 039316,001104: 33,3133 55261 SL BDDV 039317,001105: 33,3134 20207 6D 039318,001106: 33,3135 26036 -MUDTMUN 039319,001107: 33,3136 74205 DMP VXSC 039320,001108: 33,3137 27031 SHIFT11 039321,001109: 33,3140 03537 UNIT/R/ 039322,001110: 33,3141 03563 STORE GDT1/2 # 1/2GDT SCALED AT 2(7) M/CS. 039323,001111: 33,3142 77616 RVQ 039324,001112: 039325,001113: 33,3143 00303 1.95SECS DEC 195 B-14 039326,001114: 33,3144 00005 33212 7.5 2DEC .02286 B-6 # 7.5 FT/SEC AT 2(6) M/CS 039327,001115: 039328,001116: 33,3146 00014 20000 2SEC(18) 2DEC 200 B-18 039329,001117: 039330,001118: 33,3150 00000 00310 2SEC(28) 2OCT 0000000310 # 2SEC AT 2(28) 039331,001119: 039332,001120: 33,3152 00000 00620 4SEC(28) 2DEC 400 B-28 039333,001121: 039334,001122: 33,3154 00110 BITS4-7 OCT 110 039335,001123: 039336,001124:
Page 884 |
039338,001126: 33,3155 34742 UPDATCHK CAF NOLRRBIT # SEE IF LR UPDATE INHIBITED. 039339,001127: 33,3156 70107 MASK FLGWRD11 039340,001128: 33,3157 10000 CCS A 039341,001129: 33,3160 12540 TCF CONTSERV # IT IS-NO LR UPDATE 039342,001130: 33,3161 34750 CAF RNGEDBIT # NO INHIBIT - SEE ALT MEAS. THIS CYCLE. 039343,001131: 33,3162 70107 MASK FLGWRD11 039344,001132: 33,3163 00006 EXTEND 039345,001133: 33,3164 13310 BZF VMEASCHK # NO ALT MEAS THIS CYCLE-CHECK FOR VEL 039346,001134: 039347,001135: 33,3165 30120 POSUPDAT CA FIXLOC # SET PUSHLIST TO ZERO 039348,001136: 33,3166 54166 TS PUSHLOC 039349,001137: 039350,001138: 33,3167 06037 TC INTPRET 039351,001139: 33,3170 61375 VLOAD VXM 039352,001140: 33,3171 02273 HBEAMNB 039353,001141: 33,3172 02146 XNBPIP # HBEAM SM AT 2(2) 039354,001142: 33,3173 72515 PDVL VSL2 # STORE HBEAM IN PD 0-5 039355,001143: 33,3174 03601 V1S # SCALE V AT 2(5) M/CS 039356,001144: 33,3175 50255 VAD DOT 039357,001145: 33,3176 03734 DELVS # V RELATIVE TO SURFACE AT 2(5) M/CS 039358,001146: 33,3177 00001 0D # V ALONG HBEAM AT 2(7) M/CS 039359,001147: 33,3200 77405 DMP EXIT 039360,001148: 33,3201 01355 RADSKAL # SCALE TO RADAR COUNTS X 5 039361,001149: 039362,001150: 33,3202 40110 CS FLGWRD12 # TEST LR ALTITUDE SCALE FACTOR 039363,001151: 33,3203 74743 MASK ALTSCBIT 039364,001152: 33,3204 00006 EXTEND 039365,001153: 33,3205 13210 BZF +3 # BRANCH IF HIGH SCALE 039366,001154: 039367,001155: 33,3206 31356 CA SKALSKAL # RESCALE IF LOW SCALE 039368,001156: 33,3207 07307 TC SHORTMP 039369,001157: 039370,001158: 33,3210 06037 +3 TC INTPRET 039371,001159: 33,3211 54215 DAD SL # CORRECT HMEAS FOR DOPPLER EFFECT 039372,001160: 33,3212 03655 HMEAS 039373,001161: 33,3213 20210 7D 039374,001162: 33,3214 74205 DMP VXSC # SLANT RANGE AT 2(21), PUSH UP FOR HBEAM 039375,001163: 33,3215 26011 HSCAL # SLANT RANGE VECTOR AT 2(23) M 039376,001164: 33,3216 45241 DOT DSU 039377,001165: 33,3217 03537 UNIT/R/ # ALTITUDE AT 2(24) M 039378,001166: 33,3220 03535 HCALC # DELTA H AT 2(24) M 039379,001167: 33,3221 03665 STORE DELTAH 039380,001168: 33,3222 77776 EXIT 039381,001169: 039382,001170: 33,3223 30107 CA FLGWRD11 039383,001171: 33,3224 74741 MASK PSTHIBIT 039384,001172: 33,3225 00006 EXTEND # DO NOT PERFORM DATA REASONABLENESS TEST 039385,001173: 33,3226 13243 BZF NOREASON # UNTIL AFTER HIGATE
Page 885 |
039387,001175: 33,3227 06037 TC INTPRET 039388,001176: 33,3230 45246 ABS DSU 039389,001177: 33,3231 02521 DELQFIX # ABS(DELTAH) - DQFIX 50 FT NOM 039390,001178: 33,3232 45252 SL3 DSU # SCALE TO 2(21) 039391,001179: 33,3233 03535 HCALC # ABS(DELTAH) - (50 + HCALC/8) AT 2(21) 039392,001180: 33,3234 77776 EXIT 039393,001181: 039394,001182: 33,3235 25670 INCR LRLCTR 039395,001183: 33,3236 06723 TC BRANCH 039396,001184: 33,3237 13560 TCF HFAIL # DELTA H TOO LARGE 039397,001185: 33,3240 13560 TCF HFAIL # DELTA H TOO LARGE 039398,001186: 33,3241 05516 TC DOWNFLAG # TURN OFF ALT FAIL LAMP 039399,001187: 33,3242 00263 ADRES HFLSHFLG 039400,001188: 039401,001189: 33,3243 40107 NOREASON CS FLGWRD11 039402,001190: 33,3244 74744 MASK LRINHBIT 039403,001191: 33,3245 10000 CCS A 039404,001192: 33,3246 13310 TCF VMEASCHK # UPDATE INHIBITED - TEST VELOCITY ANYWAY 039405,001193: 039406,001194: 33,3247 06037 TC INTPRET # DO POSITION UPDATE 039407,001195: 33,3250 40545 DLOAD SR4 039408,001196: 33,3251 03535 HCALC # RESCALE H TO 2(28)M 039409,001197: 33,3252 77776 EXIT 039410,001198: 33,3253 00006 EXTEND 039411,001199: 33,3254 31665 DCA DELTAH # STORE DELTAH IN MPAC AND 039412,001200: 33,3255 52155 DXCH MPAC # BRING HCALC INTO A,L 039413,001201: 33,3256 07544 TC ALSIGNAG 039414,001202: 33,3257 00006 EXTEND # IF HIGH PART OF HCALC IS NON ZERO, THEN 039415,001203: 33,3260 13262 BZF +2 # HCALC > HMAX, 039416,001204: 33,3261 13310 TCF VMEASCHK # SO UPDATE IS BYPASSED 039417,001205: 33,3262 54156 TS MPAC +2 # FOR LATER SHORTMP 039418,001206: 039419,001207: 33,3263 40001 CS L # -H AT 2(14) M 039420,001208: 33,3264 61420 AD LRHMAX # HMAX - H 039421,001209: 33,3265 00006 EXTEND 039422,001210: 33,3266 63310 BZMF VMEASCHK # IF H >HMAX, BYPASS UPDATE 039423,001211: 33,3267 00006 EXTEND 039424,001212: 33,3270 71421 MP LRWH # WH(HMAX - H) 039425,001213: 33,3271 00006 EXTEND 039426,001214: 33,3272 11420 DV LRHMAX # WH(1 - H/HMAX) 039427,001215: 33,3273 54135 TS MPTEMP 039428,001216: 33,3274 07313 TC SHORTMP2 # DELTAH (WH)(1 - H/HMAX) IN MPAC 039429,001217: 33,3275 06037 TC INTPRET # MODE IS DP FROM ABOVE 039430,001218: 33,3276 77752 SL1 039431,001219: 33,3277 53361 VXSC VAD 039432,001220: 33,3300 03537 UNIT/R/ # DELTAR = DH(WH)(1 - H/HMAX) UNIT/R/ 039433,001221: 33,3301 03573 R1S 039434,001222: 33,3302 37657 STCALL GNUR 039435,001223: 33,3303 67130 MUNGRAV 039436,001224: 33,3304 77776 EXIT
Page 886 |
039438,001226: 33,3305 03552 TC QUIKFAZ5 039439,001227: 039440,001228: 33,3306 34755 CA ZERO 039441,001229: 33,3307 03534 RUPDATED TC GNURVST 039442,001230: 039443,001231: 33,3310 03552 VMEASCHK TC QUIKFAZ5 # RESTART AT NEXT LOCATION 039444,001232: 33,3311 40107 CS FLGWRD11 039445,001233: 33,3312 74745 MASK VELDABIT # IS V READING AVAILABLE? 039446,001234: 33,3313 10000 CCS A 039447,001235: 33,3314 13514 TCF VALTCHK # NO SEE IF V READING TO BE TAKEN 039448,001236: 039449,001237: 33,3315 41651 VELUPDAT CS VSELECT # PROCESS VELOCITY DATA 039450,001238: 33,3316 54001 TS L 039451,001239: 33,3317 26001 ADS L # -2 VSELECT IN L 039452,001240: 33,3320 60001 AD L 039453,001241: 33,3321 60001 AD L # -6 VSELECT IN A 039454,001242: 33,3322 50120 INDEX FIXLOC 039455,001243: 33,3323 52047 DXCH X1 # X1 = -6 VSELECT, X2 = -2 VSELECT 039456,001244: 039457,001245: 33,3324 34741 CA EBANK4 039458,001246: 33,3325 54003 TS EBANK 039459,001247: 33,3326 E4,1654 EBANK= LRXCDU 039460,001248: 039461,001249: 33,3326 31655 CA LRYCDU # STORE LRCDUS IN CDUSPOTS 039462,001250: 33,3327 54766 TS CDUSPOT 039463,001251: 33,3330 31656 CA LRZCDU 039464,001252: 33,3331 54770 TS CDUSPOT +2 039465,001253: 33,3332 31654 CA LRXCDU 039466,001254: 33,3333 54772 TS CDUSPOT +4 039467,001255: 039468,001256: 33,3334 04616 TC BANKCALL 039469,001257: 33,3335 47615 CADR QUICTRIG # GET SINES AND COSINES FOR NBSM 039470,001258: 039471,001259: 33,3336 30120 CA FIXLOC 039472,001260: 33,3337 54166 TS PUSHLOC # SET PD TO ZERO 039473,001261: 039474,001262: 33,3340 06037 TC INTPRET 039475,001263: 33,3341 45173 VLOAD* CALL 039476,001264: 33,3342 02231 VZBEAMNB,1 # CONVERT VBEAM FROM NB TO SM 039477,001265: 33,3343 47673 *NBSM* 039478,001266: 33,3344 54325 PDDL SL # STORE IN PD 0-5 039479,001267: 33,3345 03653 VMEAS # LOAD VELOCITY MEASUREMENT 039480,001268: 33,3346 20215 12D 039481,001269: 33,3347 41403 DMP* PUSH # SCALE TO M/CS AT 2(6) 039482,001270: 33,3350 51764 VZSCAL,2 # AND STORE IN PD 6-7 039483,001271: 33,3351 77776 EXIT 039484,001272: 33,3352 44753 CS ONE 039485,001273: 33,3353 54163 TS MODE # CHANGE STORE MODE TO VECTOR 039486,001274: 039487,001275: 33,3354 31657 CA PIPTEM # STORE DELV IN MPAC
Page 887 |
039489,001277: 33,3355 22007 ZL 039490,001278: 33,3356 52155 DXCH MPAC 039491,001279: 039492,001280: 33,3357 31660 CA PIPTEM +1 039493,001281: 33,3360 22007 ZL 039494,001282: 33,3361 52160 DXCH MPAC +3 039495,001283: 039496,001284: 33,3362 31661 CA PIPTEM +2 039497,001285: 33,3363 22007 ZL 039498,001286: 33,3364 52162 DXCH MPAC +5 039499,001287: 039500,001288: 33,3365 35016 CA EBANK7 039501,001289: 33,3366 54003 TS EBANK # RESTORE EBANK 7 039502,001290: 33,3367 E7,1515 EBANK= DVCNTR 039503,001291: 33,3367 06037 TC INTPRET 039504,001292: 33,3370 65361 VXSC PDDL 039505,001293: 33,3371 26022 KPIP1 # SCALE DELV TO 2(7) M/CS AND PUSH 039506,001294: 33,3372 02253 LRVTIME # TIME OF DELV AT 2(28) CS 039507,001295: 33,3373 56225 DSU DDV 039508,001296: 33,3374 01235 PIPTIME # TU - T(N-1) 039509,001297: 33,3375 27151 2SEC(28) 039510,001298: 33,3376 76561 VXSC VSL1 # G(N-1)(TU - T(N-1)) 039511,001299: 33,3377 01237 GDT/2 # SCALED AT 2(7) M/CS 039512,001300: 33,3400 53255 VAD VAD # PUSH UP FOR DELV 039513,001301: 33,3401 03527 V # VU = V(N-1) + DELVU + G(N-1) DTU 039514,001302: 33,3402 53352 VSL2 VAD # SCALE TO 2(5) M/CS AND SUBTRACT 039515,001303: 33,3403 03734 DELVS # MOON ROTATION. 039516,001304: 33,3404 51406 PUSH ABVAL # STORE IN PD 039517,001305: 33,3405 43202 SR4 DAD # ABS(VM)/8 + 7.5 AT 2(6) 039518,001306: 33,3406 27145 7.5 039519,001307: 33,3407 24025 STOVL 20D # STORE IN 20D AND PICK UP VM 039520,001308: 33,3410 44241 DOT BDSU # V(EST) AT 2(6) 039521,001309: 33,3411 00001 0 # DELTAV = VMEAS - V(EST) 039522,001310: 33,3412 51406 PUSH ABS 039523,001311: 33,3413 77425 DSU EXIT # ABS(DV) - (7.5 + ABS(VM)/8)) 039524,001312: 33,3414 00025 20D 039525,001313: 039526,001314: 33,3415 25672 INCR LRMCTR 039527,001315: 33,3416 06723 TC BRANCH 039528,001316: 33,3417 13575 TCF VFAIL # DELTA V TOO LARGE ALARM 039529,001317: 33,3420 13575 TCF VFAIL # DELTA V TOO LARGE ALARM 039530,001318: 039531,001319: 33,3421 05516 TC DOWNFLAG # TURN OFF VEL FAIL LAMP 039532,001320: 33,3422 00262 ADRES VFLSHFLG 039533,001321: 039534,001322: 33,3423 30107 CA FLGWRD11 039535,001323: 33,3424 74740 MASK VXINHBIT 039536,001324: 33,3425 00006 EXTEND 039537,001325: 33,3426 13435 BZF VUPDAT # IF VX INHIBIT RESET, INCORPORATE DATA.
Page 888 |
039539,001327: 33,3427 05516 TC DOWNFLAG 039540,001328: 33,3430 00250 ADRES VXINH # RESET VX INHIBIT 039541,001329: 039542,001330: 33,3431 31651 CA VSELECT 039543,001331: 33,3432 67746 AD NEG2 # IF VSELECT = 2 (X AXIS), 039544,001332: 33,3433 00006 EXTEND # BYPASS UPDATE 039545,001333: 33,3434 13514 BZF ENDVDAT 039546,001334: 039547,001335: 33,3435 40107 VUPDAT CS FLGWRD11 039548,001336: 33,3436 74744 MASK LRINHBIT 039549,001337: 33,3437 10000 CCS A 039550,001338: 33,3440 13514 TCF VALTCHK # UPDATE INHIBITED 039551,001339: 039552,001340: 33,3441 54155 TS MPAC +1 039553,001341: 039554,001342: 33,3442 31471 CA ABVEL # STORE E7 ERASABLES NEEDED IN TEMPS 039555,001343: 33,3443 54130 TS ABVEL* 039556,001344: 33,3444 31651 CA VSELECT 039557,001345: 33,3445 54131 TS VSELECT* 039558,001346: 33,3446 35014 CA EBANK5 039559,001347: 33,3447 54003 TS EBANK # CHANGE EBANKS 039560,001348: 039561,001349: 33,3450 E5,1527 EBANK= LRVF 039562,001350: 33,3450 41527 CS LRVF 039563,001351: 33,3451 60130 AD ABVEL* # IF V < VF, USE WVF 039564,001352: 33,3452 00006 EXTEND 039565,001353: 33,3453 63466 BZMF USEVF 039566,001354: 039567,001355: 33,3454 40130 CS ABVEL* 039568,001356: 33,3455 61526 AD LRVMAX # VMAX - V 039569,001357: 33,3456 00006 EXTEND 039570,001358: 33,3457 63471 BZMF WSTOR -1 # IF V > VMAX, W = 0 039571,001359: 039572,001360: 33,3460 00006 EXTEND 039573,001361: 33,3461 50131 INDEX VSELECT* 039574,001362: 33,3462 71530 MP LRWVZ # WV(VMAX - V) 039575,001363: 039576,001364: 33,3463 00006 EXTEND 039577,001365: 33,3464 11526 DV LRVMAX # WV( 1 - V/VMAX ) 039578,001366: 33,3465 13472 TCF WSTOR 039579,001367: 039580,001368: 33,3466 50131 USEVF INDEX VSELECT* 039581,001369: 33,3467 31533 CA LRWVFZ # USE APPROPRIATE CONSTANT WEIGHT 039582,001370: 33,3470 13472 TCF WSTOR 039583,001371: 039584,001372: 33,3471 34755 -1 CA ZERO 039585,001373: 33,3472 54154 WSTOR TS MPAC 039586,001374: 33,3473 44745 CS BIT7 # (=64D) 039587,001375: 33,3474 61011 AD MODREG 039588,001376: 33,3475 00006 EXTEND
Page 889 |
039590,001378: 33,3476 63501 BZMF +3 # IF IN P65,P66,P67, USE ANOTHER CONSTANT 039591,001379: 039592,001380: 33,3477 31536 CA LRWVFF 039593,001381: 33,3500 54154 TS MPAC 039594,001382: 039595,001383: 33,3501 35016 +3 CA EBANK7 039596,001384: 33,3502 54003 TS EBANK # CHANGE EBANKS 039597,001385: 039598,001386: 33,3503 E7,1471 EBANK= ABVEL 039599,001387: 33,3503 06037 TC INTPRET 039600,001388: 33,3504 74205 DMP VXSC # W(DELTA V)(VBEAMSM) UP 6-7, 0-5 039601,001389: 33,3505 77655 VAD 039602,001390: 33,3506 03601 V1S # ADD WEIGHTED DELTA V TO VELOCITY 039603,001391: 33,3507 03657 STORE GNUV 039604,001392: 33,3510 77776 EXIT 039605,001393: 039606,001394: 33,3511 03552 TC QUIKFAZ5 # DO NOT RE-UPDATE 039607,001395: 039608,001396: 33,3512 36242 CA SIX 039609,001397: 33,3513 03534 VUPDATED TC GNURVST # STORE NEW VELOCITY VECTOR 039610,001398: 33,3514 33,3514 ENDVDAT = VALTCHK 039611,001399: 039612,001400: 33,3514 03552 VALTCHK TC QUIKFAZ5 # DO NOT REPEAT ABOVE 039613,001401: 039614,001402: 33,3515 34747 CAF READVBIT # TEST READVEL TO SEE IF VELOCITY READING 039615,001403: 33,3516 70107 MASK FLGWRD11 # IS DESIRED. 039616,001404: 33,3517 10000 CCS A 039617,001405: 33,3520 13527 TCF READV # TES - READ VELOCITY 039618,001406: 33,3521 41471 CS ABVEL # NO - SEE IF VELOCITY < 2000 FT/SEC 039619,001407: 33,3522 62707 AD 2KFT/SEC 039620,001408: 33,3523 00006 EXTEND 039621,001409: 33,3524 62540 BZMF CONTSERV # V > 2000 FT/SEC DO NOT READ VEL 039622,001410: 039623,001411: 33,3525 05504 TC UPFLAG # V < 2000 FT/SEC SET READVEL AND READ 039624,001412: 33,3526 00257 ADRES READVEL 039625,001413: 039626,001414: 33,3527 37720 READV CAF PRIO32 # SET UP JOB TO READ VELOCITY BEAMS. 039627,001415: 33,3530 05072 TC NOVAC 039628,001416: 33,3531 E7,1654 EBANK= HMEAS 039629,001417: 33,3531 03616 66067 2CADR LRVJOB 039630,001418: 039631,001419: 33,3533 12540 TCF CONTSERV # CONTINUE WITH SERVICER 039632,001420: 039633,001421: 33,3534 54130 GNURVST TS BUF # STORE GNUR (=GNUV) IN R1S OR V1S 039634,001422: 33,3535 00006 EXTEND # A = 0 FOR R, A = 6 FOR V 039635,001423: 33,3536 31657 DCA GNUR 039636,001424: 33,3537 50130 INDEX BUF 039637,001425: 33,3540 53573 DXCH R1S 039638,001426: 33,3541 00006 EXTEND
Page 890 |
039640,001428: 33,3542 31661 DCA GNUR +2 039641,001429: 33,3543 50130 INDEX BUF 039642,001430: 33,3544 53575 DXCH R1S +2 039643,001431: 33,3545 00006 EXTEND 039644,001432: 33,3546 31663 DCA GNUR +4 039645,001433: 33,3547 50130 INDEX BUF 039646,001434: 33,3550 53577 DXCH R1S +4 039647,001435: 33,3551 00002 TC Q 039648,001436: 039649,001437: 33,3552 35007 QUIKFAZ5 CA EBANK3 039650,001438: 33,3553 56003 XCH EBANK # SET EBANK 3 039651,001439: 33,3554 52002 DXCH L # Q TO A, A TO L 039652,001440: 33,3555 E3,1446 EBANK= PHSNAME5 039653,001441: 33,3555 55446 TS PHSNAME5 039654,001442: 33,3556 22003 LXCH EBANK 039655,001443: 33,3557 E7,1515 EBANK= DVCNTR 039656,001444: 33,3557 00000 TC A 039657,001445: 039658,001446: 33,3560 41671 HFAIL CS LRRCTR 039659,001447: 33,3561 00006 EXTEND 039660,001448: 33,3562 13572 BZF NORLITE # IF R = 0, DO NOT TURN ON TRK FAIL 039661,001449: 33,3563 61670 AD LRLCTR 039662,001450: 33,3564 77745 MASK NEG3 039663,001451: 33,3565 00006 EXTEND # IF L-R LT 4, DO NOT TURN ON TRK FAIL 039664,001452: 33,3566 13570 BZF +2 039665,001453: 33,3567 13572 TCF NORLITE 039666,001454: 039667,001455: 33,3570 05504 TC UPFLAG # AND SET BIT TO TURN ON TRACKER FAIL LITE 039668,001456: 33,3571 00263 ADRES HFLSHFLG 039669,001457: 039670,001458: 33,3572 31670 NORLITE CA LRLCTR 039671,001459: 33,3573 55671 TS LRRCTR # SET R = L 039672,001460: 039673,001461: 33,3574 13310 TCF VMEASCHK 039674,001462: 039675,001463: 33,3575 41673 VFAIL CS LRSCTR # DELTA Q LARGE 039676,001464: 33,3576 00006 EXTEND # IF S = 0, DO NOT TURN ON TRACKER FAIL 039677,001465: 33,3577 13607 BZF NOLITE 039678,001466: 33,3600 61672 AD LRMCTR # M-S 039679,001467: 33,3601 77745 MASK NEG3 # TEST FOR M-S > 3 039680,001468: 33,3602 00006 EXTEND # IF M-S > 3, THEN TWO OR MORE OF THE 039681,001469: 33,3603 13605 BZF +2 # LAST FOUR V READINGS WERE BAD, 039682,001470: 33,3604 13607 TCF NOLITE # SO TURN ON VELOCITY FAIL LIGHT 039683,001471: 039684,001472: 33,3605 05504 TC UPFLAG # AND SET BIT TO TURN ON TRACKER FAIL LITE 039685,001473: 33,3606 00262 ADRES VFLSHFLG 039686,001474:
Page 891 |
039688,001476: 33,3607 31672 NOLITE CA LRMCTR # SET S = M 039689,001477: 33,3610 55673 TS LRSCTR 039690,001478: 039691,001479: 33,3611 11651 CCS VSELECT # TEST FOR Z COMPONENT 039692,001480: 33,3612 13514 TCF ENDVDAT # NOT Z, DO NOT SET VX INHIBIT 039693,001481: 039694,001482: 33,3613 05504 TC UPFLAG # Z COMPONENT - SET FLAG TO SKIP X 039695,001483: 33,3614 00250 ADRES VXINH # COMPONENT, AS ERROR MAY BE DUE TO CROSS 039696,001484: 33,3615 13514 TCF ENDVDAT # LOBE LOCK UP NOT DETECTED ON X AXIS. 039697,001485:
Page 892 |
039699,001487: # ******************************************************************************************************** 039700,001488: # LRVJOB IS SET WHEN THE LEM IS BELOW 15000 FT DURING THE LANDING PHASE 039701,001489: # THIS JOB INITIALIZES THE LANDING RADAR READ ROUTINE FOR 5 VELOCITY 039702,001490: # SAMPLES AND GOES TO SLEEP WHILE THE SAMPLING IS DONE-ABOUT 500 MS. 039703,001491: # WITH A GOODEND RETURN THE DATA IS STORED IN VMEAS AND BIT7 OF LRSTAT 039704,001492: # IS SET. THE GIMBAL ANGLES ARE READ ABOUT MIDWAY IN THE SAMPLING . 039705,001493: 039706,001494: 33,3616 4361 170MS EQUALS ND1 039707,001495: 039708,001496: 33,3616 34361 LRVJOB CA 170MS # SET TASK TO READ CDUS + PIPAS 039709,001497: 33,3617 05203 TC WAITLIST 039710,001498: 33,3620 E4,1652 EBANK= LRVTIME 039711,001499: 33,3620 03757 70064 2CADR RDGIMS 039712,001500: 039713,001501: 33,3622 11651 CCS VSELECT # SEQUENCE LR VEL BEAM SELECTOR 039714,001502: 33,3623 13625 TCF +2 039715,001503: 33,3624 34752 CAF TWO # IF ZERO-RESET TO TWO 039716,001504: 33,3625 60000 DOUBLE # 2XVSELECT USED FOR VBEAM INDEX IN LRVEL 039717,001505: 33,3626 04616 TC BANKCALL # GO INITIALIZE LR VEL READ ROUTINE 039718,001506: 33,3627 53107 CADR LRVEL 039719,001507: 33,3630 04616 TC BANKCALL # PUT LRVJOB TO SLEEP ABOUT 500 MS 039720,001508: 33,3631 17714 CADR RADSTALL 039721,001509: 33,3632 13665 TCF VBAD 039722,001510: 33,3633 11675 CCS STILBADV # IS DATA GOOD JUST PRESENT? 039723,001511: 33,3634 13666 TCF VSTILBAD # JUST GOOD - MUST WAIT 4 SECONDS. 039724,001512: 039725,001513: 33,3635 00004 INHINT 039726,001514: 33,3636 00006 EXTEND # GOOD RETURN-STOW AWAY VMEAS 039727,001515: 33,3637 31102 DCA SAMPLSUM 039728,001516: 33,3640 53653 DXCH VMEAS 039729,001517: 33,3641 34741 CA EBANK4 # FOR DOWNLINK 039730,001518: 33,3642 54003 TS EBANK 039731,001519: 33,3643 E4,1652 EBANK= LRVTIME 039732,001520: 039733,001521: 33,3643 00006 EXTEND 039734,001522: 33,3644 31653 DCA LRVTIME 039735,001523: 33,3645 53740 DXCH LRVTIMDL 039736,001524: 33,3646 00006 EXTEND 039737,001525: 33,3647 31655 DCA LRXCDU 039738,001526: 33,3650 53735 DXCH LRXCDUDL 039739,001527: 33,3651 31656 CA LRZCDU 039740,001528: 33,3652 55736 TS LRZCDUDL 039741,001529: 33,3653 35016 CA EBANK7 039742,001530: 33,3654 54003 TS EBANK 039743,001531: 33,3655 E7,1651 EBANK= VSELECT 039744,001532: 039745,001533: 33,3655 40107 CS FLGWRD11 # SET BIT TO INDICATE VELOCITY 039746,001534: 33,3656 74745 MASK VELDABIT # MEASUREMENT MADE.
Page 893 |
039748,001536: 33,3657 26107 ADS FLGWRD11 039749,001537: 33,3660 11651 ENDLRV CCS VSELECT # UPDATE VSELECT 039750,001538: 33,3661 13663 TCF +2 039751,001539: 33,3662 34752 CA TWO 039752,001540: 33,3663 55651 TS VSELECT 039753,001541: 33,3664 15155 TCF ENDOFJOB 039754,001542: 039755,001543: 33,3665 34752 VBAD CAF TWO # SET STILBAD TO WAIT 4 SECONDS 039756,001544: 33,3666 55675 VSTILBAD TS STILBADV 039757,001545: 33,3667 13660 TCF ENDLRV 039758,001546: 039759,001547: # LRHJOB IS SET BY LRHTASK WHEN LEM IS BELOW 25000 FT. THIS JOB 039760,001548: # INITIALIZES THE LR READ ROUTINE FOR AN ALT MEASUREMENT AND GOES TO 039761,001549: # SLEEP WHILE THE SAMPLING IS DONE-ABOUT 95 MS. WITH A GOODEND RETURN 039762,001550: # THE ALT DATA IS STORED IN HMEAS AND BIT7 OF LRSTAT IS SET. 039763,001551: 039764,001552: 34,3716 BANK 34 039765,001553: 34,2000 SETLOC R12STUFF 039766,001554: 34,2000 BANK 039767,001555: 039768,001556: 34,3716 COUNT* $$/SERV 039769,001557: 039770,001558: 34,3716 04616 LRHJOB TC BANKCALL # INITIATE LR ALT MEASUREMENT 039771,001559: 34,3717 53073 CADR LRALT 039772,001560: 34,3720 04616 TC BANKCALL # LRHJOB TO SLEEP ABOUT 95MS 039773,001561: 34,3721 17714 CADR RADSTALL 039774,001562: 34,3722 13745 TCF HBAD 039775,001563: 34,3723 11674 CCS STILBADH # IS DATA GOOD JUST PRESENT? 039776,001564: 34,3724 13755 TCF HSTILBAD # JUST GOOD - MUST WAIT 4 SECONDS. 039777,001565: 039778,001566: 34,3725 00004 INHINT 039779,001567: 34,3726 00006 EXTEND 039780,001568: 34,3727 31102 DCA SAMPLSUM # GOOD RETURN-STORE AWAY LRH DATA 039781,001569: 34,3730 53655 DXCH HMEAS # LRH DATA 1.079 FT/BIT 039782,001570: 34,3731 00006 EXTEND # FOR DOWNLINK 039783,001571: 34,3732 31561 DCA PIPTIME1 039784,001572: 34,3733 53755 DXCH MKTIME 039785,001573: 039786,001574: 34,3734 00006 EXTEND 039787,001575: 34,3735 31157 DCA CDUTEMPY # CDUY,Z = AIG,AMG 039788,001576: 34,3736 53460 DXCH AIG 039789,001577: 039790,001578: 34,3737 31155 CA CDUTEMPX # CDUX = AOG 039791,001579: 34,3740 55461 TS AOG 039792,001580: 039793,001581: 34,3741 40107 CS FLGWRD11 # SET BIT TO INDICATE RANGE 039794,001582: 34,3742 74750 MASK RNGEDBIT # MEASUREMENT MADE. 039795,001583: 34,3743 26107 ADS FLGWRD11 039796,001584: 34,3744 05155 ENDLRH TC ENDOFJOB # TERMINATE LRHJOB 039797,001585:
Page 894 |
039799,001587: 34,3745 30101 HBAD CA FLAGWRD5 039800,001588: 34,3746 74742 MASK RNGSCBIT # IS BAD RETURN DUE TO SCALE CHANGE? 039801,001589: 34,3747 00006 EXTEND 039802,001590: 34,3750 13754 BZF HSTILBAD -1 # NO RESET HSTILBAD 039803,001591: 34,3751 05516 TC DOWNFLAG # YES RESET SCALE CHANGE BIT AND IGNORE 039804,001592: 34,3752 00120 ADRES RNGSCFLG 039805,001593: 34,3753 05155 TC ENDOFJOB 039806,001594: 039807,001595: 34,3754 34752 CAF TWO # SET STILBAD TO WAIT 4 SECONDS 039808,001596: 34,3755 55674 HSTILBAD TS STILBADH 039809,001597: 34,3756 05155 TC ENDOFJOB 039810,001598: 039811,001599: 34,3757 BANK 34 039812,001600: 34,2000 SETLOC SERV4 039813,001601: 34,2000 BANK 039814,001602: 039815,001603: 34,3757 COUNT* $$/SERV 039816,001604: 039817,001605: # RDGIMS IS A TASK SET UP BY LRVJOB TO PICK UP THE IMU CDUS AND TIME 039818,001606: # AT ABOUT THE MIDPOINT OF THE LR VEL READ ROUTINE WHEN 5 VEL SAMPLES 039819,001607: # ARE SPECIFIED. 039820,001608: 039821,001609: 34,3757 E4,1652 EBANK= LRVTIME 039822,001610: 34,3757 00006 RDGIMS EXTEND 039823,001611: 34,3760 30025 DCA TIME2 # PICK UP TIME2, TIME1 039824,001612: 34,3761 53653 DXCH LRVTIME # AND SAVE IN LRVTIME 039825,001613: 039826,001614: 34,3762 00006 EXTEND 039827,001615: 34,3763 30033 DCA CDUX # PICK UP CDUX AND CDUY 039828,001616: 34,3764 53655 DXCH LRXCDU # AND SAVE IN LRXCDU AND LRYCDU 039829,001617: 039830,001618: 34,3765 30034 CA CDUZ 039831,001619: 34,3766 55656 TS LRZCDU # SAVE CDUZ IN LRZCDU 039832,001620: 039833,001621: 34,3767 30037 CA PIPAX 039834,001622: 34,3770 55657 TS PIPTEM # SAVE PIPAX IN PIPTEM 039835,001623: 039836,001624: 34,3771 00006 EXTEND 039837,001625: 34,3772 30041 DCA PIPAY # PICK UP PIPAY AND PIPAZ 039838,001626: 34,3773 53661 DXCH PIPTEM +1 # AND SAVE IN PIPTEM +1 AND PIPTEM +2 039839,001627: 34,3774 05261 TC TASKOVER 039840,001628: 039841,001629: 33,3670 BANK 33 039842,001630: 33,2000 SETLOC SERVICES 039843,001631: 33,2000 BANK 039844,001632: 039845,001633: 33,3670 COUNT* $$/SERV 039846,001634: 039847,001635: 33,3670 E7,1515 EBANK= DVCNTR
Page 895 |
039849,001637: # HIGATJOB IS SET APPROXIMATELY 6 SECONDS PRIOR TO HIGH GATE DURING 039850,001638: # THE DESCENT BURN PHASE OF LUNAR LANDING. THIS JOB INITIATES THE 039851,001639: # LANDING RADAR REPOSITIONING ROUTINE AND GOES TO SLEEP UNTIL THE 039852,001640: # LR ANTENNA MOVES FROM POSITION 1 TO POSITION 2. IF THE LR ANTENNA 039853,001641: # ACHIEVES POSITION 2 WITHIN 22 SECONDS THE ALTITUDE AND VELOCITY 039854,001642: # BEAM VECTORS ARE RECOMPUTED TO REFLECT THE NEW ORIENTATION WITH 039855,001643: # RESPECT TO THE NB. BIT10 OF LRSTAT IS CLEARED TO ALLOW LR 039856,001644: # MEASUREMENTS AND THE JOB TERMINATES. 039857,001645: 039858,001646: 33,3670 04616 HIGATJOB TC BANKCALL # START LRPOS2 JOB 039859,001647: 33,3671 53471 CADR LRPOS2 039860,001648: 33,3672 04616 TC BANKCALL # PUT HIGATJOB TO SLEEP UNTIL JOB IS DONE 039861,001649: 33,3673 17714 CADR RADSTALL 039862,001650: 33,3674 13703 TCF POSALARM # BAD END ALARM 039863,001651: 039864,001652: 33,3675 37711 POSGOOD CA PRIO23 # REDUCE PRIORITY FOR INTERPRETIVE COMPS. 039865,001653: 33,3676 05146 TC PRIOCHNG 039866,001654: 039867,001655: 33,3677 03737 TC SETPOS2 # LR IN POS2 - SET UP TRANSFORMATIONS 039868,001656: 039869,001657: 33,3700 05516 TC DOWNFLAG 039870,001658: 33,3701 00252 ADRES NOLRREAD # RESET NOLRREAD FLAG TO ENABLE LR READING 039871,001659: 33,3702 05155 TC ENDOFJOB 039872,001660: 039873,001661: 33,3703 33720 POSALARM CA OCT523 039874,001662: 33,3704 04616 TC BANKCALL 039875,001663: 33,3705 21562 CADR PRIOLARM # FLASH ALARM CODE 039876,001664: 33,3706 16001 TCF GOTOPOOH # TERMINATE 039877,001665: 33,3707 13712 TCF +3 # PROCEED - TRY AGAIN 039878,001666: 33,3710 15155 TCF ENDOFJOB # V 32 E TERMINATE R12 039879,001667: 33,3711 05155 TC ENDOFJOB 039880,001668: 039881,001669: 33,3712 34745 +3 CA BIT7 # SEE IF IN POS2 YET 039882,001670: 33,3713 00006 EXTEND 039883,001671: 33,3714 02033 RAND CHAN33 039884,001672: 33,3715 00006 EXTEND 039885,001673: 33,3716 13675 BZF POSGOOD # POS2 ACHIEVED SET UP ANTENNA BEAMS 039886,001674: 33,3717 13703 TCF POSALARM # STILL DIDN'T MAKE IT REALARM 039887,001675: 039888,001676: 33,3720 00523 OCT523 OCT 00523 039889,001677: 039890,001678: 039891,001679: 039892,001680: 33,3721 04645 SETPOS1 TC MAKECADR # MUST BE CALLED BY BANKCALL 039893,001681: 33,3722 55656 TS LRADRET1 # SAVE RETURN CADR, SINCE BUF2 CLOBBERED 039894,001682: 039895,001683: 33,3723 34752 CAF TWO 039896,001684: 33,3724 55674 TS STILBADH # INITIALIZE STILBAD 039897,001685: 33,3725 55675 TS STILBADV # INITIALIZE STILBAD 039898,001686: 039899,001687: 33,3726 34755 CA ZERO # INDEX FOR LRALPHA,LRBETA IN POS 1.
Page 896 |
039901,001689: 33,3727 55670 TS LRLCTR # SET L,M,R, ANS S TO ZERO 039902,001690: 33,3730 55672 TS LRMCTR 039903,001691: 33,3731 55671 TS LRRCTR 039904,001692: 33,3732 55673 TS LRSCTR 039905,001693: 33,3733 55651 TS VSELECT # INITIALIZE VSELECT 039906,001694: 039907,001695: 33,3734 03740 TC SETPOS # CONTINUE WITH COMPUTATIONS 039908,001696: 039909,001697: 33,3735 31656 CA LRADRET1 039910,001698: 33,3736 04640 TC BANKJUMP # RETURN TO CALLER 039911,001699: 039912,001700: 33,3737 34752 SETPOS2 CA TWO # INDEX FOR POS2 039913,001701: 33,3740 56002 SETPOS XCH Q # SAVE INDEX IN Q 039914,001702: 33,3741 55650 TS LRADRET # SAVE RETURN 039915,001703: 039916,001704: 33,3742 35014 CA EBANK5 039917,001705: 33,3743 54003 TS EBANK 039918,001706: 33,3744 E5,1522 EBANK= LRALPHA 039919,001707: 039920,001708: 33,3744 00006 EXTEND 039921,001709: 33,3745 50002 INDEX Q 039922,001710: 33,3746 31523 DCA LRALPHA # LRALPHA IN A, LRBETA IN L 039923,001711: 33,3747 54772 TS CDUSPOT +4 # ROTATION ABOUT X 039924,001712: 33,3750 22766 LXCH CDUSPOT # ROTATION ABOUT Y 039925,001713: 33,3751 34755 CA ZERO 039926,001714: 33,3752 54770 TS CDUSPOT +2 # ZERO ROTATION ABOUT Z. 039927,001715: 039928,001716: 33,3753 35016 CA EBANK7 039929,001717: 33,3754 54003 TS EBANK 039930,001718: 33,3755 E7,1650 EBANK= LRADRET 039931,001719: 039932,001720: 33,3755 06037 TC INTPRET 039933,001721: 33,3756 45175 VLOAD CALL 039934,001722: 33,3757 06516 UNITY # CONVERT UNITY(ANTENNA) TO NB 039935,001723: 33,3760 47651 TRG*SMNB 039936,001724: 33,3761 26237 STOVL VYBEAMNB 039937,001725: 33,3762 06520 UNITX # CONVERT UNITX(ANTENNA) TO NB 039938,001726: 33,3763 77624 CALL 039939,001727: 33,3764 47671 *SMNB* 039940,001728: 33,3765 02245 STORE VXBEAMNB 039941,001729: 33,3766 76435 VXV VSL1 039942,001730: 33,3767 02237 VYBEAMNB 039943,001731: 33,3770 26231 STOVL VZBEAMNB # Z = X * Y 039944,001732: 33,3771 26003 HBEAMANT 039945,001733: 33,3772 77624 CALL 039946,001734: 33,3773 47671 *SMNB* # CONVERT TO NB 039947,001735: 33,3774 02273 STORE HBEAMNB 039948,001736: 33,3775 77776 EXIT 039949,001737:
Page 897 |
039951,001739: 33,3776 01650 TC LRADRET
039952,001740:
End of include-file SERVICER.agc. Parent file is MAIN.agc