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