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