Source Code
034162,000001: # Copyright: Public domain.
034163,000002: # Filename: Template.agc
034164,000003: # Purpose: Part of the source code for Colossus, build 249.
034165,000004: # It is part of the source code for the Command Module's (CM)
034166,000005: # Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9.
034167,000006: # Assembler: yaYUL
034168,000007: # Reference: pp. 777-794 of 1701.pdf.
034169,000008: # Contact: Ron Burkey <info@sandroid.org>.
034170,000009: # Website: www.ibiblio.org/apollo.
034171,000010: # Mod history: 08/19/04 RSB. Began transcribing.
034172,000011:
034173,000012: # The contents of the "Colossus249" files, in general, are transcribed
034174,000013: # from a scanned document obtained from MIT's website,
034175,000014: # http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf. Notations on this
034176,000015: # document read, in part:
034177,000016:
034178,000017: # Assemble revision 249 of AGC program Colossus by NASA
034179,000018: # 2021111-041. October 28, 1968.
034180,000019:
034181,000020: # This AGC program shall also be referred to as
034182,000021: # Colossus 1A
034183,000022:
034184,000023: # Prepared by
034185,000024: # Massachusetts Institute of Technology
034186,000025: # 75 Cambridge Parkway
034187,000026: # Cambridge, Massachusetts
034188,000027: # under NASA contract NAS 9-4065.
034189,000028:
034190,000029: # Refer directly to the online document mentioned above for further information.
034191,000030: # Please report any errors (relative to 1701.pdf) to info@sandroid.org.
034192,000031:
034193,000032: # In some cases, where the source code for Luminary 131 overlaps that of
034194,000033: # Colossus 249, this code is instead copied from the corresponding Luminary 131
034195,000034: # source file, and then is proofed to incorporate any changes.
034196,000035:
034197,000036: # Page 777
034198,000037: # SERVICER207
034199,000038:
034200,000039: # PROGRAM NAME: PREREAD, READACCS, SERVICER, AVERAGE G.
034201,000040: # MOD NO. 00 BY M. HAMILTON DEC. 12, 1966
034202,000041:
034203,000042: # FUNCTIONAL DESCRIPTION
034204,000043:
034205,000044: # THE ROUTINES DESCRIBED BELOW ARE USED TO CALCULATE VALUES OF RN, VN, AND GDT/2 DURING ACCELERATED FLIGHT.
034206,000045: # THE SEVERAL ROUTINES COMPRISE A PACKAGE AND ARE NOT MEANT TO BE USED AS SEPARATE SUBROUTINES.
034207,000046:
034208,000047: # GENERAL REFERENCES TO SERVICER OR AVERAGE G ARE UNDERSTOOD TO REFER TO THE ENTIRE SET OF ROUTINES INCLUDING
034209,000048: # RRADACCS, SERVICER, AVERAGE G, INTEREAD, SMOOTHER, AND ANY ADDITIONAL ROUTINES ATTACHED AT AVGEXIT (SEE BELOW).
034210,000049:
034211,000050: # PROGRAMS INITIATING SERVICER ARE REQUIRED TO MAKE A WAITLIST CALL FOR PREREAD (OR, IF LIFTOFF, FOR BIBIBIAS)
034212,000051: # AT 2 SECONDS BEFORE THE FIRST AVERAGE G UPDATE IN ORDER TO INITIALIZE THE SEQUENCE, WHICH WILL RECUR EVERY
034213,000052: # 2 SECONDS FROM THAT TIME ON AS LONG AS AVEGFLAG REMAINS SET.
034214,000053:
034215,000054: # THE USE OF ERASABLE AVGEXIT ALLOWS VARIOUS ROUTINES TO BE PERFORMED AS PART OF THE NORMAL CYCLE (SEE
034216,000055: # EXPLANATION OF AVGEXIT BELOW).
034217,000056:
034218,000057: # DESCRIPTIONS OF INDIVIDUAL ROUTINES FOLLOW.
034219,000058:
034220,000059: # PREREAD
034221,000060:
034222,000061: # PREVIOUSLY EXTRAPOLATED VALUES COPIED FROM RN1, VN1, AND PIPTIME1 INTO RN, VN, AND PIPTIME.
034223,000062: # LASTBIAS JOB SCHEDULED.
034224,000063: # PIPS READ AND CLEARED VIA PIPASR SUBROUTINE.
034225,000064: # AVERAGE G FLAG SET ON.
034226,000065: # DRIFT FLAG SET OFF.
034227,000066: # V37 FLAG SET ON.
034228,000067: # INITIALIZATION OF 1) THRUST MONITOR (DVMON) -- DVCNTR SET TO ONE.
034229,000068: # 2) TOTAL ACCUMULATED DELV VALUE (DVTOTAL) -- SET TO ZERO.
034230,000069: # 3) AXIS VECTOR (AXIS) -- SET TO (.5,0,0).
034231,000070: # NORMLIZE JOB SCHEDULED.
034232,000071: # READACCS TASH CALLED IN 2 SECONDS.
034233,000072:
034234,000073: # NORMLIZE
034235,000074:
034236,000075: # GDT/2 INITIALIZED VIA CALCGRAV ROUTINE.
034237,000076:
034238,000077: # READACCS
034239,000078:
034240,000079: # IF ONMON FLAG SET QUIKREAD ROUTINE IS PERFORMED BEFORE PIPASR ZEROS THE PIPA REGISTERS, AND THE 1/2 SEC
034241,000080: # ONMONITOR LOOP IS INITIATED TO PROVIDE DOWNLINK INFORMATION DURING ENTRY.
034242,000081: # PIPS READ AND CLEARED BY PIPASR SUBROUTINE.
034243,000082: # IF CM/DSTBY IS ON, ENTRY VARIABLES INITIALIZED AND SETJTAG TASK CALLED.
034244,000083: # Page 778
034245,000084:
034246,000085: # SERVICER207
034247,000086:
034248,000087: # IF AVERAGEG FLAG ON READACCS CALLED TO RECYCLE IN 2 SECONDS.
034249,000088: # IF AVERAGEG FLAG OFF AVERAGE G EXIT (AVGEXIT) SET TO 2CADR AVGEND FOR FINAL PASS.
034250,000089: # SERVICER JOB SCHEDULED.
034251,000090: # TEST CONNECTOR OUTBIT TURNED ON.
034252,000091:
034253,000092: # ONMNITOR
034254,000093:
034255,000094: # A SEQUENCE OF THESE PASSES THROUGH QUICREAD FOLLOWING A CALL TO READACCS WITH ONMONFLG SET AT 1/2
034256,000095: # SEC INTERVALS. INTERVALS ARE COUNTED OUT BY PIPCTR, INITIALIZED AT 3 BY READACCS.
034257,000096:
034258,000097: # QUIKREAD
034259,000098:
034260,000099: # READS CURRENT PIPS INTO X,Y,ZPIPBUF. READS OLD X,Y,ZPIPBUF INTO X,Y,ZOLDBUF. VALUES ARE SENT TO
034261,000100: # DOWNLIST DURING ENTRY.
034262,000101:
034263,000102: # SERVICER
034264,000103:
034265,000104: # DELV VALUES CHECKED TO DETECT RUNAWAY PIP:
034266,000105:
034267,000106: # IF BAD PIP 1) ALARM SENT.
034268,000107: # 2) COMPENSATION, DVTOTAL ACCUMULATION, AND DVMON BYPASSED. CONTROL
034269,000108: # TRANSFERRED TO AVERAGEG.
034270,000109:
034271,000110: # PIPS COMPENSATED VIA 1/PIPA SUBROUTINE.
034272,000111: # DVTOTAL INCREMENTED BY ABSOLUTE VALUE OF DELV.
034273,000112: # THRUST MONITOR (DVMON) PERFORMED UNLESS IDLE FLAG IS ON.
034274,000113: # CONTROL TRANSFERRED TO AVERAGE Q.
034275,000114:
034276,000115: # DVMON
034277,000116:
034278,000117: # THRESHOLD VALUD (PLACED IN DVTHRUSH BY USER) CHECKED AGAINST ABSOLUTE VALUE OF DELV TO CHECK
034279,000118: # THRUST LEVEL.
034280,000119:
034281,000120: # IF THRUST 1) ULLAGE OFF ROUTINE PERFORMED.
034282,000121: # 2) STEERING FLAG TURNED ON AT FIRST DETECTION OF THRUST
034283,000122: # 3) CONTROL TRANSFERRED TO AVERAGE G.
034284,000123: # IF NO THRUST 1) ON FIRST PASS THROUGH MONITOR, CONTROL TRANSFERRED TO AVERAGE G.
034285,000124: # 2) ON SUBSEQUENT PASSES, CONTROL TRANSFERRED TO ENGINE FAIL ROUTINE IF THRUST
034286,000125: # HAS FAILED FOR 3 CONSECUTIVE PASSES.
034287,000126: # ENGINE FAIL
034288,000127:
034289,000128: # ENGFAIL1 TASK CALLED IN 2.5 SECONDS. THIS WILL RETURN CONTROL TO TIG-5 SO THAT THE IGNITION
034290,000129: # SEQUENCE MAY BE REPEATED.
034291,000130: # ENGINOF3 PERFORMED.
034292,000131: # DAP SET UP FOR RCS.
034293,000132: #
034294,000133: # AVERAGE G
034295,000134: # Page 779
034296,000135: # RN1, VN1, GDT1/2 CALCULATED VIA CALCRVG ROUTINE BY UPDATING RN, VN WITH DELV AND AN AVERAGED VALUE
034297,000136: # OF GDT/2
034298,000137: # RN1, VN1, GDT1/2, PIPTIME1 COPIED INTO RN, VN, GDT/2, PIPTIME FOR RESTART PROTECTION.
034299,000138: # CONTROL TRANSFERRED TO ADDRESS SPECIFIED BY USER (OR BY READACCS FOR LAST PASS) IN AVEGEXIT.
034300,000139: # LAST PASS (AVGEND) 1) FREE FALL GYRO COMPENSATION SET UP.
034301,000140: # 2) DRIFT FLAG TURNED ON.
034302,000141: # 3) STATE VECTOR TRANSFERRED VIA AVETOMID ROUTINE.
034303,000142: # 4) ONMONITOR FLAG RESET.
034304,000143: # 5) V37 FLAG RESET.
034305,000144: # 6) TEST CONNECTOR OUTBIT RESET.
034306,000145: # 7) CONTROL TRANSFERRED TO CANV37 TO CONTINUE MM CHANGE ROUTINE (R00).
034307,000146:
034308,000147: # CALLING SEQUENCE
034309,000148:
034310,000149: # PREREAD ENTERED DIRECTLY FROM TIG-30 VIA POSTJUMP.
034311,000150: # READACCS CALLED AS WAITLIST TASK.
034312,000151:
034313,000152: # SUBROUTINES CALLED
034314,000153:
034315,000154: # UTILITY ROUTINES: PHASCHNG FLAGUP FLAGDOWN NOVAC FINDVAC WAITLIST ALARM NEWPHASE 2PHSCHNG
034316,000155:
034317,000156: # OTHER: PIPASR 1/PIPA CALCGRAV CALCRVG AVETOMID
034318,000157:
034319,000158: # NORMAL EXIT MODES
034320,000159:
034321,000160: # ENDOFJOB TASKOVER CANV37
034322,000161:
034323,000162: # AVGEXIT: THIS IS A DOUBLE PRECISION ERASABLE LOCATION BY WHICH CONTROL IS TRANSFERRED AT THE END
034324,000163: # OF EACH CYCLE OF AVERAGE G.
034325,000164: # THE 2CADR OF A ROUTINE TO BE PERFORMED AT THAT TIME (E.G., STEERING EQUATIONS TO BE REPORTED
034326,000165: # AT 2 SECOND INTERVALS) MAY BE SET BY THE USER INTO AVGEXIT.
034327,000166: # ALL SUCH ROUTINES SHOULD RETURN TO SERVEXIT, WHICH IS THE NORMAL EXIT FROM AVERAGE G.
034328,000167:
034329,000168: # SERVEXIT: DOES A PHASE CHANGE FOR RESTART PROTECTION AND GOES TO ENDOFJOB.
034330,000169: # THE 2CADR OF SERVEXIT IS SET INTO AVGEXIT BY THE USER F NO OTHER ROUTINE (SEE ABOVE).
034331,000170:
034332,000171: # AVGEND: LAST PASS OF AVERAGE G EXITS HERE, BYPASSING SPECIAL ROUTINE (SEE ABOVE UNDER READACCS).
034333,000172: # FINAL EXIT IS TO CANV37. F AVERAGE G).
034334,000173:
034335,000174: # OUTPUT
034336,000175:
034337,000176: # DVTOTAL(2) PIPTIME(2) XPIPBUF(2) YPIPBUF(2) ZPIPBUF(2)
034338,000177: # RN(6) REFERENCE COORD. SCALED AT 2(+29) M/CS
034339,000178: # VN(6) REFERENCE COORD. SCALED AT 2(+7) M/CS
034340,000179: # GDT/2(6) REFERENCE COORD. SCALED AT 2(+7) M/CS
034341,000180: # DELV(6) STABLE MEMB. COORD. SCALED AT 2(+14)*5.85*10(-4) M/CS (KPIP1 USED TO GET DV/2 AT 2(+7))
034342,000181: # Page 780
034343,000182: # DELVREF(6) REFERENCE COORD. SCALED AT 2(+7) M/CS
034344,000183:
034345,000184: # INITIALIZATION
034346,000185:
034347,000186: # ONMONITOR FLAG SET BY ENTRY TO SHOW PIPBUF VALUES REQUIRED.
034348,000187: # IDLE FLAG ON IF DVMON TO BE BYPASSED.
034349,000188: # DVTHRUSH SET TO APPROPRIATE VALUE FOR DVMON.
034350,000189: # AVGEXIT SET TO 2CADR OF ROUTINE, IF ANY, TO BE PERFORMED AFTER EACH CYCLE OF AVERAGE G. IF NO ROUTINE
034351,000190: # TO BE DONE, AVGEXIT SET TO SERVEXIT.
034352,000191: # VALUES NEEDED
034353,000192: # REFSMMAT
034354,000193: # UNITW: FULL UNIT VECTOR, IN REFERENCE COORD., OF EARTH'S ROTATIONAL VECTOR
034355,000194: # RN1, VN1, PIPTIME1: IN REFERENCE COORD., CONSISTENT WITH TIME OF EXECUTION OF PREREAD.
034356,000195:
034357,000196: # DEBRIS
034358,000197:
034359,000198: # CENTRALS A, L, Q
034360,000199: # OTHER INTERNAL: DVCNTR(1) PIPAGE(1) PIPCTR(1) AVGEXIT(2)
034361,000200: # EXTERNAL: ITEMP1(1) ITEMP2(1) RUPTREG1(1) TEMX(1) TEMY(1) TEMZ(1)
034362,000201: # USEFUL DEBRIS
034363,000202: # RN1(0), VN1(0) GDT1/0 PIPTIME1(2?)
034364,000203: # THESE LOCATIONS USED AS BUFFER STORAGE FOR NEWLY CALCULATED VALUES OF RN, VN, GDT/2,
034365,000204: # AND PIPTIME DURING PERFORMANCE OF SERVICER ROUTINES.
034366,000205: # UNITR: HALF UNIT VECTOR OF RN, REFERENCE COORD.
034367,000206: # RMAG SCALED AT 2(+58) IN 36D.
034368,000207: # RMAGSQ SCALED AT 2(+58) IN 34D.
034369,000208: # (RE/RMAG)SQ IN 32D
034370,000209:
034371,000210: 27,2633 BANK 27
034372,000211: 37,2000 SETLOC SERVICES
034373,000212: 37,2000 BANK
034374,000213:
034375,000214: 37,2604 E7,1431 EBANK= DVCNTR
034376,000215: # ********************* PREREAD ***************************************
034377,000216:
034378,000217: 37,2604 COUNT 37/SERV
034379,000218:
034380,000219: 37,2604 34766 PREREAD CAF PRIO21 # CALLER MUST PROTECT PREREAD
034381,000220: 37,2605 05027 TC NOVAC
034382,000221: 37,2606 E3,1460 EBANK= NBDX
034383,000222: 37,2606 03636 14063 2CADR LASTBIAS # DO LAST GYRO COMPENSATION IN FREE FALL
034384,000223:
034385,000224: # CALL-TO AND LASTBIAS ITSELF ARE NOT
034386,000225: # PROTECTED. REREADAC SETS 1/PIPADT
034387,000226: # TO 2.0 SECS IN CASE LASTBIAS LOST.
034388,000227: # (REDUNDANT IF LASTBIAS IS AOK.)
034389,000228: # Page 781
034390,000229: 37,2610 02625 REDO5.31 TC PREREAD1
034391,000230:
034392,000231: 37,2611 37667 CAF PRIO32
034393,000232: 37,2612 05042 TC FINDVAC # SET UP NORMLIZE JOB REQUIRED PRIOR TO
034394,000233: 37,2613 E7,1431 EBANK= DVCNTR # FIRST AVERAGE G PASS
034395,000234: 37,2613 03141 76067 2CADR NORMLIZE
034396,000235:
034397,000236: 37,2615 34735 CAF 2SECS
034398,000237: 37,2616 05140 TC WAITLIST
034399,000238: 37,2617 E6,1661 EBANK= AOG
034400,000239: 37,2617 02647 76066 2CADR READACCS
034401,000240:
034402,000241: 37,2621 44711 CS TWO
034403,000242: 37,2622 04114 TC NEWPHASE
034404,000243: 37,2623 00005 OCT 5
034405,000244:
034406,000245: 37,2624 15213 TCF TASKOVER
034407,000246: 37,2625 00006 PREREAD1 EXTEND
034408,000247: 37,2626 22070 QXCH RUPTREG1
034409,000248:
034410,000249: 37,2627 03157 TC PIPASR # CLEAR + READ PIPS LAST TIME IN FREE FALL
034411,000250:
034412,000251: 37,2630 34712 CAF ONE # SET UP PIPAGE FOR REREADAC IN CASE A
034413,000252: 37,2631 55230 TS PIPAGE # RESTART OCCURS BEFORE READACCS
034414,000253:
034415,000254: 37,2632 40075 CS FLAGWRD1 # SET AVEG FLAG
034416,000255: 37,2633 74712 MASK BIT1
034417,000256: 37,2634 26075 ADS FLAGWRD1
034418,000257:
034419,000258: 37,2635 34672 CA POSMAX
034420,000259: 37,2636 70076 MASK FLAGWRD2
034421,000260: 37,2637 54076 TS FLAGWRD2 # KNOCK DOWN DRIFT FLAG
034422,000261:
034423,000262: 37,2640 40103 CS FLAGWRD7 # SET V37 FLAG
034424,000263: 37,2641 74705 MASK BIT6
034425,000264: 37,2642 26103 ADS FLAGWRD7
034426,000265:
034427,000266: 37,2643 34714 CAF ZERO
034428,000267: 37,2644 55425 TS DVTOTAL # CLEAR DVTOTAL
034429,000268: 37,2645 55426 TS DVTOTAL +1
034430,000269:
034431,000270: 37,2646 00070 TC RUPTREG1
034432,000271:
034433,000272: # Page 782
034434,000273: # ********************* READACCS ***************************************
034435,000274:
034436,000275: 37,2647 E6,1661 EBANK= AOG
034437,000276: 37,2647 03157 READACCS TC PIPASR
034438,000277:
034439,000278: 37,2650 34715 PIPSDONE CAF FIVE
034440,000279: 37,2651 54001 TS L
034441,000280: 37,2652 40000 COM
034442,000281: 37,2653 52763 DXCH -PHASE5
034443,000282:
034444,000283: 37,2654 34712 REDO5.5 CAF ONE # SHOW PIPS HAVE BEEN READ
034445,000284: 37,2655 55230 TS PIPAGE
034446,000285:
034447,000286: 37,2656 34711 CA TWO # SET PIPCTR FOR ONMINTOR
034448,000287: 37,2657 55227 TS PIPCTR # AFTER ABOVE PHASCHNG
034449,000288:
034450,000289: 37,2660 40102 CS CM/FLAGS
034451,000290: 37,2661 74711 MASK BIT2 # CM/DSTBY
034452,000291: 37,2662 10000 CCS A
034453,000292: 37,2663 02736 TC CHEKAVEG
034454,000293:
034455,000294: 37,2664 41246 CS PIPTIME1 +1
034456,000295: 37,2665 55065 TS TBASE6 # FOR RESTARTS
034457,000296: 37,2666 00006 EXTEND # CONTINUE FOR ENTRY DAP
034458,000297: 37,2667 31662 DCA AOG
034459,000298: 37,2670 53670 DXCH AOG/PIP
034460,000299: 37,2671 31663 CA AMG
034461,000300: 37,2672 57671 XCH AMG/PIP
034462,000301: 37,2673 00006 EXTEND
034463,000302: 37,2674 31665 DCA ROLL/180
034464,000303: 37,2675 53673 DXCH ROLL/PIP
034465,000304: 37,2676 31666 CA BETA/180
034466,000305: 37,2677 57674 XCH BETA/PIP
034467,000306: 37,2700 30102 CA CM/FLAGS
034468,000307: 37,2701 74677 MASK BIT12 # CM/DAPARM 93D BIT12
034469,000308: 37,2702 00006 EXTEND # DURING ENTRY, WHEN RCS DAP IS INACTIVE,
034470,000309: 37,2703 12721 BZF NOSAVPIP # SAVE PIPAS EACH 0.5 SEC FOR TM.
034471,000310:
034472,000311: 37,2704 32771 CA 0.5SEC
034473,000312: 37,2705 05140 TC WAITLIST
034474,000313: 37,2706 E6,1533 EBANK= XPIPBUF
034475,000314: 37,2706 02772 76066 2CADR QUIKREAD
034476,000315:
034477,000316: # NO NEED TO RESTART PROTECT THIS.
034478,000317: 37,2710 31162 CA DELVX # SAVE PIPAS AS READ (BUT NOT COMPENSATED)
034479,000318: 37,2711 57533 XCH XPIPBUF
034480,000319: 37,2712 55536 TS XOLDBUF
034481,000320:
034482,000321: 37,2713 31164 CA DELVY
034483,000322: 37,2714 57534 XCH YPIPBUF
034484,000323: 37,2715 55537 TS YOLDBUF
034485,000324: # Page 783
034486,000325: 37,2716 31166 CA DELVZ
034487,000326: 37,2717 57535 XCH ZPIPBUF
034488,000327: 37,2720 55540 TS ZOLDBUF
034489,000328:
034490,000329: 37,2721 34715 NOSAVPIP CA FIVE
034491,000330: 37,2722 55725 TS CM/GYMDT
034492,000331:
034493,000332: 37,2723 33136 CA JTAGTIME # ACTIVATE CM/RCS AFTER PIPUP TO GO
034494,000333: # IN JTAGTIME +5 CS.
034495,000334: 37,2724 05140 TC WAITLIST
034496,000335: 37,2725 E6,1661 EBANK= AOG
034497,000336: 37,2725 03227 32066 2CADR SETJTAG
034498,000337:
034499,000338: 37,2727 46214 CS THREE # 1.3SPOT FOR SETJTAG
034500,000339: 37,2730 04114 TC NEWPHASE
034501,000340: 37,2731 00001 OCT 1
034502,000341:
034503,000342: 37,2732 34362 CAF OCT37
034504,000343: 37,2733 54001 TS L
034505,000344: 37,2734 40000 COM
034506,000345: 37,2735 52763 DXCH -PHASE5
034507,000346:
034508,000347: 37,2736 40075 CHEKAVEG CS FLAGWRD1
034509,000348: 37,2737 74712 MASK BIT1
034510,000349: 37,2740 10000 CCS A # IF AVEG FLAG DOWN SET FINAL EXIT AVEG
034511,000350: 37,2741 02761 TC AVEGOUT
034512,000351:
034513,000352: 37,2742 34735 CAF 2SECS
034514,000353: 37,2743 05140 TC WAITLIST
034515,000354: 37,2744 E6,1661 EBANK= AOG
034516,000355: 37,2744 02647 76066 2CADR READACCS
034517,000356:
034518,000357: 37,2746 34675 MAKESERV CAF PRIO20 # ESTABLISH SERVICER ROUTINE
034519,000358: 37,2747 05042 TC FINDVAC
034520,000359: 37,2750 E7,1431 EBANK= DVCNTR
034521,000360: 37,2750 03007 76067 2CADR SERVICER
034522,000361:
034523,000362: 37,2752 44710 CS FOUR # RESTART SERVICER AND READACCS
034524,000363: 37,2753 04114 TC NEWPHASE
034525,000364: 37,2754 00005 OCT 5
034526,000365:
034527,000366: 37,2755 34702 CAF BIT9
034528,000367: 37,2756 00006 EXTEND
034529,000368: 37,2757 05011 WOR DSALMOUT # TURN TEST CONNECTOR OUTBIT ON
034530,000369:
034531,000370: 37,2760 15213 TCF TASKOVER # END PREVIOUS READACCS WAITLIST TASK
034532,000371:
034533,000372: # Page 784
034534,000373: 37,2761 00006 AVEGOUT EXTEND
034535,000374: 37,2762 32766 DCA AVOUTCAD
034536,000375: 37,2763 53223 DXCH AVGEXIT
034537,000376: 37,2764 12746 TCF MAKESERV
034538,000377:
034539,000378: 37,2765 E7,1431 EBANK= DVCNTR
034540,000379: 37,2765 03070 76067 AVOUTCAD 2CADR AVGEND
034541,000380:
034542,000381: # Page 785
034543,000382: # ROUTINE NAME: ONMNITOR
034544,000383: # MOD 04 BY BAIRNSFATHER 30 APR 1968 REDO ONMNITOR TO SAVE PIPS EACH 0.5 SEC FOR TM,ENTRY.
034545,000384: # MOD 03 BY FISHER DECEMBER 1967
034546,000385: # MOD 02 BY RYE SEPT 1967
034547,000386: # MOD 01 BY KOSMALA 23 MAR 1967
034548,000387: # MOD 00 BY KOSMALA 27 FEB 1967
034549,000388:
034550,000389: # FUNCTIONAL DESCRIPTION
034551,000390:
034552,000391: # THE PURPOSE OF ONMONITOR IS TO PROVIDE 1/2 SEC. READING OF PIPAS FOR DOWNLIST DURING ENTRY.
034553,000392: # X,Y,XPIPBUF CONTAIN PRESET VALUES X,Y,ZOLDBUF CONTAIN VALUES FROM PREVIOUS READING.
034554,000393:
034555,000394: # CALLING SEQUENCE
034556,000395:
034557,000396: # CALL AS WAITLIST TASK. TERMINATES ITSELF IN TASKOVER
034558,000397:
034559,000398: # INITIALIZATION
034560,000399:
034561,000400: # PIPCTR = 2 (FOR DT = 0.5 SEC)
034562,000401: # X,Y,ZPIPBUF SET TO PREVIOUS PIPAX,Y,Z
034563,000402:
034564,000403: # OUTPUT
034565,000404:
034566,000405: # X,Y,ZPIPBUF, X,Y,ZOLDBUF
034567,000406:
034568,000407: # DEBRIS
034569,000408:
034570,000409: # X,Y,ZPIPBUF CONTAIN LAST PIPAX,Y,Z VALUES
034571,000410: # X,Y,ZOLDBUF CONTAIN LAST-BUT-ONE PIPAX,Y,Z VALUES
034572,000411: # RUPTREG1
034573,000412: # PIPCTR
034574,000413:
034575,000414: 37,2767 55227 ONMNITOR TS PIPCTR
034576,000415:
034577,000416: 37,2770 05156 TC FIXDELAY # WAIT
034578,000417: 37,2771 00062 0.5SEC DEC 50 B-14
034579,000418:
034580,000419: 37,2772 34711 QUIKREAD CAF TWO
034581,000420: 37,2773 54070 TS RUPTREG1
034582,000421: 37,2774 50000 INDEX A
034583,000422: 37,2775 30037 CA PIPAX # SAVE ACTUAL PIPAS FOR TM.
034584,000423: 37,2776 50070 INDEX RUPTREG1
034585,000424: 37,2777 57533 XCH XPIPBUF # UPDATE X,Y,ZPIPBUF
034586,000425: 37,3000 50070 INDEX RUPTREG1
034587,000426: 37,3001 55536 TS XOLDBUF # AND X,Y,ZOLDBUF
034588,000427: 37,3002 10070 CHKCTR CCS RUPTREG1
034589,000428: 37,3003 12773 TCF QUIKREAD +1 # LOOP AGAIN
034590,000429: 37,3004 11227 CCS PIPCTR
034591,000430: 37,3005 12767 TCF ONMNITOR
034592,000431: 37,3006 05213 TC TASKOVER
034593,000432:
034594,000433: # Page 786
034595,000434: # ********************* SERVICER ***************************************
034596,000435:
034597,000436: 37,3007 E7,1431 EBANK= DVCNTR
034598,000437:
034599,000438: 37,3007 34711 SERVICER CAF TWO
034600,000439: 37,3010 00004 INHINT
034601,000440: 37,3011 54070 PIPCHECK TS RUPTREG1
034602,000441:
034603,000442: 37,3012 60000 DOUBLE
034604,000443: 37,3013 50000 INDEX A
034605,000444: 37,3014 11162 CCS DELVX
034606,000445: 37,3015 03017 TC +2
034607,000446: 37,3016 03025 TC PIPLOOP
034608,000447:
034609,000448: 37,3017 63135 AD -MAXDELV # DO PIPA-SATURATION TEST BEFORE
034610,000449: 37,3020 00006 EXTEND
034611,000450: 37,3021 63025 BZMF PIPLOOP # COMPENSATION.
034612,000451:
034613,000452: 37,3022 05537 TC ALARM
034614,000453: 37,3023 00205 OCT 00205 # SATURATED-PIPA ALARM ***CHANGE LATER
034615,000454: 37,3024 03046 TC AVERAGEG
034616,000455:
034617,000456: 37,3025 10070 PIPLOOP CCS RUPTREG1
034618,000457: 37,3026 13011 TCF PIPCHECK
034619,000458:
034620,000459: 37,3027 05301 TC PHASCHNG # RESTART REREADAC + SERVICER
034621,000460: 37,3030 16035 OCT 16035
034622,000461: 37,3031 20000 OCT 20000
034623,000462: 37,3032 E7,1431 EBANK= DVCNTR
034624,000463: 37,3032 03036 76067 2CADR DVTOTUP
034625,000464:
034626,000465: 37,3034 04555 TC BANKCALL # PIPA COMPENSATION CALL
034627,000466: 37,3035 15262 CADR 1/PIPA
034628,000467:
034629,000468: 37,3036 06006 DVTOTUP TC INTPRET
034630,000469: 37,3037 51575 VLOAD ABVAL # GET ABS VALUE OF DELV
034631,000470: 37,3040 01163 DELV
034632,000471: 37,3041 77405 DMP EXIT
034633,000472: 37,3042 37354 KPIP1 # SCALE AT 2(+7)
034634,000473:
034635,000474: 37,3043 00006 EXTEND
034636,000475: 37,3044 30155 DCA MPAC
034637,000476: 37,3045 21426 DAS DVTOTAL # ACCUMULATE DVTOTAL
034638,000477: 37,3046 05301 AVERAGEG TC PHASCHNG
034639,000478: 37,3047 10035 OCT 10035
034640,000479:
034641,000480: 37,3050 06006 TC INTPRET
034642,000481: 37,3051 77624 CALL
034643,000482: # Page 787
034644,000483: 37,3052 77323 CALCRVG
034645,000484: 37,3053 77776 EXIT
034646,000485:
034647,000486: 37,3054 05301 TC PHASCHNG
034648,000487: 37,3055 10035 OCT 10035
034649,000488:
034650,000489: 37,3056 34113 CAF OCT31 # COPY RN1,VN1,GOT102,GOBL1/2,PIPTIME1
034651,000490: 37,3057 05475 TC GENTRAN # INTO RN, VN, GDT/12, GOBL/2,PIPTIME
034652,000491: 37,3060 01231 ADRES RN1
034653,000492: 37,3061 01170 ADRES RN
034654,000493: 37,3062 00003 RELINT # GENTRAN DOES AN INHINT
034655,000494: 37,3063 05301 TC PHASCHNG
034656,000495: 37,3064 10035 OCT 10035
034657,000496:
034658,000497: 37,3065 00006 EXTEND
034659,000498: 37,3066 31223 DCA AVGEXIT
034660,000499: 37,3067 52006 DXCH Z # AVERAGEG EXIT
034661,000500:
034662,000501: 37,3070 31205 AVGEND CA PIPTIME +1 # FINAL AVERAGE G EXIT
034663,000502: 37,3071 55074 TS OLDBT1 # SET UP FREE FALL GYRO COMPENSATION
034664,000503:
034665,000504: 37,3072 05435 TC UPFLAG # SET DRIFTFLG
034666,000505: 37,3073 00036 ADRES DRIFTFLG # BIT 15 FLAG 2
034667,000506: 37,3074 05261 TC 2PHSCHNG
034668,000507: 37,3075 00005 OCT 5 # GROUP 5 OFF
034669,000508: 37,3076 05022 OCT 05022 # GROUP 2 ON FOR AVETOMID
034670,000509: 37,3077 20000 OCT 20000
034671,000510:
034672,000511: 37,3100 06006 TC INTPRET
034673,000512: 37,3101 77624 CALL
034674,000513: 37,3102 27472 AVETOMID # CONVERT STATE VECTOR TO REFERENCE SCALE.
034675,000514: 37,3103 77776 EXIT
034676,000515:
034677,000516: 37,3104 34714 CAF ZERO # ZERO MARK COUNTERS.
034678,000517: 37,3105 55125 TS VHFCNT
034679,000518: 37,3106 55126 TS TRKMKCNT
034680,000519:
034681,000520: 37,3107 04555 TC BANKCALL
034682,000521: 37,3110 17112 CADR PIPFREE
034683,000522:
034684,000523: 37,3111 44702 CS BIT9
034685,000524: 37,3112 55734 TS MRKBUF2 # INVALIDATE MARK BUFFER
034686,000525: 37,3113 00006 EXTEND
034687,000526: 37,3114 03011 WAND DSALMOUT
034688,000527:
034689,000528: 37,3115 05447 TC DOWNFLAG
034690,000529: 37,3116 00147 ADRES CM/DSTBY
034691,000530:
034692,000531: 37,3117 05447 TC DOWNFLAG
034693,000532: 37,3120 00162 ADRES V37FLAG
034694,000533:
034695,000534: # Page 788
034696,000535: 37,3121 34704 CAF BIT7 # RESTORE GROUP 1 + 2 IF P20 IS RUNNING.
034697,000536: 37,3122 70074 MASK FLAGWRD0
034698,000537: 37,3123 00006 EXTEND
034699,000538: 37,3124 13130 BZF +4
034700,000539:
034701,000540: 37,3125 05261 TC 2PHSCHNG
034702,000541: 37,3126 00111 OCT 111 # 1.11SPOT
034703,000542: 37,3127 00132 OCT 132 # 2.13SPOT
034704,000543:
034705,000544: 37,3130 04574 TC POSTJUMP
034706,000545: 37,3131 10123 CADR CANV37
034707,000546:
034708,000547: 37,3132 05301 SERVEXIT TC PHASCHNG
034709,000548: 37,3133 00035 OCT 00035 # A, 5.3 = REREADAC (ONLY)
034710,000549:
034711,000550: 37,3134 15112 TCF ENDOFJOB
034712,000551:
034713,000552: 37,3135 4717 DVTHRUSH EQUALS ELEVEN # 15 PERCENT OF 2SEC PIPA ACCUMULATION,
034714,000553: # FOR 503-FULL CSM/LEM....DELV SC.AT
034715,000554: # 5.85 CM/SEC.
034716,000555:
034717,000556: 37,3135 63401 -MAXDELV DEC -6398 B-14 # 3200 PPS FOR 2 SEC CCS TAKES 1
034718,000557: 37,3136 00170 JTAGTIME DEC 120 B-14 # = 1 SEC + T CDU, T CDU = .1 SEC
034719,000558:
034720,000559: 37,3137 00372 2.5SEC DEC 250 B-14
034721,000560: 37,3140 00044 MDOTFAIL DEC 144.0 B-16 # 5 SEC MASS LOSS AT 28.8 KG/SEC
034722,000561: # SHOULD BE 2-4 SECS FOR NO START
034723,000562: # 6-8 SECS FOR FAILURE
034724,000563:
034725,000564: # Page 789
034726,000565: # NORMLIZE PERFORMS THE INITIALIZATION REQUIRED PRIOR TO THE FIRST ENTRY TO AVERAGEG, AND SCALES RN SO THAT IT
034727,000566: # HAS 1 LEADING BINARY ZERO. IN MOST MISSIONS, RN WILL BE SCALED AT 2(+29), BUT IN THE 206 MISSION, RN WILL BE
034728,000567: # SCALED AT 2(+24) M.
034729,000568:
034730,000569: 37,3141 34720 NORMLIZE CAF THIRTEEN # SET UP TO COPY 14 REGS: RN1,VN1,PIPTIME1
034731,000570: 37,3142 05475 TC GENTRAN # INTO RN,VN,PIPTIME
034732,000571: 37,3143 01231 ADRES RN1 # FROM HERE
034733,000572: 37,3144 01170 ADRES RN # TO HERE
034734,000573:
034735,000574: 37,3145 00003 RELINT
034736,000575: 37,3146 06006 TC INTPRET
034737,000576: 37,3147 45175 VLOAD CALL # LOAD RN FOR CALCGRAV
034738,000577: 37,3150 01171 RN
034739,000578: 37,3151 77256 CALCGRAV # INITIALIZE UNITR RMAG GDT1
034740,000579:
034741,000580: 37,3152 25207 STOVL GDT/2
034742,000581: 37,3153 01256 GOBL1/2
034743,000582: 37,3154 01215 STORE GOBL/2
034744,000583: 37,3155 77776 EXIT
034745,000584: 37,3156 15112 TCF ENDOFJOB
034746,000585:
034747,000586: # Page 790
034748,000587: # ***** PIPA READER *****
034749,000588: # MOD NO. 00 BY D. LICKLY DEC. 9 1966
034750,000589:
034751,000590: # FUNCTIONAL DESCRIPTION
034752,000591:
034753,000592: # SUBROUTINE TO READ PIPA COUNTERS, TRYING TO BE VERY CAREFUL SO THAT IT WILL BE RESTARTABLE.
034754,000593: # PIPA READINGS ARE STORED IN THE VECTOR DELV. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS THE PIPA READING,
034755,000594: # RESTARTS BEGIN AT REREADAC.
034756,000595:
034757,000596: # AT THE END OF THE PIPA READER THE CDUS ARE READ AND STORED AS A
034758,000597: # VECTOR IN CDUTEMP. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS
034759,000598: # THE CDU READING IN 2'S COMP IN THE ORDER CDUX,Y,Z. THE THRUST
034760,000599: # VECTOR ESTIMATOR IN FINDCDUD REQUIRES THE CDUS BE READ AT PIPTIME.
034761,000600:
034762,000601: # CALLING SEQUENCE AND EXIT
034763,000602:
034764,000603: # CALL VIA TC, ISWCALL, ETC.
034765,000604:
034766,000605: # EXIT IS VIA Q.
034767,000606:
034768,000607: # INPUT
034769,000608:
034770,000609: # INPUT IS THROUGH THE COUNTERS PIPAX, PIPAY, PIPAZ, AND TIME2.
034771,000610:
034772,000611: # OUTPUT
034773,000612:
034774,000613: # HIGH ORDER COMPONENTS OF THE VECTOR DELV CONTAIN THE PIPA READINGS.
034775,000614:
034776,000615: # PIPTIME CONTAINS TIME OF PIPA READING.
034777,000616:
034778,000617: # DEBRIS
034779,000618:
034780,000619: # LOW ORDER COMPONENTS OF THE VECTOR DELV CONTAIN THE PIPA READINGS.
034781,000620: # TEMX TEMY TEMZ PIPAGE
034782,000621:
034783,000622: 37,3157 00006 PIPASR EXTEND
034784,000623: 37,3160 30025 DCA TIME2
034785,000624: 37,3161 53246 DXCH PIPTIME1 # CURRENT TIME POSITIVE VALUE
034786,000625: 37,3162 44714 CS ZERO # INITIALIZAE THESE AT NEG ZERO.
034787,000626: 37,3163 55224 TS TEMX
034788,000627: 37,3164 55225 TS TEMY
034789,000628: 37,3165 55226 TS TEMZ
034790,000629: # Page 791
034791,000630: 37,3166 34714 CA ZERO
034792,000631: 37,3167 55166 TS DELVZ # OTHER DELVS OK INCLUDING LOW ORDER
034793,000632: 37,3170 55164 TS DELVY
034794,000633:
034795,000634: 37,3171 55163 TS DELVX +1 # LOW ORDER DELV'S ARE ZEROED FOR TM: THIS
034796,000635: 37,3172 55165 TS DELVY +1 # IF DNLNK=D LOW ORDER DELVS ARE NZ, THEY
034797,000636: 37,3173 55167 TS DELVZ +1 # CONTAIN PROPER COMPENSATION. IF=0, THEN
034798,000637: # THE TM VALUES ARE BEFORE COMPENSATION.
034799,000638:
034800,000639: 37,3174 55230 TS PIPAGE # SHOW PIPA READING IN PROGRESS
034801,000640:
034802,000641: 37,3175 00006 REPIP1 EXTEND
034803,000642: 37,3176 40040 DCS PIPAX # X AND Y PIPS READ
034804,000643: 37,3177 53225 DXCH TEMX
034805,000644: 37,3200 52040 DXCH PIPAX # PIPAS SET TO NEG ZERO AS READ.
034806,000645: 37,3201 55162 TS DELVX
034807,000646: 37,3202 23164 LXCH DELVY
034808,000647:
034809,000648: 37,3203 40041 REPIP3 CS PIPAZ # REPEAT PROCESS FOR Z PIP
034810,000649: 37,3204 57226 XCH TEMZ
034811,000650: 37,3205 56041 XCH PIPAZ
034812,000651: 37,3206 55166 DODELVZ TS DELVZ
034813,000652:
034814,000653: 37,3207 00002 TC Q
034815,000654: 37,3210 E6,1661 EBANK= AOG
034816,000655:
034817,000656: 37,3210 10763 REREADAC CCS PHASE5 # LAST PASS CHECK
034818,000657: 37,3211 13213 TCF +2
034819,000658: 37,3212 15213 TCF TASKOVER
034820,000659:
034821,000660: 37,3213 37665 CAF PRIO31 # RESTART MAY HAVE WIPED OUT LASTBIAS, AN
034822,000661: 37,3214 55074 TS 1/PIPADT # UNPROTECTED NOVAC FROM PREREAD,
034823,000662: # WHICH SET(S) UP 1/PIPADT (THUSLY)
034824,000663: # FOR NON-COASTING COMPENSATION....BE
034825,000664: # SURE 1/PIPADT IS AOK. (PRIO31 IS
034826,000665: # 2.0SEC SC.AT B+8(CS)
034827,000666:
034828,000667: 37,3215 11230 CCS PIPAGE
034829,000668: 37,3216 12647 TCF READACCS # PIP READING NOT STARTED. GO TO BEGINNING
034830,000669:
034831,000670: 37,3217 33255 CAF DONEADR # SET UP RETURN FROM PIPASR
034832,000671: 37,3220 54002 TS Q
034833,000672:
034834,000673: 37,3221 11166 CCS DELVZ
034835,000674: 37,3222 00002 TC Q # Z DONE, GO DO CDUS
034836,000675: 37,3223 13226 TCF +3 # Z NOT DONE, CHECK Y.
034837,000676: 37,3224 00002 TC Q
034838,000677: 37,3225 00002 TC Q
034839,000678: # Page 792
034840,000679: 37,3226 22007 ZL
034841,000680: 37,3227 11164 CCS DELVY
034842,000681: 37,3230 13233 TCF +3
034843,000682: 37,3231 13242 TCF CHKTEMX # Y NOT DONE, CHECK X.
034844,000683: 37,3232 13233 TCF +1
034845,000684: 37,3233 22041 LXCH PIPAZ # Y DONE, ZERO Z PIP.
034846,000685:
034847,000686: 37,3234 11226 CCS TEMZ
034848,000687: 37,3235 41226 CS TEMZ # TEMZ NOT = -0, CONTAINS -PIPAZ VALUE.
034849,000688: 37,3236 13206 TCF DODELVZ
034850,000689: 37,3237 13235 TCF -2
034851,000690: 37,3240 23166 LXCH DELVZ # TEMZ = -0, L HAS ZPIP VALUE.
034852,000691: 37,3241 00002 TC Q
034853,000692:
034854,000693: 37,3242 11224 CHKTEMX CCS TEMX # HAS THIS CHANGED
034855,000694: 37,3243 41224 CS TEMX # YES
034856,000695: 37,3244 13247 TCF +3 # YES
034857,000696: 37,3245 13243 TCF -2 # YES
034858,000697: 37,3246 13175 TCF REPIP1 # NO
034859,000698: 37,3247 55162 TS DELVX
034860,000699:
034861,000700: 37,3250 41225 CS TEMY
034862,000701: 37,3251 55164 TS DELVY
034863,000702:
034864,000703: 37,3252 44714 CS ZERO # ZERO X AND Y PIPS
034865,000704: 37,3253 52040 DXCH PIPAX # L STILL ZERO FROM ABOVE
034866,000705:
034867,000706: 37,3254 13203 TCF REPIP3
034868,000707:
034869,000708: 37,3255 02650 DONEADR GENADR PIPSDONE
034870,000709:
034871,000710: # Page 793
034872,000711: # *********************************************************************************************
034873,000712:
034874,000713: # ROUTINE CALCRVG INTEGRATES THE EQUATIONS OF MOTION BY AVERAGING THE THRUST AND GRAVITATIONAL
034875,000714: # ACCELERATIONS OVER A TIME INTERVAL OF 2 SECONDS.
034876,000715:
034877,000716: # FOR THE EARTH-CENTERED GRAVITATIONAL FIELD, THE PERTURBATION DUE TO OBLATENESS IS COMPUTED TO THE FIRST
034878,000717: # HARMONIC COEFFICIENT J.
034879,000718:
034880,000719: # ROUTINE CALCRVG REQUIRES...
034881,000720: # 1) THRUST ACCELERATION INCREMENTS IN DELV SCALED SAME AS PIPAX,Y,Z IN STABLE MEMBER COORDS.
034882,000721: # 2) VN SCALED 2(+7) M/CS IN REFERENCE COORDS.
034883,000722: # 3) RN SCALED AT 2(+29) METERS IN REFERENCE COORDS.
034884,000723: # 4) UNITW THE EARTH'S UNIT ROTATIONAL VECTOR (SCALED AS A FULL UNIT VECTOR) IN REFERENCE COORDS.
034885,000724:
034886,000725: # 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
034887,000726: # UNIT VECTOR UNITR, RMAG IN 36D SCALED AT 2(+29)M, R MAG SQ. IN 34D SCALED AT 2(+58) M SQ.
034888,000727:
034889,000728: 37,3256 41456 CALCGRAV UNIT PUSH # ENTER WITH RN IN MPAC
034890,000729: 37,3257 01760 STORE UNITR
034891,000730: 37,3260 67340 LXC,1 SLOAD
034892,000731: 37,3261 03746 RTX2
034893,000732: 37,3262 00047 X1
034894,000733: 37,3263 77240 BMN VLOAD
034895,000734: 37,3264 77312 ITISMOON
034896,000735: 37,3265 41441 DOT PUSH
034897,000736: 37,3266 01714 UNITW
034898,000737: 37,3267 44316 DSQ BDSU
034899,000738: 37,3270 37364 DP1/20
034900,000739: 37,3271 56325 PDDL DDV
034901,000740: 37,3272 37366 RESQ
034902,000741: 37,3273 00043 34D # (RN)SQ
034903,000742: 37,3274 00041 STORE 32D # TEMP FOR (RE/RN)SQ
034904,000743: 37,3275 41205 DMP DMP
034905,000744: 37,3276 37370 20J
034906,000745: 37,3277 65361 VXSC PDDL
034907,000746: 37,3300 01760 UNITR
034908,000747: 37,3301 41205 DMP DMP
034909,000748: 37,3302 37372 2J
034910,000749: 37,3303 00041 32D
034911,000750: 37,3304 53361 VXSC VAD
034912,000751: 37,3305 01714 UNITW
034913,000752: 37,3306 77626 STADR
034914,000753: 37,3307 76521 STORE GOBL1/2
034915,000754: 37,3310 41455 VAD PUSH
034916,000755: 37,3311 01760 UNITR
034917,000756: 37,3312 60345 ITISMOON DLOAD NORM
034918,000757: 37,3313 00043 34D
034919,000758: 37,3314 00050 X2
034920,000759: 37,3315 53663 BDDV* SLR*
034921,000760: # Page 794
034922,000761: 37,3316 37356 -MUDT(E),1
034923,000762: 37,3317 56623 0 -21D,2
034924,000763: 37,3320 45561 VXSC STADR
034925,000764: 37,3321 76527 STORE GDT1/2 # SCALED AT 2(+7) M/CS
034926,000765: 37,3322 77616 RVQ
034927,000766:
034928,000767: 37,3323 74375 CALCRVG VLOAD VXSC
034929,000768: 37,3324 01163 DELV
034930,000769: 37,3325 37354 KPIP1
034931,000770: 37,3326 76505 VXM VSL1
034932,000771: 37,3327 01736 REFSMMAT
034933,000772: 37,3330 03433 STORE DELVREF # DELV IN REF COORDS AT 2(+7)
034934,000773: 37,3331 41562 VSR1 PUSH
034935,000774: 37,3332 41455 VAD PUSH # (DV-OLDGDT)/2 TO PD SCALED AT 2(+7)M/CS
034936,000775: 37,3333 01207 GDT/2
034937,000776: 37,3334 74255 VAD VXSC
034938,000777: 37,3335 01177 VN
034939,000778: 37,3336 37362 2SEC(22)
034940,000779: 37,3337 44055 VAD STQ
034941,000780: 37,3340 01171 RN
034942,000781: 37,3341 00037 31D
034943,000782: 37,3342 35232 STCALL RN1 # TEMP STORAGE OF RN SCALED 2(+29)M
034944,000783: 37,3343 77256 CALCGRAV
034945,000784:
034946,000785: 37,3344 53255 VAD VAD
034947,000786: 37,3345 77655 VAD
034948,000787: 37,3346 01177 VN
034949,000788: 37,3347 35240 STCALL VN1 # TEMP STORAGE OF VN SCALED 2(+7) M/CS.
034950,000789: 37,3350 00037 31D
034951,000790:
034952,000791: 37,3351 03215 27057 KPIP 2DEC .1024 # SCALES DELV TO 2(+4)
034953,000792: 37,3353 02312 32537 KPIP1 2DEC 0.074880 # 207 DELV SCALING. 1 PULSE = 5.85 CM/SEC.
034954,000793: 37,3355 61377 55754 -MUDT(E) 2DEC* -7.9720645 E+12 B-44*
034955,000794: 37,3357 77644 65556 -MUDT(M) 2DEC* -9.805556 E+10 B-44*
034956,000795: 37,3361 00000 31000 2SEC(22) 2DEC 200 B-22
034957,000796: 37,3363 01463 06315 DP1/20 2DEC 0.05
034958,000797: 37,3365 00001 05000 RESQ 2DEC* 40.6809913 E12 B-59*
034959,000798: 37,3367 02047 36332 20J 2DEC* 3.24692010 E-2 B1*
034960,000799: 37,3371 00152 14511 2J 2DEC* 3.24692010 E-3 B1*
034961,000800:
End of include-file SERVICER207.agc. Parent file is MAIN.agc