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