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