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