Source Code
036114,000001: # Copyright: Public domain.
036115,000002: # Filename: SERVICER.agc
036116,000003: # Purpose: A section of Luminary 1C, revision 131.
036117,000004: # It is part of the source code for the Lunar Module's (LM)
036118,000005: # Apollo Guidance Computer (AGC) for Apollo 13 and Apollo 14.
036119,000006: # This file is intended to be a faithful transcription, except
036120,000007: # that the code format has been changed to conform to the
036121,000008: # requirements of the yaYUL assembler rather than the
036122,000009: # original YUL assembler.
036123,000010: # Reference: pp. 857-895 of 1729.pdf.
036124,000011: # Contact: Ron Burkey <info@sandroid.org>.
036125,000012: # Website: www.ibiblio.org/apollo/index.html
036126,000013: # Mod history: 05/27/03 RSB. Began transcribing.
036127,000014: # 05/14/05 RSB Corrected website references above.
036128,000015: # 2010-08-24 JL Fixed page numbers.
036129,000016: # 2010-10-25 JL Indentation fixes.
036130,000017:
036131,000018: # Page 857
036132,000019: 37,3410 BANK 37
036133,000020: 37,2000 SETLOC SERV1
036134,000021: 37,2000 BANK
036135,000022:
036136,000023: 37,3410 E7,1515 EBANK= DVCNTR
036137,000024:
036138,000025: # ************* PREREAD *******************
036139,000026:
036140,000027: 37,3410 COUNT* $$/SERV
036141,000028:
036142,000029: 37,3410 34757 PREREAD CAF SEVEN # 5.7 SPOT TO SKIP LASTBIAS AFTER
036143,000030: 37,3411 03527 TC GNUFAZE5 # RESTART.
036144,000031: 37,3412 35031 CAF PRIO21
036145,000032: 37,3413 05072 TC NOVAC
036146,000033: 37,3414 E3,1460 EBANK= NBDX
036147,000034: 37,3414 03671 14063 2CADR LASTBIAS # DO LAST GYRO COMPENSATION IN FREE FALL
036148,000035:
036149,000036: 37,3416 03541 BIBIBIAS TC PIPASR +3 # CLEAR + READ PIPS LAST TIME IN FRE5+F133
036150,000037: # DO NOT DESTROY VALUE OF PIPTIME1
036151,000038:
036152,000039: 37,3417 40103 CS FLAGWRD7
036153,000040: 37,3420 74773 MASK SUPER011 # SET V37FLAG AND AVEGFLAG (BITS 5 AND 6
036154,000041: 37,3421 26103 ADS FLAGWRD7 # OF FLAGWRD7)
036155,000042:
036156,000043: 37,3422 44735 CS DRFTBIT
036157,000044: 37,3423 70076 MASK FLAGWRD2 # RESET DRIFTFLAG
036158,000045: 37,3424 54076 TS FLAGWRD2
036159,000046:
036160,000047: 37,3425 34751 CAF FOUR # INITIALIZE DV MONITOR
036161,000048: 37,3426 55256 TS PIPAGE
036162,000049:
036163,000050: 37,3427 37713 CAF PRIO22
036164,000051: 37,3430 05105 TC FINDVAC # TO FIRST ENTRY TO AVERAGE G
036165,000052: 37,3431 E7,1515 EBANK= DVCNTR
036166,000053: 37,3431 02463 46067 2CADR NORMLIZE
036167,000054:
036168,000055: 37,3433 34752 CA TWO # 5.2SPOT FOR REREADAC AND NORMLIZE
036169,000056: 37,3434 03523 GOREADAX TC GNUTFAZ5
036170,000057: 37,3435 35000 CA 2SECS # WAIT TWO SECONDS FOR READACCS
036171,000058: 37,3436 05224 TC VARDELAY
036172,000059:
036173,000060: # Page 858
036174,000061: # ************* READACCS ****************
036175,000062:
036176,000063: 37,3437 43535 READACCS CS OCT37771 # THIS PIECE OF CODING ATTEMPTS TO
036177,000064: 37,3440 60030 AD TIME5 # SYNCHRONIZE READACCS WITH THE DIGITAL
036178,000065: 37,3441 10000 CCS A # AUTOPILOT SO THAT A PAXIS RUPT WILL
036179,000066: 37,3442 44753 CS ONE # OCCUR APPROXIMATELY 70 MILLISECONDS
036180,000067: 37,3443 13445 TCF +2 # FOLLOWING THE READACCS RUPT. THE 70 MS
036181,000068: 37,3444 34753 CA ONE # OFFSET WAS CHOSEN SO THAT THE PAXIS
036182,000069: 37,3445 26030 +2 ADS TIME5 # RUPT WOULD NOT OCCUR SIMULTANEOUSLY
036183,000070: # WITH ANY OF THE 8 SUBSEQUENT R10,R11
036184,000071: # INTERRUPTS -- THUS MINIMIZING THE POSS-
036185,000072: # IBILITY OF LOSING DOWNRUPTS.
036186,000073:
036187,000074: 37,3446 03536 TC PIPASR # READ THE PIPAS.
036188,000075:
036189,000076: 37,3447 34756 PIPSDONE CA FIVE
036190,000077: 37,3450 03527 TC GNUFAZE5
036191,000078: 37,3451 34753 REDO5.5 CAF ONE
036192,000079: 37,3452 55256 TS PIPAGE
036193,000080:
036194,000081: 37,3453 34736 CA PRIO20
036195,000082: 37,3454 05105 TC FINDVAC
036196,000083: 37,3455 E7,1515 EBANK= DVCNTR
036197,000084: 37,3455 02206 66067 2CADR SERVICER # SET UP SERVISER JOB
036198,000085:
036199,000086: 37,3457 34743 CA BIT9
036200,000087: 37,3460 00006 EXTEND
036201,000088: 37,3461 05011 WOR DSALMOUT # TURN ON TEST CONNECTOR OUTBIT
036202,000089:
036203,000090: 37,3462 30103 CA FLAGWRD7
036204,000091: 37,3463 74747 MASK AVEGFBIT
036205,000092: 37,3464 00006 EXTEND
036206,000093: 37,3465 13515 BZF AVEGOUT # AVEGFLAG DOWN -- SET UP FINAL EXIT
036207,000094:
036208,000095: 37,3466 30102 CA FLAGWRD6
036209,000096: 37,3467 74744 MASK MUNFLBIT
036210,000097: 37,3470 00006 EXTEND
036211,000098: 37,3471 13513 BZF MAKEACCS # MUNFLAG CLEAR -- BYPASS LR AND DISP.
036212,000099:
036213,000100: 37,3472 10754 CCS PHASE2
036214,000101: 37,3473 13513 TCF MAKEACCS # PHASE 2 ACTIVATED -- AVOID MULTIPLE R10.
036215,000102:
036216,000103: 37,3474 34757 CAF SEVEN # SET PIPCTR FOR 4X/SEC RATE.
036217,000104: 37,3475 55055 TS PIPCTR
036218,000105:
036219,000106: 37,3476 40025 CS TIME1 # SET TBASE2 .05 SECONDS IN THE PAST.
036220,000107: 37,3477 64756 AD FIVE
036221,000108: 37,3500 64734 AD NEG1/2
036222,000109: 37,3501 64734 AD NEG1/2
036223,000110: 37,3502 57054 XCH TBASE2
036224,000111: # Page 859
036225,000112: 37,3503 34361 CAF DEC17 # 2.21SPOT FOR R10,R11
036226,000113: 37,3504 54001 TS L
036227,000114: 37,3505 40000 COM
036228,000115: 37,3506 52754 DXCH -PHASE2
036229,000116:
036230,000117: 37,3507 36007 CAF OCT24 # FIRST R10,R11 IN .200 SECONDS
036231,000118: 37,3510 05203 TC WAITLIST
036232,000119: 37,3511 E7,1536 EBANK= UNIT/R/
036233,000120: 37,3511 02006 42067 2CADR R10,R11
036234,000121:
036235,000122: 37,3513 34751 MAKEACCS CA FOUR
036236,000123: 37,3514 13434 TCF GOREADAX # DO PHASE CHANGE AND RECALL READACCS
036237,000124:
036238,000125: 37,3515 00006 AVEGOUT EXTEND
036239,000126: 37,3516 33534 DCA AVOUTCAD # SET UP FINAL SERVICER EXIT
036240,000127: 37,3517 53252 DXCH AVGEXIT
036241,000128:
036242,000129: 37,3520 34751 CA FOUR # SET 5.4 SPOT FOR REREADAC AND SERVICER
036243,000130: 37,3521 03523 TC GNUTFAZ5 # IF REREADAC IS CALLED, IT WILL EXIT
036244,000131: 37,3522 05261 TC TASKOVER # END TASK WITHOUT CALLING READACCS
036245,000132:
036246,000133: 37,3523 54001 GNUTFAZ5 TS L # SAVE INPUT IN L
036247,000134: 37,3524 40025 CS TIME1
036248,000135: 37,3525 55062 TS TBASE5 # SET TBASE5
036249,000136: 37,3526 13530 TCF +2
036250,000137:
036251,000138: 37,3527 54001 GNUFAZE5 TS L # SAVE INPUT IN L
036252,000139: 37,3530 40001 CS L # -PHASE IN A, PHASE IN L.
036253,000140: 37,3531 52762 DXCH -PHASE5 # SET -PHASE5,PHASE5
036254,000141: 37,3532 00002 TC Q
036255,000142:
036256,000143: 37,3533 E7,1515 EBANK= DVCNTR
036257,000144: 37,3533 03661 44067 AVOUTCAD 2CADR AVGEND
036258,000145:
036259,000146: 37,3535 37771 OCT37771 OCT 37771
036260,000147:
036261,000148: 33,2206 BANK 33
036262,000149: 33,2000 SETLOC SERVICES
036263,000150: 33,2000 BANK
036264,000151:
036265,000152: 33,2206 COUNT* $$/SERV
036266,000153:
036267,000154: # Page 860
036268,000155: # ************* SERVICER ****************
036269,000156:
036270,000157: 33,2206 05353 SERVICER TC PHASCHNG # RESTART REREADAC + SERVICER
036271,000158: 33,2207 16035 OCT 16035
036272,000159: 33,2210 20000 OCT 20000
036273,000160: 33,2211 E7,1515 EBANK= DVCNTR
036274,000161: 33,2211 02217 66067 2CADR GETABVAL
036275,000162:
036276,000163: 33,2213 37721 CAF PRIO31 # INITIALIZE 1/PIPADT IN CASE RESTART HAS
036277,000164: 33,2214 55074 TS 1/PIPADT # CAUSED LASTBIAS TO BE SKIPPED.
036278,000165:
036279,000166: 33,2215 04616 TC BANKCALL # PIPA COMPENSATION CALL
036280,000167: 33,2216 15271 CADR 1/PIPA
036281,000168:
036282,000169: 33,2217 06042 GETABVAL TC INTPRET
036283,000170: 33,2220 51575 VLOAD ABVAL
036284,000171: 33,2221 00325 DELV
036285,000172: 33,2222 77776 EXIT
036286,000173: 33,2223 30154 CA MPAC
036287,000174: 33,2224 55245 TS ABDELV # ABDELV = CM/SEC*2(-14).
036288,000175: 33,2225 00006 EXTEND
036289,000176: 33,2226 72020 MP KPIP
036290,000177: 33,2227 53514 DXCH ABDVCONV # ABDVCONV = M/CS * 2(-5).
036291,000178: 33,2230 00006 EXTEND
036292,000179: 33,2231 31244 DCA MASS
036293,000180: 33,2232 53571 DXCH MASS1 # INITIALIZE MASS1 IN CASE WE SKIP MASSMON
036294,000181: 33,2233 40104 MASSMON CS FLAGWRD8 # ARE WE ON THE SURFACE?
036295,000182: 33,2234 74744 MASK SURFFBIT
036296,000183: 33,2235 00006 EXTEND
036297,000184: 33,2236 12254 BZF MOONSPOT # YES: BYPASS MASS MESS
036298,000185: 33,2237 30106 CA FLGWRD10 # NO: WHICH VEX SHOULD BE USED?
036299,000186: 33,2240 74737 MASK APSFLBIT
036300,000187: 33,2241 10000 CCS A
036301,000188: 33,2242 00006 EXTEND # IF EXTEND IS EXECUTED, APSVEX --> A,
036302,000189: 33,2243 32001 DCA APSVEX # OTHERWISE DPSVEX --> A
036303,000190: 33,2244 54002 TS Q
036304,000191:
036305,000192: 33,2245 00006 EXTEND
036306,000193: 33,2246 31514 DCA ABDVCONV
036307,000194: 33,2247 00006 EXTEND
036308,000195: 33,2250 10002 OCT10002 DV Q # WHERE APPROPRIATE VEX RESIDES
036309,000196: 33,2251 00006 EXTEND
036310,000197: 33,2252 71243 MP MASS
036311,000198: 33,2253 21571 DAS MASS1
036312,000199:
036313,000200: 33,2254 32021 MOONSPOT CA KPIP1 # TP MPAC = ABDELV AT 2(14) CM/SEC
036314,000201: 33,2255 07312 TC SHORTMP # MULTIPLY BY KPIP1 TO GET
036315,000202: # Page 861
036316,000203: 33,2256 52155 DXCH MPAC # ABDELV AT 2(7) M/CS
036317,000204: 33,2257 21510 DAS DVTOTAL # UPDATE DVTOTAL FOR DISPLAY
036318,000205:
036319,000206: 33,2260 02440 TC TMPTOSPT
036320,000207:
036321,000208: 33,2261 04616 TC BANKCALL
036322,000209: 33,2262 47617 CADR QUICTRIG
036323,000210:
036324,000211: 33,2263 32414 CAF XNBPIPAD
036325,000212: 33,2264 04616 TC BANKCALL
036326,000213: 33,2265 20037 CADR FLESHPOT
036327,000214: 33,2266 06042 TC INTPRET
036328,000215: 33,2267 45014 AVERAGEG BON CALL
036329,000216: 33,2270 03307 MUNFLAG
036330,000217: 33,2271 66771 RVBOTH
036331,000218: 33,2272 66735 CALCRVG
036332,000219: 33,2273 77776 EXIT
036333,000220: 33,2274 03512 GOSERV TC QUIKFAZ5
036334,000221:
036335,000222: 33,2275 02423 COPYCYCL TC COPYCYC
036336,000223:
036337,000224: # CA ZERO # A IS ZERO ON RETURN FROM COPYCYC
036338,000225: 33,2276 55157 TS PIPATMPX
036339,000226: 33,2277 55160 TS PIPATMPY
036340,000227: 33,2300 55161 TS PIPATMPZ
036341,000228:
036342,000229: 33,2301 44741 CS STEERBIT # CLEAR STEERSW PRIOR TO DVMON.
036343,000230: 33,2302 70076 MASK FLAGWRD2
036344,000231: 33,2303 54076 TS FLAGWRD2
036345,000232:
036346,000233: 33,2304 34745 CAF IDLEFBIT # IS THE IDLE FLAG SET?
036347,000234: 33,2305 70103 MASK FLAGWRD7
036348,000235: 33,2306 10000 CCS A
036349,000236: 33,2307 12342 TCF NODVMON1 # IDLEFLAG = 1, HENCE SET AUXFLAG TO 0.
036350,000237:
036351,000238: 33,2310 40102 CS FLAGWRD6
036352,000239: 33,2311 74752 MASK AUXFLBIT
036353,000240: 33,2312 10000 CCS A
036354,000241: 33,2313 12346 TCF NODVMON2 # AUXFLAG = 0, HENCE SET AUXFLAG TO 1.
036355,000242:
036356,000243: 33,2314 41250 DVMON CS DVTHRUSH
036357,000244: 33,2315 61245 AD ABDELV
036358,000245: 33,2316 00006 EXTEND
036359,000246: 33,2317 62352 BZMF LOTHRUST
036360,000247:
036361,000248: 33,2320 40076 CS FLAGWRD2 # SET STEERSW.
036362,000249: 33,2321 74741 MASK STEERBIT
036363,000250: 33,2322 26076 ADS FLAGWRD2
036364,000251:
036365,000252: 33,2323 34753 DVCNTSET CAF ONE # ALLOW TWO PASSES MAXIMUM NOW THAT
036366,000253: # Page 862
036367,000254: 33,2324 55515 TS DVCNTR # THRUST HAS BEEN DETECTED.
036368,000255:
036369,000256: 33,2325 30106 CA FLGWRD10 # BRANCH IF APSFLAG IS SET.
036370,000257: 33,2326 74737 MASK APSFLBIT
036371,000258: 33,2327 10000 CCS A
036372,000259: 33,2330 12375 TCF USEJETS
036373,000260:
036374,000261: 33,2331 34743 CA BIT9 # CHECK GIMBAL FAIL BIT
036375,000262: 33,2332 00006 EXTEND
036376,000263: 33,2333 02032 RAND CHAN32
036377,000264: 33,2334 00006 EXTEND
036378,000265: 33,2335 12375 BZF USEJETS
036379,000266:
036380,000267: 33,2336 44736 USEGTS CS USEQRJTS
036381,000268: 33,2337 70111 MASK DAPBOOLS
036382,000269: 33,2340 54111 TS DAPBOOLS
036383,000270: 33,2341 12400 TCF SERVOUT
036384,000271:
036385,000272: 33,2342 44752 NODVMON1 CS AUXFLBIT # SET AUXFLAG TO 0.
036386,000273: 33,2343 70102 MASK FLAGWRD6
036387,000274: 33,2344 54102 TS FLAGWRD6
036388,000275: 33,2345 12375 TCF USEJETS
036389,000276: 33,2346 40102 NODVMON2 CS FLAGWRD6 # SET AUXFLAG TO 1.
036390,000277: 33,2347 74752 MASK AUXFLBIT
036391,000278: 33,2350 26102 ADS FLAGWRD6
036392,000279: 33,2351 12375 TCF USEJETS
036393,000280:
036394,000281: 33,2352 03512 LOTHRUST TC QUIKFAZ5
036395,000282: 33,2353 11515 CCS DVCNTR
036396,000283: 33,2354 12366 TCF DECCNTR
036397,000284:
036398,000285: 33,2355 10760 CCS PHASE4 # COMFAIL JOB ACTIVE?
036399,000286: 33,2356 12400 TCF SERVOUT # YES: WON'T NEED ANOTHER.
036400,000287:
036401,000288: 33,2357 05353 TC PHASCHNG # 4.37SPOT FOR COMFAIL.
036402,000289: 33,2360 00374 OCT 00374
036403,000290:
036404,000291: 33,2361 37716 CAF PRIO25
036405,000292: 33,2362 05072 TC NOVAC
036406,000293: 33,2363 E7,1455 EBANK= WHICH
036407,000294: 33,2363 02575 74067 2CADR COMFAIL
036408,000295:
036409,000296: 33,2365 12400 TCF SERVOUT
036410,000297:
036411,000298: 33,2366 55570 DECCNTR TS DVCNTR1
036412,000299: 33,2367 03512 TC QUIKFAZ5
036413,000300: 33,2370 31570 CA DVCNTR1
036414,000301: 33,2371 55515 TS DVCNTR
036415,000302: 33,2372 00004 INHINT
036416,000303: 33,2373 04674 TC IBNKCALL # IF THRUST IS LOW, NO STEERING IS DONE
036417,000304: # Page 863
036418,000305: 33,2374 40166 CADR STOPRATE # AND THE DESIRED RATES ARE SET TO ZERO.
036419,000306: 33,2375 40111 USEJETS CS DAPBOOLS
036420,000307: 33,2376 74736 MASK USEQRJTS
036421,000308: 33,2377 26111 ADS DAPBOOLS
036422,000309: 33,2400 00003 SERVOUT RELINT
036423,000310: 33,2401 04616 TC BANKCALL
036424,000311: 33,2402 40463 CADR 1/ACCS
036425,000312:
036426,000313: 33,2403 30167 CA PRIORITY
036427,000314: 33,2404 75004 MASK LOW9
036428,000315: 33,2405 54166 TS PUSHLOC
036429,000316: 33,2406 22007 ZL
036430,000317: 33,2407 52121 DXCH FIXLOC # FIXLOC AND DVFIND
036431,000318:
036432,000319: 33,2410 03512 TC QUIKFAZ5
036433,000320: 33,2411 00006 EXTEND # EXIT TO SELECTED ROUTINE WHETHER THERE
036434,000321: 33,2412 31252 DCA AVGEXIT # IS THRUST OR NOT. THE STATE OF STEERSW
036435,000322: 33,2413 52006 DXCH Z # WILL CONVEY THIS INFORMATION.
036436,000323:
036437,000324: 33,2414 02145 XNBPIPAD ECADR XNBPIP
036438,000325:
036439,000326: 32,3746 BANK 32
036440,000327: 22,2000 SETLOC SERV2
036441,000328: 22,2000 BANK
036442,000329: 22,3661 COUNT* $$/SERV
036443,000330:
036444,000331: 22,3661 31234 AVGEND CA PIPTIME +1 # FINAL AVERAGE G EXIT
036445,000332: 22,3662 55074 TS 1/PIPADT # SET UP FREE FALL GYRO COMPENSATION.
036446,000333:
036447,000334: 22,3663 05504 TC UPFLAG # SET DRIFT FLAG.
036448,000335: 22,3664 00036 ADRES DRIFTFLG
036449,000336:
036450,000337: 22,3665 04616 TC BANKCALL
036451,000338: 22,3666 17301 CADR PIPFREE
036452,000339:
036453,000340: 22,3667 44743 CS BIT9
036454,000341: 22,3670 00006 EXTEND
036455,000342: 22,3671 03011 WAND DSALMOUT
036456,000343:
036457,000344: 22,3672 05327 TC 2PHSCHNG
036458,000345: 22,3673 00005 OCT 5 # GROUP 5 OFF
036459,000346: 22,3674 05022 OCT 05022 # GROUP 2 ON
036460,000347: 22,3675 20000 OCT 20000
036461,000348:
036462,000349: 22,3676 06042 TC INTPRET
036463,000350: 22,3677 43014 SET CLEAR
036464,000351: 22,3700 01464 NOR29FLG # SHUT OFF R29 WHEN SERVICER ENDS.
036465,000352: 22,3701 03664 SWANDISP # SHUT OFF R10 WHEN SERVICER ENDS.
036466,000353: 22,3702 45014 CLEAR CALL # RESET MUNFLAG.
036467,000354: 22,3703 03267 MUNFLAG
036468,000355: # Page 864
036469,000356: 22,3704 27463 AVETOMID
036470,000357: 22,3705 77414 CLEAR EXIT
036471,000358: 22,3706 03671 V37FLAG
036472,000359: 22,3707 04635 AVERTRN TC POSTJUMP
036473,000360: 22,3710 10116 CADR V37RET
036474,000361:
036475,000362: 22,3711 22,3707 OUTGOAVE = AVERTRN
036476,000363: 22,3711 E7,1570 DVCNTR1 = MASS1
036477,000364:
036478,000365: # Page 865
036479,000366: 27,2000 SETLOC SERV3
036480,000367: 27,2000 BANK
036481,000368: 27,3322 COUNT* $$/SERV
036482,000369:
036483,000370: 27,3322 00006 SERVIDLE EXTEND # DISCONNECT SERVICER FROM ALL GUIDANCE
036484,000371: 27,3323 33360 DCA SVEXTADR
036485,000372: 27,3324 53252 DXCH AVGEXIT
036486,000373:
036487,000374: 27,3325 40103 CS FLAGWRD7 # DISCONNECT THE DELTA-V MONITOR
036488,000375: 27,3326 74745 MASK IDLEFBIT
036489,000376: 27,3327 26103 ADS FLAGWRD7
036490,000377:
036491,000378: 27,3330 34735 CAF LRBYBIT # TERMINATE R12 IS RUNNING.
036492,000379: 27,3331 54107 TS FLGWRD11
036493,000380:
036494,000381: 27,3332 00006 EXTEND
036495,000382: 27,3333 34755 DCA NEG0
036496,000383: 27,3334 52752 DXCH -PHASE1
036497,000384:
036498,000385: 27,3335 30102 CA FLAGWRD6 # DO NOT TURN OFF PHASE 2 IF MUNFLAG SET.
036499,000386: 27,3336 74744 MASK MUNFLBIT
036500,000387: 27,3337 10000 CCS A
036501,000388: 27,3340 13344 TCF +4
036502,000389:
036503,000390: 27,3341 00006 EXTEND
036504,000391: 27,3342 34755 DCA NEG0
036505,000392: 27,3343 52754 DXCH -PHASE2
036506,000393:
036507,000394: 27,3344 00006 +4 EXTEND
036508,000395: 27,3345 34755 DCA NEG0
036509,000396: 27,3346 52756 DXCH -PHASE3
036510,000397:
036511,000398: 27,3347 00006 EXTEND
036512,000399: 27,3350 34755 DCA NEG0
036513,000400: 27,3351 52764 DXCH -PHASE6
036514,000401:
036515,000402: 27,3352 34764 CAF OCT33 # 4.33SPOT FOR GOP00FIX
036516,000403: 27,3353 54001 TS L
036517,000404: 27,3354 40000 COM
036518,000405: 27,3355 52760 DXCH -PHASE4
036519,000406:
036520,000407: 27,3356 15634 TCF WHIMPER # PERFORM A SOFTWARE RESTART AND PROCEED
036521,000408: # TO GOTOP00H WHILE SERVICER CONTINUES TO
036522,000409: # RUN, ALBEIT IN A GROUND STATE WHERE
036523,000410: # ONLY STATE-VECTOR DEPENDENT FUNCTIONS
036524,000411: # ARE MAINTAINED.
036525,000412:
036526,000413: 27,3357 E7,1515 EBANK= DVCNTR
036527,000414: # Page 866
036528,000415: 27,3357 03746 64067 SVEXTADR 2CADR SERVEXIT
036529,000416:
036530,000417: 32,3746 BANK 32
036531,000418: 32,2000 SETLOC SERV
036532,000419: 32,2000 BANK
036533,000420: 32,3746 COUNT* $$/SERV
036534,000421:
036535,000422: 32,3746 05353 SERVEXIT TC PHASCHNG
036536,000423: 32,3747 00035 OCT 00035
036537,000424:
036538,000425: 32,3750 15155 TCF ENDOFJOB
036539,000426:
036540,000427: 23,2463 BANK 23
036541,000428: 23,2000 SETLOC NORMLIZ
036542,000429: 23,2000 BANK
036543,000430:
036544,000431: 23,2463 COUNT* $$/SERV
036545,000432:
036546,000433: # Page 867
036547,000434: 23,2463 06042 NORMLIZE TC INTPRET
036548,000435: 23,2464 43175 VLOAD BOFF
036549,000436: 23,2465 03545 RN1
036550,000437: 23,2466 03347 MUNFLAG
036551,000438: 23,2467 66415 NORMLIZ1
036552,000439: 23,2470 64252 VSL6 MXV
036553,000440: 23,2471 01734 REFSMMAT
036554,000441: 23,2472 37521 STCALL R
036555,000442: 23,2473 67067 MUNGRAV
036556,000443: 23,2474 76575 VLOAD VSL1
036557,000444: 23,2475 03553 VN1
036558,000445: 23,2476 77721 MXV
036559,000446: 23,2477 01734 REFSMMAT
036560,000447: 23,2500 27527 STOVL V
036561,000448: 23,2501 01726 V(CSM)
036562,000449: 23,2502 53435 VXV UNIT
036563,000450: 23,2503 01720 R(CSM)
036564,000451: 23,2504 03720 STORE UHYP
036565,000452: 23,2505 77776 ASCSPOT EXIT
036566,000453: 23,2506 00006 EXTEND # MAKE SURE GROUP 2 IS OFF
036567,000454: 23,2507 34755 DCA NEG0
036568,000455: 23,2510 52754 DXCH -PHASE2
036569,000456:
036570,000457: 23,2511 04635 TC POSTJUMP
036571,000458: 23,2512 66420 CADR NORMLIZ2
036572,000459:
036573,000460: 33,2415 BANK 33
036574,000461: 33,2000 SETLOC SERVICES
036575,000462: 33,2000 BANK
036576,000463: 33,2415 COUNT* $$/SERV
036577,000464:
036578,000465: 33,2415 77624 NORMLIZ1 CALL
036579,000466: 33,2416 66667 CALCGRAV
036580,000467: 33,2417 77776 EXIT
036581,000468:
036582,000469: 33,2420 32437 NORMLIZ2 CA EIGHTEEN
036583,000470: 33,2421 02424 TC COPYCYC +1 # DO NOT COPY MASS IN NORMLIZE
036584,000471: 33,2422 05155 TC ENDOFJOB
036585,000472:
036586,000473: 33,2423 36007 COPYCYC CA OCT24 # DEC 20
036587,000474: 33,2424 00004 +1 INHINT
036588,000475: 33,2425 77752 +2 MASK NEG1 # REDUCE BY 1 IF ODD
036589,000476: 33,2426 54061 TS ITEMP1
036590,000477: 33,2427 00006 EXTEND
036591,000478: 33,2430 50061 INDEX ITEMP1
036592,000479: 33,2431 31545 DCA RN1
036593,000480: 33,2432 50061 INDEX ITEMP1
036594,000481: # Page 868
036595,000482: 33,2433 53220 DXCH RN
036596,000483: 33,2434 10061 CCS ITEMP1
036597,000484: 33,2435 12425 TCF COPYCYC +2
036598,000485: 33,2436 00002 TC Q # RETURN UNDER INHINT
036599,000486:
036600,000487: 33,2437 00022 EIGHTEEN DEC 18 B-14
036601,000488:
036602,000489: # Page 869
036603,000490: # ************* PIPA READER *****************
036604,000491: # MOD NO. 00 BY D. LICKLY, DEC. 9 1966
036605,000492:
036606,000493: # FUNCTIONAL DESCRIPTION
036607,000494: # SUBROUTINE TO READ PIPA COUNTERS, TRYING TO BE VERY CAREFUL SO THAT WILL BE RESTARTABLE.
036608,000495: # PIPA READINGS ARE STORED IN THE VECTOR DELV. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS THE PIPA READING,
036609,000496: # RESTARTS BEGIN AT REREADAC.
036610,000497:
036611,000498: # AT THE END OF THE PIPA READER THE CDUS ARE READ AND STORED AS A
036612,000499: # VECTOR IN CDUTEMP. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS
036613,000500: # THE CDU READING IN 25 COMP IN THE ORDER CDUX,Y,Z. THE THRUST
036614,000501: # VECTOR ESTIMATOR IN FINDCDUD REQUIRES THE CDUS BE READ AT PIPTIME.
036615,000502:
036616,000503: # CALLINE SEQUENCE AND EXIT
036617,000504: # CALL VIA TC, ISWCALL, ETC.
036618,000505: # EXIT IS VIA Q.
036619,000506:
036620,000507: # INPUT
036621,000508: # INPUT IS THROUGH THE COUNTERS PIPAX, PIPAY, PIPAZ, AND TIME2.
036622,000509:
036623,000510: # OUTPUT
036624,000511: # HIGH ORDER COMPONENTS OF THE VECTOR DELV CONTAIN THE PIPA READINGS.
036625,000512: # PIPTIME CONTAINS TIME OF PIPA READING.
036626,000513:
036627,000514: # DEBRIS (ERASABLE LOCATIONS DESTROYED BY PROGRAM)
036628,000515: # TEMX, TEMY, TEMZ, PIPAGE
036629,000516:
036630,000517: 37,3536 BANK 37
036631,000518: 37,2000 SETLOC SERV1
036632,000519: 37,2000 BANK
036633,000520:
036634,000521: 37,3536 COUNT* $$/SERV
036635,000522:
036636,000523: 37,3536 00006 PIPASR EXTEND
036637,000524: # Page 870
036638,000525: 37,3537 30025 DCA TIME2
036639,000526: 37,3540 53561 DXCH PIPTIME1 # CURRENT TIME POSITIVE VALUE
036640,000527: 37,3541 44755 +3 CS ZERO # INITIALIZE THESE AT NEG. ZERO.
036641,000528: 37,3542 55253 TS TEMX
036642,000529: 37,3543 55254 TS TEMY
036643,000530: 37,3544 55255 TS TEMZ
036644,000531:
036645,000532: 37,3545 34755 CA ZERO
036646,000533: 37,3546 54330 TS DELVZ
036647,000534: 37,3547 54331 TS DELVZ +1
036648,000535: 37,3550 54326 TS DELVY
036649,000536: 37,3551 54327 TS DELVY +1
036650,000537: 37,3552 54325 TS DELVX +1
036651,000538: 37,3553 55256 TS PIPAGE # SHOW PIPA READING IN PROGRESS
036652,000539:
036653,000540: 37,3554 00006 REPIP1 EXTEND
036654,000541: 37,3555 40040 DCS PIPAX # X AND Y PIPS READ
036655,000542: 37,3556 53254 DXCH TEMX
036656,000543: 37,3557 52040 DXCH PIPAX # PIPAS SET TO NEG ZERO AS READ.
036657,000544: 37,3560 54324 TS DELVX
036658,000545: 37,3561 22326 LXCH DELVY
036659,000546:
036660,000547: 37,3562 40041 REPIP3 CS PIPAZ # REPEAT PROCESS FOR Z PIP
036661,000548: 37,3563 57255 XCH TEMZ
036662,000549: 37,3564 56041 XCH PIPAZ
036663,000550: 37,3565 54330 DODELVZ TS DELVZ
036664,000551:
036665,000552: 37,3566 00006 REPIP4 EXTEND # COMPUTE GUIDANCE PERIOD
036666,000553: 37,3567 31561 DCA PIPTIME1
036667,000554: 37,3570 53247 DXCH PGUIDE
036668,000555: 37,3571 00006 EXTEND
036669,000556: 37,3572 41234 DCS PIPTIME
036670,000557: 37,3573 21247 DAS PGUIDE
036671,000558:
036672,000559: 37,3574 30032 CA CDUX # READ CDUS INTO HIGH ORDER CDUTEMPS
036673,000560: 37,3575 55154 TS CDUTEMPX
036674,000561: 37,3576 30033 CA CDUY
036675,000562: 37,3577 55155 TS CDUTEMPY
036676,000563: 37,3600 30034 CA CDUZ
036677,000564: 37,3601 55156 TS CDUTEMPZ
036678,000565: 37,3602 30324 CA DELVX
036679,000566: 37,3603 55157 TS PIPATMPX
036680,000567: 37,3604 30326 CA DELVY
036681,000568: 37,3605 55160 TS PIPATMPY
036682,000569: 37,3606 30330 CA DELVZ
036683,000570: 37,3607 55161 TS PIPATMPZ
036684,000571:
036685,000572: 37,3610 00002 TC Q
036686,000573:
036687,000574: # Page 871
036688,000575: 37,3611 11256 REREADAC CCS PIPAGE
036689,000576: 37,3612 13437 TCF READACCS # PIP READING NOT STARTED. GO TO BEGINNING
036690,000577:
036691,000578: 37,3613 33651 CAF DONEADR # SET UP RETURN FROM PIPASR
036692,000579: 37,3614 54002 TS Q
036693,000580:
036694,000581: 37,3615 10330 CCS DELVZ
036695,000582: 37,3616 13566 TCF REPIP4 # Z DONE, GO DO CDUS
036696,000583: 37,3617 13622 TCF +3 # Z NOT DONE, CHECK Y.
036697,000584: 37,3620 13566 TCF REPIP4
036698,000585: 37,3621 13566 TCF REPIP4
036699,000586:
036700,000587: 37,3622 22007 ZL
036701,000588: 37,3623 10326 CCS DELVY
036702,000589: 37,3624 13627 TCF +3
036703,000590: 37,3625 13636 TCF CHKTEMX # Y NOT DONE, CHECK X.
036704,000591: 37,3626 13627 TCF +1
036705,000592: 37,3627 22041 LXCH PIPAZ # Y DONE, ZERO Z PIP.
036706,000593:
036707,000594: 37,3630 11255 CCS TEMZ
036708,000595: 37,3631 41255 CS TEMZ # TEMZ NOT = -0, CONTAINS -PIPAZ VALUE.
036709,000596: 37,3632 13565 TCF DODELVZ
036710,000597: 37,3633 13631 TCF -2
036711,000598: 37,3634 22330 LXCH DELVZ # TEMZ = -0, L HAS ZPIP VALUE.
036712,000599: 37,3635 13566 TCF REPIP4
036713,000600:
036714,000601: 37,3636 11253 CHKTEMX CCS TEMX # HAS THIS CHANGED
036715,000602: 37,3637 41253 CS TEMX # YES
036716,000603: 37,3640 13643 TCF +3 # YES
036717,000604: 37,3641 13637 TCF -2 # YES
036718,000605: 37,3642 13554 TCF REPIP1 # NO
036719,000606: 37,3643 54324 TS DELVX
036720,000607:
036721,000608: 37,3644 41254 CS TEMY
036722,000609: 37,3645 54326 TS DELVY
036723,000610:
036724,000611: 37,3646 44755 CS ZERO # ZERO X AND Y PIPS
036725,000612: 37,3647 52040 DXCH PIPAX # L STILL ZERO FROM ABOVE
036726,000613:
036727,000614: 37,3650 13562 TCF REPIP3
036728,000615:
036729,000616: 37,3651 03447 DONEADR GENADR PIPSDONE
036730,000617:
036731,000618: # Page 872
036732,000619: 33,2440 BANK 33
036733,000620: 33,2000 SETLOC SERVICES
036734,000621: 33,2000 BANK
036735,000622:
036736,000623: 33,2440 COUNT* $$/SERV
036737,000624:
036738,000625: 33,2440 31155 TMPTOSPT CA CDUTEMPY # THIS SUBROUTINE, ALLED BY AN RTB FROM
036739,000626: 33,2441 54765 TS CDUSPOTY # INTERPRETIVE, LOADS THE CDUS CORRESPON-
036740,000627: 33,2442 31156 CA CDUTEMPZ # DING TO PIPTIME INTO THE CDUSPOT VECTOR.
036741,000628: 33,2443 54767 TS CDUSPOTZ
036742,000629: 33,2444 31154 CA CDUTEMPX
036743,000630: 33,2445 54771 TS CDUSPOTX
036744,000631: 33,2446 00002 TC Q
036745,000632:
036746,000633: # LRHTASK IS A WAITLIST TASK SET BY READACCS DURING THE DESCENT BRAKING
036747,000634: # PHASE WHEN THE ALT TO THE LUNAR SURFACE IS LESS THAN 25,000 FT. THIS
036748,000635: # TASK CLEARS THE ALTITUDE MEASUREMENT MADE DISCRETE AND INITIATES THE
036749,000636: # LANDING RADAR MEASUREMENT JOB (LRHJOB) TO TAKE A ALTITUDE MEASUREMENT
036750,000637: # 50 MS PRIOR TO THE NEXT READACCS TASK.
036751,000638:
036752,000639: 21,2125 BANK 21
036753,000640: 21,2000 SETLOC R10
036754,000641: 21,2000 BANK
036755,000642:
036756,000643: 21,2125 COUNT* $$/SERV
036757,000644:
036758,000645: 21,2125 40107 LRHTASK CS FLGWRD11
036759,000646: 21,2126 74735 MASK LRBYBIT
036760,000647: 21,2127 00006 EXTEND
036761,000648: 21,2130 12141 BZF GRP2OFF # LR BYPASS SET -- BYPASS ALL LR READING.
036762,000649:
036763,000650: 21,2131 40107 CS FLGWRD11
036764,000651: 21,2132 74742 MASK NOLRRBIT # IS LR READ INHIBITED?
036765,000652: 21,2133 00006 EXTEND
036766,000653: 21,2134 12141 BZF GRP2OFF # YES. BYPASS LR READ.
036767,000654:
036768,000655: 21,2135 37723 CA PRIO32 # LR READ OK. SET JOB TO DO IT
036769,000656: 21,2136 05072 TC NOVAC # ABOUT 50 MS. PRIOR TO PIPA READ.
036770,000657: 21,2137 E7,1654 EBANK= HMEAS
036771,000658: 21,2137 03571 70067 2CADR LRHJOB
036772,000659:
036773,000660: 21,2141 00006 GRP2OFF EXTEND
036774,000661: 21,2142 34755 DCA NEG0
036775,000662: 21,2143 52754 DXCH -PHASE2
036776,000663: 21,2144 12021 TCF R10,R11A
036777,000664:
036778,000665: 33,2447 BANK 33
036779,000666: 33,2000 SETLOC SERVICES
036780,000667: 33,2000 BANK
036781,000668: # Page 873
036782,000669: 33,2447 COUNT* $$/SERV
036783,000670:
036784,000671: # HIGATASK IS ENTERED APPROXIMATELY 6 SECS PRIOR TO HIGATE DURING THE
036785,000672: # DESCENT PHASE. HIGATASK SETS THE HIGATE FLAG (BIT11) AND THE LR INHIBIT
036786,000673: # FLAG (BIT10) IN LRSTAT. THE HIGATJOB IS SET UP TO REPOSITION THE LR
036787,000674: # ANTENNA FROM POSITION 1 TO POSITION 2. IF THE REPOSITIONING IS
036788,000675: # SUCCESSFUL THE ALT BEAM AND VELOCITY BEAMS ARE TRANSFORMED TO THE NEW
036789,000676: # ORIENTATION IN NB COORDINATES AND STORED IN ERASABLE.
036790,000677:
036791,000678: 33,2447 05353 HIGATASK TC PHASCHNG
036792,000679: 33,2450 00051 OCT 51
036793,000680:
036794,000681: 33,2451 37723 CA PRIO32
036795,000682: 33,2452 05105 TC FINDVAC
036796,000683: 33,2453 E7,1654 EBANK= HMEAS
036797,000684: 33,2453 03634 66067 2CADR HIGATJOB
036798,000685:
036799,000686: 33,2455 40107 CS FLGWRD11
036800,000687: 33,2456 75015 MASK PRIO3
036801,000688: 33,2457 26107 ADS FLGWRD11
036802,000689: 33,2460 12546 TCF CONTSERV +1
036803,000690:
036804,000691: # Page 874
036805,000692: # MUNRETRN IS THE RETURN LOC FROM SPECIAL AVE G ROUTINE (MUNRVG)
036806,000693:
036807,000694: 33,2461 77776 MUNRETRN EXIT
036808,000695:
036809,000696: 33,2462 40107 CS FLGWRD11
036810,000697: 33,2463 74735 MASK LRBYBIT
036811,000698: 33,2464 00006 EXTEND
036812,000699: 33,2465 12551 BZF COPYCYC1 # BYPASS LR LOGIC IF BIT15 IS SET.
036813,000700:
036814,000701: 33,2466 40107 CS FLGWRD11 # CHECK IF AT 30000 FT
036815,000702: 33,2467 74743 MASK XORFLBIT
036816,000703: 33,2470 00006 EXTEND
036817,000704: 33,2471 12506 BZF R12
036818,000705:
036819,000706: 33,2472 00006 30KCHK EXTEND
036820,000707: 33,2473 33113 DCA 1-30KFT
036821,000708: 33,2474 52155 DXCH MPAC
036822,000709: 33,2475 00006 EXTEND
036823,000710: 33,2476 31535 DCA HCALC
036824,000711: 33,2477 20155 DAS MPAC
036825,000712:
036826,000713: 33,2500 10000 CCS A
036827,000714: 33,2501 12506 TCF R12 # ALTITUDE > 30KFT
036828,000715: 33,2502 05504 TC UPFLAG # ALTITUDE < 30KFT SET X-AXIS OVERRIDE
036829,000716: 33,2503 00311 ADRES XOVINFLG
036830,000717: 33,2504 05504 TC UPFLAG
036831,000718: 33,2505 00253 ADRES XORFLG
036832,000719:
036833,000720: 33,2506 40107 R12 CS FLGWRD11
036834,000721: 33,2507 74742 MASK NOLRRBIT
036835,000722: 33,2510 00006 EXTEND
036836,000723: 33,2511 12545 BZF CONTSERV
036837,000724:
036838,000725: 33,2512 40107 CS FLGWRD11
036839,000726: 33,2513 74751 MASK NO511BIT
036840,000727: 33,2514 00006 EXTEND
036841,000728: 33,2515 13115 BZF UPDATCHK # IF NO511BIT SET, DO NOT CHECK OR POSITION
036842,000729:
036843,000730: 33,2516 40107 HITEST CS FLGWRD11
036844,000731: 33,2517 74741 MASK PSTHIBIT
036845,000732: 33,2520 00006 EXTEND
036846,000733: 33,2521 12540 BZF POS2CHK
036847,000734: 33,2522 31642 HIGATCHK CA TTF/8 # IS TTF > CRITERION? (TTF IS NEGATIVE)
036848,000735: 33,2523 61427 AD RPCRTIME
036849,000736: 33,2524 00006 EXTEND
036850,000737: 33,2525 62536 BZMF POS1CHK # NO
036851,000738:
036852,000739: 33,2526 34741 CA EBANK4 # MUST SWITCH EBANKS
036853,000740: 33,2527 56003 XCH EBANK
036854,000741: 33,2530 54001 TS L # SAVE IN L
036855,000742: # Page 875
036856,000743: 33,2531 E4,1545 EBANK= XNBPIP
036857,000744: 33,2531 41545 CS XNBPIP # UXBXP IN GSOP CH5
036858,000745: 33,2532 E7,1515 EBANK= DVCNTR
036859,000746: 33,2532 22003 LXCH EBANK # RESTORE EBANK
036860,000747: 33,2533 61430 AD RPCRTQSW # QSW - UXBXP
036861,000748: 33,2534 00006 EXTEND
036862,000749: 33,2535 62447 BZMF HIGATASK # IF UXBXP > QSW, THEN REPOSITION
036863,000750:
036864,000751: 33,2536 34746 POS1CHK CAF BIT6
036865,000752: 33,2537 12541 TCF +2
036866,000753:
036867,000754: 33,2540 34745 POS2CHK CAF BIT7
036868,000755: 33,2541 03674 TC POSTST
036869,000756: 33,2542 13115 TCF UPDATCHK # LR IN RIGHT POSITION -- CONTINUE
036870,000757:
036871,000758: 33,2543 05567 LRPOSALM TC ALARM # LR NOT IN PROPER POS-ALARM-BYPASS UPDATE
036872,000759: 33,2544 00511 OCT 511 # AND CONTINUE SERVICER.
036873,000760: 33,2545 00004 CONTSERV INHINT
036874,000761: 33,2546 43111 CS BITS4-7
036875,000762: 33,2547 70107 MASK FLGWRD11 # CLEAR LR MEASUREMENT MADE DISCRETES.
036876,000763: 33,2550 54107 TS FLGWRD11
036877,000764:
036878,000765: # Page 876
036879,000766: 33,2551 03512 COPYCYC1 TC QUIKFAZ5
036880,000767:
036881,000768: 33,2552 30077 R297 CA FLAGWRD3
036882,000769: 33,2553 75014 MASK NR29&RDR
036883,000770: 33,2554 10000 CCS A # IS NOR29FLG OR READRFLG SET?
036884,000771: 33,2555 12567 TCF R29NODES # YES, SO DON'T DESIGNATE.
036885,000772:
036886,000773: 33,2556 30110 CA RADMODES # NO, SO R29 IS CALLED FOR.
036887,000774: 33,2557 72250 MASK OCT10002 # IS THE RR NOT ZEROING ITS CDUS, AND
036888,000775: 33,2560 10000 CCS A # IS THE RENDEZVOUS RADAR IN AUTO MODE?
036889,000776: 33,2561 12567 TCF R29NODES # NO, SO DON'T DESIGNATE.
036890,000777:
036891,000778: 33,2562 30110 CA RADMODES
036892,000779: 33,2563 77713 MASK PRIO22
036893,000780: 33,2564 10000 CCS A # IS RR REPOSITIONING OR REMODING?
036894,000781: 33,2565 12573 TCF NOR29NOW # YES: COME BACK IN 2 SECONDS & TRY AGAIN.
036895,000782:
036896,000783: 33,2566 12045 TCF R29
036897,000784:
036898,000785: 33,2567 00004 R29NODES INHINT # R29 NOT ALLOWED THIS CYCLE.
036899,000786: 33,2570 44742 CS DESIGBIT # SHOW THAT DESIGNATION IS OFF.
036900,000787: 33,2571 70110 MASK RADMODES
036901,000788: 33,2572 54110 TS RADMODES
036902,000789:
036903,000790: 33,2573 06042 NOR29NOW TC INTPRET # INTPRET DOES A RELINT.
036904,000791: 33,2574 51575 VLOAD ABVAL # MPAC = ABVAL( NEW SM. POSITION VECTOR )
036905,000792: 33,2575 03573 R1S
036906,000793: 33,2576 45206 PUSH DSU # (2)
036907,000794: 33,2577 02333 /LAND/
036908,000795: 33,2600 03535 STORE HCALC # NEW HCALC*2(24)M.
036909,000796: 33,2601 03775 STORE HCALC1
036910,000797: 33,2602 47075 DMPR RTB
036911,000798: 33,2603 26026 ALTCONV
036912,000799: 33,2604 21613 SGNAGREE
036913,000800: 33,2605 27742 STOVL ALTBITS # ALTITUDE FOR R10 IN BIT UNITS.
036914,000801: 33,2606 03537 UNIT/R/
036915,000802: 33,2607 53435 VXV UNIT
036916,000803: 33,2610 03720 UHYP
036917,000804: 33,2611 27726 STOVL UHZP # DOWNRANGE HALF-UNIT VECTOR FOR R10.
036918,000805: 33,2612 03573 R1S
036919,000806: 33,2613 60505 VXM VSR4
036920,000807: 33,2614 01734 REFSMMAT
036921,000808: 33,2615 27545 STOVL RN1 # TEMP. REF. POSITION VECTOR*2(29)M.
036922,000809: 33,2616 03601 V1S
036923,000810: 33,2617 76505 VXM VSL1
036924,000811: 33,2620 01734 REFSMMAT
036925,000812: 33,2621 27553 STOVL VN1 # TEMP. REF. VELOCITY VECTOR 2(7) M/CS.
036926,000813: 33,2622 03537 UNIT/R/
036927,000814: 33,2623 51435 VXV ABVAL
036928,000815: # Page 877
036929,000816: 33,2624 03601 V1S
036930,000817: 33,2625 63552 SL1 DSQ
036931,000818: 33,2626 77671 DDV
036932,000819: 33,2627 47075 DMPR RTB
036933,000820: 33,2630 26030 ARCONV1
036934,000821: 33,2631 21613 SGNAGREE
036935,000822: 33,2632 77776 COPYCYC2 EXIT # LEAVE ALTITUDE RATE COMPENSATION IN MPAC
036936,000823: 33,2633 00004 INHINT
036937,000824: 33,2634 31536 CA UNIT/R/ # UPDATE RUNIT FOR R10.
036938,000825: 33,2635 55743 TS RUNIT
036939,000826: 33,2636 31540 CA UNIT/R/ +2
036940,000827: 33,2637 55744 TS RUNIT +1
036941,000828: 33,2640 31542 CA UNIT/R/ +4
036942,000829: 33,2641 55745 TS RUNIT +2
036943,000830: 33,2642 30154 CA MPAC # LOAD NEW DALTRATE FOR R10.
036944,000831: 33,2643 55716 TS DALTRATE
036945,000832:
036946,000833: 33,2644 00006 EXTEND
036947,000834: 33,2645 31573 DCA R1S
036948,000835: 33,2646 53521 DXCH R
036949,000836: 33,2647 00006 EXTEND
036950,000837: 33,2650 31575 DCA R1S +2
036951,000838: 33,2651 53523 DXCH R +2
036952,000839: 33,2652 00006 EXTEND
036953,000840: 33,2653 31577 DCA R1S +4
036954,000841: 33,2654 53525 DXCH R +4
036955,000842: 33,2655 00006 EXTEND
036956,000843: 33,2656 31601 DCA V1S
036957,000844: 33,2657 53527 DXCH V
036958,000845: 33,2660 00006 EXTEND
036959,000846: 33,2661 31603 DCA V1S +2
036960,000847: 33,2662 53531 DXCH V +2
036961,000848: 33,2663 00006 EXTEND
036962,000849: 33,2664 31605 DCA V1S +4
036963,000850: 33,2665 53533 DXCH V +4
036964,000851:
036965,000852: 33,2666 12275 TCF COPYCYCL # COMPLETE THE COPYCYCL.
036966,000853:
036967,000854: # Page 878
036968,000855: # ***************************************************************
036969,000856:
036970,000857: 33,2667 41456 CALCGRAV UNIT PUSH # SAVE UNIT/R/ IN PUSHLIST (18)
036971,000858: 33,2670 03537 STORE UNIT/R/
036972,000859: 33,2671 67340 LXC,1 SLOAD # RTX2 = 0 IF EARTH ORBIT, =2 IF LUNAR.
036973,000860: 33,2672 02777 RTX2
036974,000861: 33,2673 03000 RTX2
036975,000862: 33,2674 50076 DCOMP BMN
036976,000863: 33,2675 66724 CALCGRV1
036977,000864: 33,2676 50375 VLOAD DOT # (12)
036978,000865: 33,2677 06516 UNITZ
036979,000866: 33,2700 03537 UNIT/R/
036980,000867: 33,2701 41552 SL1 PUSH # (14)
036981,000868: 33,2702 44316 DSQ BDSU
036982,000869: 33,2703 26766 DP1/20
036983,000870: 33,2704 56325 PDDL DDV
036984,000871: 33,2705 26040 RESQ
036985,000872: 33,2706 00043 34D # (RN)SQ
036986,000873: 33,2707 00041 STORE 32D # TEMP FOR (RE/RN)SQ
036987,000874: 33,2710 41205 DMP DMP
036988,000875: 33,2711 26042 20J
036989,000876: 33,2712 65361 VXSC PDDL
036990,000877: 33,2713 03537 UNIT/R/
036991,000878: 33,2714 41205 DMP DMP
036992,000879: 33,2715 26044 2J
036993,000880: 33,2716 00041 32D
036994,000881: 33,2717 76561 VXSC VSL1
036995,000882: 33,2720 06516 UNITZ
036996,000883: 33,2721 45455 VAD STADR
036997,000884: 33,2722 74256 STORE UNITGOBL
036998,000885: 33,2723 41455 VAD PUSH # MPAC = UNIT GRAVITY VECTOR. (18)
036999,000886: 33,2724 60345 CALCGRV1 DLOAD NORM # PERFORM A NORMALIZATION ON RMAGSQ IN
037000,000887: 33,2725 00043 34D # ORDER TO BE ABLE TO SCALE THE MU FOR
037001,000888: 33,2726 00050 X2 # MAXIMUM PRECISION.
037002,000889: 33,2727 53663 BDDV* SLR*
037003,000890: 33,2730 26032 -MUDT,1
037004,000891: 33,2731 56623 0 -21D,2
037005,000892: 33,2732 45561 VXSC STADR
037006,000893: 33,2733 74214 STORE GDT1/2 # SCALED AT 2(+7) M/CS
037007,000894: 33,2734 77616 RVQ
037008,000895:
037009,000896: 33,2735 61375 CALCRVG VLOAD VXM
037010,000897: 33,2736 00325 DELV
037011,000898: 33,2737 01734 REFSMMAT
037012,000899: 33,2740 76561 VXSC VSL1
037013,000900: 33,2741 26022 KPIP1
037014,000901: 33,2742 03527 STORE DELVREF
037015,000902: 33,2743 41562 VSR1 PUSH
037016,000903: 33,2744 41455 VAD PUSH # (DV-OLDGDT)/2 TO PD SCALED AT 2(+7) M/CS.
037017,000904: # Page 879
037018,000905: 33,2745 01236 GDT/2
037019,000906: 33,2746 65255 VAD PDDL
037020,000907: 33,2747 01226 VN
037021,000908: 33,2750 01247 PGUIDE
037022,000909: 33,2751 74261 SL VXSC
037023,000910: 33,2752 20207 6D
037024,000911: 33,2753 44055 VAD STQ
037025,000912: 33,2754 01220 RN
037026,000913: 33,2755 00037 31D
037027,000914: 33,2756 37545 STCALL RN1 # TEMP STORAGE OF RN SCALED 2(+29) M
037028,000915: 33,2757 66667 CALCGRAV
037029,000916:
037030,000917: 33,2760 53255 VAD VAD
037031,000918: 33,2761 77655 VAD
037032,000919: 33,2762 01226 VN
037033,000920: 33,2763 37553 STCALL VN1 # TEMP STORAGE OF VN SCALED 2(+7) M/CS
037034,000921: 33,2764 00037 31D
037035,000922:
037036,000923: 33,2765 01463 06315 DP1/20 2DEC 0.05
037037,000924: 33,2767 00010 00000 SHIFT11 2DEC 1 B-11
037038,000925:
037039,000926: # Page 880
037040,000927: # *****************************************************************************
037041,000928: # MUNRVG IS A SPECIAL AVERAGE G INTEGRATION ROUTINE USED BY THRUSTING
037042,000929: # PROGRAMS WHICH FUNCTION IN THE VICINITY OF AN ASSUMED SPHERICAL MOON.
037043,000930: # THE INPUT AND OUTPUT QUANTITIES ARE REFERENCED TO THE STABLE MEMBER
037044,000931: # COORDINATE SYSTEM.
037045,000932:
037046,000933: 33,2771 41575 RVBOTH VLOAD PUSH
037047,000934: 33,2772 02317 G(CSM)
037048,000935: 33,2773 65255 VAD PDDL
037049,000936: 33,2774 01726 V(CSM)
037050,000937: 33,2775 01247 PGUIDE
037051,000938: 33,2776 74271 DDV VXSC
037052,000939: 33,2777 26770 SHIFT11
037053,000940: 33,3000 77655 VAD
037054,000941: 33,3001 01720 R(CSM)
037055,000942: 33,3002 37573 STCALL R1S
037056,000943: 33,3003 67067 MUNGRAV
037057,000944: 33,3004 53255 VAD VAD
037058,000945: 33,3005 01726 V(CSM)
037059,000946: 33,3006 77626 STADR
037060,000947: 33,3007 74176 STORE V1S
037061,000948: 33,3010 77776 EXIT
037062,000949: 33,3011 03512 TC QUIKFAZ5
037063,000950: 33,3012 06042 TC INTPRET
037064,000951: 33,3013 77775 VLOAD
037065,000952: 33,3014 03563 GDT1/2
037066,000953: 33,3015 26317 STOVL G(CSM)
037067,000954: 33,3016 03573 R1S
037068,000955: 33,3017 25720 STOVL R(CSM)
037069,000956: 33,3020 03601 V1S
037070,000957: 33,3021 01726 STORE V(CSM)
037071,000958: 33,3022 77776 EXIT
037072,000959: 33,3023 03512 TC QUIKFAZ5
037073,000960: 33,3024 06042 TC INTPRET
037074,000961: 33,3025 74375 MUNRVG VLOAD VXSC
037075,000962: 33,3026 00325 DELV
037076,000963: 33,3027 26024 KPIP2
037077,000964: 33,3030 53206 PUSH VAD # 1ST PUSH: DELV IN UNITS OF 2(8) M/CS
037078,000965: 33,3031 01236 GDT/2
037079,000966: 33,3032 53206 PUSH VAD # 2ND PUSH: (DELV + GDT)/2, UNITS OF 2(7)
037080,000967: 33,3033 03527 V # (12)
037081,000968: 33,3034 56325 PDDL DDV
037082,000969: 33,3035 01247 PGUIDE
037083,000970: 33,3036 26770 SHIFT11
037084,000971: 33,3037 77761 VXSC
037085,000972: 33,3040 77655 VAD
037086,000973: 33,3041 03521 R
037087,000974: 33,3042 37573 STCALL R1S # STORE R SCALED AT 2(+24) M
037088,000975: 33,3043 67067 MUNGRAV
037089,000976: # Page 881
037090,000977: 33,3044 53255 VAD VAD
037091,000978: 33,3045 77655 VAD
037092,000979: 33,3046 03527 V
037093,000980: 33,3047 03601 STORE V1S # STORE V SCALED AT 2(+7) M/CS.
037094,000981: 33,3050 77646 ABVAL
037095,000982: 33,3051 27472 STOVL ABVEL # STORE SPEED FOR LR AND DISPLAYS.
037096,000983: 33,3052 03537 UNIT/R/
037097,000984: 33,3053 72441 DOT SL1
037098,000985: 33,3054 03601 V1S
037099,000986: 33,3055 27474 STOVL HDOTDISP # HDOT = V. UNIT(R)*2(7) M/CS.
037100,000987: 33,3056 03573 R1S
037101,000988: 33,3057 72435 VXV VSL2
037102,000989: 33,3060 02325 WM
037103,000990: 33,3061 17734 STODL DELVS # LUNAR ROTATION CORRECTON TERM*2(5) M/CS.
037104,000991: 33,3062 00045 36D
037105,000992: 33,3063 77625 DSU
037106,000993: 33,3064 02333 /LAND/
037107,000994: 33,3065 37535 STCALL HCALC # FOR NOW, DISPLAY WHETHER POS OR NEG
037108,000995: 33,3066 66461 MUNRETRN
037109,000996: 33,3067 77656 MUNGRAV UNIT # AT 36D HAVE ABVAL(R), AT 34D R.R
037110,000997: 33,3070 17537 STODL UNIT/R/
037111,000998: 33,3071 00043 34D
037112,000999: 33,3072 55261 SL BDDV
037113,001000: 33,3073 20207 6D
037114,001001: 33,3074 26036 -MUDTMUN
037115,001002: 33,3075 74205 DMP VXSC
037116,001003: 33,3076 26770 SHIFT11
037117,001004: 33,3077 03537 UNIT/R/
037118,001005: 33,3100 03563 STORE GDT1/2 # 1/2GDT SCALED AT 2(7) M/CS.
037119,001006: 33,3101 77616 RVQ
037120,001007:
037121,001008: 33,3102 00303 1.95SECS DEC 195 B-14
037122,001009: 33,3103 00014 20000 2SEC(18) 2DEC 200 B-18
037123,001010: 33,3105 00000 00310 2SEC(28) 2OCT 0000000310 # 2SEC AT 2(28)
037124,001011: 33,3107 00000 00620 4SEC(28) 2DEC 400 B-28
037125,001012: 33,3111 00110 BITS4-7 OCT 110
037126,001013: 33,3112 37767 02200 1-30KFT 2DEC 16768072 B-24 # DPPOSMAX-30KFT
037127,001014: 33,3114 04445 6KFT/SEC DEC 18.288 B-7 # 6000 FT/SEC AT 2(7) M/CS
037128,001015:
037129,001016: # Page 882
037130,001017: 33,3115 34742 UPDATCHK CAF NOLRRBIT # SEE IF LR UPDATE INHIBITED.
037131,001018: 33,3116 70107 MASK FLGWRD11
037132,001019: 33,3117 10000 CCS A
037133,001020: 33,3120 12545 TCF CONTSERV # IT IS -- NO LR UPDATE
037134,001021: 33,3121 34750 CAF RNGEDBIT # NO INHIBIT -- SEE ALT MEA. THIS CYCLE.
037135,001022: 33,3122 70107 MASK FLGWRD11
037136,001023: 33,3123 00006 EXTEND
037137,001024: 33,3124 13250 BZF VMEASCHK # NO ALT MEAS THIS CYCLE -- CHECK FOR VEL
037138,001025:
037139,001026: 33,3125 30120 POSUPDAT CA FIXLOC # SET PUSHLIST TO ZERO
037140,001027: 33,3126 54166 TS PUSHLOC
037141,001028:
037142,001029: 33,3127 06042 TC INTPRET
037143,001030: 33,3130 61375 VLOAD VXM
037144,001031: 33,3131 02273 HBEAMNB
037145,001032: 33,3132 02146 XNBPIP # HBEAM SM AT 2(2)
037146,001033: 33,3133 72515 PDVL VSL2 # STORE HBEAM IN PD 0-5
037147,001034: 33,3134 03601 V1S # SCALE V AT 2(5) M/CS
037148,001035: 33,3135 50255 VAD DOT
037149,001036: 33,3136 03734 DELVS # V RELATIVE TO SURFACE AT 2(5) M/CS
037150,001037: 33,3137 00001 0D # V ALONG HBEAM AT 2(7) M/CS.
037151,001038: 33,3140 77405 DMP EXIT
037152,001039: 33,3141 01352 RADSKAL # SCALE TO RADAR COUNTS X 5
037153,001040:
037154,001041: 33,3142 40110 CS FLGWRD12 # TEST LR ALTITUDE SCALE FACTOR
037155,001042: 33,3143 74743 MASK ALTSCBIT
037156,001043: 33,3144 00006 EXTEND
037157,001044: 33,3145 13150 BZF +3 # BRANCH IF HIGH SCALE
037158,001045:
037159,001046: 33,3146 31353 CA SKALSKAL # RESCALE IF LOW SCALE
037160,001047: 33,3147 07312 TC SHORTMP
037161,001048:
037162,001049: 33,3150 06042 +3 TC INTPRET
037163,001050: 33,3151 54215 DAD SL # CORRECT HMEAS FOR DOPPLER EFFECT
037164,001051: 33,3152 03655 HMEAS
037165,001052: 33,3153 20210 7D
037166,001053: 33,3154 74205 DMP VXSC # SLANT RANGE AT 2(21), PUSH UP FOR HBEAM
037167,001054: 33,3155 26011 HSCAL # SLANT RANGE VECTOR AT 2(23) M
037168,001055: 33,3156 45241 DOT DSU
037169,001056: 33,3157 03537 UNIT/R/ # ALTITUDE AT 2(24) M
037170,001057: 33,3160 03535 HCALC # DELTA H AT 2(24) M
037171,001058: 33,3161 03665 STORE DELTAH
037172,001059: 33,3162 77776 EXIT
037173,001060:
037174,001061: 33,3163 30107 CA FLGWRD11
037175,001062: 33,3164 74741 MASK PSTHIBIT
037176,001063: 33,3165 00006 EXTEND # DO NOT PERFORM DATA REASONABLENESS TEST
037177,001064: 33,3166 13203 BZF NOREASON # UNTIL AFTER HIGATE.
037178,001065: # Page 883
037179,001066: 33,3167 06042 TC INTPRET
037180,001067: 33,3170 45246 ABS DSU
037181,001068: 33,3171 02521 DELQFIX # ABS(DELTAH) - DQFIX 50 FT NOM
037182,001069: 33,3172 45252 SL3 DSU # SCALE TO 2(21)
037183,001070: 33,3173 03535 HCALC # ABS(DELTAH) - (50 + HCALC/8) AT 2(21)
037184,001071: 33,3174 77776 EXIT
037185,001072:
037186,001073: 33,3175 25670 INCR LRLCTR
037187,001074: 33,3176 06726 TC BRANCH
037188,001075: 33,3177 13520 TCF HFAIL # DELTA H TOO LARGE
037189,001076: 33,3200 13520 TCF HFAIL # DELTA H TOO LARGE
037190,001077: 33,3201 05516 TC DOWNFLAG # TURN OFF ALT FAIL LAMP
037191,001078: 33,3202 00263 ADRES HFLSHFLG
037192,001079:
037193,001080: 33,3203 40107 NOREASON CS FLGWRD11
037194,001081: 33,3204 74744 MASK LRINHBIT
037195,001082: 33,3205 10000 CCS A
037196,001083: 33,3206 13250 TCF VMEASCHK # UPDATE INHIBITED -- TEST VELOCITY ANYWAY
037197,001084:
037198,001085: 33,3207 06042 TC INTPRET # DO POSITION UPDATE
037199,001086: 33,3210 40545 DLOAD SR4
037200,001087: 33,3211 03535 HCALC # RESCALE H TO 2(28)M
037201,001088: 33,3212 77776 EXIT
037202,001089: 33,3213 00006 EXTEND
037203,001090: 33,3214 31665 DCA DELTAH # STORE DELTAH IN MPAC AND
037204,001091: 33,3215 52155 DXCH MPAC # BRING HCALC INTO A,L
037205,001092: 33,3216 07547 TC ALSIGNAG
037206,001093: 33,3217 00006 EXTEND # IF HIGH PART OF HCALC IS NON-ZERO, THEN
037207,001094: 33,3220 13222 BZF +2 # HCALC > HMAX,
037208,001095: 33,3221 13250 TCF VMEASCHK # SO UPDATE IS BYPASSED
037209,001096: 33,3222 54156 TS MPAC +2 # FOR LATER SHORTMP
037210,001097:
037211,001098: 33,3223 40001 CS L # -H AT 2(14) M
037212,001099: 33,3224 61420 AD LRHMAX # HMAX - H
037213,001100: 33,3225 00006 EXTEND
037214,001101: 33,3226 63250 BZMF VMEASCHK # IF H >HMAX, BYPASS UPDATE
037215,001102: 33,3227 00006 EXTEND
037216,001103: 33,3230 71421 MP LRWH # WH(HMAX - H)
037217,001104: 33,3231 00006 EXTEND
037218,001105: 33,3232 11420 DV LRHMAX # WH(1 - H/HMAX)
037219,001106: 33,3233 54135 TS MPTEMP
037220,001107: 33,3234 07316 TC SHORTMP2 # DELTAH (WH)(1 - H/HMAX) IN MPAC
037221,001108: 33,3235 06042 TC INTPRET # MODE IS DP FROM ABOVE
037222,001109: 33,3236 77752 SL1
037223,001110: 33,3237 53361 VXSC VAD
037224,001111: 33,3240 03537 UNIT/R/ # DELTAR = DH(WH)(1 - H/HMAX) UNIT/R/
037225,001112: 33,3241 03573 R1S
037226,001113: 33,3242 37657 STCALL GNUR
037227,001114: 33,3243 67067 MUNGRAV
037228,001115: 33,3244 77776 EXIT
037229,001116: # Page 884
037230,001117: 33,3245 03512 TC QUIKFAZ5
037231,001118:
037232,001119: 33,3246 34755 CA ZERO
037233,001120: 33,3247 03474 RUPDATED TC GNURVST
037234,001121:
037235,001122: 33,3250 03512 VMEASCHK TC QUIKFAZ5 # RESTART AT NEXT LOCATION
037236,001123: 33,3251 40107 CS FLGWRD11
037237,001124: 33,3252 74745 MASK VELDABIT # IS V READING AVAILABLE?
037238,001125: 33,3253 10000 CCS A
037239,001126: 33,3254 13454 TCF VALTCHK # NO: SEE IF V READING TO BE TAKEN
037240,001127:
037241,001128: 33,3255 41651 VELUPDAT CS VSELECT # PROCESS VELOCITY DATA
037242,001129: 33,3256 54001 TS L
037243,001130: 33,3257 26001 ADS L # -2 VSELECT IN L
037244,001131: 33,3260 60001 AD L
037245,001132: 33,3261 60001 AD L # -6 VSELECT IN A
037246,001133: 33,3262 50120 INDEX FIXLOC
037247,001134: 33,3263 52047 DXCH X1 # X1 = -6 VSELECT, X2 = -2 VSELECT
037248,001135:
037249,001136: 33,3264 34741 CA EBANK4
037250,001137: 33,3265 54003 TS EBANK
037251,001138: 33,3266 E4,1654 EBANK= LRXCDU
037252,001139:
037253,001140: 33,3266 31655 CA LRYCDU # STORE LRCDUS IN CDUSPOTS
037254,001141: 33,3267 54765 TS CDUSPOT
037255,001142: 33,3270 31656 CA LRZCDU
037256,001143: 33,3271 54767 TS CDUSPOT +2
037257,001144: 33,3272 31654 CA LRXCDU
037258,001145: 33,3273 54771 TS CDUSPOT +4
037259,001146:
037260,001147: 33,3274 04616 TC BANKCALL
037261,001148: 33,3275 47617 CADR QUICTRIG # GET SINES AND COSINES FOR NBSM
037262,001149:
037263,001150: 33,3276 30120 CA FIXLOC
037264,001151: 33,3277 54166 TS PUSHLOC # SET PD TO ZERO
037265,001152:
037266,001153: 33,3300 06042 TC INTPRET
037267,001154: 33,3301 45173 VLOAD* CALL
037268,001155: 33,3302 02231 VZBEAMNB,1 # CONVERT VBEAM FROM NB TO SM
037269,001156: 33,3303 47675 *NBSM*
037270,001157: 33,3304 54325 PDDL SL # STORE IN PD 0-5
037271,001158: 33,3305 03653 VMEAS # LOAD VELOCITY MEASUREMENT
037272,001159: 33,3306 20215 12D
037273,001160: 33,3307 41403 DMP* PUSH # SCALE TO M/CS AT 2(6)
037274,001161: 33,3310 51764 VZSCAL,2 # AND STORE IN PD 6-7
037275,001162: 33,3311 77776 EXIT
037276,001163: 33,3312 44753 CS ONE
037277,001164: 33,3313 54163 TS MODE # CHANGE STORE MODE TO VECTOR
037278,001165:
037279,001166: 33,3314 31657 CA PIPTEM # STORE DELV IN MPAC
037280,001167: # Page 885
037281,001168: 33,3315 22007 ZL
037282,001169: 33,3316 52155 DXCH MPAC
037283,001170:
037284,001171: 33,3317 31660 CA PIPTEM +1
037285,001172: 33,3320 22007 ZL
037286,001173: 33,3321 52160 DXCH MPAC +3
037287,001174:
037288,001175: 33,3322 31661 CA PIPTEM +2
037289,001176: 33,3323 22007 ZL
037290,001177: 33,3324 52162 DXCH MPAC +5
037291,001178:
037292,001179: 33,3325 35016 CA EBANK7
037293,001180: 33,3326 54003 TS EBANK # RESTORE EBANK 7
037294,001181: 33,3327 E7,1515 EBANK= DVCNTR
037295,001182: 33,3327 06042 TC INTPRET
037296,001183: 33,3330 65361 VXSC PDDL
037297,001184: 33,3331 26022 KPIP1 # SCALE DELV TO 2(7) M/CS AND PUSH
037298,001185: 33,3332 02253 LRVTIME # TIME OF DELV AT 2(28) CS
037299,001186: 33,3333 56225 DSU DDV
037300,001187: 33,3334 01234 PIPTIME # TU -- T(N-1)
037301,001188: 33,3335 27106 2SEC(28)
037302,001189: 33,3336 76561 VXSC VSL1 # G(N-1)(TU - T(N-1))
037303,001190: 33,3337 01236 GDT/2 # SCALED AT 2(7) M/CS
037304,001191: 33,3340 53255 VAD VAD # PUSH UP FOR DELV
037305,001192: 33,3341 03527 V # VU = V(N-1) + DELVU + G(N-1) DTO
037306,001193: 33,3342 53352 VSL2 VAD # SCALE TO 2(5) M/CS AND SUBTRACT
037307,001194: 33,3343 03734 DELVS # MOON ROTATION.
037308,001195: 33,3344 51406 PUSH ABVAL # STORE IN PD
037309,001196: 33,3345 43202 SR4 DAD # ABS(VM)/8 + VELBIAS AT 2(6)
037310,001197: 33,3346 03372 VELBIAS
037311,001198: 33,3347 24025 STOVL 20D # STORE IN 20D AND PICK UP VM
037312,001199: 33,3350 44241 DOT BDSU # V(EST) AT 2(6)
037313,001200: 33,3351 00001 0 # DELTAV = VMEAS - V(EST)
037314,001201: 33,3352 51406 PUSH ABS
037315,001202: 33,3353 77425 DSU EXIT # ABS(DV) - (7.5 + ABS(VM)/8))
037316,001203: 33,3354 00025 20D
037317,001204:
037318,001205: 33,3355 25672 INCR LRMCTR
037319,001206: 33,3356 06726 TC BRANCH
037320,001207: 33,3357 13535 TCF VFAIL # DELTA V TOO LARGE. ALARM
037321,001208: 33,3360 13535 TCF VFAIL # DELTA V TOO LARGE. ALARM
037322,001209:
037323,001210: 33,3361 05516 TC DOWNFLAG # TURN OFF VEL FAIL LAMP
037324,001211: 33,3362 00262 ADRES VFLSHFLG
037325,001212:
037326,001213: 33,3363 30107 CA FLGWRD11
037327,001214: 33,3364 74740 MASK VXINHBIT
037328,001215: 33,3365 00006 EXTEND
037329,001216: 33,3366 13375 BZF VUPDAT # IF VX INHIBIT RESET, INCORPORATE DATA.
037330,001217: # Page 886
037331,001218: 33,3367 05516 TC DOWNFLAG
037332,001219: 33,3370 00250 ADRES VXINH # RESET VX INHIBIT
037333,001220:
037334,001221: 33,3371 31651 CA VSELECT
037335,001222: 33,3372 67751 AD NEG2 # IF VSELECT = 2 (X AXIS).
037336,001223: 33,3373 00006 EXTEND # BYPASS UPDATE
037337,001224: 33,3374 13454 BZF ENDVDAT
037338,001225:
037339,001226: 33,3375 40107 VUPDAT CS FLGWRD11
037340,001227: 33,3376 74744 MASK LRINHBIT
037341,001228: 33,3377 10000 CCS A
037342,001229: 33,3400 13454 TCF VALTCHK # UPDATE INHIBITED
037343,001230:
037344,001231: 33,3401 54155 TS MPAC +1
037345,001232:
037346,001233: 33,3402 31471 CA ABVEL # STORE E7 ERASABLES NEEDED IN TEMPS
037347,001234: 33,3403 54130 TS ABVEL*
037348,001235: 33,3404 31651 CA VSELECT
037349,001236: 33,3405 54131 TS VSELECT*
037350,001237: 33,3406 35014 CA EBANK5
037351,001238: 33,3407 54003 TS EBANK # CHANGE EBANKS
037352,001239:
037353,001240: 33,3410 E5,1527 EBANK= LRVF
037354,001241: 33,3410 41527 CS LRVF
037355,001242: 33,3411 60130 AD ABVEL* # IF V < VF, USE WVF
037356,001243: 33,3412 00006 EXTEND
037357,001244: 33,3413 63426 BZMF USEVF
037358,001245:
037359,001246: 33,3414 40130 CS ABVEL*
037360,001247: 33,3415 61526 AD LRVMAX # VMAX - V
037361,001248: 33,3416 00006 EXTEND
037362,001249: 33,3417 63431 BZMF WSTOR -1 # IF V > VMAX, W = 0
037363,001250:
037364,001251: 33,3420 00006 EXTEND
037365,001252: 33,3421 50131 INDEX VSELECT*
037366,001253: 33,3422 71530 MP LRWVZ # WV(VMAX - V)
037367,001254:
037368,001255: 33,3423 00006 EXTEND
037369,001256: 33,3424 11526 DV LRVMAX # WV( 1 - V/VMAX )
037370,001257: 33,3425 13432 TCF WSTOR
037371,001258:
037372,001259: 33,3426 50131 USEVF INDEX VSELECT*
037373,001260: 33,3427 31533 CA LRWVFZ # USE APPROPRIATE CONSTANT WEIGHT
037374,001261: 33,3430 13432 TCF WSTOR
037375,001262:
037376,001263: 33,3431 34755 -1 CA ZERO
037377,001264: 33,3432 54154 WSTOR TS MPAC
037378,001265: 33,3433 44745 CS BIT7 # (=64D)
037379,001266: 33,3434 61010 AD MODREG
037380,001267: 33,3435 00006 EXTEND
037381,001268: # Page 887
037382,001269: 33,3436 63441 BZMF +3 # IF IN P65,P66,P67, USE ANOTHER CONSTANT
037383,001270:
037384,001271: 33,3437 31536 CA LRWVFF
037385,001272: 33,3440 54154 TS MPAC
037386,001273:
037387,001274: 33,3441 35016 +3 CA EBANK7
037388,001275: 33,3442 54003 TS EBANK # CHANGE EBANKS
037389,001276:
037390,001277: 33,3443 E7,1471 EBANK= ABVEL
037391,001278: 33,3443 06042 TC INTPRET
037392,001279: 33,3444 74205 DMP VXSC # W(DELTA V)(VBEAMSM) UP 6-7, 0-5
037393,001280: 33,3445 77655 VAD
037394,001281: 33,3446 03601 V1S # ADD WEIGHTED DELTA V TO VELOCITY
037395,001282: 33,3447 03657 STORE GNUV
037396,001283: 33,3450 77776 EXIT
037397,001284:
037398,001285: 33,3451 03512 TC QUIKFAZ5 # DO NOT RE-UPDATE
037399,001286:
037400,001287: 33,3452 36245 CA SIX
037401,001288: 33,3453 03474 VUPDATED TC GNURVST # STORE NEW VELOCITY VECTOR
037402,001289: 33,3454 33,3454 ENDVDAT = VALTCHK
037403,001290:
037404,001291: 33,3454 03512 VALTCHK TC QUIKFAZ5 # DO NOT REPEAT ABOVE
037405,001292:
037406,001293: 33,3455 34747 CAF READVBIT # TEST READVEL TO SEE IF VELOCITY READING
037407,001294: 33,3456 70107 MASK FLGWRD11 # IS DESIRED.
037408,001295: 33,3457 10000 CCS A
037409,001296: 33,3460 13467 TCF READV # YES -- READ VELOCITY
037410,001297: 33,3461 41471 CS ABVEL # NO -- SEE IF VELOCITY < 6000 FT/SEC
037411,001298: 33,3462 63114 AD 6KFT/SEC
037412,001299: 33,3463 00006 EXTEND
037413,001300: 33,3464 62545 BZMF CONTSERV # V > 6000 FT/SEC. DO NOT READ VELOCITY
037414,001301:
037415,001302: 33,3465 05504 TC UPFLAG # V < 6000 FT/SEC. SET READVEL AND READ.
037416,001303: 33,3466 00257 ADRES READVEL
037417,001304:
037418,001305: 33,3467 37723 READV CAF PRIO32 # SET UP JOB TO READ VELOCITY BEAMS.
037419,001306: 33,3470 05072 TC NOVAC
037420,001307: 33,3471 E7,1654 EBANK= HMEAS
037421,001308: 33,3471 03556 66067 2CADR LRVJOB
037422,001309:
037423,001310: 33,3473 12545 TCF CONTSERV # CONTINUE WITH SERVICER
037424,001311:
037425,001312: 33,3474 54130 GNURVST TS BUF # STORE GNUR (=GNUV) IN R1S OR V1S
037426,001313: 33,3475 00006 EXTEND # A = 0 FOR R, A = 6 FOR V
037427,001314: 33,3476 31657 DCA GNUR
037428,001315: 33,3477 50130 INDEX BUF
037429,001316: 33,3500 53573 DXCH R1S
037430,001317: 33,3501 00006 EXTEND
037431,001318: # Page 888
037432,001319: 33,3502 31661 DCA GNUR +2
037433,001320: 33,3503 50130 INDEX BUF
037434,001321: 33,3504 53575 DXCH R1S +2
037435,001322: 33,3505 00006 EXTEND
037436,001323: 33,3506 31663 DCA GNUR +4
037437,001324: 33,3507 50130 INDEX BUF
037438,001325: 33,3510 53577 DXCH R1S +4
037439,001326: 33,3511 00002 TC Q
037440,001327:
037441,001328: 33,3512 35007 QUIKFAZ5 CA EBANK3
037442,001329: 33,3513 56003 XCH EBANK # SET EBANK 3
037443,001330: 33,3514 52002 DXCH L # Q TO A, A TO L
037444,001331: 33,3515 E3,1446 EBANK= PHSNAME5
037445,001332: 33,3515 55446 TS PHSNAME5
037446,001333: 33,3516 22003 LXCH EBANK
037447,001334: 33,3517 E7,1515 EBANK= DVCNTR
037448,001335: 33,3517 00000 TC A
037449,001336:
037450,001337: 33,3520 41671 HFAIL CS LRRCTR
037451,001338: 33,3521 00006 EXTEND
037452,001339: 33,3522 13532 BZF NORLITE # IF R = 0, DO NOT TURN ON TRK FAIL
037453,001340: 33,3523 61670 AD LRLCTR
037454,001341: 33,3524 77750 MASK NEG3
037455,001342: 33,3525 00006 EXTEND # IF L-R LT 4, DO NOT TURN ON TRK FAIL
037456,001343: 33,3526 13530 BZF +2
037457,001344: 33,3527 13532 TCF NORLITE
037458,001345:
037459,001346: 33,3530 05504 TC UPFLAG # AND SET BIT TO TURN ON TRACKER FAIL LITE
037460,001347: 33,3531 00263 ADRES HFLSHFLG
037461,001348:
037462,001349: 33,3532 31670 NORLITE CA LRLCTR
037463,001350: 33,3533 55671 TS LRRCTR # SET R = L
037464,001351:
037465,001352: 33,3534 13250 TCF VMEASCHK
037466,001353:
037467,001354: 33,3535 41673 VFAIL CS LRSCTR # DELTA Q LARGE
037468,001355: 33,3536 00006 EXTEND # IF S = 0, DO NOT TURN ON TRACKER FAIL
037469,001356: 33,3537 13547 BZF NOLITE
037470,001357: 33,3540 61672 AD LRMCTR # M-S
037471,001358: 33,3541 77750 MASK NEG3 # TEST FOR M-S > 3
037472,001359: 33,3542 00006 EXTEND # IF M-S > 3, THEN TWO OR MORE OF THE
037473,001360: 33,3543 13545 BZF +2 # LAST FOUR V READINGS WERE BAD,
037474,001361: 33,3544 13547 TCF NOLITE # SO TURN ON VELOCITY FAIL LIGHT
037475,001362:
037476,001363: 33,3545 05504 TC UPFLAG # AND SET BIT TO TURN ON TRACKER FAIL LITE
037477,001364: 33,3546 00262 ADRES VFLSHFLG
037478,001365:
037479,001366: # Page 889
037480,001367: 33,3547 31672 NOLITE CA LRMCTR # SET S = M
037481,001368: 33,3550 55673 TS LRSCTR
037482,001369:
037483,001370: 33,3551 11651 CCS VSELECT # TEST FOR Z COMPONENT
037484,001371: 33,3552 13454 TCF ENDVDAT # NOT Z, DO NOT SET VX INHIBIT
037485,001372:
037486,001373: 33,3553 05504 TC UPFLAG # Z COMPONENT - SET FLAG TO SKIP X
037487,001374: 33,3554 00250 ADRES VXINH # COMPONENT, AS ERROR MAY BE DUE TO CROSS
037488,001375: 33,3555 13454 TCF ENDVDAT # LOBE LOCK UP NOT DETECTED ON X AXIS.
037489,001376:
037490,001377: # Page 890
037491,001378: # ********************************************************************************
037492,001379: # LRVJOB IS SET WHEN THE LEM IS BELOW 15000 FT DURING THE LANDING PHASE
037493,001380: # THIS JOB INITIALIZES THE LANDING RADAR READ ROUTINE FOR 5 VELOCITY
037494,001381: # SAMPLES AND GOES TO SLEEP WHILE THE SAMPLING IS DONE -- ABOUT 500 MS.
037495,001382: # WITH A GOODEND RETURN THE DATA IS STORED IN VMEAS AND BIT7 OF LRSTAT
037496,001383: # IS SET. THE GIMBAL ANGLES ARE READ ABOUT MIDWAY IN THE SAMPLINGS.
037497,001384:
037498,001385: 33,3556 4361 170MS EQUALS ND1
037499,001386:
037500,001387: 33,3556 34361 LRVJOB CA 170MS # SET TASK TO READ CDUS + PIPAS
037501,001388: 33,3557 05203 TC WAITLIST
037502,001389: 33,3560 E4,1652 EBANK= LRVTIME
037503,001390: 33,3560 03632 70064 2CADR RDGIMS
037504,001391:
037505,001392: 33,3562 11651 CCS VSELECT # SEQUENCE LR VEL BEAM SELECTOR
037506,001393: 33,3563 13565 TCF +2
037507,001394: 33,3564 34752 CAF TWO # IF ZERO, RESET TO TWO
037508,001395: 33,3565 60000 DOUBLE # 2XVSELECT USED FOR VBEAM INDEX IN LRVEL
037509,001396: 33,3566 04616 TC BANKCALL # GO INITIALIZE LR VEL READ ROUTINE
037510,001397: 33,3567 53116 CADR LRVEL
037511,001398: 33,3570 04616 TC BANKCALL # PUT LRVJOB TO SLEEP ABOUT 500 MS
037512,001399: 33,3571 17705 CADR RADSTALL
037513,001400: 33,3572 13625 TCF VBAD
037514,001401: 33,3573 11675 CCS STILBADV # IS DATA GOOD JUST PRESENT?
037515,001402: 33,3574 13626 TCF VSTILBAD # JUST GOOD -- MUST WAIT 4 SECONDS.
037516,001403:
037517,001404: 33,3575 00004 INHINT
037518,001405: 33,3576 00006 EXTEND # GOOD RETURN -- STOW WAY VMEAS
037519,001406: 33,3577 31101 DCA SAMPLSUM
037520,001407: 33,3600 53653 DXCH VMEAS
037521,001408: 33,3601 34741 CA EBANK4 # FOR DOWNLINK
037522,001409: 33,3602 54003 TS EBANK
037523,001410: 33,3603 E4,1652 EBANK= LRVTIME
037524,001411:
037525,001412: 33,3603 00006 EXTEND
037526,001413: 33,3604 31653 DCA LRVTIME
037527,001414: 33,3605 53740 DXCH LRVTIMDL
037528,001415: 33,3606 00006 EXTEND
037529,001416: 33,3607 31655 DCA LRXCDU
037530,001417: 33,3610 53735 DXCH LRXCDUDL
037531,001418: 33,3611 31656 CA LRZCDU
037532,001419: 33,3612 55736 TS LRZCDUDL
037533,001420: 33,3613 35016 CA EBANK7
037534,001421: 33,3614 54003 TS EBANK
037535,001422: 33,3615 E7,1651 EBANK= VSELECT
037536,001423:
037537,001424: 33,3615 40107 CS FLGWRD11 # SET BIT TO INDICATE VELOCITY
037538,001425: 33,3616 74745 MASK VELDABIT # MEASUREMENT MADE
037539,001426: # Page 891
037540,001427: 33,3617 26107 ADS FLGWRD11
037541,001428: 33,3620 11651 ENDLRV CCS VSELECT # UPDATE VSELECT
037542,001429: 33,3621 13623 TCF +2
037543,001430: 33,3622 34752 CA TWO
037544,001431: 33,3623 55651 TS VSELECT
037545,001432: 33,3624 15155 TCF ENDOFJOB
037546,001433:
037547,001434: 33,3625 34752 VBAD CAF TWO # SET STILBAD TO WAIT 4 SECONDS
037548,001435: 33,3626 55675 VSTILBAD TS STILBADV
037549,001436: 33,3627 13620 TCF ENDLRV
037550,001437:
037551,001438: # LRHJOB IS SET BY LRHTASK WHEN LEM IS BELOW 25000 FT. THIS JOB
037552,001439: # INITIALIZES THE LR READ ROUTINE FOR AN ALT MEASUREMENT AND GOES TO
037553,001440: # SLEEP WHILE THE SAMPLING IS DONE -- ABOUT 95 MS. WITH A GOODEND RETURN
037554,001441: # THE ALT DATA IS STORED IN HMEAS AND BIT7 OF LRSTAT IS SET.
037555,001442:
037556,001443: 34,3571 BANK 34
037557,001444: 34,2000 SETLOC R12STUFF
037558,001445: 34,2000 BANK
037559,001446:
037560,001447: 34,3571 COUNT* $$/SERV
037561,001448:
037562,001449: 34,3571 04616 LRHJOB TC BANKCALL # INITIATE LR ALT MEASUREMENT
037563,001450: 34,3572 53102 CADR LRALT
037564,001451: 34,3573 04616 TC BANKCALL # LRHJOB TO SLEEP ABOUT 95MS
037565,001452: 34,3574 17705 CADR RADSTALL
037566,001453: 34,3575 13620 TCF HBAD
037567,001454: 34,3576 11674 CCS STILBADH # IS DATA GOOD JUST PRESENT?
037568,001455: 34,3577 13630 TCF HSTILBAD # JUST GOOD -- MUST WAIT 4 SECONDS.
037569,001456:
037570,001457: 34,3600 00004 INHINT
037571,001458: 34,3601 00006 EXTEND
037572,001459: 34,3602 31101 DCA SAMPLSUM # GOOD RETURN -- STORE AWAY LRH DATA
037573,001460: 34,3603 53655 DXCH HMEAS # LRH DATA 1.079 FT/BIT
037574,001461: 34,3604 00006 EXTEND # FOR DOWNLINK
037575,001462: 34,3605 31561 DCA PIPTIME1
037576,001463: 34,3606 53755 DXCH MKTIME
037577,001464:
037578,001465: 34,3607 00006 EXTEND
037579,001466: 34,3610 31156 DCA CDUTEMPY # CDUY,Z = AIG,AMG
037580,001467: 34,3611 53460 DXCH AIG
037581,001468:
037582,001469: 34,3612 31154 CA CDUTEMPX # CDUX = AOG
037583,001470: 34,3613 55461 TS AOG
037584,001471:
037585,001472: 34,3614 40107 CS FLGWRD11 # SET BIT TO INDICATE RANGE
037586,001473: 34,3615 74750 MASK RNGEDBIT # MEASUREMENT MADE.
037587,001474: 34,3616 26107 ADS FLGWRD11
037588,001475: 34,3617 05155 ENDLRH TC ENDOFJOB # TERMATE LRHJOB
037589,001476:
037590,001477: # Page 892
037591,001478: 34,3620 30101 HBAD CA FLAGWRD5
037592,001479: 34,3621 74742 MASK RNGSCBIT # IS BAD RETURN DUE TO SCALE CHANGE?
037593,001480: 34,3622 00006 EXTEND
037594,001481: 34,3623 13627 BZF HSTILBAD -1 # NO: RESET HSTILBAD
037595,001482: 34,3624 05516 TC DOWNFLAG # YES: RESET SCALE CHANGE BIT AND IGNORE
037596,001483: 34,3625 00120 ADRES RNGSCFLG
037597,001484: 34,3626 05155 TC ENDOFJOB
037598,001485:
037599,001486: 34,3627 34752 CAF TWO # SET STILBAD TO WAIT 4 SECONDS
037600,001487: 34,3630 55674 HSTILBAD TS STILBADH
037601,001488: 34,3631 05155 TC ENDOFJOB
037602,001489:
037603,001490: 34,3632 BANK 34
037604,001491: 34,2000 SETLOC SERV4
037605,001492: 34,2000 BANK
037606,001493:
037607,001494: 34,3632 COUNT* $$/SERV
037608,001495:
037609,001496: # RDGIMS IS A TASK SET UP BY LRVJOB TO PICK UP THE IMU CDUS AND TIME
037610,001497: # AT ABOUT THE MIDPOINT OF THE LR VEL READ ROUTINE WHEN 5 VEL SAMPLES
037611,001498: # ARE SPECIFIED.
037612,001499:
037613,001500: 34,3632 E4,1652 EBANK= LRVTIME
037614,001501: 34,3632 00006 RDGIMS EXTEND
037615,001502: 34,3633 30025 DCA TIME2 # PICK UP TIME2, TIME1
037616,001503: 34,3634 53653 DXCH LRVTIME # AND SAVE IN LRVTIME
037617,001504:
037618,001505: 34,3635 00006 EXTEND
037619,001506: 34,3636 30033 DCA CDUX # PICK UP CDUX AND CDUY
037620,001507: 34,3637 53655 DXCH LRXCDU # AND SAVE IN LRXCDU AND LRYCDU
037621,001508:
037622,001509: 34,3640 30034 CA CDUZ
037623,001510: 34,3641 55656 TS LRZCDU # SAVE CDUZ IN LRXCDU
037624,001511:
037625,001512: 34,3642 30037 CA PIPAX
037626,001513: 34,3643 55657 TS PIPTEM # SAVE PIPAX IN PIPTEM
037627,001514:
037628,001515: 34,3644 00006 EXTEND
037629,001516: 34,3645 30041 DCA PIPAY # PICK UP PIPAY AND PIPAZ
037630,001517: 34,3646 53661 DXCH PIPTEM +1 # AND SAVE IN PIPTEM +1 AND PIPTEM +2
037631,001518: 34,3647 05261 TC TASKOVER
037632,001519:
037633,001520: 33,3630 BANK 33
037634,001521: 33,2000 SETLOC SERVICES
037635,001522: 33,2000 BANK
037636,001523:
037637,001524: 33,3630 COUNT* $$/SERV
037638,001525:
037639,001526: 33,3630 E7,1515 EBANK= DVCNTR
037640,001527: # Page 893
037641,001528: # HIGATJOB IS SET APPROXIMATELY 6 SECONDS PRIOR TO HIGH GATE DURING
037642,001529: # THE DESCENT BURN PHASE OF LUNAR LANDING. THIS JOB INITIATES THE
037643,001530: # LANDING RADAR REPOSITIONING ROUTINE AND GOES TO SLEEP UNTIL THE
037644,001531: # LR ANTENNA MOVES FROM POSITION 1 TO POSITION 2. IF THE LR ANTENNA
037645,001532: # ACHIEVES POSITION 2 WITHIN 22 SECONDS THE ALTITUDE AND VELOCITY
037646,001533: # BEAM VECTORS ARE RECOMPUTED TO REFLECT THE NEW ORIENTATION WITH
037647,001534: # RESPECT TO THE NB. BIT10 OF LRSTAT IS CLEARED TO ALLOW LR
037648,001535: # MEASUREMENTS AND THE JOB TERMINATES.
037649,001536:
037650,001537: 33,3630 00004 REREPOS INHINT
037651,001538: 33,3631 40107 CS FLGWRD11
037652,001539: 33,3632 75015 MASK PRIO3
037653,001540: 33,3633 26107 ADS FLGWRD11
037654,001541:
037655,001542: 33,3634 04616 HIGATJOB TC BANKCALL # START LRPOS2 JOB
037656,001543: 33,3635 53454 CADR LRPOS2
037657,001544: 33,3636 04616 TC BANKCALL # PUT HIGATJOB TO SLEEP UNTIL JOB IS DONE
037658,001545: 33,3637 17705 CADR RADSTALL
037659,001546: 33,3640 13653 TCF POSALARM # BAD END ALARM
037660,001547:
037661,001548: 33,3641 37714 POSGOOD CA PRIO23 # REDUCE PRIORITY FOR INTERPRETIVE COMPS.
037662,001549: 33,3642 05146 TC PRIOCHNG
037663,001550:
037664,001551: 33,3643 03717 TC SETPOS2 # LR IN POS2 -- SET UP TRANSFORMATIONS
037665,001552:
037666,001553: 33,3644 05504 TC UPFLAG
037667,001554: 33,3645 00256 ADRES LPOS2FLG
037668,001555: 33,3646 05516 ENDPOS TC DOWNFLAG
037669,001556: 33,3647 00252 ADRES NOLRREAD # RESET NOLRREAD FLAG TO ENABLE LR READING
037670,001557: 33,3650 05353 LRRESTRT TC PHASCHNG
037671,001558:
037672,001559: 33,3651 00001 OCT 1
037673,001560: 33,3652 05155 TC ENDOFJOB
037674,001561:
037675,001562: 33,3653 33757 POSALARM CA OCT523
037676,001563: 33,3654 04616 TC BANKCALL
037677,001564: 33,3655 21563 CADR PRIOLARM # FLASH ALARM CODE
037678,001565: 33,3656 13650 TCF LRRESTRT # V34 -- TERMINATE R12 (NOLRRBIT SET)
037679,001566: 33,3657 13662 TCF P1CHK # PROCEED
037680,001567: 33,3660 13670 TCF P2CHK # V32E
037681,001568: 33,3661 05155 TC ENDOFJOB
037682,001569:
037683,001570: 33,3662 05504 P1CHK TC UPFLAG
037684,001571: 33,3663 00261 ADRES NO511FLG
037685,001572: 33,3664 34746 CA BIT6
037686,001573: 33,3665 03674 TC POSTST
037687,001574: 33,3666 03646 TC ENDPOS
037688,001575: 33,3667 13641 TCF POSGOOD # NOT POS1 -- CHANGE TO POS2
037689,001576:
037690,001577: 33,3670 34745 P2CHK CA BIT7
037691,001578: # Page 894
037692,001579: 33,3671 03674 TC POSTST
037693,001580: 33,3672 13641 TCF POSGOOD
037694,001581: 33,3673 13653 TCF POSALARM
037695,001582: 33,3674 00006 POSTST EXTEND
037696,001583: 33,3675 02033 RAND CHAN33
037697,001584: 33,3676 00006 EXTEND
037698,001585: 33,3677 16745 BZF TCQ
037699,001586: 33,3700 16742 TCF Q+1
037700,001587: 33,3701 04645 SETPOS1 TC MAKECADR # MUST BE CALLED BY BANKCALL
037701,001588: 33,3702 55656 TS LRADRET1 # SAVE RETURN CADR. SINCE BUP2 CLOBBERED
037702,001589:
037703,001590: 33,3703 34752 CAF TWO
037704,001591: 33,3704 55674 TS STILBADH # INITIALIZE STILBAD
037705,001592: 33,3705 55675 TS STILBADV # INITIALIZE STILBAD
037706,001593:
037707,001594: 33,3706 34755 CA ZERO # INDEX FOR LRALPHA, LRBETA IN POS 1.
037708,001595: 33,3707 55670 TS LRLCTR # SET L,M,R, ANS S TO ZERO
037709,001596: 33,3710 55672 TS LRMCTR
037710,001597: 33,3711 55671 TS LRRCTR
037711,001598: 33,3712 55673 TS LRSCTR
037712,001599: 33,3713 55651 TS VSELECT # INITIALIZE VSELECT
037713,001600:
037714,001601: 33,3714 03720 TC SETPOS # CONTINUE WITH COMPUTATIONS.
037715,001602:
037716,001603: 33,3715 31656 CA LRADRET1
037717,001604: 33,3716 04640 TC BANKJUMP # RETURN TO CALLER
037718,001605:
037719,001606: 33,3717 34752 SETPOS2 CA TWO # INDEX FOR POS2
037720,001607: 33,3720 56002 SETPOS XCH Q # SAVE INDEX IN Q
037721,001608: 33,3721 55650 TS LRADRET # SAVE RETURN
037722,001609:
037723,001610: 33,3722 35014 CA EBANK5
037724,001611: 33,3723 54003 TS EBANK
037725,001612: 33,3724 E5,1522 EBANK= LRALPHA
037726,001613:
037727,001614: 33,3724 00006 EXTEND
037728,001615: 33,3725 50002 INDEX Q
037729,001616: 33,3726 31523 DCA LRALPHA # LRALPHA IN A, LRBETA IN L
037730,001617: 33,3727 54771 TS CDUSPOT +4 # ROTATION ABOUT X
037731,001618: 33,3730 22765 LXCH CDUSPOT # ROTATION ABOUT Y
037732,001619: 33,3731 34755 CA ZERO
037733,001620: 33,3732 54767 TS CDUSPOT +2 # ZERO ROTATION ABOUT Z.
037734,001621:
037735,001622: 33,3733 35016 CA EBANK7
037736,001623: 33,3734 54003 TS EBANK
037737,001624: 33,3735 E7,1650 EBANK= LRADRET
037738,001625:
037739,001626: 33,3735 06042 TC INTPRET
037740,001627: 33,3736 45175 VLOAD CALL
037741,001628: # Page 895
037742,001629: 33,3737 06520 UNITY # CONVERT UNITY(ANTENNA) TO NB
037743,001630: 33,3740 47653 TRG*SMNB
037744,001631: 33,3741 26237 STOVL VYBEAMNB
037745,001632: 33,3742 06522 UNITX # CONVERT UNITX(ANTENNA) TO NB
037746,001633: 33,3743 77624 CALL
037747,001634: 33,3744 47673 *SMNB*
037748,001635: 33,3745 02245 STORE VXBEAMNB
037749,001636: 33,3746 76435 VXV VSL1
037750,001637: 33,3747 02237 VYBEAMNB
037751,001638: 33,3750 26231 STOVL VZBEAMNB # Z = X * Y
037752,001639: 33,3751 26003 HBEAMANT
037753,001640: 33,3752 77624 CALL
037754,001641: 33,3753 47673 *SMNB* # CONVERT TO NB
037755,001642: 33,3754 02273 STORE HBEAMNB
037756,001643: 33,3755 77776 EXIT
037757,001644:
037758,001645: 33,3756 01650 TC LRADRET
037759,001646:
037760,001647: 33,3757 00523 OCT523 OCT 00523
End of include-file SERVICER.agc. Parent file is MAIN.agc