Source Code
|
These source-code files are part of a reconstructed copy of Skylark 048, the
Block II Command Module (CM) Apollo Guidance Computer (AGC) software for the
Skylab-2, Skylab-3, Skylab-4, and Apollo-Soyuz Test Project missions.
They have been created via disassembly of binary dumps of the original core rope
memory modules actually flown on Skylab-2, part numbers 2010802-541, 2010802-551,
2010802-561, 2010802-571, 2010802-581, and 2010802-591. Access to these modules
was provided by the New Mexico Museum of Space History, who we are much indebted to.
The source code for the Apollo 15, 16, and 17 software, Artemis 072, was used as
a starting point. Heavy use was made of TRW 4900.5-244, Programmed Guidance Equations
for Skylark Command Module Earth Orbital Program, dated 14 February 1972. This document
contains pseudocode of essentially all of Skylark, using original program labels which
have been copied for this source reconstruction.
Since only binary dumps (rather than listings) of Skylark are available as source material,
all comments and labels are approximate.
They have been taken from the Programmed Guidance Equations or other AGC programs where
possible, or, in some places, written from scratch to match what we believe would have
been in the original listing.
|
034573,000002: ## Copyright: Public domain.
034574,000003: ## Filename: SERVICER207.agc
034575,000004: ## Purpose: A section of Skylark revision 048.
034576,000005: ## It is part of the source code for the Apollo Guidance Computer (AGC)
034577,000006: ## for Skylab-2, Skylab-3, Skylab-4, and ASTP. No original listings of
034578,000007: ## this software are available; instead, this file was created via
034579,000008: ## disassembly of dumps of the core rope modules actually flown on
034580,000009: ## Skylab-2. Access to these modules was provided by the New Mexico
034581,000010: ## Museum of Space History.
034582,000011: ## Assembler: yaYUL
034583,000012: ## Contact: Ron Burkey <info@sandroid.org>.
034584,000013: ## Website: www.ibiblio.org/apollo/index.html
034585,000014: ## Mod history: 2023-09-04 MAS Created from Artemis 072.
034586,000015: ## 2024-03-05 MAS Updated for Skylark 48.
034587,000016:
034588,000017:
034589,000018: # PROGRAM NAME - PREREAD, READACCS, SERVICER, AVERAGE G.
034590,000019:
034591,000020: # MOD NO. 00 BY M. HAMILTON DEC. 12, 1966
034592,000021:
034593,000022: # FUNCTIONAL DESCRIPTION
034594,000023:
034595,000024: # THE ROUTINES DESCRIBED BELOW ARE USED TO CALCULATE VALUES OF RN, VN, AND GDT/2 DURING ACCELERATED FLIGHT.
034596,000025: # THE SEVERAL ROUTINES COMPRISE A PACKAGE AND ARE NOT MEANT TO BE USED AS SEPARATE SUBROUTINES.
034597,000026:
034598,000027: # GENERAL REFERENCES TO SERVICER OR AVERAGE G ARE UNDERSTOOD TO REFER TO THE ENTIRE SET OF ROUTINES INCLUDING
034599,000028: # READACCS, SERVICER, AVERAGE G, INTEREAD, SMOOTHER, AND ANY ADDITIONAL ROUTINES ATTACHED AT AVGEXIT (SEE BELOW).
034600,000029:
034601,000030: # PROGRAMS INITIATING SERVICER ARE REQUIRED TO MAKE A WAITLIST CALL FOR PREREAD (OR, IF LIFTOFF, FOR BIBIBIAS)
034602,000031: # AT 2 SECONDS BEFORE THE FIRST AVERAGE G UPDATE IN ORDER TO INITIALIZE THE SEQUENCE, WHICH WILL RECUR EVERY
034603,000032: # 2 SECONDS FROM THAT TIME ON AS LONG AS AVEGFLAG REMAINS SET.
034604,000033:
034605,000034: # THE USE OF ERASABLE AVGEXIT ALLOWS VARIOUS ROUTINES TO BE PERFORMED AS PART OF THE NORMAL CYCLE (SEE
034606,000035: # EXPLANATION OF AVGEXIT BELOW).
034607,000036:
034608,000037: # DESCRIPTIONS OF INDIVIDUAL ROUTINES FOLLOW.
034609,000038:
034610,000039: # PREREAD
034611,000040:
034612,000041: # PREVIOUSLY EXTRAPOLATED VALUES COPIED FROM RN1, VN1, AND PIPTIME1 INTO RN, VN, AND PIPTIME.
034613,000042: # LASTBIAS JOB SCHEDULED.
034614,000043: # PIPS READ AND CLEARED VIA PIPASR SUBROUTINE.
034615,000044: # AVERAGE G FLAG SET ON.
034616,000045: # DRIFT FLAG SET OFF.
034617,000046: # V37 FLAG SET ON.
034618,000047: # INITIALIZATION OF 1) THRUST MONITOR (DVMON) - DVCNTR SET TO ONE.
034619,000048: # 2) TOTAL ACCUMULATED DELV VALUE (DVTOTAL) - SET TO ZERO.
034620,000049: # 3) AXIS VECTOR (AXIS) - SET TO (.5,0,0).
034621,000050: # NORMLIZE JOB SCHEDULED.
034622,000051: # READACCS TASK CALLED IN 2 SECONDS.
034623,000052:
034624,000053: # NORMLIZE
034625,000054:
034626,000055: # GDT/2 INITIALIZED VIA CALCGRAV SUBROUTINE.
034627,000056:
034628,000057: # READACCS
034629,000058:
034630,000059: # IF ONMON FLAG SET QUIKREAD ROUTINE IS PERFORMED BEFORE PIPASR ZEROS THE PIPA REGISTERS, AND THE 1/2 SEC
034631,000060: # ONMONITOR LOOP IS INITIATED TO PROVIDE DOWNLINK INFORMATION DURING ENTRY.
034632,000061: # PIPS READ AND CLEARED BY PIPASR SUBROUTINE.
034633,000062: # IF CM/DSTBY IS ON, ENTRY VARIABLES INITIALIZED AND SETJTAG TASK CALLED.
034634,000063:
034635,000064: # IF AVERAGEG FLAG ON READACCS CALLED TO RECYCLE IN 2 SECONDS.
034636,000065: # IF AVERAGEG FLAG OFF AVERAGE G EXIT (AVGEXIT) SET TO 2CADR AVGEND FOR FINAL PASS.
034637,000066: # SERVICER JOB SCHEDULED.
034638,000067:
034639,000068: # TEST CONNECTOR OUTBIT TURNED ON.
034640,000069:
034641,000070: # ONMNITOR
034642,000071:
034643,000072: # A SEQUENCE OF THREE PASSES THROUGH QUICKREAD FOLLOWING A CALL TO READACCS WITH ONMONFLG SET AT 1/2
034644,000073: # SEC INTERVALS. INTERVALS ARE COUNTED OUT BY PIPCTR, INITIALISED AT 3 BY READACCS
034645,000074:
034646,000075: # QUIKREAD
034647,000076:
034648,000077: # READS CURRENT PIPS INTO X,Y,ZPIPBUF. READS OLD X,Y,ZPIPBUF INTO X,Y,ZOLDBUF. VALUES ARE SENT TO
034649,000078: # DOWNLIST DURING ENTRY.
034650,000079:
034651,000080: # SERVICER
034652,000081:
034653,000082: # DELV VALUES CHECKED TO DETECT RUNAWAY PIP -
034654,000083: # IF BAD PIP 1) ALARM SENT.
034655,000084: # 2) COMPENSATION, DVTOTAL ACCUMULATION, AND DVMON BYPASSED. CONTROL
034656,000085: # TRANSFERRED TO AVERAGE G.
034657,000086: # PIPS COMPENSATED VIA 1/PIPA SUBROUTINE.
034658,000087: # DVTOTAL INCREMENTED BY ABSOLUTE VALUE OF DELV.
034659,000088: # THRUST MONITOR (DVMON) PERFORMED UNLESS IDLE FLAG IS ON.
034660,000089: # CONTROL TRANSFERRED TO AVERAGE G.
034661,000090:
034662,000091: # DVMON
034663,000092:
034664,000093: # THRESHOLD VALUE (PLACED IN DVTHRUSH BY USER) CHECKED AGAINST ABSOLUTE VALUE OF DELV TO CHECK
034665,000094: # THRUST LEVEL.
034666,000095:
034667,000096: # IF THRUST 1) ULLAGE OFF ROUTINE PERFORMED.
034668,000097: # 2) STEERING FLAG TURNED ON AT FIRST DETECTION OF THRUST.
034669,000098: # 3) CONTROL TRANSFERRED TO AVERAGE G.
034670,000099: # IF NO THRUST 1) ON FIRST PASS THROUGH MONITOR, CONTROL TRANSFERRED TO AVERAGE G.
034671,000100: # 2) ON SUBSEQUENT PASSES, CONTROL TRANSFERRED TO ENGINE FAIL ROUTINE IF THRUST
034672,000101: # HAS FAILED FOR 3 CONSECUTIVE PASSES.
034673,000102:
034674,000103: # ENGINE FAIL
034675,000104:
034676,000105: # ENGFAIL1 TASK CALLED IN 2.5 SECONDS. THIS WILL RETURN CONTROL TO TIG-5 SO THAT THE IGNITION
034677,000106: # SEQUENCE MAY BE REPEATED.
034678,000107: # ENGINOF3 PERFORMED.
034679,000108: # DAP SET UP FOR RCS.
034680,000109: #
034681,000110: # AVERAGE G
034682,000111: # RN1, VN1, GDT1/2 CALCULATED VIA CALCRVG ROUTINE BY UPDATING RN, VN WITH DELV AND AN AVERAGED VALUE
034683,000112: # OF GDT/2.
034684,000113: # RN1, VN1, GDT1/2, PIPTIME1 COPIED INTO RN, VN, GDT/2, PIPTIME FOR RESTART PROTECTION.
034685,000114: # CONTROL TRANSFERRED TO ADDRESS SPECIFIED BY USER (OR BY READACCS FOR LAST PASS) IN AVGEXIT.
034686,000115: # LAST PASS (AVGEND) 1) FREE FALL GYRO COMPENSATION SET UP.
034687,000116: # 2) DRIFT FLAG TURNED ON.
034688,000117: # 3) STATE VECTOR TRANSFERRED VIA AVETOMID ROUTINE.
034689,000118: # 4) ONMONITOR FLAG RESET.
034690,000119: # 5) V37 FLAG RESET.
034691,000120: # 6) TEST CONNECTOR OUTBIT RESET.
034692,000121: # 7) CONTROL TRANSFERRED TO CANV37 TO CONTINUE MM CHANGE ROUTINE (R00).
034693,000122:
034694,000123: # CALLING SEQUENCE
034695,000124:
034696,000125: # PREREAD ENTERED DIRECTLY FROM TIG-30 VIA POSTJUMP.
034697,000126: # READACCS CALLED AS WAITLIST TASK. .
034698,000127:
034699,000128: # SUBROUTINES CALLED
034700,000129:
034701,000130: # UTILITY ROUTINES - PHASCHNG FLAGUP FLAGDOWN NOVAC FINDVAC WAITLIST ALARM NEWPHASE 2PHSCHNG
034702,000131:
034703,000132: # OTHER - PIPASR 1/PIPA CALCGRAV CALCRVG AVETOMID
034704,000133:
034705,000134: # NORMAL EXIT MODES
034706,000135:
034707,000136: # ENDOFJOB TASKOVER CANV37
034708,000137:
034709,000138: # AVGEXIT - THIS IS A DOUBLE PRECISION ERASABLE LOCATION BY WHICH CONTROL IS TRANSFERRED AT THE END
034710,000139: # OF EACH CYCLE OF AVERAGE G.
034711,000140: # THE 2CADR OF A ROUTINE TO BE PERFORMED AT THAT TIME (E.G., STEERING EQUATIONS TO BE PERFORMED
034712,000141: # AT 2 SECOND INTERVALS) MAY BE SET BY THE USER INTO AVGEXIT.
034713,000142: # ALL SUCH ROUTINES SHOULD RETURN TO SERVEXIT, WHICH IS THE NORMAL EXIT FROM AVERAGE G.
034714,000143:
034715,000144: # SERVEXIT - DOES A PHASE CHANGE FOR RESTART PROTECTION AND GOES TO ENDOFJOB.
034716,000145: # THE 2CADR OF SERVEXIT IS SET INTO AVGEXIT BY THE USER IF NO OTHER ROUTINE (SEE ABOVE).
034717,000146:
034718,000147: # AVGEND - LAST PASS OF AVERAGE G EXITS HERE, BYPASSING SPECIAL ROUTINE (SEE ABOVE UNDER READACCS).
034719,000148: # FINAL EXIT IS TO CANV37. F AVERAGE G).
034720,000149:
034721,000150: # OUTPUT
034722,000151:
034723,000152: # DVTOTAL(2) PIPTIME(2) XPIPBUF(2) YPIPBUF(2) ZPIPBUF(2)
034724,000153: # RN(6) REFERENCE COORD. SCALED AT 2(+29) M/CS
034725,000154: # VN(6) REFERENCE COORD. SCALED AT 2(+7) M/CS
034726,000155: # GDT/2(6) REFERENCE COORD. SCALED AT 2(+7) M/CS
034727,000156: # DELV(6) STABLE MEMB. COORD. SCALED AT 2(+14)*5.85*10(-4) M/CS (KPIP1 USED TO GET DV/2 AT 2(+7))
034728,000157: # DELVREF(6) REFERENCE COORD. SCALED AT 2(+7) M/CS
034729,000158:
034730,000159: # INITIALIZATION
034731,000160:
034732,000161: # ONMONITOR FLAG SET BY ENTRY TO SHOW PIPBUF VALUES REQUIRED.
034733,000162: # IDLE FLAG ON IF DVMON TO BE BYPASSED.
034734,000163: # DVTHRUSH SET TO APPROPRIATE VALUE FOR DVMON.
034735,000164: # AVGEXIT SET TO 2CADR OF ROUTINE, IF ANY, TO BE PERFORMED AFTER EACH CYCLE OF AVERAGE G. IF NO ROUTINE
034736,000165: # TO BE DONE, AVGEXIT SET TO SERVEXIT.
034737,000166: # VALUES NEEDED
034738,000167: # REFSMMAT
034739,000168: # UNITW - FULL UNIT VECTOR, IN REFERENCE COORD., OF EARTH S ROTATIONAL VECTOR
034740,000169: # RN1, VN1, PIPTIME1 - IN REFERENCE COORD., CONSISTENT WITH TIME OF EXECUTION OF PREREAD
034741,000170:
034742,000171: # DEBRIS
034743,000172:
034744,000173: # CENTRALS A, L, Q
034745,000174: # OTHER INTERNAL - DVCNTR(1) PIPAGE(1) PIPCTR(1) AVGEXIT(2)
034746,000175: # EXTERNAL - ITEMP1(1) ITEMP2(1) RUPTREG1(1) TEMX(1) TEMY(1) TEMZ(1)
034747,000176: # USEFUL DEBRIS
034748,000177: # RN1(6) VN1(6) GDT1/2 PIPTIME1(2)
034749,000178: # THESE LOCATIONS USED AS BUFFER STORAGE FOR NEWLY CALCULATED VALUES OF RN, VN, GDT/2,
034750,000179: # AND PIPTIME DURING PERFORMANCE OF SERVICER ROUTINES.
034751,000180: # UNITR - HALF UNIT VECTOR OF RN, REFERENCE COORD.
034752,000181: # RMAG SCALED AT 2(+58) IN 36D.
034753,000182: # RMAGSQ SCALED AT 2(+58) IN 34D.
034754,000183: # (RE/RMAG)SQ IN 32D.
034755,000184:
034756,000185: 37,2000 SETLOC SERVICES
034757,000186: 37,2000 BANK
034758,000187:
034759,000188: 37,2447 E7,1425 EBANK= DVTOTAL
034760,000189:
034761,000190: # ************************************* PREREAD **************************************************************
034762,000191:
034763,000192: 37,2447 COUNT* $$/SERV
034764,000193: 37,2447 35072 PREREAD CAF PRIO21 # CALLER MUST PROTECT PREREAD
034765,000194: 37,2450 05134 TC NOVAC
034766,000195: 37,2451 E3,1460 EBANK= NBDX
034767,000196: 37,2451 03652 14063 2CADR LASTBIAS # DO LAST GYRO COMPENSATION IN FREE FALL
034768,000197:
034769,000198: # CALL-TO AND LASTBIAS ITSELF ARE NOT
034770,000199: # PROTECTED. REREADAC SETS 1/PIPADT
034771,000200: # TO 2.0 SECS IN CASE LASTBIAS LOST.
034772,000201: # (REDUNDANT IF LASTBIAS IS AOK)
034773,000202:
034774,000203: 37,2453 02470 REDO5.31 TC PREREAD1
034775,000204: 37,2454 37654 CAF PRIO32
034776,000205: 37,2455 05150 TC FINDVAC # SET UP NORMLIZE JOB REQUIRED PRIOR TO
034777,000206: 37,2456 E7,1425 EBANK= DVTOTAL
034778,000207: 37,2456 03044 76067 2CADR NORMLIZE
034779,000208:
034780,000209: 37,2460 35032 CAF 2SECS
034781,000210: 37,2461 05246 TC WAITLIST
034782,000211: 37,2462 E6,1712 EBANK= AOG
034783,000212: 37,2462 02512 76066 2CADR READACCS
034784,000213:
034785,000214: 37,2464 45000 CS TWO
034786,000215: 37,2465 04126 TC NEWPHASE
034787,000216: 37,2466 00005 OCT 5
034788,000217:
034789,000218: 37,2467 01,2237 5P2SPT2 = 5.2SPOT
034790,000219: 37,2467 15327 TCF TASKOVER
034791,000220:
034792,000221: 37,2470 00006 PREREAD1 EXTEND
034793,000222: 37,2471 22070 QXCH RUPTREG1
034794,000223:
034795,000224: 37,2472 03061 TC PIPASR # CLEAR + READ PIPS LAST TIME IN FREE FALL
034796,000225:
034797,000226: 37,2473 35001 CAF ONE # SET UP PIPAGE FOR REREADAC IN CASE A
034798,000227: 37,2474 55061 TS PIPAGE # RESTART OCCURS BEFORE READACCS
034799,000228:
034800,000229: 37,2475 40075 CS FLAGWRD1 # SET AVEG FLAG
034801,000230: 37,2476 75001 MASK AVEGBIT
034802,000231: 37,2477 26075 ADS FLAGWRD1
034803,000232:
034804,000233: 37,2500 44763 CS DRFTBIT
034805,000234: 37,2501 70076 MASK FLAGWRD2
034806,000235: 37,2502 54076 TS FLAGWRD2 # KNOCK DOWN DRIFT FLAG
034807,000236:
034808,000237: 37,2503 40103 CS FLAGWRD7 # SET V37 FLAG
034809,000238: 37,2504 74774 MASK V37FLBIT
034810,000239: 37,2505 26103 ADS FLAGWRD7
034811,000240:
034812,000241: 37,2506 35003 CAF ZERO
034813,000242: 37,2507 55425 TS DVTOTAL # CLEAR DVTOTAL
034814,000243: 37,2510 55426 TS DVTOTAL +1
034815,000244:
034816,000245: 37,2511 00070 TC RUPTREG1
034817,000246:
034818,000247: # ************************************* READACCS *************************************************************
034819,000248: 37,2512 E6,1712 EBANK= AOG
034820,000249: 37,2512 03061 READACCS TC PIPASR
034821,000250:
034822,000251: 37,2513 35004 PIPSDONE CAF FIVE
034823,000252: 37,2514 54001 TS L
034824,000253: 37,2515 40000 COM
034825,000254: 37,2516 53156 DXCH -PHASE5
034826,000255:
034827,000256: 37,2517 01,2256 5P5SPT1 = 5.5SPOT
034828,000257: 37,2517 40076 REDO5.5 CS FLAGWRD2
034829,000258: 37,2520 74777 MASK SBFLGBIT
034830,000259: 37,2521 10000 CCS A
034831,000260: 37,2522 12547 TCF PIPSDUN2
034832,000261:
034833,000262: 37,2523 04606 TC E7SETTER
034834,000263: 37,2524 31451 CA PIPAPIX
034835,000264: 37,2525 61304 AD DELVX
034836,000265: 37,2526 57464 XCH PIPAPISV
034837,000266: 37,2527 31452 CA PIPAPIY
034838,000267: 37,2530 61306 AD DELVY
034839,000268: 37,2531 57465 XCH PIPAPISV +1
034840,000269: 37,2532 31453 CA PIPAPIZ
034841,000270: 37,2533 61310 AD DELVZ
034842,000271: 37,2534 57466 XCH PIPAPISV +2
034843,000272:
034844,000273: 37,2535 33034 CAF OCT35
034845,000274: 37,2536 54001 TS L
034846,000275: 37,2537 40000 COM
034847,000276: 37,2540 53156 DXCH -PHASE5
034848,000277:
034849,000278: 37,2541 00006 REDO5.35 EXTEND
034850,000279: 37,2542 31465 DCA PIPAPISV
034851,000280: 37,2543 53452 DXCH PIPAPIX
034852,000281: 37,2544 31466 CA PIPAPISV +2
034853,000282: 37,2545 55453 TS PIPAPIZ
034854,000283:
034855,000284: 37,2546 04611 TC E6SETTER
034856,000285:
|
|
The following label is a guess.
|
034858,000287: 37,2547 35001 PIPSDUN2 CAF ONE # SHOW PIPS HAVE BEEN READ
034859,000288: 37,2550 55061 TS PIPAGE
034860,000289:
034861,000290: 37,2551 35000 CA TWO # SET PIPCTR FOR ONMINTOR
034862,000291: 37,2552 55060 TS PIPCTR # AFTER ABOVE PHASCHNG
034863,000292:
034864,000293: 37,2553 40102 CS CM/FLAGS
034865,000294: 37,2554 75000 MASK CM/DSBIT # 103D BIT2
034866,000295: 37,2555 10000 CCS A
034867,000296: 37,2556 02630 TC CHEKAVEG
034868,000297:
034869,000298: 37,2557 41077 CS PIPTIME1 +1
034870,000299: 37,2560 55261 TS TBASE6 # FOR RESTARTS
034871,000300: 37,2561 00006 EXTEND # CONTINUE FOR ENTRY DAP
034872,000301: 37,2562 31713 DCA AOG
034873,000302: 37,2563 53721 DXCH AOG/PIP
034874,000303: 37,2564 31714 CA AMG
034875,000304: 37,2565 57722 XCH AMG/PIP
034876,000305: 37,2566 00006 EXTEND
034877,000306: 37,2567 31716 DCA ROLL/180
034878,000307: 37,2570 53724 DXCH ROLL/PIP
034879,000308: 37,2571 31717 CA BETA/180
034880,000309: 37,2572 57725 XCH BETA/PIP
034881,000310: 37,2573 30102 CA CM/FLAGS
034882,000311: 37,2574 74766 MASK CMARMBIT # 93D BIT12
034883,000312: 37,2575 00006 EXTEND # DURING ENTRY, WHEN RCS DAP IS INACTIVE,
034884,000313: 37,2576 12613 BZF NOSAVPIP # SAVE PIPAS EACH 0.5 SEC FOR TM.
034885,000314:
034886,000315: 37,2577 35023 CAF .5SEC
034887,000316: 37,2600 05236 TC TWIDDLE
034888,000317: 37,2601 02663 ADRES QUIKREAD
034889,000318: # NO NEED TO RESTART PROTECT THIS.
034890,000319: 37,2602 31304 CA DELVX # SAVE PIPAS AS READ (BUT NOT COMPENSATED)
034891,000320: 37,2603 57562 XCH XPIPBUF
034892,000321: 37,2604 55565 TS XOLDBUF
034893,000322:
034894,000323: 37,2605 31306 CA DELVY
034895,000324: 37,2606 57563 XCH YPIPBUF
034896,000325: 37,2607 55566 TS YOLDBUF
034897,000326: 37,2610 31310 CA DELVZ
034898,000327: 37,2611 57564 XCH ZPIPBUF
034899,000328: 37,2612 55567 TS ZOLDBUF
034900,000329:
034901,000330: 37,2613 35004 NOSAVPIP CA FIVE
034902,000331: 37,2614 55756 TS CM/GYMDT
034903,000332:
034904,000333: 37,2615 33043 CA JTAGTIME # ACTIVATE CM/RCS AFTER PIPUP TO GO
034905,000334: # IN JTAGTIME +5 CS.
034906,000335: 37,2616 05246 TC WAITLIST
034907,000336: 37,2617 E6,1712 EBANK= AOG
034908,000337: 37,2617 02636 32066 2CADR SETJTAG
034909,000338:
034910,000339: 37,2621 46214 CS THREE # 1.3SPOT FOR SETJTAG
034911,000340: 37,2622 04126 TC NEWPHASE
034912,000341: 37,2623 00001 OCT 1
034913,000342:
034914,000343: 37,2624 01,2014 1P3SPT1 = 1.3SPOT
034915,000344: 37,2624 34125 CAF OCT31 # 5.31SPOT FOR CHEKAVEG
034916,000345: 37,2625 54001 TS L
034917,000346: 37,2626 40000 COM
034918,000347: 37,2627 53156 DXCH -PHASE5
034919,000348:
034920,000349: 37,2630 01,2314 5P31SPOT = 5.31SPOT
034921,000350: 37,2630 40075 CHEKAVEG CS FLAGWRD1
034922,000351: 37,2631 75001 MASK AVEGBIT
034923,000352: 37,2632 10000 CCS A # IF AVEG FLAG DOWN SET FINAL EXIT AVEG
034924,000353: 37,2633 02652 TC AVEGOUT
034925,000354:
034926,000355: 37,2634 35032 CAF 2SECS
034927,000356: 37,2635 05236 TC TWIDDLE
034928,000357: 37,2636 02512 ADRES READACCS
034929,000358: 37,2637 34764 MAKESERV CAF PRIO20 # ESTABLISH SERVICER ROUTINE
034930,000359: 37,2640 05150 TC FINDVAC
034931,000360: 37,2641 E7,1425 EBANK= DVTOTAL
034932,000361: 37,2641 02700 76067 2CADR SERVICER
034933,000362:
034934,000363: 37,2643 44777 CS FOUR # RESTART SERVICER AND READACCS
034935,000364: 37,2644 04126 TC NEWPHASE
034936,000365: 37,2645 00005 OCT 5
034937,000366:
034938,000367: 37,2646 01,2245 5P4SPT1 = 5.4SPOT
034939,000368: 37,2646 34771 CAF BIT9
034940,000369: 37,2647 00006 EXTEND
034941,000370: 37,2650 05011 WOR DSALMOUT # TURN TEST CONNECTOR OUTBIT ON
034942,000371:
034943,000372: 37,2651 15327 TCF TASKOVER # END PREVIOUS READACCS WAITLIST TASK
034944,000373:
034945,000374: 37,2652 00006 AVEGOUT EXTEND
034946,000375: 37,2653 32657 DCA AVOUTCAD
034947,000376: 37,2654 53054 DXCH AVGEXIT
034948,000377: 37,2655 12637 TCF MAKESERV
034949,000378:
034950,000379: 37,2656 E7,1425 EBANK= DVTOTAL
034951,000380: 37,2656 02770 76067 AVOUTCAD 2CADR AVGEND
034952,000381:
034953,000382: # ROUTINE NAME: ONMNITOR
034954,000383: # MOD 04 BY BAIRNSFATHER 30 APR 1968 REDO ONMNITOR TO SAVE PIPS EACH 0.5 SEC FOR TM,ENTRY.
034955,000384: # MOD 03 BY FISHER DECEMBER 1967
034956,000385: # MOD 02 BY RYE SEPT 1967
034957,000386: # MOD 01 BY KOSMALA 23 MAR 1967
034958,000387: # MOD 00 BY KOSMALA 27 FEB 1967
034959,000388:
034960,000389: # FUNCTIONAL DESCRIPTION
034961,000390:
034962,000391: # THE PURPOSE OF ONMONITOR IS TO PROVIDE 1/2 SEC. READING OF PIPAS FOR DOWNLIST DURING ENTRY.
034963,000392: # X,Y,ZPIPBUF CONTAIN PRESENT VALUES X,Y,ZOLDBUF CONTAIN VALUES FROM PREVIOUS READING.
034964,000393:
034965,000394: # CALLING SEQUENCE
034966,000395:
034967,000396: # CALL AS WAITLIST TASK. TERMINATES ITSELF IN TASKOVER
034968,000397:
034969,000398: # INITIALISATION
034970,000399:
034971,000400: # PIPCTR = 2 (FOR DT = 0.5 SEC)
034972,000401: # X,Y,ZPIPBUF SET TO PREVIOUS PIPAX,Y,Z
034973,000402:
034974,000403: # OUTPUT
034975,000404:
034976,000405: # X,Y,ZPIPBUF, X,Y,ZOLDBUF
034977,000406:
034978,000407: # DEBRIS
034979,000408:
034980,000409: # X,Y,ZPIPBUF CONTAIN LAST PIPAX,Y,Z VALUES
034981,000410: # X,Y,ZOLDBUF CONTAIN LAST-BUT-ONE PIPAX,Y,Z VALUES
034982,000411: # RUPTREG1
034983,000412: # PIPCTR
034984,000413:
034985,000414: 37,2660 55060 ONMNITOR TS PIPCTR
034986,000415:
034987,000416: 37,2661 05270 TC FIXDELAY # WAIT
034988,000417: 37,2662 00062 0.5SEC DEC 50 B-14
034989,000418:
034990,000419: 37,2663 35000 QUIKREAD CAF TWO
034991,000420: 37,2664 54070 +1 TS RUPTREG1
034992,000421: 37,2665 50000 INDEX A
034993,000422: 37,2666 30037 CA PIPAX # SAVE ACTUAL PIPAS FOR TM.
034994,000423: 37,2667 50070 INDEX RUPTREG1
034995,000424: 37,2670 57562 XCH XPIPBUF # UPDATE X,Y,ZPIPBUF
034996,000425: 37,2671 50070 INDEX RUPTREG1
034997,000426: 37,2672 55565 TS XOLDBUF # AND X,Y,ZOLDBUF
034998,000427: 37,2673 10070 CHKCTR CCS RUPTREG1
034999,000428: 37,2674 12664 TCF QUIKREAD +1 # LOOP AGAIN
035000,000429: 37,2675 11060 CCS PIPCTR
035001,000430: 37,2676 12660 TCF ONMNITOR
035002,000431: 37,2677 05327 TC TASKOVER
035003,000432:
035004,000433: # ************************************* SERVICER *************************************************************
035005,000434:
035006,000435: 37,2000 SETLOC SERVICES
035007,000436: 37,2000 BANK
035008,000437:
035009,000438: 37,2700 E7,1425 EBANK= DVTOTAL
035010,000439:
035011,000440: 37,2700 COUNT* $$/SERV
035012,000441: 37,2700 35000 SERVICER CAF TWO
035013,000442: 37,2701 00004 INHINT
035014,000443: 37,2702 54070 PIPCHECK TS RUPTREG1
035015,000444:
035016,000445: 37,2703 60000 DOUBLE
035017,000446: 37,2704 50000 INDEX A
035018,000447: 37,2705 11304 CCS DELVX
035019,000448: 37,2706 02710 TC +2
035020,000449: 37,2707 02716 TC PIPLOOP
035021,000450:
035022,000451: 37,2710 63042 AD -MAXDELV # DO PIPA-SATURATION TEST BEFORE
035023,000452: 37,2711 00006 EXTEND
035024,000453: 37,2712 62716 BZMF PIPLOOP # COMPENSATION.
035025,000454:
035026,000455: 37,2713 05644 TC ALARM
035027,000456: 37,2714 00205 OCT 00205 # SATURATED-PIPA ALARM ***CHANGE LATER
035028,000457: 37,2715 02746 TC AVERAGEG
035029,000458:
035030,000459: 37,2716 10070 PIPLOOP CCS RUPTREG1
035031,000460: 37,2717 12702 TCF PIPCHECK
035032,000461:
035033,000462: 37,2720 05415 TC PHASCHNG # RESTART REREADAC + SERVICER
035034,000463: 37,2721 16035 OCT 16035
035035,000464: 37,2722 20000 OCT 20000
035036,000465: 37,2723 01,2253 5P3SPT9 = 5.3SPOT
035037,000466: 37,2723 E7,1425 EBANK= DVTOTAL
035038,000467:
035039,000468: 37,2723 02727 76067 2CADR DVTOTUP
035040,000469:
035041,000470: 37,2725 04647 TC BANKCALL # PIPA COMPENSATION CALL
035042,000471: 37,2726 15273 CADR 1/PIPA
035043,000472:
035044,000473: 37,2727 06006 DVTOTUP TC INTPRET
035045,000474: # THE FOLLOWING SECTION DECREMENTS 'TTE' DURING P61
035046,000475: # THROUGH P63 ONLY. (IE: IN P60'S IF DRAG< 0.05 G)
035047,000476: 37,2730 71214 TICKTTE BON DLOAD # .05GSW IS SET =1 IN FRESH START.
035048,000477: 37,2731 03314 .05GSW # FLAG IS ASSIGNED ONLY TO P61-P67.
035049,000478: 37,2732 76737 +5 # DO NOT COUNT 'TTE' IF DRAG > 0.05 G.
035050,000479: 37,2733 03735 TTE2
035051,000480: 37,2734 77615 DAD
035052,000481: 37,2735 01077 PIPTIME1 # DECREMENT 'TTE' BY 'PIPTIME1'. (BY 2 SEC)
035053,000482: 37,2736 03727 STORE TTE # NEGATIVE AS IN A COUNTDOWN.
035054,000483: # DURING P61 THRU P63, 'TTE' IS DECREMENTED
035055,000484: # AND IS ON CALL AND ON ENTRY DNLIST.
035056,000485:
035057,000486: 37,2737 51575 VLOAD ABVAL # GET ABS VALUE OF DELV
035058,000487: 37,2740 01305 DELV
035059,000488: 37,2741 77405 DMP EXIT
035060,000489: 37,2742 37250 KPIP1 # SCALE AT 2(+7)
035061,000490:
035062,000491: 37,2743 00006 EXTEND
035063,000492: 37,2744 30155 DCA MPAC
035064,000493: 37,2745 21426 DAS DVTOTAL # ACCUMULATE DVTOTAL
035065,000494: 37,2746 05415 AVERAGEG TC PHASCHNG
035066,000495: 37,2747 10035 OCT 10035
035067,000496:
035068,000497: 37,2750 01,2253 5P3SPT10 = 5.3SPOT
035069,000498: 37,2750 06006 TC INTPRET
035070,000499: 37,2751 77624 CALL
035071,000500: 37,2752 77221 CALCRVG
035072,000501: 37,2753 77776 EXIT
035073,000502:
035074,000503: 37,2754 05415 TC PHASCHNG
035075,000504: 37,2755 10035 OCT 10035
035076,000505:
035077,000506: 37,2756 01,2253 5P3SPT11 = 5.3SPOT
035078,000507: 37,2756 34125 CAF OCT31 # COPY RN1,VN1,GOT102,GOBL1/2,PIPTIME1
035079,000508: 37,2757 05562 TC GENTRAN # INTO RN, VN, GDT/12, GOBL/2,PIPTIME
035080,000509: 37,2760 01062 ADRES RN1
035081,000510: 37,2761 01021 ADRES RN
035082,000511: 37,2762 00003 ENDCOPY RELINT
035083,000512: 37,2763 05415 TC PHASCHNG
035084,000513: 37,2764 10035 OCT 10035
035085,000514:
035086,000515: 37,2765 01,2253 5P3SPT12 = 5.3SPOT
035087,000516: 37,2765 00006 EXTEND
035088,000517: 37,2766 31054 DCA AVGEXIT
035089,000518: 37,2767 52006 DXCH Z # AVERAGEG EXIT
035090,000519:
035091,000520: 37,2770 31036 AVGEND CA PIPTIME +1 # FINAL AVERAGE G EXIT
035092,000521: 37,2771 55267 TS OLDBT1 # SET UP FREE FALL GYRO COMPENSATION
035093,000522:
035094,000523: 37,2772 07710 TC UPFLAG # SET DRIFTFLG
035095,000524: 37,2773 00036 ADRES DRIFTFLG # BIT 15 FLAG 2
035096,000525: 37,2774 05375 TC 2PHSCHNG
035097,000526: 37,2775 00005 OCT 5 # GROUP 5 OFF
035098,000527: 37,2776 05022 OCT 05022 # GROUP 2 ON FOR AVETOMID
035099,000528: 37,2777 20000 OCT 20000
035100,000529:
035101,000530: 37,3000 06006 TC INTPRET
035102,000531: 37,3001 77624 CALL
035103,000532: 37,3002 73556 AVETOMID # CONVERT STATE VECTOR TO REFERENCE SCALE.
035104,000533: 37,3003 77776 EXIT
035105,000534:
035106,000535: 37,3004 04647 TC BANKCALL
035107,000536: 37,3005 17162 CADR PIPFREE
035108,000537:
035109,000538: 37,3006 44771 CS BIT9
035110,000539: 37,3007 55702 TS MRKBUF1 # INVALIDATE MARK BUFFER
035111,000540: 37,3010 00006 EXTEND
035112,000541: 37,3011 03011 WAND DSALMOUT
035113,000542:
035114,000543: 37,3012 07722 TC DOWNFLAG
035115,000544: 37,3013 00147 ADRES CM/DSTBY
035116,000545:
035117,000546: 37,3014 07722 TC DOWNFLAG
035118,000547: 37,3015 00162 ADRES V37FLAG
035119,000548:
035120,000549: 37,3016 30104 CA FLAGWRD8
035121,000550: 37,3017 74771 MASK UTBIT
035122,000551: 37,3020 10000 CCS A
035123,000552: 37,3021 13036 TCF UTAVEND
035124,000553:
035125,000554: 37,3022 34773 CAF RNDVZBIT # RESTORE GROUP 1 + 2 IF P20 IS RUNNING
035126,000555: 37,3023 70074 MASK FLAGWRD0
035127,000556: 37,3024 00006 EXTEND
035128,000557: 37,3025 13031 BZF +4
035129,000558:
035130,000559: 37,3026 05375 TC 2PHSCHNG
035131,000560: 37,3027 00111 OCT 111 # 1.11SPOT
035132,000561: 37,3030 00132 OCT 132 # 2.13SPOT
035133,000562:
035134,000563: 37,3031 01,2025 1P11SPT7 = 1.11SPOT
035135,000564: 37,3031 01,2047 2P13SPT2 = 2.13SPOT
035136,000565: 37,3031 04666 ENDAVEG TC POSTJUMP
035137,000566: 37,3032 10151 CADR CANV37
035138,000567:
035139,000568: 37,3033 05415 SERVEXIT TC PHASCHNG
035140,000569: 37,3034 00035 OCT35 OCT 00035 # A, 5.3 = REREADAC (ONLY)
035141,000570:
035142,000571: 37,3035 01,2253 5P3SPT13 = 5.3SPOT
035143,000572: 37,3035 15220 TCF ENDOFJOB
035144,000573:
035145,000574: 37,3036 05375 UTAVEND TC 2PHSCHNG
035146,000575: 37,3037 00111 OCT 111
035147,000576: 37,3040 00002 OCT 2
035148,000577:
035149,000578: 37,3041 01,2025 1P11SPT8 = 1.11SPOT
035150,000579: 37,3041 13031 TCF ENDAVEG
035151,000580: 37,3042 5006 DVTHRUSH EQUALS ELEVEN # 15 PERCENT OF 2SEC PIPA ACCUMULATION,
035152,000581: # FOR 503-FULL CSM/LEM....DELV SC.AT
035153,000582: # 5.85 CM/SEC.
035154,000583:
035155,000584: 37,3042 63401 -MAXDELV DEC -6398 B-14 # 3200 PPS FOR 2 SEC CCS TAKES 1
035156,000585:
035157,000586: 37,3043 00170 JTAGTIME DEC 120 B-14 # = 1 SEC + T CDU, T CDU = .1 SEC
035158,000587:
035159,000588: # SHOULD BE 2-4 SECS FOR NO START
035160,000589: # 6-8 SECS FOR FAILURE
035161,000590:
035162,000591: # NORMLIZE PERFORMS THE INITIALIZATION REQUIRED PRIOR TO THE FIRST ENTRY TO AVERAGEG, AND SCALES RN SO THAT IT
035163,000592: # HAS 1 LEADING BINARY ZERO. IN MOST MISSIONS, RN WILL BE SCALED AT 2(+29), BUT IN THE 206 MISSION, RN WILL BE
035164,000593: # SCALED AT 2(+24) M.
035165,000594:
035166,000595: 37,3044 35007 NORMLIZE CAF THIRTEEN # SET UP TO COPY 14 REGS- RN1,VN1,PIPTIME1
035167,000596: 37,3045 05562 TC GENTRAN # INTO RN,VN,PIPTIME
035168,000597: 37,3046 01062 ADRES RN1 # FROM HERE
035169,000598: 37,3047 01021 ADRES RN # TO HERE
035170,000599:
035171,000600: 37,3050 00003 RELINT
035172,000601: 37,3051 06006 TC INTPRET
035173,000602: 37,3052 45175 VLOAD CALL # LOAD RN FOR CALCGRAV
035174,000603: 37,3053 01022 RN
035175,000604: 37,3054 77160 CALCGRAV # INITIALISE UNITR RMAG GDT1
035176,000605:
035177,000606: 37,3055 25040 STOVL GDT/2
035178,000607: 37,3056 01107 GOBL1/2
035179,000608: 37,3057 35046 STCALL GOBL/2
035180,000609: 37,3060 31222 ENDPLAC
035181,000610:
035182,000611: # ***** PIPA READER *****
035183,000612:
035184,000613: # MOD NO. 00 BY D. LICKLY DEC. 9 1966
035185,000614:
035186,000615: # FUNCTIONAL DESCRIPTION
035187,000616:
035188,000617: # SUBROUTINE TO READ PIPA COUNTERS, TRYING TO BE VERY CAREFUL SO THAT IT WILL BE RESTARTABLE.
035189,000618: # PIPA READINGS ARE STORED IN THE VECTOR DELV. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS THE PIPA READING,
035190,000619: # RESTARTS BEGIN AT REREADAC.
035191,000620:
035192,000621: # AT THE END OF THE PIPA READER THE CDUS ARE READ AND STORED AS A
035193,000622: # VECTOR IN CDUTEMP. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS
035194,000623: # THE CDU READING IN 2S COMP IN THE ORDER CDUX,Y,Z. THE THRUST
035195,000624: # VECTOR ESTIMATOR IN FINDCDUD REQUIRES THE CDUS BE READ AT PIPTIME.
035196,000625:
035197,000626: # CALLING SEQUENCE AND EXIT
035198,000627:
035199,000628: # CALL VIA TC, ISWCALL, ETC.
035200,000629:
035201,000630: # EXIT IS VIA Q.
035202,000631:
035203,000632: # INPUT
035204,000633:
035205,000634: # INPUT IS THROUGH THE COUNTERS PIPAX, PIPAY, PIPAZ, AND TIME2.
035206,000635:
035207,000636: # OUTPUT
035208,000637:
035209,000638: # HIGH ORDER COMPONENTS OF THE VECTOR DELV CONTAIN THE PIPA READINGS.
035210,000639: # PIPTIME CONTAINS TIME OF PIPA READING.
035211,000640:
035212,000641: # DEBRIS (ERASABLE LOCATIONS DESTROYED BY PROGRAM)
035213,000642:
035214,000643: # LOW ORDER DELV'S ARE ZEROED FOR TM INDICATION.
035215,000644: # TEMX TEMY TEMZ PIPAGE
035216,000645:
035217,000646: 37,3061 00006 PIPASR EXTEND
035218,000647: 37,3062 30025 DCA TIME2
035219,000648: 37,3063 53077 DXCH PIPTIME1 # CURRENT TIME POSITIVE VALUE
035220,000649: 37,3064 45003 CS ZERO # INITIALIZE THESE AT NEG ZERO.
035221,000650: 37,3065 55055 TS TEMX
035222,000651: 37,3066 55056 TS TEMY
035223,000652: 37,3067 55057 TS TEMZ
035224,000653: 37,3070 35003 CA ZERO
035225,000654: 37,3071 55310 TS DELVZ # OTHER DELVS OK INCLUDING LOW ORDER
035226,000655: 37,3072 55306 TS DELVY
035227,000656:
035228,000657: 37,3073 55305 TS DELVX +1 # LOW ORDER DELV'S ARE ZEROED FOR TM: THUS
035229,000658: 37,3074 55307 TS DELVY +1 # IF DNLNK'D LOW ORDER DELVS ARE NZ, THEY
035230,000659: 37,3075 55311 TS DELVZ +1 # CONTAIN PROPER COMPENSATION. IF=0, THEN
035231,000660: # THE TM VALUES ARE BEFORE COMPENSATION.
035232,000661:
035233,000662: 37,3076 55061 TS PIPAGE # SHOW PIPA READING IN PROGRESS
035234,000663:
035235,000664: 37,3077 00006 REPIP1 EXTEND
035236,000665: 37,3100 40040 DCS PIPAX # X AND Y PIPS READ
035237,000666: 37,3101 53056 DXCH TEMX
035238,000667: 37,3102 52040 DXCH PIPAX # PIPAS SET TO NEG ZERO AS READ.
035239,000668: 37,3103 55304 TS DELVX
035240,000669: 37,3104 23306 LXCH DELVY
035241,000670:
035242,000671: 37,3105 40041 REPIP3 CS PIPAZ # REPEAT PROCESS FOR Z PIP
035243,000672: 37,3106 57057 XCH TEMZ
035244,000673: 37,3107 56041 XCH PIPAZ
035245,000674: 37,3110 55310 DODELVZ TS DELVZ
035246,000675:
035247,000676: 37,3111 00002 TC Q
035248,000677:
035249,000678: 37,3112 E6,1712 EBANK= AOG
035250,000679:
035251,000680: 37,3112 11156 REREADAC CCS PHASE5 # LAST PASS CHECK
035252,000681: 37,3113 13115 TCF +2
035253,000682: 37,3114 15327 TCF TASKOVER
035254,000683:
035255,000684: 37,3115 37652 CAF PRIO31 # RESTART MAY HAVE WIPED OUT LASTBIAS, AN
035256,000685: 37,3116 55267 TS 1/PIPADT # UNPROTECTED NOVAC FROM PREREAD,
035257,000686: # WHICH SET(S) UP 1/PIPADT (THUSLY)
035258,000687: # FOR NON-COASTING COMPENSATION....BE
035259,000688: # SURE 1/PIPADT IS AOK. (PRIO31 IS
035260,000689: # 2.0SEC SC.AT B+8CS)
035261,000690:
035262,000691: 37,3117 11061 CCS PIPAGE
035263,000692: 37,3120 12512 TCF READACCS # PIP READING NOT STARTED. GO TO BEGINNING
035264,000693:
035265,000694: 37,3121 33157 CAF DONEADR # SET UP RETURN FROM PIPASR
035266,000695: 37,3122 54002 TS Q
035267,000696:
035268,000697: 37,3123 11310 CCS DELVZ
035269,000698: 37,3124 00002 TC Q # Z DONE, GO DO CDUS
035270,000699: 37,3125 13130 TCF +3 # Z NOT DONE, CHECK Y.
035271,000700: 37,3126 00002 TC Q
035272,000701: 37,3127 00002 TC Q
035273,000702: 37,3130 22007 ZL
035274,000703: 37,3131 11306 CCS DELVY
035275,000704: 37,3132 13135 TCF +3
035276,000705: 37,3133 13144 TCF CHKTEMX # Y NOT DONE, CHECK X.
035277,000706: 37,3134 13135 TCF +1
035278,000707: 37,3135 22041 LXCH PIPAZ # Y DONE, ZERO Z PIP.
035279,000708:
035280,000709: 37,3136 11057 CCS TEMZ
035281,000710: 37,3137 41057 CS TEMZ # TEMZ NOT = -0, CONTAINS -PIPAZ VALUE.
035282,000711: 37,3140 13110 TCF DODELVZ
035283,000712: 37,3141 13137 TCF -2
035284,000713: 37,3142 23310 LXCH DELVZ # TEMZ = -0, L HAS ZPIP VALUE.
035285,000714: 37,3143 00002 TC Q
035286,000715:
035287,000716: 37,3144 11055 CHKTEMX CCS TEMX # HAS THIS CHANGED
035288,000717: 37,3145 41055 CS TEMX # YES
035289,000718: 37,3146 13151 TCF +3 # YES
035290,000719: 37,3147 13145 TCF -2 # YES
035291,000720: 37,3150 13077 TCF REPIP1 # NO
035292,000721: 37,3151 55304 TS DELVX
035293,000722:
035294,000723: 37,3152 41056 CS TEMY
035295,000724: 37,3153 55306 TS DELVY
035296,000725:
035297,000726: 37,3154 45003 CS ZERO # ZERO X AND Y PIPS
035298,000727: 37,3155 52040 DXCH PIPAX # L STILL ZERO FROM ABOVE
035299,000728:
035300,000729: 37,3156 13105 TCF REPIP3
035301,000730:
035302,000731: 37,3157 02513 DONEADR GENADR PIPSDONE
035303,000732:
035304,000733: # *************************************************************************************************************
035305,000734:
035306,000735: # ROUTINE CALCRVG INTEGRATES THE EQUATIONS OF MOTION BY AVERAGING THE THRUST AND GRAVITATIONAL
035307,000736: # ACCELERATIONS OVER A TIME INTERVAL OF 2 SECONDS.
035308,000737:
035309,000738: # FOR THE EARTH-CENTERED GRAVITATIONAL FIELD, THE PERTURBATION DUE TO OBLATENESS IS COMPUTED TO THE FIRST
035310,000739: # HARMONIC COEFFICIENT J.
035311,000740:
035312,000741: # ROUTINE CALCRVG REQUIRES...
035313,000742: # 1) THRUST ACCELERATION INCREMENTS IN DELV SCALED SAME AS PIPAX,Y,Z IN STABLE MEMBER COORDS.
035314,000743: # 2) VN SCALED 2(+7) M/CS IN REFERENCE COORDS.
035315,000744: # 3) RN SCALED AT 2(+29) METERS IN REFERENCE COORDS.
035316,000745: # 4) UNITW THE EARTH S UNIT ROTATIONAL VECTOR (SCALED AS A FULL UNIT VECTOR) IN REFERENCE COORDS.
035317,000746:
035318,000747: # 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
035319,000748: # UNIT VECTOR UNITR, RMAG IN 36D SCALED AT 2(+29)M, R MAG SQ. IN 34D SCALED AT 2(+58) M SQ.
035320,000749:
035321,000750: 37,3160 77656 CALCGRAV UNIT # ENTER WITH RN IN MPAC
035322,000751: 37,3161 02250 STORE UNITR
035323,000752: 37,3162 41441 DOT PUSH
035324,000753: 37,3163 02031 UNITW
035325,000754: 37,3164 44316 DSQ BDSU
035326,000755: 37,3165 37256 DP1/20
035327,000756: 37,3166 56325 PDDL DDV
035328,000757: 37,3167 37260 RESQ
035329,000758: 37,3170 00043 34D # (RN)SQ
035330,000759: 37,3171 00041 STORE 32D # TEMP FOR (RE/RN)SQ
035331,000760: 37,3172 41205 DMP DMP
035332,000761: 37,3173 37262 20J
035333,000762: 37,3174 65361 VXSC PDDL
035334,000763: 37,3175 02250 UNITR
035335,000764: 37,3176 41205 DMP DMP
035336,000765: 37,3177 37264 2J
035337,000766: 37,3200 00041 32D
035338,000767: 37,3201 53361 VXSC VAD
035339,000768: 37,3202 02031 UNITW
035340,000769: 37,3203 77626 STADR
035341,000770: 37,3204 76670 STORE GOBL1/2
035342,000771: 37,3205 41455 VAD PUSH
035343,000772: 37,3206 02250 UNITR
035344,000773: 37,3207 63545 DLOAD DSQ
035345,000774: 37,3210 00045 36D
035346,000775: 37,3211 77701 NORM
035347,000776: 37,3212 00050 X2
035348,000777: 37,3213 53665 BDDV SLR*
035349,000778: 37,3214 37252 -MUDT(E)
035350,000779: 37,3215 56623 0 -21D,2
035351,000780: 37,3216 45561 VXSC STADR
035352,000781: 37,3217 76676 STORE GDT1/2 # SCALED AT 2(+7) M/CS
035353,000782: 37,3220 77616 RVQ
035354,000783:
035355,000784: 37,3221 74375 CALCRVG VLOAD VXSC
035356,000785: 37,3222 01305 DELV
035357,000786: 37,3223 37250 KPIP1
035358,000787: 37,3224 76505 VXM VSL1
035359,000788: 37,3225 01720 REFSMMAT
035360,000789: 37,3226 03432 STORE DELVREF # DELV IN REF COORDS AT 2(+7)
035361,000790: 37,3227 41562 VSR1 PUSH
035362,000791: 37,3230 41455 VAD PUSH # (DV-OLDGDT)/2 TO PD SCALED AT 2(+7)M/CS
035363,000792: 37,3231 01040 GDT/2
035364,000793: 37,3232 74255 VAD VXSC
035365,000794: 37,3233 01030 VN
035366,000795: 37,3234 37254 2SEC(22)
035367,000796: 37,3235 44055 VAD STQ
035368,000797: 37,3236 01022 RN
035369,000798: 37,3237 00037 31D
035370,000799: 37,3240 35063 STCALL RN1 # TEMP STORAGE OF RN SCALED 2(+29)M
035371,000800: 37,3241 77160 CALCGRAV
035372,000801:
035373,000802: 37,3242 53255 VAD VAD
035374,000803: 37,3243 77655 VAD
035375,000804: 37,3244 01030 VN
035376,000805: 37,3245 35071 STCALL VN1 # TEMP STORAGE OF VN SCALED 2(+7) M/CS
035377,000806: 37,3246 00037 31D
035378,000807:
035379,000808: 37,3247 02312 32537 KPIP1 2DEC 0.074880 # 207 DELV SCALING. 1 PULSE = 5.85 CM/SEC.
035380,000809:
035381,000810: 37,3251 61377 55754 -MUDT(E) 2DEC* -7.9720645 E+12 B-44*
035382,000811:
035383,000812: 37,3253 00000 31000 2SEC(22) 2DEC 200 B-22
035384,000813:
035385,000814: 37,3255 01463 06315 DP1/20 2DEC 0.05
035386,000815:
035387,000816: 37,3257 00001 05000 RESQ 2DEC* 40.6809913 E12 B-59*
035388,000817:
035389,000818: 37,3261 02047 36332 20J 2DEC* 3.24692010 E-2 B1*
035390,000819:
035391,000820: 37,3263 00152 14511 2J 2DEC* 3.24692010 E-3 B1*
035392,000821:
End of include-file SERVICER207.agc. Parent file is MAIN.agc