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