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