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