GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were obtained by digitally photographing
an Artemis 72 (Apollo 15-17 Command Module) program listing from a private
collection and then
modifying pre-existing Comanche 55 (Apollo 11) source files to
incorporate changes. Photography was by Ron Burkey, and transcription
was performed by a team of volunteers. Note that the page images
presented online are of reduced quality, and that additional images
may be available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971Note that the date is the date of the printout, not the date of the program revision. |
032926,000002: ## Copyright: Public domain.
032927,000003: ## Filename: P51-P53.agc
032928,000004: ## Purpose: Part of the source code for Artemis (i.e., Colossus 3),
032929,000005: ## build 072. This is for the Command Module's (CM)
032930,000006: ## Apollo Guidance Computer (AGC), for
032931,000007: ## Apollo 15-17.
032932,000008: ## Assembler: yaYUL
032933,000009: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
032934,000010: ## Website: www.ibiblio.org/apollo/index.html
032935,000011: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
032936,000012: ## Mod history: 2009-08-16 JL Adapted from corresponding Comanche 055 file.
032937,000013: ## 2009-09-04 JL Fixed typo, fixed error in conversion of some interpreter code.
032938,000014: ## 2010-01-31 JL Fixed build errors.
032939,000015: ## 2010-02-01 JL Fixed build errors.
032940,000016: ## 2010-02-02 JL Fixed build errors.
032941,000017: ## 2010-02-11 JL Fixed error on page 746.
032942,000018: ## 2010-02-14 JL Fixed error on page 753.
032943,000019: ## 2017-02-08 RSB Proofed comment text with octopus/ProoferComments.
032944,000020: ## 2017-03-14 RSB Comment-text fixes noted in proofing Luminary 116.
032945,000021: ## 2017-03-17 RSB Comment-text fixes identified by 4-way diff'ing
032946,000022: ## of Colossus 237 & 249, Comanche 55, and Artemis 72.
032947,000023:
|
|
Page 742 |
032949,000025:
032950,000026: # PROGRAM NAME - PROG52 DATE - AUGUST 1,1969
032951,000027: # MODIFICATION BY ALBERT,BARNERT,HASLAM LOG SECTION - P51-P5
032952,000028:
032953,000029: # FUNCTION -
032954,000030:
032955,000031: # ALIGNS THE IMU TO ONE OF THREE ORIENTATIONS SELECTED BY THE ASTRONAUT. THE PRESENT IMU ORIENTATION IS KNOWN
032956,000032: # AND IS STORED IN REFSMMAT. THE THREE POSSIBLE ORIENTATIONS MAY BE_
032957,000033:
032958,000034: # (A) PREFERRED ORIENTATION
032959,000035:
032960,000036: # AN OPTIMUM ORIENTATION FOR A PREVIOUSLY CALCULATED MANUEVER. THIS ORIENTATION MUST BE CALCULATED AND
032961,000037: # STORED BY A PREVIOUSLY SELECTED PROGRAM.
032962,000038:
032963,000039: # (B) NOMINAL (LOCAL VERTICAL) ORIENTATION
032964,000040:
032965,000041: # X = UNIT ( Y X Z )
032966,000042: # -SM -SM -SM
032967,000043:
032968,000044: # Y = UNIT (V X R)
032969,000045: # -SM - -
032970,000046:
032971,000047: # Z = UNIT ( -R )
032972,000048: # -SM -
032973,000049:
032974,000050: # WHERE_
032975,000051:
032976,000052: # R = THE GEOCENTRIC RADIUS VECTOR AT TIME T(ALIGN) SELECTED BY THE ASTRONAUT
032977,000053: # -
032978,000054:
032979,000055: # V = THE INERTIAL VELOCITY VECTOR AT TIME T(ALIGN) SELECTED BY THE ASTRONAUT
032980,000056: # -
032981,000057:
032982,000058: # (C) REFSMMAT ORIENTATION
032983,000059:
032984,000060: # THIS ORIENTATION IS SELECTED AUTOMATICALLY UNLESS THE ASTRONAUT KEYS IN A DIFFERENT OPTION CODE
032985,000061:
032986,000062: # THIS SELECTION CORRECTS THE PRESENT IMU ORIENTATION. THE PRESENT ORIENTATION DIFFERS FROM THAT TO WHICH IT
032987,000063: # WAS LAST ALIGNED ONLY DUE TO GYRO DRIFT (I.E. NEITHER GIMBAL LOCK NOR IMU POWER INTERRUPTION HAS OCCURED
032988,000064: # SINCE THE LAST ALIGNMENT).
032989,000065:
032990,000066: # AFTER A IMU ORIENTATION HAS BEEN SELECTED ROUTINE S52.2 IS OPERATED TO COMPUTE THE GIMBAL ANGLES USING THE
032991,000067: # NEW ORIENTATION AND THE PRESENT VEHICLE ATTITUDE. CAL52A THEN USES THESE ANGLES, STORED IN THETAD,+1,+2, TO
032992,000068: # COARSE ALIGN THE IMU. THE STAR SELECTION ROUTINE, R56, IS THEN OPERATED. IF 2 STARS ARE NOT AVAILABLE AN ALARM
032993,000069: # IS FLASHED TO NOTIFY THE ASTRONAUT. AT THIS POINT THE ASTRONAUT WILL MANUEVER THE VEHICLE AND SELECT 2 STARS
032994,000070: # EITHER MANUALLY OR AUTOMATICALLY. AFTER 2 STARS HAVE BEEN SELECTED THE IMU IS FINE ALIGNED USING ROUTINE R51. IF
032995,000071: # THE RENDEZVOUS NAVIGATION PROCESS IS OPERATING (INDICATED BY RNDVZFLG) P20 IS DISPLAYED. OTHERWISE P00 IS
032996,000072: # REQUESTED.
032997,000073:
032998,000074: # CALLING SEQUENCE -
032999,000075:
033000,000076: # THE PROGRAM IS CALLED BY THE ASTRONAUT BY DSKY ENTRY.
|
|
Page 743 |
033002,000078:
033003,000079: # SUBROUTINES CALLED -
033004,000080:
033005,000081: # 1. FLAGDOWN 6. S52.2 11. GOPERF3
033006,000082: # 2. R02BOTH 7. CAL53A 12. NEWMODEX
033007,000083: # 3. GOPERF4 8. FLAGUP 13. PRIOLARM
033008,000084: # 4. MATMOVE 9. R56
033009,000085: # 5. GOFLASH 10. R51
033010,000086:
033011,000087: # NORMAL EXIT MODES -
033012,000088:
033013,000089: # EXITS TO ENDOFJOB
033014,000090:
033015,000091: # ALARM OR ABORT EXIT MODES -
033016,000092:
033017,000093: # NONE
033018,000094:
033019,000095: # OUTPUT -
033020,000096:
033021,000097: # THE FOLLOWING MAY BE FLASHED ON THE DSKY
033022,000098: # 1. IMU ORIENTATION CODE
033023,000099: # 2. ALARM CODE 215 - PREFERRED IMU ORIENTATION NOT SPECIFIED
033024,000100: # 3. TIME OF NEXT IGNITION
033025,000101: # 4. GIMBAL ANGLES
033026,000102: # 5. ALARM CODE 405 - TWO STARS NOT AVAILABLE
033027,000103: # 6. PLEASE PERFORM P00
033028,000104: # THE MODE DISPLAY MAY BE CHANGED TO 20
033029,000105:
033030,000106: # ERASABLE INITIALIZATION REQUIRED -
033031,000107:
033032,000108: # PFRATFLG SHOULD BE SET IF A PREFERRED ORIENTATION HAS BEEN COMPUTED. IF IT HAS BEEN COMPUTED IT IS STORED IN
033033,000109: # XSMD, YSMD, ZSMD.
033034,000110: # RNDVZFLG INDICATES WHETHER THE RENDEZVOUS NAVIGATION PROCESS IS OPERATING.
033035,000111:
033036,000112: # DEBRIS -
033037,000113:
033038,000114: # WORK AREA
033039,000115:
033040,000116: 24,3751 14,2002 P54 = PROG52
033041,000117: 14,2000 SETLOC P50S
033042,000118: 14,2000 BANK
033043,000119:
033044,000120: 14,2002 30,2000 SBANK= LOWSUPER
033045,000121: 14,2002 E5,1773 EBANK= SAC
033046,000122: 14,2002 COUNT* $$/P52
033047,000123: 14,2002 05561 PROG52 TC DOWNFLAG
033048,000124: 14,2003 00027 ADRES UPDATFLG # BIT 7 FLAG 1
033049,000125: 14,2004 05561 TC DOWNFLAG
033050,000126: 14,2005 00031 ADRES TRACKFLG # BIT 5 FLAG 1
033051,000127: 14,2006 04636 TC BANKCALL
033052,000128: 14,2007 03731 CADR R02BOTH # IMU STATUS CHECK
033053,000129: 14,2010 06006 TC INTPRET
|
|
Page 744 |
033055,000131: 14,2011 77414 BON EXIT # MINKEY SEQUENCE?
033056,000132: 14,2012 05310 AUTOSEQ
033057,000133: 14,2013 30276 P52AUTO # YES
033058,000134:
033059,000135: 14,2014 30104 CA FLAGWRD8
033060,000136: 14,2015 74760 MASK UTBIT
033061,000137: 14,2016 00006 EXTEND
033062,000138: 14,2017 12025 BZF +6
033063,000139:
033064,000140: 14,2020 11351 CCS OPTNTYPE
033065,000141: 14,2021 12023 TCF +2
033066,000142: 14,2022 12025 TCF +3
033067,000143: 14,2023 05547 TC UPFLAG
033068,000144: 14,2024 00031 ADRES TRACKFLG
033069,000145:
033070,000146: 14,2025 34765 CAF PFRATBIT
033071,000147: 14,2026 70076 MASK FLAGWRD2 # PREFERRED ORIENTATION
033072,000148: 14,2027 10000 CCS A
033073,000149: 14,2030 02033 TC P52A
033074,000150: 14,2031 36214 CAF THREE # ION
033075,000151: 14,2032 02034 TC P52A +1
033076,000152: 14,2033 34770 P52A CAF BIT1 # YES - SET OPTION 2 = 1
033077,000153: 14,2034 54776 +1 TS OPTION2
033078,000154: 14,2035 34770 P52B CAF BIT1
033079,000155: 14,2036 04636 TC BANKCALL # FLASH OPTION CODE AND ORIENTATION CODE
033080,000156: 14,2037 21074 CADR GOPERF4
033081,000157: 14,2040 04103 TC GOTOPOOH
033082,000158: 14,2041 02043 TC +2
033083,000159: 14,2042 02035 TC P52B # NEW CODE - NEW ORIENTATION CODE INPUT
033084,000160: 14,2043 40776 CS OPTION2
033085,000161: 14,2044 76214 MASK THREE
033086,000162: 14,2045 00006 EXTEND
033087,000163: 14,2046 12407 BZF P52C # REFERENCE
033088,000164: 14,2047 74770 MASK BIT1
033089,000165: 14,2050 00006 EXTEND
033090,000166: 14,2051 12167 BZF P52J # PREFERRED
033091,000167: 14,2052 00006 EXTEND # NOMINAL (LOCAL VERTICAL), LANDING SIGHT
033092,000168: 14,2053 34772 DCA NEG0
033093,000169: 14,2054 53251 DXCH DSPTEM1
033094,000170: 14,2055 35027 CAF V06N34 # PREFERRED
033095,000171: 14,2056 05535 TC VNFLASH
033096,000172: 14,2057 31250 CA DSPTEM1
033097,000173: 14,2060 00006 EXTEND
033098,000174: 14,2061 12063 BZF +2
033099,000175: 14,2062 12066 TCF +4
033100,000176:
033101,000177: 14,2063 00006 EXTEND
033102,000178: 14,2064 30025 DCA TIME2
033103,000179: 14,2065 53251 DXCH DSPTEM1
033104,000180: 14,2066 30776 CA OPTION2
|
|
Page 745 |
033106,000182: 14,2067 74767 MASK BIT2
033107,000183: 14,2070 10000 CCS A
033108,000184: 14,2071 12145 TCF S52.3 # NOM - S52.3 - NOW IN-LINE
033109,000185: 14,2072 06006 TC INTPRET # LS - P52LS - NOW IN-LINE
033110,000186:
033111,000187: # NAME - P52LS
033112,000188:
033113,000189: # FUNCTION - TO DISPLAY THE LANDING SITE LATITUDE,
033114,000190: # LONGTITUDE AND ALTITUDE. TO ACCEPT NEW DATA VIA
033115,000191: # THE KEYBOARD. TO COMPUTE THE LANDING SITE
033116,000192: # ORIENTATION FOR P52 OR P54
033117,000193:
033118,000194: # LET:
033119,000195: # RLS = LANDING SITE VECTOR IN REF COORDINATES
033120,000196: # R = CSM POSITION VECTOR IN REF COORDINATES
033121,000197: # V = CSM VELOCITY VECTOR IN REF COORDINATES
033122,000198: # THEN THE LANDING SITE ORIENTATION IS:
033123,000199: # XSMD = UNIT(RLS)
033124,000200: # YSMD = UNIT(ZSMD*XSMD)
033125,000201: # ZSMD = UNIT((R*V)*RLS)
033126,000202:
033127,000203: # INPUTS- DSPTEM1 = TIME OF ALIGNMENT
033128,000204: # RLS = LANDING SITE VECTOR IN MOON FIXED COORINATES
033129,000205:
033130,000206: # OUTPUTS- XSMD, YSMD, ZSMD
033131,000207:
033132,000208: # SUBROUTINES- RP-TO-R, LAT-LONG, LLASRD, LLASRDA, CSMPREC
033133,000209:
033134,000210: # DEBRIS- VAC, SEE SUBROUTINES
033135,000211:
033136,000212: 14,2073 43014 SET SET
033137,000213: 14,2074 01463 LUNAFLAG
033138,000214: 14,2075 00462 ERADFLAG
033139,000215: 14,2076 77775 VLOAD
033140,000216: 14,2077 02026 RLS
033141,000217: 14,2100 14001 STODL 0D
033142,000218: 14,2101 01251 DSPTEM1
033143,000219: 14,2102 02607 STORE TSIGHT
033144,000220: 14,2103 34007 STCALL 6D
033145,000221: 14,2104 55345 RP-TO-R
033146,000222: 14,2105 77742 VSR2
033147,000223: 14,2106 16152 STODL ALPHAV
033148,000224: 14,2107 02607 TSIGHT
033149,000225: 14,2110 77624 CALL
033150,000226: 14,2111 26453 LAT-LONG
033151,000227: 14,2112 77624 CALL
033152,000228: 14,2113 62363 LLASRD
033153,000229: 14,2114 77776 EXIT
033154,000230: 14,2115 35036 LSDISP CAF V06N89*
033155,000231: 14,2116 05535 TC VNFLASH
033156,000232: 14,2117 06006 TC INTPRET
033157,000233: 14,2120 77624 CALL
033158,000234: 14,2121 62371 LLASRDA
033159,000235: 14,2122 45145 DLOAD CALL
033160,000236: 14,2123 02607 TSIGHT
|
|
Page 746 |
033162,000238: 14,2124 26524 LALOTORV
033163,000239: 14,2125 53575 VLOAD UNIT
033164,000240: 14,2126 02152 ALPHAV
033165,000241: 14,2127 14307 STODL XSMD
033166,000242: 14,2130 02607 TSIGHT
033167,000243: 14,2131 34041 STCALL TDEC1
033168,000244: 14,2132 27145 CSMPREC
033169,000245: 14,2133 47375 VLOAD VXV
033170,000246: 14,2134 00001 RATT
033171,000247: 14,2135 00007 VATT
033172,000248: 14,2136 53435 VXV UNIT
033173,000249: 14,2137 00307 XSMD
033174,000250: 14,2140 00323 STORE ZSMD
033175,000251: 14,2141 53435 VXV UNIT
033176,000252: 14,2142 00307 XSMD
033177,000253: 14,2143 34315 STCALL YSMD
033178,000254: 14,2144 30170 P52D
033179,000255: 14,2145 5036 V06N89* = V06N89
033180,000256:
033181,000257: # NAME - S52.3
033182,000258: # FUNCTION - TO COMPUTE AMD DISPLAY THE
033183,000259: # GIMBAL ANGLES, ALLOW ASTRONAUT TO CHOOSE
033184,000260: # BETWEEN FAST AND ACCURATE IMU REALIGNMENT.
033185,000261: # NOMINAL (LOCAL VERTICAL) ORIENTATION IS:
033186,000262: # XSMD= UNIT(YSMD X ZSMD)
033187,000263: # YSMD= UNIT(V X R)
033188,000264: # ZSMD= UNIT(-R)
033189,000265:
033190,000266: # INPUT - TIME OF ALIGNMENT IN MPAC
033191,000267:
033192,000268: # OUTPUT - X,Y,ZSMD
033193,000269:
033194,000270: # SUBROUTINES - CSMCONIC
033195,000271:
033196,000272: 14,2145 06006 S52.3 TC INTPRET
033197,000273: 14,2146 77745 DLOAD
033198,000274: 14,2147 01251 DSPTEM1
033199,000275: 14,2150 34041 STCALL TDEC1
033200,000276: 14,2151 27145 CSMPREC
033201,000277: 14,2152 77201 SETPD VLOAD
033202,000278: 14,2153 00001 0
033203,000279: 14,2154 00001 RATT
033204,000280: 14,2155 53476 VCOMP UNIT
033205,000281: 14,2156 24323 STOVL ZSMD
033206,000282: 14,2157 00007 VATT
033207,000283: 14,2160 53435 VXV UNIT
033208,000284: 14,2161 00001 RATT
033209,000285: 14,2162 00315 STORE YSMD
033210,000286: 14,2163 53435 VXV UNIT
033211,000287: 14,2164 00323 ZSMD
033212,000288: 14,2165 00307 STORE XSMD
033213,000289: 14,2166 77776 EXIT
033214,000290: 14,2167 06006 P52J TC INTPRET
033215,000291: 14,2170 77624 P52D CALL # READ VEHICLE ATTITUDE AND
033216,000292: 14,2171 22247 S52.2 # COMPUTE GIMBAL ANGLES
|
|
Page 747 |
033218,000294: 14,2172 77776 EXIT
033219,000295: 14,2173 35025 CAF V06N22
033220,000296: 14,2174 04636 TC BANKCALL # DISPLAY GIMBAL ANGLES
033221,000297: 14,2175 20743 CADR GOFLASH
033222,000298: 14,2176 04103 TC GOTOPOOH
033223,000299: 14,2177 02201 TC COARSTYP
033224,000300: 14,2200 02167 TC P52J # RECYCLE - VEHICLE HAS BEEN MANEUVERED
033225,000301: 14,2201 40106 COARSTYP CS FLGWRD10
033226,000302: 14,2202 74762 MASK AUTSQBIT
033227,000303: 14,2203 00006 EXTEND
033228,000304: 14,2204 12320 BZF PERF20 # IF MINKEY
033229,000305: 14,2205 34775 CAF OCT13 # PLEASE PERFORM NORMAL/GYRO TORQUE
033230,000306: 14,2206 04636 TC BANKCALL
033231,000307: 14,2207 21067 CADR GOPERF1
033232,000308: 14,2210 14103 TCF GOTOPOOH # V34
033233,000309: 14,2211 12334 TCF P52K # NORMAL COARSE
033234,000310: 14,2212 06006 GYCRS TC INTPRET
033235,000311: 14,2213 64375 VLOAD MXV
033236,000312: 14,2214 00307 XSMD
033237,000313: 14,2215 01734 REFSMMAT
033238,000314: 14,2216 77656 UNIT
033239,000315: 14,2217 26714 STOVL XDC
033240,000316: 14,2220 00315 YSMD
033241,000317: 14,2221 53521 MXV UNIT
033242,000318: 14,2222 01734 REFSMMAT
033243,000319: 14,2223 26722 STOVL YDC
033244,000320: 14,2224 00323 ZSMD
033245,000321: 14,2225 53521 MXV UNIT
033246,000322: 14,2226 01734 REFSMMAT
033247,000323: 14,2227 36730 STCALL ZDC
033248,000324: 14,2230 47240 CALCGTA
033249,000325: 14,2231 43014 CLEAR CLEAR
033250,000326: 14,2232 01260 DRIFTFLG
033251,000327: 14,2233 01662 REFSMFLG
033252,000328: 14,2234 77776 EXIT
033253,000329: 14,2235 32275 CAF V16N20
033254,000330: 14,2236 04636 TC BANKCALL
033255,000331: 14,2237 20710 CADR GODSPR
033256,000332: 14,2240 33002 CAF R55CDR
033257,000333: 14,2241 04636 TC BANKCALL
033258,000334: 14,2242 17244 CADR IMUPULSE
033259,000335: 14,2243 04636 TC BANKCALL
033260,000336: 14,2244 17644 CADR IMUSTALL
033261,000337: 14,2245 03766 TC 217ALARM # BAD END
033262,000338: 14,2246 05402 TC PHASCHNG
033263,000339: 14,2247 04024 OCT 04024
033264,000340: 14,2250 06006 TC INTPRET
033265,000341: 14,2251 75160 AXC,1 AXC,2
033266,000342: 14,2252 00306 XSMD
033267,000343: 14,2253 01733 REFSMMAT
|
|
Page 748 |
033269,000345: 14,2254 77624 CALL
033270,000346: 14,2255 34730 MATMOVE
033271,000347: 14,2256 43014 CLEAR SET
033272,000348: 14,2257 01273 PFRATFLG
033273,000349: 14,2260 01462 REFSMFLG
033274,000350: 14,2261 77234 RTB VLOAD
033275,000351: 14,2262 31566 SET1/PDT
033276,000352: 14,2263 11762 ZEROVEC
033277,000353: 14,2264 01472 STORE GCOMP
033278,000354: 14,2265 43014 SET BOF
033279,000355: 14,2266 01060 DRIFTFLG
033280,000356: 14,2267 05350 AUTOSEQ
033281,000357: 14,2270 30757 R51K # CONTINUE FINE ALIGN IF NOT MINKEY
033282,000358: 14,2271 77614 CLEAR
033283,000359: 14,2272 05276 PCFLAG
033284,000360: 14,2273 77776 P50SEXIT EXIT
033285,000361: 14,2274 14105 TCF MNKGOPOO
033286,000362: 14,2275 04024 V16N20 VN 1620
033287,000363: 14,2276 4776 ALRM15 EQUALS OCT15
033288,000364: 14,2276 74575 P52AUTO VLOAD VSR1 # XDES = UNIT(XREF COS45 + YERF SIN45) (1)
033289,000365: 14,2277 01734 REFSMMAT # - (2)
033290,000366: 14,2300 74515 PDVL VSR1
033291,000367: 14,2301 01742 REFSMMAT +6 # (1) FOR 1ST, +45-DEGREE MANEUVER
033292,000368: 14,2302 57414 BON VCOMP # (2) 2ND -
033293,000369: 14,2303 05316 PCFLAG # IN EITHER CASE, COS45 = SIN45, AND
033294,000370: 14,2304 30305 P52AUTOX # 'UNIT' OBVIATES NEED FOR THEN.
033295,000371:
033296,000372: 14,2305 53455 P52AUTOX VAD UNIT
033297,000373: 14,2306 77626 STADR
033298,000374: 14,2307 53470 STOVL XSMD
033299,000375: 14,2310 01750 REFSMMAT +12D
033300,000376: 14,2311 00323 STORE ZSMD # ZDES = ZREF
033301,000377: 14,2312 53435 VXV UNIT
033302,000378: 14,2313 00307 XSMD
033303,000379: 14,2314 00315 STORE YSMD # YDES = UNIT(ZDES * ZDES)
033304,000380: 14,2315 52014 SET GOTO
033305,000381: 14,2316 01073 PFRATFLG
033306,000382: 14,2317 30170 P52D
033307,000383:
033308,000384: 14,2320 34764 PERF20 CAF BIT5 # =OCT 20, PLEASE PERF MINKEY PC TORQUE
033309,000385: 14,2321 04636 TC BANKCALL
033310,000386: 14,2322 21067 CADR GOPERF1
033311,000387: 14,2323 04103 TC GOTOPOOH # V 34
033312,000388: 14,2324 02212 TC GYCRS # PRO - DO IT
033313,000389: 14,2325 06006 TC INTPRET # ENTR
033314,000390: 14,2326 77414 BON EXIT
033315,000391: 14,2327 05316 PCFLAG
033316,000392: 14,2330 30273 P50SEXIT # OK TO FLUSH IT 1ST TIME ONLY
033317,000393: 14,2331 05671 TC ALARM # BUT MAKE HIM DO 2ND
033318,000394: 14,2332 00402 OCT 00402
|
|
Page 749 |
033320,000396: 14,2333 02320 TC PERF20
033321,000397: # NAME - CAL53A
033322,000398: # FUNCTION - COARSE ALIGN THE IMU, IF NECESSARY,
033323,000399: # INPUT - PRESENT GIMBAL ANGLES - CDUX, CDUY, CDUZ
033324,000400: # DESIRED GIMBAL ANGLES - THETAD,+1,+2
033325,000401: # OUTPUT - THE IMU COORDINATES ARE STORED IN REFSMMAT
033326,000402: # SUBROUTINES USED - 1.IMUCOARS 2.IMUSTALL 3.CURTAINS
033327,000403:
033328,000404: 14,2334 COUNT* $$/R50
033329,000405: 14,2334 06006 P52K TC INTPRET
033330,000406: 14,2335 77624 CAL53A CALL
033331,000407: 14,2336 22247 S52.2 # MAKE FINAL COMP OF GIMBAL ANGLES
033332,000408: 14,2337 66234 RTB SSP
033333,000409: 14,2340 34744 RDCDUS # READ CDUS
033334,000410: 14,2341 00051 S1
033335,000411: 14,2342 00001 1
033336,000412: 14,2343 40370 AXT,1 SETPD
033337,000413: 14,2344 00003 3
033338,000414: 14,2345 00005 4
033339,000415:
033340,000416: 14,2346 70543 CALOOP DLOAD* SR1
033341,000417: 14,2347 01313 THETAD +3D,1
033342,000418: 14,2350 70523 PDDL* SR1
033343,000419: 14,2351 00005 4,1
033344,000420: 14,2352 51425 DSU ABS
033345,000421: 14,2353 45206 PUSH DSU
033346,000422: 14,2354 34743 DEGREE1
033347,000423: 14,2355 71240 BMN DLOAD
033348,000424: 14,2356 30376 CALOOP1
033349,000425: 14,2357 51025 DSU BPL
033350,000426: 14,2360 34744 DEG359
033351,000427: 14,2361 30376 CALOOP1
033352,000428: 14,2362 77776 COARFINE EXIT
033353,000429: 14,2363 05402 TC PHASCHNG
033354,000430: 14,2364 04024 OCT 04024
033355,000431: 14,2365 03742 TC COARSUB # PERFORM ALIGNMENT
033356,000432: 14,2366 06006 TC INTPRET
033357,000433: 14,2367 77234 RTB VLOAD
033358,000434: 14,2370 31566 SET1/PDT
033359,000435: 14,2371 11762 ZEROVEC
033360,000436: 14,2372 01472 STORE GCOMP
033361,000437: 14,2373 52014 SET GOTO
033362,000438: 14,2374 01060 DRIFTFLG
033363,000439: 14,2375 30400 FINEONLY
033364,000440: 14,2376 77700 CALOOP1 TIX,1
033365,000441: 14,2377 30346 CALOOP
033366,000442: 14,2400 75160 FINEONLY AXC,1 AXC,2
033367,000443: 14,2401 02671 XSM
033368,000444: 14,2402 01733 REFSMMAT
033369,000445: 14,2403 77624 CALL
033370,000446: 14,2404 34730 MATMOVE
033371,000447: 14,2405 77414 CAL53RET SET EXIT
|
|
Page 750 |
033373,000449: 14,2406 01462 REFSMFLG
033374,000450: 14,2407 COUNT* $$/P52
033375,000451: 14,2407 05402 P52C TC PHASCHNG
033376,000452: 14,2410 04024 OCT 04024
033377,000453: 14,2411 34776 CAF ALRM15
033378,000454: 14,2412 04636 TC BANKCALL
033379,000455: 14,2413 21067 CADR GOPERF1
033380,000456: 14,2414 04103 TC GOTOPOOH
033381,000457: 14,2415 02417 TC +2 # V33
033382,000458: 14,2416 02622 TC R51 # FINE ALIGN
033383,000459: 14,2417 06006 TC INTPRET
033384,000460: 14,2420 43234 RTB DAD
033385,000461: 14,2421 51751 LOADTIME
033386,000462: 14,2422 34652 TSIGHT1
033387,000463: 14,2423 77624 CALL
033388,000464: 14,2424 26345 LOCSAM
033389,000465: 14,2425 COUNT* $$/PICAP
033390,000466:
033391,000467: # NAME - PICAPAR NOW IN-LINE
033392,000468:
033393,000469: # FUNCTION -
033394,000470: # THIS PROGRAM READ THE IMU-CDUS AND COMPUTES THE VEHICLE ORIENTATION
033395,000471: # WITH RESPECT TO INERTIAL SPACE. IT THEN COMPUTES THE SHAFT AXIS (SAX)
033396,000472: # WITH RESPECT TO REFERENCE INERTIAL. EACH STAR IN THE CATALOG IS TESTED
033397,000473: # TO DETERMINE IF IT IS OCCULTED BY EITHER THE EARTH, SUN OR MOON. IF A
033398,000474: # STAR IS NOT OCCULTED THEN IT IS PAIRED WITH ALL STAR OF LOWER INDEX.
033399,000475: # THE PAIRED STAR IS TESTED FOR OCCULTATION. PAIRS OF STARS THAT PASS
033400,000476: # THE OCCULTATION TESTS ARE TESTED FOR GOOD SEPARATION. A PAIR OF STARS
033401,000477: # HAVE GOOD SEPARATION IF THE ANGLE BETWEEN THEM IS LESS THAN 76 DEGREES
033402,000478: # AND MORE THAN 30 DEGREES. THOSE PAIRS OF STARS WITH GOOD SEPARATION
033403,000479: # ARE THEN TESTED TO SEE IF THEY LIE IN CURRENT FIELD OF VIEW. (WITHIN
033404,000480: # 38 DEGREES OF SAX). THE PAIR WITH MAXIMUM SEPARATION IS CHOSEN FROM
033405,000481: # THOSE WITH GOOD SEPARATION, AND IN FIELD OF VIEW.
033406,000482:
033407,000483: # OUTPUT
033408,000484: # BESTI, BESTJ - SINGLE PREC, INTEGERS, STAR NUMBERS TIMES 6
033409,000485: # VFLAG - FLAG BIT SET IMPLIES NO STARS IN FIELD OF VIEW
033410,000486:
033411,000487: # INITIALIZATION
033412,000488: # 1) A CALL TO LOCSAM MUST BE MADE
033413,000489: # 2) VEARTH = -UNIT(R) WHERE R HAS BEEN UPDATED TOO APPROXIMATE TIME OF
033414,000490: # SIGHTINGS.
033415,000491:
033416,000492: # DEBRIS
033417,000493: # WORK AREA
033418,000494: # X,Y,ZNB
033419,000495: # SINCDU, COSCDU
033420,000496: # STARAD - STAR +5
033421,000497:
033422,000498: 14,2425 77624 CALL
033423,000499: 14,2426 47530 CDUTRIG
033424,000500: 14,2427 45001 SETPD CALL
|
|
Page 751 |
033426,000502: 14,2430 00001 0
033427,000503: 14,2431 34756 CALCSMSC
033428,000504: 14,2432 71214 SET DLOAD # VFLAG = 1
033429,000505: 14,2433 01465 VFLAG
033430,000506: 14,2434 11762 DPZERO
033431,000507: 14,2435 24303 STOVL BESTI
033432,000508: 14,2436 02714 XNB
033433,000509: 14,2437 63361 VXSC PDVL
033434,000510: 14,2440 30575 SIN33
033435,000511: 14,2441 02730 ZNB
033436,000512: 14,2442 74370 AXT,1 VXSC
033437,000513: 14,2443 00344 228D # X1 = 37 X 6 + 6
033438,000514: 14,2444 30577 COS33
033439,000515: 14,2445 77655 VAD
033440,000516: 14,2446 53505 VXM UNIT
033441,000517: 14,2447 01734 REFSMMAT
033442,000518: 14,2450 02760 STORE SAX # SAX = SHAFT AXIS
033443,000519: 14,2451 66331 SSP SSP # S1 = S2 = 6
033444,000520: 14,2452 00051 S1
033445,000521: 14,2453 00006 6
033446,000522: 14,2454 00052 S2
033447,000523: 14,2455 00006 6
033448,000524: 14,2456 52100 PIC1 TIX,1 GOTO # MAJOR STAR
033449,000525: 14,2457 30461 PIC2
033450,000526: 14,2460 30606 PICEND
033451,000527: 14,2461 45173 PIC2 VLOAD* CALL
033452,000528: 14,2462 33776 CATLOG,1
033453,000529: 14,2463 30552 OCCULT
033454,000530: 14,2464 73014 BON LXA,2
033455,000531: 14,2465 01710 CULTFLAG
033456,000532: 14,2466 30456 PIC1
033457,000533: 14,2467 00046 X1
033458,000534: 14,2470 52104 PIC3 TIX,2 GOTO
033459,000535: 14,2471 30473 PIC4
033460,000536: 14,2472 30456 PIC1
033461,000537: 14,2473 45173 PIC4 VLOAD* CALL
033462,000538: 14,2474 44001 CATLOG,2
033463,000539: 14,2475 30552 OCCULT
033464,000540: 14,2476 76614 BON VLOAD*
033465,000541: 14,2477 01710 CULTFLAG
033466,000542: 14,2500 30470 PIC3
033467,000543: 14,2501 33776 CATLOG,1
033468,000544: 14,2502 45237 DOT* DSU
033469,000545: 14,2503 44001 CATLOG,2
033470,000546: 14,2504 30601 CSS66 # SEPARATION LESS THAN 76 DEG.
033471,000547: 14,2505 43240 BMN DAD
033472,000548: 14,2506 30470 PIC3
033473,000549: 14,2507 30603 CSS6640 # SEPARATION MORE THAN 30 DEG.
033474,000550: 14,2510 77644 BPL
033475,000551: 14,2511 30470 PIC3
|
|
Page 752 |
033477,000553: 14,2512 50373 VLOAD* DOT
033478,000554: 14,2513 33776 CATLOG,1
033479,000555: 14,2514 02760 SAX
033480,000556: 14,2515 50025 DSU BMN # MAJOR STAR IN CONE
033481,000557: 14,2516 30605 CSS33
033482,000558: 14,2517 30456 PIC1
033483,000559: 14,2520 50373 VLOAD* DOT
033484,000560: 14,2521 44001 CATLOG,2
033485,000561: 14,2522 02760 SAX
033486,000562: 14,2523 50025 DSU BMN
033487,000563: 14,2524 30605 CSS33
033488,000564: 14,2525 30470 PIC3
033489,000565: 14,2526 77614 STRATGY BONCLR
033490,000566: 14,2527 01605 VFLAG
033491,000567: 14,2530 30545 NEWPAR
033492,000568: 14,2531 65120 -3 XCHX,1 XCHX,2
033493,000569: 14,2532 00302 BESTI
033494,000570: 14,2533 00303 BESTJ
033495,000571: 14,2534 47773 STRAT VLOAD* DOT*
033496,000572: 14,2535 33776 CATLOG,1
033497,000573: 14,2536 44001 CATLOG,2
033498,000574: 14,2537 43006 PUSH BOFINV
033499,000575: 14,2540 01545 VFLAG
033500,000576: 14,2541 30531 STRAT -3
033501,000577: 14,2542 45345 DLOAD DSU
033502,000578: 14,2543 77644 BPL
033503,000579: 14,2544 30470 PIC3
033504,000580: 14,2545 67130 NEWPAR SXA,1 SXA,2
033505,000581: 14,2546 00302 BESTI
033506,000582: 14,2547 00303 BESTJ
033507,000583: 14,2550 77650 GOTO
033508,000584: 14,2551 30470 PIC3
033509,000585: 14,2552 51321 OCCULT MXV BVSU
033510,000586: 14,2553 02736 CULTRIX
033511,000587: 14,2554 00017 CSS
033512,000588: 14,2555 77654 BZE
033513,000589: 14,2556 30571 CULTED
033514,000590: 14,2557 75240 BMN SIGN
033515,000591: 14,2560 30571 CULTED
033516,000592: 14,2561 00160 MPAC +3
033517,000593: 14,2562 75240 BMN SIGN
033518,000594: 14,2563 30571 CULTED
033519,000595: 14,2564 00162 MPAC +5
033520,000596: 14,2565 43040 BMN CLRGO
033521,000597: 14,2566 30571 CULTED
033522,000598: 14,2567 01630 CULTFLAG
033523,000599: 14,2570 00052 QPRET
033524,000600: 14,2571 77614 CULTED SETGO
033525,000601: 14,2572 01430 CULTFLAG
033526,000602: 14,2573 00052 QPRET
|
|
Page 753 |
033528,000604: 14,2574 0000016 CSS = CEARTH
033529,000605: 14,2574 21150 25157 SIN33 2DEC .5376381241
033530,000606:
033531,000607: 14,2576 32766 22713 COS33 2DEC .8431756920
033532,000608:
033533,000609: 14,2600 01736 35137 CSS66 2DEC .060480472 # (COS76)/4
033534,000610:
033535,000611: 14,2602 73003 65403 CSS6640 2DEC -.15602587 # (COS76 - COS30)/4
033536,000612:
033537,000613: 14,2604 06233 26112 CSS33 2DEC .197002688 # COS(1/2(76))/4
033538,000614:
033539,000615: # V1 = 12D
033540,000616: 14,2606 77414 PICEND BOF EXIT
033541,000617: 14,2607 01745 VFLAG
033542,000618: 14,2610 30621 P52F
033543,000619: 14,2611 05671 P52I TC ALARM
033544,000620: 14,2612 00405 OCT 405
033545,000621: 14,2613 35023 CAF V05N09
033546,000622: 14,2614 04636 TC BANKCALL
033547,000623: 14,2615 20743 CADR GOFLASH
033548,000624: 14,2616 04103 TC GOTOPOOH
033549,000625: 14,2617 02622 TC R51 # PROCEED - DO R51 FINE ALIGN
033550,000626: 14,2620 02407 TC P52C # RECYCLE - VEHICLE HAS BEEN MANUEVERED
033551,000627: 14,2621 77776 P52F EXIT
033552,000628:
|
|
Page 754 |
033554,000630:
033555,000631: # NAME - R51 FINE ALIGN
033556,000632: # FUNCTION - TO ALIGN THE STABLE MEMBER TO REFSMMAT
033557,000633: # INPUT - BESTI, BESTJ (PAIR OF STAR NO )
033558,000634: # OUTPUT - GYRO TORQUE PULSES
033559,000635: # SUBROUTINES - R52, R54, R55 (SXTNB, NBSM, AXISGEN
033560,000636:
033561,000637: 14,2622 COUNT* $$/R51
033562,000638: 14,2622 34770 R51 CAF BIT1
033563,000639: 14,2623 54304 R51.3 TS STARIND
033564,000640: 14,2624 05561 TC DOWNFLAG
033565,000641: 14,2625 00025 ADRES TARG2FLG
033566,000642:
033567,000643: 14,2626 05402 TC PHASCHNG
033568,000644: 14,2627 05024 OCT 05024 # RESTART GR 4 FOR R52-R53
033569,000645: 14,2630 13000 OCT 13000
033570,000646: 14,2631 50304 INDEX STARIND
033571,000647: 14,2632 30302 CA BESTI
033572,000648: 14,2633 00006 EXTEND
033573,000649: 14,2634 73004 MP 1/6TH
033574,000650: 14,2635 55140 TS STARCODE
033575,000651: 14,2636 06006 TC INTPRET
033576,000652: 14,2637 77624 CALL
033577,000653: 14,2640 30761 R51DSPA
033578,000654: 14,2641 72131 SSP LXA,1
033579,000655: 14,2642 00051 S1
033580,000656: 14,2643 00000 0
033581,000657: 14,2644 00304 STARIND
033582,000658: 14,2645 77700 TIX,1
033583,000659: 14,2646 30651 R51ST
033584,000660: 14,2647 36617 STCALL STARSAV2 # 2ND STAR
033585,000661: 14,2650 30652 R51ST +1
033586,000662: 14,2651 02611 R51ST STORE STARSAV1 # 1ST STAR
033587,000663: 14,2652 54335 +1 SLOAD SL # IS THIS P54
033588,000664: 14,2653 01215 MODREG
033589,000665: 14,2654 20215 12D
033590,000666: 14,2655 45030 BHIZ CALL
033591,000667: 14,2656 30753 R51A # NO
033592,000668: 14,2657 36105 R56
033593,000669: 14,2660 77624 R51B CALL
033594,000670: 14,2661 36052 SXTSM
033595,000671: 14,2662 02617 STORE STARSAV2
033596,000672: 14,2663 45145 DLOAD CALL
033597,000673: 14,2664 02607 TSIGHT
033598,000674: 14,2665 31651 PLANET
033599,000675: 14,2666 53521 MXV UNIT
033600,000676: 14,2667 01734 REFSMMAT
033601,000677: 14,2670 77776 EXIT
033602,000678: 14,2671 10304 CCS STARIND
033603,000679: 14,2672 02744 TC R51.4
033604,000680: 14,2673 06006 TC INTPRET
033605,000681: 14,2674 26736 STOVL STARAD
|
|
Page 755 |
033607,000683: 14,2675 02617 STARSAV2
033608,000684: 14,2676 24007 STOVL 6D
033609,000685: 14,2677 02611 STARSAV1
033610,000686: 14,2700 24015 STOVL 12D
033611,000687: 14,2701 02601 PLANVEC
033612,000688: 14,2702 36744 STCALL STARAD +6
033613,000689: 14,2703 34657 R54 # STAR DATA TEST
033614,000690: 14,2704 45014 BOFF CALL
033615,000691: 14,2705 00354 FREEFLAG
033616,000692: 14,2706 30757 R51K
033617,000693: 14,2707 47432 AXISGEN
033618,000694:
033619,000695: # NAME - R55 - GYRO TORQUE
033620,000696: # FUNCTION - COMPUTE AND SEND GYRO PULSES
033621,000697: # INPUT - X,Y,ZDC - REFSMMAT WRT PRESENT STABLE MEMBER
033622,000698: # OUTPUT - GYRO PULSES
033623,000699: # SUBROUTINES - CALCGTA, GOFLASH, GODSPR, IMUFINE, IMUPULSE, GOPERF1
033624,000700:
033625,000701: 14,2710 COUNT* $$/R55
033626,000702: 14,2710 77624 R55 CALL # COMPUTE AND SEND GYRO PULSES
033627,000703: 14,2711 47240 CALCGTA
033628,000704: 14,2712 77776 PULSEM EXIT
033629,000705: 14,2713 35040 R55.1 CAF V06N93
033630,000706: 14,2714 04636 TC BANKCALL
033631,000707: 14,2715 20743 CADR GOFLASH
033632,000708: 14,2716 04103 TC GOTOPOOH
033633,000709: 14,2717 02721 TC R55.2
033634,000710: 14,2720 02734 TC R55RET
033635,000711: 14,2721 05402 R55.2 TC PHASCHNG
033636,000712: 14,2722 00314 OCT 00314
033637,000713: 14,2723 01,2165 4P31SPT1 = 4.31SPOT
033638,000714: 14,2723 33002 CA R55CDR
033639,000715: 14,2724 04636 TC BANKCALL
033640,000716: 14,2725 17244 CADR IMUPULSE
033641,000717: 14,2726 04636 TC BANKCALL
033642,000718: 14,2727 17644 CADR IMUSTALL
033643,000719: 14,2730 03766 TC 217ALARM # BAD END
033644,000720: 14,2731 05402 TC PHASCHNG
033645,000721: 14,2732 05024 OCT 05024
033646,000722: 14,2733 13000 OCT 13000
033647,000723: 14,2734 05561 R55RET TC DOWNFLAG
033648,000724: 14,2735 00051 ADRES PFRATFLG
033649,000725: 14,2736 COUNT* $$/R51
033650,000726: 14,2736 35775 R51KA CAF OCT14
033651,000727: 14,2737 04636 TC BANKCALL
033652,000728: 14,2740 21067 CADR GOPERF1
033653,000729: 14,2741 04103 TC GOTOPOOH
033654,000730: 14,2742 02407 TC P52C # V33
033655,000731: 14,2743 04103 TC GOTOPOOH
033656,000732: 14,2744 06006 R51.4 TC INTPRET
033657,000733: 14,2745 26601 STOVL PLANVEC
|
|
Page 756 |
033659,000735: 14,2746 02617 STARSAV2
033660,000736: 14,2747 02611 STORE STARSAV1
033661,000737: 14,2750 77776 EXIT
033662,000738: 14,2751 34772 CAF ZERO
033663,000739: 14,2752 12623 TCF R51.3 # CLEAR STARIND
033664,000740: 14,2753 77624 R51A CALL
033665,000741: 14,2754 31005 R52
033666,000742: 14,2755 77650 GOTO
033667,000743: 14,2756 30660 R51B
033668,000744: 14,2757 77776 R51K EXIT
033669,000745: 14,2760 02736 TC R51KA
033670,000746: 14,2761 77420 R51DSPA STQ EXIT
033671,000747: 14,2762 02657 SRTEMP
033672,000748: 14,2763 33003 R51DSP CAF V01N70
033673,000749: 14,2764 05540 TC VNFLASHR
033674,000750: 14,2765 02771 TC +4
033675,000751: 14,2766 36211 CAF SIX
033676,000752: 14,2767 05516 TC BLANKET
033677,000753: 14,2770 15205 TCF ENDOFJOB
033678,000754: 14,2771 03636 TC CHKSCODE
033679,000755: 14,2772 04362 TC FALTON
033680,000756: 14,2773 02763 TC R51DSP
033681,000757: 14,2774 06006 TC INTPRET
033682,000758: 14,2775 45034 RTB CALL
033683,000759: 14,2776 51751 LOADTIME
033684,000760: 14,2777 31651 PLANET
033685,000761: 14,3000 77650 GOTO
033686,000762: 14,3001 02657 SRTEMP
033687,000763: 14,3002 02757 R55CDR ECADR OGC
033688,000764: 14,3003 00306 V01N70 VN 0170
033689,000765: 14,3004 05253 1/6TH DEC .1666667
033690,000766:
033691,000767: # NAME - R52 - AUTOMATIC OPTICS POSITIONING ROUTINE
033692,000768:
033693,000769: # FUNCTION- (1) TO POINT THE STAR LOS OF THE OPTICS AT A STAR OR LANDMARK DEFINED BY THE PROGRAM OR BY DSKY INPUT.
033694,000770: # (2) TO POINT THE STAR LOS OF THE OPTICS AT THE LEM DURING RENDEZVOUS TRACKING OPERATIONS.
033695,000771:
033696,000772: # CALLING SEQUENCE- CALL R52
033697,000773:
033698,000774: # INPUT- 1. TARG1FLG AND TARG2FLG - PRESET BY CALLER
033699,000775: # 2. RNDVZFLG AND TRACKFLG - PRESET BY CALLER
033700,000776: # 3. STAR CODE - PRESET BY CALLER. ALSO INPUT THROUGH DSKY
033701,000777: # 4. LAT, LONG AND ALT OF LANDMARK - INPUT THROUGH DSKY
033702,000778: # 5. NO. OF MARKS (MARKINDX) - PRESET BY CALLER
033703,000779:
033704,000780: # OUTPUT- DRIVE SHAFT AND TRUNNION CDUS
033705,000781:
033706,000782: # SUBROUTINES- 1. FIXDELAY 7. CLEANDSP
033707,000783: # 2. GOPERF1 8. GODSPR
033708,000784: # 3. GOFLASH 9. REFLASHR
033709,000785: # 4. R53 10. R52.2
|
|
Page 757 |
033711,000787: # 5. ALARM 11. R52.3
033712,000788: # 6. SR52.1
033713,000789:
033714,000790: 14,3005 COUNT* $$/R52
033715,000791: 14,3005 77614 R52 CLEAR
033716,000792: 14,3006 04265 ADVTRK
033717,000793: 14,3007 77420 R52VRB STQ EXIT
033718,000794: 14,3010 02576 SAVQR52
033719,000795: 14,3011 35043 CAF EBANK5 # CALLER NOT ALWAYS IN E5.
033720,000796: 14,3012 56003 XCH EBANK
033721,000797: 14,3013 55577 TS R52BNKSV
033722,000798: 14,3014 00006 EXTEND
033723,000799: 14,3015 30036 DCA CDUT
033724,000800: 14,3016 53313 DXCH DESOPTT
033725,000801: 14,3017 00006 EXTEND
033726,000802: 14,3020 30025 DCA TIME2
033727,000803: 14,3021 52364 DXCH AOPOLD
033728,000804: 14,3022 06006 TC INTPRET
033729,000805: 14,3023 43131 SSP CLEAR
033730,000806: 14,3024 01324 OPTIND
033731,000807: 14,3025 00000 0
033732,000808: 14,3026 00271 R53FLAG
033733,000809: 14,3027 43014 BON CLEAR
033734,000810: 14,3030 00705 TARG1FLG
033735,000811: 14,3031 31222 R52H
033736,000812: 14,3032 03660 TERMIFLG
033737,000813: 14,3033 77776 EXIT
033738,000814: 14,3034 31354 R52C CA SWSAMPLE # IS OPTICS MODE IN AGC
033739,000815: 14,3035 00006 EXTEND
033740,000816: 14,3036 63245 BZMF R52M # MANUAL
033741,000817: 14,3037 06006 R52D TC INTPRET # THIS IS SR52.1 - NOW IN-LINE
033742,000818: # NAME - SR52.1
033743,000819:
033744,000820: # FUNCTION
033745,000821: # TARG1 AND TARG2 FLAGS ARE LOOKED AT TO DETERMINE IF THE TARGET IS THE
033746,000822: # LEM, STAR OR LANDMARK. IN CASE OF LEM OR LMK, THE PRESENT TIME PLUS
033747,000823: # 2 SECONDS IS SAVED IN AOPTIME (ALIAS STARAD, +1). IF THE LEM IS
033748,000824: # THE TARGET THEN CONIC UPDATES OF THE CSM AND LEM ARE MADE TO
033749,000825: # THE TIME IN AOPTIME. THE UNIT OF THE DIFFERENCE OF LEM AND CSM
033750,000826: # POSITION VECTORS BECOMES THE REFERENCE SIGHTING VECTOR USED IN THE
033751,000827: # COMMON PART OF THIS PROGRAM.
033752,000828:
033753,000829: # IN THE CASE OF LANDMARK, THE CSM IS UPDATED CONICALLY. THE RADIUS
033754,000830: # VECTOR FOR THE LANDMARK IS OBTAINED FROM LALOTORV. BOTH OF THESE ARE
033755,000831: # FOUND FOR THE TIME IN AOPTIME. THE UNIT OF THE DIFFERENCE BETWEEN
033756,000832: # THE LANDMARK AND CSM RADIUS VECTORS BECOMES THE REFERENCE SIGHTING
033757,000833: # VECTOR FOR THE COMMON PART OF THIS ROUTINE.
033758,000834:
033759,000835: # IF A STAR IS THE TARGET, THE PROPER STAR IS OBTAINED FROM THE CATALOG
033760,000836: # AND THIS VECTOR BECOMES THE REFERENCE SIGHTING VECTOR.
033761,000837:
033762,000838: # THE COMMON PART OF THIS PROGRAM TRANSFORMS THE REFERENCE SIGHTING
|
|
Page 758 |
033764,000840: # VECTOR INTO STABLE MEMBER COORDINATES. IT READS THE IMU-CDUS AND USES
033765,000841: # THIS DATA IN A CALL TO CALCSXA. ON RETURN FROM CALCSXA A TEST IS
033766,000842: # MADE TO SEE IF THE TRUNNION ANGLE IS GREATER THAN 90DEG. OR 50DEG.
033767,000843:
033768,000844: # OUTPUT
033769,000845: # SAC - SINGLE PREC, 2S COMP, SCALED AT HALF REVS - SHAFT ANGLE DESIRED
033770,000846: # PAC - SINGLE PREC, 2S COMP SCALED AT EIGTH REVS - TRUNNION ANGLE DESIRED
033771,000847:
033772,000848: # INITIALIZATION
033773,000849: # IF TARG1FLG =1 THEN TARGET IS LEM - NO OTHER INPUT REQUIRED
033774,000850: # IF TARG1FLG =0 AND TARG2FLG =0 THE TARGET IS STAR, STARIND SHOULD
033775,000851: # 0 OR 1 DENOTING BESTI OR BESTJ RESPECTIVELY AS STAR CODE. STAR CODES
033776,000852: # ARE 6 TIMES STAR NUMBER.
033777,000853: # IF TARG1FLG =0 AND TARG2FLG =1 THEN TARGET IS LANDMARK. SEE ROUTINE
033778,000854: # LALOTORV FOR INPUT REQUIREMENTS. HERE FIXERAD=1 FOR CONSTANT EARTH
033779,000855: # RADIUS
033780,000856:
033781,000857: # DEBRIS
033782,000858: # WORK AREA
033783,000859: # STARAD - STAR+5 (STAR IS DESIRED LOS IN STABLE MEMBER COORDINATES)
033784,000860:
033785,000861: 14,3040 43234 +1 RTB DAD
033786,000862: 14,3041 51751 LOADTIME
033787,000863: 14,3042 31271 2.4SECDP
033788,000864: 14,3043 45214 BOFF DSU
033789,000865: 14,3044 04741 P24FLAG
033790,000866: 14,3045 31047 +2
033791,000867: 14,3046 31273 .5SECDP
033792,000868: 14,3047 02347 STORE AOPTIME
033793,000869: 14,3050 43014 BON BON
033794,000870: 14,3051 00705 TARG1FLG
033795,000871: 14,3052 31066 LEM52
033796,000872: 14,3053 00706 TARG2FLG
033797,000873: 14,3054 31075 LMK52
033798,000874: 14,3055 72131 SSP LXA,1
033799,000875: 14,3056 00051 S1
033800,000876: 14,3057 00000 0
033801,000877: 14,3060 00304 STARIND
033802,000878: 14,3061 77700 TIX,1
033803,000879: 14,3062 31116 ST52ST
033804,000880: 14,3063 52175 VLOAD GOTO
033805,000881: 14,3064 02617 STARSAV2
033806,000882: 14,3065 31120 COM52
033807,000883: 14,3066 77745 LEM52 DLOAD
033808,000884: 14,3067 02347 AOPTIME
033809,000885: 14,3070 34041 STCALL TDEC1
033810,000886: 14,3071 27202 LEMCONIC
033811,000887: 14,3072 52175 VLOAD GOTO
033812,000888: 14,3073 00001 RATT
033813,000889: 14,3074 31105 LMKLMCOM
|
|
Page 759 |
033815,000891: 14,3075 71214 LMK52 BON DLOAD
033816,000892: 14,3076 04305 ADVTRK
033817,000893: 14,3077 54040 ADVTRACK
033818,000894: 14,3100 02347 AOPTIME
033819,000895: 14,3101 77624 CALL
033820,000896: 14,3102 26524 LALOTORV
033821,000897: 14,3103 77775 VLOAD
033822,000898: 14,3104 02152 ALPHAV
033823,000899: 14,3105 16766 LMKLMCOM STODL STAR
033824,000900: 14,3106 02347 AOPTIME
033825,000901: 14,3107 34041 STCALL TDEC1
033826,000902: 14,3110 27170 CSMCONIC
033827,000903: 14,3111 52375 VLOAD VSU
033828,000904: 14,3112 02766 STAR
033829,000905: 14,3113 00001 RATT
033830,000906: 14,3114 52056 UNIT GOTO
033831,000907: 14,3115 31120 COM52
033832,000908: 14,3116 77775 ST52ST VLOAD
033833,000909: 14,3117 02611 STARSAV1
033834,000910: 14,3120 53521 COM52 MXV UNIT
033835,000911: 14,3121 01734 REFSMMAT
033836,000912: 14,3122 02766 STORE STAR
033837,000913: 14,3123 45001 SETPD CALL
033838,000914: 14,3124 00001 0
033839,000915: 14,3125 47530 CDUTRIG # COMPUTES SINES AND COSINES FOR CALCSXA
033840,000916: 14,3126 77624 CALL # NOW EXPECT TO SEE THE CDU ANGLES
033841,000917: 14,3127 46034 CALCSXA
033842,000918: 14,3130 71214 BON DLOAD
033843,000919: 14,3131 01710 CULTFLAG
033844,000920: 14,3132 31276 R52L # GR 90 DEGREES
033845,000921: 14,3133 02776 PAC
033846,000922: 14,3134 51025 DSU BPL
033847,000923: 14,3135 31267 38TRDEG
033848,000924: 14,3136 31241 R52J # GR 50 DEGREES
033849,000925: 14,3137 45345 DLOAD DSU
033850,000926: 14,3140 02776 PAC
033851,000927: 14,3141 31275 20DEGSMN
033852,000928: 14,3142 77440 BMN EXIT
033853,000929: 14,3143 31241 R52J
033854,000930: 14,3144 31775 CA PAC
033855,000931: 14,3145 54330 TS PACTEMP
033856,000932: 14,3146 06006 R52JA TC INTPRET
033857,000933: 14,3147 43014 BON BOFF
033858,000934: 14,3150 00705 TARG1FLG
033859,000935: 14,3151 31170 R52E
033860,000936: 14,3152 04741 P24FLAG
033861,000937: 14,3153 31161 R53CHK
033862,000938: 14,3154 71214 BOFCLR DLOAD
033863,000939: 14,3155 04241 NEWLMFLG
033864,000940: 14,3156 16530 RATESUB
|
|
Page 760 |
033866,000942: 14,3157 02347 AOPTIME
033867,000943: 14,3160 00364 STORE AOPOLD
033868,000944: 14,3161 77414 R53CHK BON EXIT
033869,000945: 14,3162 00311 R53FLAG
033870,000946: 14,3163 31170 R52E
033871,000947: 14,3164 33265 CAF V06N92 # NO
033872,000948: 14,3165 04636 TC BANKCALL
033873,000949: 14,3166 20710 CADR GODSPR
033874,000950: 14,3167 06006 TC INTPRET
033875,000951: 14,3170 77776 R52E EXIT
033876,000952: 14,3171 30330 CA PACTEMP
033877,000953: 14,3172 55312 TS DESOPTT
033878,000954: 14,3173 31773 CA SAC
033879,000955: 14,3174 55313 TS DESOPTS
033880,000956: 14,3175 05354 R52F TC CHECKMM
033881,000957: 14,3176 00030 MM 24 B-14
033882,000958: 14,3177 13202 TCF R52FA # NO
033883,000959: 14,3200 34773 CAF FIVE # YES DELAY .05 SEC
033884,000960: 14,3201 13203 TCF R52FA +1
033885,000961: 14,3202 35011 R52FA CAF .5SEC # WAIT .5 SEC
033886,000962: 14,3203 04636 +1 TC BANKCALL
033887,000963: 14,3204 01731 CADR DELAYJOB
033888,000964: 14,3205 34757 CAF TARG1BIT
033889,000965: 14,3206 70075 MASK FLAGWRD1
033890,000966: 14,3207 10000 CCS A
033891,000967: 14,3210 03223 TC R52HA
033892,000968:
033893,000969: 14,3211 34752 CAF TERMIBIT
033894,000970: 14,3212 70103 MASK FLAGWRD7
033895,000971: 14,3213 00006 EXTEND
033896,000972: 14,3214 13034 BZF R52C
033897,000973:
033898,000974: 14,3215 31577 R52Q CA R52BNKSV
033899,000975: 14,3216 54003 TS EBANK
033900,000976:
033901,000977: 14,3217 06006 TC INTPRET
033902,000978: 14,3220 77650 GOTO
033903,000979: 14,3221 02576 SAVQR52
033904,000980:
033905,000981: 14,3222 77776 R52H EXIT # LEM
033906,000982: 14,3223 04636 R52HA TC BANKCALL
033907,000983: 14,3224 76333 CADR R61CSM
033908,000984: 14,3225 34764 CAF TRACKBIT
033909,000985: 14,3226 70075 MASK FLAGWRD1
033910,000986: 14,3227 00006 EXTEND
033911,000987: 14,3230 13215 BZF R52Q
033912,000988: 14,3231 06006 TC INTPRET
033913,000989: 14,3232 52014 BOF GOTO
033914,000990: 14,3233 00750 UPDATFLG
033915,000991: 14,3234 31236 R52SYNC
|
|
Page 761 |
033917,000993: 14,3235 31040 R52D +1
033918,000994: 14,3236 77776 R52SYNC EXIT
033919,000995: 14,3237 33311 CAF 1.8SEC
033920,000996: 14,3240 13203 TCF R52FA +1
033921,000997: 14,3241 77776 R52J EXIT
033922,000998: 14,3242 33266 CA 38TRDEG
033923,000999: 14,3243 54330 TS PACTEMP
033924,001000: 14,3244 03146 TC R52JA
033925,001001: 14,3245 34763 R52M CAF R53FLBIT # IS R53FLAG SET
033926,001002: 14,3246 70074 MASK FLAGWRD0
033927,001003: 14,3247 10000 CCS A
033928,001004: 14,3250 03316 TC R52G # YES
033929,001005: 14,3251 00004 INHINT # NO
033930,001006: 14,3252 37645 CAF PRIO24
033931,001007: 14,3253 05135 TC FINDVAC
033932,001008: 14,3254 E7,1722 EBANK= MRKBUF1
033933,001009: 14,3254 03260 30067 2CADR R53JOB
033934,001010:
033935,001011: 14,3256 00003 RELINT
033936,001012: 14,3257 03316 TC R52G
033937,001013: 14,3260 06006 R53JOB TC INTPRET
033938,001014: 14,3261 77624 CALL
033939,001015: 14,3262 31571 R53
033940,001016: 14,3263 77776 ENDPLAC EXIT # INTERPRETER RETURN TO ENDOFJOB (R22 USES)
033941,001017: 14,3264 05205 TC ENDOFJOB
033942,001018: 14,3265 01534 V06N92 VN 00692
033943,001019: 14,3266 25252 25254 38TRDEG 2DEC .66666667 # CORRESPONDS TO 50 DEGS IN TRUNNION
033944,001020:
033945,001021: 14,3270 00000 00360 2.4SECDP 2DEC 240 B-28
033946,001022:
033947,001023: 14,3272 00000 00062 .5SECDP 2DEC 50 B-28
033948,001024:
033949,001025: 14,3274 61740 20DEGSMN DEC -07199 B-14
033950,001026: 14,3275 77777 DEC -0 B-14
033951,001027: 14,3276 77414 R52L BON EXIT
033952,001028: 14,3277 00705 TARG1FLG
033953,001029: 14,3300 31241 R52J
033954,001030: 14,3301 33310 CAF OCT404
033955,001031: 14,3302 04636 TC BANKCALL
033956,001032: 14,3303 21766 CADR PRIOLARM
033957,001033: 14,3304 13312 TCF TERM52 # TERMINATE
033958,001034: 14,3305 13175 TCF R52F # PROCEED
033959,001035: 14,3306 13175 TCF R52F # NO PROVISION FOR NEW DATA
033960,001036: 14,3307 15205 TCF ENDOFJOB
033961,001037:
033962,001038: 14,3310 00404 OCT404 OCT 404
033963,001039:
033964,001040: 14,3311 00264 1.8SEC DEC 180 B-14
033965,001041:
033966,001042: 14,3312 04636 TERM52 TC BANKCALL
|
|
Page 762 |
033968,001044: 14,3313 20575 CADR KLEENEX
033969,001045:
033970,001046: 14,3314 04655 TC POSTJUMP
033971,001047: 14,3315 16031 CADR TERMSXT
033972,001048:
033973,001049: 14,3316 05354 R52G TC CHECKMM
033974,001050: 14,3317 00030 MM 24 B-14
033975,001051: 14,3320 13202 TCF R52FA # NO
033976,001052: 14,3321 11131 CCS PASSCNT # IS THIS THE NTH(N = NO. PASS)TIME THRU
033977,001053: 14,3322 13407 TCF NOT4TH # NO
033978,001054: 14,3323 40076 CS FLAGWRD2 # HAS A NEW MARK BEEN TAKEN
033979,001055: 14,3324 74766 MASK P24MKBIT
033980,001056: 14,3325 10000 CCS A
033981,001057: 14,3326 13037 TCF R52D # NO
033982,001058: 14,3327 06006 TC INTPRET # YES OBTAIN ADDRESS OF LAST MARK
033983,001059: 14,3330 46135 SLOAD BHIZ
033984,001060: 14,3331 03754 P22DEX
033985,001061: 14,3332 31411 LSTMRK
033986,001062: 14,3333 54160 AXC,1 XSU,1
033987,001063: 14,3334 03530 ECADR SVMRKDAT -7
033988,001064: 14,3335 03753 P22DEX
033989,001065: 14,3336 70730 R52K SXA,1 DLOAD*
033990,001066: 14,3337 01077 MARKDATA
033991,001067: 14,3340 00001 0,1
033992,001068: 14,3341 47044 BPL RTB
033993,001069: 14,3342 31344 +2
033994,001070: 14,3343 31037 R52D
033995,001071: 14,3344 03670 STORE S22TOFF
033996,001072: 14,3345 34041 STCALL TDEC1 # INT TO TIME OF MARK
033997,001073: 14,3346 27170 CSMCONIC
033998,001074: 14,3347 77775 VLOAD
033999,001075: 14,3350 00017 RATT1
034000,001076: 14,3351 01046 STORE CSMPOS # EARTH B29 MOON B27
034001,001077: 14,3352 45150 LXA,1 CALL
034002,001078: 14,3353 01077 MARKDATA
034003,001079: 14,3354 47017 GETUM
034004,001080: 14,3355 25072 STOVL UM # UNIT TIME OF SIGHT VECTOR
034005,001081: 14,3356 01046 CSMPOS
034006,001082: 14,3357 77656 UNIT
034007,001083: 14,3360 36152 STCALL ALPHAV # ALPHAV +4 = SINL FOR SETRE
034008,001084: 14,3361 26654 SETRE
034009,001085: 14,3362 43345 DLOAD DAD # CORRECT R0 FOR ALT OF LMK
034010,001086: 14,3363 02240 ERADM
034011,001087: 14,3364 00753 ALT
034012,001088: 14,3365 02240 STORE ERADM
034013,001089: 14,3366 77624 CALL # COMPUTE LANDMARK VECTOR
034014,001090: 14,3367 61331 S22F2410
034015,001091: 14,3370 70414 BOFF VSR2
034016,001092: 14,3371 04343 CMOONFLG
034017,001093: 14,3372 31373 +1
|
|
Page 763 |
034019,001095: 14,3373 16152 STODL ALPHAV
034020,001096: 14,3374 03670 S22TOFF
034021,001097: 14,3375 77624 CALL # COMPUTE LAT, LONG, ALT
034022,001098: 14,3376 26453 LAT-LONG
034023,001099: 14,3377 77624 CALL
034024,001100: 14,3400 62363 LLASRD
034025,001101: 14,3401 77414 SET EXIT
034026,001102: 14,3402 04061 NEWLMFLG
034027,001103: 14,3403 05561 TC DOWNFLAG
034028,001104: 14,3404 00052 ADRES P24MKFLG
034029,001105: 14,3405 44770 CS ONE
034030,001106: 14,3406 60737 AD NO.PASS
034031,001107: 14,3407 55131 NOT4TH TS PASSCNT
034032,001108: 14,3410 13037 TCF R52D
034033,001109: 14,3411 52160 LSTMRK AXC,1 GOTO
034034,001110: 14,3412 03573 ECADR SVMRKDAT +28D
034035,001111: 14,3413 31336 R52K
034036,001112: 07,2000 SETLOC RATEBNK
034037,001113: 07,2000 BANK
034038,001114:
034039,001115: 07,2530 COUNT* $$/R52
034040,001116: 07,2530 45345 RATESUB DLOAD DSU
034041,001117: 07,2531 02347 AOPTIME
034042,001118: 07,2532 00364 AOPOLD
034043,001119: 07,2533 77634 RTB
034044,001120: 07,2534 45636 SGNAGREE
034045,001121: 07,2535 77612 SL4
034046,001122: 07,2536 14772 STODL RATETEMP # TIME DIF SCALLED B24
034047,001123: 07,2537 02347 AOPTIME
034048,001124: 07,2540 00364 STORE AOPOLD # UPDATE OLD TIME REG
034049,001125: 07,2541 77545 DLOAD EXIT # LOAD SHAFT AND TRUNNION SCALE FACTORS
034050,001126: 07,2542 01771 TRUNSF
034051,001127: 07,2543 30772 CA RATETEMP +1
034052,001128: 07,2544 56771 XCH RATETEMP # TIME DIF SP SCALED B10
034053,001129: 07,2545 22007 ZL
034054,001130: 07,2546 30155 CA MPAC +1 # SHAFTSF B25
034055,001131: 07,2547 00006 EXTEND
034056,001132: 07,2550 10771 DV RATETEMP # B15
034057,001133: 07,2551 56001 XCH L
034058,001134: 07,2552 31773 CA SAC # SHAFT
034059,001135: 07,2553 00006 EXTEND
034060,001136: 07,2554 21313 MSU DESOPTS # B-1
034061,001137: 07,2555 00006 EXTEND
034062,001138: 07,2556 70001 MP L # B14
034063,001139: 07,2557 55657 TS SRTEMP
034064,001140: 07,2560 22007 ZL
034065,001141: 07,2561 30154 CA MPAC # TRUNSF B27
034066,001142: 07,2562 00006 EXTEND
034067,001143: 07,2563 10771 DV RATETEMP # B17
034068,001144: 07,2564 56001 XCH L
|
|
Page 764 |
034070,001146: 07,2565 30330 CA PACTEMP # TRUNNION
034071,001147: 07,2566 00006 EXTEND
034072,001148: 07,2567 21312 MSU DESOPTT # B-3
034073,001149: 07,2570 00006 EXTEND
034074,001150: 07,2571 70001 MP L # B14
034075,001151: 07,2572 55656 TS TRTEMP
034076,001152: 07,2573 34770 CAF ONE # INITIALIZE FOR SHAFT RATE
034077,001153: 07,2574 54772 MAGCK TS RATETEMP +1 # CHECK IF SHAFT,TRUN RATES GR THAN MAX
034078,001154: 07,2575 50772 INDEX RATETEMP +1
034079,001155: 07,2576 31656 CA TRTEMP
034080,001156: 07,2577 00006 EXTEND
034081,001157: 07,2600 62610 BZMF NEGRATE
034082,001158: 07,2601 62626 AD -MAXSRT
034083,001159: 07,2602 00006 EXTEND
034084,001160: 07,2603 62617 BZMF CMDCMP
034085,001161: 07,2604 42626 CS -MAXSRT
034086,001162: 07,2605 50772 INDEX RATETEMP +1
034087,001163: 07,2606 55656 TS TRTEMP # SET RATE TO +MAX RATE
034088,001164: 07,2607 12617 TCF CMDCMP
034089,001165: 07,2610 40000 NEGRATE COM
034090,001166: 07,2611 62626 AD -MAXSRT
034091,001167: 07,2612 00006 EXTEND
034092,001168: 07,2613 62617 BZMF CMDCMP
034093,001169: 07,2614 32626 CA -MAXSRT
034094,001170: 07,2615 50772 INDEX RATETEMP +1
034095,001171: 07,2616 55656 TS TRTEMP # SET RATE TO -MAX RATE
034096,001172: 07,2617 10772 CMDCMP CCS RATETEMP +1
034097,001173: 07,2620 12574 TCF MAGCK # GO DO TRUN RATE
034098,001174: 07,2621 06006 TC INTPRET
034099,001175: 07,2622 77745 DLOAD
034100,001176: 07,2623 02657 TRTEMP
034101,001177: 07,2624 34736 STCALL TRATE
034102,001178: 07,2625 31161 R53CHK
034103,001179: 07,2626 77177 -MAXSRT DEC -384 B-14 # MAX PULSES
034104,001180:
|
|
Page 765 |
034106,001182: # NAME - LOCSAM ALIAS S50
034107,001183:
034108,001184: # FUNCTION - TO COMPUTE QUATITIGS LISTED BELOW, USED IN THE
034109,001185: # IMU ALIGNMENT PROGRAMS
034110,001186:
034111,001187: # DEFINE:
034112,001188: # RATT = POSITION VECTOR OF CM WRT PRIMARY BODY
034113,001189: # VATT = VELOCITY VECTOR OF CM WRT PRIMARY BODY
034114,001190: # RE = RADIUS OF EARTH
034115,001191: # RM = RADIUS OF MOON
034116,001192: # ECLIPOL = POLE OF ECLIPTIC SCALED BY TANGENTIAL VELOCITY OF EARTH
034117,001193: # WRT TO SUN OVER THE VELOCITY OF LIGHT
034118,001194: # REM = POSITION OF MOON WRT EARTH
034119,001195: # RES = POSITION OF SUN WRT EARTH
034120,001196: # C = VELOCITY OF LIGHT
034121,001197:
034122,001198:
034123,001199: # EARTH IS PRIMARY MOON IS PRIMARY
034124,001200: # - -
034125,001201: # VEARTH=-1(RATT) VEARTH=-1(REM+RATT)
034126,001202: # - -
034127,001203: # VMOON = 1(REM-RATT) VMOON =-1(RATT)
034128,001204: # - -
034129,001205: # VSUN = 1(RES) VSUN = 1(RES-REM)
034130,001206: # -1
034131,001207: # CEARTH=COS(SIN (RE/RATT)+5) CEARTH=COS 5
034132,001208: # -1
034133,001209: # CMOON =COS 5 CMOON =COS(SIN CRM/RATT)+5)
034134,001210:
034135,001211: # CSUN =COS 15 CSUN =COS 15
034136,001212:
034137,001213: # VEL/C = VSUN X ECLIPOL + VATT/C
034138,001214:
034139,001215:
034140,001216: # CALL - DLOAD CALL
034141,001217: # DESIRED TIME
034142,001218: # LOCSAM
034143,001219:
034144,001220: # INPUTS - MPAC = TIME
034145,001221:
034146,001222: # OUTPUTS- VEARTH,VMOON,VSUN,CEARTH,CMOON,CSUN,VEL/C
034147,001223:
034148,001224: # SUBROUTINES- LSPOS,CSMCONIC
034149,001225:
034150,001226: # DEBRIS - VAC AREA, SEE SUBROUTINES
034151,001227:
|
|
Page 766 |
034153,001229: 13,2000 SETLOC SR52/1
034154,001230: 13,2000 BANK
034155,001231:
034156,001232: 13,2345 COUNT* $$/S50
034157,001233:
034158,001234: 13,2345 13,2345 LOCSAM = S50
034159,001235: 13,2345 77620 S50 STQ
034160,001236: 13,2346 00300 QMAJ
034161,001237: 13,2347 36607 STCALL TSIGHT
034162,001238: 13,2350 54136 LSPOS
034163,001239: 13,2351 26752 STOVL VMOON
034164,001240: 13,2352 00003 2D
034165,001241: 13,2353 16744 STODL VSUN
034166,001242: 13,2354 02607 TSIGHT
034167,001243: 13,2355 34041 STCALL TDEC1
034168,001244: 13,2356 27170 CSMCONIC
034169,001245: 13,2357 61131 SSP TIX,2
034170,001246: 13,2360 00052 S2
034171,001247: 13,2361 00000 0
034172,001248: 13,2362 26405 MOONCNTR
034173,001249: 13,2363 52375 EARTCNTR VLOAD VSU
034174,001250: 13,2364 02752 VMOON
034175,001251: 13,2365 00001 RATT
034176,001252: 13,2366 77656 UNIT
034177,001253: 13,2367 26752 STOVL VMOON
034178,001254: 13,2370 00001 RATT
034179,001255: 13,2371 57456 UNIT VCOMP
034180,001256: 13,2372 16736 STODL VEARTH
034181,001257: 13,2373 34636 RSUBE
034182,001258: 13,2374 77624 CALL
034183,001259: 13,2375 26445 OCCOS
034184,001260: 13,2376 14017 STODL CEARTH
034185,001261: 13,2377 34654 CSS5
034186,001262: 13,2400 24023 STOVL CMOON
034187,001263: 13,2401 02744 VSUN
034188,001264: 13,2402 77656 UNIT
034189,001265: 13,2403 36744 STCALL VSUN
034190,001266: 13,2404 26432 ENDSAM
034191,001267: 13,2405 40575 MOONCNTR VLOAD VSR8
034192,001268: 13,2406 02752 VMOON
034193,001269: 13,2407 51362 VSR1 BVSU
034194,001270: 13,2410 02744 VSUN
034195,001271: 13,2411 77656 UNIT
034196,001272: 13,2412 26744 STOVL VSUN
034197,001273: 13,2413 02752 VMOON
034198,001274: 13,2414 53455 VAD UNIT
034199,001275: 13,2415 00001 RATT
034200,001276: 13,2416 77676 VCOMP
034201,001277: 13,2417 26736 STOVL VEARTH
|
|
Page 767 |
034203,001279: 13,2420 00001 RATT
034204,001280: 13,2421 57456 UNIT VCOMP
034205,001281: 13,2422 16752 STODL VMOON
034206,001282: 13,2423 34634 RSUBM
034207,001283: 13,2424 77624 CALL
034208,001284: 13,2425 26445 OCCOS
034209,001285: 13,2426 14023 STODL CMOON
034210,001286: 13,2427 34654 CSS5
034211,001287: 13,2430 24017 STOVL CEARTH
034212,001288: 13,2431 02744 VSUN
034213,001289: 13,2432 77635 ENDSAM VXV
034214,001290: 13,2433 34644 ECLIPOL
034215,001291: 13,2434 27452 STOVL VEL/C
034216,001292: 13,2435 00007 VATT
034217,001293: 13,2436 53361 VXSC VAD
034218,001294: 13,2437 34642 1/C
034219,001295: 13,2440 03452 VEL/C
034220,001296: 13,2441 17452 STODL VEL/C
034221,001297: 13,2442 34656 CSSUN
034222,001298: 13,2443 34021 STCALL CSUN
034223,001299: 13,2444 00300 QMAJ
034224,001300: 13,2445 70471 OCCOS DDV SR1
034225,001301: 13,2446 00045 36D
034226,001302: 13,2447 43336 ASIN DAD
034227,001303: 13,2450 34640 5DEGREES
034228,001304: 13,2451 70546 COS SR1
034229,001305: 13,2452 77616 RVQ
034230,001306: 16,2000 SETLOC P50S2
034231,001307: 16,2000 BANK
034232,001308: 16,2633 COUNT* $$/S50
034233,001309: 16,2633 00065 01265 RSUBM 2DEC 1738090 B-29 # MOON RADIUS IN METERS
034234,001310:
034235,001311: 16,2635 00302 24533 RSUBE 2DEC 6378166 B-29
034236,001312:
034237,001313: 16,2637 00343 21616 5DEGREES 2DEC .013888889 # SCALED IN REVS
034238,001314:
034239,001315: 16,2641 00000 13143 1/C 2DEC .000042696 B-1 # 1/(9835712 FT/CS) SCALED CSEC/M B+7
034240,001316:
034241,001317: 16,2643 00000 00000 ECLIPOL 2DEC 0 B-28 # POLE OF ECLIPTIC FOR B0=.409157363336 RAD
034242,001318:
034243,001319: 16,2645 77777 53213 2DEC -.0000395319722 # AND CONST.AB = 20.496 ARC-SEC
034244,001320:
034245,001321: 16,2647 00001 17630 2DEC +.0000911652662 # ECLIPOL = CONST.AB.(0, -SIN B0, COS B0)
034246,001322:
034247,001323: 16,2651 00001 16700 TSIGHT1 2DEC 24000 B-28
034248,001324:
034249,001325: 16,2653 CEARTH = 14D
034250,001326: 16,2653 CSUN = 16D
034251,001327: 16,2653 CMOON = 18D
034252,001328: 16,2653 07760 14473 CSS5 2DEC .2490475 # (COS 5)/4
034253,001329:
|
|
Page 768 |
034255,001331: 16,2655 07564 15042 CSSUN 2DEC .24148 # COS 15 /4
034256,001332:
034257,001333: 16,2657 16,2657 R54 = CHKSDATA
034258,001334:
034259,001335: # NAME - CHKSDATA
034260,001336:
034261,001337: # FUNCTIONAL DESCRIPTION - CHECKS THE VALIDITY OF A PAIR OF STAR SIGHTINGS. WHEN A PAIR OF STAR SIGHTINGS ARE MADE
034262,001338: # BY THE ASTRONAUT THIS ROUTINE OPERATES AND CHECKS THE OBSERVED SIGHTINGS AGAINST STORED STAR VECTORS IN THE
034263,001339: # COMPUTER TO INSURE A PROPER SIGHTING WAS MADE. THE FOLLOWING COMPUTATIONS ARE PERFORMED_
034264,001340:
034265,001341: # OS1 = OBSERVED STAR 1 VECTOR
034266,001342: # OS2 = OBSERVED STAR 2 VECTOR
034267,001343: # SS1 = STORED STAR 1 VECTOR
034268,001344: # SS2 = STORED STAR 2 VECTOR
034269,001345: # A1 = ARCCOS(OS1 - OS2)
034270,001346: # A2 = ARCCOS(SS1 - SS2)
034271,001347: # A = ABS(2(A1 - A2))
034272,001348:
034273,001349: # THE ANGULAR DIFFERENCE IS DISPLAYED FOR ASTRONAUT ACCEPTENCE
034274,001350: # EXIT MODE 1. FREEFLAG SET IMPLIES ASTRONAUT WANTS TO PROCEED
034275,001351: # 2. FREEFLAG RESET IMPLIES ASTRONAUT WANTS TO RECYCLE ERANCE)
034276,001352: # OUTPUT - 1. VERB 6,NOUN 3 - DISPLAYS ANGULAR DIFFERENCE BETWEEN 2 SETS OF STARS.
034277,001353: # 2. STAR VECTORS FROM STAR CATALOG ARE LEFT IN 6D AND 12D.
034278,001354:
034279,001355: # ERASABLE INITIALIZATION REQUIRED -
034280,001356: # 1. MARK VECTORS ARE STORED IN STARAD AND STARAD +6.
034281,001357: # 2. CATALOG VECTORS ARE STORED IN 6D AND 12D.
034282,001358:
034283,001359: # DEBRIS -
034284,001360:
034285,001361: 16,2657 0003777 EBANK= WHOCARES
034286,001362: 16,2657 COUNT* $$/R54
034287,001363: 16,2657 43020 CHKSDATA STQ SET
034288,001364: 16,2660 02777 QMIN
034289,001365: 16,2661 00074 FREEFLAG
034290,001366: 16,2662 77760 CHKSAB AXC,1 # SET X1 TO STORE EPHEMERIS DATA
034291,001367: 16,2663 02735 STARAD
034292,001368:
034293,001369: 16,2664 47773 CHKSB VLOAD* DOT* # CAL. ANGLE THETA
034294,001370: 16,2665 00001 0,1
034295,001371: 16,2666 00007 6,1
034296,001372: 16,2667 65552 SL1 ACOS
034297,001373: 16,2670 00025 STORE THETA
034298,001374: 16,2671 43014 BOFF INVERT # BRANCH TO CHKSD IF THIS IS 2ND PASS
034299,001375: 16,2672 00354 FREEFLAG
034300,001376: 16,2673 34702 CHKSD
034301,001377: 16,2674 00174 FREEFLAG # CLEAR FREEFLAG
034302,001378: 16,2675 71360 AXC,1 DLOAD # SET X1 TO MARK ANGLES
034303,001379: 16,2676 00006 6D
034304,001380: 16,2677 00025 THETA
034305,001381: 16,2700 34023 STCALL 18D
034306,001382: 16,2701 34664 CHKSB
|
|
Page 769 |
034308,001384: 16,2702 45345 CHKSD DLOAD DSU
034309,001385: 16,2703 00025 THETA
034310,001386: 16,2704 00023 18D # COMPUTE POS DIFF
034311,001387: 16,2705 47046 ABS RTB
034312,001388: 16,2706 45636 SGNAGREE
034313,001389: 16,2707 01251 STORE NORMTEM1
034314,001390: 16,2710 77414 SET EXIT
034315,001391: 16,2711 00074 FREEFLAG
034316,001392: 16,2712 34772 CAF ZERO
034317,001393: 16,2713 04636 TC BANKCALL
034318,001394: 16,2714 20715 CADR CLEANDSP
034319,001395:
034320,001396: 16,2715 32727 CAF VB6N5
034321,001397: 16,2716 04636 TC BANKCALL
034322,001398: 16,2717 20743 CADR GOFLASH
034323,001399: 16,2720 14103 TCF GOTOPOOH
034324,001400: 16,2721 02724 TC CHKSDA # PROCEED
034325,001401: 16,2722 05561 TC DOWNFLAG
034326,001402: 16,2723 00014 ADRES FREEFLAG
034327,001403: 16,2724 06006 CHKSDA TC INTPRET
034328,001404: 16,2725 77650 GOTO
034329,001405: 16,2726 02777 QMIN
034330,001406: 16,2727 01405 VB6N5 VN 605
034331,001407:
034332,001408: 16,2730 COUNT* $$/R50
034333,001409: 16,2730 77773 MATMOVE VLOAD* # TRANSFER MATRIX
034334,001410: 16,2731 00001 0,1
034335,001411: 16,2732 10001 STORE 0,2
034336,001412: 16,2733 77773 VLOAD*
034337,001413: 16,2734 00007 6D,1
034338,001414: 16,2735 10007 STORE 6D,2
034339,001415: 16,2736 77773 VLOAD*
034340,001416: 16,2737 00015 12D,1
034341,001417: 16,2740 10015 STORE 12D,2
034342,001418: 16,2741 77616 RVQ
034343,001419: 16,2742 00056 DEGREE1 DEC 46 B-14
034344,001420: 16,2743 37722 DEG359 DEC 16338 B-14
034345,001421: 16,2744 00004 RDCDUS INHINT # READ CDUS
034346,001422: 16,2745 00006 EXTEND
034347,001423: 16,2746 30033 DCA CDUX
034348,001424: 16,2747 50120 INDEX FIXLOC
034349,001425: 16,2750 52002 DXCH 1
034350,001426: 16,2751 30034 CA CDUZ
034351,001427: 16,2752 50120 INDEX FIXLOC
034352,001428: 16,2753 54003 TS 3
034353,001429: 16,2754 00003 RELINT
034354,001430: 16,2755 06030 TC DANZIG
034355,001431:
034356,001432: # NAME - CALCSMSC
034357,001433:
034358,001434: # FUNCTION - DETERMINE AND COMPUTE THE DESIRED GIMBAL ANGLES TO BE USED FOR COARSE ALIGNMENT.
|
|
Page 770 |
034360,001436:
034361,001437: # CALLING SEQUENCE - CALL CALCSMSC
034362,001438:
034363,001439: # INPUT - DESIRED IMU INERTIAL ORIENTATION VECTORS - XSMD, YSMD, ZSMD
034364,001440:
034365,001441: # OUTPUT - GIMBAL ANGLES LEFT IN THETAD, +1, +2 +
034366,001442:
034367,001443: # SUBROUTINES USED - 1.CDUTRIG 2.CALCSMSC 3.CALCGA
034368,001444:
034369,001445: 16,2000 SETLOC P50S2
034370,001446: 16,2000 BANK
034371,001447: 16,2756 COUNT* $$/R51
034372,001448: 16,2756 41345 CALCSMSC DLOAD DMP
034373,001449: 16,2757 01142 SINCDUY
034374,001450: 16,2760 01152 COSCDUZ
034375,001451: 16,2761 77676 DCOMP
034376,001452: 16,2762 70525 PDDL SR1
034377,001453: 16,2763 01144 SINCDUZ
034378,001454: 16,2764 41325 PDDL DMP
034379,001455: 16,2765 01150 COSCDUY
034380,001456: 16,2766 01152 COSCDUZ
034381,001457: 16,2767 76466 VDEF VSL1
034382,001458: 16,2770 16714 STODL XNB
034383,001459: 16,2771 01146 SINCDUX
034384,001460: 16,2772 72405 DMP SL1
034385,001461: 16,2773 01144 SINCDUZ
034386,001462: 16,2774 00033 STORE 26D
034387,001463: 16,2775 65205 DMP PDDL
034388,001464: 16,2776 01142 SINCDUY
034389,001465: 16,2777 01154 COSCDUX
034390,001466: 16,3000 45205 DMP DSU
034391,001467: 16,3001 01150 COSCDUY
034392,001468: 16,3002 41325 PDDL DMP
034393,001469: 16,3003 01146 SINCDUX
034394,001470: 16,3004 01152 COSCDUZ
034395,001471: 16,3005 65276 DCOMP PDDL
034396,001472: 16,3006 01154 COSCDUX
034397,001473: 16,3007 65205 DMP PDDL
034398,001474: 16,3010 01142 SINCDUY
034399,001475: 16,3011 01150 COSCDUY
034400,001476: 16,3012 43205 DMP DAD
034401,001477: 16,3013 00033 26D
034402,001478: 16,3014 76466 VDEF VSL1
034403,001479: 16,3015 02730 STORE ZNB
034404,001480: 16,3016 76435 VXV VSL1
034405,001481: 16,3017 02714 XNB
034406,001482: 16,3020 02722 STORE YNB
034407,001483: 16,3021 77616 RVQ
034408,001484:
|
|
Page 771 |
034410,001486: # PROGRAM NAME - P51 - IMU ORIENTATION DETERMINATION DATE - AUGUST 1,1969
034411,001487: # MODIFICATION BY ALBERT,BARNERT,HASLAM LOG SECTION - P51-P5
034412,001488:
034413,001489: # FUNCTION -
034414,001490:
034415,001491: # DETERMINES THE INERTIAL ORIENTATION OF THE IMU. THE PROGRAM IS SELECTED BY DSKY ENTRY. THE SIGHTING
034416,001492: # ROUTINE IS CALLED TO COLLECT THE CDU COUNTERS AND SHAFT AND TRUNNION ANGLES FOR A SIGHTED STAR. THE DATA IS
034417,001493: # THEN PROCESSED AS FOLLOWS.
034418,001494:
034419,001495: # 1. SEXTANT ANGLES ARE COMPUTED IN TERMS OF NAVIGATIONAL BASE COORDINATES. LET SA AND TA BE THE SHAFT AND
034420,001496: # TRUNNION ANGLES, RESPECTIVELY. THEN,
034421,001497: # -
034422,001498: # V = (SIN(TA)*COS(SA), SIN(TA)*SIN(SA), COS(TA)) (A COLUMN VECTOR)
034423,001499: # NB
034424,001500: # THE OUTPUT IS A HALF-UNIT VECTOR STORED IN STARM.
034425,001501:
034426,001502: # 2. THIS VECTOR IN NAV. BASE COORDS. IS THEN TRANSFORMED TO ONE IN STABLE MEMBER COORDINATES.
034427,001503:
034428,001504: # - T T T -
034429,001505: # V = Q *Q *Q *V , WHERE
034430,001506: # 1 2 3 NB
034431,001507:
034432,001508: # ( COS(IG) 0 -SIN(IG) )
034433,001509: # ( ) THE GIMBAL ANGLES ARE COMPUTED FROM
034434,001510: # Q = ( 0 1 0 ), IG= INNER GIMBAL ANGLE THE CDU COUNTERS AT NBSM (USING AXIS-
034435,001511: # 1 ( ) ROT AND CDULOGIC)
034436,001512: # ( SIN(IG) 0 COS(IG) )
034437,001513:
034438,001514:
034439,001515: # ( COS(MG) SIN(MG) 0 )
034440,001516: # ( )
034441,001517: # Q = (-SIN(MG) COS(MG) 0 ), MG= MIDDLE GIMBAL ANGLE
034442,001518: # 2 ( )
034443,001519: # ( 0 0 1 )
034444,001520:
034445,001521:
034446,001522: # ( 1 0 0 )
034447,001523: # ( )
034448,001524: # Q = ( 0 COS(OG) SIN(OG) ), OG= OUTER GIMBAL ANGLE
034449,001525: # 3 ( )
034450,001526: # ( 0 -SIN(OG) COS(OG) )
034451,001527:
034452,001528: # 3. THE STAR NUMBER IS SAVED AND THE SECOND STAR IS THEN SIMILARLY PROCESSED.
034453,001529:
034454,001530: # 4. THE ANGLE BETWEEN THE TWO STARS IS THEN CHECKED AT CKSDATA.
034455,001531:
034456,001532: # 5. REFSMMAT IS THEN COMPUTED AT AXISGEN AS FOLLOWS.
034457,001533: # - -
034458,001534: # LET S AND S BE TWO STAR VECTORS EXPRESSED IN TWO COORDINATE SYSTEMS, A AND B (BASIC AND STABLE MEMBER).
|
|
Page 772 |
034460,001536: # 1 2
034461,001537:
034462,001538: # DEFINE, - -
034463,001539: # U = S
034464,001540: # A A1
034465,001541:
034466,001542: # - - -
034467,001543: # V = UNIT(S X S )
034468,001544: # A A1 A2
034469,001545:
034470,001546: # - - -
034471,001547: # W = U X V
034472,001548: # A A A
034473,001549:
034474,001550: # AND
034475,001551: # - -
034476,001552: # U = S
034477,001553: # B B1
034478,001554:
034479,001555: # - - -
034480,001556: # V = UNIT(S X S )
034481,001557: # B B1 B2
034482,001558:
034483,001559: # - - -
034484,001560: # W = U X V
034485,001561: # B B B
034486,001562:
034487,001563: # THEN - - - -
034488,001564: # X = U *U + V *V + W *W
034489,001565: # B1 A B1 A B1 A
034490,001566:
034491,001567: # - - - - (REFSMMAT)
034492,001568: # Y = U *U + V *V + W *W
034493,001569: # B2 A B2 A B2 A
034494,001570:
034495,001571: # - - - -
034496,001572: # Z = U *U + V *V + W *W
034497,001573: # B3 A B3 A B3 A
034498,001574:
034499,001575: # THE INPUTS CONSIST OF THE FOUR HALF-UNIT VECTORS STORED AS FOLLOWS
034500,001576: # -
034501,001577: # S IN 6-11 OF THE VAC AREA
034502,001578: # A1
034503,001579:
034504,001580: # -
034505,001581: # S IN 12-17 OF THE VAC AREA
034506,001582: # A2
034507,001583:
034508,001584: # -
034509,001585: # S IN STARAD
|
|
Page 773 |
034511,001587: # B1
034512,001588:
034513,001589: # -
034514,001590: # S IN STARAD +6
034515,001591: # B2
034516,001592:
034517,001593: # CALLING SEQUENCE
034518,001594:
034519,001595: # THE PROGRAM IS CALLED BY THE ASTRONAUT BY DSKY ENTRY.
034520,001596:
034521,001597: # SUBROUTINES CALLED.
034522,001598:
034523,001599: # GOPERF3
034524,001600: # GOPERF1R
034525,001601: # GODSPR
034526,001602: # IMUCOARS
034527,001603: # IMUFIN20
034528,001604: # R53
034529,001605: # SXTNB
034530,001606: # NBSM
034531,001607: # MKRELEAS
034532,001608: # CHKSDATA
034533,001609: # MATMOVE
034534,001610:
034535,001611: # ALARMS
034536,001612:
034537,001613: # NONE.
034538,001614:
034539,001615: # ERASABLE INITIALIZATION
034540,001616:
034541,001617: # IMU ZERO FLAG SHOULD BE SET.
034542,001618:
034543,001619: # OUTPUT
034544,001620:
034545,001621: # REFSMMAT
034546,001622: # REFSMFLG
034547,001623:
034548,001624: # DEBRIS
034549,001625:
034550,001626: # WORK AREA
034551,001627: # STARAD
034552,001628: # STARIND
034553,001629: # BESTI
034554,001630: # BESTJ
034555,001631:
034556,001632: 14,2000 SETLOC P50S1
034557,001633: 14,2000 BANK
034558,001634: 14,3414 COUNT* $$/P5153
034559,001635: 14,3414 14,3414 P53 EQUALS P51
034560,001636: 14,3414 41333 P51 CS IMODES30
034561,001637: 14,3415 74760 MASK IMUOPBIT
|
|
Page 774 |
034563,001639: 14,3416 10000 CCS A
034564,001640: 14,3417 03423 TC P51A
034565,001641: 14,3420 05671 TC ALARM
034566,001642: 14,3421 00210 OCT 210
034567,001643: 14,3422 04103 TC GOTOPOOH
034568,001644: 14,3423 04636 P51A TC BANKCALL
034569,001645: 14,3424 03745 CADR R02ZERO
034570,001646:
034571,001647: 14,3425 34776 P51AA CAF PRFMSTAQ
034572,001648: 14,3426 04636 TC BANKCALL
034573,001649: 14,3427 21067 CADR GOPERF1
034574,001650: 14,3430 04103 TC GOTOPOOH # TERM.
034575,001651: 14,3431 03454 TC P51B # V 33
034576,001652: 14,3432 05402 TC PHASCHNG
034577,001653: 14,3433 05024 OCT 05024
034578,001654: 14,3434 13000 OCT 13000
034579,001655: 14,3435 34772 CAF P51ZERO
034580,001656: 14,3436 55307 TS THETAD # ZERO THE GIMBALS
034581,001657: 14,3437 55310 TS THETAD +1
034582,001658: 14,3440 55311 TS THETAD +2
034583,001659: 14,3441 35025 CAF V06N22
034584,001660: 14,3442 04636 TC BANKCALL
034585,001661: 14,3443 20705 CADR GODSPRET
034586,001662: 14,3444 33565 CAF V41K # NOW DISPLAY COARSE ALIGN VERB 41
034587,001663: 14,3445 04636 TC BANKCALL
034588,001664: 14,3446 20705 CADR GODSPRET
034589,001665: 14,3447 03742 TC COARSUB # PERFORM ALIGNMENT
034590,001666: 14,3450 05402 TC PHASCHNG
034591,001667: 14,3451 05024 OCT 05024
034592,001668: 14,3452 13000 OCT 13000
034593,001669: 14,3453 13425 TCF P51AA # COARSE ALIGN DONE - RECYCLE FOR FINE
034594,001670:
|
|
Page 775 |
034596,001672:
034597,001673: # DO STAR SIGHTING AND COMPUTE NEW REFSMMAT
034598,001674:
034599,001675: 14,3454 06006 P51B TC INTPRET
034600,001676: 14,3455 40331 SSP SETPD
034601,001677: 14,3456 00305 STARIND # INDEX - STAR 1 OR 2
034602,001678: 14,3457 00000 0
034603,001679: 14,3460 00001 0
034604,001680: 14,3461 77234 RTB VLOAD
034605,001681: 14,3462 31566 SET1/PDT
034606,001682: 14,3463 11762 ZEROVEC
034607,001683: 14,3464 01472 STORE GCOMP
034608,001684: 14,3465 43014 SET CLEAR
034609,001685: 14,3466 01060 DRIFTFLG # ENABLE T4 COMPENSATION
034610,001686: 14,3467 00666 TARG2FLG # SHOW MARK IS STAR - NOT LANDMARK
034611,001687: 14,3470 77776 EXIT
034612,001688: 14,3471 05402 P51C TC PHASCHNG
034613,001689: 14,3472 05024 OCT 05024
034614,001690: 14,3473 13000 OCT 13000
034615,001691: 14,3474 05354 TC CHECKMM
034616,001692: 14,3475 00065 MM 53 B-14 # BACKUP PROGRAM
034617,001693: 14,3476 13504 TCF P51C.1 # NOT P53
034618,001694: 14,3477 06006 TC INTPRET
034619,001695: 14,3500 77624 CALL
034620,001696: 14,3501 36105 R56
034621,001697: 14,3502 77650 GOTO
034622,001698: 14,3503 31507 P51C.2
034623,001699: 14,3504 06006 P51C.1 TC INTPRET
034624,001700: 14,3505 77624 CALL
034625,001701: 14,3506 31571 R53 # SIGHTING ROUTINE
034626,001702: 14,3507 77624 P51C.2 CALL # COMPUTE LOS IN SM FROM MARK DATA
034627,001703: 14,3510 36052 SXTSM
034628,001704: 14,3511 77606 PUSH
034629,001705: 14,3512 53135 SLOAD BZE
034630,001706: 14,3513 00305 STARIND
034631,001707: 14,3514 31520 P51D
034632,001708: 14,3515 45575 VLOAD STADR
034633,001709: 14,3516 41160 STCALL STARSAV2 # DOWNLINK
034634,001710: 14,3517 31526 P51E
034635,001711: 14,3520 45575 P51D VLOAD STADR
034636,001712: 14,3521 61166 STODL STARSAV1
034637,001713: 14,3522 02607 TSIGHT
034638,001714: 14,3523 77624 CALL
034639,001715: 14,3524 31651 PLANET
034640,001716: 14,3525 02601 STORE PLANVEC
034641,001717: 14,3526 77776 P51E EXIT
034642,001718: 14,3527 05402 TC PHASCHNG
034643,001719: 14,3530 05024 OCT 05024
034644,001720: 14,3531 13000 OCT 13000
034645,001721: 14,3532 10304 CCS STARIND
034646,001722: 14,3533 13542 TCF P51F # STAR 2
|
|
Page 776 |
034648,001724: 14,3534 05402 TC PHASCHNG
034649,001725: 14,3535 05024 OCT 05024
034650,001726: 14,3536 13000 OCT 13000
034651,001727: 14,3537 34770 CAF BIT1
034652,001728: 14,3540 54304 TS STARIND
034653,001729: 14,3541 13471 TCF P51C # GO DO SECOND STAR
034654,001730: 14,3542 05402 P51F TC PHASCHNG
034655,001731: 14,3543 05024 OCT 05024
034656,001732: 14,3544 13000 OCT 13000
034657,001733: 14,3545 06006 TC INTPRET
034658,001734: 14,3546 45145 DLOAD CALL
034659,001735: 14,3547 02607 TSIGHT
034660,001736: 14,3550 31651 PLANET
034661,001737: 14,3551 24015 STOVL 12D
034662,001738: 14,3552 02601 PLANVEC
034663,001739: 14,3553 24007 STOVL 6D
034664,001740: 14,3554 02611 STARSAV1
034665,001741: 14,3555 26736 STOVL STARAD
034666,001742: 14,3556 02617 STARSAV2
034667,001743: 14,3557 36744 STCALL STARAD +6
034668,001744: 14,3560 34657 CHKSDATA # CHECK STAR ANGLES IN STARAD AND
034669,001745: 14,3561 77414 BON EXIT
034670,001746: 14,3562 00314 FREEFLAG
034671,001747: 14,3563 11716 P51G
034672,001748: 14,3564 03425 TC P51AA
034673,001749: 04,2000 SETLOC P50S4
034674,001750: 04,2000 BANK
034675,001751:
034676,001752: 04,3716 COUNT* $$/P5153
034677,001753: 04,3716 77624 P51G CALL
034678,001754: 04,3717 47432 AXISGEN # COME BACK WITH REFSMMAT IN XDC
034679,001755: 04,3720 75160 AXC,1 AXC,2
034680,001756: 04,3721 02713 XDC
034681,001757: 04,3722 01733 REFSMMAT
034682,001758: 04,3723 45014 CLEAR CALL
034683,001759: 04,3724 01662 REFSMFLG
034684,001760: 04,3725 34730 MATMOVE
034685,001761: 04,3726 77414 SET EXIT
034686,001762: 04,3727 01462 REFSMFLG
034687,001763: 04,3730 04103 TC GOTOPOOH
034688,001764: 14,2000 SETLOC P50S1
034689,001765: 14,2000 BANK
034690,001766:
034691,001767: 14,3565 COUNT* $$/P5153
034692,001768: 14,3565 4776 PRFMSTAQ = OCT15
034693,001769: 14,3565 4772 P51ZERO = ZERO
034694,001770: 14,3565 4773 P51FIVE = FIVE
034695,001771: 14,3565 12200 V41K VN 4100
034696,001772: 14,3566 30025 SET1/PDT CA TIME1
034697,001773: 14,3567 55277 TS 1/PIPADT
|
|
Page 777 |
034699,001775: 14,3570 16030 TCF DANZIG
034700,001776:
|
|
Page 778 |
034702,001778: # SXTSM COMPUTES AN LOS VECTOR IN SM COORD FROM OCDU AND ICDU MARK DATA
034703,001779:
034704,001780: 17,2000 SETLOC P50S3
034705,001781: 17,2000 BANK
034706,001782: 17,2052 COUNT* $$/R51
034707,001783: 17,2052 77745 SXTSM DLOAD
034708,001784: 17,2053 03723 MRKBUF1
034709,001785: 17,2054 02607 STORE TSIGHT
034710,001786: 17,2055 77760 AXC,1
034711,001787: 17,2056 03722 MRKBUF1 # ADDRESS OF MARK DATA FOR P50'S
034712,001788: 17,2057 77620 SXTSM1 STQ # CALLED HERE FROM GETUM (P20 AND P22)
034713,001789: 17,2060 00300 QMAJ
034714,001790: 17,2061 66744 LXC,2 SLOAD*
034715,001791: 17,2062 00304 STARIND
034716,001792: 17,2063 41673 MKDNCDR,2
034717,001793: 17,2064 76744 LXC,2 VLOAD*
034718,001794: 17,2065 00154 MPAC
034719,001795: 17,2066 00001 0,1
034720,001796: 17,2067 10001 STORE 0,2
034721,001797: 17,2070 77743 DLOAD*
034722,001798: 17,2071 00006 5,1
034723,001799: 17,2072 10006 STORE 5,2
034724,001800: 17,2073 77773 SXTSM2 VLOAD*
034725,001801: 17,2074 00003 2,1
034726,001802: 17,2075 35172 STCALL CDUSPOT
034727,001803: 17,2076 46000 SXTNB
034728,001804: 17,2077 77624 CALL
034729,001805: 17,2100 47642 TRG*NBSM # TRANSFER LOS TO SM
034730,001806: 17,2101 34041 STCALL 32D
034731,001807: 17,2102 00300 QMAJ
034732,001808: 17,2103 03674 MKDNCDR ECADR MARKDOWN
034733,001809: 17,2104 03460 ECADR MARK2DWN
034734,001810:
|
|
Page 779 |
034736,001812: # NAME - R53 - SIGHTING MARK ROUTINE
|
|
Page 780 |
034738,001814:
034739,001815: # FUNCTION -
034740,001816: # TO PERFORM A SATISFACTORY NUMBER OF SIGHTING MARKS FOR THE REQUESTING PROGRAM (OR ROUTINE). SIGHTINGS
034741,001817: # CAN BE MADE ON A STAR OR LANDMARK. WHEN THE CMC ACCEPTS A MARK IT RECORDS AND STORES 5 ANGLES (3 ICDUS AND 2
034742,001818: # OCDUS) AND THE TIME OF THE MARK.
034743,001819:
034744,001820: # CALLING SEQUENCE
034745,001821: # R53 IS CALLED AND RETURNS IN INTERPRETIVE CODE. RETURN IS VIA QPRET.
034746,001822: # THERE IS NO ERROR EXIT IN THIS ROUTINE ITSELF.
034747,001823:
034748,001824: # SUBROUTINES CALLED
034749,001825: # SXTMARK
034750,001826: # OPTSTALL
034751,001827: # GOFLASH
034752,001828:
034753,001829: # ERASABLE INITIALIZATION
034754,001830: # TARGET FLAG - STAR OR LANDMARK
034755,001831: # MARKINDX - NUMBER OF MARKS WANTED
034756,001832: # STARIND - INDEX TO BESTI OR BESTJ (STAR NUMBER)
034757,001833:
034758,001834: # OUTPUT
034759,001835: # MARKSTAT CONTAINS INDEX TO VACANT AREA WHERE MARK DATA IS STORED
034760,001836: # BESTI (INDEXED BY STARIND) CONTAINS STAR NUMBER SIGHTED
034761,001837:
034762,001838: # DEBRIS
034763,001839: # MARKINDX CONTAINS NUMBER OF MARKS DESIRED
034764,001840:
034765,001841: 14,2000 SETLOC RT53
034766,001842: 14,2000 BANK
034767,001843:
034768,001844: 14,3571 COUNT* $$/R53
034769,001845: 14,3571 43020 R53 STQ SET # SET SIGHTING MARK FLAG
034770,001846: 14,3572 03457 R53EXIT
034771,001847: 14,3573 00071 R53FLAG
034772,001848: 14,3574 77776 EXIT
034773,001849: 14,3575 04636 R53A TC BANKCALL
034774,001850: 14,3576 16000 CADR SXTMARK
034775,001851: 14,3577 05354 TC CHECKMM
034776,001852: 14,3600 00030 MM 24 B-14
034777,001853: 14,3601 13603 TCF +2
034778,001854: 14,3602 13612 TCF R53A1
034779,001855: 14,3603 05354 TC CHECKMM
034780,001856: 14,3604 00026 MM 22 B-14 # P22?
034781,001857: 14,3605 34766 CAF FOUR # NO, IS MARKINDX = 1
034782,001858: 14,3606 63650 AD MIN5 # YES, IS MARKINDX = 5 (CHECKMM LEAVES 0)
034783,001859: 14,3607 60301 AD MARKINDX
034784,001860: 14,3610 00006 EXTEND
034785,001861: 14,3611 13575 BZF R53A # NO MARKS TAKEN. DO AGAIN.
034786,001862: 14,3612 04636 R53A1 TC BANKCALL
034787,001863: 14,3613 16073 CADR MKRELEAS
034788,001864: 14,3614 34772 R53C1 CAF ZERO
034789,001865: 14,3615 04636 TC BANKCALL
034790,001866: 14,3616 20715 CADR CLEANDSP
|
|
Page 781 |
034792,001868: 14,3617 44763 R53B CS BIT6 # CUT BETWEEN P20S AND P50S
034793,001869: 14,3620 61214 AD MODREG # P22,P23 CALL
034794,001870: 14,3621 00006 EXTEND
034795,001871: 14,3622 63631 BZMF R53D # YES
034796,001872: 14,3623 33635 R53C CAF V01N71
034797,001873: 14,3624 05535 TC VNFLASH
034798,001874: 14,3625 03636 R53Z TC CHKSCODE
034799,001875: # ROUTINE TO ALLOW ONLY +0 <= STARCODE <= +50, OTHERWISE 'OPERATOR ERROR'
034800,001876: 14,3626 04362 TC FALTON
034801,001877: 14,3627 03623 TC R53C
034802,001878: 14,3630 03732 TC STORIJ # SET BESTI(BESTJ) = 1ST(2ND) STARCODE
034803,001879: 14,3631 06006 R53D TC INTPRET
034804,001880: 14,3632 77614 R53OUT SETGO
034805,001881: 14,3633 03420 TERMIFLG # SET TERMINATE FOR R52
034806,001882: 14,3634 03457 R53EXIT
034807,001883: 14,3635 6211 SIGHTSIX = SIX
034808,001884: 14,3635 00307 V01N71 VN 0171
034809,001885:
034810,001886: # ****** KEEP IN SAME BANK AS R51 AND R53 *********
034811,001887: 14,3636 11140 CHKSCODE CCS STARCODE
034812,001888: 14,3637 13643 TCF SCPOS # > 0, CHECK IF <= 50
034813,001889: 14,3640 16710 TCF Q+2 # = +0, OK
034814,001890: 14,3641 00002 TC Q # NEGATIVE STARCODE OF ANY
034815,001891: 14,3642 00002 TC Q # MAGNITUDE IS IMPROPER
034816,001892: 14,3643 63647 SCPOS AD NEG47
034817,001893: 14,3644 00006 EXTEND
034818,001894: 14,3645 66710 BZMF Q+2 # <= 50, OK
034819,001895: 14,3646 00002 TC Q # > 50, IMPROPER
034820,001896: 14,3647 77730 NEG47 OCT 77730
034821,001897: 14,3650 77772 MIN5 DEC -5 B-14
034822,001898:
|
|
Page 782 |
034824,001900: # NAME - S52.2
034825,001901: # FUNCTION - COMPUTE GIMBAL ANGLES FOR DESIRED SM AND PRESENT VEHICLE
034826,001902: # CALL - CALL S52.2
034827,001903: # INPUT - X,Y,ZSMD
034828,001904: # OUTPUT - OGC,IGC,MGC,THETAD,+1,+2
034829,001905: # SUBROUTINES - CDUTRIG, CALCSMSC, MATMOVE, CALCGA
034830,001906:
034831,001907: 11,2000 SETLOC S52/2
034832,001908: 11,2000 BANK
034833,001909:
034834,001910: 11,2247 COUNT* $$/S52.2
034835,001911: 11,2247 45020 S52.2 STQ CALL
034836,001912: 11,2250 00300 QMAJ
034837,001913: 11,2251 47530 CDUTRIG
034838,001914: 11,2252 77624 CALL
034839,001915: 11,2253 34756 CALCSMSC
034840,001916: 11,2254 66370 AXT,1 SSP
034841,001917: 11,2255 00022 18D
034842,001918: 11,2256 00051 S1
034843,001919: 11,2257 00006 6D
034844,001920: 11,2260 61373 S52.2A VLOAD* VXM
034845,001921: 11,2261 02736 XNB +18D,1
034846,001922: 11,2262 01734 REFSMMAT
034847,001923: 11,2263 77656 UNIT
034848,001924: 11,2264 06736 STORE XNB +18D,1
034849,001925: 11,2265 77700 TIX,1
034850,001926: 11,2266 22260 S52.2A
034851,001927: 11,2267 75160 S52.2.1 AXC,1 AXC,2
034852,001928: 11,2270 00306 XSMD
034853,001929: 11,2271 02671 XSM
034854,001930: 11,2272 77624 CALL
034855,001931: 11,2273 34730 MATMOVE
034856,001932: 11,2274 77624 CALL
034857,001933: 11,2275 47344 CALCGA
034858,001934: 11,2276 77650 GOTO
034859,001935: 11,2277 00300 QMAJ
034860,001936:
|
|
Page 783 |
034862,001938:
034863,001939: # THE ADVTRACK ROUTINE IS USED TO COMPUTE AN OPTICS LOS VECTOR TO
034864,001940: # A POINT ON THE GROUND TRACK 60 DEGRESS FORWARD OF THE LOCAL VERTICAL
034865,001941: # OF AN ADVANCED ORBIT A SPECIFIED NUMBER OF REVOLUTIONS FROM NOW
034866,001942:
034867,001943: 26,2000 SETLOC 26P50S
034868,001944: 26,2000 BANK
034869,001945: 26,2040 COUNT* $$/R52
034870,001946: 26,2040 77601 ADVTRACK SETPD
034871,001947: 26,2041 00001 0
034872,001948: 26,2042 41575 VLOAD PUSH # INITIALIZE FOR RP-TO-R
034873,001949: 26,2043 15330 UNITZ # UZ VEC IN PD 0-5
034874,001950: 26,2044 41434 RTB PUSH # TIME IN PD 6-7
034875,001951: 26,2045 51751 LOADTIME
034876,001952: 26,2046 36347 STCALL AOPTIME # TIME ALSO IN AOPTIME FOR CSMCONIC
034877,001953: 26,2047 55345 RP-TO-R # GET MOON ROTATION VEC IN REF
034878,001954: 26,2050 16766 STODL STAR
034879,001955: 26,2051 02347 AOPTIME # PICK UP TIME
034880,001956: 26,2052 34041 STCALL TDEC1 # UPDATE STATE TO TIME
034881,001957: 26,2053 27170 CSMCONIC
034882,001958: 26,2054 47375 VLOAD VXV
034883,001959: 26,2055 00007 VATT
034884,001960: 26,2056 00001 RATT
034885,001961: 26,2057 24031 STOVL 24D # SAVE -UNIT(V X R) FOR 2ND ROTATION
034886,001962: 26,2060 00001 RATT
034887,001963: 26,2061 57456 UNIT VCOMP
034888,001964: 26,2062 41401 SETPD PUSH # PUSH LOS=-UNIT(RVEC) PD 0-5
034889,001965: 26,2063 00001 0
034890,001966: 26,2064 54335 SLOAD SL
034891,001967: 26,2065 03752 LANDMARK
034892,001968: 26,2066 20214 11D
034893,001969: 26,2067 41342 SR1 DMP
034894,001970: 26,2070 14135 MPERIOD
034895,001971: 26,2071 36347 STCALL AOPTIME # ROTATE ANG ABOUT UR
034896,001972: 26,2072 54105 ROTA
034897,001973: 26,2073 53575 VLOAD UNIT
034898,001974: 26,2074 00031 24D # PICK UP 2ND ROTATION AXIS
034899,001975: 26,2075 16766 STODL STAR
034900,001976: 26,2076 14133 DP1/6
034901,001977: 26,2077 77625 DSU
034902,001978: 26,2100 02347 AOPTIME # 2ND RAT ANGLE = 60 - A
034903,001979: 26,2101 36347 STCALL AOPTIME
034904,001980: 26,2102 54105 ROTA # GO ROTATE 2ND TIME
034905,001981: 26,2103 36766 STCALL STAR # STORE FINAL LOS IN STAR
034906,001982: 26,2104 31120 COM52 # RETURN TO SR52.1
034907,001983:
034908,001984: 26,2105 73545 ROTA DLOAD SIN
034909,001985: 26,2106 02347 AOPTIME
034910,001986: 26,2107 47315 PDVL VXV # PUSH 1/2SIN(A) PD 6-7
034911,001987: 26,2110 02766 STAR # UR VEC
034912,001988: 26,2111 00001 0 # LOS
|
|
Page 784 |
034914,001990: 26,2112 72561 VXSC VSL2 # 1/2SIN(A)(UR X LOS) PD 6-11
034915,001991: 26,2113 50315 PDVL DOT
034916,001992: 26,2114 02766 STAR
034917,001993: 26,2115 00001 0
034918,001994: 26,2116 72561 VXSC VSL2
034919,001995: 26,2117 02766 STAR
034920,001996: 26,2120 71525 PDDL COS # 1/2(UR . LOS)UR 12-17
034921,001997: 26,2121 02347 AOPTIME
034922,001998: 26,2122 51315 PDVL BVSU # PUSH 1/2COS(A) 18-19
034923,001999: 26,2123 00015 12D
034924,002000: 26,2124 00001 0
034925,002001: 26,2125 76561 VXSC VSL1 # UP 18-19
034926,002002: 26,2126 53255 VAD VAD # UP 12-17 UP 6-11
034927,002003: 26,2127 40256 UNIT SETPD
034928,002004: 26,2130 00001 0
034929,002005: 26,2131 43406 PUSH RVQ
034930,002006:
034931,002007: 26,2132 05252 25251 DP1/6 2DEC .16666666
034932,002008:
034933,002009: 26,2134 01414 06044 MPERIOD 2DEC .047619 # APPROX LUNAR ROT ANG IN 2HRS X 16
034934,002010:
|
|
Page 785 |
034936,002012:
034937,002013: # NAME - R56 - ALTERNATE LOS SIGHTING MARK ROUTINE
034938,002014:
034939,002015: # FUNCTIONAL DESCRIPTION
034940,002016: # TO PERFORM SIGHTING MARKS FOR THE BACK-UP ALIGNMENT PROGRAMS (P53,P54). THE ASTRONAUT KNOWS THE
034941,002017: # COORDINATES (OPTICS) OF THE ALTERNATE LINE OF SIGHT HE MUST USE FOR THIS ROUTINE. WHEN THE ASTRONAUT KEYS IN
034942,002018: # ENTER IN RESPONSE TO THE FLASHING V50 N25 R1-XXXXX THE CMC STORES THE THREE ICDU ANGLES AND TWO ANGLES DISPLAYED
034943,002019: # IN N92.
034944,002020:
034945,002021: # CALLING SEQUENCE
034946,002022: # CALL
034947,002023: # R56
034948,002024:
034949,002025: # SUBROUTINES CALLED
034950,002026: # A PORTION OF SXTMARK (VAC.AREA SEARCH)
034951,002027: # GOFLASH
034952,002028: # GOPERF1
034953,002029:
034954,002030: # ERASABLE INITIALIZATION
034955,002031: # STARIND - INDEX TO STAR NUMBER
034956,002032:
034957,002033: # OUTPUT
034958,002034: # MARKSTAT - INDEX TO VAC.AREA WHERE OUTPUT IS STORED.
034959,002035: # BESTI (INDEXED BY STARIND) CONTAINS STAR NUMBER.
034960,002036: # ICDU AND OCDU ANGLES IN VAC. AREA AS FOLLOWS-
034961,002037: # VAC +2 CDUY
034962,002038: # VAC +3 CDUS
034963,002039: # VAC +4 CDUZ
034964,002040: # VAC +5 CDUT
034965,002041: # VAC +6 CDUX
034966,002042:
034967,002043: 17,2000 SETLOC P50S3
034968,002044: 17,2000 BANK
034969,002045: 17,2105 COUNT* $$/R56
034970,002046: 17,2105 77420 R56 STQ EXIT
034971,002047: 17,2106 03457 R53EXIT
034972,002048: 17,2107 32162 CAF V06N94B
034973,002049: 17,2110 05535 TC VNFLASH
034974,002050: 17,2111 04636 R56A TC BANKCALL
034975,002051: 17,2112 16062 CADR TESTMARK
034976,002052:
034977,002053: 17,2113 34772 CAF ZERO
034978,002054: 17,2114 04636 TC BANKCALL
034979,002055: 17,2115 20715 CADR CLEANDSP
034980,002056:
034981,002057: 17,2116 32161 R56A1 CAF VB53 # DISPLAY V53 REQUESTING ALTERNATE MARK
034982,002058: 17,2117 04636 TC BANKCALL
034983,002059: 17,2120 20601 CADR GOMARK2
034984,002060: 17,2121 14103 TCF GOTOPOOH # V34-TERMINATE
034985,002061: 17,2122 12116 TCF R56A1 # V33-DONT PROCEED-JUST ENTER TO MARK
034986,002062: 17,2123 06006 TC INTPRET
034987,002063: 17,2124 77745 DLOAD
|
|
Page 786 |
034989,002065: 17,2125 03726 MRKBUF1 +3
034990,002066: 17,2126 16774 STODL SAC
034991,002067: 17,2127 03730 MRKBUF1 +5
034992,002068: 17,2130 02776 STORE PAC
034993,002069: 17,2131 77776 EXIT
034994,002070: 17,2132 00004 INHINT
034995,002071: 17,2133 04606 TC E7SETTER
034996,002072:
034997,002073: 17,2134 E7,1722 EBANK= MRKBUF1
034998,002074: 17,2134 00006 EXTEND
034999,002075: 17,2135 30025 DCA TIME2
035000,002076: 17,2136 53723 DXCH MRKBUF1
035001,002077: 17,2137 30033 CA CDUY # ENTER-THIS IS A BACKUP SYSTEM MARK
035002,002078: 17,2140 55724 TS MRKBUF1 +2
035003,002079: 17,2141 30034 CA CDUZ
035004,002080: 17,2142 55726 TS MRKBUF1 +4
035005,002081: 17,2143 30032 CA CDUX
035006,002082: 17,2144 55730 TS MRKBUF1 +6
035007,002083: 17,2145 00003 RELINT
035008,002084: 17,2146 35043 CAF EBANK5 # MAY NOT NEED TO DO THIS
035009,002085: 17,2147 54003 TS EBANK
035010,002086:
035011,002087: 17,2150 E5,1777 EBANK= QMIN
035012,002088:
035013,002089: 17,2150 05527 TC CLEARMRK # ENABLE EXTENDED VERBS
035014,002090: 17,2151 34321 CAF OCT16
035015,002091: 17,2152 04636 TC BANKCALL
035016,002092: 17,2153 21067 CADR GOPERF1
035017,002093: 17,2154 04103 TC GOTOPOOH # TERM.
035018,002094: 17,2155 12157 TCF R56B # PROCEED-MARK COMPLETED
035019,002095: 17,2156 12111 TCF R56A # RECYCLE - DO ANOTHER MARK - LIKE REJECT
035020,002096: 17,2157 04636 R56B TC BANKCALL
035021,002097: 17,2160 31614 CADR R53C1
035022,002098: 17,2161 15200 VB53 VN 05300 # ALTERNATE MARK VERB
035023,002099: 17,2162 01536 V06N94B VN 00694
035024,002100: 14,2000 SETLOC P50S1
035025,002101: 14,2000 BANK
035026,002102:
035027,002103: 14,3651 COUNT* $$/PLNET
035028,002104: 14,3651 02607 PLANET STORE TSIGHT
035029,002105: 14,3652 45020 STQ CALL
035030,002106: 14,3653 02777 QMIN
035031,002107: 14,3654 26345 LOCSAM
035032,002108: 14,3655 77775 VLOAD
035033,002109: 14,3656 02736 VEARTH
035034,002110: 14,3657 24001 STOVL 0D
035035,002111: 14,3660 02744 VSUN
035036,002112: 14,3661 26736 STOVL VEARTH
035037,002113: 14,3662 00001 0D
035038,002114: 14,3663 02744 STORE VSUN
|
|
Page 787 |
035040,002116: 14,3664 77776 NOSAM EXIT
035041,002117: 14,3665 03732 TC STORIJ # SET BESTI(BESTJ) = 1ST(2ND) STARCODE
035042,002118: 14,3666 10000 CCS A
035043,002119: 14,3667 13700 TCF NOTPLAN
035044,002120: 14,3670 35035 CAF VNPLANV
035045,002121: 14,3671 05535 TC VNFLASH
035046,002122: 14,3672 06006 TC INTPRET
035047,002123: 14,3673 74375 VLOAD VXSC
035048,002124: 14,3674 03705 STARSAV3
035049,002125: 14,3675 31731 1/SQR3
035050,002126: 14,3676 52056 UNIT GOTO
035051,002127: 14,3677 31723 CORPLAN
035052,002128: 14,3700 40000 NOTPLAN CS A
035053,002129: 14,3701 63727 AD DEC227
035054,002130: 14,3702 00006 EXTEND
035055,002131: 14,3703 63714 BZMF CALSAM1
035056,002132: 14,3704 50304 INDEX STARIND
035057,002133: 14,3705 30302 CA BESTI
035058,002134: 14,3706 50120 INDEX FIXLOC
035059,002135: 14,3707 54046 TS X1
035060,002136: 14,3710 06006 TC INTPRET
035061,002137: 14,3711 52173 VLOAD* GOTO
035062,002138: 14,3712 33776 CATLOG,1
035063,002139: 14,3713 31723 CORPLAN
035064,002140: 14,3714 06006 CALSAM1 TC INTPRET
035065,002141: 14,3715 70740 LXC,1 DLOAD*
035066,002142: 14,3716 00304 STARIND
035067,002143: 14,3717 00303 BESTI,1
035068,002144: 14,3720 76740 LXC,1 VLOAD*
035069,002145: 14,3721 00154 MPAC
035070,002146: 14,3722 02372 STARAD -228D,1
035071,002147: 14,3723 53455 CORPLAN VAD UNIT
035072,002148: 14,3724 03452 VEL/C
035073,002149: 14,3725 77650 GOTO
035074,002150: 14,3726 02777 QMIN
035075,002151: 14,3727 00343 DEC227 DEC 227 B-14
035076,002152: 14,3730 5035 VNPLANV = V06N88
035077,002153: 14,3730 22363 11623 1/SQR3 2DEC .57735021
035078,002154:
035079,002155: 14,3732 47677 STORIJ CS HIGH9 # CALLED AT R53Z, NOSAM(PLANET)
035080,002156: 14,3733 71140 MASK STARCODE
035081,002157: 14,3734 00006 EXTEND
035082,002158: 14,3735 76211 MP SIGHTSIX
035083,002159: 14,3736 56001 XCH L
035084,002160: 14,3737 50304 INDEX STARIND
035085,002161: 14,3740 54302 TS BESTI
035086,002162: 14,3741 00002 TC Q # RETURN TO CALLER
035087,002163: 14,3742 COUNT* $$/R50
035088,002164: 14,3742 30002 COARSUB CA Q
035089,002165: 14,3743 55777 TS QMIN
|
|
Page 788 |
035091,002167: 14,3744 31335 STALLOOP CA MODECADR # IS IMU IN USE?
035092,002168: 14,3745 00006 EXTEND
035093,002169: 14,3746 13753 BZF CORSCALL # NO, GO AHEAD WITH COARSE ALIGN
035094,002170: 14,3747 35016 CAF 1SEC # YES, SO WAIT A SEC
035095,002171: 14,3750 04636 TC BANKCALL
035096,002172: 14,3751 01731 CADR DELAYJOB
035097,002173: 14,3752 03744 TC STALLOOP # AND TRY AGAIN
035098,002174: 14,3753 04636 CORSCALL TC BANKCALL
035099,002175: 14,3754 16724 CADR IMUCOARS # PERFORM COARSE ALIGN
035100,002176: 14,3755 04636 TC BANKCALL
035101,002177: 14,3756 17644 CADR IMUSTALL
035102,002178: 14,3757 03766 TC 217ALARM # BAD END
035103,002179: 14,3760 04636 TC BANKCALL
035104,002180: 14,3761 17133 CADR IMUFIN20 # PERFORM FINE ALIGN
035105,002181: 14,3762 04636 TC BANKCALL
035106,002182: 14,3763 17644 CADR IMUSTALL
035107,002183: 14,3764 03766 TC 217ALARM # BAD END
035108,002184: 14,3765 01777 TC QMIN
035109,002185: 14,3766 00004 217ALARM INHINT # JUST LIKE 'CURTAINS', NOW DEPARTED
035110,002186: 14,3767 30002 CA Q
035111,002187: 14,3770 05673 TC ALARM2
035112,002188: 14,3771 00217 OCT 00217
035113,002189: 14,3772 01363 TC ALMCADR # RETURN TO USER
End of include-file P51-P53.agc. Parent file is MAIN.agc