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