Source Code
|
These source-code files are part of a reconstructed copy of Comanche 72, the
first release of the Apollo Guidance Computer (AGC) Command Module (CM) software
for Apollo 13.
They have been adapted from sources files created from a listing of Comanche 55.
These source files were updated to match binary dumps of a set of Comanche 67 rope modules.
They were then further modified by applying known changes between Comanche 67 and Comanche 72.
A binary dump of module B2 of Comanche 72, part number 2010802-021, was also used
to validate changes made to banks 05-13. The resulting code assembles to have identical
memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably
high confidence that the changes that have been made are correct. In places where
ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.
Since no contemporary listings of Comanche 72 are available as source material,
all comments and labels are approximate.
They have been taken from other AGC programs where possible, or, in some places, written
from scratch to match what we believe would have been in the original listing.
|
035208,000002: ## Copyright: Public domain.
035209,000003: ## Filename: SERVICER207.agc
035210,000004: ## Purpose: A section of Comanche revision 072.
035211,000005: ## It is part of the reconstructed source code for the first
035212,000006: ## release of the software for the Command Module's (CM) Apollo
035213,000007: ## Guidance Computer (AGC) for Apollo 13. No original listings
035214,000008: ## of this program are available; instead, this file was recreated
035215,000009: ## from a printout of Comanche 055, binary dumps of a set of
035216,000010: ## Comanche 067 rope modules, and changelogs between Comanche 067
035217,000011: ## and 072. It has been adapted such that the resulting bugger words
035218,000012: ## exactly match those specified for Comanche 072 in NASA drawing
035219,000013: ## 2021153G, which gives relatively high confidence that the
035220,000014: ## reconstruction is correct.
035221,000015: ## Assembler: yaYUL
035222,000016: ## Contact: Ron Burkey <info@sandroid.org>.
035223,000017: ## Website: www.ibiblio.org/apollo/index.html
035224,000018: ## Mod history: 2024-05-13 MAS Created from Comanche 067.
035225,000019:
035226,000020: # PROGRAM NAME - PREREAD, READACCS, SERVICER, AVERAGE G.
035227,000021: # MOD NO. 00 BY M. HAMILTON DEC. 12, 1966
035228,000022:
035229,000023: # FUNCTIONAL DESCRIPTION
035230,000024:
035231,000025: # THE ROUTINES DESCRIBED BELOW ARE USED TO CALCULATE VALUES OF RN, VN, AND GDT/2 DURING ACCELERATED FLIGHT.
035232,000026: # THE SEVERAL ROUTINES COMPRISE A PACKAGE AND ARE NOT MEANT TO BE USED AS SEPARATE SUBROUTINES.
035233,000027:
035234,000028: # GENERAL REFERENCES TO SERVICER OR AVERAGE G ARE UNDERSTOOD TO REFER TO THE ENTIRE SET OF ROUTINES INCLUDING
035235,000029: # READACCS, SERVICER, AVERAGE G, INTEREAD, SMOOTHER, AND ANY ADDITIONAL ROUTINES ATTACHED AT AVGEXIT (SEE BELOW).
035236,000030:
035237,000031: # PROGRAMS INITIATING SERVICER ARE REQUIRED TO MAKE A WAITLIST CALL FOR PREREAD (OR, IF LIFTOFF, FOR BIBIBIAS)
035238,000032: # AT 2 SECONDS BEFORE THE FIRST AVERAGE G UPDATE IN ORDER TO INITIALIZE THE SEQUENCE, WHICH WILL RECUR EVERY
035239,000033: # 2 SECONDS FROM THAT TIME ON AS LONG AS AVEGFLAG REMAINS SET.
035240,000034:
035241,000035: # THE USE OF ERASABLE AVGEXIT ALLOWS VARIOUS ROUTINES TO BE PERFORMED AS PART OF THE NORMAL CYCLE (SEE
035242,000036: # EXPLANATION OF AVGEXIT BELOW).
035243,000037:
035244,000038: # DESCRIPTIONS OF INDIVIDUAL ROUTINES FOLLOW.
035245,000039:
035246,000040: # PREREAD
035247,000041:
035248,000042: # PREVIOUSLY EXTRAPOLATED VALUES COPIED FROM RN1, VN1, AND PIPTIME1 INTO RN, VN, AND PIPTIME.
035249,000043: # LASTBIAS JOB SCHEDULED.
035250,000044: # PIPS READ AND CLEARED VIA PIPASR SUBROUTINE.
035251,000045: # AVERAGE G FLAG SET ON.
035252,000046: # DRIFT FLAG SET OFF.
035253,000047: # V37 FLAG SET ON.
035254,000048: # INITIALIZATION OF 1) THRUST MONITOR (DVMON) - DVCNTR SET TO ONE.
035255,000049: # 2) TOTAL ACCUMULATED DELV VALUE (DVTOTAL) - SET TO ZERO.
035256,000050: # 3) AXIS VECTOR (AXIS) - SET TO (.5,0,0).
035257,000051: # NORMLIZE JOB SCHEDULED.
035258,000052: # READACCS TASK CALLED IN 2 SECONDS.
035259,000053:
035260,000054: # NORMLIZE
035261,000055:
035262,000056: # GDT/2 INITIALIZED VIA CALCGRAV SUBROUTINE.
035263,000057:
035264,000058: # READACCS
035265,000059:
035266,000060: # IF ONMON FLAG SET QUIKREAD ROUTINE IS PERFORMED BEFORE PIPASR ZEROS THE PIPA REGISTERS, AND THE 1/2 SEC
035267,000061: # ONMONITOR LOOP IS INITIATED TO PROVIDE DOWNLINK INFORMATION DURING ENTRY.
035268,000062: # PIPS READ AND CLEARED BY PIPASR SUBROUTINE.
035269,000063: # IF CM/DSTBY IS ON, ENTRY VARIABLES INITIALIZED AND SETJTAG TASK CALLED.
035270,000064:
035271,000065: # IF AVERAGEG FLAG ON READACCS CALLED TO RECYCLE IN 2 SECONDS.
035272,000066: # IF AVERAGEG FLAG OFF AVERAGE G EXIT (AVGEXIT) SET TO 2CADR AVGEND FOR FINAL PASS.
035273,000067: # SERVICER JOB SCHEDULED.
035274,000068: # TEST CONNECTOR OUTBIT TURNED ON.
035275,000069:
035276,000070: # ONMNITOR
035277,000071:
035278,000072: # A SEQUENCE OF THREE PASSES THROUGH QUICKREAD FOLLOWING A CALL TO READACCS WITH ONMONFLG SET AT 1/2
035279,000073: # SEC INTERVALS. INTERVALS ARE COUNTED OUT BY PIPCTR, INITIALISED AT 3 BY READACCS
035280,000074:
035281,000075: # QUIKREAD
035282,000076:
035283,000077: # READS CURRENT PIPS INTO X,Y,ZPIPBUF. READS OLD X,Y,ZPIPBUF INTO X,Y,ZOLDBUF. VALUES ARE SENT TO
035284,000078: # DOWNLIST DURING ENTRY.
035285,000079:
035286,000080: # SERVICER
035287,000081:
035288,000082: # DELV VALUES CHECKED TO DETECT RUNAWAY PIP -
035289,000083: # IF BAD PIP 1) ALARM SENT.
035290,000084: # 2) COMPENSATION, DVTOTAL ACCUMULATION, AND DVMON BYPASSED. CONTROL
035291,000085: # TRANSFERRED TO AVERAGE G.
035292,000086: # PIPS COMPENSATED VIA 1/PIPA SUBROUTINE.
035293,000087: # DVTOTAL INCREMENTED BY ABSOLUTE VALUE OF DELV.
035294,000088: # THRUST MONITOR (DVMON) PERFORMED UNLESS IDLE FLAG IS ON.
035295,000089: # CONTROL TRANSFERRED TO AVERAGE G.
035296,000090:
035297,000091: # DVMON
035298,000092:
035299,000093: # THRESHOLD VALUE (PLACED IN DVTHRUSH BY USER) CHECKED AGAINST ABSOLUTE VALUE OF DELV TO CHECK
035300,000094: # THRUST LEVEL.
035301,000095:
035302,000096: # IF THRUST 1) ULLAGE OFF ROUTINE PERFORMED.
035303,000097: # 2) STEERING FLAG TURNED ON AT FIRST DETECTION OF THRUST.
035304,000098: # 3) CONTROL TRANSFERRED TO AVERAGE G.
035305,000099: # IF NO THRUST 1) ON FIRST PASS THROUGH MONITOR, CONTROL TRANSFERRED TO AVERAGE G.
035306,000100: # 2) ON SUBSEQUENT PASSES, CONTROL TRANSFERRED TO ENGINE FAIL ROUTINE IF THRUST
035307,000101: # HAS FAILED FOR 3 CONSECUTIVE PASSES.
035308,000102:
035309,000103: # ENGINE FAIL
035310,000104:
035311,000105: # ENGFAIL1 TASK CALLED IN 2.5 SECONDS. THIS WILL RETURN CONTROL TO TIG-5 SO THAT THE IGNITION
035312,000106: # SEQUENCE MAY BE REPEATED.
035313,000107: # ENGINOF3 PERFORMED.
035314,000108: # DAP SET UP FOR RCS.
035315,000109: #
035316,000110: # AVERAGE G
035317,000111: # RN1, VN1, GDT1/2 CALCULATED VIA CALCRVG ROUTINE BY UPDATING RN, VN WITH DELV AND AN AVERAGED VALUE
035318,000112: # OF GDT/2.
035319,000113: # RN1, VN1, GDT1/2, PIPTIME1 COPIED INTO RN, VN, GDT/2, PIPTIME FOR RESTART PROTECTION.
035320,000114: # CONTROL TRANSFERRED TO ADDRESS SPECIFIED BY USER (OR BY READACCS FOR LAST PASS) IN AVGEXIT.
035321,000115: # LAST PASS (AVGEND) 1) FREE FALL GYRO COMPENSATION SET UP.
035322,000116: # 2) DRIFT FLAG TURNED ON.
035323,000117: # 3) STATE VECTOR TRANSFERRED VIA AVETOMID ROUTINE.
035324,000118: # 4) ONMONITOR FLAG RESET.
035325,000119: # 5) V37 FLAG RESET.
035326,000120: # 6) TEST CONNECTOR OUTBIT RESET.
035327,000121: # 7) CONTROL TRANSFERRED TO CANV37 TO CONTINUE MM CHANGE ROUTINE (R00).
035328,000122:
035329,000123: # CALLING SEQUENCE
035330,000124:
035331,000125: # PREREAD ENTERED DIRECTLY FROM TIG-30 VIA POSTJUMP.
035332,000126: # READACCS CALLED AS WAITLIST TASK. .
035333,000127:
035334,000128: # SUBROUTINES CALLED
035335,000129:
035336,000130: # UTILITY ROUTINES - PHASCHNG FLAGUP FLAGDOWN NOVAC FINDVAC WAITLIST ALARM NEWPHASE 2PHSCHNG
035337,000131:
035338,000132: # OTHER - PIPASR 1/PIPA CALCGRAV CALCRVG AVETOMID
035339,000133:
035340,000134: # NORMAL EXIT MODES
035341,000135:
035342,000136: # ENDOFJOB TASKOVER CANV37
035343,000137:
035344,000138: # AVGEXIT - THIS IS A DOUBLE PRECISION ERASABLE LOCATION BY WHICH CONTROL IS TRANSFERRED AT THE END
035345,000139: # OF EACH CYCLE OF AVERAGE G.
035346,000140: # THE 2CADR OF A ROUTINE TO BE PERFORMED AT THAT TIME (E.G., STEERING EQUATIONS TO BE PERFORMED
035347,000141: # AT 2 SECOND INTERVALS) MAY BE SET BY THE USER INTO AVGEXIT.
035348,000142: # ALL SUCH ROUTINES SHOULD RETURN TO SERVEXIT, WHICH IS THE NORMAL EXIT FROM AVERAGE G.
035349,000143:
035350,000144: # SERVEXIT - DOES A PHASE CHANGE FOR RESTART PROTECTION AND GOES TO ENDOFJOB.
035351,000145: # THE 2CADR OF SERVEXIT IS SET INTO AVGEXIT BY THE USER IF NO OTHER ROUTINE (SEE ABOVE).
035352,000146:
035353,000147: # AVGEND - LAST PASS OF AVERAGE G EXITS HERE, BYPASSING SPECIAL ROUTINE (SEE ABOVE UNDER READACCS).
035354,000148: # FINAL EXIT IS TO CANV37. F AVERAGE G).
035355,000149:
035356,000150: # OUTPUT
035357,000151:
035358,000152: # DVTOTAL(2) PIPTIME(2) XPIPBUF(2) YPIPBUF(2) ZPIPBUF(2)
035359,000153: # RN(6) REFERENCE COORD. SCALED AT 2(+29) M/CS
035360,000154: # VN(6) REFERENCE COORD. SCALED AT 2(+7) M/CS
035361,000155: # GDT/2(6) REFERENCE COORD. SCALED AT 2(+7) M/CS
035362,000156: # DELV(6) STABLE MEMB. COORD. SCALED AT 2(+14)*5.85*10(-4) M/CS (KPIP1 USED TO GET DV/2 AT 2(+7))
035363,000157: # DELVREF(6) REFERENCE COORD. SCALED AT 2(+7) M/CS
035364,000158:
035365,000159: # INITIALIZATION
035366,000160:
035367,000161: # ONMONITOR FLAG SET BY ENTRY TO SHOW PIPBUF VALUES REQUIRED.
035368,000162: # IDLE FLAG ON IF DVMON TO BE BYPASSED.
035369,000163: # DVTHRUSH SET TO APPROPRIATE VALUE FOR DVMON.
035370,000164: # AVGEXIT SET TO 2CADR OF ROUTINE, IF ANY, TO BE PERFORMED AFTER EACH CYCLE OF AVERAGE G. IF NO ROUTINE
035371,000165: # TO BE DONE, AVGEXIT SET TO SERVEXIT.
035372,000166: # VALUES NEEDED
035373,000167: # REFSMMAT
035374,000168: # UNITW - FULL UNIT VECTOR, IN REFERENCE COORD., OF EARTH S ROTATIONAL VECTOR
035375,000169: # RN1, VN1, PIPTIME1 - IN REFERENCE COORD., CONSISTENT WITH TIME OF EXECUTION OF PREREAD
035376,000170:
035377,000171: # DEBRIS
035378,000172:
035379,000173: # CENTRALS A, L, Q
035380,000174: # OTHER INTERNAL - DVCNTR(1) PIPAGE(1) PIPCTR(1) AVGEXIT(2)
035381,000175: # EXTERNAL - ITEMP1(1) ITEMP2(1) RUPTREG1(1) TEMX(1) TEMY(1) TEMZ(1)
035382,000176: # USEFUL DEBRIS
035383,000177: # RN1(6) VN1(6) GDT1/2 PIPTIME1(2)
035384,000178: # THESE LOCATIONS USED AS BUFFER STORAGE FOR NEWLY CALCULATED VALUES OF RN, VN, GDT/2,
035385,000179: # AND PIPTIME DURING PERFORMANCE OF SERVICER ROUTINES.
035386,000180: # UNITR - HALF UNIT VECTOR OF RN, REFERENCE COORD.
035387,000181: # RMAG SCALED AT 2(+58) IN 36D.
035388,000182: # RMAGSQ SCALED AT 2(+58) IN 34D.
035389,000183: # (RE/RMAG)SQ IN 32D.
035390,000184:
035391,000185: 27,2672 BANK 27
035392,000186: 37,2000 SETLOC SERVICES
035393,000187: 37,2000 BANK
035394,000188:
035395,000189: 37,2714 E7,1431 EBANK= DVCNTR
035396,000190: # ************************************* PREREAD **************************************************************
035397,000191:
035398,000192: 37,2714 COUNT 37/SERV
035399,000193:
035400,000194: 37,2714 35107 PREREAD CAF PRIO21 # CALLER MUST PROTECT PREREAD
035401,000195: 37,2715 05150 TC NOVAC
035402,000196: 37,2716 E3,1460 EBANK= NBDX
035403,000197: 37,2716 03636 14063 2CADR LASTBIAS # DO LAST GYRO COMPENSATION IN FREE FALL
035404,000198:
035405,000199: # CALL-TO AND LASTBIAS ITSELF ARE NOT
035406,000200: # PROTECTED. REREADAC SETS 1/PIPADT
035407,000201: # TO 2.0 SECS IN CASE LASTBIAS LOST.
035408,000202: # (REDUNDANT IF LASTBIAS IS AOK)
035409,000203: 37,2720 02735 REDO5.31 TC PREREAD1
035410,000204:
035411,000205: 37,2721 37667 CAF PRIO32
035412,000206: 37,2722 05163 TC FINDVAC # SET UP NORMLIZE JOB REQUIRED PRIOR TO
035413,000207: 37,2723 E7,1431 EBANK= DVCNTR # FIRST AVERAGE G PASS
035414,000208: 37,2723 03240 76067 2CADR NORMLIZE
035415,000209:
035416,000210: 37,2725 35056 CAF 2SECS
035417,000211: 37,2726 05261 TC WAITLIST
035418,000212: 37,2727 E6,1661 EBANK= AOG
035419,000213: 37,2727 02757 76066 2CADR READACCS
035420,000214:
035421,000215: 37,2731 45032 CS TWO
035422,000216: 37,2732 04114 TC NEWPHASE
035423,000217: 37,2733 00005 OCT 5
035424,000218:
035425,000219: 37,2734 15340 TCF TASKOVER
035426,000220:
035427,000221: 37,2735 00006 PREREAD1 EXTEND
035428,000222: 37,2736 22070 QXCH RUPTREG1
035429,000223:
035430,000224: 37,2737 03256 TC PIPASR # CLEAR + READ PIPS LAST TIME IN FREE FALL
035431,000225:
035432,000226: 37,2740 35033 CAF ONE # SET UP PIPAGE FOR REREADAC IN CASE A
035433,000227: 37,2741 55230 TS PIPAGE # RESTART OCCURS BEFORE READACCS
035434,000228:
035435,000229: 37,2742 40075 CS FLAGWRD1 # SET AVEG FLAG
035436,000230: 37,2743 75033 MASK BIT1
035437,000231: 37,2744 26075 ADS FLAGWRD1
035438,000232:
035439,000233: 37,2745 35013 CA POSMAX
035440,000234: 37,2746 70076 MASK FLAGWRD2
035441,000235: 37,2747 54076 TS FLAGWRD2 # KNOCK DOWN DRIFT FLAG
035442,000236:
035443,000237: 37,2750 40103 CS FLAGWRD7 # SET V37 FLAG
035444,000238: 37,2751 75026 MASK BIT6
035445,000239: 37,2752 26103 ADS FLAGWRD7
035446,000240:
035447,000241: 37,2753 35035 CAF ZERO
035448,000242: 37,2754 55425 TS DVTOTAL # CLEAR DVTOTAL
035449,000243: 37,2755 55426 TS DVTOTAL +1
035450,000244:
035451,000245: 37,2756 00070 TC RUPTREG1
035452,000246:
035453,000247: # ************************************* READACCS *************************************************************
035454,000248: 37,2757 E6,1661 EBANK= AOG
035455,000249: 37,2757 03256 READACCS TC PIPASR
035456,000250:
035457,000251: 37,2760 35036 PIPSDONE CAF FIVE
035458,000252: 37,2761 54001 TS L
035459,000253: 37,2762 40000 COM
035460,000254: 37,2763 52763 DXCH -PHASE5
035461,000255:
035462,000256: 37,2764 35033 REDO5.5 CAF ONE # SHOW PIPS HAVE BEEN READ
035463,000257: 37,2765 55230 TS PIPAGE
035464,000258:
035465,000259: 37,2766 35032 CA TWO # SET PIPCTR FOR ONMINTOR
035466,000260: 37,2767 55227 TS PIPCTR # AFTER ABOVE PHASCHNG
035467,000261:
035468,000262: 37,2770 40102 CS CM/FLAGS
035469,000263: 37,2771 75032 MASK BIT2 # CM/DSTBY
035470,000264: 37,2772 10000 CCS A
035471,000265: 37,2773 03046 TC CHEKAVEG
035472,000266:
035473,000267: 37,2774 41246 CS PIPTIME1 +1
035474,000268: 37,2775 55065 TS TBASE6 # FOR RESTARTS
035475,000269: 37,2776 00006 EXTEND # CONTINUE FOR ENTRY DAP
035476,000270: 37,2777 31662 DCA AOG
035477,000271: 37,3000 53670 DXCH AOG/PIP
035478,000272: 37,3001 31663 CA AMG
035479,000273: 37,3002 57671 XCH AMG/PIP
035480,000274: 37,3003 00006 EXTEND
035481,000275: 37,3004 31665 DCA ROLL/180
035482,000276: 37,3005 53673 DXCH ROLL/PIP
035483,000277: 37,3006 31666 CA BETA/180
035484,000278: 37,3007 57674 XCH BETA/PIP
035485,000279: 37,3010 30102 CA CM/FLAGS
035486,000280: 37,3011 75020 MASK BIT12 # CM/DAPARM 93D BIT12
035487,000281: 37,3012 00006 EXTEND # DURING ENTRY, WHEN RCS DAP IS INACTIVE,
035488,000282: 37,3013 13031 BZF NOSAVPIP # SAVE PIPAS EACH 0.5 SEC FOR TM.
035489,000283:
035490,000284: 37,3014 35052 CAF .5SEC
035491,000285: 37,3015 05261 TC WAITLIST
035492,000286: 37,3016 E6,1533 EBANK= XPIPBUF
035493,000287: 37,3016 02437 32066 2CADR QUIKREAD
035494,000288:
035495,000289: # NO NEED TO RESTART PROTECT THIS.
035496,000290: 37,3020 31162 CA DELVX # SAVE PIPAS AS READ (BUT NOT COMPENSATED)
035497,000291: 37,3021 57533 XCH XPIPBUF
035498,000292: 37,3022 55536 TS XOLDBUF
035499,000293:
035500,000294: 37,3023 31164 CA DELVY
035501,000295: 37,3024 57534 XCH YPIPBUF
035502,000296: 37,3025 55537 TS YOLDBUF
035503,000297: 37,3026 31166 CA DELVZ
035504,000298: 37,3027 57535 XCH ZPIPBUF
035505,000299: 37,3030 55540 TS ZOLDBUF
035506,000300:
035507,000301: 37,3031 35036 NOSAVPIP CA FIVE
035508,000302: 37,3032 55725 TS CM/GYMDT
035509,000303:
035510,000304: 37,3033 33235 CA JTAGTIME # ACTIVATE CM/RCS AFTER PIPUP TO GO
035511,000305: # IN JTAGTIME +5 CS.
035512,000306: 37,3034 05261 TC WAITLIST
035513,000307: 37,3035 E6,1661 EBANK= AOG
035514,000308: 37,3035 03227 32066 2CADR SETJTAG
035515,000309:
035516,000310: 37,3037 46214 CS THREE # 1.3SPOT FOR SETJTAG
035517,000311: 37,3040 04114 TC NEWPHASE
035518,000312: 37,3041 00001 OCT 1
035519,000313:
035520,000314: 37,3042 34362 CAF OCT37
035521,000315: 37,3043 54001 TS L
035522,000316: 37,3044 40000 COM
035523,000317: 37,3045 52763 DXCH -PHASE5
035524,000318:
035525,000319: 37,3046 40075 CHEKAVEG CS FLAGWRD1
035526,000320: 37,3047 75033 MASK BIT1
035527,000321: 37,3050 10000 CCS A # IF AVEG FLAG DOWN SET FINAL EXIT AVEG
035528,000322: 37,3051 03071 TC AVEGOUT
035529,000323:
035530,000324: 37,3052 35056 CAF 2SECS
035531,000325: 37,3053 05261 TC WAITLIST
035532,000326: 37,3054 E6,1661 EBANK= AOG
035533,000327: 37,3054 02757 76066 2CADR READACCS
035534,000328:
035535,000329: 37,3056 35016 MAKESERV CAF PRIO20 # ESTABLISH SERVICER ROUTINE
035536,000330: 37,3057 05163 TC FINDVAC
035537,000331: 37,3060 E7,1431 EBANK= DVCNTR
035538,000332: 37,3060 03077 76067 2CADR SERVICER
035539,000333:
035540,000334: 37,3062 45031 CS FOUR # RESTART SERVICER AND READACCS
035541,000335: 37,3063 04114 TC NEWPHASE
035542,000336: 37,3064 00005 OCT 5
035543,000337:
035544,000338: 37,3065 35023 CAF BIT9
035545,000339: 37,3066 00006 EXTEND
035546,000340: 37,3067 05011 WOR DSALMOUT # TURN TEST CONNECTOR OUTBIT ON
035547,000341:
035548,000342: 37,3070 15340 TCF TASKOVER # END PREVIOUS READACCS WAITLIST TASK
035549,000343:
035550,000344: 37,3071 00006 AVEGOUT EXTEND
035551,000345: 37,3072 33076 DCA AVOUTCAD
035552,000346: 37,3073 53223 DXCH AVGEXIT
035553,000347: 37,3074 13056 TCF MAKESERV
035554,000348:
035555,000349: 37,3075 E7,1431 EBANK= DVCNTR
035556,000350: 37,3075 03167 76067 AVOUTCAD 2CADR AVGEND
035557,000351:
035558,000352: # ROUTINE NAME: ONMNITOR
035559,000353: # MOD 04 BY BAIRNSFATHER 30 APR 1968 REDO ONMNITOR TO SAVE PIPS EACH 0.5 SEC FOR TM,ENTRY.
035560,000354: # MOD 03 BY FISHER DECEMBER 1967
035561,000355: # MOD 02 BY RYE SEPT 1967
035562,000356: # MOD 01 BY KOSMALA 23 MAR 1967
035563,000357: # MOD 00 BY KOSMALA 27 FEB 1967
035564,000358:
035565,000359: # FUNCTIONAL DESCRIPTION
035566,000360:
035567,000361: # THE PURPOSE OF ONMONITOR IS TO PROVIDE 1/2 SEC. READING OF PIPAS FOR DOWNLIST DURING ENTRY.
035568,000362: # X,Y,ZPIPBUF CONTAIN PRESENT VALUES X,Y,ZOLDBUF CONTAIN VALUES FROM PREVIOUS READING.
035569,000363:
035570,000364: # CALLING SEQUENCE
035571,000365:
035572,000366: # CALL AS WAITLIST TASK. TERMINATES ITSELF IN TASKOVER
035573,000367:
035574,000368: # INITIALISATION
035575,000369:
035576,000370: # PIPCTR = 2 (FOR DT = 0.5 SEC)
035577,000371: # X,Y,ZPIPBUF SET TO PREVIOUS PIPAX,Y,Z
035578,000372:
035579,000373: # OUTPUT
035580,000374:
035581,000375: # X,Y,ZPIPBUF, X,Y,ZOLDBUF
035582,000376:
035583,000377: # DEBRIS
035584,000378:
035585,000379: # X,Y,ZPIPBUF CONTAIN LAST PIPAX,Y,Z VALUES
035586,000380: # X,Y,ZOLDBUF CONTAIN LAST-BUT-ONE PIPAX,Y,Z VALUES
035587,000381: # RUPTREG1
035588,000382: # PIPCTR
035589,000383:
035590,000384: 15,2000 SETLOC SERV1
035591,000385: 15,2000 BANK
035592,000386: 15,2434 COUNT* $$/SERV
035593,000387:
035594,000388: 15,2434 55227 ONMNITOR TS PIPCTR
035595,000389:
035596,000390: 15,2435 05303 TC FIXDELAY # WAIT
035597,000391: 15,2436 00062 0.5SEC DEC 50 B-14
035598,000392:
035599,000393: 15,2437 35032 QUIKREAD CAF TWO
035600,000394: 15,2440 54070 TS RUPTREG1
035601,000395: 15,2441 50000 INDEX A
035602,000396: 15,2442 30037 CA PIPAX # SAVE ACTUAL PIPAS FOR TM.
035603,000397: 15,2443 50070 INDEX RUPTREG1
035604,000398: 15,2444 57533 XCH XPIPBUF # UPDATE X,Y,ZPIPBUF
035605,000399: 15,2445 50070 INDEX RUPTREG1
035606,000400: 15,2446 55536 TS XOLDBUF # AND X,Y,ZOLDBUF
035607,000401: 15,2447 10070 CHKCTR CCS RUPTREG1
035608,000402: 15,2450 12440 TCF QUIKREAD +1 # LOOP AGAIN
035609,000403: 15,2451 11227 CCS PIPCTR
035610,000404: 15,2452 12434 TCF ONMNITOR
035611,000405: 15,2453 05340 TC TASKOVER
035612,000406:
035613,000407: # ************************************* SERVICER *************************************************************
035614,000408: 37,2000 SETLOC SERVICES
035615,000409: 37,2000 BANK
035616,000410: 37,3077 COUNT* $$/SERV
035617,000411:
035618,000412: 37,3077 E7,1431 EBANK= DVCNTR
035619,000413:
035620,000414: 37,3077 35032 SERVICER CAF TWO
035621,000415: 37,3100 00004 INHINT
035622,000416: 37,3101 54070 PIPCHECK TS RUPTREG1
035623,000417:
035624,000418: 37,3102 60000 DOUBLE
035625,000419: 37,3103 50000 INDEX A
035626,000420: 37,3104 11162 CCS DELVX
035627,000421: 37,3105 03107 TC +2
035628,000422: 37,3106 03115 TC PIPLOOP
035629,000423:
035630,000424: 37,3107 63234 AD -MAXDELV # DO PIPA-SATURATION TEST BEFORE
035631,000425: 37,3110 00006 EXTEND
035632,000426: 37,3111 63115 BZMF PIPLOOP # COMPENSATION.
035633,000427:
035634,000428: 37,3112 05664 TC ALARM
035635,000429: 37,3113 00205 OCT 00205 # SATURATED-PIPA ALARM ***CHANGE LATER
035636,000430: 37,3114 03145 TC AVERAGEG
035637,000431:
035638,000432: 37,3115 10070 PIPLOOP CCS RUPTREG1
035639,000433: 37,3116 13101 TCF PIPCHECK
035640,000434:
035641,000435: 37,3117 05426 TC PHASCHNG # RESTART REREADAC + SERVICER
035642,000436: 37,3120 16035 OCT 16035
035643,000437: 37,3121 20000 OCT 20000
035644,000438: 37,3122 E7,1431 EBANK= DVCNTR
035645,000439: 37,3122 03126 76067 2CADR DVTOTUP
035646,000440:
035647,000441: 37,3124 04676 TC BANKCALL # PIPA COMPENSATION CALL
035648,000442: 37,3125 15262 CADR 1/PIPA
035649,000443:
035650,000444: 37,3126 06006 DVTOTUP TC INTPRET
035651,000445: # THE FOLLOWING SECTION DECREMENTS 'TTE' DURING P61
035652,000446: # THROUGH P63 ONLY. (IE: IN P60'S IF DRAG< 0.05 G)
035653,000447: 37,3127 71214 TICKTTE BON DLOAD # .05GSW IS SET =1 IN FRESH START.
035654,000448: 37,3130 03314 .05GSW # FLAG IS ASSIGNED ONLY TO P61-P67.
035655,000449: 37,3131 77136 +5 # DO NOT COUNT 'TTE' IF DRAG > 0.05 G.
035656,000450: 37,3132 03735 TTE2
035657,000451: 37,3133 77615 DAD
035658,000452: 37,3134 01246 PIPTIME1 # DECREMENT 'TTE' BY 'PIPTIME1'. (BY 2 SEC)
035659,000453: 37,3135 03727 STORE TTE # NEGATIVE AS IN A COUNTDOWN.
035660,000454: # DURING P61 THRU P63, 'TTE' IS DECREMENTED
035661,000455: # AND IS ON CALL AND ON ENTRY DNLIST.
035662,000456:
035663,000457: 37,3136 51575 VLOAD ABVAL # GET ABS VALUE OF DELV
035664,000458: 37,3137 01163 DELV
035665,000459: 37,3140 77405 DMP EXIT
035666,000460: 37,3141 37454 KPIP1 # SCALE AT 2(+7)
035667,000461:
035668,000462: 37,3142 00006 EXTEND
035669,000463: 37,3143 30155 DCA MPAC
035670,000464: 37,3144 21426 DAS DVTOTAL # ACCUMULATE DVTOTAL
035671,000465: 37,3145 05426 AVERAGEG TC PHASCHNG
035672,000466: 37,3146 10035 OCT 10035
035673,000467:
035674,000468: 37,3147 06006 TC INTPRET
035675,000469: 37,3150 77624 CALL
035676,000470: 37,3151 77423 CALCRVG
035677,000471: 37,3152 77776 EXIT
035678,000472:
035679,000473: 37,3153 05426 TC PHASCHNG
035680,000474: 37,3154 10035 OCT 10035
035681,000475:
035682,000476: 37,3155 34113 CAF OCT31 # COPY RN1,VN1,GOT102,GOBL1/2,PIPTIME1
035683,000477: 37,3156 05622 TC GENTRAN # INTO RN, VN, GDT/12, GOBL/2,PIPTIME
035684,000478: 37,3157 01231 ADRES RN1
035685,000479: 37,3160 01170 ADRES RN
035686,000480: 37,3161 00003 RELINT # GENTRAN DOES AN INHINT
035687,000481: 37,3162 05426 TC PHASCHNG
035688,000482: 37,3163 10035 OCT 10035
035689,000483:
035690,000484: 37,3164 00006 EXTEND
035691,000485: 37,3165 31223 DCA AVGEXIT
035692,000486: 37,3166 52006 DXCH Z # AVERAGEG EXIT
035693,000487:
035694,000488: 37,3167 31205 AVGEND CA PIPTIME +1 # FINAL AVERAGE G EXIT
035695,000489: 37,3170 55074 TS OLDBT1 # SET UP FREE FALL GYRO COMPENSATION
035696,000490:
035697,000491: 37,3171 05562 TC UPFLAG # SET DRIFTFLG
035698,000492: 37,3172 00036 ADRES DRIFTFLG # BIT 15 FLAG 2
035699,000493: 37,3173 05406 TC 2PHSCHNG
035700,000494: 37,3174 00005 OCT 5 # GROUP 5 OFF
035701,000495: 37,3175 05022 OCT 05022 # GROUP 2 ON FOR AVETOMID
035702,000496: 37,3176 20000 OCT 20000
035703,000497:
035704,000498: 37,3177 06006 TC INTPRET
035705,000499: 37,3200 77624 CALL
035706,000500: 37,3201 73675 AVETOMID # CONVERT STATE VECTOR TO REFERENCE SCALE.
035707,000501: 37,3202 77776 EXIT
035708,000502:
035709,000503: 37,3203 35035 CAF ZERO # ZERO MARK COUNTERS.
035710,000504: 37,3204 55125 TS VHFCNT
035711,000505: 37,3205 55126 TS TRKMKCNT
035712,000506:
035713,000507: 37,3206 04676 TC BANKCALL
035714,000508: 37,3207 17173 CADR PIPFREE
035715,000509:
035716,000510: 37,3210 45023 CS BIT9
035717,000511: 37,3211 55734 TS MRKBUF2 # INVALIDATE MARK BUFFER
035718,000512: 37,3212 00006 EXTEND
035719,000513: 37,3213 03011 WAND DSALMOUT
035720,000514:
035721,000515: 37,3214 05574 TC DOWNFLAG
035722,000516: 37,3215 00147 ADRES CM/DSTBY
035723,000517:
035724,000518: 37,3216 05574 TC DOWNFLAG
035725,000519: 37,3217 00162 ADRES V37FLAG
035726,000520:
035727,000521: 37,3220 35025 CAF BIT7 # RESTORE GROUP 1 + 2 IF P20 IS RUNNING.
035728,000522: 37,3221 70074 MASK FLAGWRD0
035729,000523: 37,3222 00006 EXTEND
035730,000524: 37,3223 13227 BZF +4
035731,000525:
035732,000526: 37,3224 05406 TC 2PHSCHNG
035733,000527: 37,3225 00111 OCT 111 # 1.11SPOT
035734,000528: 37,3226 00132 OCT 132 # 2.13SPOT
035735,000529:
035736,000530: 37,3227 04715 TC POSTJUMP
035737,000531: 37,3230 10124 CADR CANV37
035738,000532:
035739,000533: 37,3231 05426 SERVEXIT TC PHASCHNG
035740,000534: 37,3232 00035 OCT 00035 # A, 5.3 = REREADAC (ONLY)
035741,000535:
035742,000536: 37,3233 15233 TCF ENDOFJOB
035743,000537:
035744,000538: 37,3234 5040 DVTHRUSH EQUALS ELEVEN # 15 PERCENT OF 2SEC PIPA ACCUMULATION,
035745,000539: # FOR 503-FULL CSM/LEM....DELV SC.AT
035746,000540: # 5.85 CM/SEC.
035747,000541:
035748,000542: 37,3234 63401 -MAXDELV DEC -6398 B-14 # 3200 PPS FOR 2 SEC CCS TAKES 1
035749,000543:
035750,000544: 37,3235 00170 JTAGTIME DEC 120 B-14 # = 1 SEC + T CDU, T CDU = .1 SEC
035751,000545:
035752,000546: 37,3236 00372 2.5SEC DEC 250 B-14
035753,000547: 37,3237 00044 MDOTFAIL DEC 144.0 B-16 # 5 SEC MASS LOSS AT 28.8 KG/SEC
035754,000548: # SHOULD BE 2-4 SECS FOR NO START
035755,000549: # 6-8 SECS FOR FAILURE
035756,000550:
035757,000551: # NORMLIZE PERFORMS THE INITIALIZATION REQUIRED PRIOR TO THE FIRST ENTRY TO AVERAGEG, AND SCALES RN SO THAT IT
035758,000552: # HAS 1 LEADING BINARY ZERO. IN MOST MISSIONS, RN WILL BE SCALED AT 2(+29), BUT IN THE 206 MISSION, RN WILL BE
035759,000553: # SCALED AT 2(+24) M.
035760,000554:
035761,000555: 37,3240 35041 NORMLIZE CAF THIRTEEN # SET UP TO COPY 14 REGS- RN1,VN1,PIPTIME1
035762,000556: 37,3241 05622 TC GENTRAN # INTO RN,VN,PIPTIME
035763,000557: 37,3242 01231 ADRES RN1 # FROM HERE
035764,000558: 37,3243 01170 ADRES RN # TO HERE
035765,000559:
035766,000560: 37,3244 00003 RELINT
035767,000561: 37,3245 06006 TC INTPRET
035768,000562: 37,3246 45175 VLOAD CALL # LOAD RN FOR CALCGRAV
035769,000563: 37,3247 01171 RN
035770,000564: 37,3250 77355 CALCGRAV # INITIALISE UNITR RMAG GDT1
035771,000565:
035772,000566: 37,3251 25207 STOVL GDT/2
035773,000567: 37,3252 01256 GOBL1/2
035774,000568: 37,3253 01215 STORE GOBL/2
035775,000569: 37,3254 77776 EXIT
035776,000570: 37,3255 15233 TCF ENDOFJOB
035777,000571:
035778,000572: # ***** PIPA READER *****
035779,000573: # MOD NO. 00 BY D. LICKLY DEC. 9 1966
035780,000574:
035781,000575: # FUNCTIONAL DESCRIPTION
035782,000576:
035783,000577: # SUBROUTINE TO READ PIPA COUNTERS, TRYING TO BE VERY CAREFUL SO THAT IT WILL BE RESTARTABLE.
035784,000578: # PIPA READINGS ARE STORED IN THE VECTOR DELV. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS THE PIPA READING,
035785,000579: # RESTARTS BEGIN AT REREADAC.
035786,000580:
035787,000581: # AT THE END OF THE PIPA READER THE CDUS ARE READ AND STORED AS A
035788,000582: # VECTOR IN CDUTEMP. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS
035789,000583: # THE CDU READING IN 2S COMP IN THE ORDER CDUX,Y,Z. THE THRUST
035790,000584: # VECTOR ESTIMATOR IN FINDCDUD REQUIRES THE CDUS BE READ AT PIPTIME.
035791,000585:
035792,000586: # CALLING SEQUENCE AND EXIT
035793,000587:
035794,000588: # CALL VIA TC, ISWCALL, ETC.
035795,000589:
035796,000590: # EXIT IS VIA Q.
035797,000591:
035798,000592: # INPUT
035799,000593:
035800,000594: # INPUT IS THROUGH THE COUNTERS PIPAX, PIPAY, PIPAZ, AND TIME2.
035801,000595:
035802,000596: # OUTPUT
035803,000597:
035804,000598: # HIGH ORDER COMPONENTS OF THE VECTOR DELV CONTAIN THE PIPA READINGS.
035805,000599:
035806,000600: # PIPTIME CONTAINS TIME OF PIPA READING.
035807,000601:
035808,000602: # DEBRIS (ERASABLE LOCATIONS DESTROYED BY PROGRAM)
035809,000603:
035810,000604: # LOW ORDER DELV'S ARE ZEROED FOR TM INDICATION.
035811,000605: # TEMX TEMY TEMZ PIPAGE
035812,000606:
035813,000607: 37,3256 00006 PIPASR EXTEND
035814,000608: 37,3257 30025 DCA TIME2
035815,000609: 37,3260 53246 DXCH PIPTIME1 # CURRENT TIME POSITIVE VALUE
035816,000610: 37,3261 45035 CS ZERO # INITIALIZE THESE AT NEG ZERO.
035817,000611: 37,3262 55224 TS TEMX
035818,000612: 37,3263 55225 TS TEMY
035819,000613: 37,3264 55226 TS TEMZ
035820,000614: 37,3265 35035 CA ZERO
035821,000615: 37,3266 55166 TS DELVZ # OTHER DELVS OK INCLUDING LOW ORDER
035822,000616: 37,3267 55164 TS DELVY
035823,000617:
035824,000618: 37,3270 55163 TS DELVX +1 # LOW ORDER DELV'S ARE ZEROED FOR TM: THUS
035825,000619: 37,3271 55165 TS DELVY +1 # IF DNLNK'D LOW ORDER DELVS ARE NZ, THEY
035826,000620: 37,3272 55167 TS DELVZ +1 # CONTAIN PROPER COMPENSATION. IF=0, THEN
035827,000621: # THE TM VALUES ARE BEFORE COMPENSATION.
035828,000622:
035829,000623: 37,3273 55230 TS PIPAGE # SHOW PIPA READING IN PROGRESS
035830,000624:
035831,000625: 37,3274 00006 REPIP1 EXTEND
035832,000626: 37,3275 40040 DCS PIPAX # X AND Y PIPS READ
035833,000627: 37,3276 53225 DXCH TEMX
035834,000628: 37,3277 52040 DXCH PIPAX # PIPAS SET TO NEG ZERO AS READ.
035835,000629: 37,3300 55162 TS DELVX
035836,000630: 37,3301 23164 LXCH DELVY
035837,000631:
035838,000632: 37,3302 40041 REPIP3 CS PIPAZ # REPEAT PROCESS FOR Z PIP
035839,000633: 37,3303 57226 XCH TEMZ
035840,000634: 37,3304 56041 XCH PIPAZ
035841,000635: 37,3305 55166 DODELVZ TS DELVZ
035842,000636:
035843,000637: 37,3306 00002 TC Q
035844,000638:
035845,000639: 37,3307 E6,1661 EBANK= AOG
035846,000640:
035847,000641: 37,3307 10763 REREADAC CCS PHASE5 # LAST PASS CHECK
035848,000642: 37,3310 13312 TCF +2
035849,000643: 37,3311 15340 TCF TASKOVER
035850,000644:
035851,000645: 37,3312 37665 CAF PRIO31 # RESTART MAY HAVE WIPED OUT LASTBIAS, AN
035852,000646: 37,3313 55074 TS 1/PIPADT # UNPROTECTED NOVAC FROM PREREAD,
035853,000647: # WHICH SET(S) UP 1/PIPADT (THUSLY)
035854,000648: # FOR NON-COASTING COMPENSATION....BE
035855,000649: # SURE 1/PIPADT IS AOK. (PRIO31 IS
035856,000650: # 2.0SEC SC.AT B+8CS)
035857,000651:
035858,000652: 37,3314 11230 CCS PIPAGE
035859,000653: 37,3315 12757 TCF READACCS # PIP READING NOT STARTED. GO TO BEGINNING
035860,000654:
035861,000655: 37,3316 33354 CAF DONEADR # SET UP RETURN FROM PIPASR
035862,000656: 37,3317 54002 TS Q
035863,000657:
035864,000658: 37,3320 11166 CCS DELVZ
035865,000659: 37,3321 00002 TC Q # Z DONE, GO DO CDUS
035866,000660: 37,3322 13325 TCF +3 # Z NOT DONE, CHECK Y.
035867,000661: 37,3323 00002 TC Q
035868,000662: 37,3324 00002 TC Q
035869,000663: 37,3325 22007 ZL
035870,000664: 37,3326 11164 CCS DELVY
035871,000665: 37,3327 13332 TCF +3
035872,000666: 37,3330 13341 TCF CHKTEMX # Y NOT DONE, CHECK X.
035873,000667: 37,3331 13332 TCF +1
035874,000668: 37,3332 22041 LXCH PIPAZ # Y DONE, ZERO Z PIP.
035875,000669:
035876,000670: 37,3333 11226 CCS TEMZ
035877,000671: 37,3334 41226 CS TEMZ # TEMZ NOT = -0, CONTAINS -PIPAZ VALUE.
035878,000672: 37,3335 13305 TCF DODELVZ
035879,000673: 37,3336 13334 TCF -2
035880,000674: 37,3337 23166 LXCH DELVZ # TEMZ = -0, L HAS ZPIP VALUE.
035881,000675: 37,3340 00002 TC Q
035882,000676:
035883,000677: 37,3341 11224 CHKTEMX CCS TEMX # HAS THIS CHANGED
035884,000678: 37,3342 41224 CS TEMX # YES
035885,000679: 37,3343 13346 TCF +3 # YES
035886,000680: 37,3344 13342 TCF -2 # YES
035887,000681: 37,3345 13274 TCF REPIP1 # NO
035888,000682: 37,3346 55162 TS DELVX
035889,000683:
035890,000684: 37,3347 41225 CS TEMY
035891,000685: 37,3350 55164 TS DELVY
035892,000686:
035893,000687: 37,3351 45035 CS ZERO # ZERO X AND Y PIPS
035894,000688: 37,3352 52040 DXCH PIPAX # L STILL ZERO FROM ABOVE
035895,000689:
035896,000690: 37,3353 13302 TCF REPIP3
035897,000691:
035898,000692: 37,3354 02760 DONEADR GENADR PIPSDONE
035899,000693:
035900,000694: # *************************************************************************************************************
035901,000695:
035902,000696: # ROUTINE CALCRVG INTEGRATES THE EQUATIONS OF MOTION BY AVERAGING THE THRUST AND GRAVITATIONAL
035903,000697: # ACCELERATIONS OVER A TIME INTERVAL OF 2 SECONDS.
035904,000698:
035905,000699: # FOR THE EARTH-CENTERED GRAVITATIONAL FIELD, THE PERTURBATION DUE TO OBLATENESS IS COMPUTED TO THE FIRST
035906,000700: # HARMONIC COEFFICIENT J.
035907,000701:
035908,000702: # ROUTINE CALCRVG REQUIRES...
035909,000703: # 1) THRUST ACCELERATION INCREMENTS IN DELV SCALED SAME AS PIPAX,Y,Z IN STABLE MEMBER COORDS.
035910,000704: # 2) VN SCALED 2(+7) M/CS IN REFERENCE COORDS.
035911,000705: # 3) RN SCALED AT 2(+29) METERS IN REFERENCE COORDS.
035912,000706: # 4) UNITW THE EARTH S UNIT ROTATIONAL VECTOR (SCALED AS A FULL UNIT VECTOR) IN REFERENCE COORDS.
035913,000707:
035914,000708: # 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
035915,000709: # UNIT VECTOR UNITR, RMAG IN 36D SCALED AT 2(+29)M, R MAG SQ. IN 34D SCALED AT 2(+58) M SQ.
035916,000710:
035917,000711: 37,3355 41456 CALCGRAV UNIT PUSH # ENTER WITH RN IN MPAC
035918,000712: 37,3356 01760 STORE UNITR
035919,000713: 37,3357 67340 LXC,1 SLOAD
035920,000714: 37,3360 03746 RTX2
035921,000715: 37,3361 00047 X1
035922,000716: 37,3362 77240 BMN VLOAD
035923,000717: 37,3363 77411 ITISMOON
035924,000718: 37,3364 41441 DOT PUSH
035925,000719: 37,3365 01714 UNITW
035926,000720: 37,3366 44316 DSQ BDSU
035927,000721: 37,3367 37464 DP1/20
035928,000722: 37,3370 56325 PDDL DDV
035929,000723: 37,3371 37466 RESQ
035930,000724: 37,3372 00043 34D # (RN)SQ
035931,000725: 37,3373 00041 STORE 32D # TEMP FOR (RE/RN)SQ
035932,000726: 37,3374 41205 DMP DMP
035933,000727: 37,3375 37470 20J
035934,000728: 37,3376 65361 VXSC PDDL
035935,000729: 37,3377 01760 UNITR
035936,000730: 37,3400 41205 DMP DMP
035937,000731: 37,3401 37472 2J
035938,000732: 37,3402 00041 32D
035939,000733: 37,3403 53361 VXSC VAD
035940,000734: 37,3404 01714 UNITW
035941,000735: 37,3405 77626 STADR
035942,000736: 37,3406 76521 STORE GOBL1/2
035943,000737: 37,3407 41455 VAD PUSH
035944,000738: 37,3410 01760 UNITR
035945,000739: 37,3411 63545 ITISMOON DLOAD DSQ
035946,000740: 37,3412 00045 36D
035947,000741: 37,3413 77701 NORM
035948,000742: 37,3414 00050 X2
035949,000743: 37,3415 53663 BDDV* SLR*
035950,000744: 37,3416 37456 -MUDT(E),1
035951,000745: 37,3417 56623 0 -21D,2
035952,000746: 37,3420 45561 VXSC STADR
035953,000747: 37,3421 76527 STORE GDT1/2 # SCALED AT 2(+7) M/CS
035954,000748: 37,3422 77616 RVQ
035955,000749:
035956,000750: 37,3423 74375 CALCRVG VLOAD VXSC
035957,000751: 37,3424 01163 DELV
035958,000752: 37,3425 37454 KPIP1
035959,000753: 37,3426 76505 VXM VSL1
035960,000754: 37,3427 01736 REFSMMAT
035961,000755: 37,3430 03433 STORE DELVREF # DELV IN REF COORDS AT 2(+7)
035962,000756: 37,3431 41562 VSR1 PUSH
035963,000757: 37,3432 41455 VAD PUSH # (DV-OLDGDT)/2 TO PD SCALED AT 2(+7)M/CS
035964,000758: 37,3433 01207 GDT/2
035965,000759: 37,3434 74255 VAD VXSC
035966,000760: 37,3435 01177 VN
035967,000761: 37,3436 37462 2SEC(22)
035968,000762: 37,3437 44055 VAD STQ
035969,000763: 37,3440 01171 RN
035970,000764: 37,3441 00037 31D
035971,000765: 37,3442 35232 STCALL RN1 # TEMP STORAGE OF RN SCALED 2(+29)M
035972,000766: 37,3443 77355 CALCGRAV
035973,000767:
035974,000768: 37,3444 53255 VAD VAD
035975,000769: 37,3445 77655 VAD
035976,000770: 37,3446 01177 VN
035977,000771: 37,3447 35240 STCALL VN1 # TEMP STORAGE OF VN SCALED 2(+7) M/CS
035978,000772: 37,3450 00037 31D
035979,000773:
035980,000774: 37,3451 03215 27057 KPIP 2DEC .1024 # SCALES DELV TO 2(+4)
035981,000775:
035982,000776: 37,3453 02312 32537 KPIP1 2DEC 0.074880 # 207 DELV SCALING. 1 PULSE = 5.85 CM/SEC.
035983,000777:
035984,000778: 37,3455 61377 55754 -MUDT(E) 2DEC* -7.9720645 E+12 B-44*
035985,000779:
035986,000780: 37,3457 77644 65556 -MUDT(M) 2DEC* -9.805556 E+10 B-44*
035987,000781:
035988,000782: 37,3461 00000 31000 2SEC(22) 2DEC 200 B-22
035989,000783:
035990,000784: 37,3463 01463 06315 DP1/20 2DEC 0.05
035991,000785:
035992,000786: 37,3465 00001 05000 RESQ 2DEC* 40.6809913 E12 B-59*
035993,000787:
035994,000788: 37,3467 02047 36332 20J 2DEC* 3.24692010 E-2 B1*
035995,000789:
035996,000790: 37,3471 00152 14511 2J 2DEC* 3.24692010 E-3 B1*
035997,000791:
End of include-file SERVICER207.agc. Parent file is MAIN.agc