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