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