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