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.
|
014251,000002: ## Copyright: Public domain.
014252,000003: ## Filename: B_VECTOR_ROUTINE.agc
014253,000004: ## Purpose: A section of Corona revision 261.
014254,000005: ## It is part of the source code for the Apollo Guidance Computer
014255,000006: ## (AGC) for AS-202. No original listings of this software are
014256,000007: ## available; instead, this file was created via disassembly of
014257,000008: ## the core rope modules actually flown on the mission.
014258,000009: ## Assembler: yaYUL
014259,000010: ## Contact: Ron Burkey <info@sandroid.org>.
014260,000011: ## Website: www.ibiblio.org/apollo/index.html
014261,000012: ## Mod history: 2023-06-19 MAS Created.
014262,000013:
014263,000014: ## MAS 2023: This log section is a part of the MIDCOURSE NAVIGATION GAME, which
014264,000015: ## appears to be a very early implementation of P22, P29, and possibly some other
014265,000016: ## navigation programs. It was deleted in Solarium, and its documentation that
014266,000017: ## mentions it is nearly nonexistent outside of some MIT status reports (from
014267,000018: ## which the name of this log section is taken). Reverse-engineering it is a work
014268,000019: ## in progress; all labels and comments are modern guesses. Double-# comments
014269,000020: ## are annotations to aid in reverse engineering. Any labels that have not yet
014270,000021: ## been given modern names are given placeholders with the pattern UBB,SSSS,
014271,000022: ## where BB,SSSS is the full bank and address of the label.
014272,000023:
014273,000024: 31,6426 BANK 31
014274,000025:
014275,000026: 31,6426 77576 U31,6426 EXIT 0 ## MNG calls this
014276,000027:
014277,000028: 31,6427 37450 CAF FFLAG8 ## Is flag 8 set?
014278,000029: 31,6430 71313 MASK FFFLAGS
014279,000030: 31,6431 10000 CCS A
014280,000031: 31,6432 06525 TC U31,6525 ## Yes, go to U31,6525
014281,000032:
014282,000033: 31,6433 04000 TC INTPRET ## Flag 8 not set.
014283,000034:
014284,000035: 31,6434 43173 SMOVE 3
014285,000036: 31,6435 63722 TSLT DMP
014286,000037: 31,6436 65145 ABS LXC,1
014287,000038: 31,6437 76776 ITC
014288,000039: 31,6440 01301 SITENUMB ## Transform SITENUMB (+/- 1,2,3) into an index (6,12,18)
014289,000040: 31,6441 00004 3
014290,000041: 31,6442 07476 3/4
014291,000042: 31,6443 00116 MPAC
014292,000043: 31,6444 23315 EARTHMX ## Construct an earth rotation matrix for TET
014293,000044:
014294,000045: 31,6445 74175 VMOVE* 1
014295,000046: 31,6446 52622 MXV VSLT
014296,000047: 31,6447 22727 LNDMKTAB -6,1 ## Load landmark according to above index...
014297,000048: 31,6450 00003 2 ## and rotate it to the current time.
014298,000049: 31,6451 00002 1 ## Result left in PD+4.
014299,000050:
014300,000051: 31,6452 45774 VSRT 2
014301,000052: 31,6453 50762 VAD VSU
014302,000053: 31,6454 73152 UNIT STZ
014303,000054: 31,6455 01002 DELTAV ## Build up a reference position vector
014304,000055: 31,6456 00013 10D
014305,000056: 31,6457 01016 REFRCV
014306,000057: 31,6460 00005 4 ## Subtract the rotated landmark vector...
014307,000058: 31,6461 01274 NUMBOPT ## (NUMBOPT = 0)
014308,000059: 31,6462 33221 STORE BVECTOR ## ... make it a unit vector, and store the result as BVECTOR.
014309,000060:
014310,000061: 31,6463 43175 SMOVE 1
014311,000062: 31,6464 73776 BMN
014312,000063: 31,6465 01301 SITENUMB
014313,000064: 31,6466 22513 U31,6512 ## Go to U31,6512 if SITENUMB is negative.
014314,000065:
014315,000066: 31,6467 63775 TSLT 1
014316,000067: 31,6470 65776 BDSU
014317,000068: 31,6471 00037 30D ## Subtract twice the magnitude of
014318,000069: 31,6472 00002 1 ## (pos - rotated landmark vector) from MEASQ(?)
014319,000070: 31,6473 01277 MEASQ
014320,000071: 31,6474 33277 STORE MEASQ ## ...and save the result as MEASQ(?).
014321,000072:
014322,000073: 31,6475 45175 DMOVE 1
014323,000074: 31,6476 53535 AXC,1 SXA,1
014324,000075: 31,6477 23411 U31,7410
014325,000076: 31,6500 00676 TMMARKER
014326,000077: 31,6501 01302 NVCODE ## NVCODE = TMMARKER
014327,000078: 31,6502 33275 STORE HMAG ## HMAG(?) = U31,7410
014328,000079:
014329,000080: 31,6503 75176 U31,6503 VMOVE 0
014330,000081: 31,6504 15575 ZEROVEC
014331,000082: 31,6505 33227 STORE BVECTOR +6 ## BVECTOR [3..5] = 0.0
014332,000083:
014333,000084: 31,6506 76776 U31,6506 ITC 0 ## Call measurement incorporation
014334,000085: 31,6507 07510 INCORP1
014335,000086:
014336,000087: 31,6510 76776 ITC 0 ## Finally, return to MNG for phase 14.
014337,000088: 31,6511 11021 DOMID14
014338,000089:
014339,000090:
014340,000091:
014341,000092: 31,6512 75176 U31,6512 VMOVE 0 ## Comes here from U31,6426 if SITENUMB was negative.
014342,000093: 31,6513 01221 BVECTOR
014343,000094: 31,6514 33227 STORE BVECTOR +6 ## Copy BVECTOR[0..2] into BVECTOR[3..5]
014344,000095:
014345,000096: 31,6515 45175 DMOVE 1
014346,000097: 31,6516 53535 AXC,1 SXA,1
014347,000098: 31,6517 23413 U31,7412
014348,000099: 31,6520 00676 TMMARKER
014349,000100: 31,6521 01302 NVCODE ## NVCODE = TMMARKER
014350,000101: 31,6522 33275 STORE HMAG ## HMAG(?) = U31,7412
014351,000102:
014352,000103: 31,6523 76776 ITC 0 ## Go to INCORP1 and exit to MNG for phase 14.
014353,000104: 31,6524 22507 U31,6506
014354,000105:
014355,000106:
014356,000107:
014357,000108: 31,6525 37451 U31,6525 CAF BITS1-3 ## Comes here from U31,6426 if flag 8 was set.
014358,000109: 31,6526 71300 MASK SITENUMB
014359,000110: 31,6527 20000 INDEX A ## Isolate the bottom 3 bits of SITENUMB.
014360,000111: 31,6530 06531 TC +1
014361,000112: 31,6531 07016 TC GOENDMID ## 0 -> Exit MNG.
014362,000113: 31,6532 07020 TC U31,7020 ## 1 -> Go to U31,7020.
014363,000114: 31,6533 07101 TC U31,7101 ## 2 -> Go to U31,7101.
014364,000115: 31,6534 07076 TC U31,7076 ## 3 -> Go to U31,7076.
014365,000116: 31,6535 07170 TC U31,7170 ## 4 -> Go to U31,7170.
014366,000117:
014367,000118: 31,6536 41313 CS FFFLAGS ## 5 -> continue here.
014368,000119: 31,6537 77445 MASK FFLAG13
014369,000120: 31,6540 10000 CCS A ## Is flag 13 set?
014370,000121: 31,6541 06762 TC U31,6762 ## No, go to U31,6762.
014371,000122:
014372,000123: 31,6542 34516 CAF ONE
014373,000124: 31,6543 51273 TS NUMBOPT ## NUMBOPT = 1
014374,000125:
014375,000126: 31,6544 04000 TC INTPRET
014376,000127: 31,6545 71575 LXC,1 1
014377,000128: 31,6546 63576 INCR,1
014378,000129: 31,6547 00736 MARKSTAT
014379,000130: 31,6550 77771 -7
014380,000131:
014381,000132: 31,6551 44174 DMOVE* 2
014382,000133: 31,6552 64716 DMP TSLT
014383,000134: 31,6553 46532 ROUND DSU
014384,000135: 31,6554 00001 0,1
014385,000136: 31,6555 13617 SCLTAVMD
014386,000137: 31,6556 00004 3
014387,000138: 31,6557 01034 TE
014388,000139: 31,6560 33147 STORE TET
014389,000140:
014390,000141: 31,6561 47575 NOLOD 1
014391,000142: 31,6562 63712 TSLT DDV
014392,000143: 31,6563 00005 4
014393,000144: 31,6564 07472 EARTHTAB +9D
014394,000145: 31,6565 33261 STORE GIVENT
014395,000146:
014396,000147: 31,6566 47575 NOLOD 1
014397,000148: 31,6567 63776 TSLT
014398,000149: 31,6570 00007 6
014399,000150: 31,6571 33263 STORE DT/2
014400,000151:
014401,000152: 31,6572 76776 ITC 0
014402,000153: 31,6573 11166 U24,7165
014403,000154:
014404,000155: 31,6574 76776 ITC 0
014405,000156: 31,6575 07165 RECTIFY
014406,000157:
014407,000158: 31,6576 75575 AXT,1 1
014408,000159: 31,6577 67572 SXA,1 ITC
014409,000160: 31,6600 22604 +3
014410,000161: 31,6601 01272 HBRANCH
014411,000162: 31,6602 06026 CALLKEP
014412,000163:
014413,000164: 31,6603 73575 LXA,1 1
014414,000165: 31,6604 63535 INCR,1 SXA,1
014415,000166: 31,6605 00070 FIXLOC
014416,000167: 31,6606 00017 14D
014417,000168: 31,6607 00124 PUSHLOC
014418,000169:
014419,000170: 31,6610 73176 UNIT 0
014420,000171: 31,6611 01131 RCV
014421,000172: 31,6612 33221 STORE BVECTOR
014422,000173:
014423,000174: 31,6613 45176 DMOVE 0
014424,000175: 31,6614 00037 30D
014425,000176: 31,6615 33257 STORE BETAM
014426,000177:
014427,000178: 31,6616 45176 DMOVE 0
014428,000179: 31,6617 00035 28D
014429,000180: 31,6620 33307 STORE SCALEA
014430,000181:
014431,000182: 31,6621 73173 UNIT 3
014432,000183: 31,6622 41743 VXV ABVAL
014433,000184: 31,6623 63713 TSLT ASIN
014434,000185: 31,6624 56631 TSRT ROUND
014435,000186: 31,6625 01101 RRECT
014436,000187: 31,6626 01221 BVECTOR
014437,000188: 31,6627 00003 2
014438,000189: 31,6630 00002 1
014439,000190:
014440,000191: 31,6631 56775 TSRT 1
014441,000192: 31,6632 62653 DDV SQRT
014442,000193: 31,6633 00037 30D
014443,000194: 31,6634 00005 4
014444,000195: 31,6635 01257 BETAM
014445,000196:
014446,000197: 31,6636 66776 DSU 0
014447,000198: 31,6637 06303 DP1/4
014448,000199: 31,6640 00021 16D
014449,000200:
014450,000201: 31,6641 56775 TSRT 1
014451,000202: 31,6642 57066 SINE DMPR
014452,000203: 31,6643 00017 14D
014453,000204: 31,6644 00002 1
014454,000205: 31,6645 32045 STORE VACZ
014455,000206:
014456,000207: 31,6646 70776 DAD 0
014457,000208: 31,6647 06303 DP1/4
014458,000209:
014459,000210: 31,6650 56775 TSRT 1
014460,000211: 31,6651 55066 COS DMPR
014461,000212: 31,6652 00017 14D
014462,000213: 31,6653 00002 1
014463,000214: 31,6654 32041 STORE VACX
014464,000215:
014465,000216: 31,6655 76576 RTB 0
014466,000217: 31,6656 20511 ARCTAN
014467,000218:
014468,000219: 31,6657 70774 DAD 2
014469,000220: 31,6660 56663 TSRT COS
014470,000221: 31,6661 63746 TSLT BOV
014471,000222: 31,6662 77777 -
014472,000223: 31,6663 77777 -
014473,000224: 31,6664 00002 1
014474,000225: 31,6665 00002 1
014475,000226: 31,6666 23013 U31,7012
014476,000227:
014477,000228: 31,6667 76776 ITC 0
014478,000229: 31,6670 22367 U31,6366 ## In lat-long
014479,000230:
014480,000231: 31,6671 71576 U31,6671 LXC,1 0 ## Lat-long returns here?
014481,000232: 31,6672 00736 MARKSTAT
014482,000233:
014483,000234: 31,6673 75175 VMOVE 1
014484,000235: 31,6674 42316 DOT* TSLT
014485,000236: 31,6675 01221 BVECTOR
014486,000237: 31,6676 00001 0,1
014487,000238: 31,6677 00003 2
014488,000239:
014489,000240: 31,6700 51175 DSQ 1
014490,000241: 31,6701 66732 DSU DSU
014491,000242: 31,6702 00017 14D
014492,000243: 31,6703 07506 DP1/2
014493,000244: 31,6704 07506 DP1/2
014494,000245:
014495,000246: 31,6705 76776 ITC 0
014496,000247: 31,6706 22330 GETPOS
014497,000248:
014498,000249: 31,6707 47576 NOLOD 0
014499,000250: 31,6710 33153 STORE DELR
014500,000251:
014501,000252: 31,6711 76776 ITC 0
014502,000253: 31,6712 22342 GETERAD
014503,000254:
014504,000255: 31,6713 62772 DDV 4
014505,000256: 31,6714 70653 DAD SQRT
014506,000257: 31,6715 70666 DAD DMPR
014507,000258: 31,6716 47164 COMP VXSC*
014508,000259: 31,6717 44642 VSLT VAD
014509,000260: 31,6720 01237 ERADSQ/4
014510,000261: 31,6721 01307 SCALEA
014511,000262: 31,6722 77777 -
014512,000263: 31,6723 77777 -
014513,000264: 31,6724 01257 LONGDES
014514,000265: 31,6725 00001 0,1
014515,000266: 31,6726 00003 2
014516,000267: 31,6727 01131 RCV
014517,000268: 31,6730 33175 STORE LNDMRKV
014518,000269:
014519,000270: 31,6731 76776 ITC 0
014520,000271: 31,6732 23315 EARTHMX
014521,000272:
014522,000273: 31,6733 51773 VXM 3
014523,000274: 31,6734 44762 VSLT VSU
014524,000275: 31,6735 41753 VXV UNIT
014525,000276: 31,6736 47176 COMP
014526,000277: 31,6737 01175 LNDMRKV
014527,000278: 31,6740 00003 2
014528,000279: 31,6741 00002 1
014529,000280: 31,6742 01131 RCV
014530,000281: 31,6743 01211 VECTAB
014531,000282: 31,6744 34001 STORE 0,1
014532,000283:
014533,000284: 31,6745 77576 EXIT 0
014534,000285:
014535,000286: 31,6746 47445 CS FFLAG13 ## Take down flag 13.
014536,000287: 31,6747 71313 MASK FFFLAGS
014537,000288: 31,6750 51313 TS FFFLAGS
014538,000289:
014539,000290: 31,6751 47446 CS FFLAG4 ## Put up flag 4.
014540,000291: 31,6752 71313 MASK FFFLAGS
014541,000292: 31,6753 67446 AD FFLAG4
014542,000293: 31,6754 51313 TS FFFLAGS
014543,000294:
014544,000295: 31,6755 47447 CS FFLAG5 ## Take down flag 5.
014545,000296: 31,6756 71313 MASK FFFLAGS
014546,000297: 31,6757 51313 TS FFFLAGS
014547,000298:
014548,000299: 31,6760 05654 TC BANKCALL ## Off to MNG for phase 12.
014549,000300: 31,6761 50202 CADR DOMID12
014550,000301:
014551,000302: 31,6762 04000 U31,6762 TC INTPRET
014552,000303: 31,6763 45175 DMOVE 1
014553,000304: 31,6764 53535 AXC,1 SXA,1
014554,000305: 31,6765 23427 U31,7426
014555,000306: 31,6766 00676 TMMARKER
014556,000307: 31,6767 01302 NVCODE
014557,000308: 31,6770 33275 STORE VARIANCE
014558,000309:
014559,000310: 31,6771 75176 VMOVE 0
014560,000311: 31,6772 01211 VECTAB
014561,000312: 31,6773 33227 STORE BVECTOR +6
014562,000313:
014563,000314: 31,6774 45774 VSRT 2
014564,000315: 31,6775 50612 VAD DOT
014565,000316: 31,6776 56633 TSRT COMP
014566,000317: 31,6777 01010 NUV
014567,000318: 31,7000 00011 8D
014568,000319: 31,7001 01024 REFVCV
014569,000320: 31,7002 01211 VECTAB
014570,000321: 31,7003 00002 1
014571,000322: 31,7004 33277 STORE DELTAQ
014572,000323:
014573,000324: 31,7005 75176 VMOVE 0
014574,000325: 31,7006 15575 ZEROVEC
014575,000326: 31,7007 33221 STORE BVECTOR
014576,000327:
014577,000328: 31,7010 76776 ITC 0
014578,000329: 31,7011 22507 U31,6506
014579,000330:
014580,000331: 31,7012 45176 U31,7012 DMOVE 0
014581,000332: 31,7013 23453 U31,7452
014582,000333:
014583,000334: 31,7014 76776 ITC 0
014584,000335: 31,7015 22367 U31,6366 ## In lat-long
014585,000336:
014586,000337: 31,7016 05654 GOENDMID TC BANKCALL
014587,000338: 31,7017 50412 CADR ENDMID
014588,000339:
014589,000340: 31,7020 37444 U31,7020 CAF V25N72
014590,000341: 31,7021 03106 TC NVSUB
014591,000342: 31,7022 03323 TC PRENVBSY
014592,000343: 31,7023 03165 TC DATAWAIT
014593,000344: 31,7024 07020 TC U31,7020
014594,000345: 31,7025 07020 TC U31,7020
014595,000346:
014596,000347: 31,7026 04000 TC INTPRET
014597,000348: 31,7027 75176 VMOVE 0
014598,000349: 31,7030 01153 DELR
014599,000350: 31,7031 33175 STORE LNDMRKV
014600,000351:
014601,000352: 31,7032 76776 ITC 0
014602,000353: 31,7033 23301 ROTLNDMK
014603,000354:
014604,000355: 31,7034 76776 ITC 0
014605,000356: 31,7035 23345 U31,7344
014606,000357:
014607,000358: 31,7036 76776 ITC 0
014608,000359: 31,7037 23365 U31,7364
014609,000360:
014610,000361: 31,7040 63775 TSLT 1
014611,000362: 31,7041 55742 DMPR DAD
014612,000363: 31,7042 00035 28D
014613,000364: 31,7043 00003 2
014614,000365: 31,7044 23405 SXTVAR
014615,000366: 31,7045 23425 D1/4096
014616,000367: 31,7046 33275 STORE VARIANCE
014617,000368:
014618,000369: 31,7047 41775 U31,7047 VXV 1
014619,000370: 31,7050 41753 VXV UNIT
014620,000371: 31,7051 01161 UVL
014621,000372: 31,7052 01167 STARMEAS
014622,000373: 31,7053 01161 UVL
014623,000374: 31,7054 33221 STORE BVECTOR
014624,000375:
014625,000376: 31,7055 42772 DOT 4
014626,000377: 31,7056 63703 TSLT ACOS
014627,000378: 31,7057 65716 BDSU TSLT
014628,000379: 31,7060 55655 DMPR AXC,1
014629,000380: 31,7061 67466 SXA,1 DMPR
014630,000381: 31,7062 01161 UVL
014631,000382: 31,7063 01167 STARMEAS
014632,000383: 31,7064 00002 1
014633,000384: 31,7065 01277 MEASQ
014634,000385: 31,7066 00005 4
014635,000386: 31,7067 23401 PI/4.0
014636,000387: 31,7070 00676 TMMARKER
014637,000388: 31,7071 01302 NVCODE
014638,000389: 31,7072 00015 12D
014639,000390: 31,7073 33277 STORE MEASQ
014640,000391:
014641,000392: 31,7074 76776 ITC 0
014642,000393: 31,7075 22504 U31,6503
014643,000394:
014644,000395: 31,7076 35501 U31,7076 CAF ZERO
014645,000396: 31,7077 51276 TS MEASQ
014646,000397: 31,7100 51277 TS MEASQ +1
014647,000398:
014648,000399: 31,7101 04000 U31,7101 TC INTPRET
014649,000400: 31,7102 76776 ITC 0
014650,000401: 31,7103 23345 U31,7344
014651,000402:
014652,000403: 31,7104 76576 RTB 0
014653,000404: 31,7105 20264 FRESHPD
014654,000405:
014655,000406: 31,7106 45775 VSRT 1
014656,000407: 31,7107 50753 VAD UNIT
014657,000408: 31,7110 01115 TDELTAV
014658,000409: 31,7111 00013 10D
014659,000410: 31,7112 01131 RCV
014660,000411:
014661,000412: 31,7113 41776 VXV 0
014662,000413: 31,7114 00001 0
014663,000414: 31,7115 01167 STARMEAS
014664,000415:
014665,000416: 31,7116 51175 DSQ 1
014666,000417: 31,7117 65653 BDSU SQRT
014667,000418: 31,7120 23433 U31,7432
014668,000419: 31,7121 00035 28D
014669,000420:
014670,000421: 31,7122 45176 DMOVE 0
014671,000422: 31,7123 00037 30D
014672,000423:
014673,000424: 31,7124 41775 VXV 1
014674,000425: 31,7125 73176 UNIT
014675,000426: 31,7126 00007 6
014676,000427: 31,7127 00001 0
014677,000428:
014678,000429: 31,7130 77576 EXIT 0
014679,000430:
014680,000431: 31,7131 47201 CS U31,7201
014681,000432: 31,7132 71300 MASK SITENUMB
014682,000433: 31,7133 10000 CCS A
014683,000434: 31,7134 07142 TC U31,7142
014684,000435:
014685,000436: 31,7135 04000 TC INTPRET
014686,000437: 31,7136 75175 VMOVE 1
014687,000438: 31,7137 47176 COMP
014688,000439: 31,7140 77777 -
014689,000440:
014690,000441: 31,7141 77576 EXIT 0
014691,000442:
014692,000443: 31,7142 04000 U31,7142 TC INTPRET
014693,000444: 31,7143 51174 DSQ 2
014694,000445: 31,7144 63666 TSLT DMPR
014695,000446: 31,7145 70776 DAD
014696,000447: 31,7146 00015 12D
014697,000448: 31,7147 00003 2
014698,000449: 31,7150 23405 SXTVAR
014699,000450: 31,7151 23423 D1/1024
014700,000451: 31,7152 33275 STORE VARIANCE
014701,000452:
014702,000453: 31,7153 62775 DDV 1
014703,000454: 31,7154 75776 VXSC
014704,000455: 31,7155 23433 U31,7432
014705,000456: 31,7156 00017 14D
014706,000457:
014707,000458: 31,7157 62775 DDV 1
014708,000459: 31,7160 75632 VXSC BVSU
014709,000460: 31,7161 00015 12D
014710,000461: 31,7162 00017 14D
014711,000462: 31,7163 00001 0
014712,000463: 31,7164 77777 -
014713,000464: 31,7165 33161 STORE UVL
014714,000465:
014715,000466: 31,7166 76776 ITC 0
014716,000467: 31,7167 23050 U31,7047
014717,000468:
014718,000469: 31,7170 47430 U31,7170 CS VB06N75
014719,000470: 31,7171 51301 TS NVCODE
014720,000471:
014721,000472: 31,7172 41273 CS NUMBOPT
014722,000473: 31,7173 20735 INDEX MARKSTAT
014723,000474: 31,7174 60052 AD QPRET
014724,000475: 31,7175 25777 EXTEND
014725,000476: 31,7176 64516 SU ONE
014726,000477: 31,7177 10000 CCS A
014727,000478: 31,7200 07220 TC U31,7220
014728,000479: 31,7201 01000 U31,7201 OCT 01000
014729,000480: 31,7202 00770 BIT4-9 OCT 00770
014730,000481: 31,7203 37444 U31,7203 CAF V25N72
014731,000482: 31,7204 03106 TC NVSUB
014732,000483: 31,7205 03323 TC PRENVBSY
014733,000484: 31,7206 03165 TC DATAWAIT
014734,000485: 31,7207 07016 TC GOENDMID
014735,000486: 31,7210 07203 TC U31,7203
014736,000487:
014737,000488: 31,7211 04000 TC INTPRET
014738,000489:
014739,000490: 31,7212 75175 VMOVE 1
014740,000491: 31,7213 71576 LXC,1
014741,000492: 31,7214 01153 DELR
014742,000493: 31,7215 00736 MARKSTAT
014743,000494: 31,7216 34111 STORE VAC +4,1
014744,000495:
014745,000496: 31,7217 77576 EXIT 0
014746,000497:
014747,000498: 31,7220 04000 U31,7220 TC INTPRET
014748,000499: 31,7221 71575 LXC,1 1
014749,000500: 31,7222 74176 VMOVE*
014750,000501: 31,7223 00736 MARKSTAT
014751,000502: 31,7224 00111 VAC +4,1
014752,000503: 31,7225 33175 STORE LNDMRKV
014753,000504:
014754,000505: 31,7226 76776 ITC 0
014755,000506: 31,7227 23301 ROTLNDMK
014756,000507:
014757,000508: 31,7230 75176 VMOVE 0
014758,000509: 31,7231 23435 UNITZ
014759,000510: 31,7232 33167 STORE STARMEAS
014760,000511:
014761,000512: 31,7233 75176 VMOVE 0
014762,000513: 31,7234 15575 ZEROVEC
014763,000514: 31,7235 33227 STORE BVECTOR +6
014764,000515:
014765,000516: 31,7236 76776 U31,7236 ITC 0 ## MNG calls this
014766,000517: 31,7237 23365 U31,7364
014767,000518:
014768,000519: 31,7240 63775 TSLT 1
014769,000520: 31,7241 55742 DMPR DAD
014770,000521: 31,7242 00035 28D
014771,000522: 31,7243 00003 2
014772,000523: 31,7244 23407 ALTVAR
014773,000524: 31,7245 23425 D1/4096
014774,000525: 31,7246 33275 STORE VARIANCE
014775,000526:
014776,000527: 31,7247 41775 VXV 1
014777,000528: 31,7250 73176 UNIT
014778,000529: 31,7251 01161 UVL
014779,000530: 31,7252 01167 STARMEAS
014780,000531: 31,7253 33167 STORE STARMEAS
014781,000532:
014782,000533: 31,7254 47576 NOLOD 0
014783,000534: 31,7255 33221 STORE BVECTOR
014784,000535:
014785,000536: 31,7256 42773 DOT 3
014786,000537: 31,7257 63703 TSLT ACOS
014787,000538: 31,7260 66716 DSU TSLT
014788,000539: 31,7261 55666 DMPR DMPR
014789,000540: 31,7262 01167 STARMEAS
014790,000541: 31,7263 01211 VECTAB
014791,000542: 31,7264 00002 1
014792,000543: 31,7265 06303 DP1/4
014793,000544: 31,7266 00005 4
014794,000545: 31,7267 23401 PI/4.0
014795,000546: 31,7270 00015 12D
014796,000547: 31,7271 33277 STORE DELTAQ
014797,000548:
014798,000549: 31,7272 76776 ITC 0
014799,000550: 31,7273 07510 INCORP1
014800,000551:
014801,000552: 31,7274 42576 SWITCH 0
014802,000553: 31,7275 00005 FIRSTFLG
014803,000554:
014804,000555: 31,7276 76776 ITC 0
014805,000556: 31,7277 11021 DOMID14
014806,000557:
014807,000558: 31,7300 45576 ROTLNDMK ITA 0
014808,000559: 31,7301 01303 MIDEXIT
014809,000560:
014810,000561: 31,7302 76776 ITC 0
014811,000562: 31,7303 23315 EARTHMX
014812,000563:
014813,000564: 31,7304 52775 MXV 1
014814,000565: 31,7305 44776 VSLT
014815,000566: 31,7306 01175 LNDMRKV
014816,000567: 31,7307 00003 2
014817,000568: 31,7310 00002 1
014818,000569: 31,7311 33203 STORE ROTLMV
014819,000570:
014820,000571: 31,7312 44576 ITCI 0
014821,000572: 31,7313 01303 MIDEXIT
014822,000573:
014823,000574: 31,7314 76576 EARTHMX RTB 0 ## Construct an earth rotation matrix to time TET.
014824,000575: 31,7315 20270 ZEROVAC ## Assumes pushloc is 2. Matrix always stored at PD+2.
014825,000576: ## Pushloc is left at 4.
014826,000577: 31,7316 64774 DMP 2
014827,000578: 31,7317 63771 TSLT RTB
014828,000579: 31,7320 72631 STZ ROUND
014829,000580: 31,7321 01147 TET
014830,000581: 31,7322 23403 WEARTH
014831,000582: 31,7323 00004 3
014832,000583: 31,7324 20264 FRESHPD
014833,000584: 31,7325 00123 OVFIND
014834,000585:
014835,000586: 31,7326 55176 COS 0
014836,000587: 31,7327 00001 0
014837,000588:
014838,000589: 31,7330 47576 NOLOD 0
014839,000590: 31,7331 32013 STORE 10D
014840,000591:
014841,000592: 31,7332 57176 SINE 0
014842,000593: 31,7333 00001 0
014843,000594: 31,7334 32011 STORE 8D
014844,000595:
014845,000596: 31,7335 47575 NOLOD 1
014846,000597: 31,7336 47176 COMP
014847,000598: 31,7337 32005 STORE 4
014848,000599:
014849,000600: 31,7340 45176 DMOVE 0
014850,000601: 31,7341 07506 DP1/2
014851,000602: 31,7342 32023 STORE 18D
014852,000603:
014853,000604: 31,7343 40576 ITCQ 0
014854,000605:
014855,000606: 31,7344 45576 U31,7344 ITA 0
014856,000607: 31,7345 01303 MIDEXIT
014857,000608:
014858,000609: 31,7346 77576 EXIT 0
014859,000610:
014860,000611: 31,7347 37202 CAF BIT4-9 ## Transform bits 4-9 of SITENUMB into
014861,000612: 31,7350 71300 MASK SITENUMB ## an index for the star (??) table
014862,000613: 31,7351 40000 CS A
014863,000614: 31,7352 25777 EXTEND
014864,000615: 31,7353 47442 MP D3/4
014865,000616: 31,7354 20067 INDEX FIXLOC
014866,000617: 31,7355 50046 TS X1 ## X1 = -6, -12, -18, etc...
014867,000618:
014868,000619: 31,7356 04000 TC INTPRET ## Load the selected vector into STARMEAS
014869,000620: 31,7357 74176 VMOVE* 0
014870,000621: 31,7360 22773 U24,7403 -6,1
014871,000622: 31,7361 33167 STORE STARMEAS
014872,000623:
014873,000624: 31,7362 44576 ITCI 0
014874,000625: 31,7363 01303 MIDEXIT
014875,000626:
014876,000627: 31,7364 45774 U31,7364 VSRT 2
014877,000628: 31,7365 50632 VAD BVSU
014878,000629: 31,7366 73176 UNIT
014879,000630: 31,7367 01002 DELTAV ## Calculate current position.
014880,000631: 31,7370 00013 10D
014881,000632: 31,7371 01016 REFRCV
014882,000633: 31,7372 01203 ROTLMV ## Subtract the rotated landmark vector.
014883,000634: 31,7373 33161 STORE UVL ## Make unit vector and store in UVL.
014884,000635:
014885,000636: 31,7374 45176 DMOVE 0
014886,000637: 31,7375 00037 30D
014887,000638: 31,7376 32015 STORE 12D ## Store magnitude of (ROTLMV - pos) in 12D
014888,000639:
014889,000640: 31,7377 40576 ITCQ 0
014890,000641:
014891,000642: 31,7400 31103 36652 PI/4.0 2DEC .785398164
014892,000643: 31,7402 34047 07761 WEARTH 2DEC 7.0191646 B-3 # REV/WEEK
014893,000644: 31,7404 00052 36307 SXTVAR 2DEC .04 E-6 B+16
014894,000645: 31,7406 37713 23476 ALTVAR 2DEC 1.521 E-5 B+16
014895,000646: 31,7410 00000 05075 U31,7410 2DEC 2621 B-28
014896,000647: 31,7412 00000 00000 U31,7412 2DEC 0.0
014897,000648: 31,7414 00000 00000 2DEC 0.0
014898,000649: 31,7416 00000 00000 2DEC 0.0
014899,000650: 31,7420 00000 00000 2DEC 0.0
014900,000651: 31,7422 00020 00000 D1/1024 2DEC 1.0 B-10
014901,000652: 31,7424 00004 00000 D1/4096 2DEC 1.0 B-12
014902,000653: 31,7426 00010 32354 U31,7426 2DEC 144620 B-28
014903,000654:
014904,000655: 31,7430 00675 VB06N75 OCT 00675
014905,000656: 31,7431 00675 OCT 00675
014906,000657:
014907,000658: 31,7432 06165 02510 U31,7432 2DEC .19464615
014908,000659:
014909,000660: 31,7434 00000 00000 UNITZ 2DEC 0.0
014910,000661: 31,7436 00000 00000 2DEC 0.0
014911,000662: 31,7440 20000 00000 2DEC 0.5
014912,000663:
014913,000664: 31,7442 30000 00000 D3/4 2DEC 3.0 B-2
014914,000665:
014915,000666: 31,7444 02572 V25N72 OCT 02572
014916,000667: 31,7445 10000 FFLAG13 OCT 10000
014917,000668: 31,7446 00010 FFLAG4 OCT 00010
014918,000669: 31,7447 00020 FFLAG5 OCT 00020
014919,000670: 31,7450 00200 FFLAG8 OCT 00200
014920,000671: 31,7451 00007 BITS1-3 OCT 00007
014921,000672: 31,7452 37777 U31,7452 OCT 37777
014922,000673: 31,7453 77777 OCT 77777
End of include-file B_VECTOR_ROUTINE.agc. Parent file is MAIN.agc