Source Code
|
These source-code files are part of a reconstructed copy of Luminary 69/2,
the flown, final release of the Apollo 10 Lunar Module (LM) Apollo Guidance Computer (AGC) software.
The reconstruction is based on the source code of Luminary 69 — i.e., the
initial, unflown version, "revision 0" — of which
a contemporary listing was available. The code was then updated by incorporating the
differences between Luminary 69 and Luminary 69/2, known from other contemporary
documentation. The only such difference is the implementation in
Luminary 69/2 of the "R-2 Lunar Potential Model", the source code for which was taken
from program Luminary 99/1 (Apollo 11 LM), of which a contemporary listing was also available.
Finally, the now-reconstructed Luminary 69/2 was then validated by assembling it to
executable form and verifying that its memory banks had the correct checksums,
known from still other contemporary documentation.
Note that page numbers in the reconstructed code match those in the original Luminary 69
program listing, or in the ORBITAL INTEGRATION log section, in Luminary 99/1. Page numbers
would certainly differ somewhat in a contemporary Luminary 69/2 listing.
Moreover, annotations that were not present in the contemporary source code have been added
to the reconstructed code to justify each change in Luminary 69/2 relative to
Luminary 69. Here's a guide to the Apollo documentation referenced in those annotations:
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.
|
037792,000002: ## Copyright: Public domain.
037793,000003: ## Filename: SERVICER.agc
037794,000004: ## Purpose: A section of LUM69 revision 2.
037795,000005: ## It is part of the reconstructed source code for the flown
037796,000006: ## version of the flight software for the Lunar Module's (LM)
037797,000007: ## Apollo Guidance Computer (AGC) for Apollo 10. The code has
037798,000008: ## been recreated from a copy of Luminary revsion 069, using
037799,000009: ## changes present in Luminary 099 which were described in
037800,000010: ## Luminary memos 75 and 78. The code has been adapted such
037801,000011: ## that the resulting bugger words exactly match those specified
037802,000012: ## for LUM69 revision 2 in NASA drawing 2021152B, which gives
037803,000013: ## relatively high confidence that the reconstruction is correct.
037804,000014: ## Reference: pp. 858-896
037805,000015: ## Assembler: yaYUL
037806,000016: ## Contact: Ron Burkey <info@sandroid.org>.
037807,000017: ## Website: www.ibiblio.org/apollo/index.html
037808,000018: ## Mod history: 2019-07-27 MAS Created from Luminary 69.
037809,000019:
|
|
Page 858
|
037811,000021: 37,3374 BANK 37
037812,000022: 37,2000 SETLOC SERV1
037813,000023: 37,2000 BANK
037814,000024:
037815,000025: 37,3374 E7,1513 EBANK= DVCNTR
037816,000026: # ************************************* PREREAD **************************************************************
037817,000027:
037818,000028:
037819,000029: 37,3374 COUNT* $$/SERV
037820,000030:
037821,000031: 37,3374 34757 PREREAD CAF SEVEN # 5.7 SPOT TO SKIP LASTBIAS AFTER
037822,000032: 37,3375 03515 TC GNUFAZE5 # RESTART.
037823,000033: 37,3376 35031 CAF PRIO21
037824,000034: 37,3377 05072 TC NOVAC
037825,000035: 37,3400 E3,1460 EBANK= NBDX
037826,000036: 37,3400 03663 14063 2CADR LASTBIAS # DO LAST GYRO COMPENSATION IN FREE FALL
037827,000037:
037828,000038: 37,3402 03533 BIBIBIAS TC PIPASR +3 # CLEAR + READ PIPS LAST TIME IN FRE5+F133
037829,000039: # DO NOT DESTROY VALUE OF PIPTIME1
037830,000040:
037831,000041: 37,3403 40103 CS FLAGWRD7
037832,000042: 37,3404 74773 MASK SUPER011 # SET V37FLAG AND AVEGFLAG (BITS 5 AND 6
037833,000043: 37,3405 26103 ADS FLAGWRD7 # OF FLAGWRD7)
037834,000044:
037835,000045: 37,3406 44735 CS DRFTBIT
037836,000046: 37,3407 70076 MASK FLAGWRD2 # RESET DRIFTFLAG
037837,000047: 37,3410 54076 TS FLAGWRD2
037838,000048:
037839,000049: 37,3411 34751 CAF FOUR # INITIALIZE DV MONITOR
037840,000050: 37,3412 55257 TS PIPAGE
037841,000051:
037842,000052: 37,3413 33523 CAF ENDJBCAD # POINT OUTROUTE TO END-OF-JOB.
037843,000053: 37,3414 55260 TS OUTROUTE
037844,000054:
037845,000055: 37,3415 37707 CAF PRIO22
037846,000056: 37,3416 05105 TC FINDVAC # TO FIRST ENTRY TO AVERAGE G.
037847,000057: 37,3417 E7,1513 EBANK= DVCNTR
037848,000058: 37,3417 02421 66067 2CADR NORMLIZE
037849,000059:
037850,000060: 37,3421 34752 CA TWO # 5.2SPOT FOR REREADAC AND NORMLIZE
037851,000061: 37,3422 03511 GOREADAX TC GNUTFAZ5
037852,000062: 37,3423 35000 CA 2SECS # WAIT TWO SECONDS FOR READACCS
037853,000063: 37,3424 05224 TC VARDELAY
037854,000064:
|
|
Page 859
|
037856,000066: # ************************************* READACCS *************************************************************
037857,000067: 37,3425 43524 READACCS CS OCT37771 # THIS PIECE OF CODING ATTEMPTS TO
037858,000068: 37,3426 60030 AD TIME5 # SYNCHRONIZE READACCS WITH THE DIGITAL
037859,000069: 37,3427 10000 CCS A # AUTOPILOT SO THAT A PAXIS RUPT WILL
037860,000070: 37,3430 44753 CS ONE # OCCUR APPROXIMATELY 70 MILLISECONDS
037861,000071: 37,3431 13433 TCF +2 # FOLLOWING THE READACCS RUPT. THE 70 MS
037862,000072: 37,3432 34753 CA ONE # OFFSET WAS CHOSEN SO THAT THE PAXIS
037863,000073: 37,3433 26030 +2 ADS TIME5 # RUPT WOULD NOT OCCUR SIMULTANEOUSLY
037864,000074: # WITH ANY OF THE 8 SUBSEQUENT R10,R11
037865,000075: # INTERRUPTS -- THUS MINIMIZING THE POSS-
037866,000076: # IBILITY OF LOSING DOWNRUPTS.
037867,000077:
037868,000078: 37,3434 03530 TC PIPASR # READ THE PIPAS.
037869,000079:
037870,000080: 37,3435 34756 PIPSDONE CA FIVE
037871,000081: 37,3436 03515 TC GNUFAZE5
037872,000082: 37,3437 34753 REDO5.5 CAF ONE
037873,000083: 37,3440 55257 TS PIPAGE
037874,000084:
037875,000085: 37,3441 34736 CA PRIO20
037876,000086: 37,3442 05105 TC FINDVAC
037877,000087: 37,3443 E7,1513 EBANK= DVCNTR
037878,000088: 37,3443 02200 66067 2CADR SERVICER # SET UP SERVICER JOB
037879,000089:
037880,000090: 37,3445 34743 CA BIT9
037881,000091: 37,3446 00006 EXTEND
037882,000092: 37,3447 05011 WOR DSALMOUT # TURN ON TEST CONNECTOR OUTBIT
037883,000093:
037884,000094: 37,3450 30103 CA FLAGWRD7
037885,000095: 37,3451 74747 MASK AVEGFBIT
037886,000096: 37,3452 00006 EXTEND
037887,000097: 37,3453 13503 BZF AVEGOUT # AVEGFLAG DOWN - SET UP FINAL EXIT
037888,000098:
037889,000099: 37,3454 30102 CA FLAGWRD6
037890,000100: 37,3455 74744 MASK MUNFLBIT
037891,000101: 37,3456 00006 EXTEND
037892,000102: 37,3457 13501 BZF MAKEACCS # MUNFLAG CLEAR - BYPASS LR AND DISP.
037893,000103:
037894,000104: 37,3460 10755 CCS PHASE2
037895,000105: 37,3461 13501 TCF MAKEACCS # PHASE 2 ACTIVATED - AVOID MULTIPLE R10.
037896,000106:
037897,000107: 37,3462 34757 CAF SEVEN # SET PIPCTR FOR 4X/SEC RATE.
037898,000108: 37,3463 55056 TS PIPCTR
037899,000109:
037900,000110: 37,3464 40025 CS TIME1 # SET TBASE2 .05 SECONDS IN THE PAST.
037901,000111: 37,3465 64756 AD FIVE
037902,000112: 37,3466 64734 AD NEG1/2
037903,000113: 37,3467 64734 AD NEG1/2
037904,000114: 37,3470 57055 XCH TBASE2
037905,000115:
|
|
Page 860
|
037907,000117: 37,3471 34361 CAF DEC17 # 2.21SPOT FOR R10,R11
037908,000118: 37,3472 54001 TS L
037909,000119: 37,3473 40000 COM
037910,000120: 37,3474 52755 DXCH -PHASE2
037911,000121:
037912,000122: 37,3475 36007 CAF OCT24 # FIRST R10,R11 IN .200 SECONDS.
037913,000123: 37,3476 05203 TC WAITLIST
037914,000124: 37,3477 E7,1534 EBANK= UNIT/R/
037915,000125: 37,3477 02102 42067 2CADR R10,R11
037916,000126:
037917,000127: 37,3501 34751 MAKEACCS CA FOUR
037918,000128: 37,3502 13422 TCF GOREADAX # DO PHASE CHANGE AND RECALL READACCS
037919,000129:
037920,000130:
037921,000131: 37,3503 00006 AVEGOUT EXTEND
037922,000132: 37,3504 33522 DCA AVOUTCAD # SET UP FINAL SERVICER EXIT
037923,000133: 37,3505 53253 DXCH AVGEXIT
037924,000134:
037925,000135: 37,3506 34751 CA FOUR # SET 5.4 SPOT FOR REREADAC AND SERVICER
037926,000136: 37,3507 03511 TC GNUTFAZ5 # IF REREADAC IS CALLED, IT WILL EXIT
037927,000137: 37,3510 05261 TC TASKOVER # END TASK WITHOUT CALLING READACCS
037928,000138:
037929,000139:
037930,000140: 37,3511 54001 GNUTFAZ5 TS L # SAVE INPUT IN L
037931,000141: 37,3512 40025 CS TIME1
037932,000142: 37,3513 55063 TS TBASE5 # SET TBASE5
037933,000143: 37,3514 13516 TCF +2
037934,000144:
037935,000145:
037936,000146: 37,3515 54001 GNUFAZE5 TS L # SAVE INPUT IN L
037937,000147: 37,3516 40001 CS L # -PHASE IN A, PHASE IN L
037938,000148: 37,3517 52763 DXCH -PHASE5 # SET -PHASE5,PHASE5
037939,000149: 37,3520 00002 TC Q
037940,000150:
037941,000151:
037942,000152: 37,3521 E7,1513 EBANK= DVCNTR
037943,000153: 37,3521 03661 64067 AVOUTCAD 2CADR AVGEND
037944,000154:
037945,000155: 37,3523 77527 ENDJBCAD CADR SERVEXIT +2
037946,000156:
037947,000157: 37,3524 37771 OCT37771 OCT 37771
037948,000158:
037949,000159: 33,2200 BANK 33
037950,000160: 33,2000 SETLOC SERVICES
037951,000161: 33,2000 BANK
037952,000162:
037953,000163: 33,2200 COUNT* $$/SERV
037954,000164:
|
|
Page 861
|
037956,000166: # ************************************* SERVICER *************************************************************
037957,000167:
037958,000168: 33,2200 05353 SERVICER TC PHASCHNG # RESTART REREADAC + SERVICER
037959,000169: 33,2201 16035 OCT 16035
037960,000170: 33,2202 20000 OCT 20000
037961,000171: 33,2203 E7,1513 EBANK= DVCNTR
037962,000172: 33,2203 02211 66067 2CADR GETABVAL
037963,000173:
037964,000174: 33,2205 37715 CAF PRIO31 # INITIALIZE 1/PIPADT IN CASE RESTART HAS
037965,000175: 33,2206 55075 TS 1/PIPADT # CAUSED LASTBIAS TO BE SKIPPED.
037966,000176:
037967,000177:
037968,000178: 33,2207 04616 TC BANKCALL # PIPA COMPENSATION CALL
037969,000179: 33,2210 15263 CADR 1/PIPA
037970,000180:
037971,000181: 33,2211 06036 GETABVAL TC INTPRET
037972,000182: 33,2212 51575 VLOAD ABVAL
037973,000183: 33,2213 00325 DELV
037974,000184: 33,2214 77776 EXIT
037975,000185: 33,2215 30154 CA MPAC
037976,000186: 33,2216 55246 TS ABDELV # ABDELV = CM/SEC*2(-14).
037977,000187: 33,2217 00006 EXTEND
037978,000188: 33,2220 72020 MP KPIP
037979,000189: 33,2221 53512 DXCH ABDVCONV # ABDVCONV = M/CS * 2(-5).
037980,000190: 33,2222 00006 EXTEND
037981,000191: 33,2223 31245 DCA MASS
037982,000192: 33,2224 53567 DXCH MASS1 # INITIALIZE MASS1 IN CASE WE SKIP MASSMON
037983,000193: 33,2225 40104 MASSMON CS FLAGWRD8 # ARE WE ON THE SURFACE?
037984,000194: 33,2226 74744 MASK SURFFBIT
037985,000195: 33,2227 00006 EXTEND
037986,000196: 33,2230 12251 BZF MOONSPOT # YES: BYPASS MASS MESS
037987,000197:
037988,000198: 33,2231 30106 CA FLGWRD10 # NO: WHICH VEX SHOULD BE USED?
037989,000199: 33,2232 74737 MASK APSFLBIT
037990,000200: 33,2233 10000 CCS A
037991,000201: 33,2234 00006 EXTEND # IF EXTEND IS EXECUTED, APSVEX --> A,
037992,000202: 33,2235 32001 DCA APSVEX # OTHERWISE DPSVEX --> A
037993,000203: 33,2236 54002 TS Q
037994,000204:
037995,000205: 33,2237 00006 EXTEND
037996,000206: 33,2240 31512 DCA ABDVCONV
037997,000207: 33,2241 00006 EXTEND
037998,000208: 33,2242 10002 OCT10002 DV Q # WHERE APPROPRIATE VEX RESIDES
037999,000209: 33,2243 00006 EXTEND
038000,000210: 33,2244 71244 MP MASS
038001,000211: 33,2245 53567 DXCH MASS1
038002,000212: 33,2246 00006 EXTEND
038003,000213: 33,2247 31245 DCA MASS
038004,000214: 33,2250 21567 DAS MASS1
038005,000215:
|
|
Page 862
|
038007,000217: 33,2251 32021 MOONSPOT CA KPIP1 # TP MPAC = ABDELV AT 2(14) CM/SEC
038008,000218: 33,2252 07306 TC SHORTMP # MULTIPLY BY KPIP1 TO GET
038009,000219: 33,2253 52155 DXCH MPAC # ABDELV AT 2(7) M/CS
038010,000220: 33,2254 21506 DAS DVTOTAL # UPDATE DVTOTAL FOR DISPLAY
038011,000221:
038012,000222: 33,2255 37711 CA PRIO24 # PROTECT NBSM IN XNBNDX
038013,000223: 33,2256 05146 TC PRIOCHNG
038014,000224:
038015,000225: 33,2257 02473 TC TMPTOSPT
038016,000226:
038017,000227: 33,2260 04616 TC BANKCALL
038018,000228: 33,2261 47521 CADR QUICTRIG
038019,000229:
038020,000230: 33,2262 06036 TC INTPRET
038021,000231: 33,2263 45160 AXC,1 CALL
038022,000232: 33,2264 02145 XNBPIP
038023,000233: 33,2265 31271 XNBNDX
038024,000234: 33,2266 77776 EXIT
038025,000235:
038026,000236: 33,2267 34736 CA PRIO20 # RESTORE PRIO 20
038027,000237: 33,2270 05146 TC PRIOCHNG
038028,000238:
038029,000239: 33,2271 06036 TC INTPRET
038030,000240: 33,2272 45014 AVERAGEG BON CALL
038031,000241: 33,2273 03307 MUNFLAG
038032,000242: 33,2274 67064 RVBOTH
038033,000243: 33,2275 67030 CALCRVG
038034,000244: 33,2276 77776 EXIT
038035,000245: 33,2277 03535 GOSERV TC QUIKFAZ5
038036,000246:
038037,000247: 33,2300 02456 COPYCYCL TC COPYCYC
038038,000248:
038039,000249: # CA ZERO A IS ZERO ON RETURN FROM COPYCYC
038040,000250: 33,2301 55160 TS PIPATMPX # STILL UNDER INHINT
038041,000251: 33,2302 55161 TS PIPATMPY
038042,000252: 33,2303 55162 TS PIPATMPZ
038043,000253:
038044,000254: 33,2304 44741 CS STEERBIT # CLEAR STEERSW PRIOR TO DVMON.
038045,000255: 33,2305 70076 MASK FLAGWRD2
038046,000256: 33,2306 54076 TS FLAGWRD2
038047,000257:
038048,000258: 33,2307 34745 CAF IDLEFBIT # IS THE IDLE FLAG SET?
038049,000259: 33,2310 70103 MASK FLAGWRD7
038050,000260: 33,2311 10000 CCS A
038051,000261: 33,2312 12345 TCF NODVMON1 # IDLEFLAG = 1, HENCE SET AUXFLAG TO 0.
038052,000262:
038053,000263: 33,2313 40102 CS FLAGWRD6
038054,000264: 33,2314 74752 MASK AUXFLBIT
038055,000265: 33,2315 10000 CCS A
038056,000266: 33,2316 12351 TCF NODVMON2 # AUXFLAG = 0, HENCE SET AUXFLAG TO 1.
038057,000267:
|
|
Page 863
|
038059,000269:
038060,000270: 33,2317 41251 DVMON CS DVTHRUSH
038061,000271: 33,2320 61246 AD ABDELV
038062,000272: 33,2321 00006 EXTEND
038063,000273: 33,2322 62355 BZMF LOTHRUST
038064,000274:
038065,000275: 33,2323 40076 CS FLAGWRD2 # SET STEERSW.
038066,000276: 33,2324 74741 MASK STEERBIT
038067,000277: 33,2325 26076 ADS FLAGWRD2
038068,000278:
038069,000279: 33,2326 34753 DVCNTSET CAF ONE # ALLOW TWO PASSES MAXIMUM NOW THAT
038070,000280: 33,2327 55513 TS DVCNTR # THRUXT HAS BEEN DETECTED.
038071,000281:
038072,000282: 33,2330 30106 CA FLGWRD10 # BRANCH IF APSFLAG IS SET.
038073,000283: 33,2331 74737 MASK APSFLBIT
038074,000284: 33,2332 10000 CCS A
038075,000285: 33,2333 12400 TCF USEJETS
038076,000286:
038077,000287: 33,2334 34743 CA BIT9 # CHECK GIMBAL FAIL BIT
038078,000288: 33,2335 00006 EXTEND
038079,000289: 33,2336 02032 RAND CHAN32
038080,000290: 33,2337 00006 EXTEND
038081,000291: 33,2340 12400 BZF USEJETS
038082,000292:
038083,000293: 33,2341 44736 USEGTS CS USEQRJTS
038084,000294: 33,2342 70111 MASK DAPBOOLS
038085,000295: 33,2343 54111 TS DAPBOOLS
038086,000296: 33,2344 12403 TCF SERVOUT
038087,000297:
038088,000298: 33,2345 44752 NODVMON1 CS AUXFLBIT # SET AUXFLAG TO 0.
038089,000299: 33,2346 70102 MASK FLAGWRD6
038090,000300: 33,2347 54102 TS FLAGWRD6
038091,000301: 33,2350 12400 TCF USEJETS
038092,000302: 33,2351 40102 NODVMON2 CS FLAGWRD6 # SET AUXFLAG TO 1.
038093,000303: 33,2352 74752 MASK AUXFLBIT
038094,000304: 33,2353 26102 ADS FLAGWRD6
038095,000305: 33,2354 12400 TCF USEJETS
038096,000306:
038097,000307: 33,2355 03535 LOTHRUST TC QUIKFAZ5
038098,000308: 33,2356 11513 CCS DVCNTR
038099,000309: 33,2357 12371 TCF DECCNTR
038100,000310:
038101,000311: 33,2360 10761 CCS PHASE4 # COMFAIL JOB ACTIVE?
038102,000312: 33,2361 12403 TCF SERVOUT # YES WON'T NEED ANOTHER.
038103,000313:
038104,000314: 33,2362 05353 TC PHASCHNG # 4.37SPOT FOR COMFAIL.
038105,000315: 33,2363 00374 OCT 00374
038106,000316:
038107,000317: 33,2364 37712 CAF PRIO25
038108,000318: 33,2365 05072 TC NOVAC
038109,000319: 33,2366 E7,1453 EBANK= WHICH
038110,000320:
|
|
Page 864
|
038112,000322: 33,2366 02574 74067 2CADR COMFAIL
038113,000323: 33,2370 12403 TCF SERVOUT
038114,000324:
038115,000325: 33,2371 55566 DECCNTR TS DVCNTR1
038116,000326: 33,2372 03535 TC QUIKFAZ5
038117,000327: 33,2373 31566 CA DVCNTR1
038118,000328: 33,2374 55513 TS DVCNTR
038119,000329: 33,2375 00004 INHINT
038120,000330: 33,2376 04674 TC IBNKCALL # IF THRUST IS LOW, NO STEERING IS DONE
038121,000331: 33,2377 40165 CADR STOPRATE # AND THE DESIRED RATES ARE SET TO ZERO.
038122,000332: 33,2400 40111 USEJETS CS DAPBOOLS
038123,000333: 33,2401 74736 MASK USEQRJTS
038124,000334: 33,2402 26111 ADS DAPBOOLS
038125,000335: 33,2403 00003 SERVOUT RELINT
038126,000336: 33,2404 04616 TC BANKCALL
038127,000337: 33,2405 40457 CADR 1/ACCS
038128,000338:
038129,000339: 33,2406 35016 CAF EBANK7 # RESTORE EBANK AFTER 1/ACCS.
038130,000340: 33,2407 54003 TS EBANK
038131,000341: 33,2410 30167 CA PRIORITY
038132,000342: 33,2411 75004 MASK LOW9
038133,000343: 33,2412 54166 TS PUSHLOC
038134,000344: 33,2413 22007 ZL
038135,000345: 33,2414 52121 DXCH FIXLOC # FIXLOC AND OVFIND
038136,000346:
038137,000347: 33,2415 03535 TC QUIKFAZ5
038138,000348: 33,2416 00006 EXTEND # EXIT TO SELECTED ROUTINE WHETHER THERE
038139,000349: 33,2417 31253 DCA AVGEXIT # IS THRUST OR NOT. THE STATE OF STEERSW
038140,000350: 33,2420 52006 DXCH Z # WILL CONVEY THIS INFORMATION.
038141,000351:
038142,000352: 32,3661 BANK 32
038143,000353: 32,2000 SETLOC SERV2
038144,000354: 32,2000 BANK
038145,000355: 32,3661 COUNT* $$/SERV
038146,000356:
038147,000357: 32,3661 31235 AVGEND CA PIPTIME +1 # FINAL AVERAGE G EXIT
038148,000358: 32,3662 55075 TS 1/PIPADT # SET UP FREE FALL GYRO COMPENSATION.
038149,000359:
038150,000360: 32,3663 05504 TC UPFLAG # SET DRIFT FLAG.
038151,000361: 32,3664 00036 ADRES DRIFTFLG
038152,000362:
038153,000363: 32,3665 04616 TC BANKCALL
038154,000364: 32,3666 17263 CADR PIPFREE
038155,000365:
038156,000366: 32,3667 44743 CS BIT9
038157,000367: 32,3670 00006 EXTEND
038158,000368: 32,3671 03011 WAND DSALMOUT
038159,000369:
038160,000370: 32,3672 05327 TC 2PHSCHNG
038161,000371:
|
|
Page 865
|
038163,000373: 32,3673 00005 OCT 5 # GROUP 5 OFF
038164,000374: 32,3674 05022 OCT 05022 # GROUP 2 ON
038165,000375: 32,3675 20000 OCT 20000
038166,000376:
038167,000377: 32,3676 06036 TC INTPRET
038168,000378: 32,3677 43014 SET CLEAR
038169,000379: 32,3700 01464 NOR29FLG # SHUT OFF R29 WHEN SERVICER ENDS.
038170,000380: 32,3701 03664 SWANDISP # SHUT OFF R10 WHEN SERVICER ENDS.
038171,000381: 32,3702 45014 CLEAR CALL # RESET MUNFLAG.
038172,000382: 32,3703 03267 MUNFLAG
038173,000383: 32,3704 27513 AVETOMID
038174,000384: 32,3705 77414 CLEAR EXIT
038175,000385: 32,3706 03671 V37FLAG
038176,000386: 32,3707 31260 AVERTRN CA OUTROUTE # RETURN TO DESIRED POINT.
038177,000387: 32,3710 04640 TC BANKJUMP
038178,000388:
038179,000389: 32,3711 32,3707 OUTGOAVE = AVERTRN
038180,000390:
038181,000391: 32,3711 E7,1566 DVCNTR1 = MASS1
038182,000392:
|
|
Page 866
|
038184,000394: 32,3711 00006 SERVIDLE EXTEND # DISCONNECT SERVICER FROM ALL GUIDANCE
038185,000395: 32,3712 33747 DCA SVEXTADR
038186,000396: 32,3713 53253 DXCH AVGEXIT
038187,000397:
038188,000398: 32,3714 40103 CS FLAGWRD7 # DISCONNECT THE DELTA-V MONITOR
038189,000399: 32,3715 74745 MASK IDLEFBIT
038190,000400: 32,3716 26103 ADS FLAGWRD7
038191,000401:
038192,000402: 32,3717 34735 CAF LRBYBIT # TERMINATE R12 IF RUNNING.
038193,000403: 32,3720 54107 TS FLGWRD11
038194,000404:
038195,000405: 32,3721 00006 EXTEND
038196,000406: 32,3722 34755 DCA NEG0
038197,000407: 32,3723 52753 DXCH -PHASE1
038198,000408:
038199,000409: 32,3724 30102 CA FLAGWRD6 # DO NOT TURN OFF PHASE 2 IF MUNFLAG SET.
038200,000410: 32,3725 74744 MASK MUNFLBIT
038201,000411: 32,3726 10000 CCS A
038202,000412: 32,3727 13733 TCF +4
038203,000413:
038204,000414: 32,3730 00006 EXTEND
038205,000415: 32,3731 34755 DCA NEG0
038206,000416: 32,3732 52755 DXCH -PHASE2
038207,000417:
038208,000418: 32,3733 00006 +4 EXTEND
038209,000419: 32,3734 34755 DCA NEG0
038210,000420: 32,3735 52757 DXCH -PHASE3
038211,000421:
038212,000422: 32,3736 00006 EXTEND
038213,000423: 32,3737 34755 DCA NEG0
038214,000424: 32,3740 52765 DXCH -PHASE6
038215,000425:
038216,000426: 32,3741 34764 CAF OCT33 # 4.33SPOT FOR GOPOOFIX
038217,000427: 32,3742 54001 TS L
038218,000428: 32,3743 40000 COM
038219,000429: 32,3744 52761 DXCH -PHASE4
038220,000430:
038221,000431: 32,3745 15644 TCF WHIMPER # PERFORM A SOFTWARE RESTART AND PROCEED
038222,000432: # TO GOTOPOOH WHILE SERVICER CONTINUES TO
038223,000433: # RUN, ALBEIT IN A GROUND STATE WHERE
038224,000434: # ONLY STATE-VECTOR DEPENDENT FUNCTIONS
038225,000435: # ARE MAINTAINED.
038226,000436:
038227,000437: 32,3746 E7,1513 EBANK= DVCNTR
038228,000438: 32,3746 03525 76067 SVEXTADR 2CADR SERVEXIT
038229,000439: 32,3750 BANK 32
038230,000440: 37,2000 SETLOC SERV1
038231,000441:
|
|
Page 867
|
038233,000443: 37,2000 BANK
038234,000444: 37,3525 COUNT* $$/SERV
038235,000445:
038236,000446: 37,3525 36244 SERVEXIT CA THREE
038237,000447: 37,3526 03515 TC GNUFAZE5
038238,000448:
038239,000449: 37,3527 15155 +2 TCF ENDOFJOB
038240,000450:
038241,000451: 23,2413 BANK 23
038242,000452: 33,2000 SETLOC SERVICES
038243,000453: 33,2000 BANK
038244,000454:
038245,000455: 33,2421 COUNT* $$/SERV
038246,000456:
|
|
Page 868
|
038248,000458: # NORMLIZE AND COPYCYCL
038249,000459:
038250,000460: 33,2421 06036 NORMLIZE TC INTPRET
038251,000461: 33,2422 43175 VLOAD BOFF
038252,000462: 33,2423 03543 RN1
038253,000463: 33,2424 03347 MUNFLAG
038254,000464: 33,2425 66450 NORMLIZ1
038255,000465: 33,2426 64252 VSL6 MXV
038256,000466: 33,2427 01734 REFSMMAT
038257,000467: 33,2430 37517 STCALL R
038258,000468: 33,2431 67162 MUNGRAV
038259,000469: 33,2432 76575 VLOAD VSL1
038260,000470: 33,2433 03551 VN1
038261,000471: 33,2434 77721 MXV
038262,000472: 33,2435 01734 REFSMMAT
038263,000473: 33,2436 27525 STOVL V
038264,000474: 33,2437 01726 V(CSM)
038265,000475: 33,2440 53435 VXV UNIT
038266,000476: 33,2441 01720 R(CSM)
038267,000477: 33,2442 03716 STORE UHYP
038268,000478: 33,2443 77776 ASCSPOT EXIT
038269,000479: 33,2444 00006 EXTEND # MAKE SURE GOUP 2 IS OFF.
038270,000480: 33,2445 34755 DCA NEG0
038271,000481: 33,2446 52755 DXCH -PHASE2
038272,000482:
038273,000483: 33,2447 12453 TCF NORMLIZ2
038274,000484:
038275,000485: 33,2450 77624 NORMLIZ1 CALL
038276,000486: 33,2451 66762 CALCGRAV
038277,000487: 33,2452 77776 EXIT
038278,000488:
038279,000489: 33,2453 32472 NORMLIZ2 CA EIGHTEEN
038280,000490: 33,2454 02457 TC COPYCYC +1 # DO NOT COPY MASS IN NORMLIZE
038281,000491: 33,2455 05155 TC ENDOFJOB
038282,000492:
038283,000493:
038284,000494: 33,2456 36007 COPYCYC CA OCT24 # DEC 20
038285,000495: 33,2457 00004 +1 INHINT
038286,000496: 33,2460 77746 +2 MASK NEG1 # REDUCE BY 1 IF ODD
038287,000497: 33,2461 54061 TS ITEMP1
038288,000498: 33,2462 00006 EXTEND
038289,000499: 33,2463 50061 INDEX ITEMP1
038290,000500: 33,2464 31543 DCA RN1
038291,000501: 33,2465 50061 INDEX ITEMP1
038292,000502: 33,2466 53221 DXCH RN
038293,000503: 33,2467 10061 CCS ITEMP1
038294,000504: 33,2470 12460 TCF COPYCYC +2
038295,000505: 33,2471 00002 TC Q # RETURN UNDER INHINT
038296,000506:
|
|
Page 869
|
038298,000508:
038299,000509: 33,2472 00022 EIGHTEEN DEC 18 B-14
038300,000510:
|
|
Page 870
|
038302,000512: # ******************* PIPA READER ********************
038303,000513:
038304,000514: # MOD NO. 00 BY D. LICKLY DEC.9 1966
038305,000515:
038306,000516:
038307,000517: # FUNCTIONAL DESCRIPTION
038308,000518:
038309,000519: # SUBROUTINE TO READ PIPA COUNTERS, TRYING TO BE VERY CAREFUL SO THAT IT WILL BE RESTARTABLE.
038310,000520: # PIPA READINGS ARE STORED IN THE VECTOR DELV. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS THE PIPA READING,
038311,000521: # RESTARTS BEGIN AT REREADAC.
038312,000522:
038313,000523:
038314,000524: # AT THE END OF THE PIPA READER THE CDUS ARE READ AND STORED AS A
038315,000525: # VECTOR IN CDUTEMP. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS
038316,000526: # THE CDU READING IN 2S COMP IN THE ORDER CDUX,Y,Z. THE THRUST
038317,000527: # VECTOR ESTIMATOR IN FINDCDUD REQUIRES THE CDUS BE READ AT PIPTIME.
038318,000528:
038319,000529: # CALLING SEQUENCE AND EXIT
038320,000530:
038321,000531: # CALL VIA TC, ISWCALL, ETC.
038322,000532:
038323,000533: # EXIT IS VIA Q.
038324,000534:
038325,000535:
038326,000536:
038327,000537:
038328,000538: # INPUT
038329,000539:
038330,000540: # INPUT IS THROUGH THE COUNTERS PIPAX, PIPAY, PIPAZ, AND TIME2.
038331,000541:
038332,000542:
038333,000543: # OUTPUT
038334,000544:
038335,000545: # HIGH ORDER COMPONENTS OF THE VECTOR DELV CONTAIN THE PIPA READINGS.
038336,000546: # PIPTIME CONTAINS TIME OF PIPA READING.
038337,000547:
038338,000548:
038339,000549: # DEBRIS (ERASABLE LOCATIONS DESTROYED BY PROGRAM)
038340,000550:
038341,000551: # TEMX TEMY TEMZ PIPAGE
038342,000552:
038343,000553: 37,3530 BANK 37
038344,000554: 37,2000 SETLOC SERV1
038345,000555: 37,2000 BANK
038346,000556:
038347,000557: 37,3530 COUNT* $$/SERV
038348,000558:
038349,000559: 37,3530 00006 PIPASR EXTEND
038350,000560:
|
|
Page 871
|
038352,000562: 37,3531 30025 DCA TIME2
038353,000563: 37,3532 53557 DXCH PIPTIME1 # CURRENT TIME POSITIVE VALUE
038354,000564: 37,3533 44755 +3 CS ZERO # INITIALIZE THESE AT NEG. ZERO.
038355,000565: 37,3534 55254 TS TEMX
038356,000566: 37,3535 55255 TS TEMY
038357,000567: 37,3536 55256 TS TEMZ
038358,000568:
038359,000569: 37,3537 34755 CA ZERO
038360,000570: 37,3540 54330 TS DELVZ # OTHER DELVS OK INCLUDING LOW ORDER
038361,000571: 37,3541 54326 TS DELVY
038362,000572: 37,3542 55257 TS PIPAGE # SHOW PIPA READING IN PROGRESS
038363,000573:
038364,000574: 37,3543 00006 REPIP1 EXTEND
038365,000575: 37,3544 40040 DCS PIPAX # X AND Y PIPS READ
038366,000576: 37,3545 53255 DXCH TEMX
038367,000577: 37,3546 52040 DXCH PIPAX # PIPAS SET TO NEG ZERO AS READ.
038368,000578: 37,3547 54324 TS DELVX
038369,000579: 37,3550 22326 LXCH DELVY
038370,000580:
038371,000581: 37,3551 40041 REPIP3 CS PIPAZ # REPEAT PROCESS FOR Z PIP
038372,000582: 37,3552 57256 XCH TEMZ
038373,000583: 37,3553 56041 XCH PIPAZ
038374,000584: 37,3554 54330 DODELVZ TS DELVZ
038375,000585:
038376,000586: 37,3555 00006 REPIP4 EXTEND # COMPUTE GUIDANCE PERIOD
038377,000587: 37,3556 31557 DCA PIPTIME1
038378,000588: 37,3557 53250 DXCH PGUIDE
038379,000589: 37,3560 00006 EXTEND
038380,000590: 37,3561 41235 DCS PIPTIME
038381,000591: 37,3562 21250 DAS PGUIDE
038382,000592:
038383,000593: 37,3563 30032 CA CDUX # READ CDUS INTO HIGH ORDER CDUTEMPS
038384,000594: 37,3564 55155 TS CDUTEMPX
038385,000595: 37,3565 30033 CA CDUY
038386,000596: 37,3566 55156 TS CDUTEMPY
038387,000597: 37,3567 30034 CA CDUZ
038388,000598: 37,3570 55157 TS CDUTEMPZ
038389,000599: 37,3571 30324 CA DELVX
038390,000600: 37,3572 55160 TS PIPATMPX
038391,000601: 37,3573 30326 CA DELVY
038392,000602: 37,3574 55161 TS PIPATMPY
038393,000603: 37,3575 30330 CA DELVZ
038394,000604: 37,3576 55162 TS PIPATMPZ
038395,000605:
038396,000606: 37,3577 00002 TC Q
038397,000607:
038398,000608:
038399,000609: 37,3600 11257 REREADAC CCS PIPAGE
038400,000610: 37,3601 13425 TCF READACCS # PIP READING NOT STARTED. GO TO BEGINNING
038401,000611:
|
|
Page 872
|
038403,000613:
038404,000614: 37,3602 33640 CAF DONEADR # SET UP RETURN FROM PIPASR
038405,000615: 37,3603 54002 TS Q
038406,000616:
038407,000617: 37,3604 10330 CCS DELVZ
038408,000618: 37,3605 13555 TCF REPIP4 # Z DONE, GO DO CDUS
038409,000619: 37,3606 13611 TCF +3 # Z NOT DONE, CHECK Y.
038410,000620: 37,3607 13555 TCF REPIP4
038411,000621: 37,3610 13555 TCF REPIP4
038412,000622:
038413,000623: 37,3611 22007 ZL
038414,000624: 37,3612 10326 CCS DELVY
038415,000625: 37,3613 13616 TCF +3
038416,000626: 37,3614 13625 TCF CHKTEMX # Y NOT DONE, CHECK X.
038417,000627: 37,3615 13616 TCF +1
038418,000628: 37,3616 22041 LXCH PIPAZ # Y DONE, ZERO Z PIP.
038419,000629:
038420,000630: 37,3617 11256 CCS TEMZ
038421,000631: 37,3620 41256 CS TEMZ # TEMZ NOT = -0, CONTAINS -PIPAZ VALUE.
038422,000632: 37,3621 13554 TCF DODELVZ
038423,000633: 37,3622 13620 TCF -2
038424,000634: 37,3623 22330 LXCH DELVZ # TEMZ = -0, L HAS ZPIP VALUE.
038425,000635: 37,3624 13555 TCF REPIP4
038426,000636:
038427,000637: 37,3625 11254 CHKTEMX CCS TEMX # HAS THIS CHANGED
038428,000638: 37,3626 41254 CS TEMX # YES
038429,000639: 37,3627 13632 TCF +3 # YES
038430,000640: 37,3630 13626 TCF -2 # YES
038431,000641: 37,3631 13543 TCF REPIP1 # NO
038432,000642: 37,3632 54324 TS DELVX
038433,000643:
038434,000644: 37,3633 41255 CS TEMY
038435,000645: 37,3634 54326 TS DELVY
038436,000646:
038437,000647: 37,3635 44755 CS ZERO # ZERO X AND Y PIPS
038438,000648: 37,3636 52040 DXCH PIPAX # L STILL ZERO FROM ABOVE
038439,000649:
038440,000650: 37,3637 13551 TCF REPIP3
038441,000651:
038442,000652: 37,3640 03435 DONEADR GENADR PIPSDONE
038443,000653:
|
|
Page 873
|
038445,000655: 33,2473 BANK 33
038446,000656: 33,2000 SETLOC SERVICES
038447,000657: 33,2000 BANK
038448,000658:
038449,000659: 33,2473 COUNT* $$/SERV
038450,000660:
038451,000661: 33,2473 31156 TMPTOSPT CA CDUTEMPY # THIS SUBROUTINE, CALLED BY AN RTB FROM
038452,000662: 33,2474 54766 TS CDUSPOTY # INTERPRETIVE, LOADS THE CDUS CORRESPON-
038453,000663: 33,2475 31157 CA CDUTEMPZ # DING TO PIPTIME INTO THE CDUSPOT VECTOR.
038454,000664: 33,2476 54770 TS CDUSPOTZ
038455,000665: 33,2477 31155 CA CDUTEMPX
038456,000666: 33,2500 54772 TS CDUSPOTX
038457,000667: 33,2501 00002 TC Q
038458,000668:
038459,000669: # LRHTASK IS A WAITLIST TASK SET BY READACCS DURING THE DESCENT BRAKING
038460,000670: # PHASE WHEN THE ALT TO THE LUNAR SURFACE IS LESS THAN 25,000 FT. THIS
038461,000671: # TASK CLEARS THE ALTITUDE MEASUREMENT MADE DISCRETE AND INITIATES THE
038462,000672: # LANDING RADAR MEASUREMENT JOB (LRHJOB) TO TAKE A ALTITUDE MEASUREMENT
038463,000673: # 50 MS PRIOR TO THE NEXT READACCS TASK.
038464,000674:
038465,000675: 21,2314 BANK 21
038466,000676: 21,2000 SETLOC R10
038467,000677: 21,2000 BANK
038468,000678:
038469,000679: 21,2314 COUNT* $$/SERV
038470,000680:
038471,000681: 21,2314 40107 LRHTASK CS FLGWRD11
038472,000682: 21,2315 74735 MASK LRBYBIT
038473,000683: 21,2316 00006 EXTEND
038474,000684: 21,2317 12334 BZF GRP2OFF # LR BYPASS SET - BYPASS ALL LR READING.
038475,000685:
038476,000686: 21,2320 34746 CA READLBIT
038477,000687: 21,2321 70107 MASK FLGWRD11 # IS READLR FLAG SET?
038478,000688: 21,2322 00006 EXTEND
038479,000689: 21,2323 12334 BZF GRP2OFF # NO. BYPASS LR READ.
038480,000690:
038481,000691: 21,2324 40107 CS FLGWRD11
038482,000692: 21,2325 74742 MASK NOLRRBIT # IS LR READ INHIBITED?
038483,000693: 21,2326 00006 EXTEND
038484,000694: 21,2327 12334 BZF GRP2OFF # YES. BYPASS LR READ.
038485,000695:
038486,000696: 21,2330 37717 CA PRIO32 # LR READ OK SET JOB TO DO IT
038487,000697: 21,2331 05072 TC NOVAC # ABOUT 50 MS PRIOR TO PIPA READ
038488,000698: 21,2332 E7,1652 EBANK= HMEAS
038489,000699: 21,2332 03717 70067 2CADR LRHJOB
038490,000700: 21,2334 00006 GRP2OFF EXTEND
038491,000701: 21,2335 34755 DCA NEG0
038492,000702: 21,2336 52755 DXCH -PHASE2
038493,000703: 21,2337 12115 TCF R10,R11A
038494,000704:
|
|
Page 874
|
038496,000706:
038497,000707: 33,2502 BANK 33
038498,000708: 33,2000 SETLOC SERVICES
038499,000709: 33,2000 BANK
038500,000710:
038501,000711: 33,2502 COUNT* $$/SERV
038502,000712:
038503,000713: # HIGATASK IS ENTERED APPROXIMATELY 6 SECS PRIOR TO HIGATE DURING THE
038504,000714: # DESCENT PHASE. HIGATASK SETS THE HIGATE FLAG (BIT11) AND THE LR INHIBIT
038505,000715: # FLAG (BIT10) IN LRSTAT. THE HIGATJOB IS SET UP TO REPOSITION THE LR
038506,000716: # ANTENNA FROM POSITION 1 TO POSITION 2. IF THE REPOSITIONING IS
038507,000717: # SUCCESSFUL THE ALT BEAM AND VELOCITY BEAMS ARE TRANSFORMED TO THE NEW
038508,000718: # ORIENTATION IN NB COORDINATES AND STORED IN ERASABLE.
038509,000719:
038510,000720: 33,2502 00004 HIGATASK INHINT
038511,000721: 33,2503 45015 CS PRIO3 # SET HIGATE AND LR INHIBIT FLAGS
038512,000722: 33,2504 70107 MASK FLGWRD11
038513,000723: 33,2505 65015 AD PRIO3
038514,000724: 33,2506 54107 TS FLGWRD11
038515,000725: 33,2507 37717 CAF PRIO32
038516,000726: 33,2510 05105 TC FINDVAC # SET LR POSITIONING JOB (POS2)
038517,000727: 33,2511 E7,1652 EBANK= HMEAS
038518,000728: 33,2511 03653 66067 2CADR HIGATJOB
038519,000729: 33,2513 12573 TCF CONTSERV # CONTINUE SERVICER
038520,000730:
|
|
Page 875
|
038522,000732: # MUNRETRN IS THE RETURN LOC FROM SPECIAL AVE G ROUTINE (MUNRVG)
038523,000733:
038524,000734: 33,2514 77776 MUNRETRN EXIT
038525,000735:
038526,000736: 33,2515 40107 CS FLGWRD11
038527,000737: 33,2516 74735 MASK LRBYBIT
038528,000738: 33,2517 00006 EXTEND
038529,000739: 33,2520 12601 BZF COPYCYC1 # BYPASS LR LOGIC IF BIT15 IS SET.
038530,000740:
038531,000741: 33,2521 34746 CA READLBIT # SEE IF ALT < 35000 FT LAST CYCLE
038532,000742: 33,2522 70107 MASK FLGWRD11
038533,000743: 33,2523 00006 EXTEND
038534,000744: 33,2524 12753 BZF 35KCHK # ALT WAS > 35000 FT LAST CYCLE CHK NOW
038535,000745:
038536,000746: 33,2525 34743 CAF XORFLBIT # WERE WE BELOW 30000 FT LAST PASS?
038537,000747: 33,2526 70107 MASK FLGWRD11
038538,000748: 33,2527 00006 EXTEND
038539,000749: 33,2530 12742 BZF XORCHK # NO - TEST THIS PASS
038540,000750:
038541,000751: 33,2531 34741 HITEST CAF PSTHIBIT # CHECK FOR HIGATE
038542,000752: 33,2532 70107 MASK FLGWRD11
038543,000753: 33,2533 00006 EXTEND
038544,000754: 33,2534 12550 BZF HIGATCHK # NOT AT HIGATE LAST CYCLE-CHK THIS CYCLE
038545,000755:
038546,000756: 33,2535 34745 POS2CHK CAF BIT7 # VERIFY LR IN POS2
038547,000757: 33,2536 00006 EXTEND
038548,000758: 33,2537 02033 RAND CHAN33
038549,000759: 33,2540 00006 EXTEND
038550,000760: 33,2541 13205 BZF UPDATCHK # IT IS-CHECK FOR LR UPDATE
038551,000761: 33,2542 34737 CAF BIT13 # NOT IN POS2-MAYBE REPOSITIONING
038552,000762: 33,2543 00006 EXTEND
038553,000763: 33,2544 02012 RAND CHAN12
038554,000764: 33,2545 00006 EXTEND
038555,000765: 33,2546 12571 BZF LRPOSALM # LR NOT IN POS2 OR REPOSITIONING-BAD
038556,000766: 33,2547 12573 TCF CONTSERV # LR BEING REPOSITIONED-CONTINUE SERV
038557,000767:
038558,000768: 33,2550 31640 HIGATCHK CA TTF/8 # IS TTF > CRITERION? (TTF IS NEGATIVE)
038559,000769: 33,2551 61427 AD RPCRTIME
038560,000770: 33,2552 00006 EXTEND
038561,000771: 33,2553 62564 BZMF POS1CHK # NO
038562,000772:
038563,000773: 33,2554 34741 CA EBANK4 # MUST SWITCH EBANKS
038564,000774: 33,2555 56003 XCH EBANK
038565,000775: 33,2556 54001 TS L # SAVE IN L
038566,000776:
038567,000777: 33,2557 E4,1545 EBANK= XNBPIP
038568,000778: 33,2557 41545 CS XNBPIP # UXBXP IN GSOP CH5
038569,000779: 33,2560 E7,1513 EBANK= DVCNTR
038570,000780: 33,2560 22003 LXCH EBANK # RESTORE EBANK
038571,000781: 33,2561 61430 AD RPCRTQSW # QSW - UXBXP
038572,000782:
|
|
Page 876
|
038574,000784:
038575,000785: 33,2562 00006 EXTEND
038576,000786: 33,2563 62502 BZMF HIGATASK # IF UXBXP > QSW, THEN REPOSITION
038577,000787:
038578,000788: 33,2564 34746 POS1CHK CAF BIT6 # HIGATE NOT IN SIGHT-DO POS1 CHK
038579,000789: 33,2565 00006 EXTEND
038580,000790: 33,2566 02033 RAND 33
038581,000791: 33,2567 00006 EXTEND
038582,000792: 33,2570 13205 BZF UPDATCHK # LR IN POS1-CHECK FOR LR UPDATE
038583,000793:
038584,000794: 33,2571 05567 LRPOSALM TC ALARM # LR NOT IN PROPER POS-ALARM-BYPASS UPDATE
038585,000795: 33,2572 00511 OCT 511 # AND CONTINUE SERVICER
038586,000796: 33,2573 00004 CONTSERV INHINT
038587,000797: 33,2574 43204 CS BITS4-7
038588,000798: 33,2575 70107 MASK FLGWRD11 # CLEAR LR MEASUREMENT MADE DISCRETES.
038589,000799: 33,2576 54107 TS FLGWRD11
038590,000800:
038591,000801: 33,2577 04674 TC IBNKCALL # SET LR LITES PROPERLY
038592,000802: 33,2600 53607 CADR R12LITES
038593,000803:
|
|
Page 877
|
038595,000805: 33,2601 03535 COPYCYC1 TC QUIKFAZ5
038596,000806:
038597,000807: 33,2602 30077 R29? CA FLAGWRD3
038598,000808: 33,2603 75014 MASK NR29&RDR
038599,000809: 33,2604 10000 CCS A # IS NOR29FLG OR READRFLG SET?
038600,000810: 33,2605 12617 TCF R29NODES # YES, SO DON'T DESIGNATE.
038601,000811:
038602,000812: 33,2606 30110 CA RADMODES # NO, SO R29 IS CALLED FOR.
038603,000813: 33,2607 72242 MASK OCT10002 # IS THE RR NOT ZEROING ITS CDUS, AND
038604,000814: 33,2610 10000 CCS A # IS THE RENDEZVOUS RADAR IN AUTO MODE?
038605,000815: 33,2611 12617 TCF R29NODES # NO, SO DON'T DESIGNATE.
038606,000816:
038607,000817: 33,2612 30110 CA RADMODES
038608,000818: 33,2613 77707 MASK PRIO22
038609,000819: 33,2614 10000 CCS A # IS RR REPOSITIONING OR REMODING?
038610,000820: 33,2615 12623 TCF NOR29NOW # YES; COME BACK IN 2 SECONDS & TRY AGAIN.
038611,000821:
038612,000822: 33,2616 12045 TCF R29
038613,000823:
038614,000824: 33,2617 00004 R29NODES INHINT # R29 NOT ALLOWED THIS CYCLE.
038615,000825: 33,2620 44742 CS DESIGBIT # SHOW THAT DESIGNATION IS OFF.
038616,000826: 33,2621 70110 MASK RADMODES
038617,000827: 33,2622 54110 TS RADMODES
038618,000828:
038619,000829: 33,2623 06036 NOR29NOW TC INTPRET # INTPRET DOES A RELINT.
038620,000830: 33,2624 51575 VLOAD ABVAL # MPAC = ABVAL( NEW SM. POSITION VECTOR)
038621,000831: 33,2625 03571 R1S
038622,000832: 33,2626 45206 PUSH DSU # (2)
038623,000833: 33,2627 02337 /LAND/
038624,000834: 33,2630 03533 STORE HCALC # NEW HCALC*2(24)M.
038625,000835: 33,2631 47075 DMPR RTB
038626,000836: 33,2632 26026 ALTCONV
038627,000837: 33,2633 21516 SGNAGREE
038628,000838: 33,2634 27740 STOVL ALTBITS # ALTITUDE FOR R10 IN BIT UNITS.
038629,000839: 33,2635 03535 UNIT/R/
038630,000840: 33,2636 76435 VXV VSL1
038631,000841: 33,2637 03716 UHYP
038632,000842: 33,2640 27724 STOVL UHZP # DOWNRANGE HALF-UNIT VECTOR FOR R10.
038633,000843: 33,2641 03571 R1S
038634,000844: 33,2642 60505 VXM VSR4
038635,000845: 33,2643 01734 REFSMMAT
038636,000846: 33,2644 27543 STOVL RN1 # TEMP. REF. POSITION VECTOR*2(29)M.
038637,000847: 33,2645 03577 V1S
038638,000848: 33,2646 76505 VXM VSL1
038639,000849: 33,2647 01734 REFSMMAT
038640,000850: 33,2650 27551 STOVL VN1 # TEMP. REF. VELOCITY VECTOR*2(7)M/CS.
038641,000851: 33,2651 03535 UNIT/R/
038642,000852: 33,2652 51435 VXV ABVAL
038643,000853: 33,2653 03577 V1S
038644,000854:
|
|
Page 878
|
038646,000856: 33,2654 63552 SL1 DSQ
038647,000857: 33,2655 77671 DDV
038648,000858: 33,2656 47075 DMPR RTB
038649,000859: 33,2657 26030 ARCONV1
038650,000860: 33,2660 21516 SGNAGREE
038651,000861: 33,2661 77776 COPYCYC2 EXIT # LEAVE ALTITUDE RATE COMPENSATION IN MPAC
038652,000862: 33,2662 00004 INHINT
038653,000863: 33,2663 31534 CA UNIT/R/ # UPDATE RUNIT FOR R10.
038654,000864: 33,2664 55741 TS RUNIT
038655,000865: 33,2665 31536 CA UNIT/R/ +2
038656,000866: 33,2666 55742 TS RUNIT +1
038657,000867: 33,2667 31540 CA UNIT/R/ +4
038658,000868: 33,2670 55743 TS RUNIT +2
038659,000869: 33,2671 30154 CA MPAC # LOAD NEW DALTRATE FOR R10.
038660,000870: 33,2672 55714 TS DALTRATE
038661,000871:
038662,000872: 33,2673 00006 EXTEND
038663,000873: 33,2674 31571 DCA R1S
038664,000874: 33,2675 53517 DXCH R
038665,000875: 33,2676 00006 EXTEND
038666,000876: 33,2677 31573 DCA R1S +2
038667,000877: 33,2700 53521 DXCH R +2
038668,000878: 33,2701 00006 EXTEND
038669,000879: 33,2702 31575 DCA R1S +4
038670,000880: 33,2703 53523 DXCH R +4
038671,000881: 33,2704 00006 EXTEND
038672,000882: 33,2705 31577 DCA V1S
038673,000883: 33,2706 53525 DXCH V
038674,000884: 33,2707 00006 EXTEND
038675,000885: 33,2710 31601 DCA V1S +2
038676,000886: 33,2711 53527 DXCH V +2
038677,000887: 33,2712 00006 EXTEND
038678,000888: 33,2713 31603 DCA V1S +4
038679,000889: 33,2714 53531 DXCH V +4
038680,000890:
038681,000891: 33,2715 12300 TCF COPYCYCL # COMPLETE THE COYPCYCL.
038682,000892:
|
|
Page 879
|
038684,000894: # ALTCHK COMPARES CURRENT ALTITUDE (IN HCALC) WITH A SPECIFIED ALTITUDE FROM A TABLE BEGINNING AT ALTCRIT.
038685,000895: # ITS CALLING SEQUENCE IS AS FOLLOWS:-
038686,000896:
038687,000897: # L CAF N
038688,000898: # L+1 TC BANKCALL
038689,000899: # L+2 CADR ALTCHK
038690,000900: # L+3 RETURN HERE IF HCALC STILL > SPECIFIED CRITERION. C(L) = +0.
038691,000901: # L+4 RETURN HERE IF HCALC < OR = SPECIFIED CRITERION. C(A) = C(L) = +0
038692,000902:
038693,000903: # ALTCHK MUST BE BANKCALLED EVEN FROM ITS OWN BANK. N IS THE LOCATION, RELATIVE TO THE TAG ALTCRIT,
038694,000904: # OF THE BEGINNING OF THE DP CONSTANT TO BE USED AS A CRITERION.
038695,000905:
038696,000906: 33,2716 00006 ALTCHK EXTEND
038697,000907: 33,2717 50000 INDEX A
038698,000908: 33,2720 32732 DCA ALTCRIT
038699,000909: 33,2721 52156 DXCH MPAC +1
038700,000910: 33,2722 00006 EXTEND
038701,000911: 33,2723 41533 DCS HCALC
038702,000912: 33,2724 20156 DAS MPAC +1
038703,000913: 33,2725 06726 TC BRANCH +4
038704,000914: 33,2726 34755 CAF ZERO # BETTER THAN A NOOP, PERHAPS
038705,000915: 33,2727 24133 INCR BUF2
038706,000916: 33,2730 14631 TCF SWRETURN
038707,000917:
038708,000918: 33,2731 33,2731 ALTCRIT = 25KFT
038709,000919:
038710,000920: 33,2731 00007 16100 25KFT 2DEC 7620 B-24 # (0)
038711,000921: 33,2733 00016 34200 50KFT 2DEC 15240 B-24 # (2)
038712,000922: 33,2735 00000 00364 50FT 2DEC 15.24 B-24 # (4)
038713,000923: 33,2737 00010 35600 30KFT 2DEC 9144 B-24 # (6)
038714,000924: 33,2741 01414 2KFT/SEC DEC 6.096 B-7 # 2000 FT/SEC AT 2(7) M/CS
038715,000925:
038716,000926:
038717,000927: 33,2742 36241 XORCHK CAF SIX # ARE WE BELOW 30000 FT?
038718,000928: 33,2743 04616 TC BANKCALL
038719,000929: 33,2744 66716 CADR ALTCHK
038720,000930: 33,2745 12531 TCF HITEST # CONTINUE LR UPDATE
038721,000931: 33,2746 05504 TC UPFLAG # YES: INHIBIT X-AXIS OVERRIDE
038722,000932: 33,2747 00311 ADRES XOVINFLG
038723,000933: 33,2750 05504 TC UPFLAG
038724,000934: 33,2751 00253 ADRES XORFLG
038725,000935: 33,2752 12531 TCF HITEST # CONTINUE LR UPDATE
038726,000936:
038727,000937:
038728,000938: 33,2753 34752 35KCHK CAF TWO # ARE WE BELOW 35000 FT?
038729,000939:
|
|
Page 880
|
038731,000941: 33,2754 04616 TC BANKCALL
038732,000942: 33,2755 66716 CADR ALTCHK
038733,000943: 33,2756 12573 TCF CONTSERV
038734,000944: 33,2757 05504 TC UPFLAG
038735,000945: 33,2760 00256 ADRES READLR # SET READLR FLAG TO ENABLE LR READING.
038736,000946: 33,2761 12573 TCF CONTSERV
038737,000947:
|
|
Page 881
|
038739,000949: # *********************************************************************************************************
038740,000950:
038741,000951:
038742,000952: 33,2762 41456 CALCGRAV UNIT PUSH # SAVE UNIT/R/ IN PUSHLIST (18)
038743,000953: 33,2763 03535 STORE UNIT/R/
038744,000954: 33,2764 67340 LXC,1 SLOAD # RTX2 = 0 IF EARTH ORBIT, =2 IF LUNAR.
038745,000955: 33,2765 03376 RTX2
038746,000956: 33,2766 03377 RTX2
038747,000957: 33,2767 50076 DCOMP BMN
038748,000958: 33,2770 67017 CALCGRV1
038749,000959: 33,2771 50375 VLOAD DOT # (12)
038750,000960: 33,2772 06416 UNITZ
038751,000961: 33,2773 03535 UNIT/R/
038752,000962: 33,2774 41552 SL1 PUSH # (14)
038753,000963: 33,2775 44316 DSQ BDSU
038754,000964: 33,2776 27061 DP1/20
038755,000965: 33,2777 56325 PDDL DDV
038756,000966: 33,3000 26040 RESQ
038757,000967: 33,3001 00043 34D # (RN)SQ
038758,000968: 33,3002 00041 STORE 32D # TEMP FOR (RE/RN)SQ
038759,000969: 33,3003 41205 DMP DMP
038760,000970: 33,3004 26042 20J
038761,000971: 33,3005 65361 VXSC PDDL
038762,000972: 33,3006 03535 UNIT/R/
038763,000973: 33,3007 41205 DMP DMP
038764,000974: 33,3010 26044 2J
038765,000975: 33,3011 00041 32D
038766,000976: 33,3012 76561 VXSC VSL1
038767,000977: 33,3013 06416 UNITZ
038768,000978: 33,3014 45455 VAD STADR
038769,000979: 33,3015 74260 STORE UNITGOBL
038770,000980: 33,3016 41455 VAD PUSH # MPAC = UNIT GRAVITY VECTOR. (18)
038771,000981: 33,3017 60345 CALCGRV1 DLOAD NORM # PERFORM A NORMALIZATION ON RMAGSQ IN
038772,000982: 33,3020 00043 34D # ORDER TO BE ABLE TO SCALE THE MU FOR
038773,000983: 33,3021 00050 X2 # MAXIMUM PRECISION.
038774,000984: 33,3022 53663 BDDV* SLR*
038775,000985: 33,3023 26032 -MUDT,1
038776,000986: 33,3024 56623 0 -21D,2
038777,000987: 33,3025 45561 VXSC STADR
038778,000988: 33,3026 74216 STORE GDT1/2 # SCALED AT 2(+7) M/CS
038779,000989: 33,3027 77616 RVQ
038780,000990:
038781,000991: 33,3030 61375 CALCRVG VLOAD VXM
038782,000992: 33,3031 00325 DELV
038783,000993: 33,3032 01734 REFSMMAT
038784,000994: 33,3033 76561 VXSC VSL1
038785,000995: 33,3034 26022 KPIP1
038786,000996: 33,3035 03525 STORE DELVREF
038787,000997: 33,3036 41562 VSR1 PUSH
038788,000998: 33,3037 41455 VAD PUSH # (DV-OLDGDT)/2 TO PD SCALED AT 2(+7)M/CS
038789,000999:
|
|
Page 882
|
038791,001001: 33,3040 01237 GDT/2
038792,001002: 33,3041 65255 VAD PDDL # (18)
038793,001003: 33,3042 01227 VN
038794,001004: 33,3043 01250 PGUIDE
038795,001005: 33,3044 74261 SL VXSC
038796,001006: 33,3045 20207 6D
038797,001007: 33,3046 44055 VAD STQ
038798,001008: 33,3047 01221 RN
038799,001009: 33,3050 00037 31D
038800,001010: 33,3051 37543 STCALL RN1 # TEMP STORAGE OF RN SCALED 2(+29)M
038801,001011: 33,3052 66762 CALCGRAV
038802,001012:
038803,001013: 33,3053 53255 VAD VAD
038804,001014: 33,3054 77655 VAD
038805,001015: 33,3055 01227 VN
038806,001016: 33,3056 37551 STCALL VN1 # TEMP STORAGE OF VN SCALED 2(+7)M/CS
038807,001017: 33,3057 00037 31D
038808,001018:
038809,001019: 33,3060 01463 06315 DP1/20 2DEC 0.05
038810,001020: 33,3062 00010 00000 SHIFT11 2DEC 1 B-11
038811,001021:
|
|
Page 883
|
038813,001023: # ****************************************************************************************************************
038814,001024:
038815,001025: # MUNRVG IS A SPECIAL AVERAGE G INTEGRATION ROUTINE USED BY THRUSTING
038816,001026: # PROGRAMS WHICH FUNCTION IN THE VICINITY OF AN ASSUMED SPHERICAL MOON.
038817,001027: # THE INPUT AND OUTPUT QUANTITIES ARE REFERENCED TO THE STABLE MEMBER
038818,001028: # COORDINATE SYSTEM.
038819,001029:
038820,001030: 33,3064 41575 RVBOTH VLOAD PUSH
038821,001031: 33,3065 02323 G(CSM)
038822,001032: 33,3066 65255 VAD PDDL
038823,001033: 33,3067 01726 V(CSM)
038824,001034: 33,3070 01250 PGUIDE
038825,001035: 33,3071 74271 DDV VXSC
038826,001036: 33,3072 27063 SHIFT11
038827,001037: 33,3073 77655 VAD
038828,001038: 33,3074 01720 R(CSM)
038829,001039: 33,3075 37571 STCALL R1S
038830,001040: 33,3076 67162 MUNGRAV
038831,001041: 33,3077 53255 VAD VAD
038832,001042: 33,3100 01726 V(CSM)
038833,001043: 33,3101 77626 STADR
038834,001044: 33,3102 74200 STORE V1S
038835,001045: 33,3103 77776 EXIT
038836,001046: 33,3104 03535 TC QUIKFAZ5
038837,001047: 33,3105 06036 TC INTPRET
038838,001048: 33,3106 77775 VLOAD
038839,001049: 33,3107 03561 GDT1/2
038840,001050: 33,3110 26323 STOVL G(CSM)
038841,001051: 33,3111 03571 R1S
038842,001052: 33,3112 25720 STOVL R(CSM)
038843,001053: 33,3113 03577 V1S
038844,001054: 33,3114 01726 STORE V(CSM)
038845,001055: 33,3115 77776 EXIT
038846,001056: 33,3116 03535 TC QUIKFAZ5
038847,001057: 33,3117 06036 TC INTPRET
038848,001058: 33,3120 74375 MUNRVG VLOAD VXSC
038849,001059: 33,3121 00325 DELV
038850,001060: 33,3122 26024 KPIP2
038851,001061: 33,3123 53206 PUSH VAD # 1ST PUSH: DELV IN UNITS OF 2(8) M/CS
038852,001062: 33,3124 01237 GDT/2
038853,001063: 33,3125 53206 PUSH VAD # 2ND PUSH: (DELV + GDT)/2, UNITS OF 2(7)
038854,001064: 33,3126 03525 V # (12)
038855,001065: 33,3127 56325 PDDL DDV
038856,001066: 33,3130 01250 PGUIDE
038857,001067: 33,3131 27063 SHIFT11
038858,001068: 33,3132 77761 VXSC
038859,001069: 33,3133 77655 VAD
038860,001070: 33,3134 03517 R
038861,001071: 33,3135 37571 STCALL R1S # STORE R SCALED AT 2(+24)M.
038862,001072: 33,3136 67162 MUNGRAV
038863,001073:
|
|
Page 884
|
038865,001075: 33,3137 53255 VAD VAD
038866,001076: 33,3140 77655 VAD # (0)
038867,001077: 33,3141 03525 V
038868,001078: 33,3142 03577 STORE V1S # STORE V SCALED AT 2(+7)M/CS.
038869,001079: 33,3143 77646 ABVAL
038870,001080: 33,3144 27470 STOVL ABVEL # STORE SPEED FOR LR AND DISPLAYS.
038871,001081: 33,3145 03535 UNIT/R/
038872,001082: 33,3146 72441 DOT SL1
038873,001083: 33,3147 03577 V1S
038874,001084: 33,3150 27472 STOVL HDOTDISP # HDOT = V. UNIT(R)*2(7)M/CS.
038875,001085: 33,3151 03571 R1S
038876,001086: 33,3152 72435 VXV VSL2
038877,001087: 33,3153 02331 WM
038878,001088: 33,3154 17732 STODL DELVS # LUNAR ROTATION CORRECTION TERM*2(5)M/CS.
038879,001089: 33,3155 00045 36D
038880,001090: 33,3156 77625 DSU
038881,001091: 33,3157 02337 /LAND/
038882,001092: 33,3160 37533 STCALL HCALC # FOR NOW, DISPLAY WHETHER POS OR NEG
038883,001093: 33,3161 66514 MUNRETRN
038884,001094: 33,3162 77656 MUNGRAV UNIT # AT 36D HAVE ABVAL(R), AT 34D R.R
038885,001095: 33,3163 17535 STODL UNIT/R/
038886,001096: 33,3164 00043 34D
038887,001097: 33,3165 55261 SL BDDV
038888,001098: 33,3166 20207 6D
038889,001099: 33,3167 26036 -MUDTMUN
038890,001100: 33,3170 74205 DMP VXSC
038891,001101: 33,3171 27063 SHIFT11
038892,001102: 33,3172 03535 UNIT/R/
038893,001103: 33,3173 03561 STORE GDT1/2 # 1/2GDT SCALED AT 2(7) M/CS.
038894,001104: 33,3174 77616 RVQ
038895,001105:
038896,001106: 33,3175 00303 1.95SECS DEC 195 B-14
038897,001107: 33,3176 00005 33212 7.5 2DEC .02286 B-6 # 7.5 FT/SEC AT 2(6) M/CS
038898,001108: 33,3200 00014 20000 2SEC(18) 2DEC 200 B-18
038899,001109: 33,3202 00000 00310 2SEC(28) 2OCT 00000 00310 # 2SEC AT 2(28)
038900,001110: 33,3204 00110 BITS4-7 OCT 110
038901,001111:
|
|
Page 885
|
038903,001113: 33,3205 34742 UPDATCHK CAF NOLRRBIT # SEE IF LR UPDATE INHIBITED.
038904,001114: 33,3206 70107 MASK FLGWRD11
038905,001115: 33,3207 10000 CCS A
038906,001116: 33,3210 12573 TCF CONTSERV # IT IS-NO LR UPDATE
038907,001117: 33,3211 34750 CAF RNGEDBIT # NO INHIBIT - SEE ALT MEAS. THIS CYCLE.
038908,001118: 33,3212 70107 MASK FLGWRD11
038909,001119: 33,3213 00006 EXTEND
038910,001120: 33,3214 13320 BZF VMEASCHK # NO ALT MEAS THIS CYCLE-CHECK FOR VEL
038911,001121:
038912,001122: 33,3215 06036 POSUPDAT TC INTPRET
038913,001123: 33,3216 54345 DLOAD SL
038914,001124: 33,3217 03653 HMEAS # COMPUTE SLANT RANGE
038915,001125: 33,3220 20210 7
038916,001126: 33,3221 74205 DMP VXSC
038917,001127: 33,3222 26011 HSCAL # SLANT RANGE AT 2(21) M
038918,001128: 33,3223 02313 HBEAMNB # RANGE VECTOR IN NB COORDINATES AT 2(22)M
038919,001129: 33,3224 77705 VXM
038920,001130: 33,3225 02146 XNBPIP # CONVERT TO SM COORDINATES AT 2(23)M
038921,001131: 33,3226 45241 DOT DSU
038922,001132: 33,3227 03535 UNIT/R/ # ALTITUDE AT 2(24)M
038923,001133: 33,3230 03533 HCALC # DELTA H AT 2(24) M
038924,001134: 33,3231 03663 STORE DELTAH
038925,001135: 33,3232 77776 EXIT
038926,001136:
038927,001137: 33,3233 30107 CA FLGWRD11
038928,001138: 33,3234 74741 MASK PSTHIBIT
038929,001139: 33,3235 00006 EXTEND # DO NOT PERFORM DATA REASONABLENESS TEST
038930,001140: 33,3236 13253 BZF NOREASON # UNTIL AFTER HIGATE
038931,001141:
038932,001142: 33,3237 06036 TC INTPRET
038933,001143: 33,3240 45246 ABS DSU
038934,001144: 33,3241 02501 DELQFIX # ABS(DELTAH) - DQFIX 50 FT NOM
038935,001145: 33,3242 45252 SL3 DSU # SCALE TO 2(21)
038936,001146: 33,3243 03533 HCALC # ABS(DELTAH) - (50 + HCALC/8) AT 2(21)
038937,001147: 33,3244 77776 EXIT
038938,001148:
038939,001149: 33,3245 25666 INCR LRLCTR
038940,001150: 33,3246 06722 TC BRANCH
038941,001151: 33,3247 13543 TCF HFAIL # DELTA H TOO LARGE
038942,001152: 33,3250 13543 TCF HFAIL # DELTA H TOO LARGE
038943,001153: 33,3251 05516 TC DOWNFLAG # TURN OFF ALT FAIL LAMP
038944,001154: 33,3252 00263 ADRES HFLSHFLG
038945,001155:
038946,001156: 33,3253 40107 NOREASON CS FLGWRD11
038947,001157: 33,3254 74744 MASK LRINHBIT
038948,001158: 33,3255 10000 CCS A
038949,001159: 33,3256 13320 TCF VMEASCHK # UPDATE INHIBITED - TEST VELOCITY ANYWAY
038950,001160:
038951,001161: 33,3257 06036 TC INTPRET # DO POSITION UPDATE
038952,001162:
|
|
Page 886
|
038954,001164: 33,3260 40545 DLOAD SR4
038955,001165: 33,3261 03533 HCALC # RESCALE H TO 2(28)M
038956,001166: 33,3262 77776 EXIT
038957,001167: 33,3263 00006 EXTEND
038958,001168: 33,3264 31663 DCA DELTAH # STORE DELTAH IN MPAC AND
038959,001169: 33,3265 52155 DXCH MPAC # BRING HCALC INTO A,L
038960,001170: 33,3266 07543 TC ALSIGNAG
038961,001171: 33,3267 00006 EXTEND # IF HIGH PART OF HCALC IS NON ZERO, THEN
038962,001172: 33,3270 13272 BZF +2 # HCALC > HMAX,
038963,001173: 33,3271 13320 TCF VMEASCHK # SO UPDATE IS BYPASSED
038964,001174: 33,3272 54156 TS MPAC +2 # FOR LATER SHORTMP
038965,001175:
038966,001176: 33,3273 40001 CS L # -H AT 2(14) M
038967,001177: 33,3274 61416 AD LRHMAX # HMAX - H
038968,001178: 33,3275 00006 EXTEND
038969,001179: 33,3276 63320 BZMF VMEASCHK # IF H >HMAX, BYPASS UPDATE
038970,001180: 33,3277 00006 EXTEND
038971,001181: 33,3300 71420 MP LRWH # WH(HMAX - H)
038972,001182: 33,3301 00006 EXTEND
038973,001183: 33,3302 11416 DV LRHMAX # WH(1 - H/HMAX)
038974,001184: 33,3303 54135 TS MPTEMP
038975,001185: 33,3304 07312 TC SHORTMP2 # DELTAH (WH)(1 - H/HMAX) IN MPAC
038976,001186: 33,3305 06036 TC INTPRET # MODE IS DP FROM ABOVE
038977,001187: 33,3306 77752 SL1
038978,001188: 33,3307 53361 VXSC VAD
038979,001189: 33,3310 03535 UNIT/R/ # DELTAR = DH(WH)(1 - H/HMAX) UNIT/R/
038980,001190: 33,3311 03571 R1S
038981,001191: 33,3312 37655 STCALL GNUR
038982,001192: 33,3313 67162 MUNGRAV
038983,001193: 33,3314 77776 EXIT
038984,001194:
038985,001195: 33,3315 03535 TC QUIKFAZ5
038986,001196:
038987,001197: 33,3316 34755 CA ZERO
038988,001198: 33,3317 03517 TC GNURVST
038989,001199:
038990,001200: 33,3320 03535 VMEASCHK TC QUIKFAZ5 # RESTART AT NEXT LOCATION
038991,001201: 33,3321 40107 CS FLGWRD11
038992,001202: 33,3322 74745 MASK VELDABIT # IS V READING AVAILABLE?
038993,001203: 33,3323 10000 CCS A
038994,001204: 33,3324 13475 TCF VALTCHK # NO SEE IF V READING TO BE TAKEN
038995,001205:
038996,001206: 33,3325 41647 VELUPDAT CS VSELECT # PROCESS VELOCITY DATA
038997,001207: 33,3326 54001 TS L
038998,001208: 33,3327 26001 ADS L # -2 VSELECT IN L
038999,001209: 33,3330 60001 AD L
039000,001210: 33,3331 60001 AD L # -6 VSELECT IN A
039001,001211: 33,3332 50120 INDEX FIXLOC
039002,001212: 33,3333 52047 DXCH X1 # X1 = -6 VSELECT, X2 = -2 VSELECT
039003,001213:
|
|
Page 887
|
039005,001215:
039006,001216: 33,3334 34741 CA EBANK4
039007,001217: 33,3335 54003 TS EBANK
039008,001218: 33,3336 E4,1660 EBANK= LRXCDU
039009,001219:
039010,001220: 33,3336 31661 CA LRYCDU # STORE LRCDUS IN CDUSPOTS
039011,001221: 33,3337 54766 TS CDUSPOT
039012,001222: 33,3340 31662 CA LRZCDU
039013,001223: 33,3341 54770 TS CDUSPOT +2
039014,001224: 33,3342 31660 CA LRXCDU
039015,001225: 33,3343 54772 TS CDUSPOT +4
039016,001226:
039017,001227: 33,3344 04616 TC BANKCALL
039018,001228: 33,3345 47521 CADR QUICTRIG # GET SINES AND COSINES FOR NBSM
039019,001229:
039020,001230: 33,3346 30120 CA FIXLOC
039021,001231: 33,3347 54166 TS PUSHLOC # SET PD TO ZERO
039022,001232:
039023,001233: 33,3350 06036 TC INTPRET
039024,001234: 33,3351 45173 VLOAD* CALL
039025,001235: 33,3352 02235 VZBEAMNB,1 # CONVERT VBEAM FROM NB TO SM
039026,001236: 33,3353 47577 *NBSM*
039027,001237: 33,3354 54325 PDDL SL # STORE IN PD 0-5
039028,001238: 33,3355 03651 VMEAS # LOAD VELOCITY MEASUREMENT
039029,001239: 33,3356 20215 12D
039030,001240: 33,3357 41403 DMP* PUSH # SCALE TO M/CS AT 2(6)
039031,001241: 33,3360 51764 VZSCAL,2 # AND STORE IN PD 6-7
039032,001242: 33,3361 77776 EXIT
039033,001243: 33,3362 44753 CS ONE
039034,001244: 33,3363 54163 TS MODE # CHANGE STORE MODE TO VECTOR
039035,001245:
039036,001246: 33,3364 31663 CA PIPTEM # STORE DELV IN MPAC
039037,001247: 33,3365 22007 ZL
039038,001248: 33,3366 52155 DXCH MPAC
039039,001249:
039040,001250: 33,3367 31664 CA PIPTEM +1
039041,001251: 33,3370 22007 ZL
039042,001252: 33,3371 52160 DXCH MPAC +3
039043,001253:
039044,001254: 33,3372 31665 CA PIPTEM +2
039045,001255: 33,3373 22007 ZL
039046,001256: 33,3374 52162 DXCH MPAC +5
039047,001257:
039048,001258: 33,3375 35016 CA EBANK7
039049,001259: 33,3376 54003 TS EBANK # RESTORE EBANK 7
039050,001260: 33,3377 E7,1513 EBANK= DVCNTR
039051,001261: 33,3377 06036 TC INTPRET
039052,001262: 33,3400 65361 VXSC PDDL
039053,001263: 33,3401 26022 KPIP1 # SCALE DELV TO 2(7) M/CS AND PUSH
039054,001264: 33,3402 02257 LRVTIME # TIME OF DELV AT 2(28)CS
039055,001265: 33,3403 56225 DSU DDV
039056,001266:
|
|
Page 888
|
039058,001268: 33,3404 01235 PIPTIME # TU - T(N-1)
039059,001269: 33,3405 27203 2SEC(28)
039060,001270: 33,3406 76561 VXSC VSL1 # G(N-1)(TU - T(N-1))
039061,001271: 33,3407 01237 GDT/2 # SCALED AT 2(7) M/CS
039062,001272: 33,3410 53255 VAD VAD # PUSH UP FOR DELV
039063,001273: 33,3411 03525 V # VU = V(N-1) + DELVU + G(N-1) DTU
039064,001274: 33,3412 53352 VSL2 VAD # SCALE TO 2(5) M/CS AND SUBTRACT
039065,001275: 33,3413 03732 DELVS # MOON ROTATION.
039066,001276: 33,3414 51406 PUSH ABVAL # STORE IN PD
039067,001277: 33,3415 43202 SR4 DAD # ABS(VM)/8 + 7.5 AT 2(6)
039068,001278: 33,3416 27177 7.5
039069,001279: 33,3417 24025 STOVL 20D # STORE IN 20D AND PICK UP VM
039070,001280: 33,3420 44241 DOT BDSU # V(EST) AT 2(6)
039071,001281: 33,3421 00001 0 # DELTAV = VMEAS - V(EST)
039072,001282: 33,3422 51406 PUSH ABS
039073,001283: 33,3423 77425 DSU EXIT # ABS(DV) - (7.5 + ABS(VM)/8))
039074,001284: 33,3424 00025 20D
039075,001285:
039076,001286: 33,3425 25670 INCR LRMCTR
039077,001287: 33,3426 06722 TC BRANCH
039078,001288: 33,3427 13560 TCF VFAIL # DELTA V TOO LARGE ALARM
039079,001289: 33,3430 13560 TCF VFAIL # DELTA V TOO LARGE ALARM
039080,001290:
039081,001291: 33,3431 05516 TC DOWNFLAG # TURN OFF VEL FAIL LAMP
039082,001292: 33,3432 00262 ADRES VFLSHFLG
039083,001293:
039084,001294: 33,3433 30107 CA FLGWRD11
039085,001295: 33,3434 74740 MASK VXINHBIT
039086,001296: 33,3435 00006 EXTEND
039087,001297: 33,3436 13445 BZF VUPDAT # IF VX INHIBIT RESET, INCORPORATE DATA.
039088,001298:
039089,001299: 33,3437 05516 TC DOWNFLAG
039090,001300: 33,3440 00250 ADRES VXINH # RESET VX INHIBIT
039091,001301:
039092,001302: 33,3441 31647 CA VSELECT
039093,001303: 33,3442 67745 AD NEG2 # IF VSELECT = 2 (X AXIS),
039094,001304: 33,3443 00006 EXTEND # BYPASS UPDATE
039095,001305: 33,3444 13475 BZF ENDVDAT
039096,001306:
039097,001307: 33,3445 40107 VUPDAT CS FLGWRD11
039098,001308: 33,3446 74744 MASK LRINHBIT
039099,001309: 33,3447 10000 CCS A
039100,001310: 33,3450 13475 TCF VALTCHK # UPDATE INHIBITED
039101,001311:
039102,001312: 33,3451 54155 TS MPAC +1 # ZERO MPAC +1 FOR MULTIPLY LATER
039103,001313: 33,3452 41467 CS ABVEL
039104,001314: 33,3453 61417 AD LRVMAX # VMAX - V
039105,001315: 33,3454 00006 EXTEND
039106,001316: 33,3455 63475 BZMF VALTCHK # IF V > VMAX BYPASS UPDATE
039107,001317: 33,3456 00006 EXTEND
039108,001318:
|
|
Page 889
|
039110,001320: 33,3457 51647 INDEX VSELECT # WV(VMAX - V)
039111,001321: 33,3460 71421 MP LRWVZ
039112,001322: 33,3461 00006 EXTEND
039113,001323: 33,3462 11417 DV LRVMAX # WV(1 - V/VMAX)
039114,001324: 33,3463 54154 TS MPAC # STORE IN MPAC, MODE IS DP FROM ABOVE
039115,001325:
039116,001326: 33,3464 06036 TC INTPRET
039117,001327: 33,3465 74205 DMP VXSC # W(DELTA V)(VBEAMSM) UP 6-7, 0-5
039118,001328: 33,3466 53372 VSL1 VAD
039119,001329: 33,3467 03577 V1S # ADD WEIGHTED DELTA V TO VELOCITY
039120,001330: 33,3470 03655 STORE GNUV
039121,001331: 33,3471 77776 EXIT
039122,001332:
039123,001333: 33,3472 03535 TC QUIKFAZ5 # DO NOT RE-UPDATE
039124,001334:
039125,001335: 33,3473 36241 CA SIX
039126,001336: 33,3474 03517 TC GNURVST # STORE NEW VELOCITY VECTOR
039127,001337:
039128,001338: 33,3475 33,3475 ENDVDAT = VALTCHK
039129,001339:
039130,001340: 33,3475 03535 VALTCHK TC QUIKFAZ5 # DO NOT REPEAT ABOVE
039131,001341:
039132,001342: 33,3476 34747 CAF READVBIT # TEST READVEL TO SEE IF VELOCITY READING
039133,001343: 33,3477 70107 MASK FLGWRD11 # IS DESIRED.
039134,001344: 33,3500 10000 CCS A
039135,001345: 33,3501 13512 TCF READV # TES - READ VELOCITY
039136,001346: 33,3502 41467 CS ABVEL # NO - SEE IF VELOCITY < 2000 FT/SEC
039137,001347: 33,3503 62741 AD 2KFT/SEC
039138,001348: 33,3504 00006 EXTEND
039139,001349: 33,3505 62573 BZMF CONTSERV # V > 2000 FT/SEC DO NOT READ VEL
039140,001350:
039141,001351: 33,3506 05504 TC UPFLAG # V < 2000 FT/SEC SET READVEL AND READ
039142,001352: 33,3507 00257 ADRES READVEL
039143,001353:
039144,001354: 33,3510 34755 CAF ZERO # INITIALIZE VSELECT
039145,001355: 33,3511 55647 TS VSELECT
039146,001356:
039147,001357: 33,3512 37717 READV CAF PRIO32 # SET UP JOB TO READ VELOCITY BEAMS.
039148,001358: 33,3513 05072 TC NOVAC
039149,001359: 33,3514 E7,1652 EBANK= HMEAS
039150,001360: 33,3514 03601 66067 2CADR LRVJOB
039151,001361:
039152,001362: 33,3516 12573 TCF CONTSERV # CONTINUE WITH SERVICER
039153,001363:
039154,001364:
039155,001365: 33,3517 54130 GNURVST TS BUF # STORE GNUR (=GNUV) IN R1S OR V1S
039156,001366: 33,3520 00006 EXTEND # A = 0 FOR R, A = 6 FOR V
039157,001367: 33,3521 31655 DCA GNUR
039158,001368: 33,3522 50130 INDEX BUF
039159,001369: 33,3523 53571 DXCH R1S
039160,001370:
|
|
Page 890
|
039162,001372: 33,3524 00006 EXTEND
039163,001373: 33,3525 31657 DCA GNUR +2
039164,001374: 33,3526 50130 INDEX BUF
039165,001375: 33,3527 53573 DXCH R1S +2
039166,001376: 33,3530 00006 EXTEND
039167,001377: 33,3531 31661 DCA GNUR +4
039168,001378: 33,3532 50130 INDEX BUF
039169,001379: 33,3533 53575 DXCH R1S +4
039170,001380: 33,3534 00002 TC Q
039171,001381:
039172,001382:
039173,001383: 33,3535 35007 QUIKFAZ5 CA EBANK3
039174,001384: 33,3536 56003 XCH EBANK # SET EBANK 3
039175,001385: 33,3537 52002 DXCH L # Q TO A, A TO L
039176,001386: 33,3540 E3,1446 EBANK= PHSNAME5
039177,001387: 33,3540 55446 TS PHSNAME5
039178,001388: 33,3541 22003 LXCH EBANK
039179,001389: 33,3542 E7,1513 EBANK= DVCNTR
039180,001390: 33,3542 00000 TC A
039181,001391:
039182,001392:
039183,001393: 33,3543 41667 HFAIL CS LRRCTR
039184,001394: 33,3544 00006 EXTEND
039185,001395: 33,3545 13555 BZF NORLITE # IF R = 0, DO NOT TURN ON TRK FAIL
039186,001396: 33,3546 61666 AD LRLCTR
039187,001397: 33,3547 77744 MASK NEG3
039188,001398: 33,3550 00006 EXTEND # IF L-R LT 4, DO NOT TURN ON TRK FAIL
039189,001399: 33,3551 13553 BZF +2
039190,001400: 33,3552 13555 TCF NORLITE
039191,001401:
039192,001402: 33,3553 05504 TC UPFLAG # AND SET BIT TO TURN ON TRACKER FAIL LITE
039193,001403: 33,3554 00263 ADRES HFLSHFLG
039194,001404:
039195,001405: 33,3555 31666 NORLITE CA LRLCTR
039196,001406: 33,3556 55667 TS LRRCTR # SET R = L
039197,001407:
039198,001408: 33,3557 13320 TCF VMEASCHK
039199,001409:
039200,001410:
039201,001411: 33,3560 41671 VFAIL CS LRSCTR # DELTA Q LARGE
039202,001412: 33,3561 00006 EXTEND # IF S = 0, DO NOT TURN ON TRACKER FAIL
039203,001413: 33,3562 13572 BZF NOLITE
039204,001414: 33,3563 61670 AD LRMCTR # M-S
039205,001415: 33,3564 77744 MASK NEG3 # TEST FOR M-S > 3
039206,001416: 33,3565 00006 EXTEND # IF M-S > 3, THEN TWO OR MORE OF THE
039207,001417: 33,3566 13570 BZF +2 # LAST FOUR V READINGS WERE BAD,
039208,001418: 33,3567 13572 TCF NOLITE # SO TURN ON VELOCITY FAIL LIGHT
039209,001419:
039210,001420: 33,3570 05504 TC UPFLAG # AND SET BIT TO TURN ON TRACKER FAIL LITE
039211,001421: 33,3571 00262 ADRES VFLSHFLG
039212,001422:
|
|
Page 891
|
039214,001424: 33,3572 31670 NOLITE CA LRMCTR # SET S = M
039215,001425: 33,3573 55671 TS LRSCTR
039216,001426:
039217,001427: 33,3574 11647 CCS VSELECT # TEST FOR Z COMPONENT
039218,001428: 33,3575 13475 TCF ENDVDAT # NOT Z, DO NOT SET VX INHIBIT
039219,001429:
039220,001430: 33,3576 05504 TC UPFLAG # Z COMPONENT - SET FLAG TO SKIP X
039221,001431: 33,3577 00250 ADRES VXINH # COMPONENT,AS ERROR MAY BE DUE TO CROSS
039222,001432: 33,3600 13475 TCF ENDVDAT # LOBE LOCK UP NOT DETECTED ON X AXIS.
039223,001433:
|
|
Page 892
|
039225,001435: # ********************************************************************************************************
039226,001436: # LRVJOB IS SET WHEN THE LEM IS BELOW 15000 FT DURING THE LANDING PHASE
039227,001437: # THIS JOB INITIALIZES THE LANDING RADAR READ ROUTINE FOR 5 VELOCITY
039228,001438: # SAMPLES AND GOES TO SLEEP WHILE THE SAMPLING IS DONE-ABOUT 500 MS.
039229,001439: # WITH A GOODEND RETURN THE DATA IS STORED IN VMEAS AND BIT7 OF LRSTAT
039230,001440: # IS SET. THE GIMBAL ANGLES ARE READ ABOUT MIDWAY IN THE SAMPLING .
039231,001441:
039232,001442: 33,3601 4361 170MS EQUALS ND1
039233,001443:
039234,001444:
039235,001445: 33,3601 34361 LRVJOB CA 170MS # SET TASK TO READ CDUS + PIPAS
039236,001446: 33,3602 05203 TC WAITLIST
039237,001447: 33,3603 E4,1656 EBANK= LRVTIME
039238,001448: 33,3603 03750 64064 2CADR RDGIMS
039239,001449:
039240,001450: 33,3605 11647 CCS VSELECT # SEQUENCE LR VEL BEAM SELECTOR
039241,001451: 33,3606 13610 TCF +2
039242,001452: 33,3607 34752 CAF TWO # IF ZERO-RESET TO TWO
039243,001453: 33,3610 60000 DOUBLE # 2XVSELECT USED FOR VBEAM INDEX IN LRVEL
039244,001454: 33,3611 04616 TC BANKCALL # GO INITIALIZE LR VEL READ ROUTINE
039245,001455: 33,3612 53107 CADR LRVEL
039246,001456: 33,3613 04616 TC BANKCALL # PUT LRVJOB TO SLEEP ABOUT 500 MS
039247,001457: 33,3614 17667 CADR RADSTALL
039248,001458: 33,3615 13650 TCF VBAD
039249,001459: 33,3616 11673 CCS STILBADV # IS DATA GOOD JUST PRESENT?
039250,001460: 33,3617 13651 TCF VSTILBAD # JUST GOOD - MUST WAIT 4 SECONDS.
039251,001461:
039252,001462: 33,3620 00004 INHINT
039253,001463: 33,3621 00006 EXTEND # GOOD RETURN-STOW AWAY VMEAS
039254,001464: 33,3622 31102 DCA SAMPLSUM
039255,001465: 33,3623 53651 DXCH VMEAS
039256,001466: 33,3624 34741 CA EBANK4 # FOR DOWNLINK
039257,001467: 33,3625 54003 TS EBANK
039258,001468: 33,3626 E4,1656 EBANK= LRVTIME
039259,001469:
039260,001470: 33,3626 00006 EXTEND
039261,001471: 33,3627 31657 DCA LRVTIME
039262,001472: 33,3630 53744 DXCH LRVTIMDL
039263,001473: 33,3631 00006 EXTEND
039264,001474: 33,3632 31661 DCA LRXCDU
039265,001475: 33,3633 53741 DXCH LRXCDUDL
039266,001476: 33,3634 31662 CA LRZCDU
039267,001477: 33,3635 55742 TS LRZCDUDL
039268,001478: 33,3636 35016 CA EBANK7
039269,001479: 33,3637 54003 TS EBANK
039270,001480: 33,3640 E7,1647 EBANK= VSELECT
039271,001481:
039272,001482: 33,3640 40107 CS FLGWRD11 # SET BIT TO INDICATE VELOCITY
039273,001483: 33,3641 74745 MASK VELDABIT # MEASUREMENT MADE.
039274,001484:
|
|
Page 893
|
039276,001486: 33,3642 26107 ADS FLGWRD11
039277,001487: 33,3643 11647 ENDLRV CCS VSELECT # UPDATE VSELECT
039278,001488: 33,3644 13646 TCF +2
039279,001489: 33,3645 34752 CA TWO
039280,001490: 33,3646 55647 TS VSELECT
039281,001491: 33,3647 15155 TCF ENDOFJOB
039282,001492:
039283,001493: 33,3650 34752 VBAD CAF TWO # SET STILBAD TO WAIT 4 SECONDS
039284,001494: 33,3651 55673 VSTILBAD TS STILBADV
039285,001495: 33,3652 13643 TCF ENDLRV
039286,001496:
039287,001497: # LRHJOB IS SET BY LRHTASK WHEN LEM IS BELOW 25000 FT. THIS JOB
039288,001498: # INITIALIZES THE LR READ ROUTINE FOR AN ALT MEASUREMENT AND GOES TO
039289,001499: # SLEEP WHILE THE SAMPLING IS DONE-ABOUT 95 MS. WITH A GOODEND RETURN
039290,001500: # THE ALT DATA IS STORED IN HMEAS AND BIT7 OF LRSTAT IS SET.
039291,001501:
039292,001502: 34,3717 BANK 34
039293,001503: 34,2000 SETLOC R12STUFF
039294,001504: 34,2000 BANK
039295,001505:
039296,001506: 34,3717 COUNT* $$/SERV
039297,001507:
039298,001508: 34,3717 04616 LRHJOB TC BANKCALL # INITIATE LR ALT MEASUREMENT
039299,001509: 34,3720 53073 CADR LRALT
039300,001510: 34,3721 04616 TC BANKCALL # LRHJOB TO SLEEP ABOUT 95MS
039301,001511: 34,3722 17667 CADR RADSTALL
039302,001512: 34,3723 13746 TCF HBAD
039303,001513: 34,3724 11672 CCS STILBADH # IS DATA GOOD JUST PRESENT?
039304,001514: 34,3725 13756 TCF HSTILBAD # JUST GOOD - MUST WAIT 4 SECONDS.
039305,001515:
039306,001516: 34,3726 00004 INHINT
039307,001517: 34,3727 00006 EXTEND
039308,001518: 34,3730 31102 DCA SAMPLSUM # GOOD RETURN-STORE AWAY LRH DATA
039309,001519: 34,3731 53653 DXCH HMEAS # LRH DATA 1.079 FT/BIT
039310,001520: 34,3732 00006 EXTEND # FOR DOWNLINK
039311,001521: 34,3733 31557 DCA PIPTIME1
039312,001522: 34,3734 53753 DXCH MKTIME
039313,001523:
039314,001524: 34,3735 00006 EXTEND
039315,001525: 34,3736 31157 DCA CDUTEMPY # CDUY,Z = AIG,AMG
039316,001526: 34,3737 53456 DXCH AIG
039317,001527:
039318,001528: 34,3740 31155 CA CDUTEMPX # CDUX = AOG
039319,001529: 34,3741 55457 TS AOG
039320,001530:
039321,001531: 34,3742 40107 CS FLGWRD11 # SET BIT TO INDICATE RANGE
039322,001532: 34,3743 74750 MASK RNGEDBIT # MEASUREMENT MADE.
039323,001533: 34,3744 26107 ADS FLGWRD11
039324,001534: 34,3745 05155 ENDLRH TC ENDOFJOB # TERMINATE LRHJOB
039325,001535:
|
|
Page 894
|
039327,001537: 34,3746 30101 HBAD CA FLAGWRD5
039328,001538: 34,3747 74742 MASK RNGSCBIT # IS BAD RETURN DUE TO SCALE CHANGE?
039329,001539: 34,3750 00006 EXTEND
039330,001540: 34,3751 13755 BZF HSTILBAD -1 # NO RESET HSTILBAD
039331,001541: 34,3752 05516 TC DOWNFLAG # YES RESET SCALE CHANGE BIT AND IGNORE
039332,001542: 34,3753 00120 ADRES RNGSCFLG
039333,001543: 34,3754 05155 TC ENDOFJOB
039334,001544:
039335,001545:
039336,001546: 34,3755 34752 CAF TWO # SET STILBAD TO WAIT 4 SECONDS
039337,001547: 34,3756 55672 HSTILBAD TS STILBADH
039338,001548: 34,3757 05155 TC ENDOFJOB
039339,001549:
039340,001550: 32,3750 BANK 32
039341,001551: 32,2000 SETLOC SERV2
039342,001552: 32,2000 BANK
039343,001553:
039344,001554: 32,3750 COUNT* $$/SERV
039345,001555:
039346,001556: # RDGIMS IS A TASK SET UP BY LRVJOB TO PICK UP THE IMU CDUS AND TIME
039347,001557: # AT ABOUT THE MIDPOINT OF THE LR VEL READ ROUTINE WHEN 5 VEL SAMPLES
039348,001558: # ARE SPECIFIED.
039349,001559:
039350,001560: 32,3750 E4,1656 EBANK= LRVTIME
039351,001561: 32,3750 00006 RDGIMS EXTEND
039352,001562: 32,3751 30025 DCA TIME2 # PICK UP TIME2,TIME1
039353,001563: 32,3752 53657 DXCH LRVTIME # AND SAVE IN LRVTIME
039354,001564:
039355,001565: 32,3753 00006 EXTEND
039356,001566: 32,3754 30033 DCA CDUX # PICK UP CDUX AND CDUY
039357,001567: 32,3755 53661 DXCH LRXCDU # AND SAVE IN LRXCDU AND LRYCDU
039358,001568:
039359,001569: 32,3756 30034 CA CDUZ
039360,001570: 32,3757 55662 TS LRZCDU # SAVE CDUZ IN LRZCDU
039361,001571:
039362,001572: 32,3760 30037 CA PIPAX
039363,001573: 32,3761 55663 TS PIPTEM # SAVE PIPAX IN PIPTEM
039364,001574:
039365,001575: 32,3762 00006 EXTEND
039366,001576: 32,3763 30041 DCA PIPAY # PICK UP PIPAY AND PIPAZ
039367,001577: 32,3764 53665 DXCH PIPTEM +1 # AND SAVE IN PIPTEM +1 AND PIPTEM +2
039368,001578: 32,3765 05261 TC TASKOVER
039369,001579:
039370,001580: 33,3653 BANK 33
039371,001581: 33,2000 SETLOC SERVICES
039372,001582: 33,2000 BANK
039373,001583:
039374,001584: 33,3653 COUNT* $$/SERV
039375,001585:
039376,001586: 33,3653 E7,1513 EBANK= DVCNTR
039377,001587:
|
|
Page 895
|
039379,001589: # HIGATJOB IS SET APPROXIMATELY 6 SECONDS PRIOR TO HIGH GATE DURING
039380,001590: # THE DESCENT BURN PHASE OF LUNAR LANDING. THIS JOB INITIATES THE
039381,001591: # LANDING RADAR REPOSITIONING ROUTINE AND GOES TO SLEEP UNTIL THE
039382,001592: # LR ANTENNA MOVES FROM POSITION 1 TO POSITION 2. IF THE LR ANTENNA
039383,001593: # ACHIEVES POSITION 2 WITHIN 22 SECONDS THE ALTITUDE AND VELOCITY
039384,001594: # BEAM VECTORS ARE RECOMPUTED TO REFLECT THE NEW ORIENTATION WITH
039385,001595: # RESPECT TO THE NB. BIT10 OF LRSTAT IS CLEARED TO ALLOW LR
039386,001596: # MEASUREMENTS AND THE JOB TERMINATES.
039387,001597:
039388,001598: 33,3653 04616 HIGATJOB TC BANKCALL # START LRPOS2 JOB
039389,001599: 33,3654 53471 CADR LRPOS2
039390,001600: 33,3655 04616 TC BANKCALL # PUT HIGATJOB TO SLEEP UNTIL JOB IS DONE
039391,001601: 33,3656 17667 CADR RADSTALL
039392,001602: 33,3657 13666 TCF POSALARM # BAD END ALARM
039393,001603:
039394,001604: 33,3660 37711 POSGOOD CA PRIO24 # REDUCE PRIORITY FOR INTERPRETIVE STUFF
039395,001605: 33,3661 05146 TC PRIOCHNG
039396,001606:
039397,001607: 33,3662 03721 TC SETPOS2 # LR IN POS2 - SET UP TRANSFORMATIONS
039398,001608:
039399,001609: 33,3663 05516 TC DOWNFLAG
039400,001610: 33,3664 00252 ADRES NOLRREAD # RESET NOLRREAD FLAG TO ENABLE LR READING
039401,001611: 33,3665 05155 TC ENDOFJOB
039402,001612:
039403,001613: 33,3666 33703 POSALARM CA OCT523
039404,001614: 33,3667 04616 TC BANKCALL
039405,001615: 33,3670 21451 CADR PRIOLARM # FLASH ALARM CODE
039406,001616: 33,3671 16001 TCF GOTOPOOH # TERMINATE
039407,001617: 33,3672 13675 TCF +3 # PROCEED - TRY AGAIN
039408,001618: 33,3673 15155 TCF ENDOFJOB # V 32 E TERMINATE R12
039409,001619: 33,3674 05155 TC ENDOFJOB
039410,001620:
039411,001621: 33,3675 34745 +3 CA BIT7 # SEE IF IN POS2 YET
039412,001622: 33,3676 00006 EXTEND
039413,001623: 33,3677 02033 RAND CHAN33
039414,001624: 33,3700 00006 EXTEND
039415,001625: 33,3701 13660 BZF POSGOOD # POS2 ACHIEVED SET UP ANTENNA BEAMS
039416,001626: 33,3702 13666 TCF POSALARM # STILL DIDN'T MAKE IT REALARM
039417,001627:
039418,001628: 33,3703 00523 OCT523 OCT 00523
039419,001629:
039420,001630:
039421,001631: 33,3704 04645 SETPOS1 TC MAKECADR # MUST BE CALLED BY BANKCALL
039422,001632: 33,3705 55654 TS LRADRET1 # SAVE RETURN CADR, SINCE BUF2 CLOBBERED
039423,001633:
039424,001634: 33,3706 34752 CAF TWO
039425,001635: 33,3707 55672 TS STILBADH # INITIALIZE STILBAD
039426,001636: 33,3710 55673 TS STILBADV # INITIALIZE STILBAD
039427,001637:
039428,001638: 33,3711 34755 CA ZERO # INDEX FOR LRALPHA,LRBETA IN POS 1.
039429,001639:
|
|
Page 896
|
039431,001641: 33,3712 55666 TS LRLCTR # SET L,M,R, ANS S TO ZERO
039432,001642: 33,3713 55670 TS LRMCTR
039433,001643: 33,3714 55667 TS LRRCTR
039434,001644: 33,3715 55671 TS LRSCTR
039435,001645: 33,3716 03722 TC SETPOS # CONTINUE WITH COMPUTATIONS
039436,001646:
039437,001647: 33,3717 31654 CA LRADRET1
039438,001648: 33,3720 04640 TC BANKJUMP # RETURN TO CALLER
039439,001649:
039440,001650:
039441,001651: 33,3721 34752 SETPOS2 CA TWO # INDEX FOR POS2
039442,001652: 33,3722 00006 SETPOS EXTEND
039443,001653: 33,3723 50000 INDEX A
039444,001654: 33,3724 31413 DCA LRALPHA # LRALPHA IN A, LRBETA IN L
039445,001655: 33,3725 54772 TS CDUSPOT +4 # ROTATION ABOUT X
039446,001656: 33,3726 22766 LXCH CDUSPOT # ROTATION ABOUT Y
039447,001657: 33,3727 34755 CA ZERO
039448,001658: 33,3730 54770 TS CDUSPOT +2 # ZERO ROTATION ABOUT Z.
039449,001659:
039450,001660: 33,3731 00006 EXTEND
039451,001661: 33,3732 23646 QXCH LRADRET # SAVE RETURN
039452,001662:
039453,001663: 33,3733 06036 TC INTPRET
039454,001664: 33,3734 45175 VLOAD CALL
039455,001665: 33,3735 06420 UNITY # CONVERT UNITY(ANTENNA) TO NB
039456,001666: 33,3736 47555 TRG*SMNB
039457,001667: 33,3737 26243 STOVL VYBEAMNB
039458,001668: 33,3740 06422 UNITX # CONVERT UNITX(ANTENNA) TO NB
039459,001669: 33,3741 77624 CALL
039460,001670: 33,3742 47575 *SMNB*
039461,001671: 33,3743 02251 STORE VXBEAMNB
039462,001672: 33,3744 76435 VXV VSL1
039463,001673: 33,3745 02243 VYBEAMNB
039464,001674: 33,3746 26235 STOVL VZBEAMNB # Z = X * Y
039465,001675: 33,3747 26003 HBEAMANT
039466,001676: 33,3750 77624 CALL
039467,001677: 33,3751 47575 *SMNB* # CONVERT TO NB
039468,001678: 33,3752 02313 STORE HBEAMNB
039469,001679: 33,3753 77776 EXIT
039470,001680: 33,3754 01646 TC LRADRET
End of include-file SERVICER.agc. Parent file is MAIN.agc