Source Code
036275,000001: # Copyright: Public domain.
036276,000002: # Filename: SERVICER207.agc
036277,000003: # Purpose: Part of the source code for Comanche, build 055. It
036278,000004: # is part of the source code for the Command Module's
036279,000005: # (CM) Apollo Guidance Computer (AGC), Apollo 11.
036280,000006: # Assembler: yaYUL
036281,000007: # Reference: pp. 819-836
036282,000008: # Contact: Ron Burkey <info@sandroid.org>
036283,000009: # Website: http://www.ibiblio.org/apollo.
036284,000010: # Mod history: 2009-05-12 RSB Adapted from Colossus249 file of the same
036285,000011: # name and Comanche 055 page images.
036286,000012:
036287,000013: # The contents of the "Comanche055" files, in general, are transcribed
036288,000014: # from scanned documents.
036289,000015:
036290,000016: # Assemble revision 055 of AGC program Comanche by NASA
036291,000017: # 2021113-051. April 1, 1969.
036292,000018:
036293,000019: # This AGC program shall also be referred to as Colossus 2A
036294,000020:
036295,000021: # Prepared by
036296,000022: # Massachusetts Institute of Technology
036297,000023: # 75 Cambridge Parkway
036298,000024: # Cambridge, Massachusetts
036299,000025:
036300,000026: # under NASA contract NAS 9-4065.
036301,000027:
036302,000028: # Refer directly to the online document mentioned above for further
036303,000029: # information. Please report any errors to info@sandroid.org.
036304,000030:
036305,000031: # Page 819
036306,000032: # SERVICER207
036307,000033:
036308,000034: # PROGRAM NAME: PREREAD, READACCS, SERVICER, AVERAGE G.
036309,000035: # MOD NO. 00 BY M. HAMILTON DEC. 12, 1966
036310,000036:
036311,000037: # FUNCTIONAL DESCRIPTION
036312,000038:
036313,000039: # THE ROUTINES DESCRIBED BELOW ARE USED TO CALCULATE VALUES OF RN, VN, AND GDT/2 DURING ACCELERATED FLIGHT.
036314,000040: # THE SEVERAL ROUTINES COMPRISE A PACKAGE AND ARE NOT MEANT TO BE USED AS SEPARATE SUBROUTINES.
036315,000041:
036316,000042: # GENERAL REFERENCES TO SERVICER OR AVERAGE G ARE UNDERSTOOD TO REFER TO THE ENTIRE SET OF ROUTINES INCLUDING
036317,000043: # RRADACCS, SERVICER, AVERAGE G, INTEREAD, SMOOTHER, AND ANY ADDITIONAL ROUTINES ATTACHED AT AVGEXIT (SEE BELOW).
036318,000044:
036319,000045: # PROGRAMS INITIATING SERVICER ARE REQUIRED TO MAKE A WAITLIST CALL FOR PREREAD (OR, IF LIFTOFF, FOR BIBIBIAS)
036320,000046: # AT 2 SECONDS BEFORE THE FIRST AVERAGE G UPDATE IN ORDER TO INITIALIZE THE SEQUENCE, WHICH WILL RECUR EVERY
036321,000047: # 2 SECONDS FROM THAT TIME ON AS LONG AS AVEGFLAG REMAINS SET.
036322,000048:
036323,000049: # THE USE OF ERASABLE AVGEXIT ALLOWS VARIOUS ROUTINES TO BE PERFORMED AS PART OF THE NORMAL CYCLE (SEE
036324,000050: # EXPLANATION OF AVGEXIT BELOW).
036325,000051:
036326,000052: # DESCRIPTIONS OF INDIVIDUAL ROUTINES FOLLOW.
036327,000053:
036328,000054: # PREREAD
036329,000055:
036330,000056: # PREVIOUSLY EXTRAPOLATED VALUES COPIED FROM RN1, VN1, AND PIPTIME1 INTO RN, VN, AND PIPTIME.
036331,000057: # LASTBIAS JOB SCHEDULED.
036332,000058: # PIPS READ AND CLEARED VIA PIPASR SUBROUTINE.
036333,000059: # AVERAGE G FLAG SET ON.
036334,000060: # DRIFT FLAG SET OFF.
036335,000061: # V37 FLAG SET ON.
036336,000062: # INITIALIZATION OF 1) THRUST MONITOR (DVMON) -- DVCNTR SET TO ONE.
036337,000063: # 2) TOTAL ACCUMULATED DELV VALUE (DVTOTAL) -- SET TO ZERO.
036338,000064: # 3) AXIS VECTOR (AXIS) -- SET TO (.5,0,0).
036339,000065: # NORMLIZE JOB SCHEDULED.
036340,000066: # READACCS TASH CALLED IN 2 SECONDS.
036341,000067:
036342,000068: # NORMLIZE
036343,000069:
036344,000070: # GDT/2 INITIALIZED VIA CALCGRAV ROUTINE.
036345,000071:
036346,000072: # READACCS
036347,000073:
036348,000074: # IF ONMON FLAG SET QUIKREAD ROUTINE IS PERFORMED BEFORE PIPASR ZEROS THE PIPA REGISTERS, AND THE 1/2 SEC
036349,000075: # ONMONITOR LOOP IS INITIATED TO PROVIDE DOWNLINK INFORMATION DURING ENTRY.
036350,000076: # PIPS READ AND CLEARED BY PIPASR SUBROUTINE.
036351,000077: # IF CM/DSTBY IS ON, ENTRY VARIABLES INITIALIZED AND SETJTAG TASK CALLED.
036352,000078: # Page 820
036353,000079:
036354,000080: # SERVICER207
036355,000081:
036356,000082: # IF AVERAGEG FLAG ON READACCS CALLED TO RECYCLE IN 2 SECONDS.
036357,000083: # IF AVERAGEG FLAG OFF AVERAGE G EXIT (AVGEXIT) SET TO 2CADR AVGEND FOR FINAL PASS.
036358,000084: # SERVICER JOB SCHEDULED.
036359,000085: # TEST CONNECTOR OUTBIT TURNED ON.
036360,000086:
036361,000087: # ONMNITOR
036362,000088:
036363,000089: # A SEQUENCE OF THREE PASSES THROUGH QUICREAD FOLLOWING A CALL TO READACCS WITH ONMONFLG SET AT 1/2
036364,000090: # SEC INTERVALS. INTERVALS ARE COUNTED OUT BY PIPCTR, INITIALIZED AT 3 BY READACCS.
036365,000091:
036366,000092: # QUIKREAD
036367,000093:
036368,000094: # READS CURRENT PIPS INTO X,Y,ZPIPBUF. READS OLD X,Y,ZPIPBUF INTO X,Y,ZOLDBUF. VALUES ARE SENT TO
036369,000095: # DOWNLIST DURING ENTRY.
036370,000096:
036371,000097: # SERVICER
036372,000098:
036373,000099: # DELV VALUES CHECKED TO DETECT RUNAWAY PIP:
036374,000100: # IF BAD PIP 1) ALARM SENT.
036375,000101: # 2) COMPENSATION, DVTOTAL ACCUMULATION, AND DVMON BYPASSED. CONTROL
036376,000102: # TRANSFERRED TO AVERAGE G.
036377,000103: # PIPS COMPENSATED VIA 1/PIPA SUBROUTINE.
036378,000104: # DVTOTAL INCREMENTED BY ABSOLUTE VALUE OF DELV.
036379,000105: # THRUST MONITOR (DVMON) PERFORMED UNLESS IDLE FLAG IS ON.
036380,000106: # CONTROL TRANSFERRED TO AVERAGE Q.
036381,000107:
036382,000108: # DVMON
036383,000109:
036384,000110: # THRESHOLD VALUD (PLACED IN DVTHRUSH BY USER) CHECKED AGAINST ABSOLUTE VALUE OF DELV TO CHECK
036385,000111: # THRUST LEVEL.
036386,000112:
036387,000113: # IF THRUST 1) ULLAGE OFF ROUTINE PERFORMED.
036388,000114: # 2) STEERING FLAG TURNED ON AT FIRST DETECTION OF THRUST
036389,000115: # 3) CONTROL TRANSFERRED TO AVERAGE G.
036390,000116: # IF NO THRUST 1) ON FIRST PASS THROUGH MONITOR, CONTROL TRANSFERRED TO AVERAGE G.
036391,000117: # 2) ON SUBSEQUENT PASSES, CONTROL TRANSFERRED TO ENGINE FAIL ROUTINE IF THRUST
036392,000118: # HAS FAILED FOR 3 CONSECUTIVE PASSES.
036393,000119:
036394,000120: # ENGINE FAIL
036395,000121:
036396,000122: # ENGFAIL1 TASK CALLED IN 2.5 SECONDS. THIS WILL RETURN CONTROL TO TIG-5 SO THAT THE IGNITION
036397,000123: # SEQUENCE MAY BE REPEATED.
036398,000124: # ENGINOF3 PERFORMED.
036399,000125: # DAP SET UP FOR RCS.
036400,000126: #
036401,000127: # AVERAGE G
036402,000128: # Page 821
036403,000129: # RN1, VN1, GDT1/2 CALCULATED VIA CALCRVG ROUTINE BY UPDATING RN, VN WITH DELV AND AN AVERAGED VALUE
036404,000130: # OF GDT/2
036405,000131: # RN1, VN1, GDT1/2, PIPTIME1 COPIED INTO RN, VN, GDT/2, PIPTIME FOR RESTART PROTECTION.
036406,000132: # CONTROL TRANSFERRED TO ADDRESS SPECIFIED BY USER (OR BY READACCS FOR LAST PASS) IN AVGEXIT.
036407,000133: # LAST PASS (AVGEND) 1) FREE FALL GYRO COMPENSATION SET UP.
036408,000134: # 2) DRIFT FLAG TURNED ON.
036409,000135: # 3) STATE VECTOR TRANSFERRED VIA AVETOMID ROUTINE.
036410,000136: # 4) ONMONITOR FLAG RESET.
036411,000137: # 5) V37 FLAG RESET.
036412,000138: # 6) TEST CONNECTOR OUTBIT RESET.
036413,000139: # 7) CONTROL TRANSFERRED TO CANV37 TO CONTINUE MM CHANGE ROUTINE (R00).
036414,000140:
036415,000141: # CALLING SEQUENCE
036416,000142:
036417,000143: # PREREAD ENTERED DIRECTLY FROM TIG-30 VIA POSTJUMP.
036418,000144: # READACCS CALLED AS WAITLIST TASK.
036419,000145:
036420,000146: # SUBROUTINES CALLED
036421,000147:
036422,000148: # UTILITY ROUTINES: PHASCHNG FLAGUP FLAGDOWN NOVAC FINDVAC WAITLIST ALARM NEWPHASE 2PHSCHNG
036423,000149:
036424,000150: # OTHER: PIPASR 1/PIPA CALCGRAV CALCRVG AVETOMID
036425,000151:
036426,000152: # NORMAL EXIT MODES
036427,000153:
036428,000154: # ENDOFJOB TASKOVER CANV37
036429,000155:
036430,000156: # AVGEXIT: THIS IS A DOUBLE PRECISION ERASABLE LOCATION BY WHICH CONTROL IS TRANSFERRED AT THE END
036431,000157: # OF EACH CYCLE OF AVERAGE G.
036432,000158: # THE 2CADR OF A ROUTINE TO BE PERFORMED AT THAT TIME (E.G., STEERING EQUATIONS TO BE REPORTED
036433,000159: # AT 2 SECOND INTERVALS) MAY BE SET BY THE USER INTO AVGEXIT.
036434,000160: # ALL SUCH ROUTINES SHOULD RETURN TO SERVEXIT, WHICH IS THE NORMAL EXIT FROM AVERAGE G.
036435,000161:
036436,000162: # SERVEXIT: DOES A PHASE CHANGE FOR RESTART PROTECTION AND GOES TO ENDOFJOB.
036437,000163: # THE 2CADR OF SERVEXIT IS SET INTO AVGEXIT BY THE USERI F NO OTHER ROUTINE (SEE ABOVE).
036438,000164:
036439,000165: # AVGEND: LAST PASS OF AVERAGE G EXITS HERE, BYPASSING SPECIAL ROUTINE (SEE ABOVE UNDER READACCS).
036440,000166: # FINAL EXIT IS TO CANV37. F AVERAGE G).
036441,000167:
036442,000168: # OUTPUT
036443,000169:
036444,000170: # DVTOTAL(2) PIPTIME(2) XPIPBUF(2) YPIPBUF(2) ZPIPBUF(2)
036445,000171: # RN(6) REFERENCE COORD. SCALED AT 2(+29) M/CS
036446,000172: # VN(6) REFERENCE COORD. SCALED AT 2(+7) M/CS
036447,000173: # GDT/2(6) REFERENCE COORD. SCALED AT 2(+7) M/CS
036448,000174: # DELV(6) STABLE MEMB. COORD. SCALED AT 2(+14)*5.85*10(-4) M/CS (KPIP1 USED TO GET DV/2 AT 2(+7))
036449,000175: # Page 822
036450,000176: # DELVREF(6) REFERENCE COORD. SCALED AT 2(+7) M/CS
036451,000177:
036452,000178: # INITIALIZATION
036453,000179:
036454,000180: # ONMONITOR FLAG SET BY ENTRY TO SHOW PIPBUF VALUES REQUIRED.
036455,000181: # IDLE FLAG ON IF DVMON TO BE BYPASSED.
036456,000182: # DVTHRUSH SET TO APPROPRIATE VALUE FOR DVMON.
036457,000183: # AVGEXIT SET TO 2CADR OF ROUTINE, IF ANY, TO BE PERFORMED AFTER EACH CYCLE OF AVERAGE G. IF NO ROUTINE
036458,000184: # TO BE DONE, AVGEXIT SET TO SERVEXIT.
036459,000185: # VALUES NEEDED
036460,000186: # REFSMMAT
036461,000187: # UNITW: FULL UNIT VECTOR, IN REFERENCE COORD., OF EARTH'S ROTATIONAL VECTOR
036462,000188: # RN1, VN1, PIPTIME1: IN REFERENCE COORD., CONSISTENT WITH TIME OF EXECUTION OF PREREAD.
036463,000189:
036464,000190: # DEBRIS
036465,000191:
036466,000192: # CENTRALS A, L, Q
036467,000193: # OTHER INTERNAL: DVCNTR(1) PIPAGE(1) PIPCTR(1) AVGEXIT(2)
036468,000194: # EXTERNAL: ITEMP1(1) ITEMP2(1) RUPTREG1(1) TEMX(1) TEMY(1) TEMZ(1)
036469,000195: # USEFUL DEBRIS
036470,000196: # RN1(0) VN1(0) GDT1/0 PIPTIME1(2?)
036471,000197: # THESE LOCATIONS USED AS BUFFER STORAGE FOR NEWLY CALCULATED VALUES OF RN, VN, GDT/2,
036472,000198: # AND PIPTIME DURING PERFORMANCE OF SERVICER ROUTINES.
036473,000199: # UNITR: HALF UNIT VECTOR OF RN, REFERENCE COORD.
036474,000200: # RMAG SCALED AT 2(+58) IN 36D.
036475,000201: # RMAGSQ SCALED AT 2(+58) IN 34D.
036476,000202: # (RE/RMAG)SQ IN 32D
036477,000203:
036478,000204: 27,2671 BANK 27
036479,000205: 37,2000 SETLOC SERVICES
036480,000206: 37,2000 BANK
036481,000207:
036482,000208: 37,2701 E7,1431 EBANK= DVCNTR
036483,000209: # ********************* PREREAD ***************************************
036484,000210:
036485,000211: 37,2701 COUNT 37/SERV
036486,000212:
036487,000213: 37,2701 35073 PREREAD CAF PRIO21 # CALLER MUST PROTECT PREREAD
036488,000214: 37,2702 05134 TC NOVAC
036489,000215: 37,2703 E3,1460 EBANK= NBDX
036490,000216: 37,2703 03636 14063 2CADR LASTBIAS # DO LAST GYRO COMPENSATION IN FREE FALL
036491,000217:
036492,000218: # CALL-TO AND LASTBIAS ITSELF ARE NOT
036493,000219: # PROTECTED. REREADAC SETS 1/PIPADT
036494,000220: # TO 2.0 SECS IN CASE LASTBIAS LOST.
036495,000221: # (REDUNDANT IF LASTBIAS IS AOK.)
036496,000222: # Page 823
036497,000223: 37,2705 02722 REDO5.31 TC PREREAD1
036498,000224:
036499,000225: 37,2706 37667 CAF PRIO32
036500,000226: 37,2707 05147 TC FINDVAC # SET UP NORMLIZE JOB REQUIRED PRIOR TO
036501,000227: 37,2710 E7,1431 EBANK= DVCNTR # FIRST AVERAGE G PASS
036502,000228: 37,2710 03236 76067 2CADR NORMLIZE
036503,000229:
036504,000230: 37,2712 35042 CAF 2SECS
036505,000231: 37,2713 05245 TC WAITLIST
036506,000232: 37,2714 E6,1661 EBANK= AOG
036507,000233: 37,2714 02744 76066 2CADR READACCS
036508,000234:
036509,000235: 37,2716 45016 CS TWO
036510,000236: 37,2717 04114 TC NEWPHASE
036511,000237: 37,2720 00005 OCT 5
036512,000238:
036513,000239: 37,2721 15324 TCF TASKOVER
036514,000240:
036515,000241: 37,2722 00006 PREREAD1 EXTEND
036516,000242: 37,2723 22070 QXCH RUPTREG1
036517,000243:
036518,000244: 37,2724 03254 TC PIPASR # CLEAR + READ PIPS LAST TIME IN FREE FALL
036519,000245:
036520,000246: 37,2725 35017 CAF ONE # SET UP PIPAGE FOR REREADAC IN CASE A
036521,000247: 37,2726 55230 TS PIPAGE # RESTART OCCURS BEFORE READACCS
036522,000248:
036523,000249: 37,2727 40075 CS FLAGWRD1 # SET AVEG FLAG
036524,000250: 37,2730 75017 MASK BIT1
036525,000251: 37,2731 26075 ADS FLAGWRD1
036526,000252:
036527,000253: 37,2732 34777 CA POSMAX
036528,000254: 37,2733 70076 MASK FLAGWRD2
036529,000255: 37,2734 54076 TS FLAGWRD2 # KNOCK DOWN DRIFT FLAG
036530,000256:
036531,000257: 37,2735 40103 CS FLAGWRD7 # SET V37 FLAG
036532,000258: 37,2736 75012 MASK BIT6
036533,000259: 37,2737 26103 ADS FLAGWRD7
036534,000260:
036535,000261: 37,2740 35021 CAF ZERO
036536,000262: 37,2741 55425 TS DVTOTAL # CLEAR DVTOTAL
036537,000263: 37,2742 55426 TS DVTOTAL +1
036538,000264:
036539,000265: 37,2743 00070 TC RUPTREG1
036540,000266:
036541,000267: # Page 824
036542,000268: # ********************* READACCS ***************************************
036543,000269: 37,2744 E6,1661 EBANK= AOG
036544,000270: 37,2744 03254 READACCS TC PIPASR
036545,000271:
036546,000272: 37,2745 35022 PIPSDONE CAF FIVE
036547,000273: 37,2746 54001 TS L
036548,000274: 37,2747 40000 COM
036549,000275: 37,2750 52763 DXCH -PHASE5
036550,000276:
036551,000277: 37,2751 35017 REDO5.5 CAF ONE # SHOW PIPS HAVE BEEN READ
036552,000278: 37,2752 55230 TS PIPAGE
036553,000279:
036554,000280: 37,2753 35016 CA TWO # SET PIPCTR FOR ONMINTOR
036555,000281: 37,2754 55227 TS PIPCTR # AFTER ABOVE PHASCHNG
036556,000282:
036557,000283: 37,2755 40102 CS CM/FLAGS
036558,000284: 37,2756 75016 MASK BIT2 # CM/DSTBY
036559,000285: 37,2757 10000 CCS A
036560,000286: 37,2760 03033 TC CHEKAVEG
036561,000287:
036562,000288: 37,2761 41246 CS PIPTIME1 +1
036563,000289: 37,2762 55065 TS TBASE6 # FOR RESTARTS
036564,000290: 37,2763 00006 EXTEND # CONTINUE FOR ENTRY DAP
036565,000291: 37,2764 31662 DCA AOG
036566,000292: 37,2765 53670 DXCH AOG/PIP
036567,000293: 37,2766 31663 CA AMG
036568,000294: 37,2767 57671 XCH AMG/PIP
036569,000295: 37,2770 00006 EXTEND
036570,000296: 37,2771 31665 DCA ROLL/180
036571,000297: 37,2772 53673 DXCH ROLL/PIP
036572,000298: 37,2773 31666 CA BETA/180
036573,000299: 37,2774 57674 XCH BETA/PIP
036574,000300: 37,2775 30102 CA CM/FLAGS
036575,000301: 37,2776 75004 MASK BIT12 # CM/DAPARM 93D BIT12
036576,000302: 37,2777 00006 EXTEND # DURING ENTRY, WHEN RCS DAP IS INACTIVE,
036577,000303: 37,3000 13016 BZF NOSAVPIP # SAVE PIPAS EACH 0.5 SEC FOR TM.
036578,000304:
036579,000305: 37,3001 33066 CA 0.5SEC
036580,000306: 37,3002 05245 TC WAITLIST
036581,000307: 37,3003 E6,1533 EBANK= XPIPBUF
036582,000308: 37,3003 03067 76066 2CADR QUIKREAD
036583,000309:
036584,000310: # NO NEED TO RESTART PROTECT THIS.
036585,000311: 37,3005 31162 CA DELVX # SAVE PIPAS AS READ (BUT NOT COMPENSATED)
036586,000312: 37,3006 57533 XCH XPIPBUF
036587,000313: 37,3007 55536 TS XOLDBUF
036588,000314:
036589,000315: 37,3010 31164 CA DELVY
036590,000316: 37,3011 57534 XCH YPIPBUF
036591,000317: 37,3012 55537 TS YOLDBUF
036592,000318: # Page 825
036593,000319: 37,3013 31166 CA DELVZ
036594,000320: 37,3014 57535 XCH ZPIPBUF
036595,000321: 37,3015 55540 TS ZOLDBUF
036596,000322:
036597,000323: 37,3016 35022 NOSAVPIP CA FIVE
036598,000324: 37,3017 55725 TS CM/GYMDT
036599,000325:
036600,000326: 37,3020 33233 CA JTAGTIME # ACTIVATE CM/RCS AFTER PIPUP TO GO
036601,000327: # IN JTAGTIME +5 CS.
036602,000328: 37,3021 05245 TC WAITLIST
036603,000329: 37,3022 E6,1661 EBANK= AOG
036604,000330: 37,3022 03207 32066 2CADR SETJTAG
036605,000331:
036606,000332: 37,3024 46214 CS THREE # 1.3SPOT FOR SETJTAG
036607,000333: 37,3025 04114 TC NEWPHASE
036608,000334: 37,3026 00001 OCT 1
036609,000335:
036610,000336: 37,3027 34362 CAF OCT37
036611,000337: 37,3030 54001 TS L
036612,000338: 37,3031 40000 COM
036613,000339: 37,3032 52763 DXCH -PHASE5
036614,000340:
036615,000341: 37,3033 40075 CHEKAVEG CS FLAGWRD1
036616,000342: 37,3034 75017 MASK BIT1
036617,000343: 37,3035 10000 CCS A # IF AVEG FLAG DOWN SET FINAL EXIT AVEG
036618,000344: 37,3036 03056 TC AVEGOUT
036619,000345:
036620,000346: 37,3037 35042 CAF 2SECS
036621,000347: 37,3040 05245 TC WAITLIST
036622,000348: 37,3041 E6,1661 EBANK= AOG
036623,000349: 37,3041 02744 76066 2CADR READACCS
036624,000350:
036625,000351: 37,3043 35002 MAKESERV CAF PRIO20 # ESTABLISH SERVICER ROUTINE
036626,000352: 37,3044 05147 TC FINDVAC
036627,000353: 37,3045 E7,1431 EBANK= DVCNTR
036628,000354: 37,3045 03104 76067 2CADR SERVICER
036629,000355:
036630,000356: 37,3047 45015 CS FOUR # RESTART SERVICER AND READACCS
036631,000357: 37,3050 04114 TC NEWPHASE
036632,000358: 37,3051 00005 OCT 5
036633,000359:
036634,000360: 37,3052 35007 CAF BIT9
036635,000361: 37,3053 00006 EXTEND
036636,000362: 37,3054 05011 WOR DSALMOUT # TURN TEST CONNECTOR OUTBIT ON
036637,000363:
036638,000364: 37,3055 15324 TCF TASKOVER # END PREVIOUS READACCS WAITLIST TASK
036639,000365:
036640,000366: # Page 826
036641,000367: 37,3056 00006 AVEGOUT EXTEND
036642,000368: 37,3057 33063 DCA AVOUTCAD
036643,000369: 37,3060 53223 DXCH AVGEXIT
036644,000370: 37,3061 13043 TCF MAKESERV
036645,000371:
036646,000372: 37,3062 E7,1431 EBANK= DVCNTR
036647,000373: 37,3062 03165 76067 AVOUTCAD 2CADR AVGEND
036648,000374:
036649,000375: # Page 827
036650,000376: # ROUTINE NAME: ONMNITOR
036651,000377: # MOD 04 BY BAIRNSFATHER 30 APR 1968 REDO ONMNITOR TO SAVE PIPS EACH 0.5 SEC FOR TM,ENTRY.
036652,000378: # MOD 03 BY FISHER DECEMBER 1967
036653,000379: # MOD 02 BY RYE SEPT 1967
036654,000380: # MOD 01 BY KOSMALA 23 MAR 1967
036655,000381: # MOD 00 BY KOSMALA 27 FEB 1967
036656,000382:
036657,000383: # FUNCTIONAL DESCRIPTION
036658,000384:
036659,000385: # THE PURPOSE OF ONMONITOR IS TO PROVIDE 1/2 SEC. READING OF PIPAS FOR DOWNLIST DURING ENTRY.
036660,000386: # X,Y,XPIPBUF CONTAIN PRESET VALUES X,Y,ZOLDBUF CONTAIN VALUES FROM PREVIOUS READING.
036661,000387:
036662,000388: # CALLING SEQUENCE
036663,000389:
036664,000390: # CALL AS WAITLIST TASK. TERMINATES ITSELF IN TASKOVER
036665,000391:
036666,000392: # INITIALIZATION
036667,000393:
036668,000394: # PIPCTR = 2 (FOR DT = 0.5 SEC)
036669,000395: # X,Y,ZPIPBUF SET TO PREVIOUS PIPAX,Y,Z
036670,000396:
036671,000397: # OUTPUT
036672,000398:
036673,000399: # X,Y,ZPIPBUF, X,Y,ZOLDBUF
036674,000400:
036675,000401: # DEBRIS
036676,000402:
036677,000403: # X,Y,ZPIPBUF CONTAIN LAST PIPAX,Y,Z VALUES
036678,000404: # X,Y,ZOLDBUF CONTAIN LAST-BUT-ONE PIPAX,Y,Z VALUES
036679,000405: # RUPTREG1
036680,000406: # PIPCTR
036681,000407:
036682,000408: 37,3064 55227 ONMNITOR TS PIPCTR
036683,000409:
036684,000410: 37,3065 05267 TC FIXDELAY # WAIT
036685,000411: 37,3066 00062 0.5SEC DEC 50 B-14
036686,000412:
036687,000413: 37,3067 35016 QUIKREAD CAF TWO
036688,000414: 37,3070 54070 TS RUPTREG1
036689,000415: 37,3071 50000 INDEX A
036690,000416: 37,3072 30037 CA PIPAX # SAVE ACTUAL PIPAS FOR TM.
036691,000417: 37,3073 50070 INDEX RUPTREG1
036692,000418: 37,3074 57533 XCH XPIPBUF # UPDATE X,Y,ZPIPBUF
036693,000419: 37,3075 50070 INDEX RUPTREG1
036694,000420: 37,3076 55536 TS XOLDBUF # AND X,Y,ZOLDBUF
036695,000421: 37,3077 10070 CHKCTR CCS RUPTREG1
036696,000422: 37,3100 13070 TCF QUIKREAD +1 # LOOP AGAIN
036697,000423: 37,3101 11227 CCS PIPCTR
036698,000424: 37,3102 13064 TCF ONMNITOR
036699,000425: 37,3103 05324 TC TASKOVER
036700,000426:
036701,000427: # Page 828
036702,000428: # ********************* SERVICER ***************************************
036703,000429:
036704,000430: 37,3104 E7,1431 EBANK= DVCNTR
036705,000431:
036706,000432: 37,3104 35016 SERVICER CAF TWO
036707,000433: 37,3105 00004 INHINT
036708,000434: 37,3106 54070 PIPCHECK TS RUPTREG1
036709,000435:
036710,000436: 37,3107 60000 DOUBLE
036711,000437: 37,3110 50000 INDEX A
036712,000438: 37,3111 11162 CCS DELVX
036713,000439: 37,3112 03114 TC +2
036714,000440: 37,3113 03122 TC PIPLOOP
036715,000441:
036716,000442: 37,3114 63232 AD -MAXDELV # DO PIPA-SATURATION TEST BEFORE
036717,000443: 37,3115 00006 EXTEND
036718,000444: 37,3116 63122 BZMF PIPLOOP # COMPENSATION.
036719,000445:
036720,000446: 37,3117 05650 TC ALARM
036721,000447: 37,3120 00205 OCT 00205 # SATURATED-PIPA ALARM ***CHANGE LATER
036722,000448: 37,3121 03143 TC AVERAGEG
036723,000449:
036724,000450: 37,3122 10070 PIPLOOP CCS RUPTREG1
036725,000451: 37,3123 13106 TCF PIPCHECK
036726,000452:
036727,000453: 37,3124 05412 TC PHASCHNG # RESTART REREADAC + SERVICER
036728,000454: 37,3125 16035 OCT 16035
036729,000455: 37,3126 20000 OCT 20000
036730,000456: 37,3127 E7,1431 EBANK= DVCNTR
036731,000457: 37,3127 03133 76067 2CADR DVTOTUP
036732,000458:
036733,000459: 37,3131 04662 TC BANKCALL # PIPA COMPENSATION CALL
036734,000460: 37,3132 15262 CADR 1/PIPA
036735,000461:
036736,000462: 37,3133 06006 DVTOTUP TC INTPRET
036737,000463: 37,3134 51575 VLOAD ABVAL # GET ABS VALUE OF DELV
036738,000464: 37,3135 01163 DELV
036739,000465: 37,3136 77405 DMP EXIT
036740,000466: 37,3137 37451 KPIP1 # SCALE AT 2(+7)
036741,000467:
036742,000468: 37,3140 00006 EXTEND
036743,000469: 37,3141 30155 DCA MPAC
036744,000470: 37,3142 21426 DAS DVTOTAL # ACCUMULATE DVTOTAL
036745,000471: 37,3143 05412 AVERAGEG TC PHASCHNG
036746,000472: 37,3144 10035 OCT 10035
036747,000473:
036748,000474: 37,3145 06006 TC INTPRET
036749,000475: 37,3146 77624 CALL
036750,000476: # Page 829
036751,000477: 37,3147 77420 CALCRVG
036752,000478: 37,3150 77776 EXIT
036753,000479:
036754,000480: 37,3151 05412 TC PHASCHNG
036755,000481: 37,3152 10035 OCT 10035
036756,000482:
036757,000483: 37,3153 34113 CAF OCT31 # COPY RN1,VN1,GOT102,GOBL1/2,PIPTIME1
036758,000484: 37,3154 05606 TC GENTRAN # INTO RN, VN, GDT/12, GOBL/2,PIPTIME
036759,000485: 37,3155 01231 ADRES RN1
036760,000486: 37,3156 01170 ADRES RN
036761,000487: 37,3157 00003 RELINT # GENTRAN DOES AN INHINT
036762,000488: 37,3160 05412 TC PHASCHNG
036763,000489: 37,3161 10035 OCT 10035
036764,000490:
036765,000491: 37,3162 00006 EXTEND
036766,000492: 37,3163 31223 DCA AVGEXIT
036767,000493: 37,3164 52006 DXCH Z # AVERAGEG EXIT
036768,000494:
036769,000495: 37,3165 31205 AVGEND CA PIPTIME +1 # FINAL AVERAGE G EXIT
036770,000496: 37,3166 55074 TS OLDBT1 # SET UP FREE FALL GYRO COMPENSATION
036771,000497:
036772,000498: 37,3167 05546 TC UPFLAG # SET DRIFTFLG
036773,000499: 37,3170 00036 ADRES DRIFTFLG # BIT 15 FLAG 2
036774,000500: 37,3171 05372 TC 2PHSCHNG
036775,000501: 37,3172 00005 OCT 5 # GROUP 5 OFF
036776,000502: 37,3173 05022 OCT 05022 # GROUP 2 ON FOR AVETOMID
036777,000503: 37,3174 20000 OCT 20000
036778,000504:
036779,000505: 37,3175 06006 TC INTPRET
036780,000506: 37,3176 77624 CALL
036781,000507: 37,3177 73675 AVETOMID # CONVERT STATE VECTOR TO REFERENCE SCALE.
036782,000508: 37,3200 77776 EXIT
036783,000509:
036784,000510: 37,3201 35021 CAF ZERO # ZERO MARK COUNTERS.
036785,000511: 37,3202 55125 TS VHFCNT
036786,000512: 37,3203 55126 TS TRKMKCNT
036787,000513:
036788,000514: 37,3204 04662 TC BANKCALL
036789,000515: 37,3205 17173 CADR PIPFREE
036790,000516:
036791,000517: 37,3206 45007 CS BIT9
036792,000518: 37,3207 55734 TS MRKBUF2 # INVALIDATE MARK BUFFER
036793,000519: 37,3210 00006 EXTEND
036794,000520: 37,3211 03011 WAND DSALMOUT
036795,000521:
036796,000522: 37,3212 05560 TC DOWNFLAG
036797,000523: 37,3213 00147 ADRES CM/DSTBY
036798,000524:
036799,000525: 37,3214 05560 TC DOWNFLAG
036800,000526: 37,3215 00162 ADRES V37FLAG
036801,000527:
036802,000528: # Page 830
036803,000529: 37,3216 35011 CAF BIT7 # RESTORE GROUP 1 + 2 IF P20 IS RUNNING.
036804,000530: 37,3217 70074 MASK FLAGWRD0
036805,000531: 37,3220 00006 EXTEND
036806,000532: 37,3221 13225 BZF +4
036807,000533:
036808,000534: 37,3222 05372 TC 2PHSCHNG
036809,000535: 37,3223 00111 OCT 111 # 1.11SPOT
036810,000536: 37,3224 00132 OCT 132 # 2.13SPOT
036811,000537:
036812,000538: 37,3225 04701 TC POSTJUMP
036813,000539: 37,3226 10124 CADR CANV37
036814,000540:
036815,000541: 37,3227 05412 SERVEXIT TC PHASCHNG
036816,000542: 37,3230 00035 OCT 00035 # A, 5.3 = REREADAC (ONLY)
036817,000543:
036818,000544: 37,3231 15217 TCF ENDOFJOB
036819,000545:
036820,000546: 37,3232 5024 DVTHRUSH EQUALS ELEVEN # 15 PERCENT OF 2SEC PIPA ACCUMULATION,
036821,000547: # FOR 503-FULL CSM/LEM....DELV SC.AT
036822,000548: # 5.85 CM/SEC.
036823,000549:
036824,000550: 37,3232 63401 -MAXDELV DEC -6398 B-14 # 3200 PPS FOR 2 SEC CCS TAKES 1
036825,000551:
036826,000552: 37,3233 00170 JTAGTIME DEC 120 B-14 # = 1 SEC + T CDU, T CDU = .1 SEC
036827,000553:
036828,000554: 37,3234 00372 2.5SEC DEC 250 B-14
036829,000555: 37,3235 00044 MDOTFAIL DEC 144.0 B-16 # 5 SEC MASS LOSS AT 28.8 KG/SEC
036830,000556: # SHOULD BE 2-4 SECS FOR NO START
036831,000557: # 6-8 SECS FOR FAILURE
036832,000558:
036833,000559: # Page 831
036834,000560: # NORMLIZE PERFORMS THE INITIALIZATION REQUIRED PRIOR TO THE FIRST ENTRY TO AVERAGEG, AND SCALES RN SO THAT IT
036835,000561: # HAS 1 LEADING BINARY ZERO. IN MOST MISSIONS, RN WILL BE SCALED AT 2(+29), BUT IN THE 206 MISSION, RN WILL BE
036836,000562: # SCALED AT 2(+24) M.
036837,000563:
036838,000564: 37,3236 35025 NORMLIZE CAF THIRTEEN # SET UP TO COPY 14 REGS: RN1,VN1,PIPTIME1
036839,000565: 37,3237 05606 TC GENTRAN # INTO RN,VN,PIPTIME
036840,000566: 37,3240 01231 ADRES RN1 # FROM HERE
036841,000567: 37,3241 01170 ADRES RN # TO HERE
036842,000568:
036843,000569: 37,3242 00003 RELINT
036844,000570: 37,3243 06006 TC INTPRET
036845,000571: 37,3244 45175 VLOAD CALL # LOAD RN FOR CALCGRAV
036846,000572: 37,3245 01171 RN
036847,000573: 37,3246 77353 CALCGRAV # INITIALIZE UNITR RMAG GDT1
036848,000574:
036849,000575: 37,3247 25207 STOVL GDT/2
036850,000576: 37,3250 01256 GOBL1/2
036851,000577: 37,3251 01215 STORE GOBL/2
036852,000578: 37,3252 77776 EXIT
036853,000579: 37,3253 15217 TCF ENDOFJOB
036854,000580:
036855,000581: # Page 832
036856,000582: # ***** PIPA READER *****
036857,000583: # MOD NO. 00 BY D. LICKLY DEC. 9 1966
036858,000584:
036859,000585: # FUNCTIONAL DESCRIPTION
036860,000586:
036861,000587: # SUBROUTINE TO READ PIPA COUNTERS, TRYING TO BE VERY CAREFUL SO THAT IT WILL BE RESTARTABLE.
036862,000588: # PIPA READINGS ARE STORED IN THE VECTOR DELV. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS THE PIPA READING,
036863,000589: # RESTARTS BEGIN AT REREADAC.
036864,000590:
036865,000591: # AT THE END OF THE PIPA READER THE CDUS ARE READ AND STORED AS A
036866,000592: # VECTOR IN CDUTEMP. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS
036867,000593: # THE CDU READING IN 2'S COMP IN THE ORDER CDUX,Y,Z. THE THRUST
036868,000594: # VECTOR ESTIMATOR IN FINDCDUD REQUIRES THE CDUS BE READ AT PIPTIME.
036869,000595:
036870,000596: # CALLING SEQUENCE AND EXIT
036871,000597:
036872,000598: # CALL VIA TC, ISWCALL, ETC.
036873,000599:
036874,000600: # EXIT IS VIA Q.
036875,000601:
036876,000602: # INPUT
036877,000603:
036878,000604: # INPUT IS THROUGH THE COUNTERS PIPAX, PIPAY, PIPAZ, AND TIME2.
036879,000605:
036880,000606: # OUTPUT
036881,000607:
036882,000608: # HIGH ORDER COMPONENTS OF THE VECTOR DELV CONTAIN THE PIPA READINGS.
036883,000609:
036884,000610: # PIPTIME CONTAINS TIME OF PIPA READING.
036885,000611:
036886,000612: # DEBRIS (ERASABLE LOCATIONS DESTROYED BY THE PROGRAM)
036887,000613:
036888,000614: # LOW ORDER DELV'S ARE ZEROED FOR TM INDICATION.
036889,000615: # TEMX TEMY TEMZ PIPAGE
036890,000616:
036891,000617: 37,3254 00006 PIPASR EXTEND
036892,000618: 37,3255 30025 DCA TIME2
036893,000619: 37,3256 53246 DXCH PIPTIME1 # CURRENT TIME POSITIVE VALUE
036894,000620: 37,3257 45021 CS ZERO # INITIALIZAE THESE AT NEG ZERO.
036895,000621: 37,3260 55224 TS TEMX
036896,000622: 37,3261 55225 TS TEMY
036897,000623: 37,3262 55226 TS TEMZ
036898,000624: # Page 833
036899,000625: 37,3263 35021 CA ZERO
036900,000626: 37,3264 55166 TS DELVZ # OTHER DELVS OK INCLUDING LOW ORDER
036901,000627: 37,3265 55164 TS DELVY
036902,000628:
036903,000629: 37,3266 55163 TS DELVX +1 # LOW ORDER DELV'S ARE ZEROED FOR TM: THIS
036904,000630: 37,3267 55165 TS DELVY +1 # IF DNLNK=D LOW ORDER DELVS ARE NZ, THEY
036905,000631: 37,3270 55167 TS DELVZ +1 # CONTAIN PROPER COMPENSATION. IF=0, THEN
036906,000632: # THE TM VALUES ARE BEFORE COMPENSATION.
036907,000633:
036908,000634: 37,3271 55230 TS PIPAGE # SHOW PIPA READING IN PROGRESS
036909,000635:
036910,000636: 37,3272 00006 REPIP1 EXTEND
036911,000637: 37,3273 40040 DCS PIPAX # X AND Y PIPS READ
036912,000638: 37,3274 53225 DXCH TEMX
036913,000639: 37,3275 52040 DXCH PIPAX # PIPAS SET TO NEG ZERO AS READ.
036914,000640: 37,3276 55162 TS DELVX
036915,000641: 37,3277 23164 LXCH DELVY
036916,000642:
036917,000643: 37,3300 40041 REPIP3 CS PIPAZ # REPEAT PROCESS FOR Z PIP
036918,000644: 37,3301 57226 XCH TEMZ
036919,000645: 37,3302 56041 XCH PIPAZ
036920,000646: 37,3303 55166 DODELVZ TS DELVZ
036921,000647:
036922,000648: 37,3304 00002 TC Q
036923,000649:
036924,000650: 37,3305 E6,1661 EBANK= AOG
036925,000651:
036926,000652: 37,3305 10763 REREADAC CCS PHASE5 # LAST PASS CHECK
036927,000653: 37,3306 13310 TCF +2
036928,000654: 37,3307 15324 TCF TASKOVER
036929,000655:
036930,000656: 37,3310 37665 CAF PRIO31 # RESTART MAY HAVE WIPED OUT LASTBIAS, AN
036931,000657: 37,3311 55074 TS 1/PIPADT # UNPROTECTED NOVAC FROM PREREAD,
036932,000658: # WHICH SET(S) UP 1/PIPADT (THUSLY)
036933,000659: # FOR NON-COASTING COMPENSATION....BE
036934,000660: # SURE 1/PIPADT IS AOK. (PRIO31 IS
036935,000661: # 2.0SEC SC.AT B+8(CS)
036936,000662:
036937,000663: 37,3312 11230 CCS PIPAGE
036938,000664: 37,3313 12744 TCF READACCS # PIP READING NOT STARTED. GO TO BEGINNING
036939,000665:
036940,000666: 37,3314 33352 CAF DONEADR # SET UP RETURN FROM PIPASR
036941,000667: 37,3315 54002 TS Q
036942,000668:
036943,000669: 37,3316 11166 CCS DELVZ
036944,000670: 37,3317 00002 TC Q # Z DONE, GO DO CDUS
036945,000671: 37,3320 13323 TCF +3 # Z NOT DONE, CHECK Y.
036946,000672: 37,3321 00002 TC Q
036947,000673: 37,3322 00002 TC Q
036948,000674: # Page 834
036949,000675: 37,3323 22007 ZL
036950,000676: 37,3324 11164 CCS DELVY
036951,000677: 37,3325 13330 TCF +3
036952,000678: 37,3326 13337 TCF CHKTEMX # Y NOT DONE, CHECK X.
036953,000679: 37,3327 13330 TCF +1
036954,000680: 37,3330 22041 LXCH PIPAZ # Y DONE, ZERO Z PIP.
036955,000681:
036956,000682: 37,3331 11226 CCS TEMZ
036957,000683: 37,3332 41226 CS TEMZ # TEMZ NOT = -0, CONTAINS -PIPAZ VALUE.
036958,000684: 37,3333 13303 TCF DODELVZ
036959,000685: 37,3334 13332 TCF -2
036960,000686: 37,3335 23166 LXCH DELVZ # TEMZ = -0, L HAS ZPIP VALUE.
036961,000687: 37,3336 00002 TC Q
036962,000688:
036963,000689: 37,3337 11224 CHKTEMX CCS TEMX # HAS THIS CHANGED
036964,000690: 37,3340 41224 CS TEMX # YES
036965,000691: 37,3341 13344 TCF +3 # YES
036966,000692: 37,3342 13340 TCF -2 # YES
036967,000693: 37,3343 13272 TCF REPIP1 # NO
036968,000694: 37,3344 55162 TS DELVX
036969,000695:
036970,000696: 37,3345 41225 CS TEMY
036971,000697: 37,3346 55164 TS DELVY
036972,000698:
036973,000699: 37,3347 45021 CS ZERO # ZERO X AND Y PIPS
036974,000700: 37,3350 52040 DXCH PIPAX # L STILL ZERO FROM ABOVE
036975,000701:
036976,000702: 37,3351 13300 TCF REPIP3
036977,000703:
036978,000704: 37,3352 02745 DONEADR GENADR PIPSDONE
036979,000705:
036980,000706: # Page 835
036981,000707: # *********************************************************************************************
036982,000708:
036983,000709: # ROUTINE CALCRVG INTEGRATES THE EQUATIONS OF MOTION BY AVERAGING THE THRUST AND GRAVITATIONAL
036984,000710: # ACCELERATIONS OVER A TIME INTERVAL OF 2 SECONDS.
036985,000711:
036986,000712: # FOR THE EARTH-CENTERED GRAVITATIONAL FIELD, THE PERTURBATION DUE TO OBLATENESS IS COMPUTED TO THE FIRST
036987,000713: # HARMONIC COEFFICIENT J.
036988,000714:
036989,000715: # ROUTINE CALCRVG REQUIRES...
036990,000716: # 1) THRUST ACCELERATION INCREMENTS IN DELV SCALED SAME AS PIPAX,Y,Z IN STABLE MEMBER COORDS.
036991,000717: # 2) VN SCALED 2(+7) M/CS IN REFERENCE COORDS.
036992,000718: # 3) RN SCALED AT 2(+29) METERS IN REFERENCE COORDS.
036993,000719: # 4) UNITW THE EARTH'S UNIT ROTATIONAL VECTOR (SCALED AS A FULL UNIT VECTOR) IN REFERENCE COORDS.
036994,000720:
036995,000721: # 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
036996,000722: # UNIT VECTOR UNITR, RMAG IN 36D SCALED AT 2(+29)M, R MAG SQ. IN 34D SCALED AT 2(+58) M SQ.
036997,000723:
036998,000724: 37,3353 41456 CALCGRAV UNIT PUSH # ENTER WITH RN IN MPAC
036999,000725: 37,3354 01760 STORE UNITR
037000,000726: 37,3355 67340 LXC,1 SLOAD
037001,000727: 37,3356 03746 RTX2
037002,000728: 37,3357 00047 X1
037003,000729: 37,3360 77240 BMN VLOAD
037004,000730: 37,3361 77407 ITISMOON
037005,000731: 37,3362 41441 DOT PUSH
037006,000732: 37,3363 01714 UNITW
037007,000733: 37,3364 44316 DSQ BDSU
037008,000734: 37,3365 37461 DP1/20
037009,000735: 37,3366 56325 PDDL DDV
037010,000736: 37,3367 37463 RESQ
037011,000737: 37,3370 00043 34D # (RN)SQ
037012,000738: 37,3371 00041 STORE 32D # TEMP FOR (RE/RN)SQ
037013,000739: 37,3372 41205 DMP DMP
037014,000740: 37,3373 37465 20J
037015,000741: 37,3374 65361 VXSC PDDL
037016,000742: 37,3375 01760 UNITR
037017,000743: 37,3376 41205 DMP DMP
037018,000744: 37,3377 37467 2J
037019,000745: 37,3400 00041 32D
037020,000746: 37,3401 53361 VXSC VAD
037021,000747: 37,3402 01714 UNITW
037022,000748: 37,3403 77626 STADR
037023,000749: 37,3404 76521 STORE GOBL1/2
037024,000750: 37,3405 41455 VAD PUSH
037025,000751: 37,3406 01760 UNITR
037026,000752: 37,3407 60345 ITISMOON DLOAD NORM
037027,000753: 37,3410 00043 34D
037028,000754: 37,3411 00050 X2
037029,000755: 37,3412 53663 BDDV* SLR*
037030,000756: # Page 836
037031,000757: 37,3413 37453 -MUDT(E),1
037032,000758: 37,3414 56623 0 -21D,2
037033,000759: 37,3415 45561 VXSC STADR
037034,000760: 37,3416 76527 STORE GDT1/2 # SCALED AT 2(+7) M/CS
037035,000761: 37,3417 77616 RVQ
037036,000762:
037037,000763: 37,3420 74375 CALCRVG VLOAD VXSC
037038,000764: 37,3421 01163 DELV
037039,000765: 37,3422 37451 KPIP1
037040,000766: 37,3423 76505 VXM VSL1
037041,000767: 37,3424 01736 REFSMMAT
037042,000768: 37,3425 03433 STORE DELVREF # DELV IN REF COORDS AT 2(+7)
037043,000769: 37,3426 41562 VSR1 PUSH
037044,000770: 37,3427 41455 VAD PUSH # (DV-OLDGDT)/2 TO PD SCALED AT 2(+7)M/CS
037045,000771: 37,3430 01207 GDT/2
037046,000772: 37,3431 74255 VAD VXSC
037047,000773: 37,3432 01177 VN
037048,000774: 37,3433 37457 2SEC(22)
037049,000775: 37,3434 44055 VAD STQ
037050,000776: 37,3435 01171 RN
037051,000777: 37,3436 00037 31D
037052,000778: 37,3437 35232 STCALL RN1 # TEMP STORAGE OF RN SCALED 2(+29)M
037053,000779: 37,3440 77353 CALCGRAV
037054,000780:
037055,000781: 37,3441 53255 VAD VAD
037056,000782: 37,3442 77655 VAD
037057,000783: 37,3443 01177 VN
037058,000784: 37,3444 35240 STCALL VN1 # TEMP STORAGE OF VN SCALED 2(+7) M/CS.
037059,000785: 37,3445 00037 31D
037060,000786:
037061,000787: 37,3446 03215 27057 KPIP 2DEC .1024 # SCALES DELV TO 2(+4)
037062,000788:
037063,000789: 37,3450 02312 32537 KPIP1 2DEC 0.074880 # 207 DELV SCALING. 1 PULSE = 5.85 CM/SEC.
037064,000790:
037065,000791: 37,3452 61377 55754 -MUDT(E) 2DEC* -7.9720645 E+12 B-44*
037066,000792:
037067,000793: 37,3454 77644 65556 -MUDT(M) 2DEC* -9.805556 E+10 B-44*
037068,000794:
037069,000795: 37,3456 00000 31000 2SEC(22) 2DEC 200 B-22
037070,000796:
037071,000797: 37,3460 01463 06315 DP1/20 2DEC 0.05
037072,000798:
037073,000799: 37,3462 00001 05000 RESQ 2DEC* 40.6809913 E12 B-59*
037074,000800:
037075,000801: 37,3464 02047 36332 20J 2DEC* 3.24692010 E-2 B1*
037076,000802:
037077,000803: 37,3466 00152 14511 2J 2DEC* 3.24692010 E-3 B1*
037078,000804:
End of include-file SERVICER207.agc. Parent file is MAIN.agc