Source Code
|
These source-code files are part of a reconstructed copy of Corona 261, the
final, flown release of the Block I Command Module (CM) Apollo Guidance Computer
(AGC) software for the AS-202 mission.
They have been created via disassembly of binary dumps of the original core rope
memory modules actually flown on the mission, part numbers 1003733-171, 1003733-241,
1003733-191, 1003733-211, 1003733-221, and 1003733-241. The source code for the Apollo
4 and 6 software, Solarium 55, was used as a starting point, since it was directly
derived from Corona and (at least in theory) only minimally modified.
Since only binary dumps (rather than listings) of Corona 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.
|
014925,000002: ## Copyright: Public domain.
014926,000003: ## Filename: PRELAUNCH_ALIGNMENT_PROGRAM.agc
014927,000004: ## Purpose: A section of Corona revision 261.
014928,000005: ## It is part of the source code for the Apollo Guidance Computer
014929,000006: ## (AGC) for AS-202. No original listings of this software are
014930,000007: ## available; instead, this file was created via disassembly of
014931,000008: ## the core rope modules actually flown on the mission.
014932,000009: ## Assembler: yaYUL
014933,000010: ## Contact: Ron Burkey <info@sandroid.org>.
014934,000011: ## Website: www.ibiblio.org/apollo/index.html
014935,000012: ## Mod history: 2023-05-27 MAS Created from Solarium 55.
014936,000013: ## 2023-06-17 MAS Updated for Corona.
014937,000014:
014938,000015:
014939,000016: # THE PRELAUNCH ALIGNMENT PROGRAM CONSISTS OF TWO PARTS- VERTICAL ERECTION AND GYROCOMPASSING. IN THE FIRST CASE
014940,000017: # THE Z PIPA INPUTS ARE USED TO CONTROL THE Y GYRO IN SUCH A WAY THAT THESE INPUTS ARE NULLED. A SIMILAR SIT-
014941,000018: # UATION APPLIES TO THE Y PIPA INPUTS AND THE Z GYRO.IN THE GYROCOMPASSING CASE, THE Y PIPA INPUTS ARE USED IN
014942,000019: # EXACTLY THE SAME FASHION AS IN VERTICAL ERECTION. THE Z PIPA INPUTS ARE SPLIT BETWEEN THE Y GYRO TO HOLD THE
014943,000020: # VERTICAL AND THE X GYRO TO POINT THE Z AXIS ALONG SOME DESIRED AZIMUTH.
014944,000021:
014945,000022:
014946,000023:
014947,000024: # WHILE PRELAUNCH IS ACTIVE IT STAYS IN THE EXECUTIVE AND USES THE SLEEP/WAKE FEATURES. BY THIS MEANS MOST
014948,000025: # ERASABLE USAGE IS CONFINED TO A VAC AREA. THE ASSIGNMENT IS AS FOLLOWS-
014949,000026:
014950,000027: 31,7454 SINLAM = 34D # SIN OF LATITUDE
014951,000028: 31,7454 COSLAM = 36D # COSINE OF LATITUDE
014952,000029: 31,7454 SINAZ = 2 # SIN OF AZIMUTH
014953,000030: 31,7454 COSAZ = 4 # COSINE OF AZIMUTH
014954,000031: 21,6000 SETLOC 42000
014955,000032:
014956,000033: 21,6000 04000 TOP1 TC INTPRET
014957,000034:
014958,000035: 21,6001 45175 DMOVE 1 # THIS START DISPLAYS ALL INPUTS FOR CHEK
014959,000036: 21,6002 76575 RTB EXIT
014960,000037: 21,6003 01317 AZIMUTH
014961,000038: 21,6004 20324 1STO2S
014962,000039:
014963,000040: 21,6005 03310 TC GRABDSP
014964,000041: 21,6006 03316 TC PREGBSY
014965,000042:
014966,000043: 21,6007 30115 XCH MPAC
014967,000044: 21,6010 50616 TS DSPTEM1
014968,000045: 21,6011 35501 CAF ZERO
014969,000046: 21,6012 50617 TS DSPTEM1 +1
014970,000047:
014971,000048: 21,6013 07555 TC CHECKNV # DISPLAY AZIMUTH
014972,000049: 21,6014 00661 OCT 00661 # (N.B. CAN NOT BE MODIFIED ...ALK)
014973,000050:
014974,000051: 21,6015 06757 TC PRELEXIT -1
014975,000052:
014976,000053: 21,6016 04000 TC INTPRET
014977,000054:
014978,000055: 21,6017 63776 TSLT 0
014979,000056: 21,6020 01315 LATITUDE
014980,000057: 21,6021 00003 2
014981,000058: 21,6022 32620 STORE DSPTEM1 +1
014982,000059:
014983,000060: 21,6023 45175 DMOVE 1
014984,000061: 21,6024 76575 RTB EXIT
014985,000062: 21,6025 01353 VAZ
014986,000063: 21,6026 20324 1STO2S
014987,000064:
014988,000065: 21,6027 30115 XCH MPAC
014989,000066: 21,6030 50616 TS DSPTEM1
014990,000067:
014991,000068: 21,6031 07555 TC CHECKNV # DISPLAY VEHICLE AZIMUTH, LATITUDE
014992,000069: 21,6032 00661 OCT 00661 # (SEE N.B. ABOVE)
014993,000070:
014994,000071: 21,6033 06757 TC PRELEXIT -1
014995,000072:
014996,000073: 21,6034 03370 TC FREEDSP # DONE WITH DSKY.
014997,000074:
014998,000075: 21,6035 04000 TC INTPRET
014999,000076:
015000,000077: 21,6036 45175 TOP3 DMOVE 1 # COMPUTES GIMBAL ANGLES
015001,000078: 21,6037 76565 RTB AXT,1
015002,000079: 21,6040 15617 SCNBMAT +8D
015003,000080: 21,6041 20270 ZEROVAC
015004,000081: 21,6042 00023 18D
015005,000082: 21,6043 32001 STORE 0
015006,000083:
015007,000084: 21,6044 55176 COS 0
015008,000085: 21,6045 01353 VAZ
015009,000086: 21,6046 32011 STORE 8D
015010,000087:
015011,000088: 21,6047 47576 NOLOD 0
015012,000089: 21,6050 32021 STORE 16D
015013,000090:
015014,000091: 21,6051 57176 SIN 0
015015,000092: 21,6052 01353 VAZ
015016,000093: 21,6053 32017 STORE 14D
015017,000094:
015018,000095: 21,6054 47575 NOLOD 1
015019,000096: 21,6055 47065 COMP AST,1
015020,000097: 21,6056 00007 6
015021,000098: 21,6057 32013 STORE 10D
015022,000099:
015023,000100: 21,6060 74175 TOP33 VMOVE* 1
015024,000101: 21,6061 51622 VXM VSLT
015025,000102: 21,6062 33461 SCNBMAT +18D,1
015026,000103: 21,6063 00001 0
015027,000104: 21,6064 00002 1
015028,000105: 21,6065 37241 STORE XNB +18D,1
015029,000106:
015030,000107: 21,6066 51576 TIX,1 0
015031,000108: 21,6067 02061 TOP33
015032,000109:
015033,000110: 21,6070 76776 ITC 0
015034,000111: 21,6071 03461 MAKEXSM
015035,000112:
015036,000113: 21,6072 76776 ITC 0
015037,000114: 21,6073 04644 CALCGA
015038,000115: 21,6074 47575 NOLOD 1
015039,000116: 21,6075 77176 TP
015040,000117: 21,6076 33323 STORE PRELXGA
015041,000118:
015042,000119: 21,6077 77576 EXIT 0
015043,000120:
015044,000121: # ENTER AT TOP2 IF GIMBAL ANGLES, AZIMUTH, LATITUDE ALREADY KEYED IN
015045,000122:
015046,000123:
015047,000124:
015048,000125: 21,6100 05654 TOP2 TC BANKCALL # GO AND START CDU ZEROING
015049,000126: 21,6101 30000 CADR IMUZERO
015050,000127:
015051,000128: 21,6102 02362 TC NEWMODE
015052,000129: 21,6103 00001 OCT 01 # INITIALIZATION.
015053,000130:
015054,000131: 21,6104 33527 CAF NINETEEN # INITIALIZE ERASABLE MEMORY TO ZEROS
015055,000132: 21,6105 31446 ZEROS1 XCH THETAY
015056,000133: 21,6106 35501 CAF ZERO
015057,000134: 21,6107 21446 INDEX THETAY
015058,000135: 21,6110 51356 TS FILTER
015059,000136: 21,6111 11446 CCS THETAY
015060,000137: 21,6112 06105 TC ZEROS1
015061,000138:
015062,000139: 21,6113 33517 CAF ELEVEN
015063,000140: 21,6114 31446 ZEROS2 XCH THETAY
015064,000141: 21,6115 35501 CAF ZERO
015065,000142: 21,6116 21446 INDEX THETAY
015066,000143: 21,6117 51446 TS THETAY
015067,000144: 21,6120 11446 CCS THETAY
015068,000145: 21,6121 06114 TC ZEROS2
015069,000146:
015070,000147: 21,6122 33553 CAF SIXHNDRD # INITIALIZE FOR 5 MIN VERTICAL
015071,000148: 21,6123 51320 TS GYROCSW
015072,000149:
015073,000150: 21,6124 05654 TC BANKCALL # INITIALIZATION COMPLETE SO STALL
015074,000151: 21,6125 30331 CADR IMUSTALL
015075,000152: 21,6126 06760 TC PRELEXIT
015076,000153:
015077,000154:
015078,000155:
015079,000156: 21,6127 41322 CS PRELXGA # LOAD DESIRED CDU ANGLES.
015080,000157: 21,6130 40000 COM
015081,000158: 21,6131 50700 TS THETAD
015082,000159: 21,6132 41323 CS PRELYGA
015083,000160: 21,6133 40000 COM
015084,000161: 21,6134 50701 TS THETAD +1
015085,000162: 21,6135 41324 CS PRELZGA
015086,000163: 21,6136 40000 COM
015087,000164: 21,6137 50702 TS THETAD +2
015088,000165: 21,6140 02276 TC PHASCHNG # GO INTO COARSE ALIGN PHASE.
015089,000166: 21,6141 02103 OCT 02103 # 3.17 RESTART.
015090,000167:
015091,000168: 21,6142 05654 REPL11 TC BANKCALL
015092,000169: 21,6143 30104 CADR IMUCOARS
015093,000170:
015094,000171: 21,6144 05654 TC BANKCALL # NOTHING TO DO BUT SPEEP
015095,000172: 21,6145 30331 CADR IMUSTALL
015096,000173: 21,6146 06760 TC PRELEXIT
015097,000174:
015098,000175:
015099,000176:
015100,000177: 21,6147 02276 STARTPL2 TC PHASCHNG # START FINE ALIGN - INITIALIZATION PHASE.
015101,000178: 21,6150 02203 OCT 02203 # 3.18 RESTART.
015102,000179:
015103,000180: 21,6151 05654 REPL12 TC BANKCALL
015104,000181: 21,6152 30143 CADR IMUFINE
015105,000182:
015106,000183: 21,6153 02677 TC READTIME
015107,000184: 21,6154 40572 CS RUPTSTOR
015108,000185: 21,6155 51370 TS PREVTIME
015109,000186: 21,6156 40573 CS RUPTSTOR +1
015110,000187: 21,6157 51371 TS PREVTIME +1
015111,000188: 21,6160 20016 RELINT
015112,000189:
015113,000190: 21,6161 05654 TC BANKCALL # SLEEP
015114,000191: 21,6162 30331 CADR IMUSTALL
015115,000192: 21,6163 06760 TC PRELEXIT
015116,000193:
015117,000194:
015118,000195:
015119,000196: 21,6164 02362 TC NEWMODE # SET MAJOR MODE TO VERTICAL ERECTION
015120,000197: 21,6165 00005 OCT 5 # (COUNTING)
015121,000198:
015122,000199: 21,6166 35501 CAF ZERO
015123,000200: 21,6167 51332 TS INFLANG
015124,000201: 21,6170 51333 TS INFLANG +1
015125,000202: 21,6171 51334 TS INFLANG +2
015126,000203: 21,6172 51335 TS INFLANG +3
015127,000204: 21,6173 51336 TS INFLANG +4
015128,000205: 21,6174 51337 TS INFLANG +5
015129,000206: 21,6175 50045 TS PIPAY # SET ALL PIPAS TO ZERO
015130,000207: 21,6176 50046 TS PIPAZ
015131,000208: 21,6177 50044 TS PIPAX
015132,000209:
015133,000210: 21,6200 33516 CAF NINE
015134,000211: 21,6201 51321 TS PRELTEMP
015135,000212:
015136,000213: 21,6202 37023 CAF PLPIPADT # SET UP DELTA TIME FOR IMU COMPENSATION.
015137,000214: 21,6203 50755 TS 1/PIPADT
015138,000215: 21,6204 20017 INHINT
015139,000216: 21,6205 37014 CAF PRELDT # SET WAITLIST TO WAKE JOB
015140,000217: 21,6206 02173 TC WAITLIST
015141,000218: 21,6207 42211 CADR PRELALTS
015142,000219:
015143,000220: 21,6210 02124 TC ENDOFJOB
015144,000221:
015145,000222:
015146,000223: # PRELAUNCH WAITLIST TASK - EXECUTED EVERY .5 SEC. IN LOOP.
015147,000224:
015148,000225: 21,6211 36264 PRELALTS CAF PIPCAD21
015149,000226: 21,6212 05750 TC ISWCALL
015150,000227:
015151,000228: 21,6213 33530 CAF TWENTY0
015152,000229: 21,6214 02312 TC NEWPHASE
015153,000230: 21,6215 00003 OCT 3
015154,000231:
015155,000232: 21,6216 40036 REDO3.20 CS TIME1
015156,000233: 21,6217 50665 TS TBASE3
015157,000234:
015158,000235: 21,6220 35503 CAF TWO
015159,000236: 21,6221 51035 TS PIPAGE
015160,000237:
015161,000238: 21,6222 30006 XCH IN2 # TEST IN2 FOR GRR OR LIFT-OFF
015162,000239: 21,6223 30006 XCH IN2
015163,000240: 21,6224 77031 MASK BITS56
015164,000241: 21,6225 10000 CCS A
015165,000242: 21,6226 06242 TC PRELTERM
015166,000243:
015167,000244: 21,6227 34515 CAF BIT2 # CHECK IF LIFT-OFF HAS OCCURRED
015168,000245: 21,6230 70646 MASK FLAGWRD1
015169,000246: 21,6231 10000 CCS A
015170,000247: 21,6232 06242 TC PRELTERM # IT HAS. TERMINATE PRELAUNCH
015171,000248:
015172,000249: 21,6233 37014 CAF PRELDT # SELF-SUSTAINING WAITLIST CALL
015173,000250: 21,6234 02173 TC WAITLIST
015174,000251: 21,6235 42211 CADR PRELALTS
015175,000252:
015176,000253: 21,6236 34501 NOPLWAIT CAF PRIO20
015177,000254: 21,6237 02046 TC FINDVAC
015178,000255: 21,6240 42270 CADR PRAWAKE
015179,000256:
015180,000257: 21,6241 02256 TC TASKOVER # RESUME
015181,000258:
015182,000259: 21,6242 40573 PRELTERM CS RUPTSTOR +1 # N.B. READTIME IS DONE IN PIPASR ABOVE
015183,000260: 21,6243 51467 TS TIME1GR
015184,000261: 21,6244 40572 CS RUPTSTOR
015185,000262: 21,6245 51466 TS TIME2GR
015186,000263:
015187,000264: 21,6246 41467 CS TIME1GR
015188,000265: 21,6247 50667 TS TBASE5
015189,000266:
015190,000267: 21,6250 34516 CAF ONE
015191,000268: 21,6251 02312 TC NEWPHASE
015192,000269: 21,6252 00005 OCT 00005
015193,000270:
015194,000271: 21,6253 10000 CCS A
015195,000272: 21,6254 06236 TC NOPLWAIT
015196,000273: 21,6255 06256 TC +1
015197,000274:
015198,000275: 21,6256 37026 CAF 2SEC21 # CALL READACCS IN 2 SECS
015199,000276: 21,6257 02173 TC WAITLIST
015200,000277: 21,6260 65344 CADR READACCS
015201,000278:
015202,000279: 21,6261 06236 TC NOPLWAIT
015203,000280:
015204,000281: 21,6262 36265 REPRELAL CAF REPIP21
015205,000282: 21,6263 06212 TC PRELALTS +1
015206,000283:
015207,000284: 21,6264 61307 PIPCAD21 CADR PIPASR
015208,000285: 21,6265 61360 REPIP21 CADR REPIPASR
015209,000286:
015210,000287:
015211,000288: 21,6266 07233 REDO3.21 TC PRLRSTOR
015212,000289: 21,6267 06301 TC RE3.21
015213,000290:
015214,000291: 21,6270 07204 PRAWAKE TC PRLSAVE
015215,000292:
015216,000293: 21,6271 10654 CCS PHASE5 # CHECK IF GRR HAS OCCURED.
015217,000294: 21,6272 33527 CAF NINETEEN # 3.19 RESTART.
015218,000295: 21,6273 06275 TC +2
015219,000296: 21,6274 33531 CAF TWENTY1 # 3.21 RESTART.
015220,000297: 21,6275 02312 TC NEWPHASE
015221,000298: 21,6276 00003 OCT 3
015222,000299:
015223,000300: 21,6277 05654 TC BANKCALL
015224,000301: 21,6300 31007 CADR 1/PIPA
015225,000302:
015226,000303: 21,6301 04000 RE3.21 TC INTPRET
015227,000304:
015228,000305: 21,6302 43176 SMOVE 0 # ZERO TO THEAT-SOUTH
015229,000306: 21,6303 03017 ZEROPR
015230,000307: 21,6304 33455 STORE THETASTH
015231,000308:
015232,000309: 21,6305 47576 NOLOD 0
015233,000310: 21,6306 33457 STORE THETAE # ZERO TO THETA EAST
015234,000311:
015235,000312: 21,6307 76575 RTB 1
015236,000313: 21,6310 57176 SIN
015237,000314: 21,6311 20270 ZEROVAC
015238,000315: 21,6312 01315 LATITUDE
015239,000316: 21,6313 32043 STORE SINLAM
015240,000317:
015241,000318: 21,6314 55176 COS 0
015242,000319: 21,6315 01315 LATITUDE
015243,000320: 21,6316 32045 STORE COSLAM
015244,000321:
015245,000322: 21,6317 43175 SMOVE 1
015246,000323: 21,6320 66776 DSU
015247,000324: 21,6321 03013 90DEGAZ
015248,000325: 21,6322 01317 AZIMUTH
015249,000326:
015250,000327: 21,6323 57176 SIN 0
015251,000328: 21,6324 00001 0
015252,000329: 21,6325 32003 STORE SINAZ
015253,000330:
015254,000331: 21,6326 55176 COS 0
015255,000332: 21,6327 32005 STORE COSAZ
015256,000333:
015257,000334: 21,6330 77576 EXIT 0
015258,000335:
015259,000336: 21,6331 10654 CCS PHASE5 # CHECK IF GRR HAS OCCURRED
015260,000337: 21,6332 07044 TC PRELTER1
015261,000338: 21,6333 06334 TC +1
015262,000339:
015263,000340: 21,6334 02346 TC CHECKMM # CHECK IF VERTICAL ERECTION (UNCONDIT.)
015264,000341: 21,6335 00005 OCT 5
015265,000342: 21,6336 06340 TC +2
015266,000343: 21,6337 06463 TC NOGYROCM
015267,000344:
015268,000345: 21,6340 02346 TC CHECKMM # CHECK IF VERTICAL ERECTION (UNCONDIT.)
015269,000346: 21,6341 00006 OCT 6
015270,000347: 21,6342 06344 TC +2
015271,000348: 21,6343 06471 TC TJL
015272,000349:
015273,000350: 21,6344 02346 DOGYROC TC CHECKMM # CHECK IF OPTICAL VERIFICATION
015274,000351: 21,6345 00003 OCT 3
015275,000352: 21,6346 06356 TC DOGYROC1
015276,000353:
015277,000354: 21,6347 11325 CCS WTRWD
015278,000355: 21,6350 06353 TC +3
015279,000356: 21,6351 06353 TC +2
015280,000357: 21,6352 06360 TC DOGYROC2
015281,000358:
015282,000359: 21,6353 04000 JSTERTHR TC INTPRET
015283,000360:
015284,000361: 21,6354 76776 ITC 0
015285,000362: 21,6355 02364 EARTHRR
015286,000363:
015287,000364: 21,6356 02362 DOGYROC1 TC NEWMODE
015288,000365: 21,6357 00002 OCT 2
015289,000366:
015290,000367: 21,6360 04000 DOGYROC2 TC INTPRET
015291,000368:
015292,000369: 21,6361 76776 ITC 0
015293,000370: 21,6362 02607 GYROCOM
015294,000371:
015295,000372: 21,6363 76776 EARTHRR ITC 0
015296,000373: 21,6364 02527 EARTHRAT
015297,000374:
015298,000375: 21,6365 45176 ENDOFPR DMOVE 0
015299,000376: 21,6366 01465 PIPTIME
015300,000377: 21,6367 33371 STORE PREVTIME
015301,000378:
015302,000379: 21,6370 77576 EXIT 0
015303,000380:
015304,000381: 21,6371 11321 CCS PRELTEMP
015305,000382: 21,6372 06450 TC JUMPY
015306,000383:
015307,000384: 21,6373 10764 CCS LGYRO # IF BUSY GO AROUND LOOP AGAIN
015308,000385: 21,6374 06451 TC JUMPY +1 # WAIT TIL NEXT TIME. PRELTEM = 0 STILL.
015309,000386:
015310,000387: 21,6375 11325 PTORQUE CCS WTRWD
015311,000388: 21,6376 06403 TC PTORQUE1
015312,000389: 21,6377 06401 TC +2
015313,000390: 21,6400 06403 TC PTORQUE1
015314,000391: 21,6401 34335 CAF NEG1
015315,000392: 21,6402 51325 TS WTRWD
015316,000393:
015317,000394: 21,6403 35501 PTORQUE1 CAF ZERO # INITIALIZE TORQUING REGISTERS AND RESET
015318,000395: 21,6404 31452 XCH THETAX
015319,000396: 21,6405 61333 AD INFLANG +1
015320,000397: 21,6406 51341 TS GYROANG +1
015321,000398: 21,6407 35501 CAF ZERO
015322,000399: 21,6410 61332 AD INFLANG
015323,000400: 21,6411 51340 TS GYROANG
015324,000401:
015325,000402:
015326,000403:
015327,000404: 21,6412 35501 CAF ZERO
015328,000405: 21,6413 31446 XCH THETAY
015329,000406: 21,6414 61335 AD INFLANG +3
015330,000407: 21,6415 51343 TS GYROANG +3
015331,000408: 21,6416 35501 CAF ZERO
015332,000409: 21,6417 61334 AD INFLANG +2
015333,000410: 21,6420 51342 TS GYROANG +2
015334,000411:
015335,000412: 21,6421 35501 CAF ZERO
015336,000413: 21,6422 31450 XCH THETAZ
015337,000414: 21,6423 61337 AD INFLANG +5
015338,000415: 21,6424 51345 TS GYROANG +5
015339,000416: 21,6425 35501 CAF ZERO
015340,000417: 21,6426 61336 AD INFLANG +4
015341,000418: 21,6427 51344 TS GYROANG +4
015342,000419:
015343,000420: 21,6430 35501 CAF ZERO
015344,000421: 21,6431 51332 TS INFLANG
015345,000422: 21,6432 51333 TS INFLANG +1
015346,000423: 21,6433 51334 TS INFLANG +2
015347,000424: 21,6434 51335 TS INFLANG +3
015348,000425: 21,6435 51336 TS INFLANG +4
015349,000426: 21,6436 51337 TS INFLANG +5
015350,000427:
015351,000428: 21,6437 33516 CAF NINE
015352,000429: 21,6440 51321 TS PRELTEMP
015353,000430:
015354,000431: 21,6441 02276 TC PHASCHNG
015355,000432: 21,6442 02603 OCT 02603
015356,000433:
015357,000434: 21,6443 20017 INHINT # SET UP TORQUING JOB
015358,000435: 21,6444 32162 CAF PRIO27
015359,000436: 21,6445 02052 TC NOVAC
015360,000437: 21,6446 42454 CADR SPITGYRO
015361,000438: 21,6447 02124 TC ENDOFJOB
015362,000439:
015363,000440: 21,6450 51321 JUMPY TS PRELTEMP
015364,000441:
015365,000442: 21,6451 02276 TC PHASCHNG
015366,000443: 21,6452 02603 OCT 02603
015367,000444:
015368,000445: 21,6453 02124 TC ENDOFJOB
015369,000446:
015370,000447:
015371,000448:
015372,000449: 21,6454 37042 SPITGYRO CAF LGYROANG
015373,000450: 21,6455 05654 TC BANKCALL
015374,000451: 21,6456 31421 CADR GYRODPNT
015375,000452:
015376,000453: 21,6457 05654 TC BANKCALL
015377,000454: 21,6460 30331 CADR IMUSTALL
015378,000455: 21,6461 02124 TC ENDOFJOB
015379,000456: 21,6462 02124 TC ENDOFJOB
015380,000457:
015381,000458:
015382,000459: # VERTICAL ERECTION PROCEDURES.
015383,000460:
015384,000461: 21,6463 11320 NOGYROCM CCS GYROCSW # COUNT DOWN FOR 5 MIN OF VERTICAL ERECT.
015385,000462: 21,6464 06470 TC MORE # IF MORE TO COME.
015386,000463: 21,6465 02362 TC NEWMODE # IF NOT, GO INTO GYROCOMP. (MM 02)
015387,000464: 21,6466 00002 OCT 2
015388,000465:
015389,000466: 21,6467 06471 TC +2
015390,000467:
015391,000468: 21,6470 51320 MORE TS GYROCSW
015392,000469:
015393,000470: 21,6471 04000 TJL TC INTPRET
015394,000471:
015395,000472: 21,6472 76776 ITC 0
015396,000473: 21,6473 02527 EARTHRAT
015397,000474:
015398,000475: 21,6474 66775 DSU 1
015399,000476: 21,6475 64742 DMP DAD
015400,000477: 21,6476 01004 DELVY
015401,000478: 21,6477 01363 FILDELY
015402,000479: 21,6500 02777 VERECTC3
015403,000480: 21,6501 01363 FILDELY
015404,000481: 21,6502 33363 STORE FILDELY
015405,000482:
015406,000483: 21,6503 53575 AXC,1 1
015407,000484: 21,6504 52572 AXC,2 ITC
015408,000485: 21,6505 00003 2
015409,000486: 21,6506 00001 0
015410,000487: 21,6507 02673 VERECT
015411,000488:
015412,000489: 21,6510 66775 DSU 1
015413,000490: 21,6511 64742 DMP DAD
015414,000491: 21,6512 01006 DELVZ
015415,000492: 21,6513 01361 FILDELZ
015416,000493: 21,6514 02777 VERECTC3
015417,000494: 21,6515 01361 FILDELZ
015418,000495: 21,6516 33361 STORE FILDELZ
015419,000496:
015420,000497: 21,6517 53574 AXC,1 2
015421,000498: 21,6520 47433 NOLOD COMP
015422,000499: 21,6521 76776 ITC
015423,000500: 21,6522 00001 0
015424,000501: 21,6523 02673 VERECT
015425,000502:
015426,000503: 21,6524 76776 ITC 0
015427,000504: 21,6525 02366 ENDOFPR
015428,000505:
015429,000506:
015430,000507: # CALCULATION OF EARTH RATE
015431,000508:
015432,000509: 21,6526 66775 EARTHRAT DSU 1
015433,000510: 21,6527 63666 TSLT DMPR
015434,000511: 21,6530 01465 PIPTIME
015435,000512: 21,6531 01371 PREVTIME
015436,000513: 21,6532 00014 11D
015437,000514: 21,6533 03022 GOMEGA
015438,000515:
015439,000516: 21,6534 64775 DMP 1 # SIN(LAMBDE).DT.LENGTH OMEGA + THETA X
015440,000517: 21,6535 63742 TSLT DAD
015441,000518: 21,6536 00001 0
015442,000519: 21,6537 00043 SINLAM
015443,000520: 21,6540 00002 1
015444,000521: 21,6541 01453 THETAX
015445,000522: 21,6542 33453 STORE THETAX
015446,000523:
015447,000524: 21,6543 64775 DMP 1 # -COS(LAMBDA).DT.LENGTH OMEGA + THETA STH
015448,000525: 21,6544 63726 TSLT BDSU
015449,000526: 21,6545 77777 -
015450,000527: 21,6546 00045 COSLAM
015451,000528: 21,6547 00002 1
015452,000529: 21,6550 01455 THETASTH
015453,000530: 21,6551 33455 STORE THETASTH
015454,000531:
015455,000532: 21,6552 64775 DMP 1 # COS(AZIMUTH). SOUTH COMPONENT
015456,000533: 21,6553 63776 TSLT
015457,000534: 21,6554 01455 THETASTH # TO P.D. LIST
015458,000535: 21,6555 00005 COSAZ
015459,000536: 21,6556 00002 1
015460,000537:
015461,000538: 21,6557 64774 DMP 2 # Y COMPONENT = SIN(AZIMUTH).EAST COMP
015462,000539: 21,6560 63742 TSLT DAD # + COS(AZIMUTH). SOUTH
015463,000540: 21,6561 70776 DAD
015464,000541: 21,6562 01457 THETAE # COMP
015465,000542: 21,6563 00003 SINAZ
015466,000543: 21,6564 00002 1
015467,000544: 21,6565 01447 THETAY
015468,000545: 21,6566 33447 STORE THETAY
015469,000546:
015470,000547: 21,6567 64775 DMP 1 # SIN(AZIMUTH). SOUTH COMPONENT
015471,000548: 21,6570 63776 TSLT
015472,000549: 21,6571 00003 SINAZ # TO P.D. LIST
015473,000550: 21,6572 01455 THETASTH
015474,000551:
015475,000552: 21,6573 00002 1
015476,000553: 21,6574 64774 DMP 2 # Z COMPONENT = COS(AZIMUTH.EAST COMP
015477,000554: 21,6575 63732 TSLT DSU
015478,000555: 21,6576 70776 DAD
015479,000556: 21,6577 00005 COSAZ # -SIN(AZIMUTH).SOUTH COMP
015480,000557: 21,6600 01457 THETAE
015481,000558: 21,6601 00002 1
015482,000559: 21,6602 77777 -
015483,000560: 21,6603 01451 THETAZ
015484,000561: 21,6604 33451 STORE THETAZ
015485,000562:
015486,000563: 21,6605 40576 ITCQ 0
015487,000564:
015488,000565:
015489,000566: # COMPUTATION OF GYROCOMPASS COMMAND
015490,000567:
015491,000568: 21,6606 45575 GYROCOM ITA 1
015492,000569: 21,6607 64716 DMP TSLT
015493,000570: 21,6610 00052 S2
015494,000571: 21,6611 01006 DELVZ
015495,000572: 21,6612 00005 COSAZ
015496,000573: 21,6613 00002 1
015497,000574:
015498,000575: 21,6614 64775 DMP 1 # DELTA-V(EAST)= COS(AZ).DELTA-V(Z)
015499,000576: 21,6615 63742 TSLT DAD
015500,000577: 21,6616 01004 DELVY
015501,000578: 21,6617 00003 SINAZ
015502,000579: 21,6620 00002 1
015503,000580: 21,6621 33361 STORE DELE
015504,000581:
015505,000582: 21,6622 53574 AXC,1 2
015506,000583: 21,6623 52435 AXC,2 NOLOD
015507,000584: 21,6624 47172 COMP ITC
015508,000585: 21,6625 00007 6
015509,000586: 21,6626 00003 2
015510,000587: 21,6627 02673 VERECT
015511,000588:
015512,000589: 21,6630 64775 DMP 1 # SIN(AZ).DELTA-V(Z)
015513,000590: 21,6631 63776 TSLT
015514,000591: 21,6632 01006 DELVZ
015515,000592: 21,6633 00003 SINAZ
015516,000593: 21,6634 00002 1
015517,000594:
015518,000595: 21,6635 64775 DMP 1 # DELTA-V(SOUTH= COS(AZ.DELTA-V(Y)
015519,000596: 21,6636 63732 TSLT DSU
015520,000597: 21,6637 01004 DELVY
015521,000598: 21,6640 00005 COSAZ
015522,000599: 21,6641 00002 1
015523,000600: 21,6642 33363 STORE DELS
015524,000601:
015525,000602: 21,6643 64776 DMP 0
015526,000603: 21,6644 01363 DELS # C1. DELTA-V(SOUTH) TO P.D. LIST
015527,000604: 21,6645 03001 GYRCMC1
015528,000605:
015529,000606: 21,6646 64775 DMP 1 # FILTER = C1. DELTA-V(SOUTH)
015530,000607: 21,6647 70776 DAD # +C2. FILTER
015531,000608: 21,6650 01357 FILTER
015532,000609: 21,6651 03003 GYRCMC2
015533,000610: 21,6652 33357 STORE FILTER
015534,000611:
015535,000612: 21,6653 47574 NOLOD 2
015536,000613: 21,6654 64716 DMP TSLT
015537,000614: 21,6655 70776 DAD
015538,000615: 21,6656 03005 GYRCMC3
015539,000616: 21,6657 00010 7
015540,000617: 21,6660 01453 THETAX
015541,000618: 21,6661 33453 STORE THETAX
015542,000619:
015543,000620: 21,6662 64775 DMP 1 # EAST-TORQUING ANGLE = C4.FILTER
015544,000621: 21,6663 63776 TSLT
015545,000622: 21,6664 01363 DELS
015546,000623: 21,6665 03007 GYRCMC4
015547,000624: 21,6666 00004 3
015548,000625: 21,6667 33457 STORE THETAE
015549,000626:
015550,000627: 21,6670 44576 ITCI 0
015551,000628: 21,6671 00052 S2
015552,000629:
015553,000630:
015554,000631: # VERTICAL ERECTION SUBROUTINE
015555,000632:
015556,000633: # VERECT - VERTICAL ERECTION ENTERED IN INT. MODE WITH
015557,000634: # SUBROUTINE C(X1)= 2 FOR C(MPAC)= DEL-V Y
015558,000635: # = 0 C(MPAC)=-DEL-V Z
015559,000636: # = 6 FOR C(MPAC)=-DEL-V E
015560,000637: # FOR THESE THREE CASES OUTPUT WILL BE
015561,000638: # THETA-Z
015562,000639: # THETA-Y
015563,000640: # THETA-S RESPECTIVELY.
015564,000641: # LOOP CONSTANTS ARE DETERMINED BY
015565,000642: # C(X2)= 0 NO GYROCOMPASSING
015566,000643: # 2 GYROCOMPASSING
015567,000644:
015568,000645:
015569,000646:
015570,000647: 21,6672 47576 VERECT NOLOD 0
015571,000648:
015572,000649: 21,6673 32001 STORE 0
015573,000650:
015574,000651: 21,6674 47575 NOLOD 1
015575,000652: 21,6675 70376 DAD*
015576,000653: 21,6676 02751 INT,1 # COMPUTE INTEGRAL OF DEL-V = INT
015577,000654: 21,6677 36751 STORE INT,1
015578,000655:
015579,000656: 21,6700 45175 DMOVE 1
015580,000657: 21,6701 64316 DMP* TSLT
015581,000658: 21,6702 00001 0
015582,000659: 21,6703 05756 VERECTC1,2
015583,000660: 21,6704 00006 5
015584,000661:
015585,000662: 21,6705 64375 DMP* 1
015586,000663: 21,6706 70342 DAD* DAD
015587,000664: 21,6707 02751 INT,1 # THETA = THETA + C1 DEL-V + C2 INT
015588,000665: 21,6710 05766 VERECTC2,2
015589,000666: 21,6711 03115 THETAY,1
015590,000667: 21,6712 37115 STORE THETAY,1
015591,000668:
015592,000669: 21,6713 40576 ITCQ 0
015593,000670:
015594,000671:
015595,000672: # PRELAUNCH MANUAL REQUEST PROCESSOR.
015596,000673:
015597,000674: 21,6714 34501 STARTPL CAF PRIO20 # ENTER EXECUTIVE REQUEST ON START-UP.
015598,000675: 21,6715 02046 TC FINDVAC
015599,000676: 21,6716 42147 CADR STARTPL2
015600,000677: 21,6717 05702 TC SWRETURN
015601,000678:
015602,000679: 21,6720 44513 PLSTCHK CS EIGHT # PRELAUNCH COMES HERE WHENEVER A PHASE
015603,000680: 21,6721 60115 AD MPAC # REFERENCE IS MADE TO SEE IF A MANUAL
015604,000681: 21,6722 10000 CCS A # REQUEST HAS BEEN ENTERED THROUGH MASTER
015605,000682: 21,6723 00001 TC Q # CONTROL. ALL SUCH PHASES ARE LESS THAN 8
015606,000683: 21,6724 24000 PLPRIO OCT 24000
015607,000684: 21,6725 06726 TC +1
015608,000685:
015609,000686: 21,6726 20115 INDEX MPAC # SEE WHICH MANUAL MODE REQUESTED.
015610,000687: 21,6727 06727 TC +0
015611,000688: 21,6730 06000 TC TOP1 # 1 - INITIALIZATION 1.
015612,000689: 21,6731 06100 TC TOP2 # 2 - INITIALIZATION 2.
015613,000690: 21,6732 07262 TC OPTCHK # 3 - DO OPTICAL CHECK
015614,000691:
015615,000692: 21,6733 10727 PLFINCHK CCS WASKSET # SEE IF IN FINE ALIGN.
015616,000693: 21,6734 06740 TC 3CHECK
015617,000694: 21,6735 06760 TC PRELEXIT # SYSTEM IN BAD SHAPE.
015618,000695: 21,6736 06745 TC DOPLCHNG # DO THE CHANGE ANYWAY.
015619,000696: 21,6737 06760 TC PRELEXIT # SYSTEM IN BAD SHAPE.
015620,000697:
015621,000698: 21,6740 66743 3CHECK AD -CCSFINE
015622,000699: 21,6741 10000 CCS A
015623,000700: 21,6742 06000 TC TOP1
015624,000701: 21,6743 77730 -CCSFINE OCT -47 # WASKSET IS 50 FOR FINE ALIGN.
015625,000702: 21,6744 06000 TC TOP1
015626,000703:
015627,000704: 21,6745 20115 DOPLCHNG INDEX MPAC
015628,000705: 21,6746 06744 TC -2
015629,000706: 21,6747 06753 TC DOPL14
015630,000707:
015631,000708: 21,6750 02362 DOPL15 TC NEWMODE # SET MAJOR MODE TO GYROCOMPASSING
015632,000709: 21,6751 00002 OCT 2
015633,000710:
015634,000711: 21,6752 06344 TC DOGYROC
015635,000712:
015636,000713: 21,6753 02362 DOPL14 TC NEWMODE # SET MAJOR MODE TO UNCONDITIONAL VERT-
015637,000714: 21,6754 00006 OCT 6 # ICAL ERECTION
015638,000715:
015639,000716: 21,6755 06471 TC TJL
015640,000717:
015641,000718:
015642,000719: # PRELAUNCH GO-SEQUENCE PROCESSOR.
015643,000720:
015644,000721: # HAS BEEN DELETED. SEE GENERAL RESTARTS. ...DJL
015645,000722:
015646,000723: 21,6756 00050 FINECODE OCT 50 # FINE ALIGN AND COMPUTER CONTROL.
015647,000724:
015648,000725: # PRELAUNCH TERMINATION.
015649,000726:
015650,000727: 21,6757 03370 TC FREEDSP
015651,000728: 21,6760 05654 PRELEXIT TC BANKCALL # RETURN IMU TO MANUAL CONTROL.
015652,000729: 21,6761 30241 CADR IMUFINIS
015653,000730:
015654,000731: 21,6762 44516 ENDJ3OUT CS ONE
015655,000732: 21,6763 02312 TC NEWPHASE
015656,000733: 21,6764 00003 OCT 3
015657,000734:
015658,000735: 21,6765 02124 TC ENDOFJOB
015659,000736:
015660,000737:
015661,000738: # PRELAUNCH BANK STORED CONSTANTS
015662,000739:
015663,000740: 21,6766 24000 00000 VERECTC1 2DEC 20. B-5 # VERTICAL LOOP CONSTANTS
015664,000741: 21,6770 02000 00000 2DEC 2 B-5
015665,000742: 21,6772 14631 23146 VERECTC2 2DEC .4
015666,000743: 21,6774 00101 21116 2DEC .004
015667,000744: 21,6776 03146 14632 VERECTC3 2DEC .1
015668,000745: 21,7000 03146 14632 GYRCMC1 2DEC 0.1
015669,000746: 21,7002 34631 23146 GYRCMC2 2DEC 0.9
015670,000747: 21,7004 56777 77777 GYRCMC3 2DEC -68 B-7
015671,000748: 21,7006 20000 00000 GYRCMC4 2DEC 4 B-3
015672,000749: 21,7010 03610 01227 LABLAT 2DEC .117678252 # LATITUDE OF IL-7
015673,000750: 21,7012 10000 00000 90DEGAZ 2DEC .25 # 90 DEG. FROM NORTH = EAST
015674,000751: 21,7014 00062 PRELDT DEC .5 E2 # HALF SECOND PRELAUNCH CYCLE
015675,000752:
015676,000753: 21,7015 42270 WAKEPRAD CADR PRAWAKE # WAKING ADDRESS FOR PRELAUNCH
015677,000754:
015678,000755: 21,7016 00000 ZEROPR OCT 0 # OUR OWN PERSONAL COPY OF ZERO
015679,000756:
015680,000757: 21,7017 03711 33265 LOMEGA 2DEC .12169524 # EARTH RATE IN IRIG PULSES PER .01 SEC.
015681,000758: 21,7021 37116 32652 GOMEGA 2DEC 0.97356192 # EARTH RATE IN IRIG PULSES/CS
015682,000759: 21,7023 06200 PLPIPADT DEC 50 B+6
015683,000760: 21,7024 77746 -.25SC21 DEC -25 B-14
015684,000761: 21,7025 77715 NEG.5SEC DEC -50 B-14
015685,000762:
015686,000763: 21,7026 00310 2SEC21 DEC 200 B-14
015687,000764: 21,7027 00000 00372 DP2.5SEC 2DEC 250 B-28
015688,000765: 21,7031 00060 BITS56 DEC 48 B-14
015689,000766: 21,7032 37116 32666 SIDEDAYS 2DEC* .011605763 E-5 B23* # FRACTION OF T2-T1 IN SIDEREAL DAY
015690,000767: 21,7034 13644 33772 LOCALUP 2DEC .738876298 B-1
015691,000768: 21,7036 00000 00000 2DEC .0 # VECTOR AT TIME C(T2,T1) = 0
015692,000769: 21,7040 12620 03315 2DEC .673841098 B-1
015693,000770: 21,7042 01340 LGYROANG ADRES GYROANG
015694,000771: 21,7043 00011 IX DEC 9 B-14
015695,000772:
015696,000773:
015697,000774: # PRELAUNCH TERMINATION PHASE(AFTER G.R. SIGNAL)
015698,000775:
015699,000776:
015700,000777:
015701,000778: 21,7044 04000 PRELTER1 TC INTPRET
015702,000779:
015703,000780: 21,7045 70776 DAD 0
015704,000781: 21,7046 01371 PREVTIME
015705,000782: 21,7047 03030 DP2.5SEC
015706,000783: 21,7050 33371 STORE PREVTIME
015707,000784:
015708,000785: 21,7051 76776 ITC 0
015709,000786: 21,7052 02527 EARTHRAT # CHANGED BY MR. FIXIT.
015710,000787:
015711,000788: 21,7053 77576 EXIT 0
015712,000789:
015713,000790: 21,7054 35501 CAF ZERO
015714,000791: 21,7055 51340 TS GYROANG
015715,000792: 21,7056 51342 TS GYROANG +2
015716,000793: 21,7057 51344 TS GYROANG +4
015717,000794:
015718,000795: 21,7060 31452 XCH THETAX
015719,000796: 21,7061 51341 TS GYROANG +1
015720,000797: 21,7062 31446 XCH THETAY
015721,000798: 21,7063 51343 TS GYROANG +3
015722,000799: 21,7064 31450 XCH THETAZ
015723,000800: 21,7065 51345 TS GYROANG +5
015724,000801:
015725,000802: 21,7066 20017 INHINT
015726,000803: 21,7067 32164 CAF PRIO31 # CHANGED BY MR. FIXIT.
015727,000804: 21,7070 02052 TC NOVAC
015728,000805: 21,7071 42454 CADR SPITGYRO
015729,000806: 21,7072 20016 RELINT
015730,000807:
015731,000808: 21,7073 02362 TC NEWMODE
015732,000809: 21,7074 00004 OCT 04 # INERTIAL REFERENCE.
015733,000810:
015734,000811: 21,7075 04000 TC INTPRET
015735,000812:
015736,000813: 21,7076 70776 DAD 0 # FORM TIME SINCE LAUNCH VECTOR IN
015737,000814: 21,7077 01074 DTEPOCH # INERTIAL Z-X PLANE
015738,000815: 21,7100 01467 TIME2GR
015739,000816: 21,7101 33145 STORE DTEAROT
015740,000817:
015741,000818: 21,7102 76776 ITC 0 # BRANCH TO FORCE WT TO LESS THAN 1 REV
015742,000819: 21,7103 13554 EARROT2
015743,000820:
015744,000821: 21,7104 57176 SIN 0 # FORM INERTIAL Z-X PLANE LOCAL VERTICAL
015745,000822: 21,7105 01315 LATITUDE
015746,000823: 21,7106 45176 DMOVE 0
015747,000824: 21,7107 05174 ZERODP
015748,000825:
015749,000826: 21,7110 55175 COS 1
015750,000827: 21,7111 41176 VDEF
015751,000828: 21,7112 01315 LATITUDE
015752,000829: 21,7113 32041 STORE VAC
015753,000830:
015754,000831: 21,7114 43576 TEST 0 # TEST IF BIT IS ON. IF NOT SET IT ON
015755,000832: 21,7115 00006 NBSMBIT
015756,000833: 21,7116 03177 NBITON
015757,000834:
015758,000835: 21,7117 75575 ROTXY AXT,1 1 # ROTATE PROJECTION OF LOCAL VERTICAL ON
015759,000836: 21,7120 74572 AXT,2 ITC # INERTIAL X-Y PLANE ABOUT Z-AXIS
015760,000837: 21,7121 00003 2
015761,000838: 21,7122 00005 4
015762,000839: 21,7123 04566 ACCUROT
015763,000840:
015764,000841: 21,7124 47576 NOLOD 0
015765,000842: 21,7125 33052 STORE REFSMMAT # PRESENT LOCAL VERTICAL VECTOR IS X-AXIS
015766,000843:
015767,000844: 21,7126 45176 DMOVE 0
015768,000845: 21,7127 05174 ZERODP
015769,000846:
015770,000847: 21,7130 45176 DMOVE 0
015771,000848: 21,7131 00041 VAC
015772,000849:
015773,000850: 21,7132 47175 COMP 1 # FORM UNIT EAST VECTOR AT GRR
015774,000851: 21,7133 41153 VDEF UNIT
015775,000852: 21,7134 00043 VAC +2
015776,000853:
015777,000854: 21,7135 47575 NOLOD 1 # FORM UNIT SOUTH VECTOR
015778,000855: 21,7136 41753 VXV UNIT
015779,000856: 21,7137 01052 REFSMMAT
015780,000857:
015781,000858: 21,7140 66776 DSU 0 # FORM AZIMUTH SOUTH OF EAST AT GRR
015782,000859: 21,7141 01317 AZIMUTH
015783,000860: 21,7142 03013 90DEGAZ
015784,000861: 21,7143 32037 STORE 30D
015785,000862:
015786,000863: 21,7144 47575 NOLOD 1
015787,000864: 21,7145 57166 SIN VXSC
015788,000865: 21,7146 33066 STORE REFSMMAT +12D # (TEMPORARY STORAGE)
015789,000866:
015790,000867: 21,7147 55174 COS 2 # FORM SM Z-AXIS
015791,000868: 21,7150 75642 VXSC VAD
015792,000869: 21,7151 73176 UNIT
015793,000870: 21,7152 00037 30D
015794,000871: 21,7153 77777 -
015795,000872: 21,7154 01066 REFSMMAT +12D
015796,000873: 21,7155 33066 STORE REFSMMAT +12D
015797,000874:
015798,000875: 21,7156 47575 NOLOD 1 # FORM SM Y-AXIS BY CROSS PRODUCT
015799,000876: 21,7157 41753 VXV UNIT
015800,000877: 21,7160 01052 REFSMMAT
015801,000878: 21,7161 33060 STORE REFSMMAT +6
015802,000879:
015803,000880: 21,7162 41775 VXV 1 # INITIALISE VN, GRAVITY GIVEN RN, UNITW
015804,000881: 21,7163 75776 VXSC
015805,000882: 21,7164 01044 UNITW
015806,000883: 21,7165 00766 RN # SCALED AT 2(+25) METERS
015807,000884: 21,7166 03203 WIE
015808,000885: 21,7167 32774 STORE VN # SCALED AT 2(+7)M/CS
015809,000886:
015810,000887: 21,7170 75175 VMOVE 1
015811,000888: 21,7171 76776 ITC
015812,000889: 21,7172 00766 RN
015813,000890: 21,7173 21632 CALCGRAV
015814,000891:
015815,000892: 21,7174 77576 EXIT 0
015816,000893:
015817,000894: 21,7175 06762 TC ENDJ3OUT # TERMINATE PRELAUNCH. (PHASE = INACTIVE.)
015818,000895:
015819,000896:
015820,000897:
015821,000898: 21,7176 42575 NBITON SWITCH 1
015822,000899: 21,7177 76776 ITC
015823,000900: 21,7200 00006 NBSMBIT
015824,000901: 21,7201 03120 ROTXY
015825,000902:
015826,000903: 21,7202 06073 36042 WIE 2DEC* 7.29211505 E-7 B+18* # RAD/CS SCALED AT 2(-18)
015827,000904:
015828,000905:
015829,000906: 21,7204 30001 PRLSAVE XCH Q # SAVE CURRENT VARIABLES FOR RESTARTS
015830,000907: 21,7205 50116 TS MPAC +1
015831,000908:
015832,000909: 21,7206 33521 CAF THIRTEEN
015833,000910: 21,7207 50115 AGAIN1 TS MPAC
015834,000911: 21,7210 20115 INDEX MPAC
015835,000912: 21,7211 41356 CS FILTER
015836,000913: 21,7212 20115 INDEX MPAC
015837,000914: 21,7213 51243 TS PTEMP
015838,000915: 21,7214 10115 CCS MPAC
015839,000916: 21,7215 07207 TC AGAIN1
015840,000917:
015841,000918: 21,7216 33517 CAF ELEVEN
015842,000919: 21,7217 50115 AGAIN2 TS MPAC
015843,000920: 21,7220 20115 INDEX MPAC
015844,000921: 21,7221 41446 CS THETAY
015845,000922: 21,7222 20115 INDEX MPAC
015846,000923: 21,7223 51261 TS PTEMP +14D
015847,000924: 21,7224 10115 CCS MPAC
015848,000925: 21,7225 07217 TC AGAIN2
015849,000926:
015850,000927: 21,7226 41321 CS PRELTEMP
015851,000928: 21,7227 51275 TS PTEMP +26D
015852,000929: 21,7230 41320 CS GYROCSW
015853,000930: 21,7231 51276 TS PTEMP +27D
015854,000931:
015855,000932: 21,7232 00116 TC MPAC +1
015856,000933:
015857,000934: 21,7233 30001 PRLRSTOR XCH Q # RESTORE OLD VALUES OF VARIABLES
015858,000935: 21,7234 50116 TS MPAC +1
015859,000936:
015860,000937: 21,7235 33521 CAF THIRTEEN
015861,000938: 21,7236 50115 AGAIN3 TS MPAC
015862,000939: 21,7237 20115 INDEX MPAC
015863,000940: 21,7240 41243 CS PTEMP
015864,000941: 21,7241 20115 INDEX MPAC
015865,000942: 21,7242 51356 TS FILTER
015866,000943: 21,7243 10115 CCS MPAC
015867,000944: 21,7244 07236 TC AGAIN3
015868,000945:
015869,000946: 21,7245 33517 CAF ELEVEN
015870,000947: 21,7246 50115 AGAIN4 TS MPAC
015871,000948: 21,7247 20115 INDEX MPAC
015872,000949: 21,7250 41261 CS PTEMP +14D
015873,000950: 21,7251 20115 INDEX MPAC
015874,000951: 21,7252 51446 TS THETAY
015875,000952: 21,7253 10115 CCS MPAC
015876,000953: 21,7254 07246 TC AGAIN4
015877,000954:
015878,000955: 21,7255 41275 CS PTEMP +26D
015879,000956: 21,7256 51321 TS PRELTEMP
015880,000957: 21,7257 41276 CS PTEMP +27D
015881,000958: 21,7260 51320 TS GYROCSW
015882,000959:
015883,000960: 21,7261 00116 TC MPAC +1
015884,000961:
015885,000962:
015886,000963: # PRELAUNCH CHECK PROCEDURE (USES THE Z-NORTH SYSTEM OF AXES)
015887,000964:
015888,000965:
015889,000966:
015890,000967: 21,7262 20017 OPTCHK INHINT
015891,000968: 21,7263 32150 CAF PRIO14
015892,000969: 21,7264 02046 TC FINDVAC # CALL WITH PRIORITY OF TWENTY
015893,000970: 21,7265 43273 CADR CHKOPT
015894,000971:
015895,000972: 21,7266 34514 CAF BIT3
015896,000973: 21,7267 50115 TS MPAC
015897,000974: 21,7270 51325 TS WTRWD
015898,000975: 21,7271 06733 TC PLFINCHK
015899,000976: 21,7272 06360 TC DOGYROC2
015900,000977:
015901,000978: 21,7273 03310 CHKOPT TC GRABDSP
015902,000979: 21,7274 03316 TC PREGBSY
015903,000980:
015904,000981: 21,7275 02362 TC NEWMODE
015905,000982: 21,7276 00003 OCT 03
015906,000983:
015907,000984: 21,7277 35501 CAF ZERO
015908,000985: 21,7300 51400 TS STARS
015909,000986: 21,7301 64516 AD ONE
015910,000987: 21,7302 50620 TS DSPTEM1 +2
015911,000988: 21,7303 37553 CAF V06N30P
015912,000989: 21,7304 03106 TC NVSUB
015913,000990: 21,7305 03323 TC PRENVBSY
015914,000991: 21,7306 21400 INDEX STARS
015915,000992: 21,7307 31346 XCH TAZ
015916,000993: 21,7310 50616 TS DSPTEM1
015917,000994: 21,7311 21400 INDEX STARS
015918,000995: 21,7312 31350 XCH TEL
015919,000996: 21,7313 50617 TS DSPTEM1 +1
015920,000997:
015921,000998: 21,7314 07555 TC CHECKNV
015922,000999: 21,7315 00661 OCT 00661
015923,001000: 21,7316 07454 TC CHEXIT
015924,001001: 21,7317 30616 XCH DSPTEM1
015925,001002: 21,7320 21400 INDEX STARS
015926,001003: 21,7321 51346 TS TAZ
015927,001004: 21,7322 30617 XCH DSPTEM1 +1
015928,001005: 21,7323 21400 INDEX STARS
015929,001006: 21,7324 51350 TS TEL
015930,001007:
015931,001008: 21,7325 11400 CCS STARS
015932,001009: 21,7326 07331 TC +3
015933,001010: 21,7327 34516 CAF ONE
015934,001011: 21,7330 07300 TC CHKOPT +5
015935,001012: 21,7331 50620 TS DSPTEM1 +2
015936,001013: 21,7332 35503 CAF TWO
015937,001014: 21,7333 50617 TS DSPTEM1 +1
015938,001015: 21,7334 34516 CAF ONE
015939,001016: 21,7335 50616 TS DSPTEM1 # SETS UP STAR NUMBER DISPLAY
015940,001017:
015941,001018: 21,7336 37553 CAF V06N30P
015942,001019: 21,7337 03106 TC NVSUB
015943,001020: 21,7340 03323 TC PRENVBSY
015944,001021: 21,7341 35503 CAF TWO
015945,001022: 21,7342 05654 TC BANKCALL
015946,001023: 21,7343 30406 CADR SXTMARK
015947,001024: 21,7344 05654 TC BANKCALL
015948,001025: 21,7345 30327 CADR OPTSTALL
015949,001026: 21,7346 07454 TC CHEXIT
015950,001027: 21,7347 04000 TC INTPRET
015951,001028:
015952,001029: 21,7350 76776 ITC 0
015953,001030: 21,7351 03510 PROCTARG
015954,001031:
015955,001032: 21,7352 76776 ITC 0
015956,001033: 21,7353 03461 MAKEXSM # COMPUTE DESIRED SM ORIENTAYION IN REC
015957,001034:
015958,001035: 21,7354 52775 MXV 1
015959,001036: 21,7355 44776 VSLT
015960,001037: 21,7356 01403 TARGET1
015961,001038: 21,7357 01425 XSM
015962,001039: 21,7360 00002 1
015963,001040: 21,7361 33403 STORE STARAD
015964,001041: 21,7362 52775 MXV 1
015965,001042: 21,7363 44776 VSLT
015966,001043: 21,7364 01411 TARGET1 +6
015967,001044: 21,7365 01425 XSM
015968,001045: 21,7366 00002 1
015969,001046: 21,7367 33411 STORE STARAD +6
015970,001047:
015971,001048: 21,7370 71574 LXC,1 2
015972,001049: 21,7371 74471 AXT,2 XSU,2
015973,001050: 21,7372 66572 SXA,2 ITC
015974,001051: 21,7373 00736 MARKSTAT
015975,001052: 21,7374 00003 2
015976,001053: 21,7375 00047 X1
015977,001054: 21,7376 00051 S1
015978,001055: 21,7377 04733 SXTNB
015979,001056:
015980,001057: 21,7400 76776 ITC 0
015981,001058: 21,7401 04524 NBSM
015982,001059:
015983,001060: 21,7402 75176 VMOVE 0
015984,001061: 21,7403 00041 STARM
015985,001062: 21,7404 33375 STORE VECTEM
015986,001063: 21,7405 71574 LXC,1 2
015987,001064: 21,7406 63561 INCR,1 AXT,2
015988,001065: 21,7407 56531 XSU,2 SXA,2
015989,001066: 21,7410 00736 MARKSTAT
015990,001067: 21,7411 77771 -7
015991,001068: 21,7412 00003 2
015992,001069: 21,7413 00047 X1
015993,001070: 21,7414 00051 S1
015994,001071:
015995,001072: 21,7415 76776 ITC 0
015996,001073: 21,7416 04733 SXTNB
015997,001074:
015998,001075: 21,7417 76776 ITC 0
015999,001076: 21,7420 04524 NBSM
016000,001077:
016001,001078: 21,7421 75176 VMOVE 0
016002,001079: 21,7422 00041 STARM
016003,001080: 21,7423 32015 STORE 12D
016004,001081:
016005,001082: 21,7424 75176 VMOVE 0
016006,001083: 21,7425 01375 VECTEM
016007,001084: 21,7426 32007 STORE 6 # TO AVOID ERASABLE BIND
016008,001085:
016009,001086: 21,7427 76776 ITC 0 # FIND DESIRED SM IN PRESENT SM
016010,001087: 21,7430 04761 AXISGEN
016011,001088:
016012,001089: 21,7431 76776 ITC 0 # CALCULATE REQUIRED PULSE TORQUE IN GYROD
016013,001090: 21,7432 04353 CALCGTA
016014,001091:
016015,001092: 21,7433 45776 VSRT 0
016016,001093: 21,7434 01521 OGC
016017,001094: 21,7435 00011 8D
016018,001095: 21,7436 33521 STORE OGC # CHANGE UNITS FROM 2PI TO GYRO PULSES
016019,001096:
016020,001097: 21,7437 77576 EXIT 0
016021,001098:
016022,001099:
016023,001100:
016024,001101: 21,7440 05654 TC BANKCALL
016025,001102: 21,7441 30453 CADR MKRELEAS
016026,001103: 21,7442 07555 TC CHECKNV
016027,001104: 21,7443 00667 OCT 00667
016028,001105: 21,7444 07454 TC CHEXIT
016029,001106: 21,7445 04000 TC INTPRET
016030,001107:
016031,001108: 21,7446 75176 VMOVE 0
016032,001109: 21,7447 01521 OGC # GETS SUMMED INTO PRELAUNCH
016033,001110: 21,7450 33333 STORE INFLANG
016034,001111:
016035,001112: 21,7451 77576 EXIT 0
016036,001113:
016037,001114: 21,7452 35501 CAF ZERO
016038,001115: 21,7453 51325 TS WTRWD
016039,001116:
016040,001117: 21,7454 03370 CHEXIT TC FREEDSP
016041,001118: 21,7455 02362 TC NEWMODE
016042,001119: 21,7456 00002 OCT 02
016043,001120: 21,7457 02124 TC ENDOFJOB
016044,001121:
016045,001122:
016046,001123: # SUBROUTINE TO COMPUTE DESIRED SM AXES IN REC
016047,001124:
016048,001125: 21,7460 77576 MAKEXSM EXIT 0
016049,001126: 21,7461 37554 CAF XVII
016050,001127: 21,7462 50077 TS BUF
016051,001128: 21,7463 35501 CAF ZERO # ZERO ALL OF XSM
016052,001129: 21,7464 20077 INDEX BUF
016053,001130: 21,7465 51424 TS XSM
016054,001131: 21,7466 10077 CCS BUF
016055,001132: 21,7467 07462 TC MAKEXSM +2
016056,001133: 21,7470 34522 CAF HALF
016057,001134: 21,7471 51424 TS XSM # HALF UNIT MATRIX IS COMPUTED
016058,001135:
016059,001136: 21,7472 04000 TC INTPRET
016060,001137:
016061,001138: 21,7473 55176 COS 0
016062,001139: 21,7474 01317 AZIMUTH
016063,001140: 21,7475 33435 STORE XSM +8D
016064,001141:
016065,001142: 21,7476 47576 NOLOD 0
016066,001143: 21,7477 33445 STORE XSM +16D
016067,001144:
016068,001145: 21,7500 57176 SIN 0
016069,001146: 21,7501 01317 AZIMUTH
016070,001147: 21,7502 33443 STORE XSM +14D
016071,001148:
016072,001149: 21,7503 47176 COMP 0
016073,001150: 21,7504 01443 XSM +14D
016074,001151: 21,7505 33437 STORE XSM +10D
016075,001152:
016076,001153: 21,7506 40576 ITCQ 0
016077,001154:
016078,001155:
016079,001156: # ROUTINE TO CONVERT TARGET AZIMUTH AND ELEVATIONS TO VECTORS
016080,001157:
016081,001158:
016082,001159:
016083,001160: 21,7507 75575 PROCTARG AXT,1 1
016084,001161: 21,7510 74461 AXT,2 AST,2
016085,001162: 21,7511 00002 1
016086,001163: 21,7512 00015 12D
016087,001164: 21,7513 00007 6
016088,001165:
016089,001166: 21,7514 42175 PROC1 SMOVE* 1
016090,001167: 21,7515 56776 TSRT
016091,001168: 21,7516 02723 TEL +1,1
016092,001169: 21,7517 00003 2
016093,001170: 21,7520 32001 STORE 0
016094,001171:
016095,001172: 21,7521 57176 SIN 0
016096,001173: 21,7522 00001 0
016097,001174: 21,7523 37036 STORE TARGET1 +12D,2
016098,001175: 21,7524 55176 COS 0
016099,001176: 21,7525 00001 0 # PUSH DOWN THE COSINE OF ELEVATION
016100,001177:
016101,001178: 21,7526 42175 SMOVE* 1
016102,001179: 21,7527 76576 RTB
016103,001180: 21,7530 02717 TAZ +1,1
016104,001181: 21,7531 20303 CDULOGIC
016105,001182: 21,7532 32003 STORE 2 # THEN Y=0.5SIN(AZ)COS(EL)
016106,001183:
016107,001184: 21,7533 57175 SIN 1
016108,001185: 21,7534 64716 DMP TSLT
016109,001186: 21,7535 00003 2
016110,001187: 21,7536 00001 0
016111,001188: 21,7537 00002 1
016112,001189: 21,7540 37042 STORE TARGET1 +14D,2
016113,001190:
016114,001191: 21,7541 55175 COS 1
016115,001192: 21,7542 64716 DMP TSLT
016116,001193: 21,7543 00003 2
016117,001194: 21,7544 77777 -
016118,001195: 21,7545 00002 1
016119,001196: 21,7546 37046 STORE TARGET1 +16D,2
016120,001197: 21,7547 75575 AXT,1 1
016121,001198: 21,7550 50401 TIX,2 ITCQ
016122,001199: 21,7551 00001 0
016123,001200: 21,7552 03515 PROC1
016124,001201:
016125,001202:
016126,001203: # ROUTINE TO ROTATE COORDINATE SYSTEM BY EARTHRATE TIMES TIME ON
016127,001204:
016128,001205:
016129,001206:
016130,001207: 21,7553 00630 V06N30P OCTAL 00630
016131,001208: 21,7554 00021 XVII DEC 17 B-14
016132,001209:
016133,001210:
016134,001211: # ROUTINE TO DISPLAY STORED DATA FOR CHECKING AND MODIFICATION,VERB NOUN
016135,001212: # IS STORED AT L +1,RETURN IS TO L +2 FOR TERMINATE,L +3 FOR GOOD DATA OR PROCEDE
016136,001213:
016137,001214:
016138,001215:
016139,001216: 21,7555 30001 CHECKNV XCH Q
016140,001217: 21,7556 51354 TS CHKNVTEM
016141,001218: 21,7557 21354 INDEX CHKNVTEM
016142,001219: 21,7560 30000 XCH A
016143,001220:
016144,001221: 21,7561 03106 TC NVSUB
016145,001222: 21,7562 07575 TC CHECKNV1
016146,001223: 21,7563 05654 TC BANKCALL
016147,001224: 21,7564 14000 CADR FLASHON
016148,001225:
016149,001226: 21,7565 03144 TC ENDIDLE
016150,001227: 21,7566 07571 TC +3
016151,001228: 21,7567 07573 TC +4
016152,001229: 21,7570 07557 TC CHECKNV +2
016153,001230:
016154,001231: 21,7571 21354 INDEX CHKNVTEM
016155,001232: 21,7572 00001 TC Q
016156,001233: 21,7573 21354 INDEX CHKNVTEM
016157,001234: 21,7574 00002 TC Z
016158,001235:
016159,001236: 21,7575 37577 CHECKNV1 CAF CHECKNV2
016160,001237: 21,7576 03326 TC NVSUBUSY
016161,001238: 21,7577 43557 CHECKNV2 CADR CHECKNV +2
End of include-file PRELAUNCH_ALIGNMENT_PROGRAM.agc. Parent file is MAIN.agc