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.
|
012213,000002: ## Copyright: Public domain.
012214,000003: ## Filename: MIDCOURSE_NAVIGATION_GAME.agc
012215,000004: ## Purpose: A section of Corona revision 261.
012216,000005: ## It is part of the source code for the Apollo Guidance Computer
012217,000006: ## (AGC) for AS-202. No original listings of this software are
012218,000007: ## available; instead, this file was created via disassembly of
012219,000008: ## the core rope modules actually flown on the mission.
012220,000009: ## Assembler: yaYUL
012221,000010: ## Contact: Ron Burkey <info@sandroid.org>.
012222,000011: ## Website: www.ibiblio.org/apollo/index.html
012223,000012: ## Mod history: 2023-06-19 MAS Created.
012224,000013:
012225,000014: ## MAS 2023: This log section is a part of the MIDCOURSE NAVIGATION GAME, which
012226,000015: ## appears to be a very early implementation of P22, P29, and possibly some other
012227,000016: ## navigation programs. It was deleted in Solarium, and its documentation that
012228,000017: ## mentions it is nearly nonexistent outside of some MIT status reports (from
012229,000018: ## which the name of this log section is taken). Reverse-engineering it is a work
012230,000019: ## in progress; all labels and comments are modern guesses. Double-# comments
012231,000020: ## are annotations to aid in reverse engineering. Any labels that have not yet
012232,000021: ## been given modern names are given placeholders with the pattern UBB,SSSS,
012233,000022: ## where BB,SSSS is the full bank and address of the label.
012234,000023:
012235,000024: 24,6000 BANK 24
012236,000025:
012237,000026: 24,6000 20115 MIDMANPH INDEX MPAC ## Previous (manual) phase arrives in MPAC
012238,000027: 24,6001 06002 TC +1
012239,000028: 24,6002 06412 TC ENDMID ## 0 -> end immediately
012240,000029: 24,6003 06041 TC MIDSETUP ## 1 -> Phases 1-5 go to MIDSETUP
012241,000030: 24,6004 06041 TC MIDSETUP ## 2 -> "
012242,000031: 24,6005 06041 TC MIDSETUP ## 3 -> "
012243,000032: 24,6006 06041 TC MIDSETUP ## 4 -> "
012244,000033: 24,6007 06041 TC MIDSETUP ## 5 -> "
012245,000034: 24,6010 06412 TC ENDMID ## 6 -> end immediately
012246,000035:
012247,000036: 24,6011 05654 TC BANKCALL ## 7 -> Call MIDINIT.
012248,000037: 24,6012 26717 CADR MIDINIT
012249,000038:
012250,000039: 24,6013 04000 MIDINRET TC INTPRET
012251,000040: 24,6014 75574 AXT,1 2
012252,000041: 24,6015 67565 SXA,1 AXT,1
012253,000042: 24,6016 67576 SXA,1
012254,000043: 24,6017 07461 EARTHTAB
012255,000044: 24,6020 01040 PBODY ## PBODY = EARTHTAB
012256,000045: 24,6021 10316 U24,6315
012257,000046: 24,6022 01305 STEPEXIT ## STEPEXIT = U24,6315
012258,000047:
012259,000048: 24,6023 50776 VAD 0
012260,000049: 24,6024 11434 RINIT ## Hardcoded initial RRECT/RCV
012261,000050: 24,6025 01153 DELR
012262,000051: 24,6026 32766 STORE REFRRECT ## REFRRECT = RINIT + DELR
012263,000052:
012264,000053: 24,6027 47576 NOLOD 0
012265,000054: 24,6030 33016 STORE REFRCV ## Also REFRCV.
012266,000055:
012267,000056: 24,6031 50776 VAD 0
012268,000057: 24,6032 11442 VINIT ## Hardcoded initial VRECT/VCV
012269,000058: 24,6033 01161 DELVEL
012270,000059: 24,6034 32774 STORE REFVRECT ## REFVRECT = VINIT + DELVEL
012271,000060:
012272,000061: 24,6035 47576 NOLOD 0
012273,000062: 24,6036 33024 STORE REFVCV ## Also REFVCV.
012274,000063:
012275,000064: 24,6037 77576 EXIT 0
012276,000065:
012277,000066: 24,6040 06412 TC ENDMID ## Go end job.
012278,000067:
012279,000068: 24,6041 44516 MIDSETUP CS ONE
012280,000069: 24,6042 60115 AD MPAC
012281,000070: 24,6043 51302 TS MANPHS-1 ## MANPHS-1 = last phase - 1
012282,000071:
012283,000072: 24,6044 05654 TC BANKCALL
012284,000073: 24,6045 30453 CADR MKRELEAS
012285,000074:
|
|
Maintain the GRAB flag, and set all other flags
according to the current phase.
|
012288,000077: 24,6046 36434 CAF MIDGRBFL
012289,000078: 24,6047 71313 MASK FFFLAGS
012290,000079: 24,6050 21302 INDEX MANPHS-1
012291,000080: 24,6051 66273 AD MIDFLTAB
012292,000081: 24,6052 51313 TS FFFLAGS
012293,000082:
012294,000083: 24,6053 02276 STRTMID2 TC PHASCHNG ## New jobs come here.
012295,000084: 24,6054 01101 OCT 01101
012296,000085: 24,6055 06412 TC ENDMID
012297,000086: 24,6056 07277 TC MIDSTCHK ## If V37 used to start MNG, this will go to the requested phase.
012298,000087:
012299,000088: 24,6057 34516 REMID11 CAF ONE ## If we got to into STRTMID2 via an automatic phase, it falls through here.
012300,000089: 24,6060 51273 TS NUMBOPT ## NUMBOPT = 1
012301,000090:
012302,000091: 24,6061 06423 TC MIDGRAB
012303,000092:
012304,000093: 24,6062 37010 CAF FFFLAG8 ## Is flag 8 set (manual phase 3 only) ?
012305,000094: 24,6063 71313 MASK FFFLAGS
012306,000095: 24,6064 10000 CCS A
012307,000096: 24,6065 06117 TC LOADSITE ## Yes -- go to LOADSITE
012308,000097:
012309,000098: 24,6066 36262 CAF FFFLAG13 ## Is flag 13 set (manual phases 1-4) ?
012310,000099: 24,6067 71313 MASK FFFLAGS
012311,000100: 24,6070 10000 CCS A
012312,000101: 24,6071 06174 TC U24,6174 ## Yes -- go to U24,6174
012313,000102:
|
|
Neither flag set (manual phase 5 only), fall into LOADLONG
|
012315,000104:
012316,000105: 24,6072 37346 LOADLONG CAF VB21N32 ## Ask operator to load TDEC... but actually,
012317,000106: 24,6073 03106 TC NVSUB ## what the operator enters is treated as degrees.
012318,000107: 24,6074 03323 TC PRENVBSY
012319,000108: 24,6075 03165 TC DATAWAIT
012320,000109: 24,6076 06412 TC ENDMID ## Terminate
012321,000110: 24,6077 06072 TC LOADLONG ## Proceed - ask again
012322,000111:
012323,000112: 24,6100 07232 TC LOADREF ## Copy reference into actual
012324,000113:
012325,000114: 24,6101 04000 TC INTPRET
012326,000115:
012327,000116: 24,6102 55776 DMPR 0 ## Transform TDEC (now in weeks) to degrees. This
012328,000117: 24,6103 01267 TDEC ## will exactly match what the operator entered,
012329,000118: 24,6104 10116 168/360 ## scaled 360.
012330,000119: 24,6105 33257 STORE LONGDES
012331,000120:
012332,000121: 24,6106 76776 ITC 0
012333,000122: 24,6107 22001 LONGPASS
012334,000123:
012335,000124: 24,6110 45176 DMOVE 0
012336,000125: 24,6111 01267 TDEC
012337,000126: 24,6112 33147 STORE TET
012338,000127:
012339,000128: 24,6113 76776 ITC 0
012340,000129: 24,6114 11043 DOMID15
012341,000130:
012342,000131: 24,6115 16735 33570 168/360 2DEC .466666667
012343,000132:
012344,000133: 24,6117 37345 LOADSITE CAF SITEADR ## Request operator to load SITENUMB
012345,000134: 24,6120 50117 TS MPAC +2
012346,000135: 24,6121 37347 CAF VB21N02
012347,000136: 24,6122 03106 TC NVSUB
012348,000137: 24,6123 03323 TC PRENVBSY
012349,000138: 24,6124 03165 TC DATAWAIT
012350,000139: 24,6125 06412 TC ENDMID
012351,000140: 24,6126 06117 TC LOADSITE
012352,000141:
012353,000142: 24,6127 36223 CAF LOW3
012354,000143: 24,6130 71300 MASK SITENUMB ## Isolate bottom 3 bits
012355,000144: 24,6131 20000 INDEX A
012356,000145: 24,6132 06133 TC +1 ## Based off of bottom 3 of SITENUMB...
012357,000146: 24,6133 06117 TC LOADSITE ## 0 -> No good, enter again.
012358,000147: 24,6134 06146 TC U24,6146 ## 1 -> U24,6146
012359,000148: 24,6135 06146 TC U24,6146 ## 2 -> "
012360,000149: 24,6136 06146 TC U24,6146 ## 3 -> "
012361,000150: 24,6137 06153 TC U24,6153 ## 4 -> U24,6153
012362,000151: 24,6140 06143 TC U24,6143 ## 5 -> U24,6143
012363,000152: 24,6141 06117 TC LOADSITE ## 6 -> No good, enter again.
012364,000153: 24,6142 06117 TC LOADSITE ## 7 -> No good, enter again.
012365,000154:
012366,000155: 24,6143 35503 U24,6143 CAF TWO ## Bottom 3 of SITENUMB = 5...
012367,000156: 24,6144 51273 TS NUMBOPT ## NUMBOPT = 2
012368,000157: 24,6145 06651 TC DOMID20 ## And off to DOMID20
012369,000158:
012370,000159: 24,6146 37343 U24,6146 CAF BITS4-9 ## Bottom 3 of SITENUMB = 1,2,3
012371,000160: 24,6147 71300 MASK SITENUMB ## Isolate bits 4-9
012372,000161: 24,6150 10000 CCS A
012373,000162: 24,6151 06644 TC DOMID17 ## *Any* set -> DOMID17
012374,000163: 24,6152 06651 TC DOMID20 ## None set -> DOMID20
012375,000164:
012376,000165: 24,6153 34477 U24,6153 CAF FIVE ## Bottom 3 of SITENUMB = 4...
012377,000166: 24,6154 51273 TS NUMBOPT ## NUMBOPT = 5
012378,000167:
012379,000168: 24,6155 37350 CAF VB25N72 ## Ask operator to load DELTA POSITION
012380,000169: 24,6156 03106 TC NVSUB
012381,000170: 24,6157 03323 TC PRENVBSY
012382,000171: 24,6160 03165 TC DATAWAIT
012383,000172: 24,6161 06412 TC ENDMID
012384,000173: 24,6162 06651 TC DOMID20 ## Proceed -> go to DOMID20
012385,000174:
012386,000175: 24,6163 06436 TC FFFLGUP ## Enter -> set flags 1 and 10, continue
012387,000176: 24,6164 01001 OCT 01001
012388,000177:
012389,000178: 24,6165 37351 CAF V21N32 ## Ask operator to load TDEC
012390,000179: 24,6166 03106 TC NVSUB
012391,000180: 24,6167 03323 TC PRENVBSY
012392,000181: 24,6170 03165 TC DATAWAIT
012393,000182: 24,6171 06412 TC ENDMID
012394,000183: 24,6172 06651 TC DOMID20 ## Proceed -> go to DOMID20
012395,000184:
012396,000185: 24,6173 06644 TC DOMID17 ## Enter -> go to DOMID17
012397,000186:
012398,000187: 24,6174 37351 U24,6174 CAF V21N32 ## Ask operator to load TDEC
012399,000188: 24,6175 03106 TC NVSUB
012400,000189: 24,6176 03323 TC PRENVBSY
012401,000190: 24,6177 03165 TC DATAWAIT
012402,000191: 24,6200 06412 TC ENDMID ## Terminate - exit job
012403,000192: 24,6201 06174 TC U24,6174 ## Proceed - enter again
012404,000193:
012405,000194: 24,6202 02276 DOMID12 TC PHASCHNG ## Enter: begin phase 12
012406,000195: 24,6203 01201 OCT 01201
012407,000196: 24,6204 06412 TC ENDMID
012408,000197: 24,6205 07277 TC MIDSTCHK
012409,000198:
012410,000199: 24,6206 06225 TC U24,6225
012411,000200:
012412,000201: 24,6207 06446 U24,6207 TC FFFLGDWN
012413,000202: 24,6210 04000 OCT 04000
012414,000203:
012415,000204: 24,6211 41313 REMID12 CS FFFLAGS ## Coming here from restart. Has bit 7 been set yet?
012416,000205: 24,6212 76743 MASK FFFLAG7
012417,000206: 24,6213 10000 CCS A
012418,000207: 24,6214 06225 TC U24,6225 ## No -- Go to the beginning of phase 12.
012419,000208:
012420,000209: 24,6215 36223 CAF LOW3
012421,000210: 24,6216 71300 MASK SITENUMB
012422,000211: 24,6217 25777 EXTEND
012423,000212: 24,6220 64473 SU THREE
012424,000213: 24,6221 10000 CCS A
012425,000214: 24,6222 06412 TC ENDMID
012426,000215: 24,6223 00007 LOW3 OCT 00007
012427,000216: 24,6224 06225 TC U24,6225
012428,000217:
012429,000218: 24,6225 41313 U24,6225 CS FFFLAGS ## Is flag 6 set? (manual phases 3 and 4)
012430,000219: 24,6226 76701 MASK FFFLAG6
012431,000220: 24,6227 10000 CCS A
012432,000221: 24,6230 06300 TC U24,6300 ## No. Go to U24,6300
012433,000222:
012434,000223: 24,6231 36572 CAF FFFLAG4 ## Is flag 4 set?
012435,000224: 24,6232 71313 MASK FFFLAGS
012436,000225: 24,6233 10000 CCS A
012437,000226: 24,6234 06307 TC U24,6307 ## Yes. Go to U24,6307
012438,000227:
012439,000228: 24,6235 37010 CAF FFFLAG8 ## Is flag 8 set? (manual phase 3)
012440,000229: 24,6236 71313 MASK FFFLAGS
012441,000230: 24,6237 10000 CCS A
012442,000231: 24,6240 06250 TC U24,6250 ## Yes. Go to U24,6250
012443,000232:
012444,000233: 24,6241 06423 TC MIDGRAB
012445,000234:
012446,000235: 24,6242 20017 INHINT
012447,000236: 24,6243 34373 CAF PRIO6
012448,000237: 24,6244 02052 TC NOVAC
012449,000238: 24,6245 50454 CADR U24,6454
012450,000239: 24,6246 20016 RELINT
012451,000240:
012452,000241: 24,6247 06307 TC U24,6307
012453,000242:
012454,000243: 24,6250 41313 U24,6250 CS FFFLAGS
012455,000244: 24,6251 76743 MASK FFFLAG7
012456,000245: 24,6252 10000 CCS A
012457,000246: 24,6253 06304 TC U24,6304
012458,000247:
012459,000248: 24,6254 36223 CAF LOW3
012460,000249: 24,6255 71300 MASK SITENUMB
012461,000250: 24,6256 25777 EXTEND
012462,000251: 24,6257 64473 SU THREE
012463,000252: 24,6260 10000 CCS A
012464,000253: 24,6261 06302 TC U24,6302
012465,000254: 24,6262 10000 FFFLAG13 OCT 10000
012466,000255: 24,6263 06264 TC +1
012467,000256: 24,6264 06423 TC MIDGRAB
012468,000257:
012469,000258: 24,6265 20017 INHINT
012470,000259: 24,6266 34373 CAF PRIO6
012471,000260: 24,6267 02052 TC NOVAC
012472,000261: 24,6270 50514 CADR U24,6514
012473,000262: 24,6271 20016 RELINT
012474,000263:
012475,000264: 24,6272 06307 TC U24,6307
012476,000265:
012477,000266: 24,6273 12000 MIDFLTAB OCT 12000 ## Phase 1 -> bits 11 and 13
012478,000267: 24,6274 10000 OCT 10000 ## Phase 2 -> bit 13
012479,000268: 24,6275 12240 OCT 12240 ## Phase 3 -> bits 6, 8, 11, and 13
012480,000269: 24,6276 12040 OCT 12040 ## Phase 4 -> bits 6, 11, and 13
012481,000270: 24,6277 00000 OCT 00000 ## Phase 5 -> nada
012482,000271:
012483,000272: 24,6300 35501 U24,6300 CAF ZERO
012484,000273: 24,6301 51273 TS NUMBOPT
012485,000274:
012486,000275: 24,6302 06436 U24,6302 TC FFFLGUP
012487,000276: 24,6303 00010 OCT 00010
012488,000277:
012489,000278: 24,6304 03370 U24,6304 TC FREEDSP
012490,000279: 24,6305 06446 TC FFFLGDWN
012491,000280: 24,6306 00001 OCT 00001
012492,000281:
012493,000282: 24,6307 36610 U24,6307 CAF FFFLAG5
012494,000283: 24,6310 71313 MASK FFFLAGS
012495,000284: 24,6311 10000 CCS A
012496,000285: 24,6312 06611 TC U24,6611
012497,000286: 24,6313 07232 TC LOADREF
012498,000287:
012499,000288: 24,6314 06316 TC +2
012500,000289:
012501,000290: 24,6315 77576 U24,6315 EXIT 0
012502,000291:
012503,000292: 24,6316 36343 CAF FFFLAG12
012504,000293: 24,6317 71313 MASK FFFLAGS
012505,000294: 24,6320 10000 CCS A
012506,000295: 24,6321 06207 TC U24,6207
012507,000296:
012508,000297: 24,6322 36723 CAF FFFLAG11
012509,000298: 24,6323 71313 MASK FFFLAGS
012510,000299: 24,6324 10000 CCS A
012511,000300: 24,6325 06331 TC +4
012512,000301:
012513,000302: 24,6326 35501 CAF ZERO
012514,000303: 24,6327 51303 TS WMATFLAG
012515,000304: 24,6330 06353 TC U24,6353
012516,000305:
012517,000306: 24,6331 34516 CAF ONE
012518,000307: 24,6332 51303 TS WMATFLAG
012519,000308: 24,6333 06353 TC U24,6353
012520,000309:
012521,000310: 24,6334 77576 DOMID16 EXIT 0
012522,000311:
012523,000312: 24,6335 02276 TC PHASCHNG
012524,000313: 24,6336 01601 OCT 01601
012525,000314: 24,6337 06412 TC ENDMID
012526,000315: 24,6340 07277 TC MIDSTCHK
012527,000316: 24,6341 06344 TC +3
012528,000317:
012529,000318: 24,6342 06436 REMID16 TC FFFLGUP
012530,000319: 24,6343 04000 FFFLAG12 OCT 04000
012531,000320:
012532,000321: 24,6344 07216 TC SAVEREF
012533,000322:
012534,000323: 24,6345 02276 TC PHASCHNG
012535,000324: 24,6346 01201 OCT 01201
012536,000325: 24,6347 06351 TC +2
012537,000326: 24,6350 06351 TC +1
012538,000327:
012539,000328: 24,6351 04000 TC INTPRET
012540,000329: 24,6352 40576 ITCQ 0
012541,000330:
012542,000331: 24,6353 04000 U24,6353 TC INTPRET
012543,000332: 24,6354 73776 BMN 0
012544,000333: 24,6355 01267 TDEC
012545,000334: 24,6356 11043 DOMID15
012546,000335:
012547,000336: 24,6357 72776 STZ 0
012548,000337: 24,6360 00123 OVFIND
012549,000338:
012550,000339: 24,6361 66775 DSU 1
012551,000340: 24,6362 63712 TSLT DDV
012552,000341: 24,6363 01267 TDEC
012553,000342: 24,6364 01147 TET
012554,000343: 24,6365 00012 9D
012555,000344: 24,6366 07472 EARTHTAB +9D
012556,000345: 24,6367 33263 STORE DT/2
012557,000346:
012558,000347: 24,6370 71773 BOV 3
012559,000348: 24,6371 65132 ABS DSU
012560,000349: 24,6372 73742 BMN DAD
012561,000350: 24,6373 66756 DSU BMN
012562,000351: 24,6374 10404 USEMXDT2
012563,000352: 24,6375 01263 DT/2
012564,000353: 24,6376 11340 DT/2MIN
012565,000354: 24,6377 10607 U24,6606
012566,000355: 24,6400 11340 DT/2MIN
012567,000356: 24,6401 11342 DT/2MAX
012568,000357: 24,6402 07131 TIMESTEP
012569,000358:
012570,000359: 24,6403 45175 USEMXDT2 DMOVE 1
012571,000360: 24,6404 53776 SIGN
012572,000361: 24,6405 11342 DT/2MAX
012573,000362: 24,6406 01263 DT/2
012574,000363: 24,6407 33263 STORE DT/2
012575,000364:
012576,000365: 24,6410 76776 ITC 0
012577,000366: 24,6411 07131 TIMESTEP
012578,000367:
012579,000368: 24,6412 03370 ENDMID TC FREEDSP
012580,000369: 24,6413 06446 TC FFFLGDWN
012581,000370: 24,6414 00001 OCT 00001
012582,000371:
012583,000372: 24,6415 05654 TC BANKCALL
012584,000373: 24,6416 30453 CADR MKRELEAS
012585,000374:
012586,000375: 24,6417 44516 CS ONE
012587,000376: 24,6420 02312 TC NEWPHASE
012588,000377: 24,6421 00001 OCT 1
012589,000378:
012590,000379: 24,6422 02124 TC ENDOFJOB
012591,000380:
012592,000381: 24,6423 30001 MIDGRAB XCH Q
012593,000382: 24,6424 51302 TS MIDEXIT
012594,000383:
012595,000384: 24,6425 36434 CAF MIDGRBFL
012596,000385: 24,6426 71313 MASK FFFLAGS
012597,000386: 24,6427 10000 CCS A
012598,000387: 24,6430 01302 TC MIDEXIT
012599,000388:
012600,000389: 24,6431 03310 TC GRABDSP
012601,000390: 24,6432 03316 TC PREGBSY
012602,000391:
012603,000392: 24,6433 06436 TC FFFLGUP
012604,000393: 24,6434 00001 MIDGRBFL OCT 00001
012605,000394:
012606,000395: 24,6435 01302 TC MIDEXIT
012607,000396:
012608,000397: 24,6436 20001 FFFLGUP INDEX Q
012609,000398: 24,6437 40000 CS 0
012610,000399: 24,6440 71313 MASK FFFLAGS
012611,000400: 24,6441 20001 INDEX Q
012612,000401: 24,6442 60000 AD 0
012613,000402: 24,6443 51313 TS FFFLAGS
012614,000403: 24,6444 20001 INDEX Q
012615,000404: 24,6445 00001 TC 1
012616,000405:
012617,000406: 24,6446 20001 FFFLGDWN INDEX Q
012618,000407: 24,6447 40000 CS 0
012619,000408: 24,6450 71313 MASK FFFLAGS
012620,000409: 24,6451 51313 TS FFFLAGS
012621,000410: 24,6452 20001 INDEX Q
012622,000411: 24,6453 00001 TC 1
012623,000412:
012624,000413: 24,6454 37345 U24,6454 CAF SITEADR
012625,000414: 24,6455 50117 TS MPAC +2
012626,000415:
012627,000416: 24,6456 37347 CAF VB21N02
012628,000417: 24,6457 03106 TC NVSUB
012629,000418: 24,6460 03323 TC PRENVBSY
012630,000419: 24,6461 03165 TC DATAWAIT
012631,000420: 24,6462 06600 TC U24,6600
012632,000421: 24,6463 06603 TC U24,6603
012633,000422:
012634,000423: 24,6464 37344 CAF BITS1-14
012635,000424: 24,6465 71300 MASK SITENUMB
012636,000425: 24,6466 25777 EXTEND
012637,000426: 24,6467 66472 SU BITS1-2
012638,000427: 24,6470 10000 CCS A
012639,000428: 24,6471 06454 TC U24,6454
012640,000429: 24,6472 00003 BITS1-2 OCT 00003
012641,000430: 24,6473 06474 TC +1
012642,000431:
012643,000432: 24,6474 11300 CCS SITENUMB
012644,000433: 24,6475 06505 TC U24,6505
012645,000434: 24,6476 06600 TC U24,6600
012646,000435: 24,6477 06501 TC +2
012647,000436: 24,6500 06600 TC U24,6600
012648,000437:
012649,000438: 24,6501 37353 CAF V21N34
012650,000439: 24,6502 03106 TC NVSUB
012651,000440: 24,6503 03323 TC PRENVBSY
012652,000441: 24,6504 06510 TC +4
012653,000442: 24,6505 37352 U24,6505 CAF VB21N34
012654,000443: 24,6506 03106 TC NVSUB
012655,000444: 24,6507 03323 TC PRENVBSY
012656,000445: 24,6510 03165 TC DATAWAIT
012657,000446: 24,6511 06600 TC U24,6600
012658,000447: 24,6512 06603 TC U24,6603
012659,000448:
012660,000449: 24,6513 06553 TC U24,6553
012661,000450:
012662,000451: 24,6514 37345 U24,6514 CAF SITEADR
012663,000452: 24,6515 50117 TS MPAC +2
012664,000453: 24,6516 37347 CAF VB21N02
012665,000454: 24,6517 03106 TC NVSUB
012666,000455: 24,6520 03323 TC PRENVBSY
012667,000456: 24,6521 03165 TC DATAWAIT
012668,000457: 24,6522 06600 TC U24,6600
012669,000458: 24,6523 06603 TC U24,6603
012670,000459:
012671,000460: 24,6524 36223 CAF LOW3
012672,000461: 24,6525 71300 MASK SITENUMB
012673,000462: 24,6526 20000 INDEX A
012674,000463: 24,6527 06530 TC +1
012675,000464: 24,6530 06514 TC U24,6514
012676,000465: 24,6531 06540 TC U24,6540
012677,000466: 24,6532 06540 TC U24,6540
012678,000467: 24,6533 06540 TC U24,6540
012679,000468: 24,6534 06553 TC U24,6553
012680,000469: 24,6535 06553 TC U24,6553
012681,000470: 24,6536 06514 TC U24,6514
012682,000471: 24,6537 06514 TC U24,6514
012683,000472:
012684,000473: 24,6540 37343 U24,6540 CAF BITS4-9
012685,000474: 24,6541 71300 MASK SITENUMB
012686,000475: 24,6542 10000 CCS A
012687,000476: 24,6543 06545 TC +2
012688,000477: 24,6544 06514 TC U24,6514
012689,000478:
012690,000479: 24,6545 25777 EXTEND
012691,000480: 24,6546 66551 SU BITS5-9
012692,000481: 24,6547 10000 CCS A
012693,000482: 24,6550 06514 TC U24,6514
012694,000483: 24,6551 00760 BITS5-9 OCT 00760
012695,000484: 24,6552 06553 TC +1
012696,000485:
012697,000486: 24,6553 04000 U24,6553 TC INTPRET
012698,000487:
012699,000488: 24,6554 66774 DSU 2
012700,000489: 24,6555 65132 ABS DSU
012701,000490: 24,6556 73776 BMN
012702,000491: 24,6557 01267 TDEC
012703,000492: 24,6560 01147 TET
012704,000493: 24,6561 11340 DT/2MIN
012705,000494: 24,6562 10571 U24,6570
012706,000495:
012707,000496: 24,6563 77576 EXIT 0
012708,000497:
012709,000498: 24,6564 03370 TC FREEDSP
012710,000499:
012711,000500: 24,6565 06446 TC FFFLGDWN
012712,000501: 24,6566 00001 OCT 00001
012713,000502:
012714,000503: 24,6567 06571 TC +2
012715,000504:
012716,000505: 24,6570 77576 U24,6570 EXIT 0
012717,000506:
012718,000507: 24,6571 06436 TC FFFLGUP
012719,000508: 24,6572 00010 FFFLAG4 OCT 00010
012720,000509:
012721,000510: 24,6573 20017 INHINT
012722,000511: 24,6574 36617 CAF U24,6617
012723,000512: 24,6575 02060 TC JOBWAKE
012724,000513: 24,6576 20016 RELINT
012725,000514:
012726,000515: 24,6577 02124 TC ENDOFJOB
012727,000516:
012728,000517: 24,6600 06436 U24,6600 TC FFFLGUP
012729,000518: 24,6601 00002 FFFLAG2 OCT 00002
012730,000519:
012731,000520: 24,6602 06553 TC U24,6553
012732,000521:
012733,000522: 24,6603 06436 U24,6603 TC FFFLGUP
012734,000523: 24,6604 00004 FFFLAG3 OCT 00004
012735,000524:
012736,000525: 24,6605 06553 TC U24,6553
012737,000526:
012738,000527: 24,6606 77576 U24,6606 EXIT 0
012739,000528:
012740,000529: 24,6607 06436 TC FFFLGUP
012741,000530: 24,6610 00020 FFFLAG5 OCT 00020
012742,000531:
012743,000532: 24,6611 36572 U24,6611 CAF FFFLAG4
012744,000533: 24,6612 71313 MASK FFFLAGS
012745,000534: 24,6613 10000 CCS A
012746,000535: 24,6614 06620 TC U24,6620
012747,000536:
012748,000537: 24,6615 36617 CAF U24,6617
012749,000538: 24,6616 02127 TC JOBSLEEP
012750,000539: 24,6617 50620 U24,6617 CADR U24,6620
012751,000540:
012752,000541: 24,6620 36701 U24,6620 CAF FFFLAG6
012753,000542: 24,6621 71313 MASK FFFLAGS
012754,000543: 24,6622 10000 CCS A
012755,000544: 24,6623 06627 TC U24,6627
012756,000545:
012757,000546: 24,6624 35501 U24,6624 CAF ZERO
012758,000547: 24,6625 51272 TS NUMBTEMP
012759,000548: 24,6626 07043 TC DOMID15 +1
012760,000549:
012761,000550: 24,6627 36601 U24,6627 CAF FFFLAG2
012762,000551: 24,6630 71313 MASK FFFLAGS
012763,000552: 24,6631 10000 CCS A
012764,000553: 24,6632 06412 TC ENDMID
012765,000554:
012766,000555: 24,6633 36604 CAF FFFLAG3
012767,000556: 24,6634 71313 MASK FFFLAGS
012768,000557: 24,6635 10000 CCS A
012769,000558: 24,6636 06624 TC U24,6624
012770,000559:
012771,000560: 24,6637 41313 CS FFFLAGS
012772,000561: 24,6640 77010 MASK FFFLAG8
012773,000562: 24,6641 10000 CCS A
012774,000563: 24,6642 06763 TC DOMID13 +1
012775,000564: 24,6643 06747 TC U24,6747
012776,000565:
012777,000566: 24,6644 02276 DOMID17 TC PHASCHNG
012778,000567: 24,6645 01701 OCT 01701
012779,000568: 24,6646 06412 TC ENDMID
012780,000569: 24,6647 07277 TC MIDSTCHK
012781,000570: 24,6650 06651 REMID17 TC +1
012782,000571:
012783,000572: 24,6651 02276 DOMID20 TC PHASCHNG
012784,000573: 24,6652 02001 OCT 02001
012785,000574: 24,6653 06412 TC ENDMID
012786,000575: 24,6654 07277 TC MIDSTCHK
012787,000576:
012788,000577: 24,6655 35501 REMID20 CAF ZERO ## Prepare to take NUMBOPT marks
012789,000578: 24,6656 61273 AD NUMBOPT
012790,000579: 24,6657 05654 TC BANKCALL
012791,000580: 24,6660 30406 CADR SXTMARK
012792,000581:
012793,000582: 24,6661 05654 TC BANKCALL
012794,000583: 24,6662 30327 CADR OPTSTALL
012795,000584: 24,6663 06412 TC ENDMID
012796,000585:
012797,000586: 24,6664 20735 INDEX MARKSTAT ## Did we take any marks?
012798,000587: 24,6665 10052 CCS QPRET
012799,000588: 24,6666 06670 TC +2 ## Yes, continue with A = (num marks - 1)
012800,000589: 24,6667 06412 TC ENDMID ## No, end MNG.
012801,000590:
012802,000591: 24,6670 51273 TS NUMBOPT ## NUMBOPT = (num marks - 1)
012803,000592: 24,6671 10000 CCS A ## Did we take more than one mark?
012804,000593: 24,6672 06703 TC GOTMARKS ## Yes, go to GOTMARKS
012805,000594:
012806,000595: 24,6673 36223 CAF LOW3 ## No, only one mark was taken.
012807,000596: 24,6674 71300 MASK SITENUMB
012808,000597: 24,6675 25777 EXTEND
012809,000598: 24,6676 65502 SU FOUR
012810,000599: 24,6677 10000 CCS A ## Is the last digit of SITENUMB > 4?
012811,000600: 24,6700 06412 TC ENDMID ## Yes, end MNG.
012812,000601: 24,6701 00040 FFFLAG6 OCT 00040
012813,000602: 24,6702 06703 TC +1 ## No, continue into GOTMARKS.
012814,000603:
012815,000604: 24,6703 04000 GOTMARKS TC INTPRET
012816,000605:
012817,000606: 24,6704 71576 LXC,1 0 ## Put the address of the VAC area containing
012818,000607: 24,6705 00736 MARKSTAT ## the marks into X1
012819,000608:
012820,000609: 24,6706 44175 DMOVE* 1
012821,000610: 24,6707 64716 DMP TSLT
012822,000611: 24,6710 00001 0,1 ## Extract the time of the first mark
012823,000612: 24,6711 13617 SCLTAVMD ## Convert it to weeks
012824,000613: 24,6712 00004 3
012825,000614: 24,6713 33267 STORE TDEC ## ... and save it in TDEC.
012826,000615:
012827,000616: 24,6714 77576 EXIT 0
012828,000617:
012829,000618: 24,6715 36223 CAF LOW3 ## Is SITENUMB > 3?
012830,000619: 24,6716 71300 MASK SITENUMB
012831,000620: 24,6717 25777 EXTEND
012832,000621: 24,6720 64473 SU THREE
012833,000622: 24,6721 10000 CCS A
012834,000623: 24,6722 06736 TC U24,6736 ## Yes, go to U24,6736.
012835,000624: 24,6723 02000 FFFLAG11 OCT 02000
012836,000625: 24,6724 06725 TC +1 ## No, SITENUMB is <= 3.
012837,000626: 24,6725 04000 TC INTPRET
012838,000627:
012839,000628: 24,6726 42175 SMOVE* 1
012840,000629: 24,6727 76571 RTB RTB
012841,000630: 24,6730 00013 5,1 ## Extract OPTY (trunnion angle) of mark.
012842,000631: 24,6731 20303 CDULOGIC
012843,000632: 24,6732 20406 TRUNLOG ## Convert to DP revolutions.
012844,000633: 24,6733 33277 STORE MEASQ ## Save as MEASQ (??)
012845,000634:
012846,000635: 24,6734 77576 EXIT 0
012847,000636:
012848,000637: 24,6735 06742 TC +5
012849,000638:
012850,000639: 24,6736 04000 U24,6736 TC INTPRET
012851,000640: 24,6737 76776 ITC 0
012852,000641: 24,6740 11166 U24,7165 ## Get unit vector of mark in reference
012853,000642: 24,6741 77576 EXIT 0
012854,000643:
012855,000644: 24,6742 06436 TC FFFLGUP ## Put up flag 7
012856,000645: 24,6743 00100 FFFLAG7 OCT 00100
012857,000646:
012858,000647: 24,6744 06446 U24,6744 TC FFFLGDWN ## Take down flag 5
012859,000648: 24,6745 00020 OCT 00020
012860,000649:
012861,000650: 24,6746 06202 TC DOMID12
012862,000651:
012863,000652: 24,6747 04000 U24,6747 TC INTPRET
012864,000653: 24,6750 71575 LXC,1 1
012865,000654: 24,6751 74176 VMOVE*
012866,000655: 24,6752 00736 MARKSTAT
012867,000656: 24,6753 00001 0,1
012868,000657: 24,6754 33211 STORE VECTAB
012869,000658:
012870,000659: 24,6755 43575 TEST 1
012871,000660: 24,6756 42576 SWITCH
012872,000661: 24,6757 00005 FIRSTFLG
012873,000662: 24,6760 10763 +2
012874,000663: 24,6761 00005 FIRSTFLG
012875,000664:
012876,000665: 24,6762 77576 DOMID13 EXIT 0
012877,000666:
012878,000667: 24,6763 02276 TC PHASCHNG
012879,000668: 24,6764 01301 OCT 01301
012880,000669: 24,6765 06412 TC ENDMID
012881,000670: 24,6766 07277 TC MIDSTCHK
012882,000671: 24,6767 07012 TC U24,7012
012883,000672:
012884,000673: 24,6770 35501 REMID13 CAF ZERO
012885,000674: 24,6771 51273 TS NUMBOPT
012886,000675:
012887,000676: 24,6772 41313 CS FFFLAGS
012888,000677: 24,6773 77010 MASK FFFLAG8
012889,000678: 24,6774 10000 CCS A
012890,000679: 24,6775 07012 TC U24,7012
012891,000680:
012892,000681: 24,6776 46262 CS FFFLAG13
012893,000682: 24,6777 71313 MASK FFFLAGS
012894,000683: 24,7000 10000 CCS A
012895,000684: 24,7001 07012 TC U24,7012
012896,000685:
012897,000686: 24,7002 36223 CAF LOW3
012898,000687: 24,7003 71300 MASK SITENUMB
012899,000688: 24,7004 25777 EXTEND
012900,000689: 24,7005 65502 SU FOUR
012901,000690: 24,7006 10000 CCS A
012902,000691: 24,7007 06412 TC ENDMID
012903,000692: 24,7010 00200 FFFLAG8 OCT 00200
012904,000693: 24,7011 07012 TC +1
012905,000694:
012906,000695: 24,7012 04000 U24,7012 TC INTPRET
012907,000696:
012908,000697: 24,7013 43575 TEST 1
012909,000698: 24,7014 76776 ITC
012910,000699: 24,7015 00005 FIRSTFLG
012911,000700: 24,7016 22427 U31,6426 ## In B-VECTOR
012912,000701: 24,7017 23237 U31,7236 ## In B-VECTOR
012913,000702:
012914,000703: 24,7020 77576 DOMID14 EXIT 0
012915,000704:
012916,000705: 24,7021 02276 TC PHASCHNG
012917,000706: 24,7022 01401 OCT 01401
012918,000707: 24,7023 07027 TC +4
012919,000708: 24,7024 07027 TC +3
012920,000709:
012921,000710: 24,7025 35501 REMID14 CAF ZERO
012922,000711: 24,7026 51273 TS NUMBOPT
012923,000712:
012924,000713: 24,7027 07216 TC SAVEREF
012925,000714:
012926,000715: 24,7030 04000 TC INTPRET
012927,000716: 24,7031 73575 LXA,1 1
012928,000717: 24,7032 67576 SXA,1
012929,000718: 24,7033 01274 NUMBOPT
012930,000719: 24,7034 01273 NUMBTEMP
012931,000720:
012932,000721: 24,7035 43575 TEST 1
012933,000722: 24,7036 76776 ITC
012934,000723: 24,7037 00005 FIRSTFLG
012935,000724: 24,7040 11043 DOMID15
012936,000725: 24,7041 10763 DOMID13
012937,000726:
012938,000727: 24,7042 77576 DOMID15 EXIT 0 ## Change phase to 15.
012939,000728:
012940,000729: 24,7043 02276 TC PHASCHNG
012941,000730: 24,7044 01501 OCT 01501
012942,000731: 24,7045 06412 TC ENDMID
012943,000732: 24,7046 07277 TC MIDSTCHK
012944,000733:
012945,000734: 24,7047 06423 TC MIDGRAB
012946,000735: 24,7050 07053 TC +3
012947,000736:
012948,000737: 24,7051 35501 REMID15 CAF ZERO ## Zero NUMBTEMP on a restart.
012949,000738: 24,7052 51272 TS NUMBTEMP
012950,000739:
012951,000740: 24,7053 47354 CS VB06N33 ## Display calculated time
012952,000741: 24,7054 51301 TS NVCODE
012953,000742: 24,7055 07246 TC MIDDISP
012954,000743:
012955,000744: 24,7056 04000 TC INTPRET
012956,000745:
012957,000746: 24,7057 76576 RTB 0
012958,000747: 24,7060 20264 FRESHPD
012959,000748:
012960,000749: 24,7061 45175 DMOVE 1 ## Calculate latitude and longitude
012961,000750: 24,7062 76776 ITC
012962,000751: 24,7063 01147 TET
012963,000752: 24,7064 22176 LAT-LONG
012964,000753:
012965,000754: 24,7065 76776 ITC 0 ## Calculate azimuth (leaves position in
012966,000755: 24,7066 22273 CALCAZ ## ALPHAV and velocity in BETAV)
012967,000756:
012968,000757: 24,7067 45175 DMOVE 1 ## Display lat, long, az
012969,000758: 24,7070 76576 RTB
012970,000759: 24,7071 01263 LAT
012971,000760: 24,7072 20324 1STO2S
012972,000761: 24,7073 32701 STORE THETAD
012973,000762:
012974,000763: 24,7074 45175 DMOVE 1
012975,000764: 24,7075 76576 RTB
012976,000765: 24,7076 01265 LONG
012977,000766: 24,7077 20324 1STO2S
012978,000767: 24,7100 32702 STORE THETAD +1
012979,000768:
012980,000769: 24,7101 45175 DMOVE 1
012981,000770: 24,7102 76576 RTB
012982,000771: 24,7103 01271 AZ
012983,000772: 24,7104 20324 1STO2S
012984,000773: 24,7105 32703 STORE THETAD +2
012985,000774:
012986,000775: 24,7106 77576 EXIT 0
012987,000776:
012988,000777: 24,7107 47355 CS VB06N22
012989,000778: 24,7110 51301 TS NVCODE
012990,000779: 24,7111 07246 TC MIDDISP
012991,000780:
012992,000781: 24,7112 04000 TC INTPRET ## Display position
012993,000782:
012994,000783: 24,7113 75176 VMOVE 0
012995,000784: 24,7114 01153 ALPHAV
012996,000785: 24,7115 32617 STORE DSPTEM1
012997,000786:
012998,000787: 24,7116 77576 EXIT 0
012999,000788:
013000,000789: 24,7117 47356 CS VB06N76
013001,000790: 24,7120 51301 TS NVCODE
013002,000791: 24,7121 07246 TC MIDDISP
013003,000792:
013004,000793: 24,7122 04000 TC INTPRET ## Display velocity
013005,000794:
013006,000795: 24,7123 75176 VMOVE 0
013007,000796: 24,7124 01161 BETAV
013008,000797: 24,7125 32617 STORE DSPTEM1
013009,000798:
013010,000799: 24,7126 77576 EXIT 0
013011,000800:
013012,000801: 24,7127 47357 CS VB06N77
013013,000802: 24,7130 51301 TS NVCODE
013014,000803: 24,7131 07246 TC MIDDISP
013015,000804:
013016,000805: 24,7132 11272 CCS NUMBTEMP ## Is NUMBTEMP positive?
013017,000806: 24,7133 07135 TC +2 ## Yes: continue on.
013018,000807: 24,7134 06412 TC ENDMID ## No: end MNG.
013019,000808: 24,7135 51273 TS NUMBOPT ## NUMBOPT = NUMBTEMP - 1
013020,000809:
013021,000810: 24,7136 20735 INDEX MARKSTAT
013022,000811: 24,7137 40052 CS QPRET
013023,000812: 24,7140 61272 AD NUMBTEMP ## A = (total # marks - NUMBTEMP)
013024,000813: 24,7141 60000 DOUBLE
013025,000814: 24,7142 60000 DOUBLE
013026,000815: 24,7143 60000 DOUBLE
013027,000816: 24,7144 25777 EXTEND
013028,000817: 24,7145 47335 MP 7/8 ## Use A to calucate offset of next mark
013029,000818: 24,7146 25777 EXTEND
013030,000819: 24,7147 60735 SU MARKSTAT ## Calculate full base address of next mark
013031,000820: 24,7150 20067 INDEX FIXLOC
013032,000821: 24,7151 50046 TS X1 ## Store it in X1
013033,000822:
013034,000823: 24,7152 04000 TC INTPRET
013035,000824:
013036,000825: 24,7153 44175 DMOVE* 1 ## Convert time of new mark to weeks
013037,000826: 24,7154 64716 DMP TSLT
013038,000827: 24,7155 00001 0,1
013039,000828: 24,7156 13617 SCLTAVMD
013040,000829: 24,7157 00004 3
013041,000830: 24,7160 33267 STORE TDEC ## ... and store it in TDEC.
013042,000831:
013043,000832: 24,7161 76776 ITC 0
013044,000833: 24,7162 11166 U24,7165 ## Get unit vector of mark in reference
013045,000834:
013046,000835: 24,7163 77576 EXIT 0
013047,000836:
013048,000837: 24,7164 06744 TC U24,6744
013049,000838:
013050,000839: 24,7165 45576 U24,7165 ITA 0 ## Function to get unit vector of mark in reference
013051,000840: 24,7166 01303 MIDEXIT
013052,000841:
013053,000842: 24,7167 76576 RTB 0
013054,000843: 24,7170 20264 FRESHPD
013055,000844:
013056,000845: 24,7171 76776 ITC 0 ## Transform angles into a star half unit vector in STARM
013057,000846: 24,7172 04733 SXTNB
013058,000847:
013059,000848: 24,7173 76576 RTB 0
013060,000849: 24,7174 20264 FRESHPD
013061,000850:
013062,000851: 24,7175 75174 VMOVE 2
013063,000852: 24,7176 70511 LXC,2 INCR,2
013064,000853: 24,7177 66572 SXA,2 ITC
013065,000854: 24,7200 00041 STARM
013066,000855: 24,7201 00047 X1 ## Calculate the base address of the CDU readings
013067,000856: 24,7202 00003 2 ## and store it into S1
013068,000857: 24,7203 00051 S1
013069,000858: 24,7204 04524 NBSM ## Transform the STARM half unit vector into SM coordinates
013070,000859:
013071,000860: 24,7205 71576 LXC,1 0 ## Reload X1 with the address of the mark VAC area, since
013072,000861: 24,7206 00736 MARKSTAT ## it got clobbered by NBSM
013073,000862:
013074,000863: 24,7207 47575 NOLOD 1
013075,000864: 24,7210 51622 VXM VSLT ## Finally, transform the vector into reference
013076,000865: 24,7211 01052 REFSMMAT
013077,000866: 24,7212 00002 1
013078,000867: 24,7213 34001 STORE 0,1 ## and store it into the mark VAC area, overwriting the mark
013079,000868:
013080,000869: 24,7214 44576 ITCI 0
013081,000870: 24,7215 01303 MIDEXIT
013082,000871:
013083,000872: 24,7216 30001 SAVEREF XCH Q
013084,000873: 24,7217 51302 TS MIDEXIT
013085,000874:
013086,000875: 24,7220 37336 CAF DEC41
013087,000876: 24,7221 51305 +3 TS NORMGAM
013088,000877:
013089,000878: 24,7222 35501 CAF ZERO
013090,000879: 24,7223 21305 INDEX NORMGAM
013091,000880: 24,7224 61100 AD RRECT
013092,000881: 24,7225 21305 INDEX NORMGAM
013093,000882: 24,7226 50765 TS REFRRECT
013094,000883: 24,7227 11305 CCS NORMGAM
013095,000884: 24,7230 07221 TC SAVEREF +3
013096,000885: 24,7231 01302 TC MIDEXIT
013097,000886:
013098,000887: 24,7232 30001 LOADREF XCH Q
013099,000888: 24,7233 51302 TS MIDEXIT
013100,000889:
013101,000890: 24,7234 37336 CAF DEC41
013102,000891: 24,7235 51305 +3 TS NORMGAM
013103,000892:
013104,000893: 24,7236 35501 CAF ZERO
013105,000894: 24,7237 21305 INDEX NORMGAM
013106,000895: 24,7240 60765 AD REFRRECT
013107,000896: 24,7241 21305 INDEX NORMGAM
013108,000897: 24,7242 51100 TS RRECT
013109,000898:
013110,000899: 24,7243 11305 CCS NORMGAM
013111,000900: 24,7244 07235 TC LOADREF +3
013112,000901:
013113,000902: 24,7245 01302 TC MIDEXIT
013114,000903:
013115,000904: 24,7246 30001 MIDDISP XCH Q
013116,000905: 24,7247 51302 TS DSPRTRN
013117,000906:
013118,000907: 24,7250 41301 CS NVCODE
013119,000908: 24,7251 03106 TC NVSUB
013120,000909: 24,7252 03323 TC PRENVBSY
013121,000910: 24,7253 05654 TC BANKCALL
013122,000911: 24,7254 14000 CADR FLASHON
013123,000912: 24,7255 03144 TC ENDIDLE
013124,000913: 24,7256 06412 TC ENDMID
013125,000914: 24,7257 07261 TC +2
013126,000915: 24,7260 06412 TC ENDMID
013127,000916:
013128,000917: 24,7261 40656 CS -PHASE1
013129,000918: 24,7262 50115 TS MPAC
013130,000919: 24,7263 07277 TC MIDSTCHK
013131,000920: 24,7264 01302 TC DSPRTRN
013132,000921:
013133,000922: 24,7265 07246 U24,7265 TC MIDDISP ## Called from B-Vector
013134,000923:
013135,000924: 24,7266 04000 TC INTPRET
013136,000925: 24,7267 76776 ITC 0
013137,000926: 24,7270 07621 INCORP2
013138,000927:
013139,000928: 24,7271 32143 STARTMID CAF PRIO5
013140,000929: 24,7272 02046 TC FINDVAC
013141,000930: 24,7273 50053 CADR STRTMID2
013142,000931:
013143,000932: 24,7274 06446 TC FFFLGDWN
013144,000933: 24,7275 00001 OCT 00001
013145,000934:
013146,000935: 24,7276 05702 TC SWRETURN
013147,000936:
013148,000937: 24,7277 44513 MIDSTCHK CS EIGHT
013149,000938: 24,7300 60115 AD MPAC
013150,000939: 24,7301 10000 CCS A
013151,000940: 24,7302 00001 TC Q ## If last phase was >8, return to caller
013152,000941: 24,7303 06000 TC MIDMANPH ## In all other cases, go to MIDMANPH
013153,000942: 24,7304 06000 TC MIDMANPH
013154,000943: 24,7305 06000 TC MIDMANPH
013155,000944:
013156,000945: 24,7306 32143 MIDGO CAF PRIO5
013157,000946: 24,7307 02046 TC FINDVAC
013158,000947: 24,7310 51312 CADR MIDRSTRT
013159,000948:
013160,000949: 24,7311 05702 TC SWRETURN
013161,000950:
013162,000951: 24,7312 40656 MIDRSTRT CS -PHASE1
013163,000952: 24,7313 50115 TS MPAC
013164,000953: 24,7314 07277 TC MIDSTCHK
013165,000954:
013166,000955: 24,7315 47321 CS MIDMAXPH
013167,000956: 24,7316 60115 AD MPAC
013168,000957: 24,7317 10000 CCS A
013169,000958: 24,7320 06412 TC ENDMID
013170,000959: 24,7321 00020 MIDMAXPH OCT 20
013171,000960: 24,7322 07324 TC MIDGOFAN
013172,000961: 24,7323 06655 TC REMID20
013173,000962:
013174,000963: 24,7324 20000 MIDGOFAN INDEX A
013175,000964: 24,7325 07326 TC +1
013176,000965: 24,7326 06650 TC REMID17
013177,000966: 24,7327 06342 TC REMID16
013178,000967: 24,7330 07051 TC REMID15
013179,000968: 24,7331 07025 TC REMID14
013180,000969: 24,7332 06770 TC REMID13
013181,000970: 24,7333 06211 TC REMID12
013182,000971: 24,7334 06057 TC REMID11
013183,000972:
013184,000973: 24,7335 34000 7/8 DEC .875
013185,000974: 24,7336 00051 DEC41 DEC 41 B-14
013186,000975: 24,7337 00000 03113 DT/2MIN 2DEC .000006
013187,000976: 24,7341 12317 00451 DT/2MAX 2DEC .65027077 B-1 # .075 HOUR MAXIMUM TIME STEP
013188,000977: 24,7343 00770 BITS4-9 OCT 00770
013189,000978: 24,7344 37777 BITS1-14 OCT 37777
013190,000979:
013191,000980: 24,7345 01300 SITEADR ADRES SITENUMB
013192,000981:
013193,000982: 24,7346 02132 VB21N32 OCT 02132
013194,000983: 24,7347 02102 VB21N02 OCT 02102
013195,000984: 24,7350 02572 VB25N72 OCT 02572
013196,000985: 24,7351 02132 V21N32 OCT 02132
013197,000986: 24,7352 02134 VB21N34 OCT 02134
013198,000987: 24,7353 02134 V21N34 OCT 02134
013199,000988: 24,7354 00633 VB06N33 OCT 00633
013200,000989: 24,7355 00622 VB06N22 OCT 00622
013201,000990: 24,7356 00676 VB06N76 OCT 00676
013202,000991: 24,7357 00677 VB06N77 OCT 00677
013203,000992: 24,7360 02457 VB24N57 OCT 02457
013204,000993:
013205,000994:
013206,000995: 24,7361 73006 70513 LNDMKTAB 2DEC -2553.22974 B-14
013207,000996: 24,7363 12046 32200 2DEC 5158.82031 B-14
013208,000997: 24,7365 05256 27446 2DEC 2734.73669 B-14
013209,000998:
013210,000999: 24,7367 67472 53135 2DEC -4293.65051 B-14
013211,001000: 24,7371 67705 75353 2DEC -4154.07935 B-14
013212,001001: 24,7373 73526 41007 2DEC -2217.96826 B-14
013213,001002:
013214,001003: 24,7375 13625 25367 2DEC 6037.67133 B-14
013215,001004: 24,7377 74353 75703 2DEC -1812.06616 B-14
013216,001005: 24,7401 76131 41430 2DEC -934.95160 B-14
013217,001006:
013218,001007: 24,7403 20000 00000 U24,7403 2DEC .5
013219,001008: 24,7405 00000 00000 2DEC 0 B-28
013220,001009: 24,7407 00000 00000 2DEC 0 B-28
013221,001010:
013222,001011: 24,7411 00000 00000 2DEC 0 B-28
013223,001012: 24,7413 20000 00000 2DEC .5
013224,001013: 24,7415 00000 00000 2DEC 0 B-28
013225,001014:
013226,001015: 24,7417 57777 77777 2DEC -.5
013227,001016: 24,7421 00000 00000 2DEC 0 B-28
013228,001017: 24,7423 00000 00000 2DEC 0 B-28
013229,001018:
013230,001019: 24,7425 00000 00000 2DEC 0 B-28
013231,001020: 24,7427 57777 77777 2DEC -.5
013232,001021: 24,7431 00000 00000 2DEC 0 B-28
013233,001022:
013234,001023: 24,7433 67724 74626 RINIT 2DEC -4139.10016 B-14 # KILOMETERS.
013235,001024: 24,7435 07126 31105 2DEC 3670.78546 B-14
013236,001025: 24,7437 06713 14733 2DEC 3531.40400 B-14
013237,001026:
013238,001027: 24,7441 57367 55130 VINIT 2DEC -8.06483108 E-3 B6 # METERS PER SECOND SCALED SQRT(MU).
013239,001028: 24,7443 54665 44362 2DEC -9.34873597 E-3 B6
013240,001029: 24,7445 00425 25331 2DEC 0.264806265 E-3 B6
End of include-file MIDCOURSE_NAVIGATION_GAME.agc. Parent file is MAIN.agc