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