Source Code
|
These source-code files were obtained by digitally photographing
a Solarium 55 (Apollo 6) program listing from the American Computer Museum in
Bozeman, Montana. Photography was by Ron Burkey, with assistance from
museum curator George Keremedjiev and Montana
State University curator Kim Scott. The listing originally belonged to Eldon C. Hall,
who donated it to the museum. Volunteers then manually typed in the
source code or else modified similar pre-existing Colossus 249
(Apollo 9) source files to incorporate changes, although this transcription was
principally done by Jim Lawton and corrected by Ron Burkey.
Notations on the program listing read, in part:
YUL SYSTEM FOR AGC4: REVISION 0 OF PROGRAM SOLRUM55
BY NASA 1021108-021 DEC. 4, 1966
Note that the date is the date of the printout, not the date of the program revision.
Due to statements by Jay Sampson, the original contractor from AC Electronics
who created Solarium 54 (Apollo 4)
from the earlier Corona (AS-202 mission) program, it is believed that Solarium 54 and
Solarium 55 (Apollo 6) are actually identical programs. The change in numbering,
from 54 to 55, is believed to be for some administrative purpose. Thus, it is believed
that the source-code represented here is equally appropriate for both Apollo 4 and
Apollo 6 missions.
|
017327,000002: ## Copyright: Public domain.
017328,000003: ## Filename: INFLIGHT_ALIGNMENT_SUBROUTINES.agc
017329,000004: ## Purpose: Part of the source code for Solarium build 55. This
017330,000005: ## is for the Command Module's (CM) Apollo Guidance
017331,000006: ## Computer (AGC), for Apollo 6.
017332,000007: ## Assembler: yaYUL --block1
017333,000008: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
017334,000009: ## Website: www.ibiblio.org/apollo/index.html
017335,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Solarium055/
017336,000011: ## Mod history: 2009-10-04 JL Created.
017337,000012: ## 2016-12-28 RSB Proofed comment text using octopus/ProoferComments,
017338,000013: ## and fixed errors found.
017339,000014:
|
|
Page 461
|
017341,000016:
017342,000017: # CALGTA GIVEN THE DESIRED XD,YD AND ZD UNIT VECTORS REFERED TO
017343,000018: # -------- PRESENT STABLE MEMBER ORIENTATION, THIS SUBROUTINE FINDS
017344,000019: # THETAY, THETAZ, AND THETAX, THE REQUIRED GYRO TORQUE
017345,000020: # ANGLES IN THE ORDER TO BE APPLIED TO BRING THE STABLE
017346,000021: # MEMBER INTO THE DESIRED ORIENTATION.
017347,000022:
017348,000023:
017349,000024:
017350,000025: 22,6352 BANK 22
017351,000026: 22,6352 45575 CALCGTA ITA 1 # DEFINE THE VECTOR ZPRIME WHICH IS THE
017352,000027: 22,6353 45176 DMOVE
017353,000028: 22,6354 00052 S2 # IMAGE OF Z UNDER THE ROTATION ABOUT Y
017354,000029: 22,6355 01477 XDSMPR
017355,000030:
017356,000031: 22,6356 45176 DMOVE 0 # ZPRIME =(-XD ,0 , XD )
017357,000032: 22,6357 05174 ZERODP # 2 0
017358,000033:
017359,000034: 22,6360 47175 COMP 1
017360,000035: 22,6361 41153 VDEF UNIT
017361,000036: 22,6362 01503 XDSMPR +4
017362,000037: 22,6363 32027 STORE ZPRIME
017363,000038:
017364,000039: 22,6364 56776 TSRT 0 # SET UP COSTH AND SINTH TO ENTER
017365,000040: 22,6365 00027 ZPRIME # ARCTRIG FOR COMPUTATION OF THETA-Y
017366,000041: 22,6366 00002 1
017367,000042: 22,6367 32023 STORE SINTH
017368,000043:
017369,000044: 22,6370 56776 TSRT 0
017370,000045: 22,6371 00033 ZPRIME +4D
017371,000046: 22,6372 00002 1
017372,000047: 22,6373 32021 STORE COSTH
017373,000048:
017374,000049: 22,6374 76776 ITC 0
017375,000050: 22,6375 04437 ARCTRIG
017376,000051:
017377,000052: 22,6376 47576 NOLOD 0
017378,000053: 22,6377 33523 STORE IGC
017379,000054:
017380,000055: 22,6400 56776 TSRT 0
017381,000056: 22,6401 01501 XDSMPR +2
017382,000057: 22,6402 00002 1
017383,000058: 22,6403 32023 STORE SINTH
017384,000059:
017385,000060: 22,6404 64776 DMP 0
017386,000061: 22,6405 00027 ZPRIME
017387,000062: 22,6406 01503 XDSMPR +4
017388,000063:
017389,000064: 22,6407 64775 DMP 1
017390,000065: 22,6410 66776 DSU
017391,000066: 22,6411 00033 ZPRIME +4
|
|
Page 462
|
017393,000068: 22,6412 01477 XDSMPR
017394,000069: 22,6413 32021 STORE COSTH
017395,000070:
017396,000071: 22,6414 76776 ITC 0
017397,000072: 22,6415 04437 ARCTRIG
017398,000073:
017399,000074: 22,6416 47576 NOLOD 0
017400,000075: 22,6417 33525 STORE MGC
017401,000076:
017402,000077: 22,6420 42776 DOT 0
017403,000078: 22,6421 00027 ZPRIME
017404,000079: 22,6422 01513 ZDSMPR
017405,000080: 22,6423 32021 STORE COSTH
017406,000081:
017407,000082: 22,6424 42776 DOT 0
017408,000083: 22,6425 00027 ZPRIME
017409,000084: 22,6426 01505 YDSMPR
017410,000085: 22,6427 32023 STORE SINTH
017411,000086:
017412,000087: 22,6430 76776 ITC 0
017413,000088: 22,6431 04437 ARCTRIG
017414,000089:
017415,000090: 22,6432 47576 NOLOD 0
017416,000091: 22,6433 33521 STORE OGC
017417,000092:
017418,000093: 22,6434 44576 ITCI 0
017419,000094: 22,6435 00052 S2
017420,000095:
|
|
Page 463
|
017422,000097:
017423,000098: 22,6436 65175 ARCTRIG ABS 1 # GIVEN SINTH AND COSTH SCALED X1/4 FIND
017424,000099: 22,6437 66756 DSU BMN # THETA IN THE RANGE -PI TO +PI SCALED-
017425,000100: 22,6440 00023 SINTH # TEMPORARY FOR SINTH XPI/2
017426,000101: 22,6441 05170 QTSN45 # CONSTANT=0.1768
017427,000102: 22,6442 04453 TRIG1
017428,000103:
017429,000104: 22,6443 63775 TSLT 1
017430,000105: 22,6444 61056 ACOS SIGN
017431,000106: 22,6445 00021 COSTH # TEMPORARY FOR COSTH
017432,000107: 22,6446 00002 1
017433,000108: 22,6447 00023 SINTH # TEMPORARY FOR SINTH
017434,000109: 22,6450 32025 STORE THETA
017435,000110:
017436,000111: 22,6451 40576 ITCQ 0 # RETURN TO MAIN PROGRAM
017437,000112:
017438,000113: 22,6452 63775 TRIG1 TSLT 1 # SINTH LESS THAN QTSN45
017439,000114: 22,6453 63176 ASIN
017440,000115: 22,6454 00023 SINTH # TEMPORARY FOR SINTH
017441,000116: 22,6455 00002 1
017442,000117: 22,6456 32025 STORE THETA
017443,000118:
017444,000119: 22,6457 73776 BMN 0
017445,000120: 22,6460 00021 COSTH
017446,000121: 22,6461 04466 TRIG2
017447,000122:
017448,000123: 22,6462 45175 DMOVE 1
017449,000124: 22,6463 40576 ITCQ
017450,000125: 22,6464 00025 THETA
017451,000126: 22,6465 53775 TRIG2 SIGN 1 # COSTH NEGATIVE
017452,000127: 22,6466 66776 DSU
017453,000128: 22,6467 05200 HALFDP
017454,000129: 22,6470 00023 SINTH # WITH ASIN
017455,000130: 22,6471 00025 THETA
017456,000131: 22,6472 32025 STORE THETA
017457,000132:
017458,000133: 22,6473 40576 ITCQ 0 # RETURN
017459,000134:
|
|
Page 464
|
017461,000136:
017462,000137: # THIS PROGRAM COMPUTES SXT ANGLES SAC AND
017463,000138: # PAC IN HALF AND EIGHT REVOLUTIONS RESPEC
017464,000139: # GO IN WITH S1=BASE ADDRESS OF CDU;S
017465,000140:
017466,000141: 22,6474 45575 SMNB ITA 1 # CHECK THAT NBSMBIT IS OFF,IF IT ISGO TO
017467,000142: 22,6475 43411 TEST SWITCH # NBSM1,OTHERWISE SWITCH IT OFF
017468,000143: 22,6476 00052 S2
017469,000144: 22,6477 00006 NBSMBIT
017470,000145: 22,6500 04503 SMNB1
017471,000146: 22,6501 00006 NBSMBIT
017472,000147:
017473,000148: 22,6502 75575 SMNB1 AXT,1 1 # NBSMBIT IS OFF
017474,000149: 22,6503 74572 AXT,2 ITC # SET INDECES TO ROTATE X,Z ABOUT Y
017475,000150: 22,6504 00005 4
017476,000151: 22,6505 00001 0
017477,000152: 22,6506 04556 AXISROT # DO AXIS ROTATION
017478,000153:
017479,000154: 22,6507 75575 AXT,1 1 # SET INDECES TO ROTATE Y,X ABOUT Z
017480,000155: 22,6510 74572 AXT,2 ITC
017481,000156: 22,6511 00003 2
017482,000157: 22,6512 00005 4
017483,000158: 22,6513 04556 AXISROT # DO AXIS ROTATION
017484,000159:
017485,000160: 22,6514 75575 AXT,1 1 # SET INDECES TO ROTATE Z,Y ABOUT X
017486,000161: 22,6515 74572 AXT,2 ITC
017487,000162: 22,6516 00001 0
017488,000163: 22,6517 00003 2
017489,000164: 22,6520 04556 AXISROT # DO AXIS ROTATION
017490,000165:
017491,000166: 22,6521 44576 ITCI 0 # RETURN
017492,000167: 22,6522 00052 S2
017493,000168:
|
|
Page 465
|
017495,000170:
017496,000171: 22,6523 45575 NBSM ITA 1 # CHECK THAT NBSMBIT IS ON,IF IT IS NOT GO
017497,000172: 22,6524 43576 TEST # TO NBSM1 AND SWITCH IT ON
017498,000173: 22,6525 00052 S2
017499,000174: 22,6526 00006 NBSMBIT
017500,000175: 22,6527 04552 NBSM1
017501,000176:
017502,000177: 22,6530 75575 NBSM2 AXT,1 1 # ROTATE Z,Y ABOUT X
017503,000178: 22,6531 74572 AXT,2 ITC
017504,000179: 22,6532 00001 0
017505,000180: 22,6533 00003 2
017506,000181: 22,6534 04556 AXISROT
017507,000182:
017508,000183: 22,6535 75575 AXT,1 1 # ROTATE Y,X ABOUT Z
017509,000184: 22,6536 74572 AXT,2 ITC
017510,000185: 22,6537 00003 2
017511,000186: 22,6540 00005 4
017512,000187: 22,6541 04556 AXISROT
017513,000188:
017514,000189: 22,6542 75575 AXT,1 1 # ROTATE X,Z ABOUT Y
017515,000190: 22,6543 74572 AXT,2 ITC
017516,000191: 22,6544 00005 4
017517,000192: 22,6545 00001 0
017518,000193: 22,6546 04556 AXISROT
017519,000194:
017520,000195: 22,6547 44576 ITCI 0 # RETURN
017521,000196: 22,6550 00052 S2
017522,000197:
017523,000198: 22,6551 42575 NBSM1 SWITCH 1
017524,000199: 22,6552 76776 ITC
017525,000200: 22,6553 00006 NBSMBIT
017526,000201: 22,6554 04531 NBSM2
017527,000202:
|
|
Page 466
|
017529,000204:
017530,000205: 22,6555 57574 AXISROT XSU,1 2 # ROUTINE FOR SINGLE AXIS ROTATIONS
017531,000206: 22,6556 42171 SMOVE* RTB
017532,000207: 22,6557 61576 XAD,1 # REMARKS ARE FOR ROTATING Z,Y ABOUT X
017533,000208: 22,6560 00051 S1
017534,000209: 22,6561 00011 4,1 # INDEX1=0,INDEX2=2
017535,000210: 22,6562 20304 CDULOGIC # ANGLES ARE STORED IN THE ORDER IGA,MGA,
017536,000211: 22,6563 00051 S1
017537,000212: 22,6564 32037 STORE 30D # OGA,SO WE PICK UP OGZ
017538,000213:
017539,000214: 22,6565 55176 ACCUROT COS 0
017540,000215: 22,6566 00037 30D
017541,000216: 22,6567 34021 STORE 8D,1 # STORE COS(OGA) IN 8
017542,000217:
017543,000218: 22,6570 57176 SIN 0
017544,000219: 22,6571 00037 30D
017545,000220: 22,6572 34025 STORE 10D,1 # STORE SIN(OGA) IN 10D
017546,000221:
017547,000222: 22,6573 64375 DMP* 1
017548,000223: 22,6574 63776 TSLT
017549,000224: 22,6575 00025 10D,1
017550,000225: 22,6576 00112 VAC +4,2 # PUSH DOWN (VAC +2)SIN(OGA)
017551,000226: 22,6577 00002 1
017552,000227:
017553,000228: 22,6600 64375 DMP* 1
017554,000229: 22,6601 63776 TSLT
017555,000230: 22,6602 00021 8D,1
017556,000231: 22,6603 00112 VAC +4,2 # PUSH DOWN (VAC +2)COS(OGA)
017557,000232: 22,6604 00002 1
017558,000233:
017559,000234: 22,6605 64374 DMP* 2
017560,000235: 22,6606 63615 TSLT TEST
017561,000236: 22,6607 65776 BDSU
017562,000237: 22,6610 00025 10D,1
017563,000238: 22,6611 00111 VAC +4,1
017564,000239: 22,6612 00002 1
017565,000240: 22,6613 00006 NBSMBIT
017566,000241: 22,6614 04630 AXISROT1
017567,000242: 22,6615 34112 STORE VAC +4,2 # VAC+2=(VAC+2)COS(OGA)-(VAC+4)SIN(OGA)
017568,000243:
017569,000244: 22,6616 64375 DMP* 1
017570,000245: 22,6617 63742 TSLT DAD
017571,000246: 22,6620 00021 8D,1
017572,000247: 22,6621 00111 VAC +4,1
017573,000248: 22,6622 00002 1
017574,000249: 22,6623 34111 STORE VAC +4,1 # VAC+4=(VAC+2)SIN(OGA)+(VAC+4)COS(OGA)
017575,000250:
017576,000251: 22,6624 75175 VMOVE 1
017577,000252: 22,6625 40576 ITCQ
017578,000253: 22,6626 00041 VAC
|
|
Page 467
|
017580,000255:
017581,000256: 22,6627 47575 AXISROT1 NOLOD 1 # TEST WAS 0 FOR SMNB
017582,000257: 22,6630 70776 DAD
017583,000258: 22,6631 34112 STORE VAC +4,2 # VAC+2=(VAC+2)COS(OGA)+(VAC+4)SIN(OGA)
017584,000259:
017585,000260: 22,6632 64375 DMP* 1
017586,000261: 22,6633 63732 TSLT DSU
017587,000262: 22,6634 00021 8D,1
017588,000263: 22,6635 00111 VAC +4,1
017589,000264: 22,6636 00002 1
017590,000265: 22,6637 34111 STORE VAC +4,1 # VAC+4=-(VAC+2)SIN(OGA)+(VAC+4)COS(OGA)
017591,000266:
017592,000267: 22,6640 75175 VMOVE 1
017593,000268: 22,6641 40576 ITCQ
017594,000269: 22,6642 00041 VAC
017595,000270:
|
|
Page 468
|
017597,000272:
017598,000273: 22,6643 41775 CALCGA VXV 1 # CALCULATE GIMBAL ANGLES GIVEN THE X,Y,Z-
017599,000274: 22,6644 73176 UNIT
017600,000275: 22,6645 01477 XNB
017601,000276: 22,6646 01433 YSM
017602,000277:
017603,000278: 22,6647 47575 NOLOD 1
017604,000279: 22,6650 42625 DOT ITA
017605,000280: 22,6651 01513 ZNB
017606,000281: 22,6652 00052 S2
017607,000282: 22,6653 32021 STORE COSTH # TEMPORARY FOR COSTH
017608,000283:
017609,000284: 22,6654 47575 NOLOD 1
017610,000285: 22,6655 42776 DOT
017611,000286: 22,6656 01505 YNB
017612,000287: 22,6657 32023 STORE SINTH
017613,000288:
017614,000289: 22,6660 76776 ITC 0
017615,000290: 22,6661 04437 ARCTRIG
017616,000291:
017617,000292: 22,6662 47576 NOLOD 0
017618,000293: 22,6663 33521 STORE OGC
017619,000294:
017620,000295: 22,6664 42774 DOT 2
017621,000296: 22,6665 63746 TSLT BOV
017622,000297: 22,6666 56713 TSRT ASIN
017623,000298: 22,6667 01433 YSM
017624,000299: 22,6670 01477 XNB
017625,000300: 22,6671 00003 2
017626,000301: 22,6672 04725 GIMLOCK1 # LOOK FOR EXCESSIVE MGC
017627,000302: 22,6673 00002 1
017628,000303: 22,6674 33525 STORE MGC
017629,000304:
017630,000305: 22,6675 65175 ABS 1
017631,000306: 22,6676 66616 DSU BPL
017632,000307: 22,6677 01525 MGC
017633,000308: 22,6700 05202 .333...
017634,000309: 22,6701 04725 GIMLOCK1
017635,000310:
017636,000311: 22,6702 42776 CALCGA1 DOT 0
017637,000312: 22,6703 01441 ZSM
017638,000313: 22,6704 00001 0 # CONTAINS AMG
017639,000314: 22,6705 32021 STORE COSTH
017640,000315:
017641,000316: 22,6706 42776 DOT 0
017642,000317: 22,6707 01425 XSM
017643,000318: 22,6710 32023 STORE SINTH
017644,000319:
017645,000320: 22,6711 76776 ITC 0
017646,000321: 22,6712 04437 ARCTRIG
|
|
Page 469
|
017648,000323: 22,6713 47576 NOLOD 0
017649,000324: 22,6714 33523 STORE IGC
017650,000325:
017651,000326: 22,6715 75175 VMOVE 1 # OP COUNT BY UNEEDA DEBUGGING SERVICE INC
017652,000327: 22,6716 76576 RTB
017653,000328: 22,6717 01521 OGC
017654,000329: 22,6720 20624 V1STO2S
017655,000330: 22,6721 32701 STORE THETAD # *** BEWARE *** MODE IS NOW DP ***
017656,000331:
017657,000332: 22,6722 44576 ITCI 0
017658,000333: 22,6723 00052 S2
017659,000334:
017660,000335: 22,6724 77576 GIMLOCK1 EXIT 0
017661,000336:
017662,000337: 22,6725 03007 TC ALARM
017663,000338: 22,6726 00401 OCT 00401
017664,000339: 22,6727 04000 TC INTPRET # RESUME ROUTINE.
017665,000340:
017666,000341: 22,6730 76776 ITC 0
017667,000342: 22,6731 04703 CALCGA1
017668,000343:
|
|
Page 470
|
017670,000345:
017671,000346: 22,6732 42175 SXTNB SMOVE* 1 # THIS PROGRAM COMPUTES COMPONENTS OF
017672,000347: 22,6733 76571 RTB RTB # THE STAR HALF UNIT VECTOR,STARM, GIVEN
017673,000348: 22,6734 00013 5,1 # THE MEASURED SXT ANGLES PAM AND SAM.
017674,000349: 22,6735 20304 CDULOGIC
017675,000350: 22,6736 20407 TRUNLOG
017676,000351:
017677,000352: 22,6737 47575 NOLOD 1
017678,000353: 22,6740 57116 SIN TSLT
017679,000354: 22,6741 00002 1 # STORE A=SIN(PAM.PI/4)
017680,000355:
017681,000356: 22,6742 42175 SMOVE* 1
017682,000357: 22,6743 76576 RTB
017683,000358: 22,6744 00007 3,1
017684,000359: 22,6745 20304 CDULOGIC # STORE SAM/2 IN PD 4,RESOLVES +/- ZERO
017685,000360:
017686,000361: 22,6746 47575 NOLOD 1
017687,000362: 22,6747 55122 COS DMP
017688,000363: 22,6750 00003 2
017689,000364: 22,6751 32041 STORE STARM # STARM +0=(A.COS(PI.SAM))/2
017690,000365:
017691,000366: 22,6752 57175 SIN 1 # SIN(2PI.PD4).PD2
017692,000367: 22,6753 64776 DMP
017693,000368: 22,6754 32043 STORE STARM +2 # STARM +2=(A.SIN(PI.SAM))/2
017694,000369:
017695,000370: 22,6755 55176 COS 0
017696,000371: 22,6756 32045 STORE STARM +4 # STARM +4=0.5.COS(PAM.PI/4)
017697,000372:
017698,000373: 22,6757 40576 ITCQ 0
017699,000374:
|
|
Page 471
|
017701,000376:
017702,000377: # AXISGEN GIVEN TWO STAR VECTORS - -
017703,000378: # ------- STARA AND STARB WRITTEN IN TWO
017704,000379: # COORDINATE SYSTEMS, THE D AND C SYSTEMS SO THAT WE
017705,000380: # HAVE - - - -
017706,000381: # STARA STARB AND STARB , STARA
017707,000382: # D D C C
017708,000383: # THIS PROGRAM COMPUTES THE HALF UNIT AXES
017709,000384: # - - -
017710,000385: # XD YD ZD
017711,000386: # C C C
017712,000387: # THAT IS THE D COORDINATE SYSTEM AXES REFERRED TO THE C
017713,000388: # COORDINATE SYSTEM
017714,000389: # THE INPUTS ARE STORED AS FOLLOWS
017715,000390: # -
017716,000391: # C(STARAD) - C(STARAD +5) = STARA
017717,000392: # D
017718,000393: # -
017719,000394: # C(STARAD+6)-C(STARAD+11D)= STARB
017720,000395: # D
017721,000396: # -
017722,000397: # C(6D) - C(11D) = STARA
017723,000398: # C
017724,000399: # -
017725,000400: # C(12D) - C(17D) = STARB
017726,000401: # C
017727,000402: # RESULTS ARE LEFT IN XDC TO XDC +17D
017728,000403: # THE RETUTINE DESTROYS THE INPUTS AND USES LOCATIONS
017729,000404: # STARAD+12D TO STARAD+17D AND 18D - 23D +30D
017730,000405: 22,6760 75575 AXISGEN AXT,1 1
017731,000406: 22,6761 55576 AST,1
017732,000407: 22,6762 01411 STARAD +6
017733,000408: 22,6763 01375 STARAD -6
017734,000409: 22,6764 41375 AXISGEN1 VXV* 1
017735,000410: 22,6765 73176 UNIT
017736,000411: 22,6766 03035 STARAD +12D,1
017737,000412: 22,6767 03051 STARAD +18D,1
017738,000413: 22,6770 37051 STORE STARAD +18D,1
017739,000414:
017740,000415: 22,6771 41375 VXV* 1
017741,000416: 22,6772 44776 VSLT
017742,000417: 22,6773 03035 STARAD +12D,1
017743,000418: 22,6774 03051 STARAD +18D,1
017744,000419: 22,6775 00002 1
017745,000420: 22,6776 37065 STORE STARAD +24D,1
017746,000421:
017747,000422: 22,6777 51576 TIX,1 0
017748,000423: 22,7000 04765 AXISGEN1
017749,000424:
017750,000425: 22,7001 53573 AXC,1 3
017751,000426: 22,7002 67565 SXA,1 AXT,1
|
|
Page 472
|
017753,000428: 22,7003 55561 AST,1 AXT,2
017754,000429: 22,7004 54576 AST,2
017755,000430: 22,7005 00007 6
017756,000431: 22,7006 00037 30D
017757,000432: 22,7007 00023 18D
017758,000433: 22,7010 00007 6
017759,000434: 22,7011 00007 6
017760,000435: 22,7012 00003 2
017761,000436:
017762,000437: 22,7013 65576 AXISGEN2 XCHX,1 0
017763,000438: 22,7014 00037 30D
017764,000439:
017765,000440: 22,7015 75376 VXSC* 0
017766,000441: 22,7016 00001 0,1
017767,000442: 22,7017 03022 STARAD +6,2
017768,000443:
017769,000444: 22,7020 75376 VXSC* 0
017770,000445: 22,7021 00015 6,1
017771,000446: 22,7022 03036 STARAD +12D,2
017772,000447: 22,7023 32031 STORE 24D
017773,000448:
017774,000449: 22,7024 75374 VXSC* 2
017775,000450: 22,7025 50642 VAD VAD
017776,000451: 22,7026 44725 VSLT XCHX,1
017777,000452: 22,7027 00031 12D,1
017778,000453: 22,7030 03052 STARAD +18D,2
017779,000454: 22,7031 77777 -
017780,000455: 22,7032 00031 24D
017781,000456: 22,7033 00002 1
017782,000457: 22,7034 00037 30D
017783,000458: 22,7035 37241 STORE XDC +18D,1
017784,000459:
017785,000460: 22,7036 51576 TIX,1 0
017786,000461: 22,7037 05041 AXISGEN3
017787,000462:
017788,000463: 22,7040 50576 AXISGEN3 TIX,2 0
017789,000464: 22,7041 05014 AXISGEN2
017790,000465:
017791,000466: 22,7042 40576 ITCQ 0
017792,000467:
|
|
Page 473
|
017794,000469:
017795,000470: 22,7043 75175 CALCSXA VMOVE 1 # THIS PROGRAM COMPUTES THE SXT ANGLES SAC
017796,000471: 22,7044 45572 ITA ITC # AND PAC GIVEN THE STAR VECTOR IN SM AXES
017797,000472: 22,7045 01417 STAR
017798,000473: 22,7046 00052 S2 # HALF UNIT VECTOR
017799,000474: 22,7047 04475 SMNB
017800,000475:
017801,000476: 22,7050 47576 NOLOD 0
017802,000477: 22,7051 32007 STORE 6 # STORE (STARM0,STARM1,STARM2)
017803,000478:
017804,000479: 22,7052 45176 DMOVE 0
017805,000480: 22,7053 05174 ZERODP
017806,000481: 22,7054 32045 STORE VAC +4 # SET VAC TO (STARM0,STARM1,0)
017807,000482:
017808,000483: 22,7055 47575 NOLOD 1 # UNIT VAC TO (S0,S1,0)
017809,000484: 22,7056 73072 UNIT TSRT
017810,000485: 22,7057 00003 2
017811,000486: 22,7060 32001 STORE 0 # STORE COS/4 =S0/4 , SIN/4 = S1/4 ,0
017812,000487:
017813,000488: 22,7061 45176 DMOVE 0
017814,000489: 22,7062 00001 0
017815,000490: 22,7063 00021 COSTH
017816,000491:
017817,000492: 22,7064 45176 DMOVE 0
017818,000493: 22,7065 00003 2
017819,000494: 22,7066 00023 SINTH
017820,000495:
017821,000496: 22,7067 76776 ITC 0
017822,000497: 22,7070 04437 ARCTRIG # USES THE COS/SIN STORED ABOVE
017823,000498:
017824,000499: 22,7071 76576 RTB 0
017825,000500: 22,7072 20325 1STO2S
017826,000501: 22,7073 33521 STORE SAC
017827,000502:
017828,000503: 22,7074 42773 DOT 3
017829,000504: 22,7075 63713 TSLT ASIN
017830,000505: 22,7076 63746 TSLT BOV
017831,000506: 22,7077 73771 BMN RTB
017832,000507: 22,7100 00001 0 # 1/4 UNIT (STARM0,STARM1,0)
017833,000508: 22,7101 00007 6 # STARM-1/2 UNIT VECTOR
017834,000509: 22,7102 00004 3
017835,000510: 22,7103 00004 3
017836,000511: 22,7104 05113 CALCSXA1
017837,000512: 22,7105 05113 CALCSXA1
017838,000513: 22,7106 20325 1STO2S
017839,000514: 22,7107 33523 STORE PAC
017840,000515:
017841,000516: 22,7110 44576 ITCI 0
017842,000517: 22,7111 00052 S2
017843,000518:
017844,000519: 22,7112 77576 CALCSXA1 EXIT 0 # PROGRAM ERROR,STAR OUT OF FIELD OF VIEW
|
|
Page 474
|
017846,000521: 22,7113 03007 TC ALARM
017847,000522: 22,7114 00402 OCT 00402
017848,000523: 22,7115 02124 TC ENDOFJOB
017849,000524:
|
|
Page 475
|
017851,000526:
017852,000527: 22,7116 41775 SXTANG VXV 1 # TIVELY FROM INPUTS STAR AND XNB,YNB,ZNB
017853,000528: 22,7117 73026 UNIT VSRT # THE HALF UNIT STAR VECTOR AND THE NAV
017854,000529: 22,7120 01513 ZNB # BASE HALF AXES.
017855,000530: 22,7121 01417 STAR
017856,000531: 22,7122 00002 1
017857,000532: 22,7123 32027 STORE PDA # DEFINES PROJECTION OF STAR IN XY PLANE
017858,000533:
017859,000534: 22,7124 42775 DOT 1
017860,000535: 22,7125 47025 COMP ITA # COMPUTE SIN(PI.SAC)/4
017861,000536: 22,7126 00027 PDA
017862,000537: 22,7127 01477 XNB
017863,000538: 22,7130 00052 S2
017864,000539: 22,7131 32023 STORE SINTH
017865,000540:
017866,000541: 22,7132 42776 DOT 0 # COMPUTE COS(PI.SAC)/4
017867,000542: 22,7133 00027 PDA
017868,000543: 22,7134 01505 YNB
017869,000544: 22,7135 32021 STORE COSTH
017870,000545:
017871,000546: 22,7136 76776 ITC 0 # COMPUTE SAC
017872,000547: 22,7137 04437 ARCTRIG
017873,000548:
017874,000549: 22,7140 76576 RTB 0
017875,000550: 22,7141 20325 1STO2S
017876,000551: 22,7142 33521 STORE SAC
017877,000552:
017878,000553: 22,7143 41772 VXV 4
017879,000554: 22,7144 42716 DOT TSLT
017880,000555: 22,7145 63116 ASIN TSLT # COMPUTE PAC
017881,000556: 22,7146 71756 BOV BMN
017882,000557: 22,7147 76576 RTB
017883,000558: 22,7150 00027 PDA
017884,000559: 22,7151 01513 ZNB
017885,000560: 22,7152 01417 STAR
017886,000561: 22,7153 00003 2
017887,000562: 22,7154 00004 3
017888,000563: 22,7155 05164 SXTALARM
017889,000564: 22,7156 05164 SXTALARM # WE NOW HAVE PRECISION ANGLE
017890,000565: 22,7157 20325 1STO2S
017891,000566: 22,7160 33523 STORE PAC
017892,000567:
017893,000568: 22,7161 44576 ITCI 0 # JOB IS DONE
017894,000569: 22,7162 00052 S2
017895,000570:
017896,000571: 22,7163 77576 SXTALARM EXIT 0 # BRANCH TO RESTART SEQUENCE
017897,000572:
017898,000573: 22,7164 03007 TC ALARM
017899,000574: 22,7165 00403 OCT 00403
017900,000575: 22,7166 02124 TC ENDOFJOB
017901,000576:
|
|
Page 476
|
017903,000578:
017904,000579: 22,7167 05520 26075 QTSN45 2DEC .1768
017905,000580: 22,7171 05260 04061 THIRD 2DEC .167
017906,000581: 22,7173 ZPRIME = 22D
017907,000582: 22,7173 PDA = 22D
017908,000583: 22,7173 COSTH = 16D
017909,000584: 22,7173 SINTH = 18D
017910,000585: 22,7173 THETA = 20D
017911,000586: 22,7173 0000040 STARM = VAC
017912,000587: 22,7173 00000 00000 ZERODP 2DEC 0 B-28
017913,000588: 22,7175 37777 POSMAXDP OCT 37777
017914,000589: 22,7176 37777 OCT 37777
017915,000590: 22,7177 20000 00000 HALFDP 2DEC .5
017916,000591: 22,7201 12525 12525 .333... 2DEC .3333333333
End of include-file INFLIGHT_ALIGNMENT_SUBROUTINES.agc. Parent file is MAIN.agc