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