Source Code
030598,000001: # Copyright: Public domain.
030599,000002: # Filename: P51-P53.agc
030600,000003: # Purpose: Part of the source code for Colossus, build 249.
030601,000004: # It is part of the source code for the Command Module's (CM)
030602,000005: # Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9.
030603,000006: # Assembler: yaYUL
030604,000007: # Reference: pp. 697-742 of 1701.pdf.
030605,000008: # Contact: Ron Burkey <info@sandroid.org>.
030606,000009: # Website: www.ibiblio.org/apollo.
030607,000010: # Mod history: 08/16/04 RSB. Began adapting from corresponding Luminary131
030608,000011: # file.
030609,000012: # 08/22/04 RSB Removed the "lunar and solar ephemerides subroutines"
030610,000013: # to their own file.
030611,000014: # 2010-10-24 JL Fixed page numbers.
030612,000015:
030613,000016: # The contents of the "Colossus249" files, in general, are transcribed
030614,000017: # from a scanned document obtained from MIT's website,
030615,000018: # http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf. Notations on this
030616,000019: # document read, in part:
030617,000020:
030618,000021: # Assemble revision 249 of AGC program Colossus by NASA
030619,000022: # 2021111-041. October 28, 1968.
030620,000023:
030621,000024: # This AGC program shall also be referred to as
030622,000025: # Colossus 1A
030623,000026:
030624,000027: # Prepared by
030625,000028: # Massachusetts Institute of Technology
030626,000029: # 75 Cambridge Parkway
030627,000030: # Cambridge, Massachusetts
030628,000031: # under NASA contract NAS 9-4065.
030629,000032:
030630,000033: # Refer directly to the online document mentioned above for further information.
030631,000034: # Please report any errors (relative to 1701.pdf) to info@sandroid.org.
030632,000035:
030633,000036: # In some cases, where the source code for Luminary 131 overlaps that of
030634,000037: # Colossus 249, this code is instead copied from the corresponding Luminary 131
030635,000038: # source file, and then is proofed to incorporate any changes.
030636,000039:
030637,000040: # Page 697
030638,000041: # PROGRAM NAME -- PROG52 DATE -- NOV 30, 1966
030639,000042: # MOD NO -- 2 LOG SECTION -- P51-P53
030640,000043: # MODIFICATION BY -- LONSKE ASSEMBLY -- SUNDISK REV 30
030641,000044:
030642,000045: # FUNCTIONAL DESCRIPTION --
030643,000046:
030644,000047: # ALIGNS THE IMU TO ONE OF THREE ORIENTATIONS SELECTED BY THE ASTRONAUT. THE PRESENT IMU ORIENTATION IS KNOWN
030645,000048: # AND IS STORED IN REFSMMAT. THE THREE POSSIBLE ORIENTATIONS MAY BE:
030646,000049:
030647,000050: # (A) PREFERRED ORIENTATION
030648,000051:
030649,000052: # AN OPTIMUM ORIENTATION FOR A PREVIOUSLY CALCULATED MANEUVER. THIS ORIENTATION MUST BE CALCULATED AND
030650,000053: # STORED BY A PREVIOUSLY SELECTED PROGRAM.
030651,000054:
030652,000055: # (B) NOMINAL ORIENTATION
030653,000056:
030654,000057: # X = UNIT ( Y x Z )
030655,000058: # -SM -SM -SM
030656,000059:
030657,000060: # Y = UNIT (V X R)
030658,000061: # -SM - -
030659,000062:
030660,000063: # Z = UNIT ( -R )
030661,000064: # -SM -
030662,000065:
030663,000066: # WHERE:
030664,000067:
030665,000068: # R = THE GEOMETRIC RADIUS VECTOR AT TIME T(ALIGN) SELECTED BY THE ASTRONAUT
030666,000069: # -
030667,000070:
030668,000071: # V = THE INERTIAL VELOCITY VECTOR AT TIME T(ALIGN) SELECTED BY THE ASTRONAUT
030669,000072: # -
030670,000073:
030671,000074: # (C) RERSMMAT ORIENTATION
030672,000075:
030673,000076: # (D) LANDING SITE -- THIS IS NOT AVAILABLE IN SUNDANCE
030674,000077:
030675,000078: # THIS SELECTION CORRECTS THE PRESENT IMU ORIENTATION. THE PRESENT ORIENTATION DIFFERS FROM THAT TO WHICH IT
030676,000079: # WAS LAST ALIGNED ONLY DUE TO GYRO DRIVE (I.E., NEITHER GIMBAL LOCK NOR IMU POWER INTERRUPT HAS OCCURRED
030677,000080: # SINCE THE LAST ALIGNMENT).
030678,000081:
030679,000082: # AFTER A IMU ORIENTATION HAS BEEN SELECTED ROUTINE S52.2 IS OPERATED TO COMPUTE THE GIMBAL ANGLES USING THE
030680,000083: # NEW ORIENTATION AND THE PRESENT VEHICLE ATTITUDE. CAL52A THEN USES THESE ANGLES, STORED IN THETAD,+1,+2, TO
030681,000084: # COARSE ALIGN THE IMU. THE STARS SELECTION ROUTINE, R56, IS THEN OPERATED. IF 2 STARS ARE NOT AVAILABLE AN ALARM
030682,000085: # IS FLASHED TO NOTIFY THE ASTRONAUT. AT THIS POINT THE ASTRONAUT WILL MANEUVER THE VEHICLE AND SELECT 2 STARS
030683,000086: # EITHER MANUALLY OR AUTOMATICALLY. AFTER 2 STARS HAVE BEEN SELECTED THE IMU IS FINE ALIGNED USING ROUTINE R51. IF
030684,000087: # THE RENDEZVOUS NAVIGATION PROCESS IS OPERATING (INDICATED BY RNDVZFLG) P20 IS DISPLAYED. OTHERWISE P00 IS
030685,000088: # REQUESTED.
030686,000089:
030687,000090: # CALLING SEQUENCE --
030688,000091:
030689,000092: # THE PROGRAM IS CALLED BY THE ASTRONAUT BY DSKY ENTRY.
030690,000093: # Page 698
030691,000094:
030692,000095: # SUBROUTINES CALLED --
030693,000096:
030694,000097: # 1. FLAGDOWN 7. S52.2 13. NEWMODEX
030695,000098: # 2. R02BOTH 8. CAL53A 14. PRIOLARM
030696,000099: # 3. GOPERF4 9. FLAGUP
030697,000100: # 4. MATMOVE 10. R56
030698,000101: # 5. GOFLASH 11. R51
030699,000102: # 6. S52.3 12. GOPERF3
030700,000103:
030701,000104: # NORMAL EXIT MODES --
030702,000105:
030703,000106: # EXITS TO ENDOFJOB
030704,000107:
030705,000108: # ALARM OR ABORT EXIT MODES --
030706,000109:
030707,000110: # NONE
030708,000111:
030709,000112: # OUTPUT --
030710,000113:
030711,000114: # THE FOLLOWING MAY BE FLASHED ON THE DSKY
030712,000115: # 1. IMU ORIENTATION CODE
030713,000116: # 2. ALARM CODE 215 -- PREFERRED IMU ORIENTATION NOT SPECIFIED
030714,000117: # 3. TIME OF NEXT IGNITION
030715,000118: # 4. GIMBAL ANGLES
030716,000119: # 5. ALARM CODE 405 -- TWO STARS NOT AVAILABLE
030717,000120: # 6. PLEASE PERFORM P00
030718,000121: # THE MODE DISPLAY MAY BE CHANGED TO 20
030719,000122:
030720,000123: # ERASABLE INITIALIZATION REQUIRED --
030721,000124:
030722,000125: # PFRATFLG SHOULD BE SET IF A PREFERRED ORIENTATION HAS BEEN COMPUTED. IF IT HAS BEEN COMPUTED IT IS STORED IN
030723,000126: # XSMD, YSMD, ZSMD.
030724,000127:
030725,000128: # RNDVZFLG INDICATES WHETHER THE RENDEZVOUS NAVIGATION PROCESS IS OPERATING.
030726,000129:
030727,000130: # DEBRIS --
030728,000131:
030729,000132: # WORK AREA
030730,000133:
030731,000134: 21,2026 15,2000 P54 = PROG52
030732,000135: 33,3772 BANK 33
030733,000136: 15,2000 SETLOC P50S
030734,000137: 15,2000 BANK
030735,000138:
030736,000139: 15,2000 30,2000 SBANK= LOWSUPER
030737,000140: 15,2000 0002773 EBANK= SAC
030738,000141: 15,2000 COUNT 15/P52
030739,000142:
030740,000143: 15,2000 05301 PROG52 TC PHASCHNG
030741,000144: 15,2001 00254 OCT 00254
030742,000145: 15,2002 05447 TC DOWNFLAG
030743,000146: 15,2003 00027 ADRES UPDATFLG # BIT 7 FLAG 1
030744,000147: # Page 699
030745,000148: 15,2004 05447 TC DOWNFLAG
030746,000149: 15,2005 00031 ADRES TRACKFLG # BIT 5 FLAG 1
030747,000150: 15,2006 04555 TC BANKCALL
030748,000151: 15,2007 17573 CADR R02BOTH # IMU STATUS CHECK
030749,000152: 15,2010 34707 CAF BIT4
030750,000153: 15,2011 70076 MASK STATE +2 # IS PFRATFLG SET?
030751,000154: 15,2012 10000 CCS A
030752,000155: 15,2013 02016 TC P52A # YES
030753,000156: 15,2014 34711 CAF BIT2 # NO
030754,000157: 15,2015 02017 TC P52A +1
030755,000158: 15,2016 34712 P52A CAF BIT1
030756,000159: 15,2017 55132 TS OPTION2
030757,000160: 15,2020 34712 P52B CAF BIT1
030758,000161: 15,2021 04555 TC BANKCALL # FLASH OPTION CODE AND ORIENTATION CODE
030759,000162: 15,2022 21041 CADR GOPERF4R
030760,000163: 15,2023 04106 TC GOTOP00H
030761,000164: 15,2024 02031 TC +5
030762,000165: 15,2025 02020 TC P52B # NEW CODE -- NEW ORIENTATION CODE INPUT
030763,000166: 15,2026 05301 TC PHASCHNG
030764,000167: 15,2027 00014 OCT 00014
030765,000168: 15,2030 05112 TC ENDOFJOB
030766,000169:
030767,000170: 15,2031 31132 CA OPTION2
030768,000171: 15,2032 76214 MASK THREE
030769,000172: 15,2033 50000 INDEX A
030770,000173: 15,2034 02035 TC +1
030771,000174: 15,2035 02041 TC P52T # L.S.
030772,000175: 15,2036 02110 TC P52J # PREF
030773,000176: 15,2037 02041 TC P52T # NORM
030774,000177: 15,2040 12120 TCF P52C # REF
030775,000178: 15,2041 00006 P52T EXTEND
030776,000179: 15,2042 34714 DCA NEG0
030777,000180: 15,2043 53046 DXCH DSPTEM1
030778,000181: 15,2044 32155 CAF V06N34
030779,000182: 15,2045 04555 TC BANKCALL
030780,000183: 15,2046 20624 CADR GOFLASH
030781,000184: 15,2047 04106 TC GOTOP00H
030782,000185: 15,2050 02052 TC +2
030783,000186: 15,2051 02044 TC -5
030784,000187: 15,2052 00006 EXTEND
030785,000188: 15,2053 31046 DCA DSPTEM1
030786,000189: 15,2054 00006 EXTEND
030787,000190: 15,2055 12057 BZF +2
030788,000191: 15,2056 12062 TCF +4
030789,000192:
030790,000193: 15,2057 00006 EXTEND
030791,000194: 15,2060 30025 DCA TIME2
030792,000195: 15,2061 53046 DXCH DSPTEM1
030793,000196: 15,2062 31132 CA OPTION2
030794,000197: 15,2063 74711 MASK BIT2
030795,000198: 15,2064 10000 CCS A
030796,000199: # Page 700
030797,000200: 15,2065 12073 TCF +6 # NOM
030798,000201: 15,2066 06006 TC INTPRET # LS
030799,000202: 15,2067 77624 CALL
030800,000203: 15,2070 34506 P52LS
030801,000204: 15,2071 77650 GOTO
030802,000205: 15,2072 32100 P52D
030803,000206: 15,2073 06006 TC INTPRET
030804,000207: 15,2074 77745 DLOAD
030805,000208: 15,2075 01046 DSPTEM1
030806,000209: 15,2076 77624 CALL # COMPUTE NOMINAL IMU
030807,000210: 15,2077 34636 S52.3 # ORIENTATION
030808,000211: 15,2100 77624 P52D CALL # READ VEHICLE ATTITUDE AND
030809,000212: 15,2101 22256 S52.2 # COMPUTE GIMBAL ANGLES
030810,000213: 15,2102 77776 EXIT
030811,000214: 15,2103 32156 CAF VB06N22
030812,000215: 15,2104 04555 TC BANKCALL # DISPLAY GIMBAL ANGLES
030813,000216: 15,2105 20624 CADR GOFLASH
030814,000217: 15,2106 04106 TC GOTOP00H
030815,000218: 15,2107 02113 TC +4 # PROCEED
030816,000219: 15,2110 06006 P52J TC INTPRET # RECYCLE: VEHICLE HAS BEEN MANEUVERED
030817,000220: 15,2111 77650 GOTO
030818,000221: 15,2112 32100 P52D
030819,000222: 15,2113 06006 TC INTPRET
030820,000223: 15,2114 77624 CALL # DO COARSE ALIGN
030821,000224: 15,2115 30756 CAL53A # ROUTINE
030822,000225: 15,2116 77414 SET EXIT
030823,000226: 15,2117 01462 REFSMFLG
030824,000227: 15,2120 34720 P52C CAF ALRM15
030825,000228: 15,2121 04555 TC BANKCALL
030826,000229: 15,2122 20751 CADR GOPERF1
030827,000230: 15,2123 04106 TC GOTOP00H
030828,000231: 15,2124 02126 TC +2 # V33
030829,000232: 15,2125 02140 TC P52F # B
030830,000233: 15,2126 06006 TC INTPRET
030831,000234: 15,2127 43234 RTB DAD
030832,000235: 15,2130 45505 LOADTIME
030833,000236: 15,2131 32176 TSIGHT1
030834,000237: 15,2132 77624 CALL
030835,000238: 15,2133 30216 LOCSAM
030836,000239: 15,2134 77776 EXIT
030837,000240: 15,2135 04555 P52E TC BANKCALL # DO STAR SELECTION
030838,000241: 15,2136 30324 CADR PICAPAR
030839,000242: 15,2137 02145 TC P52I # 2 STARS NOT AVAILABLE
030840,000243: 15,2140 06006 P52F TC INTPRET # 2 STARS AVAILABLE
030841,000244: 15,2141 77624 CALL
030842,000245: 15,2142 30523 R51
030843,000246: 15,2143 77776 ENDP50S EXIT
030844,000247: 15,2144 04106 TC GOTOP00H
030845,000248: 15,2145 05537 P52I TC ALARM
030846,000249: 15,2146 00405 OCT 405
030847,000250: # Page 701
030848,000251: 15,2147 34743 CAF V05N09
030849,000252: 15,2150 04555 TC BANKCALL
030850,000253: 15,2151 20624 CADR GOFLASH
030851,000254: 15,2152 04106 TC GOTOP00H
030852,000255: 15,2153 02140 TC P52F # PROCEED: DO FINE ALIGN-R51
030853,000256: 15,2154 02120 TC P52C # RECYCLE: VEHICLE HAS BEEN MANEUVERED
030854,000257:
030855,000258: 15,2155 01442 V06N34 VN 0634
030856,000259: 15,2156 01426 VB06N22 VN 00622
030857,000260: 15,2157 4720 ALRM15 EQUALS OCT15
030858,000261: 16,2000 SETLOC P50S2
030859,000262: 16,2000 BANK
030860,000263: 16,2505 01531 V06N89* VN 0689
030861,000264:
030862,000265: # NAME -- P52LS
030863,000266:
030864,000267: # FUNCTION -- TO DISPLAY THE LANDING SITE LATITUDE,
030865,000268: # LONGITUDE AND ALTITUDE. TO ACCEPT NEW DATA VIA
030866,000269: # THE KEYBOARD. TO COMPUT THE LANDING SITE
030867,000270: # ORIENTATIION FOR P52 OR P54.
030868,000271:
030869,000272: # LET:
030870,000273: # RLS = LANDING SITE VECTOR IN REF COORDINATES
030871,000274: # R = CSM POSITION VECTOR IN REF COORDINATES
030872,000275: # V = CSM VELOCITY VECTOR IN REF COORDINATES
030873,000276: # THEN THE LANDING SITE ORIENTATION IS:
030874,000277: # XSMD = UNIT(RLS)
030875,000278: # YSMD = UNIT(ZSMD*XSMD)
030876,000279: # ZSMD = UNIT((R*V)*RLS)
030877,000280:
030878,000281: # CALL: CALL
030879,000282: # P52LS
030880,000283:
030881,000284: # INPUTS: DSPTEM1 = TIME OF ALIGNMENT
030882,000285: # RLS = LANDING SITE VECTOR IN MOON FIXED COORDINATES
030883,000286:
030884,000287: # OUTPUTS: XSMD, YSMD, ZSMD
030885,000288:
030886,000289: # SUBROUTINES: RP-TO-R, LAT-LONG, LLASRD, LLASRDA, CSMPREC
030887,000290:
030888,000291: # DEBRIS: VAC, SEE SUBROUTINES
030889,000292:
030890,000293: 16,2506 43020 P52LS STQ SET
030891,000294: 16,2507 00300 QMAJ
030892,000295: 16,2510 01463 LUNAFLAG
030893,000296: 16,2511 77745 DLOAD
030894,000297: 16,2512 01046 DSPTEM1
030895,000298: 16,2513 02607 STORE TSIGHT
030896,000299: 16,2514 43175 VLOAD SET
030897,000300: 16,2515 02026 RLS
030898,000301: 16,2516 00462 ERADFLAG
030899,000302: 16,2517 14001 STODL 0D
030900,000303: 16,2520 02607 TSIGHT
030901,000304: 16,2521 34007 STCALL 6D
030902,000305: 16,2522 55341 RP-TO-R
030903,000306: 16,2523 77742 VSR2
030904,000307: 16,2524 16152 STODL ALPHAV
030905,000308: 16,2525 02607 TSIGHT
030906,000309: # Page 702
030907,000310: 16,2526 77624 CALL
030908,000311: 16,2527 26322 LAT-LONG
030909,000312: 16,2530 77624 CALL
030910,000313: 16,2531 61336 LLASRD
030911,000314: 16,2532 77776 EXIT
030912,000315:
030913,000316: 16,2533 32505 LSDISP CAF V06N89*
030914,000317: 16,2534 04555 TC BANKCALL
030915,000318: 16,2535 20624 CADR GOFLASH
030916,000319: 16,2536 04106 TC GOTOP00H
030917,000320: 16,2537 02541 TC +2
030918,000321: 16,2540 02533 TC LSDISP
030919,000322: 16,2541 06006 TC INTPRET
030920,000323: 16,2542 77624 CALL
030921,000324: 16,2543 61345 LLASRDA
030922,000325: 16,2544 45145 DLOAD CALL
030923,000326: 16,2545 02607 TSIGHT
030924,000327: 16,2546 26373 LALOTORV
030925,000328: 16,2547 53575 VLOAD UNIT
030926,000329: 16,2550 02152 ALPHAV
030927,000330: 16,2551 14307 STODL XSMD
030928,000331: 16,2552 02607 TSIGHT
030929,000332: 16,2553 34041 STCALL TDEC1
030930,000333: 16,2554 27022 CSMPREC
030931,000334: 16,2555 47375 VLOAD VXV
030932,000335: 16,2556 00001 RATT
030933,000336: 16,2557 00007 VATT
030934,000337: 16,2560 53435 VXV UNIT
030935,000338: 16,2561 00307 XSMD
030936,000339: 16,2562 00323 STORE ZSMD
030937,000340: 16,2563 53435 VXV UNIT
030938,000341: 16,2564 00307 XSMD
030939,000342: 16,2565 34315 STCALL YSMD
030940,000343: 16,2566 00300 QMAJ
030941,000344: 14,2000 SETLOC P50S1
030942,000345: 14,2000 BANK
030943,000346:
030944,000347: # Page 703
030945,000348: # NAME: AUTOMATIC OPTICS POSITIONING ROUTINE
030946,000349:
030947,000350: # FUNCTION: (1) TO POINT THE STAR LOS OF THE OPTICS AT A STAR OR LANDMARK DEFINED BY THE PROGRAM OR BY DSKY INPUT.
030948,000351: # (2) TO POINT THE STAR LOS OF THE OPTICS AT THE LEM DURING RENDEZVOUS TRACKING OPERATIONS.
030949,000352:
030950,000353: # CALLING: CALL R52
030951,000354:
030952,000355: # INPUT: 1. TARG1FLG AND TARG2FLG: PRESET BY CALLER
030953,000356: # 2. RNDVZFLG AND TRACKFLG: PRESET BY CALLER
030954,000357: # 3. STAR CODE: PRESET BY CALLER. ALSO INPUT THROUGH DSKY
030955,000358: # 4. LAT, LONG, AND ALT OF LANDMARK: INPUT THROUGH DSKY
030956,000359: # 5. NO. OF MARKS (MARKINDX): PRESET BY CALLER
030957,000360:
030958,000361: # OUTPUT: DRIVE SHAFT AND TRUNNION CDUS.
030959,000362: # Page 704
030960,000363:
030961,000364: # SUBROUTINES: 1. FIXDELAY 7. CLEANDSP
030962,000365: # 2. GOPERF1 8. GODSPR
030963,000366: # 3. GOFLASH 9. REFLASHR
030964,000367: # 4. R53 10. R52.2
030965,000368: # 5. ALARM 11. R52.3
030966,000369: # 6. SR52.1
030967,000370:
030968,000371: 14,2002 COUNT 15/R52
030969,000372:
030970,000373: 14,2002 43020 R52 STQ CLEAR
030971,000374: 14,2003 02576 SAVQR52
030972,000375: 14,2004 04265 ADVTRK
030973,000376: 14,2005 77776 R52VRB EXIT
030974,000377: 14,2006 00006 EXTEND
030975,000378: 14,2007 30036 DCA CDUT
030976,000379: 14,2010 53161 DXCH DESOPTT
030977,000380: 14,2011 06006 TC INTPRET
030978,000381: 14,2012 43131 SSP CLEAR
030979,000382: 14,2013 01304 OPTIND
030980,000383: 14,2014 00000 0
030981,000384: 14,2015 00271 R53FLAG
030982,000385: 14,2016 77776 EXIT
030983,000386: 14,2017 06006 R52A TC INTPRET
030984,000387: 14,2020 43014 SET BON
030985,000388: 14,2021 00073 TRUNFLAG
030986,000389: 14,2022 00705 TARG1FLG
030987,000390: 14,2023 30103 R52H
030988,000391: 14,2024 77414 CLEAR EXIT
030989,000392: 14,2025 03660 TERMIFLG
030990,000393: 14,2026 31314 R52C CA SWSAMPLE # IS OPTICS MODE IN AGC
030991,000394: 14,2027 00006 EXTEND
030992,000395: 14,2030 62131 BZMF R52M # MANUAL
030993,000396: 14,2031 04555 R52D TC BANKCALL # AGC
030994,000397: 14,2032 26176 CADR SR52.1
030995,000398: 14,2033 12161 TCF R52L # GR 90 DEGREES
030996,000399: 14,2034 12124 TCF R52J # GR 50 DEGREES
030997,000400: 14,2035 05435 TC UPFLAG # LS 50 DEGREES
030998,000401: 14,2036 00013 ADRES TRUNFLAG # SET TRUNFLAG BIT 4 FLAG 0
030999,000402: 14,2037 34701 R52JA CAF BIT10 # IS THIS A LEM
031000,000403: 14,2040 70075 MASK STATE +1
031001,000404: 14,2041 10000 CCS A
031002,000405: 14,2042 02052 TC R52E # YES
031003,000406: 14,2043 34705 CAF BIT6 # NO, IS R53FLAG SET
031004,000407: 14,2044 70074 MASK STATE
031005,000408: 14,2045 10000 CCS A
031006,000409: 14,2046 12052 TCF R52E # YES
031007,000410: 14,2047 32151 CAF V06N92 # NO
031008,000411: 14,2050 04555 TC BANKCALL
031009,000412: 14,2051 20602 CADR GODSPR
031010,000413: 14,2052 31314 R52E CA SWSAMPLE # IS OSS IN CMC MODE
031011,000414: # Page 705
031012,000415: 14,2053 00006 EXTEND
031013,000416: 14,2054 62065 BZMF R52F # NO
031014,000417: 14,2055 40074 CS STATE # YES: IS TRUNFLAG SET
031015,000418: 14,2056 74707 MASK BIT4
031016,000419: 14,2057 10000 CCS A
031017,000420: 14,2060 02063 TC +3 # NO
031018,000421: 14,2061 31775 CA PAC # YES
031019,000422: 14,2062 55160 TS DESOPTT
031020,000423: 14,2063 31773 CA SAC
031021,000424: 14,2064 55161 TS DESOPTS
031022,000425: 14,2065 34731 R52F CAF .5SEC # WAIT 1/2 SEC
031023,000426: 14,2066 04555 TC BANKCALL
031024,000427: 14,2067 01732 CADR DELAYJOB
031025,000428: 14,2070 34701 CAF BIT10
031026,000429: 14,2071 70075 MASK STATE +1
031027,000430: 14,2072 10000 CCS A
031028,000431: 14,2073 12104 TCF R52HA # YES, LEM
031029,000432: 14,2074 34674 CAF BIT15 # NO
031030,000433: 14,2075 70103 MASK STATE +7 # IS TERMIFLG SET
031031,000434: 14,2076 00006 EXTEND
031032,000435: 14,2077 12026 BZF R52C # NO
031033,000436: 14,2100 06006 R52Q TC INTPRET # YES
031034,000437: 14,2101 77650 GOTO
031035,000438: 14,2102 02576 SAVQR52
031036,000439: 14,2103 77776 R52H EXIT # LEM
031037,000440: 14,2104 04555 R52HA TC BANKCALL
031038,000441: 14,2105 76536 CADR R61CSM
031039,000442: 14,2106 30075 CA STATE +1
031040,000443: 14,2107 74706 MASK BIT5
031041,000444: 14,2110 00006 EXTEND # TRACKFLG
031042,000445: 14,2111 12100 BZF R52Q
031043,000446:
031044,000447: 14,2112 40075 CS STATE +1
031045,000448: 14,2113 74704 MASK BIT7 # UPDATFLG
031046,000449: 14,2114 10000 CCS A
031047,000450: 14,2115 12122 TCF R52SYNC
031048,000451:
031049,000452: 14,2116 30101 R52I CA STATE +5
031050,000453: 14,2117 74701 MASK BIT10
031051,000454: 14,2120 10000 CCS A
031052,000455: 14,2121 02031 TC R52D # PRFTRKAT = 1
031053,000456: 14,2122 32175 R52SYNC CAF 1.8SEC # MAKE UP FOR LOST TIME
031054,000457: 14,2123 12066 TCF R52F +1
031055,000458:
031056,000459: 14,2124 05447 R52J TC DOWNFLAG # CLEAR TRUNFLAG
031057,000460: 14,2125 00013 ADRES TRUNFLAG # BIT 4 FLAG 0
031058,000461: 14,2126 05537 TC ALARM # SET 407 ALARM
031059,000462: 14,2127 00407 OCT 407
031060,000463: 14,2130 02037 TC R52JA
031061,000464: 14,2131 34705 R52M CAF BIT6 # IS R53FLAG SET
031062,000465: # Page 706
031063,000466: 14,2132 70074 MASK STATE
031064,000467: 14,2133 10000 CCS A
031065,000468: 14,2134 02065 TC R52F # YES
031066,000469: 14,2135 00004 INHINT # NO
031067,000470: 14,2136 37661 CAF PRIO24
031068,000471: 14,2137 05042 TC FINDVAC
031069,000472: 14,2140 0002773 EBANK= SAC
031070,000473: 14,2140 02144 30065 2CADR R53JOB
031071,000474:
031072,000475: 14,2142 00003 RELINT
031073,000476: 14,2143 12065 TCF R52F
031074,000477: 14,2144 06006 R53JOB TC INTPRET
031075,000478: 14,2145 77624 CALL
031076,000479: 14,2146 31322 R53
031077,000480: 14,2147 77776 ENDPLAC EXIT # INTERPRETER RETURN TO ENDOFJOB (R22 USES)
031078,000481: 14,2150 05112 TC ENDOFJOB
031079,000482:
031080,000483: 14,2151 01534 V06N92 VN 00692
031081,000484: 14,2152 01531 V06N89A VN 0689
031082,000485: 14,2153 10464 12470 SHAXIS 2DEC .5376381241 B-1
031083,000486: 14,2155 00000 00000 2DEC 0 B-28
031084,000487: 14,2157 15373 11554 2DEC .8431766920 B-1
031085,000488:
031086,000489: 14,2161 34701 R52L CAF BIT10 # IS THIS A LEM
031087,000490: 14,2162 70075 MASK STATE +1
031088,000491: 14,2163 10000 CCS A
031089,000492: 14,2164 02124 TC R52J # YES
031090,000493: 14,2165 32174 CAF OCT404
031091,000494: 14,2166 04555 TC BANKCALL
031092,000495: 14,2167 21671 CADR PRIOLARM
031093,000496: 14,2170 12176 TCF TERM52 # TERMINATE
031094,000497: 14,2171 12065 TCF R52F # PROCEED
031095,000498: 14,2172 12065 TCF R52F # NO PROVISION FOR NEW DATA
031096,000499: 14,2173 15112 TCF ENDOFJOB
031097,000500:
031098,000501: 14,2174 00404 OCT404 OCT 404
031099,000502: 14,2175 00264 1.8SEC DEC 180 B-14
031100,000503:
031101,000504: 14,2176 05425 TERM52 TC CLEARMRK
031102,000505:
031103,000506: 14,2177 04555 TC BANKCALL # KILL MARK SYSTEM
031104,000507: 14,2200 16063 CADR MKRELEAS
031105,000508:
031106,000509: 14,2201 34714 CAF ZERO
031107,000510: 14,2202 55323 TS OPTCADR
031108,000511:
031109,000512: 14,2203 04555 TC BANKCALL # CLEAR OUT EXTENDED VERBS
031110,000513: # Page 707
031111,000514: 14,2204 20464 CADR KLEENEX
031112,000515:
031113,000516: 14,2205 04106 TC GOTOP00H # NO GO TO P00
031114,000517:
031115,000518: 14,2206 43020 ADVORB STQ SET # SETS UP ADVANCED ORBIT TRACKING
031116,000519: 14,2207 02576 SAVQR52
031117,000520: 14,2210 04065 ADVTRK
031118,000521: 14,2211 43014 SET SET
031119,000522: 14,2212 01463 LUNAFLAG
031120,000523: 14,2213 00462 ERADFLAG
031121,000524: 14,2214 77650 GOTO
031122,000525: 14,2215 30005 R52VRB
031123,000526: # Page 708
031124,000527: # NAME -- S50 ALIAS LOCSAM
031125,000528: # NAME: LOCSAM
031126,000529:
031127,000530: # FUNCTION -- TO COMPUTE QUATITIGS LISTED BELOW, USED IN THE
031128,000531: # IMU ALIGNMENT PROGRAMS.
031129,000532:
031130,000533: # DEFINE:
031131,000534:
031132,000535: # RATT = POSITION VECTOR OF CM WRT PRIMARY BODY
031133,000536:
031134,000537: # VATT = VELOCITY VECTOR OF CM WRT PRIMARY BODY
031135,000538:
031136,000539: # RE = RADIUS OF EARTH
031137,000540:
031138,000541: # RM = RADIUS OF MOON
031139,000542:
031140,000543: # ECLIPOL = POLE OF ECLIPTIC SCALED BY TANGENTIAL VELOCITY OF EARTH
031141,000544: # WRT TO SUNOVER THE VELOCITY OF LIGHT
031142,000545:
031143,000546: # REM = POSITION OF MOON WRT EARTH
031144,000547:
031145,000548: # RES = POSITION OF SUN WRT EARTH
031146,000549:
031147,000550: # C = VELOCITY OF LIGHT
031148,000551:
031149,000552: # EARTH IS PRIMARY MOON IS PRIMARY
031150,000553: # _ _
031151,000554: # VEARTH=-1(RATT) VEARTH=-1(REM+RATT)
031152,000555: # _ _
031153,000556: # VMOON = 1(REM-RATT) VMOON =-1(RATT)
031154,000557: # _ _
031155,000558: # VSUN = 1(RES) VSUN = 1(RES-REM)
031156,000559: # -1
031157,000560: # CEARTH=COS(SIN (RE/RATT)+5) CEARTH=COS 5
031158,000561: # -1
031159,000562: # CMOON =COS 5 CMOON =COS(SIN CRM/RATT)+5)
031160,000563:
031161,000564: # CSUN =COS 15 CSUN =COS 15
031162,000565:
031163,000566: # VEL/C = VSUN x ECLIPOL + VATT/C
031164,000567:
031165,000568: # CALL: DLOAD CALL
031166,000569: # DESIRED TIME
031167,000570: # LOCSAM
031168,000571:
031169,000572: # INPUTS: MPAC = TIME
031170,000573:
031171,000574: # OUTPUTS: VEARTH, VMOON, VSUN, CEARTH, CMOON, CSUN, VEL/C
031172,000575:
031173,000576: # SUBROUTINES: LSPOS, CSMCONIC
031174,000577:
031175,000578: # DEBRIS: VAC AREA, SEE SUBROUTINES.
031176,000579:
031177,000580: # Page 709
031178,000581: 14,2000 SETLOC P50S1
031179,000582: 14,2000 BANK
031180,000583:
031181,000584: 14,2216 COUNT* $$/S50
031182,000585:
031183,000586: 14,2216 14,2216 LOCSAM = S50
031184,000587: 14,2216 77620 S50 STQ
031185,000588: 14,2217 00300 QMAJ
031186,000589: 14,2220 36607 STCALL TSIGHT
031187,000590: 14,2221 54110 LSPOS
031188,000591: 14,2222 26752 STOVL VMOON
031189,000592: 14,2223 00003 2D
031190,000593: 14,2224 16744 STODL VSUN
031191,000594: 14,2225 02607 TSIGHT
031192,000595: 14,2226 34041 STCALL TDEC1
031193,000596: 14,2227 27045 CSMCONIC
031194,000597: 14,2230 61131 SSP TIX,2
031195,000598: 14,2231 00052 S2
031196,000599: 14,2232 00000 0
031197,000600: 14,2233 30256 MOONCNTR
031198,000601: 14,2234 52375 EARTCNTR VLOAD VSU
031199,000602: 14,2235 02752 VMOON
031200,000603: 14,2236 00001 RATT
031201,000604: 14,2237 77656 UNIT
031202,000605: 14,2240 26752 STOVL VMOON
031203,000606: 14,2241 00001 RATT
031204,000607: 14,2242 57456 UNIT VCOMP
031205,000608: 14,2243 16736 STODL VEARTH
031206,000609: 14,2244 32162 RSUBE
031207,000610: 14,2245 77624 CALL
031208,000611: 14,2246 30316 OCCOS
031209,000612: 14,2247 14017 STODL CEARTH
031210,000613: 14,2250 32200 CSS5
031211,000614: 14,2251 24023 STOVL CMOON
031212,000615: 14,2252 02744 VSUN
031213,000616: 14,2253 77656 UNIT
031214,000617: 14,2254 36744 STCALL VSUN
031215,000618: 14,2255 30303 ENDSAM
031216,000619: 14,2256 40575 MOONCNTR VLOAD VSR8
031217,000620: 14,2257 02752 VMOON
031218,000621: 14,2260 51362 VSR1 BVSU
031219,000622: 14,2261 02744 VSUN
031220,000623: 14,2262 77656 UNIT
031221,000624: 14,2263 26744 STOVL VSUN
031222,000625: 14,2264 02752 VMOON
031223,000626: 14,2265 53455 VAD UNIT
031224,000627: 14,2266 00001 RATT
031225,000628: 14,2267 77676 VCOMP
031226,000629: 14,2270 26736 STOVL VEARTH
031227,000630: # Page 710
031228,000631:
031229,000632: 14,2271 00001 RATT
031230,000633: 14,2272 57456 UNIT VCOMP
031231,000634: 14,2273 16752 STODL VMOON
031232,000635: 14,2274 32160 RSUBM
031233,000636: 14,2275 77624 CALL
031234,000637: 14,2276 30316 OCCOS
031235,000638: 14,2277 14023 STODL CMOON
031236,000639: 14,2300 32200 CSS5
031237,000640: 14,2301 24017 STOVL CEARTH
031238,000641: 14,2302 02744 VSUN
031239,000642: 14,2303 77635 ENDSAM VXV
031240,000643: 14,2304 32170 ECLIPOL
031241,000644: 14,2305 27474 STOVL VEL/C
031242,000645: 14,2306 00007 VATT
031243,000646: 14,2307 53361 VXSC VAD
031244,000647: 14,2310 32166 1/C
031245,000648: 14,2311 03474 VEL/C
031246,000649: 14,2312 17474 STODL VEL/C
031247,000650: 14,2313 32202 CSSUN
031248,000651: 14,2314 34021 STCALL CSUN
031249,000652: 14,2315 00300 QMAJ
031250,000653: 14,2316 70471 OCCOS DDV SR1
031251,000654: 14,2317 00045 36D
031252,000655: 14,2320 43336 ASIN DAD
031253,000656: 14,2321 32164 5DEGREES
031254,000657: 14,2322 70546 COS SR1
031255,000658: 14,2323 77616 RVQ
031256,000659: 15,2000 SETLOC P50S
031257,000660: 15,2000 BANK
031258,000661: 15,2157 00065 01265 RSUBM 2DEC 1738090 B-29 # MOON RADIUS IN METERS
031259,000662: 15,2161 00302 24533 RSUBE 2DEC 6378166 B-29
031260,000663: 15,2163 00343 21616 5DEGREES 2DEC .013888889 # SCALED IN REVS
031261,000664: 15,2165 00000 13143 1/C 2DEC .000042699 B-1 # *
031262,000665: 15,2167 00000 00000 ECLIPOL 2DEC 0 B-28 # *
031263,000666: 15,2171 77777 53231 2DEC -.00007896 B-1 # *
031264,000667: 15,2173 00001 17570 2DEC .00018209 B-1 # * * FOR USE BY CSM ONLY
031265,000668: 15,2175 00001 16700 TSIGHT1 2DEC 24000 B-28
031266,000669:
031267,000670: 15,2177 CEARTH = 14D
031268,000671: 15,2177 CSUN = 16D
031269,000672: 15,2177 CMOON = 18D
031270,000673: 15,2177 07760 14473 CSS5 2DEC .2490475 # (COS 5)/4
031271,000674: # Page 711
031272,000675: 15,2201 07564 15042 CSSUN 2DEC .24148 # (COS 15)/4
031273,000676:
031274,000677: # Page 712
031275,000678: # PROGRAM NAME -- PICAPAR DATE: DEC 20 66
031276,000679: # MOD 1 LOG SECTION: P51-P53
031277,000680: # ASSEMBLY: SUNDISK REV40
031278,000681: # BY KEN VINCENT
031279,000682:
031280,000683: # FUNCTION
031281,000684: # THIS PROGRAM READS THE IMU-CDUS AND COMPUTES THE VEHICLE ORIENTATION
031282,000685: # WITH RESPECT TO INERTIAL SPACE. IT THEN COMPUTES THE SHAFT AXIS (SAX)
031283,000686: # WITH RESPECT TO REFERENCE INTERTIAL. EACH STAR IN THE CATALOG IS TESTED
031284,000687: # TO DETERMINE IF IT IS OCCULTED BY EITHER EARTH, SUN OR MOON. IF A
031285,000688: # STAR IS NOT OCCULTED THEN IT IS PARIED WITH ALL STARS OF LOWER INDEX.
031286,000689: # THE PAIRED STAR IS TESTED FOR OCCULTATION. PAIRS OF STARS THAT PASS
031287,000690: # THE OCCULTATION TESTS ARE TESTED FOR GOOD SEPARATION. A PAIR OF STARS
031288,000691: # HAVE GOOD SEPARATION IF THE ANGLE BETWEEN THEM IS LESS THAN 66 DEGREES
031289,000692: # AND MORE THAN 40 DEGREES. THOSE PAIRS WITH GOOD SEPARATION
031290,000693: # ARE THEN TESTED TO SEE IF THEY LIE IN CURRENT FIELD OF VIEW. (WITHIN
031291,000694: # 33 DEGREES OF SAX). THE PAIR WITH MAX SEPARATION IS CHOSEN FROM
031292,000695: # THOSE WITH GOOD SEPARATION, AND IN FIELD OF VIEW.
031293,000696:
031294,000697: # CALLING SEQUENCE
031295,000698: # L TC BANKCALL
031296,000699: # L+1 CADR PICAPAR
031297,000700: # L+2 ERROR RETURN -- NO STARS IN FIELD OF VIEW
031298,000701: # L+3 NORMAL RETURN
031299,000702:
031300,000703: # OUTPUT
031301,000704: # BESTI, BESTJ -- SINGLE PREC, INTEGERS, STAR NUMBERS TIMES 6
031302,000705: # VFLAG -- FLAG BIT SET IMPLIES NO STARS IN FIELD OF VIEW
031303,000706:
031304,000707: # INITIALIZATION
031305,000708: # 1) A CALL TO LOCSAM MUST BE MADE
031306,000709: # 2) VEARTH = -UNIT(R) WHERE R HAS BEEN UPDATED TO APPROXIMATE TIME OF
031307,000710: # SIGHTINGS.
031308,000711:
031309,000712: # DEBRIS
031310,000713: # WORK AREA
031311,000714: # X,Y,ZNB
031312,000715: # SINCDU, COSCDU
031313,000716: # STARAD -- STAR +5
031314,000717:
031315,000718: 15,2203 COUNT 14/PICAP
031316,000719:
031317,000720: 14,2000 SETLOC P50S1
031318,000721: 14,2000 BANK
031319,000722: 14,2324 04604 PICAPAR TC MAKECADR
031320,000723: 14,2325 55777 TS QMIN
031321,000724: 14,2326 06006 TC INTPRET
031322,000725: 14,2327 77624 CALL
031323,000726: 14,2330 47432 CDUTRIG
031324,000727: 14,2331 77624 CALL
031325,000728: 14,2332 34567 CALCSMSC
031326,000729: # Page 713
031327,000730: 14,2333 77601 SETPD
031328,000731: 14,2334 00001 0
031329,000732: 14,2335 71214 SET DLOAD # VFLAG = 1
031330,000733: 14,2336 01465 VFLAG
031331,000734: 14,2337 11456 DPZERO
031332,000735: 14,2340 24303 STOVL BESTI
031333,000736: 14,2341 02714 XNB
031334,000737: 14,2342 63361 VXSC PDVL
031335,000738: 14,2343 30502 SIN33
031336,000739: 14,2344 02730 ZNB
031337,000740: 14,2345 74370 AXT,1 VXSC
031338,000741: 14,2346 00344 228D # X1 = 37 X 6 + 6
031339,000742: 14,2347 30504 COS33
031340,000743: 14,2350 77655 VAD
031341,000744: 14,2351 53505 VXM UNIT
031342,000745: 14,2352 01736 REFSMMAT
031343,000746: 14,2353 02760 STORE SAX # SAX = SHAFT AXIS
031344,000747: 14,2354 66331 SSP SSP # S1 = S2 = 6
031345,000748: 14,2355 00051 S1
031346,000749: 14,2356 00006 6
031347,000750: 14,2357 00052 S2
031348,000751: 14,2360 00006 6
031349,000752: 14,2361 52100 PIC1 TIX,1 GOTO # MAJOR STAR
031350,000753: 14,2362 30364 PIC2
031351,000754: 14,2363 30513 PICEND
031352,000755: 14,2364 45173 PIC2 VLOAD* CALL
031353,000756: 14,2365 31744 CATLOG,1
031354,000757: 14,2366 30457 OCCULT
031355,000758: 14,2367 73014 BON LXA,2
031356,000759: 14,2370 01710 CULTFLAG
031357,000760: 14,2371 30361 PIC1
031358,000761: 14,2372 00046 X1
031359,000762: 14,2373 52104 PIC3 TIX,2 GOTO
031360,000763: 14,2374 30376 PIC4
031361,000764: 14,2375 30361 PIC1
031362,000765: 14,2376 45173 PIC4 VLOAD* CALL
031363,000766: 14,2377 46033 CATLOG,2
031364,000767: 14,2400 30457 OCCULT
031365,000768: 14,2401 76614 BON VLOAD*
031366,000769: 14,2402 01710 CULTFLAG
031367,000770: 14,2403 30373 PIC3
031368,000771: 14,2404 31744 CATLOG,1
031369,000772: 14,2405 45237 DOT* DSU
031370,000773: 14,2406 46033 CATLOG,2
031371,000774: 14,2407 30506 CSS66 # SEPARATION LESS THAN 66 DEG.
031372,000775: 14,2410 43240 BMN DAD
031373,000776: 14,2411 30373 PIC3
031374,000777: 14,2412 30510 CSS6640 # SEPARATION MORE THAN 40 DEG.
031375,000778: 14,2413 77644 BPL
031376,000779: 14,2414 30373 PIC3
031377,000780: # Page 714
031378,000781: 14,2415 50373 VLOAD* DOT
031379,000782: 14,2416 31744 CATLOG,1
031380,000783: 14,2417 02760 SAX
031381,000784: 14,2420 50025 DSU BMN # MAJOR STAR IN CONE
031382,000785: 14,2421 30512 CSS33
031383,000786: 14,2422 30361 PIC1
031384,000787: 14,2423 50373 VLOAD* DOT
031385,000788: 14,2424 46033 CATLOG,2
031386,000789: 14,2425 02760 SAX
031387,000790: 14,2426 51025 DSU BPL
031388,000791: 14,2427 30512 CSS33
031389,000792: 14,2430 30433 STRATGY
031390,000793: 14,2431 77650 GOTO
031391,000794: 14,2432 30373 PIC3
031392,000795: 14,2433 77614 STRATGY BONCLR
031393,000796: 14,2434 01605 VFLAG
031394,000797: 14,2435 30452 NEWPAR
031395,000798: 14,2436 65120 XCHX,1 XCHX,2
031396,000799: 14,2437 00302 BESTI
031397,000800: 14,2440 00303 BESTJ
031398,000801: 14,2441 47773 STRAT VLOAD* DOT*
031399,000802: 14,2442 31744 CATLOG,1
031400,000803: 14,2443 46033 CATLOG,2
031401,000804: 14,2444 43006 PUSH BOFINV
031402,000805: 14,2445 01545 VFLAG
031403,000806: 14,2446 30436 STRAT -3
031404,000807: 14,2447 45345 DLOAD DSU
031405,000808: 14,2450 77644 BPL
031406,000809: 14,2451 30373 PIC3
031407,000810: 14,2452 67130 NEWPAR SXA,1 SXA,2
031408,000811: 14,2453 00302 BESTI
031409,000812: 14,2454 00303 BESTJ
031410,000813: 14,2455 77650 GOTO
031411,000814: 14,2456 30373 PIC3
031412,000815: 14,2457 51321 OCCULT MXV BVSU
031413,000816: 14,2460 02736 CULTRIX
031414,000817: 14,2461 00017 CSS
031415,000818: 14,2462 77654 BZE
031416,000819: 14,2463 30476 CULTED
031417,000820: 14,2464 75240 BMN SIGN
031418,000821: 14,2465 30476 CULTED
031419,000822: 14,2466 00160 MPAC +3
031420,000823: 14,2467 75240 BMN SIGN
031421,000824: 14,2470 30476 CULTED
031422,000825: 14,2471 00162 MPAC +5
031423,000826: 14,2472 43040 BMN CLRGO
031424,000827: 14,2473 30476 CULTED
031425,000828: 14,2474 01630 CULTFLAG
031426,000829: 14,2475 00052 QPRET
031427,000830: 14,2476 77614 CULTED SETGO
031428,000831: # Page 715
031429,000832: 14,2477 01430 CULTFLAG
031430,000833: 14,2500 00052 QPRET
031431,000834: 14,2501 0000016 CSS = CEARTH
031432,000835: 14,2501 21150 25157 SIN33 2DEC .5376381241
031433,000836: 14,2503 32766 22713 COS33 2DEC .8431756920
031434,000837: 14,2505 01736 35137 CSS66 2DEC .060480472 # (COS76)/4
031435,000838: 14,2507 73003 65403 CSS6640 2DEC -.15602587 # (COS76 - COS30)/4
031436,000839: 14,2511 06233 26112 CSS33 2DEC .197002688 # (COS(1/2(76))/4
031437,000840:
031438,000841: 14,2513 77414 PICEND BOFF EXIT
031439,000842: 14,2514 01745 VFLAG
031440,000843: 14,2515 30517 PICGXT
031441,000844: 14,2516 02521 TC PICBXT
031442,000845: 14,2517 77776 PICGXT EXIT
031443,000846: 14,2520 25777 INCR QMIN
031444,000847: 14,2521 31777 PICBXT CA QMIN
031445,000848: 14,2522 04561 TC SWCALL
031446,000849: # V1 = 12D
031447,000850:
031448,000851: # Page 716
031449,000852: # NAME -- R51 FINE ALIGN
031450,000853: # FUNCTION -- TO ALIGN THE STABLE MEMBER TO REFSSMAT
031451,000854: # CALLING SEQ -- CALL R51
031452,000855: # INPUT -- BESTI, BESTJ (PAIR OF STAR NO)
031453,000856: # OUTPUT -- GYRO TORQUE PULSES
031454,000857: # SUBROUTINES -- R52, R54, R55 (SXTNB, NBSM, AXISGEN)
031455,000858:
031456,000859: 14,2523 COUNT 14/R51
031457,000860:
031458,000861: 14,2523 77776 R51 EXIT
031459,000862: 14,2524 34712 CAF BIT1
031460,000863: 14,2525 54304 TS STARIND
031461,000864: 14,2526 54301 TS MARKINDX
031462,000865: 14,2527 06006 R51.2 TC INTPRET
031463,000866: 14,2530 43014 R51.3 CLEAR CLEAR
031464,000867: 14,2531 00666 TARG2FLG
031465,000868: 14,2532 00665 TARG1FLG
031466,000869: 14,2533 77776 EXIT
031467,000870: 14,2534 05301 TC PHASCHNG
031468,000871: 14,2535 05024 OCT 05024 # RESTART GR 4 FOR R52-R53
031469,000872: 14,2536 13000 OCT 13000
031470,000873: 14,2537 50304 INDEX STARIND
031471,000874: 14,2540 30302 CA BESTI
031472,000875: 14,2541 00006 EXTEND
031473,000876: 14,2542 72701 MP 1/6TH
031474,000877: 14,2543 54735 TS STARCODE
031475,000878: 14,2544 32700 CAF V01N70
031476,000879: 14,2545 04555 TC BANKCALL
031477,000880: 14,2546 20763 CADR GOFLASHR
031478,000881: 14,2547 04106 TC GOTOP00H
031479,000882: 14,2550 02555 TC +5
031480,000883: 14,2551 02544 TC -5
031481,000884: 14,2552 36211 CAF SIX
031482,000885: 14,2553 05415 TC BLANKET
031483,000886: 14,2554 15112 TCF ENDOFJOB
031484,000887: 14,2555 06006 TC INTPRET
031485,000888: 14,2556 45034 RTB CALL
031486,000889: 14,2557 45505 LOADTIME
031487,000890: 14,2560 32363 PLANET
031488,000891: 14,2561 72131 SSP LXA,1
031489,000892: 14,2562 00051 S1
031490,000893: 14,2563 00000 0
031491,000894: 14,2564 00304 STARIND
031492,000895: 14,2565 77700 TIX,1
031493,000896: 14,2566 30571 R51ST
031494,000897: 14,2567 36617 STCALL STARSAV2 # 2ND STAR
031495,000898: 14,2570 30572 R51ST +1
031496,000899: 14,2571 02611 R51ST STORE STARSAV1 # 1ST STAR
031497,000900: 14,2572 77776 EXIT
031498,000901: 14,2573 41011 CS MODREG # IS THIS P54
031499,000902: 14,2574 62677 AD OCT66
031500,000903: # Page 717
031501,000904: 14,2575 00006 EXTEND
031502,000905: 14,2576 12672 BZF R51B # YES
031503,000906: 14,2577 06006 TC INTPRET
031504,000907: 14,2600 77624 CALL
031505,000908: 14,2601 30002 R52 # AOP WILL MAKE CALLS TO SIGHTING
031506,000909: 14,2602 77624 R51A CALL
031507,000910: 14,2603 31266 SXTSM
031508,000911: 14,2604 02617 STORE STARSAV2
031509,000912: 14,2605 77776 EXIT
031510,000913: 14,2606 04555 TC BANKCALL
031511,000914: 14,2607 16063 CADR MKRELEAS
031512,000915: 14,2610 06006 TC INTPRET
031513,000916: 14,2611 45145 DLOAD CALL
031514,000917: 14,2612 02607 TSIGHT
031515,000918: 14,2613 32363 PLANET
031516,000919: 14,2614 77776 EXIT
031517,000920: 14,2615 10304 CCS STARIND
031518,000921: 14,2616 02657 TC R51.4
031519,000922: 14,2617 06006 TC INTPRET
031520,000923: 14,2620 53521 MXV UNIT
031521,000924: 14,2621 01736 REFSMMAT
031522,000925: 14,2622 02736 STORE STARAD
031523,000926: 14,2623 77775 VLOAD
031524,000927: 14,2624 02617 STARSAV2
031525,000928: 14,2625 24007 STOVL 6D
031526,000929: 14,2626 02611 STARSAV1
031527,000930: 14,2627 24015 STOVL 12D
031528,000931: 14,2630 02601 PLANVEC
031529,000932: 14,2631 36744 STCALL STARAD +6
031530,000933: 14,2632 30702 R54 # STAR DATA TEST
031531,000934: 14,2633 45014 BOFF CALL
031532,000935: 14,2634 00354 FREEFLAG
031533,000936: 14,2635 30643 R51K
031534,000937: 14,2636 47334 AXISGEN
031535,000938: 14,2637 77624 CALL
031536,000939: 14,2640 32203 R55 # GYRO TORQUE
031537,000940: 14,2641 77614 CLEAR
031538,000941: 14,2642 01273 PFRATFLG
031539,000942: 14,2643 77776 R51K EXIT
031540,000943: 14,2644 35656 CAF OCT14
031541,000944: 14,2645 04555 TC BANKCALL
031542,000945: 14,2646 20751 CADR GOPERF1
031543,000946: 14,2647 04106 TC GOTOP00H
031544,000947: 14,2650 02652 TC +2 # V33
031545,000948: 14,2651 02654 TC +3
031546,000949: 14,2652 04555 TC BANKCALL
031547,000950: 14,2653 32120 CADR P52C
031548,000951: 14,2654 06006 TC INTPRET
031549,000952: 14,2655 77650 GOTO
031550,000953: 14,2656 32143 ENDP50S
031551,000954:
031552,000955: # Page 718
031553,000956: 14,2657 06006 R51.4 TC INTPRET
031554,000957: 14,2660 53521 MXV UNIT
031555,000958: 14,2661 01736 REFSMMAT
031556,000959: 14,2662 26601 STOVL PLANVEC
031557,000960: 14,2663 02617 STARSAV2
031558,000961: 14,2664 02611 STORE STARSAV1
031559,000962: 14,2665 77731 SSP
031560,000963: 14,2666 00305 STARIND
031561,000964: 14,2667 00000 0
031562,000965: 14,2670 77650 GOTO
031563,000966: 14,2671 30530 R51.3
031564,000967: 14,2672 06006 R51B TC INTPRET
031565,000968: 14,2673 77624 CALL
031566,000969: 14,2674 32252 R56
031567,000970: 14,2675 77650 GOTO
031568,000971: 14,2676 30602 R51A
031569,000972: 14,2677 00066 OCT66 OCT 00066
031570,000973: 14,2700 00306 V01N70 VN 0170
031571,000974: 14,2701 05253 1/6TH DEC .1666667
031572,000975:
031573,000976: # Page 719
031574,000977: # NAME: R55 GYRO TORQUE
031575,000978: # FUNCTION -- COMPUTE AND SEND GYRO PULSES
031576,000979: # CALLING SEQ -- CALL R55
031577,000980: # INPUT -- X,Y,ZDC -- REFSMMAT WRT PRESENT STABLE MEMBER
031578,000981: # OUTPUT -- GYRO PULSES
031579,000982: # SUBROUTINES -- CALCGTA, GOFLASH, GODSPR, IMUFINE, IMUPULSE, GOPERF1
031580,000983:
031581,000984: 15,2000 SETLOC P50S
031582,000985: 15,2000 BANK
031583,000986: 15,2203 COUNT* $$/R55
031584,000987:
031585,000988: 15,2203 77620 R55 STQ
031586,000989: 15,2204 02777 QMIN
031587,000990: 15,2205 77624 CALL
031588,000991: 15,2206 47140 CALCGTA
031589,000992: 15,2207 77776 PULSEM EXIT
031590,000993: 15,2210 32234 R55.1 CAF V06N93
031591,000994: 15,2211 04555 TC BANKCALL
031592,000995: 15,2212 20624 CADR GOFLASH
031593,000996: 15,2213 04106 TC GOTOP00H
031594,000997: 15,2214 02216 TC R55.2
031595,000998: 15,2215 02231 TC R55RET
031596,000999: 15,2216 05301 R55.2 TC PHASCHNG
031597,001000: 15,2217 00314 OCT 00314
031598,001001: 15,2220 32235 CA R55CDR
031599,001002: 15,2221 04555 TC BANKCALL
031600,001003: 15,2222 17125 CADR IMUPULSE
031601,001004: 15,2223 04555 TC BANKCALL
031602,001005: 15,2224 17516 CADR IMUSTALL
031603,001006: 15,2225 05644 TC CURTAINS
031604,001007: 15,2226 05301 TC PHASCHNG
031605,001008: 15,2227 05024 OCT 05024
031606,001009: 15,2230 13000 OCT 13000
031607,001010:
031608,001011: 15,2231 06006 R55RET TC INTPRET
031609,001012: 15,2232 77650 GOTO
031610,001013: 15,2233 02777 QMIN
031611,001014: 15,2234 01535 V06N93 VN 0693
031612,001015: 15,2235 02757 R55CDR ECADR OGC
031613,001016: 15,2236 14,2702 R54 = CHKSDATA
031614,001017:
031615,001018: # ROUTINE NAME -- CHKSDATA DATE -- JAN 9, 1967
031616,001019: # MOD NO -- 0 LOG SECTION -- P51-P53
031617,001020: # MODIFICATION BY -- LONSKE ASSEMBLY --
031618,001021:
031619,001022: # FUNCTIONAL DESCRIPTION -- CHECKS THE VALIDITY OF A PAIR OF STAR SIGHTINGS. WHEN A PAIR OF STAR SIGHTINGS ARE MADE
031620,001023: # BY THE ASTRONAUT THIS ROUTINE OPERATES AND CHECKS THE OBSERVED SIGHTINGS AGAINS STORED STAR VECTORS IN THE
031621,001024: # COMPUTER TO INSURE A PROPER SIGHTING WAS MADE. THE FOLLOWING COMPUTATIONS ARE PERFORMED --
031622,001025: # OS1 = OBSERVED STAR 1 VECTOR
031623,001026: # OS2 = OBSERVED STAR 2 VECTOR
031624,001027: # SS1 = STORED STAR 1 VECTOR
031625,001028: # SS2 = STORED STAR 2 VECTOR
031626,001029: # A1 = ARCCOS(OS1 - OS2)
031627,001030: # Page 720
031628,001031: # A2 = ARCCOS(SS1 - SS2)
031629,001032: # A = ABS(2(A1 - A2))
031630,001033: # THE ANGULAR DIFFERENCE IS DISPLAYED FOR ASTRONAUT ACCEPTANCE.
031631,001034:
031632,001035: # EXIT MODE -- 1. FREEFLAG SET IMPLIES ASTRONAUT WANTS TO PROCEED
031633,001036: # 2. FREEFLAT REST IMPLIES ASTRONAUT WANTS TO RECYCLE
031634,001037:
031635,001038: # OUTPUT -- 1. VERB 6,NOUN 3 -- DISPLAYS ANGULAR DIFFERENCE BETWEEN 2 SETS OF STARS.
031636,001039: # 2. STAR VECTORS FROM STAR CATALOG ARE LEFT IN 6D AND 12D.
031637,001040:
031638,001041: # ERASABLE INITIALIZATION REQUIRED --
031639,001042: # 1. MARK VECTORS ARE STORED IN STARAD AND STARAD +6.
031640,001043: # 2. CATALOG VECTORS ARE STORED IN 6D AND 12D.
031641,001044:
031642,001045: # DEBRIS --
031643,001046:
031644,001047: 14,2000 SETLOC P50S1
031645,001048: 14,2000 BANK
031646,001049: 14,2702 COUNT* $$/R50
031647,001050:
031648,001051: 14,2702 43020 CHKSDATA STQ SET
031649,001052: 14,2703 02777 QMIN
031650,001053: 14,2704 00074 FREEFLAG
031651,001054: 14,2705 77760 CHKSAB AXC,1 # SET X1 TO STORE EPHEMERIS DATA
031652,001055: 14,2706 02735 STARAD
031653,001056:
031654,001057: 14,2707 47773 CHKSB VLOAD* DOT* # CAL. ANGLE THETA
031655,001058: 14,2710 00001 0,1
031656,001059: 14,2711 00007 6,1
031657,001060: 14,2712 65552 SL1 ACOS
031658,001061: 14,2713 00025 STORE THETA
031659,001062: 14,2714 43014 BOFF INVERT # BRANCH TO CHKSD IF THIS IS 2ND PASS
031660,001063: 14,2715 00354 FREEFLAG
031661,001064: 14,2716 30726 CHKSD
031662,001065: 14,2717 00174 FREEFLAG # CLEAR FREEFLAG
031663,001066: 14,2720 71360 AXC,1 DLOAD # SET X1 TO MARK ANGLES
031664,001067: 14,2721 00006 6D
031665,001068: 14,2722 00025 THETA
031666,001069: 14,2723 00023 STORE 18D
031667,001070: 14,2724 77650 GOTO
031668,001071: 14,2725 30707 CHKSB # RETURN TO CAL. 2ND ANGLE
031669,001072: 14,2726 45345 CHKSD DLOAD DSU
031670,001073: 14,2727 00025 THETA # COMPUTE POS DIFF
031671,001074: 14,2730 00023 18D
031672,001075: 14,2731 47046 ABS RTB
031673,001076: 14,2732 45541 SGNAGREE
031674,001077: 14,2733 01046 STORE NORMTEM1
031675,001078: 14,2734 77414 SET EXIT
031676,001079: 14,2735 00074 FREEFLAG
031677,001080: 14,2736 34714 CAF ZERO
031678,001081: 14,2737 04555 TC BANKCALL
031679,001082: 14,2740 20607 CADR CLEANDSP
031680,001083:
031681,001084: 14,2741 32755 CAF VB6N5
031682,001085: # Page 721
031683,001086: 14,2742 04555 TC BANKCALL
031684,001087: 14,2743 20624 CADR GOFLASH
031685,001088: 14,2744 14106 TCF GOTOP00H
031686,001089: 14,2745 02752 TC CHKSDA # PROCEED
031687,001090: 14,2746 06006 TC INTPRET
031688,001091: 14,2747 52014 CLEAR GOTO
031689,001092: 14,2750 00274 FREEFLAG
031690,001093: 14,2751 02777 QMIN
031691,001094: 14,2752 06006 CHKSDA TC INTPRET
031692,001095: 14,2753 77650 GOTO
031693,001096: 14,2754 02777 QMIN
031694,001097: 14,2755 01405 VB6N5 VN 605
031695,001098:
031696,001099: # NAME -- CAL53A
031697,001100: # FUNCTION -- COARSE ALIGN THE IMU, IF NECESSARY
031698,001101: # CALLING SEQUENCE -- CALL CAL53A
031699,001102: # INPUT -- PRESENT GIMBAL ANGLES -- CDUX, CDUY, CDUZ
031700,001103: # DESIRED GIMBAL ANGLES -- THETAD,+1,+2
031701,001104: # OUTPUT -- THE IMU COORDINATES AT STORED IN REFSMMAT
031702,001105: # SUBROUTINES -- 1.IMUCOARS, 2.IMUSTALL, 3CURTAINS
031703,001106:
031704,001107: 14,2756 COUNT 14/R50
031705,001108:
031706,001109: 14,2756 45020 CAL53A STQ CALL
031707,001110: 14,2757 00035 29D
031708,001111: 14,2760 22256 S52.2 # MAKE ONE FINAL COMP OF GIMBAL ANGLES
031709,001112: 14,2761 66234 RTB SSP
031710,001113: 14,2762 32236 RDCDUS # READ CDUS
031711,001114: 14,2763 00051 S1
031712,001115: 14,2764 00001 1
031713,001116: 14,2765 40370 AXT,1 SETPD
031714,001117: 14,2766 00003 3
031715,001118: 14,2767 00005 4
031716,001119: 14,2770 70543 CALOOP DLOAD* SR1
031717,001120: 14,2771 01161 THETAD +3D,1
031718,001121: 14,2772 70523 PDDL* SR1
031719,001122: 14,2773 00005 4,1
031720,001123: 14,2774 51425 DSU ABS
031721,001124: 14,2775 45206 PUSH DSU
031722,001125: 14,2776 31053 DEGREE1
031723,001126: 14,2777 71240 BMN DLOAD
031724,001127: 14,3000 31027 CALOOP1
031725,001128: 14,3001 51025 DSU BPL
031726,001129: 14,3002 31054 DEG359
031727,001130: 14,3003 31027 CALOOP1
031728,001131: 14,3004 77776 COARFINE EXIT
031729,001132: 14,3005 04555 TC BANKCALL
031730,001133: 14,3006 16602 CADR IMUCOARS # PERFORM COARSE ALIGNMENT
031731,001134: 14,3007 04555 TC BANKCALL
031732,001135: 14,3010 17516 CADR IMUSTALL # REQUEST MODE SWITCH
031733,001136: 14,3011 05644 TC CURTAINS
031734,001137: # Page 722
031735,001138: 14,3012 04555 TC BANKCALL
031736,001139: 14,3013 17012 CADR IMUFIN20
031737,001140: 14,3014 04555 TC BANKCALL
031738,001141: 14,3015 17516 CADR IMUSTALL
031739,001142: 14,3016 05644 TC CURTAINS # TEST FOR MALFUNCTION
031740,001143: 14,3017 06006 TC INTPRET
031741,001144: 14,3020 77234 RTB VLOAD
031742,001145: 14,3021 31263 SET1/PDT
031743,001146: 14,3022 11456 ZEROVEC
031744,001147: 14,3023 01472 STORE GCOMP
031745,001148: 14,3024 52014 SET GOTO
031746,001149: 14,3025 01060 DRIFTFLG
031747,001150: 14,3026 31031 FINEONLY
031748,001151: 14,3027 77700 CALOOP1 TIX,1
031749,001152: 14,3030 30770 CALOOP
031750,001153: 14,3031 75160 FINEONLY AXC,1 AXC,2
031751,001154: 14,3032 02671 XSM
031752,001155: 14,3033 01735 REFSMMAT
031753,001156: 14,3034 77624 CALL
031754,001157: 14,3035 31040 MATMOVE
031755,001158: 14,3036 77650 GOTO
031756,001159: 14,3037 00035 29D
031757,001160: 14,3040 77773 MATMOVE VLOAD* # TRANSFER MATRIX
031758,001161: 14,3041 00001 0,1
031759,001162: 14,3042 10001 STORE 0,2
031760,001163: 14,3043 77773 VLOAD*
031761,001164: 14,3044 00007 6D,1
031762,001165: 14,3045 10007 STORE 6D,2
031763,001166: 14,3046 77773 VLOAD*
031764,001167: 14,3047 00015 12D,1
031765,001168: 14,3050 10015 STORE 12D,2
031766,001169: 14,3051 77616 RVQ
031767,001170: 14,3052 00056 DEGREE1 DEC 46 B-14
031768,001171: 14,3053 37722 DEG359 DEC 16338 B-14
031769,001172: 15,2000 SETLOC P50S
031770,001173: 15,2000 BANK
031771,001174: 15,2236 00004 RDCDUS INHINT # READ CDUS
031772,001175: 15,2237 30032 CA CDUX
031773,001176: 15,2240 50120 INDEX FIXLOC
031774,001177: 15,2241 54001 TS 1
031775,001178: 15,2242 30033 CA CDUY
031776,001179: 15,2243 50120 INDEX FIXLOC
031777,001180: 15,2244 54002 TS 2
031778,001181: 15,2245 30034 CA CDUZ
031779,001182: 15,2246 50120 INDEX FIXLOC
031780,001183: 15,2247 54003 TS 3
031781,001184: 15,2250 00003 RELINT
031782,001185: 15,2251 06030 TC DANZIG
031783,001186:
031784,001187: # NAME: GIMB
031785,001188:
031786,001189: # FUNCTION: DETERMINE AND COMPUTE THE DESIRED GIMBAL ANGLES TO BE USED FOR COARSE ALIGNMENT.
031787,001190: # Page 723
031788,001191:
031789,001192: # CALLING SEQUENCE: CALL GIMB
031790,001193:
031791,001194: # INPUT: DESIRED IMU INERTIAL ORIENTATION VECTORS: XSMD, YSMD, ZSMD
031792,001195:
031793,001196: # OUTPUT: GIMBAL ANGLES LEFT IN THETAD, +1, +2
031794,001197:
031795,001198: # SUBROUTINES USED: 1.CDUTRIG 2.CALCSMSC 3.CALCGA
031796,001199:
031797,001200: 16,2000 SETLOC P50S2
031798,001201: 16,2000 BANK
031799,001202: 16,2567 COUNT 14/INFLT
031800,001203:
031801,001204: 16,2567 41345 CALCSMSC DLOAD DMP
031802,001205: 16,2570 00737 SINCDUY
031803,001206: 16,2571 00747 COSCDUZ
031804,001207: 16,2572 77676 DCOMP
031805,001208: 16,2573 70525 PDDL SR1
031806,001209: 16,2574 00741 SINCDUZ
031807,001210: 16,2575 41325 PDDL DMP
031808,001211: 16,2576 00745 COSCDUY
031809,001212: 16,2577 00747 COSCDUZ
031810,001213: 16,2600 76466 VDEF VSL1
031811,001214: 16,2601 02714 STORE XNB
031812,001215: 16,2602 41345 DLOAD DMP
031813,001216: 16,2603 00743 SINCDUX
031814,001217: 16,2604 00741 SINCDUZ
031815,001218: 16,2605 77752 SL1
031816,001219: 16,2606 00033 STORE 26D
031817,001220: 16,2607 77605 DMP
031818,001221: 16,2610 00737 SINCDUY
031819,001222: 16,2611 41325 PDDL DMP
031820,001223: 16,2612 00751 COSCDUX
031821,001224: 16,2613 00745 COSCDUY
031822,001225: 16,2614 77625 DSU
031823,001226: 16,2615 41325 PDDL DMP
031824,001227: 16,2616 00743 SINCDUX
031825,001228: 16,2617 00747 COSCDUZ
031826,001229: 16,2620 77676 DCOMP
031827,001230: 16,2621 41325 PDDL DMP
031828,001231: 16,2622 00751 COSCDUX
031829,001232: 16,2623 00737 SINCDUY
031830,001233: 16,2624 41325 PDDL DMP
031831,001234: 16,2625 00745 COSCDUY
031832,001235: 16,2626 00033 26D
031833,001236: 16,2627 55415 DAD VDEF
031834,001237: 16,2630 77772 VSL1
031835,001238: 16,2631 02730 STORE ZNB
031836,001239: 16,2632 76435 VXV VSL1
031837,001240: 16,2633 02714 XNB
031838,001241: 16,2634 02722 STORE YNB
031839,001242: 16,2635 77616 RVQ
031840,001243:
031841,001244: # NAME -- P51 -- IMU ORIENTATION DETERMINATION
031842,001245: # MOD. NO. 2 21 DEC 66 LOG SECTION -- P51-P53
031843,001246: # MOD BY STURLAUGSON ASSEMBLY SUNDISK REV15
031844,001247: # Page 724
031845,001248:
031846,001249: # FUNCTIONAL DESCRIPTION
031847,001250: # DETERMINES THE INERTIAL ORIENTATION OF THE IMU. THE PROGRAM IS SELECTED BY DSKY ENTRY. THE SIGHTING
031848,001251: # ROUTINE IS CALLED TO COLLECT THE CDU COUNTERS AND SHAFT AND TRUNNION ANGLES FOR A SIGHTED STAR. THE DATA IS
031849,001252: # THEN PROCESSED AS FOLLOWS.
031850,001253:
031851,001254: # 1. SEXTANT ANGLES ARE COMPUTED IN TERMS OF NAVIGTIONAL BASE COORDINATES. LET SA AND TA BE THE SHAFT AND
031852,001255: # TRUNNION ANGLES, RESPECTIVELY. THEN,
031853,001256: # _
031854,001257: # V = (SIN(TA)*COS(SA), SIN(TA)*SIN(SA), COS(TA)) (A COLUMN VECTOR)
031855,001258:
031856,001259: # THE OUTPUT IS A HALF-UNIT VECTOR STORED IN STARM.
031857,001260:
031858,001261: # 2. THIS VECTOR IN NAV. BASE COORDS. IS THEN TRANSFORMED TO ONE IN STABLE MEMBER COORDINATES.
031859,001262: # _ T T T _
031860,001263: # V = Q *Q *Q *V , WHERE
031861,001264: # 1 2 3 NB
031862,001265:
031863,001266: # ( COS(IG) 0 -SIN(IG) )
031864,001267: # ( ) THE GIMBAL ANGLES ARE COMPUTED FROM
031865,001268: # Q = ( 0 1 0 ), IG= INNER GIMBAL ANGLE THE CDU COUNTERS AT NBSM (USING AXIS-
031866,001269: # 1 ( ) ROT AND CDULOGIC)
031867,001270: # ( SIN(IG) 0 COS(IG) )
031868,001271:
031869,001272: # ( COS(MG) SIN(MG) 0 )
031870,001273: # ( )
031871,001274: # Q = (-SIN(MG) COS(MG) 0 ), MG= MIDDLE GIMBAL ANGLE
031872,001275: # 2 ( )
031873,001276: # ( 0 0 1 )
031874,001277:
031875,001278: # ( 1 0 0 )
031876,001279: # ( )
031877,001280: # Q = ( 0 COS(OG) SIN(OG) ), OG= OUTER GIMBAL ANGLE
031878,001281: # 3 ( )
031879,001282: # ( 0 -SIN(OG) COS(OG) )
031880,001283:
031881,001284: # 3. THE STAR NUMBER IS SAVED AND THE SECOND STAR IS THEN SIMILARLY PROCESSED.
031882,001285:
031883,001286: # 4. THE ANGLE BETWEEN THE TWO STARS IS THEN CHECKED AT CKSDATA.
031884,001287:
031885,001288: # 5. REFSMMAT IS THEN COMPUTED AT AXISGEN AS FOLLOWS.
031886,001289: # _ _
031887,001290: # LET S AND S BE TWO STAR VECTORS EXPRESSED IN TWO COORDINATE SYSTEMS, A AND B (BASIC AND STABLE MEMBER).
031888,001291: # 1 2
031889,001292: # DEFINE,
031890,001293: # Page 725
031891,001294: # _
031892,001295: # U = S
031893,001296: # A A1
031894,001297: # _ _ _
031895,001298: # V = UNIT(S x S )
031896,001299: # A A1 A2
031897,001300: # _ _ _
031898,001301: # W = U x V
031899,001302: # A A A
031900,001303:
031901,001304: # AND,
031902,001305: # _ _
031903,001306: # U = S
031904,001307: # B B1
031905,001308: # _ _ _
031906,001309: # V = UNIT(S x S )
031907,001310: # B B1 B2
031908,001311: # _ _ _
031909,001312: # W = U x V
031910,001313: # B B B
031911,001314:
031912,001315: # THEN
031913,001316: # _ _ _ _
031914,001317: # X = U *U + V *V + W *W
031915,001318: # B1 A B1 A B1 A
031916,001319: # _ _ _ _
031917,001320: # Y = U *U + V *V + W *W (REFSMMAT)
031918,001321: # B2 A B2 A B2 A
031919,001322: # _ _ _ _
031920,001323: # Z = U *U + V *V + W *W
031921,001324: # B3 A B3 A B3 A
031922,001325:
031923,001326: # THE INPUTS CONSIST OF THE FOUR HALF-UNIT VECTORS STORED AS FOLLOWS
031924,001327: # _
031925,001328: # S IN 6-11 OF THE VAC AREA
031926,001329: # A1
031927,001330: # _
031928,001331: # S IN 12-17 OF THE VAC AREA
031929,001332: # A2
031930,001333: # _
031931,001334: # S IN STARAD
031932,001335: # B1
031933,001336: # Page 726
031934,001337: # _
031935,001338: # S IN STARAD +6
031936,001339: # B2
031937,001340:
031938,001341: # CALLING SEQUENCE:
031939,001342:
031940,001343: # THE PROGRAM IS CALLED BY THE ASTRONAUT BY DSKY ENTRY.
031941,001344:
031942,001345: # SUBROUTINES CALLED:
031943,001346:
031944,001347: # GOPERF3
031945,001348: # GOPERF1R
031946,001349: # GODSPR
031947,001350: # IMUCOARS
031948,001351: # IMUFIN20
031949,001352: # R53
031950,001353: # SXTNB
031951,001354: # NBSM
031952,001355: # MKRELEAS
031953,001356: # CHKSDATA
031954,001357: # MATMOVE
031955,001358:
031956,001359: # ALARMS
031957,001360:
031958,001361: # NONE
031959,001362:
031960,001363: # ERASABLE INITIALIZATION:
031961,001364:
031962,001365: # IMU ZERO FLAG SHOULD BE SET.
031963,001366:
031964,001367: # OUTPUT
031965,001368:
031966,001369: # REFSMMAT
031967,001370: # REFSMFLG
031968,001371:
031969,001372: # DEBRIS
031970,001373:
031971,001374: # WORK AREA
031972,001375: # STARAD
031973,001376: # STARIND
031974,001377: # BESTI
031975,001378: # BESTJ
031976,001379:
031977,001380: 14,2000 SETLOC P50S1
031978,001381: 14,2000 BANK
031979,001382: 14,3054 COUNT 14/P5153
031980,001383:
031981,001384: 14,3054 14,3054 P53 EQUALS P51
031982,001385: 14,3054 41320 P51 CS IMODES30
031983,001386: 14,3055 74702 MASK BIT9
031984,001387: 14,3056 10000 CCS A
031985,001388: 14,3057 03063 TC P51A
031986,001389: # Page 727
031987,001390: 14,3060 05537 TC ALARM
031988,001391: 14,3061 00210 OCT 210
031989,001392: 14,3062 04106 TC GOTOP00H
031990,001393: 14,3063 04555 P51A TC BANKCALL
031991,001394: 14,3064 17607 CADR R02ZERO
031992,001395:
031993,001396: 14,3065 34720 P51AA CAF PRFMSTAQ
031994,001397: 14,3066 04555 TC BANKCALL
031995,001398: 14,3067 20751 CADR GOPERF1
031996,001399: 14,3070 04106 TC GOTOP00H # TERM.
031997,001400: 14,3071 03134 TC P51B # V33
031998,001401: 14,3072 05301 TC PHASCHNG
031999,001402: 14,3073 05024 OCT 05024
032000,001403: 14,3074 13000 OCT 13000
032001,001404:
032002,001405: 14,3075 34714 CAF P51ZERO
032003,001406: 14,3076 55155 TS THETAD # ZERO THE GIMBALS
032004,001407: 14,3077 55156 TS THETAD +1
032005,001408: 14,3100 55157 TS THETAD +2
032006,001409: 14,3101 33261 CAF V6N22
032007,001410: 14,3102 04555 TC BANKCALL
032008,001411: 14,3103 20577 CADR GODSPRET
032009,001412: 14,3104 33262 CAF V41K # NOW DISPLAY COARSE ALIGN VERB 41
032010,001413: 14,3105 04555 TC BANKCALL
032011,001414: 14,3106 20577 CADR GODSPRET
032012,001415: 14,3107 04555 TC BANKCALL
032013,001416: 14,3110 16602 CADR IMUCOARS
032014,001417: 14,3111 04555 TC BANKCALL
032015,001418: 14,3112 17516 CADR IMUSTALL
032016,001419: 14,3113 05644 TC CURTAINS # CAGING OR RAD END
032017,001420: 14,3114 04555 TC BANKCALL # SCHEDULE IFAILOK AND IMUFINED TASKS, IN 5
032018,001421: 14,3115 17012 CADR IMUFIN20 # AND 20 SECS. DIRECT RETURN AND NO STALL,
032019,001422: 14,3116 04555 TC BANKCALL # IF CAGING, BUT T4 WILL ZERO C/A ENABLE.
032020,001423: 14,3117 17516 CADR IMUSTALL # IF PUT TO SLEEP, IMUFINED WILL WAKE US
032021,001424: 14,3120 05644 TC CURTAINS # UP.
032022,001425: 14,3121 06006 TC INTPRET
032023,001426: 14,3122 77234 RTB VLOAD
032024,001427: 14,3123 31263 SET1/PDT
032025,001428: 14,3124 11456 ZEROVEC
032026,001429: 14,3125 01472 STORE GCOMP
032027,001430: 14,3126 77414 SET EXIT
032028,001431: 14,3127 01060 DRIFTFLG
032029,001432: 14,3130 05301 TC PHASCHNG
032030,001433: 14,3131 05024 OCT 05024
032031,001434: 14,3132 13000 OCT 13000
032032,001435: 14,3133 13065 TCF P51AA # COARSE ALIGN DONE: RECYCLE FOR FINE
032033,001436: # Page 728
032034,001437: # DO STAR SIGHTING AND COMPUTE NEW REFSMMAT
032035,001438: 14,3134 05301 P51B TC PHASCHNG
032036,001439: 14,3135 00014 OCT 00014
032037,001440: 14,3136 06006 TC INTPRET
032038,001441: 14,3137 40331 SSP SETPD
032039,001442: 14,3140 00305 STARIND # INDEX -- STAR 1 OR 2
032040,001443: 14,3141 00000 0
032041,001444: 14,3142 00001 0
032042,001445: 14,3143 77414 CLEAR EXIT
032043,001446: 14,3144 00666 TARG2FLG # SHOW START MARK, NOT LAND MARK
032044,001447: 14,3145 34712 CAF BIT1
032045,001448: 14,3146 54301 TS MARKINDX # INITIALIZE FOR ONE MARK
032046,001449:
032047,001450: 14,3147 05301 P51C TC PHASCHNG
032048,001451: 14,3150 05024 OCT 05024
032049,001452: 14,3151 13000 OCT 13000
032050,001453: 14,3152 05253 TC CHECKMM
032051,001454: 14,3153 00065 MM 53 B-14 # BACKUP PROGRAM
032052,001455: 14,3154 13162 TCF P51C.1 # NOT P53
032053,001456: 14,3155 06006 TC INTPRET
032054,001457: 14,3156 77624 CALL
032055,001458: 14,3157 32252 R56
032056,001459: 14,3160 77650 GOTO
032057,001460: 14,3161 31165 P51C.2
032058,001461: 14,3162 06006 P51C.1 TC INTPRET
032059,001462: 14,3163 77624 CALL
032060,001463: 14,3164 31322 R53 # SIGHTING ROUTINE
032061,001464: 14,3165 77624 P51C.2 CALL # COMPUTE LOS IN SM FROM MARK DATA
032062,001465: 14,3166 31266 SXTSM
032063,001466: 14,3167 77606 PUSH
032064,001467: 14,3170 53135 SLOAD BZE
032065,001468: 14,3171 00305 STARIND
032066,001469: 14,3172 31177 P51D
032067,001470: 14,3173 45575 VLOAD STADR
032068,001471: 14,3174 75160 STORE STARSAV2 # DOWNLINK
032069,001472: 14,3175 77650 GOTO
032070,001473: 14,3176 31205 P51E
032071,001474: 14,3177 45575 P51D VLOAD STADR
032072,001475: 14,3200 61166 STODL STARSAV1
032073,001476: 14,3201 02607 TSIGHT
032074,001477: 14,3202 77624 CALL
032075,001478: 14,3203 32363 PLANET
032076,001479: 14,3204 02601 STORE PLANVEC
032077,001480: 14,3205 77776 P51E EXIT
032078,001481: 14,3206 05301 TC PHASCHNG
032079,001482: 14,3207 05024 OCT 05024
032080,001483: 14,3210 13000 OCT 13000
032081,001484: 14,3211 04555 TC BANKCALL
032082,001485: 14,3212 16063 CADR MKRELEAS # ZERO MARKSTAT
032083,001486: # Page 729
032084,001487: 14,3213 10304 CCS STARIND
032085,001488: 14,3214 13223 TCF P51F # STAR 2
032086,001489: 14,3215 05301 TC PHASCHNG
032087,001490: 14,3216 05024 OCT 05024
032088,001491: 14,3217 13000 OCT 13000
032089,001492: 14,3220 34712 CAF BIT1
032090,001493: 14,3221 54304 TS STARIND
032091,001494: 14,3222 13147 TCF P51C # GO DO SECOND STAR
032092,001495: 14,3223 05301 P51F TC PHASCHNG
032093,001496: 14,3224 05024 OCT 05024
032094,001497: 14,3225 13000 OCT 13000
032095,001498: 14,3226 06006 TC INTPRET
032096,001499: 14,3227 45145 DLOAD CALL
032097,001500: 14,3230 02607 TSIGHT
032098,001501: 14,3231 32363 PLANET
032099,001502: 14,3232 24015 STOVL 12D
032100,001503: 14,3233 02601 PLANVEC
032101,001504: 14,3234 24007 STOVL 6D
032102,001505: 14,3235 02611 STARSAV1
032103,001506: 14,3236 26736 STOVL STARAD
032104,001507: 14,3237 02617 STARSAV2
032105,001508: 14,3240 36744 STCALL STARAD +6
032106,001509: 14,3241 30702 CHKSDATA # CHECK STAR ANGLES IN STARAD AND
032107,001510: 14,3242 77414 BON EXIT
032108,001511: 14,3243 00314 FREEFLAG
032109,001512: 14,3244 31246 P51G
032110,001513: 14,3245 03065 TC P51AA
032111,001514: 14,3246 77624 P51G CALL
032112,001515: 14,3247 47334 AXISGEN # COME BACK WITH REFSMMAT IN XDC
032113,001516: 14,3250 75160 AXC,1 AXC,2
032114,001517: 14,3251 02713 XDC
032115,001518: 14,3252 01735 REFSMMAT
032116,001519: 14,3253 45014 CLEAR CALL
032117,001520: 14,3254 01662 REFSMFLG
032118,001521: 14,3255 31040 MATMOVE
032119,001522: 14,3256 52014 SET GOTO
032120,001523: 14,3257 01462 REFSMFLG
032121,001524: 14,3260 32143 ENDP50S
032122,001525: 14,3261 4720 PRFMSTAQ = OCT15
032123,001526: 14,3261 4714 P51ZERO = ZERO
032124,001527: 14,3261 4715 P51FIVE = FIVE
032125,001528: 14,3261 01426 V6N22 VN 0622
032126,001529: 14,3262 12200 V41K VN 4100
032127,001530:
032128,001531: 14,3263 30025 SET1/PDT CA TIME1
032129,001532: 14,3264 55074 TS 1/PIPADT
032130,001533: 14,3265 16030 TCF DANZIG
032131,001534: # Page 730
032132,001535: 14,3266 77620 SXTSM STQ
032133,001536: 14,3267 00300 QMAJ
032134,001537: 14,3270 70740 LXC,1 DLOAD*
032135,001538: 14,3271 01330 MARKSTAT
032136,001539: 14,3272 00001 0D,1
032137,001540: 14,3273 02607 STORE TSIGHT
032138,001541: 14,3274 66744 LXC,2 SLOAD*
032139,001542: 14,3275 00304 STARIND
032140,001543: 14,3276 46456 MKDNCDR,2
032141,001544: 14,3277 76744 LXC,2 VLOAD*
032142,001545: 14,3300 00154 MPAC
032143,001546: 14,3301 00001 0,1
032144,001547: 14,3302 10001 STORE 0,2
032145,001548: 14,3303 77743 DLOAD*
032146,001549: 14,3304 00006 5,1
032147,001550: 14,3305 10006 STORE 5,2
032148,001551: 14,3306 77624 CALL
032149,001552: 14,3307 46000 SXTNB # COMPUTE LOS VECTOR FROM OCDU IN MKVAC
032150,001553: 14,3310 62150 LXA,1 INCR,1
032151,001554: 14,3311 01330 MARKSTAT
032152,001555: 14,3312 00002 2 # INCREMENT TO BASE ADR OF ICDU
032153,001556: 14,3313 45130 SXA,1 CALL
032154,001557: 14,3314 00050 S1
032155,001558: 14,3315 47541 NBSM # TRANSFORM LOS TO SM
032156,001559: 14,3316 77650 GOTO
032157,001560: 14,3317 00300 QMAJ
032158,001561: 14,3320 03674 MKDNCDR ECADR MARKDOWN
032159,001562: 14,3321 03502 ECADR MARK2DWN
032160,001563:
032161,001564: # Page 731
032162,001565: # PROGRAM DESCRIPTION: R53 -- SIGHTING MARK ROUTINE
032163,001566: # MOD. NO. 2 21 DEC 66
032164,001567: # MOD. BY STURLAUGSON
032165,001568:
032166,001569: # FUNCTIONAL DESCRIPTIION:
032167,001570:
032168,001571: # TO PERFORM A SATISFACTORY NUMBER OF SIGHTING MARKS FOR THE REQUESTING PROGRAM (OR ROUTINE). SIGHTINGS
032169,001572: # CAN BE MADE ON A STAR OR LANDMARK. WHEN THE CMC ACCEPTS A MARK IT RECORDS AND STORES 5 ANGLES (3 ICDUS AND 2
032170,001573: # OCDUS) AND THE TIME OF THE MARK.
032171,001574:
032172,001575: # CALLING SEQUENCE:
032173,001576:
032174,001577: # R53 IS CALLED AND RETURNS IN INTERPRETIVE CODE. RETURN IS VIA QPRET.
032175,001578: # THERE IS NO ERROR EXIT IN THIS ROUTINE ITSELF.
032176,001579:
032177,001580: # SUBROUTINES CALLED
032178,001581: #
032179,001582: # SXTMARK
032180,001583: # OPTSTALL
032181,001584: # GOFLASH
032182,001585:
032183,001586: # ERASABLE INITIALIZATION:
032184,001587:
032185,001588: # TARGET FLAG -- STAR OR LANDMARK
032186,001589: # MARKINDX -- NUMBER OF MARKS WANTED
032187,001590: # STARIND -- INDEX TO BESTI OR BESTJ (STAR NUMBER)
032188,001591:
032189,001592: # OUTPUT
032190,001593:
032191,001594: # MARKSTAT CONTAINS INDEX TO VACANT AREA WEHRE MARK DATA IS STORED
032192,001595: # BESTI (INDEXED BY STARIND) CONTAINS STAR NUMBER SIGHTED.
032193,001596:
032194,001597: # DEBRIS
032195,001598:
032196,001599: # MARKINDX CONTAINS NUMBER OF MARKS DESIRED
032197,001600:
032198,001601: 14,2000 SETLOC RT53
032199,001602: 14,2000 BANK
032200,001603:
032201,001604: 14,3322 COUNT 14/R53
032202,001605:
032203,001606: 14,3322 43020 R53 STQ SET # SET SIGHTING MARK FLAG
032204,001607: 14,3323 03501 R53EXIT
032205,001608: 14,3324 00071 R53FLAG
032206,001609: 14,3325 77776 EXIT
032207,001610: 14,3326 30301 R53A CA MARKINDX # NUMBER OF MARKS
032208,001611: 14,3327 74716 MASK LOW3
032209,001612: 14,3330 04555 TC BANKCALL
032210,001613: 14,3331 16002 CADR SXTMARK
032211,001614: 14,3332 04555 TC BANKCALL
032212,001615: 14,3333 17512 CADR OPTSTALL
032213,001616: 14,3334 05644 TC CURTAINS
032214,001617: 14,3335 51330 INDEX MARKSTAT
032215,001618: 14,3336 10052 CCS QPRET # NUMNBER OF MARKS ACTUALLY DONE
032216,001619: 14,3337 13350 TCF R53B
032217,001620: 14,3340 13342 TCF +2 # ZERO
032218,001621: 14,3341 13342 TCF +1 # CCS HOLE
032219,001622: 14,3342 34714 CAF ZERO # HOUSEKEEP VAC AREA SAVE
032220,001623: 14,3343 57330 XCH MARKSTAT # AND MARKSTAT
032221,001624: # Page 732
032222,001625: 14,3344 10000 CCS A
032223,001626: 14,3345 50000 INDEX A
032224,001627: 14,3346 54000 TS 0
032225,001628: 14,3347 13326 TCF R53A
032226,001629: 14,3350 05253 R53B TC CHECKMM
032227,001630: 14,3351 00026 MM 22 B-14
032228,001631: 14,3352 13354 TCF +2
032229,001632: 14,3353 13400 TCF R53D
032230,001633: 14,3354 05253 TC CHECKMM
032231,001634: 14,3355 00027 MM 23 B-14
032232,001635: 14,3356 13360 TCF R53C
032233,001636: 14,3357 13400 TCF R53D
032234,001637: 14,3360 33404 R53C CAF V01N71
032235,001638: 14,3361 04555 TC BANKCALL
032236,001639: 14,3362 20763 CADR GOFLASHR
032237,001640: 14,3363 04106 TC GOTOP00H # TERM.
032238,001641: 14,3364 13371 TCF R53Z
032239,001642: 14,3365 03360 TC R53C # RECYCLE
032240,001643: 14,3366 36211 CAF SIX
032241,001644: 14,3367 05415 TC BLANKET
032242,001645: 14,3370 05112 TC ENDOFJOB
032243,001646: 14,3371 47713 R53Z CS HIGH9
032244,001647: 14,3372 70735 MASK STARCODE
032245,001648: 14,3373 00006 EXTEND
032246,001649: 14,3374 76211 MP SIGHTSIX
032247,001650: 14,3375 56001 XCH L
032248,001651: 14,3376 50304 INDEX STARIND
032249,001652: 14,3377 54302 TS BESTI
032250,001653: 14,3400 06006 R53D TC INTPRET
032251,001654: 14,3401 77614 R53OUT SETGO
032252,001655: 14,3402 03420 TERMIFLG # SET TERMINATE FOR R52
032253,001656: 14,3403 03501 R53EXIT
032254,001657: 14,3404 6211 SIGHTSIX = SIX
032255,001658: 14,3404 00307 V01N71 VN 0171
032256,001659:
032257,001660: # Page 733
032258,001661: # NAME -- S52.2
032259,001662: # FUNCTION -- COMPUTE GIMBAL ANGLES FOR DESIRED SM AND PRESENT VEHICLE
032260,001663: # CALL -- CALL S52.2
032261,001664: # INPUT -- X,Y,ZSMD
032262,001665: # OUTPUT -- OGC,IGC,MGC,THETAD,+1,+2
032263,001666: # SUBROUTINES -- CDUTRIG, CALCSMSC, MATMOVE, CALCGA
032264,001667:
032265,001668: 11,2000 SETLOC S52/2
032266,001669: 11,2000 BANK
032267,001670:
032268,001671: 11,2256 COUNT 13/S52.2
032269,001672:
032270,001673: 11,2256 77620 S52.2 STQ
032271,001674: 11,2257 00300 QMAJ
032272,001675: 11,2260 77624 CALL
032273,001676: 11,2261 47432 CDUTRIG
032274,001677: 11,2262 77624 CALL
032275,001678: 11,2263 34567 CALCSMSC
032276,001679: 11,2264 66370 AXT,1 SSP
032277,001680: 11,2265 00022 18D
032278,001681: 11,2266 00051 S1
032279,001682: 11,2267 00006 6D
032280,001683: 11,2270 61373 S52.2A VLOAD* VXM
032281,001684: 11,2271 02736 XNB +18D,1
032282,001685: 11,2272 01736 REFSMMAT
032283,001686: 11,2273 77656 UNIT
032284,001687: 11,2274 06736 STORE XNB +18D,1
032285,001688: 11,2275 77700 TIX,1
032286,001689: 11,2276 22270 S52.2A
032287,001690: 11,2277 75160 S52.2.1 AXC,1 AXC,2
032288,001691: 11,2300 00306 XSMD
032289,001692: 11,2301 02671 XSM
032290,001693: 11,2302 77624 CALL
032291,001694: 11,2303 31040 MATMOVE
032292,001695: 11,2304 77624 CALL
032293,001696: 11,2305 47244 CALCGA
032294,001697: 11,2306 77650 GOTO
032295,001698: 11,2307 00300 QMAJ
032296,001699:
032297,001700: # Page 734
032298,001701: # PROGRAM NAME: SR52.1 DATE: DEC 20 1968
032299,001702: # MOD 1 LOG SEC: P51-P53
032300,001703: # BY KEN VINCENT ASSEMBLY: SUNDISK REV 40
032301,001704:
032302,001705: # FUNCTION
032303,001706:
032304,001707: # TARG1 AND TARG2 FLAGS ARE LOOKED AT TO DETERMINE IF THE TARGET IS THE
032305,001708: # LEM, STAR, OR LANDMARK. IN CASE OF LEM OR LMK, THE PRESENT TIME PLUS
032306,001709: # 2 SECONDS IS SAVED IN AOPTIME (ALIAS STARAD, +1). IF THE LEM IS
032307,001710: # THE TARGET THEN CONIC UPDATES OF TEH CSM AND LEM ARE MADE TO
032308,001711: # THE TIME IN AOPTIME. THE UNIT OF THE DIFFERENCE OF LEM AND CSM
032309,001712: # POSITION VECTORS BECOMES THE REFERENCE SIGHTING VECTOR USED IN THE
032310,001713: # COMMON PART OF THE THIS PROGRAM.
032311,001714:
032312,001715: # IN THE CASE OF LANDMARK, THE CSM IS UPDATED CONICALLY. THE RADIUS
032313,001716: # VECTOR FOR THE LANDMARK IS OBTAINED FROM LALOTORV. BOTH OF THESE ARE
032314,001717: # FOUND FOR THE TIME IN AOPTIME. THE UNIT OF THE DIFFERENCE BETWEEN
032315,001718: # THE LANDMARK AND CSM RADIUS VECTORS BECOMES THE REFERENCE SIGHTING
032316,001719: # VECTOR FOR THE COMMON PART OF THIS ROUTINE.
032317,001720:
032318,001721: # IF A STAR IS THE TARGET, THE PROPER STAR IS OBTAINED FROM THE CATALOG
032319,001722: # AND THIS VECTOR BECOMES THE REFERENCE SIGHTING VECTOR.
032320,001723:
032321,001724: # THE COMMON PART OF THIS PROGRAM TRANSFORMS THE REFERENCE SIGHTING
032322,001725: # VECTOR INTO STABLE MEMBER COORDINATES. IT READS THE IMU-CDUS AND USES
032323,001726: # THIS DATA IN A CALL TO CALCSXA. ON RETURN FROM CALCSXA A TEST IS
032324,001727: # MADE TO SEE IF THE TRUNNION ANGLE IS GREATER THAN 90DEG OR 38DEG.
032325,001728: # MADE TO SEE IF THE TRUNNION ANGLE IS GREATER THAN 90DEG OR 50DEG.
032326,001729:
032327,001730: # CALLING SEQUENCE
032328,001731:
032329,001732: # L+4 RETURN WHEN SHAFT OR TRUNION NOT WITHIN 5 DEG OF DESIRED
032330,001733: # L TC BANKCALL
032331,001734: # L+1 CADR SR52.1
032332,001735: # L+2 ERROR RETURN TRUNNION GREATER THAN 90 DEG.
032333,001736: # L+3 ERROR RETURN TRUNNION GREATER THAN 50 DEG
032334,001737: # L+4 NORMAL RETURN
032335,001738:
032336,001739: # OUTPUT
032337,001740:
032338,001741: # SAC: SINGLE PREC, 2'S COMP, SCALED AT HALF REVS -- SHAFT ANGLE DESIRED.
032339,001742: # PAC: SINGLE PREC, 2'S COMP, SCALED AT EIGHTH REVS -- TRUNNION ANGLE DESIRED.
032340,001743:
032341,001744: # INITIALIZATION
032342,001745:
032343,001746: # IF TARG1FLG =1 THEN TARGET IS LEM -- NO OTHER INPUT REQUIRED.
032344,001747:
032345,001748: # IF TARG1FLG =0 AND TARG2FLG =0 THE TARGET IS STAR, STARIND SHOULD
032346,001749: # 0 OR 1 DENOTING BESTI OR BESTJ RESPECTIVELY AS STAR CODE. STAR CODES
032347,001750: # ARE 6 TIMES STAR NUMBER.
032348,001751:
032349,001752: # IF TARG1FLG =0 AND TARG2FLG =1 THEN TARGET IS LANDMARK. SETT ROUTINE
032350,001753: # LALOTORV FOR INPUT REQUIREMENTS. HERE FIXERAD=1 FOR CONSTANT EARTH
032351,001754: # RADIUS
032352,001755:
032353,001756: # DEBRIS
032354,001757:
032355,001758: # WORK AREA
032356,001759: # STARAD -- STAR+5 (STAR IS DESIRED LOS IN STABLE MEMBER COORDINATES)
032357,001760:
032358,001761: 11,2310 COUNT* $$/SR521
032359,001762: # Page 735
032360,001763: 13,2000 SETLOC SR52/1
032361,001764: 13,2000 BANK
032362,001765:
032363,001766: 13,2176 04604 SR52.1 TC MAKECADR
032364,001767: 13,2177 55777 TS QMIN
032365,001768: 13,2200 06006 TC INTPRET
032366,001769: 13,2201 43234 RTB DAD
032367,001770: 13,2202 45505 LOADTIME
032368,001771: 13,2203 26317 1.3SECDP
032369,001772: 13,2204 02356 STORE AOPTIME
032370,001773: 13,2205 43014 BON BON
032371,001774: 13,2206 00705 TARG1FLG
032372,001775: 13,2207 26214 LEM52
032373,001776: 13,2210 00706 TARG2FLG
032374,001777: 13,2211 26224 LMK52
032375,001778: 13,2212 77650 GOTO
032376,001779: 13,2213 26245 STAR52
032377,001780: 13,2214 77745 LEM52 DLOAD
032378,001781: 13,2215 02356 AOPTIME
032379,001782: 13,2216 34041 STCALL TDEC1
032380,001783: 13,2217 27057 LEMCONIC
032381,001784: 13,2220 77775 VLOAD
032382,001785: 13,2221 00001 RATT
032383,001786: 13,2222 77650 GOTO
032384,001787: 13,2223 26234 LMKLMCOM
032385,001788: 13,2224 71214 LMK52 BON DLOAD
032386,001789: 13,2225 04305 ADVTRK
032387,001790: 13,2226 54000 ADVTRACK
032388,001791: 13,2227 02356 AOPTIME
032389,001792: 13,2230 77624 CALL
032390,001793: 13,2231 26373 LALOTORV
032391,001794: 13,2232 77775 VLOAD
032392,001795: 13,2233 02152 ALPHAV
032393,001796: 13,2234 16766 LMKLMCOM STODL STAR
032394,001797: 13,2235 02356 AOPTIME
032395,001798: 13,2236 34041 STCALL TDEC1
032396,001799: 13,2237 27045 CSMCONIC
032397,001800: 13,2240 52375 VLOAD VSU
032398,001801: 13,2241 02766 STAR
032399,001802: 13,2242 00001 RATT
032400,001803: 13,2243 52056 UNIT GOTO
032401,001804: 13,2244 26260 COM52
032402,001805: 13,2245 72131 STAR52 SSP LXA,1
032403,001806: 13,2246 00051 S1
032404,001807: 13,2247 00000 0
032405,001808: 13,2250 00304 STARIND
032406,001809: 13,2251 77700 TIX,1
032407,001810: 13,2252 26256 ST52ST
032408,001811: 13,2253 52175 VLOAD GOTO
032409,001812: 13,2254 02617 STARSAV2
032410,001813: # Page 736
032411,001814: 13,2255 26260 COM52
032412,001815: 13,2256 77775 ST52ST VLOAD
032413,001816: 13,2257 02611 STARSAV1
032414,001817: 13,2260 53521 COM52 MXV UNIT
032415,001818: 13,2261 01736 REFSMMAT
032416,001819: 13,2262 02766 STORE STAR
032417,001820: 13,2263 45001 SETPD CALL
032418,001821: 13,2264 00001 0
032419,001822: 13,2265 47432 CDUTRIG # COMPUTES SINES AND COSINES FOR CALCSXA
032420,001823: 13,2266 77624 CALL # NOW EXPECT TO SEE THE CDU ANGLES.
032421,001824: 13,2267 46034 CALCSXA
032422,001825: 13,2270 77414 BOFF EXIT
032423,001826: 13,2271 01750 CULTFLAG
032424,001827: 13,2272 26274 TRUN38
032425,001828: 13,2273 02312 TC SR52E1
032426,001829: 13,2274 45345 TRUN38 DLOAD DSU
032427,001830: 13,2275 02776 PAC
032428,001831: 13,2276 26315 38TRDEG
032429,001832: 13,2277 71244 BPL DLOAD
032430,001833: 13,2300 26305 SR52E22
032431,001834: 13,2301 02776 PAC
032432,001835: 13,2302 51025 DSU BPL
032433,001836: 13,2303 26321 20DEGSMN
032434,001837: 13,2304 26307 SR52E3
032435,001838: 13,2305 77776 SR52E22 EXIT
032436,001839: 13,2306 02311 TC SR52E2
032437,001840: 13,2307 77776 SR52E3 EXIT
032438,001841: 13,2310 25777 INCR QMIN
032439,001842: 13,2311 25777 SR52E2 INCR QMIN
032440,001843: 13,2312 31777 SR52E1 CA QMIN
032441,001844: 13,2313 04561 TC SWCALL
032442,001845:
032443,001846: 13,2314 25252 25254 38TRDEG 2DEC .66666667 # CORRESPONDS TO 50 DEGS IN TRUNION
032444,001847: 13,2316 00000 00202 1.3SECDP 2DEC 130 B-28
032445,001848: 13,2320 61740 20DEGSMN DEC -07199 B-14
032446,001849: 13,2321 77777 DEC -0 B-14
032447,001850:
032448,001851: # Page 737
032449,001852: # THE ADVTRACK ROUTINE IS USED TO COMPUTE AN OPTICS LOS VECTOR TO
032450,001853: # A POINT ON THE GROUND TRACK 60 DEGREES FORWARD OF THE LOCAL VERTICAL
032451,001854: # OF AN ADVANCED ORBIT A SPECIFIED NUMBER OF REVOLUTIONS FROM NOW.
032452,001855:
032453,001856: 26,2000 SETLOC 26P50S
032454,001857: 26,2000 BANK
032455,001858:
032456,001859: 26,2000 77601 ADVTRACK SETPD
032457,001860: 26,2001 00001 0
032458,001861: 26,2002 41575 VLOAD PUSH # INITIALIZE FOR RP-TO-R
032459,001862: 26,2003 15324 UNITZ # UZ VEC IN PD 0-5
032460,001863: 26,2004 41434 RTB PUSH # TIME IN PD 6-7
032461,001864: 26,2005 45505 LOADTIME
032462,001865: 26,2006 36356 STCALL AOPTIME # TIME ALSO IN AOPTIME FOR CSMCONIC
032463,001866: 26,2007 55341 RP-TO-R # GET MOON ROTATION VEC IN REF
032464,001867: 26,2010 16766 STODL STAR
032465,001868: 26,2011 02356 AOPTIME # PICK UP TIME
032466,001869: 26,2012 34041 STCALL TDEC1 # UPDATE STATE TO TIME
032467,001870: 26,2013 27045 CSMCONIC
032468,001871: 26,2014 47375 VLOAD VXV
032469,001872: 26,2015 00007 VATT
032470,001873: 26,2016 00001 RATT
032471,001874: 26,2017 77656 UNIT
032472,001875: 26,2020 24031 STOVL 24D # SAVE -UNIT(VxR) FOR 2ND ROTATION
032473,001876: 26,2021 00001 RATT
032474,001877: 26,2022 57456 UNIT VCOMP
032475,001878: 26,2023 41401 SETPD PUSH # PUSH LOS=-UNIT(RVEC) PD 0-5
032476,001879: 26,2024 00001 0
032477,001880: 26,2025 77776 EXIT
032478,001881: 26,2026 31751 CA LANDMARK
032479,001882: 26,2027 74716 MASK SEVEN # GET NUMBER OF ADVANCE PERIODS
032480,001883: 26,2030 00006 EXTEND
032481,001884: 26,2031 74700 MP BIT11 # GET N/16
032482,001885: 26,2032 56001 XCH L
032483,001886: 26,2033 50120 INDEX FIXLOC
032484,001887: 26,2034 54036 TS 30D # TEMP STORE N/16
032485,001888: 26,2035 06006 TC INTPRET
032486,001889: 26,2036 41335 SLOAD DMP
032487,001890: 26,2037 00037 30D
032488,001891: 26,2040 14107 MPERIOD
032489,001892: 26,2041 36356 STCALL AOPTIME # ROTATE ANG ABOUT UR
032490,001893: 26,2042 54057 ROTA
032491,001894: 26,2043 77775 VLOAD
032492,001895: 26,2044 00031 24D # PICK UP 2ND ROTATION AXIS
032493,001896: 26,2045 16766 STODL STAR
032494,001897: 26,2046 14105 DP1/6
032495,001898: 26,2047 77625 DSU
032496,001899: 26,2050 02356 AOPTIME # 2ND RAT ANGLE = 60 - A
032497,001900: 26,2051 36356 STCALL AOPTIME
032498,001901: 26,2052 54057 ROTA # GO ROTATE 2ND TIME
032499,001902: 26,2053 77775 VLOAD
032500,001903: # Page 738
032501,001904: 26,2054 00001 0
032502,001905: 26,2055 36766 STCALL STAR # STORE FINAL LOS IN STAR
032503,001906: 26,2056 26260 COM52 # RETURN TO SR52.1
032504,001907:
032505,001908: 26,2057 73545 ROTA DLOAD SIN
032506,001909: 26,2060 02356 AOPTIME
032507,001910: 26,2061 47315 PDVL VXV # PUSH 1/2SIN(A) PD 6-7
032508,001911: 26,2062 02766 STAR # UR VEC
032509,001912: 26,2063 00001 0 # LOS
032510,001913: 26,2064 72561 VXSC VSL2 # 1/2SIN(A)(URXLOS) PD 6-11
032511,001914: 26,2065 50315 PDVL DOT
032512,001915: 26,2066 02766 STAR
032513,001916: 26,2067 00001 0
032514,001917: 26,2070 72561 VXSC VSL2
032515,001918: 26,2071 02766 STAR
032516,001919: 26,2072 71525 PDDL COS # 1/2(UR . LOS)UR 12-17
032517,001920: 26,2073 02356 AOPTIME
032518,001921: 26,2074 51315 PDVL BVSU # PUSH 1/2COS(A) 18-19
032519,001922: 26,2075 00015 12D
032520,001923: 26,2076 00001 0
032521,001924: 26,2077 76561 VXSC VSL1 # UP 18-19
032522,001925: 26,2100 53255 VAD VAD # UP 12-17 UP 6011
032523,001926: 26,2101 40256 UNIT SETPD
032524,001927: 26,2102 00001 0
032525,001928: 26,2103 43406 PUSH RVQ
032526,001929:
032527,001930: 26,2104 05252 25251 DP1/6 2DEC .16666666
032528,001931: 26,2106 01414 06044 MPERIOD 2DEC .047619 # APPROX LUNAR ROT ANG IN 2HRS x 16
032529,001932:
032530,001933: # Page 739
032531,001934: # NAME -- S52.3
032532,001935: # FUNCTION -- XSMD= UNIT(YSMD x ZSMD)
032533,001936: # YSMD= UNIT(V X R)
032534,001937: # ZSMD= UNIT(-R)
032535,001938: # CALL -- DLOAD CALL
032536,001939: # TALIGN
032537,001940: # S52.3
032538,001941: # INPUT -- TIME OF ALIGNMENT IN MPAC
032539,001942: # OUTPUT -- X,Y,ZSMD
032540,001943: # SUBROUTINES -- CSMCONIC
032541,001944:
032542,001945: 16,2000 SETLOC P50S2
032543,001946: 16,2000 BANK
032544,001947:
032545,001948: 16,2636 COUNT 15/S52.3
032546,001949:
032547,001950: 16,2636 77620 S52.3 STQ
032548,001951: 16,2637 00300 QMAJ
032549,001952: 16,2640 34041 STCALL TDEC1
032550,001953: 16,2641 27045 CSMCONIC
032551,001954: 16,2642 77601 SETPD
032552,001955: 16,2643 00001 0
032553,001956: 16,2644 57575 VLOAD VCOMP
032554,001957: 16,2645 00001 RATT
032555,001958: 16,2646 77656 UNIT
032556,001959: 16,2647 24323 STOVL ZSMD
032557,001960: 16,2650 00007 VATT
032558,001961: 16,2651 53435 VXV UNIT
032559,001962: 16,2652 00001 RATT
032560,001963: 16,2653 00315 STORE YSMD
032561,001964: 16,2654 53435 VXV UNIT
032562,001965: 16,2655 00323 ZSMD
032563,001966: 16,2656 34307 STCALL XSMD
032564,001967: 16,2657 00300 QMAJ
032565,001968:
032566,001969: # Page 740
032567,001970: # PROGRAM DESCRIPTION: R56 -- ALTERNATE LOS SIGHTING MARK ROUTINE
032568,001971:
032569,001972: # FUNCTIONAL DESCRIPTION
032570,001973:
032571,001974: # TO PERFORM SIGHTING MARKS FOR THE BACK-UP ALIGNMENT PROGRAMS (P53,P54). THE ASTRONAUT KNOWS THE
032572,001975: # COORDINATES (OPTICS) OF THE ALTERNATE LINE OF SIGHT HE MUST USE FOR THIS ROUTINE. WHEN THE ASTRONAUT KEYS IN
032573,001976: # ENTER IN RESPONSE TO THE FLASHING V50 N25 R1-XXXXX THE CMC STORES THE THREE ICDU ANGLES AND TWO ANGLES DISPLAYED
032574,001977: # IN N92.
032575,001978:
032576,001979: # CALLING SEQUENCE
032577,001980:
032578,001981: # CALL
032579,001982: # R56
032580,001983:
032581,001984: # SUBROUTINES CALLED
032582,001985:
032583,001986: # A PORTION OF SXTMARK (VAC.AREA SEARCH)
032584,001987: # GOFLASH
032585,001988: # GOPERF1
032586,001989:
032587,001990: # ERASABLE INITIALIZATION
032588,001991:
032589,001992: # STARIND: INDEX TO STAR NUMBER
032590,001993:
032591,001994: # OUTPUT
032592,001995:
032593,001996: # MARKSTAT: INDEX TO VAC.AREA WHERE OUTPUT IS STORED.
032594,001997: # BESTI (INDEXED BY STARIND) CONTAINS STAR NUMBER.
032595,001998: # ICDU AND OCDU ANGLES IN VAC. AREA AS FOLLOWS:
032596,001999: # VAC +2 CDUY
032597,002000: # VAC +3 CDUS
032598,002001: # VAC +4 CDUZ
032599,002002: # VAC +5 CDUT
032600,002003: # VAC +6 CDUX
032601,002004:
032602,002005: 16,2660 COUNT* $$/R56
032603,002006: 15,2000 SETLOC P50S
032604,002007: 15,2000 BANK
032605,002008: 15,2252 77776 R56 EXIT
032606,002009: 15,2253 32362 CAF V06N94B
032607,002010: 15,2254 04555 TC BANKCALL
032608,002011: 15,2255 20624 CADR GOFLASH
032609,002012: 15,2256 04106 TC GOTOP00H # TERM.
032610,002013: 15,2257 02261 TC R56A # PROCEED: ANGLES OK
032611,002014: 15,2260 02253 TC -5 # ENTER: NEW ANGLES
032612,002015: 15,2261 04555 R56A TC BANKCALL
032613,002016: 15,2262 16004 CADR SXTMARK +2 # INHIBIR EXT VB ACT AND FIND VAC AREA
032614,002017:
032615,002018: 15,2263 34714 CAF ZERO
032616,002019: 15,2264 04555 TC BANKCALL
032617,002020: 15,2265 20607 CADR CLEANDSP
032618,002021:
032619,002022: 15,2266 32360 CAF VB53 # DISPLAY V53 REQUESTING ALTERNATE MARK
032620,002023: 15,2267 04555 TC BANKCALL
032621,002024: 15,2270 20470 CADR GOMARK2
032622,002025: # Page 741
032623,002026: 15,2271 14106 TCF GOTOP00H # V34: TERMINATE
032624,002027: 15,2272 12263 TCF R56A +2 # V33: DON'T PROCEED -- JUST ENTER TO MARK
032625,002028: 15,2273 06006 TC INTPRET
032626,002029: 15,2274 77745 DLOAD
032627,002030: 15,2275 03731 MRKBUF1 +3
032628,002031: 15,2276 16774 STODL SAC
032629,002032: 15,2277 03733 MRKBUF1 +5
032630,002033: 15,2300 02776 STORE PAC
032631,002034: 15,2301 77776 EXIT
032632,002035: 15,2302 00004 INHINT
032633,002036: 15,2303 00006 EXTEND
032634,002037: 15,2304 30025 DCA TIME2
032635,002038: 15,2305 51330 INDEX MARKSTAT
032636,002039: 15,2306 52001 DXCH 0
032637,002040: 15,2307 30033 CA CDUY # ENTER: THIS IS A BACKUP SYSTEM MARK
032638,002041: 15,2310 51330 INDEX MARKSTAT
032639,002042: 15,2311 54002 TS 2
032640,002043: 15,2312 31773 CA SAC
032641,002044: 15,2313 51330 INDEX MARKSTAT
032642,002045: 15,2314 54003 TS 3
032643,002046: 15,2315 30034 CA CDUZ
032644,002047: 15,2316 51330 INDEX MARKSTAT
032645,002048: 15,2317 54004 TS 4
032646,002049: 15,2320 31775 CA PAC
032647,002050: 15,2321 51330 INDEX MARKSTAT
032648,002051: 15,2322 54005 TS 5
032649,002052: 15,2323 30032 CA CDUX
032650,002053: 15,2324 51330 INDEX MARKSTAT
032651,002054: 15,2325 54006 TS 6
032652,002055: 15,2326 00003 RELINT
032653,002056: 15,2327 05425 TC CLEARMRK # ENABLE EXTENDED VERBS
032654,002057: 15,2330 34333 CAF OCT16
032655,002058: 15,2331 04555 TC BANKCALL
032656,002059: 15,2332 20751 CADR GOPERF1
032657,002060: 15,2333 04106 TC GOTOP00H # TERM.
032658,002061: 15,2334 12336 TCF R56B # PROCEED: MARK COMPLETED
032659,002062: 15,2335 12263 TCF R56A +2 # RECYCLE: DO ANOTHER MARK -- LIKE REJECT.
032660,002063: 15,2336 34714 R56B CAF ZERO
032661,002064: 15,2337 04555 TC BANKCALL
032662,002065: 15,2340 20607 CADR CLEANDSP
032663,002066:
032664,002067: 15,2341 32361 CAF V01N71B
032665,002068: 15,2342 04555 TC BANKCALL
032666,002069: 15,2343 20624 CADR GOFLASH
032667,002070: 15,2344 04106 TC GOTOP00H
032668,002071: 15,2345 02347 TC +2
032669,002072: 15,2346 12336 TCF R56B # RECYCLE
032670,002073: 15,2347 47713 CS HIGH9
032671,002074: 15,2350 70735 MASK STARCODE
032672,002075: 15,2351 00006 EXTEND
032673,002076: # Page 742
032674,002077: 15,2352 76211 MP SIX
032675,002078: 15,2353 56001 XCH L
032676,002079: 15,2354 50304 INDEX STARIND
032677,002080: 15,2355 54302 TS BESTI
032678,002081: 15,2356 06006 TC INTPRET
032679,002082: 15,2357 77616 RVQ
032680,002083: 15,2360 15200 VB53 VN 05300 # ALTERNATE MARK VERB
032681,002084: 15,2361 00307 V01N71B VN 00171
032682,002085: 15,2362 01536 V06N94B VN 00694
032683,002086:
032684,002087: 15,2363 02607 PLANET STORE TSIGHT
032685,002088: 15,2364 45020 STQ CALL
032686,002089: 15,2365 02777 QMIN
032687,002090: 15,2366 30216 LOCSAM
032688,002091: 15,2367 77775 VLOAD
032689,002092: 15,2370 02736 VEARTH
032690,002093: 15,2371 24001 STOVL 0D
032691,002094: 15,2372 02744 VSUN
032692,002095: 15,2373 26736 STOVL VEARTH
032693,002096: 15,2374 00001 0D
032694,002097: 15,2375 02744 STORE VSUN
032695,002098: 15,2376 77776 NOSAM EXIT
032696,002099: 15,2377 47713 CS HIGH9
032697,002100: 15,2400 70735 MASK STARCODE
032698,002101: 15,2401 00006 EXTEND
032699,002102: 15,2402 76211 MP SIGHTSIX
032700,002103: 15,2403 56001 XCH L
032701,002104: 15,2404 50304 INDEX STARIND
032702,002105: 15,2405 54302 TS BESTI
032703,002106: 15,2406 10000 CCS A
032704,002107: 15,2407 12423 TCF NOTPLAN
032705,002108: 15,2410 32453 CAF VNPLANV
032706,002109: 15,2411 04555 TC BANKCALL
032707,002110: 15,2412 20624 CADR GOFLASH
032708,002111: 15,2413 04106 TC GOTOP00H
032709,002112: 15,2414 02416 TC +2
032710,002113: 15,2415 02410 TC -5
032711,002114: 15,2416 06006 TC INTPRET
032712,002115: 15,2417 53575 VLOAD UNIT
032713,002116: 15,2420 02766 STAR
032714,002117: 15,2421 77650 GOTO
032715,002118: 15,2422 32446 CORPLAN
032716,002119: 15,2423 40000 NOTPLAN CS A
032717,002120: 15,2424 62452 AD DEC227
032718,002121: 15,2425 00006 EXTEND
032719,002122: 15,2426 62437 BZMF CALSAM1
032720,002123: 15,2427 50304 INDEX STARIND
032721,002124: 15,2430 30302 CA BESTI
032722,002125: 15,2431 50120 INDEX FIXLOC
032723,002126: 15,2432 54046 TS X1
032724,002127: 15,2433 06006 TC INTPRET
032725,002128: # Page 743
032726,002129: 15,2434 52173 VLOAD* GOTO
032727,002130: 15,2435 31744 CATLOG,1
032728,002131: 15,2436 32446 CORPLAN
032729,002132: 15,2437 06006 CALSAM1 TC INTPRET
032730,002133: 15,2440 70740 LXC,1 DLOAD*
032731,002134: 15,2441 00304 STARIND
032732,002135: 15,2442 00303 BESTI,1
032733,002136: 15,2443 76740 LXC,1 VLOAD*
032734,002137: 15,2444 00154 MPAC
032735,002138: 15,2445 02372 STARAD -228D,1
032736,002139: 15,2446 53455 CORPLAN VAD UNIT
032737,002140: 15,2447 03474 VEL/C
032738,002141: 15,2450 77650 GOTO
032739,002142: 15,2451 02777 QMIN
032740,002143: 15,2452 00343 DEC227 DEC 227 B-14
032741,002144: 15,2453 01530 VNPLANV VN 0688
032742,002145:
End of include-file P51-P53.agc. Parent file is MAIN.agc