Source Code
|
These source-code files are part of a reconstructed copy of Comanche 67, the
Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 12.
They have been adapted from sources files for Comanche 55, and updated via
disassembly of binary dumps of original core rope memory modules, part numbers
2003972-1081, 2003972-1091, 2003972-1111, 2003972-1121, 2003972-1131, and 2003972-1141.
Since only binary dumps (rather than listings) of Comanche 67 are available as source material,
all comments and labels are approximate.
They have been taken from other AGC programs where possible, or, in some places, written
from scratch to match what we believe would have been in the original listing.
|
031399,000002: ## Copyright: Public domain.
031400,000003: ## Filename: P51-P53.agc
031401,000004: ## Purpose: A section of Comanche revision 067.
031402,000005: ## It is part of the reconstructed source code for the flight
031403,000006: ## software for the Command Module's (CM) Apollo Guidance Computer
031404,000007: ## (AGC) for Apollo 12. No original listings of this program are
031405,000008: ## available; instead, this file was created via dissassembly of
031406,000009: ## dumps of Comanche 067 core rope modules and comparison with
031407,000010: ## other AGC programs.
031408,000011: ## Assembler: yaYUL
031409,000012: ## Contact: Ron Burkey <info@sandroid.org>.
031410,000013: ## Website: www.ibiblio.org/apollo/index.html
031411,000014: ## Mod history: 2023-08-16 MAS Created from Comanche 055.
031412,000015: ## 2024-03-15 MAS Updated for Comanche 067.
031413,000016:
031414,000017: # PROGRAM NAME - PROG52 DATE - NOV 30, 1966
031415,000018: # MOD NO - 2 LOG SECTION - P51-P53
031416,000019: # MODIFICATION BY - LONSKE ASSEMBLY - SUNDISK REV 30
031417,000020:
031418,000021: # FUNCTIONAL DESCRIPTION -
031419,000022:
031420,000023: # ALIGNS THE IMU TO ONE OF THREE ORIENTATIONS SELECTED BY THE ASTRONAUT. THE PRESENT IMU ORIENTATION IS KNOWN
031421,000024: # AND IS STORED IN REFSMMAT. THE THREE POSSIBLE ORIENTATIONS MAY BE_
031422,000025:
031423,000026: # (A) PREFERRED ORIENTATION
031424,000027:
031425,000028: # AN OPTIMUM ORIENTATION FOR A PREVIOUSLY CALCULATED MANUEVER. THIS ORIENTATION MUST BE CALCULATED AND
031426,000029: # STORED BY A PREVIOUSLY SELECTED PROGRAM.
031427,000030:
031428,000031: # (B) NOMINAL ORIENTATION
031429,000032:
031430,000033: # X = UNIT ( Y X Z )
031431,000034: # -SM -SM -SM
031432,000035:
031433,000036: # Y = UNIT (V X R)
031434,000037: # -SM - -
031435,000038:
031436,000039: # Z = UNIT ( -R )
031437,000040: # -SM -
031438,000041:
031439,000042: # WHERE_
031440,000043:
031441,000044: # R = THE GEOCENTRIC RADIUS VECTOR AT TIME T(ALIGN) SELECTED BY THE ASTRONAUT
031442,000045: # -
031443,000046:
031444,000047: # V = THE INERTIAL VELOCITY VECTOR AT TIME T(ALIGN) SELECTED BY THE ASTRONAUT
031445,000048: # -
031446,000049:
031447,000050: # (C) REFSMMAT ORIENTATION
031448,000051:
031449,000052: # THIS SELECTION CORRECTS THE PRESENT IMU ORIENTATION. THE PRESENT ORIENTATION DIFFERS FROM THAT TO WHICH IT
031450,000053: # WAS LAST ALIGNED ONLY DUE TO GYRO DRIFT (I.E. NEITHER GIMBAL LOCK NOR IMU POWER INTERRUPTION HAS OCCURED
031451,000054: # SINCE THE LAST ALIGNMENT).
031452,000055:
031453,000056: # AFTER A IMU ORIENTATION HAS BEEN SELECTED ROUTINE S52.2 IS OPERATED TO COMPUTE THE GIMBAL ANGLES USING THE
031454,000057: # NEW ORIENTATION AND THE PRESENT VEHICLE ATTITUDE. CAL52A THEN USES THESE ANGLES, STORED IN THETAD,+1,+2, TO
031455,000058: # COARSE ALIGN THE IMU. THE STAR SELECTION ROUTINE, R56, IS THEN OPERATED. IF 2 STARS ARE NOT AVAILABLE AN ALARM
031456,000059: # IS FLASHED TO NOTIFY THE ASTRONAUT. AT THIS POINT THE ASTRONAUT WILL MANUEVER THE VEHICLE AND SELECT 2 STARS
031457,000060: # EITHER MANUALLY OR AUTOMATICALLY. AFTER 2 STARS HAVE BEEN SELECTED THE IMU IS FINE ALIGNED USING ROUTINE R51. IF
031458,000061: # THE RENDEZVOUS NAVIGATION PROCESS IS OPERATING (INDICATED BY RNDVZFLG) P20 IS DISPLAYED. OTHERWISE P00 IS
031459,000062: # REQUESTED.
031460,000063:
031461,000064: # CALLING SEQUENCE -
031462,000065:
031463,000066: # THE PROGRAM IS CALLED BY THE ASTRONAUT BY DSKY ENTRY.
031464,000067:
031465,000068: # SUBROUTINES CALLED -
031466,000069:
031467,000070: # 1. FLAGDOWN 7. S52.2 13. NEWMODEX
031468,000071: # 2. R02BOTH 8. CAL53A 14. PRIOLARM
031469,000072: # 3. GOPERF4 9. FLAGUP
031470,000073: # 4. MATMOVE 10. R56
031471,000074: # 5. GOFLASH 11. R51
031472,000075: # 6. S52.3 12. GOPERF3
031473,000076:
031474,000077: # NORMAL EXIT MODES -
031475,000078:
031476,000079: # EXITS TO ENDOFJOB
031477,000080:
031478,000081: # ALARM OR ABORT EXIT MODES -
031479,000082:
031480,000083: # NONE
031481,000084:
031482,000085: # OUTPUT -
031483,000086:
031484,000087: # THE FOLLOWING MAY BE FLASHED ON THE DSKY
031485,000088: # 1. IMU ORIENTATION CODE
031486,000089: # 2. ALARM CODE 215 - PREFERRED IMU ORIENTATION NOT SPECIFIED
031487,000090: # 3. TIME OF NEXT IGNITION
031488,000091: # 4. GIMBAL ANGLES
031489,000092: # 5. ALARM CODE 405 - TWO STARS NOT AVAILABLE
031490,000093: # 6. PLEASE PERFORM P00
031491,000094: # THE MODE DISPLAY MAY BE CHANGED TO 20
031492,000095:
031493,000096: # ERASABLE INITIALIZATION REQUIRED -
031494,000097:
031495,000098: # PFRATFLG SHOULD BE SET IF A PREFERRED ORIENTATION HAS BEEN COMPUTED. IF IT HAS BEEN COMPUTED IT IS STORED IN
031496,000099: # XSMD, YSMD, ZSMD.
031497,000100:
031498,000101: # RNDVZFLG INDICATES WHETHER THE RENDEZVOUS NAVIGATION PROCESS IS OPERATING.
031499,000102:
031500,000103: # DEBRIS -
031501,000104:
031502,000105: # WORK AREA
031503,000106:
031504,000107: 21,2054 15,2000 P54 = PROG52
031505,000108: 33,3776 BANK 33
031506,000109: 15,2000 SETLOC P50S
031507,000110: 15,2000 BANK
031508,000111:
031509,000112: 15,2000 30,2000 SBANK= LOWSUPER
031510,000113: 15,2000 E5,1773 EBANK= SAC
031511,000114: 15,2000 COUNT 15/P52
031512,000115:
031513,000116: 15,2000 05426 PROG52 TC PHASCHNG
031514,000117: 15,2001 00254 OCT 00254
031515,000118: 15,2002 05574 TC DOWNFLAG
031516,000119: 15,2003 00027 ADRES UPDATFLG # BIT 7 FLAG 1
031517,000120: 15,2004 05574 TC DOWNFLAG
031518,000121: 15,2005 00031 ADRES TRACKFLG # BIT 5 FLAG 1
031519,000122: 15,2006 04676 TC BANKCALL
031520,000123: 15,2007 17653 CADR R02BOTH # IMU STATUS CHECK
031521,000124: 15,2010 35030 CAF BIT4
031522,000125: 15,2011 70076 MASK STATE +2 # IS PFRATFLG SET(PREFERRED ORIENTATION)
031523,000126: 15,2012 10000 CCS A
031524,000127: 15,2013 02016 TC P52A # YES
031525,000128: 15,2014 36214 CAF THREE # DISPLAY REFSMMAT OPTION 3
031526,000129: 15,2015 02017 TC P52A +1
031527,000130: 15,2016 35033 P52A CAF BIT1
031528,000131: 15,2017 55132 TS OPTION2
031529,000132: 15,2020 35033 P52B CAF BIT1
031530,000133: 15,2021 04676 TC BANKCALL # FLASH OPTION CODE AND ORIENTATION CODE
031531,000134: 15,2022 21135 CADR GOPERF4R
031532,000135: 15,2023 04106 TC GOTOPOOH
031533,000136: 15,2024 02031 TC +5
031534,000137: 15,2025 02020 TC P52B # NEW CODE - NEW ORIENTATION CODE INPUT
031535,000138: 15,2026 05426 TC PHASCHNG
031536,000139: 15,2027 00014 OCT 00014
031537,000140: 15,2030 05233 TC ENDOFJOB
031538,000141: 15,2031 31132 CA OPTION2
031539,000142: 15,2032 76214 MASK THREE
031540,000143: 15,2033 50000 INDEX A
031541,000144: 15,2034 02035 TC +1
031542,000145: 15,2035 02041 TC P52T # L.S.
031543,000146: 15,2036 02110 TC P52J # PREF
031544,000147: 15,2037 02041 TC P52T # NOM
031545,000148: 15,2040 12120 TCF P52C # REF
031546,000149: 15,2041 00006 P52T EXTEND
031547,000150: 15,2042 35035 DCA NEG0
031548,000151: 15,2043 53046 DXCH DSPTEM1
031549,000152: 15,2044 32157 CAF V06N34
031550,000153: 15,2045 04676 TC BANKCALL
031551,000154: 15,2046 20720 CADR GOFLASH
031552,000155: 15,2047 04106 TC GOTOPOOH
031553,000156: 15,2050 02052 TC +2
031554,000157: 15,2051 02044 TC -5
031555,000158: 15,2052 00006 EXTEND
031556,000159: 15,2053 31046 DCA DSPTEM1
031557,000160: 15,2054 00006 EXTEND
031558,000161: 15,2055 12057 BZF +2
031559,000162: 15,2056 12062 TCF +4
031560,000163:
031561,000164: 15,2057 00006 EXTEND
031562,000165: 15,2060 30025 DCA TIME2
031563,000166: 15,2061 53046 DXCH DSPTEM1
031564,000167: 15,2062 31132 CA OPTION2
031565,000168: 15,2063 75032 MASK BIT2
031566,000169: 15,2064 10000 CCS A
031567,000170: 15,2065 12073 TCF +6 # NOM
031568,000171: 15,2066 06006 TC INTPRET # LS
031569,000172: 15,2067 77624 CALL
031570,000173: 15,2070 34603 P52LS
031571,000174: 15,2071 77650 GOTO
031572,000175: 15,2072 32100 P52D
031573,000176: 15,2073 06006 TC INTPRET
031574,000177: 15,2074 77745 DLOAD
031575,000178: 15,2075 01046 DSPTEM1
031576,000179: 15,2076 77624 CALL # COMPUTE NOMINAL IMU
031577,000180: 15,2077 34733 S52.3 # ORIENTATION
031578,000181: 15,2100 77624 P52D CALL # READ VEHICLE ATTITUDE AND
031579,000182: 15,2101 22260 S52.2 # COMPUTE GIMBAL ANGLES
031580,000183: 15,2102 77776 EXIT
031581,000184: 15,2103 32160 CAF VB06N22
031582,000185: 15,2104 04676 TC BANKCALL # DISPLAY GIMBAL ANGLES
031583,000186: 15,2105 20720 CADR GOFLASH
031584,000187: 15,2106 04106 TC GOTOPOOH
031585,000188: 15,2107 02161 TC COARSTYP
031586,000189: 15,2110 06006 P52J TC INTPRET # RECYCLE- VEHICLE HAS BEEN MENUEVERED
031587,000190: 15,2111 77650 GOTO
031588,000191: 15,2112 32100 P52D
031589,000192: 15,2113 06006 TC INTPRET
031590,000193: 15,2114 77624 CALL # DO COARSE ALIGN
031591,000194: 15,2115 30770 CAL53A # ROUTINE
031592,000195: 15,2116 77414 CAL53RET SET EXIT
031593,000196: 15,2117 01462 REFSMFLG
031594,000197: 15,2120 05426 P52C TC PHASCHNG
031595,000198: 15,2121 04024 OCT 04024
031596,000199: 15,2122 35041 CAF ALRM15
031597,000200: 15,2123 04676 TC BANKCALL
031598,000201: 15,2124 21045 CADR GOPERF1
031599,000202: 15,2125 04106 TC GOTOPOOH
031600,000203: 15,2126 02130 TC +2 # V33
031601,000204: 15,2127 02142 TC P52F # E
031602,000205: 15,2130 06006 TC INTPRET
031603,000206: 15,2131 43234 RTB DAD
031604,000207: 15,2132 45510 LOADTIME
031605,000208: 15,2133 32264 TSIGHT1
031606,000209: 15,2134 77624 CALL
031607,000210: 15,2135 30225 LOCSAM
031608,000211: 15,2136 77776 EXIT
031609,000212: 15,2137 04676 P52E TC BANKCALL # DO STAR SELECTION
031610,000213: 15,2140 30333 CADR PICAPAR
031611,000214: 15,2141 02147 TC P52I # 2 STARS NOT AVAILABLE
031612,000215: 15,2142 06006 P52F TC INTPRET # 2 STARS AVAILABLE
031613,000216: 15,2143 77624 CALL
031614,000217: 15,2144 30532 R51
031615,000218: 15,2145 77776 ENDP50S EXIT
031616,000219: 15,2146 04106 TC GOTOPOOH
031617,000220: 15,2147 05664 P52I TC ALARM
031618,000221: 15,2150 00405 OCT 405
031619,000222: 15,2151 35064 CAF V05N09
031620,000223: 15,2152 04676 TC BANKCALL
031621,000224: 15,2153 20720 CADR GOFLASH
031622,000225: 15,2154 04106 TC GOTOPOOH
031623,000226: 15,2155 02142 TC P52F # PROCEED - DO FINE ALIGN-R51
031624,000227: 15,2156 02120 TC P52C # RECYCLE - VEHICLE HAS BEEN MANUEVERED
031625,000228: 15,2157 01442 V06N34 VN 0634
031626,000229: 15,2160 01426 VB06N22 VN 00622
031627,000230: 15,2161 35040 COARSTYP CAF OCT13
031628,000231: 15,2162 04676 TC BANKCALL
031629,000232: 15,2163 21045 CADR GOPERF1
031630,000233: 15,2164 14106 TCF GOTOPOOH # V34
031631,000234: 15,2165 12113 TCF P52J +3 # NORMAL
031632,000235: 15,2166 06006 TC INTPRET # GYRO COARSE
031633,000236: 15,2167 64375 GYCRS VLOAD MXV
031634,000237: 15,2170 00307 XSMD
031635,000238: 15,2171 01736 REFSMMAT
031636,000239: 15,2172 77656 UNIT
031637,000240: 15,2173 26714 STOVL XDC
031638,000241: 15,2174 00315 YSMD
031639,000242: 15,2175 53521 MXV UNIT
031640,000243: 15,2176 01736 REFSMMAT
031641,000244: 15,2177 26722 STOVL YDC
031642,000245: 15,2200 00323 ZSMD
031643,000246: 15,2201 53521 MXV UNIT
031644,000247: 15,2202 01736 REFSMMAT
031645,000248: 15,2203 36730 STCALL ZDC
031646,000249: 15,2204 47207 CALCGTA
031647,000250: 15,2205 43014 CLEAR CLEAR
031648,000251: 15,2206 01260 DRIFTFLG
031649,000252: 15,2207 01662 REFSMFLG
031650,000253: 15,2210 77776 EXIT
031651,000254: 15,2211 32244 CAF V16N20
031652,000255: 15,2212 04676 TC BANKCALL
031653,000256: 15,2213 20676 CADR GODSPR
031654,000257: 15,2214 32323 CA R55CDR
031655,000258: 15,2215 04676 TC BANKCALL
031656,000259: 15,2216 17206 CADR IMUPULSE
031657,000260: 15,2217 04676 TC BANKCALL
031658,000261: 15,2220 17577 CADR IMUSTALL
031659,000262: 15,2221 05763 TC CURTAINS
031660,000263: 15,2222 05426 TC PHASCHNG
031661,000264: 15,2223 04024 OCT 04024
031662,000265: 15,2224 06006 TC INTPRET
031663,000266: 15,2225 75160 AXC,1 AXC,2
031664,000267: 15,2226 00306 XSMD
031665,000268: 15,2227 01735 REFSMMAT
031666,000269: 15,2230 77624 CALL
031667,000270: 15,2231 31042 MATMOVE
031668,000271: 15,2232 43014 CLEAR SET
031669,000272: 15,2233 01273 PFRATFLG
031670,000273: 15,2234 01462 REFSMFLG
031671,000274: 15,2235 77234 RTB VLOAD
031672,000275: 15,2236 31253 SET1/PDT
031673,000276: 15,2237 11566 ZEROVEC
031674,000277: 15,2240 01472 STORE GCOMP
031675,000278: 15,2241 52014 SET GOTO
031676,000279: 15,2242 01060 DRIFTFLG
031677,000280: 15,2243 30655 R51K
031678,000281: 15,2244 04024 V16N20 VN 1620
031679,000282: 15,2245 5041 ALRM15 EQUALS OCT15
031680,000283: 16,2000 SETLOC P50S2
031681,000284: 16,2000 BANK
031682,000285: 16,2602 01531 V06N89* VN 0689
031683,000286:
031684,000287: # NAME - P52LS
031685,000288:
031686,000289: # FUNCTION - TO DISPLAY THE LANDING SITE LATITUDE,
031687,000290: # LONGTITUDE AND ALTITUDE. TO ACCEPT NEW DATA VIA
031688,000291: # THE KEYBOARD. TO COMPUTE THE LANDING SITE
031689,000292: # ORIENTATION FOR P52 OR P54
031690,000293:
031691,000294: # LET:
031692,000295: # RLS = LANDING SITE VECTOR IN REF COORDINATES
031693,000296: # R = CSM POSITION VECTOR IN REF COORDINATES
031694,000297: # V = CSM VELOCITY VECTOR IN REF COORDINATES
031695,000298: # THEN THE LANDING SITE ORIENTATION IS:
031696,000299: # XSMD = UNIT(RLS)
031697,000300: # YSMD = UNIT(ZSMD*XSMD)
031698,000301: # ZSMD = UNIT((R*V)*RLS)
031699,000302:
031700,000303: # CALL - CALL
031701,000304: # P52LS
031702,000305:
031703,000306: # INPUTS- DSPTEM1 = TIME OF ALIGNMENT
031704,000307: # RLS = LANDING SITE VECTOR IN MOON FIXED COORINATES
031705,000308:
031706,000309: # OUTPUTS- XSMD, YSMD, ZSMD
031707,000310:
031708,000311: # SUBROUTINES- RP-TO-R, LAT-LONG, LLASRD, LLASRDA, CSMPREC
031709,000312:
031710,000313: # DEBRIS- VAC, SEE SUBROUTINES
031711,000314:
031712,000315: 16,2603 43020 P52LS STQ SET
031713,000316: 16,2604 00300 QMAJ
031714,000317: 16,2605 01463 LUNAFLAG
031715,000318: 16,2606 77745 DLOAD
031716,000319: 16,2607 01046 DSPTEM1
031717,000320: 16,2610 02607 STORE TSIGHT
031718,000321: 16,2611 43175 VLOAD SET
031719,000322: 16,2612 02026 RLS
031720,000323: 16,2613 00462 ERADFLAG
031721,000324: 16,2614 14001 STODL 0D
031722,000325: 16,2615 02607 TSIGHT
031723,000326: 16,2616 34007 STCALL 6D
031724,000327: 16,2617 55343 RP-TO-R
031725,000328: 16,2620 77742 VSR2
031726,000329: 16,2621 16152 STODL ALPHAV
031727,000330: 16,2622 02607 TSIGHT
031728,000331: 16,2623 77624 CALL
031729,000332: 16,2624 26400 LAT-LONG
031730,000333: 16,2625 77624 CALL
031731,000334: 16,2626 62365 LLASRD
031732,000335: 16,2627 77776 EXIT
031733,000336: 16,2630 32602 LSDISP CAF V06N89*
031734,000337: 16,2631 04676 TC BANKCALL
031735,000338: 16,2632 20720 CADR GOFLASH
031736,000339: 16,2633 04106 TC GOTOPOOH
031737,000340: 16,2634 02636 TC +2
031738,000341: 16,2635 02630 TC LSDISP
031739,000342: 16,2636 06006 TC INTPRET
031740,000343: 16,2637 77624 CALL
031741,000344: 16,2640 62374 LLASRDA
031742,000345: 16,2641 45145 DLOAD CALL
031743,000346: 16,2642 02607 TSIGHT
031744,000347: 16,2643 26451 LALOTORV
031745,000348: 16,2644 53575 VLOAD UNIT
031746,000349: 16,2645 02152 ALPHAV
031747,000350: 16,2646 14307 STODL XSMD
031748,000351: 16,2647 02607 TSIGHT
031749,000352: 16,2650 34041 STCALL TDEC1
031750,000353: 16,2651 27101 CSMPREC
031751,000354: 16,2652 47375 VLOAD VXV
031752,000355: 16,2653 00001 RATT
031753,000356: 16,2654 00007 VATT
031754,000357: 16,2655 53435 VXV UNIT
031755,000358: 16,2656 00307 XSMD
031756,000359: 16,2657 00323 STORE ZSMD
031757,000360: 16,2660 53435 VXV UNIT
031758,000361: 16,2661 00307 XSMD
031759,000362: 16,2662 34315 STCALL YSMD
031760,000363: 16,2663 00300 QMAJ
031761,000364: 14,2000 SETLOC P50S1
031762,000365: 14,2000 BANK
031763,000366:
031764,000367: # NAME- AUTOMATIC OPTICS POSITIONING ROUTINE
031765,000368:
031766,000369: # FUNCTION- (1) TO POINT THE STAR LOS OF THE OPTICS AT A STAR OR LANDMARK DEFINED BY THE PROGRAM OR BY DSKY INPUT.
031767,000370: # (2) TO POINT THE STAR LOS OF THE OPTICS AT THE LEM DURING RENDEZVOUS TRACKING OPERATIONS.
031768,000371:
031769,000372: # CALLING SEQUENCE- CALL R52
031770,000373:
031771,000374: # INPUT- 1. TARG1FLG AND TARG2FLG- PRESET BY CALLER
031772,000375: # 2. RNDVZFLG AND TRACKFLG- PRESET BY CALLER
031773,000376: # 3. STAR CODE- PRESET BY CALLER. ALSO INPUT THROUGH DSKY
031774,000377: # 4. LAT, LONG AND ALT OF LANDMARK- INPUT THROUGH DSKY
031775,000378: # 5. NO. OF MARKS (MARKINDX)- PRESET BY CALLER
031776,000379:
031777,000380: # OUTPUT- DRIVE SHAFT AND TRUNNION CDUS
031778,000381:
031779,000382: # SUBROUTINES- 1. FIXDELAY 7. CLEANDSP
031780,000383: # 2. GOPERF1 8. GODSPR
031781,000384: # 3. GOFLASH 9. REFLASHR
031782,000385: # 4. R53 10. R52.2
031783,000386: # 5. ALARM 11. R52.3
031784,000387: # 6. SR52.1
031785,000388:
031786,000389: 14,2011 COUNT 15/R52
031787,000390:
031788,000391: 14,2011 43020 R52 STQ CLEAR
031789,000392: 14,2012 02576 SAVQR52
031790,000393: 14,2013 04265 ADVTRK
031791,000394: 14,2014 77776 R52VRB EXIT
031792,000395: 14,2015 00006 EXTEND
031793,000396: 14,2016 30036 DCA CDUT
031794,000397: 14,2017 53161 DXCH DESOPTT
031795,000398: 14,2020 06006 TC INTPRET
031796,000399: 14,2021 43131 SSP CLEAR
031797,000400: 14,2022 01304 OPTIND
031798,000401: 14,2023 00000 0
031799,000402: 14,2024 00271 R53FLAG
031800,000403: 14,2025 77776 EXIT
031801,000404: 14,2026 06006 R52A TC INTPRET
031802,000405: 14,2027 43014 SET BON
031803,000406: 14,2030 00073 TRUNFLAG
031804,000407: 14,2031 00705 TARG1FLG
031805,000408: 14,2032 30112 R52H
031806,000409: 14,2033 77414 CLEAR EXIT
031807,000410: 14,2034 03660 TERMIFLG
031808,000411: 14,2035 31314 R52C CA SWSAMPLE # IS OPTICS MODE IN AGC
031809,000412: 14,2036 00006 EXTEND
031810,000413: 14,2037 62140 BZMF R52M # MANUAL
031811,000414: 14,2040 04676 R52D TC BANKCALL # AGC
031812,000415: 14,2041 26254 CADR SR52.1
031813,000416: 14,2042 12170 TCF R52L # GR 90 DEGREES
031814,000417: 14,2043 12133 TCF R52J # GR 50 DEGREES
031815,000418: 14,2044 05562 TC UPFLAG # LS 50 DEGREES
031816,000419: 14,2045 00013 ADRES TRUNFLAG # SET TRUNFLAG BIT 4 FLAG 0
031817,000420: 14,2046 35022 R52JA CAF BIT10 # IS THIS A LEM
031818,000421: 14,2047 70075 MASK STATE +1
031819,000422: 14,2050 10000 CCS A
031820,000423: 14,2051 02061 TC R52E # YES
031821,000424: 14,2052 35026 CAF BIT6 # NO, IS R53FLAG SET
031822,000425: 14,2053 70074 MASK STATE
031823,000426: 14,2054 10000 CCS A
031824,000427: 14,2055 12061 TCF R52E # YES
031825,000428: 14,2056 32160 CAF V06N92 # NO
031826,000429: 14,2057 04676 TC BANKCALL
031827,000430: 14,2060 20676 CADR GODSPR
031828,000431: 14,2061 31314 R52E CA SWSAMPLE # IS OSS IN CMC MODE
031829,000432: 14,2062 00006 EXTEND
031830,000433: 14,2063 62074 BZMF R52F # NO
031831,000434: 14,2064 40074 CS STATE # YES- IS TRUNFLAG SET
031832,000435: 14,2065 75030 MASK BIT4
031833,000436: 14,2066 10000 CCS A
031834,000437: 14,2067 02072 TC +3 # NO
031835,000438: 14,2070 31775 CA PAC # YES
031836,000439: 14,2071 55160 TS DESOPTT
031837,000440: 14,2072 31773 CA SAC
031838,000441: 14,2073 55161 TS DESOPTS
031839,000442: 14,2074 35052 R52F CAF .5SEC # WAIT 1/2 SEC
031840,000443: 14,2075 04676 TC BANKCALL
031841,000444: 14,2076 01732 CADR DELAYJOB
031842,000445: 14,2077 35022 CAF BIT10
031843,000446: 14,2100 70075 MASK STATE +1
031844,000447: 14,2101 10000 CCS A
031845,000448: 14,2102 12113 TCF R52HA # YES, LEM
031846,000449: 14,2103 35015 CAF BIT15 # NO
031847,000450: 14,2104 70103 MASK STATE +7 # IS TERMIFLG SET
031848,000451: 14,2105 00006 EXTEND
031849,000452: 14,2106 12035 BZF R52C # NO
031850,000453: 14,2107 06006 R52Q TC INTPRET # YES
031851,000454: 14,2110 77650 GOTO
031852,000455: 14,2111 02576 SAVQR52
031853,000456: 14,2112 77776 R52H EXIT # LEM
031854,000457: 14,2113 04676 R52HA TC BANKCALL
031855,000458: 14,2114 76570 CADR R61CSM
031856,000459: 14,2115 30075 CA STATE +1
031857,000460: 14,2116 75027 MASK BIT5
031858,000461: 14,2117 00006 EXTEND # TRACKFLG
031859,000462: 14,2120 12107 BZF R52Q
031860,000463:
031861,000464: 14,2121 40075 CS STATE +1
031862,000465: 14,2122 75025 MASK BIT7 # UPDATFLG
031863,000466: 14,2123 10000 CCS A
031864,000467: 14,2124 12131 TCF R52SYNC
031865,000468:
031866,000469: 14,2125 30101 R52I CA STATE +5
031867,000470: 14,2126 75022 MASK BIT10
031868,000471: 14,2127 10000 CCS A
031869,000472: 14,2130 02040 TC R52D # PRFTRKAT = 1
031870,000473: 14,2131 32204 R52SYNC CAF 1.8SEC # MAKE UP FOR LOST TIME
031871,000474: 14,2132 12075 TCF R52F +1
031872,000475:
031873,000476: 14,2133 05574 R52J TC DOWNFLAG # CLEAR TRUNFLAG
031874,000477: 14,2134 00013 ADRES TRUNFLAG # BIT 4 FLAG 0
031875,000478: 14,2135 05664 TC ALARM # SET 407 ALARM
031876,000479: 14,2136 00407 OCT 407
031877,000480: 14,2137 02046 TC R52JA
031878,000481: 14,2140 35026 R52M CAF BIT6 # IS R53FLAG SET
031879,000482: 14,2141 70074 MASK STATE
031880,000483: 14,2142 10000 CCS A
031881,000484: 14,2143 02074 TC R52F # YES
031882,000485: 14,2144 00004 INHINT # NO
031883,000486: 14,2145 37661 CAF PRIO24
031884,000487: 14,2146 05163 TC FINDVAC
031885,000488: 14,2147 E5,1773 EBANK= SAC
031886,000489: 14,2147 02153 30065 2CADR R53JOB
031887,000490:
031888,000491: 14,2151 00003 RELINT
031889,000492: 14,2152 12074 TCF R52F
031890,000493: 14,2153 06006 R53JOB TC INTPRET
031891,000494: 14,2154 77624 CALL
031892,000495: 14,2155 31302 R53
031893,000496: 14,2156 77776 ENDPLAC EXIT # INTERPRETER RETURN TO ENDOFJOB (R22 USES)
031894,000497: 14,2157 05233 TC ENDOFJOB
031895,000498: 14,2160 01534 V06N92 VN 00692
031896,000499: 14,2161 01531 V06N89A VN 0689
031897,000500: 14,2162 10464 12470 SHAXIS 2DEC .5376381241 B-1
031898,000501:
031899,000502: 14,2164 00000 00000 2DEC 0 B-28
031900,000503:
031901,000504: 14,2166 15373 11554 2DEC .8431766920 B-1
031902,000505:
031903,000506: 14,2170 35022 R52L CAF BIT10 # IS THIS A LEM
031904,000507: 14,2171 70075 MASK STATE +1
031905,000508: 14,2172 10000 CCS A
031906,000509: 14,2173 02133 TC R52J # YES
031907,000510: 14,2174 32203 CAF OCT404
031908,000511: 14,2175 04676 TC BANKCALL
031909,000512: 14,2176 21766 CADR PRIOLARM
031910,000513: 14,2177 12205 TCF TERM52 # TERMINATE
031911,000514: 14,2200 12074 TCF R52F # PROCEED
031912,000515: 14,2201 12074 TCF R52F # NO PROVISION FOR NEW DATA
031913,000516: 14,2202 15233 TCF ENDOFJOB
031914,000517:
031915,000518: 14,2203 00404 OCT404 OCT 404
031916,000519: 14,2204 00264 1.8SEC DEC 180 B-14
031917,000520:
031918,000521: 14,2205 05552 TERM52 TC CLEARMRK
031919,000522:
031920,000523: 14,2206 04676 TC BANKCALL # KILL MARK SYSTEM
031921,000524: 14,2207 16063 CADR MKRELEAS
031922,000525:
031923,000526:
031924,000527: 14,2210 35035 CAF ZERO
031925,000528: 14,2211 55323 TS OPTCADR
031926,000529:
031927,000530: 14,2212 04676 TC BANKCALL # CLEAR OUT EXTENDED VERBS
031928,000531: 14,2213 20560 CADR KLEENEX
031929,000532:
031930,000533: 14,2214 04106 TC GOTOPOOH # NOW GO TO POO
031931,000534:
031932,000535: 14,2215 43020 ADVORB STQ SET # SETS UP ADVANCED ORBIT TRACKING
031933,000536: 14,2216 02576 SAVQR52
031934,000537: 14,2217 04065 ADVTRK
031935,000538: 14,2220 43014 SET SET
031936,000539: 14,2221 01463 LUNAFLAG
031937,000540: 14,2222 00462 ERADFLAG
031938,000541: 14,2223 77650 GOTO
031939,000542: 14,2224 30014 R52VRB
031940,000543:
031941,000544: # NAME - S50 ALIAS LOCSAM
031942,000545: # NAME- LOCSAM
031943,000546:
031944,000547: # FUNCTION - TO COMPUTE QUATITIGS LISTED BELOW, USED IN THE
031945,000548: # IMU ALIGNMENT PROGRAMS
031946,000549:
031947,000550: # DEFINE:
031948,000551:
031949,000552: # RATT = POSITION VECTOR OF CM WRT PRIMARY BODY
031950,000553:
031951,000554: # VATT = VELOCITY VECTOR OF CM WRT PRIMARY BODY
031952,000555:
031953,000556: # RE = RADIUS OF EARTH
031954,000557:
031955,000558: # RM = RADIUS OF MOON
031956,000559:
031957,000560: # ECLIPOL = POLE OF ECLIPTIC SCALED BY TANGENTIAL VELOCITY OF EARTH
031958,000561: # WRT TO SUN OVER THE VELOCITY OF LIGHT
031959,000562:
031960,000563: # REM = POSITION OF MOON WRT EARTH
031961,000564:
031962,000565: # RES = POSITION OF SUN WRT EARTH
031963,000566:
031964,000567: # C = VELOCITY OF LIGHT
031965,000568:
031966,000569: # EARTH IS PRIMARY MOON IS PRIMARY
031967,000570: # - -
031968,000571: # VEARTH=-1(RATT) VEARTH=-1(REM+RATT)
031969,000572: # - -
031970,000573: # VMOON = 1(REM-RATT) VMOON =-1(RATT)
031971,000574: # - -
031972,000575: # VSUN = 1(RES) VSUN = 1(RES-REM)
031973,000576: # -1
031974,000577: # CEARTH=COS(SIN (RE/RATT)+5) CEARTH=COS 5
031975,000578: # -1
031976,000579: # CMOON =COS 5 CMOON =COS(SIN CRM/RATT)+5)
031977,000580:
031978,000581: # CSUN =COS 15 CSUN =COS 15
031979,000582:
031980,000583: # VEL/C = VSUN X ECLIPOL + VATT/C
031981,000584:
031982,000585: # CALL - DLOAD CALL
031983,000586: # DESIRED TIME
031984,000587: # LOCSAM
031985,000588:
031986,000589: # INPUTS - MPAC = TIME
031987,000590:
031988,000591: # OUTPUTS- VEARTH, VMOON, VSUN, CEARTH, CMOON, CSUN, VEL/C
031989,000592:
031990,000593: # SUBROUTINES- LSPOS, CSMCONIC
031991,000594:
031992,000595: # DEBRIS - VAC AREA, SEE SUBROUTINES
031993,000596:
031994,000597: 14,2000 SETLOC P50S1
031995,000598: 14,2000 BANK
031996,000599:
031997,000600: 14,2225 COUNT* $$/S50
031998,000601:
031999,000602: 14,2225 14,2225 LOCSAM = S50
032000,000603: 14,2225 77620 S50 STQ
032001,000604: 14,2226 00300 QMAJ
032002,000605: 14,2227 36607 STCALL TSIGHT
032003,000606: 14,2230 54110 LSPOS
032004,000607: 14,2231 26752 STOVL VMOON
032005,000608: 14,2232 00003 2D
032006,000609: 14,2233 16744 STODL VSUN
032007,000610: 14,2234 02607 TSIGHT
032008,000611: 14,2235 34041 STCALL TDEC1
032009,000612: 14,2236 27124 CSMCONIC
032010,000613: 14,2237 61131 SSP TIX,2
032011,000614: 14,2240 00052 S2
032012,000615: 14,2241 00000 0
032013,000616: 14,2242 30265 MOONCNTR
032014,000617: 14,2243 52375 EARTCNTR VLOAD VSU
032015,000618: 14,2244 02752 VMOON
032016,000619: 14,2245 00001 RATT
032017,000620: 14,2246 77656 UNIT
032018,000621: 14,2247 26752 STOVL VMOON
032019,000622: 14,2250 00001 RATT
032020,000623: 14,2251 57456 UNIT VCOMP
032021,000624: 14,2252 16736 STODL VEARTH
032022,000625: 14,2253 32250 RSUBE
032023,000626: 14,2254 77624 CALL
032024,000627: 14,2255 30325 OCCOS
032025,000628: 14,2256 14017 STODL CEARTH
032026,000629: 14,2257 32266 CSS5
032027,000630: 14,2260 24023 STOVL CMOON
032028,000631: 14,2261 02744 VSUN
032029,000632: 14,2262 77656 UNIT
032030,000633: 14,2263 36744 STCALL VSUN
032031,000634: 14,2264 30312 ENDSAM
032032,000635: 14,2265 40575 MOONCNTR VLOAD VSR8
032033,000636: 14,2266 02752 VMOON
032034,000637: 14,2267 51362 VSR1 BVSU
032035,000638: 14,2270 02744 VSUN
032036,000639: 14,2271 77656 UNIT
032037,000640: 14,2272 26744 STOVL VSUN
032038,000641: 14,2273 02752 VMOON
032039,000642: 14,2274 53455 VAD UNIT
032040,000643: 14,2275 00001 RATT
032041,000644: 14,2276 77676 VCOMP
032042,000645: 14,2277 26736 STOVL VEARTH
032043,000646:
032044,000647: 14,2300 00001 RATT
032045,000648: 14,2301 57456 UNIT VCOMP
032046,000649: 14,2302 16752 STODL VMOON
032047,000650: 14,2303 32246 RSUBM
032048,000651: 14,2304 77624 CALL
032049,000652: 14,2305 30325 OCCOS
032050,000653: 14,2306 14023 STODL CMOON
032051,000654: 14,2307 32266 CSS5
032052,000655: 14,2310 24017 STOVL CEARTH
032053,000656: 14,2311 02744 VSUN
032054,000657: 14,2312 77635 ENDSAM VXV
032055,000658: 14,2313 32256 ECLIPOL
032056,000659: 14,2314 27474 STOVL VEL/C
032057,000660: 14,2315 00007 VATT
032058,000661: 14,2316 53361 VXSC VAD
032059,000662: 14,2317 32254 1/C
032060,000663: 14,2320 03474 VEL/C
032061,000664: 14,2321 17474 STODL VEL/C
032062,000665: 14,2322 32270 CSSUN
032063,000666: 14,2323 34021 STCALL CSUN
032064,000667: 14,2324 00300 QMAJ
032065,000668: 14,2325 70471 OCCOS DDV SR1
032066,000669: 14,2326 00045 36D
032067,000670: 14,2327 43336 ASIN DAD
032068,000671: 14,2330 32252 5DEGREES
032069,000672: 14,2331 70546 COS SR1
032070,000673: 14,2332 77616 RVQ
032071,000674: 15,2000 SETLOC P50S
032072,000675: 15,2000 BANK
032073,000676: 15,2245 00065 01265 RSUBM 2DEC 1738090 B-29 # MOON RADIUS IN METERS
032074,000677:
032075,000678: 15,2247 00302 24533 RSUBE 2DEC 6378166 B-29
032076,000679:
032077,000680: 15,2251 00343 21616 5DEGREES 2DEC .013888889 # SCALED IN REVS
032078,000681:
032079,000682: 15,2253 00000 13143 1/C 2DEC .000042699 B-1 # *
032080,000683:
032081,000684: 15,2255 00000 00000 ECLIPOL 2DEC 0 B-28 # *
032082,000685:
032083,000686: 15,2257 77777 53231 2DEC -.00007896 B-1 # *
032084,000687:
032085,000688: 15,2261 00001 17570 2DEC .00018209 B-1 # * * FOR USE BY CSM ONLY
032086,000689:
032087,000690: 15,2263 00001 16700 TSIGHT1 2DEC 24000 B-28
032088,000691:
032089,000692: 15,2265 CEARTH = 14D
032090,000693: 15,2265 CSUN = 16D
032091,000694: 15,2265 CMOON = 18D
032092,000695: 15,2265 07760 14473 CSS5 2DEC .2490475 # (COS 5)/4
032093,000696: 15,2267 07564 15042 CSSUN 2DEC .24148 # COS 15 /4
032094,000697:
032095,000698: # PROGRAM NAME - PICAPAR DATE DEC 20 66
032096,000699: # MOD 1 LOG SECTION P51-P53
032097,000700: # ASSEMBLY SUNDISK REV40
032098,000701: # BY KEN VINCENT
032099,000702:
032100,000703: # FUNCTION
032101,000704: # THIS PROGRAM READ THE IMU-CDUS AND COMPUTES THE VEHICLE ORIENTATION
032102,000705: # WITH RESPECT TO INERTIAL SPACE. IT THEN COMPUTES THE SHAFT AXIS (SAX)
032103,000706: # WITH RESPECT TO REFERENCE INERTIAL. EACH STAR IN THE CATALOG IS TESTED
032104,000707: # TO DETERMINE IF IT IS OCCULTED BY EITHER THE EARTH, SUN OR MOON. IF A
032105,000708: # STAR IS NOT OCCULTED THEN IT IS PAIRED WITH ALL STAR OF LOWER INDEX.
032106,000709: # THE PAIRED STAR IS TESTED FOR OCCULTATION. PAIRS OF STARS THAT PASS
032107,000710: # THE OCCULTATION TESTS ARE TESTED FOR GOOD SEPARATION. A PAIR OF STARS
032108,000711: # HAVE GOOD SEPARATION IF THE ANGLE BETWEEN THEM IS LESS THAN 66 DEGREES
032109,000712: # AND MORE THAN 40 DEGREES. THOSE PAIRS OF STARS WITH GOOD SEPARATION
032110,000713: # ARE THEN TESTED TO SEE IF THEY LIE IN CURRENT FIELD OF VIEW. (WITHIN
032111,000714: # 33 DEGREES OF SAX). THE PAIR WITH MAXIMUM SEPARATION IS CHOSEN FROM
032112,000715: # THOSE WITH GOOD SEPARATION, AND IN FIELD OF VIEW.
032113,000716:
032114,000717: # CALLING SEQUENCE
032115,000718: # L TC BANKCALL
032116,000719: # L+1 CADR PICAPAR
032117,000720: # L+2 ERROR RETURN - NO STARS IN FIELD OF VIEW
032118,000721: # L+3 NORMAL RETURN
032119,000722:
032120,000723: # OUTPUT
032121,000724: # BESTI, BESTJ - SINGLE PREC, INTEGERS, STAR NUMBERS TIMES 6
032122,000725: # VFLAG - FLAG BIT SET IMPLIES NO STARS IN FIELD OF VIEW
032123,000726:
032124,000727: # INITIALIZATION
032125,000728: # 1) A CALL TO LOCSAM MUST BE MADE
032126,000729: # 2) VEARTH = -UNIT(R) WHERE R HAS BEEN UPDATED TOO APPROXIMATE TIME OF
032127,000730: # SIGHTINGS.
032128,000731:
032129,000732: # DEBRIS
032130,000733: # WORK AREA
032131,000734: # X,Y,ZNB
032132,000735: # SINCDU, COSCDU
032133,000736: # STARAD - STAR +5
032134,000737:
032135,000738: 15,2271 COUNT 14/PICAP
032136,000739:
032137,000740: 14,2000 SETLOC P50S1
032138,000741: 14,2000 BANK
032139,000742: 14,2333 04725 PICAPAR TC MAKECADR
032140,000743: 14,2334 55777 TS QMIN
032141,000744: 14,2335 06006 TC INTPRET
032142,000745: 14,2336 77624 CALL
032143,000746: 14,2337 47501 CDUTRIG
032144,000747: 14,2340 77624 CALL
032145,000748: 14,2341 34664 CALCSMSC
032146,000749: 14,2342 77601 SETPD
032147,000750: 14,2343 00001 0
032148,000751: 14,2344 71214 SET DLOAD # VFLAG = 1
032149,000752: 14,2345 01465 VFLAG
032150,000753: 14,2346 11566 DPZERO
032151,000754: 14,2347 24303 STOVL BESTI
032152,000755: 14,2350 02714 XNB
032153,000756: 14,2351 63361 VXSC PDVL
032154,000757: 14,2352 30511 SIN33
032155,000758: 14,2353 02730 ZNB
032156,000759: 14,2354 74370 AXT,1 VXSC
032157,000760: 14,2355 00344 228D # X1 = 37 X 6 + 6
032158,000761: 14,2356 30513 COS33
032159,000762: 14,2357 77655 VAD
032160,000763: 14,2360 53505 VXM UNIT
032161,000764: 14,2361 01736 REFSMMAT
032162,000765: 14,2362 02760 STORE SAX # SAX = SHAFT AXIS
032163,000766: 14,2363 66331 SSP SSP # S1 = S2 = 6
032164,000767: 14,2364 00051 S1
032165,000768: 14,2365 00006 6
032166,000769: 14,2366 00052 S2
032167,000770: 14,2367 00006 6
032168,000771: 14,2370 52100 PIC1 TIX,1 GOTO # MAJOR STAR
032169,000772: 14,2371 30373 PIC2
032170,000773: 14,2372 30522 PICEND
032171,000774: 14,2373 45173 PIC2 VLOAD* CALL
032172,000775: 14,2374 31763 CATLOG,1
032173,000776: 14,2375 30466 OCCULT
032174,000777: 14,2376 73014 BON LXA,2
032175,000778: 14,2377 01710 CULTFLAG
032176,000779: 14,2400 30370 PIC1
032177,000780: 14,2401 00046 X1
032178,000781: 14,2402 52104 PIC3 TIX,2 GOTO
032179,000782: 14,2403 30405 PIC4
032180,000783: 14,2404 30370 PIC1
032181,000784: 14,2405 45173 PIC4 VLOAD* CALL
032182,000785: 14,2406 46014 CATLOG,2
032183,000786: 14,2407 30466 OCCULT
032184,000787: 14,2410 76614 BON VLOAD*
032185,000788: 14,2411 01710 CULTFLAG
032186,000789: 14,2412 30402 PIC3
032187,000790: 14,2413 31763 CATLOG,1
032188,000791: 14,2414 45237 DOT* DSU
032189,000792: 14,2415 46014 CATLOG,2
032190,000793: 14,2416 30515 CSS66 # SEPERATION LESS THAN 66 DEG.
032191,000794: 14,2417 43240 BMN DAD
032192,000795: 14,2420 30402 PIC3
032193,000796: 14,2421 30517 CSS6640 # SEPERATION MORE THAN 40 DEG.
032194,000797: 14,2422 77644 BPL
032195,000798: 14,2423 30402 PIC3
032196,000799: 14,2424 50373 VLOAD* DOT
032197,000800: 14,2425 31763 CATLOG,1
032198,000801: 14,2426 02760 SAX
032199,000802: 14,2427 50025 DSU BMN # MAJOR STAR IN CONE
032200,000803: 14,2430 30521 CSS33
032201,000804: 14,2431 30370 PIC1
032202,000805: 14,2432 50373 VLOAD* DOT
032203,000806: 14,2433 46014 CATLOG,2
032204,000807: 14,2434 02760 SAX
032205,000808: 14,2435 51025 DSU BPL
032206,000809: 14,2436 30521 CSS33
032207,000810: 14,2437 30442 STRATGY
032208,000811: 14,2440 77650 GOTO
032209,000812: 14,2441 30402 PIC3
032210,000813: 14,2442 77614 STRATGY BONCLR
032211,000814: 14,2443 01605 VFLAG
032212,000815: 14,2444 30461 NEWPAR
032213,000816: 14,2445 65120 XCHX,1 XCHX,2
032214,000817: 14,2446 00302 BESTI
032215,000818: 14,2447 00303 BESTJ
032216,000819: 14,2450 47773 STRAT VLOAD* DOT*
032217,000820: 14,2451 31763 CATLOG,1
032218,000821: 14,2452 46014 CATLOG,2
032219,000822: 14,2453 43006 PUSH BOFINV
032220,000823: 14,2454 01545 VFLAG
032221,000824: 14,2455 30445 STRAT -3
032222,000825: 14,2456 45345 DLOAD DSU
032223,000826: 14,2457 77644 BPL
032224,000827: 14,2460 30402 PIC3
032225,000828: 14,2461 67130 NEWPAR SXA,1 SXA,2
032226,000829: 14,2462 00302 BESTI
032227,000830: 14,2463 00303 BESTJ
032228,000831: 14,2464 77650 GOTO
032229,000832: 14,2465 30402 PIC3
032230,000833: 14,2466 51321 OCCULT MXV BVSU
032231,000834: 14,2467 02736 CULTRIX
032232,000835: 14,2470 00017 CSS
032233,000836: 14,2471 77654 BZE
032234,000837: 14,2472 30505 CULTED
032235,000838: 14,2473 75240 BMN SIGN
032236,000839: 14,2474 30505 CULTED
032237,000840: 14,2475 00160 MPAC +3
032238,000841: 14,2476 75240 BMN SIGN
032239,000842: 14,2477 30505 CULTED
032240,000843: 14,2500 00162 MPAC +5
032241,000844: 14,2501 43040 BMN CLRGO
032242,000845: 14,2502 30505 CULTED
032243,000846: 14,2503 01630 CULTFLAG
032244,000847: 14,2504 00052 QPRET
032245,000848: 14,2505 77614 CULTED SETGO
032246,000849: 14,2506 01430 CULTFLAG
032247,000850: 14,2507 00052 QPRET
032248,000851: 14,2510 0000016 CSS = CEARTH
032249,000852: 14,2510 21150 25157 SIN33 2DEC .5376381241
032250,000853:
032251,000854: 14,2512 32766 22713 COS33 2DEC .8431756920
032252,000855:
032253,000856: 14,2514 01736 35137 CSS66 2DEC .060480472 # (COS76)/4
032254,000857:
032255,000858: 14,2516 73003 65403 CSS6640 2DEC -.15602587 # (COS76 - COS30)/4
032256,000859:
032257,000860: 14,2520 06233 26112 CSS33 2DEC .197002688 # COS(1/2(76))/4
032258,000861:
032259,000862: 14,2522 77414 PICEND BOFF EXIT
032260,000863: 14,2523 01745 VFLAG
032261,000864: 14,2524 30526 PICGXT
032262,000865: 14,2525 02530 TC PICBXT
032263,000866: 14,2526 77776 PICGXT EXIT
032264,000867: 14,2527 25777 INCR QMIN
032265,000868: 14,2530 31777 PICBXT CA QMIN
032266,000869: 14,2531 04702 TC SWCALL
032267,000870: # V1 = 12D
032268,000871:
032269,000872: # NAME - R51 FINE ALIGN
032270,000873: # FUNCTION - TO ALIGN THE STABLE MEMBER TO REFSMMAT
032271,000874: # CALLING SEQ - CALL R51
032272,000875: # INPUT - BESTI, BESTJ (PAIR OF STAR NO)
032273,000876: # OUTPUT - GYRO TORQUE PULSES
032274,000877: # SUBROUTINES - R52, R54, R55 (SXTNB, NBSM, AXISGEN
032275,000878:
032276,000879: 14,2532 COUNT 14/R51
032277,000880:
032278,000881: 14,2532 77776 R51 EXIT
032279,000882: 14,2533 35033 CAF BIT1
032280,000883: 14,2534 54304 TS STARIND
032281,000884: 14,2535 54301 TS MARKINDX
032282,000885: 14,2536 06006 R51.2 TC INTPRET
032283,000886: 14,2537 43014 R51.3 CLEAR CLEAR
032284,000887: 14,2540 00666 TARG2FLG
032285,000888: 14,2541 00665 TARG1FLG
032286,000889: 14,2542 77776 EXIT
032287,000890: 14,2543 05426 TC PHASCHNG
032288,000891: 14,2544 05024 OCT 05024 # RESTART GR 4 FOR R52-R53
032289,000892: 14,2545 13000 OCT 13000
032290,000893: 14,2546 50304 INDEX STARIND
032291,000894: 14,2547 30302 CA BESTI
032292,000895: 14,2550 00006 EXTEND
032293,000896: 14,2551 72713 MP 1/6TH
032294,000897: 14,2552 54735 TS STARCODE
032295,000898: 14,2553 32712 R51DSP CAF V01N70
032296,000899: 14,2554 04676 TC BANKCALL
032297,000900: 14,2555 21057 CADR GOFLASHR
032298,000901: 14,2556 04106 TC GOTOPOOH
032299,000902: 14,2557 02564 TC +5
032300,000903: 14,2560 02553 TC -5
032301,000904: 14,2561 36211 CAF SIX
032302,000905: 14,2562 05542 TC BLANKET
032303,000906: 14,2563 15233 TCF ENDOFJOB
032304,000907: 14,2564 03370 TC CHKSCODE
032305,000908: 14,2565 04400 TC FALTON
032306,000909: 14,2566 02553 TC R51DSP
032307,000910: 14,2567 06006 TC INTPRET
032308,000911: 14,2570 45034 RTB CALL
032309,000912: 14,2571 45510 LOADTIME
032310,000913: 14,2572 32340 PLANET
032311,000914: 14,2573 72131 SSP LXA,1
032312,000915: 14,2574 00051 S1
032313,000916: 14,2575 00000 0
032314,000917: 14,2576 00304 STARIND
032315,000918: 14,2577 77700 TIX,1
032316,000919: 14,2600 30603 R51ST
032317,000920: 14,2601 36617 STCALL STARSAV2 # 2ND STAR
032318,000921: 14,2602 30604 R51ST +1
032319,000922: 14,2603 02611 R51ST STORE STARSAV1 # 1ST STAR
032320,000923: 14,2604 77776 EXIT
032321,000924: 14,2605 41011 CS MODREG # IS THIS P54
032322,000925: 14,2606 62711 AD OCT66
032323,000926: 14,2607 00006 EXTEND
032324,000927: 14,2610 12704 BZF R51B # YES
032325,000928: 14,2611 06006 TC INTPRET
032326,000929: 14,2612 77624 CALL
032327,000930: 14,2613 30011 R52 # AOP WILL MAKE CALLS TO SIGHTING
032328,000931: 14,2614 77624 R51A CALL # COMPUTE LOS IN SM FROM MARK DATA
032329,000932: 14,2615 36060 SXTSM
032330,000933: 14,2616 02617 STORE STARSAV2
032331,000934: 14,2617 77776 EXIT
032332,000935: 14,2620 04676 TC BANKCALL
032333,000936: 14,2621 16063 CADR MKRELEAS
032334,000937: 14,2622 06006 TC INTPRET
032335,000938: 14,2623 45145 DLOAD CALL
032336,000939: 14,2624 02607 TSIGHT
032337,000940: 14,2625 32340 PLANET
032338,000941: 14,2626 77776 EXIT
032339,000942: 14,2627 10304 CCS STARIND
032340,000943: 14,2630 02671 TC R51.4
032341,000944: 14,2631 06006 TC INTPRET
032342,000945: 14,2632 53521 MXV UNIT
032343,000946: 14,2633 01736 REFSMMAT
032344,000947: 14,2634 02736 STORE STARAD
032345,000948: 14,2635 77775 VLOAD
032346,000949: 14,2636 02617 STARSAV2
032347,000950: 14,2637 24007 STOVL 6D
032348,000951: 14,2640 02611 STARSAV1
032349,000952: 14,2641 24015 STOVL 12D
032350,000953: 14,2642 02601 PLANVEC
032351,000954: 14,2643 36744 STCALL STARAD +6
032352,000955: 14,2644 30714 R54 # STAR DATA TEST
032353,000956: 14,2645 45014 BOFF CALL
032354,000957: 14,2646 00354 FREEFLAG
032355,000958: 14,2647 30655 R51K
032356,000959: 14,2650 47403 AXISGEN
032357,000960: 14,2651 77624 CALL
032358,000961: 14,2652 32271 R55 # GYRO TORQUE
032359,000962: 14,2653 77614 CLEAR
032360,000963: 14,2654 01273 PFRATFLG
032361,000964: 14,2655 77776 R51K EXIT
032362,000965: 14,2656 35775 CAF OCT14
032363,000966: 14,2657 04676 TC BANKCALL
032364,000967: 14,2660 21045 CADR GOPERF1
032365,000968: 14,2661 04106 TC GOTOPOOH
032366,000969: 14,2662 02664 TC +2 # V33
032367,000970: 14,2663 02666 TC +3
032368,000971: 14,2664 04676 TC BANKCALL
032369,000972: 14,2665 32120 CADR P52C
032370,000973: 14,2666 06006 TC INTPRET
032371,000974: 14,2667 77650 GOTO
032372,000975: 14,2670 32145 ENDP50S
032373,000976: 14,2671 06006 R51.4 TC INTPRET
032374,000977: 14,2672 53521 MXV UNIT
032375,000978: 14,2673 01736 REFSMMAT
032376,000979: 14,2674 26601 STOVL PLANVEC
032377,000980: 14,2675 02617 STARSAV2
032378,000981: 14,2676 02611 STORE STARSAV1
032379,000982: 14,2677 77731 SSP
032380,000983: 14,2700 00305 STARIND
032381,000984: 14,2701 00000 0
032382,000985: 14,2702 77650 GOTO
032383,000986: 14,2703 30537 R51.3
032384,000987: 14,2704 06006 R51B TC INTPRET
032385,000988: 14,2705 77624 CALL
032386,000989: 14,2706 36114 R56
032387,000990: 14,2707 77650 GOTO
032388,000991: 14,2710 30614 R51A
032389,000992: 14,2711 00066 OCT66 OCT 00066
032390,000993: 14,2712 00306 V01N70 VN 0170
032391,000994: 14,2713 05253 1/6TH DEC .1666667
032392,000995:
032393,000996: # NAME-R55 GYRO TORQUE
032394,000997: # FUNCTION - COMPUTE AND SEND GYRO PULSES
032395,000998: # CALLING SEQ - CALL R55
032396,000999: # INPUT - X,Y,ZDC - REFSMMAT WRT PRESENT STABLE MEMBER
032397,001000: # OUTPUT - GYRO PULSES
032398,001001: # SUBROUTINES - CALCGTA, GOFLASH, GODSPR, IMUFINE, IMUPULSE, GOPERF1
032399,001002:
032400,001003: 15,2000 SETLOC P50S
032401,001004: 15,2000 BANK
032402,001005: 15,2271 COUNT* $$/R55
032403,001006: 15,2271 77620 R55 STQ
032404,001007: 15,2272 02777 QMIN
032405,001008: 15,2273 77624 CALL
032406,001009: 15,2274 47207 CALCGTA
032407,001010: 15,2275 77776 PULSEM EXIT
032408,001011: 15,2276 32322 R55.1 CAF V06N93
032409,001012: 15,2277 04676 TC BANKCALL
032410,001013: 15,2300 20720 CADR GOFLASH
032411,001014: 15,2301 04106 TC GOTOPOOH
032412,001015: 15,2302 02304 TC R55.2
032413,001016: 15,2303 02317 TC R55RET
032414,001017: 15,2304 05426 R55.2 TC PHASCHNG
032415,001018: 15,2305 00314 OCT 00314
032416,001019: 15,2306 32323 CA R55CDR
032417,001020: 15,2307 04676 TC BANKCALL
032418,001021: 15,2310 17206 CADR IMUPULSE
032419,001022: 15,2311 04676 TC BANKCALL
032420,001023: 15,2312 17577 CADR IMUSTALL
032421,001024: 15,2313 05763 TC CURTAINS
032422,001025: 15,2314 05426 TC PHASCHNG
032423,001026: 15,2315 05024 OCT 05024
032424,001027: 15,2316 13000 OCT 13000
032425,001028: 15,2317 06006 R55RET TC INTPRET
032426,001029: 15,2320 77650 GOTO
032427,001030: 15,2321 02777 QMIN
032428,001031: 15,2322 01535 V06N93 VN 0693
032429,001032: 15,2323 02757 R55CDR ECADR OGC
032430,001033: 15,2324 14,2714 R54 = CHKSDATA
032431,001034:
032432,001035: # ROUTINE NAME - CHKSDATA DATE - JAN 9, 1967
032433,001036: # MOD NO - 0 LOG SECTION - P51-P53
032434,001037: # MODIFICATION BY - LONSKE ASSEMBLY -
032435,001038:
032436,001039: # FUNCTIONAL DESCRIPTION - CHECKS THE VALIDITY OF A PAIR OF STAR SIGHTINGS. WHEN A PAIR OF STAR SIGHTINGS ARE MADE
032437,001040: # BY THE ASTRONAUT THIS ROUTINE OPERATES AND CHECKS THE OBSERVED SIGHTINGS AGAINST STORED STAR VECTORS IN THE
032438,001041: # COMPUTER TO INSURE A PROPER SIGHTING WAS MADE. THE FOLLOWING COMPUTATIONS ARE PERFORMED_
032439,001042: # OS1 = OBSERVED STAR 1 VECTOR
032440,001043: # OS2 = OBSERVED STAR 2 VECTOR
032441,001044: # SS1 = STORED STAR 1 VECTOR
032442,001045: # SS2 = STORED STAR 2 VECTOR
032443,001046: # A1 = ARCCOS(OS1 - OS2)
032444,001047: # A2 = ARCCOS(SS1 - SS2)
032445,001048: # A = ABS(2(A1 - A2))
032446,001049:
032447,001050: # THE ANGULAR DIFFERENCE IS DISPLAYED FOR ASTRONAUT ACCEPTENCE
032448,001051:
032449,001052: # EXIT MODE 1. FREEFLAG SET IMPLIES ASTRONAUT WANTS TO PROCEED
032450,001053: # 2. FREEFLAG RESET IMPLIES ASTRONAUT WANTS TO RECYCLE ERANCE)
032451,001054:
032452,001055: # OUTPUT - 1. VERB 6,NOUN 3 - DISPLAYS ANGULAR DIFFERENCE BETWEEN 2 SETS OF STARS.
032453,001056: # 2. STAR VECTORS FROM STAR CATALOG ARE LEFT IN 6D AND 12D.
032454,001057:
032455,001058: # ERASABLE INITIALIZATION REQUIRED -
032456,001059: # 1. MARK VECTORS ARE STORED IN STARAD AND STARAD +6.
032457,001060: # 2. CATALOG VECTORS ARE STORED IN 6D AND 12D.
032458,001061:
032459,001062: # DEBRIS -
032460,001063:
032461,001064: 14,2000 SETLOC P50S1
032462,001065: 14,2000 BANK
032463,001066: 14,2714 COUNT* $$/R50
032464,001067: 14,2714 43020 CHKSDATA STQ SET
032465,001068: 14,2715 02777 QMIN
032466,001069: 14,2716 00074 FREEFLAG
032467,001070: 14,2717 77760 CHKSAB AXC,1 # SET X1 TO STORE EPHEMERIS DATA
032468,001071: 14,2720 02735 STARAD
032469,001072:
032470,001073: 14,2721 47773 CHKSB VLOAD* DOT* # CAL. ANGLE THETA
032471,001074: 14,2722 00001 0,1
032472,001075: 14,2723 00007 6,1
032473,001076: 14,2724 65552 SL1 ACOS
032474,001077: 14,2725 00025 STORE THETA
032475,001078: 14,2726 43014 BOFF INVERT # BRANCH TO CHKSD IF THIS IS 2ND PASS
032476,001079: 14,2727 00354 FREEFLAG
032477,001080: 14,2730 30740 CHKSD
032478,001081: 14,2731 00174 FREEFLAG # CLEAR FREEFLAG
032479,001082: 14,2732 71360 AXC,1 DLOAD # SET X1 TO MARK ANGLES
032480,001083: 14,2733 00006 6D
032481,001084: 14,2734 00025 THETA
032482,001085: 14,2735 00023 STORE 18D
032483,001086: 14,2736 77650 GOTO
032484,001087: 14,2737 30721 CHKSB # RETURN TO CAL. 2ND ANGLE
032485,001088: 14,2740 45345 CHKSD DLOAD DSU
032486,001089: 14,2741 00025 THETA # COMPUTE POS DIFF
032487,001090: 14,2742 00023 18D
032488,001091: 14,2743 47046 ABS RTB
032489,001092: 14,2744 45544 SGNAGREE
032490,001093: 14,2745 01046 STORE NORMTEM1
032491,001094: 14,2746 77414 SET EXIT
032492,001095: 14,2747 00074 FREEFLAG
032493,001096: 14,2750 35035 CAF ZERO
032494,001097: 14,2751 04676 TC BANKCALL
032495,001098: 14,2752 20703 CADR CLEANDSP
032496,001099:
032497,001100: 14,2753 32767 CAF VB6N5
032498,001101: 14,2754 04676 TC BANKCALL
032499,001102: 14,2755 20720 CADR GOFLASH
032500,001103: 14,2756 14106 TCF GOTOPOOH
032501,001104: 14,2757 02764 TC CHKSDA # PROCEED
032502,001105: 14,2760 06006 TC INTPRET
032503,001106: 14,2761 52014 CLEAR GOTO
032504,001107: 14,2762 00274 FREEFLAG
032505,001108: 14,2763 02777 QMIN
032506,001109: 14,2764 06006 CHKSDA TC INTPRET
032507,001110: 14,2765 77650 GOTO
032508,001111: 14,2766 02777 QMIN
032509,001112: 14,2767 01405 VB6N5 VN 605
032510,001113:
032511,001114: # NAME - CAL53A
032512,001115: # NAME - CAL53A
032513,001116: # FUNCTION - COARSE ALIGN THE IMU, IF NECESSARY.
032514,001117: # CALLING SEQUENCE - CALL CAL53A
032515,001118: # INPUT - PRESENT GIMBAL ANGLES - CDUX, CDUY, CDUZ
032516,001119: # DESIRED GIMBAL ANGLES - THETAD,+1,+2
032517,001120: # OUTPUT - THE IMU COORDINATES ARE STORED IN REFSMMAT
032518,001121: # SUBROUTINES USED - 1.IMUCOARS 2.IMUSTALL 3.CURTAINS
032519,001122:
032520,001123: 14,2770 COUNT 14/R50
032521,001124:
032522,001125: 14,2770 77624 CAL53A CALL
032523,001126: 14,2771 22260 S52.2 # MAKE FINAL COMP OF GIMBAL ANGLES
032524,001127: 14,2772 66234 RTB SSP
032525,001128: 14,2773 32324 RDCDUS # READ CDUS
032526,001129: 14,2774 00051 S1
032527,001130: 14,2775 00001 1
032528,001131: 14,2776 40370 AXT,1 SETPD
032529,001132: 14,2777 00003 3
032530,001133: 14,3000 00005 4
032531,001134: 14,3001 70543 CALOOP DLOAD* SR1
032532,001135: 14,3002 01161 THETAD +3D,1
032533,001136: 14,3003 70523 PDDL* SR1
032534,001137: 14,3004 00005 4,1
032535,001138: 14,3005 51425 DSU ABS
032536,001139: 14,3006 45206 PUSH DSU
032537,001140: 14,3007 31055 DEGREE1
032538,001141: 14,3010 71240 BMN DLOAD
032539,001142: 14,3011 31031 CALOOP1
032540,001143: 14,3012 51025 DSU BPL
032541,001144: 14,3013 31056 DEG359
032542,001145: 14,3014 31031 CALOOP1
032543,001146: 14,3015 77776 COARFINE EXIT
032544,001147: 14,3016 05426 TC PHASCHNG
032545,001148: 14,3017 04024 OCT 04024
032546,001149: 14,3020 03256 TC COARSUB # PERFORM ALIGNMENT
032547,001150: 14,3021 06006 TC INTPRET
032548,001151: 14,3022 77234 RTB VLOAD
032549,001152: 14,3023 31253 SET1/PDT
032550,001153: 14,3024 11566 ZEROVEC
032551,001154: 14,3025 01472 STORE GCOMP
032552,001155: 14,3026 52014 SET GOTO
032553,001156: 14,3027 01060 DRIFTFLG
032554,001157: 14,3030 31033 FINEONLY
032555,001158: 14,3031 77700 CALOOP1 TIX,1
032556,001159: 14,3032 31001 CALOOP
032557,001160: 14,3033 75160 FINEONLY AXC,1 AXC,2
032558,001161: 14,3034 02671 XSM
032559,001162: 14,3035 01735 REFSMMAT
032560,001163: 14,3036 77624 CALL
032561,001164: 14,3037 31042 MATMOVE
032562,001165: 14,3040 77650 GOTO
032563,001166: 14,3041 32116 CAL53RET
032564,001167: 14,3042 77773 MATMOVE VLOAD* # TRANSFER MATRIX
032565,001168: 14,3043 00001 0,1
032566,001169: 14,3044 10001 STORE 0,2
032567,001170: 14,3045 77773 VLOAD*
032568,001171: 14,3046 00007 6D,1
032569,001172: 14,3047 10007 STORE 6D,2
032570,001173: 14,3050 77773 VLOAD*
032571,001174: 14,3051 00015 12D,1
032572,001175: 14,3052 10015 STORE 12D,2
032573,001176: 14,3053 77616 RVQ
032574,001177: 14,3054 00056 DEGREE1 DEC 46 B-14
032575,001178: 14,3055 37722 DEG359 DEC 16338 B-14
032576,001179: 15,2000 SETLOC P50S
032577,001180: 15,2000 BANK
032578,001181: 15,2324 00004 RDCDUS INHINT # READ CDUS
032579,001182: 15,2325 30032 CA CDUX
032580,001183: 15,2326 50120 INDEX FIXLOC
032581,001184: 15,2327 54001 TS 1
032582,001185: 15,2330 30033 CA CDUY
032583,001186: 15,2331 50120 INDEX FIXLOC
032584,001187: 15,2332 54002 TS 2
032585,001188: 15,2333 30034 CA CDUZ
032586,001189: 15,2334 50120 INDEX FIXLOC
032587,001190: 15,2335 54003 TS 3
032588,001191: 15,2336 00003 RELINT
032589,001192: 15,2337 06030 TC DANZIG # +
032590,001193:
032591,001194:
032592,001195: # NAME - GIMB
032593,001196:
032594,001197: # FUNCTION - DETERMINE AND COMPUTE THE DESIRED GIMBAL ANGLES TO BE USED FOR COARSE ALIGNMENT.
032595,001198:
032596,001199: # CALLING SEQUENCE - CALL GIMB
032597,001200:
032598,001201: # INPUT - DESIRED IMU INERTIAL ORIENTATION VECTORS-XSMD, YSMD, ZSMD
032599,001202:
032600,001203: # OUTPUT -GIMBAL ANGLES LEFT IN THETAD, +1, +2 +
032601,001204:
032602,001205: # SUBROUTINES USED - 1.CDUTRIG 2.CALCSMSC 3.CALCGA
032603,001206:
032604,001207: 16,2000 SETLOC P50S2
032605,001208: 16,2000 BANK
032606,001209: 16,2664 COUNT 14/INFLT
032607,001210:
032608,001211: 16,2664 41345 CALCSMSC DLOAD DMP
032609,001212: 16,2665 00737 SINCDUY
032610,001213: 16,2666 00747 COSCDUZ
032611,001214: 16,2667 77676 DCOMP
032612,001215: 16,2670 70525 PDDL SR1
032613,001216: 16,2671 00741 SINCDUZ
032614,001217: 16,2672 41325 PDDL DMP
032615,001218: 16,2673 00745 COSCDUY
032616,001219: 16,2674 00747 COSCDUZ
032617,001220: 16,2675 76466 VDEF VSL1
032618,001221: 16,2676 02714 STORE XNB
032619,001222: 16,2677 41345 DLOAD DMP
032620,001223: 16,2700 00743 SINCDUX
032621,001224: 16,2701 00741 SINCDUZ
032622,001225: 16,2702 77752 SL1
032623,001226: 16,2703 00033 STORE 26D
032624,001227: 16,2704 77605 DMP
032625,001228: 16,2705 00737 SINCDUY
032626,001229: 16,2706 41325 PDDL DMP
032627,001230: 16,2707 00751 COSCDUX
032628,001231: 16,2710 00745 COSCDUY
032629,001232: 16,2711 77625 DSU
032630,001233: 16,2712 41325 PDDL DMP
032631,001234: 16,2713 00743 SINCDUX
032632,001235: 16,2714 00747 COSCDUZ
032633,001236: 16,2715 77676 DCOMP
032634,001237: 16,2716 41325 PDDL DMP
032635,001238: 16,2717 00751 COSCDUX
032636,001239: 16,2720 00737 SINCDUY
032637,001240: 16,2721 41325 PDDL DMP
032638,001241: 16,2722 00745 COSCDUY
032639,001242: 16,2723 00033 26D
032640,001243: 16,2724 55415 DAD VDEF
032641,001244: 16,2725 77772 VSL1
032642,001245: 16,2726 02730 STORE ZNB
032643,001246: 16,2727 76435 VXV VSL1
032644,001247: 16,2730 02714 XNB
032645,001248: 16,2731 02722 STORE YNB
032646,001249: 16,2732 77616 RVQ
032647,001250:
032648,001251: # NAME - P51 - IMU ORIENTATION DETERMINATION
032649,001252: # MOD. NO. 2 21 DEC 66 LOG SECTION - P51-P53
032650,001253: # MOD BY STURLAUGSON ASSEMBLY SUNDISK REV15
032651,001254:
032652,001255: # FUNCTIONAL DESCRIPTION
032653,001256: # DETERMINES THE INERTIAL ORIENTATION OF THE IMU. THE PROGRAM IS SELECTED BY DSKY ENTRY. THE SIGHTING
032654,001257: # ROUTINE IS CALLED TO COLLECT THE CDU COUNTERS AND SHAFT AND TRUNNION ANGLES FOR A SIGHTED STAR. THE DATA IS
032655,001258: # THEN PROCESSED AS FOLLOWS.
032656,001259:
032657,001260: # 1. SEXTANT ANGLES ARE COMPUTED IN TERMS OF NAVIGATIONAL BASE COORDINATES. LET SA AND TA BE THE SHAFT AND
032658,001261: # TRUNNION ANGLES, RESPECTIVELY. THEN,
032659,001262: # -
032660,001263: # V = (SIN(TA)*COS(SA), SIN(TA)*SIN(SA), COS(TA)) (A COLUMN VECTOR)
032661,001264: # NB
032662,001265: # THE OUTPUT IS A HALF-UNIT VECTOR STORED IN STARM.
032663,001266:
032664,001267: # 2. THIS VECTOR IN NAV. BASE COORDS. IS THEN TRANSFORMED TO ONE IN STABLE MEMBER COORDINATES.
032665,001268: # - T T T -
032666,001269: # V = Q *Q *Q *V , WHERE
032667,001270: # 1 2 3 NB
032668,001271:
032669,001272: # ( COS(IG) 0 -SIN(IG) )
032670,001273: # ( ) THE GIMBAL ANGLES ARE COMPUTED FROM
032671,001274: # Q = ( 0 1 0 ), IG= INNER GIMBAL ANGLE THE CDU COUNTERS AT NBSM (USING AXIS-
032672,001275: # 1 ( ) ROT AND CDULOGIC)
032673,001276: # ( SIN(IG) 0 COS(IG) )
032674,001277:
032675,001278: # ( COS(MG) SIN(MG) 0 )
032676,001279: # ( )
032677,001280: # Q = (-SIN(MG) COS(MG) 0 ), MG= MIDDLE GIMBAL ANGLE
032678,001281: # 2 ( )
032679,001282: # ( 0 0 1 )
032680,001283:
032681,001284: # ( 1 0 0 )
032682,001285: # ( )
032683,001286: # Q = ( 0 COS(OG) SIN(OG) ), OG= OUTER GIMBAL ANGLE
032684,001287: # 3 ( )
032685,001288: # ( 0 -SIN(OG) COS(OG) )
032686,001289:
032687,001290: # 3. THE STAR NUMBER IS SAVED AND THE SECOND STAR IS THEN SIMILARLY PROCESSED.
032688,001291:
032689,001292: # 4. THE ANGLE BETWEEN THE TWO STARS IS THEN CHECKED AT CKSDATA.
032690,001293:
032691,001294: # 5. REFSMMAT IS THEN COMPUTED AT AXISGEN AS FOLLOWS.
032692,001295: # - -
032693,001296: # LET S AND S BE TWO STAR VECTORS EXPRESSED IN TWO COORDINATE SYSTEMS, A AND B (BASIC AND STABLE MEMBER).
032694,001297: # 1 2
032695,001298: # DEFINE, - -
032696,001299: # U = S
032697,001300: # A A1
032698,001301: # - - -
032699,001302: # V = UNIT(S X S )
032700,001303: # A A1 A2
032701,001304: # - - -
032702,001305: # W = U X V
032703,001306: # A A A
032704,001307:
032705,001308: # AND
032706,001309: # - -
032707,001310: # U = S
032708,001311: # B B1
032709,001312: # - - -
032710,001313: # V = UNIT(S X S )
032711,001314: # B B1 B2
032712,001315: # - - -
032713,001316: # W = U X V
032714,001317: # B B B
032715,001318:
032716,001319: # THEN - - - -
032717,001320: # X = U *U + V *V + W *W
032718,001321: # B1 A B1 A B1 A
032719,001322: # - - - - (REFSMMAT)
032720,001323: # Y = U *U + V *V + W *W
032721,001324: # B2 A B2 A B2 A
032722,001325: # - - - -
032723,001326: # Z = U *U + V *V + W *W
032724,001327: # B3 A B3 A B3 A
032725,001328:
032726,001329: # THE INPUTS CONSIST OF THE FOUR HALF-UNIT VECTORS STORED AS FOLLOWS
032727,001330: # -
032728,001331: # S IN 6-11 OF THE VAC AREA
032729,001332: # A1
032730,001333: # -
032731,001334: # S IN 12-17 OF THE VAC AREA
032732,001335: # A2
032733,001336: # -
032734,001337: # S IN STARAD
032735,001338: # B1
032736,001339: # -
032737,001340: # S IN STARAD +6
032738,001341: # B2
032739,001342:
032740,001343: # CALLING SEQUENCE
032741,001344:
032742,001345: # THE PROGRAM IS CALLED BY THE ASTRONAUT BY DSKY ENTRY.
032743,001346:
032744,001347: # SUBROUTINES CALLED.
032745,001348:
032746,001349: # GOPERF3
032747,001350: # GOPERF1R
032748,001351: # GODSPR
032749,001352: # IMUCOARS
032750,001353: # IMUFIN20
032751,001354: # R53
032752,001355: # SXTNB
032753,001356: # NBSM
032754,001357: # MKRELEAS
032755,001358: # CHKSDATA
032756,001359: # MATMOVE
032757,001360:
032758,001361: # ALARMS
032759,001362:
032760,001363: # NONE.
032761,001364:
032762,001365: # ERASABLE INITIALIZATION
032763,001366:
032764,001367: # IMU ZERO FLAG SHOULD BE SET.
032765,001368:
032766,001369: # OUTPUT
032767,001370:
032768,001371: # REFSMMAT
032769,001372: # REFSMFLG
032770,001373:
032771,001374: # DEBRIS
032772,001375:
032773,001376: # WORK AREA
032774,001377: # STARAD
032775,001378: # STARIND
032776,001379: # BESTI
032777,001380: # BESTJ
032778,001381:
032779,001382: 14,2000 SETLOC P50S1
032780,001383: 14,2000 BANK
032781,001384: 14,3056 COUNT 14/P5153
032782,001385:
032783,001386: 14,3056 14,3056 P53 EQUALS P51
032784,001387: 14,3056 41320 P51 CS IMODES30
032785,001388: 14,3057 75023 MASK BIT9
032786,001389: 14,3060 10000 CCS A
032787,001390: 14,3061 03065 TC P51A
032788,001391: 14,3062 05664 TC ALARM
032789,001392: 14,3063 00210 OCT 210
032790,001393: 14,3064 04106 TC GOTOPOOH
032791,001394: 14,3065 04676 P51A TC BANKCALL
032792,001395: 14,3066 17667 CADR R02ZERO
032793,001396:
032794,001397: 14,3067 35041 P51AA CAF PRFMSTAQ
032795,001398: 14,3070 04676 TC BANKCALL
032796,001399: 14,3071 21045 CADR GOPERF1
032797,001400: 14,3072 04106 TC GOTOPOOH # TERM.
032798,001401: 14,3073 03116 TC P51B # V33
032799,001402: 14,3074 05426 TC PHASCHNG
032800,001403: 14,3075 05024 OCT 05024
032801,001404: 14,3076 13000 OCT 13000
032802,001405: 14,3077 35035 CAF P51ZERO
032803,001406: 14,3100 55155 TS THETAD # ZERO THE GIMBALS
032804,001407: 14,3101 55156 TS THETAD +1
032805,001408: 14,3102 55157 TS THETAD +2
032806,001409: 14,3103 33251 CAF V6N22
032807,001410: 14,3104 04676 TC BANKCALL
032808,001411: 14,3105 20673 CADR GODSPRET
032809,001412: 14,3106 33252 CAF V41K # NOW DISPLAY COARSE ALIGN VERB 41
032810,001413: 14,3107 04676 TC BANKCALL
032811,001414: 14,3110 20673 CADR GODSPRET
032812,001415: 14,3111 03256 TC COARSUB # PERFORM ALIGNMENT
032813,001416: 14,3112 05426 TC PHASCHNG
032814,001417: 14,3113 05024 OCT 05024
032815,001418: 14,3114 13000 OCT 13000
032816,001419: 14,3115 13067 TCF P51AA # COARSE ALIGN DONE - RECYCLE FOR FINE
032817,001420:
032818,001421: # DO STAR SIGHTING AND COMPUTE NEW REFSMMAT
032819,001422: 14,3116 05426 P51B TC PHASCHNG
032820,001423: 14,3117 00014 OCT 00014
032821,001424: 14,3120 06006 TC INTPRET
032822,001425: 14,3121 40331 SSP SETPD
032823,001426: 14,3122 00305 STARIND # INDEX - STAR 1 OR 2
032824,001427: 14,3123 00000 0
032825,001428: 14,3124 00001 0
032826,001429: 14,3125 77234 RTB VLOAD
032827,001430: 14,3126 31253 SET1/PDT
032828,001431: 14,3127 11566 ZEROVEC
032829,001432: 14,3130 01472 STORE GCOMP
032830,001433: 14,3131 43014 SET CLEAR
032831,001434: 14,3132 01060 DRIFTFLG # ENABLE T4 COMPENSATION
032832,001435: 14,3133 00666 TARG2FLG # SHOW MARK IS STAR - NOT LANDMARK
032833,001436: 14,3134 77776 EXIT
032834,001437: 14,3135 35033 CAF BIT1
032835,001438: 14,3136 54301 TS MARKINDX # INITIALIZE FOR ONE MARK
032836,001439:
032837,001440: 14,3137 05426 P51C TC PHASCHNG
032838,001441: 14,3140 05024 OCT 05024
032839,001442: 14,3141 13000 OCT 13000
032840,001443: 14,3142 05400 TC CHECKMM
032841,001444: 14,3143 00065 MM 53 B-14 # BACKUP PROGRAM
032842,001445: 14,3144 13152 TCF P51C.1 # NOT P53
032843,001446: 14,3145 06006 TC INTPRET
032844,001447: 14,3146 77624 CALL
032845,001448: 14,3147 36114 R56
032846,001449: 14,3150 77650 GOTO
032847,001450: 14,3151 31155 P51C.2
032848,001451: 14,3152 06006 P51C.1 TC INTPRET
032849,001452: 14,3153 77624 CALL
032850,001453: 14,3154 31302 R53 # SIGHTING ROUTINE
032851,001454: 14,3155 77624 P51C.2 CALL # COMPUTE LOS IN SM FROM MARK DATA
032852,001455: 14,3156 36060 SXTSM
032853,001456: 14,3157 77606 PUSH
032854,001457: 14,3160 53135 SLOAD BZE
032855,001458: 14,3161 00305 STARIND
032856,001459: 14,3162 31167 P51D
032857,001460: 14,3163 45575 VLOAD STADR
032858,001461: 14,3164 75160 STORE STARSAV2 # DOWNLINK
032859,001462: 14,3165 77650 GOTO
032860,001463: 14,3166 31175 P51E
032861,001464: 14,3167 45575 P51D VLOAD STADR
032862,001465: 14,3170 61166 STODL STARSAV1
032863,001466: 14,3171 02607 TSIGHT
032864,001467: 14,3172 77624 CALL
032865,001468: 14,3173 32340 PLANET
032866,001469: 14,3174 02601 STORE PLANVEC
032867,001470: 14,3175 77776 P51E EXIT
032868,001471: 14,3176 05426 TC PHASCHNG
032869,001472: 14,3177 05024 OCT 05024
032870,001473: 14,3200 13000 OCT 13000
032871,001474: 14,3201 04676 TC BANKCALL
032872,001475: 14,3202 16063 CADR MKRELEAS # ZERO MARKSTAT
032873,001476: 14,3203 10304 CCS STARIND
032874,001477: 14,3204 13213 TCF P51F # STAR 2
032875,001478: 14,3205 05426 TC PHASCHNG
032876,001479: 14,3206 05024 OCT 05024
032877,001480: 14,3207 13000 OCT 13000
032878,001481: 14,3210 35033 CAF BIT1
032879,001482: 14,3211 54304 TS STARIND
032880,001483: 14,3212 13137 TCF P51C # GO DO SECOND STAR
032881,001484: 14,3213 05426 P51F TC PHASCHNG
032882,001485: 14,3214 05024 OCT 05024
032883,001486: 14,3215 13000 OCT 13000
032884,001487: 14,3216 06006 TC INTPRET
032885,001488: 14,3217 45145 DLOAD CALL
032886,001489: 14,3220 02607 TSIGHT
032887,001490: 14,3221 32340 PLANET
032888,001491: 14,3222 24015 STOVL 12D
032889,001492: 14,3223 02601 PLANVEC
032890,001493: 14,3224 24007 STOVL 6D
032891,001494: 14,3225 02611 STARSAV1
032892,001495: 14,3226 26736 STOVL STARAD
032893,001496: 14,3227 02617 STARSAV2
032894,001497: 14,3230 36744 STCALL STARAD +6
032895,001498: 14,3231 30714 CHKSDATA # CHECK STAR ANGLES IN STARAD AND
032896,001499: 14,3232 77414 BON EXIT
032897,001500: 14,3233 00314 FREEFLAG
032898,001501: 14,3234 31236 P51G
032899,001502: 14,3235 03067 TC P51AA
032900,001503: 14,3236 77624 P51G CALL
032901,001504: 14,3237 47403 AXISGEN # COME BACK WITH REFSMMAT IN XDC
032902,001505: 14,3240 75160 AXC,1 AXC,2
032903,001506: 14,3241 02713 XDC
032904,001507: 14,3242 01735 REFSMMAT
032905,001508: 14,3243 45014 CLEAR CALL
032906,001509: 14,3244 01662 REFSMFLG
032907,001510: 14,3245 31042 MATMOVE
032908,001511: 14,3246 52014 SET GOTO
032909,001512: 14,3247 01462 REFSMFLG
032910,001513: 14,3250 32145 ENDP50S
032911,001514: 14,3251 5041 PRFMSTAQ = OCT15
032912,001515: 14,3251 5035 P51ZERO = ZERO
032913,001516: 14,3251 5036 P51FIVE = FIVE
032914,001517: 14,3251 01426 V6N22 VN 0622
032915,001518: 14,3252 12200 V41K VN 4100
032916,001519: 14,3253 30025 SET1/PDT CA TIME1
032917,001520: 14,3254 55074 TS 1/PIPADT
032918,001521: 14,3255 16030 TCF DANZIG
032919,001522:
032920,001523: 14,3256 COUNT* $$/R50
032921,001524: 14,3256 30002 COARSUB CA Q
032922,001525: 14,3257 55777 TS QMIN
032923,001526: 14,3260 31322 STALLOOP CA MODECADR # IS IMU IN USE?
032924,001527: 14,3261 00006 EXTEND
032925,001528: 14,3262 13267 BZF CORSCALL # NO, GO AHEAD WITH COARSE ALIGN
032926,001529: 14,3263 35055 CAF 1SEC # YES, SO WAIT A SEC
032927,001530: 14,3264 04676 TC BANKCALL
032928,001531: 14,3265 01732 CADR DELAYJOB
032929,001532: 14,3266 03260 TC STALLOOP # AND TRY AGAIN
032930,001533: 14,3267 04676 CORSCALL TC BANKCALL
032931,001534: 14,3270 16663 CADR IMUCOARS # PERFORM COARSE ALIGN
032932,001535: 14,3271 04676 TC BANKCALL
032933,001536: 14,3272 17577 CADR IMUSTALL
032934,001537: 14,3273 05763 TC CURTAINS # BAD END
032935,001538: 14,3274 04676 TC BANKCALL
032936,001539: 14,3275 17073 CADR IMUFIN20 # PERFORM FINE ALIGN
032937,001540: 14,3276 04676 TC BANKCALL
032938,001541: 14,3277 17577 CADR IMUSTALL
032939,001542: 14,3300 05763 TC CURTAINS # BAD END
032940,001543: 14,3301 01777 TC QMIN
032941,001544:
032942,001545: # SXTSM COMPUTES AN LOS VECTOR IN SM COORD FROM OCDU AND ICDU MARK DATA
032943,001546:
032944,001547: 17,2000 SETLOC P50S3
032945,001548: 17,2000 BANK
032946,001549: 17,2060 77620 SXTSM STQ
032947,001550: 17,2061 00300 QMAJ
032948,001551: 17,2062 70740 LXC,1 DLOAD*
032949,001552: 17,2063 01330 MARKSTAT
032950,001553: 17,2064 00001 0D,1
032951,001554: 17,2065 02607 STORE TSIGHT
032952,001555: 17,2066 66744 LXC,2 SLOAD*
032953,001556: 17,2067 00304 STARIND
032954,001557: 17,2070 41664 MKDNCDR,2
032955,001558: 17,2071 76744 LXC,2 VLOAD*
032956,001559: 17,2072 00154 MPAC
032957,001560: 17,2073 00001 0,1
032958,001561: 17,2074 10001 STORE 0,2
032959,001562: 17,2075 77743 DLOAD*
032960,001563: 17,2076 00006 5,1
032961,001564: 17,2077 10006 STORE 5,2
032962,001565: 17,2100 77624 CALL
032963,001566: 17,2101 46000 SXTNB # COMPUTE LOS VECTOR FROM OCDU IN MKVAC
032964,001567: 17,2102 62150 LXA,1 INCR,1
032965,001568: 17,2103 01330 MARKSTAT
032966,001569: 17,2104 00002 2 # INCREMENT TO BASE ADR OF ICDU
032967,001570: 17,2105 45130 SXA,1 CALL
032968,001571: 17,2106 00050 S1
032969,001572: 17,2107 47610 NBSM # TRANSFORM LOS TO SM
032970,001573: 17,2110 77650 GOTO
032971,001574: 17,2111 00300 QMAJ
032972,001575: 17,2112 03674 MKDNCDR ECADR MARKDOWN
032973,001576: 17,2113 03502 ECADR MARK2DWN
032974,001577:
032975,001578: # PROGRAM DESCRIPTION - R53 - SIGHTING MARK ROUTINE
032976,001579: # MOD. NO. 2 21 DEC 66
032977,001580: # MOD BY STURLAUGSON
032978,001581:
032979,001582: # FUNCTIONAL DESCRIPTION
032980,001583:
032981,001584: # TO PERFORM A SATISFACTORY NUMBER OF SIGHTING MARKS FOR THE REQUESTING PROGRAM (OR ROUTINE). SIGHTINGS
032982,001585: # CAN BE MADE ON A STAR OR LANDMARK. WHEN THE CMC ACCEPTS A MARK IT RECORDS AND STORES 5 ANGLES (3 ICDUS AND 2
032983,001586: # OCDUS) AND THE TIME OF THE MARK.
032984,001587:
032985,001588: # CALLING SEQUENCE
032986,001589:
032987,001590: # R53 IS CALLED AND RETURNS IN INTERPRETIVE CODE. RETURN IS VIA QPRET.
032988,001591: # THERE IS NO ERROR EXIT IN THIS ROUTINE ITSELF.
032989,001592:
032990,001593: # SUBROUTINES CALLED
032991,001594: #
032992,001595: # SXTMARK
032993,001596: # OPTSTALL
032994,001597: # GOFLASH
032995,001598:
032996,001599: # ERASABLE INITIALIZATION
032997,001600:
032998,001601: # TARGET FLAG - STAR OR LANDMARK
032999,001602: # MARKINDX - NUMBER OF MARKS WANTED
033000,001603: # STARIND - INDEX TO BESTI OR BESTJ (STAR NUMBER)
033001,001604:
033002,001605: # OUTPUT
033003,001606:
033004,001607: # MARKSTAT CONTAINS INDEX TO VACANT AREA WHERE MARK DATA IS STORED
033005,001608: # BESTI (INDEXED BY STARIND) CONTAINS STAR NUMBER SIGHTED
033006,001609:
033007,001610: # DEBRIS
033008,001611:
033009,001612: # MARKINDX CONTAINS NUMBER OF MARKS DESIRED
033010,001613:
033011,001614: 14,2000 SETLOC RT53
033012,001615: 14,2000 BANK
033013,001616:
033014,001617: 14,3302 COUNT 14/R53
033015,001618:
033016,001619: 14,3302 43020 R53 STQ SET # SET SIGHTING MARK FLAG
033017,001620: 14,3303 03501 R53EXIT
033018,001621: 14,3304 00071 R53FLAG
033019,001622: 14,3305 77776 EXIT
033020,001623: 14,3306 30301 R53A CA MARKINDX # NUMBER OF MARKS
033021,001624: 14,3307 75037 MASK LOW3
033022,001625: 14,3310 04676 TC BANKCALL
033023,001626: 14,3311 16002 CADR SXTMARK
033024,001627: 14,3312 04676 TC BANKCALL
033025,001628: 14,3313 17573 CADR OPTSTALL
033026,001629: 14,3314 05763 TC CURTAINS
033027,001630: 14,3315 51330 INDEX MARKSTAT
033028,001631: 14,3316 10052 CCS QPRET # NUMBER OF MARKS ACTUALLY DONE
033029,001632: 14,3317 13330 TCF R53B
033030,001633: 14,3320 13322 TCF +2 # ZERO
033031,001634: 14,3321 13322 TCF +1 # CCS HOLE
033032,001635: 14,3322 35035 CAF ZERO # HOUSEKEEP VAC AREA SAVE
033033,001636: 14,3323 57330 XCH MARKSTAT # AND MARKSTAT
033034,001637: 14,3324 10000 CCS A
033035,001638: 14,3325 50000 INDEX A
033036,001639: 14,3326 54000 TS 0
033037,001640: 14,3327 13306 TCF R53A
033038,001641: 14,3330 05400 R53B TC CHECKMM
033039,001642: 14,3331 00026 MM 22 B-14
033040,001643: 14,3332 13334 TCF +2
033041,001644: 14,3333 13363 TCF R53D
033042,001645: 14,3334 05400 TC CHECKMM
033043,001646: 14,3335 00027 MM 23 B-14
033044,001647: 14,3336 13340 TCF R53C1
033045,001648: 14,3337 13363 TCF R53D
033046,001649: 14,3340 35035 R53C1 CAF ZERO
033047,001650: 14,3341 04676 TC BANKCALL
033048,001651: 14,3342 20703 CADR CLEANDSP
033049,001652: 14,3343 33367 R53C CAF V01N71
033050,001653: 14,3344 04676 TC BANKCALL
033051,001654: 14,3345 20720 CADR GOFLASH
033052,001655: 14,3346 04106 TC GOTOPOOH # TERM.
033053,001656: 14,3347 13351 TCF R53Z
033054,001657: 14,3350 03343 TC R53C # RECYCLE
033055,001658: 14,3351 03370 R53Z TC CHKSCODE
033056,001659: 14,3352 04400 TC FALTON
033057,001660: 14,3353 03343 TC R53C
033058,001661: 14,3354 47713 CS HIGH9
033059,001662: 14,3355 70735 MASK STARCODE
033060,001663: 14,3356 00006 EXTEND
033061,001664: 14,3357 76211 MP SIGHTSIX
033062,001665: 14,3360 56001 XCH L
033063,001666: 14,3361 50304 INDEX STARIND
033064,001667: 14,3362 54302 TS BESTI
033065,001668: 14,3363 06006 R53D TC INTPRET
033066,001669: 14,3364 77614 R53OUT SETGO
033067,001670: 14,3365 03420 TERMIFLG # SET TERMINATE FOR R52
033068,001671: 14,3366 03501 R53EXIT
033069,001672: 14,3367 6211 SIGHTSIX = SIX
033070,001673: 14,3367 00307 V01N71 VN 0171
033071,001674:
033072,001675: # ****** KEEP IN SAME BANK AS R51 AND R53 *********
033073,001676: 14,3370 10735 CHKSCODE CCS STARCODE
033074,001677: 14,3371 63400 AD NEG47
033075,001678: 14,3372 10000 CCS A
033076,001679: 14,3373 00002 TC Q # SC < 0 OR SC > 50
033077,001680: 14,3374 13376 TCF +2 # SC = + OR - 0
033078,001681: 14,3375 13376 TCF +1 # 0 <= SC< 50
033079,001682: 14,3376 50002 INDEX Q # SC = 50
033080,001683: 14,3377 00002 TC 00002
033081,001684: 14,3400 77730 NEG47 OCT 77730
033082,001685:
033083,001686: # NAME - S52.2
033084,001687: # FUNCTION - COMPUTE GIMBAL ANGLES FOR DESIRED SM AND PRESENT VEHICLE
033085,001688: # CALL - CALL S52.2
033086,001689: # INPUT - X,Y,ZSMD
033087,001690: # OUTPUT - OGC,IGC,MGC,THETAD,+1,+2
033088,001691: # SUBROUTINES - CDUTRIG, CALCSMSC, MATMOVE, CALCGA
033089,001692:
033090,001693: 11,2000 SETLOC S52/2
033091,001694: 11,2000 BANK
033092,001695:
033093,001696: 11,2260 COUNT 13/S52.2
033094,001697: 11,2260 77620 S52.2 STQ
033095,001698: 11,2261 00300 QMAJ
033096,001699: 11,2262 77624 CALL
033097,001700: 11,2263 47501 CDUTRIG
033098,001701: 11,2264 77624 CALL
033099,001702: 11,2265 34664 CALCSMSC
033100,001703: 11,2266 66370 AXT,1 SSP
033101,001704: 11,2267 00022 18D
033102,001705: 11,2270 00051 S1
033103,001706: 11,2271 00006 6D
033104,001707: 11,2272 61373 S52.2A VLOAD* VXM
033105,001708: 11,2273 02736 XNB +18D,1
033106,001709: 11,2274 01736 REFSMMAT
033107,001710: 11,2275 77656 UNIT
033108,001711: 11,2276 06736 STORE XNB +18D,1
033109,001712: 11,2277 77700 TIX,1
033110,001713: 11,2300 22272 S52.2A
033111,001714: 11,2301 75160 S52.2.1 AXC,1 AXC,2
033112,001715: 11,2302 00306 XSMD
033113,001716: 11,2303 02671 XSM
033114,001717: 11,2304 77624 CALL
033115,001718: 11,2305 31042 MATMOVE
033116,001719: 11,2306 77624 CALL
033117,001720: 11,2307 47313 CALCGA
033118,001721: 11,2310 77650 GOTO
033119,001722: 11,2311 00300 QMAJ
033120,001723:
033121,001724: # PROGRAM NAME - SR52.1 DATE DEC 20 66
033122,001725: # MOD 1 LOG SEC P51-P53
033123,001726: # BY KEN VINCENT ASSEMBLY SUNDISK REV 40
033124,001727:
033125,001728: # FUNCTION
033126,001729:
033127,001730: # TARG1 AND TARG2 FLAGS ARE LOOKED AT TO DETERMINE IF THE TARGET IS THE
033128,001731: # LEM, STAR OR LANDMARK. IN CASE OF LEM OR LMK, THE PRESENT TIME PLUS
033129,001732: # 2 SECONDS IS SAVED IN AOPTIME (ALIAS STARAD, +1). IF THE LEM IS
033130,001733: # THE TARGET THEN CONIC UPDATES OF THE CSM AND LEM ARE MADE TO
033131,001734: # THE TIME IN AOPTIME. THE UNIT OF THE DIFFERENCE OF LEM AND CSM
033132,001735: # POSITION VECTORS BECOMES THE REFERENCE SIGHTING VECTOR USED IN THE
033133,001736: # COMMON PART OF THIS PROGRAM.
033134,001737:
033135,001738: # IN THE CASE OF LANDMARK, THE CSM IS UPDATED CONICALLY. THE RADIUS
033136,001739: # VECTOR FOR THE LANDMARK IS OBTAINED FROM LALOTORV. BOTH OF THESE ARE
033137,001740: # FOUND FOR THE TIME IN AOPTIME. THE UNIT OF THE DIFFERENCE BETWEEN
033138,001741: # THE LANDMARK AND CSM RADIUS VECTORS BECOMES THE REFERENCE SIGHTING
033139,001742: # VECTOR FOR THE COMMON PART OF THIS ROUTINE.
033140,001743:
033141,001744: # IF A STAR IS THE TARGET, THE PROPER STAR IS OBTAINED FROM THE CATALOG
033142,001745: # AND THIS VECTOR BECOMES THE REFERENCE SIGHTING VECTOR.
033143,001746:
033144,001747: # THE COMMON PART OF THIS PROGRAM TRANSFORMS THE REFERENCE SIGHTING
033145,001748: # VECTOR INTO STABLE MEMBER COORDINATES. IT READS THE IMU-CDUS AND USES
033146,001749: # THIS DATA IN A CALL TO CALCSXA. ON RETURN FROM CALCSXA A TEST IS
033147,001750: # MADE TO SEE IF THE TRUNNION ANGLE IS GREATER THAN 90DEG OR 38DEG.
033148,001751: # MADE TO SEE IF THE TRUNNION ANGLE IS GREATER THAN 90DEG. OR 50DEG.
033149,001752:
033150,001753: # CALLING SEQUENCE
033151,001754:
033152,001755: # L+4 RETURN WHEN SHAFT OR TRUNION NOT WITHIN 5 DEG OF DESIRED
033153,001756: # L TC BANKCALL
033154,001757: # L+1 CADR SR52.1
033155,001758: # L+2 ERROR RETURN TRUNNION GREATER THAN 90 DEG
033156,001759: # L&3 ERROR RETURN TRUNNION GREATER THAN 50 DEG
033157,001760: # L+4 NORMAL RETURN
033158,001761:
033159,001762: # OUTPUT
033160,001763:
033161,001764: # SAC -SINGLE PREC, 2S COMP, SCALED AT HALF REVS - SHAFT ANGLE DESIRED
033162,001765: # PAC -SINGLE PREC, 2S COMP SCALED AT EIGTH REVS - TRUNNION ANGLE DESIRED
033163,001766:
033164,001767: # INITIALIZATION
033165,001768:
033166,001769: # IF TARG1FLG =1 THEN TARGET IS LEM - NO OTHER INPUT REQUIRED
033167,001770:
033168,001771: # IF TARG1FLG =0 AND TARG2FLG =0 THE TARGET IS STAR, STARIND SHOULD
033169,001772: # 0 OR 1 DENOTING BESTI OR BESTJ RESPECTIVELY AS STAR CODE. STAR CODES
033170,001773: # ARE 6 TIMES STAR NUMBER.
033171,001774:
033172,001775: # IF TARG1FLG =0 AND TARG2FLG =1 THEN TARGET IS LANDMARK. SEE ROUTINE
033173,001776: # LALOTORV FOR INPUT REQUIREMENTS. HERE FIXERAD=1 FOR CONSTANT EARTH
033174,001777: # RADIUS
033175,001778:
033176,001779: # DEBRIS
033177,001780:
033178,001781: # WORK AREA
033179,001782: # STARAD - STAR+5 (STAR IS DESIRED LOS IN STABLE MEMBER COORDINATES)
033180,001783:
033181,001784: 11,2312 COUNT* $$/SR521
033182,001785: 13,2000 SETLOC SR52/1
033183,001786: 13,2000 BANK
033184,001787:
033185,001788: 13,2254 04725 SR52.1 TC MAKECADR
033186,001789: 13,2255 55777 TS QMIN
033187,001790: 13,2256 06006 TC INTPRET
033188,001791: 13,2257 43234 RTB DAD
033189,001792: 13,2260 45510 LOADTIME
033190,001793: 13,2261 26375 2.4SECDP
033191,001794: 13,2262 02356 STORE AOPTIME
033192,001795: 13,2263 43014 BON BON
033193,001796: 13,2264 00705 TARG1FLG
033194,001797: 13,2265 26272 LEM52
033195,001798: 13,2266 00706 TARG2FLG
033196,001799: 13,2267 26302 LMK52
033197,001800: 13,2270 77650 GOTO
033198,001801: 13,2271 26323 STAR52
033199,001802: 13,2272 77745 LEM52 DLOAD
033200,001803: 13,2273 02356 AOPTIME
033201,001804: 13,2274 34041 STCALL TDEC1
033202,001805: 13,2275 27136 LEMCONIC
033203,001806: 13,2276 77775 VLOAD
033204,001807: 13,2277 00001 RATT
033205,001808: 13,2300 77650 GOTO
033206,001809: 13,2301 26312 LMKLMCOM
033207,001810: 13,2302 71214 LMK52 BON DLOAD
033208,001811: 13,2303 04305 ADVTRK
033209,001812: 13,2304 54000 ADVTRACK
033210,001813: 13,2305 02356 AOPTIME
033211,001814: 13,2306 77624 CALL
033212,001815: 13,2307 26451 LALOTORV
033213,001816: 13,2310 77775 VLOAD
033214,001817: 13,2311 02152 ALPHAV
033215,001818: 13,2312 16766 LMKLMCOM STODL STAR
033216,001819: 13,2313 02356 AOPTIME
033217,001820: 13,2314 34041 STCALL TDEC1
033218,001821: 13,2315 27124 CSMCONIC
033219,001822: 13,2316 52375 VLOAD VSU
033220,001823: 13,2317 02766 STAR
033221,001824: 13,2320 00001 RATT
033222,001825: 13,2321 52056 UNIT GOTO
033223,001826: 13,2322 26336 COM52
033224,001827: 13,2323 72131 STAR52 SSP LXA,1
033225,001828: 13,2324 00051 S1
033226,001829: 13,2325 00000 0
033227,001830: 13,2326 00304 STARIND
033228,001831: 13,2327 77700 TIX,1
033229,001832: 13,2330 26334 ST52ST
033230,001833: 13,2331 52175 VLOAD GOTO
033231,001834: 13,2332 02617 STARSAV2
033232,001835: 13,2333 26336 COM52
033233,001836: 13,2334 77775 ST52ST VLOAD
033234,001837: 13,2335 02611 STARSAV1
033235,001838: 13,2336 53521 COM52 MXV UNIT
033236,001839: 13,2337 01736 REFSMMAT
033237,001840: 13,2340 02766 STORE STAR
033238,001841: 13,2341 45001 SETPD CALL
033239,001842: 13,2342 00001 0
033240,001843: 13,2343 47501 CDUTRIG # COMPUTES SINES AND COSINES FOR CALCSXA
033241,001844: 13,2344 77624 CALL # NOW EXPECT TO SEE THE CDU ANGLES.
033242,001845: 13,2345 46034 CALCSXA
033243,001846: 13,2346 77414 BOFF EXIT
033244,001847: 13,2347 01750 CULTFLAG
033245,001848: 13,2350 26352 TRUN38
033246,001849: 13,2351 02370 TC SR52E1
033247,001850: 13,2352 45345 TRUN38 DLOAD DSU
033248,001851: 13,2353 02776 PAC
033249,001852: 13,2354 26373 38TRDEG
033250,001853: 13,2355 71244 BPL DLOAD
033251,001854: 13,2356 26363 SR52E22
033252,001855: 13,2357 02776 PAC
033253,001856: 13,2360 51025 DSU BPL
033254,001857: 13,2361 26377 20DEGSMN
033255,001858: 13,2362 26365 SR52E3
033256,001859: 13,2363 77776 SR52E22 EXIT
033257,001860: 13,2364 02367 TC SR52E2
033258,001861: 13,2365 77776 SR52E3 EXIT
033259,001862: 13,2366 25777 INCR QMIN
033260,001863: 13,2367 25777 SR52E2 INCR QMIN
033261,001864: 13,2370 31777 SR52E1 CA QMIN
033262,001865: 13,2371 04702 TC SWCALL
033263,001866: 13,2372 25252 25254 38TRDEG 2DEC .66666667 # CORESPONDS TO 50 DEGS IN TRUNION
033264,001867:
033265,001868: 13,2374 00000 00360 2.4SECDP 2DEC 240 B-28
033266,001869:
033267,001870: 13,2376 61740 20DEGSMN DEC -07199 B-14
033268,001871: 13,2377 77777 DEC -0 B-14
033269,001872:
033270,001873: # THE ADVTRACK ROUTINE IS USED TO COMPUTE AN OPTICS LOS VECTOR TO
033271,001874: # A POINT ON THE GROUND TRACK 60 DEGRESS FORWARD OF THE LOCAL VERTICAL
033272,001875: # OF AN ADVANCED ORBIT A SPECIFIED NUMBER OF REVOLUTIONS FROM NOW
033273,001876:
033274,001877: 26,2000 SETLOC 26P50S
033275,001878: 26,2000 BANK
033276,001879: 26,2000 77601 ADVTRACK SETPD
033277,001880: 26,2001 00001 0
033278,001881: 26,2002 41575 VLOAD PUSH # INITIALIZE FOR RP-TO-R
033279,001882: 26,2003 15326 UNITZ # UZ VEC IN PD 0-5
033280,001883: 26,2004 41434 RTB PUSH # TIME IN PD 6-7
033281,001884: 26,2005 45510 LOADTIME
033282,001885: 26,2006 36356 STCALL AOPTIME # TIME ALSO IN AOPTIME FOR CSMCONIC
033283,001886: 26,2007 55343 RP-TO-R # GET MOON ROTATION VEC IN REF
033284,001887: 26,2010 16766 STODL STAR
033285,001888: 26,2011 02356 AOPTIME # PICK UP TIME
033286,001889: 26,2012 34041 STCALL TDEC1 # UPDATE STATE TO TIME
033287,001890: 26,2013 27124 CSMCONIC
033288,001891: 26,2014 47375 VLOAD VXV
033289,001892: 26,2015 00007 VATT
033290,001893: 26,2016 00001 RATT
033291,001894: 26,2017 77656 UNIT
033292,001895: 26,2020 24031 STOVL 24D # SAVE -UNIT(V X R) FOR 2ND ROTATION
033293,001896: 26,2021 00001 RATT
033294,001897: 26,2022 57456 UNIT VCOMP
033295,001898: 26,2023 41401 SETPD PUSH # PUSH LOS=-UNIT(RVEC) PD 0-5
033296,001899: 26,2024 00001 0
033297,001900: 26,2025 77776 EXIT
033298,001901: 26,2026 31751 CA LANDMARK
033299,001902: 26,2027 75037 MASK SEVEN # GET NUMBER OF ADVANCE PERIODS
033300,001903: 26,2030 00006 EXTEND
033301,001904: 26,2031 75021 MP BIT11 # GET N/16
033302,001905: 26,2032 56001 XCH L
033303,001906: 26,2033 50120 INDEX FIXLOC
033304,001907: 26,2034 54036 TS 30D # TEMP STORE N/16
033305,001908: 26,2035 06006 TC INTPRET
033306,001909: 26,2036 41335 SLOAD DMP
033307,001910: 26,2037 00037 30D
033308,001911: 26,2040 14107 MPERIOD
033309,001912: 26,2041 36356 STCALL AOPTIME # ROTATE ANG ABOUT UR
033310,001913: 26,2042 54057 ROTA
033311,001914: 26,2043 77775 VLOAD
033312,001915: 26,2044 00031 24D # PICK UP 2ND ROTATION AXIS
033313,001916: 26,2045 16766 STODL STAR
033314,001917: 26,2046 14105 DP1/6
033315,001918: 26,2047 77625 DSU
033316,001919: 26,2050 02356 AOPTIME # 2ND RAT ANGLE = 60 - A
033317,001920: 26,2051 36356 STCALL AOPTIME
033318,001921: 26,2052 54057 ROTA # GO ROTATE 2ND TIME
033319,001922: 26,2053 77775 VLOAD
033320,001923: 26,2054 00001 0
033321,001924: 26,2055 36766 STCALL STAR # STORE FINAL LOS IN STAR
033322,001925: 26,2056 26336 COM52 # RETURN TO SR52.1
033323,001926:
033324,001927: 26,2057 73545 ROTA DLOAD SIN
033325,001928: 26,2060 02356 AOPTIME
033326,001929: 26,2061 47315 PDVL VXV # PUSH 1/2SIN(A) PD 6-7
033327,001930: 26,2062 02766 STAR # UR VEC
033328,001931: 26,2063 00001 0 # LOS
033329,001932: 26,2064 72561 VXSC VSL2 # 1/2SIN(A)(URXLOS) PD 6-11
033330,001933: 26,2065 50315 PDVL DOT
033331,001934: 26,2066 02766 STAR
033332,001935: 26,2067 00001 0
033333,001936: 26,2070 72561 VXSC VSL2
033334,001937: 26,2071 02766 STAR
033335,001938: 26,2072 71525 PDDL COS # 1/2(UR . LOS)UR 12-17
033336,001939: 26,2073 02356 AOPTIME
033337,001940: 26,2074 51315 PDVL BVSU # PUSH 1/2COS(A) 18-19
033338,001941: 26,2075 00015 12D
033339,001942: 26,2076 00001 0
033340,001943: 26,2077 76561 VXSC VSL1 # UP 18-19
033341,001944: 26,2100 53255 VAD VAD # UP 12-17 UP 6-11
033342,001945: 26,2101 40256 UNIT SETPD
033343,001946: 26,2102 00001 0
033344,001947: 26,2103 43406 PUSH RVQ
033345,001948:
033346,001949: 26,2104 05252 25251 DP1/6 2DEC .16666666
033347,001950:
033348,001951: 26,2106 01414 06044 MPERIOD 2DEC .047619 # APPROX LUNAR ROT ANG IN 2HRS X 16
033349,001952:
033350,001953: # NAME - S52.3
033351,001954: # FUNCTION - XSMD= UNIT(YSMD X ZSMD)
033352,001955: # YSMD= UNIT(V X R)
033353,001956: # ZSMD= UNIT(-R)
033354,001957: # CALL DLOAD CALL
033355,001958: # TALIGN
033356,001959: # S52.3
033357,001960: # INPUT - TIME OF ALIGNMENT IN MPAC
033358,001961: # OUTPUT - X,Y,ZSMD
033359,001962: # SUBROUTINES - CSMCONIC
033360,001963:
033361,001964: 16,2000 SETLOC P50S2
033362,001965: 16,2000 BANK
033363,001966:
033364,001967: 16,2733 COUNT 15/S52.3
033365,001968: 16,2733 77620 S52.3 STQ
033366,001969: 16,2734 00300 QMAJ
033367,001970: 16,2735 34041 STCALL TDEC1
033368,001971: 16,2736 27101 CSMPREC
033369,001972: 16,2737 77601 SETPD
033370,001973: 16,2740 00001 0
033371,001974: 16,2741 57575 VLOAD VCOMP
033372,001975: 16,2742 00001 RATT
033373,001976: 16,2743 77656 UNIT
033374,001977: 16,2744 24323 STOVL ZSMD
033375,001978: 16,2745 00007 VATT
033376,001979: 16,2746 53435 VXV UNIT
033377,001980: 16,2747 00001 RATT
033378,001981: 16,2750 00315 STORE YSMD
033379,001982: 16,2751 53435 VXV UNIT
033380,001983: 16,2752 00323 ZSMD
033381,001984: 16,2753 34307 STCALL XSMD
033382,001985: 16,2754 00300 QMAJ
033383,001986:
033384,001987: # PROGRAM DESCRIPTION - R56 - ALTERNATE LOS SIGHTING MARK ROUTINE
033385,001988:
033386,001989: # FUNCTIONAL DESCRIPTION
033387,001990:
033388,001991: # TO PERFORM SIGHTING MARKS FOR THE BACK-UP ALIGNMENT PROGRAMS (P53,P54). THE ASTRONAUT KNOWS THE
033389,001992: # COORDINATES (OPTICS) OF THE ALTERNATE LINE OF SIGHT HE MUST USE FOR THIS ROUTINE. WHEN THE ASTRONAUT KEYS IN
033390,001993: # ENTER IN RESPONSE TO THE FLASHING V50 N25 R1-XXXXX THE CMC STORES THE THREE ICDU ANGLES AND TWO ANGLES DISPLAYED
033391,001994: # IN N92.
033392,001995:
033393,001996: # CALLING SEQUENCE
033394,001997:
033395,001998: # CALL
033396,001999: # R56
033397,002000:
033398,002001: # SUBROUTINES CALLED
033399,002002:
033400,002003: # A PORTION OF SXTMARK (VAC.AREA SEARCH)
033401,002004: # GOFLASH
033402,002005: # GOPERF1
033403,002006:
033404,002007: # ERASABLE INITIALIZATION
033405,002008:
033406,002009: # STARIND-INDEX TO STAR NUMBER
033407,002010:
033408,002011: # OUTPUT
033409,002012:
033410,002013: # MARKSTAT-INDEX TO VAC.AREA WHERE OUTPUT IS STORED.
033411,002014: # BESTI (INDEXED BY STARIND) CONTAINS STAR NUMBER.
033412,002015: # ICDU AND OCDU ANGLES IN VAC. AREA AS FOLLOWS-
033413,002016: # VAC +2 CDUY
033414,002017: # VAC +3 CDUS
033415,002018: # VAC +4 CDUZ
033416,002019: # VAC +5 CDUT
033417,002020: # VAC +6 CDUX
033418,002021:
033419,002022: 16,2755 COUNT* $$/R56
033420,002023: 17,2000 SETLOC P50S3
033421,002024: 17,2000 BANK
033422,002025: 17,2114 77420 R56 STQ EXIT
033423,002026: 17,2115 03501 R53EXIT
033424,002027: 17,2116 32204 CAF V06N94B
033425,002028: 17,2117 04676 TC BANKCALL
033426,002029: 17,2120 20720 CADR GOFLASH
033427,002030: 17,2121 04106 TC GOTOPOOH # TERM.
033428,002031: 17,2122 02124 TC R56A # PROCEED - ANGLES OK
033429,002032: 17,2123 02116 TC -5 # ENTER - NEW ANGLES
033430,002033: 17,2124 04676 R56A TC BANKCALL
033431,002034: 17,2125 16004 CADR SXTMARK +2 # INHIBIR EXT VB ACT AND FIND VAC AREA
033432,002035:
033433,002036: 17,2126 35035 CAF ZERO
033434,002037: 17,2127 04676 TC BANKCALL
033435,002038: 17,2130 20703 CADR CLEANDSP
033436,002039:
033437,002040: 17,2131 32203 R56A1 CAF VB53 # DISPLAY V53 REQUESTING ALTERNATE MARK
033438,002041: 17,2132 04676 TC BANKCALL
033439,002042: 17,2133 20564 CADR GOMARK2
033440,002043: 17,2134 14106 TCF GOTOPOOH # V34-TERMINATE
033441,002044: 17,2135 12131 TCF R56A1 # V33-DONT PROCEED-JUST ENTER TO MARK
033442,002045: 17,2136 06006 TC INTPRET
033443,002046: 17,2137 77745 DLOAD
033444,002047: 17,2140 03731 MRKBUF1 +3
033445,002048: 17,2141 16774 STODL SAC
033446,002049: 17,2142 03733 MRKBUF1 +5
033447,002050: 17,2143 02776 STORE PAC
033448,002051: 17,2144 77776 EXIT
033449,002052: 17,2145 00004 INHINT
033450,002053: 17,2146 00006 EXTEND
033451,002054: 17,2147 30025 DCA TIME2
033452,002055: 17,2150 51330 INDEX MARKSTAT
033453,002056: 17,2151 52001 DXCH 0
033454,002057: 17,2152 30033 CA CDUY # ENTER-THIS IS A BACKUP SYSTEM MARK
033455,002058: 17,2153 51330 INDEX MARKSTAT
033456,002059: 17,2154 54002 TS 2
033457,002060: 17,2155 31773 CA SAC
033458,002061: 17,2156 51330 INDEX MARKSTAT
033459,002062: 17,2157 54003 TS 3
033460,002063: 17,2160 30034 CA CDUZ
033461,002064: 17,2161 51330 INDEX MARKSTAT
033462,002065: 17,2162 54004 TS 4
033463,002066: 17,2163 31775 CA PAC
033464,002067: 17,2164 51330 INDEX MARKSTAT
033465,002068: 17,2165 54005 TS 5
033466,002069: 17,2166 30032 CA CDUX
033467,002070: 17,2167 51330 INDEX MARKSTAT
033468,002071: 17,2170 54006 TS 6
033469,002072: 17,2171 00003 RELINT
033470,002073: 17,2172 05552 TC CLEARMRK # ENABLE EXTENDED VERBS
033471,002074: 17,2173 34333 CAF OCT16
033472,002075: 17,2174 04676 TC BANKCALL
033473,002076: 17,2175 21045 CADR GOPERF1
033474,002077: 17,2176 04106 TC GOTOPOOH # TERM.
033475,002078: 17,2177 12201 TCF R56B # PROCEED-MARK COMPLETED
033476,002079: 17,2200 12126 TCF R56A +2 # RECYCLE-DO ANOTHER MARK - LIKE REJECT
033477,002080: 17,2201 04676 R56B TC BANKCALL
033478,002081: 17,2202 31340 CADR R53C1
033479,002082: 17,2203 15200 VB53 VN 05300 # ALTERNATE MARK VERB
033480,002083: 17,2204 01536 V06N94B VN 00694
033481,002084: 15,2000 SETLOC P50S
033482,002085: 15,2000 BANK
033483,002086:
033484,002087: 15,2340 02607 PLANET STORE TSIGHT
033485,002088: 15,2341 45020 STQ CALL
033486,002089: 15,2342 02777 QMIN
033487,002090: 15,2343 30225 LOCSAM
033488,002091: 15,2344 77775 VLOAD
033489,002092: 15,2345 02736 VEARTH
033490,002093: 15,2346 24001 STOVL 0D
033491,002094: 15,2347 02744 VSUN
033492,002095: 15,2350 26736 STOVL VEARTH
033493,002096: 15,2351 00001 0D
033494,002097: 15,2352 02744 STORE VSUN
033495,002098: 15,2353 77776 NOSAM EXIT
033496,002099: 15,2354 47713 CS HIGH9
033497,002100: 15,2355 70735 MASK STARCODE
033498,002101: 15,2356 00006 EXTEND
033499,002102: 15,2357 76211 MP SIGHTSIX
033500,002103: 15,2360 56001 XCH L
033501,002104: 15,2361 50304 INDEX STARIND
033502,002105: 15,2362 54302 TS BESTI
033503,002106: 15,2363 10000 CCS A
033504,002107: 15,2364 12401 TCF NOTPLAN
033505,002108: 15,2365 32431 CAF VNPLANV
033506,002109: 15,2366 04676 TC BANKCALL
033507,002110: 15,2367 20720 CADR GOFLASH
033508,002111: 15,2370 04106 TC GOTOPOOH
033509,002112: 15,2371 02373 TC +2
033510,002113: 15,2372 02365 TC -5
033511,002114: 15,2373 06006 TC INTPRET
033512,002115: 15,2374 74375 VLOAD VXSC
033513,002116: 15,2375 03705 STARSAV3
033514,002117: 15,2376 32433 1/SQR3
033515,002118: 15,2377 52056 UNIT GOTO
033516,002119: 15,2400 32424 CORPLAN
033517,002120: 15,2401 40000 NOTPLAN CS A
033518,002121: 15,2402 62430 AD DEC227
033519,002122: 15,2403 00006 EXTEND
033520,002123: 15,2404 62415 BZMF CALSAM1
033521,002124: 15,2405 50304 INDEX STARIND
033522,002125: 15,2406 30302 CA BESTI
033523,002126: 15,2407 50120 INDEX FIXLOC
033524,002127: 15,2410 54046 TS X1
033525,002128: 15,2411 06006 TC INTPRET
033526,002129: 15,2412 52173 VLOAD* GOTO
033527,002130: 15,2413 31763 CATLOG,1
033528,002131: 15,2414 32424 CORPLAN
033529,002132: 15,2415 06006 CALSAM1 TC INTPRET
033530,002133: 15,2416 70740 LXC,1 DLOAD*
033531,002134: 15,2417 00304 STARIND
033532,002135: 15,2420 00303 BESTI,1
033533,002136: 15,2421 76740 LXC,1 VLOAD*
033534,002137: 15,2422 00154 MPAC
033535,002138: 15,2423 02372 STARAD -228D,1
033536,002139: 15,2424 53455 CORPLAN VAD UNIT
033537,002140: 15,2425 03474 VEL/C
033538,002141: 15,2426 77650 GOTO
033539,002142: 15,2427 02777 QMIN
033540,002143: 15,2430 00343 DEC227 DEC 227 B-14
033541,002144: 15,2431 01530 VNPLANV VN 0688
033542,002145: 15,2432 22363 11623 1/SQR3 2DEC .57735021
033543,002146:
033544,002147:
End of include-file P51-P53.agc. Parent file is MAIN.agc