Source Code
032673,000001: # Copyright: Public domain.
032674,000002: # Filename: P51-P53.agc
032675,000003: # Purpose: Part of the source code for Comanche, build 055. It
032676,000004: # is part of the source code for the Command Module's
032677,000005: # (CM) Apollo Guidance Computer (AGC), Apollo 11.
032678,000006: # Assembler: yaYUL
032679,000007: # Reference: pp. 737-784
032680,000008: # Contact: Ron Burkey <info@sandroid.org>
032681,000009: # Website: http://www.ibiblio.org/apollo.
032682,000010: # Mod history: 2009-05-12 RSB Adapted from Colossus249 file of the same
032683,000011: # name, and Comanche 055 page images.
032684,000012: # 2009-05-20 RSB Corrections: SETI/PDT -> SET1/PDT,
032685,000013: # GOTOPOOH -> GOTOP00H, R33EXIT -> R53EXIT,
032686,000014: # V853 -> VB53, R56A -> R56A1 (some places
032687,000015: # only), added missing R56A1 label, added a
032688,000016: # missing CAF in COARSTYP, corrected a SETLOC
032689,000017: # from P50S to P50S3.
032690,000018: # 2009-05-21 RSB In COARFINE, a TC BANKCALL was corrected to
032691,000019: # TC PHASCHNG. In R53C, a CADR GOFLASHR was
032692,000020: # corrected to CADR GOFLASH.
032693,000021:
032694,000022: # The contents of the "Comanche055" files, in general, are transcribed
032695,000023: # from scanned documents.
032696,000024:
032697,000025: # Assemble revision 055 of AGC program Comanche by NASA
032698,000026: # 2021113-051. April 1, 1969.
032699,000027:
032700,000028: # This AGC program shall also be referred to as Colossus 2A
032701,000029:
032702,000030: # Prepared by
032703,000031: # Massachussets Institute of Technology
032704,000032: # 75 Cambridge Parkway
032705,000033: # Cambridge, Massachusetts
032706,000034:
032707,000035: # under NASA contract NAS 9-4065.
032708,000036:
032709,000037: # Refer directly to the online document mentioned above for further
032710,000038: # information. Please report any errors to info@sandroid.org.
032711,000039:
032712,000040: # Page 737
032713,000041: # PROGRAM NAME -- PROG52 DATE -- NOV 30, 1966
032714,000042: # MOD NO -- 2 LOG SECTION -- P51-P53
032715,000043: # MODIFICATION BY -- LONSKE ASSEMBLY -- SUNDISK REV 30
032716,000044:
032717,000045: # FUNCTIONAL DESCRIPTION --
032718,000046:
032719,000047: # ALIGNS THE IMU TO ONE OF THREE ORIENTATIONS SELECTED BY THE ASTRONAUT. THE PRESENT IMU ORIENTATION IS KNOWN
032720,000048: # AND IS STORED IN REFSMMAT. THE THREE POSSIBLE ORIENTATIONS MAY BE:
032721,000049:
032722,000050: # (A) PREFERRED ORIENTATION
032723,000051:
032724,000052: # AN OPTIMUM ORIENTATION FOR A PREVIOUSLY CALCULATED MANEUVER. THIS ORIENTATION MUST BE CALCULATED AND
032725,000053: # STORED BY A PREVIOUSLY SELECTED PROGRAM.
032726,000054:
032727,000055: # (B) NOMINAL ORIENTATION
032728,000056:
032729,000057: # X = UNIT ( Y x Z )
032730,000058: # -SM -SM -SM
032731,000059:
032732,000060: # Y = UNIT (V X R)
032733,000061: # -SM - -
032734,000062:
032735,000063: # Z = UNIT ( -R )
032736,000064: # -SM -
032737,000065:
032738,000066: # WHERE:
032739,000067:
032740,000068: # R = THE GEOMETRIC RADIUS VECTOR AT TIME T(ALIGN) SELECTED BY THE ASTRONAUT
032741,000069: # -
032742,000070:
032743,000071: # V = THE INERTIAL VELOCITY VECTOR AT TIME T(ALIGN) SELECTED BY THE ASTRONAUT
032744,000072: # -
032745,000073:
032746,000074: # (C) RERSMMAT ORIENTATION
032747,000075:
032748,000076: # THIS SELECTION CORRECTS THE PRESENT IMU ORIENTATION. THE PRESENT ORIENTATION DIFFERS FROM THAT TO WHICH IT
032749,000077: # WAS LAST ALIGNED ONLY DUE TO GYRO DRIVE (I.E., NEITHER GIMBAL LOCK NOR IMU POWER INTERRUPT HAS OCCURRED
032750,000078: # SINCE THE LAST ALIGNMENT).
032751,000079:
032752,000080: # AFTER A IMU ORIENTATION HAS BEEN SELECTED ROUTINE S52.2 IS OPERATED TO COMPUTE THE GIMBAL ANGLES USING THE
032753,000081: # NEW ORIENTATION AND THE PRESENT VEHICLE ATTITUDE. CAL52A THEN USES THESE ANGLES, STORED IN THETAD,+1,+2, TO
032754,000082: # COARSE ALIGN THE IMU. THE STARS SELECTION ROUTINE, R56, IS THEN OPERATED. IF 2 STARS ARE NOT AVAILABLE AN ALARM
032755,000083: # IS FLASHED TO NOTIFY THE ASTRONAUT. AT THIS POINT THE ASTRONAUT WILL MANEUVER THE VEHICLE AND SELECT 2 STARS
032756,000084: # EITHER MANUALLY OR AUTOMATICALLY. AFTER 2 STARS HAVE BEEN SELECTED THE IMU IS FINE ALIGNED USING ROUTINE R51. IF
032757,000085: # THE RENDEZVOUS NAVIGATION PROCESS IS OPERATING (INDICATED BY RNDVZFLG) P20 IS DISPLAYED. OTHERWISE P00 IS
032758,000086: # REQUESTED.
032759,000087:
032760,000088: # CALLING SEQUENCE --
032761,000089:
032762,000090: # THE PROGRAM IS CALLED BY THE ASTRONAUT BY DSKY ENTRY.
032763,000091: # Page 738
032764,000092:
032765,000093: # SUBROUTINES CALLED --
032766,000094:
032767,000095: # 1. FLAGDOWN 7. S52.2 13. NEWMODEX
032768,000096: # 2. R02BOTH 8. CAL53A 14. PRIOLARM
032769,000097: # 3. GOPERF4 9. FLAGUP
032770,000098: # 4. MATMOVE 10. R56
032771,000099: # 5. GOFLASH 11. R51
032772,000100: # 6. S52.3 12. GOPERF3
032773,000101:
032774,000102: # NORMAL EXIT MODES --
032775,000103:
032776,000104: # EXITS TO ENDOFJOB
032777,000105:
032778,000106: # ALARM OR ABORT EXIT MODES --
032779,000107:
032780,000108: # NONE
032781,000109:
032782,000110: # OUTPUT --
032783,000111:
032784,000112: # THE FOLLOWING MAY BE FLASHED ON THE DSKY
032785,000113: # 1. IMU ORIENTATION CODE
032786,000114: # 2. ALARM CODE 215 -- PREFERRED IMU ORIENTATION NOT SPECIFIED
032787,000115: # 3. TIME OF NEXT IGNITION
032788,000116: # 4. GIMBAL ANGLES
032789,000117: # 5. ALARM CODE 405 -- TWO STARS NOT AVAILABLE
032790,000118: # 6. PLEASE PERFORM P00
032791,000119: # THE MODE DISPLAY MAY BE CHANGED TO 20
032792,000120:
032793,000121: # ERASABLE INITIALIZATION REQUIRED --
032794,000122:
032795,000123: # PFRATFLG SHOULD BE SET IF A PREFERRED ORIENTATION HAS BEEN COMPUTED. IF IT HAS BEEN COMPUTED IT IS STORED IN
032796,000124: # XSMD, YSMD, ZSMD.
032797,000125:
032798,000126: # RNDVZFLG INDICATES WHETHER THE RENDEZVOUS NAVIGATION PROCESS IS OPERATING.
032799,000127:
032800,000128: # DEBRIS --
032801,000129:
032802,000130: # WORK AREA
032803,000131:
032804,000132: 21,2042 15,2000 P54 = PROG52
032805,000133: 33,3776 BANK 33
032806,000134: 15,2000 SETLOC P50S
032807,000135: 15,2000 BANK
032808,000136:
032809,000137: 15,2000 30,2000 SBANK= LOWSUPER
032810,000138: 15,2000 E5,1773 EBANK= SAC
032811,000139: 15,2000 COUNT 15/P52
032812,000140:
032813,000141: 15,2000 05412 PROG52 TC PHASCHNG
032814,000142: 15,2001 00254 OCT 00254
032815,000143: 15,2002 05560 TC DOWNFLAG
032816,000144: 15,2003 00027 ADRES UPDATFLG # BIT 7 FLAG 1
032817,000145: # Page 739
032818,000146: 15,2004 05560 TC DOWNFLAG
032819,000147: 15,2005 00031 ADRES TRACKFLG # BIT 5 FLAG 1
032820,000148: 15,2006 04662 TC BANKCALL
032821,000149: 15,2007 17653 CADR R02BOTH # IMU STATUS CHECK
032822,000150: 15,2010 35014 CAF BIT4
032823,000151: 15,2011 70076 MASK STATE +2 # IS PFRATFLG SET?
032824,000152: 15,2012 10000 CCS A
032825,000153: 15,2013 02016 TC P52A # YES
032826,000154: 15,2014 35016 CAF BIT2 # NO
032827,000155: 15,2015 02017 TC P52A +1
032828,000156: 15,2016 35017 P52A CAF BIT1
032829,000157: 15,2017 55132 TS OPTION2
032830,000158: 15,2020 35017 P52B CAF BIT1
032831,000159: 15,2021 04662 TC BANKCALL # FLASH OPTION CODE AND ORIENTATION CODE
032832,000160: 15,2022 21135 CADR GOPERF4R
032833,000161: 15,2023 04106 TC GOTOP00H
032834,000162: 15,2024 02031 TC +5
032835,000163: 15,2025 02020 TC P52B # NEW CODE -- NEW ORIENTATION CODE INPUT
032836,000164: 15,2026 05412 TC PHASCHNG
032837,000165: 15,2027 00014 OCT 00014
032838,000166: 15,2030 05217 TC ENDOFJOB
032839,000167: 15,2031 31132 CA OPTION2
032840,000168: 15,2032 76214 MASK THREE
032841,000169: 15,2033 50000 INDEX A
032842,000170: 15,2034 02035 TC +1
032843,000171: 15,2035 02041 TC P52T # L.S.
032844,000172: 15,2036 02110 TC P52J # PREF
032845,000173: 15,2037 02041 TC P52T # NORM
032846,000174: 15,2040 12120 TCF P52C # REF
032847,000175: 15,2041 00006 P52T EXTEND
032848,000176: 15,2042 35021 DCA NEG0
032849,000177: 15,2043 53046 DXCH DSPTEM1
032850,000178: 15,2044 32157 CAF V06N34
032851,000179: 15,2045 04662 TC BANKCALL
032852,000180: 15,2046 20720 CADR GOFLASH
032853,000181: 15,2047 04106 TC GOTOP00H
032854,000182: 15,2050 02052 TC +2
032855,000183: 15,2051 02044 TC -5
032856,000184: 15,2052 00006 EXTEND
032857,000185: 15,2053 31046 DCA DSPTEM1
032858,000186: 15,2054 00006 EXTEND
032859,000187: 15,2055 12057 BZF +2
032860,000188: 15,2056 12062 TCF +4
032861,000189:
032862,000190: 15,2057 00006 EXTEND
032863,000191: 15,2060 30025 DCA TIME2
032864,000192: 15,2061 53046 DXCH DSPTEM1
032865,000193: 15,2062 31132 CA OPTION2
032866,000194: 15,2063 75016 MASK BIT2
032867,000195: 15,2064 10000 CCS A
032868,000196: # Page 740
032869,000197: 15,2065 12073 TCF +6 # NOM
032870,000198: 15,2066 06006 TC INTPRET # LS
032871,000199: 15,2067 77624 CALL
032872,000200: 15,2070 34531 P52LS
032873,000201: 15,2071 77650 GOTO
032874,000202: 15,2072 32100 P52D
032875,000203: 15,2073 06006 TC INTPRET
032876,000204: 15,2074 77745 DLOAD
032877,000205: 15,2075 01046 DSPTEM1
032878,000206: 15,2076 77624 CALL # COMPUTE NOMINAL IMU
032879,000207: 15,2077 34661 S52.3 # ORIENTATION
032880,000208: 15,2100 77624 P52D CALL # READ VEHICLE ATTITUDE AND
032881,000209: 15,2101 22331 S52.2 # COMPUTE GIMBAL ANGLES
032882,000210: 15,2102 77776 EXIT
032883,000211: 15,2103 32160 CAF VB06N22
032884,000212: 15,2104 04662 TC BANKCALL # DISPLAY GIMBAL ANGLES
032885,000213: 15,2105 20720 CADR GOFLASH
032886,000214: 15,2106 04106 TC GOTOP00H
032887,000215: 15,2107 02161 TC COARSTYP
032888,000216: 15,2110 06006 P52J TC INTPRET # RECYCLE: VEHICLE HAS BEEN MANEUVERED
032889,000217: 15,2111 77650 GOTO
032890,000218: 15,2112 32100 P52D
032891,000219: 15,2113 06006 TC INTPRET
032892,000220: 15,2114 77624 CALL # DO COARSE ALIGN
032893,000221: 15,2115 30770 CAL53A # ROUTINE
032894,000222: 15,2116 77414 CAL53RET SET EXIT
032895,000223: 15,2117 01462 REFSMFLG
032896,000224: 15,2120 05412 P52C TC PHASCHNG
032897,000225: 15,2121 04024 OCT 04024
032898,000226: 15,2122 35025 CAF ALRM15
032899,000227: 15,2123 04662 TC BANKCALL
032900,000228: 15,2124 21045 CADR GOPERF1
032901,000229: 15,2125 04106 TC GOTOP00H
032902,000230: 15,2126 02130 TC +2 # V33
032903,000231: 15,2127 02142 TC P52F # E
032904,000232: 15,2130 06006 TC INTPRET
032905,000233: 15,2131 43234 RTB DAD
032906,000234: 15,2132 45510 LOADTIME
032907,000235: 15,2133 32264 TSIGHT1
032908,000236: 15,2134 77624 CALL
032909,000237: 15,2135 30225 LOCSAM
032910,000238: 15,2136 77776 EXIT
032911,000239: 15,2137 04662 P52E TC BANKCALL # DO STAR SELECTION
032912,000240: 15,2140 30333 CADR PICAPAR
032913,000241: 15,2141 02147 TC P52I # 2 STARS NOT AVAILABLE
032914,000242: 15,2142 06006 P52F TC INTPRET # 2 STARS AVAILABLE
032915,000243: 15,2143 77624 CALL
032916,000244: 15,2144 30532 R51
032917,000245: 15,2145 77776 ENDP50S EXIT
032918,000246: 15,2146 04106 TC GOTOP00H
032919,000247: # Page 741
032920,000248: 15,2147 05650 P52I TC ALARM
032921,000249: 15,2150 00405 OCT 405
032922,000250: 15,2151 35050 CAF V05N09
032923,000251: 15,2152 04662 TC BANKCALL
032924,000252: 15,2153 20720 CADR GOFLASH
032925,000253: 15,2154 04106 TC GOTOP00H
032926,000254: 15,2155 02142 TC P52F # PROCEED: DO FINE ALIGN-R51
032927,000255: 15,2156 02120 TC P52C # RECYCLE: VEHICLE HAS BEEN MANEUVERED
032928,000256: 15,2157 01442 V06N34 VN 0634
032929,000257: 15,2160 01426 VB06N22 VN 00622
032930,000258: 15,2161 35024 COARSTYP CAF OCT13
032931,000259: 15,2162 04662 TC BANKCALL
032932,000260: 15,2163 21045 CADR GOPERF1
032933,000261: 15,2164 14106 TCF GOTOP00H # V34
032934,000262: 15,2165 12113 TCF P52J +3 # NORMAL
032935,000263: 15,2166 06006 TC INTPRET # GYRO COARSE
032936,000264: 15,2167 64375 GYCRS VLOAD MXV
032937,000265: 15,2170 00307 XSMD
032938,000266: 15,2171 01736 REFSMMAT
032939,000267: 15,2172 77656 UNIT
032940,000268: 15,2173 26714 STOVL XDC
032941,000269: 15,2174 00315 YSMD
032942,000270: 15,2175 53521 MXV UNIT
032943,000271: 15,2176 01736 REFSMMAT
032944,000272: 15,2177 26722 STOVL YDC
032945,000273: 15,2200 00323 ZSMD
032946,000274: 15,2201 53521 MXV UNIT
032947,000275: 15,2202 01736 REFSMMAT
032948,000276: 15,2203 36730 STCALL ZDC
032949,000277: 15,2204 47205 CALCGTA
032950,000278: 15,2205 43014 CLEAR CLEAR
032951,000279: 15,2206 01260 DRIFTFLG
032952,000280: 15,2207 01662 REFSMFLG
032953,000281: 15,2210 77776 EXIT
032954,000282: 15,2211 32244 CAF V16N20
032955,000283: 15,2212 04662 TC BANKCALL
032956,000284: 15,2213 20676 CADR GODSPR
032957,000285: 15,2214 32323 CA R55CDR
032958,000286: 15,2215 04662 TC BANKCALL
032959,000287: 15,2216 17206 CADR IMUPULSE
032960,000288: 15,2217 04662 TC BANKCALL
032961,000289: 15,2220 17577 CADR IMUSTALL
032962,000290: 15,2221 05757 TC CURTAINS
032963,000291: 15,2222 05412 TC PHASCHNG
032964,000292: 15,2223 04024 OCT 04024
032965,000293: 15,2224 06006 TC INTPRET
032966,000294: 15,2225 75160 AXC,1 AXC,2
032967,000295: 15,2226 00306 XSMD
032968,000296: 15,2227 01735 REFSMMAT
032969,000297: 15,2230 77624 CALL
032970,000298: # Page 742
032971,000299: 15,2231 31053 MATMOVE
032972,000300: 15,2232 43014 CLEAR SET
032973,000301: 15,2233 01273 PFRATFLG
032974,000302: 15,2234 01462 REFSMFLG
032975,000303: 15,2235 77234 RTB VLOAD
032976,000304: 15,2236 31275 SET1/PDT
032977,000305: 15,2237 11566 ZEROVEC
032978,000306: 15,2240 01472 STORE GCOMP
032979,000307: 15,2241 52014 SET GOTO
032980,000308: 15,2242 01060 DRIFTFLG
032981,000309: 15,2243 30655 R51K
032982,000310: 15,2244 04024 V16N20 VN 1620
032983,000311: 15,2245 5025 ALRM15 EQUALS OCT15
032984,000312: 16,2000 SETLOC P50S2
032985,000313: 16,2000 BANK
032986,000314: 16,2530 01531 V06N89* VN 0689
032987,000315:
032988,000316: # NAME -- P52LS
032989,000317:
032990,000318: # FUNCTION -- TO DISPLAY THE LANDING SITE LATITUDE,
032991,000319: # LONGITUDE AND ALTITUDE. TO ACCEPT NEW DATA VIA
032992,000320: # THE KEYBOARD. TO COMPUT THE LANDING SITE
032993,000321: # ORIENTATIION FOR P52 OR P54.
032994,000322:
032995,000323: # LET:
032996,000324: # RLS = LANDING SITE VECTOR IN REF COORDINATES
032997,000325: # R = CSM POSITION VECTOR IN REF COORDINATES
032998,000326: # V = CSM VELOCITY VECTOR IN REF COORDINATES
032999,000327: # THEN THE LANDING SITE ORIENTATION IS:
033000,000328: # XSMD = UNIT(RLS)
033001,000329: # YSMD = UNIT(ZSMD*XSMD)
033002,000330: # ZSMD = UNIT((R*V)*RLS)
033003,000331:
033004,000332: # CALL: CALL
033005,000333: # P52LS
033006,000334:
033007,000335: # INPUTS: DSPTEM1 = TIME OF ALIGNMENT
033008,000336: # RLS = LANDING SITE VECTOR IN MOON FIXED COORDINATES
033009,000337:
033010,000338: # OUTPUTS: XSMD, YSMD, ZSMD
033011,000339:
033012,000340: # SUBROUTINES: RP-TO-R, LAT-LONG, LLASRD, LLASRDA, CSMPREC
033013,000341:
033014,000342: # DEBRIS: VAC, SEE SUBROUTINES
033015,000343:
033016,000344: 16,2531 43020 P52LS STQ SET
033017,000345: 16,2532 00300 QMAJ
033018,000346: 16,2533 01463 LUNAFLAG
033019,000347: 16,2534 77745 DLOAD
033020,000348: 16,2535 01046 DSPTEM1
033021,000349: 16,2536 02607 STORE TSIGHT
033022,000350: 16,2537 43175 VLOAD SET
033023,000351: 16,2540 02026 RLS
033024,000352: 16,2541 00462 ERADFLAG
033025,000353: 16,2542 14001 STODL 0D
033026,000354: 16,2543 02607 TSIGHT
033027,000355: 16,2544 34007 STCALL 6D
033028,000356: # Page 743
033029,000357: 16,2545 55344 RP-TO-R
033030,000358: 16,2546 77742 VSR2
033031,000359: 16,2547 16152 STODL ALPHAV
033032,000360: 16,2550 02607 TSIGHT
033033,000361: 16,2551 77624 CALL
033034,000362: 16,2552 26370 LAT-LONG
033035,000363: 16,2553 77624 CALL
033036,000364: 16,2554 62365 LLASRD
033037,000365: 16,2555 77776 EXIT
033038,000366: 16,2556 32530 LSDISP CAF V06N89*
033039,000367: 16,2557 04662 TC BANKCALL
033040,000368: 16,2560 20720 CADR GOFLASH
033041,000369: 16,2561 04106 TC GOTOP00H
033042,000370: 16,2562 02564 TC +2
033043,000371: 16,2563 02556 TC LSDISP
033044,000372: 16,2564 06006 TC INTPRET
033045,000373: 16,2565 77624 CALL
033046,000374: 16,2566 62374 LLASRDA
033047,000375: 16,2567 45145 DLOAD CALL
033048,000376: 16,2570 02607 TSIGHT
033049,000377: 16,2571 26441 LALOTORV
033050,000378: 16,2572 53575 VLOAD UNIT
033051,000379: 16,2573 02152 ALPHAV
033052,000380: 16,2574 14307 STODL XSMD
033053,000381: 16,2575 02607 TSIGHT
033054,000382: 16,2576 34041 STCALL TDEC1
033055,000383: 16,2577 27071 CSMPREC
033056,000384: 16,2600 47375 VLOAD VXV
033057,000385: 16,2601 00001 RATT
033058,000386: 16,2602 00007 VATT
033059,000387: 16,2603 53435 VXV UNIT
033060,000388: 16,2604 00307 XSMD
033061,000389: 16,2605 00323 STORE ZSMD
033062,000390: 16,2606 53435 VXV UNIT
033063,000391: 16,2607 00307 XSMD
033064,000392: 16,2610 34315 STCALL YSMD
033065,000393: 16,2611 00300 QMAJ
033066,000394: 14,2000 SETLOC P50S1
033067,000395: 14,2000 BANK
033068,000396:
033069,000397: # NAME: AUTOMATIC OPTICS POSITIONING ROUTINE
033070,000398:
033071,000399: # FUNCTION: (1) TO POINT THE STAR LOS OF THE OPTICS AT A STAR OR LANDMARK DEFINED BY THE PROGRAM OR BY DSKY INPUT.
033072,000400: # (2) TO POINT THE STAR LOS OF THE OPTICS AT THE LEM DURING RENDEZVOUS TRACKING OPERATIONS.
033073,000401:
033074,000402: # CALLING: CALL R52
033075,000403:
033076,000404: # INPUT: 1. TARG1FLG AND TARG2FLG: PRESET BY CALLER
033077,000405: # 2. RNDVZFLG AND TRACKFLG: PRESET BY CALLER
033078,000406: # 3. STAR CODE: PRESET BY CALLER. ALSO INPUT THROUGH DSKY
033079,000407: # 4. LAT, LONG, AND ALT OF LANDMARK: INPUT THROUGH DSKY
033080,000408: # Page 744
033081,000409: # 5. NO. OF MARKS (MARKINDX): PRESET BY CALLER
033082,000410:
033083,000411: # OUTPUT: DRIVE SHAFT AND TRUNNION CDUS.
033084,000412:
033085,000413: # SUBROUTINES: 1. FIXDELAY 7. CLEANDSP
033086,000414: # 2. GOPERF1 8. GODSPR
033087,000415: # 3. GOFLASH 9. REFLASHR
033088,000416: # 4. R53 10. R52.2
033089,000417: # 5. ALARM 11. R52.3
033090,000418: # 6. SR52.1
033091,000419:
033092,000420: 14,2011 COUNT 15/R52
033093,000421:
033094,000422: 14,2011 43020 R52 STQ CLEAR
033095,000423: 14,2012 02576 SAVQR52
033096,000424: 14,2013 04265 ADVTRK
033097,000425: 14,2014 77776 R52VRB EXIT
033098,000426: 14,2015 00006 EXTEND
033099,000427: 14,2016 30036 DCA CDUT
033100,000428: 14,2017 53161 DXCH DESOPTT
033101,000429: 14,2020 06006 TC INTPRET
033102,000430: 14,2021 43131 SSP CLEAR
033103,000431: 14,2022 01304 OPTIND
033104,000432: 14,2023 00000 0
033105,000433: 14,2024 00271 R53FLAG
033106,000434: 14,2025 77776 EXIT
033107,000435: 14,2026 06006 R52A TC INTPRET
033108,000436: 14,2027 43014 SET BON
033109,000437: 14,2030 00073 TRUNFLAG
033110,000438: 14,2031 00705 TARG1FLG
033111,000439: 14,2032 30112 R52H
033112,000440: 14,2033 77414 CLEAR EXIT
033113,000441: 14,2034 03660 TERMIFLG
033114,000442: 14,2035 31314 R52C CA SWSAMPLE # IS OPTICS MODE IN AGC
033115,000443: 14,2036 00006 EXTEND
033116,000444: 14,2037 62140 BZMF R52M # MANUAL
033117,000445: 14,2040 04662 R52D TC BANKCALL # AGC
033118,000446: 14,2041 26244 CADR SR52.1
033119,000447: 14,2042 12170 TCF R52L # GR 90 DEGREES
033120,000448: 14,2043 12133 TCF R52J # GR 50 DEGREES
033121,000449: 14,2044 05546 TC UPFLAG # LS 50 DEGREES
033122,000450: 14,2045 00013 ADRES TRUNFLAG # SET TRUNFLAG BIT 4 FLAG 0
033123,000451: 14,2046 35006 R52JA CAF BIT10 # IS THIS A LEM
033124,000452: 14,2047 70075 MASK STATE +1
033125,000453: 14,2050 10000 CCS A
033126,000454: 14,2051 02061 TC R52E # YES
033127,000455: 14,2052 35012 CAF BIT6 # NO, IS R53FLAG SET
033128,000456: 14,2053 70074 MASK STATE
033129,000457: 14,2054 10000 CCS A
033130,000458: 14,2055 12061 TCF R52E # YES
033131,000459: # Page 745
033132,000460: 14,2056 32160 CAF V06N92 # NO
033133,000461: 14,2057 04662 TC BANKCALL
033134,000462: 14,2060 20676 CADR GODSPR
033135,000463: 14,2061 31314 R52E CA SWSAMPLE # IS OSS IN CMC MODE
033136,000464: 14,2062 00006 EXTEND
033137,000465: 14,2063 62074 BZMF R52F # NO
033138,000466: 14,2064 40074 CS STATE # YES: IS TRUNFLAG SET
033139,000467: 14,2065 75014 MASK BIT4
033140,000468: 14,2066 10000 CCS A
033141,000469: 14,2067 02072 TC +3 # NO
033142,000470: 14,2070 31775 CA PAC # YES
033143,000471: 14,2071 55160 TS DESOPTT
033144,000472: 14,2072 31773 CA SAC
033145,000473: 14,2073 55161 TS DESOPTS
033146,000474: 14,2074 35036 R52F CAF .5SEC # WAIT 1/2 SEC
033147,000475: 14,2075 04662 TC BANKCALL
033148,000476: 14,2076 01732 CADR DELAYJOB
033149,000477: 14,2077 35006 CAF BIT10
033150,000478: 14,2100 70075 MASK STATE +1
033151,000479: 14,2101 10000 CCS A
033152,000480: 14,2102 12113 TCF R52HA # YES, LEM
033153,000481: 14,2103 35001 CAF BIT15 # NO
033154,000482: 14,2104 70103 MASK STATE +7 # IS TERMIFLG SET
033155,000483: 14,2105 00006 EXTEND
033156,000484: 14,2106 12035 BZF R52C # NO
033157,000485: 14,2107 06006 R52Q TC INTPRET # YES
033158,000486: 14,2110 77650 GOTO
033159,000487: 14,2111 02576 SAVQR52
033160,000488: 14,2112 77776 R52H EXIT # LEM
033161,000489: 14,2113 04662 R52HA TC BANKCALL
033162,000490: 14,2114 76557 CADR R61CSM
033163,000491: 14,2115 30075 CA STATE +1
033164,000492: 14,2116 75013 MASK BIT5
033165,000493: 14,2117 00006 EXTEND # TRACKFLG
033166,000494: 14,2120 12107 BZF R52Q
033167,000495:
033168,000496: 14,2121 40075 CS STATE +1
033169,000497: 14,2122 75011 MASK BIT7 # UPDATFLG
033170,000498: 14,2123 10000 CCS A
033171,000499: 14,2124 12131 TCF R52SYNC
033172,000500:
033173,000501: 14,2125 30101 R52I CA STATE +5
033174,000502: 14,2126 75006 MASK BIT10
033175,000503: 14,2127 10000 CCS A
033176,000504: 14,2130 02040 TC R52D # PRFTRKAT = 1
033177,000505: 14,2131 32204 R52SYNC CAF 1.8SEC # MAKE UP FOR LOST TIME
033178,000506: 14,2132 12075 TCF R52F +1
033179,000507:
033180,000508: 14,2133 05560 R52J TC DOWNFLAG # CLEAR TRUNFLAG
033181,000509: 14,2134 00013 ADRES TRUNFLAG # BIT 4 FLAG 0
033182,000510: # Page 746
033183,000511: 14,2135 05650 TC ALARM # SET 407 ALARM
033184,000512: 14,2136 00407 OCT 407
033185,000513: 14,2137 02046 TC R52JA
033186,000514: 14,2140 35012 R52M CAF BIT6 # IS R53FLAG SET
033187,000515: 14,2141 70074 MASK STATE
033188,000516: 14,2142 10000 CCS A
033189,000517: 14,2143 02074 TC R52F # YES
033190,000518: 14,2144 00004 INHINT # NO
033191,000519: 14,2145 37661 CAF PRIO24
033192,000520: 14,2146 05147 TC FINDVAC
033193,000521: 14,2147 E5,1773 EBANK= SAC
033194,000522: 14,2147 02153 30065 2CADR R53JOB
033195,000523:
033196,000524: 14,2151 00003 RELINT
033197,000525: 14,2152 12074 TCF R52F
033198,000526: 14,2153 06006 R53JOB TC INTPRET
033199,000527: 14,2154 77624 CALL
033200,000528: 14,2155 31300 R53
033201,000529: 14,2156 77776 ENDPLAC EXIT # INTERPRETER RETURN TO ENDOFJOB (R22 USES)
033202,000530: 14,2157 05217 TC ENDOFJOB
033203,000531: 14,2160 01534 V06N92 VN 00692
033204,000532: 14,2161 01531 V06N89A VN 0689
033205,000533: 14,2162 10464 12470 SHAXIS 2DEC .5376381241 B-1
033206,000534:
033207,000535: 14,2164 00000 00000 2DEC 0 B-28
033208,000536:
033209,000537: 14,2166 15373 11554 2DEC .8431766920 B-1
033210,000538:
033211,000539: 14,2170 35006 R52L CAF BIT10 # IS THIS A LEM
033212,000540: 14,2171 70075 MASK STATE +1
033213,000541: 14,2172 10000 CCS A
033214,000542: 14,2173 02133 TC R52J # YES
033215,000543: 14,2174 32203 CAF OCT404
033216,000544: 14,2175 04662 TC BANKCALL
033217,000545: 14,2176 21766 CADR PRIOLARM
033218,000546: 14,2177 12205 TCF TERM52 # TERMINATE
033219,000547: 14,2200 12074 TCF R52F # PROCEED
033220,000548: 14,2201 12074 TCF R52F # NO PROVISION FOR NEW DATA
033221,000549: 14,2202 15217 TCF ENDOFJOB
033222,000550:
033223,000551: 14,2203 00404 OCT404 OCT 404
033224,000552: 14,2204 00264 1.8SEC DEC 180 B-14
033225,000553:
033226,000554: 14,2205 05536 TERM52 TC CLEARMRK
033227,000555:
033228,000556: 14,2206 04662 TC BANKCALL # KILL MARK SYSTEM
033229,000557: 14,2207 16063 CADR MKRELEAS
033230,000558:
033231,000559: # Page 747
033232,000560:
033233,000561: 14,2210 35021 CAF ZERO
033234,000562: 14,2211 55323 TS OPTCADR
033235,000563:
033236,000564: 14,2212 04662 TC BANKCALL # CLEAR OUT EXTENDED VERBS
033237,000565: 14,2213 20560 CADR KLEENEX
033238,000566:
033239,000567: 14,2214 04106 TC GOTOP00H # NO GO TO P00
033240,000568:
033241,000569: 14,2215 43020 ADVORB STQ SET # SETS UP ADVANCED ORBIT TRACKING
033242,000570: 14,2216 02576 SAVQR52
033243,000571: 14,2217 04065 ADVTRK
033244,000572: 14,2220 43014 SET SET
033245,000573: 14,2221 01463 LUNAFLAG
033246,000574: 14,2222 00462 ERADFLAG
033247,000575: 14,2223 77650 GOTO
033248,000576: 14,2224 30014 R52VRB
033249,000577:
033250,000578: # Page 748
033251,000579: # NAME -- S50 ALIAS LOCSAM
033252,000580: # NAME: LOCSAM
033253,000581:
033254,000582: # FUNCTION -- TO COMPUTE QUATITIGS LISTED BELOW, USED IN THE
033255,000583: # IMU ALIGNMENT PROGRAMS.
033256,000584:
033257,000585: # DEFINE:
033258,000586:
033259,000587: # RATT = POSITION VECTOR OF CM WRT PRIMARY BODY
033260,000588:
033261,000589: # VATT = VELOCITY VECTOR OF CM WRT PRIMARY BODY
033262,000590:
033263,000591: # RE = RADIUS OF EARTH
033264,000592:
033265,000593: # RM = RADIUS OF MOON
033266,000594:
033267,000595: # ECLIPOL = POLE OF ECLIPTIC SCALED BY TANGENTIAL VELOCITY OF EARTH
033268,000596: # WRT TO SUN OVER THE VELOCITY OF LIGHT
033269,000597:
033270,000598: # REM = POSITION OF MOON WRT EARTH
033271,000599:
033272,000600: # RES = POSITION OF SUN WRT EARTH
033273,000601:
033274,000602: # C = VELOCITY OF LIGHT
033275,000603:
033276,000604: # EARTH IS PRIMARY MOON IS PRIMARY
033277,000605: # _ _
033278,000606: # VEARTH=-1(RATT) VEARTH=-1(REM+RATT)
033279,000607: # _ _
033280,000608: # VMOON = 1(REM-RATT) VMOON =-1(RATT)
033281,000609: # _ _
033282,000610: # VSUN = 1(RES) VSUN = 1(RES-REM)
033283,000611: # -1
033284,000612: # CEARTH=COS(SIN (RE/RATT)+5) CEARTH=COS 5
033285,000613: # -1
033286,000614: # CMOON =COS 5 CMOON =COS(SIN CRM/RATT)+5)
033287,000615:
033288,000616: # CSUN =COS 15 CSUN =COS 15
033289,000617:
033290,000618: # VEL/C = VSUN x ECLIPOL + VATT/C
033291,000619:
033292,000620: # CALL: DLOAD CALL
033293,000621: # DESIRED TIME
033294,000622: # LOCSAM
033295,000623:
033296,000624: # INPUTS: MPAC = TIME
033297,000625:
033298,000626: # OUTPUTS: VEARTH, VMOON, VSUN, CEARTH, CMOON, CSUN, VEL/C
033299,000627:
033300,000628: # SUBROUTINES: LSPOS, CSMCONIC
033301,000629:
033302,000630: # DEBRIS: VAC AREA, SEE SUBROUTINES.
033303,000631:
033304,000632: # Page 749
033305,000633: 14,2000 SETLOC P50S1
033306,000634: 14,2000 BANK
033307,000635:
033308,000636: 14,2225 COUNT* $$/S50
033309,000637:
033310,000638: 14,2225 14,2225 LOCSAM = S50
033311,000639: 14,2225 77620 S50 STQ
033312,000640: 14,2226 00300 QMAJ
033313,000641: 14,2227 36607 STCALL TSIGHT
033314,000642: 14,2230 54110 LSPOS
033315,000643: 14,2231 26752 STOVL VMOON
033316,000644: 14,2232 00003 2D
033317,000645: 14,2233 16744 STODL VSUN
033318,000646: 14,2234 02607 TSIGHT
033319,000647: 14,2235 34041 STCALL TDEC1
033320,000648: 14,2236 27114 CSMCONIC
033321,000649: 14,2237 61131 SSP TIX,2
033322,000650: 14,2240 00052 S2
033323,000651: 14,2241 00000 0
033324,000652: 14,2242 30265 MOONCNTR
033325,000653: 14,2243 52375 EARTCNTR VLOAD VSU
033326,000654: 14,2244 02752 VMOON
033327,000655: 14,2245 00001 RATT
033328,000656: 14,2246 77656 UNIT
033329,000657: 14,2247 26752 STOVL VMOON
033330,000658: 14,2250 00001 RATT
033331,000659: 14,2251 57456 UNIT VCOMP
033332,000660: 14,2252 16736 STODL VEARTH
033333,000661: 14,2253 32250 RSUBE
033334,000662: 14,2254 77624 CALL
033335,000663: 14,2255 30325 OCCOS
033336,000664: 14,2256 14017 STODL CEARTH
033337,000665: 14,2257 32266 CSS5
033338,000666: 14,2260 24023 STOVL CMOON
033339,000667: 14,2261 02744 VSUN
033340,000668: 14,2262 77656 UNIT
033341,000669: 14,2263 36744 STCALL VSUN
033342,000670: 14,2264 30312 ENDSAM
033343,000671: 14,2265 40575 MOONCNTR VLOAD VSR8
033344,000672: 14,2266 02752 VMOON
033345,000673: 14,2267 51362 VSR1 BVSU
033346,000674: 14,2270 02744 VSUN
033347,000675: 14,2271 77656 UNIT
033348,000676: 14,2272 26744 STOVL VSUN
033349,000677: 14,2273 02752 VMOON
033350,000678: 14,2274 53455 VAD UNIT
033351,000679: 14,2275 00001 RATT
033352,000680: 14,2276 77676 VCOMP
033353,000681: 14,2277 26736 STOVL VEARTH
033354,000682: # Page 750
033355,000683:
033356,000684: 14,2300 00001 RATT
033357,000685: 14,2301 57456 UNIT VCOMP
033358,000686: 14,2302 16752 STODL VMOON
033359,000687: 14,2303 32246 RSUBM
033360,000688: 14,2304 77624 CALL
033361,000689: 14,2305 30325 OCCOS
033362,000690: 14,2306 14023 STODL CMOON
033363,000691: 14,2307 32266 CSS5
033364,000692: 14,2310 24017 STOVL CEARTH
033365,000693: 14,2311 02744 VSUN
033366,000694: 14,2312 77635 ENDSAM VXV
033367,000695: 14,2313 32256 ECLIPOL
033368,000696: 14,2314 27474 STOVL VEL/C
033369,000697: 14,2315 00007 VATT
033370,000698: 14,2316 53361 VXSC VAD
033371,000699: 14,2317 32254 1/C
033372,000700: 14,2320 03474 VEL/C
033373,000701: 14,2321 17474 STODL VEL/C
033374,000702: 14,2322 32270 CSSUN
033375,000703: 14,2323 34021 STCALL CSUN
033376,000704: 14,2324 00300 QMAJ
033377,000705: 14,2325 70471 OCCOS DDV SR1
033378,000706: 14,2326 00045 36D
033379,000707: 14,2327 43336 ASIN DAD
033380,000708: 14,2330 32252 5DEGREES
033381,000709: 14,2331 70546 COS SR1
033382,000710: 14,2332 77616 RVQ
033383,000711: 15,2000 SETLOC P50S
033384,000712: 15,2000 BANK
033385,000713: 15,2245 00065 01265 RSUBM 2DEC 1738090 B-29 # MOON RADIUS IN METERS
033386,000714:
033387,000715: 15,2247 00302 24533 RSUBE 2DEC 6378166 B-29
033388,000716:
033389,000717: 15,2251 00343 21616 5DEGREES 2DEC .013888889 # SCALED IN REVS
033390,000718:
033391,000719: 15,2253 00000 13143 1/C 2DEC .000042699 B-1 # *
033392,000720:
033393,000721: 15,2255 00000 00000 ECLIPOL 2DEC 0 B-28 # *
033394,000722:
033395,000723: 15,2257 77777 53231 2DEC -.00007896 B-1 # *
033396,000724:
033397,000725: 15,2261 00001 17570 2DEC .00018209 B-1 # * * FOR USE BY CSM ONLY
033398,000726:
033399,000727: 15,2263 00001 16700 TSIGHT1 2DEC 24000 B-28
033400,000728:
033401,000729: 15,2265 CEARTH = 14D
033402,000730: 15,2265 CSUN = 16D
033403,000731: 15,2265 CMOON = 18D
033404,000732: 15,2265 07760 14473 CSS5 2DEC .2490475 # (COS 5)/4
033405,000733: # Page 751
033406,000734: 15,2267 07564 15042 CSSUN 2DEC .24148 # (COS 15)/4
033407,000735:
033408,000736: # Page 752
033409,000737: # PROGRAM NAME -- PICAPAR DATE: DEC 20 66
033410,000738: # MOD 1 LOG SECTION: P51-P53
033411,000739: # ASSEMBLY: SUNDISK REV40
033412,000740: # BY KEN VINCENT
033413,000741:
033414,000742: # FUNCTION
033415,000743: # THIS PROGRAM READS THE IMU-CDUS AND COMPUTES THE VEHICLE ORIENTATION
033416,000744: # WITH RESPECT TO INERTIAL SPACE. IT THEN COMPUTES THE SHAFT AXIS (SAX)
033417,000745: # WITH RESPECT TO REFERENCE INTERTIAL. EACH STAR IN THE CATALOG IS TESTED
033418,000746: # TO DETERMINE IF IT IS OCCULTED BY EITHER EARTH, SUN OR MOON. IF A
033419,000747: # STAR IS NOT OCCULTED THEN IT IS PAIRED WITH ALL STARS OF LOWER INDEX.
033420,000748: # THE PAIRED STAR IS TESTED FOR OCCULTATION. PAIRS OF STARS THAT PASS
033421,000749: # THE OCCULTATION TESTS ARE TESTED FOR GOOD SEPARATION. A PAIR OF STARS
033422,000750: # HAVE GOOD SEPARATION IF THE ANGLE BETWEEN THEM IS LESS THAN 66 DEGREES
033423,000751: # AND MORE THAN 40 DEGREES. THOSE PAIRS WITH GOOD SEPARATION
033424,000752: # ARE THEN TESTED TO SEE IF THEY LIE IN CURRENT FIELD OF VIEW. (WITHIN
033425,000753: # 33 DEGREES OF SAX). THE PAIR WITH MAX SEPARATION IS CHOSEN FROM
033426,000754: # THOSE WITH GOOD SEPARATION, AND IN FIELD OF VIEW.
033427,000755:
033428,000756: # CALLING SEQUENCE
033429,000757: # L TC BANKCALL
033430,000758: # L+1 CADR PICAPAR
033431,000759: # L+2 ERROR RETURN -- NO STARS IN FIELD OF VIEW
033432,000760: # L+3 NORMAL RETURN
033433,000761:
033434,000762: # OUTPUT
033435,000763: # BESTI, BESTJ -- SINGLE PREC, INTEGERS, STAR NUMBERS TIMES 6
033436,000764: # VFLAG -- FLAG BIT SET IMPLIES NO STARS IN FIELD OF VIEW
033437,000765:
033438,000766: # INITIALIZATION
033439,000767: # 1) A CALL TO LOCSAM MUST BE MADE
033440,000768: # 2) VEARTH = -UNIT(R) WHERE R HAS BEEN UPDATED TO APPROXIMATE TIME OF
033441,000769: # SIGHTINGS.
033442,000770:
033443,000771: # DEBRIS
033444,000772: # WORK AREA
033445,000773: # X,Y,ZNB
033446,000774: # SINCDU, COSCDU
033447,000775: # STARAD -- STAR +5
033448,000776:
033449,000777: 15,2271 COUNT 14/PICAP
033450,000778:
033451,000779: 14,2000 SETLOC P50S1
033452,000780: 14,2000 BANK
033453,000781: 14,2333 04711 PICAPAR TC MAKECADR
033454,000782: 14,2334 55777 TS QMIN
033455,000783: 14,2335 06006 TC INTPRET
033456,000784: 14,2336 77624 CALL
033457,000785: 14,2337 47477 CDUTRIG
033458,000786: 14,2340 77624 CALL
033459,000787: 14,2341 34612 CALCSMSC
033460,000788: # Page 753
033461,000789: 14,2342 77601 SETPD
033462,000790: 14,2343 00001 0
033463,000791: 14,2344 71214 SET DLOAD # VFLAG = 1
033464,000792: 14,2345 01465 VFLAG
033465,000793: 14,2346 11566 DPZERO
033466,000794: 14,2347 24303 STOVL BESTI
033467,000795: 14,2350 02714 XNB
033468,000796: 14,2351 63361 VXSC PDVL
033469,000797: 14,2352 30511 SIN33
033470,000798: 14,2353 02730 ZNB
033471,000799: 14,2354 74370 AXT,1 VXSC
033472,000800: 14,2355 00344 228D # X1 = 37 X 6 + 6
033473,000801: 14,2356 30513 COS33
033474,000802: 14,2357 77655 VAD
033475,000803: 14,2360 53505 VXM UNIT
033476,000804: 14,2361 01736 REFSMMAT
033477,000805: 14,2362 02760 STORE SAX # SAX = SHAFT AXIS
033478,000806: 14,2363 66331 SSP SSP # S1 = S2 = 6
033479,000807: 14,2364 00051 S1
033480,000808: 14,2365 00006 6
033481,000809: 14,2366 00052 S2
033482,000810: 14,2367 00006 6
033483,000811: 14,2370 52100 PIC1 TIX,1 GOTO # MAJOR STAR
033484,000812: 14,2371 30373 PIC2
033485,000813: 14,2372 30522 PICEND
033486,000814: 14,2373 45173 PIC2 VLOAD* CALL
033487,000815: 14,2374 31761 CATLOG,1
033488,000816: 14,2375 30466 OCCULT
033489,000817: 14,2376 73014 BON LXA,2
033490,000818: 14,2377 01710 CULTFLAG
033491,000819: 14,2400 30370 PIC1
033492,000820: 14,2401 00046 X1
033493,000821: 14,2402 52104 PIC3 TIX,2 GOTO
033494,000822: 14,2403 30405 PIC4
033495,000823: 14,2404 30370 PIC1
033496,000824: 14,2405 45173 PIC4 VLOAD* CALL
033497,000825: 14,2406 46016 CATLOG,2
033498,000826: 14,2407 30466 OCCULT
033499,000827: 14,2410 76614 BON VLOAD*
033500,000828: 14,2411 01710 CULTFLAG
033501,000829: 14,2412 30402 PIC3
033502,000830: 14,2413 31761 CATLOG,1
033503,000831: 14,2414 45237 DOT* DSU
033504,000832: 14,2415 46016 CATLOG,2
033505,000833: 14,2416 30515 CSS66 # SEPARATION LESS THAN 66 DEG.
033506,000834: 14,2417 43240 BMN DAD
033507,000835: 14,2420 30402 PIC3
033508,000836: 14,2421 30517 CSS6640 # SEPARATION MORE THAN 40 DEG.
033509,000837: 14,2422 77644 BPL
033510,000838: 14,2423 30402 PIC3
033511,000839: # Page 754
033512,000840: 14,2424 50373 VLOAD* DOT
033513,000841: 14,2425 31761 CATLOG,1
033514,000842: 14,2426 02760 SAX
033515,000843: 14,2427 50025 DSU BMN # MAJOR STAR IN CONE
033516,000844: 14,2430 30521 CSS33
033517,000845: 14,2431 30370 PIC1
033518,000846: 14,2432 50373 VLOAD* DOT
033519,000847: 14,2433 46016 CATLOG,2
033520,000848: 14,2434 02760 SAX
033521,000849: 14,2435 51025 DSU BPL
033522,000850: 14,2436 30521 CSS33
033523,000851: 14,2437 30442 STRATGY
033524,000852: 14,2440 77650 GOTO
033525,000853: 14,2441 30402 PIC3
033526,000854: 14,2442 77614 STRATGY BONCLR
033527,000855: 14,2443 01605 VFLAG
033528,000856: 14,2444 30461 NEWPAR
033529,000857: 14,2445 65120 XCHX,1 XCHX,2
033530,000858: 14,2446 00302 BESTI
033531,000859: 14,2447 00303 BESTJ
033532,000860: 14,2450 47773 STRAT VLOAD* DOT*
033533,000861: 14,2451 31761 CATLOG,1
033534,000862: 14,2452 46016 CATLOG,2
033535,000863: 14,2453 43006 PUSH BOFINV
033536,000864: 14,2454 01545 VFLAG
033537,000865: 14,2455 30445 STRAT -3
033538,000866: 14,2456 45345 DLOAD DSU
033539,000867: 14,2457 77644 BPL
033540,000868: 14,2460 30402 PIC3
033541,000869: 14,2461 67130 NEWPAR SXA,1 SXA,2
033542,000870: 14,2462 00302 BESTI
033543,000871: 14,2463 00303 BESTJ
033544,000872: 14,2464 77650 GOTO
033545,000873: 14,2465 30402 PIC3
033546,000874: 14,2466 51321 OCCULT MXV BVSU
033547,000875: 14,2467 02736 CULTRIX
033548,000876: 14,2470 00017 CSS
033549,000877: 14,2471 77654 BZE
033550,000878: 14,2472 30505 CULTED
033551,000879: 14,2473 75240 BMN SIGN
033552,000880: 14,2474 30505 CULTED
033553,000881: 14,2475 00160 MPAC +3
033554,000882: 14,2476 75240 BMN SIGN
033555,000883: 14,2477 30505 CULTED
033556,000884: 14,2500 00162 MPAC +5
033557,000885: 14,2501 43040 BMN CLRGO
033558,000886: 14,2502 30505 CULTED
033559,000887: 14,2503 01630 CULTFLAG
033560,000888: 14,2504 00052 QPRET
033561,000889: 14,2505 77614 CULTED SETGO
033562,000890: # Page 755
033563,000891: 14,2506 01430 CULTFLAG
033564,000892: 14,2507 00052 QPRET
033565,000893: 14,2510 0000016 CSS = CEARTH
033566,000894: 14,2510 21150 25157 SIN33 2DEC .5376381241
033567,000895:
033568,000896: 14,2512 32766 22713 COS33 2DEC .8431756920
033569,000897:
033570,000898: 14,2514 01736 35137 CSS66 2DEC .060480472 # (COS76)/4
033571,000899:
033572,000900: 14,2516 73003 65403 CSS6640 2DEC -.15602587 # (COS76 - COS30)/4
033573,000901:
033574,000902: 14,2520 06233 26112 CSS33 2DEC .197002688 # (COS(1/2(76))/4
033575,000903:
033576,000904: 14,2522 77414 PICEND BOFF EXIT
033577,000905: 14,2523 01745 VFLAG
033578,000906: 14,2524 30526 PICGXT
033579,000907: 14,2525 02530 TC PICBXT
033580,000908: 14,2526 77776 PICGXT EXIT
033581,000909: 14,2527 25777 INCR QMIN
033582,000910: 14,2530 31777 PICBXT CA QMIN
033583,000911: 14,2531 04666 TC SWCALL
033584,000912: # V1 = 12D
033585,000913:
033586,000914: # Page 756
033587,000915: # NAME -- R51 FINE ALIGN
033588,000916: # FUNCTION -- TO ALIGN THE STABLE MEMBER TO REFSSMAT
033589,000917: # CALLING SEQ -- CALL R51
033590,000918: # INPUT -- BESTI, BESTJ (PAIR OF STAR NO)
033591,000919: # OUTPUT -- GYRO TORQUE PULSES
033592,000920: # SUBROUTINES -- R52, R54, R55 (SXTNB, NBSM, AXISGEN)
033593,000921:
033594,000922: 14,2532 COUNT 14/R51
033595,000923:
033596,000924: 14,2532 77776 R51 EXIT
033597,000925: 14,2533 35017 CAF BIT1
033598,000926: 14,2534 54304 TS STARIND
033599,000927: 14,2535 54301 TS MARKINDX
033600,000928: 14,2536 06006 R51.2 TC INTPRET
033601,000929: 14,2537 43014 R51.3 CLEAR CLEAR
033602,000930: 14,2540 00666 TARG2FLG
033603,000931: 14,2541 00665 TARG1FLG
033604,000932: 14,2542 77776 EXIT
033605,000933: 14,2543 05412 TC PHASCHNG
033606,000934: 14,2544 05024 OCT 05024 # RESTART GR 4 FOR R52-R53
033607,000935: 14,2545 13000 OCT 13000
033608,000936: 14,2546 50304 INDEX STARIND
033609,000937: 14,2547 30302 CA BESTI
033610,000938: 14,2550 00006 EXTEND
033611,000939: 14,2551 72713 MP 1/6TH
033612,000940: 14,2552 54735 TS STARCODE
033613,000941: 14,2553 32712 R51DSP CAF V01N70
033614,000942: 14,2554 04662 TC BANKCALL
033615,000943: 14,2555 21057 CADR GOFLASHR
033616,000944: 14,2556 04106 TC GOTOP00H
033617,000945: 14,2557 02564 TC +5
033618,000946: 14,2560 02553 TC -5
033619,000947: 14,2561 36211 CAF SIX
033620,000948: 14,2562 05526 TC BLANKET
033621,000949: 14,2563 15217 TCF ENDOFJOB
033622,000950: 14,2564 03366 TC CHKSCODE
033623,000951: 14,2565 04400 TC FALTON
033624,000952: 14,2566 02553 TC R51DSP
033625,000953: 14,2567 06006 TC INTPRET
033626,000954: 14,2570 45034 RTB CALL
033627,000955: 14,2571 45510 LOADTIME
033628,000956: 14,2572 32340 PLANET
033629,000957: 14,2573 72131 SSP LXA,1
033630,000958: 14,2574 00051 S1
033631,000959: 14,2575 00000 0
033632,000960: 14,2576 00304 STARIND
033633,000961: 14,2577 77700 TIX,1
033634,000962: 14,2600 30603 R51ST
033635,000963: 14,2601 36617 STCALL STARSAV2 # 2ND STAR
033636,000964: 14,2602 30604 R51ST +1
033637,000965: 14,2603 02611 R51ST STORE STARSAV1 # 1ST STAR
033638,000966: # Page 757
033639,000967: 14,2604 77776 EXIT
033640,000968: 14,2605 41011 CS MODREG # IS THIS P54
033641,000969: 14,2606 62711 AD OCT66
033642,000970: 14,2607 00006 EXTEND
033643,000971: 14,2610 12704 BZF R51B # YES
033644,000972: 14,2611 06006 TC INTPRET
033645,000973: 14,2612 77624 CALL
033646,000974: 14,2613 30011 R52 # AOP WILL MAKE CALLS TO SIGHTING
033647,000975: 14,2614 77624 R51A CALL # COMPUTE LOS IN SM FROM MARK DATA
033648,000976: 14,2615 36022 SXTSM
033649,000977: 14,2616 02617 STORE STARSAV2
033650,000978: 14,2617 77776 EXIT
033651,000979: 14,2620 04662 TC BANKCALL
033652,000980: 14,2621 16063 CADR MKRELEAS
033653,000981: 14,2622 06006 TC INTPRET
033654,000982: 14,2623 45145 DLOAD CALL
033655,000983: 14,2624 02607 TSIGHT
033656,000984: 14,2625 32340 PLANET
033657,000985: 14,2626 77776 EXIT
033658,000986: 14,2627 10304 CCS STARIND
033659,000987: 14,2630 02671 TC R51.4
033660,000988: 14,2631 06006 TC INTPRET
033661,000989: 14,2632 53521 MXV UNIT
033662,000990: 14,2633 01736 REFSMMAT
033663,000991: 14,2634 02736 STORE STARAD
033664,000992: 14,2635 77775 VLOAD
033665,000993: 14,2636 02617 STARSAV2
033666,000994: 14,2637 24007 STOVL 6D
033667,000995: 14,2640 02611 STARSAV1
033668,000996: 14,2641 24015 STOVL 12D
033669,000997: 14,2642 02601 PLANVEC
033670,000998: 14,2643 36744 STCALL STARAD +6
033671,000999: 14,2644 30714 R54 # STAR DATA TEST
033672,001000: 14,2645 45014 BOFF CALL
033673,001001: 14,2646 00354 FREEFLAG
033674,001002: 14,2647 30655 R51K
033675,001003: 14,2650 47401 AXISGEN
033676,001004: 14,2651 77624 CALL
033677,001005: 14,2652 32271 R55 # GYRO TORQUE
033678,001006: 14,2653 77614 CLEAR
033679,001007: 14,2654 01273 PFRATFLG
033680,001008: 14,2655 77776 R51K EXIT
033681,001009: 14,2656 35771 CAF OCT14
033682,001010: 14,2657 04662 TC BANKCALL
033683,001011: 14,2660 21045 CADR GOPERF1
033684,001012: 14,2661 04106 TC GOTOP00H
033685,001013: 14,2662 02664 TC +2 # V33
033686,001014: 14,2663 02666 TC +3
033687,001015: 14,2664 04662 TC BANKCALL
033688,001016: 14,2665 32120 CADR P52C
033689,001017: # Page 758
033690,001018: 14,2666 06006 TC INTPRET
033691,001019: 14,2667 77650 GOTO
033692,001020: 14,2670 32145 ENDP50S
033693,001021: 14,2671 06006 R51.4 TC INTPRET
033694,001022: 14,2672 53521 MXV UNIT
033695,001023: 14,2673 01736 REFSMMAT
033696,001024: 14,2674 26601 STOVL PLANVEC
033697,001025: 14,2675 02617 STARSAV2
033698,001026: 14,2676 02611 STORE STARSAV1
033699,001027: 14,2677 77731 SSP
033700,001028: 14,2700 00305 STARIND
033701,001029: 14,2701 00000 0
033702,001030: 14,2702 77650 GOTO
033703,001031: 14,2703 30537 R51.3
033704,001032: 14,2704 06006 R51B TC INTPRET
033705,001033: 14,2705 77624 CALL
033706,001034: 14,2706 36056 R56
033707,001035: 14,2707 77650 GOTO
033708,001036: 14,2710 30614 R51A
033709,001037: 14,2711 00066 OCT66 OCT 00066
033710,001038: 14,2712 00306 V01N70 VN 0170
033711,001039: 14,2713 05253 1/6TH DEC .1666667
033712,001040:
033713,001041: # Page 759
033714,001042: # NAME: R55 GYRO TORQUE
033715,001043: # FUNCTION -- COMPUTE AND SEND GYRO PULSES
033716,001044: # CALLING SEQ -- CALL R55
033717,001045: # INPUT -- X,Y,ZDC -- REFSMMAT WRT PRESENT STABLE MEMBER
033718,001046: # OUTPUT -- GYRO PULSES
033719,001047: # SUBROUTINES -- CALCGTA, GOFLASH, GODSPR, IMUFINE, IMUPULSE, GOPERF1
033720,001048:
033721,001049: 15,2000 SETLOC P50S
033722,001050: 15,2000 BANK
033723,001051: 15,2271 COUNT* $$/R55
033724,001052: 15,2271 77620 R55 STQ
033725,001053: 15,2272 02777 QMIN
033726,001054: 15,2273 77624 CALL
033727,001055: 15,2274 47205 CALCGTA
033728,001056: 15,2275 77776 PULSEM EXIT
033729,001057: 15,2276 32322 R55.1 CAF V06N93
033730,001058: 15,2277 04662 TC BANKCALL
033731,001059: 15,2300 20720 CADR GOFLASH
033732,001060: 15,2301 04106 TC GOTOP00H
033733,001061: 15,2302 02304 TC R55.2
033734,001062: 15,2303 02317 TC R55RET
033735,001063: 15,2304 05412 R55.2 TC PHASCHNG
033736,001064: 15,2305 00314 OCT 00314
033737,001065: 15,2306 32323 CA R55CDR
033738,001066: 15,2307 04662 TC BANKCALL
033739,001067: 15,2310 17206 CADR IMUPULSE
033740,001068: 15,2311 04662 TC BANKCALL
033741,001069: 15,2312 17577 CADR IMUSTALL
033742,001070: 15,2313 05757 TC CURTAINS
033743,001071: 15,2314 05412 TC PHASCHNG
033744,001072: 15,2315 05024 OCT 05024
033745,001073: 15,2316 13000 OCT 13000
033746,001074: 15,2317 06006 R55RET TC INTPRET
033747,001075: 15,2320 77650 GOTO
033748,001076: 15,2321 02777 QMIN
033749,001077: 15,2322 01535 V06N93 VN 0693
033750,001078: 15,2323 02757 R55CDR ECADR OGC
033751,001079: 15,2324 14,2714 R54 = CHKSDATA
033752,001080:
033753,001081: # ROUTINE NAME -- CHKSDATA DATE -- JAN 9, 1967
033754,001082: # MOD NO -- 0 LOG SECTION -- P51-P53
033755,001083: # MODIFICATION BY -- LONSKE ASSEMBLY --
033756,001084:
033757,001085: # FUNCTIONAL DESCRIPTION -- CHECKS THE VALIDITY OF A PAIR OF STAR SIGHTINGS. WHEN A PAIR OF STAR SIGHTINGS ARE MADE
033758,001086: # BY THE ASTRONAUT THIS ROUTINE OPERATES AND CHECKS THE OBSERVED SIGHTINGS AGAINST STORED STAR VECTORS IN THE
033759,001087: # COMPUTER TO INSURE A PROPER SIGHTING WAS MADE. THE FOLLOWING COMPUTATIONS ARE PERFORMED --
033760,001088: # OS1 = OBSERVED STAR 1 VECTOR
033761,001089: # OS2 = OBSERVED STAR 2 VECTOR
033762,001090: # SS1 = STORED STAR 1 VECTOR
033763,001091: # SS2 = STORED STAR 2 VECTOR
033764,001092: # A1 = ARCCOS(OS1 - OS2)
033765,001093: # Page 760
033766,001094: # A2 = ARCCOS(SS1 - SS2)
033767,001095: # A = ABS(2(A1 - A2))
033768,001096:
033769,001097: # THE ANGULAR DIFFERENCE IS DISPLAYED FOR ASTRONAUT ACCEPTANCE.
033770,001098:
033771,001099: # EXIT MODE -- 1. FREEFLAG SET IMPLIES ASTRONAUT WANTS TO PROCEED
033772,001100: # 2. FREEFLAG RESET IMPLIES ASTRONAUT WANTS TO RECYCLE
033773,001101:
033774,001102: # OUTPUT -- 1. VERB 6,NOUN 3 -- DISPLAYS ANGULAR DIFFERENCE BETWEEN 2 SETS OF STARS.
033775,001103: # 2. STAR VECTORS FROM STAR CATALOG ARE LEFT IN 6D AND 12D.
033776,001104:
033777,001105: # ERASABLE INITIALIZATION REQUIRED --
033778,001106: # 1. MARK VECTORS ARE STORED IN STARAD AND STARAD +6.
033779,001107: # 2. CATALOG VECTORS ARE STORED IN 6D AND 12D.
033780,001108:
033781,001109: # DEBRIS --
033782,001110:
033783,001111: 14,2000 SETLOC P50S1
033784,001112: 14,2000 BANK
033785,001113: 14,2714 COUNT* $$/R50
033786,001114: 14,2714 43020 CHKSDATA STQ SET
033787,001115: 14,2715 02777 QMIN
033788,001116: 14,2716 00074 FREEFLAG
033789,001117: 14,2717 77760 CHKSAB AXC,1 # SET X1 TO STORE EPHEMERIS DATA
033790,001118: 14,2720 02735 STARAD
033791,001119:
033792,001120: 14,2721 47773 CHKSB VLOAD* DOT* # CAL. ANGLE THETA
033793,001121: 14,2722 00001 0,1
033794,001122: 14,2723 00007 6,1
033795,001123: 14,2724 65552 SL1 ACOS
033796,001124: 14,2725 00025 STORE THETA
033797,001125: 14,2726 43014 BOFF INVERT # BRANCH TO CHKSD IF THIS IS 2ND PASS
033798,001126: 14,2727 00354 FREEFLAG
033799,001127: 14,2730 30740 CHKSD
033800,001128: 14,2731 00174 FREEFLAG # CLEAR FREEFLAG
033801,001129: 14,2732 71360 AXC,1 DLOAD # SET X1 TO MARK ANGLES
033802,001130: 14,2733 00006 6D
033803,001131: 14,2734 00025 THETA
033804,001132: 14,2735 00023 STORE 18D
033805,001133: 14,2736 77650 GOTO
033806,001134: 14,2737 30721 CHKSB # RETURN TO CAL. 2ND ANGLE
033807,001135: 14,2740 45345 CHKSD DLOAD DSU
033808,001136: 14,2741 00025 THETA # COMPUTE POS DIFF
033809,001137: 14,2742 00023 18D
033810,001138: 14,2743 47046 ABS RTB
033811,001139: 14,2744 45544 SGNAGREE
033812,001140: 14,2745 01046 STORE NORMTEM1
033813,001141: 14,2746 77414 SET EXIT
033814,001142: 14,2747 00074 FREEFLAG
033815,001143: 14,2750 35021 CAF ZERO
033816,001144: 14,2751 04662 TC BANKCALL
033817,001145: 14,2752 20703 CADR CLEANDSP
033818,001146:
033819,001147: 14,2753 32767 CAF VB6N5
033820,001148: # Page 761
033821,001149: 14,2754 04662 TC BANKCALL
033822,001150: 14,2755 20720 CADR GOFLASH
033823,001151: 14,2756 14106 TCF GOTOP00H
033824,001152: 14,2757 02764 TC CHKSDA # PROCEED
033825,001153: 14,2760 06006 TC INTPRET
033826,001154: 14,2761 52014 CLEAR GOTO
033827,001155: 14,2762 00274 FREEFLAG
033828,001156: 14,2763 02777 QMIN
033829,001157: 14,2764 06006 CHKSDA TC INTPRET
033830,001158: 14,2765 77650 GOTO
033831,001159: 14,2766 02777 QMIN
033832,001160: 14,2767 01405 VB6N5 VN 605
033833,001161:
033834,001162: # NAME -- CAL53A
033835,001163: # FUNCTION -- COARSE ALIGN THE IMU, IF NECESSARY
033836,001164: # CALLING SEQUENCE -- CALL CAL53A
033837,001165: # INPUT -- PRESENT GIMBAL ANGLES -- CDUX, CDUY, CDUZ
033838,001166: # DESIRED GIMBAL ANGLES -- THETAD,+1,+2
033839,001167: # OUTPUT -- THE IMU COORDINATES AT STORED IN REFSMMAT
033840,001168: # SUBROUTINES -- 1.IMUCOARS, 2.IMUSTALL, 3CURTAINS
033841,001169:
033842,001170: 14,2770 COUNT 14/R50
033843,001171:
033844,001172: 14,2770 77624 CAL53A CALL
033845,001173: 14,2771 22331 S52.2 # MAKE FINAL COMP OF GIMBAL ANGLES
033846,001174: 14,2772 66234 RTB SSP
033847,001175: 14,2773 32324 RDCDUS # READ CDUS
033848,001176: 14,2774 00051 S1
033849,001177: 14,2775 00001 1
033850,001178: 14,2776 40370 AXT,1 SETPD
033851,001179: 14,2777 00003 3
033852,001180: 14,3000 00005 4
033853,001181: 14,3001 70543 CALOOP DLOAD* SR1
033854,001182: 14,3002 01161 THETAD +3D,1
033855,001183: 14,3003 70523 PDDL* SR1
033856,001184: 14,3004 00005 4,1
033857,001185: 14,3005 51425 DSU ABS
033858,001186: 14,3006 45206 PUSH DSU
033859,001187: 14,3007 31066 DEGREE1
033860,001188: 14,3010 71240 BMN DLOAD
033861,001189: 14,3011 31042 CALOOP1
033862,001190: 14,3012 51025 DSU BPL
033863,001191: 14,3013 31067 DEG359
033864,001192: 14,3014 31042 CALOOP1
033865,001193: 14,3015 77776 COARFINE EXIT
033866,001194: 14,3016 05412 TC PHASCHNG
033867,001195: 14,3017 04024 OCT 04024
033868,001196: 14,3020 04662 TC BANKCALL
033869,001197: 14,3021 16663 CADR IMUCOARS # PERFORM COARSE ALIGNMENT
033870,001198: 14,3022 04662 TC BANKCALL
033871,001199: 14,3023 17577 CADR IMUSTALL # REQUEST MODE SWITCH
033872,001200: # Page 762
033873,001201: 14,3024 05757 TC CURTAINS
033874,001202: 14,3025 04662 TC BANKCALL
033875,001203: 14,3026 17073 CADR IMUFIN20
033876,001204: 14,3027 04662 TC BANKCALL
033877,001205: 14,3030 17577 CADR IMUSTALL
033878,001206: 14,3031 05757 TC CURTAINS # TEST FOR MALFUNCTION
033879,001207: 14,3032 06006 TC INTPRET
033880,001208: 14,3033 77234 RTB VLOAD
033881,001209: 14,3034 31275 SET1/PDT
033882,001210: 14,3035 11566 ZEROVEC
033883,001211: 14,3036 01472 STORE GCOMP
033884,001212: 14,3037 52014 SET GOTO
033885,001213: 14,3040 01060 DRIFTFLG
033886,001214: 14,3041 31044 FINEONLY
033887,001215: 14,3042 77700 CALOOP1 TIX,1
033888,001216: 14,3043 31001 CALOOP
033889,001217: 14,3044 75160 FINEONLY AXC,1 AXC,2
033890,001218: 14,3045 02671 XSM
033891,001219: 14,3046 01735 REFSMMAT
033892,001220: 14,3047 77624 CALL
033893,001221: 14,3050 31053 MATMOVE
033894,001222: 14,3051 77650 GOTO
033895,001223: 14,3052 32116 CAL53RET
033896,001224: 14,3053 77773 MATMOVE VLOAD* # TRANSFER MATRIX
033897,001225: 14,3054 00001 0,1
033898,001226: 14,3055 10001 STORE 0,2
033899,001227: 14,3056 77773 VLOAD*
033900,001228: 14,3057 00007 6D,1
033901,001229: 14,3060 10007 STORE 6D,2
033902,001230: 14,3061 77773 VLOAD*
033903,001231: 14,3062 00015 12D,1
033904,001232: 14,3063 10015 STORE 12D,2
033905,001233: 14,3064 77616 RVQ
033906,001234: 14,3065 00056 DEGREE1 DEC 46 B-14
033907,001235: 14,3066 37722 DEG359 DEC 16338 B-14
033908,001236: 15,2000 SETLOC P50S
033909,001237: 15,2000 BANK
033910,001238: 15,2324 00004 RDCDUS INHINT # READ CDUS
033911,001239: 15,2325 30032 CA CDUX
033912,001240: 15,2326 50120 INDEX FIXLOC
033913,001241: 15,2327 54001 TS 1
033914,001242: 15,2330 30033 CA CDUY
033915,001243: 15,2331 50120 INDEX FIXLOC
033916,001244: 15,2332 54002 TS 2
033917,001245: 15,2333 30034 CA CDUZ
033918,001246: 15,2334 50120 INDEX FIXLOC
033919,001247: 15,2335 54003 TS 3
033920,001248: 15,2336 00003 RELINT
033921,001249: 15,2337 06030 TC DANZIG
033922,001250:
033923,001251: # Page 763
033924,001252: # NAME: GIMB
033925,001253:
033926,001254: # FUNCTION: DETERMINE AND COMPUTE THE DESIRED GIMBAL ANGLES TO BE USED FOR COARSE ALIGNMENT.
033927,001255:
033928,001256: # CALLING SEQUENCE: CALL GIMB
033929,001257:
033930,001258: # INPUT: DESIRED IMU INERTIAL ORIENTATION VECTORS: XSMD, YSMD, ZSMD
033931,001259:
033932,001260: # OUTPUT: GIMBAL ANGLES LEFT IN THETAD, +1, +2
033933,001261:
033934,001262: # SUBROUTINES USED: 1.CDUTRIG 2.CALCSMSC 3.CALCGA
033935,001263:
033936,001264: 16,2000 SETLOC P50S2
033937,001265: 16,2000 BANK
033938,001266: 16,2612 COUNT 14/INFLT
033939,001267:
033940,001268: 16,2612 41345 CALCSMSC DLOAD DMP
033941,001269: 16,2613 00737 SINCDUY
033942,001270: 16,2614 00747 COSCDUZ
033943,001271: 16,2615 77676 DCOMP
033944,001272: 16,2616 70525 PDDL SR1
033945,001273: 16,2617 00741 SINCDUZ
033946,001274: 16,2620 41325 PDDL DMP
033947,001275: 16,2621 00745 COSCDUY
033948,001276: 16,2622 00747 COSCDUZ
033949,001277: 16,2623 76466 VDEF VSL1
033950,001278: 16,2624 02714 STORE XNB
033951,001279: 16,2625 41345 DLOAD DMP
033952,001280: 16,2626 00743 SINCDUX
033953,001281: 16,2627 00741 SINCDUZ
033954,001282: 16,2630 77752 SL1
033955,001283: 16,2631 00033 STORE 26D
033956,001284: 16,2632 77605 DMP
033957,001285: 16,2633 00737 SINCDUY
033958,001286: 16,2634 41325 PDDL DMP
033959,001287: 16,2635 00751 COSCDUX
033960,001288: 16,2636 00745 COSCDUY
033961,001289: 16,2637 77625 DSU
033962,001290: 16,2640 41325 PDDL DMP
033963,001291: 16,2641 00743 SINCDUX
033964,001292: 16,2642 00747 COSCDUZ
033965,001293: 16,2643 77676 DCOMP
033966,001294: 16,2644 41325 PDDL DMP
033967,001295: 16,2645 00751 COSCDUX
033968,001296: 16,2646 00737 SINCDUY
033969,001297: 16,2647 41325 PDDL DMP
033970,001298: 16,2650 00745 COSCDUY
033971,001299: 16,2651 00033 26D
033972,001300: 16,2652 55415 DAD VDEF
033973,001301: 16,2653 77772 VSL1
033974,001302: 16,2654 02730 STORE ZNB
033975,001303: 16,2655 76435 VXV VSL1
033976,001304: 16,2656 02714 XNB
033977,001305: 16,2657 02722 STORE YNB
033978,001306: 16,2660 77616 RVQ
033979,001307:
033980,001308: # NAME -- P51 -- IMU ORIENTATION DETERMINATION
033981,001309: # MOD. NO. 2 21 DEC 66 LOG SECTION -- P51-P53
033982,001310: # Page 764
033983,001311: # MOD BY STURLAUGSON ASSEMBLY SUNDISK REV15
033984,001312:
033985,001313: # FUNCTIONAL DESCRIPTION
033986,001314: # DETERMINES THE INERTIAL ORIENTATION OF THE IMU. THE PROGRAM IS SELECTED BY DSKY ENTRY. THE SIGHTING
033987,001315: # ROUTINE IS CALLED TO COLLECT THE CDU COUNTERS AND SHAFT AND TRUNNION ANGLES FOR A SIGHTED STAR. THE DATA IS
033988,001316: # THEN PROCESSED AS FOLLOWS.
033989,001317:
033990,001318: # 1. SEXTANT ANGLES ARE COMPUTED IN TERMS OF NAVIGATIONAL BASE COORDINATES. LET SA AND TA BE THE SHAFT AND
033991,001319: # TRUNNION ANGLES, RESPECTIVELY. THEN,
033992,001320: # _
033993,001321: # V = (SIN(TA)*COS(SA), SIN(TA)*SIN(SA), COS(TA)) (A COLUMN VECTOR)
033994,001322: # NB
033995,001323: # THE OUTPUT IS A HALF-UNIT VECTOR STORED IN STARM.
033996,001324:
033997,001325: # 2. THIS VECTOR IN NAV. BASE COORDS. IS THEN TRANSFORMED TO ONE IN STABLE MEMBER COORDINATES.
033998,001326: # _ T T T _
033999,001327: # V = Q *Q *Q *V , WHERE
034000,001328: # 1 2 3 NB
034001,001329:
034002,001330: # ( COS(IG) 0 -SIN(IG) )
034003,001331: # ( ) THE GIMBAL ANGLES ARE COMPUTED FROM
034004,001332: # Q = ( 0 1 0 ), IG= INNER GIMBAL ANGLE THE CDU COUNTERS AT NBSM (USING AXIS-
034005,001333: # 1 ( ) ROT AND CDULOGIC)
034006,001334: # ( SIN(IG) 0 COS(IG) )
034007,001335:
034008,001336: # ( COS(MG) SIN(MG) 0 )
034009,001337: # ( )
034010,001338: # Q = (-SIN(MG) COS(MG) 0 ), MG= MIDDLE GIMBAL ANGLE
034011,001339: # 2 ( )
034012,001340: # ( 0 0 1 )
034013,001341:
034014,001342: # ( 1 0 0 )
034015,001343: # ( )
034016,001344: # Q = ( 0 COS(OG) SIN(OG) ), OG= OUTER GIMBAL ANGLE
034017,001345: # 3 ( )
034018,001346: # ( 0 -SIN(OG) COS(OG) )
034019,001347:
034020,001348: # 3. THE STAR NUMBER IS SAVED AND THE SECOND STAR IS THEN SIMILARLY PROCESSED.
034021,001349:
034022,001350: # 4. THE ANGLE BETWEEN THE TWO STARS IS THEN CHECKED AT CKSDATA.
034023,001351:
034024,001352: # 5. REFSMMAT IS THEN COMPUTED AT AXISGEN AS FOLLOWS.
034025,001353: # _ _
034026,001354: # LET S AND S BE TWO STAR VECTORS EXPRESSED IN TWO COORDINATE SYSTEMS, A AND B (BASIC AND STABLE MEMBER).
034027,001355: # 1 2
034028,001356: # Page 765
034029,001357: # DEFINE,
034030,001358: # _ _
034031,001359: # U = S
034032,001360: # A A1
034033,001361: # _ _ _
034034,001362: # V = UNIT(S x S )
034035,001363: # A A1 A2
034036,001364: # _ _ _
034037,001365: # W = U x V
034038,001366: # A A A
034039,001367:
034040,001368: # AND,
034041,001369: # _ _
034042,001370: # U = S
034043,001371: # B B1
034044,001372: # _ _ _
034045,001373: # V = UNIT(S x S )
034046,001374: # B B1 B2
034047,001375: # _ _ _
034048,001376: # W = U x V
034049,001377: # B B B
034050,001378:
034051,001379: # THEN
034052,001380: # _ _ _ _
034053,001381: # X = U *U + V *V + W *W
034054,001382: # B1 A B1 A B1 A
034055,001383: # _ _ _ _
034056,001384: # Y = U *U + V *V + W *W (REFSMMAT)
034057,001385: # B2 A B2 A B2 A
034058,001386: # _ _ _ _
034059,001387: # Z = U *U + V *V + W *W
034060,001388: # B3 A B3 A B3 A
034061,001389:
034062,001390: # THE INPUTS CONSIST OF THE FOUR HALF-UNIT VECTORS STORED AS FOLLOWS
034063,001391: # _
034064,001392: # S IN 6-11 OF THE VAC AREA
034065,001393: # A1
034066,001394: # _
034067,001395: # S IN 12-17 OF THE VAC AREA
034068,001396: # A2
034069,001397: # _
034070,001398: # S IN STARAD
034071,001399: # B1
034072,001400: # Page 766 _
034073,001401: # S IN STARAD +6
034074,001402: # B2
034075,001403:
034076,001404: # CALLING SEQUENCE:
034077,001405:
034078,001406: # THE PROGRAM IS CALLED BY THE ASTRONAUT BY DSKY ENTRY.
034079,001407:
034080,001408: # SUBROUTINES CALLED:
034081,001409:
034082,001410: # GOPERF3
034083,001411: # GOPERF1R
034084,001412: # GODSPR
034085,001413: # IMUCOARS
034086,001414: # IMUFIN20
034087,001415: # R53
034088,001416: # SXTNB
034089,001417: # NBSM
034090,001418: # MKRELEAS
034091,001419: # CHKSDATA
034092,001420: # MATMOVE
034093,001421:
034094,001422: # ALARMS
034095,001423:
034096,001424: # NONE
034097,001425:
034098,001426: # ERASABLE INITIALIZATION:
034099,001427:
034100,001428: # IMU ZERO FLAG SHOULD BE SET.
034101,001429:
034102,001430: # OUTPUT
034103,001431:
034104,001432: # REFSMMAT
034105,001433: # REFSMFLG
034106,001434:
034107,001435: # DEBRIS
034108,001436:
034109,001437: # WORK AREA
034110,001438: # STARAD
034111,001439: # STARIND
034112,001440: # BESTI
034113,001441: # BESTJ
034114,001442:
034115,001443: 14,2000 SETLOC P50S1
034116,001444: 14,2000 BANK
034117,001445: 14,3067 COUNT 14/P5153
034118,001446:
034119,001447: 14,3067 14,3067 P53 EQUALS P51
034120,001448: 14,3067 41320 P51 CS IMODES30
034121,001449: 14,3070 75007 MASK BIT9
034122,001450: 14,3071 10000 CCS A
034123,001451: # Page 767
034124,001452: 14,3072 03076 TC P51A
034125,001453: 14,3073 05650 TC ALARM
034126,001454: 14,3074 00210 OCT 210
034127,001455: 14,3075 04106 TC GOTOP00H
034128,001456: 14,3076 04662 P51A TC BANKCALL
034129,001457: 14,3077 17667 CADR R02ZERO
034130,001458:
034131,001459: 14,3100 35025 P51AA CAF PRFMSTAQ
034132,001460: 14,3101 04662 TC BANKCALL
034133,001461: 14,3102 21045 CADR GOPERF1
034134,001462: 14,3103 04106 TC GOTOP00H # TERM.
034135,001463: 14,3104 03140 TC P51B # V33
034136,001464: 14,3105 05412 TC PHASCHNG
034137,001465: 14,3106 05024 OCT 05024
034138,001466: 14,3107 13000 OCT 13000
034139,001467: 14,3110 35021 CAF P51ZERO
034140,001468: 14,3111 55155 TS THETAD # ZERO THE GIMBALS
034141,001469: 14,3112 55156 TS THETAD +1
034142,001470: 14,3113 55157 TS THETAD +2
034143,001471: 14,3114 33273 CAF V6N22
034144,001472: 14,3115 04662 TC BANKCALL
034145,001473: 14,3116 20673 CADR GODSPRET
034146,001474: 14,3117 33274 CAF V41K # NOW DISPLAY COARSE ALIGN VERB 41
034147,001475: 14,3120 04662 TC BANKCALL
034148,001476: 14,3121 20673 CADR GODSPRET
034149,001477: 14,3122 04662 TC BANKCALL
034150,001478: 14,3123 16663 CADR IMUCOARS
034151,001479: 14,3124 04662 TC BANKCALL
034152,001480: 14,3125 17577 CADR IMUSTALL
034153,001481: 14,3126 05757 TC CURTAINS # CAGING OR BAD END
034154,001482: 14,3127 04662 TC BANKCALL # SCHEDULE IFAILOK AND IMUFINED TASKS, IN 5
034155,001483: 14,3130 17073 CADR IMUFIN20 # AND 20 SECS. DIRECT RETURN AND NO STALL,
034156,001484: 14,3131 04662 TC BANKCALL # IF CAGING, BUT T4 WILL ZERO C/A ENABLE.
034157,001485: 14,3132 17577 CADR IMUSTALL # IF PUT TO SLEEP, IMUFINED WILL WAKE US
034158,001486: 14,3133 05757 TC CURTAINS # UP.
034159,001487: 14,3134 05412 TC PHASCHNG
034160,001488: 14,3135 05024 OCT 05024
034161,001489: 14,3136 13000 OCT 13000
034162,001490: 14,3137 13100 TCF P51AA # COARSE ALIGN DONE: RECYCLE FOR FINE
034163,001491:
034164,001492: # Page 768
034165,001493: # DO STAR SIGHTING AND COMPUTE NEW REFSMMAT
034166,001494: 14,3140 05412 P51B TC PHASCHNG
034167,001495: 14,3141 00014 OCT 00014
034168,001496: 14,3142 06006 TC INTPRET
034169,001497: 14,3143 40331 SSP SETPD
034170,001498: 14,3144 00305 STARIND # INDEX -- STAR 1 OR 2
034171,001499: 14,3145 00000 0
034172,001500: 14,3146 00001 0
034173,001501: 14,3147 77234 RTB VLOAD
034174,001502: 14,3150 31275 SET1/PDT
034175,001503: 14,3151 11566 ZEROVEC
034176,001504: 14,3152 01472 STORE GCOMP
034177,001505: 14,3153 43014 SET CLEAR
034178,001506: 14,3154 01060 DRIFTFLG # ENABLE T4 COMPENSATION
034179,001507: 14,3155 00666 TARG2FLG # SHOW MARK IS STAR --- NOT LANDMARK
034180,001508: 14,3156 77776 EXIT
034181,001509: 14,3157 35017 CAF BIT1
034182,001510: 14,3160 54301 TS MARKINDX # INITIALIZE FOR ONE MARK
034183,001511:
034184,001512: 14,3161 05412 P51C TC PHASCHNG
034185,001513: 14,3162 05024 OCT 05024
034186,001514: 14,3163 13000 OCT 13000
034187,001515: 14,3164 05364 TC CHECKMM
034188,001516: 14,3165 00065 MM 53 B-14 # BACKUP PROGRAM
034189,001517: 14,3166 13174 TCF P51C.1 # NOT P53
034190,001518: 14,3167 06006 TC INTPRET
034191,001519: 14,3170 77624 CALL
034192,001520: 14,3171 36056 R56
034193,001521: 14,3172 77650 GOTO
034194,001522: 14,3173 31177 P51C.2
034195,001523: 14,3174 06006 P51C.1 TC INTPRET
034196,001524: 14,3175 77624 CALL
034197,001525: 14,3176 31300 R53 # SIGHTING ROUTINE
034198,001526: 14,3177 77624 P51C.2 CALL # COMPUTE LOS IN SM FROM MARK DATA
034199,001527: 14,3200 36022 SXTSM
034200,001528: 14,3201 77606 PUSH
034201,001529: 14,3202 53135 SLOAD BZE
034202,001530: 14,3203 00305 STARIND
034203,001531: 14,3204 31211 P51D
034204,001532: 14,3205 45575 VLOAD STADR
034205,001533: 14,3206 75160 STORE STARSAV2 # DOWNLINK
034206,001534: 14,3207 77650 GOTO
034207,001535: 14,3210 31217 P51E
034208,001536: 14,3211 45575 P51D VLOAD STADR
034209,001537: 14,3212 61166 STODL STARSAV1
034210,001538: 14,3213 02607 TSIGHT
034211,001539: 14,3214 77624 CALL
034212,001540: 14,3215 32340 PLANET
034213,001541: 14,3216 02601 STORE PLANVEC
034214,001542: # Page 769
034215,001543: 14,3217 77776 P51E EXIT
034216,001544: 14,3220 05412 TC PHASCHNG
034217,001545: 14,3221 05024 OCT 05024
034218,001546: 14,3222 13000 OCT 13000
034219,001547: 14,3223 04662 TC BANKCALL
034220,001548: 14,3224 16063 CADR MKRELEAS # ZERO MARKSTAT
034221,001549: 14,3225 10304 CCS STARIND
034222,001550: 14,3226 13235 TCF P51F # STAR 2
034223,001551: 14,3227 05412 TC PHASCHNG
034224,001552: 14,3230 05024 OCT 05024
034225,001553: 14,3231 13000 OCT 13000
034226,001554: 14,3232 35017 CAF BIT1
034227,001555: 14,3233 54304 TS STARIND
034228,001556: 14,3234 13161 TCF P51C # GO DO SECOND STAR
034229,001557: 14,3235 05412 P51F TC PHASCHNG
034230,001558: 14,3236 05024 OCT 05024
034231,001559: 14,3237 13000 OCT 13000
034232,001560: 14,3240 06006 TC INTPRET
034233,001561: 14,3241 45145 DLOAD CALL
034234,001562: 14,3242 02607 TSIGHT
034235,001563: 14,3243 32340 PLANET
034236,001564: 14,3244 24015 STOVL 12D
034237,001565: 14,3245 02601 PLANVEC
034238,001566: 14,3246 24007 STOVL 6D
034239,001567: 14,3247 02611 STARSAV1
034240,001568: 14,3250 26736 STOVL STARAD
034241,001569: 14,3251 02617 STARSAV2
034242,001570: 14,3252 36744 STCALL STARAD +6
034243,001571: 14,3253 30714 CHKSDATA # CHECK STAR ANGLES IN STARAD AND
034244,001572: 14,3254 77414 BON EXIT
034245,001573: 14,3255 00314 FREEFLAG
034246,001574: 14,3256 31260 P51G
034247,001575: 14,3257 03100 TC P51AA
034248,001576: 14,3260 77624 P51G CALL
034249,001577: 14,3261 47401 AXISGEN # COME BACK WITH REFSMMAT IN XDC
034250,001578: 14,3262 75160 AXC,1 AXC,2
034251,001579: 14,3263 02713 XDC
034252,001580: 14,3264 01735 REFSMMAT
034253,001581: 14,3265 45014 CLEAR CALL
034254,001582: 14,3266 01662 REFSMFLG
034255,001583: 14,3267 31053 MATMOVE
034256,001584: 14,3270 52014 SET GOTO
034257,001585: 14,3271 01462 REFSMFLG
034258,001586: 14,3272 32145 ENDP50S
034259,001587: 14,3273 5025 PRFMSTAQ = OCT15
034260,001588: 14,3273 5021 P51ZERO = ZERO
034261,001589: 14,3273 5022 P51FIVE = FIVE
034262,001590: 14,3273 01426 V6N22 VN 0622
034263,001591: 14,3274 12200 V41K VN 4100
034264,001592: 14,3275 30025 SET1/PDT CA TIME1
034265,001593: # Page 770
034266,001594: 14,3276 55074 TS 1/PIPADT
034267,001595: 14,3277 16030 TCF DANZIG
034268,001596:
034269,001597: # Page 771
034270,001598: # SXTSM COMPUTES AN LOS VECTOR IN SM COORD FROM OCDU AND ICDU MARK DATA
034271,001599:
034272,001600: 17,2000 SETLOC P50S3
034273,001601: 17,2000 BANK
034274,001602: 17,2022 77620 SXTSM STQ
034275,001603: 17,2023 00300 QMAJ
034276,001604: 17,2024 70740 LXC,1 DLOAD*
034277,001605: 17,2025 01330 MARKSTAT
034278,001606: 17,2026 00001 0D,1
034279,001607: 17,2027 02607 STORE TSIGHT
034280,001608: 17,2030 66744 LXC,2 SLOAD*
034281,001609: 17,2031 00304 STARIND
034282,001610: 17,2032 41722 MKDNCDR,2
034283,001611: 17,2033 76744 LXC,2 VLOAD*
034284,001612: 17,2034 00154 MPAC
034285,001613: 17,2035 00001 0,1
034286,001614: 17,2036 10001 STORE 0,2
034287,001615: 17,2037 77743 DLOAD*
034288,001616: 17,2040 00006 5,1
034289,001617: 17,2041 10006 STORE 5,2
034290,001618: 17,2042 77624 CALL
034291,001619: 17,2043 46000 SXTNB # COMPUTE LOS VECTOR FROM OCDU IN MKVAC
034292,001620: 17,2044 62150 LXA,1 INCR,1
034293,001621: 17,2045 01330 MARKSTAT
034294,001622: 17,2046 00002 2 # INCREMENT TO BASE ADR OF ICDU
034295,001623: 17,2047 45130 SXA,1 CALL
034296,001624: 17,2050 00050 S1
034297,001625: 17,2051 47606 NBSM # TRANSFORM LOS TO SM
034298,001626: 17,2052 77650 GOTO
034299,001627: 17,2053 00300 QMAJ
034300,001628: 17,2054 03674 MKDNCDR ECADR MARKDOWN
034301,001629: 17,2055 03502 ECADR MARK2DWN
034302,001630:
034303,001631: # Page 772
034304,001632: # PROGRAM DESCRIPTION: R53 -- SIGHTING MARK ROUTINE
034305,001633: # MOD. NO. 2 21 DEC 66
034306,001634: # MOD. BY STURLAUGSON
034307,001635:
034308,001636: # FUNCTIONAL DESCRIPTIION:
034309,001637:
034310,001638: # TO PERFORM A SATISFACTORY NUMBER OF SIGHTING MARKS FOR THE REQUESTING PROGRAM (OR ROUTINE). SIGHTINGS
034311,001639: # CAN BE MADE ON A STAR OR LANDMARK. WHEN THE CMC ACCEPTS A MARK IT RECORDS AND STORES 5 ANGLES (3 ICDUS AND 2
034312,001640: # OCDUS) AND THE TIME OF THE MARK.
034313,001641:
034314,001642: # CALLING SEQUENCE:
034315,001643:
034316,001644: # R53 IS CALLED AND RETURNS IN INTERPRETIVE CODE. RETURN IS VIA QPRET.
034317,001645: # THERE IS NO ERROR EXIT IN THIS ROUTINE ITSELF.
034318,001646:
034319,001647: # SUBROUTINES CALLED
034320,001648: #
034321,001649: # SXTMARK
034322,001650: # OPTSTALL
034323,001651: # GOFLASH
034324,001652:
034325,001653: # ERASABLE INITIALIZATION:
034326,001654:
034327,001655: # TARGET FLAG -- STAR OR LANDMARK
034328,001656: # MARKINDX -- NUMBER OF MARKS WANTED
034329,001657: # STARIND -- INDEX TO BESTI OR BESTJ (STAR NUMBER)
034330,001658:
034331,001659: # OUTPUT
034332,001660:
034333,001661: # MARKSTAT CONTAINS INDEX TO VACANT AREA WEHRE MARK DATA IS STORED
034334,001662: # BESTI (INDEXED BY STARIND) CONTAINS STAR NUMBER SIGHTED.
034335,001663:
034336,001664: # DEBRIS
034337,001665:
034338,001666: # MARKINDX CONTAINS NUMBER OF MARKS DESIRED
034339,001667:
034340,001668: 14,2000 SETLOC RT53
034341,001669: 14,2000 BANK
034342,001670:
034343,001671: 14,3300 COUNT 14/R53
034344,001672:
034345,001673: 14,3300 43020 R53 STQ SET # SET SIGHTING MARK FLAG
034346,001674: 14,3301 03501 R53EXIT
034347,001675: 14,3302 00071 R53FLAG
034348,001676: 14,3303 77776 EXIT
034349,001677: 14,3304 30301 R53A CA MARKINDX # NUMBER OF MARKS
034350,001678: 14,3305 75023 MASK LOW3
034351,001679: 14,3306 04662 TC BANKCALL
034352,001680: 14,3307 16002 CADR SXTMARK
034353,001681: 14,3310 04662 TC BANKCALL
034354,001682: 14,3311 17573 CADR OPTSTALL
034355,001683: 14,3312 05757 TC CURTAINS
034356,001684: 14,3313 51330 INDEX MARKSTAT
034357,001685: 14,3314 10052 CCS QPRET # NUMNBER OF MARKS ACTUALLY DONE
034358,001686: 14,3315 13326 TCF R53B
034359,001687: 14,3316 13320 TCF +2 # ZERO
034360,001688: 14,3317 13320 TCF +1 # CCS HOLE
034361,001689: 14,3320 35021 CAF ZERO # HOUSEKEEP VAC AREA SAVE
034362,001690: 14,3321 57330 XCH MARKSTAT # AND MARKSTAT
034363,001691: # Page 773
034364,001692: 14,3322 10000 CCS A
034365,001693: 14,3323 50000 INDEX A
034366,001694: 14,3324 54000 TS 0
034367,001695: 14,3325 13304 TCF R53A
034368,001696: 14,3326 05364 R53B TC CHECKMM
034369,001697: 14,3327 00026 MM 22 B-14
034370,001698: 14,3330 13332 TCF +2
034371,001699: 14,3331 13361 TCF R53D
034372,001700: 14,3332 05364 TC CHECKMM
034373,001701: 14,3333 00027 MM 23 B-14
034374,001702: 14,3334 13336 TCF R53C1
034375,001703: 14,3335 13361 TCF R53D
034376,001704: 14,3336 35021 R53C1 CAF ZERO
034377,001705: 14,3337 04662 TC BANKCALL
034378,001706: 14,3340 20703 CADR CLEANDSP
034379,001707: 14,3341 33365 R53C CAF V01N71
034380,001708: 14,3342 04662 TC BANKCALL
034381,001709: 14,3343 20720 CADR GOFLASH
034382,001710: 14,3344 04106 TC GOTOP00H # TERM.
034383,001711: 14,3345 13347 TCF R53Z
034384,001712: 14,3346 03341 TC R53C # RECYCLE
034385,001713: 14,3347 03366 R53Z TC CHKSCODE
034386,001714: 14,3350 04400 TC FALTON
034387,001715: 14,3351 03341 TC R53C
034388,001716: 14,3352 47713 CS HIGH9
034389,001717: 14,3353 70735 MASK STARCODE
034390,001718: 14,3354 00006 EXTEND
034391,001719: 14,3355 76211 MP SIGHTSIX
034392,001720: 14,3356 56001 XCH L
034393,001721: 14,3357 50304 INDEX STARIND
034394,001722: 14,3360 54302 TS BESTI
034395,001723: 14,3361 06006 R53D TC INTPRET
034396,001724: 14,3362 77614 R53OUT SETGO
034397,001725: 14,3363 03420 TERMIFLG # SET TERMINATE FOR R52
034398,001726: 14,3364 03501 R53EXIT
034399,001727: 14,3365 6211 SIGHTSIX = SIX
034400,001728: 14,3365 00307 V01N71 VN 0171
034401,001729:
034402,001730: # ****** KEEP IN SAME BANK AS R51 AND R53 ********
034403,001731: 14,3366 10735 CHKSCODE CCS STARCODE
034404,001732: 14,3367 63376 AD NEG47
034405,001733: 14,3370 10000 CCS A
034406,001734: 14,3371 00002 TC Q # SC < 0 OR SC > 50
034407,001735: 14,3372 13374 TCF +2 # SC = + OR - 0
034408,001736: 14,3373 13374 TCF +1 # 0 <= SC< 50
034409,001737: 14,3374 50002 INDEX Q # SC = 50
034410,001738: 14,3375 00002 TC 00002
034411,001739: 14,3376 77730 NEG47 OCT 77730
034412,001740:
034413,001741: # Page 774
034414,001742: # NAME -- S52.2
034415,001743: # FUNCTION -- COMPUTE GIMBAL ANGLES FOR DESIRED SM AND PRESENT VEHICLE
034416,001744: # CALL -- CALL S52.2
034417,001745: # INPUT -- X,Y,ZSMD
034418,001746: # OUTPUT -- OGC,IGC,MGC,THETAD,+1,+2
034419,001747: # SUBROUTINES -- CDUTRIG, CALCSMSC, MATMOVE, CALCGA
034420,001748:
034421,001749: 11,2000 SETLOC S52/2
034422,001750: 11,2000 BANK
034423,001751:
034424,001752: 11,2331 COUNT 13/S52.2
034425,001753: 11,2331 77620 S52.2 STQ
034426,001754: 11,2332 00300 QMAJ
034427,001755: 11,2333 77624 CALL
034428,001756: 11,2334 47477 CDUTRIG
034429,001757: 11,2335 77624 CALL
034430,001758: 11,2336 34612 CALCSMSC
034431,001759: 11,2337 66370 AXT,1 SSP
034432,001760: 11,2340 00022 18D
034433,001761: 11,2341 00051 S1
034434,001762: 11,2342 00006 6D
034435,001763: 11,2343 61373 S52.2A VLOAD* VXM
034436,001764: 11,2344 02736 XNB +18D,1
034437,001765: 11,2345 01736 REFSMMAT
034438,001766: 11,2346 77656 UNIT
034439,001767: 11,2347 06736 STORE XNB +18D,1
034440,001768: 11,2350 77700 TIX,1
034441,001769: 11,2351 22343 S52.2A
034442,001770: 11,2352 75160 S52.2.1 AXC,1 AXC,2
034443,001771: 11,2353 00306 XSMD
034444,001772: 11,2354 02671 XSM
034445,001773: 11,2355 77624 CALL
034446,001774: 11,2356 31053 MATMOVE
034447,001775: 11,2357 77624 CALL
034448,001776: 11,2360 47311 CALCGA
034449,001777: 11,2361 77650 GOTO
034450,001778: 11,2362 00300 QMAJ
034451,001779:
034452,001780: # Page 775
034453,001781: # PROGRAM NAME: SR52.1 DATE: DEC 20 1968
034454,001782: # MOD 1 LOG SEC: P51-P53
034455,001783: # BY KEN VINCENT ASSEMBLY: SUNDISK REV 40
034456,001784:
034457,001785: # FUNCTION
034458,001786:
034459,001787: # TARG1 AND TARG2 FLAGS ARE LOOKED AT TO DETERMINE IF THE TARGET IS THE
034460,001788: # LEM, STAR, OR LANDMARK. IN CASE OF LEM OR LMK, THE PRESENT TIME PLUS
034461,001789: # 2 SECONDS IS SAVED IN AOPTIME (ALIAS STARAD, +1). IF THE LEM IS
034462,001790: # THE TARGET THEN CONIC UPDATES OF TEH CSM AND LEM ARE MADE TO
034463,001791: # THE TIME IN AOPTIME. THE UNIT OF THE DIFFERENCE OF LEM AND CSM
034464,001792: # POSITION VECTORS BECOMES THE REFERENCE SIGHTING VECTOR USED IN THE
034465,001793: # COMMON PART OF THE THIS PROGRAM.
034466,001794:
034467,001795: # IN THE CASE OF LANDMARK, THE CSM IS UPDATED CONICALLY. THE RADIUS
034468,001796: # VECTOR FOR THE LANDMARK IS OBTAINED FROM LALOTORV. BOTH OF THESE ARE
034469,001797: # FOUND FOR THE TIME IN AOPTIME. THE UNIT OF THE DIFFERENCE BETWEEN
034470,001798: # THE LANDMARK AND CSM RADIUS VECTORS BECOMES THE REFERENCE SIGHTING
034471,001799: # VECTOR FOR THE COMMON PART OF THIS ROUTINE.
034472,001800:
034473,001801: # IF A STAR IS THE TARGET, THE PROPER STAR IS OBTAINED FROM THE CATALOG
034474,001802: # AND THIS VECTOR BECOMES THE REFERENCE SIGHTING VECTOR.
034475,001803:
034476,001804: # THE COMMON PART OF THIS PROGRAM TRANSFORMS THE REFERENCE SIGHTING
034477,001805: # VECTOR INTO STABLE MEMBER COORDINATES. IT READS THE IMU-CDUS AND USES
034478,001806: # THIS DATA IN A CALL TO CALCSXA. ON RETURN FROM CALCSXA A TEST IS
034479,001807: # MADE TO SEE IF THE TRUNNION ANGLE IS GREATER THAN 90DEG OR 38DEG.
034480,001808: # MADE TO SEE IF THE TRUNNION ANGLE IS GREATER THAN 90DEG. OR 50DEG.
034481,001809:
034482,001810: # CALLING SEQUENCE
034483,001811:
034484,001812: # L+4 RETURN WHEN SHAFT OR TRUNION NOT WITHIN 5 DEG OF DESIRED
034485,001813: # L TC BANKCALL
034486,001814: # L+1 CADR SR52.1
034487,001815: # L+2 ERROR RETURN TRUNNION GREATER THAN 90 DEG.
034488,001816: # L+3 ERROR RETURN TRUNNION GREATER THAN 50 DEG
034489,001817: # L+4 NORMAL RETURN
034490,001818:
034491,001819: # OUTPUT
034492,001820:
034493,001821: # SAC: SINGLE PREC, 2'S COMP, SCALED AT HALF REVS -- SHAFT ANGLE DESIRED.
034494,001822: # PAC: SINGLE PREC, 2'S COMP, SCALED AT EIGHTH REVS -- TRUNNION ANGLE DESIRED.
034495,001823:
034496,001824: # INITIALIZATION
034497,001825:
034498,001826: # IF TARG1FLG =1 THEN TARGET IS LEM -- NO OTHER INPUT REQUIRED.
034499,001827:
034500,001828: # IF TARG1FLG =0 AND TARG2FLG =0 THE TARGET IS STAR, STARIND SHOULD
034501,001829: # 0 OR 1 DENOTING BESTI OR BESTJ RESPECTIVELY AS STAR CODE. STAR CODES
034502,001830: # ARE 6 TIMES STAR NUMBER.
034503,001831:
034504,001832: # IF TARG1FLG =0 AND TARG2FLG =1 THEN TARGET IS LANDMARK. SETT ROUTINE
034505,001833: # LALOTORV FOR INPUT REQUIREMENTS. HERE FIXERAD=1 FOR CONSTANT EARTH
034506,001834: # RADIUS
034507,001835:
034508,001836: # DEBRIS
034509,001837:
034510,001838: # WORK AREA
034511,001839: # STARAD -- STAR+5 (STAR IS DESIRED LOS IN STABLE MEMBER COORDINATES)
034512,001840:
034513,001841: 11,2363 COUNT* $$/SR521
034514,001842: # Page 776
034515,001843: 13,2000 SETLOC SR52/1
034516,001844: 13,2000 BANK
034517,001845:
034518,001846: 13,2244 04711 SR52.1 TC MAKECADR
034519,001847: 13,2245 55777 TS QMIN
034520,001848: 13,2246 06006 TC INTPRET
034521,001849: 13,2247 43234 RTB DAD
034522,001850: 13,2250 45510 LOADTIME
034523,001851: 13,2251 26365 1.3SECDP
034524,001852: 13,2252 02356 STORE AOPTIME
034525,001853: 13,2253 43014 BON BON
034526,001854: 13,2254 00705 TARG1FLG
034527,001855: 13,2255 26262 LEM52
034528,001856: 13,2256 00706 TARG2FLG
034529,001857: 13,2257 26272 LMK52
034530,001858: 13,2260 77650 GOTO
034531,001859: 13,2261 26313 STAR52
034532,001860: 13,2262 77745 LEM52 DLOAD
034533,001861: 13,2263 02356 AOPTIME
034534,001862: 13,2264 34041 STCALL TDEC1
034535,001863: 13,2265 27126 LEMCONIC
034536,001864: 13,2266 77775 VLOAD
034537,001865: 13,2267 00001 RATT
034538,001866: 13,2270 77650 GOTO
034539,001867: 13,2271 26302 LMKLMCOM
034540,001868: 13,2272 71214 LMK52 BON DLOAD
034541,001869: 13,2273 04305 ADVTRK
034542,001870: 13,2274 54000 ADVTRACK
034543,001871: 13,2275 02356 AOPTIME
034544,001872: 13,2276 77624 CALL
034545,001873: 13,2277 26441 LALOTORV
034546,001874: 13,2300 77775 VLOAD
034547,001875: 13,2301 02152 ALPHAV
034548,001876: 13,2302 16766 LMKLMCOM STODL STAR
034549,001877: 13,2303 02356 AOPTIME
034550,001878: 13,2304 34041 STCALL TDEC1
034551,001879: 13,2305 27114 CSMCONIC
034552,001880: 13,2306 52375 VLOAD VSU
034553,001881: 13,2307 02766 STAR
034554,001882: 13,2310 00001 RATT
034555,001883: 13,2311 52056 UNIT GOTO
034556,001884: 13,2312 26326 COM52
034557,001885: 13,2313 72131 STAR52 SSP LXA,1
034558,001886: 13,2314 00051 S1
034559,001887: 13,2315 00000 0
034560,001888: 13,2316 00304 STARIND
034561,001889: 13,2317 77700 TIX,1
034562,001890: 13,2320 26324 ST52ST
034563,001891: 13,2321 52175 VLOAD GOTO
034564,001892: 13,2322 02617 STARSAV2
034565,001893: # Page 777
034566,001894: 13,2323 26326 COM52
034567,001895: 13,2324 77775 ST52ST VLOAD
034568,001896: 13,2325 02611 STARSAV1
034569,001897: 13,2326 53521 COM52 MXV UNIT
034570,001898: 13,2327 01736 REFSMMAT
034571,001899: 13,2330 02766 STORE STAR
034572,001900: 13,2331 45001 SETPD CALL
034573,001901: 13,2332 00001 0
034574,001902: 13,2333 47477 CDUTRIG # COMPUTES SINES AND COSINES FOR CALCSXA
034575,001903: 13,2334 77624 CALL # NOW EXPECT TO SEE THE CDU ANGLES.
034576,001904: 13,2335 46034 CALCSXA
034577,001905: 13,2336 77414 BOFF EXIT
034578,001906: 13,2337 01750 CULTFLAG
034579,001907: 13,2340 26342 TRUN38
034580,001908: 13,2341 02360 TC SR52E1
034581,001909: 13,2342 45345 TRUN38 DLOAD DSU
034582,001910: 13,2343 02776 PAC
034583,001911: 13,2344 26363 38TRDEG
034584,001912: 13,2345 71244 BPL DLOAD
034585,001913: 13,2346 26353 SR52E22
034586,001914: 13,2347 02776 PAC
034587,001915: 13,2350 51025 DSU BPL
034588,001916: 13,2351 26367 20DEGSMN
034589,001917: 13,2352 26355 SR52E3
034590,001918: 13,2353 77776 SR52E22 EXIT
034591,001919: 13,2354 02357 TC SR52E2
034592,001920: 13,2355 77776 SR52E3 EXIT
034593,001921: 13,2356 25777 INCR QMIN
034594,001922: 13,2357 25777 SR52E2 INCR QMIN
034595,001923: 13,2360 31777 SR52E1 CA QMIN
034596,001924: 13,2361 04666 TC SWCALL
034597,001925: 13,2362 25252 25254 38TRDEG 2DEC .66666667 # CORRESPONDS TO 50 DEGS IN TRUNION
034598,001926:
034599,001927: 13,2364 00000 00202 1.3SECDP 2DEC 130 B-28
034600,001928:
034601,001929: 13,2366 61740 20DEGSMN DEC -07199 B-14
034602,001930: 13,2367 77777 DEC -0 B-14
034603,001931:
034604,001932: # Page 778
034605,001933: # THE ADVTRACK ROUTINE IS USED TO COMPUTE AN OPTICS LOS VECTOR TO
034606,001934: # A POINT ON THE GROUND TRACK 60 DEGREES FORWARD OF THE LOCAL VERTICAL
034607,001935: # OF AN ADVANCED ORBIT A SPECIFIED NUMBER OF REVOLUTIONS FROM NOW.
034608,001936:
034609,001937: 26,2000 SETLOC 26P50S
034610,001938: 26,2000 BANK
034611,001939: 26,2000 77601 ADVTRACK SETPD
034612,001940: 26,2001 00001 0
034613,001941: 26,2002 41575 VLOAD PUSH # INITIALIZE FOR RP-TO-R
034614,001942: 26,2003 15327 UNITZ # UZ VEC IN PD 0-5
034615,001943: 26,2004 41434 RTB PUSH # TIME IN PD 6-7
034616,001944: 26,2005 45510 LOADTIME
034617,001945: 26,2006 36356 STCALL AOPTIME # TIME ALSO IN AOPTIME FOR CSMCONIC
034618,001946: 26,2007 55344 RP-TO-R # GET MOON ROTATION VEC IN REF
034619,001947: 26,2010 16766 STODL STAR
034620,001948: 26,2011 02356 AOPTIME # PICK UP TIME
034621,001949: 26,2012 34041 STCALL TDEC1 # UPDATE STATE TO TIME
034622,001950: 26,2013 27114 CSMCONIC
034623,001951: 26,2014 47375 VLOAD VXV
034624,001952: 26,2015 00007 VATT
034625,001953: 26,2016 00001 RATT
034626,001954: 26,2017 77656 UNIT
034627,001955: 26,2020 24031 STOVL 24D # SAVE -UNIT(VxR) FOR 2ND ROTATION
034628,001956: 26,2021 00001 RATT
034629,001957: 26,2022 57456 UNIT VCOMP
034630,001958: 26,2023 41401 SETPD PUSH # PUSH LOS=-UNIT(RVEC) PD 0-5
034631,001959: 26,2024 00001 0
034632,001960: 26,2025 77776 EXIT
034633,001961: 26,2026 31751 CA LANDMARK
034634,001962: 26,2027 75023 MASK SEVEN # GET NUMBER OF ADVANCE PERIODS
034635,001963: 26,2030 00006 EXTEND
034636,001964: 26,2031 75005 MP BIT11 # GET N/16
034637,001965: 26,2032 56001 XCH L
034638,001966: 26,2033 50120 INDEX FIXLOC
034639,001967: 26,2034 54036 TS 30D # TEMP STORE N/16
034640,001968: 26,2035 06006 TC INTPRET
034641,001969: 26,2036 41335 SLOAD DMP
034642,001970: 26,2037 00037 30D
034643,001971: 26,2040 14107 MPERIOD
034644,001972: 26,2041 36356 STCALL AOPTIME # ROTATE ANG ABOUT UR
034645,001973: 26,2042 54057 ROTA
034646,001974: 26,2043 77775 VLOAD
034647,001975: 26,2044 00031 24D # PICK UP 2ND ROTATION AXIS
034648,001976: 26,2045 16766 STODL STAR
034649,001977: 26,2046 14105 DP1/6
034650,001978: 26,2047 77625 DSU
034651,001979: 26,2050 02356 AOPTIME # 2ND RAT ANGLE = 60 - A
034652,001980: 26,2051 36356 STCALL AOPTIME
034653,001981: 26,2052 54057 ROTA # GO ROTATE 2ND TIME
034654,001982: 26,2053 77775 VLOAD
034655,001983: # Page 779
034656,001984: 26,2054 00001 0
034657,001985: 26,2055 36766 STCALL STAR # STORE FINAL LOS IN STAR
034658,001986: 26,2056 26326 COM52 # RETURN TO SR52.1
034659,001987:
034660,001988: 26,2057 73545 ROTA DLOAD SIN
034661,001989: 26,2060 02356 AOPTIME
034662,001990: 26,2061 47315 PDVL VXV # PUSH 1/2SIN(A) PD 6-7
034663,001991: 26,2062 02766 STAR # UR VEC
034664,001992: 26,2063 00001 0 # LOS
034665,001993: 26,2064 72561 VXSC VSL2 # 1/2SIN(A)(URXLOS) PD 6-11
034666,001994: 26,2065 50315 PDVL DOT
034667,001995: 26,2066 02766 STAR
034668,001996: 26,2067 00001 0
034669,001997: 26,2070 72561 VXSC VSL2
034670,001998: 26,2071 02766 STAR
034671,001999: 26,2072 71525 PDDL COS # 1/2(UR . LOS)UR 12-17
034672,002000: 26,2073 02356 AOPTIME
034673,002001: 26,2074 51315 PDVL BVSU # PUSH 1/2COS(A) 18-19
034674,002002: 26,2075 00015 12D
034675,002003: 26,2076 00001 0
034676,002004: 26,2077 76561 VXSC VSL1 # UP 18-19
034677,002005: 26,2100 53255 VAD VAD # UP 12-17 UP 6011
034678,002006: 26,2101 40256 UNIT SETPD
034679,002007: 26,2102 00001 0
034680,002008: 26,2103 43406 PUSH RVQ
034681,002009:
034682,002010: 26,2104 05252 25251 DP1/6 2DEC .16666666
034683,002011:
034684,002012: 26,2106 01414 06044 MPERIOD 2DEC .047619 # APPROX LUNAR ROT ANG IN 2HRS x 16
034685,002013:
034686,002014: # Page 780
034687,002015: # NAME -- S52.3
034688,002016: # FUNCTION -- XSMD= UNIT(YSMD x ZSMD)
034689,002017: # YSMD= UNIT(V X R)
034690,002018: # ZSMD= UNIT(-R)
034691,002019: # CALL -- DLOAD CALL
034692,002020: # TALIGN
034693,002021: # S52.3
034694,002022: # INPUT -- TIME OF ALIGNMENT IN MPAC
034695,002023: # OUTPUT -- X,Y,ZSMD
034696,002024: # SUBROUTINES -- CSMCONIC
034697,002025:
034698,002026: 16,2000 SETLOC P50S2
034699,002027: 16,2000 BANK
034700,002028:
034701,002029: 16,2661 COUNT 15/S52.3
034702,002030: 16,2661 77620 S52.3 STQ
034703,002031: 16,2662 00300 QMAJ
034704,002032: 16,2663 34041 STCALL TDEC1
034705,002033: 16,2664 27071 CSMPREC
034706,002034: 16,2665 77601 SETPD
034707,002035: 16,2666 00001 0
034708,002036: 16,2667 57575 VLOAD VCOMP
034709,002037: 16,2670 00001 RATT
034710,002038: 16,2671 77656 UNIT
034711,002039: 16,2672 24323 STOVL ZSMD
034712,002040: 16,2673 00007 VATT
034713,002041: 16,2674 53435 VXV UNIT
034714,002042: 16,2675 00001 RATT
034715,002043: 16,2676 00315 STORE YSMD
034716,002044: 16,2677 53435 VXV UNIT
034717,002045: 16,2700 00323 ZSMD
034718,002046: 16,2701 34307 STCALL XSMD
034719,002047: 16,2702 00300 QMAJ
034720,002048:
034721,002049: # Page 781
034722,002050: # PROGRAM DESCRIPTION: R56 -- ALTERNATE LOS SIGHTING MARK ROUTINE
034723,002051:
034724,002052: # FUNCTIONAL DESCRIPTION
034725,002053:
034726,002054: # TO PERFORM SIGHTING MARKS FOR THE BACK-UP ALIGNMENT PROGRAMS (P53,P54). THE ASTRONAUT KNOWS THE
034727,002055: # COORDINATES (OPTICS) OF THE ALTERNATE LINE OF SIGHT HE MUST USE FOR THIS ROUTINE. WHEN THE ASTRONAUT KEYS IN
034728,002056: # ENTER IN RESPONSE TO THE FLASHING V50 N25 R1-XXXXX THE CMC STORES THE THREE ICDU ANGLES AND TWO ANGLES DISPLAYED
034729,002057: # IN N92.
034730,002058:
034731,002059: # CALLING SEQUENCE
034732,002060:
034733,002061: # CALL
034734,002062: # R56
034735,002063:
034736,002064: # SUBROUTINES CALLED
034737,002065:
034738,002066: # A PORTION OF SXTMARK (VAC.AREA SEARCH)
034739,002067: # GOFLASH
034740,002068: # GOPERF1
034741,002069:
034742,002070: # ERASABLE INITIALIZATION
034743,002071:
034744,002072: # STARIND: INDEX TO STAR NUMBER
034745,002073:
034746,002074: # OUTPUT
034747,002075:
034748,002076: # MARKSTAT: INDEX TO VAC.AREA WHERE OUTPUT IS STORED.
034749,002077: # BESTI (INDEXED BY STARIND) CONTAINS STAR NUMBER.
034750,002078: # ICDU AND OCDU ANGLES IN VAC. AREA AS FOLLOWS:
034751,002079: # VAC +2 CDUY
034752,002080: # VAC +3 CDUS
034753,002081: # VAC +4 CDUZ
034754,002082: # VAC +5 CDUT
034755,002083: # VAC +6 CDUX
034756,002084:
034757,002085: 16,2703 COUNT* $$/R56
034758,002086: 17,2000 SETLOC P50S3
034759,002087: 17,2000 BANK
034760,002088: 17,2056 77420 R56 STQ EXIT
034761,002089: 17,2057 03501 R53EXIT
034762,002090: 17,2060 32146 CAF V06N94B
034763,002091: 17,2061 04662 TC BANKCALL
034764,002092: 17,2062 20720 CADR GOFLASH
034765,002093: 17,2063 04106 TC GOTOP00H # TERM.
034766,002094: 17,2064 02066 TC R56A # PROCEED: ANGLES OK
034767,002095: 17,2065 02060 TC -5 # ENTER: NEW ANGLES
034768,002096: 17,2066 04662 R56A TC BANKCALL
034769,002097: 17,2067 16004 CADR SXTMARK +2 # INHIBIR EXT VB ACT AND FIND VAC AREA
034770,002098:
034771,002099: 17,2070 35021 CAF ZERO
034772,002100: 17,2071 04662 TC BANKCALL
034773,002101: 17,2072 20703 CADR CLEANDSP
034774,002102:
034775,002103: 17,2073 32145 R56A1 CAF VB53 # DISPLAY V53 REQUESTING ALTERNATE MARK
034776,002104: 17,2074 04662 TC BANKCALL
034777,002105: # Page 782
034778,002106: 17,2075 20564 CADR GOMARK2
034779,002107: 17,2076 14106 TCF GOTOP00H # V34: TERMINATE
034780,002108: 17,2077 12073 TCF R56A1 # V33: DON'T PROCEED -- JUST ENTER TO MARK
034781,002109: 17,2100 06006 TC INTPRET
034782,002110: 17,2101 77745 DLOAD
034783,002111: 17,2102 03731 MRKBUF1 +3
034784,002112: 17,2103 16774 STODL SAC
034785,002113: 17,2104 03733 MRKBUF1 +5
034786,002114: 17,2105 02776 STORE PAC
034787,002115: 17,2106 77776 EXIT
034788,002116: 17,2107 00004 INHINT
034789,002117: 17,2110 00006 EXTEND
034790,002118: 17,2111 30025 DCA TIME2
034791,002119: 17,2112 51330 INDEX MARKSTAT
034792,002120: 17,2113 52001 DXCH 0
034793,002121: 17,2114 30033 CA CDUY # ENTER: THIS IS A BACKUP SYSTEM MARK
034794,002122: 17,2115 51330 INDEX MARKSTAT
034795,002123: 17,2116 54002 TS 2
034796,002124: 17,2117 31773 CA SAC
034797,002125: 17,2120 51330 INDEX MARKSTAT
034798,002126: 17,2121 54003 TS 3
034799,002127: 17,2122 30034 CA CDUZ
034800,002128: 17,2123 51330 INDEX MARKSTAT
034801,002129: 17,2124 54004 TS 4
034802,002130: 17,2125 31775 CA PAC
034803,002131: 17,2126 51330 INDEX MARKSTAT
034804,002132: 17,2127 54005 TS 5
034805,002133: 17,2130 30032 CA CDUX
034806,002134: 17,2131 51330 INDEX MARKSTAT
034807,002135: 17,2132 54006 TS 6
034808,002136: 17,2133 00003 RELINT
034809,002137: 17,2134 05536 TC CLEARMRK # ENABLE EXTENDED VERBS
034810,002138: 17,2135 34333 CAF OCT16
034811,002139: 17,2136 04662 TC BANKCALL
034812,002140: 17,2137 21045 CADR GOPERF1
034813,002141: 17,2140 04106 TC GOTOP00H # TERM.
034814,002142: 17,2141 12143 TCF R56B # PROCEED: MARK COMPLETED
034815,002143: 17,2142 12070 TCF R56A +2 # RECYCLE: DO ANOTHER MARK -- LIKE REJECT.
034816,002144: 17,2143 04662 R56B TC BANKCALL
034817,002145: 17,2144 31336 CADR R53C1
034818,002146: 17,2145 15200 VB53 VN 05300 # ALTERNATE MARK VERB
034819,002147: 17,2146 01536 V06N94B VN 00694
034820,002148: 15,2000 SETLOC P50S
034821,002149: 15,2000 BANK
034822,002150:
034823,002151: 15,2340 02607 PLANET STORE TSIGHT
034824,002152: 15,2341 45020 STQ CALL
034825,002153: 15,2342 02777 QMIN
034826,002154: 15,2343 30225 LOCSAM
034827,002155: 15,2344 77775 VLOAD
034828,002156: # Page 783
034829,002157: 15,2345 02736 VEARTH
034830,002158: 15,2346 24001 STOVL 0D
034831,002159: 15,2347 02744 VSUN
034832,002160: 15,2350 26736 STOVL VEARTH
034833,002161: 15,2351 00001 0D
034834,002162: 15,2352 02744 STORE VSUN
034835,002163: 15,2353 77776 NOSAM EXIT
034836,002164: 15,2354 47713 CS HIGH9
034837,002165: 15,2355 70735 MASK STARCODE
034838,002166: 15,2356 00006 EXTEND
034839,002167: 15,2357 76211 MP SIGHTSIX
034840,002168: 15,2360 56001 XCH L
034841,002169: 15,2361 50304 INDEX STARIND
034842,002170: 15,2362 54302 TS BESTI
034843,002171: 15,2363 10000 CCS A
034844,002172: 15,2364 12401 TCF NOTPLAN
034845,002173: 15,2365 32431 CAF VNPLANV
034846,002174: 15,2366 04662 TC BANKCALL
034847,002175: 15,2367 20720 CADR GOFLASH
034848,002176: 15,2370 04106 TC GOTOP00H
034849,002177: 15,2371 02373 TC +2
034850,002178: 15,2372 02365 TC -5
034851,002179: 15,2373 06006 TC INTPRET
034852,002180: 15,2374 74375 VLOAD VXSC
034853,002181: 15,2375 03705 STARSAV3
034854,002182: 15,2376 32433 1/SQR3
034855,002183: 15,2377 52056 UNIT GOTO
034856,002184: 15,2400 32424 CORPLAN
034857,002185: 15,2401 40000 NOTPLAN CS A
034858,002186: 15,2402 62430 AD DEC227
034859,002187: 15,2403 00006 EXTEND
034860,002188: 15,2404 62415 BZMF CALSAM1
034861,002189: 15,2405 50304 INDEX STARIND
034862,002190: 15,2406 30302 CA BESTI
034863,002191: 15,2407 50120 INDEX FIXLOC
034864,002192: 15,2410 54046 TS X1
034865,002193: 15,2411 06006 TC INTPRET
034866,002194: 15,2412 52173 VLOAD* GOTO
034867,002195: 15,2413 31761 CATLOG,1
034868,002196: 15,2414 32424 CORPLAN
034869,002197: 15,2415 06006 CALSAM1 TC INTPRET
034870,002198: 15,2416 70740 LXC,1 DLOAD*
034871,002199: 15,2417 00304 STARIND
034872,002200: 15,2420 00303 BESTI,1
034873,002201: 15,2421 76740 LXC,1 VLOAD*
034874,002202: 15,2422 00154 MPAC
034875,002203: 15,2423 02372 STARAD -228D,1
034876,002204: 15,2424 53455 CORPLAN VAD UNIT
034877,002205: 15,2425 03474 VEL/C
034878,002206: 15,2426 77650 GOTO
034879,002207: # Page 784
034880,002208: 15,2427 02777 QMIN
034881,002209: 15,2430 00343 DEC227 DEC 227 B-14
034882,002210: 15,2431 01530 VNPLANV VN 0688
034883,002211: 15,2432 22363 11623 1/SQR3 2DEC .57735021
034884,002212:
034885,002213:
End of include-file P51-P53.agc. Parent file is MAIN.agc