Source Code
|
These source-code files are part of a reconstructed copy of Sunrise 69, the
final release of the Block I Command Module (CM) Apollo Guidance Computer
(AGC) system test software.
They have been created via disassembly of binary dumps of original core rope
memory modules, part numbers 1003133-18, 1003133-19, 1003133-20, and 1003733-071.
Corresponding portions of code have been copied from Solarium 55 where applicable.
Extensive use was also made of the AGC Information Series documents, which were specifically
written about the Sunrise software.
Since only binary dumps (rather than listings) of Sunrise 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.
|
008485,000002: ## Copyright: Public domain.
008486,000003: ## Filename: PRELAUNCH_ALIGNMENT_PROGRAM.agc
008487,000004: ## Purpose: A section of Sunrise 69.
008488,000005: ## It is part of the reconstructed source code for the final
008489,000006: ## release of the Block I Command Module system test software. No
008490,000007: ## original listings of this program are available; instead, this
008491,000008: ## file was created via disassembly of dumps of Sunrise core rope
008492,000009: ## memory modules and comparison with the later Block I program
008493,000010: ## Solarium 55.
008494,000011: ## Assembler: yaYUL --block1
008495,000012: ## Contact: Ron Burkey <info@sandroid.org>.
008496,000013: ## Website: www.ibiblio.org/apollo/index.html
008497,000014: ## Mod history: 2023-06-19 MAS Created from Sunrise 45.
008498,000015:
008499,000016: ## Names in this section are largely taken from AGC Information Series Issue 22,
008500,000017: ## Prelaunch Alignment.
008501,000018:
008502,000019: # THE PRELAUNCH ALIGNMENT PROGRAM CONSISTS OF TWO PARTS- VERTICAL ERECTION AND GYROCOMPASSING. IN THE FIRST CASE
008503,000020: # THE Z PIPA INPUTS ARE USED TO CONTROL THE Y GYRO IN SUCH A WAY THAT THESE INPUTS ARE NULLED. A SIMILAR SIT-
008504,000021: # UATION APPLIES TO THE Y PIPA INPUTS AND THE Z GYRO.IN THE GYROCOMPASSING CASE, THE Y PIPA INPUTS ARE USED IN
008505,000022: # EXACTLY THE SAME FASHION AS IN VERTICAL ERECTION. THE Z PIPA INPUTS ARE SPLIT BETWEEN THE Y GYRO TO HOLD THE
008506,000023: # VERTICAL AND THE X GYRO TO POINT THE Z AXIS ALONG SOME DESIRED AZIMUTH.
008507,000024:
008508,000025:
008509,000026:
008510,000027: # WHILE PRELAUNCH IS ACTIVE IT STAYS IN THE EXECUTIVE AND USES THE SLEEP/WAKE FEATURES. BY THIS MEANS MOST
008511,000028: # ERASABLE USAGE IS CONFINED TO A VAC AREA. THE ASSIGNMENT IS AS FOLLOWS-
008512,000029:
008513,000030: 23,6110 SINAZ = 2 # SIN OF AZIMUTH
008514,000031: 23,6110 COSAZ = 4 # COSINE OF AZIMUTH
008515,000032: 23,6110 FILTER = 6
008516,000033: 23,6110 DELZ = 8D
008517,000034: 23,6110 DELY = 10D
008518,000035: 23,6110 DELE = 12D
008519,000036: 23,6110 0000014 FILDELZ = DELE
008520,000037: 23,6110 DELS = 14D
008521,000038: 23,6110 0000016 FILDELY = DELS
008522,000039: 23,6110 INT = 16D
008523,000040: 23,6110 PREVTIME = 20D
008524,000041: 23,6110 THETAY = 24D
008525,000042: 23,6110 THETAZ = 26D
008526,000043: 23,6110 THETAX = 28D
008527,000044: 23,6110 THETASTH = 30D
008528,000045: 23,6110 THETAE = 32D
008529,000046: 23,6110 SINLAM = 34D # SIN OF LATITUDE
008530,000047: 23,6110 COSLAM = 36D # COSINE OF LATITUDE
008531,000048:
008532,000049: 23,6110 BANK 23
008533,000050:
008534,000051: 23,6110 34502 TOP1 CAF QUARTER
008535,000052: 23,6111 50765 TS AZIMUTH
008536,000053:
008537,000054: 23,6112 35500 CAF ZERO
008538,000055: 23,6113 50766 TS AZIMUTH +1
008539,000056: 23,6114 50706 TS PRELYGA
008540,000057: 23,6115 50707 TS PRELZGA
008541,000058: 23,6116 50705 TS PRELXGA
008542,000059: 23,6117 50760 TS DRIFTY
008543,000060: 23,6120 50761 TS DRIFTZ
008544,000061: 23,6121 50762 TS DRIFTX
008545,000062:
008546,000063: 23,6122 37006 CAF LABLAT
008547,000064: 23,6123 50763 TS LATITUDE
008548,000065: 23,6124 37007 CAF LABLAT +1
008549,000066: 23,6125 50764 TS LATITUDE +1
008550,000067:
008551,000068: # ENTER AT TOP2 IF GIMBAL ANGLES, AZIMUTH, LATITUDE ALREADY KEYED IN
008552,000069:
008553,000070:
008554,000071:
008555,000072: 23,6126 02516 TOP2 TC BANKCALL # GO AND START CDU ZEROING
008556,000073: 23,6127 21054 CADR IMUZERO
008557,000074:
008558,000075: 23,6130 37016 CAF SIXHNDRD # INITIALIZE FOR 5 MIN VERTICAL
008559,000076: 23,6131 50757 TS GYROCSW
008560,000077:
008561,000078: 23,6132 37012 CAF PRELKG
008562,000079: 23,6133 50713 TS KG
008563,000080:
008564,000081: 23,6134 35500 CAF ZERO # INITIALIZE ERASABLE MEMORY TO ZEROS
008565,000082: 23,6135 50715 TS GYROD
008566,000083: 23,6136 50717 TS GYROD +2
008567,000084: 23,6137 50721 TS GYROD +4
008568,000085: 23,6140 50714 TS KH
008569,000086:
008570,000087:
008571,000088: 23,6141 02516 TC BANKCALL # INITIALIZATION COMPLETE SO STALL
008572,000089: 23,6142 21412 CADR IMUSTALL
008573,000090: 23,6143 06760 TC PRELEXIT
008574,000091:
008575,000092: 23,6144 02240 TC PHASCHNG # GO INTO COARSE ALIGN PHASE.
008576,000093: 23,6145 01100 OCT 01100
008577,000094: 23,6146 06760 TC PRELEXIT
008578,000095: 23,6147 06662 TC PLSTCHK
008579,000096:
008580,000097:
008581,000098: 23,6150 02516 REPL11 TC BANKCALL
008582,000099: 23,6151 21113 CADR IMUCOARS
008583,000100:
008584,000101: 23,6152 02516 TC BANKCALL # NOTHING TO DO BUT SPEEP
008585,000102: 23,6153 21412 CADR IMUSTALL
008586,000103: 23,6154 06760 TC PRELEXIT
008587,000104:
008588,000105:
008589,000106:
008590,000107: 23,6155 02240 STARTPL2 TC PHASCHNG # START FINE ALIGN - INITIALIZATION PHASE.
008591,000108: 23,6156 01200 OCT 01200
008592,000109: 23,6157 06760 TC PRELEXIT
008593,000110: 23,6160 06662 TC PLSTCHK
008594,000111:
008595,000112: 23,6161 02516 REPL12 TC BANKCALL
008596,000113: 23,6162 21165 CADR IMUFINE
008597,000114:
008598,000115: 23,6163 02516 TC BANKCALL # SLEEP
008599,000116: 23,6164 21412 CADR IMUSTALL
008600,000117: 23,6165 06760 TC PRELEXIT
008601,000118:
008602,000119: 23,6166 02240 TC PHASCHNG
008603,000120: 23,6167 01300 OCT 01300
008604,000121: 23,6170 06760 TC PRELEXIT
008605,000122: 23,6171 06662 TC PLSTCHK
008606,000123:
008607,000124: 23,6172 04000 PLREFINE TC INTPRET
008608,000125: 23,6173 76575 RTB 1
008609,000126: 23,6174 57176 SIN
008610,000127: 23,6175 07040 ZEROVAC
008611,000128: 23,6176 00764 LATITUDE
008612,000129: 23,6177 32043 STORE SINLAM
008613,000130:
008614,000131: 23,6200 55176 COS 0
008615,000132: 23,6201 00764 LATITUDE
008616,000133: 23,6202 32045 STORE COSLAM
008617,000134:
008618,000135: 23,6203 43175 SMOVE 1
008619,000136: 23,6204 66776 DSU
008620,000137: 23,6205 07011 90DEGAZ
008621,000138: 23,6206 00766 AZIMUTH
008622,000139:
008623,000140: 23,6207 57176 SIN 0
008624,000141: 23,6210 00001 0
008625,000142: 23,6211 32003 STORE SINAZ
008626,000143:
008627,000144: 23,6212 55176 COS 0
008628,000145: 23,6213 32005 STORE COSAZ
008629,000146:
008630,000147: 23,6214 76576 RTB 0
008631,000148: 23,6215 07022 LOADTIME
008632,000149: 23,6216 32025 STORE PREVTIME
008633,000150:
008634,000151: 23,6217 77576 EXIT 0
008635,000152:
008636,000153: 23,6220 35500 CAF ZERO
008637,000154: 23,6221 50045 TS PIPAY # SET ALL PIPAS TO ZERO
008638,000155: 23,6222 50046 TS PIPAZ
008639,000156:
008640,000157: 23,6223 20017 INHINT
008641,000158: 23,6224 37013 CAF PRELDT # SET WAITLIST TO WAKE JOB
008642,000159: 23,6225 02124 TC WAITLIST
008643,000160: 23,6226 46231 CADR PRELALTS
008644,000161:
008645,000162: 23,6227 37014 CAF WAKEPRAD
008646,000163: 23,6230 02120 TC JOBSLEEP
008647,000164:
008648,000165:
008649,000166: # PRELAUNCH WAITLIST TASK - EXECUTED EVERY .5 SEC. IN LOOP.
008650,000167:
008651,000168: 23,6231 35500 PRELALTS CAF ZERO
008652,000169: 23,6232 30045 XCH PIPAY
008653,000170: 23,6233 50600 TS RUPTREG1
008654,000171:
008655,000172: 23,6234 35500 CAF ZERO
008656,000173: 23,6235 30046 XCH PIPAZ
008657,000174: 23,6236 50601 TS RUPTREG2
008658,000175:
008659,000176: 23,6237 02217 TC GETPHASE
008660,000177: 23,6240 00000 OCT 0
008661,000178: 23,6241 06245 TC NOPLWAIT
008662,000179:
008663,000180: 23,6242 37013 CAF PRELDT # SELF-SUSTAINING WAITLIST CALL
008664,000181: 23,6243 02124 TC WAITLIST
008665,000182: 23,6244 46231 CADR PRELALTS
008666,000183:
008667,000184: 23,6245 37014 NOPLWAIT CAF WAKEPRAD
008668,000185: 23,6246 02051 TC JOBWAKE
008669,000186:
008670,000187: 23,6247 10574 CCS PHASDATA
008671,000188: 23,6250 06252 TC +2
008672,000189: 23,6251 02203 TC TASKOVER
008673,000190:
008674,000191: 23,6252 30600 XCH RUPTREG1
008675,000192: 23,6253 20574 INDEX PHASDATA
008676,000193: 23,6254 50114 TS MPAC
008677,000194: 23,6255 30601 XCH RUPTREG2
008678,000195: 23,6256 20574 INDEX PHASDATA
008679,000196: 23,6257 50115 TS MPAC +1
008680,000197:
008681,000198: 23,6260 02203 TC TASKOVER # RESUME
008682,000199:
008683,000200: 23,6261 30114 PRAWAKE XCH MPAC
008684,000201: 23,6262 20066 INDEX FIXLOC
008685,000202: 23,6263 50012 TS DELY
008686,000203:
008687,000204: 23,6264 30115 XCH MPAC +1
008688,000205: 23,6265 20066 INDEX FIXLOC
008689,000206: 23,6266 50010 TS DELZ
008690,000207:
008691,000208: 23,6267 04000 TC INTPRET
008692,000209:
008693,000210: 23,6270 43176 SMOVE 0 # ZERO TO THEAT-SOUTH
008694,000211: 23,6271 07016 ZEROPR
008695,000212: 23,6272 32037 STORE THETASTH
008696,000213:
008697,000214: 23,6273 47576 NOLOD 0
008698,000215: 23,6274 32041 STORE THETAE # ZERO TO THETA EAST
008699,000216:
008700,000217:
008701,000218: 23,6275 77576 EXIT 0
008702,000219:
008703,000220:
008704,000221: 23,6276 02217 TC GETPHASE # CHECK IF VERTICAL ERECTION (UNCONDIT.)
008705,000222: 23,6277 00000 OCT 0
008706,000223: 23,6300 06760 TC PRELEXIT
008707,000224: 23,6301 50114 TS MPAC
008708,000225: 23,6302 06662 TC PLSTCHK
008709,000226:
008710,000227: 23,6303 20114 INDEX MPAC
008711,000228: 23,6304 06272 TC -12
008712,000229: 23,6305 06373 TC NOGYROCM
008713,000230: 23,6306 06403 TC TJL
008714,000231:
008715,000232: 23,6307 04000 DOGYROC TC INTPRET
008716,000233:
008717,000234: 23,6310 76776 ITC 0
008718,000235: 23,6311 06551 GYROCOM
008719,000236:
008720,000237: 23,6312 76776 ITC 0
008721,000238: 23,6313 06441 EARTHRAT
008722,000239:
008723,000240: 23,6314 77576 ENDOFPR EXIT 0
008724,000241:
008725,000242: 23,6315 10747 CCS WASKSET
008726,000243: 23,6316 06322 TC +4
008727,000244: 23,6317 06760 TC PRELEXIT
008728,000245: 23,6320 06322 TC +2
008729,000246: 23,6321 06760 TC PRELEXIT
008730,000247:
008731,000248: 23,6322 35500 CAF ZERO # INITIALIZE TORQUING REGISTERS AND RESET
008732,000249: 23,6323 20066 INDEX FIXLOC
008733,000250: 23,6324 30034 XCH THETAX
008734,000251: 23,6325 06350 TC PLLIMIT
008735,000252: 23,6326 50716 TS GYROD +1
008736,000253:
008737,000254: 23,6327 35500 CAF ZERO
008738,000255: 23,6330 20066 INDEX FIXLOC
008739,000256: 23,6331 30030 XCH THETAY
008740,000257: 23,6332 06350 TC PLLIMIT
008741,000258: 23,6333 50720 TS GYROD +3
008742,000259:
008743,000260: 23,6334 35500 CAF ZERO
008744,000261: 23,6335 20066 INDEX FIXLOC
008745,000262: 23,6336 30032 XCH THETAZ
008746,000263: 23,6337 06350 TC PLLIMIT
008747,000264: 23,6340 50722 TS GYROD +5
008748,000265:
008749,000266: 23,6341 02516 TC BANKCALL
008750,000267: 23,6342 21440 CADR IMUPULSE
008751,000268:
008752,000269: 23,6343 02516 TC BANKCALL
008753,000270: 23,6344 21412 CADR IMUSTALL
008754,000271: 23,6345 06760 TC PRELEXIT
008755,000272:
008756,000273: 23,6346 37014 CAF WAKEPRAD
008757,000274: 23,6347 02120 TC JOBSLEEP
008758,000275:
008759,000276: 23,6350 50034 PLLIMIT TS OVCTR
008760,000277: 23,6351 30001 XCH Q
008761,000278: 23,6352 50101 TS TEM2
008762,000279:
008763,000280: 23,6353 10034 CCS OVCTR
008764,000281: 23,6354 66372 AD -320PLS
008765,000282: 23,6355 06357 TC +2
008766,000283: 23,6356 66372 AD -320PLS
008767,000284:
008768,000285: 23,6357 10000 CCS A
008769,000286: 23,6360 06365 TC +5
008770,000287: 23,6361 00101 TC TEM2
008771,000288:
008772,000289: 23,6362 30000 NOOP
008773,000290: 23,6363 30034 XCH OVCTR
008774,000291: 23,6364 00101 TC TEM2
008775,000292:
008776,000293: 23,6365 10034 CCS OVCTR
008777,000294: 23,6366 46372 CS -320PLS
008778,000295: 23,6367 00101 TC TEM2
008779,000296:
008780,000297: 23,6370 36372 CAF -320PLS
008781,000298: 23,6371 00101 TC TEM2
008782,000299:
008783,000300: 23,6372 77277 -320PLS DEC -320 B-14
008784,000301:
008785,000302:
008786,000303: # VERTICAL ERECTION PROCEDURES.
008787,000304:
008788,000305: 23,6373 10757 NOGYROCM CCS GYROCSW # COUNT DOWN FOR 5 MIN OF VERTICAL ERECT.
008789,000306: 23,6374 06402 TC MORE # IF MORE TO COME.
008790,000307: 23,6375 02240 TC PHASCHNG # IF NOT, GO INTO GYROCOMP
008791,000308: 23,6376 01500 OCT 01500
008792,000309: 23,6377 06760 TC PRELEXIT
008793,000310: 23,6400 06662 TC PLSTCHK
008794,000311:
008795,000312: 23,6401 06403 TC +2
008796,000313:
008797,000314: 23,6402 50757 MORE TS GYROCSW
008798,000315:
008799,000316: 23,6403 04000 TJL TC INTPRET
008800,000317:
008801,000318: 23,6404 76776 ITC 0
008802,000319: 23,6405 06441 EARTHRAT
008803,000320:
008804,000321: 23,6406 66775 DSU 1
008805,000322: 23,6407 64742 DMP DAD
008806,000323: 23,6410 00013 DELY
008807,000324: 23,6411 00017 FILDELY
008808,000325: 23,6412 06775 VERECTC3
008809,000326: 23,6413 00017 FILDELY
008810,000327: 23,6414 32017 STORE FILDELY
008811,000328:
008812,000329: 23,6415 53575 AXC,1 1
008813,000330: 23,6416 52572 AXC,2 ITC
008814,000331: 23,6417 00003 2
008815,000332: 23,6420 00001 0
008816,000333: 23,6421 06635 VERECT
008817,000334:
008818,000335: 23,6422 66775 DSU 1
008819,000336: 23,6423 64742 DMP DAD
008820,000337: 23,6424 00011 DELZ
008821,000338: 23,6425 00015 FILDELZ
008822,000339: 23,6426 06775 VERECTC3
008823,000340: 23,6427 00015 FILDELZ
008824,000341: 23,6430 32015 STORE FILDELZ
008825,000342:
008826,000343: 23,6431 53574 AXC,1 2
008827,000344: 23,6432 47433 NOLOD COMP
008828,000345: 23,6433 76776 ITC
008829,000346: 23,6434 00001 0
008830,000347: 23,6435 06635 VERECT
008831,000348:
008832,000349: 23,6436 76776 ITC 0
008833,000350: 23,6437 06315 ENDOFPR
008834,000351:
008835,000352:
008836,000353: # CALCULATION OF EARTH RATE
008837,000354:
008838,000355: 23,6440 76576 EARTHRAT RTB 0
008839,000356: 23,6441 07022 LOADTIME
008840,000357: 23,6442 32051 STORE S1
008841,000358: 23,6443 47574 NOLOD 2
008842,000359: 23,6444 66716 DSU TSLT
008843,000360: 23,6445 55776 DMPR
008844,000361: 23,6446 00025 PREVTIME
008845,000362: 23,6447 00017 14D
008846,000363: 23,6450 07020 LOMEGA
008847,000364:
008848,000365: 23,6451 45176 DMOVE 0
008849,000366: 23,6452 00051 S1
008850,000367: 23,6453 32025 STORE PREVTIME
008851,000368:
008852,000369: 23,6454 64775 DMP 1 # SIN(LAMBDE).DT.LENGTH OMEGA + THETA X
008853,000370: 23,6455 63742 TSLT DAD
008854,000371: 23,6456 00001 0
008855,000372: 23,6457 00043 SINLAM
008856,000373: 23,6460 00002 1
008857,000374: 23,6461 00035 THETAX
008858,000375: 23,6462 32035 STORE THETAX
008859,000376:
008860,000377: 23,6463 64775 DMP 1 # -COS(LAMBDA).DT.LENGTH OMEGA + THETA STH
008861,000378: 23,6464 63726 TSLT BDSU
008862,000379: 23,6465 77777 -
008863,000380: 23,6466 00045 COSLAM
008864,000381: 23,6467 00002 1
008865,000382: 23,6470 00037 THETASTH
008866,000383: 23,6471 32037 STORE THETASTH
008867,000384:
008868,000385: 23,6472 64775 DMP 1 # COS(AZIMUTH). SOUTH COMPONENT
008869,000386: 23,6473 63776 TSLT
008870,000387: 23,6474 00037 THETASTH # TO P.D. LIST
008871,000388: 23,6475 00005 COSAZ
008872,000389: 23,6476 00002 1
008873,000390:
008874,000391: 23,6477 64774 DMP 2 # Y COMPONENT = SIN(AZIMUTH).EAST COMP
008875,000392: 23,6500 63742 TSLT DAD # + COS(AZIMUTH). SOUTH
008876,000393: 23,6501 70776 DAD
008877,000394: 23,6502 00041 THETAE # COMP
008878,000395: 23,6503 00003 SINAZ
008879,000396: 23,6504 00002 1
008880,000397: 23,6505 00031 THETAY
008881,000398: 23,6506 32031 STORE THETAY
008882,000399:
008883,000400: 23,6507 64775 DMP 1 # SIN(AZIMUTH). SOUTH COMPONENT
008884,000401: 23,6510 63776 TSLT
008885,000402: 23,6511 00003 SINAZ # TO P.D. LIST
008886,000403: 23,6512 00037 THETASTH
008887,000404:
008888,000405: 23,6513 00002 1
008889,000406: 23,6514 64774 DMP 2 # Z COMPONENT = COS(AZIMUTH.EAST COMP
008890,000407: 23,6515 63732 TSLT DSU
008891,000408: 23,6516 70776 DAD
008892,000409: 23,6517 00005 COSAZ # -SIN(AZIMUTH).SOUTH COMP
008893,000410: 23,6520 00041 THETAE
008894,000411: 23,6521 00002 1
008895,000412: 23,6522 77777 -
008896,000413: 23,6523 00033 THETAZ
008897,000414: 23,6524 32033 STORE THETAZ
008898,000415:
008899,000416: 23,6525 43175 SMOVE 1
008900,000417: 23,6526 56742 TSRT DAD
008901,000418: 23,6527 00763 DRIFTX
008902,000419: 23,6530 00017 14D
008903,000420: 23,6531 00035 THETAX
008904,000421: 23,6532 32035 STORE THETAX
008905,000422:
008906,000423: 23,6533 43175 SMOVE 1
008907,000424: 23,6534 56742 TSRT DAD
008908,000425: 23,6535 00761 DRIFTY
008909,000426: 23,6536 00017 14D
008910,000427: 23,6537 00031 THETAY
008911,000428: 23,6540 32031 STORE THETAY
008912,000429:
008913,000430: 23,6541 43175 SMOVE 1
008914,000431: 23,6542 56742 TSRT DAD
008915,000432: 23,6543 00762 DRIFTZ
008916,000433: 23,6544 00017 14D
008917,000434: 23,6545 00033 THETAZ
008918,000435: 23,6546 32033 STORE THETAZ
008919,000436:
008920,000437: 23,6547 40576 ITCQ 0
008921,000438:
008922,000439:
008923,000440: # COMPUTATION OF GYROCOMPASS COMMAND
008924,000441:
008925,000442: 23,6550 45575 GYROCOM ITA 1
008926,000443: 23,6551 64716 DMP TSLT
008927,000444: 23,6552 00770 PRELTEMP
008928,000445: 23,6553 00011 DELZ
008929,000446: 23,6554 00005 COSAZ
008930,000447: 23,6555 00002 1
008931,000448:
008932,000449: 23,6556 64775 DMP 1 # DELTA-V(EAST)= COS(AZ).DELTA-V(Z)
008933,000450: 23,6557 63742 TSLT DAD
008934,000451: 23,6560 00013 DELY
008935,000452: 23,6561 00003 SINAZ
008936,000453: 23,6562 00002 1
008937,000454: 23,6563 32015 STORE DELE
008938,000455:
008939,000456: 23,6564 53574 AXC,1 2
008940,000457: 23,6565 52435 AXC,2 NOLOD
008941,000458: 23,6566 47172 COMP ITC
008942,000459: 23,6567 00007 6
008943,000460: 23,6570 00003 2
008944,000461: 23,6571 06635 VERECT
008945,000462:
008946,000463: 23,6572 64775 DMP 1 # SIN(AZ).DELTA-V(Z)
008947,000464: 23,6573 63776 TSLT
008948,000465: 23,6574 00011 DELZ
008949,000466: 23,6575 00003 SINAZ
008950,000467: 23,6576 00002 1
008951,000468:
008952,000469: 23,6577 64775 DMP 1 # DELTA-V(SOUTH= COS(AZ.DELTA-V(Y)
008953,000470: 23,6600 63732 TSLT DSU
008954,000471: 23,6601 00013 DELY
008955,000472: 23,6602 00005 COSAZ
008956,000473: 23,6603 00002 1
008957,000474: 23,6604 32017 STORE DELS
008958,000475:
008959,000476: 23,6605 64776 DMP 0
008960,000477: 23,6606 00017 DELS # C1. DELTA-V(SOUTH) TO P.D. LIST
008961,000478: 23,6607 06777 GYRCMC1
008962,000479:
008963,000480: 23,6610 64775 DMP 1 # FILTER = C1. DELTA-V(SOUTH)
008964,000481: 23,6611 70776 DAD # +C2. FILTER
008965,000482: 23,6612 00007 FILTER
008966,000483: 23,6613 07001 GYRCMC2
008967,000484: 23,6614 32007 STORE FILTER
008968,000485:
008969,000486: 23,6615 64775 DMP 1
008970,000487: 23,6616 63742 TSLT DAD
008971,000488: 23,6617 00007 FILTER
008972,000489: 23,6620 07003 GYRCMC3
008973,000490: 23,6621 00006 5
008974,000491: 23,6622 00035 THETAX
008975,000492: 23,6623 32035 STORE THETAX
008976,000493:
008977,000494: 23,6624 64775 DMP 1 # EAST-TORQUING ANGLE = C4.FILTER
008978,000495: 23,6625 63776 TSLT
008979,000496: 23,6626 00007 FILTER
008980,000497: 23,6627 07005 GYRCMC4
008981,000498: 23,6630 00003 2
008982,000499: 23,6631 32041 STORE THETAE
008983,000500:
008984,000501: 23,6632 44576 ITCI 0
008985,000502: 23,6633 00770 PRELTEMP
008986,000503:
008987,000504:
008988,000505: # VERTICAL ERECTION SUBROUTINE
008989,000506:
008990,000507: # VERECT - VERTICAL ERECTION ENTERED IN INT. MODE WITH
008991,000508: # SUBROUTINE C(X1)= 2 FOR C(MPAC)= DEL-V Y
008992,000509: # = 0 C(MPAC)=-DEL-V Z
008993,000510: # = 6 FOR C(MPAC)=-DEL-V E
008994,000511: # FOR THESE THREE CASES OUTPUT WILL BE
008995,000512: # THETA-Z
008996,000513: # THETA-Y
008997,000514: # THETA-S RESPECTIVELY.
008998,000515: # LOOP CONSTANTS ARE DETERMINED BY
008999,000516: # C(X2)= 0 NO GYROCOMPASSING
009000,000517: # 2 GYROCOMPASSING
009001,000518:
009002,000519:
009003,000520:
009004,000521: 23,6634 47576 VERECT NOLOD 0
009005,000522:
009006,000523: 23,6635 32051 STORE S1
009007,000524:
009008,000525: 23,6636 47575 NOLOD 1
009009,000526: 23,6637 70376 DAD*
009010,000527: 23,6640 00041 INT,1 # COMPUTE INTEGRAL OF DEL-V = INT
009011,000528: 23,6641 34041 STORE INT,1
009012,000529:
009013,000530: 23,6642 45175 DMOVE 1
009014,000531: 23,6643 64316 DMP* TSLT
009015,000532: 23,6644 00051 S1
009016,000533: 23,6645 15752 VERECTC1,2
009017,000534: 23,6646 00006 5
009018,000535:
009019,000536: 23,6647 64375 DMP* 1
009020,000537: 23,6650 70342 DAD* DAD
009021,000538: 23,6651 00041 INT,1 # THETA = THETA + C1 DEL-V + C2 INT
009022,000539: 23,6652 15762 VERECTC2,2
009023,000540: 23,6653 00061 THETAY,1
009024,000541: 23,6654 34061 STORE THETAY,1
009025,000542:
009026,000543: 23,6655 40576 ITCQ 0
009027,000544:
009028,000545:
009029,000546: # PRELAUNCH MANUAL REQUEST PROCESSOR.
009030,000547:
009031,000548: 23,6656 36666 STARTPL CAF PLPRIO # ENTER EXECUTIVE REQUEST ON START-UP.
009032,000549: 23,6657 02037 TC FINDVAC
009033,000550: 23,6660 46155 CADR STARTPL2
009034,000551: 23,6661 02544 TC SWRETURN
009035,000552:
009036,000553: 23,6662 44513 PLSTCHK CS EIGHT # PRELAUNCH COMES HERE WHENEVER A PHASE
009037,000554: 23,6663 60114 AD MPAC # REFERENCE IS MADE TO SEE IF A MANUAL
009038,000555: 23,6664 10000 CCS A # REQUEST HAS BEEN ENTERED THROUGH MASTER
009039,000556: 23,6665 00001 TC Q # CONTROL. ALL SUCH PHASES ARE LESS THAN 8
009040,000557: 23,6666 24000 PLPRIO OCT 24000
009041,000558: 23,6667 06670 TC +1
009042,000559:
009043,000560: 23,6670 20114 INDEX MPAC # SEE WHICH MANUAL MODE REQUESTED.
009044,000561: 23,6671 06671 TC +0
009045,000562: 23,6672 06110 TC TOP1 # 1 - INITIALIZATION 1.
009046,000563: 23,6673 06126 TC TOP2 # 2 - INITIALIZATION 2.
009047,000564: 23,6674 06701 TC PLFINCHK
009048,000565: 23,6675 06701 TC PLFINCHK
009049,000566: 23,6676 06110 TC TOP1
009050,000567: 23,6677 06110 TC TOP1
009051,000568: 23,6700 06110 TC TOP1
009052,000569:
009053,000570: 23,6701 10747 PLFINCHK CCS WASKSET # SEE IF IN FINE ALIGN.
009054,000571: 23,6702 06706 TC 3CHECK
009055,000572: 23,6703 06760 TC PRELEXIT # SYSTEM IN BAD SHAPE.
009056,000573: 23,6704 06713 TC DOPLCHNG # DO THE CHANGE ANYWAY.
009057,000574: 23,6705 06760 TC PRELEXIT # SYSTEM IN BAD SHAPE.
009058,000575:
009059,000576: 23,6706 66711 3CHECK AD -CCSFINE
009060,000577: 23,6707 10000 CCS A
009061,000578: 23,6710 06110 TC TOP1
009062,000579: 23,6711 77730 -CCSFINE OCT -47 # WASKSET IS 50 FOR FINE ALIGN.
009063,000580: 23,6712 06110 TC TOP1
009064,000581:
009065,000582: 23,6713 20114 DOPLCHNG INDEX MPAC
009066,000583: 23,6714 06712 TC -2
009067,000584: 23,6715 06722 TC DOPL14
009068,000585:
009069,000586: 23,6716 02240 DOPL15 TC PHASCHNG # SET PHASE TO GYROCOMPASSING
009070,000587: 23,6717 01500 OCT 01500
009071,000588: 23,6720 06760 TC PRELEXIT
009072,000589: 23,6721 06307 TC DOGYROC
009073,000590:
009074,000591: 23,6722 02240 DOPL14 TC PHASCHNG # SET PHASE TO UNCONDITIONAL VERT-
009075,000592: 23,6723 01400 OCT 01400 # ICAL ERECTION
009076,000593: 23,6724 06760 TC PRELEXIT
009077,000594: 23,6725 06403 TC TJL
009078,000595:
009079,000596: # PRELAUNCH GO-SEQUENCE PROCESSOR.
009080,000597:
009081,000598: 23,6726 36666 PRELGO CAF PLPRIO
009082,000599: 23,6727 02037 TC FINDVAC
009083,000600: 23,6730 46732 CADR PLRESTT
009084,000601: 23,6731 02544 TC SWRETURN
009085,000602:
009086,000603: 23,6732 02217 PLRESTT TC GETPHASE
009087,000604: 23,6733 00000 OCT 0
009088,000605: 23,6734 06760 TC PRELEXIT
009089,000606:
009090,000607: 23,6735 50114 TS MPAC
009091,000608: 23,6736 06662 TC PLSTCHK
009092,000609:
009093,000610: 23,6737 46743 CS MAXPHASE
009094,000611: 23,6740 60114 AD MPAC
009095,000612: 23,6741 10000 CCS A
009096,000613: 23,6742 06760 TC PRELEXIT
009097,000614: 23,6743 00015 MAXPHASE OCT 15
009098,000615: 23,6744 06750 TC PLGOFAN
009099,000616:
009100,000617: 23,6745 36757 REPLLOOP CAF FINECODE
009101,000618: 23,6746 50751 TS DESKSET
009102,000619: 23,6747 06172 TC PLREFINE
009103,000620:
009104,000621: 23,6750 20114 PLGOFAN INDEX MPAC
009105,000622: 23,6751 06741 TC -10
009106,000623: 23,6752 06150 TC REPL11
009107,000624: 23,6753 06161 TC REPL12
009108,000625: 23,6754 06745 TC REPLLOOP
009109,000626: 23,6755 06745 TC REPLLOOP
009110,000627: 23,6756 06745 TC REPLLOOP
009111,000628:
009112,000629: 23,6757 00050 FINECODE OCT 50 # FINE ALIGN AND COMPUTER CONTROL.
009113,000630:
009114,000631: # PRELAUNCH TERMINATION.
009115,000632:
009116,000633: 23,6760 45500 PRELEXIT CS ZERO # RETURN IMU TO MANUAL CONTROL.
009117,000634: 23,6761 50704 TS CDUIND
009118,000635: 23,6762 02246 TC MAJEXIT
009119,000636: 23,6763 00000 OCT 0
009120,000637:
009121,000638: # PRELAUNCH BANK STORED CONSTANTS
009122,000639:
009123,000640: 23,6764 24000 00000 VERECTC1 2DEC 20. B-5 # VERTICAL LOOP CONSTANTS
009124,000641: 23,6766 01000 00000 2DEC 1 B-5
009125,000642: 23,6770 14631 23146 VERECTC2 2DEC .4
009126,000643: 23,6772 00020 14223 2DEC .001
009127,000644: 23,6774 03146 14632 VERECTC3 2DEC .1
009128,000645: 23,6776 37777 37777 GYRCMC1 2DEC .999999999
009129,000646: 23,7000 00000 00000 GYRCMC2 2DEC 0.0
009130,000647: 23,7002 56777 77777 GYRCMC3 2DEC -68 B-7
009131,000648: 23,7004 20000 00000 GYRCMC4 2DEC 4 B-3
009132,000649: 23,7006 03610 01227 LABLAT 2DEC .117678252 # LATITUDE OF IL-7
009133,000650: 23,7010 10000 00000 90DEGAZ 2DEC .25 # 90 DEG. FROM NORTH = EAST
009134,000651: 23,7012 05605 PRELKG DEC .18
009135,000652: 23,7013 00062 PRELDT DEC .5 E2 # HALF SECOND PRELAUNCH CYCLE
009136,000653:
009137,000654: 23,7014 46261 WAKEPRAD CADR PRAWAKE # WAKING ADDRESS FOR PRELAUNCH
009138,000655:
009139,000656: 23,7015 00000 ZEROPR OCT 0 # OUR OWN PERSONAL COPY OF ZERO
009140,000657:
009141,000658: 23,7016 01130 SIXHNDRD DEC 600 B-14
009142,000659:
009143,000660: 23,7017 03711 33265 LOMEGA 2DEC .12169524 # EARTH RATE IN IRIG PULSES PER .01 SEC.
End of include-file PRELAUNCH_ALIGNMENT_PROGRAM.agc. Parent file is MAIN.agc