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