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