Source Code
|
These source-code files are part of a reconstructed copy of Comanche 45/2 (AKA Manche45 revision 2),
the final, flown mission release of the Apollo 10 Command Module (CM) Apollo Guidance
Computer (AGC) software. Comanche 45/2 was preceded by Comanche 44 and Comanche 45. The
reconstruction is believed to be exactly accurate, but in the absence of an actual Apollo-era
listing of Comanche 45/2, some explanation of the reconstruction process is needed
to insure confidence in that accuracy.
The starting point was the source code of Comanche 45 (itself previously accurately
reconstructed). Comanche 45 source code was then modified by incorporating changes
known from contemporary documentation to have been made between revisions 45 and 45/2.
The now-reconstructed Comanche 45/2 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 tend to match those in the Comanche 55, the
most-similar revision of Comanche for which we have access to an actual non-reconstructed hardcopy;
the source code would likely have different page numbers in a contemporary
Comanche 45 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 44. Here's a guide to the Apollo documentation referenced
in those annotations:
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.
|
035693,000002: ## Copyright: Public domain.
035694,000003: ## Filename: SERVICER207.agc
035695,000004: ## Purpose: A section of Manche45 revision 2.
035696,000005: ## It is part of the reconstructed source code for the
035697,000006: ## final, flown release of the flight software for the Command
035698,000007: ## Module's (CM) Apollo Guidance Computer (AGC) for Apollo 10.
035699,000008: ## The code has been recreated from a copy of Comanche 055. It
035700,000009: ## has been adapted such that the resulting bugger words
035701,000010: ## exactly match those specified for Manche 45/2 in NASA drawing
035702,000011: ## 2021153D, which gives relatively high confidence that the
035703,000012: ## reconstruction is correct.
035704,000013: ## Assembler: yaYUL
035705,000014: ## Contact: Ron Burkey <info@sandroid.org>.
035706,000015: ## Website: www.ibiblio.org/apollo/index.html
035707,000016: ## Mod history: 2020-12-24 MAS Created from Comanche 45.
035708,000017:
|
|
Page 819
|
035710,000019: # PROGRAM NAME - PREREAD, READACCS, SERVICER, AVERAGE G.
035711,000020: # MOD NO. 00 BY M. HAMILTON DEC. 12, 1966
035712,000021:
035713,000022: # FUNCTIONAL DESCRIPTION
035714,000023:
035715,000024: # THE ROUTINES DESCRIBED BELOW ARE USED TO CALCULATE VALUES OF RN, VN, AND GDT/2 DURING ACCELERATED FLIGHT.
035716,000025: # THE SEVERAL ROUTINES COMPRISE A PACKAGE AND ARE NOT MEANT TO BE USED AS SEPARATE SUBROUTINES.
035717,000026:
035718,000027: # GENERAL REFERENCES TO SERVICER OR AVERAGE G ARE UNDERSTOOD TO REFER TO THE ENTIRE SET OF ROUTINES INCLUDING
035719,000028: # READACCS, SERVICER, AVERAGE G, INTEREAD, SMOOTHER, AND ANY ADDITIONAL ROUTINES ATTACHED AT AVGEXIT (SEE BELOW).
035720,000029:
035721,000030: # PROGRAMS INITIATING SERVICER ARE REQUIRED TO MAKE A WAITLIST CALL FOR PREREAD (OR, IF LIFTOFF, FOR BIBIBIAS)
035722,000031: # AT 2 SECONDS BEFORE THE FIRST AVERAGE G UPDATE IN ORDER TO INITIALIZE THE SEQUENCE, WHICH WILL RECUR EVERY
035723,000032: # 2 SECONDS FROM THAT TIME ON AS LONG AS AVEGFLAG REMAINS SET.
035724,000033:
035725,000034: # THE USE OF ERASABLE AVGEXIT ALLOWS VARIOUS ROUTINES TO BE PERFORMED AS PART OF THE NORMAL CYCLE (SEE
035726,000035: # EXPLANATION OF AVGEXIT BELOW).
035727,000036:
035728,000037: # DESCRIPTIONS OF INDIVIDUAL ROUTINES FOLLOW.
035729,000038:
035730,000039: # PREREAD
035731,000040:
035732,000041: # PREVIOUSLY EXTRAPOLATED VALUES COPIED FROM RN1, VN1, AND PIPTIME1 INTO RN, VN, AND PIPTIME.
035733,000042: # LASTBIAS JOB SCHEDULED.
035734,000043: # PIPS READ AND CLEARED VIA PIPASR SUBROUTINE.
035735,000044: # AVERAGE G FLAG SET ON.
035736,000045: # DRIFT FLAG SET OFF.
035737,000046: # V37 FLAG SET ON.
035738,000047: # INITIALIZATION OF 1) THRUST MONITOR (DVMON) - DVCNTR SET TO ONE.
035739,000048: # 2) TOTAL ACCUMULATED DELV VALUE (DVTOTAL) - SET TO ZERO.
035740,000049: # 3) AXIS VECTOR (AXIS) - SET TO (.5,0,0).
035741,000050: # NORMLIZE JOB SCHEDULED.
035742,000051: # READACCS TASK CALLED IN 2 SECONDS.
035743,000052:
035744,000053: # NORMLIZE
035745,000054:
035746,000055: # GDT/2 INITIALIZED VIA CALCGRAV SUBROUTINE.
035747,000056:
035748,000057: # READACCS
035749,000058:
035750,000059: # IF ONMON FLAG SET QUIKREAD ROUTINE IS PERFORMED BEFORE PIPASR ZEROS THE PIPA REGISTERS, AND THE 1/2 SEC
035751,000060: # ONMONITOR LOOP IS INITIATED TO PROVIDE DOWNLINK INFORMATION DURING ENTRY.
035752,000061: # PIPS READ AND CLEARED BY PIPASR SUBROUTINE.
035753,000062: # IF CM/DSTBY IS ON, ENTRY VARIABLES INITIALIZED AND SETJTAG TASK CALLED.
|
|
Page 820
|
035755,000064:
035756,000065: # IF AVERAGEG FLAG ON READACCS CALLED TO RECYCLE IN 2 SECONDS.
035757,000066: # IF AVERAGEG FLAG OFF AVERAGE G EXIT (AVGEXIT) SET TO 2CADR AVGEND FOR FINAL PASS.
035758,000067: # SERVICER JOB SCHEDULED.
035759,000068: # TEST CONNECTOR OUTBIT TURNED ON.
035760,000069:
035761,000070: # ONMNITOR
035762,000071:
035763,000072: # A SEQUENCE OF THREE PASSES THROUGH QUICKREAD FOLLOWING A CALL TO READACCS WITH ONMONFLG SET AT 1/2
035764,000073: # SEC INTERVALS. INTERVALS ARE COUNTED OUT BY PIPCTR, INITIALISED AT 3 BY READACCS
035765,000074:
035766,000075: # QUIKREAD
035767,000076:
035768,000077: # READS CURRENT PIPS INTO X,Y,ZPIPBUF. READS OLD X,Y,ZPIPBUF INTO X,Y,ZOLDBUF. VALUES ARE SENT TO
035769,000078: # DOWNLIST DURING ENTRY.
035770,000079:
035771,000080: # SERVICER
035772,000081:
035773,000082: # DELV VALUES CHECKED TO DETECT RUNAWAY PIP -
035774,000083: # IF BAD PIP 1) ALARM SENT.
035775,000084: # 2) COMPENSATION, DVTOTAL ACCUMULATION, AND DVMON BYPASSED. CONTROL
035776,000085: # TRANSFERRED TO AVERAGE G.
035777,000086: # PIPS COMPENSATED VIA 1/PIPA SUBROUTINE.
035778,000087: # DVTOTAL INCREMENTED BY ABSOLUTE VALUE OF DELV.
035779,000088: # THRUST MONITOR (DVMON) PERFORMED UNLESS IDLE FLAG IS ON.
035780,000089: # CONTROL TRANSFERRED TO AVERAGE G.
035781,000090:
035782,000091: # DVMON
035783,000092:
035784,000093: # THRESHOLD VALUE (PLACED IN DVTHRUSH BY USER) CHECKED AGAINST ABSOLUTE VALUE OF DELV TO CHECK
035785,000094: # THRUST LEVEL.
035786,000095:
035787,000096: # IF THRUST 1) ULLAGE OFF ROUTINE PERFORMED.
035788,000097: # 2) STEERING FLAG TURNED ON AT FIRST DETECTION OF THRUST.
035789,000098: # 3) CONTROL TRANSFERRED TO AVERAGE G.
035790,000099: # IF NO THRUST 1) ON FIRST PASS THROUGH MONITOR, CONTROL TRANSFERRED TO AVERAGE G.
035791,000100: # 2) ON SUBSEQUENT PASSES, CONTROL TRANSFERRED TO ENGINE FAIL ROUTINE IF THRUST
035792,000101: # HAS FAILED FOR 3 CONSECUTIVE PASSES.
035793,000102:
035794,000103: # ENGINE FAIL
035795,000104:
035796,000105: # ENGFAIL1 TASK CALLED IN 2.5 SECONDS. THIS WILL RETURN CONTROL TO TIG-5 SO THAT THE IGNITION
035797,000106: # SEQUENCE MAY BE REPEATED.
035798,000107: # ENGINOF3 PERFORMED.
035799,000108: # DAP SET UP FOR RCS.
035800,000109: #
035801,000110: # AVERAGE G
|
|
Page 821
|
035803,000112: # RN1, VN1, GDT1/2 CALCULATED VIA CALCRVG ROUTINE BY UPDATING RN, VN WITH DELV AND AN AVERAGED VALUE
035804,000113: # OF GDT/2.
035805,000114: # RN1, VN1, GDT1/2, PIPTIME1 COPIED INTO RN, VN, GDT/2, PIPTIME FOR RESTART PROTECTION.
035806,000115: # CONTROL TRANSFERRED TO ADDRESS SPECIFIED BY USER (OR BY READACCS FOR LAST PASS) IN AVGEXIT.
035807,000116: # LAST PASS (AVGEND) 1) FREE FALL GYRO COMPENSATION SET UP.
035808,000117: # 2) DRIFT FLAG TURNED ON.
035809,000118: # 3) STATE VECTOR TRANSFERRED VIA AVETOMID ROUTINE.
035810,000119: # 4) ONMONITOR FLAG RESET.
035811,000120: # 5) V37 FLAG RESET.
035812,000121: # 6) TEST CONNECTOR OUTBIT RESET.
035813,000122: # 7) CONTROL TRANSFERRED TO CANV37 TO CONTINUE MM CHANGE ROUTINE (R00).
035814,000123:
035815,000124: # CALLING SEQUENCE
035816,000125:
035817,000126: # PREREAD ENTERED DIRECTLY FROM TIG-30 VIA POSTJUMP.
035818,000127: # READACCS CALLED AS WAITLIST TASK. .
035819,000128:
035820,000129: # SUBROUTINES CALLED
035821,000130:
035822,000131: # UTILITY ROUTINES - PHASCHNG FLAGUP FLAGDOWN NOVAC FINDVAC WAITLIST ALARM NEWPHASE 2PHSCHNG
035823,000132:
035824,000133: # OTHER - PIPASR 1/PIPA CALCGRAV CALCRVG AVETOMID
035825,000134:
035826,000135: # NORMAL EXIT MODES
035827,000136:
035828,000137: # ENDOFJOB TASKOVER CANV37
035829,000138:
035830,000139: # AVGEXIT - THIS IS A DOUBLE PRECISION ERASABLE LOCATION BY WHICH CONTROL IS TRANSFERRED AT THE END
035831,000140: # OF EACH CYCLE OF AVERAGE G.
035832,000141: # THE 2CADR OF A ROUTINE TO BE PERFORMED AT THAT TIME (E.G., STEERING EQUATIONS TO BE PERFORMED
035833,000142: # AT 2 SECOND INTERVALS) MAY BE SET BY THE USER INTO AVGEXIT.
035834,000143: # ALL SUCH ROUTINES SHOULD RETURN TO SERVEXIT, WHICH IS THE NORMAL EXIT FROM AVERAGE G.
035835,000144:
035836,000145: # SERVEXIT - DOES A PHASE CHANGE FOR RESTART PROTECTION AND GOES TO ENDOFJOB.
035837,000146: # THE 2CADR OF SERVEXIT IS SET INTO AVGEXIT BY THE USER IF NO OTHER ROUTINE (SEE ABOVE).
035838,000147:
035839,000148: # AVGEND - LAST PASS OF AVERAGE G EXITS HERE, BYPASSING SPECIAL ROUTINE (SEE ABOVE UNDER READACCS).
035840,000149: # FINAL EXIT IS TO CANV37. F AVERAGE G).
035841,000150:
035842,000151: # OUTPUT
035843,000152:
035844,000153: # DVTOTAL(2) PIPTIME(2) XPIPBUF(2) YPIPBUF(2) ZPIPBUF(2)
035845,000154: # RN(6) REFERENCE COORD. SCALED AT 2(+29) M/CS
035846,000155: # VN(6) REFERENCE COORD. SCALED AT 2(+7) M/CS
035847,000156: # GDT/2(6) REFERENCE COORD. SCALED AT 2(+7) M/CS
035848,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
|
035850,000159: # DELVREF(6) REFERENCE COORD. SCALED AT 2(+7) M/CS
035851,000160:
035852,000161: # INITIALIZATION
035853,000162:
035854,000163: # ONMONITOR FLAG SET BY ENTRY TO SHOW PIPBUF VALUES REQUIRED.
035855,000164: # IDLE FLAG ON IF DVMON TO BE BYPASSED.
035856,000165: # DVTHRUSH SET TO APPROPRIATE VALUE FOR DVMON.
035857,000166: # AVGEXIT SET TO 2CADR OF ROUTINE, IF ANY, TO BE PERFORMED AFTER EACH CYCLE OF AVERAGE G. IF NO ROUTINE
035858,000167: # TO BE DONE, AVGEXIT SET TO SERVEXIT.
035859,000168: # VALUES NEEDED
035860,000169: # REFSMMAT
035861,000170: # UNITW - FULL UNIT VECTOR, IN REFERENCE COORD., OF EARTH S ROTATIONAL VECTOR
035862,000171: # RN1, VN1, PIPTIME1 - IN REFERENCE COORD., CONSISTENT WITH TIME OF EXECUTION OF PREREAD
035863,000172:
035864,000173: # DEBRIS
035865,000174:
035866,000175: # CENTRALS A, L, Q
035867,000176: # OTHER INTERNAL - DVCNTR(1) PIPAGE(1) PIPCTR(1) AVGEXIT(2)
035868,000177: # EXTERNAL - ITEMP1(1) ITEMP2(1) RUPTREG1(1) TEMX(1) TEMY(1) TEMZ(1)
035869,000178: # USEFUL DEBRIS
035870,000179: # RN1(6) VN1(6) GDT1/2 PIPTIME1(2)
035871,000180: # THESE LOCATIONS USED AS BUFFER STORAGE FOR NEWLY CALCULATED VALUES OF RN, VN, GDT/2,
035872,000181: # AND PIPTIME DURING PERFORMANCE OF SERVICER ROUTINES.
035873,000182: # UNITR - HALF UNIT VECTOR OF RN, REFERENCE COORD.
035874,000183: # RMAG SCALED AT 2(+58) IN 36D.
035875,000184: # RMAGSQ SCALED AT 2(+58) IN 34D.
035876,000185: # (RE/RMAG)SQ IN 32D.
035877,000186:
035878,000187: 27,2671 BANK 27
035879,000188: 37,2000 SETLOC SERVICES
035880,000189: 37,2000 BANK
035881,000190:
035882,000191: 37,2700 E7,1431 EBANK= DVCNTR
035883,000192: # ************************************* PREREAD **************************************************************
035884,000193:
035885,000194: 37,2700 COUNT 37/SERV
035886,000195:
035887,000196: 37,2700 35073 PREREAD CAF PRIO21 # CALLER MUST PROTECT PREREAD
035888,000197: 37,2701 05134 TC NOVAC
035889,000198: 37,2702 E3,1460 EBANK= NBDX
035890,000199: 37,2702 03636 14063 2CADR LASTBIAS # DO LAST GYRO COMPENSATION IN FREE FALL
035891,000200:
035892,000201: # CALL-TO AND LASTBIAS ITSELF ARE NOT
035893,000202: # PROTECTED. REREADAC SETS 1/PIPADT
035894,000203: # TO 2.0 SECS IN CASE LASTBIAS LOST.
035895,000204: # (REDUNDANT IF LASTBIAS IS AOK)
|
|
Page 823
|
035897,000206: 37,2704 02721 REDO5.31 TC PREREAD1
035898,000207:
035899,000208: 37,2705 37667 CAF PRIO32
035900,000209: 37,2706 05147 TC FINDVAC # SET UP NORMLIZE JOB REQUIRED PRIOR TO
035901,000210: 37,2707 E7,1431 EBANK= DVCNTR # FIRST AVERAGE G PASS
035902,000211: 37,2707 03235 76067 2CADR NORMLIZE
035903,000212:
035904,000213: 37,2711 35042 CAF 2SECS
035905,000214: 37,2712 05245 TC WAITLIST
035906,000215: 37,2713 E6,1661 EBANK= AOG
035907,000216: 37,2713 02743 76066 2CADR READACCS
035908,000217:
035909,000218: 37,2715 45016 CS TWO
035910,000219: 37,2716 04114 TC NEWPHASE
035911,000220: 37,2717 00005 OCT 5
035912,000221:
035913,000222: 37,2720 15324 TCF TASKOVER
035914,000223:
035915,000224: 37,2721 00006 PREREAD1 EXTEND
035916,000225: 37,2722 22070 QXCH RUPTREG1
035917,000226:
035918,000227: 37,2723 03253 TC PIPASR # CLEAR + READ PIPS LAST TIME IN FREE FALL
035919,000228:
035920,000229: 37,2724 35017 CAF ONE # SET UP PIPAGE FOR REREADAC IN CASE A
035921,000230: 37,2725 55230 TS PIPAGE # RESTART OCCURS BEFORE READACCS
035922,000231:
035923,000232: 37,2726 40075 CS FLAGWRD1 # SET AVEG FLAG
035924,000233: 37,2727 75017 MASK BIT1
035925,000234: 37,2730 26075 ADS FLAGWRD1
035926,000235:
035927,000236: 37,2731 34777 CA POSMAX
035928,000237: 37,2732 70076 MASK FLAGWRD2
035929,000238: 37,2733 54076 TS FLAGWRD2 # KNOCK DOWN DRIFT FLAG
035930,000239:
035931,000240: 37,2734 40103 CS FLAGWRD7 # SET V37 FLAG
035932,000241: 37,2735 75012 MASK BIT6
035933,000242: 37,2736 26103 ADS FLAGWRD7
035934,000243:
035935,000244: 37,2737 35021 CAF ZERO
035936,000245: 37,2740 55425 TS DVTOTAL # CLEAR DVTOTAL
035937,000246: 37,2741 55426 TS DVTOTAL +1
035938,000247:
035939,000248: 37,2742 00070 TC RUPTREG1
035940,000249:
|
|
Page 824
|
035942,000251: # ************************************* READACCS *************************************************************
035943,000252: 37,2743 E6,1661 EBANK= AOG
035944,000253: 37,2743 03253 READACCS TC PIPASR
035945,000254:
035946,000255: 37,2744 35022 PIPSDONE CAF FIVE
035947,000256: 37,2745 54001 TS L
035948,000257: 37,2746 40000 COM
035949,000258: 37,2747 52763 DXCH -PHASE5
035950,000259:
035951,000260: 37,2750 35017 REDO5.5 CAF ONE # SHOW PIPS HAVE BEEN READ
035952,000261: 37,2751 55230 TS PIPAGE
035953,000262:
035954,000263: 37,2752 35016 CA TWO # SET PIPCTR FOR ONMINTOR
035955,000264: 37,2753 55227 TS PIPCTR # AFTER ABOVE PHASCHNG
035956,000265:
035957,000266: 37,2754 40102 CS CM/FLAGS
035958,000267: 37,2755 75016 MASK BIT2 # CM/DSTBY
035959,000268: 37,2756 10000 CCS A
035960,000269: 37,2757 03032 TC CHEKAVEG
035961,000270:
035962,000271: 37,2760 41246 CS PIPTIME1 +1
035963,000272: 37,2761 55065 TS TBASE6 # FOR RESTARTS
035964,000273: 37,2762 00006 EXTEND # CONTINUE FOR ENTRY DAP
035965,000274: 37,2763 31662 DCA AOG
035966,000275: 37,2764 53670 DXCH AOG/PIP
035967,000276: 37,2765 31663 CA AMG
035968,000277: 37,2766 57671 XCH AMG/PIP
035969,000278: 37,2767 00006 EXTEND
035970,000279: 37,2770 31665 DCA ROLL/180
035971,000280: 37,2771 53673 DXCH ROLL/PIP
035972,000281: 37,2772 31666 CA BETA/180
035973,000282: 37,2773 57674 XCH BETA/PIP
035974,000283: 37,2774 30102 CA CM/FLAGS
035975,000284: 37,2775 75004 MASK BIT12 # CM/DAPARM 93D BIT12
035976,000285: 37,2776 00006 EXTEND # DURING ENTRY, WHEN RCS DAP IS INACTIVE,
035977,000286: 37,2777 13015 BZF NOSAVPIP # SAVE PIPAS EACH 0.5 SEC FOR TM.
035978,000287:
035979,000288: 37,3000 33065 CA 0.5SEC
035980,000289: 37,3001 05245 TC WAITLIST
035981,000290: 37,3002 E6,1533 EBANK= XPIPBUF
035982,000291: 37,3002 03066 76066 2CADR QUIKREAD
035983,000292:
035984,000293: # NO NEED TO RESTART PROTECT THIS.
035985,000294: 37,3004 31162 CA DELVX # SAVE PIPAS AS READ (BUT NOT COMPENSATED)
035986,000295: 37,3005 57533 XCH XPIPBUF
035987,000296: 37,3006 55536 TS XOLDBUF
035988,000297:
035989,000298: 37,3007 31164 CA DELVY
035990,000299: 37,3010 57534 XCH YPIPBUF
035991,000300: 37,3011 55537 TS YOLDBUF
|
|
Page 825
|
035993,000302: 37,3012 31166 CA DELVZ
035994,000303: 37,3013 57535 XCH ZPIPBUF
035995,000304: 37,3014 55540 TS ZOLDBUF
035996,000305:
035997,000306: 37,3015 35022 NOSAVPIP CA FIVE
035998,000307: 37,3016 55725 TS CM/GYMDT
035999,000308:
036000,000309: 37,3017 33232 CA JTAGTIME # ACTIVATE CM/RCS AFTER PIPUP TO GO
036001,000310: # IN JTAGTIME +5 CS.
036002,000311: 37,3020 05245 TC WAITLIST
036003,000312: 37,3021 E6,1661 EBANK= AOG
036004,000313: 37,3021 03207 32066 2CADR SETJTAG
036005,000314:
036006,000315: 37,3023 46214 CS THREE # 1.3SPOT FOR SETJTAG
036007,000316: 37,3024 04114 TC NEWPHASE
036008,000317: 37,3025 00001 OCT 1
036009,000318:
036010,000319: 37,3026 34362 CAF OCT37
036011,000320: 37,3027 54001 TS L
036012,000321: 37,3030 40000 COM
036013,000322: 37,3031 52763 DXCH -PHASE5
036014,000323:
036015,000324: 37,3032 40075 CHEKAVEG CS FLAGWRD1
036016,000325: 37,3033 75017 MASK BIT1
036017,000326: 37,3034 10000 CCS A # IF AVEG FLAG DOWN SET FINAL EXIT AVEG
036018,000327: 37,3035 03055 TC AVEGOUT
036019,000328:
036020,000329: 37,3036 35042 CAF 2SECS
036021,000330: 37,3037 05245 TC WAITLIST
036022,000331: 37,3040 E6,1661 EBANK= AOG
036023,000332: 37,3040 02743 76066 2CADR READACCS
036024,000333:
036025,000334: 37,3042 35002 MAKESERV CAF PRIO20 # ESTABLISH SERVICER ROUTINE
036026,000335: 37,3043 05147 TC FINDVAC
036027,000336: 37,3044 E7,1431 EBANK= DVCNTR
036028,000337: 37,3044 03103 76067 2CADR SERVICER
036029,000338:
036030,000339: 37,3046 45015 CS FOUR # RESTART SERVICER AND READACCS
036031,000340: 37,3047 04114 TC NEWPHASE
036032,000341: 37,3050 00005 OCT 5
036033,000342:
036034,000343: 37,3051 35007 CAF BIT9
036035,000344: 37,3052 00006 EXTEND
036036,000345: 37,3053 05011 WOR DSALMOUT # TURN TEST CONNECTOR OUTBIT ON
036037,000346:
036038,000347: 37,3054 15324 TCF TASKOVER # END PREVIOUS READACCS WAITLIST TASK
036039,000348:
|
|
Page 826
|
036041,000350: 37,3055 00006 AVEGOUT EXTEND
036042,000351: 37,3056 33062 DCA AVOUTCAD
036043,000352: 37,3057 53223 DXCH AVGEXIT
036044,000353: 37,3060 13042 TCF MAKESERV
036045,000354:
036046,000355: 37,3061 E7,1431 EBANK= DVCNTR
036047,000356: 37,3061 03164 76067 AVOUTCAD 2CADR AVGEND
036048,000357:
|
|
Page 827
|
036050,000359: # ROUTINE NAME: ONMNITOR
036051,000360: # MOD 04 BY BAIRNSFATHER 30 APR 1968 REDO ONMNITOR TO SAVE PIPS EACH 0.5 SEC FOR TM,ENTRY.
036052,000361: # MOD 03 BY FISHER DECEMBER 1967
036053,000362: # MOD 02 BY RYE SEPT 1967
036054,000363: # MOD 01 BY KOSMALA 23 MAR 1967
036055,000364: # MOD 00 BY KOSMALA 27 FEB 1967
036056,000365:
036057,000366: # FUNCTIONAL DESCRIPTION
036058,000367:
036059,000368: # THE PURPOSE OF ONMONITOR IS TO PROVIDE 1/2 SEC. READING OF PIPAS FOR DOWNLIST DURING ENTRY.
036060,000369: # X,Y,ZPIPBUF CONTAIN PRESENT VALUES X,Y,ZOLDBUF CONTAIN VALUES FROM PREVIOUS READING.
036061,000370:
036062,000371: # CALLING SEQUENCE
036063,000372:
036064,000373: # CALL AS WAITLIST TASK. TERMINATES ITSELF IN TASKOVER
036065,000374:
036066,000375: # INITIALISATION
036067,000376:
036068,000377: # PIPCTR = 2 (FOR DT = 0.5 SEC)
036069,000378: # X,Y,ZPIPBUF SET TO PREVIOUS PIPAX,Y,Z
036070,000379:
036071,000380: # OUTPUT
036072,000381:
036073,000382: # X,Y,ZPIPBUF, X,Y,ZOLDBUF
036074,000383:
036075,000384: # DEBRIS
036076,000385:
036077,000386: # X,Y,ZPIPBUF CONTAIN LAST PIPAX,Y,Z VALUES
036078,000387: # X,Y,ZOLDBUF CONTAIN LAST-BUT-ONE PIPAX,Y,Z VALUES
036079,000388: # RUPTREG1
036080,000389: # PIPCTR
036081,000390:
036082,000391: 37,3063 55227 ONMNITOR TS PIPCTR
036083,000392:
036084,000393: 37,3064 05267 TC FIXDELAY # WAIT
036085,000394: 37,3065 00062 0.5SEC DEC 50 B-14
036086,000395:
036087,000396: 37,3066 35016 QUIKREAD CAF TWO
036088,000397: 37,3067 54070 TS RUPTREG1
036089,000398: 37,3070 50000 INDEX A
036090,000399: 37,3071 30037 CA PIPAX # SAVE ACTUAL PIPAS FOR TM.
036091,000400: 37,3072 50070 INDEX RUPTREG1
036092,000401: 37,3073 57533 XCH XPIPBUF # UPDATE X,Y,ZPIPBUF
036093,000402: 37,3074 50070 INDEX RUPTREG1
036094,000403: 37,3075 55536 TS XOLDBUF # AND X,Y,ZOLDBUF
036095,000404: 37,3076 10070 CHKCTR CCS RUPTREG1
036096,000405: 37,3077 13067 TCF QUIKREAD +1 # LOOP AGAIN
036097,000406: 37,3100 11227 CCS PIPCTR
036098,000407: 37,3101 13063 TCF ONMNITOR
036099,000408: 37,3102 05324 TC TASKOVER
036100,000409:
|
|
Page 828
|
036102,000411: # ************************************* SERVICER *************************************************************
036103,000412:
036104,000413: 37,3103 E7,1431 EBANK= DVCNTR
036105,000414:
036106,000415: 37,3103 35016 SERVICER CAF TWO
036107,000416: 37,3104 00004 INHINT
036108,000417: 37,3105 54070 PIPCHECK TS RUPTREG1
036109,000418:
036110,000419: 37,3106 60000 DOUBLE
036111,000420: 37,3107 50000 INDEX A
036112,000421: 37,3110 11162 CCS DELVX
036113,000422: 37,3111 03113 TC +2
036114,000423: 37,3112 03121 TC PIPLOOP
036115,000424:
036116,000425: 37,3113 63231 AD -MAXDELV # DO PIPA-SATURATION TEST BEFORE
036117,000426: 37,3114 00006 EXTEND
036118,000427: 37,3115 63121 BZMF PIPLOOP # COMPENSATION.
036119,000428:
036120,000429: 37,3116 05650 TC ALARM
036121,000430: 37,3117 00205 OCT 00205 # SATURATED-PIPA ALARM ***CHANGE LATER
036122,000431: 37,3120 03142 TC AVERAGEG
036123,000432:
036124,000433: 37,3121 10070 PIPLOOP CCS RUPTREG1
036125,000434: 37,3122 13105 TCF PIPCHECK
036126,000435:
036127,000436: 37,3123 05412 TC PHASCHNG # RESTART REREADAC + SERVICER
036128,000437: 37,3124 16035 OCT 16035
036129,000438: 37,3125 20000 OCT 20000
036130,000439: 37,3126 E7,1431 EBANK= DVCNTR
036131,000440: 37,3126 03132 76067 2CADR DVTOTUP
036132,000441:
036133,000442: 37,3130 04662 TC BANKCALL # PIPA COMPENSATION CALL
036134,000443: 37,3131 15262 CADR 1/PIPA
036135,000444:
036136,000445: 37,3132 06006 DVTOTUP TC INTPRET
036137,000446: 37,3133 51575 VLOAD ABVAL # GET ABS VALUE OF DELV
036138,000447: 37,3134 01163 DELV
036139,000448: 37,3135 77405 DMP EXIT
036140,000449: 37,3136 37450 KPIP1 # SCALE AT 2(+7)
036141,000450:
036142,000451: 37,3137 00006 EXTEND
036143,000452: 37,3140 30155 DCA MPAC
036144,000453: 37,3141 21426 DAS DVTOTAL # ACCUMULATE DVTOTAL
036145,000454: 37,3142 05412 AVERAGEG TC PHASCHNG
036146,000455: 37,3143 10035 OCT 10035
036147,000456:
036148,000457: 37,3144 06006 TC INTPRET
036149,000458: 37,3145 77624 CALL
|
|
Page 829
|
036151,000460: 37,3146 77417 CALCRVG
036152,000461: 37,3147 77776 EXIT
036153,000462:
036154,000463: 37,3150 05412 TC PHASCHNG
036155,000464: 37,3151 10035 OCT 10035
036156,000465:
036157,000466: 37,3152 34113 CAF OCT31 # COPY RN1,VN1,GOT102,GOBL1/2,PIPTIME1
036158,000467: 37,3153 05606 TC GENTRAN # INTO RN, VN, GDT/12, GOBL/2,PIPTIME
036159,000468: 37,3154 01231 ADRES RN1
036160,000469: 37,3155 01170 ADRES RN
036161,000470: 37,3156 00003 RELINT # GENTRAN DOES AN INHINT
036162,000471: 37,3157 05412 TC PHASCHNG
036163,000472: 37,3160 10035 OCT 10035
036164,000473:
036165,000474: 37,3161 00006 EXTEND
036166,000475: 37,3162 31223 DCA AVGEXIT
036167,000476: 37,3163 52006 DXCH Z # AVERAGEG EXIT
036168,000477:
036169,000478: 37,3164 31205 AVGEND CA PIPTIME +1 # FINAL AVERAGE G EXIT
036170,000479: 37,3165 55074 TS OLDBT1 # SET UP FREE FALL GYRO COMPENSATION
036171,000480:
036172,000481: 37,3166 05546 TC UPFLAG # SET DRIFTFLG
036173,000482: 37,3167 00036 ADRES DRIFTFLG # BIT 15 FLAG 2
036174,000483: 37,3170 05372 TC 2PHSCHNG
036175,000484: 37,3171 00005 OCT 5 # GROUP 5 OFF
036176,000485: 37,3172 05022 OCT 05022 # GROUP 2 ON FOR AVETOMID
036177,000486: 37,3173 20000 OCT 20000
036178,000487:
036179,000488: 37,3174 06006 TC INTPRET
036180,000489: 37,3175 77624 CALL
036181,000490: 37,3176 73702 AVETOMID # CONVERT STATE VECTOR TO REFERENCE SCALE.
036182,000491: 37,3177 77776 EXIT
036183,000492:
036184,000493: 37,3200 35021 CAF ZERO # ZERO MARK COUNTERS.
036185,000494: 37,3201 55125 TS VHFCNT
036186,000495: 37,3202 55126 TS TRKMKCNT
036187,000496:
036188,000497: 37,3203 04662 TC BANKCALL
036189,000498: 37,3204 17173 CADR PIPFREE
036190,000499:
036191,000500: 37,3205 45007 CS BIT9
036192,000501: 37,3206 55734 TS MRKBUF2 # INVALIDATE MARK BUFFER
036193,000502: 37,3207 00006 EXTEND
036194,000503: 37,3210 03011 WAND DSALMOUT
036195,000504:
036196,000505: 37,3211 05560 TC DOWNFLAG
036197,000506: 37,3212 00147 ADRES CM/DSTBY
036198,000507:
036199,000508: 37,3213 05560 TC DOWNFLAG
036200,000509: 37,3214 00162 ADRES V37FLAG
036201,000510:
|
|
Page 830
|
036203,000512: 37,3215 35011 CAF BIT7 # RESTORE GROUP 1 + 2 IF P20 IS RUNNING.
036204,000513: 37,3216 70074 MASK FLAGWRD0
036205,000514: 37,3217 00006 EXTEND
036206,000515: 37,3220 13224 BZF +4
036207,000516:
036208,000517: 37,3221 05372 TC 2PHSCHNG
036209,000518: 37,3222 00111 OCT 111 # 1.11SPOT
036210,000519: 37,3223 00132 OCT 132 # 2.13SPOT
036211,000520:
036212,000521: 37,3224 04701 TC POSTJUMP
036213,000522: 37,3225 10124 CADR CANV37
036214,000523:
036215,000524: 37,3226 05412 SERVEXIT TC PHASCHNG
036216,000525: 37,3227 00035 OCT 00035 # A, 5.3 = REREADAC (ONLY)
036217,000526:
036218,000527: 37,3230 15217 TCF ENDOFJOB
036219,000528:
036220,000529: 37,3231 5024 DVTHRUSH EQUALS ELEVEN # 15 PERCENT OF 2SEC PIPA ACCUMULATION,
036221,000530: # FOR 503-FULL CSM/LEM....DELV SC.AT
036222,000531: # 5.85 CM/SEC.
036223,000532:
036224,000533: 37,3231 63401 -MAXDELV DEC -6398 B-14 # 3200 PPS FOR 2 SEC CCS TAKES 1
036225,000534:
036226,000535: 37,3232 00170 JTAGTIME DEC 120 B-14 # = 1 SEC + T CDU, T CDU = .1 SEC
036227,000536:
036228,000537: 37,3233 00372 2.5SEC DEC 250 B-14
036229,000538: 37,3234 00044 MDOTFAIL DEC 144.0 B-16 # 5 SEC MASS LOSS AT 28.8 KG/SEC
036230,000539: # SHOULD BE 2-4 SECS FOR NO START
036231,000540: # 6-8 SECS FOR FAILURE
036232,000541:
|
|
Page 831
|
036234,000543: # NORMLIZE PERFORMS THE INITIALIZATION REQUIRED PRIOR TO THE FIRST ENTRY TO AVERAGEG, AND SCALES RN SO THAT IT
036235,000544: # HAS 1 LEADING BINARY ZERO. IN MOST MISSIONS, RN WILL BE SCALED AT 2(+29), BUT IN THE 206 MISSION, RN WILL BE
036236,000545: # SCALED AT 2(+24) M.
036237,000546:
036238,000547: 37,3235 35025 NORMLIZE CAF THIRTEEN # SET UP TO COPY 14 REGS- RN1,VN1,PIPTIME1
036239,000548: 37,3236 05606 TC GENTRAN # INTO RN,VN,PIPTIME
036240,000549: 37,3237 01231 ADRES RN1 # FROM HERE
036241,000550: 37,3240 01170 ADRES RN # TO HERE
036242,000551:
036243,000552: 37,3241 00003 RELINT
036244,000553: 37,3242 06006 TC INTPRET
036245,000554: 37,3243 45175 VLOAD CALL # LOAD RN FOR CALCGRAV
036246,000555: 37,3244 01171 RN
036247,000556: 37,3245 77352 CALCGRAV # INITIALISE UNITR RMAG GDT1
036248,000557:
036249,000558: 37,3246 25207 STOVL GDT/2
036250,000559: 37,3247 01256 GOBL1/2
036251,000560: 37,3250 01215 STORE GOBL/2
036252,000561: 37,3251 77776 EXIT
036253,000562: 37,3252 15217 TCF ENDOFJOB
036254,000563:
|
|
Page 832
|
036256,000565: # ***** PIPA READER *****
036257,000566: # MOD NO. 00 BY D. LICKLY DEC. 9 1966
036258,000567:
036259,000568: # FUNCTIONAL DESCRIPTION
036260,000569:
036261,000570: # SUBROUTINE TO READ PIPA COUNTERS, TRYING TO BE VERY CAREFUL SO THAT IT WILL BE RESTARTABLE.
036262,000571: # PIPA READINGS ARE STORED IN THE VECTOR DELV. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS THE PIPA READING,
036263,000572: # RESTARTS BEGIN AT REREADAC.
036264,000573:
036265,000574: # AT THE END OF THE PIPA READER THE CDUS ARE READ AND STORED AS A
036266,000575: # VECTOR IN CDUTEMP. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS
036267,000576: # THE CDU READING IN 2S COMP IN THE ORDER CDUX,Y,Z. THE THRUST
036268,000577: # VECTOR ESTIMATOR IN FINDCDUD REQUIRES THE CDUS BE READ AT PIPTIME.
036269,000578:
036270,000579: # CALLING SEQUENCE AND EXIT
036271,000580:
036272,000581: # CALL VIA TC, ISWCALL, ETC.
036273,000582:
036274,000583: # EXIT IS VIA Q.
036275,000584:
036276,000585: # INPUT
036277,000586:
036278,000587: # INPUT IS THROUGH THE COUNTERS PIPAX, PIPAY, PIPAZ, AND TIME2.
036279,000588:
036280,000589: # OUTPUT
036281,000590:
036282,000591: # HIGH ORDER COMPONENTS OF THE VECTOR DELV CONTAIN THE PIPA READINGS.
036283,000592:
036284,000593: # PIPTIME CONTAINS TIME OF PIPA READING.
036285,000594:
036286,000595: # DEBRIS (ERASABLE LOCATIONS DESTROYED BY PROGRAM)
036287,000596:
036288,000597: # LOW ORDER DELV'S ARE ZEROED FOR TM INDICATION.
036289,000598: # TEMX TEMY TEMZ PIPAGE
036290,000599:
036291,000600: 37,3253 00006 PIPASR EXTEND
036292,000601: 37,3254 30025 DCA TIME2
036293,000602: 37,3255 53246 DXCH PIPTIME1 # CURRENT TIME POSITIVE VALUE
036294,000603: 37,3256 45021 CS ZERO # INITIALIZE THESE AT NEG ZERO.
036295,000604: 37,3257 55224 TS TEMX
036296,000605: 37,3260 55225 TS TEMY
036297,000606: 37,3261 55226 TS TEMZ
|
|
Page 833
|
036299,000608: 37,3262 35021 CA ZERO
036300,000609: 37,3263 55166 TS DELVZ # OTHER DELVS OK INCLUDING LOW ORDER
036301,000610: 37,3264 55164 TS DELVY
036302,000611:
036303,000612: 37,3265 55163 TS DELVX +1 # LOW ORDER DELV'S ARE ZEROED FOR TM: THUS
036304,000613: 37,3266 55165 TS DELVY +1 # IF DNLNK'D LOW ORDER DELVS ARE NZ, THEY
036305,000614: 37,3267 55167 TS DELVZ +1 # CONTAIN PROPER COMPENSATION. IF=0, THEN
036306,000615: # THE TM VALUES ARE BEFORE COMPENSATION.
036307,000616:
036308,000617: 37,3270 55230 TS PIPAGE # SHOW PIPA READING IN PROGRESS
036309,000618:
036310,000619: 37,3271 00006 REPIP1 EXTEND
036311,000620: 37,3272 40040 DCS PIPAX # X AND Y PIPS READ
036312,000621: 37,3273 53225 DXCH TEMX
036313,000622: 37,3274 52040 DXCH PIPAX # PIPAS SET TO NEG ZERO AS READ.
036314,000623: 37,3275 55162 TS DELVX
036315,000624: 37,3276 23164 LXCH DELVY
036316,000625:
036317,000626: 37,3277 40041 REPIP3 CS PIPAZ # REPEAT PROCESS FOR Z PIP
036318,000627: 37,3300 57226 XCH TEMZ
036319,000628: 37,3301 56041 XCH PIPAZ
036320,000629: 37,3302 55166 DODELVZ TS DELVZ
036321,000630:
036322,000631: 37,3303 00002 TC Q
036323,000632:
036324,000633: 37,3304 E6,1661 EBANK= AOG
036325,000634:
036326,000635: 37,3304 10763 REREADAC CCS PHASE5 # LAST PASS CHECK
036327,000636: 37,3305 13307 TCF +2
036328,000637: 37,3306 15324 TCF TASKOVER
036329,000638:
036330,000639: 37,3307 37665 CAF PRIO31 # RESTART MAY HAVE WIPED OUT LASTBIAS, AN
036331,000640: 37,3310 55074 TS 1/PIPADT # UNPROTECTED NOVAC FROM PREREAD,
036332,000641: # WHICH SET(S) UP 1/PIPADT (THUSLY)
036333,000642: # FOR NON-COASTING COMPENSATION....BE
036334,000643: # SURE 1/PIPADT IS AOK. (PRIO31 IS
036335,000644: # 2.0SEC SC.AT B+8CS)
036336,000645:
036337,000646: 37,3311 11230 CCS PIPAGE
036338,000647: 37,3312 12743 TCF READACCS # PIP READING NOT STARTED. GO TO BEGINNING
036339,000648:
036340,000649: 37,3313 33351 CAF DONEADR # SET UP RETURN FROM PIPASR
036341,000650: 37,3314 54002 TS Q
036342,000651:
036343,000652: 37,3315 11166 CCS DELVZ
036344,000653: 37,3316 00002 TC Q # Z DONE, GO DO CDUS
036345,000654: 37,3317 13322 TCF +3 # Z NOT DONE, CHECK Y.
036346,000655: 37,3320 00002 TC Q
036347,000656: 37,3321 00002 TC Q
|
|
Page 834
|
036349,000658: 37,3322 22007 ZL
036350,000659: 37,3323 11164 CCS DELVY
036351,000660: 37,3324 13327 TCF +3
036352,000661: 37,3325 13336 TCF CHKTEMX # Y NOT DONE, CHECK X.
036353,000662: 37,3326 13327 TCF +1
036354,000663: 37,3327 22041 LXCH PIPAZ # Y DONE, ZERO Z PIP.
036355,000664:
036356,000665: 37,3330 11226 CCS TEMZ
036357,000666: 37,3331 41226 CS TEMZ # TEMZ NOT = -0, CONTAINS -PIPAZ VALUE.
036358,000667: 37,3332 13302 TCF DODELVZ
036359,000668: 37,3333 13331 TCF -2
036360,000669: 37,3334 23166 LXCH DELVZ # TEMZ = -0, L HAS ZPIP VALUE.
036361,000670: 37,3335 00002 TC Q
036362,000671:
036363,000672: 37,3336 11224 CHKTEMX CCS TEMX # HAS THIS CHANGED
036364,000673: 37,3337 41224 CS TEMX # YES
036365,000674: 37,3340 13343 TCF +3 # YES
036366,000675: 37,3341 13337 TCF -2 # YES
036367,000676: 37,3342 13271 TCF REPIP1 # NO
036368,000677: 37,3343 55162 TS DELVX
036369,000678:
036370,000679: 37,3344 41225 CS TEMY
036371,000680: 37,3345 55164 TS DELVY
036372,000681:
036373,000682: 37,3346 45021 CS ZERO # ZERO X AND Y PIPS
036374,000683: 37,3347 52040 DXCH PIPAX # L STILL ZERO FROM ABOVE
036375,000684:
036376,000685: 37,3350 13277 TCF REPIP3
036377,000686:
036378,000687: 37,3351 02744 DONEADR GENADR PIPSDONE
036379,000688:
|
|
Page 835
|
036381,000690: # *************************************************************************************************************
036382,000691:
036383,000692: # ROUTINE CALCRVG INTEGRATES THE EQUATIONS OF MOTION BY AVERAGING THE THRUST AND GRAVITATIONAL
036384,000693: # ACCELERATIONS OVER A TIME INTERVAL OF 2 SECONDS.
036385,000694:
036386,000695: # FOR THE EARTH-CENTERED GRAVITATIONAL FIELD, THE PERTURBATION DUE TO OBLATENESS IS COMPUTED TO THE FIRST
036387,000696: # HARMONIC COEFFICIENT J.
036388,000697:
036389,000698: # ROUTINE CALCRVG REQUIRES...
036390,000699: # 1) THRUST ACCELERATION INCREMENTS IN DELV SCALED SAME AS PIPAX,Y,Z IN STABLE MEMBER COORDS.
036391,000700: # 2) VN SCALED 2(+7) M/CS IN REFERENCE COORDS.
036392,000701: # 3) RN SCALED AT 2(+29) METERS IN REFERENCE COORDS.
036393,000702: # 4) UNITW THE EARTH S UNIT ROTATIONAL VECTOR (SCALED AS A FULL UNIT VECTOR) IN REFERENCE COORDS.
036394,000703:
036395,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
036396,000705: # UNIT VECTOR UNITR, RMAG IN 36D SCALED AT 2(+29)M, R MAG SQ. IN 34D SCALED AT 2(+58) M SQ.
036397,000706:
036398,000707: 37,3352 41456 CALCGRAV UNIT PUSH # ENTER WITH RN IN MPAC
036399,000708: 37,3353 01760 STORE UNITR
036400,000709: 37,3354 67340 LXC,1 SLOAD
036401,000710: 37,3355 03746 RTX2
036402,000711: 37,3356 00047 X1
036403,000712: 37,3357 77240 BMN VLOAD
036404,000713: 37,3360 77406 ITISMOON
036405,000714: 37,3361 41441 DOT PUSH
036406,000715: 37,3362 01714 UNITW
036407,000716: 37,3363 44316 DSQ BDSU
036408,000717: 37,3364 37460 DP1/20
036409,000718: 37,3365 56325 PDDL DDV
036410,000719: 37,3366 37462 RESQ
036411,000720: 37,3367 00043 34D # (RN)SQ
036412,000721: 37,3370 00041 STORE 32D # TEMP FOR (RE/RN)SQ
036413,000722: 37,3371 41205 DMP DMP
036414,000723: 37,3372 37464 20J
036415,000724: 37,3373 65361 VXSC PDDL
036416,000725: 37,3374 01760 UNITR
036417,000726: 37,3375 41205 DMP DMP
036418,000727: 37,3376 37466 2J
036419,000728: 37,3377 00041 32D
036420,000729: 37,3400 53361 VXSC VAD
036421,000730: 37,3401 01714 UNITW
036422,000731: 37,3402 77626 STADR
036423,000732: 37,3403 76521 STORE GOBL1/2
036424,000733: 37,3404 41455 VAD PUSH
036425,000734: 37,3405 01760 UNITR
036426,000735: 37,3406 60345 ITISMOON DLOAD NORM
036427,000736: 37,3407 00043 34D
036428,000737: 37,3410 00050 X2
036429,000738: 37,3411 53663 BDDV* SLR*
|
|
Page 836
|
036431,000740: 37,3412 37452 -MUDT(E),1
036432,000741: 37,3413 56623 0 -21D,2
036433,000742: 37,3414 45561 VXSC STADR
036434,000743: 37,3415 76527 STORE GDT1/2 # SCALED AT 2(+7) M/CS
036435,000744: 37,3416 77616 RVQ
036436,000745:
036437,000746: 37,3417 74375 CALCRVG VLOAD VXSC
036438,000747: 37,3420 01163 DELV
036439,000748: 37,3421 37450 KPIP1
036440,000749: 37,3422 76505 VXM VSL1
036441,000750: 37,3423 01736 REFSMMAT
036442,000751: 37,3424 03433 STORE DELVREF # DELV IN REF COORDS AT 2(+7)
036443,000752: 37,3425 41562 VSR1 PUSH
036444,000753: 37,3426 41455 VAD PUSH # (DV-OLDGDT)/2 TO PD SCALED AT 2(+7)M/CS
036445,000754: 37,3427 01207 GDT/2
036446,000755: 37,3430 74255 VAD VXSC
036447,000756: 37,3431 01177 VN
036448,000757: 37,3432 37456 2SEC(22)
036449,000758: 37,3433 44055 VAD STQ
036450,000759: 37,3434 01171 RN
036451,000760: 37,3435 00037 31D
036452,000761: 37,3436 35232 STCALL RN1 # TEMP STORAGE OF RN SCALED 2(+29)M
036453,000762: 37,3437 77352 CALCGRAV
036454,000763:
036455,000764: 37,3440 53255 VAD VAD
036456,000765: 37,3441 77655 VAD
036457,000766: 37,3442 01177 VN
036458,000767: 37,3443 35240 STCALL VN1 # TEMP STORAGE OF VN SCALED 2(+7) M/CS
036459,000768: 37,3444 00037 31D
036460,000769:
036461,000770: 37,3445 03215 27057 KPIP 2DEC .1024 # SCALES DELV TO 2(+4)
036462,000771:
036463,000772: 37,3447 02312 32537 KPIP1 2DEC 0.074880 # 207 DELV SCALING. 1 PULSE = 5.85 CM/SEC.
036464,000773:
036465,000774: 37,3451 61377 55754 -MUDT(E) 2DEC* -7.9720645 E+12 B-44*
036466,000775:
036467,000776: 37,3453 77644 65556 -MUDT(M) 2DEC* -9.805556 E+10 B-44*
036468,000777:
036469,000778: 37,3455 00000 31000 2SEC(22) 2DEC 200 B-22
036470,000779:
036471,000780: 37,3457 01463 06315 DP1/20 2DEC 0.05
036472,000781:
036473,000782: 37,3461 00001 05000 RESQ 2DEC* 40.6809913 E12 B-59*
036474,000783:
036475,000784: 37,3463 02047 36332 20J 2DEC* 3.24692010 E-2 B1*
036476,000785:
036477,000786: 37,3465 00152 14511 2J 2DEC* 3.24692010 E-3 B1*
036478,000787:
End of include-file SERVICER207.agc. Parent file is MAIN.agc