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