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