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