Source Code

037240,000001: # Copyright: Public domain. 037241,000002: # Filename: SERVICER.agc 037242,000003: # Purpose: Part of the source code for Luminary, build 099. It 037243,000004: # is part of the source code for the Lunar Module's 037244,000005: # (LM) Apollo Guidance Computer (AGC), Apollo 11. 037245,000006: # Assembler: yaYUL 037246,000007: # Reference: pp. 857-897 037247,000008: # Contact: Ron Burkey <info@sandroid.org>, 037248,000009: # Fabrizio Bernardini <fabrizio@spacecraft.it> 037249,000010: # Website: http://www.ibiblio.org/apollo. 037250,000011: # Mod history: 2009-06-01 FB Transcription Batch 4 Assignment. 037251,000012: # 2009-06-05 RSB Fixed a couple of typos, plus a goofy relative 037252,000013: # label reference from the original source. 037253,000014: # 2011-01-06 JL Fixed pseudo-label indentation. 037254,000015: # 2011-01-06 JL Fixed pseudo-labels which were incorrectly real labels. 037255,000016: 037256,000017: # The contents of the "Luminary099" files, in general, are transcribed 037257,000018: # from scanned documents. 037258,000019: 037259,000020: # Assemble revision 001 of AGC program Luminary099 by NASA 037260,000021: # 2021112-061. July 14, 1969. 037261,000022: 037262,000023: # Prepared by 037263,000024: # Massachusetts Institute of Technology 037264,000025: # 75 Cambridge Parkway 037265,000026: # Cambridge, Massachusetts 037266,000027: 037267,000028: # under NASA contract NAS 9-4065. 037268,000029: 037269,000030: # Refer directly to the online document mentioned above for further 037270,000031: # information. Please report any errors to info@sandroid.org. 037271,000032: 037272,000033: # Page 857 037273,000034: 37,3410 BANK 37 037274,000035: 37,2000 SETLOC SERV1 037275,000036: 37,2000 BANK 037276,000037: 037277,000038: 37,3410 E7,1515 EBANK= DVCNTR 037278,000039: 037279,000040: # ************* PREREAD ******************* 037280,000041: 037281,000042: 37,3410 COUNT* $$/SERV 037282,000043: 037283,000044: 37,3410 34757 PREREAD CAF SEVEN # 5.7 SPOT TO SKIP LASTBIAS AFTER 037284,000045: 37,3411 03531 TC GNUFAZE5 # RESTART. 037285,000046: 37,3412 35031 CAF PRIO21 037286,000047: 37,3413 05072 TC NOVAC 037287,000048: 37,3414 E3,1460 EBANK= NBDX 037288,000049: 37,3414 03663 14063 2CADR LASTBIAS # DO LAST GYRO COMPENSATION IN FREE FALL 037289,000050: 037290,000051: 37,3416 03544 BIBIBIAS TC PIPASR +3 # CLEAR + READ PIPS LAST TIME IN FRE5+F133 037291,000052: # DO NOT DESTROY VALUE OF PIPTIME1 037292,000053: 037293,000054: 37,3417 40103 CS FLAGWRD7 037294,000055: 37,3420 74773 MASK SUPER011 # SET V37FLAG AND AVEGFLAG (BITS 5 AND 6 037295,000056: 37,3421 26103 ADS FLAGWRD7 # OF FLAGWRD7) 037296,000057: 037297,000058: 37,3422 44735 CS DRFTBIT 037298,000059: 37,3423 70076 MASK FLAGWRD2 # RESET DRIFTFLAG 037299,000060: 37,3424 54076 TS FLAGWRD2 037300,000061: 037301,000062: 37,3425 34751 CAF FOUR # INITIALIZE DV MONITOR 037302,000063: 37,3426 55257 TS PIPAGE 037303,000064: 037304,000065: 37,3427 33537 CAF ENDJBCAD # POINT OUTROUTE TO END-OF-JOB. 037305,000066: 37,3430 55260 TS OUTROUTE 037306,000067: 037307,000068: 37,3431 37710 CAF PRIO22 037308,000069: 37,3432 05105 TC FINDVAC # TO FIRST ENTRY TO AVERAGE G 037309,000070: 37,3433 E7,1515 EBANK= DVCNTR 037310,000071: 37,3433 02461 46067 2CADR NORMLIZE 037311,000072: 037312,000073: 37,3435 34752 CA TWO # 5.2SPOT FOR REREADAC AND NORMLIZE 037313,000074: 37,3436 03525 GOREADAX TC GNUTFAZ5 037314,000075: 37,3437 35000 CA 2SECS # WAIT TWO SECONDS FOR READACCS 037315,000076: 37,3440 05224 TC VARDELAY 037316,000077: 037317,000078: # Page 858 037318,000079: # ************* READACCS **************** 037319,000080: 037320,000081: 37,3441 43540 READACCS CS OCT37771 # THIS PIECE OF CODING ATTEMPTS TO 037321,000082: 37,3442 60030 AD TIME5 # SYNCHRONIZE READACCS WITH THE DIGITAL 037322,000083: 37,3443 10000 CCS A # AUTOPILOT SO THAT A PAXIS RUPT WILL 037323,000084: 37,3444 44753 CS ONE # OCCUR APPROXIMATELY 70 MILLISECONDS 037324,000085: 37,3445 13447 TCF +2 # FOLLOWING THE READACCS RUPT. THE 70 MS 037325,000086: 37,3446 34753 CA ONE # OFFSET WAS CHOSEN SO THAT THE PAXIS 037326,000087: 37,3447 26030 +2 ADS TIME5 # RUPT WOULD NOT OCCUR SIMULTANEOUSLY 037327,000088: # WITH ANY OF THE 8 SUBSEQUENT R10,R11 037328,000089: # INTERRUPTS -- THUS MINIMIZING THE POSS- 037329,000090: # IBILITY OF LOSING DOWNRUPTS. 037330,000091: 037331,000092: 37,3450 03541 TC PIPASR # READ THE PIPAS. 037332,000093: 037333,000094: 37,3451 34756 PIPSDONE CA FIVE 037334,000095: 37,3452 03531 TC GNUFAZE5 037335,000096: 37,3453 34753 REDO5.5 CAF ONE 037336,000097: 37,3454 55257 TS PIPAGE 037337,000098: 037338,000099: 37,3455 34736 CA PRIO20 037339,000100: 37,3456 05105 TC FINDVAC 037340,000101: 37,3457 E7,1515 EBANK= DVCNTR 037341,000102: 37,3457 02206 66067 2CADR SERVICER # SET UP SERVICER JOB 037342,000103: 037343,000104: 37,3461 34743 CA BIT9 037344,000105: 37,3462 00006 EXTEND 037345,000106: 37,3463 05011 WOR DSALMOUT # TURN ON TEST CONNECTOR OUTBIT 037346,000107: 037347,000108: 37,3464 30103 CA FLAGWRD7 037348,000109: 37,3465 74747 MASK AVEGFBIT 037349,000110: 37,3466 00006 EXTEND 037350,000111: 37,3467 13517 BZF AVEGOUT # AVEGFLAG DOWN -- SET UP FINAL EXIT 037351,000112: 037352,000113: 37,3470 30102 CA FLAGWRD6 037353,000114: 37,3471 74744 MASK MUNFLBIT 037354,000115: 37,3472 00006 EXTEND 037355,000116: 37,3473 13515 BZF MAKEACCS # MUNFLAG CLEAR -- BYPASS LR AND DISP. 037356,000117: 037357,000118: 37,3474 10755 CCS PHASE2 037358,000119: 37,3475 13515 TCF MAKEACCS # PHASE 2 ACTIVATED -- AVOID MULTIPLE R10. 037359,000120: 037360,000121: 37,3476 34757 CAF SEVEN # SET PIPCTR FOR 4X/SEC RATE. 037361,000122: 37,3477 55056 TS PIPCTR 037362,000123: 037363,000124: 37,3500 40025 CS TIME1 # SET TBASE2 .05 SECONDS IN THE PAST. 037364,000125: 37,3501 64756 AD FIVE 037365,000126: 37,3502 64734 AD NEG1/2 037366,000127: 37,3503 64734 AD NEG1/2 037367,000128: 37,3504 57055 XCH TBASE2 037368,000129: # Page 859 037369,000130: 37,3505 34361 CAF DEC17 # 2.21SPOT FOR R10,R11 037370,000131: 37,3506 54001 TS L 037371,000132: 37,3507 40000 COM 037372,000133: 37,3510 52755 DXCH -PHASE2 037373,000134: 037374,000135: 37,3511 36007 CAF OCT24 # FIRST R10,R11 IN .200 SECONDS 037375,000136: 37,3512 05203 TC WAITLIST 037376,000137: 37,3513 E7,1536 EBANK= UNIT/R/ 037377,000138: 37,3513 02006 42067 2CADR R10,R11 037378,000139: 037379,000140: 37,3515 34751 MAKEACCS CA FOUR 037380,000141: 37,3516 13436 TCF GOREADAX # DO PHASE CHANGE AND RECALL READACCS 037381,000142: 037382,000143: 37,3517 00006 AVEGOUT EXTEND 037383,000144: 37,3520 33536 DCA AVOUTCAD # SET UP FINAL SERVICER EXIT 037384,000145: 37,3521 53253 DXCH AVGEXIT 037385,000146: 037386,000147: 37,3522 34751 CA FOUR # SET 5.4 SPOT FOR REREADAC AND SERVICER 037387,000148: 37,3523 03525 TC GNUTFAZ5 # IF REREADAC IS CALLED, IT WILL EXIT 037388,000149: 37,3524 05261 TC TASKOVER # END TASK WITHOUT CALLING READACCS 037389,000150: 037390,000151: 37,3525 54001 GNUTFAZ5 TS L # SAVE INPUT IN L 037391,000152: 37,3526 40025 CS TIME1 037392,000153: 37,3527 55063 TS TBASE5 # SET TBASE5 037393,000154: 37,3530 13532 TCF +2 037394,000155: 037395,000156: 37,3531 54001 GNUFAZE5 TS L # SAVE INPUT IN L 037396,000157: 37,3532 40001 CS L # -PHASE IN A, PHASE IN L. 037397,000158: 37,3533 52763 DXCH -PHASE5 # SET -PHASE5,PHASE5 037398,000159: 37,3534 00002 TC Q 037399,000160: 037400,000161: 37,3535 E7,1515 EBANK= DVCNTR 037401,000162: 37,3535 03661 44067 AVOUTCAD 2CADR AVGEND 037402,000163: 037403,000164: 37,3537 65772 ENDJBCAD CADR SERVEXIT +2 037404,000165: 037405,000166: 37,3540 37771 OCT37771 OCT 37771 037406,000167: 037407,000168: 33,2206 BANK 33 037408,000169: 33,2000 SETLOC SERVICES 037409,000170: 33,2000 BANK 037410,000171: 037411,000172: 33,2206 COUNT* $$/SERV 037412,000173: 037413,000174: # Page 860 037414,000175: # ************* SERVICER **************** 037415,000176: 037416,000177: 33,2206 05353 SERVICER TC PHASCHNG # RESTART REREADAC + SERVICER 037417,000178: 33,2207 16035 OCT 16035 037418,000179: 33,2210 20000 OCT 20000 037419,000180: 33,2211 E7,1515 EBANK= DVCNTR 037420,000181: 33,2211 02217 66067 2CADR GETABVAL 037421,000182: 037422,000183: 33,2213 37716 CAF PRIO31 # INITIALIZE 1/PIPADT IN CASE RESTART HAS 037423,000184: 33,2214 55075 TS 1/PIPADT # CAUSED LASTBIAS TO BE SKIPPED. 037424,000185: 037425,000186: 33,2215 04616 TC BANKCALL # PIPA COMPENSATION CALL 037426,000187: 33,2216 15263 CADR 1/PIPA 037427,000188: 037428,000189: 33,2217 06037 GETABVAL TC INTPRET 037429,000190: 33,2220 51575 VLOAD ABVAL 037430,000191: 33,2221 00325 DELV 037431,000192: 33,2222 77776 EXIT 037432,000193: 33,2223 30154 CA MPAC 037433,000194: 33,2224 55246 TS ABDELV # ABDELV = CM/SEC*2(-14). 037434,000195: 33,2225 00006 EXTEND 037435,000196: 33,2226 72020 MP KPIP 037436,000197: 33,2227 53514 DXCH ABDVCONV # ABDVCONV = M/CS * 2(-5). 037437,000198: 33,2230 00006 EXTEND 037438,000199: 33,2231 31245 DCA MASS 037439,000200: 33,2232 53571 DXCH MASS1 # INITIALIZE MASS1 IN CASE WE SKIP MASSMON 037440,000201: 33,2233 40104 MASSMON CS FLAGWRD8 # ARE WE ON THE SURFACE? 037441,000202: 33,2234 74744 MASK SURFFBIT 037442,000203: 33,2235 00006 EXTEND 037443,000204: 33,2236 12254 BZF MOONSPOT # YES: BYPASS MASS MESS 037444,000205: 037445,000206: 33,2237 30106 CA FLGWRD10 # NO: WHICH VEX SHOULD BE USED? 037446,000207: 33,2240 74737 MASK APSFLBIT 037447,000208: 33,2241 10000 CCS A 037448,000209: 33,2242 00006 EXTEND # IF EXTEND IS EXECUTED, APSVEX --> A, 037449,000210: 33,2243 32001 DCA APSVEX # OTHERWISE DPSVEX --> A 037450,000211: 33,2244 54002 TS Q 037451,000212: 037452,000213: 33,2245 00006 EXTEND 037453,000214: 33,2246 31514 DCA ABDVCONV 037454,000215: 33,2247 00006 EXTEND 037455,000216: 33,2250 10002 OCT10002 DV Q # WHERE APPROPRIATE VEX RESIDES 037456,000217: 33,2251 00006 EXTEND 037457,000218: 33,2252 71244 MP MASS 037458,000219: 33,2253 21571 DAS MASS1 037459,000220: 037460,000221: 33,2254 32021 MOONSPOT CA KPIP1 # TP MPAC = ABDELV AT 2(14) CM/SEC 037461,000222: 33,2255 07307 TC SHORTMP # MULTIPLY BY KPIP1 TO GET 037462,000223: # Page 861 037463,000224: 33,2256 52155 DXCH MPAC # ABDELV AT 2(7) M/CS 037464,000225: 33,2257 21510 DAS DVTOTAL # UPDATE DVTOTAL FOR DISPLAY 037465,000226: 037466,000227: 33,2260 02440 TC TMPTOSPT 037467,000228: 037468,000229: 33,2261 04616 TC BANKCALL 037469,000230: 33,2262 47615 CADR QUICTRIG 037470,000231: 037471,000232: 33,2263 32414 CAF XNBPIPAD 037472,000233: 33,2264 04616 TC BANKCALL 037473,000234: 33,2265 20037 CADR FLESHPOT 037474,000235: 33,2266 06037 TC INTPRET 037475,000236: 33,2267 45014 AVERAGEG BON CALL 037476,000237: 33,2270 03307 MUNFLAG 037477,000238: 33,2271 67032 RVBOTH 037478,000239: 33,2272 66776 CALCRVG 037479,000240: 33,2273 77776 EXIT 037480,000241: 33,2274 03552 GOSERV TC QUIKFAZ5 037481,000242: 037482,000243: 33,2275 02423 COPYCYCL TC COPYCYC 037483,000244: 037484,000245: # CA ZERO # A IS ZERO ON RETURN FROM COPYCYC 037485,000246: 33,2276 55160 TS PIPATMPX 037486,000247: 33,2277 55161 TS PIPATMPY 037487,000248: 33,2300 55162 TS PIPATMPZ 037488,000249: 037489,000250: 33,2301 44741 CS STEERBIT # CLEAR STEERSW PRIOR TO DVMON. 037490,000251: 33,2302 70076 MASK FLAGWRD2 037491,000252: 33,2303 54076 TS FLAGWRD2 037492,000253: 037493,000254: 33,2304 34745 CAF IDLEFBIT # IS THE IDLE FLAG SET? 037494,000255: 33,2305 70103 MASK FLAGWRD7 037495,000256: 33,2306 10000 CCS A 037496,000257: 33,2307 12342 TCF NODVMON1 # IDLEFLAG = 1, HENCE SET AUXFLAG TO 0. 037497,000258: 037498,000259: 33,2310 40102 CS FLAGWRD6 037499,000260: 33,2311 74752 MASK AUXFLBIT 037500,000261: 33,2312 10000 CCS A 037501,000262: 33,2313 12346 TCF NODVMON2 # AUXFLAG = 0, HENCE SET AUXFLAG TO 1. 037502,000263: 037503,000264: 33,2314 41251 DVMON CS DVTHRUSH 037504,000265: 33,2315 61246 AD ABDELV 037505,000266: 33,2316 00006 EXTEND 037506,000267: 33,2317 62352 BZMF LOTHRUST 037507,000268: 037508,000269: 33,2320 40076 CS FLAGWRD2 # SET STEERSW. 037509,000270: 33,2321 74741 MASK STEERBIT 037510,000271: 33,2322 26076 ADS FLAGWRD2 037511,000272: 037512,000273: 33,2323 34753 DVCNTSET CAF ONE # ALLOW TWO PASSES MAXIMUM NOW THAT 037513,000274: # Page 862 037514,000275: 33,2324 55515 TS DVCNTR # THRUST HAS BEEN DETECTED. 037515,000276: 037516,000277: 33,2325 30106 CA FLGWRD10 # BRANCH IF APSFLAG IS SET. 037517,000278: 33,2326 74737 MASK APSFLBIT 037518,000279: 33,2327 10000 CCS A 037519,000280: 33,2330 12375 TCF USEJETS 037520,000281: 037521,000282: 33,2331 34743 CA BIT9 # CHECK GIMBAL FAIL BIT 037522,000283: 33,2332 00006 EXTEND 037523,000284: 33,2333 02032 RAND CHAN32 037524,000285: 33,2334 00006 EXTEND 037525,000286: 33,2335 12375 BZF USEJETS 037526,000287: 037527,000288: 33,2336 44736 USEGTS CS USEQRJTS 037528,000289: 33,2337 70111 MASK DAPBOOLS 037529,000290: 33,2340 54111 TS DAPBOOLS 037530,000291: 33,2341 12400 TCF SERVOUT 037531,000292: 037532,000293: 33,2342 44752 NODVMON1 CS AUXFLBIT # SET AUXFLAG TO 0. 037533,000294: 33,2343 70102 MASK FLAGWRD6 037534,000295: 33,2344 54102 TS FLAGWRD6 037535,000296: 33,2345 12375 TCF USEJETS 037536,000297: 33,2346 40102 NODVMON2 CS FLAGWRD6 # SET AUXFLAG TO 1. 037537,000298: 33,2347 74752 MASK AUXFLBIT 037538,000299: 33,2350 26102 ADS FLAGWRD6 037539,000300: 33,2351 12375 TCF USEJETS 037540,000301: 037541,000302: 33,2352 03552 LOTHRUST TC QUIKFAZ5 037542,000303: 33,2353 11515 CCS DVCNTR 037543,000304: 33,2354 12366 TCF DECCNTR 037544,000305: 037545,000306: 33,2355 10761 CCS PHASE4 # COMFAIL JOB ACTIVE? 037546,000307: 33,2356 12400 TCF SERVOUT # YES: WON'T NEED ANOTHER. 037547,000308: 037548,000309: 33,2357 05353 TC PHASCHNG # 4.37SPOT FOR COMFAIL. 037549,000310: 33,2360 00374 OCT 00374 037550,000311: 037551,000312: 33,2361 37713 CAF PRIO25 037552,000313: 33,2362 05072 TC NOVAC 037553,000314: 33,2363 E7,1455 EBANK= WHICH 037554,000315: 33,2363 02571 74067 2CADR COMFAIL 037555,000316: 037556,000317: 33,2365 12400 TCF SERVOUT 037557,000318: 037558,000319: 33,2366 55570 DECCNTR TS DVCNTR1 037559,000320: 33,2367 03552 TC QUIKFAZ5 037560,000321: 33,2370 31570 CA DVCNTR1 037561,000322: 33,2371 55515 TS DVCNTR 037562,000323: 33,2372 00004 INHINT 037563,000324: 33,2373 04674 TC IBNKCALL # IF THRUST IS LOW, NO STEERING IS DONE 037564,000325: # Page 863 037565,000326: 33,2374 40165 CADR STOPRATE # AND THE DESIRED RATES ARE SET TO ZERO. 037566,000327: 33,2375 40111 USEJETS CS DAPBOOLS 037567,000328: 33,2376 74736 MASK USEQRJTS 037568,000329: 33,2377 26111 ADS DAPBOOLS 037569,000330: 33,2400 00003 SERVOUT RELINT 037570,000331: 33,2401 04616 TC BANKCALL 037571,000332: 33,2402 40457 CADR 1/ACCS 037572,000333: 037573,000334: 33,2403 30167 CA PRIORITY 037574,000335: 33,2404 75004 MASK LOW9 037575,000336: 33,2405 54166 TS PUSHLOC 037576,000337: 33,2406 22007 ZL 037577,000338: 33,2407 52121 DXCH FIXLOC # FIXLOC AND DVFIND 037578,000339: 037579,000340: 33,2410 03552 TC QUIKFAZ5 037580,000341: 33,2411 00006 EXTEND # EXIT TO SELECTED ROUTINE WHETHER THERE 037581,000342: 33,2412 31253 DCA AVGEXIT # IS THRUST OR NOT. THE STATE OF STEERSW 037582,000343: 33,2413 52006 DXCH Z # WILL CONVEY THIS INFORMATION. 037583,000344: 037584,000345: 33,2414 02145 XNBPIPAD ECADR XNBPIP 037585,000346: 037586,000347: 32,3770 BANK 32 037587,000348: 22,2000 SETLOC SERV2 037588,000349: 22,2000 BANK 037589,000350: 22,3661 COUNT* $$/SERV 037590,000351: 037591,000352: 22,3661 31235 AVGEND CA PIPTIME +1 # FINAL AVERAGE G EXIT 037592,000353: 22,3662 55075 TS 1/PIPADT # SET UP FREE FALL GYRO COMPENSATION. 037593,000354: 037594,000355: 22,3663 05504 TC UPFLAG # SET DRIFT FLAG. 037595,000356: 22,3664 00036 ADRES DRIFTFLG 037596,000357: 037597,000358: 22,3665 04616 TC BANKCALL 037598,000359: 22,3666 17310 CADR PIPFREE 037599,000360: 037600,000361: 22,3667 44743 CS BIT9 037601,000362: 22,3670 00006 EXTEND 037602,000363: 22,3671 03011 WAND DSALMOUT 037603,000364: 037604,000365: 22,3672 05327 TC 2PHSCHNG 037605,000366: 22,3673 00005 OCT 5 # GROUP 5 OFF 037606,000367: 22,3674 05022 OCT 05022 # GROUP 2 ON 037607,000368: 22,3675 20000 OCT 20000 037608,000369: 037609,000370: 22,3676 06037 TC INTPRET 037610,000371: 22,3677 43014 SET CLEAR 037611,000372: 22,3700 01464 NOR29FLG # SHUT OFF R29 WHEN SERVICER ENDS. 037612,000373: 22,3701 03664 SWANDISP # SHUT OFF R10 WHEN SERVICER ENDS. 037613,000374: 22,3702 45014 CLEAR CALL # RESET MUNFLAG. 037614,000375: 22,3703 03267 MUNFLAG 037615,000376: # Page 864 037616,000377: 22,3704 27467 AVETOMID 037617,000378: 22,3705 77414 CLEAR EXIT 037618,000379: 22,3706 03671 V37FLAG 037619,000380: 22,3707 31260 AVERTRN CA OUTROUTE # RETURN TO DESIRED POINT. 037620,000381: 22,3710 04640 TC BANKJUMP 037621,000382: 037622,000383: 22,3711 22,3707 OUTGOAVE = AVERTRN 037623,000384: 22,3711 E7,1570 DVCNTR1 = MASS1 037624,000385: 037625,000386: # Page 865 037626,000387: 27,2000 SETLOC SERV3 037627,000388: 27,2000 BANK 037628,000389: 27,3321 COUNT* $$/SERV 037629,000390: 037630,000391: 27,3321 00006 SERVIDLE EXTEND # DISCONNECT SERVICER FROM ALL GUIDANCE 037631,000392: 27,3322 33357 DCA SVEXTADR 037632,000393: 27,3323 53253 DXCH AVGEXIT 037633,000394: 037634,000395: 27,3324 40103 CS FLAGWRD7 # DISCONNECT THE DELTA-V MONITOR 037635,000396: 27,3325 74745 MASK IDLEFBIT 037636,000397: 27,3326 26103 ADS FLAGWRD7 037637,000398: 037638,000399: 27,3327 34735 CAF LRBYBIT # TERMINATE R12 IS RUNNING. 037639,000400: 27,3330 54107 TS FLGWRD11 037640,000401: 037641,000402: 27,3331 00006 EXTEND 037642,000403: 27,3332 34755 DCA NEG0 037643,000404: 27,3333 52753 DXCH -PHASE1 037644,000405: 037645,000406: 27,3334 30102 CA FLAGWRD6 # DO NOT TURN OFF PHASE 2 IF MUNFLAG SET. 037646,000407: 27,3335 74744 MASK MUNFLBIT 037647,000408: 27,3336 10000 CCS A 037648,000409: 27,3337 13343 TCF +4 037649,000410: 037650,000411: 27,3340 00006 EXTEND 037651,000412: 27,3341 34755 DCA NEG0 037652,000413: 27,3342 52755 DXCH -PHASE2 037653,000414: 037654,000415: 27,3343 00006 +4 EXTEND 037655,000416: 27,3344 34755 DCA NEG0 037656,000417: 27,3345 52757 DXCH -PHASE3 037657,000418: 037658,000419: 27,3346 00006 EXTEND 037659,000420: 27,3347 34755 DCA NEG0 037660,000421: 27,3350 52765 DXCH -PHASE6 037661,000422: 037662,000423: 27,3351 34764 CAF OCT33 # 4.33SPOT FOR GOP00FIX 037663,000424: 27,3352 54001 TS L 037664,000425: 27,3353 40000 COM 037665,000426: 27,3354 52761 DXCH -PHASE4 037666,000427: 037667,000428: 27,3355 15644 TCF WHIMPER # PERFORM A SOFTWARE RESTART AND PROCEED 037668,000429: # TO GOTOP00H WHILE SERVICER CONTINUES TO 037669,000430: # RUN, ALBEIT IN A GROUND STATE WHERE 037670,000431: # ONLY STATE-VECTOR DEPENDENT FUNCTIONS 037671,000432: # ARE MAINTAINED. 037672,000433: 037673,000434: 27,3356 E7,1515 EBANK= DVCNTR 037674,000435: # Page 866 037675,000436: 27,3356 03770 64067 SVEXTADR 2CADR SERVEXIT 037676,000437: 037677,000438: 32,3770 BANK 32 037678,000439: 32,2000 SETLOC SERV 037679,000440: 32,2000 BANK 037680,000441: 32,3770 COUNT* $$/SERV 037681,000442: 037682,000443: 32,3770 05353 SERVEXIT TC PHASCHNG 037683,000444: 32,3771 00035 OCT 00035 037684,000445: 037685,000446: 32,3772 15155 +2 TCF ENDOFJOB 037686,000447: 037687,000448: 23,2461 BANK 23 037688,000449: 23,2000 SETLOC NORMLIZ 037689,000450: 23,2000 BANK 037690,000451: 037691,000452: 23,2461 COUNT* $$/SERV 037692,000453: 037693,000454: # Page 867 037694,000455: 23,2461 06037 NORMLIZE TC INTPRET 037695,000456: 23,2462 43175 VLOAD BOFF 037696,000457: 23,2463 03545 RN1 037697,000458: 23,2464 03347 MUNFLAG 037698,000459: 23,2465 66415 NORMLIZ1 037699,000460: 23,2466 64252 VSL6 MXV 037700,000461: 23,2467 01734 REFSMMAT 037701,000462: 23,2470 37521 STCALL R 037702,000463: 23,2471 67130 MUNGRAV 037703,000464: 23,2472 76575 VLOAD VSL1 037704,000465: 23,2473 03553 VN1 037705,000466: 23,2474 77721 MXV 037706,000467: 23,2475 01734 REFSMMAT 037707,000468: 23,2476 27527 STOVL V 037708,000469: 23,2477 01726 V(CSM) 037709,000470: 23,2500 53435 VXV UNIT 037710,000471: 23,2501 01720 R(CSM) 037711,000472: 23,2502 03720 STORE UHYP 037712,000473: 23,2503 77776 ASCSPOT EXIT 037713,000474: 23,2504 00006 EXTEND # MAKE SURE GROUP 2 IS OFF 037714,000475: 23,2505 34755 DCA NEG0 037715,000476: 23,2506 52755 DXCH -PHASE2 037716,000477: 037717,000478: 23,2507 04635 TC POSTJUMP 037718,000479: 23,2510 66420 CADR NORMLIZ2 037719,000480: 037720,000481: 33,2415 BANK 33 037721,000482: 33,2000 SETLOC SERVICES 037722,000483: 33,2000 BANK 037723,000484: 33,2415 COUNT* $$/SERV 037724,000485: 037725,000486: 33,2415 77624 NORMLIZ1 CALL 037726,000487: 33,2416 66730 CALCGRAV 037727,000488: 33,2417 77776 EXIT 037728,000489: 037729,000490: 33,2420 32437 NORMLIZ2 CA EIGHTEEN 037730,000491: 33,2421 02424 TC COPYCYC +1 # DO NOT COPY MASS IN NORMLIZE 037731,000492: 33,2422 05155 TC ENDOFJOB 037732,000493: 037733,000494: 33,2423 36007 COPYCYC CA OCT24 # DEC 20 037734,000495: 33,2424 00004 +1 INHINT 037735,000496: 33,2425 77747 +2 MASK NEG1 # REDUCE BY 1 IF ODD 037736,000497: 33,2426 54061 TS ITEMP1 037737,000498: 33,2427 00006 EXTEND 037738,000499: 33,2430 50061 INDEX ITEMP1 037739,000500: 33,2431 31545 DCA RN1 037740,000501: 33,2432 50061 INDEX ITEMP1 037741,000502: # Page 868 037742,000503: 33,2433 53221 DXCH RN 037743,000504: 33,2434 10061 CCS ITEMP1 037744,000505: 33,2435 12425 TCF COPYCYC +2 037745,000506: 33,2436 00002 TC Q # RETURN UNDER INHINT 037746,000507: 037747,000508: 33,2437 00022 EIGHTEEN DEC 18 B-14 037748,000509: 037749,000510: # Page 869 037750,000511: # ************* PIPA READER ***************** 037751,000512: # MOD NO. 00 BY D. LICKLY, DEC. 9 1966 037752,000513: 037753,000514: # FUNCTIONAL DESCRIPTION 037754,000515: # SUBROUTINE TO READ PIPA COUNTERS, TRYING TO BE VERY CAREFUL SO THAT WILL BE RESTARTABLE. 037755,000516: # PIPA READINGS ARE STORED IN THE VECTOR DELV. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS THE PIPA READING, 037756,000517: # RESTARTS BEGIN AT REREADAC. 037757,000518: 037758,000519: # AT THE END OF THE PIPA READER THE CDUS ARE READ AND STORED AS A 037759,000520: # VECTOR IN CDUTEMP. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS 037760,000521: # THE CDU READING IN 25 COMP IN THE ORDER CDUX,Y,Z. THE THRUST 037761,000522: # VECTOR ESTIMATOR IN FINDCDUD REQUIRES THE CDUS BE READ AT PIPTIME. 037762,000523: 037763,000524: # CALLING SEQUENCE AND EXIT 037764,000525: # CALL VIA TC, ISWCALL, ETC. 037765,000526: # EXIT IS VIA Q. 037766,000527: 037767,000528: # INPUT 037768,000529: # INPUT IS THROUGH THE COUNTERS PIPAX, PIPAY, PIPAZ, AND TIME2. 037769,000530: 037770,000531: # OUTPUT 037771,000532: # HIGH ORDER COMPONENTS OF THE VECTOR DELV CONTAIN THE PIPA READINGS. 037772,000533: # PIPTIME CONTAINS TIME OF PIPA READING. 037773,000534: 037774,000535: # DEBRIS (ERASABLE LOCATIONS DESTROYED BY PROGRAM) 037775,000536: # TEMX, TEMY, TEMZ, PIPAGE 037776,000537: 037777,000538: 37,3541 BANK 37 037778,000539: 37,2000 SETLOC SERV1 037779,000540: 37,2000 BANK 037780,000541: 037781,000542: 37,3541 COUNT* $$/SERV 037782,000543: 037783,000544: 37,3541 00006 PIPASR EXTEND 037784,000545: # Page 870 037785,000546: 37,3542 30025 DCA TIME2 037786,000547: 37,3543 53561 DXCH PIPTIME1 # CURRENT TIME POSITIVE VALUE 037787,000548: 37,3544 44755 +3 CS ZERO # INITIALIZE THESE AT NEG. ZERO. 037788,000549: 37,3545 55254 TS TEMX 037789,000550: 37,3546 55255 TS TEMY 037790,000551: 37,3547 55256 TS TEMZ 037791,000552: 037792,000553: 37,3550 34755 CA ZERO 037793,000554: 37,3551 54330 TS DELVZ 037794,000555: 37,3552 54331 TS DELVZ +1 037795,000556: 37,3553 54326 TS DELVY 037796,000557: 37,3554 54327 TS DELVY +1 037797,000558: 37,3555 54325 TS DELVX +1 037798,000559: 37,3556 55257 TS PIPAGE # SHOW PIPA READING IN PROGRESS 037799,000560: 037800,000561: 37,3557 00006 REPIP1 EXTEND 037801,000562: 37,3560 40040 DCS PIPAX # X AND Y PIPS READ 037802,000563: 37,3561 53255 DXCH TEMX 037803,000564: 37,3562 52040 DXCH PIPAX # PIPAS SET TO NEG ZERO AS READ. 037804,000565: 37,3563 54324 TS DELVX 037805,000566: 37,3564 22326 LXCH DELVY 037806,000567: 037807,000568: 37,3565 40041 REPIP3 CS PIPAZ # REPEAT PROCESS FOR Z PIP 037808,000569: 37,3566 57256 XCH TEMZ 037809,000570: 37,3567 56041 XCH PIPAZ 037810,000571: 37,3570 54330 DODELVZ TS DELVZ 037811,000572: 037812,000573: 37,3571 00006 REPIP4 EXTEND # COMPUTE GUIDANCE PERIOD 037813,000574: 37,3572 31561 DCA PIPTIME1 037814,000575: 37,3573 53250 DXCH PGUIDE 037815,000576: 37,3574 00006 EXTEND 037816,000577: 37,3575 41235 DCS PIPTIME 037817,000578: 37,3576 21250 DAS PGUIDE 037818,000579: 037819,000580: 37,3577 30032 CA CDUX # READ CDUS INTO HIGH ORDER CDUTEMPS 037820,000581: 37,3600 55155 TS CDUTEMPX 037821,000582: 37,3601 30033 CA CDUY 037822,000583: 37,3602 55156 TS CDUTEMPY 037823,000584: 37,3603 30034 CA CDUZ 037824,000585: 37,3604 55157 TS CDUTEMPZ 037825,000586: 37,3605 30324 CA DELVX 037826,000587: 37,3606 55160 TS PIPATMPX 037827,000588: 37,3607 30326 CA DELVY 037828,000589: 37,3610 55161 TS PIPATMPY 037829,000590: 37,3611 30330 CA DELVZ 037830,000591: 37,3612 55162 TS PIPATMPZ 037831,000592: 037832,000593: 37,3613 00002 TC Q 037833,000594: 037834,000595: # Page 871 037835,000596: 37,3614 11257 REREADAC CCS PIPAGE 037836,000597: 37,3615 13441 TCF READACCS # PIP READING NOT STARTED. GO TO BEGINNING 037837,000598: 037838,000599: 37,3616 33654 CAF DONEADR # SET UP RETURN FROM PIPASR 037839,000600: 37,3617 54002 TS Q 037840,000601: 037841,000602: 37,3620 10330 CCS DELVZ 037842,000603: 37,3621 13571 TCF REPIP4 # Z DONE, GO DO CDUS 037843,000604: 37,3622 13625 TCF +3 # Z NOT DONE, CHECK Y. 037844,000605: 37,3623 13571 TCF REPIP4 037845,000606: 37,3624 13571 TCF REPIP4 037846,000607: 037847,000608: 37,3625 22007 ZL 037848,000609: 37,3626 10326 CCS DELVY 037849,000610: 37,3627 13632 TCF +3 037850,000611: 37,3630 13641 TCF CHKTEMX # Y NOT DONE, CHECK X. 037851,000612: 37,3631 13632 TCF +1 037852,000613: 37,3632 22041 LXCH PIPAZ # Y DONE, ZERO Z PIP. 037853,000614: 037854,000615: 37,3633 11256 CCS TEMZ 037855,000616: 37,3634 41256 CS TEMZ # TEMZ NOT = -0, CONTAINS -PIPAZ VALUE. 037856,000617: 37,3635 13570 TCF DODELVZ 037857,000618: 37,3636 13634 TCF -2 037858,000619: 37,3637 22330 LXCH DELVZ # TEMZ = -0, L HAS ZPIP VALUE. 037859,000620: 37,3640 13571 TCF REPIP4 037860,000621: 037861,000622: 37,3641 11254 CHKTEMX CCS TEMX # HAS THIS CHANGED 037862,000623: 37,3642 41254 CS TEMX # YES 037863,000624: 37,3643 13646 TCF +3 # YES 037864,000625: 37,3644 13642 TCF -2 # YES 037865,000626: 37,3645 13557 TCF REPIP1 # NO 037866,000627: 37,3646 54324 TS DELVX 037867,000628: 037868,000629: 37,3647 41255 CS TEMY 037869,000630: 37,3650 54326 TS DELVY 037870,000631: 037871,000632: 37,3651 44755 CS ZERO # ZERO X AND Y PIPS 037872,000633: 37,3652 52040 DXCH PIPAX # L STILL ZERO FROM ABOVE 037873,000634: 037874,000635: 37,3653 13565 TCF REPIP3 037875,000636: 037876,000637: 37,3654 03451 DONEADR GENADR PIPSDONE 037877,000638: 037878,000639: # Page 872 037879,000640: 33,2440 BANK 33 037880,000641: 33,2000 SETLOC SERVICES 037881,000642: 33,2000 BANK 037882,000643: 037883,000644: 33,2440 COUNT* $$/SERV 037884,000645: 037885,000646: 33,2440 31156 TMPTOSPT CA CDUTEMPY # THIS SUBROUTINE, CALLED BY AN RTB FROM 037886,000647: 33,2441 54766 TS CDUSPOTY # INTERPRETIVE, LOADS THE CDUS CORRESPON- 037887,000648: 33,2442 31157 CA CDUTEMPZ # DING TO PIPTIME INTO THE CDUSPOT VECTOR. 037888,000649: 33,2443 54770 TS CDUSPOTZ 037889,000650: 33,2444 31155 CA CDUTEMPX 037890,000651: 33,2445 54772 TS CDUSPOTX 037891,000652: 33,2446 00002 TC Q 037892,000653: 037893,000654: # LRHTASK IS A WAITLIST TASK SET BY READACCS DURING THE DESCENT BRAKING 037894,000655: # PHASE WHEN THE ALT TO THE LUNAR SURFACE IS LESS THAN 25,000 FT. THIS 037895,000656: # TASK CLEARS THE ALTITUDE MEASUREMENT MADE DISCRETE AND INITIATES THE 037896,000657: # LANDING RADAR MEASUREMENT JOB (LRHJOB) TO TAKE A ALTITUDE MEASUREMENT 037897,000658: # 50 MS PRIOR TO THE NEXT READACCS TASK. 037898,000659: 037899,000660: 21,2130 BANK 21 037900,000661: 21,2000 SETLOC R10 037901,000662: 21,2000 BANK 037902,000663: 037903,000664: 21,2130 COUNT* $$/SERV 037904,000665: 037905,000666: 21,2130 40107 LRHTASK CS FLGWRD11 037906,000667: 21,2131 74735 MASK LRBYBIT 037907,000668: 21,2132 00006 EXTEND 037908,000669: 21,2133 12150 BZF GRP2OFF # LR BYPASS SET -- BYPASS ALL LR READING. 037909,000670: 037910,000671: 21,2134 34746 CA READLBIT 037911,000672: 21,2135 70107 MASK FLGWRD11 # IS READLR FLAG SET? 037912,000673: 21,2136 00006 EXTEND 037913,000674: 21,2137 12150 BZF GRP2OFF # NO. BYPASS LR READ. 037914,000675: 037915,000676: 21,2140 40107 CS FLGWRD11 037916,000677: 21,2141 74742 MASK NOLRRBIT # IS LR READ INHIBITED? 037917,000678: 21,2142 00006 EXTEND 037918,000679: 21,2143 12150 BZF GRP2OFF # YES. BYPASS LR READ. 037919,000680: 037920,000681: 21,2144 37720 CA PRIO32 # LR READ OK. SET JOB TO DO IT 037921,000682: 21,2145 05072 TC NOVAC # ABOUT 50 MS. PRIOR TO PIPA READ. 037922,000683: 21,2146 E7,1654 EBANK= HMEAS 037923,000684: 21,2146 03716 70067 2CADR LRHJOB 037924,000685: 037925,000686: 21,2150 00006 GRP2OFF EXTEND 037926,000687: 21,2151 34755 DCA NEG0 037927,000688: 21,2152 52755 DXCH -PHASE2 037928,000689: 21,2153 12021 TCF R10,R11A 037929,000690: 037930,000691: 33,2447 BANK 33 037931,000692: 33,2000 SETLOC SERVICES 037932,000693: 33,2000 BANK 037933,000694: # Page 873 037934,000695: 33,2447 COUNT* $$/SERV 037935,000696: 037936,000697: # HIGATASK IS ENTERED APPROXIMATELY 6 SECS PRIOR TO HIGATE DURING THE 037937,000698: # DESCENT PHASE. HIGATASK SETS THE HIGATE FLAG (BIT11) AND THE LR INHIBIT 037938,000699: # FLAG (BIT10) IN LRSTAT. THE HIGATJOB IS SET UP TO REPOSITION THE LR 037939,000700: # ANTENNA FROM POSITION 1 TO POSITION 2. IF THE REPOSITIONING IS 037940,000701: # SUCCESSFUL THE ALT BEAM AND VELOCITY BEAMS ARE TRANSFORMED TO THE NEW 037941,000702: # ORIENTATION IN NB COORDINATES AND STORED IN ERASABLE. 037942,000703: 037943,000704: 33,2447 00004 HIGATASK INHINT 037944,000705: 33,2450 45015 CS PRIO3 # SET HIGATE AND LR INHIBIT FLAGS 037945,000706: 33,2451 70107 MASK FLGWRD11 037946,000707: 33,2452 65015 AD PRIO3 037947,000708: 33,2453 54107 TS FLGWRD11 037948,000709: 33,2454 37720 CAF PRIO32 037949,000710: 33,2455 05105 TC FINDVAC # SET LR POSITIONING JOB (POS2) 037950,000711: 33,2456 E7,1654 EBANK= HMEAS 037951,000712: 33,2456 03670 66067 2CADR HIGATJOB 037952,000713: 037953,000714: 33,2460 12540 TCF CONTSERV # CONTINUE SERVICER 037954,000715: 037955,000716: # Page 874 037956,000717: # MUNRETRN IS THE RETURN LOC FROM SPECIAL AVE G ROUTINE (MUNRVG) 037957,000718: 037958,000719: 33,2461 77776 MUNRETRN EXIT 037959,000720: 037960,000721: 33,2462 40107 CS FLGWRD11 037961,000722: 33,2463 74735 MASK LRBYBIT 037962,000723: 33,2464 00006 EXTEND 037963,000724: 33,2465 12546 BZF COPYCYC1 # BYPASS LR LOGIC IF BIT15 IS SET. 037964,000725: 037965,000726: 33,2466 34746 CA READLBIT # SEE IF ALT < 35000 FT LAST CYCLE 037966,000727: 33,2467 70107 MASK FLGWRD11 037967,000728: 33,2470 00006 EXTEND 037968,000729: 33,2471 12721 BZF 35KCHK # ALT WAS > 35000 FT LAST CYCLE CHK NOW 037969,000730: 037970,000731: 33,2472 34743 CAF XORFLBIT # WERE WE BELOW 30000 FT LAST PASS? 037971,000732: 33,2473 70107 MASK FLGWRD11 037972,000733: 33,2474 00006 EXTEND 037973,000734: 33,2475 12710 BZF XORCHK # NO -- TEST THIS PASS 037974,000735: 33,2476 34741 HITEST CAF PSTHIBIT # CHECK FOR HIGATE 037975,000736: 33,2477 70107 MASK FLGWRD11 037976,000737: 33,2500 00006 EXTEND 037977,000738: 33,2501 12515 BZF HIGATCHK # NOT AT HIGATE LAST CYCLE -- CHK THIS CYCLE 037978,000739: 037979,000740: 33,2502 34745 POS2CHK CAF BIT7 # VERIFY LR IN POS2 037980,000741: 33,2503 00006 EXTEND 037981,000742: 33,2504 02033 RAND CHAN33 037982,000743: 33,2505 00006 EXTEND 037983,000744: 33,2506 13155 BZF UPDATCHK # IT IS -- CHECK FOR LR UPDATE 037984,000745: 33,2507 34737 CAF BIT13 037985,000746: 33,2510 00006 EXTEND 037986,000747: 33,2511 02012 RAND CHAN12 037987,000748: 33,2512 00006 EXTEND 037988,000749: 33,2513 12536 BZF LRPOSALM # LR NOT IN POS2 OR REPOSITIONING -- BAD 037989,000750: 33,2514 12540 TCF CONTSERV # LR BEING REPOSITIONED -- CONTINUE SERV 037990,000751: 037991,000752: 33,2515 31642 HIGATCHK CA TTF/8 # IS TTF > CRITERION? (TTF IS NEGATIVE) 037992,000753: 33,2516 61427 AD RPCRTIME 037993,000754: 33,2517 00006 EXTEND 037994,000755: 33,2520 62531 BZMF POS1CHK # NO 037995,000756: 037996,000757: 33,2521 34741 CA EBANK4 # MUST SWITCH EBANKS 037997,000758: 33,2522 56003 XCH EBANK 037998,000759: 33,2523 54001 TS L # SAVE IN L 037999,000760: 038000,000761: 33,2524 E4,1545 EBANK= XNBPIP 038001,000762: 33,2524 41545 CS XNBPIP # UXBXP IN GSOP CH5 038002,000763: 33,2525 E7,1515 EBANK= DVCNTR 038003,000764: 33,2525 22003 LXCH EBANK # RESTORE EBANK 038004,000765: 33,2526 61430 AD RPCRTQSW # QSW - UXBXP 038005,000766: # Page 875 038006,000767: 038007,000768: 33,2527 00006 EXTEND 038008,000769: 33,2530 62447 BZMF HIGATASK # IF UXBXP > QSW, THEN REPOSITION 038009,000770: 038010,000771: 33,2531 34746 POS1CHK CAF BIT6 # HIGATE NOT IN SIGHT -- DO POS1 CHK 038011,000772: 33,2532 00006 EXTEND 038012,000773: 33,2533 02033 RAND 33 038013,000774: 33,2534 00006 EXTEND 038014,000775: 33,2535 13155 BZF UPDATCHK # LR IN POS1 -- CHECK FOR LR UPDATE 038015,000776: 038016,000777: 33,2536 05567 LRPOSALM TC ALARM # LR NOT IN PROPER POS-ALARM-BYPASS UPDATE 038017,000778: 33,2537 00511 OCT 511 # AND CONTINUE SERVICER 038018,000779: 33,2540 00004 CONTSERV INHINT 038019,000780: 33,2541 43154 CS BITS4-7 038020,000781: 33,2542 70107 MASK FLGWRD11 # CLEAR LR MEASUREMENT MADE DISCRETES. 038021,000782: 33,2543 54107 TS FLGWRD11 038022,000783: 038023,000784: 33,2544 04674 TC IBNKCALL # SET LR LITES PROPERLY 038024,000785: 33,2545 53607 CADR R12LITES 038025,000786: 038026,000787: # Page 876 038027,000788: 33,2546 03552 COPYCYC1 TC QUIKFAZ5 038028,000789: 038029,000790: 33,2547 30077 R29? CA FLAGWRD3 038030,000791: 33,2550 75014 MASK NR29&RDR 038031,000792: 33,2551 10000 CCS A # IS NOR29FLG OR READRFLG SET? 038032,000793: 33,2552 12564 TCF R29NODES # YES, SO DON'T DESIGNATE. 038033,000794: 038034,000795: 33,2553 30110 CA RADMODES # NO, SO R29 IS CALLED FOR. 038035,000796: 33,2554 72250 MASK OCT10002 # IS THE RR NOT ZEROING ITS CDUS, AND 038036,000797: 33,2555 10000 CCS A # IS THE RENDEZVOUS RADAR IN AUTO MODE? 038037,000798: 33,2556 12564 TCF R29NODES # NO, SO DON'T DESIGNATE. 038038,000799: 038039,000800: 33,2557 30110 CA RADMODES 038040,000801: 33,2560 77710 MASK PRIO22 038041,000802: 33,2561 10000 CCS A # IS RR REPOSITIONING OR REMODING? 038042,000803: 33,2562 12570 TCF NOR29NOW # YES: COME BACK IN 2 SECONDS & TRY AGAIN. 038043,000804: 038044,000805: 33,2563 12045 TCF R29 038045,000806: 038046,000807: 33,2564 00004 R29NODES INHINT # R29 NOT ALLOWED THIS CYCLE. 038047,000808: 33,2565 44742 CS DESIGBIT # SHOW THAT DESIGNATION IS OFF. 038048,000809: 33,2566 70110 MASK RADMODES 038049,000810: 33,2567 54110 TS RADMODES 038050,000811: 038051,000812: 33,2570 06037 NOR29NOW TC INTPRET # INTPRET DOES A RELINT. 038052,000813: 33,2571 51575 VLOAD ABVAL # MPAC = ABVAL( NEW SM. POSITION VECTOR ) 038053,000814: 33,2572 03573 R1S 038054,000815: 33,2573 45206 PUSH DSU # (2) 038055,000816: 33,2574 02333 /LAND/ 038056,000817: 33,2575 03535 STORE HCALC # NEW HCALC*2(24)M. 038057,000818: 33,2576 03775 STORE HCALC1 038058,000819: 33,2577 47075 DMPR RTB 038059,000820: 33,2600 26026 ALTCONV 038060,000821: 33,2601 21612 SGNAGREE 038061,000822: 33,2602 27742 STOVL ALTBITS # ALTITUDE FOR R10 IN BIT UNITS. 038062,000823: 33,2603 03537 UNIT/R/ 038063,000824: 33,2604 53435 VXV UNIT 038064,000825: 33,2605 03720 UHYP 038065,000826: 33,2606 27726 STOVL UHZP # DOWNRANGE HALF-UNIT VECTOR FOR R10. 038066,000827: 33,2607 03573 R1S 038067,000828: 33,2610 60505 VXM VSR4 038068,000829: 33,2611 01734 REFSMMAT 038069,000830: 33,2612 27545 STOVL RN1 # TEMP. REF. POSITION VECTOR*2(29)M. 038070,000831: 33,2613 03601 V1S 038071,000832: 33,2614 76505 VXM VSL1 038072,000833: 33,2615 01734 REFSMMAT 038073,000834: 33,2616 27553 STOVL VN1 # TEMP. REF. VELOCITY VECTOR 2(7) M/CS. 038074,000835: 33,2617 03537 UNIT/R/ 038075,000836: 33,2620 51435 VXV ABVAL 038076,000837: # Page 877 038077,000838: 33,2621 03601 V1S 038078,000839: 33,2622 63552 SL1 DSQ 038079,000840: 33,2623 77671 DDV 038080,000841: 33,2624 47075 DMPR RTB 038081,000842: 33,2625 26030 ARCONV1 038082,000843: 33,2626 21612 SGNAGREE 038083,000844: 33,2627 77776 COPYCYC2 EXIT # LEAVE ALTITUDE RATE COMPENSATION IN MPAC 038084,000845: 33,2630 00004 INHINT 038085,000846: 33,2631 31536 CA UNIT/R/ # UPDATE RUNIT FOR R10. 038086,000847: 33,2632 55743 TS RUNIT 038087,000848: 33,2633 31540 CA UNIT/R/ +2 038088,000849: 33,2634 55744 TS RUNIT +1 038089,000850: 33,2635 31542 CA UNIT/R/ +4 038090,000851: 33,2636 55745 TS RUNIT +2 038091,000852: 33,2637 30154 CA MPAC # LOAD NEW DALTRATE FOR R10. 038092,000853: 33,2640 55716 TS DALTRATE 038093,000854: 038094,000855: 33,2641 00006 EXTEND 038095,000856: 33,2642 31573 DCA R1S 038096,000857: 33,2643 53521 DXCH R 038097,000858: 33,2644 00006 EXTEND 038098,000859: 33,2645 31575 DCA R1S +2 038099,000860: 33,2646 53523 DXCH R +2 038100,000861: 33,2647 00006 EXTEND 038101,000862: 33,2650 31577 DCA R1S +4 038102,000863: 33,2651 53525 DXCH R +4 038103,000864: 33,2652 00006 EXTEND 038104,000865: 33,2653 31601 DCA V1S 038105,000866: 33,2654 53527 DXCH V 038106,000867: 33,2655 00006 EXTEND 038107,000868: 33,2656 31603 DCA V1S +2 038108,000869: 33,2657 53531 DXCH V +2 038109,000870: 33,2660 00006 EXTEND 038110,000871: 33,2661 31605 DCA V1S +4 038111,000872: 33,2662 53533 DXCH V +4 038112,000873: 038113,000874: 33,2663 12275 TCF COPYCYCL # COMPLETE THE COPYCYCL. 038114,000875: 038115,000876: # Page 878 038116,000877: # ALTCHK COMPARES CURRENT ALTITUDE (IN HCALC) WITH A SPECIFIED ALTITUDE FROM A TABLE BEGINNING AT ALTCRIT. 038117,000878: # ITS CALLING SEQUENCE IS AS FOLLOWS:- 038118,000879: 038119,000880: # L CAF N 038120,000881: # L+1 TC BANKCALL 038121,000882: # L+2 CADR ALTCHK 038122,000883: # L+3 RETURN HERE IF HCALC STILL > SPECIFIED CRITERION. C(L) = +0. 038123,000884: # L+4 RETURN HERE IF HCALC < OR = SPECIFIED CRITERION. C(A) = C(L) = +0 038124,000885: 038125,000886: # ALTCHK MUST BE BANKCALLED EVEN FROM ITS OWN BANK. N IS THE LOCATION, RELATIVE TO THE TAG ALTCRIT, 038126,000887: # OF THE BEGINNING OF THE DP CONSTANT TO BE USED AS A CRITERION. 038127,000888: 038128,000889: 33,2664 00006 ALTCHK EXTEND 038129,000890: 33,2665 50000 INDEX A 038130,000891: 33,2666 32700 DCA ALTCRIT 038131,000892: 33,2667 52156 DXCH MPAC +1 038132,000893: 33,2670 00006 EXTEND 038133,000894: 33,2671 41535 DCS HCALC 038134,000895: 33,2672 20156 DAS MPAC +1 038135,000896: 33,2673 06727 TC BRANCH +4 038136,000897: 33,2674 34755 CAF ZERO # BETTER THAN A NOOP, PERHAPS 038137,000898: 33,2675 24133 INCR BUF2 038138,000899: 33,2676 14631 TCF SWRETURN 038139,000900: 038140,000901: 33,2677 33,2677 ALTCRIT = 25KFT 038141,000902: 038142,000903: 33,2677 00007 16100 25KFT 2DEC 7620 B-24 # (0) 038143,000904: 038144,000905: 33,2701 00016 34200 50KFT 2DEC 15240 B-24 # (2) 038145,000906: 038146,000907: 33,2703 00000 00364 50FT 2DEC 15.24 B-24 # (4) 038147,000908: 038148,000909: 33,2705 00010 35600 30KFT 2DEC 9144 B-24 # (6) 038149,000910: 038150,000911: 33,2707 01414 2KFT/SEC DEC 6.096 B-7 # 2000 FT/SEC AT 2(7) M/CS 038151,000912: 038152,000913: 038153,000914: # (A remark was likely to be needed here to explain XORCHK) 4/Jun/09,FB 038154,000915: 038155,000916: 33,2710 36242 XORCHK CAF SIX # ARE WE BELOW 30000 FT? 038156,000917: 33,2711 04616 TC BANKCALL 038157,000918: 33,2712 66664 CADR ALTCHK 038158,000919: 33,2713 12476 TCF HITEST # CONTINUE LR UPDATE 038159,000920: 33,2714 05504 TC UPFLAG # YES: INHIBIT X-AXIS OVERRIDE 038160,000921: 33,2715 00311 ADRES XOVINFLG 038161,000922: 33,2716 05504 TC UPFLAG 038162,000923: 33,2717 00253 ADRES XORFLG 038163,000924: 33,2720 12476 TCF HITEST # CONTINUE LR UPDATE 038164,000925: 038165,000926: 33,2721 34752 35KCHK CAF TWO # ARE WE BELOW 35000 FT? 038166,000927: 038167,000928: # Page 879 038168,000929: 33,2722 04616 TC BANKCALL 038169,000930: 33,2723 66664 CADR ALTCHK 038170,000931: 33,2724 12540 TCF CONTSERV 038171,000932: 33,2725 05504 TC UPFLAG 038172,000933: 33,2726 00256 ADRES READLR # SET READLR FLAG TO ENABLE LR READING. 038173,000934: 33,2727 12540 TCF CONTSERV 038174,000935: 038175,000936: # Page 880 038176,000937: # *************************************************************** 038177,000938: 038178,000939: 33,2730 41456 CALCGRAV UNIT PUSH # SAVE UNIT/R/ IN PUSHLIST (18) 038179,000940: 33,2731 03537 STORE UNIT/R/ 038180,000941: 33,2732 67340 LXC,1 SLOAD # RTX2 = 0 IF EARTH ORBIT, =2 IF LUNAR. 038181,000942: 33,2733 02777 RTX2 038182,000943: 33,2734 03000 RTX2 038183,000944: 33,2735 50076 DCOMP BMN 038184,000945: 33,2736 66765 CALCGRV1 038185,000946: 33,2737 50375 VLOAD DOT # (12) 038186,000947: 33,2740 06514 UNITZ 038187,000948: 33,2741 03537 UNIT/R/ 038188,000949: 33,2742 41552 SL1 PUSH # (14) 038189,000950: 33,2743 44316 DSQ BDSU 038190,000951: 33,2744 27027 DP1/20 038191,000952: 33,2745 56325 PDDL DDV 038192,000953: 33,2746 26040 RESQ 038193,000954: 33,2747 00043 34D # (RN)SQ 038194,000955: 33,2750 00041 STORE 32D # TEMP FOR (RE/RN)SQ 038195,000956: 33,2751 41205 DMP DMP 038196,000957: 33,2752 26042 20J 038197,000958: 33,2753 65361 VXSC PDDL 038198,000959: 33,2754 03537 UNIT/R/ 038199,000960: 33,2755 41205 DMP DMP 038200,000961: 33,2756 26044 2J 038201,000962: 33,2757 00041 32D 038202,000963: 33,2760 76561 VXSC VSL1 038203,000964: 33,2761 06514 UNITZ 038204,000965: 33,2762 45455 VAD STADR 038205,000966: 33,2763 74256 STORE UNITGOBL 038206,000967: 33,2764 41455 VAD PUSH # MPAC = UNIT GRAVITY VECTOR. (18) 038207,000968: 33,2765 60345 CALCGRV1 DLOAD NORM # PERFORM A NORMALIZATION ON RMAGSQ IN 038208,000969: 33,2766 00043 34D # ORDER TO BE ABLE TO SCALE THE MU FOR 038209,000970: 33,2767 00050 X2 # MAXIMUM PRECISION. 038210,000971: 33,2770 53663 BDDV* SLR* 038211,000972: 33,2771 26032 -MUDT,1 038212,000973: 33,2772 56623 0 -21D,2 038213,000974: 33,2773 45561 VXSC STADR 038214,000975: 33,2774 74214 STORE GDT1/2 # SCALED AT 2(+7) M/CS 038215,000976: 33,2775 77616 RVQ 038216,000977: 038217,000978: 33,2776 61375 CALCRVG VLOAD VXM 038218,000979: 33,2777 00325 DELV 038219,000980: 33,3000 01734 REFSMMAT 038220,000981: 33,3001 76561 VXSC VSL1 038221,000982: 33,3002 26022 KPIP1 038222,000983: 33,3003 03527 STORE DELVREF 038223,000984: 33,3004 41562 VSR1 PUSH 038224,000985: 33,3005 41455 VAD PUSH # (DV-OLDGDT)/2 TO PD SCALED AT 2(+7) M/CS. 038225,000986: # Page 881 038226,000987: 33,3006 01237 GDT/2 038227,000988: 33,3007 65255 VAD PDDL 038228,000989: 33,3010 01227 VN 038229,000990: 33,3011 01250 PGUIDE 038230,000991: 33,3012 74261 SL VXSC 038231,000992: 33,3013 20207 6D 038232,000993: 33,3014 44055 VAD STQ 038233,000994: 33,3015 01221 RN 038234,000995: 33,3016 00037 31D 038235,000996: 33,3017 37545 STCALL RN1 # TEMP STORAGE OF RN SCALED 2(+29) M 038236,000997: 33,3020 66730 CALCGRAV 038237,000998: 038238,000999: 33,3021 53255 VAD VAD 038239,001000: 33,3022 77655 VAD 038240,001001: 33,3023 01227 VN 038241,001002: 33,3024 37553 STCALL VN1 # TEMP STORAGE OF VN SCALED 2(+7) M/CS 038242,001003: 33,3025 00037 31D 038243,001004: 038244,001005: 33,3026 01463 06315 DP1/20 2DEC 0.05 038245,001006: 33,3030 00010 00000 SHIFT11 2DEC 1 B-11 038246,001007: 038247,001008: # Page 882 038248,001009: # ***************************************************************************** 038249,001010: # MUNRVG IS A SPECIAL AVERAGE G INTEGRATION ROUTINE USED BY THRUSTING 038250,001011: # PROGRAMS WHICH FUNCTION IN THE VICINITY OF AN ASSUMED SPHERICAL MOON. 038251,001012: # THE INPUT AND OUTPUT QUANTITIES ARE REFERENCED TO THE STABLE MEMBER 038252,001013: # COORDINATE SYSTEM. 038253,001014: 038254,001015: 33,3032 41575 RVBOTH VLOAD PUSH 038255,001016: 33,3033 02317 G(CSM) 038256,001017: 33,3034 65255 VAD PDDL 038257,001018: 33,3035 01726 V(CSM) 038258,001019: 33,3036 01250 PGUIDE 038259,001020: 33,3037 74271 DDV VXSC 038260,001021: 33,3040 27031 SHIFT11 038261,001022: 33,3041 77655 VAD 038262,001023: 33,3042 01720 R(CSM) 038263,001024: 33,3043 37573 STCALL R1S 038264,001025: 33,3044 67130 MUNGRAV 038265,001026: 33,3045 53255 VAD VAD 038266,001027: 33,3046 01726 V(CSM) 038267,001028: 33,3047 77626 STADR 038268,001029: 33,3050 74176 STORE V1S 038269,001030: 33,3051 77776 EXIT 038270,001031: 33,3052 03552 TC QUIKFAZ5 038271,001032: 33,3053 06037 TC INTPRET 038272,001033: 33,3054 77775 VLOAD 038273,001034: 33,3055 03563 GDT1/2 038274,001035: 33,3056 26317 STOVL G(CSM) 038275,001036: 33,3057 03573 R1S 038276,001037: 33,3060 25720 STOVL R(CSM) 038277,001038: 33,3061 03601 V1S 038278,001039: 33,3062 01726 STORE V(CSM) 038279,001040: 33,3063 77776 EXIT 038280,001041: 33,3064 03552 TC QUIKFAZ5 038281,001042: 33,3065 06037 TC INTPRET 038282,001043: 33,3066 74375 MUNRVG VLOAD VXSC 038283,001044: 33,3067 00325 DELV 038284,001045: 33,3070 26024 KPIP2 038285,001046: 33,3071 53206 PUSH VAD # 1ST PUSH: DELV IN UNITS OF 2(8) M/CS 038286,001047: 33,3072 01237 GDT/2 038287,001048: 33,3073 53206 PUSH VAD # 2ND PUSH: (DELV + GDT)/2, UNITS OF 2(7) 038288,001049: 33,3074 03527 V # (12) 038289,001050: 33,3075 56325 PDDL DDV 038290,001051: 33,3076 01250 PGUIDE 038291,001052: 33,3077 27031 SHIFT11 038292,001053: 33,3100 77761 VXSC 038293,001054: 33,3101 77655 VAD 038294,001055: 33,3102 03521 R 038295,001056: 33,3103 37573 STCALL R1S # STORE R SCALED AT 2(+24) M 038296,001057: 33,3104 67130 MUNGRAV 038297,001058: # Page 883 038298,001059: 33,3105 53255 VAD VAD 038299,001060: 33,3106 77655 VAD 038300,001061: 33,3107 03527 V 038301,001062: 33,3110 03601 STORE V1S # STORE V SCALED AT 2(+7) M/CS. 038302,001063: 33,3111 77646 ABVAL 038303,001064: 33,3112 27472 STOVL ABVEL # STORE SPEED FOR LR AND DISPLAYS. 038304,001065: 33,3113 03537 UNIT/R/ 038305,001066: 33,3114 72441 DOT SL1 038306,001067: 33,3115 03601 V1S 038307,001068: 33,3116 27474 STOVL HDOTDISP # HDOT = V. UNIT(R)*2(7) M/CS. 038308,001069: 33,3117 03573 R1S 038309,001070: 33,3120 72435 VXV VSL2 038310,001071: 33,3121 02325 WM 038311,001072: 33,3122 17734 STODL DELVS # LUNAR ROTATION CORRECTON TERM*2(5) M/CS. 038312,001073: 33,3123 00045 36D 038313,001074: 33,3124 77625 DSU 038314,001075: 33,3125 02333 /LAND/ 038315,001076: 33,3126 37535 STCALL HCALC # FOR NOW, DISPLAY WHETHER POS OR NEG 038316,001077: 33,3127 66461 MUNRETRN 038317,001078: 33,3130 77656 MUNGRAV UNIT # AT 36D HAVE ABVAL(R), AT 34D R.R 038318,001079: 33,3131 17537 STODL UNIT/R/ 038319,001080: 33,3132 00043 34D 038320,001081: 33,3133 55261 SL BDDV 038321,001082: 33,3134 20207 6D 038322,001083: 33,3135 26036 -MUDTMUN 038323,001084: 33,3136 74205 DMP VXSC 038324,001085: 33,3137 27031 SHIFT11 038325,001086: 33,3140 03537 UNIT/R/ 038326,001087: 33,3141 03563 STORE GDT1/2 # 1/2GDT SCALED AT 2(7) M/CS. 038327,001088: 33,3142 77616 RVQ 038328,001089: 038329,001090: 33,3143 00303 1.95SECS DEC 195 B-14 038330,001091: 33,3144 00005 33212 7.5 2DEC .02286 B-6 # 7.5 FT/SEC AT 2(6) M/CS 038331,001092: 038332,001093: 33,3146 00014 20000 2SEC(18) 2DEC 200 B-18 038333,001094: 038334,001095: 33,3150 00000 00310 2SEC(28) 2OCT 0000000310 # 2SEC AT 2(28) 038335,001096: 038336,001097: 33,3152 00000 00620 4SEC(28) 2DEC 400 B-28 038337,001098: 038338,001099: 33,3154 00110 BITS4-7 OCT 110 038339,001100: 038340,001101: 038341,001102: # Page 884 038342,001103: 33,3155 34742 UPDATCHK CAF NOLRRBIT # SEE IF LR UPDATE INHIBITED. 038343,001104: 33,3156 70107 MASK FLGWRD11 038344,001105: 33,3157 10000 CCS A 038345,001106: 33,3160 12540 TCF CONTSERV # IT IS -- NO LR UPDATE 038346,001107: 33,3161 34750 CAF RNGEDBIT # NO INHIBIT -- SEE ALT MEAS. THIS CYCLE. 038347,001108: 33,3162 70107 MASK FLGWRD11 038348,001109: 33,3163 00006 EXTEND 038349,001110: 33,3164 13310 BZF VMEASCHK # NO ALT MEAS THIS CYCLE -- CHECK FOR VEL 038350,001111: 038351,001112: 33,3165 30120 POSUPDAT CA FIXLOC # SET PUSHLIST TO ZERO 038352,001113: 33,3166 54166 TS PUSHLOC 038353,001114: 038354,001115: 33,3167 06037 TC INTPRET 038355,001116: 33,3170 61375 VLOAD VXM 038356,001117: 33,3171 02273 HBEAMNB 038357,001118: 33,3172 02146 XNBPIP # HBEAM SM AT 2(2) 038358,001119: 33,3173 72515 PDVL VSL2 # STORE HBEAM IN PD 0-5 038359,001120: 33,3174 03601 V1S # SCALE V AT 2(5) M/CS 038360,001121: 33,3175 50255 VAD DOT 038361,001122: 33,3176 03734 DELVS # V RELATIVE TO SURFACE AT 2(5) M/CS 038362,001123: 33,3177 00001 0D # V ALONG HBEAM AT 2(7) M/CS. 038363,001124: 33,3200 77405 DMP EXIT 038364,001125: 33,3201 01355 RADSKAL # SCALE TO RADAR COUNTS X 5 038365,001126: 038366,001127: 33,3202 40110 CS FLGWRD12 # TEST LR ALTITUDE SCALE FACTOR 038367,001128: 33,3203 74743 MASK ALTSCBIT 038368,001129: 33,3204 00006 EXTEND 038369,001130: 33,3205 13210 BZF +3 # BRANCH IF HIGH SCALE 038370,001131: 038371,001132: 33,3206 31356 CA SKALSKAL # RESCALE IF LOW SCALE 038372,001133: 33,3207 07307 TC SHORTMP 038373,001134: 038374,001135: 33,3210 06037 +3 TC INTPRET 038375,001136: 33,3211 54215 DAD SL # CORRECT HMEAS FOR DOPPLER EFFECT 038376,001137: 33,3212 03655 HMEAS 038377,001138: 33,3213 20210 7D 038378,001139: 33,3214 74205 DMP VXSC # SLANT RANGE AT 2(21), PUSH UP FOR HBEAM 038379,001140: 33,3215 26011 HSCAL # SLANT RANGE VECTOR AT 2(23) M 038380,001141: 33,3216 45241 DOT DSU 038381,001142: 33,3217 03537 UNIT/R/ # ALTITUDE AT 2(24) M 038382,001143: 33,3220 03535 HCALC # DELTA H AT 2(24) M 038383,001144: 33,3221 03665 STORE DELTAH 038384,001145: 33,3222 77776 EXIT 038385,001146: 038386,001147: 33,3223 30107 CA FLGWRD11 038387,001148: 33,3224 74741 MASK PSTHIBIT 038388,001149: 33,3225 00006 EXTEND # DO NOT PERFORM DATA REASONABLENESS TEST 038389,001150: 33,3226 13243 BZF NOREASON # UNTIL AFTER HIGATE 038390,001151: # Page 885 038391,001152: 33,3227 06037 TC INTPRET 038392,001153: 33,3230 45246 ABS DSU 038393,001154: 33,3231 02521 DELQFIX # ABS(DELTAH) - DQFIX 50 FT NOM 038394,001155: 33,3232 45252 SL3 DSU # SCALE TO 2(21) 038395,001156: 33,3233 03535 HCALC # ABS(DELTAH) - (50 + HCALC/8) AT 2(21) 038396,001157: 33,3234 77776 EXIT 038397,001158: 038398,001159: 33,3235 25670 INCR LRLCTR 038399,001160: 33,3236 06723 TC BRANCH 038400,001161: 33,3237 13560 TCF HFAIL # DELTA H TOO LARGE 038401,001162: 33,3240 13560 TCF HFAIL # DELTA H TOO LARGE 038402,001163: 33,3241 05516 TC DOWNFLAG # TURN OFF ALT FAIL LAMP 038403,001164: 33,3242 00263 ADRES HFLSHFLG 038404,001165: 038405,001166: 33,3243 40107 NOREASON CS FLGWRD11 038406,001167: 33,3244 74744 MASK LRINHBIT 038407,001168: 33,3245 10000 CCS A 038408,001169: 33,3246 13310 TCF VMEASCHK # UPDATE INHIBITED -- TEST VELOCITY ANYWAY 038409,001170: 038410,001171: 33,3247 06037 TC INTPRET # DO POSITION UPDATE 038411,001172: 33,3250 40545 DLOAD SR4 038412,001173: 33,3251 03535 HCALC # RESCALE H TO 2(28)M 038413,001174: 33,3252 77776 EXIT 038414,001175: 33,3253 00006 EXTEND 038415,001176: 33,3254 31665 DCA DELTAH # STORE DELTAH IN MPAC AND 038416,001177: 33,3255 52155 DXCH MPAC # BRING HCALC INTO A,L 038417,001178: 33,3256 07544 TC ALSIGNAG 038418,001179: 33,3257 00006 EXTEND # IF HIGH PART OF HCALC IS NON-ZERO, THEN 038419,001180: 33,3260 13262 BZF +2 # HCALC > HMAX, 038420,001181: 33,3261 13310 TCF VMEASCHK # SO UPDATE IS BYPASSED 038421,001182: 33,3262 54156 TS MPAC +2 # FOR LATER SHORTMP 038422,001183: 038423,001184: 33,3263 40001 CS L # -H AT 2(14) M 038424,001185: 33,3264 61420 AD LRHMAX # HMAX - H 038425,001186: 33,3265 00006 EXTEND 038426,001187: 33,3266 63310 BZMF VMEASCHK # IF H >HMAX, BYPASS UPDATE 038427,001188: 33,3267 00006 EXTEND 038428,001189: 33,3270 71421 MP LRWH # WH(HMAX - H) 038429,001190: 33,3271 00006 EXTEND 038430,001191: 33,3272 11420 DV LRHMAX # WH(1 - H/HMAX) 038431,001192: 33,3273 54135 TS MPTEMP 038432,001193: 33,3274 07313 TC SHORTMP2 # DELTAH (WH)(1 - H/HMAX) IN MPAC 038433,001194: 33,3275 06037 TC INTPRET # MODE IS DP FROM ABOVE 038434,001195: 33,3276 77752 SL1 038435,001196: 33,3277 53361 VXSC VAD 038436,001197: 33,3300 03537 UNIT/R/ # DELTAR = DH(WH)(1 - H/HMAX) UNIT/R/ 038437,001198: 33,3301 03573 R1S 038438,001199: 33,3302 37657 STCALL GNUR 038439,001200: 33,3303 67130 MUNGRAV 038440,001201: 33,3304 77776 EXIT 038441,001202: # Page 886 038442,001203: 33,3305 03552 TC QUIKFAZ5 038443,001204: 038444,001205: 33,3306 34755 CA ZERO 038445,001206: 33,3307 03534 RUPDATED TC GNURVST 038446,001207: 038447,001208: 33,3310 03552 VMEASCHK TC QUIKFAZ5 # RESTART AT NEXT LOCATION 038448,001209: 33,3311 40107 CS FLGWRD11 038449,001210: 33,3312 74745 MASK VELDABIT # IS V READING AVAILABLE? 038450,001211: 33,3313 10000 CCS A 038451,001212: 33,3314 13514 TCF VALTCHK # NO: SEE IF V READING TO BE TAKEN 038452,001213: 038453,001214: 33,3315 41651 VELUPDAT CS VSELECT # PROCESS VELOCITY DATA 038454,001215: 33,3316 54001 TS L 038455,001216: 33,3317 26001 ADS L # -2 VSELECT IN L 038456,001217: 33,3320 60001 AD L 038457,001218: 33,3321 60001 AD L # -6 VSELECT IN A 038458,001219: 33,3322 50120 INDEX FIXLOC 038459,001220: 33,3323 52047 DXCH X1 # X1 = -6 VSELECT, X2 = -2 VSELECT 038460,001221: 038461,001222: 33,3324 34741 CA EBANK4 038462,001223: 33,3325 54003 TS EBANK 038463,001224: 33,3326 E4,1654 EBANK= LRXCDU 038464,001225: 038465,001226: 33,3326 31655 CA LRYCDU # STORE LRCDUS IN CDUSPOTS 038466,001227: 33,3327 54766 TS CDUSPOT 038467,001228: 33,3330 31656 CA LRZCDU 038468,001229: 33,3331 54770 TS CDUSPOT +2 038469,001230: 33,3332 31654 CA LRXCDU 038470,001231: 33,3333 54772 TS CDUSPOT +4 038471,001232: 038472,001233: 33,3334 04616 TC BANKCALL 038473,001234: 33,3335 47615 CADR QUICTRIG # GET SINES AND COSINES FOR NBSM 038474,001235: 038475,001236: 33,3336 30120 CA FIXLOC 038476,001237: 33,3337 54166 TS PUSHLOC # SET PD TO ZERO 038477,001238: 038478,001239: 33,3340 06037 TC INTPRET 038479,001240: 33,3341 45173 VLOAD* CALL 038480,001241: 33,3342 02231 VZBEAMNB,1 # CONVERT VBEAM FROM NB TO SM 038481,001242: 33,3343 47673 *NBSM* 038482,001243: 33,3344 54325 PDDL SL # STORE IN PD 0-5 038483,001244: 33,3345 03653 VMEAS # LOAD VELOCITY MEASUREMENT 038484,001245: 33,3346 20215 12D 038485,001246: 33,3347 41403 DMP* PUSH # SCALE TO M/CS AT 2(6) 038486,001247: 33,3350 51764 VZSCAL,2 # AND STORE IN PD 6-7 038487,001248: 33,3351 77776 EXIT 038488,001249: 33,3352 44753 CS ONE 038489,001250: 33,3353 54163 TS MODE # CHANGE STORE MODE TO VECTOR 038490,001251: 038491,001252: 33,3354 31657 CA PIPTEM # STORE DELV IN MPAC 038492,001253: # Page 887 038493,001254: 33,3355 22007 ZL 038494,001255: 33,3356 52155 DXCH MPAC 038495,001256: 038496,001257: 33,3357 31660 CA PIPTEM +1 038497,001258: 33,3360 22007 ZL 038498,001259: 33,3361 52160 DXCH MPAC +3 038499,001260: 038500,001261: 33,3362 31661 CA PIPTEM +2 038501,001262: 33,3363 22007 ZL 038502,001263: 33,3364 52162 DXCH MPAC +5 038503,001264: 038504,001265: 33,3365 35016 CA EBANK7 038505,001266: 33,3366 54003 TS EBANK # RESTORE EBANK 7 038506,001267: 33,3367 E7,1515 EBANK= DVCNTR 038507,001268: 33,3367 06037 TC INTPRET 038508,001269: 33,3370 65361 VXSC PDDL 038509,001270: 33,3371 26022 KPIP1 # SCALE DELV TO 2(7) M/CS AND PUSH 038510,001271: 33,3372 02253 LRVTIME # TIME OF DELV AT 2(28) CS 038511,001272: 33,3373 56225 DSU DDV 038512,001273: 33,3374 01235 PIPTIME # TU - T(N-1) 038513,001274: 33,3375 27151 2SEC(28) 038514,001275: 33,3376 76561 VXSC VSL1 # G(N-1)(TU - T(N-1)) 038515,001276: 33,3377 01237 GDT/2 # SCALED AT 2(7) M/CS 038516,001277: 33,3400 53255 VAD VAD # PUSH UP FOR DELV 038517,001278: 33,3401 03527 V # VU = V(N-1) + DELVU + G(N-1) DTU 038518,001279: 33,3402 53352 VSL2 VAD # SCALE TO 2(5) M/CS AND SUBTRACT 038519,001280: 33,3403 03734 DELVS # MOON ROTATION. 038520,001281: 33,3404 51406 PUSH ABVAL # STORE IN PD 038521,001282: 33,3405 43202 SR4 DAD # ABS(VM)/8 + 7.5 AT 2(6) 038522,001283: 33,3406 27145 7.5 038523,001284: 33,3407 24025 STOVL 20D # STORE IN 20D AND PICK UP VM 038524,001285: 33,3410 44241 DOT BDSU # V(EST) AT 2(6) 038525,001286: 33,3411 00001 0 # DELTAV = VMEAS - V(EST) 038526,001287: 33,3412 51406 PUSH ABS 038527,001288: 33,3413 77425 DSU EXIT # ABS(DV) - (7.5 + ABS(VM)/8)) 038528,001289: 33,3414 00025 20D 038529,001290: 038530,001291: 33,3415 25672 INCR LRMCTR 038531,001292: 33,3416 06723 TC BRANCH 038532,001293: 33,3417 13575 TCF VFAIL # DELTA V TOO LARGE. ALARM 038533,001294: 33,3420 13575 TCF VFAIL # DELTA V TOO LARGE. ALARM 038534,001295: 038535,001296: 33,3421 05516 TC DOWNFLAG # TURN OFF VEL FAIL LAMP 038536,001297: 33,3422 00262 ADRES VFLSHFLG 038537,001298: 038538,001299: 33,3423 30107 CA FLGWRD11 038539,001300: 33,3424 74740 MASK VXINHBIT 038540,001301: 33,3425 00006 EXTEND 038541,001302: 33,3426 13435 BZF VUPDAT # IF VX INHIBIT RESET, INCORPORATE DATA. 038542,001303: # Page 888 038543,001304: 33,3427 05516 TC DOWNFLAG 038544,001305: 33,3430 00250 ADRES VXINH # RESET VX INHIBIT 038545,001306: 038546,001307: 33,3431 31651 CA VSELECT 038547,001308: 33,3432 67746 AD NEG2 # IF VSELECT = 2 (X AXIS). 038548,001309: 33,3433 00006 EXTEND # BYPASS UPDATE 038549,001310: 33,3434 13514 BZF ENDVDAT 038550,001311: 038551,001312: 33,3435 40107 VUPDAT CS FLGWRD11 038552,001313: 33,3436 74744 MASK LRINHBIT 038553,001314: 33,3437 10000 CCS A 038554,001315: 33,3440 13514 TCF VALTCHK # UPDATE INHIBITED 038555,001316: 038556,001317: 33,3441 54155 TS MPAC +1 038557,001318: 038558,001319: 33,3442 31471 CA ABVEL # STORE E7 ERASABLES NEEDED IN TEMPS 038559,001320: 33,3443 54130 TS ABVEL* 038560,001321: 33,3444 31651 CA VSELECT 038561,001322: 33,3445 54131 TS VSELECT* 038562,001323: 33,3446 35014 CA EBANK5 038563,001324: 33,3447 54003 TS EBANK # CHANGE EBANKS 038564,001325: 038565,001326: 33,3450 E5,1527 EBANK= LRVF 038566,001327: 33,3450 41527 CS LRVF 038567,001328: 33,3451 60130 AD ABVEL* # IF V < VF, USE WVF 038568,001329: 33,3452 00006 EXTEND 038569,001330: 33,3453 63466 BZMF USEVF 038570,001331: 038571,001332: 33,3454 40130 CS ABVEL* 038572,001333: 33,3455 61526 AD LRVMAX # VMAX - V 038573,001334: 33,3456 00006 EXTEND 038574,001335: 33,3457 63471 BZMF WSTOR -1 # IF V > VMAX, W = 0 038575,001336: 038576,001337: 33,3460 00006 EXTEND 038577,001338: 33,3461 50131 INDEX VSELECT* 038578,001339: 33,3462 71530 MP LRWVZ # WV(VMAX - V) 038579,001340: 038580,001341: 33,3463 00006 EXTEND 038581,001342: 33,3464 11526 DV LRVMAX # WV( 1 - V/VMAX ) 038582,001343: 33,3465 13472 TCF WSTOR 038583,001344: 038584,001345: 33,3466 50131 USEVF INDEX VSELECT* 038585,001346: 33,3467 31533 CA LRWVFZ # USE APPROPRIATE CONSTANT WEIGHT 038586,001347: 33,3470 13472 TCF WSTOR 038587,001348: 038588,001349: 33,3471 34755 -1 CA ZERO 038589,001350: 33,3472 54154 WSTOR TS MPAC 038590,001351: 33,3473 44745 CS BIT7 # (=64D) 038591,001352: 33,3474 61011 AD MODREG 038592,001353: 33,3475 00006 EXTEND 038593,001354: # Page 889 038594,001355: 33,3476 63501 BZMF +3 # IF IN P65,P66,P67, USE ANOTHER CONSTANT 038595,001356: 038596,001357: 33,3477 31536 CA LRWVFF 038597,001358: 33,3500 54154 TS MPAC 038598,001359: 038599,001360: 33,3501 35016 +3 CA EBANK7 038600,001361: 33,3502 54003 TS EBANK # CHANGE EBANKS 038601,001362: 038602,001363: 33,3503 E7,1471 EBANK= ABVEL 038603,001364: 33,3503 06037 TC INTPRET 038604,001365: 33,3504 74205 DMP VXSC # W(DELTA V)(VBEAMSM) UP 6-7, 0-5 038605,001366: 33,3505 77655 VAD 038606,001367: 33,3506 03601 V1S # ADD WEIGHTED DELTA V TO VELOCITY 038607,001368: 33,3507 03657 STORE GNUV 038608,001369: 33,3510 77776 EXIT 038609,001370: 038610,001371: 33,3511 03552 TC QUIKFAZ5 # DO NOT RE-UPDATE 038611,001372: 038612,001373: 33,3512 36242 CA SIX 038613,001374: 33,3513 03534 VUPDATED TC GNURVST # STORE NEW VELOCITY VECTOR 038614,001375: 33,3514 33,3514 ENDVDAT = VALTCHK 038615,001376: 038616,001377: 33,3514 03552 VALTCHK TC QUIKFAZ5 # DO NOT REPEAT ABOVE 038617,001378: 038618,001379: 33,3515 34747 CAF READVBIT # TEST READVEL TO SEE IF VELOCITY READING 038619,001380: 33,3516 70107 MASK FLGWRD11 # IS DESIRED. 038620,001381: 33,3517 10000 CCS A 038621,001382: 33,3520 13527 TCF READV # YES -- READ VELOCITY 038622,001383: 33,3521 41471 CS ABVEL # NO -- SEE IF VELOCITY < 2000 FT/SEC 038623,001384: 33,3522 62707 AD 2KFT/SEC 038624,001385: 33,3523 00006 EXTEND 038625,001386: 33,3524 62540 BZMF CONTSERV # V > 2000 FT/SEC DO NOT READ VEL 038626,001387: 038627,001388: 33,3525 05504 TC UPFLAG # V < 2000 FT/SEC SET READVEL AND READ. 038628,001389: 33,3526 00257 ADRES READVEL 038629,001390: 038630,001391: 33,3527 37720 READV CAF PRIO32 # SET UP JOB TO READ VELOCITY BEAMS. 038631,001392: 33,3530 05072 TC NOVAC 038632,001393: 33,3531 E7,1654 EBANK= HMEAS 038633,001394: 33,3531 03616 66067 2CADR LRVJOB 038634,001395: 038635,001396: 33,3533 12540 TCF CONTSERV # CONTINUE WITH SERVICER 038636,001397: 038637,001398: 33,3534 54130 GNURVST TS BUF # STORE GNUR (=GNUV) IN R1S OR V1S 038638,001399: 33,3535 00006 EXTEND # A = 0 FOR R, A = 6 FOR V 038639,001400: 33,3536 31657 DCA GNUR 038640,001401: 33,3537 50130 INDEX BUF 038641,001402: 33,3540 53573 DXCH R1S 038642,001403: 33,3541 00006 EXTEND 038643,001404: # Page 890 038644,001405: 33,3542 31661 DCA GNUR +2 038645,001406: 33,3543 50130 INDEX BUF 038646,001407: 33,3544 53575 DXCH R1S +2 038647,001408: 33,3545 00006 EXTEND 038648,001409: 33,3546 31663 DCA GNUR +4 038649,001410: 33,3547 50130 INDEX BUF 038650,001411: 33,3550 53577 DXCH R1S +4 038651,001412: 33,3551 00002 TC Q 038652,001413: 038653,001414: 33,3552 35007 QUIKFAZ5 CA EBANK3 038654,001415: 33,3553 56003 XCH EBANK # SET EBANK 3 038655,001416: 33,3554 52002 DXCH L # Q TO A, A TO L 038656,001417: 33,3555 E3,1446 EBANK= PHSNAME5 038657,001418: 33,3555 55446 TS PHSNAME5 038658,001419: 33,3556 22003 LXCH EBANK 038659,001420: 33,3557 E7,1515 EBANK= DVCNTR 038660,001421: 33,3557 00000 TC A 038661,001422: 038662,001423: 33,3560 41671 HFAIL CS LRRCTR 038663,001424: 33,3561 00006 EXTEND 038664,001425: 33,3562 13572 BZF NORLITE # IF R = 0, DO NOT TURN ON TRK FAIL 038665,001426: 33,3563 61670 AD LRLCTR 038666,001427: 33,3564 77745 MASK NEG3 038667,001428: 33,3565 00006 EXTEND # IF L-R LT 4, DO NOT TURN ON TRK FAIL 038668,001429: 33,3566 13570 BZF +2 038669,001430: 33,3567 13572 TCF NORLITE 038670,001431: 038671,001432: 33,3570 05504 TC UPFLAG # AND SET BIT TO TURN ON TRACKER FAIL LITE 038672,001433: 33,3571 00263 ADRES HFLSHFLG 038673,001434: 038674,001435: 33,3572 31670 NORLITE CA LRLCTR 038675,001436: 33,3573 55671 TS LRRCTR # SET R = L 038676,001437: 038677,001438: 33,3574 13310 TCF VMEASCHK 038678,001439: 038679,001440: 33,3575 41673 VFAIL CS LRSCTR # DELTA Q LARGE 038680,001441: 33,3576 00006 EXTEND # IF S = 0, DO NOT TURN ON TRACKER FAIL 038681,001442: 33,3577 13607 BZF NOLITE 038682,001443: 33,3600 61672 AD LRMCTR # M-S 038683,001444: 33,3601 77745 MASK NEG3 # TEST FOR M-S > 3 038684,001445: 33,3602 00006 EXTEND # IF M-S > 3, THEN TWO OR MORE OF THE 038685,001446: 33,3603 13605 BZF +2 # LAST FOUR V READINGS WERE BAD, 038686,001447: 33,3604 13607 TCF NOLITE # SO TURN ON VELOCITY FAIL LIGHT 038687,001448: 038688,001449: 33,3605 05504 TC UPFLAG # AND SET BIT TO TURN ON TRACKER FAIL LITE 038689,001450: 33,3606 00262 ADRES VFLSHFLG 038690,001451: 038691,001452: # Page 891 038692,001453: 33,3607 31672 NOLITE CA LRMCTR # SET S = M 038693,001454: 33,3610 55673 TS LRSCTR 038694,001455: 038695,001456: 33,3611 11651 CCS VSELECT # TEST FOR Z COMPONENT 038696,001457: 33,3612 13514 TCF ENDVDAT # NOT Z, DO NOT SET VX INHIBIT 038697,001458: 038698,001459: 33,3613 05504 TC UPFLAG # Z COMPONENT - SET FLAG TO SKIP X 038699,001460: 33,3614 00250 ADRES VXINH # COMPONENT, AS ERROR MAY BE DUE TO CROSS 038700,001461: 33,3615 13514 TCF ENDVDAT # LOBE LOCK UP NOT DETECTED ON X AXIS. 038701,001462: 038702,001463: # Page 892 038703,001464: # ******************************************************************************** 038704,001465: # LRVJOB IS SET WHEN THE LEM IS BELOW 15000 FT DURING THE LANDING PHASE 038705,001466: # THIS JOB INITIALIZES THE LANDING RADAR READ ROUTINE FOR 5 VELOCITY 038706,001467: # SAMPLES AND GOES TO SLEEP WHILE THE SAMPLING IS DONE -- ABOUT 500 MS. 038707,001468: # WITH A GOODEND RETURN THE DATA IS STORED IN VMEAS AND BIT7 OF LRSTAT 038708,001469: # IS SET. THE GIMBAL ANGLES ARE READ ABOUT MIDWAY IN THE SAMPLINGS. 038709,001470: 038710,001471: 33,3616 4361 170MS EQUALS ND1 038711,001472: 038712,001473: 33,3616 34361 LRVJOB CA 170MS # SET TASK TO READ CDUS + PIPAS 038713,001474: 33,3617 05203 TC WAITLIST 038714,001475: 33,3620 E4,1652 EBANK= LRVTIME 038715,001476: 33,3620 03757 70064 2CADR RDGIMS 038716,001477: 038717,001478: 33,3622 11651 CCS VSELECT # SEQUENCE LR VEL BEAM SELECTOR 038718,001479: 33,3623 13625 TCF +2 038719,001480: 33,3624 34752 CAF TWO # IF ZERO, RESET TO TWO 038720,001481: 33,3625 60000 DOUBLE # 2XVSELECT USED FOR VBEAM INDEX IN LRVEL 038721,001482: 33,3626 04616 TC BANKCALL # GO INITIALIZE LR VEL READ ROUTINE 038722,001483: 33,3627 53107 CADR LRVEL 038723,001484: 33,3630 04616 TC BANKCALL # PUT LRVJOB TO SLEEP ABOUT 500 MS 038724,001485: 33,3631 17714 CADR RADSTALL 038725,001486: 33,3632 13665 TCF VBAD 038726,001487: 33,3633 11675 CCS STILBADV # IS DATA GOOD JUST PRESENT? 038727,001488: 33,3634 13666 TCF VSTILBAD # JUST GOOD -- MUST WAIT 4 SECONDS. 038728,001489: 038729,001490: 33,3635 00004 INHINT 038730,001491: 33,3636 00006 EXTEND # GOOD RETURN -- STOW AWAY VMEAS 038731,001492: 33,3637 31102 DCA SAMPLSUM 038732,001493: 33,3640 53653 DXCH VMEAS 038733,001494: 33,3641 34741 CA EBANK4 # FOR DOWNLINK 038734,001495: 33,3642 54003 TS EBANK 038735,001496: 33,3643 E4,1652 EBANK= LRVTIME 038736,001497: 038737,001498: 33,3643 00006 EXTEND 038738,001499: 33,3644 31653 DCA LRVTIME 038739,001500: 33,3645 53740 DXCH LRVTIMDL 038740,001501: 33,3646 00006 EXTEND 038741,001502: 33,3647 31655 DCA LRXCDU 038742,001503: 33,3650 53735 DXCH LRXCDUDL 038743,001504: 33,3651 31656 CA LRZCDU 038744,001505: 33,3652 55736 TS LRZCDUDL 038745,001506: 33,3653 35016 CA EBANK7 038746,001507: 33,3654 54003 TS EBANK 038747,001508: 33,3655 E7,1651 EBANK= VSELECT 038748,001509: 038749,001510: 33,3655 40107 CS FLGWRD11 # SET BIT TO INDICATE VELOCITY 038750,001511: 33,3656 74745 MASK VELDABIT # MEASUREMENT MADE 038751,001512: # Page 893 038752,001513: 33,3657 26107 ADS FLGWRD11 038753,001514: 33,3660 11651 ENDLRV CCS VSELECT # UPDATE VSELECT 038754,001515: 33,3661 13663 TCF +2 038755,001516: 33,3662 34752 CA TWO 038756,001517: 33,3663 55651 TS VSELECT 038757,001518: 33,3664 15155 TCF ENDOFJOB 038758,001519: 038759,001520: 33,3665 34752 VBAD CAF TWO # SET STILBAD TO WAIT 4 SECONDS 038760,001521: 33,3666 55675 VSTILBAD TS STILBADV 038761,001522: 33,3667 13660 TCF ENDLRV 038762,001523: 038763,001524: # LRHJOB IS SET BY LRHTASK WHEN LEM IS BELOW 25000 FT. THIS JOB 038764,001525: # INITIALIZES THE LR READ ROUTINE FOR AN ALT MEASUREMENT AND GOES TO 038765,001526: # SLEEP WHILE THE SAMPLING IS DONE -- ABOUT 95 MS. WITH A GOODEND RETURN 038766,001527: # THE ALT DATA IS STORED IN HMEAS AND BIT7 OF LRSTAT IS SET. 038767,001528: 038768,001529: 34,3716 BANK 34 038769,001530: 34,2000 SETLOC R12STUFF 038770,001531: 34,2000 BANK 038771,001532: 038772,001533: 34,3716 COUNT* $$/SERV 038773,001534: 038774,001535: 34,3716 04616 LRHJOB TC BANKCALL # INITIATE LR ALT MEASUREMENT 038775,001536: 34,3717 53073 CADR LRALT 038776,001537: 34,3720 04616 TC BANKCALL # LRHJOB TO SLEEP ABOUT 95MS 038777,001538: 34,3721 17714 CADR RADSTALL 038778,001539: 34,3722 13745 TCF HBAD 038779,001540: 34,3723 11674 CCS STILBADH # IS DATA GOOD JUST PRESENT? 038780,001541: 34,3724 13755 TCF HSTILBAD # JUST GOOD -- MUST WAIT 4 SECONDS. 038781,001542: 038782,001543: 34,3725 00004 INHINT 038783,001544: 34,3726 00006 EXTEND 038784,001545: 34,3727 31102 DCA SAMPLSUM # GOOD RETURN -- STORE AWAY LRH DATA 038785,001546: 34,3730 53655 DXCH HMEAS # LRH DATA 1.079 FT/BIT 038786,001547: 34,3731 00006 EXTEND # FOR DOWNLINK 038787,001548: 34,3732 31561 DCA PIPTIME1 038788,001549: 34,3733 53755 DXCH MKTIME 038789,001550: 038790,001551: 34,3734 00006 EXTEND 038791,001552: 34,3735 31157 DCA CDUTEMPY # CDUY,Z = AIG,AMG 038792,001553: 34,3736 53460 DXCH AIG 038793,001554: 038794,001555: 34,3737 31155 CA CDUTEMPX # CDUX = AOG 038795,001556: 34,3740 55461 TS AOG 038796,001557: 038797,001558: 34,3741 40107 CS FLGWRD11 # SET BIT TO INDICATE RANGE 038798,001559: 34,3742 74750 MASK RNGEDBIT # MEASUREMENT MADE. 038799,001560: 34,3743 26107 ADS FLGWRD11 038800,001561: 34,3744 05155 ENDLRH TC ENDOFJOB # TERMATE LRHJOB 038801,001562: 038802,001563: # Page 894 038803,001564: 34,3745 30101 HBAD CA FLAGWRD5 038804,001565: 34,3746 74742 MASK RNGSCBIT # IS BAD RETURN DUE TO SCALE CHANGE? 038805,001566: 34,3747 00006 EXTEND 038806,001567: 34,3750 13754 BZF HSTILBAD -1 # NO RESET HSTILBAD 038807,001568: 34,3751 05516 TC DOWNFLAG # YES RESET SCALE CHANGE BIT AND IGNORE 038808,001569: 34,3752 00120 ADRES RNGSCFLG 038809,001570: 34,3753 05155 TC ENDOFJOB 038810,001571: 038811,001572: 34,3754 34752 CAF TWO # SET STILBAD TO WAIT 4 SECONDS 038812,001573: 34,3755 55674 HSTILBAD TS STILBADH 038813,001574: 34,3756 05155 TC ENDOFJOB 038814,001575: 038815,001576: 34,3757 BANK 34 038816,001577: 34,2000 SETLOC SERV4 038817,001578: 34,2000 BANK 038818,001579: 038819,001580: 34,3757 COUNT* $$/SERV 038820,001581: 038821,001582: # RDGIMS IS A TASK SET UP BY LRVJOB TO PICK UP THE IMU CDUS AND TIME 038822,001583: # AT ABOUT THE MIDPOINT OF THE LR VEL READ ROUTINE WHEN 5 VEL SAMPLES 038823,001584: # ARE SPECIFIED. 038824,001585: 038825,001586: 34,3757 E4,1652 EBANK= LRVTIME 038826,001587: 34,3757 00006 RDGIMS EXTEND 038827,001588: 34,3760 30025 DCA TIME2 # PICK UP TIME2, TIME1 038828,001589: 34,3761 53653 DXCH LRVTIME # AND SAVE IN LRVTIME 038829,001590: 038830,001591: 34,3762 00006 EXTEND 038831,001592: 34,3763 30033 DCA CDUX # PICK UP CDUX AND CDUY 038832,001593: 34,3764 53655 DXCH LRXCDU # AND SAVE IN LRXCDU AND LRYCDU 038833,001594: 038834,001595: 34,3765 30034 CA CDUZ 038835,001596: 34,3766 55656 TS LRZCDU # SAVE CDUZ IN LRZCDU 038836,001597: 038837,001598: 34,3767 30037 CA PIPAX 038838,001599: 34,3770 55657 TS PIPTEM # SAVE PIPAX IN PIPTEM 038839,001600: 038840,001601: 34,3771 00006 EXTEND 038841,001602: 34,3772 30041 DCA PIPAY # PICK UP PIPAY AND PIPAZ 038842,001603: 34,3773 53661 DXCH PIPTEM +1 # AND SAVE IN PIPTEM +1 AND PIPTEM +2 038843,001604: 34,3774 05261 TC TASKOVER 038844,001605: 038845,001606: 33,3670 BANK 33 038846,001607: 33,2000 SETLOC SERVICES 038847,001608: 33,2000 BANK 038848,001609: 038849,001610: 33,3670 COUNT* $$/SERV 038850,001611: 038851,001612: 33,3670 E7,1515 EBANK= DVCNTR 038852,001613: # Page 895 038853,001614: # HIGATJOB IS SET APPROXIMATELY 6 SECONDS PRIOR TO HIGH GATE DURING 038854,001615: # THE DESCENT BURN PHASE OF LUNAR LANDING. THIS JOB INITIATES THE 038855,001616: # LANDING RADAR REPOSITIONING ROUTINE AND GOES TO SLEEP UNTIL THE 038856,001617: # LR ANTENNA MOVES FROM POSITION 1 TO POSITION 2. IF THE LR ANTENNA 038857,001618: # ACHIEVES POSITION 2 WITHIN 22 SECONDS THE ALTITUDE AND VELOCITY 038858,001619: # BEAM VECTORS ARE RECOMPUTED TO REFLECT THE NEW ORIENTATION WITH 038859,001620: # RESPECT TO THE NB. BIT10 OF LRSTAT IS CLEARED TO ALLOW LR 038860,001621: # MEASUREMENTS AND THE JOB TERMINATES. 038861,001622: 038862,001623: 33,3670 04616 HIGATJOB TC BANKCALL # START LRPOS2 JOB 038863,001624: 33,3671 53471 CADR LRPOS2 038864,001625: 33,3672 04616 TC BANKCALL # PUT HIGATJOB TO SLEEP UNTIL JOB IS DONE 038865,001626: 33,3673 17714 CADR RADSTALL 038866,001627: 33,3674 13703 TCF POSALARM # BAD END ALARM 038867,001628: 038868,001629: 33,3675 37711 POSGOOD CA PRIO23 # REDUCE PRIORITY FOR INTERPRETIVE COMPS. 038869,001630: 33,3676 05146 TC PRIOCHNG 038870,001631: 038871,001632: 33,3677 03737 TC SETPOS2 # LR IN POS2 -- SET UP TRANSFORMATIONS 038872,001633: 038873,001634: 33,3700 05516 TC DOWNFLAG 038874,001635: 33,3701 00252 ADRES NOLRREAD # RESET NOLRREAD FLAG TO ENABLE LR READING 038875,001636: 33,3702 05155 TC ENDOFJOB 038876,001637: 038877,001638: 33,3703 33720 POSALARM CA OCT523 038878,001639: 33,3704 04616 TC BANKCALL 038879,001640: 33,3705 21562 CADR PRIOLARM # FLASH ALARM CODE 038880,001641: 33,3706 16001 TCF GOTOP00H # TERMINATE 038881,001642: 33,3707 13712 TCF +3 # PROCEED -- TRY AGAIN 038882,001643: 33,3710 15155 TCF ENDOFJOB # V 32 E TERMINATE R12 038883,001644: 33,3711 05155 TC ENDOFJOB 038884,001645: 038885,001646: 33,3712 34745 +3 CA BIT7 # SEE IF IN POS2 YET 038886,001647: 33,3713 00006 EXTEND 038887,001648: 33,3714 02033 RAND CHAN33 038888,001649: 33,3715 00006 EXTEND 038889,001650: 33,3716 13675 BZF POSGOOD # POS2 ACHIEVED SET UP ANTENNA BEAMS 038890,001651: 33,3717 13703 TCF POSALARM # STILL DIDN'T MAKE IT REALARM 038891,001652: 038892,001653: 33,3720 00523 OCT523 OCT 00523 038893,001654: 038894,001655: 038895,001656: 038896,001657: 33,3721 04645 SETPOS1 TC MAKECADR # MUST BE CALLED BY BANKCALL 038897,001658: 33,3722 55656 TS LRADRET1 # SAVE RETURN CADR. SINCE BUP2 CLOBBERED 038898,001659: 038899,001660: 33,3723 34752 CAF TWO 038900,001661: 33,3724 55674 TS STILBADH # INITIALIZE STILBAD 038901,001662: 33,3725 55675 TS STILBADV # INITIALIZE STILBAD 038902,001663: 038903,001664: 33,3726 34755 CA ZERO # INDEX FOR LRALPHA, LRBETA IN POS 1. 038904,001665: # Page 896 038905,001666: 33,3727 55670 TS LRLCTR # SET L,M,R, ANS S TO ZERO 038906,001667: 33,3730 55672 TS LRMCTR 038907,001668: 33,3731 55671 TS LRRCTR 038908,001669: 33,3732 55673 TS LRSCTR 038909,001670: 33,3733 55651 TS VSELECT # INITIALIZE VSELECT 038910,001671: 038911,001672: 33,3734 03740 TC SETPOS # CONTINUE WITH COMPUTATIONS. 038912,001673: 038913,001674: 33,3735 31656 CA LRADRET1 038914,001675: 33,3736 04640 TC BANKJUMP # RETURN TO CALLER 038915,001676: 038916,001677: 33,3737 34752 SETPOS2 CA TWO # INDEX FOR POS2 038917,001678: 33,3740 56002 SETPOS XCH Q # SAVE INDEX IN Q 038918,001679: 33,3741 55650 TS LRADRET # SAVE RETURN 038919,001680: 038920,001681: 33,3742 35014 CA EBANK5 038921,001682: 33,3743 54003 TS EBANK 038922,001683: 33,3744 E5,1522 EBANK= LRALPHA 038923,001684: 038924,001685: 33,3744 00006 EXTEND 038925,001686: 33,3745 50002 INDEX Q 038926,001687: 33,3746 31523 DCA LRALPHA # LRALPHA IN A, LRBETA IN L 038927,001688: 33,3747 54772 TS CDUSPOT +4 # ROTATION ABOUT X 038928,001689: 33,3750 22766 LXCH CDUSPOT # ROTATION ABOUT Y 038929,001690: 33,3751 34755 CA ZERO 038930,001691: 33,3752 54770 TS CDUSPOT +2 # ZERO ROTATION ABOUT Z. 038931,001692: 038932,001693: 33,3753 35016 CA EBANK7 038933,001694: 33,3754 54003 TS EBANK 038934,001695: 33,3755 E7,1650 EBANK= LRADRET 038935,001696: 038936,001697: 33,3755 06037 TC INTPRET 038937,001698: 33,3756 45175 VLOAD CALL 038938,001699: 33,3757 06516 UNITY # CONVERT UNITY(ANTENNA) TO NB 038939,001700: 33,3760 47651 TRG*SMNB 038940,001701: 33,3761 26237 STOVL VYBEAMNB 038941,001702: 33,3762 06520 UNITX # CONVERT UNITX(ANTENNA) TO NB 038942,001703: 33,3763 77624 CALL 038943,001704: 33,3764 47671 *SMNB* 038944,001705: 33,3765 02245 STORE VXBEAMNB 038945,001706: 33,3766 76435 VXV VSL1 038946,001707: 33,3767 02237 VYBEAMNB 038947,001708: 33,3770 26231 STOVL VZBEAMNB # Z = X * Y 038948,001709: 33,3771 26003 HBEAMANT 038949,001710: 33,3772 77624 CALL 038950,001711: 33,3773 47671 *SMNB* # CONVERT TO NB 038951,001712: 33,3774 02273 STORE HBEAMNB 038952,001713: 33,3775 77776 EXIT 038953,001714: 038954,001715: # Page 897 038955,001716: 33,3776 01650 TC LRADRET 038956,001717: End of include-file SERVICER.agc. Parent file is MAIN.agc