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