Source Code
|
These source-code files are part of a reconstructed copy of Luminary 97, the
second release of the Apollo 11 Lunar Module (LM) Apollo Guidance Computer
(AGC) software. It was created to fix two incorrect ephemeris constants in
Luminary 96, as described by anomaly report LNY-59.
The reconstruction began with source code of Luminary 99 revision 1 previously
transcribed from a digitized copy of that program. The code was then updated
by undoing changes described in original Luminary memos 83 and 85, using asterisks
indicating changed lines in the listing as a guide. The reconstruction was
verified by matching memory-bank checksums to those listed in drawing 2021152D.
Note that page numbers in the reconstructed code match those on the Luminary 099
revision 001 printout, although the added code would likely have changed page
numbers for a real Luminary 97 listing.
Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
project's GitHub repository.
|
036878,000002: ## Copyright: Public domain.
036879,000003: ## Filename: SERVICER.agc
036880,000004: ## Purpose: A section of Luminary revision 97.
036881,000005: ## It is part of the reconstructed source code for the
036882,000006: ## second release of the flight software for the Lunar
036883,000007: ## Module's (LM) Apollo Guidance Computer (AGC) for Apollo 11.
036884,000008: ## It was created to fix two incorrect ephemeris constants in
036885,000009: ## Luminary 96, as described by anomaly report LNY-59.
036886,000010: ## The code has been recreated from a copy of Luminary 99
036887,000011: ## revision 001, using asterisks indicating changed lines in
036888,000012: ## the listing and Luminary Memos #83 and #85, which list
036889,000013: ## changes between Luminary 97 and 98, and 98 and 99. The
036890,000014: ## code has been adapted such that the resulting bugger words
036891,000015: ## exactly match those specified for Luminary 97 in NASA drawing
036892,000016: ## 2021152D, which gives relatively high confidence that the
036893,000017: ## reconstruction is correct.
036894,000018: ## Reference: pp. 857-897
036895,000019: ## Assembler: yaYUL
036896,000020: ## Contact: Ron Burkey <info@sandroid.org>.
036897,000021: ## Website: www.ibiblio.org/apollo/index.html
036898,000022: ## Mod history: 2019-07-28 MAS Created from Luminary 99.
036899,000023:
|
|
Page 857
|
036901,000025: 37,3410 BANK 37
036902,000026: 37,2000 SETLOC SERV1
036903,000027: 37,2000 BANK
036904,000028:
036905,000029: 37,3410 E7,1515 EBANK= DVCNTR
036906,000030:
036907,000031: # ************************************* PREREAD **************************************************************
036908,000032:
036909,000033: 37,3410 COUNT* $$/SERV
036910,000034:
036911,000035: 37,3410 34757 PREREAD CAF SEVEN # 5.7 SPOT TO SKIP LASTBIAS AFTER
036912,000036: 37,3411 03531 TC GNUFAZE5 # RESTART.
036913,000037: 37,3412 35031 CAF PRIO21
036914,000038: 37,3413 05072 TC NOVAC
036915,000039: 37,3414 E3,1460 EBANK= NBDX
036916,000040: 37,3414 03663 14063 2CADR LASTBIAS # DO LAST GYRO COMPENSATION IN FREE FALL
036917,000041:
036918,000042: 37,3416 03544 BIBIBIAS TC PIPASR +3 # CLEAR + READ PIPS LAST TIME IN FRE5+F133
036919,000043: # DO NOT DESTROY VALUE OF PIPTIME1
036920,000044:
036921,000045: 37,3417 40103 CS FLAGWRD7
036922,000046: 37,3420 74773 MASK SUPER011 # SET V37FLAG AND AVEGFLAG (BITS 5 AND 6
036923,000047: 37,3421 26103 ADS FLAGWRD7 # OF FLAGWRD7)
036924,000048:
036925,000049: 37,3422 44735 CS DRFTBIT
036926,000050: 37,3423 70076 MASK FLAGWRD2 # RESET DRIFTFLAG
036927,000051: 37,3424 54076 TS FLAGWRD2
036928,000052:
036929,000053: 37,3425 34751 CAF FOUR # INITIALIZE DV MONITOR
036930,000054: 37,3426 55257 TS PIPAGE
036931,000055:
036932,000056: 37,3427 33537 CAF ENDJBCAD # POINT OUTROUTE TO END-OF-JOB.
036933,000057: 37,3430 55260 TS OUTROUTE
036934,000058:
036935,000059: 37,3431 37710 CAF PRIO22
036936,000060: 37,3432 05105 TC FINDVAC # TO FIRST ENTRY TO AVERAGE G.
036937,000061: 37,3433 E7,1515 EBANK= DVCNTR
036938,000062: 37,3433 02461 46067 2CADR NORMLIZE
036939,000063:
036940,000064: 37,3435 34752 CA TWO # 5.2SPOT FOR REREADAC AND NORMLIZE
036941,000065: 37,3436 03525 GOREADAX TC GNUTFAZ5
036942,000066: 37,3437 35000 CA 2SECS # WAIT TWO SECONDS FOR READACCS
036943,000067: 37,3440 05224 TC VARDELAY
036944,000068:
|
|
Page 858
|
036946,000070: # ************************************* READACCS *************************************************************
036947,000071:
036948,000072: 37,3441 43540 READACCS CS OCT37771 # THIS PIECE OF CODING ATTEMPTS TO
036949,000073: 37,3442 60030 AD TIME5 # SYNCHRONIZE READACCS WITH THE DIGITAL
036950,000074: 37,3443 10000 CCS A # AUTOPILOT SO THAT A PAXIS RUPT WILL
036951,000075: 37,3444 44753 CS ONE # OCCUR APPROXIMATELY 70 MILLISECONDS
036952,000076: 37,3445 13447 TCF +2 # FOLLOWING THE READACCS RUPT. THE 70 MS
036953,000077: 37,3446 34753 CA ONE # OFFSET WAS CHOSEN SO THAT THE PAXIS
036954,000078: 37,3447 26030 +2 ADS TIME5 # RUPT WOULD NOT OCCUR SIMULTANEOUSLY
036955,000079: # WITH ANY OF THE 8 SUBSEQUENT R10,R11
036956,000080: # INTERRUPTS -- THUS MINIMIZING THE POSS-
036957,000081: # IBILITY OF LOSING DOWNRUPTS.
036958,000082:
036959,000083: 37,3450 03541 TC PIPASR # READ THE PIPAS.
036960,000084:
036961,000085: 37,3451 34756 PIPSDONE CA FIVE
036962,000086: 37,3452 03531 TC GNUFAZE5
036963,000087: 37,3453 34753 REDO5.5 CAF ONE
036964,000088: 37,3454 55257 TS PIPAGE
036965,000089:
036966,000090: 37,3455 34736 CA PRIO20
036967,000091: 37,3456 05105 TC FINDVAC
036968,000092: 37,3457 E7,1515 EBANK= DVCNTR
036969,000093: 37,3457 02206 66067 2CADR SERVICER # SET UP SERVICER JOB
036970,000094:
036971,000095: 37,3461 34743 CA BIT9
036972,000096: 37,3462 00006 EXTEND
036973,000097: 37,3463 05011 WOR DSALMOUT # TURN ON TEST CONNECTOR OUTBIT
036974,000098:
036975,000099: 37,3464 30103 CA FLAGWRD7
036976,000100: 37,3465 74747 MASK AVEGFBIT
036977,000101: 37,3466 00006 EXTEND
036978,000102: 37,3467 13517 BZF AVEGOUT # AVEGFLAG DOWN - SET UP FINAL EXIT
036979,000103:
036980,000104: 37,3470 30102 CA FLAGWRD6
036981,000105: 37,3471 74744 MASK MUNFLBIT
036982,000106: 37,3472 00006 EXTEND
036983,000107: 37,3473 13515 BZF MAKEACCS # MUNFLAG CLEAR - BYPASS LR AND DISP.
036984,000108:
036985,000109: 37,3474 10755 CCS PHASE2
036986,000110: 37,3475 13515 TCF MAKEACCS # PHASE 2 ACTIVATED - AVOID MULTIPLE R10.
036987,000111:
036988,000112: 37,3476 34757 CAF SEVEN # SET PIPCTR FOR 4X/SEC RATE.
036989,000113: 37,3477 55056 TS PIPCTR
036990,000114:
036991,000115: 37,3500 40025 CS TIME1 # SET TBASE2 .05 SECONDS IN THE PAST.
036992,000116: 37,3501 64756 AD FIVE
036993,000117: 37,3502 64734 AD NEG1/2
036994,000118: 37,3503 64734 AD NEG1/2
036995,000119: 37,3504 57055 XCH TBASE2
|
|
Page 859
|
036997,000121: 37,3505 34361 CAF DEC17 # 2.21SPOT FOR R10,R11
036998,000122: 37,3506 54001 TS L
036999,000123: 37,3507 40000 COM
037000,000124: 37,3510 52755 DXCH -PHASE2
037001,000125:
037002,000126: 37,3511 36007 CAF OCT24 # FIRST R10,R11 IN .200 SECONDS.
037003,000127: 37,3512 05203 TC WAITLIST
037004,000128: 37,3513 E7,1536 EBANK= UNIT/R/
037005,000129: 37,3513 02006 42067 2CADR R10,R11
037006,000130:
037007,000131: 37,3515 34751 MAKEACCS CA FOUR
037008,000132: 37,3516 13436 TCF GOREADAX # DO PHASE CHANGE AND RECALL READACCS
037009,000133:
037010,000134: 37,3517 00006 AVEGOUT EXTEND
037011,000135: 37,3520 33536 DCA AVOUTCAD # SET UP FINAL SERVICER EXIT
037012,000136: 37,3521 53253 DXCH AVGEXIT
037013,000137:
037014,000138: 37,3522 34751 CA FOUR # SET 5.4 SPOT FOR REREADAC AND SERVICER
037015,000139: 37,3523 03525 TC GNUTFAZ5 # IF REREADAC IS CALLED, IT WILL EXIT
037016,000140: 37,3524 05261 TC TASKOVER # END TASK WITHOUT CALLING READACCS
037017,000141:
037018,000142: 37,3525 54001 GNUTFAZ5 TS L # SAVE INPUT IN L
037019,000143: 37,3526 40025 CS TIME1
037020,000144: 37,3527 55063 TS TBASE5 # SET TBASE5
037021,000145: 37,3530 13532 TCF +2
037022,000146:
037023,000147: 37,3531 54001 GNUFAZE5 TS L # SAVE INPUT IN L
037024,000148: 37,3532 40001 CS L # -PHASE IN A, PHASE IN L
037025,000149: 37,3533 52763 DXCH -PHASE5 # SET -PHASE5,PHASE5
037026,000150: 37,3534 00002 TC Q
037027,000151:
037028,000152: 37,3535 E7,1515 EBANK= DVCNTR
037029,000153: 37,3535 03661 44067 AVOUTCAD 2CADR AVGEND
037030,000154:
037031,000155: 37,3537 65772 ENDJBCAD CADR SERVEXIT +2
037032,000156:
037033,000157: 37,3540 37771 OCT37771 OCT 37771
037034,000158:
037035,000159: 33,2206 BANK 33
037036,000160: 33,2000 SETLOC SERVICES
037037,000161: 33,2000 BANK
037038,000162:
037039,000163: 33,2206 COUNT* $$/SERV
037040,000164:
|
|
Page 860
|
037042,000166: # ************************************* SERVICER *************************************************************
037043,000167:
037044,000168: 33,2206 05353 SERVICER TC PHASCHNG # RESTART REREADAC + SERVICER
037045,000169: 33,2207 16035 OCT 16035
037046,000170: 33,2210 20000 OCT 20000
037047,000171: 33,2211 E7,1515 EBANK= DVCNTR
037048,000172: 33,2211 02217 66067 2CADR GETABVAL
037049,000173:
037050,000174: 33,2213 37716 CAF PRIO31 # INITIALIZE 1/PIPADT IN CASE RESTART HAS
037051,000175: 33,2214 55075 TS 1/PIPADT # CAUSED LASTBIAS TO BE SKIPPED.
037052,000176:
037053,000177: 33,2215 04616 TC BANKCALL # PIPA COMPENSATION CALL
037054,000178: 33,2216 15263 CADR 1/PIPA
037055,000179:
037056,000180: 33,2217 06037 GETABVAL TC INTPRET
037057,000181: 33,2220 51575 VLOAD ABVAL
037058,000182: 33,2221 00325 DELV
037059,000183: 33,2222 77776 EXIT
037060,000184: 33,2223 30154 CA MPAC
037061,000185: 33,2224 55246 TS ABDELV # ABDELV = CM/SEC*2(-14).
037062,000186: 33,2225 00006 EXTEND
037063,000187: 33,2226 72020 MP KPIP
037064,000188: 33,2227 53514 DXCH ABDVCONV # ABDVCONV = M/CS * 2(-5).
037065,000189: 33,2230 00006 EXTEND
037066,000190: 33,2231 31245 DCA MASS
037067,000191: 33,2232 53571 DXCH MASS1 # INITIALIZE MASS1 IN CASE WE SKIP MASSMON
037068,000192: 33,2233 40104 MASSMON CS FLAGWRD8 # ARE WE ON THE SURFACE?
037069,000193: 33,2234 74744 MASK SURFFBIT
037070,000194: 33,2235 00006 EXTEND
037071,000195: 33,2236 12254 BZF MOONSPOT # YES: BYPASS MASS MESS
037072,000196:
037073,000197: 33,2237 30106 CA FLGWRD10 # NO: WHICH VEX SHOULD BE USED?
037074,000198: 33,2240 74737 MASK APSFLBIT
037075,000199: 33,2241 10000 CCS A
037076,000200: 33,2242 00006 EXTEND # IF EXTEND IS EXECUTED, APSVEX --> A,
037077,000201: 33,2243 32001 DCA APSVEX # OTHERWISE DPSVEX --> A
037078,000202: 33,2244 54002 TS Q
037079,000203:
037080,000204: 33,2245 00006 EXTEND
037081,000205: 33,2246 31514 DCA ABDVCONV
037082,000206: 33,2247 00006 EXTEND
037083,000207: 33,2250 10002 OCT10002 DV Q # WHERE APPROPRIATE VEX RESIDES
037084,000208: 33,2251 00006 EXTEND
037085,000209: 33,2252 71244 MP MASS
037086,000210: 33,2253 21571 DAS MASS1
037087,000211:
037088,000212: 33,2254 32021 MOONSPOT CA KPIP1 # TP MPAC = ABDELV AT 2(14) CM/SEC
037089,000213: 33,2255 07307 TC SHORTMP # MULTIPLY BY KPIP1 TO GET
|
|
Page 861
|
037091,000215: 33,2256 52155 DXCH MPAC # ABDELV AT 2(7) M/CS
037092,000216: 33,2257 21510 DAS DVTOTAL # UPDATE DVTOTAL FOR DISPLAY
037093,000217:
037094,000218: 33,2260 02440 TC TMPTOSPT
037095,000219:
037096,000220: 33,2261 04616 TC BANKCALL
037097,000221: 33,2262 47615 CADR QUICTRIG
037098,000222:
037099,000223: 33,2263 32414 CAF XNBPIPAD
037100,000224: 33,2264 04616 TC BANKCALL
037101,000225: 33,2265 20037 CADR FLESHPOT
037102,000226: 33,2266 06037 TC INTPRET
037103,000227: 33,2267 45014 AVERAGEG BON CALL
037104,000228: 33,2270 03307 MUNFLAG
037105,000229: 33,2271 67032 RVBOTH
037106,000230: 33,2272 66776 CALCRVG
037107,000231: 33,2273 77776 EXIT
037108,000232: 33,2274 03532 GOSERV TC QUIKFAZ5
037109,000233:
037110,000234: 33,2275 02423 COPYCYCL TC COPYCYC
037111,000235:
037112,000236: # CA ZERO A IS ZERO ON RETURN FROM COPYCYC
037113,000237: 33,2276 55160 TS PIPATMPX # STILL UNDER INHINT
037114,000238: 33,2277 55161 TS PIPATMPY
037115,000239: 33,2300 55162 TS PIPATMPZ
037116,000240:
037117,000241: 33,2301 44741 CS STEERBIT # CLEAR STEERSW PRIOR TO DVMON.
037118,000242: 33,2302 70076 MASK FLAGWRD2
037119,000243: 33,2303 54076 TS FLAGWRD2
037120,000244:
037121,000245: 33,2304 34745 CAF IDLEFBIT # IS THE IDLE FLAG SET?
037122,000246: 33,2305 70103 MASK FLAGWRD7
037123,000247: 33,2306 10000 CCS A
037124,000248: 33,2307 12342 TCF NODVMON1 # IDLEFLAG = 1, HENCE SET AUXFLAG TO 0.
037125,000249:
037126,000250: 33,2310 40102 CS FLAGWRD6
037127,000251: 33,2311 74752 MASK AUXFLBIT
037128,000252: 33,2312 10000 CCS A
037129,000253: 33,2313 12346 TCF NODVMON2 # AUXFLAG = 0, HENCE SET AUXFLAG TO 1.
037130,000254:
037131,000255: 33,2314 41251 DVMON CS DVTHRUSH
037132,000256: 33,2315 61246 AD ABDELV
037133,000257: 33,2316 00006 EXTEND
037134,000258: 33,2317 62352 BZMF LOTHRUST
037135,000259:
037136,000260: 33,2320 40076 CS FLAGWRD2 # SET STEERSW.
037137,000261: 33,2321 74741 MASK STEERBIT
037138,000262: 33,2322 26076 ADS FLAGWRD2
037139,000263:
037140,000264: 33,2323 34753 DVCNTSET CAF ONE # ALLOW TWO PASSES MAXIMUM NOW THAT
|
|
Page 862
|
037142,000266: 33,2324 55515 TS DVCNTR # THRUST HAS BEEN DETECTED.
037143,000267:
037144,000268: 33,2325 30106 CA FLGWRD10 # BRANCH IF APSFLAG IS SET.
037145,000269: 33,2326 74737 MASK APSFLBIT
037146,000270: 33,2327 10000 CCS A
037147,000271: 33,2330 12375 TCF USEJETS
037148,000272:
037149,000273: 33,2331 34743 CA BIT9 # CHECK GIMBAL FAIL BIT
037150,000274: 33,2332 00006 EXTEND
037151,000275: 33,2333 02032 RAND CHAN32
037152,000276: 33,2334 00006 EXTEND
037153,000277: 33,2335 12375 BZF USEJETS
037154,000278:
037155,000279: 33,2336 44736 USEGTS CS USEQRJTS
037156,000280: 33,2337 70111 MASK DAPBOOLS
037157,000281: 33,2340 54111 TS DAPBOOLS
037158,000282: 33,2341 12400 TCF SERVOUT
037159,000283:
037160,000284: 33,2342 44752 NODVMON1 CS AUXFLBIT # SET AUXFLAG TO 0.
037161,000285: 33,2343 70102 MASK FLAGWRD6
037162,000286: 33,2344 54102 TS FLAGWRD6
037163,000287: 33,2345 12375 TCF USEJETS
037164,000288: 33,2346 40102 NODVMON2 CS FLAGWRD6 # SET AUXFLAG TO 1.
037165,000289: 33,2347 74752 MASK AUXFLBIT
037166,000290: 33,2350 26102 ADS FLAGWRD6
037167,000291: 33,2351 12375 TCF USEJETS
037168,000292:
037169,000293: 33,2352 03532 LOTHRUST TC QUIKFAZ5
037170,000294: 33,2353 11515 CCS DVCNTR
037171,000295: 33,2354 12366 TCF DECCNTR
037172,000296:
037173,000297: 33,2355 10761 CCS PHASE4 # COMFAIL JOB ACTIVE?
037174,000298: 33,2356 12400 TCF SERVOUT # YES WON'T NEED ANOTHER.
037175,000299:
037176,000300: 33,2357 05353 TC PHASCHNG # 4.37SPOT FOR COMFAIL.
037177,000301: 33,2360 00374 OCT 00374
037178,000302:
037179,000303: 33,2361 37713 CAF PRIO25
037180,000304: 33,2362 05072 TC NOVAC
037181,000305: 33,2363 E7,1455 EBANK= WHICH
037182,000306: 33,2363 02571 74067 2CADR COMFAIL
037183,000307:
037184,000308: 33,2365 12400 TCF SERVOUT
037185,000309:
037186,000310: 33,2366 55570 DECCNTR TS DVCNTR1
037187,000311: 33,2367 03532 TC QUIKFAZ5
037188,000312: 33,2370 31570 CA DVCNTR1
037189,000313: 33,2371 55515 TS DVCNTR
037190,000314: 33,2372 00004 INHINT
037191,000315: 33,2373 04674 TC IBNKCALL # IF THRUST IS LOW, NO STEERING IS DONE
|
|
Page 863
|
037193,000317: 33,2374 40165 CADR STOPRATE # AND THE DESIRED RATES ARE SET TO ZERO.
037194,000318: 33,2375 40111 USEJETS CS DAPBOOLS
037195,000319: 33,2376 74736 MASK USEQRJTS
037196,000320: 33,2377 26111 ADS DAPBOOLS
037197,000321: 33,2400 00003 SERVOUT RELINT
037198,000322: 33,2401 04616 TC BANKCALL
037199,000323: 33,2402 40457 CADR 1/ACCS
037200,000324:
037201,000325: 33,2403 30167 CA PRIORITY
037202,000326: 33,2404 75004 MASK LOW9
037203,000327: 33,2405 54166 TS PUSHLOC
037204,000328: 33,2406 22007 ZL
037205,000329: 33,2407 52121 DXCH FIXLOC # FIXLOC AND OVFIND
037206,000330:
037207,000331: 33,2410 03532 TC QUIKFAZ5
037208,000332: 33,2411 00006 EXTEND # EXIT TO SELECTED ROUTINE WHETHER THERE
037209,000333: 33,2412 31253 DCA AVGEXIT # IS THRUST OR NOT. THE STATE OF STEERSW
037210,000334: 33,2413 52006 DXCH Z # WILL CONVEY THIS INFORMATION.
037211,000335:
037212,000336: 33,2414 02145 XNBPIPAD ECADR XNBPIP
037213,000337:
037214,000338: 32,3770 BANK 32
037215,000339: 22,2000 SETLOC SERV2
037216,000340: 22,2000 BANK
037217,000341: 22,3661 COUNT* $$/SERV
037218,000342:
037219,000343: 22,3661 31235 AVGEND CA PIPTIME +1 # FINAL AVERAGE G EXIT
037220,000344: 22,3662 55075 TS 1/PIPADT # SET UP FREE FALL GYRO COMPENSATION.
037221,000345:
037222,000346: 22,3663 05504 TC UPFLAG # SET DRIFT FLAG.
037223,000347: 22,3664 00036 ADRES DRIFTFLG
037224,000348:
037225,000349: 22,3665 04616 TC BANKCALL
037226,000350: 22,3666 17310 CADR PIPFREE
037227,000351:
037228,000352: 22,3667 44743 CS BIT9
037229,000353: 22,3670 00006 EXTEND
037230,000354: 22,3671 03011 WAND DSALMOUT
037231,000355:
037232,000356: 22,3672 05327 TC 2PHSCHNG
037233,000357: 22,3673 00005 OCT 5 # GROUP 5 OFF
037234,000358: 22,3674 05022 OCT 05022 # GROUP 2 ON
037235,000359: 22,3675 20000 OCT 20000
037236,000360:
037237,000361: 22,3676 06037 TC INTPRET
037238,000362: 22,3677 43014 SET CLEAR
037239,000363: 22,3700 01464 NOR29FLG # SHUT OFF R29 WHEN SERVICER ENDS.
037240,000364: 22,3701 03664 SWANDISP # SHUT OFF R10 WHEN SERVICER ENDS.
037241,000365: 22,3702 45014 CLEAR CALL # RESET MUNFLAG.
037242,000366: 22,3703 03267 MUNFLAG
|
|
Page 864
|
037244,000368: 22,3704 27467 AVETOMID
037245,000369: 22,3705 77414 CLEAR EXIT
037246,000370: 22,3706 03671 V37FLAG
037247,000371: 22,3707 31260 AVERTRN CA OUTROUTE # RETURN TO DESIRED POINT.
037248,000372: 22,3710 04640 TC BANKJUMP
037249,000373:
037250,000374: 22,3711 22,3707 OUTGOAVE = AVERTRN
037251,000375: 22,3711 E7,1570 DVCNTR1 = MASS1
037252,000376:
|
|
Page 865
|
037254,000378: 27,2000 SETLOC SERV3
037255,000379: 27,2000 BANK
037256,000380: 27,3321 COUNT* $$/SERV
037257,000381:
037258,000382: 27,3321 00006 SERVIDLE EXTEND # DISCONNECT SERVICER FROM ALL GUIDANCE
037259,000383: 27,3322 33357 DCA SVEXTADR
037260,000384: 27,3323 53253 DXCH AVGEXIT
037261,000385:
037262,000386: 27,3324 40103 CS FLAGWRD7 # DISCONNECT THE DELTA-V MONITOR
037263,000387: 27,3325 74745 MASK IDLEFBIT
037264,000388: 27,3326 26103 ADS FLAGWRD7
037265,000389:
037266,000390: 27,3327 34735 CAF LRBYBIT # TERMINATE R12 IF RUNNING.
037267,000391: 27,3330 54107 TS FLGWRD11
037268,000392:
037269,000393: 27,3331 00006 EXTEND
037270,000394: 27,3332 34755 DCA NEG0
037271,000395: 27,3333 52753 DXCH -PHASE1
037272,000396:
037273,000397: 27,3334 30102 CA FLAGWRD6 # DO NOT TURN OFF PHASE 2 IF MUNFLAG SET.
037274,000398: 27,3335 74744 MASK MUNFLBIT
037275,000399: 27,3336 10000 CCS A
037276,000400: 27,3337 13343 TCF +4
037277,000401:
037278,000402: 27,3340 00006 EXTEND
037279,000403: 27,3341 34755 DCA NEG0
037280,000404: 27,3342 52755 DXCH -PHASE2
037281,000405:
037282,000406: 27,3343 00006 +4 EXTEND
037283,000407: 27,3344 34755 DCA NEG0
037284,000408: 27,3345 52757 DXCH -PHASE3
037285,000409:
037286,000410: 27,3346 00006 EXTEND
037287,000411: 27,3347 34755 DCA NEG0
037288,000412: 27,3350 52765 DXCH -PHASE6
037289,000413:
037290,000414: 27,3351 34764 CAF OCT33 # 4.33SPOT FOR GOPOOFIX
037291,000415: 27,3352 54001 TS L
037292,000416: 27,3353 40000 COM
037293,000417: 27,3354 52761 DXCH -PHASE4
037294,000418:
037295,000419: 27,3355 15644 TCF WHIMPER # PERFORM A SOFTWARE RESTART AND PROCEED
037296,000420: # TO GOTOPOOH WHILE SERVICER CONTINUES TO
037297,000421: # RUN, ALBEIT IN A GROUND STATE WHERE
037298,000422: # ONLY STATE-VECTOR DEPENDENT FUNCTIONS
037299,000423: # ARE MAINTAINED.
037300,000424:
037301,000425: 27,3356 E7,1515 EBANK= DVCNTR
|
|
Page 866
|
037303,000427: 27,3356 03770 64067 SVEXTADR 2CADR SERVEXIT
037304,000428:
037305,000429: 32,3770 BANK 32
037306,000430: 32,2000 SETLOC SERV
037307,000431: 32,2000 BANK
037308,000432: 32,3770 COUNT* $$/SERV
037309,000433:
037310,000434: 32,3770 05353 SERVEXIT TC PHASCHNG
037311,000435: 32,3771 00035 OCT 00035
037312,000436:
037313,000437: 32,3772 15155 +2 TCF ENDOFJOB
037314,000438:
037315,000439: 23,2461 BANK 23
037316,000440: 23,2000 SETLOC NORMLIZ
037317,000441: 23,2000 BANK
037318,000442:
037319,000443: 23,2461 COUNT* $$/SERV
037320,000444:
|
|
Page 867
|
037322,000446: # NORMLIZE AND COPYCYCL
037323,000447:
037324,000448: 23,2461 06037 NORMLIZE TC INTPRET
037325,000449: 23,2462 43175 VLOAD BOFF
037326,000450: 23,2463 03545 RN1
037327,000451: 23,2464 03347 MUNFLAG
037328,000452: 23,2465 66415 NORMLIZ1
037329,000453: 23,2466 64252 VSL6 MXV
037330,000454: 23,2467 01734 REFSMMAT
037331,000455: 23,2470 37521 STCALL R
037332,000456: 23,2471 67130 MUNGRAV
037333,000457: 23,2472 76575 VLOAD VSL1
037334,000458: 23,2473 03553 VN1
037335,000459: 23,2474 77721 MXV
037336,000460: 23,2475 01734 REFSMMAT
037337,000461: 23,2476 27527 STOVL V
037338,000462: 23,2477 01726 V(CSM)
037339,000463: 23,2500 53435 VXV UNIT
037340,000464: 23,2501 01720 R(CSM)
037341,000465: 23,2502 03720 STORE UHYP
037342,000466: 23,2503 77776 ASCSPOT EXIT
037343,000467: 23,2504 00006 EXTEND # MAKE SURE GOUP 2 IS OFF.
037344,000468: 23,2505 34755 DCA NEG0
037345,000469: 23,2506 52755 DXCH -PHASE2
037346,000470:
037347,000471: 23,2507 04635 TC POSTJUMP
037348,000472: 23,2510 66420 CADR NORMLIZ2
037349,000473:
037350,000474: 33,2415 BANK 33
037351,000475: 33,2000 SETLOC SERVICES
037352,000476: 33,2000 BANK
037353,000477: 33,2415 COUNT* $$/SERV
037354,000478:
037355,000479: 33,2415 77624 NORMLIZ1 CALL
037356,000480: 33,2416 66730 CALCGRAV
037357,000481: 33,2417 77776 EXIT
037358,000482:
037359,000483: 33,2420 32437 NORMLIZ2 CA EIGHTEEN
037360,000484: 33,2421 02424 TC COPYCYC +1 # DO NOT COPY MASS IN NORMLIZE
037361,000485: 33,2422 05155 TC ENDOFJOB
037362,000486:
037363,000487: 33,2423 36007 COPYCYC CA OCT24 # DEC 20
037364,000488: 33,2424 00004 +1 INHINT
037365,000489: 33,2425 77747 +2 MASK NEG1 # REDUCE BY 1 IF ODD
037366,000490: 33,2426 54061 TS ITEMP1
037367,000491: 33,2427 00006 EXTEND
037368,000492: 33,2430 50061 INDEX ITEMP1
037369,000493: 33,2431 31545 DCA RN1
037370,000494: 33,2432 50061 INDEX ITEMP1
|
|
Page 868
|
037372,000496: 33,2433 53221 DXCH RN
037373,000497: 33,2434 10061 CCS ITEMP1
037374,000498: 33,2435 12425 TCF COPYCYC +2
037375,000499: 33,2436 00002 TC Q # RETURN UNDER INHINT
037376,000500:
037377,000501: 33,2437 00022 EIGHTEEN DEC 18 B-14
037378,000502:
|
|
Page 869
|
037380,000504: # ******************* PIPA READER ********************
037381,000505: # MOD NO. 00 BY D. LICKLY DEC. 9 1966
037382,000506:
037383,000507: # FUNCTIONAL DESCRIPTION
037384,000508: # SUBROUTINE TO READ PIPA COUNTERS, TRYING TO BE VERY CAREFUL SO THAT IT WILL BE RESTARTABLE.
037385,000509: # PIPA READINGS ARE STORED IN THE VECTOR DELV. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS THE PIPA READING,
037386,000510: # RESTARTS BEGIN AT REREADAC.
037387,000511:
037388,000512: # AT THE END OF THE PIPA READER THE CDUS ARE READ AND STORED AS A
037389,000513: # VECTOR IN CDUTEMP. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS
037390,000514: # THE CDU READING IN 2S COMP IN THE ORDER CDUX,Y,Z. THE THRUST
037391,000515: # VECTOR ESTIMATOR IN FINDCDUD REQUIRES THE CDUS BE READ AT PIPTIME.
037392,000516:
037393,000517: # CALLING SEQUENCE AND EXIT
037394,000518: # CALL VIA TC, ISWCALL, ETC.
037395,000519: # EXIT IS VIA Q.
037396,000520:
037397,000521: # INPUT
037398,000522: # INPUT IS THROUGH THE COUNTERS PIPAX, PIPAY, PIPAZ, AND TIME2.
037399,000523:
037400,000524: # OUTPUT
037401,000525: # HIGH ORDER COMPONENTS OF THE VECTOR DELV CONTAIN THE PIPA READINGS.
037402,000526: # PIPTIME CONTAINS TIME OF PIPA READING.
037403,000527:
037404,000528: # DEBRIS (ERASABLE LOCATIONS DESTROYED BY PROGRAM)
037405,000529: # TEMX TEMY TEMZ PIPAGE
037406,000530:
037407,000531: 37,3541 BANK 37
037408,000532: 37,2000 SETLOC SERV1
037409,000533: 37,2000 BANK
037410,000534:
037411,000535: 37,3541 COUNT* $$/SERV
037412,000536:
037413,000537: 37,3541 00006 PIPASR EXTEND
|
|
Page 870
|
037415,000539: 37,3542 30025 DCA TIME2
037416,000540: 37,3543 53561 DXCH PIPTIME1 # CURRENT TIME POSITIVE VALUE
037417,000541: 37,3544 44755 +3 CS ZERO # INITIALIZE THESE AT NEG. ZERO.
037418,000542: 37,3545 55254 TS TEMX
037419,000543: 37,3546 55255 TS TEMY
037420,000544: 37,3547 55256 TS TEMZ
037421,000545:
037422,000546: 37,3550 34755 CA ZERO
037423,000547: 37,3551 54330 TS DELVZ
037424,000548: 37,3552 54331 TS DELVZ +1
037425,000549: 37,3553 54326 TS DELVY
037426,000550: 37,3554 54327 TS DELVY +1
037427,000551: 37,3555 54325 TS DELVX +1
037428,000552: 37,3556 55257 TS PIPAGE # SHOW PIPA READING IN PROGRESS
037429,000553:
037430,000554: 37,3557 00006 REPIP1 EXTEND
037431,000555: 37,3560 40040 DCS PIPAX # X AND Y PIPS READ
037432,000556: 37,3561 53255 DXCH TEMX
037433,000557: 37,3562 52040 DXCH PIPAX # PIPAS SET TO NEG ZERO AS READ.
037434,000558: 37,3563 54324 TS DELVX
037435,000559: 37,3564 22326 LXCH DELVY
037436,000560:
037437,000561: 37,3565 40041 REPIP3 CS PIPAZ # REPEAT PROCESS FOR Z PIP
037438,000562: 37,3566 57256 XCH TEMZ
037439,000563: 37,3567 56041 XCH PIPAZ
037440,000564: 37,3570 54330 DODELVZ TS DELVZ
037441,000565:
037442,000566: 37,3571 00006 REPIP4 EXTEND # COMPUTE GUIDANCE PERIOD
037443,000567: 37,3572 31561 DCA PIPTIME1
037444,000568: 37,3573 53250 DXCH PGUIDE
037445,000569: 37,3574 00006 EXTEND
037446,000570: 37,3575 41235 DCS PIPTIME
037447,000571: 37,3576 21250 DAS PGUIDE
037448,000572:
037449,000573: 37,3577 30032 CA CDUX # READ CDUS INTO HIGH ORDER CDUTEMPS
037450,000574: 37,3600 55155 TS CDUTEMPX
037451,000575: 37,3601 30033 CA CDUY
037452,000576: 37,3602 55156 TS CDUTEMPY
037453,000577: 37,3603 30034 CA CDUZ
037454,000578: 37,3604 55157 TS CDUTEMPZ
037455,000579: 37,3605 30324 CA DELVX
037456,000580: 37,3606 55160 TS PIPATMPX
037457,000581: 37,3607 30326 CA DELVY
037458,000582: 37,3610 55161 TS PIPATMPY
037459,000583: 37,3611 30330 CA DELVZ
037460,000584: 37,3612 55162 TS PIPATMPZ
037461,000585:
037462,000586: 37,3613 00002 TC Q
037463,000587:
|
|
Page 871
|
037465,000589: 37,3614 11257 REREADAC CCS PIPAGE
037466,000590: 37,3615 13441 TCF READACCS # PIP READING NOT STARTED. GO TO BEGINNING
037467,000591:
037468,000592: 37,3616 33654 CAF DONEADR # SET UP RETURN FROM PIPASR
037469,000593: 37,3617 54002 TS Q
037470,000594:
037471,000595: 37,3620 10330 CCS DELVZ
037472,000596: 37,3621 13571 TCF REPIP4 # Z DONE, GO DO CDUS
037473,000597: 37,3622 13625 TCF +3 # Z NOT DONE, CHECK Y.
037474,000598: 37,3623 13571 TCF REPIP4
037475,000599: 37,3624 13571 TCF REPIP4
037476,000600:
037477,000601: 37,3625 22007 ZL
037478,000602: 37,3626 10326 CCS DELVY
037479,000603: 37,3627 13632 TCF +3
037480,000604: 37,3630 13641 TCF CHKTEMX # Y NOT DONE, CHECK X.
037481,000605: 37,3631 13632 TCF +1
037482,000606: 37,3632 22041 LXCH PIPAZ # Y DONE, ZERO Z PIP.
037483,000607:
037484,000608: 37,3633 11256 CCS TEMZ
037485,000609: 37,3634 41256 CS TEMZ # TEMZ NOT = -0, CONTAINS -PIPAZ VALUE.
037486,000610: 37,3635 13570 TCF DODELVZ
037487,000611: 37,3636 13634 TCF -2
037488,000612: 37,3637 22330 LXCH DELVZ # TEMZ = -0, L HAS ZPIP VALUE.
037489,000613: 37,3640 13571 TCF REPIP4
037490,000614:
037491,000615: 37,3641 11254 CHKTEMX CCS TEMX # HAS THIS CHANGED
037492,000616: 37,3642 41254 CS TEMX # YES
037493,000617: 37,3643 13646 TCF +3 # YES
037494,000618: 37,3644 13642 TCF -2 # YES
037495,000619: 37,3645 13557 TCF REPIP1 # NO
037496,000620: 37,3646 54324 TS DELVX
037497,000621:
037498,000622: 37,3647 41255 CS TEMY
037499,000623: 37,3650 54326 TS DELVY
037500,000624:
037501,000625: 37,3651 44755 CS ZERO # ZERO X AND Y PIPS
037502,000626: 37,3652 52040 DXCH PIPAX # L STILL ZERO FROM ABOVE
037503,000627:
037504,000628: 37,3653 13565 TCF REPIP3
037505,000629:
037506,000630: 37,3654 03451 DONEADR GENADR PIPSDONE
037507,000631:
|
|
Page 872
|
037509,000633: 33,2440 BANK 33
037510,000634: 33,2000 SETLOC SERVICES
037511,000635: 33,2000 BANK
037512,000636:
037513,000637: 33,2440 COUNT* $$/SERV
037514,000638:
037515,000639: 33,2440 31156 TMPTOSPT CA CDUTEMPY # THIS SUBROUTINE, CALLED BY AN RTB FROM
037516,000640: 33,2441 54766 TS CDUSPOTY # INTERPRETIVE, LOADS THE CDUS CORRESPON-
037517,000641: 33,2442 31157 CA CDUTEMPZ # DING TO PIPTIME INTO THE CDUSPOT VECTOR.
037518,000642: 33,2443 54770 TS CDUSPOTZ
037519,000643: 33,2444 31155 CA CDUTEMPX
037520,000644: 33,2445 54772 TS CDUSPOTX
037521,000645: 33,2446 00002 TC Q
037522,000646:
037523,000647: # LRHTASK IS A WAITLIST TASK SET BY READACCS DURING THE DESCENT BRAKING
037524,000648: # PHASE WHEN THE ALT TO THE LUNAR SURFACE IS LESS THAN 25,000 FT. THIS
037525,000649: # TASK CLEARS THE ALTITUDE MEASUREMENT MADE DISCRETE AND INITIATES THE
037526,000650: # LANDING RADAR MEASUREMENT JOB (LRHJOB) TO TAKE A ALTITUDE MEASUREMENT
037527,000651: # 50 MS PRIOR TO THE NEXT READACCS TASK.
037528,000652:
037529,000653: 21,2130 BANK 21
037530,000654: 21,2000 SETLOC R10
037531,000655: 21,2000 BANK
037532,000656:
037533,000657: 21,2130 COUNT* $$/SERV
037534,000658:
037535,000659: 21,2130 40107 LRHTASK CS FLGWRD11
037536,000660: 21,2131 74735 MASK LRBYBIT
037537,000661: 21,2132 00006 EXTEND
037538,000662: 21,2133 12150 BZF GRP2OFF # LR BYPASS SET - BYPASS ALL LR READING.
037539,000663:
037540,000664: 21,2134 34746 CA READLBIT
037541,000665: 21,2135 70107 MASK FLGWRD11 # IS READLR FLAG SET?
037542,000666: 21,2136 00006 EXTEND
037543,000667: 21,2137 12150 BZF GRP2OFF # NO. BYPASS LR READ.
037544,000668:
037545,000669: 21,2140 40107 CS FLGWRD11
037546,000670: 21,2141 74742 MASK NOLRRBIT # IS LR READ INHIBITED?
037547,000671: 21,2142 00006 EXTEND
037548,000672: 21,2143 12150 BZF GRP2OFF # YES. BYPASS LR READ.
037549,000673:
037550,000674: 21,2144 37720 CA PRIO32 # LR READ OK SET JOB TO DO IT
037551,000675: 21,2145 05072 TC NOVAC # ABOUT 50 MS PRIOR TO PIPA READ
037552,000676: 21,2146 E7,1654 EBANK= HMEAS
037553,000677: 21,2146 03716 70067 2CADR LRHJOB
037554,000678:
037555,000679: 21,2150 00006 GRP2OFF EXTEND
037556,000680: 21,2151 34755 DCA NEG0
037557,000681: 21,2152 52755 DXCH -PHASE2
037558,000682: 21,2153 12021 TCF R10,R11A
037559,000683:
037560,000684: 33,2447 BANK 33
037561,000685: 33,2000 SETLOC SERVICES
037562,000686: 33,2000 BANK
|
|
Page 873
|
037564,000688: 33,2447 COUNT* $$/SERV
037565,000689:
037566,000690: # HIGATASK IS ENTERED APPROXIMATELY 6 SECS PRIOR TO HIGATE DURING THE
037567,000691: # DESCENT PHASE. HIGATASK SETS THE HIGATE FLAG (BIT11) AND THE LR INHIBIT
037568,000692: # FLAG (BIT10) IN LRSTAT. THE HIGATJOB IS SET UP TO REPOSITION THE LR
037569,000693: # ANTENNA FROM POSITION 1 TO POSITION 2. IF THE REPOSITIONING IS
037570,000694: # SUCCESSFUL THE ALT BEAM AND VELOCITY BEAMS ARE TRANSFORMED TO THE NEW
037571,000695: # ORIENTATION IN NB COORDINATES AND STORED IN ERASABLE.
037572,000696:
037573,000697: 33,2447 00004 HIGATASK INHINT
037574,000698: 33,2450 45015 CS PRIO3 # SET HIGATE AND LR INHIBIT FLAGS
037575,000699: 33,2451 70107 MASK FLGWRD11
037576,000700: 33,2452 65015 AD PRIO3
037577,000701: 33,2453 54107 TS FLGWRD11
037578,000702: 33,2454 37720 CAF PRIO32
037579,000703: 33,2455 05105 TC FINDVAC # SET LR POSITIONING JOB (POS2)
037580,000704: 33,2456 E7,1654 EBANK= HMEAS
037581,000705: 33,2456 03650 66067 2CADR HIGATJOB
037582,000706:
037583,000707: 33,2460 12540 TCF CONTSERV # CONTINUE SERVICER
037584,000708:
|
|
Page 874
|
037586,000710: # MUNRETRN IS THE RETURN LOC FROM SPECIAL AVE G ROUTINE (MUNRVG)
037587,000711:
037588,000712: 33,2461 77776 MUNRETRN EXIT
037589,000713:
037590,000714: 33,2462 40107 CS FLGWRD11
037591,000715: 33,2463 74735 MASK LRBYBIT
037592,000716: 33,2464 00006 EXTEND
037593,000717: 33,2465 12546 BZF COPYCYC1 # BYPASS LR LOGIC IF BIT15 IS SET.
037594,000718:
037595,000719: 33,2466 34746 CA READLBIT # SEE IF ALT < 35000 FT LAST CYCLE
037596,000720: 33,2467 70107 MASK FLGWRD11
037597,000721: 33,2470 00006 EXTEND
037598,000722: 33,2471 12721 BZF 35KCHK # ALT WAS > 35000 FT LAST CYCLE CHK NOW
037599,000723:
037600,000724: 33,2472 34743 CAF XORFLBIT # WERE WE BELOW 30000 FT LAST PASS?
037601,000725: 33,2473 70107 MASK FLGWRD11
037602,000726: 33,2474 00006 EXTEND
037603,000727: 33,2475 12710 BZF XORCHK # NO - TEST THIS PASS
037604,000728: 33,2476 34741 HITEST CAF PSTHIBIT # CHECK FOR HIGATE
037605,000729: 33,2477 70107 MASK FLGWRD11
037606,000730: 33,2500 00006 EXTEND
037607,000731: 33,2501 12515 BZF HIGATCHK # NOT AT HIGATE LAST CYCLE-CHK THIS CYCLE
037608,000732:
037609,000733: 33,2502 34745 POS2CHK CAF BIT7 # VERIFY LR IN POS2
037610,000734: 33,2503 00006 EXTEND
037611,000735: 33,2504 02033 RAND CHAN33
037612,000736: 33,2505 00006 EXTEND
037613,000737: 33,2506 13155 BZF UPDATCHK # IT IS-CHECK FOR LR UPDATE
037614,000738: 33,2507 34737 CAF BIT13 # NOT IN POS2-MAYBE REPOSITIONING
037615,000739: 33,2510 00006 EXTEND
037616,000740: 33,2511 02012 RAND CHAN12
037617,000741: 33,2512 00006 EXTEND
037618,000742: 33,2513 12536 BZF LRPOSALM # LR NOT IN POS2 OR REPOSITIONING-BAD
037619,000743: 33,2514 12540 TCF CONTSERV # LR BEING REPOSITIONED-CONTINUE SERV
037620,000744:
037621,000745: 33,2515 31642 HIGATCHK CA TTF/8 # IS TTF > CRITERION? (TTF IS NEGATIVE)
037622,000746: 33,2516 61427 AD RPCRTIME
037623,000747: 33,2517 00006 EXTEND
037624,000748: 33,2520 62531 BZMF POS1CHK # NO
037625,000749:
037626,000750: 33,2521 34741 CA EBANK4 # MUST SWITCH EBANKS
037627,000751: 33,2522 56003 XCH EBANK
037628,000752: 33,2523 54001 TS L # SAVE IN L
037629,000753:
037630,000754: 33,2524 E4,1545 EBANK= XNBPIP
037631,000755: 33,2524 41545 CS XNBPIP # UXBXP IN GSOP CH5
037632,000756: 33,2525 E7,1515 EBANK= DVCNTR
037633,000757: 33,2525 22003 LXCH EBANK # RESTORE EBANK
037634,000758: 33,2526 61430 AD RPCRTQSW # QSW - UXBXP
|
|
Page 875
|
037636,000760:
037637,000761: 33,2527 00006 EXTEND
037638,000762: 33,2530 62447 BZMF HIGATASK # IF UXBXP > QSW, THEN REPOSITION
037639,000763:
037640,000764: 33,2531 34746 POS1CHK CAF BIT6 # HIGATE NOT IN SIGHT-DO POS1 CHK
037641,000765: 33,2532 00006 EXTEND
037642,000766: 33,2533 02033 RAND 33
037643,000767: 33,2534 00006 EXTEND
037644,000768: 33,2535 13155 BZF UPDATCHK # LR IN POS1-CHECK FOR LR UPDATE
037645,000769:
037646,000770: 33,2536 05567 LRPOSALM TC ALARM # LR NOT IN PROPER POS-ALARM-BYPASS UPDATE
037647,000771: 33,2537 00511 OCT 511 # AND CONTINUE SERVICER
037648,000772: 33,2540 00004 CONTSERV INHINT
037649,000773: 33,2541 43154 CS BITS4-7
037650,000774: 33,2542 70107 MASK FLGWRD11 # CLEAR LR MEASUREMENT MADE DISCRETES.
037651,000775: 33,2543 54107 TS FLGWRD11
037652,000776:
037653,000777: 33,2544 04674 TC IBNKCALL # SET LR LITES PROPERLY
037654,000778: 33,2545 53607 CADR R12LITES
037655,000779:
|
|
Page 876
|
037657,000781: 33,2546 03532 COPYCYC1 TC QUIKFAZ5
037658,000782:
037659,000783: 33,2547 30077 R29? CA FLAGWRD3
037660,000784: 33,2550 75014 MASK NR29&RDR
037661,000785: 33,2551 10000 CCS A # IS NOR29FLG OR READRFLG SET?
037662,000786: 33,2552 12564 TCF R29NODES # YES, SO DON'T DESIGNATE.
037663,000787:
037664,000788: 33,2553 30110 CA RADMODES # NO, SO R29 IS CALLED FOR.
037665,000789: 33,2554 72250 MASK OCT10002 # IS THE RR NOT ZEROING ITS CDUS, AND
037666,000790: 33,2555 10000 CCS A # IS THE RENDEZVOUS RADAR IN AUTO MODE?
037667,000791: 33,2556 12564 TCF R29NODES # NO, SO DON'T DESIGNATE.
037668,000792:
037669,000793: 33,2557 30110 CA RADMODES
037670,000794: 33,2560 77710 MASK PRIO22
037671,000795: 33,2561 10000 CCS A # IS RR REPOSITIONING OR REMODING?
037672,000796: 33,2562 12570 TCF NOR29NOW # YES; COME BACK IN 2 SECONDS & TRY AGAIN.
037673,000797:
037674,000798: 33,2563 12045 TCF R29
037675,000799:
037676,000800: 33,2564 00004 R29NODES INHINT # R29 NOT ALLOWED THIS CYCLE.
037677,000801: 33,2565 44742 CS DESIGBIT # SHOW THAT DESIGNATION IS OFF.
037678,000802: 33,2566 70110 MASK RADMODES
037679,000803: 33,2567 54110 TS RADMODES
037680,000804:
037681,000805: 33,2570 06037 NOR29NOW TC INTPRET # INTPRET DOES A RELINT.
037682,000806: 33,2571 51575 VLOAD ABVAL # MPAC = ABVAL( NEW SM. POSITION VECTOR )
037683,000807: 33,2572 03573 R1S
037684,000808: 33,2573 45206 PUSH DSU # (2)
037685,000809: 33,2574 02333 /LAND/
037686,000810: 33,2575 03535 STORE HCALC # NEW HCALC*2(24)M.
037687,000811: 33,2576 03775 STORE HCALC1
037688,000812: 33,2577 47075 DMPR RTB
037689,000813: 33,2600 26026 ALTCONV
037690,000814: 33,2601 21612 SGNAGREE
037691,000815: 33,2602 27742 STOVL ALTBITS # ALTITUDE FOR R10 IN BIT UNITS.
037692,000816: 33,2603 03537 UNIT/R/
037693,000817: 33,2604 53435 VXV UNIT
037694,000818: 33,2605 03720 UHYP
037695,000819: 33,2606 27726 STOVL UHZP # DOWNRANGE HALF-UNIT VECTOR FOR R10.
037696,000820: 33,2607 03573 R1S
037697,000821: 33,2610 60505 VXM VSR4
037698,000822: 33,2611 01734 REFSMMAT
037699,000823: 33,2612 27545 STOVL RN1 # TEMP. REF. POSITION VECTOR*2(29)M.
037700,000824: 33,2613 03601 V1S
037701,000825: 33,2614 76505 VXM VSL1
037702,000826: 33,2615 01734 REFSMMAT
037703,000827: 33,2616 27553 STOVL VN1 # TEMP. REF. VELOCITY VECTOR*2(7) M/CS.
037704,000828: 33,2617 03537 UNIT/R/
037705,000829: 33,2620 51435 VXV ABVAL
|
|
Page 877
|
037707,000831: 33,2621 03601 V1S
037708,000832: 33,2622 63552 SL1 DSQ
037709,000833: 33,2623 77671 DDV
037710,000834: 33,2624 47075 DMPR RTB
037711,000835: 33,2625 26030 ARCONV1
037712,000836: 33,2626 21612 SGNAGREE
037713,000837: 33,2627 77776 COPYCYC2 EXIT # LEAVE ALTITUDE RATE COMPENSATION IN MPAC
037714,000838: 33,2630 00004 INHINT
037715,000839: 33,2631 31536 CA UNIT/R/ # UPDATE RUNIT FOR R10.
037716,000840: 33,2632 55743 TS RUNIT
037717,000841: 33,2633 31540 CA UNIT/R/ +2
037718,000842: 33,2634 55744 TS RUNIT +1
037719,000843: 33,2635 31542 CA UNIT/R/ +4
037720,000844: 33,2636 55745 TS RUNIT +2
037721,000845: 33,2637 30154 CA MPAC # LOAD NEW DALTRATE FOR R10.
037722,000846: 33,2640 55716 TS DALTRATE
037723,000847:
037724,000848: 33,2641 00006 EXTEND
037725,000849: 33,2642 31573 DCA R1S
037726,000850: 33,2643 53521 DXCH R
037727,000851: 33,2644 00006 EXTEND
037728,000852: 33,2645 31575 DCA R1S +2
037729,000853: 33,2646 53523 DXCH R +2
037730,000854: 33,2647 00006 EXTEND
037731,000855: 33,2650 31577 DCA R1S +4
037732,000856: 33,2651 53525 DXCH R +4
037733,000857: 33,2652 00006 EXTEND
037734,000858: 33,2653 31601 DCA V1S
037735,000859: 33,2654 53527 DXCH V
037736,000860: 33,2655 00006 EXTEND
037737,000861: 33,2656 31603 DCA V1S +2
037738,000862: 33,2657 53531 DXCH V +2
037739,000863: 33,2660 00006 EXTEND
037740,000864: 33,2661 31605 DCA V1S +4
037741,000865: 33,2662 53533 DXCH V +4
037742,000866:
037743,000867: 33,2663 12275 TCF COPYCYCL # COMPLETE THE COYPCYCL.
037744,000868:
|
|
Page 878
|
037746,000870: # ALTCHK COMPARES CURRENT ALTITUDE (IN HCALC) WITH A SPECIFIED ALTITUDE FROM A TABLE BEGINNING AT ALTCRIT.
037747,000871: # ITS CALLING SEQUENCE IS AS FOLLOWS:-
037748,000872:
037749,000873: # L CAF N
037750,000874: # L+1 TC BANKCALL
037751,000875: # L+2 CADR ALTCHK
037752,000876: # L+3 RETURN HERE IF HCALC STILL > SPECIFIED CRITERION. C(L) = +0.
037753,000877: # L+4 RETURN HERE IF HCALC < OR = SPECIFIED CRITERION. C(A) = C(L) = +0
037754,000878:
037755,000879: # ALTCHK MUST BE BANKCALLED EVEN FROM ITS OWN BANK. N IS THE LOCATION, RELATIVE TO THE TAG ALTCRIT,
037756,000880: # OF THE BEGINNING OF THE DP CONSTANT TO BE USED AS A CRITERION.
037757,000881:
037758,000882: 33,2664 00006 ALTCHK EXTEND
037759,000883: 33,2665 50000 INDEX A
037760,000884: 33,2666 32700 DCA ALTCRIT
037761,000885: 33,2667 52156 DXCH MPAC +1
037762,000886: 33,2670 00006 EXTEND
037763,000887: 33,2671 41535 DCS HCALC
037764,000888: 33,2672 20156 DAS MPAC +1
037765,000889: 33,2673 06727 TC BRANCH +4
037766,000890: 33,2674 34755 CAF ZERO # BETTER THAN A NOOP, PERHAPS
037767,000891: 33,2675 24133 INCR BUF2
037768,000892: 33,2676 14631 TCF SWRETURN
037769,000893:
037770,000894: 33,2677 33,2677 ALTCRIT = 25KFT
037771,000895:
037772,000896: 33,2677 00007 16100 25KFT 2DEC 7620 B-24 # (0)
037773,000897:
037774,000898: 33,2701 00016 34200 50KFT 2DEC 15240 B-24 # (2)
037775,000899:
037776,000900: 33,2703 00000 00364 50FT 2DEC 15.24 B-24 # (4)
037777,000901:
037778,000902: 33,2705 00010 35600 30KFT 2DEC 9144 B-24 # (6)
037779,000903:
037780,000904: 33,2707 01414 2KFT/SEC DEC 6.096 B-7 # 2000 FT/SEC AT 2(7) M/CS
037781,000905:
037782,000906:
|
|
A remark was likely to be needed here to explain XORCHK — 4/Jun/09,FB
|
037784,000908:
037785,000909: 33,2710 36242 XORCHK CAF SIX # ARE WE BELOW 30000 FT?
037786,000910: 33,2711 04616 TC BANKCALL
037787,000911: 33,2712 66664 CADR ALTCHK
037788,000912: 33,2713 12476 TCF HITEST # CONTINUE LR UPDATE
037789,000913: 33,2714 05504 TC UPFLAG # YES: INHIBIT X-AXIS OVERRIDE
037790,000914: 33,2715 00311 ADRES XOVINFLG
037791,000915: 33,2716 05504 TC UPFLAG
037792,000916: 33,2717 00253 ADRES XORFLG
037793,000917: 33,2720 12476 TCF HITEST # CONTINUE LR UPDATE
037794,000918:
037795,000919: 33,2721 34752 35KCHK CAF TWO # ARE WE BELOW 35000 FT?
037796,000920:
|
|
Page 879
|
037798,000922: 33,2722 04616 TC BANKCALL
037799,000923: 33,2723 66664 CADR ALTCHK
037800,000924: 33,2724 12540 TCF CONTSERV
037801,000925: 33,2725 05504 TC UPFLAG
037802,000926: 33,2726 00256 ADRES READLR # SET READLR FLAG TO ENABLE LR READING.
037803,000927: 33,2727 12540 TCF CONTSERV
037804,000928:
|
|
Page 880
|
037806,000930: # *********************************************************************************************************
037807,000931:
037808,000932: 33,2730 41456 CALCGRAV UNIT PUSH # SAVE UNIT/R/ IN PUSHLIST (18)
037809,000933: 33,2731 03537 STORE UNIT/R/
037810,000934: 33,2732 67340 LXC,1 SLOAD # RTX2 = 0 IF EARTH ORBIT, =2 IF LUNAR.
037811,000935: 33,2733 02777 RTX2
037812,000936: 33,2734 03000 RTX2
037813,000937: 33,2735 50076 DCOMP BMN
037814,000938: 33,2736 66765 CALCGRV1
037815,000939: 33,2737 50375 VLOAD DOT # (12)
037816,000940: 33,2740 06514 UNITZ
037817,000941: 33,2741 03537 UNIT/R/
037818,000942: 33,2742 41552 SL1 PUSH # (14)
037819,000943: 33,2743 44316 DSQ BDSU
037820,000944: 33,2744 27027 DP1/20
037821,000945: 33,2745 56325 PDDL DDV
037822,000946: 33,2746 26040 RESQ
037823,000947: 33,2747 00043 34D # (RN)SQ
037824,000948: 33,2750 00041 STORE 32D # TEMP FOR (RE/RN)SQ
037825,000949: 33,2751 41205 DMP DMP
037826,000950: 33,2752 26042 20J
037827,000951: 33,2753 65361 VXSC PDDL
037828,000952: 33,2754 03537 UNIT/R/
037829,000953: 33,2755 41205 DMP DMP
037830,000954: 33,2756 26044 2J
037831,000955: 33,2757 00041 32D
037832,000956: 33,2760 76561 VXSC VSL1
037833,000957: 33,2761 06514 UNITZ
037834,000958: 33,2762 45455 VAD STADR
037835,000959: 33,2763 74256 STORE UNITGOBL
037836,000960: 33,2764 41455 VAD PUSH # MPAC = UNIT GRAVITY VECTOR. (18)
037837,000961: 33,2765 60345 CALCGRV1 DLOAD NORM # PERFORM A NORMALIZATION ON RMAGSQ IN
037838,000962: 33,2766 00043 34D # ORDER TO BE ABLE TO SCALE THE MU FOR
037839,000963: 33,2767 00050 X2 # MAXIMUM PRECISION.
037840,000964: 33,2770 53663 BDDV* SLR*
037841,000965: 33,2771 26032 -MUDT,1
037842,000966: 33,2772 56623 0 -21D,2
037843,000967: 33,2773 45561 VXSC STADR
037844,000968: 33,2774 74214 STORE GDT1/2 # SCALED AT 2(+7) M/CS
037845,000969: 33,2775 77616 RVQ
037846,000970:
037847,000971: 33,2776 61375 CALCRVG VLOAD VXM
037848,000972: 33,2777 00325 DELV
037849,000973: 33,3000 01734 REFSMMAT
037850,000974: 33,3001 76561 VXSC VSL1
037851,000975: 33,3002 26022 KPIP1
037852,000976: 33,3003 03527 STORE DELVREF
037853,000977: 33,3004 41562 VSR1 PUSH
037854,000978: 33,3005 41455 VAD PUSH # (DV-OLDGDT)/2 TO PD SCALED AT 2(+7) M/CS
|
|
Page 881
|
037856,000980: 33,3006 01237 GDT/2
037857,000981: 33,3007 65255 VAD PDDL # (18)
037858,000982: 33,3010 01227 VN
037859,000983: 33,3011 01250 PGUIDE
037860,000984: 33,3012 74261 SL VXSC
037861,000985: 33,3013 20207 6D
037862,000986: 33,3014 44055 VAD STQ
037863,000987: 33,3015 01221 RN
037864,000988: 33,3016 00037 31D
037865,000989: 33,3017 37545 STCALL RN1 # TEMP STORAGE OF RN SCALED 2(+29)M
037866,000990: 33,3020 66730 CALCGRAV
037867,000991:
037868,000992: 33,3021 53255 VAD VAD
037869,000993: 33,3022 77655 VAD
037870,000994: 33,3023 01227 VN
037871,000995: 33,3024 37553 STCALL VN1 # TEMP STORAGE OF VN SCALED 2(+7)M/CS
037872,000996: 33,3025 00037 31D
037873,000997:
037874,000998: 33,3026 01463 06315 DP1/20 2DEC 0.05
037875,000999: 33,3030 00010 00000 SHIFT11 2DEC 1 B-11
037876,001000:
|
|
Page 882
|
037878,001002: # ****************************************************************************************************************
037879,001003: # MUNRVG IS A SPECIAL AVERAGE G INTEGRATION ROUTINE USED BY THRUSTING
037880,001004: # PROGRAMS WHICH FUNCTION IN THE VICINITY OF AN ASSUMED SPHERICAL MOON.
037881,001005: # THE INPUT AND OUTPUT QUANTITIES ARE REFERENCED TO THE STABLE MEMBER
037882,001006: # COORDINATE SYSTEM.
037883,001007:
037884,001008: 33,3032 41575 RVBOTH VLOAD PUSH
037885,001009: 33,3033 02317 G(CSM)
037886,001010: 33,3034 65255 VAD PDDL
037887,001011: 33,3035 01726 V(CSM)
037888,001012: 33,3036 01250 PGUIDE
037889,001013: 33,3037 74271 DDV VXSC
037890,001014: 33,3040 27031 SHIFT11
037891,001015: 33,3041 77655 VAD
037892,001016: 33,3042 01720 R(CSM)
037893,001017: 33,3043 37573 STCALL R1S
037894,001018: 33,3044 67130 MUNGRAV
037895,001019: 33,3045 53255 VAD VAD
037896,001020: 33,3046 01726 V(CSM)
037897,001021: 33,3047 77626 STADR
037898,001022: 33,3050 74176 STORE V1S
037899,001023: 33,3051 77776 EXIT
037900,001024: 33,3052 03532 TC QUIKFAZ5
037901,001025: 33,3053 06037 TC INTPRET
037902,001026: 33,3054 77775 VLOAD
037903,001027: 33,3055 03563 GDT1/2
037904,001028: 33,3056 26317 STOVL G(CSM)
037905,001029: 33,3057 03573 R1S
037906,001030: 33,3060 25720 STOVL R(CSM)
037907,001031: 33,3061 03601 V1S
037908,001032: 33,3062 01726 STORE V(CSM)
037909,001033: 33,3063 77776 EXIT
037910,001034: 33,3064 03532 TC QUIKFAZ5
037911,001035: 33,3065 06037 TC INTPRET
037912,001036: 33,3066 74375 MUNRVG VLOAD VXSC
037913,001037: 33,3067 00325 DELV
037914,001038: 33,3070 26024 KPIP2
037915,001039: 33,3071 53206 PUSH VAD # 1ST PUSH: DELV IN UNITS OF 2(8) M/CS
037916,001040: 33,3072 01237 GDT/2
037917,001041: 33,3073 53206 PUSH VAD # 2ND PUSH: (DELV + GDT)/2, UNITS OF 2(7)
037918,001042: 33,3074 03527 V # (12)
037919,001043: 33,3075 56325 PDDL DDV
037920,001044: 33,3076 01250 PGUIDE
037921,001045: 33,3077 27031 SHIFT11
037922,001046: 33,3100 77761 VXSC
037923,001047: 33,3101 77655 VAD
037924,001048: 33,3102 03521 R
037925,001049: 33,3103 37573 STCALL R1S # STORE R SCALED AT 2(+24) M.
037926,001050: 33,3104 67130 MUNGRAV
|
|
Page 883
|
037928,001052: 33,3105 53255 VAD VAD
037929,001053: 33,3106 77655 VAD # (0)
037930,001054: 33,3107 03527 V
037931,001055: 33,3110 03601 STORE V1S # STORE V SCALED AT 2(+7) M/CS.
037932,001056: 33,3111 77646 ABVAL
037933,001057: 33,3112 27472 STOVL ABVEL # STORE SPEED FOR LR AND DISPLAYS.
037934,001058: 33,3113 03537 UNIT/R/
037935,001059: 33,3114 72441 DOT SL1
037936,001060: 33,3115 03601 V1S
037937,001061: 33,3116 27474 STOVL HDOTDISP # HDOT = V. UNIT(R)*2(7) M/CS.
037938,001062: 33,3117 03573 R1S
037939,001063: 33,3120 72435 VXV VSL2
037940,001064: 33,3121 02325 WM
037941,001065: 33,3122 17734 STODL DELVS # LUNAR ROTATION CORRECTION TERM*2(5) M/CS.
037942,001066: 33,3123 00045 36D
037943,001067: 33,3124 77625 DSU
037944,001068: 33,3125 02333 /LAND/
037945,001069: 33,3126 37535 STCALL HCALC # FOR NOW, DISPLAY WHETHER POS OR NEG
037946,001070: 33,3127 66461 MUNRETRN
037947,001071: 33,3130 77656 MUNGRAV UNIT # AT 36D HAVE ABVAL(R), AT 34D R.R
037948,001072: 33,3131 17537 STODL UNIT/R/
037949,001073: 33,3132 00043 34D
037950,001074: 33,3133 55261 SL BDDV
037951,001075: 33,3134 20207 6D
037952,001076: 33,3135 26036 -MUDTMUN
037953,001077: 33,3136 74205 DMP VXSC
037954,001078: 33,3137 27031 SHIFT11
037955,001079: 33,3140 03537 UNIT/R/
037956,001080: 33,3141 03563 STORE GDT1/2 # 1/2GDT SCALED AT 2(7) M/CS.
037957,001081: 33,3142 77616 RVQ
037958,001082:
037959,001083: 33,3143 00303 1.95SECS DEC 195 B-14
037960,001084: 33,3144 00005 33212 7.5 2DEC .02286 B-6 # 7.5 FT/SEC AT 2(6) M/CS
037961,001085:
037962,001086: 33,3146 00014 20000 2SEC(18) 2DEC 200 B-18
037963,001087:
037964,001088: 33,3150 00000 00310 2SEC(28) 2OCT 0000000310 # 2SEC AT 2(28)
037965,001089:
037966,001090: 33,3152 00000 00620 4SEC(28) 2DEC 400 B-28
037967,001091:
037968,001092: 33,3154 00110 BITS4-7 OCT 110
037969,001093:
037970,001094:
|
|
Page 884
|
037972,001096: 33,3155 34742 UPDATCHK CAF NOLRRBIT # SEE IF LR UPDATE INHIBITED.
037973,001097: 33,3156 70107 MASK FLGWRD11
037974,001098: 33,3157 10000 CCS A
037975,001099: 33,3160 12540 TCF CONTSERV # IT IS-NO LR UPDATE
037976,001100: 33,3161 34750 CAF RNGEDBIT # NO INHIBIT - SEE ALT MEAS. THIS CYCLE.
037977,001101: 33,3162 70107 MASK FLGWRD11
037978,001102: 33,3163 00006 EXTEND
037979,001103: 33,3164 13270 BZF VMEASCHK # NO ALT MEAS THIS CYCLE-CHECK FOR VEL
037980,001104:
037981,001105: 33,3165 06037 POSUPDAT TC INTPRET
037982,001106: 33,3166 54345 DLOAD SL
037983,001107: 33,3167 03655 HMEAS # COMPUTE SLANT RANGE
037984,001108: 33,3170 20210 7
037985,001109: 33,3171 74205 DMP VXSC
037986,001110: 33,3172 26011 HSCAL # SLANT RANGE AT 2(21) M
037987,001111: 33,3173 02273 HBEAMNB # RANGE VECTOR IN NB COORDINATES AT 2(22)M
037988,001112: 33,3174 77705 VXM
037989,001113: 33,3175 02146 XNBPIP # CONVERT TO SM COORDINATES AT 2(23)M
037990,001114: 33,3176 45241 DOT DSU
037991,001115: 33,3177 03537 UNIT/R/ # ALTITUDE AT 2(24) M
037992,001116: 33,3200 03535 HCALC # DELTA H AT 2(24) M
037993,001117: 33,3201 03665 STORE DELTAH
037994,001118: 33,3202 77776 EXIT
037995,001119:
037996,001120: 33,3203 30107 CA FLGWRD11
037997,001121: 33,3204 74741 MASK PSTHIBIT
037998,001122: 33,3205 00006 EXTEND # DO NOT PERFORM DATA REASONABLENESS TEST
037999,001123: 33,3206 13223 BZF NOREASON # UNTIL AFTER HIGATE
|
|
Page 885
|
038001,001125: 33,3207 06037 TC INTPRET
038002,001126: 33,3210 45246 ABS DSU
038003,001127: 33,3211 02521 DELQFIX # ABS(DELTAH) - DQFIX 50 FT NOM
038004,001128: 33,3212 45252 SL3 DSU # SCALE TO 2(21)
038005,001129: 33,3213 03535 HCALC # ABS(DELTAH) - (50 + HCALC/8) AT 2(21)
038006,001130: 33,3214 77776 EXIT
038007,001131:
038008,001132: 33,3215 25670 INCR LRLCTR
038009,001133: 33,3216 06723 TC BRANCH
038010,001134: 33,3217 13540 TCF HFAIL # DELTA H TOO LARGE
038011,001135: 33,3220 13540 TCF HFAIL # DELTA H TOO LARGE
038012,001136: 33,3221 05516 TC DOWNFLAG # TURN OFF ALT FAIL LAMP
038013,001137: 33,3222 00263 ADRES HFLSHFLG
038014,001138:
038015,001139: 33,3223 40107 NOREASON CS FLGWRD11
038016,001140: 33,3224 74744 MASK LRINHBIT
038017,001141: 33,3225 10000 CCS A
038018,001142: 33,3226 13270 TCF VMEASCHK # UPDATE INHIBITED - TEST VELOCITY ANYWAY
038019,001143:
038020,001144: 33,3227 06037 TC INTPRET # DO POSITION UPDATE
038021,001145: 33,3230 40545 DLOAD SR4
038022,001146: 33,3231 03535 HCALC # RESCALE H TO 2(28)M
038023,001147: 33,3232 77776 EXIT
038024,001148: 33,3233 00006 EXTEND
038025,001149: 33,3234 31665 DCA DELTAH # STORE DELTAH IN MPAC AND
038026,001150: 33,3235 52155 DXCH MPAC # BRING HCALC INTO A,L
038027,001151: 33,3236 07544 TC ALSIGNAG
038028,001152: 33,3237 00006 EXTEND # IF HIGH PART OF HCALC IS NON ZERO, THEN
038029,001153: 33,3240 13242 BZF +2 # HCALC > HMAX,
038030,001154: 33,3241 13270 TCF VMEASCHK # SO UPDATE IS BYPASSED
038031,001155: 33,3242 54156 TS MPAC +2 # FOR LATER SHORTMP
038032,001156:
038033,001157: 33,3243 40001 CS L # -H AT 2(14) M
038034,001158: 33,3244 61420 AD LRHMAX # HMAX - H
038035,001159: 33,3245 00006 EXTEND
038036,001160: 33,3246 63270 BZMF VMEASCHK # IF H >HMAX, BYPASS UPDATE
038037,001161: 33,3247 00006 EXTEND
038038,001162: 33,3250 71421 MP LRWH # WH(HMAX - H)
038039,001163: 33,3251 00006 EXTEND
038040,001164: 33,3252 11420 DV LRHMAX # WH(1 - H/HMAX)
038041,001165: 33,3253 54135 TS MPTEMP
038042,001166: 33,3254 07313 TC SHORTMP2 # DELTAH (WH)(1 - H/HMAX) IN MPAC
038043,001167: 33,3255 06037 TC INTPRET # MODE IS DP FROM ABOVE
038044,001168: 33,3256 77752 SL1
038045,001169: 33,3257 53361 VXSC VAD
038046,001170: 33,3260 03537 UNIT/R/ # DELTAR = DH(WH)(1 - H/HMAX) UNIT/R/
038047,001171: 33,3261 03573 R1S
038048,001172: 33,3262 37657 STCALL GNUR
038049,001173: 33,3263 67130 MUNGRAV
038050,001174: 33,3264 77776 EXIT
|
|
Page 886
|
038052,001176: 33,3265 03532 TC QUIKFAZ5
038053,001177:
038054,001178: 33,3266 34755 CA ZERO
038055,001179: 33,3267 03514 RUPDATED TC GNURVST
038056,001180:
038057,001181: 33,3270 03532 VMEASCHK TC QUIKFAZ5 # RESTART AT NEXT LOCATION
038058,001182: 33,3271 40107 CS FLGWRD11
038059,001183: 33,3272 74745 MASK VELDABIT # IS V READING AVAILABLE?
038060,001184: 33,3273 10000 CCS A
038061,001185: 33,3274 13474 TCF VALTCHK # NO SEE IF V READING TO BE TAKEN
038062,001186:
038063,001187: 33,3275 41651 VELUPDAT CS VSELECT # PROCESS VELOCITY DATA
038064,001188: 33,3276 54001 TS L
038065,001189: 33,3277 26001 ADS L # -2 VSELECT IN L
038066,001190: 33,3300 60001 AD L
038067,001191: 33,3301 60001 AD L # -6 VSELECT IN A
038068,001192: 33,3302 50120 INDEX FIXLOC
038069,001193: 33,3303 52047 DXCH X1 # X1 = -6 VSELECT, X2 = -2 VSELECT
038070,001194:
038071,001195: 33,3304 34741 CA EBANK4
038072,001196: 33,3305 54003 TS EBANK
038073,001197: 33,3306 E4,1654 EBANK= LRXCDU
038074,001198:
038075,001199: 33,3306 31655 CA LRYCDU # STORE LRCDUS IN CDUSPOTS
038076,001200: 33,3307 54766 TS CDUSPOT
038077,001201: 33,3310 31656 CA LRZCDU
038078,001202: 33,3311 54770 TS CDUSPOT +2
038079,001203: 33,3312 31654 CA LRXCDU
038080,001204: 33,3313 54772 TS CDUSPOT +4
038081,001205:
038082,001206: 33,3314 04616 TC BANKCALL
038083,001207: 33,3315 47615 CADR QUICTRIG # GET SINES AND COSINES FOR NBSM
038084,001208:
038085,001209: 33,3316 30120 CA FIXLOC
038086,001210: 33,3317 54166 TS PUSHLOC # SET PD TO ZERO
038087,001211:
038088,001212: 33,3320 06037 TC INTPRET
038089,001213: 33,3321 45173 VLOAD* CALL
038090,001214: 33,3322 02231 VZBEAMNB,1 # CONVERT VBEAM FROM NB TO SM
038091,001215: 33,3323 47673 *NBSM*
038092,001216: 33,3324 54325 PDDL SL # STORE IN PD 0-5
038093,001217: 33,3325 03653 VMEAS # LOAD VELOCITY MEASUREMENT
038094,001218: 33,3326 20215 12D
038095,001219: 33,3327 41403 DMP* PUSH # SCALE TO M/CS AT 2(6)
038096,001220: 33,3330 51764 VZSCAL,2 # AND STORE IN PD 6-7
038097,001221: 33,3331 77776 EXIT
038098,001222: 33,3332 44753 CS ONE
038099,001223: 33,3333 54163 TS MODE # CHANGE STORE MODE TO VECTOR
038100,001224:
038101,001225: 33,3334 31657 CA PIPTEM # STORE DELV IN MPAC
|
|
Page 887
|
038103,001227: 33,3335 22007 ZL
038104,001228: 33,3336 52155 DXCH MPAC
038105,001229:
038106,001230: 33,3337 31660 CA PIPTEM +1
038107,001231: 33,3340 22007 ZL
038108,001232: 33,3341 52160 DXCH MPAC +3
038109,001233:
038110,001234: 33,3342 31661 CA PIPTEM +2
038111,001235: 33,3343 22007 ZL
038112,001236: 33,3344 52162 DXCH MPAC +5
038113,001237:
038114,001238: 33,3345 35016 CA EBANK7
038115,001239: 33,3346 54003 TS EBANK # RESTORE EBANK 7
038116,001240: 33,3347 E7,1515 EBANK= DVCNTR
038117,001241: 33,3347 06037 TC INTPRET
038118,001242: 33,3350 65361 VXSC PDDL
038119,001243: 33,3351 26022 KPIP1 # SCALE DELV TO 2(7) M/CS AND PUSH
038120,001244: 33,3352 02253 LRVTIME # TIME OF DELV AT 2(28) CS
038121,001245: 33,3353 56225 DSU DDV
038122,001246: 33,3354 01235 PIPTIME # TU - T(N-1)
038123,001247: 33,3355 27151 2SEC(28)
038124,001248: 33,3356 76561 VXSC VSL1 # G(N-1)(TU - T(N-1))
038125,001249: 33,3357 01237 GDT/2 # SCALED AT 2(7) M/CS
038126,001250: 33,3360 53255 VAD VAD # PUSH UP FOR DELV
038127,001251: 33,3361 03527 V # VU = V(N-1) + DELVU + G(N-1) DTU
038128,001252: 33,3362 53352 VSL2 VAD # SCALE TO 2(5) M/CS AND SUBTRACT
038129,001253: 33,3363 03734 DELVS # MOON ROTATION.
038130,001254: 33,3364 51406 PUSH ABVAL # STORE IN PD
038131,001255: 33,3365 43202 SR4 DAD # ABS(VM)/8 + 7.5 AT 2(6)
038132,001256: 33,3366 27145 7.5
038133,001257: 33,3367 24025 STOVL 20D # STORE IN 20D AND PICK UP VM
038134,001258: 33,3370 44241 DOT BDSU # V(EST) AT 2(6)
038135,001259: 33,3371 00001 0 # DELTAV = VMEAS - V(EST)
038136,001260: 33,3372 51406 PUSH ABS
038137,001261: 33,3373 77425 DSU EXIT # ABS(DV) - (7.5 + ABS(VM)/8))
038138,001262: 33,3374 00025 20D
038139,001263:
038140,001264: 33,3375 25672 INCR LRMCTR
038141,001265: 33,3376 06723 TC BRANCH
038142,001266: 33,3377 13555 TCF VFAIL # DELTA V TOO LARGE ALARM
038143,001267: 33,3400 13555 TCF VFAIL # DELTA V TOO LARGE ALARM
038144,001268:
038145,001269: 33,3401 05516 TC DOWNFLAG # TURN OFF VEL FAIL LAMP
038146,001270: 33,3402 00262 ADRES VFLSHFLG
038147,001271:
038148,001272: 33,3403 30107 CA FLGWRD11
038149,001273: 33,3404 74740 MASK VXINHBIT
038150,001274: 33,3405 00006 EXTEND
038151,001275: 33,3406 13415 BZF VUPDAT # IF VX INHIBIT RESET, INCORPORATE DATA.
|
|
Page 888
|
038153,001277: 33,3407 05516 TC DOWNFLAG
038154,001278: 33,3410 00250 ADRES VXINH # RESET VX INHIBIT
038155,001279:
038156,001280: 33,3411 31651 CA VSELECT
038157,001281: 33,3412 67746 AD NEG2 # IF VSELECT = 2 (X AXIS),
038158,001282: 33,3413 00006 EXTEND # BYPASS UPDATE
038159,001283: 33,3414 13474 BZF ENDVDAT
038160,001284:
038161,001285: 33,3415 40107 VUPDAT CS FLGWRD11
038162,001286: 33,3416 74744 MASK LRINHBIT
038163,001287: 33,3417 10000 CCS A
038164,001288: 33,3420 13474 TCF VALTCHK # UPDATE INHIBITED
038165,001289:
038166,001290: 33,3421 54155 TS MPAC +1
038167,001291:
038168,001292: 33,3422 31471 CA ABVEL # STORE E7 ERASABLES NEEDED IN TEMPS
038169,001293: 33,3423 54130 TS ABVEL*
038170,001294: 33,3424 31651 CA VSELECT
038171,001295: 33,3425 54131 TS VSELECT*
038172,001296: 33,3426 35014 CA EBANK5
038173,001297: 33,3427 54003 TS EBANK # CHANGE EBANKS
038174,001298:
038175,001299: 33,3430 E5,1527 EBANK= LRVF
038176,001300: 33,3430 41527 CS LRVF
038177,001301: 33,3431 60130 AD ABVEL* # IF V < VF, USE WVF
038178,001302: 33,3432 00006 EXTEND
038179,001303: 33,3433 63446 BZMF USEVF
038180,001304:
038181,001305: 33,3434 40130 CS ABVEL*
038182,001306: 33,3435 61526 AD LRVMAX # VMAX - V
038183,001307: 33,3436 00006 EXTEND
038184,001308: 33,3437 63451 BZMF WSTOR -1 # IF V > VMAX, W = 0
038185,001309:
038186,001310: 33,3440 00006 EXTEND
038187,001311: 33,3441 50131 INDEX VSELECT*
038188,001312: 33,3442 71530 MP LRWVZ # WV(VMAX - V)
038189,001313:
038190,001314: 33,3443 00006 EXTEND
038191,001315: 33,3444 11526 DV LRVMAX # WV( 1 - V/VMAX )
038192,001316: 33,3445 13452 TCF WSTOR
038193,001317:
038194,001318: 33,3446 50131 USEVF INDEX VSELECT*
038195,001319: 33,3447 31533 CA LRWVFZ # USE APPROPRIATE CONSTANT WEIGHT
038196,001320: 33,3450 13452 TCF WSTOR
038197,001321:
038198,001322: 33,3451 34755 -1 CA ZERO
038199,001323: 33,3452 54154 WSTOR TS MPAC
038200,001324: 33,3453 44745 CS BIT7 # (=64D)
038201,001325: 33,3454 61011 AD MODREG
038202,001326: 33,3455 00006 EXTEND
|
|
Page 889
|
038204,001328: 33,3456 63461 BZMF +3 # IF IN P65,P66,P67, USE ANOTHER CONSTANT
038205,001329:
038206,001330: 33,3457 31536 CA LRWVFF
038207,001331: 33,3460 54154 TS MPAC
038208,001332:
038209,001333: 33,3461 35016 +3 CA EBANK7
038210,001334: 33,3462 54003 TS EBANK # CHANGE EBANKS
038211,001335:
038212,001336: 33,3463 E7,1471 EBANK= ABVEL
038213,001337: 33,3463 06037 TC INTPRET
038214,001338: 33,3464 74205 DMP VXSC # W(DELTA V)(VBEAMSM) UP 6-7, 0-5
038215,001339: 33,3465 77655 VAD
038216,001340: 33,3466 03601 V1S # ADD WEIGHTED DELTA V TO VELOCITY
038217,001341: 33,3467 03657 STORE GNUV
038218,001342: 33,3470 77776 EXIT
038219,001343:
038220,001344: 33,3471 03532 TC QUIKFAZ5 # DO NOT RE-UPDATE
038221,001345:
038222,001346: 33,3472 36242 CA SIX
038223,001347: 33,3473 03514 VUPDATED TC GNURVST # STORE NEW VELOCITY VECTOR
038224,001348: 33,3474 33,3474 ENDVDAT = VALTCHK
038225,001349:
038226,001350: 33,3474 03532 VALTCHK TC QUIKFAZ5 # DO NOT REPEAT ABOVE
038227,001351:
038228,001352: 33,3475 34747 CAF READVBIT # TEST READVEL TO SEE IF VELOCITY READING
038229,001353: 33,3476 70107 MASK FLGWRD11 # IS DESIRED.
038230,001354: 33,3477 10000 CCS A
038231,001355: 33,3500 13507 TCF READV # TES - READ VELOCITY
038232,001356: 33,3501 41471 CS ABVEL # NO - SEE IF VELOCITY < 2000 FT/SEC
038233,001357: 33,3502 62707 AD 2KFT/SEC
038234,001358: 33,3503 00006 EXTEND
038235,001359: 33,3504 62540 BZMF CONTSERV # V > 2000 FT/SEC DO NOT READ VEL
038236,001360:
038237,001361: 33,3505 05504 TC UPFLAG # V < 2000 FT/SEC SET READVEL AND READ
038238,001362: 33,3506 00257 ADRES READVEL
038239,001363:
038240,001364: 33,3507 37720 READV CAF PRIO32 # SET UP JOB TO READ VELOCITY BEAMS.
038241,001365: 33,3510 05072 TC NOVAC
038242,001366: 33,3511 E7,1654 EBANK= HMEAS
038243,001367: 33,3511 03576 66067 2CADR LRVJOB
038244,001368:
038245,001369: 33,3513 12540 TCF CONTSERV # CONTINUE WITH SERVICER
038246,001370:
038247,001371: 33,3514 54130 GNURVST TS BUF # STORE GNUR (=GNUV) IN R1S OR V1S
038248,001372: 33,3515 00006 EXTEND # A = 0 FOR R, A = 6 FOR V
038249,001373: 33,3516 31657 DCA GNUR
038250,001374: 33,3517 50130 INDEX BUF
038251,001375: 33,3520 53573 DXCH R1S
038252,001376: 33,3521 00006 EXTEND
|
|
Page 890
|
038254,001378: 33,3522 31661 DCA GNUR +2
038255,001379: 33,3523 50130 INDEX BUF
038256,001380: 33,3524 53575 DXCH R1S +2
038257,001381: 33,3525 00006 EXTEND
038258,001382: 33,3526 31663 DCA GNUR +4
038259,001383: 33,3527 50130 INDEX BUF
038260,001384: 33,3530 53577 DXCH R1S +4
038261,001385: 33,3531 00002 TC Q
038262,001386:
038263,001387: 33,3532 35007 QUIKFAZ5 CA EBANK3
038264,001388: 33,3533 56003 XCH EBANK # SET EBANK 3
038265,001389: 33,3534 52002 DXCH L # Q TO A, A TO L
038266,001390: 33,3535 E3,1446 EBANK= PHSNAME5
038267,001391: 33,3535 55446 TS PHSNAME5
038268,001392: 33,3536 22003 LXCH EBANK
038269,001393: 33,3537 E7,1515 EBANK= DVCNTR
038270,001394: 33,3537 00000 TC A
038271,001395:
038272,001396: 33,3540 41671 HFAIL CS LRRCTR
038273,001397: 33,3541 00006 EXTEND
038274,001398: 33,3542 13552 BZF NORLITE # IF R = 0, DO NOT TURN ON TRK FAIL
038275,001399: 33,3543 61670 AD LRLCTR
038276,001400: 33,3544 77745 MASK NEG3
038277,001401: 33,3545 00006 EXTEND # IF L-R LT 4, DO NOT TURN ON TRK FAIL
038278,001402: 33,3546 13550 BZF +2
038279,001403: 33,3547 13552 TCF NORLITE
038280,001404:
038281,001405: 33,3550 05504 TC UPFLAG # AND SET BIT TO TURN ON TRACKER FAIL LITE
038282,001406: 33,3551 00263 ADRES HFLSHFLG
038283,001407:
038284,001408: 33,3552 31670 NORLITE CA LRLCTR
038285,001409: 33,3553 55671 TS LRRCTR # SET R = L
038286,001410:
038287,001411: 33,3554 13270 TCF VMEASCHK
038288,001412:
038289,001413: 33,3555 41673 VFAIL CS LRSCTR # DELTA Q LARGE
038290,001414: 33,3556 00006 EXTEND # IF S = 0, DO NOT TURN ON TRACKER FAIL
038291,001415: 33,3557 13567 BZF NOLITE
038292,001416: 33,3560 61672 AD LRMCTR # M-S
038293,001417: 33,3561 77745 MASK NEG3 # TEST FOR M-S > 3
038294,001418: 33,3562 00006 EXTEND # IF M-S > 3, THEN TWO OR MORE OF THE
038295,001419: 33,3563 13565 BZF +2 # LAST FOUR V READINGS WERE BAD,
038296,001420: 33,3564 13567 TCF NOLITE # SO TURN ON VELOCITY FAIL LIGHT
038297,001421:
038298,001422: 33,3565 05504 TC UPFLAG # AND SET BIT TO TURN ON TRACKER FAIL LITE
038299,001423: 33,3566 00262 ADRES VFLSHFLG
038300,001424:
|
|
Page 891
|
038302,001426: 33,3567 31672 NOLITE CA LRMCTR # SET S = M
038303,001427: 33,3570 55673 TS LRSCTR
038304,001428:
038305,001429: 33,3571 11651 CCS VSELECT # TEST FOR Z COMPONENT
038306,001430: 33,3572 13474 TCF ENDVDAT # NOT Z, DO NOT SET VX INHIBIT
038307,001431:
038308,001432: 33,3573 05504 TC UPFLAG # Z COMPONENT - SET FLAG TO SKIP X
038309,001433: 33,3574 00250 ADRES VXINH # COMPONENT, AS ERROR MAY BE DUE TO CROSS
038310,001434: 33,3575 13474 TCF ENDVDAT # LOBE LOCK UP NOT DETECTED ON X AXIS.
038311,001435:
|
|
Page 892
|
038313,001437: # ********************************************************************************************************
038314,001438: # LRVJOB IS SET WHEN THE LEM IS BELOW 15000 FT DURING THE LANDING PHASE
038315,001439: # THIS JOB INITIALIZES THE LANDING RADAR READ ROUTINE FOR 5 VELOCITY
038316,001440: # SAMPLES AND GOES TO SLEEP WHILE THE SAMPLING IS DONE-ABOUT 500 MS.
038317,001441: # WITH A GOODEND RETURN THE DATA IS STORED IN VMEAS AND BIT7 OF LRSTAT
038318,001442: # IS SET. THE GIMBAL ANGLES ARE READ ABOUT MIDWAY IN THE SAMPLING .
038319,001443:
038320,001444: 33,3576 4361 170MS EQUALS ND1
038321,001445:
038322,001446: 33,3576 34361 LRVJOB CA 170MS # SET TASK TO READ CDUS + PIPAS
038323,001447: 33,3577 05203 TC WAITLIST
038324,001448: 33,3600 E4,1652 EBANK= LRVTIME
038325,001449: 33,3600 03757 70064 2CADR RDGIMS
038326,001450:
038327,001451: 33,3602 11651 CCS VSELECT # SEQUENCE LR VEL BEAM SELECTOR
038328,001452: 33,3603 13605 TCF +2
038329,001453: 33,3604 34752 CAF TWO # IF ZERO-RESET TO TWO
038330,001454: 33,3605 60000 DOUBLE # 2XVSELECT USED FOR VBEAM INDEX IN LRVEL
038331,001455: 33,3606 04616 TC BANKCALL # GO INITIALIZE LR VEL READ ROUTINE
038332,001456: 33,3607 53107 CADR LRVEL
038333,001457: 33,3610 04616 TC BANKCALL # PUT LRVJOB TO SLEEP ABOUT 500 MS
038334,001458: 33,3611 17714 CADR RADSTALL
038335,001459: 33,3612 13645 TCF VBAD
038336,001460: 33,3613 11675 CCS STILBADV # IS DATA GOOD JUST PRESENT?
038337,001461: 33,3614 13646 TCF VSTILBAD # JUST GOOD - MUST WAIT 4 SECONDS.
038338,001462:
038339,001463: 33,3615 00004 INHINT
038340,001464: 33,3616 00006 EXTEND # GOOD RETURN-STOW AWAY VMEAS
038341,001465: 33,3617 31102 DCA SAMPLSUM
038342,001466: 33,3620 53653 DXCH VMEAS
038343,001467: 33,3621 34741 CA EBANK4 # FOR DOWNLINK
038344,001468: 33,3622 54003 TS EBANK
038345,001469: 33,3623 E4,1652 EBANK= LRVTIME
038346,001470:
038347,001471: 33,3623 00006 EXTEND
038348,001472: 33,3624 31653 DCA LRVTIME
038349,001473: 33,3625 53740 DXCH LRVTIMDL
038350,001474: 33,3626 00006 EXTEND
038351,001475: 33,3627 31655 DCA LRXCDU
038352,001476: 33,3630 53735 DXCH LRXCDUDL
038353,001477: 33,3631 31656 CA LRZCDU
038354,001478: 33,3632 55736 TS LRZCDUDL
038355,001479: 33,3633 35016 CA EBANK7
038356,001480: 33,3634 54003 TS EBANK
038357,001481: 33,3635 E7,1651 EBANK= VSELECT
038358,001482:
038359,001483: 33,3635 40107 CS FLGWRD11 # SET BIT TO INDICATE VELOCITY
038360,001484: 33,3636 74745 MASK VELDABIT # MEASUREMENT MADE.
|
|
Page 893
|
038362,001486: 33,3637 26107 ADS FLGWRD11
038363,001487: 33,3640 11651 ENDLRV CCS VSELECT # UPDATE VSELECT
038364,001488: 33,3641 13643 TCF +2
038365,001489: 33,3642 34752 CA TWO
038366,001490: 33,3643 55651 TS VSELECT
038367,001491: 33,3644 15155 TCF ENDOFJOB
038368,001492:
038369,001493: 33,3645 34752 VBAD CAF TWO # SET STILBAD TO WAIT 4 SECONDS
038370,001494: 33,3646 55675 VSTILBAD TS STILBADV
038371,001495: 33,3647 13640 TCF ENDLRV
038372,001496:
038373,001497: # LRHJOB IS SET BY LRHTASK WHEN LEM IS BELOW 25000 FT. THIS JOB
038374,001498: # INITIALIZES THE LR READ ROUTINE FOR AN ALT MEASUREMENT AND GOES TO
038375,001499: # SLEEP WHILE THE SAMPLING IS DONE-ABOUT 95 MS. WITH A GOODEND RETURN
038376,001500: # THE ALT DATA IS STORED IN HMEAS AND BIT7 OF LRSTAT IS SET.
038377,001501:
038378,001502: 34,3716 BANK 34
038379,001503: 34,2000 SETLOC R12STUFF
038380,001504: 34,2000 BANK
038381,001505:
038382,001506: 34,3716 COUNT* $$/SERV
038383,001507:
038384,001508: 34,3716 04616 LRHJOB TC BANKCALL # INITIATE LR ALT MEASUREMENT
038385,001509: 34,3717 53073 CADR LRALT
038386,001510: 34,3720 04616 TC BANKCALL # LRHJOB TO SLEEP ABOUT 95MS
038387,001511: 34,3721 17714 CADR RADSTALL
038388,001512: 34,3722 13745 TCF HBAD
038389,001513: 34,3723 11674 CCS STILBADH # IS DATA GOOD JUST PRESENT?
038390,001514: 34,3724 13755 TCF HSTILBAD # JUST GOOD - MUST WAIT 4 SECONDS.
038391,001515:
038392,001516: 34,3725 00004 INHINT
038393,001517: 34,3726 00006 EXTEND
038394,001518: 34,3727 31102 DCA SAMPLSUM # GOOD RETURN-STORE AWAY LRH DATA
038395,001519: 34,3730 53655 DXCH HMEAS # LRH DATA 1.079 FT/BIT
038396,001520: 34,3731 00006 EXTEND # FOR DOWNLINK
038397,001521: 34,3732 31561 DCA PIPTIME1
038398,001522: 34,3733 53755 DXCH MKTIME
038399,001523:
038400,001524: 34,3734 00006 EXTEND
038401,001525: 34,3735 31157 DCA CDUTEMPY # CDUY,Z = AIG,AMG
038402,001526: 34,3736 53460 DXCH AIG
038403,001527:
038404,001528: 34,3737 31155 CA CDUTEMPX # CDUX = AOG
038405,001529: 34,3740 55461 TS AOG
038406,001530:
038407,001531: 34,3741 40107 CS FLGWRD11 # SET BIT TO INDICATE RANGE
038408,001532: 34,3742 74750 MASK RNGEDBIT # MEASUREMENT MADE.
038409,001533: 34,3743 26107 ADS FLGWRD11
038410,001534: 34,3744 05155 ENDLRH TC ENDOFJOB # TERMINATE LRHJOB
038411,001535:
|
|
Page 894
|
038413,001537: 34,3745 30101 HBAD CA FLAGWRD5
038414,001538: 34,3746 74742 MASK RNGSCBIT # IS BAD RETURN DUE TO SCALE CHANGE?
038415,001539: 34,3747 00006 EXTEND
038416,001540: 34,3750 13754 BZF HSTILBAD -1 # NO RESET HSTILBAD
038417,001541: 34,3751 05516 TC DOWNFLAG # YES RESET SCALE CHANGE BIT AND IGNORE
038418,001542: 34,3752 00120 ADRES RNGSCFLG
038419,001543: 34,3753 05155 TC ENDOFJOB
038420,001544:
038421,001545: 34,3754 34752 CAF TWO # SET STILBAD TO WAIT 4 SECONDS
038422,001546: 34,3755 55674 HSTILBAD TS STILBADH
038423,001547: 34,3756 05155 TC ENDOFJOB
038424,001548:
038425,001549: 34,3757 BANK 34
038426,001550: 34,2000 SETLOC SERV4
038427,001551: 34,2000 BANK
038428,001552:
038429,001553: 34,3757 COUNT* $$/SERV
038430,001554:
038431,001555: # RDGIMS IS A TASK SET UP BY LRVJOB TO PICK UP THE IMU CDUS AND TIME
038432,001556: # AT ABOUT THE MIDPOINT OF THE LR VEL READ ROUTINE WHEN 5 VEL SAMPLES
038433,001557: # ARE SPECIFIED.
038434,001558:
038435,001559: 34,3757 E4,1652 EBANK= LRVTIME
038436,001560: 34,3757 00006 RDGIMS EXTEND
038437,001561: 34,3760 30025 DCA TIME2 # PICK UP TIME2, TIME1
038438,001562: 34,3761 53653 DXCH LRVTIME # AND SAVE IN LRVTIME
038439,001563:
038440,001564: 34,3762 00006 EXTEND
038441,001565: 34,3763 30033 DCA CDUX # PICK UP CDUX AND CDUY
038442,001566: 34,3764 53655 DXCH LRXCDU # AND SAVE IN LRXCDU AND LRYCDU
038443,001567:
038444,001568: 34,3765 30034 CA CDUZ
038445,001569: 34,3766 55656 TS LRZCDU # SAVE CDUZ IN LRZCDU
038446,001570:
038447,001571: 34,3767 30037 CA PIPAX
038448,001572: 34,3770 55657 TS PIPTEM # SAVE PIPAX IN PIPTEM
038449,001573:
038450,001574: 34,3771 00006 EXTEND
038451,001575: 34,3772 30041 DCA PIPAY # PICK UP PIPAY AND PIPAZ
038452,001576: 34,3773 53661 DXCH PIPTEM +1 # AND SAVE IN PIPTEM +1 AND PIPTEM +2
038453,001577: 34,3774 05261 TC TASKOVER
038454,001578:
038455,001579: 33,3650 BANK 33
038456,001580: 33,2000 SETLOC SERVICES
038457,001581: 33,2000 BANK
038458,001582:
038459,001583: 33,3650 COUNT* $$/SERV
038460,001584:
038461,001585: 33,3650 E7,1515 EBANK= DVCNTR
|
|
Page 895
|
038463,001587: # HIGATJOB IS SET APPROXIMATELY 6 SECONDS PRIOR TO HIGH GATE DURING
038464,001588: # THE DESCENT BURN PHASE OF LUNAR LANDING. THIS JOB INITIATES THE
038465,001589: # LANDING RADAR REPOSITIONING ROUTINE AND GOES TO SLEEP UNTIL THE
038466,001590: # LR ANTENNA MOVES FROM POSITION 1 TO POSITION 2. IF THE LR ANTENNA
038467,001591: # ACHIEVES POSITION 2 WITHIN 22 SECONDS THE ALTITUDE AND VELOCITY
038468,001592: # BEAM VECTORS ARE RECOMPUTED TO REFLECT THE NEW ORIENTATION WITH
038469,001593: # RESPECT TO THE NB. BIT10 OF LRSTAT IS CLEARED TO ALLOW LR
038470,001594: # MEASUREMENTS AND THE JOB TERMINATES.
038471,001595:
038472,001596: 33,3650 04616 HIGATJOB TC BANKCALL # START LRPOS2 JOB
038473,001597: 33,3651 53471 CADR LRPOS2
038474,001598: 33,3652 04616 TC BANKCALL # PUT HIGATJOB TO SLEEP UNTIL JOB IS DONE
038475,001599: 33,3653 17714 CADR RADSTALL
038476,001600: 33,3654 13663 TCF POSALARM # BAD END ALARM
038477,001601:
038478,001602: 33,3655 37711 POSGOOD CA PRIO23 # REDUCE PRIORITY FOR INTERPRETIVE COMPS.
038479,001603: 33,3656 05146 TC PRIOCHNG
038480,001604:
038481,001605: 33,3657 03717 TC SETPOS2 # LR IN POS2 - SET UP TRANSFORMATIONS
038482,001606:
038483,001607: 33,3660 05516 TC DOWNFLAG
038484,001608: 33,3661 00252 ADRES NOLRREAD # RESET NOLRREAD FLAG TO ENABLE LR READING
038485,001609: 33,3662 05155 TC ENDOFJOB
038486,001610:
038487,001611: 33,3663 33700 POSALARM CA OCT523
038488,001612: 33,3664 04616 TC BANKCALL
038489,001613: 33,3665 21562 CADR PRIOLARM # FLASH ALARM CODE
038490,001614: 33,3666 16001 TCF GOTOPOOH # TERMINATE
038491,001615: 33,3667 13672 TCF +3 # PROCEED - TRY AGAIN
038492,001616: 33,3670 15155 TCF ENDOFJOB # V 32 E TERMINATE R12
038493,001617: 33,3671 05155 TC ENDOFJOB
038494,001618:
038495,001619: 33,3672 34745 +3 CA BIT7 # SEE IF IN POS2 YET
038496,001620: 33,3673 00006 EXTEND
038497,001621: 33,3674 02033 RAND CHAN33
038498,001622: 33,3675 00006 EXTEND
038499,001623: 33,3676 13655 BZF POSGOOD # POS2 ACHIEVED SET UP ANTENNA BEAMS
038500,001624: 33,3677 13663 TCF POSALARM # STILL DIDN'T MAKE IT REALARM
038501,001625:
038502,001626: 33,3700 00523 OCT523 OCT 00523
038503,001627:
038504,001628:
038505,001629:
038506,001630: 33,3701 04645 SETPOS1 TC MAKECADR # MUST BE CALLED BY BANKCALL
038507,001631: 33,3702 55656 TS LRADRET1 # SAVE RETURN CADR, SINCE BUF2 CLOBBERED
038508,001632:
038509,001633: 33,3703 34752 CAF TWO
038510,001634: 33,3704 55674 TS STILBADH # INITIALIZE STILBAD
038511,001635: 33,3705 55675 TS STILBADV # INITIALIZE STILBAD
038512,001636:
038513,001637: 33,3706 34755 CA ZERO # INDEX FOR LRALPHA,LRBETA IN POS 1.
|
|
Page 896
|
038515,001639: 33,3707 55670 TS LRLCTR # SET L,M,R, ANS S TO ZERO
038516,001640: 33,3710 55672 TS LRMCTR
038517,001641: 33,3711 55671 TS LRRCTR
038518,001642: 33,3712 55673 TS LRSCTR
038519,001643: 33,3713 55651 TS VSELECT # INITIALIZE VSELECT
038520,001644:
038521,001645: 33,3714 03720 TC SETPOS # CONTINUE WITH COMPUTATIONS
038522,001646:
038523,001647: 33,3715 31656 CA LRADRET1
038524,001648: 33,3716 04640 TC BANKJUMP # RETURN TO CALLER
038525,001649:
038526,001650: 33,3717 34752 SETPOS2 CA TWO # INDEX FOR POS2
038527,001651: 33,3720 56002 SETPOS XCH Q # SAVE INDEX IN Q
038528,001652: 33,3721 55650 TS LRADRET # SAVE RETURN
038529,001653:
038530,001654: 33,3722 35014 CA EBANK5
038531,001655: 33,3723 54003 TS EBANK
038532,001656: 33,3724 E5,1522 EBANK= LRALPHA
038533,001657:
038534,001658: 33,3724 00006 EXTEND
038535,001659: 33,3725 50002 INDEX Q
038536,001660: 33,3726 31523 DCA LRALPHA # LRALPHA IN A, LRBETA IN L
038537,001661: 33,3727 54772 TS CDUSPOT +4 # ROTATION ABOUT X
038538,001662: 33,3730 22766 LXCH CDUSPOT # ROTATION ABOUT Y
038539,001663: 33,3731 34755 CA ZERO
038540,001664: 33,3732 54770 TS CDUSPOT +2 # ZERO ROTATION ABOUT Z.
038541,001665:
038542,001666: 33,3733 35016 CA EBANK7
038543,001667: 33,3734 54003 TS EBANK
038544,001668: 33,3735 E7,1650 EBANK= LRADRET
038545,001669:
038546,001670: 33,3735 06037 TC INTPRET
038547,001671: 33,3736 45175 VLOAD CALL
038548,001672: 33,3737 06516 UNITY # CONVERT UNITY(ANTENNA) TO NB
038549,001673: 33,3740 47651 TRG*SMNB
038550,001674: 33,3741 26237 STOVL VYBEAMNB
038551,001675: 33,3742 06520 UNITX # CONVERT UNITX(ANTENNA) TO NB
038552,001676: 33,3743 77624 CALL
038553,001677: 33,3744 47671 *SMNB*
038554,001678: 33,3745 02245 STORE VXBEAMNB
038555,001679: 33,3746 76435 VXV VSL1
038556,001680: 33,3747 02237 VYBEAMNB
038557,001681: 33,3750 26231 STOVL VZBEAMNB # Z = X * Y
038558,001682: 33,3751 26003 HBEAMANT
038559,001683: 33,3752 77624 CALL
038560,001684: 33,3753 47671 *SMNB* # CONVERT TO NB
038561,001685: 33,3754 02273 STORE HBEAMNB
038562,001686: 33,3755 77776 EXIT
038563,001687:
|
|
Page 897
|
038565,001689: 33,3756 01650 TC LRADRET
038566,001690:
End of include-file SERVICER.agc. Parent file is MAIN.agc