GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS BY NASA 2021111-031 1:17 AUG. 24, 1968Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were derived from scans of the
Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original
AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249
(Apollo 9 CM) source files were used as a template, and changes between Colossus 249
and Colossus 237 were manually transcribed by a team of volunteers. Note
that the page images
presented online are of reduced quality, and that additional images
are available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS BY NASA 2021111-031 1:17 AUG. 24, 1968Note that the date is the date of the printout, not the date of the program revision. |
033717,000002: ## Copyright: Public domain.
033718,000003: ## Filename: SERVICER207.agc
033719,000004: ## Purpose: Part of the source code for Colossus build 237.
033720,000005: ## This is for the Command Module's (CM) Apollo Guidance
033721,000006: ## Computer (AGC), for Apollo 8.
033722,000007: ## Assembler: yaYUL
033723,000008: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
033724,000009: ## Website: www.ibiblio.org/apollo/index.html
033725,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Colossus237/
033726,000011: ## Mod history: 2011-02-28 JL Adapted from corresponding Colossus 249 file.
033727,000012: ## 2017-01-01 RSB Proofed comment text using octopus/ProoferComments,
033728,000013: ## and fixed errors found.
033729,000014: ## 2017-01-18 RSB Fixed comment-text errors noted while diff'ing
033730,000015: ## vs Colossus 249.
033731,000016:
|
|
Page 770 |
033733,000018: # PROGRAM NAME - PREREAD, READACCS, SERVICER, AVERAGE G.
033734,000019:
033735,000020:
033736,000021: # MOD NO. 00 BY M.HAMILTON DEC.12, 1966
033737,000022:
033738,000023:
033739,000024: # FUNCTIONAL DESCRIPTION
033740,000025:
033741,000026: # THE ROUTINES DESCRIBED BELOW ARE USED TO CALCULATE VALUES OF RN, VN, AND GDT/2 DURING ACCELERATED FLIGHT.
033742,000027: # THE SEVERAL ROUTINES COMPRISE A PACKAGE AND ARE NOT MEANT TO BE USED AS SEPARATE SUBROUTINES.
033743,000028:
033744,000029: # GENERAL REFERENCES TO SERVICER OR AVERAGE G ARE UNDERSTOOD TO REFER TO THE ENTIRE SET OF ROUTINES INCLUDING
033745,000030: # READACCS, SERVICER, AVERAGE G, INTEREAD, SMOOTHER, AND ANY ADDITIONAL ROUTINES ATTACHED AT AVGEXIT (SEE BELOW).
033746,000031:
033747,000032: # PROGRAMS INITIATING SERVICER ARE REQUIRED TO MAKE A WAITLIST CALL FOR PREREAD (OR, IF LIFTOFF, FOR BIBIBIAS)
033748,000033: # AT 2 SECONDS BEFORE THE FIRST AVERAGE G UPDATE IN ORDER TO INITIALIZE THE SEQUENCE, WHICH WILL RECUR EVERY
033749,000034: # 2 SECONDS FROM THAT TIME ON AS LONG AS AVEGFLAG REMAINS SET.
033750,000035:
033751,000036: # THE USE OF ERASABLE AVGEXIT ALLOWS VARIOUS ROUTINES TO BE PERFORMED AS PART OF THE NORMAL CYCLE (SEE
033752,000037: # EXPLANATION OF AVGEXIT BELOW).
033753,000038:
033754,000039: # DESCRIPTIONS OF INDIVIDUAL ROUTINES FOLLOW.
033755,000040:
033756,000041:
033757,000042: # PREREAD
033758,000043:
033759,000044: # PREVIOUSLY EXTRAPOLATED VALUES COPIED FROM RN1, VN1, AND PIPTIME1 INTO RN, VN, AND PIPTIME.
033760,000045: # LASTBIAS JOB SCHEDULED.
033761,000046: # PIPS READ AND CLEARED VIA PIPASR SUBROUTINE.
033762,000047: # AVERAGE G FLAG SET ON.
033763,000048: # DRIFT FLAG SET OFF.
033764,000049: # V37 FLAG SET ON.
033765,000050: # INITIALIZATION OF 1) THRUST MONITOR (DVMON) - DVCNTR SET TO ONE.
033766,000051: # 2) TOTAL ACCUMULATED DELV VALUE (DVTOTAL) - SET TO ZERO.
033767,000052: # 3) AXIS VECTOR (AXIS) - SET TO (.5,0,0).
033768,000053: # NORMLIZE JOB SCHEDULED.
033769,000054: # READACCS TASK CALLED IN 2 SECONDS.
033770,000055:
033771,000056:
033772,000057: # NORMLIZE
033773,000058:
033774,000059: # GDT/2 INITIALIZED VIA CALCGRAV SUBROUTINE.
033775,000060:
033776,000061:
033777,000062: # READACCS
033778,000063:
033779,000064: # IF ONMON FLAG SET QUIKREAD ROUTINE IS PERFORMED BEFORE PIPASR ZEROS THE PIPA REGISTERS, AND THE 1/2 SEC
033780,000065: # ONMONITOR LOOP IS INITIATED TO PROVIDE DOWNLINK INFORMATION DURING ENTRY.
033781,000066: # PIPS READ AND CLEARED BY PIPASR SUBROUTINE.
033782,000067: # IF CM/DSTBY IS ON, ENTRY VARIABLES INITIALIZED AND SETJTAG TASK CALLED.
|
|
Page 771 |
033784,000069: # IF AVERAGEG FLAG ON READACCS CALLED TO RECYCLE IN 2 SECONDS.
033785,000070: # IF AVERAGEG FLAG OFF AVERAGE G EXIT (AVGEXIT) SET TO 2CADR AVGEND FOR FINAL PASS.
033786,000071: # SERVICER JOB SCHEDULED.
033787,000072:
033788,000073:
033789,000074: # TEST CONNECTOR OUTBIT TURNED ON.
033790,000075:
033791,000076:
033792,000077: # ONMNITOR
033793,000078:
033794,000079: # A SEQUENCE OF THREE PASSES THROUGH QUICKREAD FOLLOWING A CALL TO READACCS WITH ONMONFLG SET AT 1/2
033795,000080: # SEC INTERVALS. INTERVALS ARE COUNTED OUT BY PIPCTR, INITIALISED AT 3 BY READACCS
033796,000081:
033797,000082: # QUIKREAD
033798,000083:
033799,000084: # READS CURRENT PIPS INTO X,Y,ZPIPBUF. READS OLD X,Y,ZPIPBUF INTO X,Y,ZOLDBUF. VALUES ARE SENT TO
033800,000085: # DOWNLIST DURING ENTRY.
033801,000086: # SERVICER
033802,000087: # DELV VALUES CHECKED TO DETECT RUNAWAY PIP -
033803,000088: # IF BAD PIP 1) ALARM SENT.
033804,000089: # 2) COMPENSATION, DVTOTAL ACCUMULATION, AND DVMON BYPASSED. CONTROL
033805,000090: # TRANSFERRED TO AVERAGE G.
033806,000091: # PIPS COMPENSATED VIA 1/PIPA SUBROUTINE.
033807,000092: # DVTOTAL INCREMENTED BY ABSOLUTE VALUE OF DELV.
033808,000093: # THRUST MONITOR (DVMON) PERFORMED UNLESS IDLE FLAG IS ON.
033809,000094: # CONTROL TRANSFERRED TO AVERAGE G.
033810,000095:
033811,000096:
033812,000097: # DVMON
033813,000098:
033814,000099: # THRESHOLD VALUE (PLACED IN DVTHRUSH BY USER) CHECKED AGAINST ABSOLUTE VALUE OF DELV TO CHECK
033815,000100: # THRUST LEVEL.
033816,000101: # IF THRUST 1) ULLAGE OFF ROUTINE PERFORMED.
033817,000102: # 2) STEERING FLAG TURNED ON AT FIRST DETECTION OF THRUST.
033818,000103: # 3) CONTROL TRANSFERRED TO AVERAGE G.
033819,000104: # IF NO THRUST 1) ON FIRST PASS THROUGH MONITOR, CONTROL TRANSFERRED TO AVERAGE G.
033820,000105: # 2) ON SUBSEQUENT PASSES, CONTROL TRANSFERRED TO ENGINE FAIL ROUTINE IF THRUST
033821,000106: # HAS FAILED FOR 3 CONSECUTIVE PASSES.
033822,000107:
033823,000108:
033824,000109: # ENGINE FAIL
033825,000110:
033826,000111: # ENGFAIL1 TASK CALLED IN 2.5 SECONDS. THIS WILL RETURN CONTROL TO TIG-5 SO THAT THE IGNITION
033827,000112: # SEQUENCE MAY BE REPEATED.
033828,000113: # ENGINOF3 PERFORMED.
033829,000114: # DAP SET UP FOR RCS.
033830,000115:
033831,000116:
033832,000117: # AVERAGE G
033833,000118:
|
|
Page 772 |
033835,000120: # RN1, VN1, GDT1/2 CALCULATED VIA CALCRVG ROUTINE BY UPDATING RN, VN WITH DELV AND AN AVERAGED VALUE
033836,000121: # OF GDT/2.
033837,000122: # RN1, VN1, GDT1/2, PIPTIME1 COPIED INTO RN, VN, GDT/2, PIPTIME FOR RESTART PROTECTION.
033838,000123: # CONTROL TRANSFERRED TO ADDRESS SPECIFIED BY USER (OR BY READACCS FOR LAST PASS) IN AVGEXIT.
033839,000124: # LAST PASS (AVGEND) 1) FREE FALL GYRO COMPENSATION SET UP.
033840,000125: # 2) DRIFT FLAG TURNED ON.
033841,000126: # 3) STATE VECTOR TRANSFERRED VIA AVETOMID ROUTINE.
033842,000127: # 4) ONMONITOR FLAG RESET.
033843,000128: # 5) V37 FLAG RESET.
033844,000129: # 6) TEST CONNECTOR OUTBIT RESET.
033845,000130: # 7) CONTROL TRANSFERRED TO CANV37 TO CONTINUE MM CHANGE ROUTINE (R00).
033846,000131:
033847,000132:
033848,000133: # CALLING SEQUENCE
033849,000134:
033850,000135: # PREREAD ENTERED DIRECTLY FROM TIG-30 VIA POSTJUMP.
033851,000136: # READACCS CALLED AS WAITLIST TASK. .
033852,000137:
033853,000138:
033854,000139: # SUBROUTINES CALLED
033855,000140:
033856,000141: # UTILITY ROUTINES - PHASCHNG FLAGUP FLAGDOWN NOVAC FINDVAC WAITLIST ALARM NEWPHASE 2PHSCHNG
033857,000142:
033858,000143: # OTHER - PIPASR 1/PIPA CALCGRAV CALCRVG AVETOMID
033859,000144:
033860,000145:
033861,000146: # NORMAL EXIT MODES
033862,000147:
033863,000148: # ENDOFJOB TASKOVER CANV37
033864,000149:
033865,000150: # AVGEXIT - THIS IS A DOUBLE PRECISION ERASABLE LOCATION BY WHICH CONTROL IS TRANSFERRED AT THE END
033866,000151: # OF EACH CYCLE OF AVERAGE G.
033867,000152: # THE 2CADR OF A ROUTINE TO BE PERFORMED AT THAT TIME (E.G., STEERING EQUATIONS TO BE PERFORMED
033868,000153: # AT 2 SECOND INTERVALS) MAY BE SET BY THE USER INTO AVGEXIT.
033869,000154: # ALL SUCH ROUTINES SHOULD RETURN TO SERVEXIT, WHICH IS THE NORMAL EXIT FROM AVERAGE G.
033870,000155:
033871,000156: # SERVEXIT - DOES A PHASE CHANGE FOR RESTART PROTECTION AND GOES TO ENDOFJOB.
033872,000157: # THE 2CADR OF SERVEXIT IS SET INTO AVGEXIT BY THE USER IF NO OTHER ROUTINE (SEE ABOVE).
033873,000158:
033874,000159: # AVGEND - LAST PASS OF AVERAGE G EXITS HERE, BYPASSING SPECIAL ROUTINE (SEE ABOVE UNDER READACCS).
033875,000160: # FINAL EXIT IS TO CANV37. F AVERAGE G).
033876,000161:
033877,000162:
033878,000163: # OUTPUT
033879,000164:
033880,000165: # DVTOTAL(2) PIPTIME(2) XPIPBUF(2) YPIPBUF(2) ZPIPBUF(2)
033881,000166: # RN(6) REFERENCE COORD. SCALED AT 2(+29)M/CS
033882,000167: # VN(6) REFERENCE COORD. SCALED AT 2(+7)M/CS
033883,000168: # GDT/2(6) REFERENCE COORD. SCALED AT 2(+7)M/CS
033884,000169: # 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 773 |
033886,000171: # DELVREF(6) REFERENCE COORD. SCALED AT 2(+7)M/CS
033887,000172:
033888,000173: # INITIALIZATION
033889,000174:
033890,000175: # ONMONITOR FLAG SET BY ENTRY TO SHOW PIPBUF VALUES REQUIRED.
033891,000176: # IDLE FLAG ON IF DVMON TO BE BYPASSED.
033892,000177: # DVTHRUSH SET TO APPROPRIATE VALUE FOR DVMON.
033893,000178: # AVGEXIT SET TO 2CADR OF ROUTINE, IF ANY, TO BE PERFORMED AFTER EACH CYCLE OF AVERAGE G. IF NO ROUTINE
033894,000179: # TO BE DONE, AVGEXIT SET TO SERVEXIT.
033895,000180: # VALUES NEEDED
033896,000181: # REFSMMAT
033897,000182: # UNITW - FULL UNIT VECTOR, IN REFERENCE COORD., OF EARTH S ROTATIONAL VECTOR
033898,000183: # RN1, VN1, PIPTIME1 - IN REFERENCE COORD., CONSISTENT WITH TIME OF EXECUTION OF PREREAD
033899,000184:
033900,000185:
033901,000186: # DEBRIS
033902,000187:
033903,000188: # CENTRALS A, L, Q
033904,000189: # OTHER INTERNAL - DVCNTR(1) PIPAGE(1) PIPCTR(1) AVGEXIT(2)
033905,000190: # EXTERNAL - ITEMP1(1) ITEMP2(1) RUPTREG1(1) TEMX(1) TEMY(1) TEMZ(1)
033906,000191: # USEFUL DEBRIS
033907,000192: # RN1(6) VN1(6) GDT1/2 PIPTIME1(2)
033908,000193: # THESE LOCATIONS USED AS BUFFER STORAGE FOR NEWLY CALCULATED VALUES OF RN, VN, GDT/2,
033909,000194: # AND PIPTIME DURING PERFORMANCE OF SERVICER ROUTINES.
033910,000195: # UNITR - HALF UNIT VECTOR OF RN, REFERENCE COORD.
033911,000196: # RMAG SCALED AT 2(+58) IN 36D.
033912,000197: # RMAGSQ SCALED AT 2(+58) IN 34D.
033913,000198: # (RE/RMAG)SQ IN 32D.
033914,000199:
033915,000200:
033916,000201: 27,2633 BANK 27
033917,000202: 37,2000 SETLOC SERVICES
033918,000203: 37,2000 BANK
033919,000204:
033920,000205: 37,2604 E7,1431 EBANK= DVCNTR
033921,000206: # ************************************* PREREAD **************************************************************
033922,000207:
033923,000208:
033924,000209: 37,2604 COUNT 37/SERV
033925,000210:
033926,000211: 37,2604 34113 PREREAD CA OCT31 # 5.31 PROTECTS REDO5.31 AS IMMEDIATE TASK
033927,000212: 37,2605 54001 TS L
033928,000213: 37,2606 40000 COM
033929,000214: 37,2607 52763 DXCH -PHASE5
033930,000215:
033931,000216: 37,2610 34766 CAF PRIO21
033932,000217: 37,2611 05027 TC NOVAC
033933,000218: 37,2612 E3,1460 EBANK= NBDX
033934,000219: 37,2612 03636 14063 2CADR LASTBIAS # DO LAST GYRO COMPENSATION IN FREE FALL
|
|
Page 774 |
033936,000221: 37,2614 02631 REDO5.31 TC PREREAD1
033937,000222:
033938,000223: 37,2615 37667 CAF PRIO32
033939,000224: 37,2616 05042 TC FINDVAC # SET UP NORMLIZE JOB REQUIRED PRIOR TO
033940,000225: 37,2617 E7,1431 EBANK= DVCNTR # FIRST AVERAGE G PASS
033941,000226: 37,2617 03145 76067 2CADR NORMLIZE
033942,000227: 37,2621 34735 CAF 2SECS
033943,000228: 37,2622 05140 TC WAITLIST
033944,000229: 37,2623 E6,1661 EBANK= AOG
033945,000230: 37,2623 02653 76066 2CADR READACCS
033946,000231: 37,2625 44711 CS TWO
033947,000232: 37,2626 04114 TC NEWPHASE
033948,000233: 37,2627 00005 OCT 5
033949,000234:
033950,000235: 37,2630 15213 TCF TASKOVER
033951,000236:
033952,000237:
033953,000238: 37,2631 00006 PREREAD1 EXTEND
033954,000239: 37,2632 22070 QXCH RUPTREG1
033955,000240:
033956,000241: 37,2633 03163 TC PIPASR # CLEAR + READ PIPS LAST TIME IN FREE FALL
033957,000242:
033958,000243: 37,2634 34712 CAF ONE # SET UP PIPAGE FOR REREADAC IN CASE A
033959,000244: 37,2635 55230 TS PIPAGE # RESTART OCCURS BEFORE READACCS
033960,000245:
033961,000246: 37,2636 40075 CS FLAGWRD1 # SET AVEG FLAG
033962,000247: 37,2637 74712 MASK BIT1
033963,000248: 37,2640 26075 ADS FLAGWRD1
033964,000249:
033965,000250: 37,2641 34672 CA POSMAX
033966,000251: 37,2642 70076 MASK FLAGWRD2
033967,000252: 37,2643 54076 TS FLAGWRD2 # KNOCK DOWN DRIFT FLAG
033968,000253:
033969,000254: 37,2644 40103 CS FLAGWRD7 # SET V37 FLAG
033970,000255: 37,2645 74705 MASK BIT6
033971,000256: 37,2646 26103 ADS FLAGWRD7
033972,000257:
033973,000258: 37,2647 34714 CAF ZERO
033974,000259: 37,2650 55425 TS DVTOTAL # CLEAR DVTOTAL
033975,000260: 37,2651 55426 TS DVTOTAL +1
033976,000261:
033977,000262: 37,2652 00070 TC RUPTREG1
033978,000263:
|
|
Page 775 |
033980,000265: # ************************************* READACCS *************************************************************
033981,000266: 37,2653 E6,1661 EBANK= AOG
033982,000267: 37,2653 03163 READACCS TC PIPASR
033983,000268:
033984,000269: 37,2654 34715 PIPSDONE CAF FIVE
033985,000270: 37,2655 54001 TS L
033986,000271: 37,2656 40000 COM
033987,000272: 37,2657 52763 DXCH -PHASE5
033988,000273:
033989,000274: 37,2660 34712 REDO5.5 CAF ONE # SHOW PIPS HAVE BEEN READ
033990,000275: 37,2661 55230 TS PIPAGE
033991,000276:
033992,000277: 37,2662 34711 CA TWO # SET PIPCTR FOR ONMINTOR
033993,000278: 37,2663 55227 TS PIPCTR # AFTER ABOVE PHASCHNG
033994,000279:
033995,000280: 37,2664 40102 CS CM/FLAGS
033996,000281: 37,2665 74711 MASK BIT2 # CM/DSTBY
033997,000282: 37,2666 10000 CCS A
033998,000283: 37,2667 02742 TC CHEKAVEG
033999,000284:
034000,000285: 37,2670 41246 CS PIPTIME1 +1
034001,000286: 37,2671 55065 TS TBASE6 # FOR RESTARTS
034002,000287: 37,2672 00006 EXTEND # CONTINUE FOR ENTRY DAP
034003,000288: 37,2673 31662 DCA AOG
034004,000289: 37,2674 53670 DXCH AOG/PIP
034005,000290: 37,2675 31663 CA AMG
034006,000291: 37,2676 57671 XCH AMG/PIP
034007,000292: 37,2677 00006 EXTEND
034008,000293: 37,2700 31665 DCA ROLL/180
034009,000294: 37,2701 53673 DXCH ROLL/PIP
034010,000295: 37,2702 31666 CA BETA/180
034011,000296: 37,2703 57674 XCH BETA/PIP
034012,000297: 37,2704 30102 CA CM/FLAGS
034013,000298: 37,2705 74677 MASK BIT12 # CM/DAPARM 93D BIT12
034014,000299: 37,2706 00006 EXTEND # DURING ENTRY, WHEN RCS DAP IS INACTIVE,
034015,000300: 37,2707 12725 BZF NOSAVPIP # SAVE PIPAS EACH 0.5 SEC FOR TM.
034016,000301:
034017,000302: 37,2710 32775 CA 0.5SEC
034018,000303: 37,2711 05140 TC WAITLIST
034019,000304: 37,2712 E6,1533 EBANK= XPIPBUF
034020,000305: 37,2712 02776 76066 2CADR QUIKREAD
034021,000306: # NO NEED TO RESTART PROTECT THIS.
034022,000307: 37,2714 31162 CA DELVX # SAVE PIPAS AS READ (BUT NOT COMPENSATED)
034023,000308: 37,2715 57533 XCH XPIPBUF
034024,000309: 37,2716 55536 TS XOLDBUF
034025,000310:
034026,000311: 37,2717 31164 CA DELVY
034027,000312: 37,2720 57534 XCH YPIPBUF
034028,000313: 37,2721 55537 TS YOLDBUF
|
|
Page 776 |
034030,000315: 37,2722 31166 CA DELVZ
034031,000316: 37,2723 57535 XCH ZPIPBUF
034032,000317: 37,2724 55540 TS ZOLDBUF
034033,000318:
034034,000319: 37,2725 34715 NOSAVPIP CA FIVE
034035,000320: 37,2726 55725 TS CM/GYMDT
034036,000321:
034037,000322: 37,2727 33142 CA JTAGTIME # ACTIVATE CM/RCS AFTER PIPUP TO GO
034038,000323: # IN JTAGTIME +5 CS.
034039,000324: 37,2730 05140 TC WAITLIST
034040,000325: 37,2731 E6,1661 EBANK= AOG
034041,000326: 37,2731 03222 32066 2CADR SETJTAG
034042,000327:
034043,000328: 37,2733 46214 CS THREE # 1.3SPOT FOR SETJTAG
034044,000329: 37,2734 04114 TC NEWPHASE
034045,000330: 37,2735 00001 OCT 1
034046,000331:
034047,000332: 37,2736 34362 CAF OCT37
034048,000333: 37,2737 54001 TS L
034049,000334: 37,2740 40000 COM
034050,000335: 37,2741 52763 DXCH -PHASE5
034051,000336:
034052,000337: 37,2742 40075 CHEKAVEG CS FLAGWRD1
034053,000338: 37,2743 74712 MASK BIT1
034054,000339: 37,2744 10000 CCS A # IF AVEG FLAG DOWN SET FINAL EXIT AVEG
034055,000340: 37,2745 02765 TC AVEGOUT
034056,000341:
034057,000342: 37,2746 34735 CAF 2SECS
034058,000343: 37,2747 05140 TC WAITLIST
034059,000344: 37,2750 E6,1661 EBANK= AOG
034060,000345: 37,2750 02653 76066 2CADR READACCS
034061,000346:
034062,000347: 37,2752 34675 MAKESERV CAF PRIO20 # ESTABLISH SERVICER ROUTINE
034063,000348: 37,2753 05042 TC FINDVAC
034064,000349: 37,2754 E7,1431 EBANK= DVCNTR
034065,000350: 37,2754 03013 76067 2CADR SERVICER
034066,000351:
034067,000352: 37,2756 44710 CS FOUR # RESTART SERVICER AND READACCS
034068,000353: 37,2757 04114 TC NEWPHASE
034069,000354: 37,2760 00005 OCT 5
034070,000355:
034071,000356: 37,2761 34702 CAF BIT9
034072,000357: 37,2762 00006 EXTEND
034073,000358: 37,2763 05011 WOR DSALMOUT # TURN TEST CONNECTOR OUTBIT ON
034074,000359:
034075,000360: 37,2764 15213 TCF TASKOVER # END PREVIOUS READACCS WAITLIST TASK
034076,000361:
|
|
Page 777 |
034078,000363: 37,2765 00006 AVEGOUT EXTEND
034079,000364: 37,2766 32772 DCA AVOUTCAD
034080,000365: 37,2767 53223 DXCH AVGEXIT
034081,000366: 37,2770 12752 TCF MAKESERV
034082,000367:
034083,000368: 37,2771 E7,1431 EBANK= DVCNTR
034084,000369: 37,2771 03074 76067 AVOUTCAD 2CADR AVGEND
034085,000370:
|
|
Page 778 |
034087,000372: # ROUTINE NAME: ONMNITOR
034088,000373: # MOD 04 BY BAIRNSFATHER 30 APR 1968 REDO ONMNITOR TO SAVE PIPS EACH 0.5 SEC FOR TM,ENTRY.
034089,000374: # MOD 03 BY FISHER DECEMBER 1967
034090,000375: # MOD 02 BY RYE SEPT 1967
034091,000376: # MOD 01 BY KOSMALA 23 MAR 1967
034092,000377: # MOD 00 BY KOSMALA 27 FEB 1967
034093,000378:
034094,000379: # FUNCTIONAL DESCRIPTION
034095,000380:
034096,000381: # THE PURPOSE OF ONMONITOR IS TO PROVIDE 1/2 SEC.READING OF PIPAS FOR DOWNLIST DURING ENTRY.
034097,000382: # X,Y,ZPIPBUF CONTAIN PRESENT VALUES X,Y,ZOLDBUF CONTAIN VALUES FROM PREVIOUS READING.
034098,000383:
034099,000384: # CALLING SEQUENCE
034100,000385:
034101,000386: # CALL AS WAITLIST TASK. TERMINATES ITSELF IN TASKOVER
034102,000387:
034103,000388: # INITIALISATION
034104,000389:
034105,000390: # PIPCTR = 2 (FOR DT = 0.5 SEC)
034106,000391: # X,Y,ZPIPBUF SET TO PREVIOUS PIPAX,Y,Z
034107,000392:
034108,000393: # OUTPUT
034109,000394:
034110,000395: # X,Y,ZPIPBUF, X,Y,ZOLDBUF
034111,000396: # DEBRIS
034112,000397:
034113,000398: # X,Y,ZPIPBUF CONTAIN LAST PIPAX,Y,Z VALUES
034114,000399: # X,Y,ZOLDBUF CONTAIN LAST-BUT-ONE PIPAX,Y,Z VALUES
034115,000400: # RUPTREG1
034116,000401: # PIPCTR
034117,000402:
034118,000403: 37,2773 55227 ONMNITOR TS PIPCTR
034119,000404:
034120,000405: 37,2774 05156 TC FIXDELAY # WAIT
034121,000406: 37,2775 00062 0.5SEC DEC 50 B-14
034122,000407:
034123,000408: 37,2776 34711 QUIKREAD CAF TWO
034124,000409: 37,2777 54070 TS RUPTREG1
034125,000410: 37,3000 50000 INDEX A
034126,000411: 37,3001 30037 CA PIPAX # SAVE ACTUAL PIPAS FOR TM.
034127,000412: 37,3002 50070 INDEX RUPTREG1
034128,000413: 37,3003 57533 XCH XPIPBUF # UPDATE X,Y,ZPIPBUF
034129,000414: 37,3004 50070 INDEX RUPTREG1
034130,000415: 37,3005 55536 TS XOLDBUF # AND X,Y,ZOLDBUF
034131,000416: 37,3006 10070 CHKCTR CCS RUPTREG1
034132,000417: 37,3007 12777 TCF QUIKREAD +1 # LOOP AGAIN
034133,000418: 37,3010 11227 CCS PIPCTR
034134,000419: 37,3011 12773 TCF ONMNITOR
034135,000420: 37,3012 05213 TC TASKOVER
034136,000421:
|
|
Page 779 |
034138,000423: # ************************************* SERVICER *************************************************************
034139,000424:
034140,000425:
034141,000426: 37,3013 E7,1431 EBANK= DVCNTR
034142,000427:
034143,000428: 37,3013 34711 SERVICER CAF TWO
034144,000429: 37,3014 00004 INHINT
034145,000430: 37,3015 54070 PIPCHECK TS RUPTREG1
034146,000431:
034147,000432: 37,3016 60000 DOUBLE
034148,000433: 37,3017 50000 INDEX A
034149,000434: 37,3020 11162 CCS DELVX
034150,000435: 37,3021 03023 TC +2
034151,000436: 37,3022 03031 TC PIPLOOP
034152,000437:
034153,000438: 37,3023 63141 AD -MAXDELV # DO PIPA-SATURATION TEST BEFORE
034154,000439: 37,3024 00006 EXTEND
034155,000440: 37,3025 63031 BZMF PIPLOOP # COMPENSATION.
034156,000441:
034157,000442: 37,3026 05537 TC ALARM
034158,000443: 37,3027 00205 OCT 00205 # SATURATED-PIPA ALARM ***CHANGE LATER
034159,000444: 37,3030 03052 TC AVERAGEG
034160,000445:
034161,000446: 37,3031 10070 PIPLOOP CCS RUPTREG1
034162,000447: 37,3032 13015 TCF PIPCHECK
034163,000448:
034164,000449: 37,3033 05301 TC PHASCHNG # RESTART REREADAC + SERVICER
034165,000450: 37,3034 16035 OCT 16035
034166,000451: 37,3035 20000 OCT 20000
034167,000452: 37,3036 E7,1431 EBANK= DVCNTR
034168,000453: 37,3036 03042 76067 2CADR DVTOTUP
034169,000454:
034170,000455: 37,3040 04555 TC BANKCALL # PIPA COMPENSATION CALL
034171,000456: 37,3041 15262 CADR 1/PIPA
034172,000457:
034173,000458: 37,3042 06006 DVTOTUP TC INTPRET
034174,000459: 37,3043 51575 VLOAD ABVAL # GET ABS VALUE OF DELV
034175,000460: 37,3044 01163 DELV
034176,000461: 37,3045 77405 DMP EXIT
034177,000462: 37,3046 37356 KPIP1 # SCALE AT 2(+7)
034178,000463:
034179,000464: 37,3047 00006 EXTEND
034180,000465: 37,3050 30155 DCA MPAC
034181,000466: 37,3051 21426 DAS DVTOTAL # ACCUMULATE DVTOTAL
034182,000467: 37,3052 05301 AVERAGEG TC PHASCHNG
034183,000468: 37,3053 10035 OCT 10035
034184,000469:
034185,000470: 37,3054 06006 TC INTPRET
034186,000471: 37,3055 77624 CALL
|
|
Page 780 |
034188,000473: 37,3056 77325 CALCRVG
034189,000474: 37,3057 77776 EXIT
034190,000475:
034191,000476: 37,3060 05301 TC PHASCHNG
034192,000477: 37,3061 10035 OCT 10035
034193,000478:
034194,000479: 37,3062 34113 CAF OCT31 # COPY RN1,VN1,GOT102,GOBL1/2,PIPTIME1
034195,000480: 37,3063 05475 TC GENTRAN # INTO RN ,VN ,GDT/12 ,GOBL/2 ,PIPTIME
034196,000481: 37,3064 01231 ADRES RN1
034197,000482: 37,3065 01170 ADRES RN
034198,000483: 37,3066 00003 RELINT # GENTRAN DOES AN INHINT
034199,000484: 37,3067 05301 TC PHASCHNG
034200,000485: 37,3070 10035 OCT 10035
034201,000486:
034202,000487: 37,3071 00006 EXTEND
034203,000488: 37,3072 31223 DCA AVGEXIT
034204,000489: 37,3073 52006 DXCH Z # AVERAGEG EXIT
034205,000490:
034206,000491: 37,3074 31205 AVGEND CA PIPTIME +1 # FINAL AVERAGE G EXIT
034207,000492: 37,3075 55074 TS OLDBT1 # SET UP FREE FALL GYRO COMPENSATION
034208,000493:
034209,000494: 37,3076 05435 TC UPFLAG # SET DRIFTFLG
034210,000495: 37,3077 00036 ADRES DRIFTFLG # BIT 15 FLAG 2
034211,000496: 37,3100 05261 TC 2PHSCHNG
034212,000497: 37,3101 00005 OCT 5 # GROUP 5 OFF
034213,000498: 37,3102 05022 OCT 05022 # GROUP 2 ON FOR AVETOMID
034214,000499: 37,3103 20000 OCT 20000
034215,000500:
034216,000501: 37,3104 06006 TC INTPRET
034217,000502: 37,3105 77624 CALL
034218,000503: 37,3106 27472 AVETOMID # CONVERT STATE VECTOR TO REFERENCE SCALE.
034219,000504: 37,3107 77776 EXIT
034220,000505:
034221,000506: 37,3110 34714 CAF ZERO # ZERO MARK COUNTERS.
034222,000507: 37,3111 55125 TS VHFCNT
034223,000508: 37,3112 55126 TS TRKMKCNT
034224,000509:
034225,000510: 37,3113 04555 TC BANKCALL
034226,000511: 37,3114 17112 CADR PIPFREE
034227,000512:
034228,000513: 37,3115 44702 CS BIT9
034229,000514: 37,3116 55734 TS MRKBUF2 # INVALIDATE MARK BUFFER
034230,000515: 37,3117 00006 EXTEND
034231,000516: 37,3120 03011 WAND DSALMOUT
034232,000517:
034233,000518: 37,3121 05447 TC DOWNFLAG
034234,000519: 37,3122 00147 ADRES CM/DSTBY
034235,000520:
034236,000521: 37,3123 05447 TC DOWNFLAG
034237,000522: 37,3124 00162 ADRES V37FLAG
|
|
Page 781 |
034239,000524: 37,3125 34704 CAF BIT7 # RESTORE GROUP 1 + 2 IF P20 IS RUNNING.
034240,000525: 37,3126 70074 MASK FLAGWRD0
034241,000526: 37,3127 00006 EXTEND
034242,000527: 37,3130 13134 BZF +4
034243,000528:
034244,000529: 37,3131 05261 TC 2PHSCHNG
034245,000530: 37,3132 00111 OCT 111 # 1.11SPOT
034246,000531: 37,3133 00132 OCT 132 # 2.13SPOT
034247,000532:
034248,000533: 37,3134 04574 TC POSTJUMP
034249,000534: 37,3135 10123 CADR CANV37
034250,000535:
034251,000536: 37,3136 05301 SERVEXIT TC PHASCHNG
034252,000537: 37,3137 00035 OCT 00035 # A, 5.3 = REREADAC (ONLY)
034253,000538:
034254,000539: 37,3140 15112 TCF ENDOFJOB
034255,000540:
034256,000541: 37,3141 4717 DVTHRUSH EQUALS ELEVEN # 15 PERCENT OF 2SEC PIPA ACCUMULATION,
034257,000542: # FOR 503-FULL CSM/LEM....DELV SC.AT
034258,000543: # 5.85 CM/SEC.
034259,000544:
034260,000545: 37,3141 63401 -MAXDELV DEC -6398 B-14 # 3200 PPS FOR 2 SEC CCS TAKES 1
034261,000546:
034262,000547:
034263,000548: 37,3142 00170 JTAGTIME DEC 120 B-14 # = 1 SEC + T CDU, T CDU = .1 SEC
034264,000549:
034265,000550: 37,3143 00372 2.5SEC DEC 250 B-14
034266,000551: 37,3144 00044 MDOTFAIL DEC 144.0 B-16 # 5 SEC MASS LOSS AT 28.8 KG/SEC
034267,000552: # SHOULD BE 2-4 SECS FOR NO START
034268,000553: # 6-8 SECS FOR FAILURE
034269,000554:
|
|
Page 782 |
034271,000556: # NORMLIZE PERFORMS THE INITIALIZATION REQUIRED PRIOR TO THE FIRST ENTRY TO AVERAGEG, AND SCALES RN SO THAT IT
034272,000557: # HAS 1 LEADING BINARY ZERO. IN MOST MISSIONS, RN WILL BE SCALED AT 2(+29), BUT IN THE 206 MISSION, RN WILL BE
034273,000558: # SCALED AT 2(+24)M.
034274,000559:
034275,000560:
034276,000561: 37,3145 34720 NORMLIZE CAF THIRTEEN # SET UP TO COPY 14 REGS- RN1,VN1,PIPTIME1
034277,000562: 37,3146 05475 TC GENTRAN # INTO RN,VN, PIPTIME
034278,000563: 37,3147 01231 ADRES RN1 # FROM HERE
034279,000564: 37,3150 01170 ADRES RN # TO HERE
034280,000565:
034281,000566: 37,3151 00003 RELINT
034282,000567: 37,3152 06006 TC INTPRET
034283,000568: 37,3153 45175 VLOAD CALL # LOAD RN FOR CALCGRAV
034284,000569: 37,3154 01171 RN
034285,000570: 37,3155 77260 CALCGRAV # INITIALISE UNITR RMAG GDT1
034286,000571:
034287,000572: 37,3156 25207 STOVL GDT/2
034288,000573: 37,3157 01256 GOBL1/2
034289,000574: 37,3160 01215 STORE GOBL/2
034290,000575: 37,3161 77776 EXIT
034291,000576: 37,3162 15112 TCF ENDOFJOB
034292,000577:
|
|
Page 783 |
034294,000579: # ***** PIPA READER *****
034295,000580:
034296,000581:
034297,000582: # MOD NO. 00 BY D. LICKLY DEC.9 1966
034298,000583:
034299,000584:
034300,000585: # FUNCTIONAL DESCRIPTION
034301,000586:
034302,000587: # SUBROUTINE TO READ PIPA COUNTERS, TRYING TO BE VERY CAREFUL SO THAT IT WILL BE RESTARTABLE.
034303,000588: # PIPA READINGS ARE STORED IN THE VECTOR DELV. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS THE PIPA READING,
034304,000589: # RESTARTS BEGIN AT REREADAC.
034305,000590:
034306,000591:
034307,000592: # AT THE END OF THE PIPA READER THE CDUS ARE READ AND STORED AS A
034308,000593: # VECTOR IN CDUTEMP. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS
034309,000594: # THE CDU READING IN 2S COMP IN THE ORDER CDUX,Y,Z. THE THRUST
034310,000595: # VECTOR ESTIMATOR IN FINDCDUD REQUIRES THE CDUS BE READ AT PIPTIME.
034311,000596:
034312,000597: # CALLING SEQUENCE AND EXIT
034313,000598:
034314,000599: # CALL VIA TC, ISWCALL, ETC.
034315,000600:
034316,000601: # EXIT IS VIA Q.
034317,000602:
034318,000603:
034319,000604: # INPUT
034320,000605:
034321,000606: # INPUT IS THROUGH THE COUNTERS PIPAX, PIPAY, PIPAZ, AND TIME2.
034322,000607:
034323,000608:
034324,000609: # OUTPUT
034325,000610:
034326,000611: # HIGH ORDER COMPONENTS OF THE VECTOR DELV CONTAIN THE PIPA READINGS.
034327,000612: # PIPTIME CONTAINS TIME OF PIPA READING.
034328,000613:
034329,000614:
034330,000615: # DEBRIS (ERASABLE LOCATIONS DESTROYED BY PROGRAM)
034331,000616:
034332,000617: # LOW ORDER DELV'S ARE ZEROED FOR TM INDICATION.
034333,000618: # TEMX TEMY TEMZ PIPAGE
034334,000619:
034335,000620:
034336,000621: 37,3163 00006 PIPASR EXTEND
034337,000622: 37,3164 30025 DCA TIME2
034338,000623: 37,3165 53246 DXCH PIPTIME1 # CURRENT TIME POSITIVE VALUE
034339,000624: 37,3166 44714 CS ZERO # INITIALIZE THESE AT NEG ZERO.
034340,000625: 37,3167 55224 TS TEMX
034341,000626: 37,3170 55225 TS TEMY
034342,000627: 37,3171 55226 TS TEMZ
|
|
Page 784 |
034344,000629: 37,3172 34714 CA ZERO
034345,000630: 37,3173 55166 TS DELVZ # OTHER DELVS OK INCLUDING LOW ORDER
034346,000631: 37,3174 55164 TS DELVY
034347,000632:
034348,000633: 37,3175 55163 TS DELVX +1 # LOW ORDER DELV'S ARE ZEROED FOR TM: THUS
034349,000634: 37,3176 55165 TS DELVY +1 # IF DNLNK'D LOW ORDER DELVS ARE NZ, THEY
034350,000635: 37,3177 55167 TS DELVZ +1 # CONTAIN PROPER COMPENSATION. IF=0, THEN
034351,000636: # THE TM VALUES ARE BEFORE COMPENSATION.
034352,000637:
034353,000638: 37,3200 55230 TS PIPAGE # SHOW PIPA READING IN PROGRESS
034354,000639:
034355,000640: 37,3201 00006 REPIP1 EXTEND
034356,000641: 37,3202 40040 DCS PIPAX # X AND Y PIPS READ
034357,000642: 37,3203 53225 DXCH TEMX
034358,000643: 37,3204 52040 DXCH PIPAX # PIPAS SET TO NEG ZERO AS READ.
034359,000644: 37,3205 55162 TS DELVX
034360,000645: 37,3206 23164 LXCH DELVY
034361,000646:
034362,000647: 37,3207 40041 REPIP3 CS PIPAZ # REPEAT PROCESS FOR Z PIP
034363,000648: 37,3210 57226 XCH TEMZ
034364,000649: 37,3211 56041 XCH PIPAZ
034365,000650: 37,3212 55166 DODELVZ TS DELVZ
034366,000651:
034367,000652: 37,3213 00002 TC Q
034368,000653:
034369,000654:
034370,000655: 37,3214 E6,1661 EBANK= AOG
034371,000656:
034372,000657: 37,3214 10763 REREADAC CCS PHASE5 # LAST PASS CHECK
034373,000658: 37,3215 13217 TCF +2
034374,000659: 37,3216 15213 TCF TASKOVER
034375,000660:
034376,000661: 37,3217 11230 CCS PIPAGE
034377,000662: 37,3220 12653 TCF READACCS # PIP READING NOT STARTED. GO TO BEGINNING
034378,000663:
034379,000664: 37,3221 33257 CAF DONEADR # SET UP RETURN FROM PIPASR
034380,000665: 37,3222 54002 TS Q
034381,000666:
034382,000667: 37,3223 11166 CCS DELVZ
034383,000668: 37,3224 00002 TC Q # Z DONE, GO DO CDUS
034384,000669: 37,3225 13230 TCF +3 # Z NOT DONE, CHECK Y.
034385,000670: 37,3226 00002 TC Q
034386,000671: 37,3227 00002 TC Q
034387,000672: 37,3230 22007 ZL
034388,000673: 37,3231 11164 CCS DELVY
034389,000674: 37,3232 13235 TCF +3
034390,000675: 37,3233 13244 TCF CHKTEMX # Y NOT DONE, CHECK X.
034391,000676: 37,3234 13235 TCF +1
034392,000677: 37,3235 22041 LXCH PIPAZ # Y DONE, ZERO Z PIP.
|
|
Page 785 |
034394,000679: 37,3236 11226 CCS TEMZ
034395,000680: 37,3237 41226 CS TEMZ # TEMZ NOT = -0, CONTAINS -PIPAZ VALUE.
034396,000681: 37,3240 13212 TCF DODELVZ
034397,000682: 37,3241 13237 TCF -2
034398,000683: 37,3242 23166 LXCH DELVZ # TEMZ = -0, L HAS ZPIP VALUE.
034399,000684: 37,3243 00002 TC Q
034400,000685:
034401,000686: 37,3244 11224 CHKTEMX CCS TEMX # HAS THIS CHANGED
034402,000687: 37,3245 41224 CS TEMX # YES
034403,000688: 37,3246 13251 TCF +3 # YES
034404,000689: 37,3247 13245 TCF -2 # YES
034405,000690: 37,3250 13201 TCF REPIP1 # NO
034406,000691: 37,3251 55162 TS DELVX
034407,000692:
034408,000693: 37,3252 41225 CS TEMY
034409,000694: 37,3253 55164 TS DELVY
034410,000695:
034411,000696: 37,3254 44714 CS ZERO # ZERO X AND Y PIPS
034412,000697: 37,3255 52040 DXCH PIPAX # L STILL ZERO FROM ABOVE
034413,000698:
034414,000699: 37,3256 13207 TCF REPIP3
034415,000700:
034416,000701: 37,3257 02654 DONEADR GENADR PIPSDONE
034417,000702:
|
|
Page 786 |
034419,000704: # *************************************************************************************************************
034420,000705:
034421,000706: # ROUTINE CALCRVG INTEGRATES THE EQUATIONS OF MOTION BY AVERAGING THE THRUST AND GRAVITATIONAL
034422,000707: # ACCELERATIONS OVER A TIME INTERVAL OF 2 SECONDS.
034423,000708:
034424,000709: # FOR THE EARTH-CENTERED GRAVITATIONAL FIELD, THE PERTURBATION DUE TO OBLATENESS IS COMPUTED TO THE FIRST
034425,000710: # HARMONIC COEFFICIENT J.
034426,000711:
034427,000712: # ROUTINE CALCRVG REQUIRES...
034428,000713: # 1) THRUST ACCELERATION INCREMENTS IN DELV SCALED SAME AS PIPAX,Y,Z IN STABLE MEMBER COORDS.
034429,000714: # 2) VN SCALED 2(+7)M/CS IN REFERENCE COORDS.
034430,000715: # 3) RN SCALED AT 2(+29) METERS IN REFERENCE COORDS.
034431,000716: # 4) UNITW THE EARTH S UNIT ROTATIONAL VECTOR (SCALED AS A FULL UNIT VECTOR) IN REFERENCE COORDS.
034432,000717:
034433,000718: # 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
034434,000719: # UNIT VECTOR UNITR, RMAG IN 36D SCALED AT 2(+29)M, R MAG SQ. IN 34D SCALED AT 2(+58) M SQ.
034435,000720:
034436,000721:
034437,000722: 37,3260 41456 CALCGRAV UNIT PUSH # ENTER WITH RN IN MPAC
034438,000723: 37,3261 01760 STORE UNITR
034439,000724: 37,3262 67340 LXC,1 SLOAD
034440,000725: 37,3263 03746 RTX2
034441,000726: 37,3264 00047 X1
034442,000727: 37,3265 77240 BMN VLOAD
034443,000728: 37,3266 77314 ITISMOON
034444,000729: 37,3267 41441 DOT PUSH
034445,000730: 37,3270 01714 UNITW
034446,000731: 37,3271 44316 DSQ BDSU
034447,000732: 37,3272 37366 DP1/20
034448,000733: 37,3273 56325 PDDL DDV
034449,000734: 37,3274 37370 RESQ
034450,000735: 37,3275 00043 34D # (RN)SQ
034451,000736: 37,3276 00041 STORE 32D # TEMP FOR (RE/RN)SQ
034452,000737: 37,3277 41205 DMP DMP
034453,000738: 37,3300 37372 20J
034454,000739: 37,3301 65361 VXSC PDDL
034455,000740: 37,3302 01760 UNITR
034456,000741: 37,3303 41205 DMP DMP
034457,000742: 37,3304 37374 2J
034458,000743: 37,3305 00041 32D
034459,000744: 37,3306 53361 VXSC VAD
034460,000745: 37,3307 01714 UNITW
034461,000746: 37,3310 77626 STADR
034462,000747: 37,3311 76521 STORE GOBL1/2
034463,000748: 37,3312 41455 VAD PUSH
034464,000749: 37,3313 01760 UNITR
034465,000750: 37,3314 60345 ITISMOON DLOAD NORM
034466,000751: 37,3315 00043 34D
034467,000752: 37,3316 00050 X2
034468,000753: 37,3317 53663 BDDV* SLR*
|
|
Page 787 |
034470,000755: 37,3320 37360 -MUDT(E),1
034471,000756: 37,3321 56623 0 -21D,2
034472,000757: 37,3322 45561 VXSC STADR
034473,000758: 37,3323 76527 STORE GDT1/2 # SCALED AT 2(+7) M/CS
034474,000759: 37,3324 77616 RVQ
034475,000760:
034476,000761: 37,3325 74375 CALCRVG VLOAD VXSC
034477,000762: 37,3326 01163 DELV
034478,000763: 37,3327 37356 KPIP1
034479,000764: 37,3330 76505 VXM VSL1
034480,000765: 37,3331 01736 REFSMMAT
034481,000766: 37,3332 03433 STORE DELVREF # DELV IN REF COORDS AT 2(+7)
034482,000767: 37,3333 41562 VSR1 PUSH
034483,000768: 37,3334 41455 VAD PUSH # (DV-OLDGDT)/2 TO PD SCALED AT 2(+7)M/CS
034484,000769: 37,3335 01207 GDT/2
034485,000770: 37,3336 74255 VAD VXSC
034486,000771: 37,3337 01177 VN
034487,000772: 37,3340 37364 2SEC(22)
034488,000773: 37,3341 44055 VAD STQ
034489,000774: 37,3342 01171 RN
034490,000775: 37,3343 00037 31D
034491,000776: 37,3344 35232 STCALL RN1 # TEMP STORAGE OF RN SCALED 2(+29)M
034492,000777: 37,3345 77260 CALCGRAV
034493,000778:
034494,000779: 37,3346 53255 VAD VAD
034495,000780: 37,3347 77655 VAD
034496,000781: 37,3350 01177 VN
034497,000782: 37,3351 35240 STCALL VN1 # TEMP STORAGE OF VN SCALED 2(+7)M/CS
034498,000783: 37,3352 00037 31D
034499,000784:
034500,000785: 37,3353 03215 27057 KPIP 2DEC .1024 # SCALES DELV TO 2(+4)
034501,000786: 37,3355 02312 32537 KPIP1 2DEC 0.074880 # 207 DELV SCALING. 1 PULSE = 5.85 CM/SEC.
034502,000787: 37,3357 61377 55754 -MUDT(E) 2DEC* -7.9720645 E+12 B-44*
034503,000788: 37,3361 77644 65556 -MUDT(M) 2DEC* -9.805556 E+10 B-44*
034504,000789: 37,3363 00000 31000 2SEC(22) 2DEC 200 B-22
034505,000790:
034506,000791: 37,3365 01463 06315 DP1/20 2DEC 0.05
034507,000792: 37,3367 00001 05000 RESQ 2DEC* 40.6809913 E12 B-59*
034508,000793: 37,3371 02047 36332 20J 2DEC* 3.24692010 E-2 B1*
034509,000794: 37,3373 00152 14511 2J 2DEC* 3.24692010 E-3 B1*
End of include-file SERVICER207.agc. Parent file is MAIN.agc