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