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