Source Code

036114,000001: # Copyright: Public domain. 036115,000002: # Filename: SERVICER.agc 036116,000003: # Purpose: A section of Luminary 1C, revision 131. 036117,000004: # It is part of the source code for the Lunar Module's (LM) 036118,000005: # Apollo Guidance Computer (AGC) for Apollo 13 and Apollo 14. 036119,000006: # This file is intended to be a faithful transcription, except 036120,000007: # that the code format has been changed to conform to the 036121,000008: # requirements of the yaYUL assembler rather than the 036122,000009: # original YUL assembler. 036123,000010: # Reference: pp. 857-895 of 1729.pdf. 036124,000011: # Contact: Ron Burkey <info@sandroid.org>. 036125,000012: # Website: www.ibiblio.org/apollo/index.html 036126,000013: # Mod history: 05/27/03 RSB. Began transcribing. 036127,000014: # 05/14/05 RSB Corrected website references above. 036128,000015: # 2010-08-24 JL Fixed page numbers. 036129,000016: # 2010-10-25 JL Indentation fixes. 036130,000017: 036131,000018: # Page 857 036132,000019: 37,3410 BANK 37 036133,000020: 37,2000 SETLOC SERV1 036134,000021: 37,2000 BANK 036135,000022: 036136,000023: 37,3410 E7,1515 EBANK= DVCNTR 036137,000024: 036138,000025: # ************* PREREAD ******************* 036139,000026: 036140,000027: 37,3410 COUNT* $$/SERV 036141,000028: 036142,000029: 37,3410 34757 PREREAD CAF SEVEN # 5.7 SPOT TO SKIP LASTBIAS AFTER 036143,000030: 37,3411 03527 TC GNUFAZE5 # RESTART. 036144,000031: 37,3412 35031 CAF PRIO21 036145,000032: 37,3413 05072 TC NOVAC 036146,000033: 37,3414 E3,1460 EBANK= NBDX 036147,000034: 37,3414 03671 14063 2CADR LASTBIAS # DO LAST GYRO COMPENSATION IN FREE FALL 036148,000035: 036149,000036: 37,3416 03541 BIBIBIAS TC PIPASR +3 # CLEAR + READ PIPS LAST TIME IN FRE5+F133 036150,000037: # DO NOT DESTROY VALUE OF PIPTIME1 036151,000038: 036152,000039: 37,3417 40103 CS FLAGWRD7 036153,000040: 37,3420 74773 MASK SUPER011 # SET V37FLAG AND AVEGFLAG (BITS 5 AND 6 036154,000041: 37,3421 26103 ADS FLAGWRD7 # OF FLAGWRD7) 036155,000042: 036156,000043: 37,3422 44735 CS DRFTBIT 036157,000044: 37,3423 70076 MASK FLAGWRD2 # RESET DRIFTFLAG 036158,000045: 37,3424 54076 TS FLAGWRD2 036159,000046: 036160,000047: 37,3425 34751 CAF FOUR # INITIALIZE DV MONITOR 036161,000048: 37,3426 55256 TS PIPAGE 036162,000049: 036163,000050: 37,3427 37713 CAF PRIO22 036164,000051: 37,3430 05105 TC FINDVAC # TO FIRST ENTRY TO AVERAGE G 036165,000052: 37,3431 E7,1515 EBANK= DVCNTR 036166,000053: 37,3431 02463 46067 2CADR NORMLIZE 036167,000054: 036168,000055: 37,3433 34752 CA TWO # 5.2SPOT FOR REREADAC AND NORMLIZE 036169,000056: 37,3434 03523 GOREADAX TC GNUTFAZ5 036170,000057: 37,3435 35000 CA 2SECS # WAIT TWO SECONDS FOR READACCS 036171,000058: 37,3436 05224 TC VARDELAY 036172,000059: 036173,000060: # Page 858 036174,000061: # ************* READACCS **************** 036175,000062: 036176,000063: 37,3437 43535 READACCS CS OCT37771 # THIS PIECE OF CODING ATTEMPTS TO 036177,000064: 37,3440 60030 AD TIME5 # SYNCHRONIZE READACCS WITH THE DIGITAL 036178,000065: 37,3441 10000 CCS A # AUTOPILOT SO THAT A PAXIS RUPT WILL 036179,000066: 37,3442 44753 CS ONE # OCCUR APPROXIMATELY 70 MILLISECONDS 036180,000067: 37,3443 13445 TCF +2 # FOLLOWING THE READACCS RUPT. THE 70 MS 036181,000068: 37,3444 34753 CA ONE # OFFSET WAS CHOSEN SO THAT THE PAXIS 036182,000069: 37,3445 26030 +2 ADS TIME5 # RUPT WOULD NOT OCCUR SIMULTANEOUSLY 036183,000070: # WITH ANY OF THE 8 SUBSEQUENT R10,R11 036184,000071: # INTERRUPTS -- THUS MINIMIZING THE POSS- 036185,000072: # IBILITY OF LOSING DOWNRUPTS. 036186,000073: 036187,000074: 37,3446 03536 TC PIPASR # READ THE PIPAS. 036188,000075: 036189,000076: 37,3447 34756 PIPSDONE CA FIVE 036190,000077: 37,3450 03527 TC GNUFAZE5 036191,000078: 37,3451 34753 REDO5.5 CAF ONE 036192,000079: 37,3452 55256 TS PIPAGE 036193,000080: 036194,000081: 37,3453 34736 CA PRIO20 036195,000082: 37,3454 05105 TC FINDVAC 036196,000083: 37,3455 E7,1515 EBANK= DVCNTR 036197,000084: 37,3455 02206 66067 2CADR SERVICER # SET UP SERVISER JOB 036198,000085: 036199,000086: 37,3457 34743 CA BIT9 036200,000087: 37,3460 00006 EXTEND 036201,000088: 37,3461 05011 WOR DSALMOUT # TURN ON TEST CONNECTOR OUTBIT 036202,000089: 036203,000090: 37,3462 30103 CA FLAGWRD7 036204,000091: 37,3463 74747 MASK AVEGFBIT 036205,000092: 37,3464 00006 EXTEND 036206,000093: 37,3465 13515 BZF AVEGOUT # AVEGFLAG DOWN -- SET UP FINAL EXIT 036207,000094: 036208,000095: 37,3466 30102 CA FLAGWRD6 036209,000096: 37,3467 74744 MASK MUNFLBIT 036210,000097: 37,3470 00006 EXTEND 036211,000098: 37,3471 13513 BZF MAKEACCS # MUNFLAG CLEAR -- BYPASS LR AND DISP. 036212,000099: 036213,000100: 37,3472 10754 CCS PHASE2 036214,000101: 37,3473 13513 TCF MAKEACCS # PHASE 2 ACTIVATED -- AVOID MULTIPLE R10. 036215,000102: 036216,000103: 37,3474 34757 CAF SEVEN # SET PIPCTR FOR 4X/SEC RATE. 036217,000104: 37,3475 55055 TS PIPCTR 036218,000105: 036219,000106: 37,3476 40025 CS TIME1 # SET TBASE2 .05 SECONDS IN THE PAST. 036220,000107: 37,3477 64756 AD FIVE 036221,000108: 37,3500 64734 AD NEG1/2 036222,000109: 37,3501 64734 AD NEG1/2 036223,000110: 37,3502 57054 XCH TBASE2 036224,000111: # Page 859 036225,000112: 37,3503 34361 CAF DEC17 # 2.21SPOT FOR R10,R11 036226,000113: 37,3504 54001 TS L 036227,000114: 37,3505 40000 COM 036228,000115: 37,3506 52754 DXCH -PHASE2 036229,000116: 036230,000117: 37,3507 36007 CAF OCT24 # FIRST R10,R11 IN .200 SECONDS 036231,000118: 37,3510 05203 TC WAITLIST 036232,000119: 37,3511 E7,1536 EBANK= UNIT/R/ 036233,000120: 37,3511 02006 42067 2CADR R10,R11 036234,000121: 036235,000122: 37,3513 34751 MAKEACCS CA FOUR 036236,000123: 37,3514 13434 TCF GOREADAX # DO PHASE CHANGE AND RECALL READACCS 036237,000124: 036238,000125: 37,3515 00006 AVEGOUT EXTEND 036239,000126: 37,3516 33534 DCA AVOUTCAD # SET UP FINAL SERVICER EXIT 036240,000127: 37,3517 53252 DXCH AVGEXIT 036241,000128: 036242,000129: 37,3520 34751 CA FOUR # SET 5.4 SPOT FOR REREADAC AND SERVICER 036243,000130: 37,3521 03523 TC GNUTFAZ5 # IF REREADAC IS CALLED, IT WILL EXIT 036244,000131: 37,3522 05261 TC TASKOVER # END TASK WITHOUT CALLING READACCS 036245,000132: 036246,000133: 37,3523 54001 GNUTFAZ5 TS L # SAVE INPUT IN L 036247,000134: 37,3524 40025 CS TIME1 036248,000135: 37,3525 55062 TS TBASE5 # SET TBASE5 036249,000136: 37,3526 13530 TCF +2 036250,000137: 036251,000138: 37,3527 54001 GNUFAZE5 TS L # SAVE INPUT IN L 036252,000139: 37,3530 40001 CS L # -PHASE IN A, PHASE IN L. 036253,000140: 37,3531 52762 DXCH -PHASE5 # SET -PHASE5,PHASE5 036254,000141: 37,3532 00002 TC Q 036255,000142: 036256,000143: 37,3533 E7,1515 EBANK= DVCNTR 036257,000144: 37,3533 03661 44067 AVOUTCAD 2CADR AVGEND 036258,000145: 036259,000146: 37,3535 37771 OCT37771 OCT 37771 036260,000147: 036261,000148: 33,2206 BANK 33 036262,000149: 33,2000 SETLOC SERVICES 036263,000150: 33,2000 BANK 036264,000151: 036265,000152: 33,2206 COUNT* $$/SERV 036266,000153: 036267,000154: # Page 860 036268,000155: # ************* SERVICER **************** 036269,000156: 036270,000157: 33,2206 05353 SERVICER TC PHASCHNG # RESTART REREADAC + SERVICER 036271,000158: 33,2207 16035 OCT 16035 036272,000159: 33,2210 20000 OCT 20000 036273,000160: 33,2211 E7,1515 EBANK= DVCNTR 036274,000161: 33,2211 02217 66067 2CADR GETABVAL 036275,000162: 036276,000163: 33,2213 37721 CAF PRIO31 # INITIALIZE 1/PIPADT IN CASE RESTART HAS 036277,000164: 33,2214 55074 TS 1/PIPADT # CAUSED LASTBIAS TO BE SKIPPED. 036278,000165: 036279,000166: 33,2215 04616 TC BANKCALL # PIPA COMPENSATION CALL 036280,000167: 33,2216 15271 CADR 1/PIPA 036281,000168: 036282,000169: 33,2217 06042 GETABVAL TC INTPRET 036283,000170: 33,2220 51575 VLOAD ABVAL 036284,000171: 33,2221 00325 DELV 036285,000172: 33,2222 77776 EXIT 036286,000173: 33,2223 30154 CA MPAC 036287,000174: 33,2224 55245 TS ABDELV # ABDELV = CM/SEC*2(-14). 036288,000175: 33,2225 00006 EXTEND 036289,000176: 33,2226 72020 MP KPIP 036290,000177: 33,2227 53514 DXCH ABDVCONV # ABDVCONV = M/CS * 2(-5). 036291,000178: 33,2230 00006 EXTEND 036292,000179: 33,2231 31244 DCA MASS 036293,000180: 33,2232 53571 DXCH MASS1 # INITIALIZE MASS1 IN CASE WE SKIP MASSMON 036294,000181: 33,2233 40104 MASSMON CS FLAGWRD8 # ARE WE ON THE SURFACE? 036295,000182: 33,2234 74744 MASK SURFFBIT 036296,000183: 33,2235 00006 EXTEND 036297,000184: 33,2236 12254 BZF MOONSPOT # YES: BYPASS MASS MESS 036298,000185: 33,2237 30106 CA FLGWRD10 # NO: WHICH VEX SHOULD BE USED? 036299,000186: 33,2240 74737 MASK APSFLBIT 036300,000187: 33,2241 10000 CCS A 036301,000188: 33,2242 00006 EXTEND # IF EXTEND IS EXECUTED, APSVEX --> A, 036302,000189: 33,2243 32001 DCA APSVEX # OTHERWISE DPSVEX --> A 036303,000190: 33,2244 54002 TS Q 036304,000191: 036305,000192: 33,2245 00006 EXTEND 036306,000193: 33,2246 31514 DCA ABDVCONV 036307,000194: 33,2247 00006 EXTEND 036308,000195: 33,2250 10002 OCT10002 DV Q # WHERE APPROPRIATE VEX RESIDES 036309,000196: 33,2251 00006 EXTEND 036310,000197: 33,2252 71243 MP MASS 036311,000198: 33,2253 21571 DAS MASS1 036312,000199: 036313,000200: 33,2254 32021 MOONSPOT CA KPIP1 # TP MPAC = ABDELV AT 2(14) CM/SEC 036314,000201: 33,2255 07312 TC SHORTMP # MULTIPLY BY KPIP1 TO GET 036315,000202: # Page 861 036316,000203: 33,2256 52155 DXCH MPAC # ABDELV AT 2(7) M/CS 036317,000204: 33,2257 21510 DAS DVTOTAL # UPDATE DVTOTAL FOR DISPLAY 036318,000205: 036319,000206: 33,2260 02440 TC TMPTOSPT 036320,000207: 036321,000208: 33,2261 04616 TC BANKCALL 036322,000209: 33,2262 47617 CADR QUICTRIG 036323,000210: 036324,000211: 33,2263 32414 CAF XNBPIPAD 036325,000212: 33,2264 04616 TC BANKCALL 036326,000213: 33,2265 20037 CADR FLESHPOT 036327,000214: 33,2266 06042 TC INTPRET 036328,000215: 33,2267 45014 AVERAGEG BON CALL 036329,000216: 33,2270 03307 MUNFLAG 036330,000217: 33,2271 66771 RVBOTH 036331,000218: 33,2272 66735 CALCRVG 036332,000219: 33,2273 77776 EXIT 036333,000220: 33,2274 03512 GOSERV TC QUIKFAZ5 036334,000221: 036335,000222: 33,2275 02423 COPYCYCL TC COPYCYC 036336,000223: 036337,000224: # CA ZERO # A IS ZERO ON RETURN FROM COPYCYC 036338,000225: 33,2276 55157 TS PIPATMPX 036339,000226: 33,2277 55160 TS PIPATMPY 036340,000227: 33,2300 55161 TS PIPATMPZ 036341,000228: 036342,000229: 33,2301 44741 CS STEERBIT # CLEAR STEERSW PRIOR TO DVMON. 036343,000230: 33,2302 70076 MASK FLAGWRD2 036344,000231: 33,2303 54076 TS FLAGWRD2 036345,000232: 036346,000233: 33,2304 34745 CAF IDLEFBIT # IS THE IDLE FLAG SET? 036347,000234: 33,2305 70103 MASK FLAGWRD7 036348,000235: 33,2306 10000 CCS A 036349,000236: 33,2307 12342 TCF NODVMON1 # IDLEFLAG = 1, HENCE SET AUXFLAG TO 0. 036350,000237: 036351,000238: 33,2310 40102 CS FLAGWRD6 036352,000239: 33,2311 74752 MASK AUXFLBIT 036353,000240: 33,2312 10000 CCS A 036354,000241: 33,2313 12346 TCF NODVMON2 # AUXFLAG = 0, HENCE SET AUXFLAG TO 1. 036355,000242: 036356,000243: 33,2314 41250 DVMON CS DVTHRUSH 036357,000244: 33,2315 61245 AD ABDELV 036358,000245: 33,2316 00006 EXTEND 036359,000246: 33,2317 62352 BZMF LOTHRUST 036360,000247: 036361,000248: 33,2320 40076 CS FLAGWRD2 # SET STEERSW. 036362,000249: 33,2321 74741 MASK STEERBIT 036363,000250: 33,2322 26076 ADS FLAGWRD2 036364,000251: 036365,000252: 33,2323 34753 DVCNTSET CAF ONE # ALLOW TWO PASSES MAXIMUM NOW THAT 036366,000253: # Page 862 036367,000254: 33,2324 55515 TS DVCNTR # THRUST HAS BEEN DETECTED. 036368,000255: 036369,000256: 33,2325 30106 CA FLGWRD10 # BRANCH IF APSFLAG IS SET. 036370,000257: 33,2326 74737 MASK APSFLBIT 036371,000258: 33,2327 10000 CCS A 036372,000259: 33,2330 12375 TCF USEJETS 036373,000260: 036374,000261: 33,2331 34743 CA BIT9 # CHECK GIMBAL FAIL BIT 036375,000262: 33,2332 00006 EXTEND 036376,000263: 33,2333 02032 RAND CHAN32 036377,000264: 33,2334 00006 EXTEND 036378,000265: 33,2335 12375 BZF USEJETS 036379,000266: 036380,000267: 33,2336 44736 USEGTS CS USEQRJTS 036381,000268: 33,2337 70111 MASK DAPBOOLS 036382,000269: 33,2340 54111 TS DAPBOOLS 036383,000270: 33,2341 12400 TCF SERVOUT 036384,000271: 036385,000272: 33,2342 44752 NODVMON1 CS AUXFLBIT # SET AUXFLAG TO 0. 036386,000273: 33,2343 70102 MASK FLAGWRD6 036387,000274: 33,2344 54102 TS FLAGWRD6 036388,000275: 33,2345 12375 TCF USEJETS 036389,000276: 33,2346 40102 NODVMON2 CS FLAGWRD6 # SET AUXFLAG TO 1. 036390,000277: 33,2347 74752 MASK AUXFLBIT 036391,000278: 33,2350 26102 ADS FLAGWRD6 036392,000279: 33,2351 12375 TCF USEJETS 036393,000280: 036394,000281: 33,2352 03512 LOTHRUST TC QUIKFAZ5 036395,000282: 33,2353 11515 CCS DVCNTR 036396,000283: 33,2354 12366 TCF DECCNTR 036397,000284: 036398,000285: 33,2355 10760 CCS PHASE4 # COMFAIL JOB ACTIVE? 036399,000286: 33,2356 12400 TCF SERVOUT # YES: WON'T NEED ANOTHER. 036400,000287: 036401,000288: 33,2357 05353 TC PHASCHNG # 4.37SPOT FOR COMFAIL. 036402,000289: 33,2360 00374 OCT 00374 036403,000290: 036404,000291: 33,2361 37716 CAF PRIO25 036405,000292: 33,2362 05072 TC NOVAC 036406,000293: 33,2363 E7,1455 EBANK= WHICH 036407,000294: 33,2363 02575 74067 2CADR COMFAIL 036408,000295: 036409,000296: 33,2365 12400 TCF SERVOUT 036410,000297: 036411,000298: 33,2366 55570 DECCNTR TS DVCNTR1 036412,000299: 33,2367 03512 TC QUIKFAZ5 036413,000300: 33,2370 31570 CA DVCNTR1 036414,000301: 33,2371 55515 TS DVCNTR 036415,000302: 33,2372 00004 INHINT 036416,000303: 33,2373 04674 TC IBNKCALL # IF THRUST IS LOW, NO STEERING IS DONE 036417,000304: # Page 863 036418,000305: 33,2374 40166 CADR STOPRATE # AND THE DESIRED RATES ARE SET TO ZERO. 036419,000306: 33,2375 40111 USEJETS CS DAPBOOLS 036420,000307: 33,2376 74736 MASK USEQRJTS 036421,000308: 33,2377 26111 ADS DAPBOOLS 036422,000309: 33,2400 00003 SERVOUT RELINT 036423,000310: 33,2401 04616 TC BANKCALL 036424,000311: 33,2402 40463 CADR 1/ACCS 036425,000312: 036426,000313: 33,2403 30167 CA PRIORITY 036427,000314: 33,2404 75004 MASK LOW9 036428,000315: 33,2405 54166 TS PUSHLOC 036429,000316: 33,2406 22007 ZL 036430,000317: 33,2407 52121 DXCH FIXLOC # FIXLOC AND DVFIND 036431,000318: 036432,000319: 33,2410 03512 TC QUIKFAZ5 036433,000320: 33,2411 00006 EXTEND # EXIT TO SELECTED ROUTINE WHETHER THERE 036434,000321: 33,2412 31252 DCA AVGEXIT # IS THRUST OR NOT. THE STATE OF STEERSW 036435,000322: 33,2413 52006 DXCH Z # WILL CONVEY THIS INFORMATION. 036436,000323: 036437,000324: 33,2414 02145 XNBPIPAD ECADR XNBPIP 036438,000325: 036439,000326: 32,3746 BANK 32 036440,000327: 22,2000 SETLOC SERV2 036441,000328: 22,2000 BANK 036442,000329: 22,3661 COUNT* $$/SERV 036443,000330: 036444,000331: 22,3661 31234 AVGEND CA PIPTIME +1 # FINAL AVERAGE G EXIT 036445,000332: 22,3662 55074 TS 1/PIPADT # SET UP FREE FALL GYRO COMPENSATION. 036446,000333: 036447,000334: 22,3663 05504 TC UPFLAG # SET DRIFT FLAG. 036448,000335: 22,3664 00036 ADRES DRIFTFLG 036449,000336: 036450,000337: 22,3665 04616 TC BANKCALL 036451,000338: 22,3666 17301 CADR PIPFREE 036452,000339: 036453,000340: 22,3667 44743 CS BIT9 036454,000341: 22,3670 00006 EXTEND 036455,000342: 22,3671 03011 WAND DSALMOUT 036456,000343: 036457,000344: 22,3672 05327 TC 2PHSCHNG 036458,000345: 22,3673 00005 OCT 5 # GROUP 5 OFF 036459,000346: 22,3674 05022 OCT 05022 # GROUP 2 ON 036460,000347: 22,3675 20000 OCT 20000 036461,000348: 036462,000349: 22,3676 06042 TC INTPRET 036463,000350: 22,3677 43014 SET CLEAR 036464,000351: 22,3700 01464 NOR29FLG # SHUT OFF R29 WHEN SERVICER ENDS. 036465,000352: 22,3701 03664 SWANDISP # SHUT OFF R10 WHEN SERVICER ENDS. 036466,000353: 22,3702 45014 CLEAR CALL # RESET MUNFLAG. 036467,000354: 22,3703 03267 MUNFLAG 036468,000355: # Page 864 036469,000356: 22,3704 27463 AVETOMID 036470,000357: 22,3705 77414 CLEAR EXIT 036471,000358: 22,3706 03671 V37FLAG 036472,000359: 22,3707 04635 AVERTRN TC POSTJUMP 036473,000360: 22,3710 10116 CADR V37RET 036474,000361: 036475,000362: 22,3711 22,3707 OUTGOAVE = AVERTRN 036476,000363: 22,3711 E7,1570 DVCNTR1 = MASS1 036477,000364: 036478,000365: # Page 865 036479,000366: 27,2000 SETLOC SERV3 036480,000367: 27,2000 BANK 036481,000368: 27,3322 COUNT* $$/SERV 036482,000369: 036483,000370: 27,3322 00006 SERVIDLE EXTEND # DISCONNECT SERVICER FROM ALL GUIDANCE 036484,000371: 27,3323 33360 DCA SVEXTADR 036485,000372: 27,3324 53252 DXCH AVGEXIT 036486,000373: 036487,000374: 27,3325 40103 CS FLAGWRD7 # DISCONNECT THE DELTA-V MONITOR 036488,000375: 27,3326 74745 MASK IDLEFBIT 036489,000376: 27,3327 26103 ADS FLAGWRD7 036490,000377: 036491,000378: 27,3330 34735 CAF LRBYBIT # TERMINATE R12 IS RUNNING. 036492,000379: 27,3331 54107 TS FLGWRD11 036493,000380: 036494,000381: 27,3332 00006 EXTEND 036495,000382: 27,3333 34755 DCA NEG0 036496,000383: 27,3334 52752 DXCH -PHASE1 036497,000384: 036498,000385: 27,3335 30102 CA FLAGWRD6 # DO NOT TURN OFF PHASE 2 IF MUNFLAG SET. 036499,000386: 27,3336 74744 MASK MUNFLBIT 036500,000387: 27,3337 10000 CCS A 036501,000388: 27,3340 13344 TCF +4 036502,000389: 036503,000390: 27,3341 00006 EXTEND 036504,000391: 27,3342 34755 DCA NEG0 036505,000392: 27,3343 52754 DXCH -PHASE2 036506,000393: 036507,000394: 27,3344 00006 +4 EXTEND 036508,000395: 27,3345 34755 DCA NEG0 036509,000396: 27,3346 52756 DXCH -PHASE3 036510,000397: 036511,000398: 27,3347 00006 EXTEND 036512,000399: 27,3350 34755 DCA NEG0 036513,000400: 27,3351 52764 DXCH -PHASE6 036514,000401: 036515,000402: 27,3352 34764 CAF OCT33 # 4.33SPOT FOR GOP00FIX 036516,000403: 27,3353 54001 TS L 036517,000404: 27,3354 40000 COM 036518,000405: 27,3355 52760 DXCH -PHASE4 036519,000406: 036520,000407: 27,3356 15634 TCF WHIMPER # PERFORM A SOFTWARE RESTART AND PROCEED 036521,000408: # TO GOTOP00H WHILE SERVICER CONTINUES TO 036522,000409: # RUN, ALBEIT IN A GROUND STATE WHERE 036523,000410: # ONLY STATE-VECTOR DEPENDENT FUNCTIONS 036524,000411: # ARE MAINTAINED. 036525,000412: 036526,000413: 27,3357 E7,1515 EBANK= DVCNTR 036527,000414: # Page 866 036528,000415: 27,3357 03746 64067 SVEXTADR 2CADR SERVEXIT 036529,000416: 036530,000417: 32,3746 BANK 32 036531,000418: 32,2000 SETLOC SERV 036532,000419: 32,2000 BANK 036533,000420: 32,3746 COUNT* $$/SERV 036534,000421: 036535,000422: 32,3746 05353 SERVEXIT TC PHASCHNG 036536,000423: 32,3747 00035 OCT 00035 036537,000424: 036538,000425: 32,3750 15155 TCF ENDOFJOB 036539,000426: 036540,000427: 23,2463 BANK 23 036541,000428: 23,2000 SETLOC NORMLIZ 036542,000429: 23,2000 BANK 036543,000430: 036544,000431: 23,2463 COUNT* $$/SERV 036545,000432: 036546,000433: # Page 867 036547,000434: 23,2463 06042 NORMLIZE TC INTPRET 036548,000435: 23,2464 43175 VLOAD BOFF 036549,000436: 23,2465 03545 RN1 036550,000437: 23,2466 03347 MUNFLAG 036551,000438: 23,2467 66415 NORMLIZ1 036552,000439: 23,2470 64252 VSL6 MXV 036553,000440: 23,2471 01734 REFSMMAT 036554,000441: 23,2472 37521 STCALL R 036555,000442: 23,2473 67067 MUNGRAV 036556,000443: 23,2474 76575 VLOAD VSL1 036557,000444: 23,2475 03553 VN1 036558,000445: 23,2476 77721 MXV 036559,000446: 23,2477 01734 REFSMMAT 036560,000447: 23,2500 27527 STOVL V 036561,000448: 23,2501 01726 V(CSM) 036562,000449: 23,2502 53435 VXV UNIT 036563,000450: 23,2503 01720 R(CSM) 036564,000451: 23,2504 03720 STORE UHYP 036565,000452: 23,2505 77776 ASCSPOT EXIT 036566,000453: 23,2506 00006 EXTEND # MAKE SURE GROUP 2 IS OFF 036567,000454: 23,2507 34755 DCA NEG0 036568,000455: 23,2510 52754 DXCH -PHASE2 036569,000456: 036570,000457: 23,2511 04635 TC POSTJUMP 036571,000458: 23,2512 66420 CADR NORMLIZ2 036572,000459: 036573,000460: 33,2415 BANK 33 036574,000461: 33,2000 SETLOC SERVICES 036575,000462: 33,2000 BANK 036576,000463: 33,2415 COUNT* $$/SERV 036577,000464: 036578,000465: 33,2415 77624 NORMLIZ1 CALL 036579,000466: 33,2416 66667 CALCGRAV 036580,000467: 33,2417 77776 EXIT 036581,000468: 036582,000469: 33,2420 32437 NORMLIZ2 CA EIGHTEEN 036583,000470: 33,2421 02424 TC COPYCYC +1 # DO NOT COPY MASS IN NORMLIZE 036584,000471: 33,2422 05155 TC ENDOFJOB 036585,000472: 036586,000473: 33,2423 36007 COPYCYC CA OCT24 # DEC 20 036587,000474: 33,2424 00004 +1 INHINT 036588,000475: 33,2425 77752 +2 MASK NEG1 # REDUCE BY 1 IF ODD 036589,000476: 33,2426 54061 TS ITEMP1 036590,000477: 33,2427 00006 EXTEND 036591,000478: 33,2430 50061 INDEX ITEMP1 036592,000479: 33,2431 31545 DCA RN1 036593,000480: 33,2432 50061 INDEX ITEMP1 036594,000481: # Page 868 036595,000482: 33,2433 53220 DXCH RN 036596,000483: 33,2434 10061 CCS ITEMP1 036597,000484: 33,2435 12425 TCF COPYCYC +2 036598,000485: 33,2436 00002 TC Q # RETURN UNDER INHINT 036599,000486: 036600,000487: 33,2437 00022 EIGHTEEN DEC 18 B-14 036601,000488: 036602,000489: # Page 869 036603,000490: # ************* PIPA READER ***************** 036604,000491: # MOD NO. 00 BY D. LICKLY, DEC. 9 1966 036605,000492: 036606,000493: # FUNCTIONAL DESCRIPTION 036607,000494: # SUBROUTINE TO READ PIPA COUNTERS, TRYING TO BE VERY CAREFUL SO THAT WILL BE RESTARTABLE. 036608,000495: # PIPA READINGS ARE STORED IN THE VECTOR DELV. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS THE PIPA READING, 036609,000496: # RESTARTS BEGIN AT REREADAC. 036610,000497: 036611,000498: # AT THE END OF THE PIPA READER THE CDUS ARE READ AND STORED AS A 036612,000499: # VECTOR IN CDUTEMP. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS 036613,000500: # THE CDU READING IN 25 COMP IN THE ORDER CDUX,Y,Z. THE THRUST 036614,000501: # VECTOR ESTIMATOR IN FINDCDUD REQUIRES THE CDUS BE READ AT PIPTIME. 036615,000502: 036616,000503: # CALLINE SEQUENCE AND EXIT 036617,000504: # CALL VIA TC, ISWCALL, ETC. 036618,000505: # EXIT IS VIA Q. 036619,000506: 036620,000507: # INPUT 036621,000508: # INPUT IS THROUGH THE COUNTERS PIPAX, PIPAY, PIPAZ, AND TIME2. 036622,000509: 036623,000510: # OUTPUT 036624,000511: # HIGH ORDER COMPONENTS OF THE VECTOR DELV CONTAIN THE PIPA READINGS. 036625,000512: # PIPTIME CONTAINS TIME OF PIPA READING. 036626,000513: 036627,000514: # DEBRIS (ERASABLE LOCATIONS DESTROYED BY PROGRAM) 036628,000515: # TEMX, TEMY, TEMZ, PIPAGE 036629,000516: 036630,000517: 37,3536 BANK 37 036631,000518: 37,2000 SETLOC SERV1 036632,000519: 37,2000 BANK 036633,000520: 036634,000521: 37,3536 COUNT* $$/SERV 036635,000522: 036636,000523: 37,3536 00006 PIPASR EXTEND 036637,000524: # Page 870 036638,000525: 37,3537 30025 DCA TIME2 036639,000526: 37,3540 53561 DXCH PIPTIME1 # CURRENT TIME POSITIVE VALUE 036640,000527: 37,3541 44755 +3 CS ZERO # INITIALIZE THESE AT NEG. ZERO. 036641,000528: 37,3542 55253 TS TEMX 036642,000529: 37,3543 55254 TS TEMY 036643,000530: 37,3544 55255 TS TEMZ 036644,000531: 036645,000532: 37,3545 34755 CA ZERO 036646,000533: 37,3546 54330 TS DELVZ 036647,000534: 37,3547 54331 TS DELVZ +1 036648,000535: 37,3550 54326 TS DELVY 036649,000536: 37,3551 54327 TS DELVY +1 036650,000537: 37,3552 54325 TS DELVX +1 036651,000538: 37,3553 55256 TS PIPAGE # SHOW PIPA READING IN PROGRESS 036652,000539: 036653,000540: 37,3554 00006 REPIP1 EXTEND 036654,000541: 37,3555 40040 DCS PIPAX # X AND Y PIPS READ 036655,000542: 37,3556 53254 DXCH TEMX 036656,000543: 37,3557 52040 DXCH PIPAX # PIPAS SET TO NEG ZERO AS READ. 036657,000544: 37,3560 54324 TS DELVX 036658,000545: 37,3561 22326 LXCH DELVY 036659,000546: 036660,000547: 37,3562 40041 REPIP3 CS PIPAZ # REPEAT PROCESS FOR Z PIP 036661,000548: 37,3563 57255 XCH TEMZ 036662,000549: 37,3564 56041 XCH PIPAZ 036663,000550: 37,3565 54330 DODELVZ TS DELVZ 036664,000551: 036665,000552: 37,3566 00006 REPIP4 EXTEND # COMPUTE GUIDANCE PERIOD 036666,000553: 37,3567 31561 DCA PIPTIME1 036667,000554: 37,3570 53247 DXCH PGUIDE 036668,000555: 37,3571 00006 EXTEND 036669,000556: 37,3572 41234 DCS PIPTIME 036670,000557: 37,3573 21247 DAS PGUIDE 036671,000558: 036672,000559: 37,3574 30032 CA CDUX # READ CDUS INTO HIGH ORDER CDUTEMPS 036673,000560: 37,3575 55154 TS CDUTEMPX 036674,000561: 37,3576 30033 CA CDUY 036675,000562: 37,3577 55155 TS CDUTEMPY 036676,000563: 37,3600 30034 CA CDUZ 036677,000564: 37,3601 55156 TS CDUTEMPZ 036678,000565: 37,3602 30324 CA DELVX 036679,000566: 37,3603 55157 TS PIPATMPX 036680,000567: 37,3604 30326 CA DELVY 036681,000568: 37,3605 55160 TS PIPATMPY 036682,000569: 37,3606 30330 CA DELVZ 036683,000570: 37,3607 55161 TS PIPATMPZ 036684,000571: 036685,000572: 37,3610 00002 TC Q 036686,000573: 036687,000574: # Page 871 036688,000575: 37,3611 11256 REREADAC CCS PIPAGE 036689,000576: 37,3612 13437 TCF READACCS # PIP READING NOT STARTED. GO TO BEGINNING 036690,000577: 036691,000578: 37,3613 33651 CAF DONEADR # SET UP RETURN FROM PIPASR 036692,000579: 37,3614 54002 TS Q 036693,000580: 036694,000581: 37,3615 10330 CCS DELVZ 036695,000582: 37,3616 13566 TCF REPIP4 # Z DONE, GO DO CDUS 036696,000583: 37,3617 13622 TCF +3 # Z NOT DONE, CHECK Y. 036697,000584: 37,3620 13566 TCF REPIP4 036698,000585: 37,3621 13566 TCF REPIP4 036699,000586: 036700,000587: 37,3622 22007 ZL 036701,000588: 37,3623 10326 CCS DELVY 036702,000589: 37,3624 13627 TCF +3 036703,000590: 37,3625 13636 TCF CHKTEMX # Y NOT DONE, CHECK X. 036704,000591: 37,3626 13627 TCF +1 036705,000592: 37,3627 22041 LXCH PIPAZ # Y DONE, ZERO Z PIP. 036706,000593: 036707,000594: 37,3630 11255 CCS TEMZ 036708,000595: 37,3631 41255 CS TEMZ # TEMZ NOT = -0, CONTAINS -PIPAZ VALUE. 036709,000596: 37,3632 13565 TCF DODELVZ 036710,000597: 37,3633 13631 TCF -2 036711,000598: 37,3634 22330 LXCH DELVZ # TEMZ = -0, L HAS ZPIP VALUE. 036712,000599: 37,3635 13566 TCF REPIP4 036713,000600: 036714,000601: 37,3636 11253 CHKTEMX CCS TEMX # HAS THIS CHANGED 036715,000602: 37,3637 41253 CS TEMX # YES 036716,000603: 37,3640 13643 TCF +3 # YES 036717,000604: 37,3641 13637 TCF -2 # YES 036718,000605: 37,3642 13554 TCF REPIP1 # NO 036719,000606: 37,3643 54324 TS DELVX 036720,000607: 036721,000608: 37,3644 41254 CS TEMY 036722,000609: 37,3645 54326 TS DELVY 036723,000610: 036724,000611: 37,3646 44755 CS ZERO # ZERO X AND Y PIPS 036725,000612: 37,3647 52040 DXCH PIPAX # L STILL ZERO FROM ABOVE 036726,000613: 036727,000614: 37,3650 13562 TCF REPIP3 036728,000615: 036729,000616: 37,3651 03447 DONEADR GENADR PIPSDONE 036730,000617: 036731,000618: # Page 872 036732,000619: 33,2440 BANK 33 036733,000620: 33,2000 SETLOC SERVICES 036734,000621: 33,2000 BANK 036735,000622: 036736,000623: 33,2440 COUNT* $$/SERV 036737,000624: 036738,000625: 33,2440 31155 TMPTOSPT CA CDUTEMPY # THIS SUBROUTINE, ALLED BY AN RTB FROM 036739,000626: 33,2441 54765 TS CDUSPOTY # INTERPRETIVE, LOADS THE CDUS CORRESPON- 036740,000627: 33,2442 31156 CA CDUTEMPZ # DING TO PIPTIME INTO THE CDUSPOT VECTOR. 036741,000628: 33,2443 54767 TS CDUSPOTZ 036742,000629: 33,2444 31154 CA CDUTEMPX 036743,000630: 33,2445 54771 TS CDUSPOTX 036744,000631: 33,2446 00002 TC Q 036745,000632: 036746,000633: # LRHTASK IS A WAITLIST TASK SET BY READACCS DURING THE DESCENT BRAKING 036747,000634: # PHASE WHEN THE ALT TO THE LUNAR SURFACE IS LESS THAN 25,000 FT. THIS 036748,000635: # TASK CLEARS THE ALTITUDE MEASUREMENT MADE DISCRETE AND INITIATES THE 036749,000636: # LANDING RADAR MEASUREMENT JOB (LRHJOB) TO TAKE A ALTITUDE MEASUREMENT 036750,000637: # 50 MS PRIOR TO THE NEXT READACCS TASK. 036751,000638: 036752,000639: 21,2125 BANK 21 036753,000640: 21,2000 SETLOC R10 036754,000641: 21,2000 BANK 036755,000642: 036756,000643: 21,2125 COUNT* $$/SERV 036757,000644: 036758,000645: 21,2125 40107 LRHTASK CS FLGWRD11 036759,000646: 21,2126 74735 MASK LRBYBIT 036760,000647: 21,2127 00006 EXTEND 036761,000648: 21,2130 12141 BZF GRP2OFF # LR BYPASS SET -- BYPASS ALL LR READING. 036762,000649: 036763,000650: 21,2131 40107 CS FLGWRD11 036764,000651: 21,2132 74742 MASK NOLRRBIT # IS LR READ INHIBITED? 036765,000652: 21,2133 00006 EXTEND 036766,000653: 21,2134 12141 BZF GRP2OFF # YES. BYPASS LR READ. 036767,000654: 036768,000655: 21,2135 37723 CA PRIO32 # LR READ OK. SET JOB TO DO IT 036769,000656: 21,2136 05072 TC NOVAC # ABOUT 50 MS. PRIOR TO PIPA READ. 036770,000657: 21,2137 E7,1654 EBANK= HMEAS 036771,000658: 21,2137 03571 70067 2CADR LRHJOB 036772,000659: 036773,000660: 21,2141 00006 GRP2OFF EXTEND 036774,000661: 21,2142 34755 DCA NEG0 036775,000662: 21,2143 52754 DXCH -PHASE2 036776,000663: 21,2144 12021 TCF R10,R11A 036777,000664: 036778,000665: 33,2447 BANK 33 036779,000666: 33,2000 SETLOC SERVICES 036780,000667: 33,2000 BANK 036781,000668: # Page 873 036782,000669: 33,2447 COUNT* $$/SERV 036783,000670: 036784,000671: # HIGATASK IS ENTERED APPROXIMATELY 6 SECS PRIOR TO HIGATE DURING THE 036785,000672: # DESCENT PHASE. HIGATASK SETS THE HIGATE FLAG (BIT11) AND THE LR INHIBIT 036786,000673: # FLAG (BIT10) IN LRSTAT. THE HIGATJOB IS SET UP TO REPOSITION THE LR 036787,000674: # ANTENNA FROM POSITION 1 TO POSITION 2. IF THE REPOSITIONING IS 036788,000675: # SUCCESSFUL THE ALT BEAM AND VELOCITY BEAMS ARE TRANSFORMED TO THE NEW 036789,000676: # ORIENTATION IN NB COORDINATES AND STORED IN ERASABLE. 036790,000677: 036791,000678: 33,2447 05353 HIGATASK TC PHASCHNG 036792,000679: 33,2450 00051 OCT 51 036793,000680: 036794,000681: 33,2451 37723 CA PRIO32 036795,000682: 33,2452 05105 TC FINDVAC 036796,000683: 33,2453 E7,1654 EBANK= HMEAS 036797,000684: 33,2453 03634 66067 2CADR HIGATJOB 036798,000685: 036799,000686: 33,2455 40107 CS FLGWRD11 036800,000687: 33,2456 75015 MASK PRIO3 036801,000688: 33,2457 26107 ADS FLGWRD11 036802,000689: 33,2460 12546 TCF CONTSERV +1 036803,000690: 036804,000691: # Page 874 036805,000692: # MUNRETRN IS THE RETURN LOC FROM SPECIAL AVE G ROUTINE (MUNRVG) 036806,000693: 036807,000694: 33,2461 77776 MUNRETRN EXIT 036808,000695: 036809,000696: 33,2462 40107 CS FLGWRD11 036810,000697: 33,2463 74735 MASK LRBYBIT 036811,000698: 33,2464 00006 EXTEND 036812,000699: 33,2465 12551 BZF COPYCYC1 # BYPASS LR LOGIC IF BIT15 IS SET. 036813,000700: 036814,000701: 33,2466 40107 CS FLGWRD11 # CHECK IF AT 30000 FT 036815,000702: 33,2467 74743 MASK XORFLBIT 036816,000703: 33,2470 00006 EXTEND 036817,000704: 33,2471 12506 BZF R12 036818,000705: 036819,000706: 33,2472 00006 30KCHK EXTEND 036820,000707: 33,2473 33113 DCA 1-30KFT 036821,000708: 33,2474 52155 DXCH MPAC 036822,000709: 33,2475 00006 EXTEND 036823,000710: 33,2476 31535 DCA HCALC 036824,000711: 33,2477 20155 DAS MPAC 036825,000712: 036826,000713: 33,2500 10000 CCS A 036827,000714: 33,2501 12506 TCF R12 # ALTITUDE > 30KFT 036828,000715: 33,2502 05504 TC UPFLAG # ALTITUDE < 30KFT SET X-AXIS OVERRIDE 036829,000716: 33,2503 00311 ADRES XOVINFLG 036830,000717: 33,2504 05504 TC UPFLAG 036831,000718: 33,2505 00253 ADRES XORFLG 036832,000719: 036833,000720: 33,2506 40107 R12 CS FLGWRD11 036834,000721: 33,2507 74742 MASK NOLRRBIT 036835,000722: 33,2510 00006 EXTEND 036836,000723: 33,2511 12545 BZF CONTSERV 036837,000724: 036838,000725: 33,2512 40107 CS FLGWRD11 036839,000726: 33,2513 74751 MASK NO511BIT 036840,000727: 33,2514 00006 EXTEND 036841,000728: 33,2515 13115 BZF UPDATCHK # IF NO511BIT SET, DO NOT CHECK OR POSITION 036842,000729: 036843,000730: 33,2516 40107 HITEST CS FLGWRD11 036844,000731: 33,2517 74741 MASK PSTHIBIT 036845,000732: 33,2520 00006 EXTEND 036846,000733: 33,2521 12540 BZF POS2CHK 036847,000734: 33,2522 31642 HIGATCHK CA TTF/8 # IS TTF > CRITERION? (TTF IS NEGATIVE) 036848,000735: 33,2523 61427 AD RPCRTIME 036849,000736: 33,2524 00006 EXTEND 036850,000737: 33,2525 62536 BZMF POS1CHK # NO 036851,000738: 036852,000739: 33,2526 34741 CA EBANK4 # MUST SWITCH EBANKS 036853,000740: 33,2527 56003 XCH EBANK 036854,000741: 33,2530 54001 TS L # SAVE IN L 036855,000742: # Page 875 036856,000743: 33,2531 E4,1545 EBANK= XNBPIP 036857,000744: 33,2531 41545 CS XNBPIP # UXBXP IN GSOP CH5 036858,000745: 33,2532 E7,1515 EBANK= DVCNTR 036859,000746: 33,2532 22003 LXCH EBANK # RESTORE EBANK 036860,000747: 33,2533 61430 AD RPCRTQSW # QSW - UXBXP 036861,000748: 33,2534 00006 EXTEND 036862,000749: 33,2535 62447 BZMF HIGATASK # IF UXBXP > QSW, THEN REPOSITION 036863,000750: 036864,000751: 33,2536 34746 POS1CHK CAF BIT6 036865,000752: 33,2537 12541 TCF +2 036866,000753: 036867,000754: 33,2540 34745 POS2CHK CAF BIT7 036868,000755: 33,2541 03674 TC POSTST 036869,000756: 33,2542 13115 TCF UPDATCHK # LR IN RIGHT POSITION -- CONTINUE 036870,000757: 036871,000758: 33,2543 05567 LRPOSALM TC ALARM # LR NOT IN PROPER POS-ALARM-BYPASS UPDATE 036872,000759: 33,2544 00511 OCT 511 # AND CONTINUE SERVICER. 036873,000760: 33,2545 00004 CONTSERV INHINT 036874,000761: 33,2546 43111 CS BITS4-7 036875,000762: 33,2547 70107 MASK FLGWRD11 # CLEAR LR MEASUREMENT MADE DISCRETES. 036876,000763: 33,2550 54107 TS FLGWRD11 036877,000764: 036878,000765: # Page 876 036879,000766: 33,2551 03512 COPYCYC1 TC QUIKFAZ5 036880,000767: 036881,000768: 33,2552 30077 R297 CA FLAGWRD3 036882,000769: 33,2553 75014 MASK NR29&RDR 036883,000770: 33,2554 10000 CCS A # IS NOR29FLG OR READRFLG SET? 036884,000771: 33,2555 12567 TCF R29NODES # YES, SO DON'T DESIGNATE. 036885,000772: 036886,000773: 33,2556 30110 CA RADMODES # NO, SO R29 IS CALLED FOR. 036887,000774: 33,2557 72250 MASK OCT10002 # IS THE RR NOT ZEROING ITS CDUS, AND 036888,000775: 33,2560 10000 CCS A # IS THE RENDEZVOUS RADAR IN AUTO MODE? 036889,000776: 33,2561 12567 TCF R29NODES # NO, SO DON'T DESIGNATE. 036890,000777: 036891,000778: 33,2562 30110 CA RADMODES 036892,000779: 33,2563 77713 MASK PRIO22 036893,000780: 33,2564 10000 CCS A # IS RR REPOSITIONING OR REMODING? 036894,000781: 33,2565 12573 TCF NOR29NOW # YES: COME BACK IN 2 SECONDS & TRY AGAIN. 036895,000782: 036896,000783: 33,2566 12045 TCF R29 036897,000784: 036898,000785: 33,2567 00004 R29NODES INHINT # R29 NOT ALLOWED THIS CYCLE. 036899,000786: 33,2570 44742 CS DESIGBIT # SHOW THAT DESIGNATION IS OFF. 036900,000787: 33,2571 70110 MASK RADMODES 036901,000788: 33,2572 54110 TS RADMODES 036902,000789: 036903,000790: 33,2573 06042 NOR29NOW TC INTPRET # INTPRET DOES A RELINT. 036904,000791: 33,2574 51575 VLOAD ABVAL # MPAC = ABVAL( NEW SM. POSITION VECTOR ) 036905,000792: 33,2575 03573 R1S 036906,000793: 33,2576 45206 PUSH DSU # (2) 036907,000794: 33,2577 02333 /LAND/ 036908,000795: 33,2600 03535 STORE HCALC # NEW HCALC*2(24)M. 036909,000796: 33,2601 03775 STORE HCALC1 036910,000797: 33,2602 47075 DMPR RTB 036911,000798: 33,2603 26026 ALTCONV 036912,000799: 33,2604 21613 SGNAGREE 036913,000800: 33,2605 27742 STOVL ALTBITS # ALTITUDE FOR R10 IN BIT UNITS. 036914,000801: 33,2606 03537 UNIT/R/ 036915,000802: 33,2607 53435 VXV UNIT 036916,000803: 33,2610 03720 UHYP 036917,000804: 33,2611 27726 STOVL UHZP # DOWNRANGE HALF-UNIT VECTOR FOR R10. 036918,000805: 33,2612 03573 R1S 036919,000806: 33,2613 60505 VXM VSR4 036920,000807: 33,2614 01734 REFSMMAT 036921,000808: 33,2615 27545 STOVL RN1 # TEMP. REF. POSITION VECTOR*2(29)M. 036922,000809: 33,2616 03601 V1S 036923,000810: 33,2617 76505 VXM VSL1 036924,000811: 33,2620 01734 REFSMMAT 036925,000812: 33,2621 27553 STOVL VN1 # TEMP. REF. VELOCITY VECTOR 2(7) M/CS. 036926,000813: 33,2622 03537 UNIT/R/ 036927,000814: 33,2623 51435 VXV ABVAL 036928,000815: # Page 877 036929,000816: 33,2624 03601 V1S 036930,000817: 33,2625 63552 SL1 DSQ 036931,000818: 33,2626 77671 DDV 036932,000819: 33,2627 47075 DMPR RTB 036933,000820: 33,2630 26030 ARCONV1 036934,000821: 33,2631 21613 SGNAGREE 036935,000822: 33,2632 77776 COPYCYC2 EXIT # LEAVE ALTITUDE RATE COMPENSATION IN MPAC 036936,000823: 33,2633 00004 INHINT 036937,000824: 33,2634 31536 CA UNIT/R/ # UPDATE RUNIT FOR R10. 036938,000825: 33,2635 55743 TS RUNIT 036939,000826: 33,2636 31540 CA UNIT/R/ +2 036940,000827: 33,2637 55744 TS RUNIT +1 036941,000828: 33,2640 31542 CA UNIT/R/ +4 036942,000829: 33,2641 55745 TS RUNIT +2 036943,000830: 33,2642 30154 CA MPAC # LOAD NEW DALTRATE FOR R10. 036944,000831: 33,2643 55716 TS DALTRATE 036945,000832: 036946,000833: 33,2644 00006 EXTEND 036947,000834: 33,2645 31573 DCA R1S 036948,000835: 33,2646 53521 DXCH R 036949,000836: 33,2647 00006 EXTEND 036950,000837: 33,2650 31575 DCA R1S +2 036951,000838: 33,2651 53523 DXCH R +2 036952,000839: 33,2652 00006 EXTEND 036953,000840: 33,2653 31577 DCA R1S +4 036954,000841: 33,2654 53525 DXCH R +4 036955,000842: 33,2655 00006 EXTEND 036956,000843: 33,2656 31601 DCA V1S 036957,000844: 33,2657 53527 DXCH V 036958,000845: 33,2660 00006 EXTEND 036959,000846: 33,2661 31603 DCA V1S +2 036960,000847: 33,2662 53531 DXCH V +2 036961,000848: 33,2663 00006 EXTEND 036962,000849: 33,2664 31605 DCA V1S +4 036963,000850: 33,2665 53533 DXCH V +4 036964,000851: 036965,000852: 33,2666 12275 TCF COPYCYCL # COMPLETE THE COPYCYCL. 036966,000853: 036967,000854: # Page 878 036968,000855: # *************************************************************** 036969,000856: 036970,000857: 33,2667 41456 CALCGRAV UNIT PUSH # SAVE UNIT/R/ IN PUSHLIST (18) 036971,000858: 33,2670 03537 STORE UNIT/R/ 036972,000859: 33,2671 67340 LXC,1 SLOAD # RTX2 = 0 IF EARTH ORBIT, =2 IF LUNAR. 036973,000860: 33,2672 02777 RTX2 036974,000861: 33,2673 03000 RTX2 036975,000862: 33,2674 50076 DCOMP BMN 036976,000863: 33,2675 66724 CALCGRV1 036977,000864: 33,2676 50375 VLOAD DOT # (12) 036978,000865: 33,2677 06516 UNITZ 036979,000866: 33,2700 03537 UNIT/R/ 036980,000867: 33,2701 41552 SL1 PUSH # (14) 036981,000868: 33,2702 44316 DSQ BDSU 036982,000869: 33,2703 26766 DP1/20 036983,000870: 33,2704 56325 PDDL DDV 036984,000871: 33,2705 26040 RESQ 036985,000872: 33,2706 00043 34D # (RN)SQ 036986,000873: 33,2707 00041 STORE 32D # TEMP FOR (RE/RN)SQ 036987,000874: 33,2710 41205 DMP DMP 036988,000875: 33,2711 26042 20J 036989,000876: 33,2712 65361 VXSC PDDL 036990,000877: 33,2713 03537 UNIT/R/ 036991,000878: 33,2714 41205 DMP DMP 036992,000879: 33,2715 26044 2J 036993,000880: 33,2716 00041 32D 036994,000881: 33,2717 76561 VXSC VSL1 036995,000882: 33,2720 06516 UNITZ 036996,000883: 33,2721 45455 VAD STADR 036997,000884: 33,2722 74256 STORE UNITGOBL 036998,000885: 33,2723 41455 VAD PUSH # MPAC = UNIT GRAVITY VECTOR. (18) 036999,000886: 33,2724 60345 CALCGRV1 DLOAD NORM # PERFORM A NORMALIZATION ON RMAGSQ IN 037000,000887: 33,2725 00043 34D # ORDER TO BE ABLE TO SCALE THE MU FOR 037001,000888: 33,2726 00050 X2 # MAXIMUM PRECISION. 037002,000889: 33,2727 53663 BDDV* SLR* 037003,000890: 33,2730 26032 -MUDT,1 037004,000891: 33,2731 56623 0 -21D,2 037005,000892: 33,2732 45561 VXSC STADR 037006,000893: 33,2733 74214 STORE GDT1/2 # SCALED AT 2(+7) M/CS 037007,000894: 33,2734 77616 RVQ 037008,000895: 037009,000896: 33,2735 61375 CALCRVG VLOAD VXM 037010,000897: 33,2736 00325 DELV 037011,000898: 33,2737 01734 REFSMMAT 037012,000899: 33,2740 76561 VXSC VSL1 037013,000900: 33,2741 26022 KPIP1 037014,000901: 33,2742 03527 STORE DELVREF 037015,000902: 33,2743 41562 VSR1 PUSH 037016,000903: 33,2744 41455 VAD PUSH # (DV-OLDGDT)/2 TO PD SCALED AT 2(+7) M/CS. 037017,000904: # Page 879 037018,000905: 33,2745 01236 GDT/2 037019,000906: 33,2746 65255 VAD PDDL 037020,000907: 33,2747 01226 VN 037021,000908: 33,2750 01247 PGUIDE 037022,000909: 33,2751 74261 SL VXSC 037023,000910: 33,2752 20207 6D 037024,000911: 33,2753 44055 VAD STQ 037025,000912: 33,2754 01220 RN 037026,000913: 33,2755 00037 31D 037027,000914: 33,2756 37545 STCALL RN1 # TEMP STORAGE OF RN SCALED 2(+29) M 037028,000915: 33,2757 66667 CALCGRAV 037029,000916: 037030,000917: 33,2760 53255 VAD VAD 037031,000918: 33,2761 77655 VAD 037032,000919: 33,2762 01226 VN 037033,000920: 33,2763 37553 STCALL VN1 # TEMP STORAGE OF VN SCALED 2(+7) M/CS 037034,000921: 33,2764 00037 31D 037035,000922: 037036,000923: 33,2765 01463 06315 DP1/20 2DEC 0.05 037037,000924: 33,2767 00010 00000 SHIFT11 2DEC 1 B-11 037038,000925: 037039,000926: # Page 880 037040,000927: # ***************************************************************************** 037041,000928: # MUNRVG IS A SPECIAL AVERAGE G INTEGRATION ROUTINE USED BY THRUSTING 037042,000929: # PROGRAMS WHICH FUNCTION IN THE VICINITY OF AN ASSUMED SPHERICAL MOON. 037043,000930: # THE INPUT AND OUTPUT QUANTITIES ARE REFERENCED TO THE STABLE MEMBER 037044,000931: # COORDINATE SYSTEM. 037045,000932: 037046,000933: 33,2771 41575 RVBOTH VLOAD PUSH 037047,000934: 33,2772 02317 G(CSM) 037048,000935: 33,2773 65255 VAD PDDL 037049,000936: 33,2774 01726 V(CSM) 037050,000937: 33,2775 01247 PGUIDE 037051,000938: 33,2776 74271 DDV VXSC 037052,000939: 33,2777 26770 SHIFT11 037053,000940: 33,3000 77655 VAD 037054,000941: 33,3001 01720 R(CSM) 037055,000942: 33,3002 37573 STCALL R1S 037056,000943: 33,3003 67067 MUNGRAV 037057,000944: 33,3004 53255 VAD VAD 037058,000945: 33,3005 01726 V(CSM) 037059,000946: 33,3006 77626 STADR 037060,000947: 33,3007 74176 STORE V1S 037061,000948: 33,3010 77776 EXIT 037062,000949: 33,3011 03512 TC QUIKFAZ5 037063,000950: 33,3012 06042 TC INTPRET 037064,000951: 33,3013 77775 VLOAD 037065,000952: 33,3014 03563 GDT1/2 037066,000953: 33,3015 26317 STOVL G(CSM) 037067,000954: 33,3016 03573 R1S 037068,000955: 33,3017 25720 STOVL R(CSM) 037069,000956: 33,3020 03601 V1S 037070,000957: 33,3021 01726 STORE V(CSM) 037071,000958: 33,3022 77776 EXIT 037072,000959: 33,3023 03512 TC QUIKFAZ5 037073,000960: 33,3024 06042 TC INTPRET 037074,000961: 33,3025 74375 MUNRVG VLOAD VXSC 037075,000962: 33,3026 00325 DELV 037076,000963: 33,3027 26024 KPIP2 037077,000964: 33,3030 53206 PUSH VAD # 1ST PUSH: DELV IN UNITS OF 2(8) M/CS 037078,000965: 33,3031 01236 GDT/2 037079,000966: 33,3032 53206 PUSH VAD # 2ND PUSH: (DELV + GDT)/2, UNITS OF 2(7) 037080,000967: 33,3033 03527 V # (12) 037081,000968: 33,3034 56325 PDDL DDV 037082,000969: 33,3035 01247 PGUIDE 037083,000970: 33,3036 26770 SHIFT11 037084,000971: 33,3037 77761 VXSC 037085,000972: 33,3040 77655 VAD 037086,000973: 33,3041 03521 R 037087,000974: 33,3042 37573 STCALL R1S # STORE R SCALED AT 2(+24) M 037088,000975: 33,3043 67067 MUNGRAV 037089,000976: # Page 881 037090,000977: 33,3044 53255 VAD VAD 037091,000978: 33,3045 77655 VAD 037092,000979: 33,3046 03527 V 037093,000980: 33,3047 03601 STORE V1S # STORE V SCALED AT 2(+7) M/CS. 037094,000981: 33,3050 77646 ABVAL 037095,000982: 33,3051 27472 STOVL ABVEL # STORE SPEED FOR LR AND DISPLAYS. 037096,000983: 33,3052 03537 UNIT/R/ 037097,000984: 33,3053 72441 DOT SL1 037098,000985: 33,3054 03601 V1S 037099,000986: 33,3055 27474 STOVL HDOTDISP # HDOT = V. UNIT(R)*2(7) M/CS. 037100,000987: 33,3056 03573 R1S 037101,000988: 33,3057 72435 VXV VSL2 037102,000989: 33,3060 02325 WM 037103,000990: 33,3061 17734 STODL DELVS # LUNAR ROTATION CORRECTON TERM*2(5) M/CS. 037104,000991: 33,3062 00045 36D 037105,000992: 33,3063 77625 DSU 037106,000993: 33,3064 02333 /LAND/ 037107,000994: 33,3065 37535 STCALL HCALC # FOR NOW, DISPLAY WHETHER POS OR NEG 037108,000995: 33,3066 66461 MUNRETRN 037109,000996: 33,3067 77656 MUNGRAV UNIT # AT 36D HAVE ABVAL(R), AT 34D R.R 037110,000997: 33,3070 17537 STODL UNIT/R/ 037111,000998: 33,3071 00043 34D 037112,000999: 33,3072 55261 SL BDDV 037113,001000: 33,3073 20207 6D 037114,001001: 33,3074 26036 -MUDTMUN 037115,001002: 33,3075 74205 DMP VXSC 037116,001003: 33,3076 26770 SHIFT11 037117,001004: 33,3077 03537 UNIT/R/ 037118,001005: 33,3100 03563 STORE GDT1/2 # 1/2GDT SCALED AT 2(7) M/CS. 037119,001006: 33,3101 77616 RVQ 037120,001007: 037121,001008: 33,3102 00303 1.95SECS DEC 195 B-14 037122,001009: 33,3103 00014 20000 2SEC(18) 2DEC 200 B-18 037123,001010: 33,3105 00000 00310 2SEC(28) 2OCT 0000000310 # 2SEC AT 2(28) 037124,001011: 33,3107 00000 00620 4SEC(28) 2DEC 400 B-28 037125,001012: 33,3111 00110 BITS4-7 OCT 110 037126,001013: 33,3112 37767 02200 1-30KFT 2DEC 16768072 B-24 # DPPOSMAX-30KFT 037127,001014: 33,3114 04445 6KFT/SEC DEC 18.288 B-7 # 6000 FT/SEC AT 2(7) M/CS 037128,001015: 037129,001016: # Page 882 037130,001017: 33,3115 34742 UPDATCHK CAF NOLRRBIT # SEE IF LR UPDATE INHIBITED. 037131,001018: 33,3116 70107 MASK FLGWRD11 037132,001019: 33,3117 10000 CCS A 037133,001020: 33,3120 12545 TCF CONTSERV # IT IS -- NO LR UPDATE 037134,001021: 33,3121 34750 CAF RNGEDBIT # NO INHIBIT -- SEE ALT MEA. THIS CYCLE. 037135,001022: 33,3122 70107 MASK FLGWRD11 037136,001023: 33,3123 00006 EXTEND 037137,001024: 33,3124 13250 BZF VMEASCHK # NO ALT MEAS THIS CYCLE -- CHECK FOR VEL 037138,001025: 037139,001026: 33,3125 30120 POSUPDAT CA FIXLOC # SET PUSHLIST TO ZERO 037140,001027: 33,3126 54166 TS PUSHLOC 037141,001028: 037142,001029: 33,3127 06042 TC INTPRET 037143,001030: 33,3130 61375 VLOAD VXM 037144,001031: 33,3131 02273 HBEAMNB 037145,001032: 33,3132 02146 XNBPIP # HBEAM SM AT 2(2) 037146,001033: 33,3133 72515 PDVL VSL2 # STORE HBEAM IN PD 0-5 037147,001034: 33,3134 03601 V1S # SCALE V AT 2(5) M/CS 037148,001035: 33,3135 50255 VAD DOT 037149,001036: 33,3136 03734 DELVS # V RELATIVE TO SURFACE AT 2(5) M/CS 037150,001037: 33,3137 00001 0D # V ALONG HBEAM AT 2(7) M/CS. 037151,001038: 33,3140 77405 DMP EXIT 037152,001039: 33,3141 01352 RADSKAL # SCALE TO RADAR COUNTS X 5 037153,001040: 037154,001041: 33,3142 40110 CS FLGWRD12 # TEST LR ALTITUDE SCALE FACTOR 037155,001042: 33,3143 74743 MASK ALTSCBIT 037156,001043: 33,3144 00006 EXTEND 037157,001044: 33,3145 13150 BZF +3 # BRANCH IF HIGH SCALE 037158,001045: 037159,001046: 33,3146 31353 CA SKALSKAL # RESCALE IF LOW SCALE 037160,001047: 33,3147 07312 TC SHORTMP 037161,001048: 037162,001049: 33,3150 06042 +3 TC INTPRET 037163,001050: 33,3151 54215 DAD SL # CORRECT HMEAS FOR DOPPLER EFFECT 037164,001051: 33,3152 03655 HMEAS 037165,001052: 33,3153 20210 7D 037166,001053: 33,3154 74205 DMP VXSC # SLANT RANGE AT 2(21), PUSH UP FOR HBEAM 037167,001054: 33,3155 26011 HSCAL # SLANT RANGE VECTOR AT 2(23) M 037168,001055: 33,3156 45241 DOT DSU 037169,001056: 33,3157 03537 UNIT/R/ # ALTITUDE AT 2(24) M 037170,001057: 33,3160 03535 HCALC # DELTA H AT 2(24) M 037171,001058: 33,3161 03665 STORE DELTAH 037172,001059: 33,3162 77776 EXIT 037173,001060: 037174,001061: 33,3163 30107 CA FLGWRD11 037175,001062: 33,3164 74741 MASK PSTHIBIT 037176,001063: 33,3165 00006 EXTEND # DO NOT PERFORM DATA REASONABLENESS TEST 037177,001064: 33,3166 13203 BZF NOREASON # UNTIL AFTER HIGATE. 037178,001065: # Page 883 037179,001066: 33,3167 06042 TC INTPRET 037180,001067: 33,3170 45246 ABS DSU 037181,001068: 33,3171 02521 DELQFIX # ABS(DELTAH) - DQFIX 50 FT NOM 037182,001069: 33,3172 45252 SL3 DSU # SCALE TO 2(21) 037183,001070: 33,3173 03535 HCALC # ABS(DELTAH) - (50 + HCALC/8) AT 2(21) 037184,001071: 33,3174 77776 EXIT 037185,001072: 037186,001073: 33,3175 25670 INCR LRLCTR 037187,001074: 33,3176 06726 TC BRANCH 037188,001075: 33,3177 13520 TCF HFAIL # DELTA H TOO LARGE 037189,001076: 33,3200 13520 TCF HFAIL # DELTA H TOO LARGE 037190,001077: 33,3201 05516 TC DOWNFLAG # TURN OFF ALT FAIL LAMP 037191,001078: 33,3202 00263 ADRES HFLSHFLG 037192,001079: 037193,001080: 33,3203 40107 NOREASON CS FLGWRD11 037194,001081: 33,3204 74744 MASK LRINHBIT 037195,001082: 33,3205 10000 CCS A 037196,001083: 33,3206 13250 TCF VMEASCHK # UPDATE INHIBITED -- TEST VELOCITY ANYWAY 037197,001084: 037198,001085: 33,3207 06042 TC INTPRET # DO POSITION UPDATE 037199,001086: 33,3210 40545 DLOAD SR4 037200,001087: 33,3211 03535 HCALC # RESCALE H TO 2(28)M 037201,001088: 33,3212 77776 EXIT 037202,001089: 33,3213 00006 EXTEND 037203,001090: 33,3214 31665 DCA DELTAH # STORE DELTAH IN MPAC AND 037204,001091: 33,3215 52155 DXCH MPAC # BRING HCALC INTO A,L 037205,001092: 33,3216 07547 TC ALSIGNAG 037206,001093: 33,3217 00006 EXTEND # IF HIGH PART OF HCALC IS NON-ZERO, THEN 037207,001094: 33,3220 13222 BZF +2 # HCALC > HMAX, 037208,001095: 33,3221 13250 TCF VMEASCHK # SO UPDATE IS BYPASSED 037209,001096: 33,3222 54156 TS MPAC +2 # FOR LATER SHORTMP 037210,001097: 037211,001098: 33,3223 40001 CS L # -H AT 2(14) M 037212,001099: 33,3224 61420 AD LRHMAX # HMAX - H 037213,001100: 33,3225 00006 EXTEND 037214,001101: 33,3226 63250 BZMF VMEASCHK # IF H >HMAX, BYPASS UPDATE 037215,001102: 33,3227 00006 EXTEND 037216,001103: 33,3230 71421 MP LRWH # WH(HMAX - H) 037217,001104: 33,3231 00006 EXTEND 037218,001105: 33,3232 11420 DV LRHMAX # WH(1 - H/HMAX) 037219,001106: 33,3233 54135 TS MPTEMP 037220,001107: 33,3234 07316 TC SHORTMP2 # DELTAH (WH)(1 - H/HMAX) IN MPAC 037221,001108: 33,3235 06042 TC INTPRET # MODE IS DP FROM ABOVE 037222,001109: 33,3236 77752 SL1 037223,001110: 33,3237 53361 VXSC VAD 037224,001111: 33,3240 03537 UNIT/R/ # DELTAR = DH(WH)(1 - H/HMAX) UNIT/R/ 037225,001112: 33,3241 03573 R1S 037226,001113: 33,3242 37657 STCALL GNUR 037227,001114: 33,3243 67067 MUNGRAV 037228,001115: 33,3244 77776 EXIT 037229,001116: # Page 884 037230,001117: 33,3245 03512 TC QUIKFAZ5 037231,001118: 037232,001119: 33,3246 34755 CA ZERO 037233,001120: 33,3247 03474 RUPDATED TC GNURVST 037234,001121: 037235,001122: 33,3250 03512 VMEASCHK TC QUIKFAZ5 # RESTART AT NEXT LOCATION 037236,001123: 33,3251 40107 CS FLGWRD11 037237,001124: 33,3252 74745 MASK VELDABIT # IS V READING AVAILABLE? 037238,001125: 33,3253 10000 CCS A 037239,001126: 33,3254 13454 TCF VALTCHK # NO: SEE IF V READING TO BE TAKEN 037240,001127: 037241,001128: 33,3255 41651 VELUPDAT CS VSELECT # PROCESS VELOCITY DATA 037242,001129: 33,3256 54001 TS L 037243,001130: 33,3257 26001 ADS L # -2 VSELECT IN L 037244,001131: 33,3260 60001 AD L 037245,001132: 33,3261 60001 AD L # -6 VSELECT IN A 037246,001133: 33,3262 50120 INDEX FIXLOC 037247,001134: 33,3263 52047 DXCH X1 # X1 = -6 VSELECT, X2 = -2 VSELECT 037248,001135: 037249,001136: 33,3264 34741 CA EBANK4 037250,001137: 33,3265 54003 TS EBANK 037251,001138: 33,3266 E4,1654 EBANK= LRXCDU 037252,001139: 037253,001140: 33,3266 31655 CA LRYCDU # STORE LRCDUS IN CDUSPOTS 037254,001141: 33,3267 54765 TS CDUSPOT 037255,001142: 33,3270 31656 CA LRZCDU 037256,001143: 33,3271 54767 TS CDUSPOT +2 037257,001144: 33,3272 31654 CA LRXCDU 037258,001145: 33,3273 54771 TS CDUSPOT +4 037259,001146: 037260,001147: 33,3274 04616 TC BANKCALL 037261,001148: 33,3275 47617 CADR QUICTRIG # GET SINES AND COSINES FOR NBSM 037262,001149: 037263,001150: 33,3276 30120 CA FIXLOC 037264,001151: 33,3277 54166 TS PUSHLOC # SET PD TO ZERO 037265,001152: 037266,001153: 33,3300 06042 TC INTPRET 037267,001154: 33,3301 45173 VLOAD* CALL 037268,001155: 33,3302 02231 VZBEAMNB,1 # CONVERT VBEAM FROM NB TO SM 037269,001156: 33,3303 47675 *NBSM* 037270,001157: 33,3304 54325 PDDL SL # STORE IN PD 0-5 037271,001158: 33,3305 03653 VMEAS # LOAD VELOCITY MEASUREMENT 037272,001159: 33,3306 20215 12D 037273,001160: 33,3307 41403 DMP* PUSH # SCALE TO M/CS AT 2(6) 037274,001161: 33,3310 51764 VZSCAL,2 # AND STORE IN PD 6-7 037275,001162: 33,3311 77776 EXIT 037276,001163: 33,3312 44753 CS ONE 037277,001164: 33,3313 54163 TS MODE # CHANGE STORE MODE TO VECTOR 037278,001165: 037279,001166: 33,3314 31657 CA PIPTEM # STORE DELV IN MPAC 037280,001167: # Page 885 037281,001168: 33,3315 22007 ZL 037282,001169: 33,3316 52155 DXCH MPAC 037283,001170: 037284,001171: 33,3317 31660 CA PIPTEM +1 037285,001172: 33,3320 22007 ZL 037286,001173: 33,3321 52160 DXCH MPAC +3 037287,001174: 037288,001175: 33,3322 31661 CA PIPTEM +2 037289,001176: 33,3323 22007 ZL 037290,001177: 33,3324 52162 DXCH MPAC +5 037291,001178: 037292,001179: 33,3325 35016 CA EBANK7 037293,001180: 33,3326 54003 TS EBANK # RESTORE EBANK 7 037294,001181: 33,3327 E7,1515 EBANK= DVCNTR 037295,001182: 33,3327 06042 TC INTPRET 037296,001183: 33,3330 65361 VXSC PDDL 037297,001184: 33,3331 26022 KPIP1 # SCALE DELV TO 2(7) M/CS AND PUSH 037298,001185: 33,3332 02253 LRVTIME # TIME OF DELV AT 2(28) CS 037299,001186: 33,3333 56225 DSU DDV 037300,001187: 33,3334 01234 PIPTIME # TU -- T(N-1) 037301,001188: 33,3335 27106 2SEC(28) 037302,001189: 33,3336 76561 VXSC VSL1 # G(N-1)(TU - T(N-1)) 037303,001190: 33,3337 01236 GDT/2 # SCALED AT 2(7) M/CS 037304,001191: 33,3340 53255 VAD VAD # PUSH UP FOR DELV 037305,001192: 33,3341 03527 V # VU = V(N-1) + DELVU + G(N-1) DTO 037306,001193: 33,3342 53352 VSL2 VAD # SCALE TO 2(5) M/CS AND SUBTRACT 037307,001194: 33,3343 03734 DELVS # MOON ROTATION. 037308,001195: 33,3344 51406 PUSH ABVAL # STORE IN PD 037309,001196: 33,3345 43202 SR4 DAD # ABS(VM)/8 + VELBIAS AT 2(6) 037310,001197: 33,3346 03372 VELBIAS 037311,001198: 33,3347 24025 STOVL 20D # STORE IN 20D AND PICK UP VM 037312,001199: 33,3350 44241 DOT BDSU # V(EST) AT 2(6) 037313,001200: 33,3351 00001 0 # DELTAV = VMEAS - V(EST) 037314,001201: 33,3352 51406 PUSH ABS 037315,001202: 33,3353 77425 DSU EXIT # ABS(DV) - (7.5 + ABS(VM)/8)) 037316,001203: 33,3354 00025 20D 037317,001204: 037318,001205: 33,3355 25672 INCR LRMCTR 037319,001206: 33,3356 06726 TC BRANCH 037320,001207: 33,3357 13535 TCF VFAIL # DELTA V TOO LARGE. ALARM 037321,001208: 33,3360 13535 TCF VFAIL # DELTA V TOO LARGE. ALARM 037322,001209: 037323,001210: 33,3361 05516 TC DOWNFLAG # TURN OFF VEL FAIL LAMP 037324,001211: 33,3362 00262 ADRES VFLSHFLG 037325,001212: 037326,001213: 33,3363 30107 CA FLGWRD11 037327,001214: 33,3364 74740 MASK VXINHBIT 037328,001215: 33,3365 00006 EXTEND 037329,001216: 33,3366 13375 BZF VUPDAT # IF VX INHIBIT RESET, INCORPORATE DATA. 037330,001217: # Page 886 037331,001218: 33,3367 05516 TC DOWNFLAG 037332,001219: 33,3370 00250 ADRES VXINH # RESET VX INHIBIT 037333,001220: 037334,001221: 33,3371 31651 CA VSELECT 037335,001222: 33,3372 67751 AD NEG2 # IF VSELECT = 2 (X AXIS). 037336,001223: 33,3373 00006 EXTEND # BYPASS UPDATE 037337,001224: 33,3374 13454 BZF ENDVDAT 037338,001225: 037339,001226: 33,3375 40107 VUPDAT CS FLGWRD11 037340,001227: 33,3376 74744 MASK LRINHBIT 037341,001228: 33,3377 10000 CCS A 037342,001229: 33,3400 13454 TCF VALTCHK # UPDATE INHIBITED 037343,001230: 037344,001231: 33,3401 54155 TS MPAC +1 037345,001232: 037346,001233: 33,3402 31471 CA ABVEL # STORE E7 ERASABLES NEEDED IN TEMPS 037347,001234: 33,3403 54130 TS ABVEL* 037348,001235: 33,3404 31651 CA VSELECT 037349,001236: 33,3405 54131 TS VSELECT* 037350,001237: 33,3406 35014 CA EBANK5 037351,001238: 33,3407 54003 TS EBANK # CHANGE EBANKS 037352,001239: 037353,001240: 33,3410 E5,1527 EBANK= LRVF 037354,001241: 33,3410 41527 CS LRVF 037355,001242: 33,3411 60130 AD ABVEL* # IF V < VF, USE WVF 037356,001243: 33,3412 00006 EXTEND 037357,001244: 33,3413 63426 BZMF USEVF 037358,001245: 037359,001246: 33,3414 40130 CS ABVEL* 037360,001247: 33,3415 61526 AD LRVMAX # VMAX - V 037361,001248: 33,3416 00006 EXTEND 037362,001249: 33,3417 63431 BZMF WSTOR -1 # IF V > VMAX, W = 0 037363,001250: 037364,001251: 33,3420 00006 EXTEND 037365,001252: 33,3421 50131 INDEX VSELECT* 037366,001253: 33,3422 71530 MP LRWVZ # WV(VMAX - V) 037367,001254: 037368,001255: 33,3423 00006 EXTEND 037369,001256: 33,3424 11526 DV LRVMAX # WV( 1 - V/VMAX ) 037370,001257: 33,3425 13432 TCF WSTOR 037371,001258: 037372,001259: 33,3426 50131 USEVF INDEX VSELECT* 037373,001260: 33,3427 31533 CA LRWVFZ # USE APPROPRIATE CONSTANT WEIGHT 037374,001261: 33,3430 13432 TCF WSTOR 037375,001262: 037376,001263: 33,3431 34755 -1 CA ZERO 037377,001264: 33,3432 54154 WSTOR TS MPAC 037378,001265: 33,3433 44745 CS BIT7 # (=64D) 037379,001266: 33,3434 61010 AD MODREG 037380,001267: 33,3435 00006 EXTEND 037381,001268: # Page 887 037382,001269: 33,3436 63441 BZMF +3 # IF IN P65,P66,P67, USE ANOTHER CONSTANT 037383,001270: 037384,001271: 33,3437 31536 CA LRWVFF 037385,001272: 33,3440 54154 TS MPAC 037386,001273: 037387,001274: 33,3441 35016 +3 CA EBANK7 037388,001275: 33,3442 54003 TS EBANK # CHANGE EBANKS 037389,001276: 037390,001277: 33,3443 E7,1471 EBANK= ABVEL 037391,001278: 33,3443 06042 TC INTPRET 037392,001279: 33,3444 74205 DMP VXSC # W(DELTA V)(VBEAMSM) UP 6-7, 0-5 037393,001280: 33,3445 77655 VAD 037394,001281: 33,3446 03601 V1S # ADD WEIGHTED DELTA V TO VELOCITY 037395,001282: 33,3447 03657 STORE GNUV 037396,001283: 33,3450 77776 EXIT 037397,001284: 037398,001285: 33,3451 03512 TC QUIKFAZ5 # DO NOT RE-UPDATE 037399,001286: 037400,001287: 33,3452 36245 CA SIX 037401,001288: 33,3453 03474 VUPDATED TC GNURVST # STORE NEW VELOCITY VECTOR 037402,001289: 33,3454 33,3454 ENDVDAT = VALTCHK 037403,001290: 037404,001291: 33,3454 03512 VALTCHK TC QUIKFAZ5 # DO NOT REPEAT ABOVE 037405,001292: 037406,001293: 33,3455 34747 CAF READVBIT # TEST READVEL TO SEE IF VELOCITY READING 037407,001294: 33,3456 70107 MASK FLGWRD11 # IS DESIRED. 037408,001295: 33,3457 10000 CCS A 037409,001296: 33,3460 13467 TCF READV # YES -- READ VELOCITY 037410,001297: 33,3461 41471 CS ABVEL # NO -- SEE IF VELOCITY < 6000 FT/SEC 037411,001298: 33,3462 63114 AD 6KFT/SEC 037412,001299: 33,3463 00006 EXTEND 037413,001300: 33,3464 62545 BZMF CONTSERV # V > 6000 FT/SEC. DO NOT READ VELOCITY 037414,001301: 037415,001302: 33,3465 05504 TC UPFLAG # V < 6000 FT/SEC. SET READVEL AND READ. 037416,001303: 33,3466 00257 ADRES READVEL 037417,001304: 037418,001305: 33,3467 37723 READV CAF PRIO32 # SET UP JOB TO READ VELOCITY BEAMS. 037419,001306: 33,3470 05072 TC NOVAC 037420,001307: 33,3471 E7,1654 EBANK= HMEAS 037421,001308: 33,3471 03556 66067 2CADR LRVJOB 037422,001309: 037423,001310: 33,3473 12545 TCF CONTSERV # CONTINUE WITH SERVICER 037424,001311: 037425,001312: 33,3474 54130 GNURVST TS BUF # STORE GNUR (=GNUV) IN R1S OR V1S 037426,001313: 33,3475 00006 EXTEND # A = 0 FOR R, A = 6 FOR V 037427,001314: 33,3476 31657 DCA GNUR 037428,001315: 33,3477 50130 INDEX BUF 037429,001316: 33,3500 53573 DXCH R1S 037430,001317: 33,3501 00006 EXTEND 037431,001318: # Page 888 037432,001319: 33,3502 31661 DCA GNUR +2 037433,001320: 33,3503 50130 INDEX BUF 037434,001321: 33,3504 53575 DXCH R1S +2 037435,001322: 33,3505 00006 EXTEND 037436,001323: 33,3506 31663 DCA GNUR +4 037437,001324: 33,3507 50130 INDEX BUF 037438,001325: 33,3510 53577 DXCH R1S +4 037439,001326: 33,3511 00002 TC Q 037440,001327: 037441,001328: 33,3512 35007 QUIKFAZ5 CA EBANK3 037442,001329: 33,3513 56003 XCH EBANK # SET EBANK 3 037443,001330: 33,3514 52002 DXCH L # Q TO A, A TO L 037444,001331: 33,3515 E3,1446 EBANK= PHSNAME5 037445,001332: 33,3515 55446 TS PHSNAME5 037446,001333: 33,3516 22003 LXCH EBANK 037447,001334: 33,3517 E7,1515 EBANK= DVCNTR 037448,001335: 33,3517 00000 TC A 037449,001336: 037450,001337: 33,3520 41671 HFAIL CS LRRCTR 037451,001338: 33,3521 00006 EXTEND 037452,001339: 33,3522 13532 BZF NORLITE # IF R = 0, DO NOT TURN ON TRK FAIL 037453,001340: 33,3523 61670 AD LRLCTR 037454,001341: 33,3524 77750 MASK NEG3 037455,001342: 33,3525 00006 EXTEND # IF L-R LT 4, DO NOT TURN ON TRK FAIL 037456,001343: 33,3526 13530 BZF +2 037457,001344: 33,3527 13532 TCF NORLITE 037458,001345: 037459,001346: 33,3530 05504 TC UPFLAG # AND SET BIT TO TURN ON TRACKER FAIL LITE 037460,001347: 33,3531 00263 ADRES HFLSHFLG 037461,001348: 037462,001349: 33,3532 31670 NORLITE CA LRLCTR 037463,001350: 33,3533 55671 TS LRRCTR # SET R = L 037464,001351: 037465,001352: 33,3534 13250 TCF VMEASCHK 037466,001353: 037467,001354: 33,3535 41673 VFAIL CS LRSCTR # DELTA Q LARGE 037468,001355: 33,3536 00006 EXTEND # IF S = 0, DO NOT TURN ON TRACKER FAIL 037469,001356: 33,3537 13547 BZF NOLITE 037470,001357: 33,3540 61672 AD LRMCTR # M-S 037471,001358: 33,3541 77750 MASK NEG3 # TEST FOR M-S > 3 037472,001359: 33,3542 00006 EXTEND # IF M-S > 3, THEN TWO OR MORE OF THE 037473,001360: 33,3543 13545 BZF +2 # LAST FOUR V READINGS WERE BAD, 037474,001361: 33,3544 13547 TCF NOLITE # SO TURN ON VELOCITY FAIL LIGHT 037475,001362: 037476,001363: 33,3545 05504 TC UPFLAG # AND SET BIT TO TURN ON TRACKER FAIL LITE 037477,001364: 33,3546 00262 ADRES VFLSHFLG 037478,001365: 037479,001366: # Page 889 037480,001367: 33,3547 31672 NOLITE CA LRMCTR # SET S = M 037481,001368: 33,3550 55673 TS LRSCTR 037482,001369: 037483,001370: 33,3551 11651 CCS VSELECT # TEST FOR Z COMPONENT 037484,001371: 33,3552 13454 TCF ENDVDAT # NOT Z, DO NOT SET VX INHIBIT 037485,001372: 037486,001373: 33,3553 05504 TC UPFLAG # Z COMPONENT - SET FLAG TO SKIP X 037487,001374: 33,3554 00250 ADRES VXINH # COMPONENT, AS ERROR MAY BE DUE TO CROSS 037488,001375: 33,3555 13454 TCF ENDVDAT # LOBE LOCK UP NOT DETECTED ON X AXIS. 037489,001376: 037490,001377: # Page 890 037491,001378: # ******************************************************************************** 037492,001379: # LRVJOB IS SET WHEN THE LEM IS BELOW 15000 FT DURING THE LANDING PHASE 037493,001380: # THIS JOB INITIALIZES THE LANDING RADAR READ ROUTINE FOR 5 VELOCITY 037494,001381: # SAMPLES AND GOES TO SLEEP WHILE THE SAMPLING IS DONE -- ABOUT 500 MS. 037495,001382: # WITH A GOODEND RETURN THE DATA IS STORED IN VMEAS AND BIT7 OF LRSTAT 037496,001383: # IS SET. THE GIMBAL ANGLES ARE READ ABOUT MIDWAY IN THE SAMPLINGS. 037497,001384: 037498,001385: 33,3556 4361 170MS EQUALS ND1 037499,001386: 037500,001387: 33,3556 34361 LRVJOB CA 170MS # SET TASK TO READ CDUS + PIPAS 037501,001388: 33,3557 05203 TC WAITLIST 037502,001389: 33,3560 E4,1652 EBANK= LRVTIME 037503,001390: 33,3560 03632 70064 2CADR RDGIMS 037504,001391: 037505,001392: 33,3562 11651 CCS VSELECT # SEQUENCE LR VEL BEAM SELECTOR 037506,001393: 33,3563 13565 TCF +2 037507,001394: 33,3564 34752 CAF TWO # IF ZERO, RESET TO TWO 037508,001395: 33,3565 60000 DOUBLE # 2XVSELECT USED FOR VBEAM INDEX IN LRVEL 037509,001396: 33,3566 04616 TC BANKCALL # GO INITIALIZE LR VEL READ ROUTINE 037510,001397: 33,3567 53116 CADR LRVEL 037511,001398: 33,3570 04616 TC BANKCALL # PUT LRVJOB TO SLEEP ABOUT 500 MS 037512,001399: 33,3571 17705 CADR RADSTALL 037513,001400: 33,3572 13625 TCF VBAD 037514,001401: 33,3573 11675 CCS STILBADV # IS DATA GOOD JUST PRESENT? 037515,001402: 33,3574 13626 TCF VSTILBAD # JUST GOOD -- MUST WAIT 4 SECONDS. 037516,001403: 037517,001404: 33,3575 00004 INHINT 037518,001405: 33,3576 00006 EXTEND # GOOD RETURN -- STOW WAY VMEAS 037519,001406: 33,3577 31101 DCA SAMPLSUM 037520,001407: 33,3600 53653 DXCH VMEAS 037521,001408: 33,3601 34741 CA EBANK4 # FOR DOWNLINK 037522,001409: 33,3602 54003 TS EBANK 037523,001410: 33,3603 E4,1652 EBANK= LRVTIME 037524,001411: 037525,001412: 33,3603 00006 EXTEND 037526,001413: 33,3604 31653 DCA LRVTIME 037527,001414: 33,3605 53740 DXCH LRVTIMDL 037528,001415: 33,3606 00006 EXTEND 037529,001416: 33,3607 31655 DCA LRXCDU 037530,001417: 33,3610 53735 DXCH LRXCDUDL 037531,001418: 33,3611 31656 CA LRZCDU 037532,001419: 33,3612 55736 TS LRZCDUDL 037533,001420: 33,3613 35016 CA EBANK7 037534,001421: 33,3614 54003 TS EBANK 037535,001422: 33,3615 E7,1651 EBANK= VSELECT 037536,001423: 037537,001424: 33,3615 40107 CS FLGWRD11 # SET BIT TO INDICATE VELOCITY 037538,001425: 33,3616 74745 MASK VELDABIT # MEASUREMENT MADE 037539,001426: # Page 891 037540,001427: 33,3617 26107 ADS FLGWRD11 037541,001428: 33,3620 11651 ENDLRV CCS VSELECT # UPDATE VSELECT 037542,001429: 33,3621 13623 TCF +2 037543,001430: 33,3622 34752 CA TWO 037544,001431: 33,3623 55651 TS VSELECT 037545,001432: 33,3624 15155 TCF ENDOFJOB 037546,001433: 037547,001434: 33,3625 34752 VBAD CAF TWO # SET STILBAD TO WAIT 4 SECONDS 037548,001435: 33,3626 55675 VSTILBAD TS STILBADV 037549,001436: 33,3627 13620 TCF ENDLRV 037550,001437: 037551,001438: # LRHJOB IS SET BY LRHTASK WHEN LEM IS BELOW 25000 FT. THIS JOB 037552,001439: # INITIALIZES THE LR READ ROUTINE FOR AN ALT MEASUREMENT AND GOES TO 037553,001440: # SLEEP WHILE THE SAMPLING IS DONE -- ABOUT 95 MS. WITH A GOODEND RETURN 037554,001441: # THE ALT DATA IS STORED IN HMEAS AND BIT7 OF LRSTAT IS SET. 037555,001442: 037556,001443: 34,3571 BANK 34 037557,001444: 34,2000 SETLOC R12STUFF 037558,001445: 34,2000 BANK 037559,001446: 037560,001447: 34,3571 COUNT* $$/SERV 037561,001448: 037562,001449: 34,3571 04616 LRHJOB TC BANKCALL # INITIATE LR ALT MEASUREMENT 037563,001450: 34,3572 53102 CADR LRALT 037564,001451: 34,3573 04616 TC BANKCALL # LRHJOB TO SLEEP ABOUT 95MS 037565,001452: 34,3574 17705 CADR RADSTALL 037566,001453: 34,3575 13620 TCF HBAD 037567,001454: 34,3576 11674 CCS STILBADH # IS DATA GOOD JUST PRESENT? 037568,001455: 34,3577 13630 TCF HSTILBAD # JUST GOOD -- MUST WAIT 4 SECONDS. 037569,001456: 037570,001457: 34,3600 00004 INHINT 037571,001458: 34,3601 00006 EXTEND 037572,001459: 34,3602 31101 DCA SAMPLSUM # GOOD RETURN -- STORE AWAY LRH DATA 037573,001460: 34,3603 53655 DXCH HMEAS # LRH DATA 1.079 FT/BIT 037574,001461: 34,3604 00006 EXTEND # FOR DOWNLINK 037575,001462: 34,3605 31561 DCA PIPTIME1 037576,001463: 34,3606 53755 DXCH MKTIME 037577,001464: 037578,001465: 34,3607 00006 EXTEND 037579,001466: 34,3610 31156 DCA CDUTEMPY # CDUY,Z = AIG,AMG 037580,001467: 34,3611 53460 DXCH AIG 037581,001468: 037582,001469: 34,3612 31154 CA CDUTEMPX # CDUX = AOG 037583,001470: 34,3613 55461 TS AOG 037584,001471: 037585,001472: 34,3614 40107 CS FLGWRD11 # SET BIT TO INDICATE RANGE 037586,001473: 34,3615 74750 MASK RNGEDBIT # MEASUREMENT MADE. 037587,001474: 34,3616 26107 ADS FLGWRD11 037588,001475: 34,3617 05155 ENDLRH TC ENDOFJOB # TERMATE LRHJOB 037589,001476: 037590,001477: # Page 892 037591,001478: 34,3620 30101 HBAD CA FLAGWRD5 037592,001479: 34,3621 74742 MASK RNGSCBIT # IS BAD RETURN DUE TO SCALE CHANGE? 037593,001480: 34,3622 00006 EXTEND 037594,001481: 34,3623 13627 BZF HSTILBAD -1 # NO: RESET HSTILBAD 037595,001482: 34,3624 05516 TC DOWNFLAG # YES: RESET SCALE CHANGE BIT AND IGNORE 037596,001483: 34,3625 00120 ADRES RNGSCFLG 037597,001484: 34,3626 05155 TC ENDOFJOB 037598,001485: 037599,001486: 34,3627 34752 CAF TWO # SET STILBAD TO WAIT 4 SECONDS 037600,001487: 34,3630 55674 HSTILBAD TS STILBADH 037601,001488: 34,3631 05155 TC ENDOFJOB 037602,001489: 037603,001490: 34,3632 BANK 34 037604,001491: 34,2000 SETLOC SERV4 037605,001492: 34,2000 BANK 037606,001493: 037607,001494: 34,3632 COUNT* $$/SERV 037608,001495: 037609,001496: # RDGIMS IS A TASK SET UP BY LRVJOB TO PICK UP THE IMU CDUS AND TIME 037610,001497: # AT ABOUT THE MIDPOINT OF THE LR VEL READ ROUTINE WHEN 5 VEL SAMPLES 037611,001498: # ARE SPECIFIED. 037612,001499: 037613,001500: 34,3632 E4,1652 EBANK= LRVTIME 037614,001501: 34,3632 00006 RDGIMS EXTEND 037615,001502: 34,3633 30025 DCA TIME2 # PICK UP TIME2, TIME1 037616,001503: 34,3634 53653 DXCH LRVTIME # AND SAVE IN LRVTIME 037617,001504: 037618,001505: 34,3635 00006 EXTEND 037619,001506: 34,3636 30033 DCA CDUX # PICK UP CDUX AND CDUY 037620,001507: 34,3637 53655 DXCH LRXCDU # AND SAVE IN LRXCDU AND LRYCDU 037621,001508: 037622,001509: 34,3640 30034 CA CDUZ 037623,001510: 34,3641 55656 TS LRZCDU # SAVE CDUZ IN LRXCDU 037624,001511: 037625,001512: 34,3642 30037 CA PIPAX 037626,001513: 34,3643 55657 TS PIPTEM # SAVE PIPAX IN PIPTEM 037627,001514: 037628,001515: 34,3644 00006 EXTEND 037629,001516: 34,3645 30041 DCA PIPAY # PICK UP PIPAY AND PIPAZ 037630,001517: 34,3646 53661 DXCH PIPTEM +1 # AND SAVE IN PIPTEM +1 AND PIPTEM +2 037631,001518: 34,3647 05261 TC TASKOVER 037632,001519: 037633,001520: 33,3630 BANK 33 037634,001521: 33,2000 SETLOC SERVICES 037635,001522: 33,2000 BANK 037636,001523: 037637,001524: 33,3630 COUNT* $$/SERV 037638,001525: 037639,001526: 33,3630 E7,1515 EBANK= DVCNTR 037640,001527: # Page 893 037641,001528: # HIGATJOB IS SET APPROXIMATELY 6 SECONDS PRIOR TO HIGH GATE DURING 037642,001529: # THE DESCENT BURN PHASE OF LUNAR LANDING. THIS JOB INITIATES THE 037643,001530: # LANDING RADAR REPOSITIONING ROUTINE AND GOES TO SLEEP UNTIL THE 037644,001531: # LR ANTENNA MOVES FROM POSITION 1 TO POSITION 2. IF THE LR ANTENNA 037645,001532: # ACHIEVES POSITION 2 WITHIN 22 SECONDS THE ALTITUDE AND VELOCITY 037646,001533: # BEAM VECTORS ARE RECOMPUTED TO REFLECT THE NEW ORIENTATION WITH 037647,001534: # RESPECT TO THE NB. BIT10 OF LRSTAT IS CLEARED TO ALLOW LR 037648,001535: # MEASUREMENTS AND THE JOB TERMINATES. 037649,001536: 037650,001537: 33,3630 00004 REREPOS INHINT 037651,001538: 33,3631 40107 CS FLGWRD11 037652,001539: 33,3632 75015 MASK PRIO3 037653,001540: 33,3633 26107 ADS FLGWRD11 037654,001541: 037655,001542: 33,3634 04616 HIGATJOB TC BANKCALL # START LRPOS2 JOB 037656,001543: 33,3635 53454 CADR LRPOS2 037657,001544: 33,3636 04616 TC BANKCALL # PUT HIGATJOB TO SLEEP UNTIL JOB IS DONE 037658,001545: 33,3637 17705 CADR RADSTALL 037659,001546: 33,3640 13653 TCF POSALARM # BAD END ALARM 037660,001547: 037661,001548: 33,3641 37714 POSGOOD CA PRIO23 # REDUCE PRIORITY FOR INTERPRETIVE COMPS. 037662,001549: 33,3642 05146 TC PRIOCHNG 037663,001550: 037664,001551: 33,3643 03717 TC SETPOS2 # LR IN POS2 -- SET UP TRANSFORMATIONS 037665,001552: 037666,001553: 33,3644 05504 TC UPFLAG 037667,001554: 33,3645 00256 ADRES LPOS2FLG 037668,001555: 33,3646 05516 ENDPOS TC DOWNFLAG 037669,001556: 33,3647 00252 ADRES NOLRREAD # RESET NOLRREAD FLAG TO ENABLE LR READING 037670,001557: 33,3650 05353 LRRESTRT TC PHASCHNG 037671,001558: 037672,001559: 33,3651 00001 OCT 1 037673,001560: 33,3652 05155 TC ENDOFJOB 037674,001561: 037675,001562: 33,3653 33757 POSALARM CA OCT523 037676,001563: 33,3654 04616 TC BANKCALL 037677,001564: 33,3655 21563 CADR PRIOLARM # FLASH ALARM CODE 037678,001565: 33,3656 13650 TCF LRRESTRT # V34 -- TERMINATE R12 (NOLRRBIT SET) 037679,001566: 33,3657 13662 TCF P1CHK # PROCEED 037680,001567: 33,3660 13670 TCF P2CHK # V32E 037681,001568: 33,3661 05155 TC ENDOFJOB 037682,001569: 037683,001570: 33,3662 05504 P1CHK TC UPFLAG 037684,001571: 33,3663 00261 ADRES NO511FLG 037685,001572: 33,3664 34746 CA BIT6 037686,001573: 33,3665 03674 TC POSTST 037687,001574: 33,3666 03646 TC ENDPOS 037688,001575: 33,3667 13641 TCF POSGOOD # NOT POS1 -- CHANGE TO POS2 037689,001576: 037690,001577: 33,3670 34745 P2CHK CA BIT7 037691,001578: # Page 894 037692,001579: 33,3671 03674 TC POSTST 037693,001580: 33,3672 13641 TCF POSGOOD 037694,001581: 33,3673 13653 TCF POSALARM 037695,001582: 33,3674 00006 POSTST EXTEND 037696,001583: 33,3675 02033 RAND CHAN33 037697,001584: 33,3676 00006 EXTEND 037698,001585: 33,3677 16745 BZF TCQ 037699,001586: 33,3700 16742 TCF Q+1 037700,001587: 33,3701 04645 SETPOS1 TC MAKECADR # MUST BE CALLED BY BANKCALL 037701,001588: 33,3702 55656 TS LRADRET1 # SAVE RETURN CADR. SINCE BUP2 CLOBBERED 037702,001589: 037703,001590: 33,3703 34752 CAF TWO 037704,001591: 33,3704 55674 TS STILBADH # INITIALIZE STILBAD 037705,001592: 33,3705 55675 TS STILBADV # INITIALIZE STILBAD 037706,001593: 037707,001594: 33,3706 34755 CA ZERO # INDEX FOR LRALPHA, LRBETA IN POS 1. 037708,001595: 33,3707 55670 TS LRLCTR # SET L,M,R, ANS S TO ZERO 037709,001596: 33,3710 55672 TS LRMCTR 037710,001597: 33,3711 55671 TS LRRCTR 037711,001598: 33,3712 55673 TS LRSCTR 037712,001599: 33,3713 55651 TS VSELECT # INITIALIZE VSELECT 037713,001600: 037714,001601: 33,3714 03720 TC SETPOS # CONTINUE WITH COMPUTATIONS. 037715,001602: 037716,001603: 33,3715 31656 CA LRADRET1 037717,001604: 33,3716 04640 TC BANKJUMP # RETURN TO CALLER 037718,001605: 037719,001606: 33,3717 34752 SETPOS2 CA TWO # INDEX FOR POS2 037720,001607: 33,3720 56002 SETPOS XCH Q # SAVE INDEX IN Q 037721,001608: 33,3721 55650 TS LRADRET # SAVE RETURN 037722,001609: 037723,001610: 33,3722 35014 CA EBANK5 037724,001611: 33,3723 54003 TS EBANK 037725,001612: 33,3724 E5,1522 EBANK= LRALPHA 037726,001613: 037727,001614: 33,3724 00006 EXTEND 037728,001615: 33,3725 50002 INDEX Q 037729,001616: 33,3726 31523 DCA LRALPHA # LRALPHA IN A, LRBETA IN L 037730,001617: 33,3727 54771 TS CDUSPOT +4 # ROTATION ABOUT X 037731,001618: 33,3730 22765 LXCH CDUSPOT # ROTATION ABOUT Y 037732,001619: 33,3731 34755 CA ZERO 037733,001620: 33,3732 54767 TS CDUSPOT +2 # ZERO ROTATION ABOUT Z. 037734,001621: 037735,001622: 33,3733 35016 CA EBANK7 037736,001623: 33,3734 54003 TS EBANK 037737,001624: 33,3735 E7,1650 EBANK= LRADRET 037738,001625: 037739,001626: 33,3735 06042 TC INTPRET 037740,001627: 33,3736 45175 VLOAD CALL 037741,001628: # Page 895 037742,001629: 33,3737 06520 UNITY # CONVERT UNITY(ANTENNA) TO NB 037743,001630: 33,3740 47653 TRG*SMNB 037744,001631: 33,3741 26237 STOVL VYBEAMNB 037745,001632: 33,3742 06522 UNITX # CONVERT UNITX(ANTENNA) TO NB 037746,001633: 33,3743 77624 CALL 037747,001634: 33,3744 47673 *SMNB* 037748,001635: 33,3745 02245 STORE VXBEAMNB 037749,001636: 33,3746 76435 VXV VSL1 037750,001637: 33,3747 02237 VYBEAMNB 037751,001638: 33,3750 26231 STOVL VZBEAMNB # Z = X * Y 037752,001639: 33,3751 26003 HBEAMANT 037753,001640: 33,3752 77624 CALL 037754,001641: 33,3753 47673 *SMNB* # CONVERT TO NB 037755,001642: 33,3754 02273 STORE HBEAMNB 037756,001643: 33,3755 77776 EXIT 037757,001644: 037758,001645: 33,3756 01650 TC LRADRET 037759,001646: 037760,001647: 33,3757 00523 OCT523 OCT 00523 End of include-file SERVICER.agc. Parent file is MAIN.agc