Source Code

037213,000001: 037214,000002: 037215,000003: 037216,000004: 037217,000005: 037218,000006: 037219,000007: 037220,000008: 037221,000009: 037222,000010: 037223,000011: 037224,000012: 037225,000013: 037226,000014: 037227,000015: 037228,000016: 037229,000017: 037230,000018: 037231,000019: 037232,000020: 037233,000021: 037234,000022: 037235,000023: 037236,000024: 037237,000025: 037238,000026: 037239,000027: 037240,000028: 037241,000029: 037242,000030: 037243,000031: 037244,000032: 37,3410 037245,000033: 37,2000 037246,000034: 37,2000 037247,000035: 037248,000036: 37,3410 E7,1515 037249,000037: 037250,000038: 037251,000039: 037252,000040: 37,3410 037253,000041: < 037475,000263: 33,2315 037476,000264: 33,2316 037477,000265: 33,2317 037478,000266: 037479,000267: 33,2320 037480,000268: 33,2321 037481,000269: 33,2322 037482,000270: 037656,000444: 037657,000445: 037658,000446: 23,2461 037659,000447: 23,2000 037660,000448: 23,2000 037661,000449: 037662,000450: 23,2461 037663,000451: 037664,000452: < 038114,000902: < 038116,000904: < 038120,000908: 038301,001089: 038302,001090: < 038556,001344: 33,3467 038557,001345: 33,3470 038558,001346: 038559,001347: 33,3471 < 038561,001349: 33,3473 038562,001350: 33,3474 038563,001351: 33,3475 038564,001352: 038565,001353: 33,3476 038566,001354: 038567,001355: 33,3477 038568,001356: 33,3500 038569,001357: 038570,001358: 33,3501 038571,001359: 33,3502 038572,001360: 038573,001361: 33,3503 E7,1471 038574,001362: 33,3503 038575,001363: 33,3504 038576,001364: 33,3505 038577,001365: 33,3506 038578,001366: 33,3507 038579,001367: 33,3510 038580,001368: 038581,001369: 33,3511 038582,001370: 038583,001371: 33,3512 < 038602,001390: 33,3530 038603,001391: 33,3531 E7,1654 038604,001392: 33,3531 038605,001393: 038606,001394: 33,3533 038607,001395: < 038634,001422: 33,3561 038635,001423: 33,3562 038636,001424: 33,3563 038637,001425: 33,3564 038638,001426: 33,3565 038639,001427: 33,3566 038640,001428: 33,3567 038641,001429: 038642,001430: 33,3570 038643,001431: 33,3571 038644,001432: < 038651,001439: 33,3576 038652,001440: 33,3577 038653,001441: 33,3600 038654,001442: 33,3601 038655,001443: 33,3602 038656,001444: 33,3603 038657,001445: 33,3604 038658,001446: 038659,001447: 33,3605 038660,001448: 33,3606 038661,001449: 038662,001450: < 038682,001470: # Copyright: Public domain. # Filename: SERVICER.agc # Purpose: Part of the source code for Luminary, build 099. It # is part of the source code for the Lunar Module's # (LM) Apollo Guidance Computer (AGC), Apollo 11. # Assembler: yaYUL # Reference: pp. 857-897 # Contact: Ron Burkey <info@sandroid.org>, # Fabrizio Bernardini <fabrizio@spacecraft.it> # Website: http://www.ibiblio.org/apollo. # Mod history: 2009-06-01 FB Transcription Batch 4 Assignment. # 2009-06-05 RSB Fixed a couple of typos, plus a goofy relative # label reference from the original source. # The contents of the "Luminary099" files, in general, are transcribed # from scanned documents. # Assemble revision 001 of AGC program Luminary099 by NASA # 2021112-061. July 14, 1969. # Prepared by # Massachussets Institute of Technology # 75 Cambridge Parkway # Cambridge, Massachusetts # under NASA contract NAS 9-4065. # Refer directly to the online document mentioned above for further # information. Please report any errors to info@sandroid.org. # Page 857 BANK 37 SETLOC SERV1 BANK EBANK= DVCNTR # ************* PREREAD ******************* COUNT* $$/SERV 4">037254,000042: 37,3410 34757 PREREAD CAF SEVEN # 5.7 SPOT TO SKIP LASTBIAS AFTER 03531 TC GNUFAZE5 # RESTART. 35031 CAF PRIO21 05072 TC NOVAC EBANK= NBDX 03663 14063 2CADR LASTBIAS # DO LAST GYRO COMPENSATION IN FREE FALL 153">037261,000049: 37,3416 03544 BIBIBIAS TC PIPASR +3 # CLEAR + READ PIPS LAST TIME IN FRE5+F133 # DO NOT DESTROY VALUE OF PIPTIME1 40103 CS FLAGWRD7 74773 MASK SUPER011 # SET V37FLAG AND AVEGFLAG (BITS 5 AND 6 26103 ADS FLAGWRD7 # OF FLAGWRD7) 44735 CS DRFTBIT 70076 MASK FLAGWRD2 # RESET DRIFTFLAG 54076 TS FLAGWRD2 34751 CAF FOUR # INITIALIZE DV MONITOR 55257 TS PIPAGE 33537 CAF ENDJBCAD # POINT OUTROUTE TO END-OF-JOB. 55260 TS OUTROUTE 37710 CAF PRIO22 05105 TC FINDVAC # TO FIRST ENTRY TO AVERAGE G EBANK= DVCNTR 02461 46067 2CADR NORMLIZE 34752 CA TWO # 5.2SPOT FOR REREADAC AND NORMLIZE 158">037284,000072: 37,3436 03525 GOREADAX TC GNUTFAZ5 35000 CA 2SECS # WAIT TWO SECONDS FOR READACCS 05224 TC VARDELAY # Page 858 # ************* READACCS **************** 353">037291,000079: 37,3441 43540 READACCS CS OCT37771 # THIS PIECE OF CODING ATTEMPTS TO 60030 AD TIME5 # SYNCHRONIZE READACCS WITH THE DIGITAL 10000 CCS A # AUTOPILOT SO THAT A PAXIS RUPT WILL 44753 CS ONE # OCCUR APPROXIMATELY 70 MILLISECONDS 13447 TCF +2 # FOLLOWING THE READACCS RUPT. THE 70 MS 34753 CA ONE # OFFSET WAS CHOSEN SO THAT THE PAXIS 26030 +2 ADS TIME5 # RUPT WOULD NOT OCCUR SIMULTANEOUSLY # WITH ANY OF THE 8 SUBSEQUENT R10,R11 # INTERRUPTS -- THUS MINIMIZING THE POSS- # IBILITY OF LOSING DOWNRUPTS. 03541 TC PIPASR # READ THE PIPAS. E45">037304,000092: 37,3451 34756 PIPSDONE CA FIVE 03531 TC GNUFAZE5 5">037306,000094: 37,3453 34753 REDO5.5 CAF ONE 55257 TS PIPAGE 34736 CA PRIO20 05105 TC FINDVAC EBANK= DVCNTR 02206 66067 2CADR SERVICER # SET UP SERVICER JOB 34743 CA BIT9 00006 EXTEND 05011 WOR DSALMOUT # TURN ON TEST CONNECTOR OUTBIT 30103 CA FLAGWRD7 74747 MASK AVEGFBIT 00006 EXTEND 13517 BZF AVEGOUT # AVEGFLAG DOWN -- SET UP FINAL EXIT 30102 CA FLAGWRD6 74744 MASK MUNFLBIT 00006 EXTEND 13515 BZF MAKEACCS # MUNFLAG CLEAR -- BYPASS LR AND DISP. 10755 CCS PHASE2 13515 TCF MAKEACCS # PHASE 2 ACTIVATED -- AVOID MULTIPLE R10. 34757 CAF SEVEN # SET PIPCTR FOR 4X/SEC RATE. 55056 TS PIPCTR 40025 CS TIME1 # SET TBASE2 .05 SECONDS IN THE PAST. 64756 AD FIVE 64734 AD NEG1/2 64734 AD NEG1/2 57055 XCH TBASE2 # Page 859 34361 CAF DEC17 # 2.21SPOT FOR R10,R11 54001 TS L 40000 COM 52755 DXCH -PHASE2 36007 CAF OCT24 # FIRST R10,R11 IN .200 SECONDS 05203 TC WAITLIST EBANK= UNIT/R/ 02006 42067 2CADR R10,R11 353">037350,000138: 37,3515 34751 MAKEACCS CA FOUR 13436 TCF GOREADAX # DO PHASE CHANGE AND RECALL READACCS 4">037353,000141: 37,3517 00006 AVEGOUT EXTEND 33536 DCA AVOUTCAD # SET UP FINAL SERVICER EXIT 53253 DXCH AVGEXIT 34751 CA FOUR # SET 5.4 SPOT FOR REREADAC AND SERVICER 03525 TC GNUTFAZ5 # IF REREADAC IS CALLED, IT WILL EXIT 05261 TC TASKOVER # END TASK WITHOUT CALLING READACCS A35">037361,000149: 37,3525 54001 GNUTFAZ5 TS L # SAVE INPUT IN L 40025 CS TIME1 55063 TS TBASE5 # SET TBASE5 13532 TCF +2 535">037366,000154: 37,3531 54001 GNUFAZE5 TS L # SAVE INPUT IN L 40001 CS L # -PHASE IN A, PHASE IN L. 52763 DXCH -PHASE5 # SET -PHASE5,PHASE5 00002 TC Q EBANK= DVCNTR 144">037372,000160: 37,3535 03661 44067 AVOUTCAD 2CADR AVGEND 144">037374,000162: 37,3537 65772 ENDJBCAD CADR SERVEXIT +2 731">037376,000164: 37,3540 37771 OCT37771 OCT 37771 BANK 33 SETLOC SERVICES BANK COUNT* $$/SERV # Page 860 # ************* SERVICER **************** 552">037387,000175: 33,2206 05353 SERVICER TC PHASCHNG # RESTART REREADAC + SERVICER 16035 OCT 16035 20000 OCT 20000 EBANK= DVCNTR 02217 66067 2CADR GETABVAL 37716 CAF PRIO31 # INITIALIZE 1/PIPADT IN CASE RESTART HAS 55075 TS 1/PIPADT # CAUSED LASTBIAS TO BE SKIPPED. 04616 TC BANKCALL # PIPA COMPENSATION CALL 15263 CADR 1/PIPA 14C">037399,000187: 33,2217 06037 GETABVAL TC INTPRET 51575 VLOAD ABVAL 00325 DELV 77776 EXIT 30154 CA MPAC 55246 TS ABDELV # ABDELV = CM/SEC*2(-14). 00006 EXTEND 72020 MP KPIP 53514 DXCH ABDVCONV # ABDVCONV = M/CS * 2(-5). 00006 EXTEND 31245 DCA MASS 53571 DXCH MASS1 # INITIALIZE MASS1 IN CASE WE SKIP MASSMON E">037411,000199: 33,2233 40104 MASSMON CS FLAGWRD8 # ARE WE ON THE SURFACE? 74744 MASK SURFFBIT 00006 EXTEND 12254 BZF MOONSPOT # YES: BYPASS MASS MESS 30106 CA FLGWRD10 # NO: WHICH VEX SHOULD BE USED? 74737 MASK APSFLBIT 10000 CCS A 00006 EXTEND # IF EXTEND IS EXECUTED, APSVEX --> A, 32001 DCA APSVEX # OTHERWISE DPSVEX --> A 54002 TS Q 00006 EXTEND 31514 DCA ABDVCONV 00006 EXTEND 032">037426,000214: 33,2250 10002 OCT10002 DV Q # WHERE APPROPRIATE VEX RESIDES 00006 EXTEND 71244 MP MASS 21571 DAS MASS1 F54">037431,000219: 33,2254 32021 MOONSPOT CA KPIP1 # TP MPAC = ABDELV AT 2(14) CM/SEC 07307 TC SHORTMP # MULTIPLY BY KPIP1 TO GET # Page 861 52155 DXCH MPAC # ABDELV AT 2(7) M/CS 21510 DAS DVTOTAL # UPDATE DVTOTAL FOR DISPLAY 02440 TC TMPTOSPT 04616 TC BANKCALL 47615 CADR QUICTRIG 32414 CAF XNBPIPAD 04616 TC BANKCALL 20037 CADR FLESHPOT 06037 TC INTPRET 547">037446,000234: 33,2267 45014 AVERAGEG BON CALL 03307 MUNFLAG 67032 RVBOTH 66776 CALCRVG 77776 EXIT >037451,000239: 33,2274 03552 GOSERV TC QUIKFAZ5 34C">037453,000241: 33,2275 02423 COPYCYCL TC COPYCYC # CA ZERO # A IS ZERO ON RETURN FROM COPYCYC 55160 TS PIPATMPX 55161 TS PIPATMPY 55162 TS PIPATMPZ 44741 CS STEERBIT # CLEAR STEERSW PRIOR TO DVMON. 70076 MASK FLAGWRD2 54076 TS FLAGWRD2 34745 CAF IDLEFBIT # IS THE IDLE FLAG SET? 70103 MASK FLAGWRD7 10000 CCS A 12342 TCF NODVMON1 # IDLEFLAG = 1, HENCE SET AUXFLAG TO 0. 40102 CS FLAGWRD6 74752 MASK AUXFLBIT 10000 CCS A 12346 TCF NODVMON2 # AUXFLAG = 0, HENCE SET AUXFLAG TO 1. /a>037474,000262: 33,2314 41251 DVMON CS DVTHRUSH 61246 AD ABDELV 00006 EXTEND 62352 BZMF LOTHRUST 40076 CS FLAGWRD2 # SET STEERSW. 74741 MASK STEERBIT 26076 ADS FLAGWRD2 554">037483,000271: 33,2323 34753 DVCNTSET CAF ONE # ALLOW TWO PASSES MAXIMUM NOW THAT # Page 862 55515 TS DVCNTR # THRUST HAS BEEN DETECTED. 30106 CA FLGWRD10 # BRANCH IF APSFLAG IS SET. 74737 MASK APSFLBIT 10000 CCS A 12375 TCF USEJETS 34743 CA BIT9 # CHECK GIMBAL FAIL BIT 00006 EXTEND 02032 RAND CHAN32 00006 EXTEND 12375 BZF USEJETS >037498,000286: 33,2336 44736 USEGTS CS USEQRJTS 70111 MASK DAPBOOLS 54111 TS DAPBOOLS 12400 TCF SERVOUT E31">037503,000291: 33,2342 44752 NODVMON1 CS AUXFLBIT # SET AUXFLAG TO 0. 70102 MASK FLAGWRD6 54102 TS FLAGWRD6 12375 TCF USEJETS E32">037507,000295: 33,2346 40102 NODVMON2 CS FLAGWRD6 # SET AUXFLAG TO 1. 74752 MASK AUXFLBIT 26102 ADS FLAGWRD6 12375 TCF USEJETS 354">037512,000300: 33,2352 03552 LOTHRUST TC QUIKFAZ5 11515 CCS DVCNTR 12366 TCF DECCNTR 10761 CCS PHASE4 # COMFAIL JOB ACTIVE? 12400 TCF SERVOUT # YES: WON'T NEED ANOTHER. 05353 TC PHASCHNG # 4.37SPOT FOR COMFAIL. 00374 OCT 00374 37713 CAF PRIO25 05072 TC NOVAC EBANK= WHICH 02571 74067 2CADR COMFAIL 12400 TCF SERVOUT 2">037529,000317: 33,2366 55570 DECCNTR TS DVCNTR1 03552 TC QUIKFAZ5 31570 CA DVCNTR1 55515 TS DVCNTR 00004 INHINT 04674 TC IBNKCALL # IF THRUST IS LOW, NO STEERING IS DONE # Page 863 40165 CADR STOPRATE # AND THE DESIRED RATES ARE SET TO ZERO. 3">037537,000325: 33,2375 40111 USEJETS CS DAPBOOLS 74736 MASK USEQRJTS 26111 ADS DAPBOOLS 4">037540,000328: 33,2400 00003 SERVOUT RELINT 04616 TC BANKCALL 40457 CADR 1/ACCS 30167 CA PRIORITY 75004 MASK LOW9 54166 TS PUSHLOC 22007 ZL 52121 DXCH FIXLOC # FIXLOC AND DVFIND 03552 TC QUIKFAZ5 00006 EXTEND # EXIT TO SELECTED ROUTINE WHETHER THERE 31253 DCA AVGEXIT # IS THRUST OR NOT. THE STATE OF STEERSW 52006 DXCH Z # WILL CONVEY THIS INFORMATION. 144">037555,000343: 33,2414 02145 XNBPIPAD ECADR XNBPIP BANK 32 SETLOC SERV2 BANK COUNT* $$/SERV >037562,000350: 22,3661 31235 AVGEND CA PIPTIME +1 # FINAL AVERAGE G EXIT 55075 TS 1/PIPADT # SET UP FREE FALL GYRO COMPENSATION. 05504 TC UPFLAG # SET DRIFT FLAG. 00036 ADRES DRIFTFLG 04616 TC BANKCALL 17310 CADR PIPFREE 44743 CS BIT9 00006 EXTEND 03011 WAND DSALMOUT 05327 TC 2PHSCHNG 00005 OCT 5 # GROUP 5 OFF 05022 OCT 05022 # GROUP 2 ON 20000 OCT 20000 06037 TC INTPRET 43014 SET CLEAR 01464 NOR29FLG # SHUT OFF R29 WHEN SERVICER ENDS. 03664 SWANDISP # SHUT OFF R10 WHEN SERVICER ENDS. 45014 CLEAR CALL # RESET MUNFLAG. 03267 MUNFLAG # Page 864 27467 AVETOMID 77414 CLEAR EXIT 03671 V37FLAG E">037590,000378: 22,3707 31260 AVERTRN CA OUTROUTE # RETURN TO DESIRED POINT. 04640 TC BANKJUMP 645">037593,000381: 22,3711 22,3707 OUTGOAVE = AVERTRN 1">037594,000382: 22,3711 E7,1570 DVCNTR1 = MASS1 # Page 865 SETLOC SERV3 BANK COUNT* $$/SERV C45">037601,000389: 27,3321 00006 SERVIDLE EXTEND # DISCONNECT SERVICER FROM ALL GUIDANCE 33357 DCA SVEXTADR 53253 DXCH AVGEXIT 40103 CS FLAGWRD7 # DISCONNECT THE DELTA-V MONITOR 74745 MASK IDLEFBIT 26103 ADS FLAGWRD7 34735 CAF LRBYBIT # TERMINATE R12 IS RUNNING. 54107 TS FLGWRD11 00006 EXTEND 34755 DCA NEG0 52753 DXCH -PHASE1 30102 CA FLAGWRD6 # DO NOT TURN OFF PHASE 2 IF MUNFLAG SET. 74744 MASK MUNFLBIT 10000 CCS A 13343 TCF +4 00006 EXTEND 34755 DCA NEG0 52755 DXCH -PHASE2 00006 +4 EXTEND 34755 DCA NEG0 52757 DXCH -PHASE3 00006 EXTEND 34755 DCA NEG0 52765 DXCH -PHASE6 34764 CAF OCT33 # 4.33SPOT FOR GOP00FIX 54001 TS L 40000 COM 52761 DXCH -PHASE4 15644 TCF WHIMPER # PERFORM A SOFTWARE RESTART AND PROCEED # TO GOTOP00H WHILE SERVICER CONTINUES TO # RUN, ALBEIT IN A GROUND STATE WHERE # ONLY STATE-VECTOR DEPENDENT FUNCTIONS # ARE MAINTAINED. EBANK= DVCNTR # Page 866 452">037646,000434: 27,3356 03770 64067 SVEXTADR 2CADR SERVEXIT BANK 32 SETLOC SERV BANK COUNT* $$/SERV 954">037653,000441: 32,3770 05353 SERVEXIT TC PHASCHNG 00035 OCT 00035 32,3772 15155 +2 TCF ENDOFJOB BANK 23 SETLOC NORMLIZ BANK COUNT* $$/SERV # Page 867 A45">037665,000453: 23,2461 06037 NORMLIZE TC INTPRET 43175 VLOAD BOFF 03545 RN1 03347 MUNFLAG 66415 NORMLIZ1 64252 VSL6 MXV 01734 REFSMMAT 37521 STCALL R 67130 MUNGRAV 76575 VLOAD VSL1 03553 VN1 77721 MXV 01734 REFSMMAT 27527 STOVL V 01726 V(CSM) 53435 VXV UNIT 01720 R(CSM) 03720 STORE UHYP 4">037683,000471: 23,2503 77776 ASCSPOT EXIT 00006 EXTEND # MAKE SURE GROUP 2 IS OFF 34755 DCA NEG0 52755 DXCH -PHASE2 04635 TC POSTJUMP 66420 CADR NORMLIZ2 BANK 33 SETLOC SERVICES BANK COUNT* $$/SERV A31">037696,000484: 33,2415 77624 NORMLIZ1 CALL 66730 CALCGRAV 77776 EXIT A32">037700,000488: 33,2420 32437 NORMLIZ2 CA EIGHTEEN 02424 TC COPYCYC +1 # DO NOT COPY MASS IN NORMLIZE 05155 TC ENDOFJOB 3">037704,000492: 33,2423 36007 COPYCYC CA OCT24 # DEC 20 00004 +1 INHINT 77747 +2 MASK NEG1 # REDUCE BY 1 IF ODD 54061 TS ITEMP1 00006 EXTEND 50061 INDEX ITEMP1 31545 DCA RN1 50061 INDEX ITEMP1 # Page 868 53221 DXCH RN 10061 CCS ITEMP1 12425 TCF COPYCYC +2 00002 TC Q # RETURN UNDER INHINT 54E">037718,000506: 33,2437 00022 EIGHTEEN DEC 18 B-14 # Page 869 # ************* PIPA READER ***************** # MOD NO. 00 BY D. LICKLY, DEC. 9 1966 # FUNCTIONAL DESCRIPTION # SUBROUTINE TO READ PIPA COUNTERS, TRYING TO BE VERY CAREFUL SO THAT WILL BE RESTARTABLE. # PIPA READINGS ARE STORED IN THE VECTOR DELV. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS THE PIPA READING, # RESTARTS BEGIN AT REREADAC. # AT THE END OF THE PIPA READER THE CDUS ARE READ AND STORED AS A # VECTOR IN CDUTEMP. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS # THE CDU READING IN 25 COMP IN THE ORDER CDUX,Y,Z. THE THRUST # VECTOR ESTIMATOR IN FINDCDUD REQUIRES THE CDUS BE READ AT PIPTIME. # CALLING SEQUENCE AND EXIT # CALL VIA TC, ISWCALL, ETC. # EXIT IS VIA Q. # INPUT # INPUT IS THROUGH THE COUNTERS PIPAX, PIPAY, PIPAZ, AND TIME2. # OUTPUT # HIGH ORDER COMPONENTS OF THE VECTOR DELV CONTAIN THE PIPA READINGS. # PIPTIME CONTAINS TIME OF PIPA READING. # DEBRIS (ERASABLE LOCATIONS DESTROYED BY PROGRAM) # TEMX, TEMY, TEMZ, PIPAGE BANK 37 SETLOC SERV1 BANK COUNT* $$/SERV >037754,000542: 37,3541 00006 PIPASR EXTEND # Page 870 30025 DCA TIME2 53561 DXCH PIPTIME1 # CURRENT TIME POSITIVE VALUE 44755 +3 CS ZERO # INITIALIZE THESE AT NEG. ZERO. 55254 TS TEMX 55255 TS TEMY 55256 TS TEMZ 34755 CA ZERO 54330 TS DELVZ 54331 TS DELVZ +1 54326 TS DELVY 54327 TS DELVY +1 54325 TS DELVX +1 55257 TS PIPAGE # SHOW PIPA READING IN PROGRESS >037771,000559: 37,3557 00006 REPIP1 EXTEND 40040 DCS PIPAX # X AND Y PIPS READ 53255 DXCH TEMX 52040 DXCH PIPAX # PIPAS SET TO NEG ZERO AS READ. 54324 TS DELVX 22326 LXCH DELVY >037778,000566: 37,3565 40041 REPIP3 CS PIPAZ # REPEAT PROCESS FOR Z PIP 57256 XCH TEMZ 56041 XCH PIPAZ A">037781,000569: 37,3570 54330 DODELVZ TS DELVZ >037783,000571: 37,3571 00006 REPIP4 EXTEND # COMPUTE GUIDANCE PERIOD 31561 DCA PIPTIME1 53250 DXCH PGUIDE 00006 EXTEND 41235 DCS PIPTIME 21250 DAS PGUIDE 30032 CA CDUX # READ CDUS INTO HIGH ORDER CDUTEMPS 55155 TS CDUTEMPX 30033 CA CDUY 55156 TS CDUTEMPY 30034 CA CDUZ 55157 TS CDUTEMPZ 30324 CA DELVX 55160 TS PIPATMPX 30326 CA DELVY 55161 TS PIPATMPY 30330 CA DELVZ 55162 TS PIPATMPZ 00002 TC Q # Page 871 143">037806,000594: 37,3614 11257 REREADAC CCS PIPAGE 13441 TCF READACCS # PIP READING NOT STARTED. GO TO BEGINNING 33654 CAF DONEADR # SET UP RETURN FROM PIPASR 54002 TS Q 10330 CCS DELVZ 13571 TCF REPIP4 # Z DONE, GO DO CDUS 13625 TCF +3 # Z NOT DONE, CHECK Y. 13571 TCF REPIP4 13571 TCF REPIP4 22007 ZL 10326 CCS DELVY 13632 TCF +3 13641 TCF CHKTEMX # Y NOT DONE, CHECK X. 13632 TCF +1 22041 LXCH PIPAZ # Y DONE, ZERO Z PIP. 11256 CCS TEMZ 41256 CS TEMZ # TEMZ NOT = -0, CONTAINS -PIPAZ VALUE. 13570 TCF DODELVZ 13634 TCF -2 22330 LXCH DELVZ # TEMZ = -0, L HAS ZPIP VALUE. 13571 TCF REPIP4 8">037832,000620: 37,3641 11254 CHKTEMX CCS TEMX # HAS THIS CHANGED 41254 CS TEMX # YES 13646 TCF +3 # YES 13642 TCF -2 # YES 13557 TCF REPIP1 # NO 54324 TS DELVX 41255 CS TEMY 54326 TS DELVY 44755 CS ZERO # ZERO X AND Y PIPS 52040 DXCH PIPAX # L STILL ZERO FROM ABOVE 13565 TCF REPIP3 2">037847,000635: 37,3654 03451 DONEADR GENADR PIPSDONE # Page 872 BANK 33 SETLOC SERVICES BANK COUNT* $$/SERV 054">037856,000644: 33,2440 31156 TMPTOSPT CA CDUTEMPY # THIS SUBROUTINE, CALLED BY AN RTB FROM 54766 TS CDUSPOTY # INTERPRETIVE, LOADS THE CDUS CORRESPON- 31157 CA CDUTEMPZ # DING TO PIPTIME INTO THE CDUSPOT VECTOR. 54770 TS CDUSPOTZ 31155 CA CDUTEMPX 54772 TS CDUSPOTX 00002 TC Q # LRHTASK IS A WAITLIST TASK SET BY READACCS DURING THE DESCENT BRAKING # PHASE WHEN THE ALT TO THE LUNAR SURFACE IS LESS THAN 25,000 FT. THIS # TASK CLEARS THE ALTITUDE MEASUREMENT MADE DISCRETE AND INITIATES THE # LANDING RADAR MEASUREMENT JOB (LRHJOB) TO TAKE A ALTITUDE MEASUREMENT # 50 MS PRIOR TO THE NEXT READACCS TASK. BANK 21 SETLOC R10 BANK COUNT* $$/SERV B">037876,000664: 21,2130 40107 LRHTASK CS FLGWRD11 74735 MASK LRBYBIT 00006 EXTEND 12150 BZF GRP2OFF # LR BYPASS SET -- BYPASS ALL LR READING. 34746 CA READLBIT 70107 MASK FLGWRD11 # IS READLR FLAG SET? 00006 EXTEND 12150 BZF GRP2OFF # NO. BYPASS LR READ. 40107 CS FLGWRD11 74742 MASK NOLRRBIT # IS LR READ INHIBITED? 00006 EXTEND 12150 BZF GRP2OFF # YES. BYPASS LR READ. 37720 CA PRIO32 # LR READ OK. SET JOB TO DO IT 05072 TC NOVAC # ABOUT 50 MS. PRIOR TO PIPA READ. EBANK= HMEAS 03716 70067 2CADR LRHJOB 6">037896,000684: 21,2150 00006 GRP2OFF EXTEND 34755 DCA NEG0 52755 DXCH -PHASE2 12021 TCF R10,R11A BANK 33 SETLOC SERVICES BANK # Page 873 COUNT* $$/SERV # HIGATASK IS ENTERED APPROXIMATELY 6 SECS PRIOR TO HIGATE DURING THE # DESCENT PHASE. HIGATASK SETS THE HIGATE FLAG (BIT11) AND THE LR INHIBIT # FLAG (BIT10) IN LRSTAT. THE HIGATJOB IS SET UP TO REPOSITION THE LR # ANTENNA FROM POSITION 1 TO POSITION 2. IF THE REPOSITIONING IS # SUCCESSFUL THE ALT BEAM AND VELOCITY BEAMS ARE TRANSFORMED TO THE NEW # ORIENTATION IN NB COORDINATES AND STORED IN ERASABLE. 34B">037914,000702: 33,2447 00004 HIGATASK INHINT 45015 CS PRIO3 # SET HIGATE AND LR INHIBIT FLAGS 70107 MASK FLGWRD11 65015 AD PRIO3 54107 TS FLGWRD11 37720 CAF PRIO32 05105 TC FINDVAC # SET LR POSITIONING JOB (POS2) EBANK= HMEAS 03670 66067 2CADR HIGATJOB 12540 TCF CONTSERV # CONTINUE SERVICER # Page 874 # MUNRETRN IS THE RETURN LOC FROM SPECIAL AVE G ROUTINE (MUNRVG) 24E">037929,000717: 33,2461 77776 MUNRETRN EXIT 40107 CS FLGWRD11 74735 MASK LRBYBIT 00006 EXTEND 12546 BZF COPYCYC1 # BYPASS LR LOGIC IF BIT15 IS SET. 34746 CA READLBIT # SEE IF ALT < 35000 FT LAST CYCLE 70107 MASK FLGWRD11 00006 EXTEND 12721 BZF 35KCHK # ALT WAS > 35000 FT LAST CYCLE CHK NOW 34743 CAF XORFLBIT # WERE WE BELOW 30000 FT LAST PASS? 70107 MASK FLGWRD11 00006 EXTEND 12710 BZF XORCHK # NO -- TEST THIS PASS >037945,000733: 33,2476 34741 HITEST CAF PSTHIBIT # CHECK FOR HIGATE 70107 MASK FLGWRD11 00006 EXTEND 12515 BZF HIGATCHK # NOT AT HIGATE LAST CYCLE -- CHK THIS CYCLE B">037950,000738: 33,2502 34745 POS2CHK CAF BIT7 # VERIFY LR IN POS2 00006 EXTEND 02033 RAND CHAN33 00006 EXTEND 13155 BZF UPDATCHK # IT IS -- CHECK FOR LR UPDATE 34737 CAF BIT13 00006 EXTEND 02012 RAND CHAN12 00006 EXTEND 12536 BZF LRPOSALM # LR NOT IN POS2 OR REPOSITIONING -- BAD 12540 TCF CONTSERV # LR BEING REPOSITIONED -- CONTINUE SERV 84B">037962,000750: 33,2515 31642 HIGATCHK CA TTF/8 # IS TTF > CRITERION? (TTF IS NEGATIVE) 61427 AD RPCRTIME 00006 EXTEND 62531 BZMF POS1CHK # NO 34741 CA EBANK4 # MUST SWITCH EBANKS 56003 XCH EBANK 54001 TS L # SAVE IN L EBANK= XNBPIP 41545 CS XNBPIP # UXBXP IN GSOP CH5 EBANK= DVCNTR 22003 LXCH EBANK # RESTORE EBANK 61430 AD RPCRTQSW # QSW - UXBXP # Page 875 00006 EXTEND 62447 BZMF HIGATASK # IF UXBXP > QSW, THEN REPOSITION B">037981,000769: 33,2531 34746 POS1CHK CAF BIT6 # HIGATE NOT IN SIGHT -- DO POS1 CHK 00006 EXTEND 02033 RAND 33 00006 EXTEND 13155 BZF UPDATCHK # LR IN POS1 -- CHECK FOR LR UPDATE C4D">037987,000775: 33,2536 05567 LRPOSALM TC ALARM # LR NOT IN PROPER POS-ALARM-BYPASS UPDATE 00511 OCT 511 # AND CONTINUE SERVICER 256">037989,000777: 33,2540 00004 CONTSERV INHINT 43154 CS BITS4-7 70107 MASK FLGWRD11 # CLEAR LR MEASUREMENT MADE DISCRETES. 54107 TS FLGWRD11 04674 TC IBNKCALL # SET LR LITES PROPERLY 53607 CADR R12LITES # Page 876 331">037998,000786: 33,2546 03552 COPYCYC1 TC QUIKFAZ5 >038000,000788: 33,2547 30077 R29? CA FLAGWRD3 75014 MASK NR29&RDR 10000 CCS A # IS NOR29FLG OR READRFLG SET? 12564 TCF R29NODES # YES, SO DON'T DESIGNATE. 30110 CA RADMODES # NO, SO R29 IS CALLED FOR. 72250 MASK OCT10002 # IS THE RR NOT ZEROING ITS CDUS, AND 10000 CCS A # IS THE RENDEZVOUS RADAR IN AUTO MODE? 12564 TCF R29NODES # NO, SO DON'T DESIGNATE. 30110 CA RADMODES 77710 MASK PRIO22 10000 CCS A # IS RR REPOSITIONING OR REMODING? 12570 TCF NOR29NOW # YES: COME BACK IN 2 SECONDS & TRY AGAIN. 12045 TCF R29 553">038017,000805: 33,2564 00004 R29NODES INHINT # R29 NOT ALLOWED THIS CYCLE. 44742 CS DESIGBIT # SHOW THAT DESIGNATION IS OFF. 70110 MASK RADMODES 54110 TS RADMODES F57">038022,000810: 33,2570 06037 NOR29NOW TC INTPRET # INTPRET DOES A RELINT. 51575 VLOAD ABVAL # MPAC = ABVAL( NEW SM. POSITION VECTOR ) 03573 R1S 45206 PUSH DSU # (2) 02333 /LAND/ 03535 STORE HCALC # NEW HCALC*2(24)M. 03775 STORE HCALC1 47075 DMPR RTB 26026 ALTCONV 21612 SGNAGREE 27742 STOVL ALTBITS # ALTITUDE FOR R10 IN BIT UNITS. 03537 UNIT/R/ 53435 VXV UNIT 03720 UHYP 27726 STOVL UHZP # DOWNRANGE HALF-UNIT VECTOR FOR R10. 03573 R1S 60505 VXM VSR4 01734 REFSMMAT 27545 STOVL RN1 # TEMP. REF. POSITION VECTOR*2(29)M. 03601 V1S 76505 VXM VSL1 01734 REFSMMAT 27553 STOVL VN1 # TEMP. REF. VELOCITY VECTOR 2(7) M/CS. 03537 UNIT/R/ 51435 VXV ABVAL # Page 877 03601 V1S 63552 SL1 DSQ 77671 DDV 47075 DMPR RTB 26030 ARCONV1 21612 SGNAGREE 332">038054,000842: 33,2627 77776 COPYCYC2 EXIT # LEAVE ALTITUDE RATE COMPENSATION IN MPAC 00004 INHINT 31536 CA UNIT/R/ # UPDATE RUNIT FOR R10. 55743 TS RUNIT 31540 CA UNIT/R/ +2 55744 TS RUNIT +1 31542 CA UNIT/R/ +4 55745 TS RUNIT +2 30154 CA MPAC # LOAD NEW DALTRATE FOR R10. 55716 TS DALTRATE 00006 EXTEND 31573 DCA R1S 53521 DXCH R 00006 EXTEND 31575 DCA R1S +2 53523 DXCH R +2 00006 EXTEND 31577 DCA R1S +4 53525 DXCH R +4 00006 EXTEND 31601 DCA V1S 53527 DXCH V 00006 EXTEND 31603 DCA V1S +2 53531 DXCH V +2 00006 EXTEND 31605 DCA V1S +4 53533 DXCH V +4 12275 TCF COPYCYCL # COMPLETE THE COPYCYCL. # Page 878 # ALTCHK COMPARES CURRENT ALTITUDE (IN HCALC) WITH A SPECIFIED ALTITUDE FROM A TABLE BEGINNING AT ALTCRIT. # ITS CALLING SEQUENCE IS AS FOLLOWS:- # L CAF N # L+1 TC BANKCALL # L+2 CADR ALTCHK # L+3 RETURN HERE IF HCALC STILL > SPECIFIED CRITERION. C(L) = +0. # L+4 RETURN HERE IF HCALC < OR = SPECIFIED CRITERION. C(A) = C(L) = +0 # ALTCHK MUST BE BANKCALLED EVEN FROM ITS OWN BANK. N IS THE LOCATION, RELATIVE TO THE TAG ALTCRIT, # OF THE BEGINNING OF THE DP CONSTANT TO BE USED AS A CRITERION. >038099,000887: 33,2664 00006 ALTCHK EXTEND 50000 INDEX A 32700 DCA ALTCRIT 52156 DXCH MPAC +1 00006 EXTEND 41535 DCS HCALC 20156 DAS MPAC +1 06727 TC BRANCH +4 34755 CAF ZERO # BETTER THAN A NOOP, PERHAPS 24133 INCR BUF2 14631 TCF SWRETURN 4">038111,000899: 33,2677 33,2677 ALTCRIT = 25KFT /a>038113,000901: 33,2677 00007 16100 25KFT 2DEC 7620 B-24 # (0) /a>038115,000903: 33,2701 00016 34200 50KFT 2DEC 15240 B-24 # (2) >038117,000905: 33,2703 00000 00364 50FT 2DEC 15.24 B-24 # (4) /a>038119,000907: 33,2705 00010 35600 30KFT 2DEC 9144 B-24 # (6) 543">038121,000909: 33,2707 01414 2KFT/SEC DEC 6.096 B-7 # 2000 FT/SEC AT 2(7) M/CS # (A remark was likely to be needed here to explain XORCHK) 4/Jun/09,FB >038126,000914: 33,2710 36242 XORCHK CAF SIX # ARE WE BELOW 30000 FT? 04616 TC BANKCALL 66664 CADR ALTCHK 12476 TCF HITEST # CONTINUE LR UPDATE 05504 TC UPFLAG # YES: INHIBIT X-AXIS OVERRIDE 00311 ADRES XOVINFLG 05504 TC UPFLAG 00253 ADRES XORFLG 12476 TCF HITEST # CONTINUE LR UPDATE >038136,000924: 33,2721 34752 35KCHK CAF TWO # ARE WE BELOW 35000 FT? # Page 879 04616 TC BANKCALL 66664 CADR ALTCHK 12540 TCF CONTSERV 05504 TC UPFLAG 00256 ADRES READLR # SET READLR FLAG TO ENABLE LR READING. 12540 TCF CONTSERV # Page 880 # *************************************************************** 156">038149,000937: 33,2730 41456 CALCGRAV UNIT PUSH # SAVE UNIT/R/ IN PUSHLIST (18) 03537 STORE UNIT/R/ 67340 LXC,1 SLOAD # RTX2 = 0 IF EARTH ORBIT, =2 IF LUNAR. 02777 RTX2 03000 RTX2 50076 DCOMP BMN 66765 CALCGRV1 50375 VLOAD DOT # (12) 06514 UNITZ 03537 UNIT/R/ 41552 SL1 PUSH # (14) 44316 DSQ BDSU 27027 DP1/20 56325 PDDL DDV 26040 RESQ 00043 34D # (RN)SQ 00041 STORE 32D # TEMP FOR (RE/RN)SQ 41205 DMP DMP 26042 20J 65361 VXSC PDDL 03537 UNIT/R/ 41205 DMP DMP 26044 2J 00041 32D 76561 VXSC VSL1 06514 UNITZ 45455 VAD STADR 74256 STORE UNITGOBL 41455 VAD PUSH # MPAC = UNIT GRAVITY VECTOR. (18) 631">038178,000966: 33,2765 60345 CALCGRV1 DLOAD NORM # PERFORM A NORMALIZATION ON RMAGSQ IN 00043 34D # ORDER TO BE ABLE TO SCALE THE MU FOR 00050 X2 # MAXIMUM PRECISION. 53663 BDDV* SLR* 26032 -MUDT,1 56623 0 -21D,2 45561 VXSC STADR 74214 STORE GDT1/2 # SCALED AT 2(+7) M/CS 77616 RVQ 7">038188,000976: 33,2776 61375 CALCRVG VLOAD VXM 00325 DELV 01734 REFSMMAT 76561 VXSC VSL1 26022 KPIP1 03527 STORE DELVREF 41562 VSR1 PUSH 41455 VAD PUSH # (DV-OLDGDT)/2 TO PD SCALED AT 2(+7) M/CS. # Page 881 01237 GDT/2 65255 VAD PDDL 01227 VN 01250 PGUIDE 74261 SL VXSC 20207 6D 44055 VAD STQ 01221 RN 00037 31D 37545 STCALL RN1 # TEMP STORAGE OF RN SCALED 2(+29) M 66730 CALCGRAV 53255 VAD VAD 77655 VAD 01227 VN 37553 STCALL VN1 # TEMP STORAGE OF VN SCALED 2(+7) M/CS 00037 31D >038215,001003: 33,3026 01463 06315 DP1/20 2DEC 0.05 1">038216,001004: 33,3030 00010 00000 SHIFT11 2DEC 1 B-11 # Page 882 # ***************************************************************************** # MUNRVG IS A SPECIAL AVERAGE G INTEGRATION ROUTINE USED BY THRUSTING # PROGRAMS WHICH FUNCTION IN THE VICINITY OF AN ASSUMED SPHERICAL MOON. # THE INPUT AND OUTPUT QUANTITIES ARE REFERENCED TO THE STABLE MEMBER # COORDINATE SYSTEM. >038225,001013: 33,3032 41575 RVBOTH VLOAD PUSH 02317 G(CSM) 65255 VAD PDDL 01726 V(CSM) 01250 PGUIDE 74271 DDV VXSC 27031 SHIFT11 77655 VAD 01720 R(CSM) 37573 STCALL R1S 67130 MUNGRAV 53255 VAD VAD 01726 V(CSM) 77626 STADR 74176 STORE V1S 77776 EXIT 03552 TC QUIKFAZ5 06037 TC INTPRET 77775 VLOAD 03563 GDT1/2 26317 STOVL G(CSM) 03573 R1S 25720 STOVL R(CSM) 03601 V1S 01726 STORE V(CSM) 77776 EXIT 03552 TC QUIKFAZ5 06037 TC INTPRET >038253,001041: 33,3066 74375 MUNRVG VLOAD VXSC 00325 DELV 26024 KPIP2 53206 PUSH VAD # 1ST PUSH: DELV IN UNITS OF 2(8) M/CS 01237 GDT/2 53206 PUSH VAD # 2ND PUSH: (DELV + GDT)/2, UNITS OF 2(7) 03527 V # (12) 56325 PDDL DDV 01250 PGUIDE 27031 SHIFT11 77761 VXSC 77655 VAD 03521 R 37573 STCALL R1S # STORE R SCALED AT 2(+24) M 67130 MUNGRAV # Page 883 53255 VAD VAD 77655 VAD 03527 V 03601 STORE V1S # STORE V SCALED AT 2(+7) M/CS. 77646 ABVAL 27472 STOVL ABVEL # STORE SPEED FOR LR AND DISPLAYS. 03537 UNIT/R/ 72441 DOT SL1 03601 V1S 27474 STOVL HDOTDISP # HDOT = V. UNIT(R)*2(7) M/CS. 03573 R1S 72435 VXV VSL2 02325 WM 17734 STODL DELVS # LUNAR ROTATION CORRECTON TERM*2(5) M/CS. 00045 36D 77625 DSU 02333 /LAND/ 37535 STCALL HCALC # FOR NOW, DISPLAY WHETHER POS OR NEG 66461 MUNRETRN 6">038288,001076: 33,3130 77656 MUNGRAV UNIT # AT 36D HAVE ABVAL(R), AT 34D R.R 17537 STODL UNIT/R/ 00043 34D 55261 SL BDDV 20207 6D 26036 -MUDTMUN 74205 DMP VXSC 27031 SHIFT11 03537 UNIT/R/ 03563 STORE GDT1/2 # 1/2GDT SCALED AT 2(7) M/CS. 77616 RVQ 353">038300,001088: 33,3143 00303 1.95SECS DEC 195 B-14 33,3144 00005 33212 7.5 2DEC .02286 B-6 # 7.5 FT/SEC AT 2(6) M/CS 829">038303,001091: 33,3146 00014 20000 2SEC(18) 2DEC 200 B-18 829">038305,001093: 33,3150 00000 00310 2SEC(28) 2OCT 0000000310 # 2SEC AT 2(28) 829">038307,001095: 33,3152 00000 00620 4SEC(28) 2DEC 400 B-28 7">038309,001097: 33,3154 00110 BITS4-7 OCT 110 # Page 884 84B">038313,001101: 33,3155 34742 UPDATCHK CAF NOLRRBIT # SEE IF LR UPDATE INHIBITED. 70107 MASK FLGWRD11 10000 CCS A 12540 TCF CONTSERV # IT IS -- NO LR UPDATE 34750 CAF RNGEDBIT # NO INHIBIT -- SEE ALT MEAS. THIS CYCLE. 70107 MASK FLGWRD11 00006 EXTEND 13310 BZF VMEASCHK # NO ALT MEAS THIS CYCLE -- CHECK FOR VEL 154">038322,001110: 33,3165 30120 POSUPDAT CA FIXLOC # SET PUSHLIST TO ZERO 54166 TS PUSHLOC 06037 TC INTPRET 61375 VLOAD VXM 02273 HBEAMNB 02146 XNBPIP # HBEAM SM AT 2(2) 72515 PDVL VSL2 # STORE HBEAM IN PD 0-5 03601 V1S # SCALE V AT 2(5) M/CS 50255 VAD DOT 03734 DELVS # V RELATIVE TO SURFACE AT 2(5) M/CS 00001 0D # V ALONG HBEAM AT 2(7) M/CS. 77405 DMP EXIT 01355 RADSKAL # SCALE TO RADAR COUNTS X 5 40110 CS FLGWRD12 # TEST LR ALTITUDE SCALE FACTOR 74743 MASK ALTSCBIT 00006 EXTEND 13210 BZF +3 # BRANCH IF HIGH SCALE 31356 CA SKALSKAL # RESCALE IF LOW SCALE 07307 TC SHORTMP 06037 +3 TC INTPRET 54215 DAD SL # CORRECT HMEAS FOR DOPPLER EFFECT 03655 HMEAS 20210 7D 74205 DMP VXSC # SLANT RANGE AT 2(21), PUSH UP FOR HBEAM 26011 HSCAL # SLANT RANGE VECTOR AT 2(23) M 45241 DOT DSU 03537 UNIT/R/ # ALTITUDE AT 2(24) M 03535 HCALC # DELTA H AT 2(24) M 03665 STORE DELTAH 77776 EXIT 30107 CA FLGWRD11 74741 MASK PSTHIBIT 00006 EXTEND # DO NOT PERFORM DATA REASONABLENESS TEST 13243 BZF NOREASON # UNTIL AFTER HIGATE # Page 885 06037 TC INTPRET 45246 ABS DSU 02521 DELQFIX # ABS(DELTAH) - DQFIX 50 FT NOM 45252 SL3 DSU # SCALE TO 2(21) 03535 HCALC # ABS(DELTAH) - (50 + HCALC/8) AT 2(21) 77776 EXIT 25670 INCR LRLCTR 06723 TC BRANCH 13560 TCF HFAIL # DELTA H TOO LARGE 13560 TCF HFAIL # DELTA H TOO LARGE 05516 TC DOWNFLAG # TURN OFF ALT FAIL LAMP 00263 ADRES HFLSHFLG F4E">038376,001164: 33,3243 40107 NOREASON CS FLGWRD11 74744 MASK LRINHBIT 10000 CCS A 13310 TCF VMEASCHK # UPDATE INHIBITED -- TEST VELOCITY ANYWAY 06037 TC INTPRET # DO POSITION UPDATE 40545 DLOAD SR4 03535 HCALC # RESCALE H TO 2(28)M 77776 EXIT 00006 EXTEND 31665 DCA DELTAH # STORE DELTAH IN MPAC AND 52155 DXCH MPAC # BRING HCALC INTO A,L 07544 TC ALSIGNAG 00006 EXTEND # IF HIGH PART OF HCALC IS NON-ZERO, THEN 13262 BZF +2 # HCALC > HMAX, 13310 TCF VMEASCHK # SO UPDATE IS BYPASSED 54156 TS MPAC +2 # FOR LATER SHORTMP 40001 CS L # -H AT 2(14) M 61420 AD LRHMAX # HMAX - H 00006 EXTEND 63310 BZMF VMEASCHK # IF H >HMAX, BYPASS UPDATE 00006 EXTEND 71421 MP LRWH # WH(HMAX - H) 00006 EXTEND 11420 DV LRHMAX # WH(1 - H/HMAX) 54135 TS MPTEMP 07313 TC SHORTMP2 # DELTAH (WH)(1 - H/HMAX) IN MPAC 06037 TC INTPRET # MODE IS DP FROM ABOVE 77752 SL1 53361 VXSC VAD 03537 UNIT/R/ # DELTAR = DH(WH)(1 - H/HMAX) UNIT/R/ 03573 R1S 37657 STCALL GNUR 67130 MUNGRAV 77776 EXIT # Page 886 03552 TC QUIKFAZ5 34755 CA ZERO 544">038416,001204: 33,3307 03534 RUPDATED TC GNURVST 84B">038418,001206: 33,3310 03552 VMEASCHK TC QUIKFAZ5 # RESTART AT NEXT LOCATION 40107 CS FLGWRD11 74745 MASK VELDABIT # IS V READING AVAILABLE? 10000 CCS A 13514 TCF VALTCHK # NO: SEE IF V READING TO BE TAKEN 154">038424,001212: 33,3315 41651 VELUPDAT CS VSELECT # PROCESS VELOCITY DATA 54001 TS L 26001 ADS L # -2 VSELECT IN L 60001 AD L 60001 AD L # -6 VSELECT IN A 50120 INDEX FIXLOC 52047 DXCH X1 # X1 = -6 VSELECT, X2 = -2 VSELECT 34741 CA EBANK4 54003 TS EBANK EBANK= LRXCDU 31655 CA LRYCDU # STORE LRCDUS IN CDUSPOTS 54766 TS CDUSPOT 31656 CA LRZCDU 54770 TS CDUSPOT +2 31654 CA LRXCDU 54772 TS CDUSPOT +4 04616 TC BANKCALL 47615 CADR QUICTRIG # GET SINES AND COSINES FOR NBSM 30120 CA FIXLOC 54166 TS PUSHLOC # SET PD TO ZERO 06037 TC INTPRET 45173 VLOAD* CALL 02231 VZBEAMNB,1 # CONVERT VBEAM FROM NB TO SM 47673 *NBSM* 54325 PDDL SL # STORE IN PD 0-5 03653 VMEAS # LOAD VELOCITY MEASUREMENT 20215 12D 41403 DMP* PUSH # SCALE TO M/CS AT 2(6) 51764 VZSCAL,2 # AND STORE IN PD 6-7 77776 EXIT 44753 CS ONE 54163 TS MODE # CHANGE STORE MODE TO VECTOR 31657 CA PIPTEM # STORE DELV IN MPAC # Page 887 22007 ZL 52155 DXCH MPAC 31660 CA PIPTEM +1 22007 ZL 52160 DXCH MPAC +3 31661 CA PIPTEM +2 22007 ZL 52162 DXCH MPAC +5 35016 CA EBANK7 54003 TS EBANK # RESTORE EBANK 7 EBANK= DVCNTR 06037 TC INTPRET 65361 VXSC PDDL 26022 KPIP1 # SCALE DELV TO 2(7) M/CS AND PUSH 02253 LRVTIME # TIME OF DELV AT 2(28) CS 56225 DSU DDV 01235 PIPTIME # TU - T(N-1) 27151 2SEC(28) 76561 VXSC VSL1 # G(N-1)(TU - T(N-1)) 01237 GDT/2 # SCALED AT 2(7) M/CS 53255 VAD VAD # PUSH UP FOR DELV 03527 V # VU = V(N-1) + DELVU + G(N-1) DTU 53352 VSL2 VAD # SCALE TO 2(5) M/CS AND SUBTRACT 03734 DELVS # MOON ROTATION. 51406 PUSH ABVAL # STORE IN PD 43202 SR4 DAD # ABS(VM)/8 + 7.5 AT 2(6) 27145 7.5 24025 STOVL 20D # STORE IN 20D AND PICK UP VM 44241 DOT BDSU # V(EST) AT 2(6) 00001 0 # DELTAV = VMEAS - V(EST) 51406 PUSH ABS 77425 DSU EXIT # ABS(DV) - (7.5 + ABS(VM)/8)) 00025 20D 25672 INCR LRMCTR 06723 TC BRANCH 13575 TCF VFAIL # DELTA V TOO LARGE. ALARM 13575 TCF VFAIL # DELTA V TOO LARGE. ALARM 05516 TC DOWNFLAG # TURN OFF VEL FAIL LAMP 00262 ADRES VFLSHFLG 30107 CA FLGWRD11 74740 MASK VXINHBIT 00006 EXTEND 13435 BZF VUPDAT # IF VX INHIBIT RESET, INCORPORATE DATA. # Page 888 05516 TC DOWNFLAG 00250 ADRES VXINH # RESET VX INHIBIT 31651 CA VSELECT 67746 AD NEG2 # IF VSELECT = 2 (X AXIS). 00006 EXTEND # BYPASS UPDATE 13514 BZF ENDVDAT >038522,001310: 33,3435 40107 VUPDAT CS FLGWRD11 74744 MASK LRINHBIT 10000 CCS A 13514 TCF VALTCHK # UPDATE INHIBITED 54155 TS MPAC +1 31471 CA ABVEL # STORE E7 ERASABLES NEEDED IN TEMPS 54130 TS ABVEL* 31651 CA VSELECT 54131 TS VSELECT* 35014 CA EBANK5 54003 TS EBANK # CHANGE EBANKS EBANK= LRVF 41527 CS LRVF 60130 AD ABVEL* # IF V < VF, USE WVF 00006 EXTEND 63466 BZMF USEVF 40130 CS ABVEL* 61526 AD LRVMAX # VMAX - V 00006 EXTEND 63471 BZMF WSTOR -1 # IF V > VMAX, W = 0 00006 EXTEND 50131 INDEX VSELECT* 71530 MP LRWVZ # WV(VMAX - V) 00006 EXTEND 11526 DV LRVMAX # WV( 1 - V/VMAX ) 13472 TCF WSTOR /a>038555,001343: 33,3466 50131 USEVF INDEX VSELECT* 31533 CA LRWVFZ # USE APPROPRIATE CONSTANT WEIGHT 13472 TCF WSTOR 34755 -1 CA ZERO /a>038560,001348: 33,3472 54154 WSTOR TS MPAC 44745 CS BIT7 # (=64D) 61011 AD MODREG 00006 EXTEND # Page 889 63501 BZMF +3 # IF IN P65,P66,P67, USE ANOTHER CONSTANT 31536 CA LRWVFF 54154 TS MPAC 35016 +3 CA EBANK7 54003 TS EBANK # CHANGE EBANKS EBANK= ABVEL 06037 TC INTPRET 74205 DMP VXSC # W(DELTA V)(VBEAMSM) UP 6-7, 0-5 77655 VAD 03601 V1S # ADD WEIGHTED DELTA V TO VELOCITY 03657 STORE GNUV 77776 EXIT 03552 TC QUIKFAZ5 # DO NOT RE-UPDATE 36242 CA SIX 544">038584,001372: 33,3513 03534 VUPDATED TC GNURVST # STORE NEW VELOCITY VECTOR 4">038585,001373: 33,3514 33,3514 ENDVDAT = VALTCHK B">038587,001375: 33,3514 03552 VALTCHK TC QUIKFAZ5 # DO NOT REPEAT ABOVE 34747 CAF READVBIT # TEST READVEL TO SEE IF VELOCITY READING 70107 MASK FLGWRD11 # IS DESIRED. 10000 CCS A 13527 TCF READV # YES -- READ VELOCITY 41471 CS ABVEL # NO -- SEE IF VELOCITY < 2000 FT/SEC 62707 AD 2KFT/SEC 00006 EXTEND 62540 BZMF CONTSERV # V > 2000 FT/SEC DO NOT READ VEL 05504 TC UPFLAG # V < 2000 FT/SEC SET READVEL AND READ. 00257 ADRES READVEL /a>038601,001389: 33,3527 37720 READV CAF PRIO32 # SET UP JOB TO READ VELOCITY BEAMS. 05072 TC NOVAC EBANK= HMEAS 03616 66067 2CADR LRVJOB 12540 TCF CONTSERV # CONTINUE WITH SERVICER 4">038608,001396: 33,3534 54130 GNURVST TS BUF # STORE GNUR (=GNUV) IN R1S OR V1S 00006 EXTEND # A = 0 FOR R, A = 6 FOR V 31657 DCA GNUR 50130 INDEX BUF 53573 DXCH R1S 00006 EXTEND # Page 890 31661 DCA GNUR +2 50130 INDEX BUF 53575 DXCH R1S +2 00006 EXTEND 31663 DCA GNUR +4 50130 INDEX BUF 53577 DXCH R1S +4 00002 TC Q A35">038624,001412: 33,3552 35007 QUIKFAZ5 CA EBANK3 56003 XCH EBANK # SET EBANK 3 52002 DXCH L # Q TO A, A TO L EBANK= PHSNAME5 55446 TS PHSNAME5 22003 LXCH EBANK EBANK= DVCNTR 00000 TC A /a>038633,001421: 33,3560 41671 HFAIL CS LRRCTR 00006 EXTEND 13572 BZF NORLITE # IF R = 0, DO NOT TURN ON TRK FAIL 61670 AD LRLCTR 77745 MASK NEG3 00006 EXTEND # IF L-R LT 4, DO NOT TURN ON TRK FAIL 13570 BZF +2 13572 TCF NORLITE 05504 TC UPFLAG # AND SET BIT TO TURN ON TRACKER FAIL LITE 00263 ADRES HFLSHFLG 5">038645,001433: 33,3572 31670 NORLITE CA LRLCTR 55671 TS LRRCTR # SET R = L 13310 TCF VMEASCHK /a>038650,001438: 33,3575 41673 VFAIL CS LRSCTR # DELTA Q LARGE 00006 EXTEND # IF S = 0, DO NOT TURN ON TRACKER FAIL 13607 BZF NOLITE 61672 AD LRMCTR # M-S 77745 MASK NEG3 # TEST FOR M-S > 3 00006 EXTEND # IF M-S > 3, THEN TWO OR MORE OF THE 13605 BZF +2 # LAST FOUR V READINGS WERE BAD, 13607 TCF NOLITE # SO TURN ON VELOCITY FAIL LIGHT 05504 TC UPFLAG # AND SET BIT TO TURN ON TRACKER FAIL LITE 00262 ADRES VFLSHFLG # Page 891 >038663,001451: 33,3607 31672 NOLITE CA LRMCTR # SET S = M 55673 TS LRSCTR 11651 CCS VSELECT # TEST FOR Z COMPONENT 13514 TCF ENDVDAT # NOT Z, DO NOT SET VX INHIBIT 05504 TC UPFLAG # Z COMPONENT - SET FLAG TO SKIP X 00250 ADRES VXINH # COMPONENT, AS ERROR MAY BE DUE TO CROSS 13514 TCF ENDVDAT # LOBE LOCK UP NOT DETECTED ON X AXIS. # Page 892 # ******************************************************************************** # LRVJOB IS SET WHEN THE LEM IS BELOW 15000 FT DURING THE LANDING PHASE # THIS JOB INITIALIZES THE LANDING RADAR READ ROUTINE FOR 5 VELOCITY # SAMPLES AND GOES TO SLEEP WHILE THE SAMPLING IS DONE -- ABOUT 500 MS. # WITH A GOODEND RETURN THE DATA IS STORED IN VMEAS AND BIT7 OF LRSTAT # IS SET. THE GIMBAL ANGLES ARE READ ABOUT MIDWAY IN THE SAMPLINGS. /a>038681,001469: 33,3616 4361 170MS EQUALS ND1 >038683,001471: 33,3616 34361 LRVJOB CA 170MS # SET TASK TO READ CDUS + PIPAS 05203 TC WAITLIST EBANK= LRVTIME 03757 70064 2CADR RDGIMS 11651 CCS VSELECT # SEQUENCE LR VEL BEAM SELECTOR 13625 TCF +2 34752 CAF TWO # IF ZERO, RESET TO TWO 60000 DOUBLE # 2XVSELECT USED FOR VBEAM INDEX IN LRVEL 04616 TC BANKCALL # GO INITIALIZE LR VEL READ ROUTINE 53107 CADR LRVEL 04616 TC BANKCALL # PUT LRVJOB TO SLEEP ABOUT 500 MS 17714 CADR RADSTALL 13665 TCF VBAD 11675 CCS STILBADV # IS DATA GOOD JUST PRESENT? 13666 TCF VSTILBAD # JUST GOOD -- MUST WAIT 4 SECONDS. 00004 INHINT 00006 EXTEND # GOOD RETURN -- STOW AWAY VMEAS 31102 DCA SAMPLSUM 53653 DXCH VMEAS 34741 CA EBANK4 # FOR DOWNLINK 54003 TS EBANK EBANK= LRVTIME 00006 EXTEND 31653 DCA LRVTIME 53740 DXCH LRVTIMDL 00006 EXTEND 31655 DCA LRXCDU 53735 DXCH LRXCDUDL 31656 CA LRZCDU 55736 TS LRZCDUDL 35016 CA EBANK7 54003 TS EBANK EBANK= VSELECT 40107 CS FLGWRD11 # SET BIT TO INDICATE VELOCITY 74745 MASK VELDABIT # MEASUREMENT MADE # Page 893 26107 ADS FLGWRD11 >038724,001512: 33,3660 11651 ENDLRV CCS VSELECT # UPDATE VSELECT 13663 TCF +2 34752 CA TWO 55651 TS VSELECT 15155 TCF ENDOFJOB >038730,001518: 33,3665 34752 VBAD CAF TWO # SET STILBAD TO WAIT 4 SECONDS 144">038731,001519: 33,3666 55675 VSTILBAD TS STILBADV 13660 TCF ENDLRV # LRHJOB IS SET BY LRHTASK WHEN LEM IS BELOW 25000 FT. THIS JOB # INITIALIZES THE LR READ ROUTINE FOR AN ALT MEASUREMENT AND GOES TO # SLEEP WHILE THE SAMPLING IS DONE -- ABOUT 95 MS. WITH A GOODEND RETURN # THE ALT DATA IS STORED IN HMEAS AND BIT7 OF LRSTAT IS SET. BANK 34 SETLOC R12STUFF BANK COUNT* $$/SERV >038745,001533: 34,3716 04616 LRHJOB TC BANKCALL # INITIATE LR ALT MEASUREMENT 53073 CADR LRALT 04616 TC BANKCALL # LRHJOB TO SLEEP ABOUT 95MS 17714 CADR RADSTALL 13745 TCF HBAD 11674 CCS STILBADH # IS DATA GOOD JUST PRESENT? 13755 TCF HSTILBAD # JUST GOOD -- MUST WAIT 4 SECONDS. 00004 INHINT 00006 EXTEND 31102 DCA SAMPLSUM # GOOD RETURN -- STORE AWAY LRH DATA 53655 DXCH HMEAS # LRH DATA 1.079 FT/BIT 00006 EXTEND # FOR DOWNLINK 31561 DCA PIPTIME1 53755 DXCH MKTIME 00006 EXTEND 31157 DCA CDUTEMPY # CDUY,Z = AIG,AMG 53460 DXCH AIG 31155 CA CDUTEMPX # CDUX = AOG 55461 TS AOG 40107 CS FLGWRD11 # SET BIT TO INDICATE RANGE 74750 MASK RNGEDBIT # MEASUREMENT MADE. 26107 ADS FLGWRD11 >038771,001559: 34,3744 05155 ENDLRH TC ENDOFJOB # TERMATE LRHJOB # Page 894 >038774,001562: 34,3745 30101 HBAD CA FLAGWRD5 74742 MASK RNGSCBIT # IS BAD RETURN DUE TO SCALE CHANGE? 00006 EXTEND 13754 BZF HSTILBAD -1 # NO RESET HSTILBAD 05516 TC DOWNFLAG # YES RESET SCALE CHANGE BIT AND IGNORE 00120 ADRES RNGSCFLG 05155 TC ENDOFJOB 34752 CAF TWO # SET STILBAD TO WAIT 4 SECONDS 144">038783,001571: 34,3755 55674 HSTILBAD TS STILBADH 05155 TC ENDOFJOB BANK 34 SETLOC SERV4 BANK COUNT* $$/SERV # RDGIMS IS A TASK SET UP BY LRVJOB TO PICK UP THE IMU CDUS AND TIME # AT ABOUT THE MIDPOINT OF THE LR VEL READ ROUTINE WHEN 5 VEL SAMPLES # ARE SPECIFIED. EBANK= LRVTIME >038797,001585: 34,3757 00006 RDGIMS EXTEND 30025 DCA TIME2 # PICK UP TIME2, TIME1 53653 DXCH LRVTIME # AND SAVE IN LRVTIME 00006 EXTEND 30033 DCA CDUX # PICK UP CDUX AND CDUY 53655 DXCH LRXCDU # AND SAVE IN LRXCDU AND LRYCDU 30034 CA CDUZ 55656 TS LRZCDU # SAVE CDUZ IN LRZCDU 30037 CA PIPAX 55657 TS PIPTEM # SAVE PIPAX IN PIPTEM 00006 EXTEND 30041 DCA PIPAY # PICK UP PIPAY AND PIPAZ 53661 DXCH PIPTEM +1 # AND SAVE IN PIPTEM +1 AND PIPTEM +2 05261 TC TASKOVER BANK 33 SETLOC SERVICES BANK COUNT* $$/SERV EBANK= DVCNTR # Page 895 # HIGATJOB IS SET APPROXIMATELY 6 SECONDS PRIOR TO HIGH GATE DURING # THE DESCENT BURN PHASE OF LUNAR LANDING. THIS JOB INITIATES THE # LANDING RADAR REPOSITIONING ROUTINE AND GOES TO SLEEP UNTIL THE # LR ANTENNA MOVES FROM POSITION 1 TO POSITION 2. IF THE LR ANTENNA # ACHIEVES POSITION 2 WITHIN 22 SECONDS THE ALTITUDE AND VELOCITY # BEAM VECTORS ARE RECOMPUTED TO REFLECT THE NEW ORIENTATION WITH # RESPECT TO THE NB. BIT10 OF LRSTAT IS CLEARED TO ALLOW LR # MEASUREMENTS AND THE JOB TERMINATES. F42">038833,001621: 33,3670 04616 HIGATJOB TC BANKCALL # START LRPOS2 JOB 53471 CADR LRPOS2 04616 TC BANKCALL # PUT HIGATJOB TO SLEEP UNTIL JOB IS DONE 17714 CADR RADSTALL 13703 TCF POSALARM # BAD END ALARM 4">038839,001627: 33,3675 37711 POSGOOD CA PRIO23 # REDUCE PRIORITY FOR INTERPRETIVE COMPS. 05146 TC PRIOCHNG 03737 TC SETPOS2 # LR IN POS2 -- SET UP TRANSFORMATIONS 05516 TC DOWNFLAG 00252 ADRES NOLRREAD # RESET NOLRREAD FLAG TO ENABLE LR READING 05155 TC ENDOFJOB 24D">038848,001636: 33,3703 33720 POSALARM CA OCT523 04616 TC BANKCALL 21562 CADR PRIOLARM # FLASH ALARM CODE 16001 TCF GOTOP00H # TERMINATE 13712 TCF +3 # PROCEED -- TRY AGAIN 15155 TCF ENDOFJOB # V 32 E TERMINATE R12 05155 TC ENDOFJOB 34745 +3 CA BIT7 # SEE IF IN POS2 YET 00006 EXTEND 02033 RAND CHAN33 00006 EXTEND 13675 BZF POSGOOD # POS2 ACHIEVED SET UP ANTENNA BEAMS 13703 TCF POSALARM # STILL DIDN'T MAKE IT REALARM >038863,001651: 33,3720 00523 OCT523 OCT 00523 1">038867,001655: 33,3721 04645 SETPOS1 TC MAKECADR # MUST BE CALLED BY BANKCALL 55656 TS LRADRET1 # SAVE RETURN CADR. SINCE BUP2 CLOBBERED 34752 CAF TWO 55674 TS STILBADH # INITIALIZE STILBAD 55675 TS STILBADV # INITIALIZE STILBAD 34755 CA ZERO # INDEX FOR LRALPHA, LRBETA IN POS 1. # Page 896 55670 TS LRLCTR # SET L,M,R, ANS S TO ZERO 55672 TS LRMCTR 55671 TS LRRCTR 55673 TS LRSCTR 55651 TS VSELECT # INITIALIZE VSELECT 03740 TC SETPOS # CONTINUE WITH COMPUTATIONS. 31656 CA LRADRET1 04640 TC BANKJUMP # RETURN TO CALLER 2">038887,001675: 33,3737 34752 SETPOS2 CA TWO # INDEX FOR POS2 >038888,001676: 33,3740 56002 SETPOS XCH Q # SAVE INDEX IN Q 55650 TS LRADRET # SAVE RETURN 35014 CA EBANK5 54003 TS EBANK EBANK= LRALPHA 00006 EXTEND 50002 INDEX Q 31523 DCA LRALPHA # LRALPHA IN A, LRBETA IN L 54772 TS CDUSPOT +4 # ROTATION ABOUT X 22766 LXCH CDUSPOT # ROTATION ABOUT Y 34755 CA ZERO 54770 TS CDUSPOT +2 # ZERO ROTATION ABOUT Z. 35016 CA EBANK7 54003 TS EBANK EBANK= LRADRET 06037 TC INTPRET 45175 VLOAD CALL 06516 UNITY # CONVERT UNITY(ANTENNA) TO NB 47651 TRG*SMNB 26237 STOVL VYBEAMNB 06520 UNITX # CONVERT UNITX(ANTENNA) TO NB 77624 CALL 47671 *SMNB* 02245 STORE VXBEAMNB 76435 VXV VSL1 02237 VYBEAMNB 26231 STOVL VZBEAMNB # Z = X * Y 26003 HBEAMANT 77624 CALL 47671 *SMNB* # CONVERT TO NB 02273 STORE HBEAMNB 77776 EXIT # Page 897 01650 TC LRADRET Parent file is MAIN.agc