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