Source Code
![]() |
These source-code files were obtained by digitally photographing
an Artemis 72 program listing from a private collection and then
modifying pre-existing Comanche 55 (Apollo 11) source files to
incorporate changes. Note that the page images
presented online are of reduced quality, and that additional images
may be available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971 THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS COLOSSUS 3 THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED IN REPORT R-577. THIS PROGRAM WAS PREPARED UNDER OSR PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT CENTER OF THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF TECHNOLOGY, CAMBRIDGE, MASS. |
036284,000002: # Copyright: Public domain.
036285,000003: # Filename: SERVICER207.agc
036286,000004: # Purpose: Part of the source code for Artemis (i.e., Colossus 3),
036287,000005: # build 072. This is for the Command Module's (CM)
036288,000006: # Apollo Guidance Computer (AGC), we believe for
036289,000007: # Apollo 15-17.
036290,000008: # Assembler: yaYUL
036291,000009: # Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
036292,000010: # Website: www.ibiblio.org/apollo/index.html
036293,000011: # Page scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
036294,000012: # Mod history: 2009-08-12 JL Adapted from corresponding Comanche 055 file.
036295,000013: # 2010-02-01 JL Fixed build error.
036296,000014: # 2010-02-13 JL Fixed error on p827.
036297,000015: # 2010-02-20 RSB Un-##'d this header.
036298,000016:
036299,000017: # # Page 823
036300,000018:
036301,000019: # PROGRAM NAME - PREREAD, READACCS, SERVICER, AVERAGE G.
036302,000020:
036303,000021: # MOD NO. 00 BY M. HAMILTON DEC. 12, 1966
036304,000022:
036305,000023: # FUNCTIONAL DESCRIPTION
036306,000024:
036307,000025: # THE ROUTINES DESCRIBED BELOW ARE USED TO CALCULATE VALUES OF RN, VN, AND GDT/2 DURING ACCELERATED FLIGHT.
036308,000026: # THE SEVERAL ROUTINES COMPRISE A PACKAGE AND ARE NOT MEANT TO BE USED AS SEPARATE SUBROUTINES.
036309,000027:
036310,000028: # GENERAL REFERENCES TO SERVICER OR AVERAGE G ARE UNDERSTOOD TO REFER TO THE ENTIRE SET OF ROUTINES INCLUDING
036311,000029: # READACCS, SERVICER, AVERAGE G, INTEREAD, SMOOTHER, AND ANY ADDITIONAL ROUTINES ATTACHED AT AVGEXIT (SEE BELOW).
036312,000030:
036313,000031: # PROGRAMS INITIATING SERVICER ARE REQUIRED TO MAKE A WAITLIST CALL FOR PREREAD (OR, IF LIFTOFF, FOR BIBIBIAS)
036314,000032: # AT 2 SECONDS BEFORE THE FIRST AVERAGE G UPDATE IN ORDER TO INITIALIZE THE SEQUENCE, WHICH WILL RECUR EVERY
036315,000033: # 2 SECONDS FROM THAT TIME ON AS LONG AS AVEGFLAG REMAINS SET.
036316,000034:
036317,000035: # THE USE OF ERASABLE AVGEXIT ALLOWS VARIOUS ROUTINES TO BE PERFORMED AS PART OF THE NORMAL CYCLE (SEE
036318,000036: # EXPLANATION OF AVGEXIT BELOW).
036319,000037:
036320,000038: # DESCRIPTIONS OF INDIVIDUAL ROUTINES FOLLOW.
036321,000039:
036322,000040: # PREREAD
036323,000041:
036324,000042: # PREVIOUSLY EXTRAPOLATED VALUES COPIED FROM RN1, VN1, AND PIPTIME1 INTO RN, VN, AND PIPTIME.
036325,000043: # LASTBIAS JOB SCHEDULED.
036326,000044: # PIPS READ AND CLEARED VIA PIPASR SUBROUTINE.
036327,000045: # AVERAGE G FLAG SET ON.
036328,000046: # DRIFT FLAG SET OFF.
036329,000047: # V37 FLAG SET ON.
036330,000048: # INITIALIZATION OF 1) THRUST MONITOR (DVMON) - DVCNTR SET TO ONE.
036331,000049: # 2) TOTAL ACCUMULATED DELV VALUE (DVTOTAL) - SET TO ZERO.
036332,000050: # 3) AXIS VECTOR (AXIS) - SET TO (.5,0,0).
036333,000051: # NORMLIZE JOB SCHEDULED.
036334,000052: # READACCS TASK CALLED IN 2 SECONDS.
036335,000053:
036336,000054: # NORMLIZE
036337,000055:
036338,000056: # GDT/2 INITIALIZED VIA CALCGRAV SUBROUTINE.
036339,000057:
036340,000058: # READACCS
036341,000059:
036342,000060: # IF ONMON FLAG SET QUIKREAD ROUTINE IS PERFORMED BEFORE PIPASR ZEROS THE PIPA REGISTERS, AND THE 1/2 SEC
036343,000061: # ONMONITOR LOOP IS INITIATED TO PROVIDE DOWNLINK INFORMATION DURING ENTRY.
036344,000062: # PIPS READ AND CLEARED BY PIPASR SUBROUTINE.
036345,000063: # IF CM/DSTBY IS ON, ENTRY VARIABLES INITIALIZED AND SETJTAG TASK CALLED.
036346,000064: # # Page 824
036347,000065:
036348,000066: # SERVICER207
036349,000067:
036350,000068: # IF AVERAGEG FLAG ON READACCS CALLED TO RECYCLE IN 2 SECONDS.
036351,000069: # IF AVERAGEG FLAG OFF AVERAGE G EXIT (AVGEXIT) SET TO 2CADR AVGEND FOR FINAL PASS.
036352,000070: # SERVICER JOB SCHEDULED.
036353,000071:
036354,000072: # TEST CONNECTOR OUTBIT TURNED ON.
036355,000073:
036356,000074: # ONMNITOR
036357,000075:
036358,000076: # A SEQUENCE OF THREE PASSES THROUGH QUICKREAD FOLLOWING A CALL TO READACCS WITH ONMONFLG SET AT 1/2
036359,000077: # SEC INTERVALS. INTERVALS ARE COUNTED OUT BY PIPCTR, INITIALIZED AT 3 BY READACCS.
036360,000078:
036361,000079: # QUIKREAD
036362,000080:
036363,000081: # READS CURRENT PIPS INTO X,Y,ZPIPBUF. READS OLD X,Y,ZPIPBUF INTO X,Y,ZOLDBUF. VALUES ARE SENT TO
036364,000082: # DOWNLIST DURING ENTRY.
036365,000083:
036366,000084: # SERVICER
036367,000085:
036368,000086: # DELV VALUES CHECKED TO DETECT RUNAWAY PIP -
036369,000087: # IF BAD PIP 1) ALARM SENT.
036370,000088: # 2) COMPENSATION, DVTOTAL ACCUMULATION, AND DVMON BYPASSED. CONTROL
036371,000089: # TRANSFERRED TO AVERAGE G.
036372,000090: # PIPS COMPENSATED VIA 1/PIPA SUBROUTINE.
036373,000091: # DVTOTAL INCREMENTED BY ABSOLUTE VALUE OF DELV.
036374,000092: # THRUST MONITOR (DVMON) PERFORMED UNLESS IDLE FLAG IS ON.
036375,000093: # CONTROL TRANSFERRED TO AVERAGE G.
036376,000094:
036377,000095: # DVMON
036378,000096:
036379,000097: # THRESHOLD VALUE (PLACED IN DVTHRUSH BY USER) CHECKED AGAINST ABSOLUTE VALUE OF DELV TO CHECK
036380,000098: # THRUST LEVEL.
036381,000099:
036382,000100: # IF THRUST 1) ULLAGE OFF ROUTINE PERFORMED.
036383,000101: # 2) STEERING FLAG TURNED ON AT FIRST DETECTION OF THRUST.
036384,000102: # 3) CONTROL TRANSFERRED TO AVERAGE G.
036385,000103: # IF NO THRUST 1) ON FIRST PASS THROUGH MONITOR, CONTROL TRANSFERRED TO AVERAGE G.
036386,000104: # 2) ON SUBSEQUENT PASSES, CONTROL TRANSFERRED TO ENGINE FAIL ROUTINE IF THRUST
036387,000105: # HAS FAILED FOR 3 CONSECUTIVE PASSES.
036388,000106:
036389,000107: # ENGINE FAIL
036390,000108:
036391,000109: # ENGFAIL1 TASK CALLED IN 2.5 SECONDS. THIS WILL RETURN CONTROL TO TIG-5 SO THAT THE IGNITION
036392,000110: # SEQUENCE MAY BE REPEATED.
036393,000111: # ENGINOF3 PERFORMED.
036394,000112: # DAP SET UP FOR RCS.
036395,000113: #
036396,000114: # AVERAGE G
036397,000115: # # Page 825
036398,000116: # RN1, VN1, GDT1/2 CALCULATED VIA CALCRVG ROUTINE BY UPDATING RN, VN WITH DELV AND AN AVERAGED VALUE
036399,000117: # OF GDT/2
036400,000118: # RN1, VN1, GDT1/2, PIPTIME1 COPIED INTO RN, VN, GDT/2, PIPTIME FOR RESTART PROTECTION.
036401,000119: # CONTROL TRANSFERRED TO ADDRESS SPECIFIED BY USER (OR BY READACCS FOR LAST PASS) IN AVGEXIT.
036402,000120: # LAST PASS (AVGEND) 1) FREE FALL GYRO COMPENSATION SET UP.
036403,000121: # 2) DRIFT FLAG TURNED ON.
036404,000122: # 3) STATE VECTOR TRANSFERRED VIA AVETOMID ROUTINE.
036405,000123: # 4) ONMONITOR FLAG RESET.
036406,000124: # 5) V37 FLAG RESET.
036407,000125: # 6) TEST CONNECTOR OUTBIT RESET.
036408,000126: # 7) CONTROL TRANSFERRED TO CANV37 TO CONTINUE MM CHANGE ROUTINE (R00).
036409,000127:
036410,000128: # CALLING SEQUENCE
036411,000129:
036412,000130: # PREREAD ENTERED DIRECTLY FROM TIG-30 VIA POSTJUMP.
036413,000131: # READACCS CALLED AS WAITLIST TASK.
036414,000132:
036415,000133: # SUBROUTINES CALLED
036416,000134:
036417,000135: # UTILITY ROUTINES - PHASCHNG FLAGUP FLAGDOWN NOVAC FINDVAC WAITLIST ALARM NEWPHASE 2PHSCHNG
036418,000136:
036419,000137: # OTHER - PIPASR 1/PIPA CALCGRAV CALCRVG AVETOMID
036420,000138:
036421,000139: # NORMAL EXIT MODES
036422,000140:
036423,000141: # ENDOFJOB TASKOVER CANV37
036424,000142:
036425,000143: # AVGEXIT - THIS IS A DOUBLE PRECISION ERASABLE LOCATION BY WHICH CONTROL IS TRANSFERRED AT THE END
036426,000144: # OF EACH CYCLE OF AVERAGE G.
036427,000145: # THE 2CADR OF A ROUTINE TO BE PERFORMED AT THAT TIME (E.G., STEERING EQUATIONS TO BE PERFORMED
036428,000146: # AT 2 SECOND INTERVALS) MAY BE SET BY THE USER INTO AVGEXIT.
036429,000147: # ALL SUCH ROUTINES SHOULD RETURN TO SERVEXIT, WHICH IS THE NORMAL EXIT FROM AVERAGE G.
036430,000148:
036431,000149: # SERVEXIT - DOES A PHASE CHANGE FOR RESTART PROTECTION AND GOES TO ENDOFJOB.
036432,000150: # THE 2CADR OF SERVEXIT IS SET INTO AVGEXIT BY THE USER IF NO OTHER ROUTINE (SEE ABOVE).
036433,000151:
036434,000152: # AVGEND - LAST PASS OF AVERAGE G EXITS HERE, BYPASSING SPECIAL ROUTINE (SEE ABOVE UNDER READACCS).
036435,000153: # FINAL EXIT IS TO CANV37. F AVERAGE G).
036436,000154:
036437,000155: # OUTPUT
036438,000156:
036439,000157: # DVTOTAL(2) PIPTIME(2) XPIPBUF(2) YPIPBUF(2) ZPIPBUF(2)
036440,000158: # RN(6) REFERENCE COORD. SCALED AT 2(+29) M/CS
036441,000159: # VN(6) REFERENCE COORD. SCALED AT 2(+7) M/CS
036442,000160: # GDT/2(6) REFERENCE COORD. SCALED AT 2(+7) M/CS
036443,000161: # DELV(6) STABLE MEMB. COORD. SCALED AT 2(+14)*5.85*10(-4) M/CS (KPIP1 USED TO GET DV/2 AT 2(+7))
036444,000162: # # Page 826
036445,000163: # DELVREF(6) REFERENCE COORD. SCALED AT 2(+7) M/CS
036446,000164:
036447,000165: # INITIALIZATION
036448,000166:
036449,000167: # ONMONITOR FLAG SET BY ENTRY TO SHOW PIPBUF VALUES REQUIRED.
036450,000168: # IDLE FLAG ON IF DVMON TO BE BYPASSED.
036451,000169: # DVTHRUSH SET TO APPROPRIATE VALUE FOR DVMON.
036452,000170: # AVGEXIT SET TO 2CADR OF ROUTINE, IF ANY, TO BE PERFORMED AFTER EACH CYCLE OF AVERAGE G. IF NO ROUTINE
036453,000171: # TO BE DONE, AVGEXIT SET TO SERVEXIT.
036454,000172: # VALUES NEEDED
036455,000173: # REFSMMAT
036456,000174: # UNITW - FULL UNIT VECTOR, IN REFERENCE COORD., OF EARTH'S ROTATIONAL VECTOR
036457,000175: # RN1, VN1, PIPTIME1 - IN REFERENCE COORD., CONSISTENT WITH TIME OF EXECUTION OF PREREAD.
036458,000176:
036459,000177: # DEBRIS
036460,000178:
036461,000179: # CENTRALS A, L, Q
036462,000180: # OTHER INTERNAL - DVCNTR(1) PIPAGE(1) PIPCTR(1) AVGEXIT(2)
036463,000181: # EXTERNAL - ITEMP1(1) ITEMP2(1) RUPTREG1(1) TEMX(1) TEMY(1) TEMZ(1)
036464,000182: # USEFUL DEBRIS
036465,000183: # RN1(6) VN1(6) GDT1/2 PIPTIME1(2)
036466,000184: # THESE LOCATIONS USED AS BUFFER STORAGE FOR NEWLY CALCULATED VALUES OF RN, VN, GDT/2,
036467,000185: # AND PIPTIME DURING PERFORMANCE OF SERVICER ROUTINES.
036468,000186: # UNITR - HALF UNIT VECTOR OF RN, REFERENCE COORD.
036469,000187: # RMAG SCALED AT 2(+58) IN 36D.
036470,000188: # RMAGSQ SCALED AT 2(+58) IN 34D.
036471,000189: # (RE/RMAG)SQ IN 32D
036472,000190:
036473,000191: 37,2000 SETLOC SERVICES
036474,000192: 37,2000 BANK
036475,000193:
036476,000194: 37,2607 E7,1425 EBANK= DVTOTAL
036477,000195:
036478,000196: # ************************************* PREREAD **************************************************************
036479,000197:
036480,000198: 37,2607 COUNT* $$/SERV
036481,000199: 37,2607 35057 PREREAD CAF PRIO21 # CALLER MUST PROTECT PREREAD
036482,000200: 37,2610 05121 TC NOVAC
036483,000201: 37,2611 E3,1460 EBANK= NBDX
036484,000202: 37,2611 03655 14063 2CADR LASTBIAS # DO LAST GYRO COMPENSATION IN FREE FALL
036485,000203:
036486,000204: # CALL-TO AND LASTBIAS ITSELF ARE NOT
036487,000205: # PROTECTED. REREADAC SETS 1/PIPADT
036488,000206: # TO 2.0 SECS IN CASE LASTBIAS LOST.
036489,000207: # (REDUNDANT IF LASTBIAS IS AOK.)
036490,000208:
036491,000209: 37,2613 02630 REDO5.31 TC PREREAD1
036492,000210: # # Page 827
036493,000211: 37,2614 37654 CAF PRIO32
036494,000212: 37,2615 05135 TC FINDVAC # SET UP NORMLIZE JOB REQUIRED PRIOR TO
036495,000213: 37,2616 E7,1425 EBANK= DVTOTAL
036496,000214: 37,2616 03154 76067 2CADR NORMLIZE
036497,000215:
036498,000216: 37,2620 35017 CAF 2SECS
036499,000217: 37,2621 05233 TC WAITLIST
036500,000218: 37,2622 E6,1661 EBANK= AOG
036501,000219: 37,2622 02652 76066 2CADR READACCS
036502,000220:
036503,000221: 37,2624 44767 CS TWO
036504,000222: 37,2625 04126 TC NEWPHASE
036505,000223: 37,2626 00005 OCT 5
036506,000224:
036507,000225: 37,2627 01,2234 5P2SPT2 = 5.2SPOT
036508,000226: 37,2627 15314 TCF TASKOVER
036509,000227:
036510,000228: 37,2630 00006 PREREAD1 EXTEND
036511,000229: 37,2631 22070 QXCH RUPTREG1
036512,000230:
036513,000231: 37,2632 03171 TC PIPASR # CLEAR + READ PIPS LAST TIME IN FREE FALL
036514,000232:
036515,000233: 37,2633 34770 CAF ONE # SET UP PIPAGE FOR REREADAC IN CASE A
036516,000234: 37,2634 55067 TS PIPAGE # RESTART OCCURS BEFORE READACCS
036517,000235:
036518,000236: 37,2635 40075 CS FLAGWRD1 # SET AVEG FLAG
036519,000237: 37,2636 74770 MASK AVEGBIT
036520,000238: 37,2637 26075 ADS FLAGWRD1
036521,000239:
036522,000240: 37,2640 44752 CS DRFTBIT
036523,000241: 37,2641 70076 MASK FLAGWRD2
036524,000242: 37,2642 54076 TS FLAGWRD2 # KNOCK DOWN DRIFT FLAG
036525,000243:
036526,000244: 37,2643 40103 CS FLAGWRD7 # SET V37 FLAG
036527,000245: 37,2644 74763 MASK V37FLBIT
036528,000246: 37,2645 26103 ADS FLAGWRD7
036529,000247:
036530,000248: 37,2646 34772 CAF ZERO
036531,000249: 37,2647 55425 TS DVTOTAL # CLEAR DVTOTAL
036532,000250: 37,2650 55426 TS DVTOTAL +1
036533,000251:
036534,000252: 37,2651 00070 TC RUPTREG1
036535,000253:
036536,000254: # # Page 828
036537,000255: # ************************************* READACCS *************************************************************
036538,000256: 37,2652 E6,1661 EBANK= AOG
036539,000257: 37,2652 03171 READACCS TC PIPASR
036540,000258:
036541,000259: 37,2653 34773 PIPSDONE CAF FIVE
036542,000260: 37,2654 54001 TS L
036543,000261: 37,2655 40000 COM
036544,000262: 37,2656 53166 DXCH -PHASE5
036545,000263:
036546,000264: 37,2657 01,2253 5P5SPT1 = 5.5SPOT
036547,000265: 37,2657 34770 REDO5.5 CAF ONE # SHOW PIPS HAVE BEEN READ
036548,000266: 37,2660 55067 TS PIPAGE
036549,000267:
036550,000268: 37,2661 34767 CA TWO # SET PIPCTR FOR ONMINTOR
036551,000269: 37,2662 55066 TS PIPCTR # AFTER ABOVE PHASCHNG
036552,000270:
036553,000271: 37,2663 40102 CS CM/FLAGS
036554,000272: 37,2664 74767 MASK CM/DSBIT # 103D BIT2
036555,000273: 37,2665 10000 CCS A
036556,000274: 37,2666 02740 TC CHEKAVEG
036557,000275:
036558,000276: 37,2667 41105 CS PIPTIME1 +1
036559,000277: 37,2670 55271 TS TBASE6 # FOR RESTARTS
036560,000278: 37,2671 00006 EXTEND # CONTINUE FOR ENTRY DAP
036561,000279: 37,2672 31662 DCA AOG
036562,000280: 37,2673 53670 DXCH AOG/PIP
036563,000281: 37,2674 31663 CA AMG
036564,000282: 37,2675 57671 XCH AMG/PIP
036565,000283: 37,2676 00006 EXTEND
036566,000284: 37,2677 31665 DCA ROLL/180
036567,000285: 37,2700 53673 DXCH ROLL/PIP
036568,000286: 37,2701 31666 CA BETA/180
036569,000287: 37,2702 57674 XCH BETA/PIP
036570,000288: 37,2703 30102 CA CM/FLAGS
036571,000289: 37,2704 74755 MASK CMARMBIT # 93D BIT12
036572,000290: 37,2705 00006 EXTEND # DURING ENTRY, WHEN RCS DAP IS INACTIVE,
036573,000291: 37,2706 12723 BZF NOSAVPIP # SAVE PIPAS EACH 0.5 SEC FOR TM.
036574,000292:
036575,000293: 37,2707 35011 CAF .5SEC
036576,000294: 37,2710 05223 TC TWIDDLE
036577,000295: 37,2711 02773 ADRES QUIKREAD
036578,000296: # NO NEED TO RESTART PROTECT THIS.
036579,000297: 37,2712 31314 CA DELVX # SAVE PIPAS AS READ (BUT NOT COMPENSATED)
036580,000298: 37,2713 57533 XCH XPIPBUF
036581,000299: 37,2714 55536 TS XOLDBUF
036582,000300:
036583,000301: 37,2715 31316 CA DELVY
036584,000302: 37,2716 57534 XCH YPIPBUF
036585,000303: 37,2717 55537 TS YOLDBUF
036586,000304: # # Page 829
036587,000305: 37,2720 31320 CA DELVZ
036588,000306: 37,2721 57535 XCH ZPIPBUF
036589,000307: 37,2722 55540 TS ZOLDBUF
036590,000308:
036591,000309: 37,2723 34773 NOSAVPIP CA FIVE
036592,000310: 37,2724 55725 TS CM/GYMDT
036593,000311:
036594,000312: 37,2725 33153 CA JTAGTIME # ACTIVATE CM/RCS AFTER PIPUP TO GO
036595,000313: # IN JTAGTIME +5 CS.
036596,000314: 37,2726 05233 TC WAITLIST
036597,000315: 37,2727 E6,1661 EBANK= AOG
036598,000316: 37,2727 02636 32066 2CADR SETJTAG
036599,000317:
036600,000318: 37,2731 46214 CS THREE # 1.3SPOT FOR SETJTAG
036601,000319: 37,2732 04126 TC NEWPHASE
036602,000320: 37,2733 00001 OCT 1
036603,000321:
036604,000322: 37,2734 01,2014 1P3SPT1 = 1.3SPOT
036605,000323: 37,2734 34125 CAF OCT31 # 5.31SPOT FOR CHEKAVG
036606,000324: 37,2735 54001 TS L
036607,000325: 37,2736 40000 COM
036608,000326: 37,2737 53166 DXCH -PHASE5
036609,000327:
036610,000328: 37,2740 01,2311 5P31SPOT = 5.31SPOT
036611,000329: 37,2740 40075 CHEKAVEG CS FLAGWRD1
036612,000330: 37,2741 74770 MASK AVEGBIT
036613,000331: 37,2742 10000 CCS A # IF AVEG FLAG DOWN SET FINAL EXIT AVEG
036614,000332: 37,2743 02762 TC AVEGOUT
036615,000333:
036616,000334: 37,2744 35017 CAF 2SECS
036617,000335: 37,2745 05223 TC TWIDDLE
036618,000336: 37,2746 02652 ADRES READACCS
036619,000337: 37,2747 34753 MAKESERV CAF PRIO20 # ESTABLISH SERVICER ROUTINE
036620,000338: 37,2750 05135 TC FINDVAC
036621,000339: 37,2751 E7,1425 EBANK= DVTOTAL
036622,000340: 37,2751 03010 76067 2CADR SERVICER
036623,000341:
036624,000342: 37,2753 44766 CS FOUR # RESTART SERVICER AND READACCS
036625,000343: 37,2754 04126 TC NEWPHASE
036626,000344: 37,2755 00005 OCT 5
036627,000345:
036628,000346: 37,2756 01,2242 5P4SPT1 = 5.4SPOT
036629,000347: 37,2756 34760 CAF BIT9
036630,000348: 37,2757 00006 EXTEND
036631,000349: 37,2760 05011 WOR DSALMOUT # TURN TEST CONNECTOR OUTBIT ON
036632,000350:
036633,000351: 37,2761 15314 TCF TASKOVER # END PREVIOUS READACCS WAITLIST TASK
036634,000352:
036635,000353: # # Page 830
036636,000354: 37,2762 00006 AVEGOUT EXTEND
036637,000355: 37,2763 32767 DCA AVOUTCAD
036638,000356: 37,2764 53062 DXCH AVGEXIT
036639,000357: 37,2765 12747 TCF MAKESERV
036640,000358:
036641,000359: 37,2766 E7,1425 EBANK= DVTOTAL
036642,000360: 37,2766 03100 76067 AVOUTCAD 2CADR AVGEND
036643,000361:
036644,000362: # # Page 831
036645,000363: # ROUTINE NAME: ONMNITOR
036646,000364: # MOD 04 BY BAIRNSFATHER 30 APR 1968 REDO ONMNITOR TO SAVE PIPS EACH 0.5 SEC FOR TM,ENTRY.
036647,000365: # MOD 03 BY FISHER DECEMBER 1967
036648,000366: # MOD 02 BY RYE SEPT 1967
036649,000367: # MOD 01 BY KOSMALA 23 MAR 1967
036650,000368: # MOD 00 BY KOSMALA 27 FEB 1967
036651,000369:
036652,000370: # FUNCTIONAL DESCRIPTION
036653,000371:
036654,000372: # THE PURPOSE OF ONMONITOR IS TO PROVIDE 1/2 SEC. READING OF PIPAS FOR DOWNLIST DURING ENTRY.
036655,000373: # X,Y,XPIPBUF CONTAIN PRESET VALUES X,Y,ZOLDBUF CONTAIN VALUES FROM PREVIOUS READING.
036656,000374:
036657,000375: # CALLING SEQUENCE
036658,000376:
036659,000377: # CALL AS WAITLIST TASK. TERMINATES ITSELF IN TASKOVER
036660,000378:
036661,000379: # INITIALIZATION
036662,000380:
036663,000381: # PIPCTR = 2 (FOR DT = 0.5 SEC)
036664,000382: # X,Y,ZPIPBUF SET TO PREVIOUS PIPAX,Y,Z
036665,000383:
036666,000384: # OUTPUT
036667,000385:
036668,000386: # X,Y,ZPIPBUF, X,Y,ZOLDBUF
036669,000387:
036670,000388: # DEBRIS
036671,000389:
036672,000390: # X,Y,ZPIPBUF CONTAIN LAST PIPAX,Y,Z VALUES
036673,000391: # X,Y,ZOLDBUF CONTAIN LAST-BUT-ONE PIPAX,Y,Z VALUES
036674,000392: # RUPTREG1
036675,000393: # PIPCTR
036676,000394:
036677,000395: 37,2770 55066 ONMNITOR TS PIPCTR
036678,000396:
036679,000397: 37,2771 05255 TC FIXDELAY # WAIT
036680,000398: 37,2772 00062 0.5SEC DEC 50 B-14
036681,000399:
036682,000400: 37,2773 34767 QUIKREAD CAF TWO
036683,000401: 37,2774 54070 +1 TS RUPTREG1
036684,000402: 37,2775 50000 INDEX A
036685,000403: 37,2776 30037 CA PIPAX # SAVE ACTUAL PIPAS FOR TM.
036686,000404: 37,2777 50070 INDEX RUPTREG1
036687,000405: 37,3000 57533 XCH XPIPBUF # UPDATE X,Y,ZPIPBUF
036688,000406: 37,3001 50070 INDEX RUPTREG1
036689,000407: 37,3002 55536 TS XOLDBUF # AND X,Y,ZOLDBUF
036690,000408: 37,3003 10070 CHKCTR CCS RUPTREG1
036691,000409: 37,3004 12774 TCF QUIKREAD +1 # LOOP AGAIN
036692,000410: 37,3005 11066 CCS PIPCTR
036693,000411: 37,3006 12770 TCF ONMNITOR
036694,000412: 37,3007 05314 TC TASKOVER
036695,000413:
036696,000414: # # Page 832
036697,000415: # ************************************* SERVICER *************************************************************
036698,000416:
036699,000417: 37,2000 SETLOC SERVICES
036700,000418: 37,2000 BANK
036701,000419:
036702,000420: 37,3010 E7,1425 EBANK= DVTOTAL
036703,000421:
036704,000422: 37,3010 COUNT* $$/SERV
036705,000423: 37,3010 34767 SERVICER CAF TWO
036706,000424: 37,3011 00004 INHINT
036707,000425: 37,3012 54070 PIPCHECK TS RUPTREG1
036708,000426:
036709,000427: 37,3013 60000 DOUBLE
036710,000428: 37,3014 50000 INDEX A
036711,000429: 37,3015 11314 CCS DELVX
036712,000430: 37,3016 03020 TC +2
036713,000431: 37,3017 03026 TC PIPLOOP
036714,000432:
036715,000433: 37,3020 63152 AD -MAXDELV # DO PIPA-SATURATION TEST BEFORE
036716,000434: 37,3021 00006 EXTEND
036717,000435: 37,3022 63026 BZMF PIPLOOP # COMPENSATION.
036718,000436:
036719,000437: 37,3023 05671 TC ALARM
036720,000438: 37,3024 00205 OCT 00205 # SATURATED-PIPA ALARM ***CHANGE LATER
036721,000439: 37,3025 03056 TC AVERAGEG
036722,000440:
036723,000441: 37,3026 10070 PIPLOOP CCS RUPTREG1
036724,000442: 37,3027 13012 TCF PIPCHECK
036725,000443:
036726,000444: 37,3030 05402 TC PHASCHNG # RESTART REREADAC + SERVICER
036727,000445: 37,3031 16035 OCT 16035
036728,000446: 37,3032 20000 OCT 20000
036729,000447: 37,3033 01,2250 5P3SPT9 = 5.3SPOT
036730,000448: 37,3033 E7,1425 EBANK= DVTOTAL
036731,000449:
036732,000450: 37,3033 03037 76067 2CADR DVTOTUP
036733,000451:
036734,000452: 37,3035 04636 TC BANKCALL # PIPA COMPENSATION CALL
036735,000453: 37,3036 15276 CADR 1/PIPA
036736,000454:
036737,000455: 37,3037 06006 DVTOTUP TC INTPRET
036738,000456: # THE FOLLOWING SECTION DECREMENTS 'TTE' DURING P61
036739,000457: # THROUGH P63 ONLY. (IE: IN P60'S IF DRAG< 0.05 G)
036740,000458: 37,3040 71214 TICKTTE BON DLOAD # .05GSW IS SET =1 IN FRESH START.
036741,000459: 37,3041 03314 .05GSW # FLAG IS ASSIGNED ONLY TO P61-P67.
036742,000460: 37,3042 77047 +5 # DO NOT COUNT 'TTE' IF DRAG > 0.05 G.
036743,000461: 37,3043 03735 TTE2
036744,000462: 37,3044 77615 DAD
036745,000463: # # Page 833
036746,000464: 37,3045 01105 PIPTIME1 # DECREMENT 'TTE' BY 'PIPTIME1'. (BY 2 SEC)
036747,000465: 37,3046 03727 STORE TTE # NEGATIVE AS IN A COUNTDOWN.
036748,000466: # DURING P61 THRU P63, 'TTE' IS DECREMENTED
036749,000467: # AND IS ON CALL AND ON ENTRY DNLIST.
036750,000468:
036751,000469: 37,3047 51575 VLOAD ABVAL # GET ABS VALUE OF DELV
036752,000470: 37,3050 01315 DELV
036753,000471: 37,3051 77405 DMP EXIT
036754,000472: 37,3052 37365 KPIP1 # SCALE AT 2(+7)
036755,000473:
036756,000474: 37,3053 00006 EXTEND
036757,000475: 37,3054 30155 DCA MPAC
036758,000476: 37,3055 21426 DAS DVTOTAL # ACCUMULATE DVTOTAL
036759,000477: 37,3056 05402 AVERAGEG TC PHASCHNG
036760,000478: 37,3057 10035 OCT 10035
036761,000479:
036762,000480: 37,3060 01,2250 5P3SPT10 = 5.3SPOT
036763,000481: 37,3060 06006 TC INTPRET
036764,000482: 37,3061 77624 CALL
036765,000483: 37,3062 77336 CALCRVG
036766,000484: 37,3063 77776 EXIT
036767,000485:
036768,000486: 37,3064 05402 TC PHASCHNG
036769,000487: 37,3065 10035 OCT 10035
036770,000488:
036771,000489: 37,3066 01,2250 5P3SPT11 = 5.3SPOT
036772,000490: 37,3066 34125 CAF OCT31 # COPY RN1,VN1,GOT102,GOBL1/2,PIPTIME1
036773,000491: 37,3067 05607 TC GENTRAN # INTO RN, VN, GDT/12, GOBL/2,PIPTIME
036774,000492: 37,3070 01070 ADRES RN1
036775,000493: 37,3071 01027 ADRES RN
036776,000494: 37,3072 00003 ENDCOPY RELINT
036777,000495: 37,3073 05402 TC PHASCHNG
036778,000496: 37,3074 10035 OCT 10035
036779,000497:
036780,000498: 37,3075 01,2250 5P3SPT12 = 5.3SPOT
036781,000499: 37,3075 00006 EXTEND
036782,000500: 37,3076 31062 DCA AVGEXIT
036783,000501: 37,3077 52006 DXCH Z # AVERAGEG EXIT
036784,000502:
036785,000503: 37,3100 31044 AVGEND CA PIPTIME +1 # FINAL AVERAGE G EXIT
036786,000504: 37,3101 55277 TS OLDBT1 # SET UP FREE FALL GYRO COMPENSATION
036787,000505:
036788,000506: 37,3102 05547 TC UPFLAG # SET DRIFTFLG
036789,000507: 37,3103 00036 ADRES DRIFTFLG # BIT 15 FLAG 2
036790,000508: 37,3104 05362 TC 2PHSCHNG
036791,000509: 37,3105 00005 OCT 5 # GROUP 5 OFF
036792,000510: 37,3106 05022 OCT 05022 # GROUP 2 ON FOR AVETOMID
036793,000511: 37,3107 20000 OCT 20000
036794,000512:
036795,000513: 37,3110 06006 TC INTPRET
036796,000514: # # Page 834
036797,000515: 37,3111 77624 CALL
036798,000516: 37,3112 73677 AVETOMID # CONVERT STATE VECTOR TO REFERENCE SCALE.
036799,000517: 37,3113 77776 EXIT
036800,000518:
036801,000519: 37,3114 04636 TC BANKCALL
036802,000520: 37,3115 17231 CADR PIPFREE
036803,000521:
036804,000522: 37,3116 44760 CS BIT9
036805,000523: 37,3117 55722 TS MRKBUF1 # INVALIDATE MARK BUFFER
036806,000524: 37,3120 00006 EXTEND
036807,000525: 37,3121 03011 WAND DSALMOUT
036808,000526:
036809,000527: 37,3122 05561 TC DOWNFLAG
036810,000528: 37,3123 00147 ADRES CM/DSTBY
036811,000529:
036812,000530: 37,3124 05561 TC DOWNFLAG
036813,000531: 37,3125 00162 ADRES V37FLAG
036814,000532:
036815,000533: 37,3126 30104 CA FLAGWRD8
036816,000534: 37,3127 74760 MASK UTBIT
036817,000535: 37,3130 10000 CCS A
036818,000536: 37,3131 13146 TCF UTAVEND
036819,000537:
036820,000538: 37,3132 34762 CAF RNDVZBIT # RESTORE GROUP 1 + 2 IF P20 IS RUNNING
036821,000539: 37,3133 70074 MASK FLAGWRD0
036822,000540: 37,3134 00006 EXTEND
036823,000541: 37,3135 13141 BZF +4
036824,000542:
036825,000543: 37,3136 05362 TC 2PHSCHNG
036826,000544: 37,3137 00111 OCT 111 # 1.11SPOT
036827,000545: 37,3140 00132 OCT 132 # 2.13SPOT
036828,000546:
036829,000547: 37,3141 01,2025 1P11SPT7 = 1.11SPOT
036830,000548: 37,3141 01,2047 2P13SPT2 = 2.13SPOT
036831,000549: 37,3141 04655 ENDAVEG TC POSTJUMP
036832,000550: 37,3142 10162 CADR CANV37
036833,000551:
036834,000552: 37,3143 05402 SERVEXIT TC PHASCHNG
036835,000553: 37,3144 00035 OCT 00035 # A, 5.3 = REREADAC (ONLY)
036836,000554:
036837,000555: 37,3145 01,2250 5P3SPT13 = 5.3SPOT
036838,000556: 37,3145 15205 TCF ENDOFJOB
036839,000557:
036840,000558: 37,3146 05362 UTAVEND TC 2PHSCHNG
036841,000559: 37,3147 00111 OCT 111
036842,000560: 37,3150 00002 OCT 2
036843,000561:
036844,000562: 37,3151 01,2025 1P11SPT8 = 1.11SPOT
036845,000563: 37,3151 13141 TCF ENDAVEG
036846,000564: # # Page 835
036847,000565: 37,3152 4775 DVTHRUSH EQUALS ELEVEN # 15 PERCENT OF 2SEC PIPA ACCUMULATION,
036848,000566: # FOR 503-FULL CSM/LEM....DELV SC.AT
036849,000567: # 5.85 CM/SEC.
036850,000568:
036851,000569: 37,3152 63401 -MAXDELV DEC -6398 B-14 # 3200 PPS FOR 2 SEC CCS TAKES 1
036852,000570:
036853,000571: 37,3153 00170 JTAGTIME DEC 120 B-14 # = 1 SEC + T CDU, T CDU = .1 SEC
036854,000572:
036855,000573: # SHOULD BE 2-4 SECS FOR NO START
036856,000574: # 6-8 SECS FOR FAILURE
036857,000575:
036858,000576: # # Page 836
036859,000577: # NORMLIZE PERFORMS THE INITIALIZATION REQUIRED PRIOR TO THE FIRST ENTRY TO AVERAGEG, AND SCALES RN SO THAT IT
036860,000578: # HAS 1 LEADING BINARY ZERO. IN MOST MISSIONS, RN WILL BE SCALED AT 2(+29), BUT IN THE 206 MISSION, RN WILL BE
036861,000579: # SCALED AT 2(+24) M.
036862,000580:
036863,000581: 37,3154 34776 NORMLIZE CAF THIRTEEN # SET UP TO COPY 14 REGS- RN1,VN1,PIPTIME1
036864,000582: 37,3155 05607 TC GENTRAN # INTO RN,VN,PIPTIME
036865,000583: 37,3156 01070 ADRES RN1 # FROM HERE
036866,000584: 37,3157 01027 ADRES RN # TO HERE
036867,000585:
036868,000586: 37,3160 00003 RELINT
036869,000587: 37,3161 06006 TC INTPRET
036870,000588: 37,3162 45175 VLOAD CALL # LOAD RN FOR CALCGRAV
036871,000589: 37,3163 01030 RN
036872,000590: 37,3164 77270 CALCGRAV # INITIALIZE UNITR RMAG GDT1
036873,000591:
036874,000592: 37,3165 25046 STOVL GDT/2
036875,000593: 37,3166 01115 GOBL1/2
036876,000594: 37,3167 35054 STCALL GOBL/2
036877,000595: 37,3170 31263 ENDPLAC
036878,000596:
036879,000597: # # Page 837
036880,000598: # ***** PIPA READER *****
036881,000599:
036882,000600: # MOD NO. 00 BY D. LICKLY DEC. 9 1966
036883,000601:
036884,000602: # FUNCTIONAL DESCRIPTION
036885,000603:
036886,000604: # SUBROUTINE TO READ PIPA COUNTERS, TRYING TO BE VERY CAREFUL SO THAT IT WILL BE RESTARTABLE.
036887,000605: # PIPA READINGS ARE STORED IN THE VECTOR DELV. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS THE PIPA READING,
036888,000606: # RESTARTS BEGIN AT REREADAC.
036889,000607:
036890,000608: # AT THE END OF THE PIPA READER THE CDUS ARE READ AND STORED AS A
036891,000609: # VECTOR IN CDUTEMP. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS
036892,000610: # THE CDU READING IN 2S COMP IN THE ORDER CDUX,Y,Z. THE THRUST
036893,000611: # VECTOR ESTIMATOR IN FINDCDUD REQUIRES THE CDUS BE READ AT PIPTIME.
036894,000612:
036895,000613: # CALLING SEQUENCE AND EXIT
036896,000614:
036897,000615: # CALL VIA TC, ISWCALL, ETC.
036898,000616:
036899,000617: # EXIT IS VIA Q.
036900,000618:
036901,000619: # INPUT
036902,000620:
036903,000621: # INPUT IS THROUGH THE COUNTERS PIPAX, PIPAY, PIPAZ, AND TIME2.
036904,000622:
036905,000623: # OUTPUT
036906,000624:
036907,000625: # HIGH ORDER COMPONENTS OF THE VECTOR DELV CONTAIN THE PIPA READINGS.
036908,000626: # PIPTIME CONTAINS TIME OF PIPA READING.
036909,000627:
036910,000628: # DEBRIS (ERASABLE LOCATIONS DESTROYED BY THE PROGRAM)
036911,000629:
036912,000630: # LOW ORDER DELV'S ARE ZEROED FOR TM INDICATION.
036913,000631: # TEMX TEMY TEMZ PIPAGE
036914,000632:
036915,000633: 37,3171 00006 PIPASR EXTEND
036916,000634: 37,3172 30025 DCA TIME2
036917,000635: 37,3173 53105 DXCH PIPTIME1 # CURRENT TIME POSITIVE VALUE
036918,000636: 37,3174 44772 CS ZERO # INITIALIZAE THESE AT NEG ZERO.
036919,000637: 37,3175 55063 TS TEMX
036920,000638: 37,3176 55064 TS TEMY
036921,000639: 37,3177 55065 TS TEMZ
036922,000640: # # Page 838
036923,000641: 37,3200 34772 CA ZERO
036924,000642: 37,3201 55320 TS DELVZ # OTHER DELVS OK INCLUDING LOW ORDER
036925,000643: 37,3202 55316 TS DELVY
036926,000644:
036927,000645: 37,3203 55315 TS DELVX +1 # LOW ORDER DELV'S ARE ZEROED FOR TM: THUS
036928,000646: 37,3204 55317 TS DELVY +1 # IF DNLNK'D LOW ORDER DELVS ARE NZ, THEY
036929,000647: 37,3205 55321 TS DELVZ +1 # CONTAIN PROPER COMPENSATION. IF=0, THEN
036930,000648: # THE TM VALUES ARE BEFORE COMPENSATION.
036931,000649:
036932,000650: 37,3206 55067 TS PIPAGE # SHOW PIPA READING IN PROGRESS
036933,000651:
036934,000652: 37,3207 00006 REPIP1 EXTEND
036935,000653: 37,3210 40040 DCS PIPAX # X AND Y PIPS READ
036936,000654: 37,3211 53064 DXCH TEMX
036937,000655: 37,3212 52040 DXCH PIPAX # PIPAS SET TO NEG ZERO AS READ.
036938,000656: 37,3213 55314 TS DELVX
036939,000657: 37,3214 23316 LXCH DELVY
036940,000658:
036941,000659: 37,3215 40041 REPIP3 CS PIPAZ # REPEAT PROCESS FOR Z PIP
036942,000660: 37,3216 57065 XCH TEMZ
036943,000661: 37,3217 56041 XCH PIPAZ
036944,000662: 37,3220 55320 DODELVZ TS DELVZ
036945,000663:
036946,000664: 37,3221 00002 TC Q
036947,000665:
036948,000666: 37,3222 E6,1661 EBANK= AOG
036949,000667:
036950,000668: 37,3222 11166 REREADAC CCS PHASE5 # LAST PASS CHECK
036951,000669: 37,3223 13225 TCF +2
036952,000670: 37,3224 15314 TCF TASKOVER
036953,000671:
036954,000672: 37,3225 37652 CAF PRIO31 # RESTART MAY HAVE WIPED OUT LASTBIAS, AN
036955,000673: 37,3226 55277 TS 1/PIPADT # UNPROTECTED NOVAC FROM PREREAD,
036956,000674: # WHICH SET(S) UP 1/PIPADT (THUSLY)
036957,000675: # FOR NON-COASTING COMPENSATION....BE
036958,000676: # SURE 1/PIPADT IS AOK. (PRIO31 IS
036959,000677: # 2.0SEC SC.AT B+8CS)
036960,000678:
036961,000679: 37,3227 11067 CCS PIPAGE
036962,000680: 37,3230 12652 TCF READACCS # PIP READING NOT STARTED. GO TO BEGINNING
036963,000681:
036964,000682: 37,3231 33267 CAF DONEADR # SET UP RETURN FROM PIPASR
036965,000683: 37,3232 54002 TS Q
036966,000684:
036967,000685: 37,3233 11320 CCS DELVZ
036968,000686: 37,3234 00002 TC Q # Z DONE, GO DO CDUS
036969,000687: 37,3235 13240 TCF +3 # Z NOT DONE, CHECK Y.
036970,000688: 37,3236 00002 TC Q
036971,000689: 37,3237 00002 TC Q
036972,000690: # # Page 839
036973,000691: 37,3240 22007 ZL
036974,000692: 37,3241 11316 CCS DELVY
036975,000693: 37,3242 13245 TCF +3
036976,000694: 37,3243 13254 TCF CHKTEMX # Y NOT DONE, CHECK X.
036977,000695: 37,3244 13245 TCF +1
036978,000696: 37,3245 22041 LXCH PIPAZ # Y DONE, ZERO Z PIP.
036979,000697:
036980,000698: 37,3246 11065 CCS TEMZ
036981,000699: 37,3247 41065 CS TEMZ # TEMZ NOT = -0, CONTAINS -PIPAZ VALUE.
036982,000700: 37,3250 13220 TCF DODELVZ
036983,000701: 37,3251 13247 TCF -2
036984,000702: 37,3252 23320 LXCH DELVZ # TEMZ = -0, L HAS ZPIP VALUE.
036985,000703: 37,3253 00002 TC Q
036986,000704:
036987,000705: 37,3254 11063 CHKTEMX CCS TEMX # HAS THIS CHANGED
036988,000706: 37,3255 41063 CS TEMX # YES
036989,000707: 37,3256 13261 TCF +3 # YES
036990,000708: 37,3257 13255 TCF -2 # YES
036991,000709: 37,3260 13207 TCF REPIP1 # NO
036992,000710: 37,3261 55314 TS DELVX
036993,000711:
036994,000712: 37,3262 41064 CS TEMY
036995,000713: 37,3263 55316 TS DELVY
036996,000714:
036997,000715: 37,3264 44772 CS ZERO # ZERO X AND Y PIPS
036998,000716: 37,3265 52040 DXCH PIPAX # L STILL ZERO FROM ABOVE
036999,000717:
037000,000718: 37,3266 13215 TCF REPIP3
037001,000719:
037002,000720: 37,3267 02653 DONEADR GENADR PIPSDONE
037003,000721:
037004,000722: # # Page 840
037005,000723: # ****************************************************************************************************************
037006,000724:
037007,000725: # ROUTINE CALCRVG INTEGRATES THE EQUATIONS OF MOTION BY AVERAGING THE THRUST AND GRAVITATIONAL
037008,000726: # ACCELERATIONS OVER A TIME INTERVAL OF 2 SECONDS.
037009,000727:
037010,000728: # FOR THE EARTH-CENTERED GRAVITATIONAL FIELD, THE PERTURBATION DUE TO OBLATENESS IS COMPUTED TO THE FIRST
037011,000729: # HARMONIC COEFFICIENT J.
037012,000730:
037013,000731: # ROUTINE CALCRVG REQUIRES...
037014,000732: # 1) THRUST ACCELERATION INCREMENTS IN DELV SCALED SAME AS PIPAX,Y,Z IN STABLE MEMBER COORDS.
037015,000733: # 2) VN SCALED 2(+7) M/CS IN REFERENCE COORDS.
037016,000734: # 3) RN SCALED AT 2(+29) METERS IN REFERENCE COORDS.
037017,000735: # 4) UNITW THE EARTH'S UNIT ROTATIONAL VECTOR (SCALED AS A FULL UNIT VECTOR) IN REFERENCE COORDS.
037018,000736:
037019,000737: # IT LEAVES RN1 UPDATED (SCALED AT 2(+29)M, VN1 (SCALED AT 2(+7)M/CS), AND GDT1/2 (SCALED AT 2(+7)M/CS). ALSO HALF
037020,000738: # UNIT VECTOR UNITR, RMAG IN 36D SCALED AT 2(+29)M, R MAG SQ. IN 34D SCALED AT 2(+58) M SQ.
037021,000739:
037022,000740: 37,3270 41456 CALCGRAV UNIT PUSH # ENTER WITH RN IN MPAC
037023,000741: 37,3271 01756 STORE UNITR
037024,000742: 37,3272 67340 LXC,1 SLOAD
037025,000743: 37,3273 03746 RTX2
037026,000744: 37,3274 00047 X1
037027,000745: 37,3275 77240 BMN VLOAD
037028,000746: 37,3276 77324 ITISMOON
037029,000747: 37,3277 41441 DOT PUSH
037030,000748: 37,3300 01712 UNITW
037031,000749: 37,3301 44316 DSQ BDSU
037032,000750: 37,3302 37375 DP1/20
037033,000751: 37,3303 56325 PDDL DDV
037034,000752: 37,3304 37377 RESQ
037035,000753: 37,3305 00043 34D # (RN)SQ
037036,000754: 37,3306 00041 STORE 32D # TEMP FOR (RE/RN)SQ
037037,000755: 37,3307 41205 DMP DMP
037038,000756: 37,3310 37401 20J
037039,000757: 37,3311 65361 VXSC PDDL
037040,000758: 37,3312 01756 UNITR
037041,000759: 37,3313 41205 DMP DMP
037042,000760: 37,3314 37403 2J
037043,000761: 37,3315 00041 32D
037044,000762: 37,3316 53361 VXSC VAD
037045,000763: 37,3317 01712 UNITW
037046,000764: 37,3320 77626 STADR
037047,000765: 37,3321 76662 STORE GOBL1/2
037048,000766: 37,3322 41455 VAD PUSH
037049,000767: 37,3323 01756 UNITR
037050,000768: 37,3324 63545 ITISMOON DLOAD DSQ
037051,000769: 37,3325 00045 36D
037052,000770: 37,3326 77701 NORM
037053,000771: 37,3327 00050 X2
037054,000772: # # Page 841
037055,000773: 37,3330 53663 BDDV* SLR*
037056,000774: 37,3331 37367 -MUDT(E),1
037057,000775: 37,3332 56623 0 -21D,2
037058,000776: 37,3333 45561 VXSC STADR
037059,000777: 37,3334 76670 STORE GDT1/2 # SCALED AT 2(+7) M/CS
037060,000778: 37,3335 77616 RVQ
037061,000779:
037062,000780: 37,3336 74375 CALCRVG VLOAD VXSC
037063,000781: 37,3337 01315 DELV
037064,000782: 37,3340 37365 KPIP1
037065,000783: 37,3341 76505 VXM VSL1
037066,000784: 37,3342 01734 REFSMMAT
037067,000785: 37,3343 03432 STORE DELVREF # DELV IN REF COORDS AT 2(+7)
037068,000786: 37,3344 41562 VSR1 PUSH
037069,000787: 37,3345 41455 VAD PUSH # (DV-OLDGDT)/2 TO PD SCALED AT 2(+7)M/CS
037070,000788: 37,3346 01046 GDT/2
037071,000789: 37,3347 74255 VAD VXSC
037072,000790: 37,3350 01036 VN
037073,000791: 37,3351 37373 2SEC(22)
037074,000792: 37,3352 44055 VAD STQ
037075,000793: 37,3353 01030 RN
037076,000794: 37,3354 00037 31D
037077,000795: 37,3355 35071 STCALL RN1 # TEMP STORAGE OF RN SCALED 2(+29)M
037078,000796: 37,3356 77270 CALCGRAV
037079,000797:
037080,000798: 37,3357 53255 VAD VAD
037081,000799: 37,3360 77655 VAD
037082,000800: 37,3361 01036 VN
037083,000801: 37,3362 35077 STCALL VN1 # TEMP STORAGE OF VN SCALED 2(+7) M/CS.
037084,000802: 37,3363 00037 31D
037085,000803:
037086,000804: 37,3364 02312 32537 KPIP1 2DEC 0.074880 # 207 DELV SCALING. 1 PULSE = 5.85 CM/SEC.
037087,000805:
037088,000806: 37,3366 61377 55754 -MUDT(E) 2DEC* -7.9720645 E+12 B-44*
037089,000807:
037090,000808: 37,3370 77644 65556 -MUDT(M) 2DEC* -9.805556 E+10 B-44*
037091,000809:
037092,000810: 37,3372 00000 31000 2SEC(22) 2DEC 200 B-22
037093,000811:
037094,000812: 37,3374 01463 06315 DP1/20 2DEC 0.05
037095,000813:
037096,000814: 37,3376 00001 05000 RESQ 2DEC* 40.6809913 E12 B-59*
037097,000815:
037098,000816: 37,3400 02047 36332 20J 2DEC* 3.24692010 E-2 B1*
037099,000817:
037100,000818: 37,3402 00152 14511 2J 2DEC* 3.24692010 E-3 B1*
037101,000819:
End of include-file SERVICER207.agc. Parent file is MAIN.agc