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