Source Code
|
These source-code files are part of a reconstructed copy of Comanche 45/2 (AKA Manche45 revision 2),
the final, flown mission release of the Apollo 10 Command Module (CM) Apollo Guidance
Computer (AGC) software. Comanche 45/2 was preceded by Comanche 44 and Comanche 45. The
reconstruction is believed to be exactly accurate, but in the absence of an actual Apollo-era
listing of Comanche 45/2, some explanation of the reconstruction process is needed
to insure confidence in that accuracy.
The starting point was the source code of Comanche 45 (itself previously accurately
reconstructed). Comanche 45 source code was then modified by incorporating changes
known from contemporary documentation to have been made between revisions 45 and 45/2.
The now-reconstructed Comanche 45/2 source code was
verified by assembling it and checking that the assembled code had
the expected known-correct memory-bank checksums.
Note that page numbers in the reconstructed code tend to match those in the Comanche 55, the
most-similar revision of Comanche for which we have access to an actual non-reconstructed hardcopy;
the source code would likely have different page numbers in a contemporary
Comanche 45 listing.
Annotations that were not present in the contemporary source code have been added to the reconstructed
code to justify each change relative to Comanche 44. Here's a guide to the Apollo documentation referenced
in those annotations:
Comments expected to have been present in the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
Project's GitHub repository.
|
056678,000002: ## Copyright: Public domain.
056679,000003: ## Filename: ORBITAL_INTEGRATION.agc
056680,000004: ## Purpose: A section of Manche45 revision 2.
056681,000005: ## It is part of the reconstructed source code for the
056682,000006: ## final, flown release of the flight software for the Command
056683,000007: ## Module's (CM) Apollo Guidance Computer (AGC) for Apollo 10.
056684,000008: ## The code has been recreated from a copy of Comanche 055. It
056685,000009: ## has been adapted such that the resulting bugger words
056686,000010: ## exactly match those specified for Manche 45/2 in NASA drawing
056687,000011: ## 2021153D, which gives relatively high confidence that the
056688,000012: ## reconstruction is correct.
056689,000013: ## Assembler: yaYUL
056690,000014: ## Contact: Ron Burkey <info@sandroid.org>.
056691,000015: ## Website: www.ibiblio.org/apollo/index.html
056692,000016: ## Mod history: 2020-12-24 MAS Created from Comanche 45 and integrated the
056693,000017: ## R-2 potential model update.
056694,000018: ## 2020-12-24 RSB Added reconstruction-justifying annotations.
056695,000019:
|
|
Page 1334
|
056697,000021: # DELETE
056698,000022: 13,3714 BANK 13
056699,000023: 11,2000 SETLOC ORBITAL
056700,000024: 11,2000 BANK
056701,000025: 11,2372 COUNT 11/ORBIT
056702,000026:
056703,000027: # DELETE
056704,000028: 11,2372 40354 KEPPREP LXA,2 SETPD
056705,000029: 11,2373 02150 PBODY
056706,000030: 11,2374 00001 0
056707,000031: 11,2375 75543 DLOAD* SQRT # SQRT(MU) (+18 OR +15) 0D PL 2D
056708,000032: 11,2376 50042 MUEARTH,2
056709,000033: 11,2377 53515 PDVL UNIT # PL 8D
056710,000034: 11,2400 01535 RCV
056711,000035: 11,2401 60325 PDDL NORM # NORM R (+29 OR +27 - N1) 2D PL 4D
056712,000036: 11,2402 00045 36D
056713,000037: 11,2403 00047 X1
056714,000038: 11,2404 77715 PDVL
056715,000039: 11,2405 65241 DOT PDDL # F*SQRT(MU) (+7 OR +5) 4D PL 6D
056716,000040: 11,2406 01543 VCV
056717,000041: 11,2407 02312 TAU. # (+28)
056718,000042: 11,2410 60225 DSU NORM
056719,000043: 11,2411 01551 TC
056720,000044: 11,2412 00051 S1
056721,000045: 11,2413 77742 SR1
056722,000046: 11,2414 65271 DDV PDDL
056723,000047: 11,2415 00003 2D
056724,000048: 11,2416 41405 DMP PUSH # FS (+6 +N1-N2) 6D PL 8D
056725,000049: 11,2417 00005 4D
056726,000050: 11,2420 65316 DSQ PDDL # (FS)SQ (+12 +2(N1-N2)) 8D PL 10D
056727,000051: 11,2421 00005 4D
056728,000052: 11,2422 64716 DSQ PDDL* # SSQ/MU (-2 OR +2(N1-N2)) 10D PL 12D
056729,000053: 11,2423 50042 MUEARTH,2
056730,000054: 11,2424 40442 SR3 SR4
056731,000055: 11,2425 47515 PDVL VSQ # PREALIGN MU (+43 OR +37) 12D PL 14D
056732,000056: 11,2426 01543 VCV
056733,000057: 11,2427 44205 DMP BDSU # PL 12D
056734,000058: 11,2430 00045 36D
056735,000059: 11,2431 41271 DDV DMP # PL 10D
056736,000060: 11,2432 00003 2D # -(1/R-ALPHA) (+12 +3N1-2N2)
056737,000061: 11,2433 53605 DMP SL*
056738,000062: 11,2434 23774 DP2/3
056739,000063: 11,2435 20176 0 -3,1 # 10L(1/R-ALPHA) (+13 +2(N1-N2))
056740,000064: 11,2436 43260 XSU,1 DAD # 2(FS)SQ - ETCETRA PL 8D
056741,000065: 11,2437 00050 S1 # X1 = N2-N1
056742,000066: 11,2440 45257 SL* DSU # -FS+2(FS)SQ ETC (+6 +N1-N2) PL 6D
056743,000067: 11,2441 20211 8D,1
056744,000068: 11,2442 41205 DMP DMP
056745,000069: 11,2443 00001 0D
056746,000070: 11,2444 00005 4D
056747,000071: 11,2445 53657 SL* SL*
|
|
Page 1335
|
056749,000073: 11,2446 20211 8D,1
056750,000074: 11,2447 20201 0,1 # S(-FS(1-2FS)-1/6...) (+17 OR +16)
056751,000075: 11,2450 65215 DAD PDDL # PL 6D
056752,000076: 11,2451 01553 XKEP
056753,000077: 11,2452 53605 DMP SL* # S(+17 OR +16)
056754,000078: 11,2453 00001 0D
056755,000079: 11,2454 20202 1,1
056756,000080: 11,2455 43204 BOVB DAD
056757,000081: 11,2456 57352 TCDANZIG
056758,000082: 11,2457 77626 STADR
056759,000083: 11,2460 75471 STORE XKEPNEW
056760,000084: 11,2461 74020 STQ AXC,1
056761,000085: 11,2462 02270 KEPRTN
056762,000086: 11,2463 00012 DEC 10 B-14
056763,000087: 11,2464 74014 BON AXC,1
056764,000088: 11,2465 00303 MOONFLAG
056765,000089: 11,2466 24042 KEPLERN
056766,000090: 11,2467 00002 DEC 2 B-14
056767,000091: 11,2470 77650 GOTO
056768,000092: 11,2471 24042 KEPLERN
056769,000093:
|
|
Page 1336
|
056771,000095: 11,2472 66350 FBR3 LXA,1 SSP
056772,000096: 11,2473 01500 DIFEQCNT
056773,000097: 11,2474 00051 S1
056774,000098: 11,2475 77762 DEC -13 B-14
056775,000099: 11,2476 54345 DLOAD SR
056776,000100: 11,2477 02314 DT/2
056777,000101: 11,2500 20612 9D
056778,000102: 11,2501 61500 TIX,1 ROUND
056779,000103: 11,2502 22503 +1
056780,000104: 11,2503 43206 PUSH DAD
056781,000105: 11,2504 01551 TC
056782,000106: 11,2505 16312 STODL TAU.
056783,000107: 11,2506 77615 DAD
056784,000108: 11,2507 01517 TET
056785,000109: 11,2510 35517 STCALL TET
056786,000110: 11,2511 22372 KEPPREP
056787,000111:
|
|
Page 1337
|
056789,000113: # AGC ROUTINE TO COMPUTE ACCELERATION COMPONENTS.
056790,000114:
056791,000115: 11,2512 73150 ACCOMP LXA,1 LXA,2
056792,000116: 11,2513 02150 PBODY
056793,000117: 11,2514 02150 PBODY
056794,000118: 11,2515 77775 VLOAD
056795,000119: 11,2516 11563 ZEROVEC
056796,000120: 11,2517 26202 STOVL FV
056797,000121: 11,2520 02152 ALPHAV
056798,000122: 11,2521 53257 VSL* VAD
056799,000123: 11,2522 57605 0 -7,2
056800,000124: 11,2523 01535 RCV
056801,000125: 11,2524 02160 STORE BETAV
056802,000126: 11,2525 65014 BOF XCHX,2
056803,000127: 11,2526 01756 DIM0FLAG
056804,000128: 11,2527 22534 +5
056805,000129: 11,2530 01500 DIFEQCNT
056806,000130: 11,2531 12217 STORE VECTAB,2
056807,000131: 11,2532 77724 XCHX,2
056808,000132: 11,2533 01500 DIFEQCNT
056809,000133: 11,2534 53575 VLOAD UNIT
056810,000134: 11,2535 02152 ALPHAV
056811,000135: 11,2536 16152 STODL ALPHAV
056812,000136: 11,2537 00045 36D
056813,000137: 11,2540 02310 STORE ALPHAM
056814,000138: 11,2541 77624 CALL
056815,000139: 11,2542 22636 GAMCOMP
056816,000140: 11,2543 66175 VLOAD SXA,1
056817,000141: 11,2544 02160 BETAV
056818,000142: 11,2545 00051 S2
056819,000143: 11,2546 16152 STODL ALPHAV
056820,000144: 11,2547 02210 BETAM
056821,000145: 11,2550 02310 STORE ALPHAM
056822,000146: 11,2551 71214 BOF DLOAD
056823,000147: 11,2552 00342 MIDFLAG
056824,000148: 11,2553 23010 OBLATE
056825,000149: 11,2554 01517 TET
056826,000150: 11,2555 77624 CALL
056827,000151: 11,2556 54110 LSPOS
056828,000152: 11,2557 72174 AXT,2 LXA,1
056829,000153: 11,2560 00002 2
056830,000154: 11,2561 00051 S2
056831,000155: 11,2562 77614 BOF
056832,000156: 11,2563 00343 MOONFLAG
056833,000157: 11,2564 22567 +3
056834,000158: 11,2565 77076 VCOMP AXT,2
056835,000159: 11,2566 00000 0
056836,000160: 11,2567 02160 STORE BETAV
056837,000161: 11,2570 26263 STOVL RPQV
|
|
Page 1338
|
056839,000163: 11,2571 00003 2D
056840,000164: 11,2572 02300 STORE RPSV
056841,000165: 11,2573 77214 BOF VLOAD
056842,000166: 11,2574 01756 DIM0FLAG
056843,000167: 11,2575 22610 GETRPSV
056844,000168: 11,2576 02152 ALPHAV
056845,000169: 11,2577 53761 VXSC VSR*
056846,000170: 11,2600 02310 ALPHAM
056847,000171: 11,2601 57175 1,2
056848,000172: 11,2602 65051 VSU XCHX,2
056849,000173: 11,2603 02160 BETAV
056850,000174: 11,2604 01500 DIFEQCNT
056851,000175: 11,2605 12225 STORE VECTAB +6,2
056852,000176: 11,2606 77724 XCHX,2
056853,000177: 11,2607 01500 DIFEQCNT
056854,000178: 11,2610 62175 GETRPSV VLOAD INCR,1
056855,000179: 11,2611 02263 RPQV
056856,000180: 11,2612 00004 4
056857,000181: 11,2613 43014 CLEAR BOF
056858,000182: 11,2614 04260 RPQFLAG
056859,000183: 11,2615 00343 MOONFLAG
056860,000184: 11,2616 22623 +5
056861,000185: 11,2617 53261 VSR VAD
056862,000186: 11,2620 20612 9D
056863,000187: 11,2621 02300 RPSV
056864,000188: 11,2622 02300 STORE RPSV
056865,000189: 11,2623 77624 CALL
056866,000190: 11,2624 22636 GAMCOMP
056867,000191: 11,2625 62174 AXT,2 INCR,1
056868,000192: 11,2626 00004 4
056869,000193: 11,2627 00004 4
056870,000194: 11,2630 77775 VLOAD
056871,000195: 11,2631 02300 RPSV
056872,000196: 11,2632 36160 STCALL BETAV
056873,000197: 11,2633 22636 GAMCOMP
056874,000198: 11,2634 77650 GOTO
056875,000199: 11,2635 23010 OBLATE
056876,000200: 11,2636 74575 GAMCOMP VLOAD VSR1
056877,000201: 11,2637 02160 BETAV
056878,000202: 11,2640 40236 VSQ SETPD
056879,000203: 11,2641 00001 0
056880,000204: 11,2642 61501 NORM ROUND
056881,000205: 11,2643 00040 31D
056882,000206: 11,2644 60325 PDDL NORM # NORMED B SQUARED TO PD LIST
056883,000207: 11,2645 02310 ALPHAM # NORMALIZE (LESS ONE) LENGTH OF ALPHA
056884,000208: 11,2646 00041 32D # SAVING NORM SCALE FACTOR IN X1
056885,000209: 11,2647 63342 SR1 PDVL
056886,000210: 11,2650 02160 BETAV # C(PDL+2) = ALMOST NORMED ALPHA
056887,000211: 11,2651 77656 UNIT
056888,000212: 11,2652 16160 STODL BETAV
|
|
Page 1339
|
056890,000214: 11,2653 00045 36D
056891,000215: 11,2654 02210 STORE BETAM
056892,000216: 11,2655 55301 NORM BDDV # FORM NORMALIZED QUOTIENT ALPHAM/BETAM
056893,000217: 11,2656 00042 33D
056894,000218: 11,2657 41562 SR1R PUSH # C(PDL+2) = ALMOST NORMALIZED RHO.
056895,000219: 11,2660 77743 DLOAD*
056896,000220: 11,2661 27727 ASCALE,1
056897,000221: 11,2662 00051 STORE S1
056898,000222: 11,2663 57124 XCHX,2 XAD,2
056899,000223: 11,2664 00050 S1
056900,000224: 11,2665 00040 32D
056901,000225: 11,2666 71264 XSU,2 DLOAD
056902,000226: 11,2667 00041 33D
056903,000227: 11,2670 00003 2D
056904,000228: 11,2671 65057 SR* XCHX,2
056905,000229: 11,2672 57177 0 -1,2
056906,000230: 11,2673 00050 S1
056907,000231: 11,2674 74406 PUSH SR1R # RHO/4 TO 4D
056908,000232: 11,2675 50315 PDVL DOT
056909,000233: 11,2676 02152 ALPHAV
056910,000234: 11,2677 02160 BETAV
056911,000235: 11,2700 44372 SL1R BDSU # (RHO/4) - 2(ALPHAV/2.BETAV/2)
056912,000236: 11,2701 57206 PUSH DMPR # TO PDL+6
056913,000237: 11,2702 00005 4
056914,000238: 11,2703 77752 SL1
056915,000239: 11,2704 43206 PUSH DAD
056916,000240: 11,2705 23756 DQUARTER
056917,000241: 11,2706 75406 PUSH SQRT
056918,000242: 11,2707 41475 DMPR PUSH
056919,000243: 11,2710 00013 10D
056920,000244: 11,2711 43352 SL1 DAD
056921,000245: 11,2712 23756 DQUARTER
056922,000246: 11,2713 43325 PDDL DAD # (1/4)+2((Q+1)/4) TO PD+14D
056923,000247: 11,2714 00013 10D
056924,000248: 11,2715 11561 HALFDP
056925,000249: 11,2716 72475 DMPR SL1
056926,000250: 11,2717 00011 8D
056927,000251: 11,2720 56215 DAD DDV
056928,000252: 11,2721 23750 THREE/8
056929,000253: 11,2722 00017 14D
056930,000254: 11,2723 74275 DMPR VXSC
056931,000255: 11,2724 00007 6
056932,000256: 11,2725 02160 BETAV # -
056933,000257: 11,2726 64515 PDVL VSR3 # (G/2)(C(PD+4))B/2 TO PD+16D
056934,000258: 11,2727 02152 ALPHAV
056935,000259: 11,2730 41455 VAD PUSH # A12 + C(PD+16D) TO PD+16D
056936,000260: 11,2731 41345 DLOAD DMP
056937,000261: 11,2732 00001 0
056938,000262: 11,2733 00015 12D # -
056939,000263: 11,2734 61501 NORM ROUND
|
|
Page 1340
|
056941,000265: 11,2735 00037 30D
056942,000266: 11,2736 40665 BDDV DMP*
056943,000267: 11,2737 00003 2
056944,000268: 11,2740 50042 MUEARTH,2
056945,000269: 11,2741 74276 DCOMP VXSC
056946,000270: 11,2742 57124 XCHX,2 XAD,2
056947,000271: 11,2743 00050 S1
056948,000272: 11,2744 00051 S2
056949,000273: 11,2745 55064 XSU,2 XSU,2
056950,000274: 11,2746 00036 30D
056951,000275: 11,2747 00037 31D
056952,000276: 11,2750 77600 BOV # CLEAR OVIND
056953,000277: 11,2751 22752 +1
056954,000278: 11,2752 65057 VSR* XCHX,2
056955,000279: 11,2753 57177 0 -1,2
056956,000280: 11,2754 00050 S1
056957,000281: 11,2755 77655 VAD
056958,000282: 11,2756 02202 FV
056959,000283: 11,2757 02202 STORE FV
056960,000284: 11,2760 43400 BOV RVQ # RETURN IF NO OVERFLOW
056961,000285: 11,2761 22762 +1
056962,000286: 11,2762 51575 GOBAQUE VLOAD ABVAL
056963,000287: 11,2763 01521 TDELTAV
056964,000288: 11,2764 77654 BZE
056965,000289: 11,2765 23005 INT-ABRT
056966,000290: 11,2766 54345 DLOAD SR
056967,000291: 11,2767 02212 H
056968,000292: 11,2770 20612 9D
056969,000293: 11,2771 44206 PUSH BDSU
056970,000294: 11,2772 01551 TC
056971,000295: 11,2773 16312 STODL TAU.
056972,000296: 11,2774 01517 TET
056973,000297: 11,2775 45425 DSU STADR
056974,000298: 11,2776 42260 STCALL TET
056975,000299: 11,2777 22372 KEPPREP
056976,000300: 11,3000 77624 CALL
056977,000301: 11,3001 23421 RECTIFY
056978,000302: 11,3002 77614 SETGO
056979,000303: 11,3003 04020 RPQFLAG
056980,000304: 11,3004 27305 TESTLOOP
056981,000305:
056982,000306: 11,3005 77776 INT-ABRT EXIT
056983,000307: 11,3006 05721 TC POODOO
056984,000308: 11,3007 00430 OCT 00430
056985,000309:
|
|
Page 1341
|
056987,000311: # THE OBLATE ROUTINE COMPUTES THE ACCELERATION DUE TO OBLATENESS. IT USES THE UNIT OF THE VEHICLE
056988,000312: # POSITION VECTOR FOUND IN ALPHAV AND THE DISTANCE TO THE CENTER IN ALPHAM. THIS IS ADDED TO THE SUM OF THE
056989,000313: # DISTURBING ACCELERATIONS IN FV AND THE PROPER DIFEQ STAGE IS CALLED VIA X1.
056990,000314:
056991,000315: 11,3010 71354 OBLATE LXA,2 DLOAD
056992,000316: 11,3011 02150 PBODY
056993,000317: 11,3012 02310 ALPHAM
056994,000318: 11,3013 44601 SETPD DSU*
056995,000319: 11,3014 00001 0
056996,000320: 11,3015 50010 RDE,2
056997,000321: 11,3016 43044 BPL BOF # GET URPV
056998,000322: 11,3017 23220 NBRANCH
056999,000323: 11,3020 00343 MOONFLAG
057000,000324: 11,3021 23227 COSPHIE
057001,000325: 11,3022 65375 VLOAD PDDL
057002,000326: 11,3023 02152 ALPHAV
057003,000327: 11,3024 01517 TET
057004,000328: 11,3025 45125 PDDL CALL
057005,000329: 11,3026 23746 3/5
057006,000330: 11,3027 55371 R-TO-RP
057007,000331: 11,3030 00017 STORE URPV
057008,000332: 11,3031 47375 VLOAD VXV
057009,000333: 11,3032 02012 504LM
057010,000334: 11,3033 11555 ZUNIT
057011,000335: 11,3034 61255 VAD VXM
057012,000336: 11,3035 11555 ZUNIT
057013,000337: 11,3036 00025 MMATRIX
057014,000338: 11,3037 77656 UNIT # POSSIBLY UNNECESSARY
057015,000339: 11,3040 00025 COMTERM STORE UZ
057016,000340: 11,3041 57345 DLOAD DMPR
057017,000341: 11,3042 00023 COSPHI/2
057018,000342: 11,3043 23760 3/32
057019,000343: 11,3044 63525 PDDL DSQ # P2/64 TO PD0
057020,000344: 11,3045 00023 COSPHI/2
057021,000345: 11,3046 45275 DMPR DSU
057022,000346: 11,3047 23762 15/16
057023,000347: 11,3050 23754 3/64
057024,000348: 11,3051 57206 PUSH DMPR # P3/32 TO PD2
057025,000349: 11,3052 00023 COSPHI/2
057026,000350: 11,3053 76405 DMP SL1R
057027,000351: 11,3054 23766 7/12
057028,000352: 11,3055 57325 PDDL DMPR
057029,000353: 11,3056 00001 0
057030,000354: 11,3057 23774 2/3
057031,000355: 11,3060 41421 BDSU PUSH # P4/128 TO PD4
057032,000356: 11,3061 57275 DMPR DMPR
057033,000357: 11,3062 00023 COSPHI/2 # BEGIN COMPUTING P5/1024
057034,000358: 11,3063 23770 9/16
057035,000359: 11,3064 57325 PDDL DMPR
057036,000360: 11,3065 00003 2
057037,000361: 11,3066 23772 5/128
|
|
Page 1342
|
057039,000363: 11,3067 77621 BDSU
057040,000364: 11,3070 77603 DMP*
057041,000365: 11,3071 50036 J4REQ/J3,2
057042,000366: 11,3072 43271 DDV DAD # -3
057043,000367: 11,3073 02310 ALPHAM # (((P5/256)B 2 /R+P4/32) /R+P3/8)ALPHAV
057044,000368: 11,3074 00005 4 # 4 3
057045,000369: 11,3075 56273 DMPR* DDV
057046,000370: 11,3076 50032 2J3RE/J2,2
057047,000371: 11,3077 02310 ALPHAM
057048,000372: 11,3100 74215 DAD VXSC
057049,000373: 11,3101 00003 2
057050,000374: 11,3102 02152 ALPHAV
057051,000375: 11,3103 14033 STODL TVEC
057052,000376: 11,3104 70403 DMP* SR1
057053,000377: 11,3105 50036 J4REQ/J3,2
057054,000378: 11,3106 43271 DDV DAD
057055,000379: 11,3107 02310 ALPHAM # -3
057056,000380: 11,3110 50473 DMPR* SR3
057057,000381: 11,3111 50032 2J3RE/J2,2 # 3 4
057058,000382: 11,3112 43271 DDV DAD
057059,000383: 11,3113 02310 ALPHAM
057060,000384: 11,3114 76561 VXSC VSL1
057061,000385: 11,3115 00025 UZ
057062,000386: 11,3116 77645 BVSU
057063,000387: 11,3117 00033 TVEC
057064,000388: 11,3120 14033 STODL TVEC
057065,000389: 11,3121 02310 ALPHAM
057066,000390: 11,3122 63501 NORM DSQ
057067,000391: 11,3123 00047 X1
057068,000392: 11,3124 60316 DSQ NORM
057069,000393: 11,3125 00051 S1 # 4
057070,000394: 11,3126 54606 PUSH BDDV* # NORMED R TO 0D
057071,000395: 11,3127 50026 J2REQSQ,2
|
|
Reconstruction: 65 lines of interpretive code at the point in Comanche 45
corresponding to this position have been
replaced in Comanche 45/2 by the 56 lines of not-obviously-related interpretive instructions
that follow this annotation. (For visual convenience, we've also added a terminating
annotation at the end of the block.)
The key to understanding the situation is
LUMINARY Memo #75,
titled "R-2 Lunar Potential Model Added to LUMINARY", and dated April 1, 1969.
The memo states specifically that the new model will be implemented in Luminary 69/2
(the final release of the Apollo 10 LM) software, and it mentions less specifically
that a "similar change has been directed in COLOSSUS 2". While by itself this doesn't
tell us which specific Comanche revision the generic term "COLOSSUS 2" relates to,
the very next Colossus 2 software releases after April 1 were Comanche 45/2 (April 2) and
Comanche 55 (April 18). Our position on the matter is that the change was made both in
Comanche 45 → Comanche 45/2 and in Comanche 51 → Comanche 55. Given that
Comanche 51 source code (reconstructed) and Comanche 55 source code (actual, from hardcopy)
are both available, the changes to this log section have been made simply by importing
the differences between Comanche 51 and 55 into the Comanche 45 source code.
|
057092,000416: 11,3130 40161 VXSC BOV
057093,000417: 11,3131 00033 TVEC
057094,000418: 11,3132 23133 +1 # (RESET OVERFLOW INDICATOR)
057095,000419: 11,3133 56070 XAD,1 XAD,1
057096,000420: 11,3134 00046 X1
057097,000421: 11,3135 00046 X1
057098,000422: 11,3136 53670 XAD,1 VSL*
057099,000423: 11,3137 00050 S1
057100,000424: 11,3140 20153 0 -22D,1
057101,000425: 11,3141 40055 VAD BOV
057102,000426: 11,3142 02202 FV
057103,000427: 11,3143 22762 GOBAQUE
057104,000428: 11,3144 36202 STCALL FV
057105,000429: 11,3145 27770 QUALITY1
057106,000430: 11,3146 77716 QUALITY3 DSQ # J22 TERM X R**4 IN 2D, SCALED B61
057107,000431: # AS VECTOR.
057108,000432: 11,3147 41206 PUSH DMP # STORE COSPHI**2 SCALED B2 IN 8D
|
|
Page 1343
|
057110,000434: 11,3150 27755 5/8 # 5 SCALED B3
057111,000435: 11,3151 60525 PDDL SR2 # PUT 5 COSPHI**2, D5, IN 8D. GET
057112,000436: # COSPHI**2 D2 FROM 8D
057113,000437: 11,3152 44215 DAD BDSU # END UP WITH (1-7 COSPHI**2), B5
057114,000438: 11,3153 00011 8D # ADDING COSPHI**2 B4 SAME AS COSPHI**2
057115,000439: # X 2 D5
057116,000440: 11,3154 11613 D1/32 # 1 SCALED B5
057117,000441: 11,3155 41205 DMP DMP
057118,000442: 11,3156 00017 URPV # X COMPONENT
057119,000443: 11,3157 27755 5/8 # 5 SCALED B3
057120,000444: 11,3160 56561 VXSC VSL5 # AFTER SHIFT, SCALED B5
057121,000445: 11,3161 00017 URPV # VECTOR, B1.
057122,000446: 11,3162 77725 PDDL # VECTOR INTO 8D, 10D, 12D, SCALED B5.
057123,000447: # GET 5 COSPHI**2 OUT OF 8D
057124,000448: 11,3163 43225 DSU DAD
057125,000449: 11,3164 11613 D1/32 # 1 B5
057126,000450: 11,3165 00011 8D # X COMPONENT (SAME AS MULTIPLYING
057127,000451: # BY UNITX)
057128,000452: 11,3166 14011 STODL 8D
057129,000453: 11,3167 00017 URPV # X COMPONENT
057130,000454: 11,3170 41205 DMP DMP
057131,000455: 11,3171 00023 URPV +4 # Z COMPONENT
057132,000456: 11,3172 27755 5/8 # 5 B3 ANSWER B5
057133,000457: 11,3173 43352 SL1 DAD # FROM 12D FOR Z COMPONENT (SL1 GIVES 10
057134,000458: # INSTEAD OF 5 FOR COEFFICIENT)
057135,000459: 11,3174 60325 PDDL NORM # BACK INTO 12D FOR Z COMPONENT.
057136,000460: 11,3175 02310 ALPHAM # SCALED B27 FOR MOON
057137,000461: 11,3176 00050 X2
057138,000462: 11,3177 67206 PUSH SLOAD # STORE IN 14D, DESTROYING URPV
057139,000463: # X COMPONENT
057140,000464: 11,3200 01775 E32C31RM
057141,000465: 11,3201 74271 DDV VXSC # IF X2 = 0, DIVISION GIVES B53, VXSC
057142,000466: # OUT OF 8D B5 GIVES B58
057143,000467: 11,3202 53257 VSL* VAD # SHIFT MAKES B61, FOR ADDITION OF
057144,000468: # VECTOR IN 2D
057145,000469: 11,3203 57601 0 -3,2
057146,000470: 11,3204 70257 VSL* V/SC # OPERAND FROM 0D, B108 FOR X1 = 0
057147,000471: 11,3205 20146 0 -27D,1 # FOR X1 = 0, MAKES B88, GIVING B-20
057148,000472: # FOR RESULT.
057149,000473: 11,3206 65325 PDDL PDDL
057150,000474: 11,3207 01517 TET
057151,000475: 11,3210 27755 5/8 # ANY NON-ZERO CONSTANT
057152,000476: 11,3211 45154 LXA,2 CALL # POSITION IN 0D, TIME IN 6D. X2 LEFT
057153,000477: # ALONE.
057154,000478: 11,3212 02150 PBODY
057155,000479: 11,3213 55344 RP-TO-R
057156,000480: 11,3214 40055 VAD BOV # OVERFLOW INDICATOR RESET IN "RP-TO-R"
057157,000481: 11,3215 02202 FV
057158,000482: 11,3216 22762 GOBAQUE
|
|
Reconstruction: Termination of block of R-2 Lunar Potential Model
code begun a couple of annotations above.
|
057161,000485: 11,3217 02202 STORE FV
|
|
Page 1344
|
057163,000487: 11,3220 72135 NBRANCH SLOAD LXA,1
057164,000488: 11,3221 01501 DIFEQCNT
057165,000489: 11,3222 00154 MPAC
057166,000490: 11,3223 73205 DMP CGOTO
057167,000491: 11,3224 27757 -1/12
057168,000492: 11,3225 00155 MPAC
057169,000493: 11,3226 23235 DIFEQTAB
057170,000494: 11,3227 77745 COSPHIE DLOAD
057171,000495: 11,3230 02156 ALPHAV +4
057172,000496: 11,3231 24023 STOVL COSPHI/2
057173,000497: 11,3232 11555 ZUNIT
057174,000498: 11,3233 77650 GOTO
057175,000499: 11,3234 23040 COMTERM
057176,000500: 11,3235 23446 DIFEQTAB CADR DIFEQ+0
057177,000501: 11,3236 23452 CADR DIFEQ+1
057178,000502: 11,3237 23463 CADR DIFEQ+2
057179,000503:
057180,000504: 11,3240 45014 TIMESTEP BOF CALL
057181,000505: 11,3241 00342 MIDFLAG
057182,000506: 11,3242 23246 RECTEST # SKIP ORIGIN CHANGE LOGIC
057183,000507: 11,3243 23320 CHKSWTCH
057184,000508: 11,3244 77640 BMN
057185,000509: 11,3245 23355 DOSWITCH
057186,000510:
057187,000511: 11,3246 51575 RECTEST VLOAD ABVAL # RECTIFY IF
057188,000512: 11,3247 01521 TDELTAV
057189,000513: 11,3250 77600 BOV
057190,000514: 11,3251 23274 CALLRECT
057191,000515: 11,3252 51025 DSU BPL # 1) EITHER TDELTAV OR TNUV EQUALS OR
057192,000516: 11,3253 23764 3/4 # EXCEEDS 3/4 IN MAGNITUDE
057193,000517: 11,3254 23274 CALLRECT
057194,000518: 11,3255 53615 DAD SL* # OR
057195,000519: 11,3256 23764 3/4
057196,000520: 11,3257 57605 0 -7,2 # 2) ABVAL(TDELTAV) EQUALS OR EXCEEDS
057197,000521: 11,3260 45271 DDV DSU # .01(ABVAL(RCV))
057198,000522: 11,3261 00013 10D
057199,000523: 11,3262 27761 RECRATIO
057200,000524: 11,3263 77244 BPL VLOAD
057201,000525: 11,3264 23274 CALLRECT
057202,000526: 11,3265 01527 TNUV
057203,000527: 11,3266 45246 ABVAL DSU
057204,000528: 11,3267 23764 3/4
057205,000529: 11,3270 77600 BOV
057206,000530: 11,3271 23274 CALLRECT
057207,000531: 11,3272 77640 BMN
057208,000532: 11,3273 23276 INTGRATE
057209,000533: 11,3274 77624 CALLRECT CALL
057210,000534: 11,3275 23421 RECTIFY
057211,000535: 11,3276 77775 INTGRATE VLOAD
057212,000536: 11,3277 01527 TNUV
|
|
Page 1345
|
057214,000538: 11,3300 25120 STOVL ZV
057215,000539: 11,3301 01521 TDELTAV
057216,000540: 11,3302 01112 STORE YV
057217,000541: 11,3303 77614 CLEAR
057218,000542: 11,3304 00261 JSWITCH
057219,000543: 11,3305 66375 DIFEQ0 VLOAD SSP
057220,000544: 11,3306 01112 YV
057221,000545: 11,3307 01501 DIFEQCNT
057222,000546: 11,3310 00000 0
057223,000547: 11,3311 16152 STODL ALPHAV
057224,000548: 11,3312 11563 DPZERO
057225,000549: 11,3313 02212 STORE H # START H AT ZERO. GOES 0(DELT/2)DELT.
057226,000550: 11,3314 52014 BON GOTO
057227,000551: 11,3315 00301 JSWITCH
057228,000552: 11,3316 23665 DOW..
057229,000553: 11,3317 22512 ACCOMP
057230,000554:
057231,000555: 11,3320 43020 CHKSWTCH STQ BOF
057232,000556: 11,3321 02270 ORIGEX
057233,000557: 11,3322 04340 RPQFLAG
057234,000558: 11,3323 23333 RPQOK # MOON POSITION IS AVAILABLE
057235,000559: 11,3324 45145 DLOAD CALL
057236,000560: 11,3325 01517 TET
057237,000561: 11,3326 54115 LUNPOS # GET MOON POSITION
057238,000562: 11,3327 57414 BOF VCOMP
057239,000563: 11,3330 00343 MOONFLAG
057240,000564: 11,3331 23332 +1
057241,000565: 11,3332 02263 STORE RPQV
057242,000566:
057243,000567: 11,3333 77354 RPQOK LXA,2 VLOAD # RESTORE X2 AFTER USING LUNPOS
057244,000568: 11,3334 02150 PBODY
057245,000569: 11,3335 01521 TDELTAV # -
057246,000570: 11,3336 53257 VSL* VAD # |RQC|-RSPHERE WHEN OUTSIDE THE SPHERE.
057247,000571: 11,3337 57605 0 -7,2 # - - -
057248,000572: 11,3340 01535 RCV # R = RDEVIATION + RCONIC
057249,000573: 11,3341 51414 BOF ABVAL
057250,000574: 11,3342 00343 MOONFLAG
057251,000575: 11,3343 23350 EARSPH
057252,000576: 11,3344 44302 SR2 BDSU # INSIDE
057253,000577: 11,3345 27763 RSPHERE
057254,000578: 11,3346 77650 GOTO
057255,000579: 11,3347 02270 ORIGEX
057256,000580: 11,3350 51451 EARSPH VSU ABVAL # OUTSIDE
057257,000581: 11,3351 02263 RPQV
057258,000582: 11,3352 52025 DSU GOTO
057259,000583: 11,3353 27763 RSPHERE
057260,000584: 11,3354 02270 ORIGEX
057261,000585:
057262,000586: 11,3355 77624 DOSWITCH CALL
057263,000587: 11,3356 23361 ORIGCHNG
057264,000588: 11,3357 77650 GOTO
057265,000589: 11,3360 23276 INTGRATE
057266,000590:
|
|
Page 1346
|
057268,000592: 11,3361 45020 ORIGCHNG STQ CALL
057269,000593: 11,3362 02270 ORIGEX
057270,000594: 11,3363 23421 RECTIFY
057271,000595: 11,3364 53775 VLOAD VSL*
057272,000596: 11,3365 01535 RCV
057273,000597: 11,3366 57576 0,2
057274,000598: 11,3367 53651 VSU VSL*
057275,000599: 11,3370 02263 RPQV
057276,000600: 11,3371 57574 2,2
057277,000601: 11,3372 01503 STORE RRECT
057278,000602: 11,3373 15535 STODL RCV
057279,000603: 11,3374 01517 TET
057280,000604: 11,3375 77624 CALL
057281,000605: 11,3376 54120 LUNVEL
057282,000606: 11,3377 57414 BOF VCOMP
057283,000607: 11,3400 00343 MOONFLAG
057284,000608: 11,3401 23402 +1
057285,000609: 11,3402 53715 PDVL VSL*
057286,000610: 11,3403 01543 VCV
057287,000611: 11,3404 57576 0,2
057288,000612: 11,3405 77651 VSU
057289,000613: 11,3406 77657 VSL*
057290,000614: 11,3407 57574 0 +2,2
057291,000615: 11,3410 01511 STORE VRECT
057292,000616: 11,3411 01543 STORE VCV
057293,000617: 11,3412 67154 LXA,2 SXA,2
057294,000618: 11,3413 02270 ORIGEX
057295,000619: 11,3414 00052 QPRET
057296,000620: 11,3415 52014 BON GOTO
057297,000621: 11,3416 00303 MOONFLAG
057298,000622: 11,3417 26735 CLRMOON
057299,000623: 11,3420 26742 SETMOON
|
|
Page 1347
|
057301,000625: # THE RECTIFY SUBROUTINE IS CALLED BY THE INTEGRATION PROGRAM AND OCCASIONALLY BY THE MEASUREMENT INCORPORATION
057302,000626: # ROUTINES TO ESTABLISH A NEW CONIC.
057303,000627:
057304,000628: 11,3421 77354 RECTIFY LXA,2 VLOAD
057305,000629: 11,3422 02150 PBODY
057306,000630: 11,3423 01521 TDELTAV
057307,000631: 11,3424 53257 VSL* VAD
057308,000632: 11,3425 57605 0 -7,2
057309,000633: 11,3426 01535 RCV
057310,000634: 11,3427 01503 STORE RRECT
057311,000635: 11,3430 25535 STOVL RCV
057312,000636: 11,3431 01527 TNUV
057313,000637: 11,3432 53257 VSL* VAD
057314,000638: 11,3433 57602 0 -4,2
057315,000639: 11,3434 01543 VCV
057316,000640: 11,3435 01511 MINIRECT STORE VRECT
057317,000641: 11,3436 25543 STOVL VCV
057318,000642: 11,3437 11563 ZEROVEC
057319,000643: 11,3440 01521 STORE TDELTAV
057320,000644: 11,3441 15527 STODL TNUV
057321,000645: 11,3442 11563 ZEROVEC
057322,000646: 11,3443 01551 STORE TC
057323,000647: 11,3444 01553 STORE XKEP
057324,000648: 11,3445 77616 RVQ
057325,000649:
|
|
Page 1348
|
057327,000651: # THE THREE DIFEQ ROUTINES - DIFEQ+0, DIFEQ+12, AND DIFEQ+24 - ARE ENTEREDTO PROCESS THE CONTRIBUTIONS AT THE
057328,000652: # BEGINNING, MIDDLE, AND END OF THE TIMESTEP, RESPECTIVELY. THE UPDATING IS DONE BY THE NYSTROM METHOD.
057329,000653:
057330,000654: 11,3446 64575 DIFEQ+0 VLOAD VSR3
057331,000655: 11,3447 02202 FV
057332,000656: 11,3450 36166 STCALL PHIV
057333,000657: 11,3451 23626 DIFEQCOM
057334,000658: 11,3452 74575 DIFEQ+1 VLOAD VSR1
057335,000659: 11,3453 02202 FV
057336,000660: 11,3454 53206 PUSH VAD
057337,000661: 11,3455 02166 PHIV
057338,000662: 11,3456 26174 STOVL PSIV
057339,000663: 11,3457 53362 VSR1 VAD
057340,000664: 11,3460 02166 PHIV
057341,000665: 11,3461 36166 STCALL PHIV
057342,000666: 11,3462 23626 DIFEQCOM
057343,000667: 11,3463 57345 DIFEQ+2 DLOAD DMPR
057344,000668: 11,3464 02212 H
057345,000669: 11,3465 23774 DP2/3
057346,000670: 11,3466 74206 PUSH VXSC
057347,000671: 11,3467 02166 PHIV
057348,000672: 11,3470 53372 VSL1 VAD
057349,000673: 11,3471 01120 ZV
057350,000674: 11,3472 53361 VXSC VAD
057351,000675: 11,3473 02212 H
057352,000676: 11,3474 01112 YV
057353,000677: 11,3475 25112 STOVL YV
057354,000678: 11,3476 02202 FV
057355,000679: 11,3477 53322 VSR3 VAD
057356,000680: 11,3500 02174 PSIV
057357,000681: 11,3501 76561 VXSC VSL1
057358,000682: 11,3502 77655 VAD
057359,000683: 11,3503 01120 ZV
057360,000684: 11,3504 01120 STORE ZV
057361,000685: 11,3505 45014 BOFF CALL
057362,000686: 11,3506 00341 JSWITCH
057363,000687: 11,3507 23557 ENDSTATE
057364,000688: 11,3510 56750 GRP2PC
057365,000689: 11,3511 77354 LXA,2 VLOAD
057366,000690: 11,3512 01102 COLREG
057367,000691: 11,3513 01120 ZV
057368,000692: 11,3514 77732 VSL3 # ADJUST W-POSITION FOR STORAGE
057369,000693: 11,3515 12467 STORE W +54D,2
057370,000694: 11,3516 77775 VLOAD
057371,000695: 11,3517 01112 YV
057372,000696: 11,3520 40132 VSL3 BOV
057373,000697: 11,3521 23651 WMATEND
057374,000698: 11,3522 12401 STORE W,2
057375,000699:
057376,000700: 11,3523 77624 CALL
057377,000701: 11,3524 56750 GRP2PC
|
|
Page 1349
|
057379,000703: 11,3525 66354 LXA,2 SSP
057380,000704: 11,3526 01102 COLREG
057381,000705: 11,3527 00052 S2
057382,000706: 11,3530 00000 0
057383,000707: 11,3531 67114 INCR,2 SXA,2
057384,000708: 11,3532 00006 6
057385,000709: 11,3533 01111 YV
057386,000710: 11,3534 45104 TIX,2 CALL
057387,000711: 11,3535 23622 RELOADSV
057388,000712: 11,3536 56750 GRP2PC
057389,000713: 11,3537 67154 LXA,2 SXA,2
057390,000714: 11,3540 01111 YV
057391,000715: 11,3541 01102 COLREG
057392,000716:
057393,000717: 11,3542 77624 NEXTCOL CALL
057394,000718: 11,3543 56750 GRP2PC
057395,000719: 11,3544 76754 LXA,2 VLOAD*
057396,000720: 11,3545 01102 COLREG
057397,000721: 11,3546 75376 W,2
057398,000722: 11,3547 77722 VSR3 # ADJUST W-POSITION FOR INTEGRATION
057399,000723: 11,3550 01112 STORE YV
057400,000724: 11,3551 76173 VLOAD* AXT,1
057401,000725: 11,3552 75310 W +54D,2
057402,000726: 11,3553 00000 0
057403,000727: 11,3554 77722 VSR3 # ADJUST W-VELOCITY FOR INTEGRATION
057404,000728: 11,3555 35120 STCALL ZV
057405,000729: 11,3556 23305 DIFEQ0
057406,000730:
057407,000731: 11,3557 77200 ENDSTATE BOV VLOAD
057408,000732: 11,3560 22762 GOBAQUE
057409,000733: 11,3561 01120 ZV
057410,000734: 11,3562 25527 STOVL TNUV
057411,000735: 11,3563 01112 YV
057412,000736: 11,3564 01521 STORE TDELTAV
057413,000737: 11,3565 43014 BON BOFF
057414,000738: 11,3566 04715 MIDAVFLG
057415,000739: 11,3567 27633 CKMID2 # CHECK FOR MID2 BEFORE GOING TO TIMEINC
057416,000740: 11,3570 01756 DIM0FLAG
057417,000741: 11,3571 27305 TESTLOOP
057418,000742: 11,3572 77776 EXIT
057419,000743: 11,3573 05412 TC PHASCHNG
057420,000744: 11,3574 04022 OCT 04022 # PHASE 1
057421,000745: 11,3575 05546 TC UPFLAG # PHASE CHANGE HAS OCCURRED BETWEEN
057422,000746: 11,3576 00236 ADRES REINTFLG # INTSTALL AND INTWAKE
057423,000747: 11,3577 06006 TC INTPRET
057424,000748: 11,3600 77731 SSP
057425,000749: 11,3601 00053 QPRET
057426,000750: 11,3602 23607 AMOVED
057427,000751: 11,3603 52014 BON GOTO
057428,000752: 11,3604 01714 VINTFLAG
|
|
Page 1350
|
057430,000754: 11,3605 26705 ATOPCSM
057431,000755: 11,3606 26760 ATOPLEM
057432,000756: 11,3607 66214 AMOVED SET SSP
057433,000757: 11,3610 00061 JSWITCH
057434,000758: 11,3611 01103 COLREG
057435,000759: 11,3612 77741 DEC -30 B-14
057436,000760: 11,3613 66214 BOFF SSP
057437,000761: 11,3614 01755 D6OR9FLG
057438,000762: 11,3615 23542 NEXTCOL
057439,000763: 11,3616 01103 COLREG
057440,000764: 11,3617 77717 DEC -48 B-14
057441,000765: 11,3620 77650 GOTO
057442,000766: 11,3621 23542 NEXTCOL
057443,000767:
057444,000768: 11,3622 77745 RELOADSV DLOAD # RELOAD TEMPORARY STATE VECTOR
057445,000769: 11,3623 01101 TDEC # FROM PERMANENT IN CASE OF
057446,000770: 11,3624 34041 STCALL TDEC1
057447,000771: 11,3625 27167 INTEGRV2 # BY STARTING AT INTEGRV2.
057448,000772: 11,3626 43345 DIFEQCOM DLOAD DAD # INCREMENT H AND DIFEQCNT.
057449,000773: 11,3627 02314 DT/2
057450,000774: 11,3630 02212 H
057451,000775: 11,3631 66110 INCR,1 SXA,1
057452,000776: 11,3632 77763 DEC -12 B-14
057453,000777: 11,3633 01500 DIFEQCNT # DIFEQCNT SET FOR NEXT ENTRY.
057454,000778: 11,3634 02212 STORE H
057455,000779: 11,3635 74561 VXSC VSR1
057456,000780: 11,3636 02202 FV
057457,000781: 11,3637 74255 VAD VXSC
057458,000782: 11,3640 01120 ZV
057459,000783: 11,3641 02212 H
057460,000784: 11,3642 77655 VAD
057461,000785: 11,3643 01112 YV
057462,000786: 11,3644 02152 STORE ALPHAV
057463,000787: 11,3645 52014 BON GOTO
057464,000788: 11,3646 00301 JSWITCH
057465,000789: 11,3647 23665 DOW..
057466,000790: 11,3650 22472 FBR3
057467,000791:
057468,000792: 11,3651 43014 WMATEND CLEAR CLEAR
057469,000793: 11,3652 01676 DIM0FLAG # DONT INTEGRATE W THIS TIME
057470,000794: 11,3653 01671 ORBWFLAG # INVALIDATE W
057471,000795: 11,3654 77614 CLEAR
057472,000796: 11,3655 02676 RENDWFLG
057473,000797: 11,3656 77414 SET EXIT
057474,000798: 11,3657 01472 STATEFLG # PICK UP STATE VECTOR UPDATE
057475,000799: 11,3660 05650 TC ALARM
057476,000800: 11,3661 00421 OCT 421
057477,000801: 11,3662 06006 TC INTPRET
|
|
Page 1351
|
057479,000803: 11,3663 77650 GOTO
057480,000804: 11,3664 27305 TESTLOOP # FINISH INTEGRATING STATE VECTOR
057481,000805:
|
|
Page 1352
|
057483,000807: # ORBITAL ROUTINE FOR EXTRAPOLATION OF THE W MATRIX. IT COMPUTES THE SECOND DERIVATIVE OF EACH COLUMN POSITION
057484,000808: # VECTOR OF THE MATRIX AND CALLS THE NYSTROM INTEGRATION ROUTINES TO SOLVE THE DIFFERENTIAL EQUATIONS. THE PROGRAM
057485,000809: # USES A TABLE OF VEHICLE POSITION VECTORS COMPUTED DURING THE INTEGRATION OF THE VEHICLES POSITION AND VELOCITY.
057486,000810:
057487,000811: 11,3665 70754 DOW.. LXA,2 DLOAD*
057488,000812: 11,3666 02150 PBODY
057489,000813: 11,3667 50042 MUEARTH,2
057490,000814: 11,3670 36210 STCALL BETAM
057491,000815: 11,3671 23713 DOW..1
057492,000816: 11,3672 02202 STORE FV
057493,000817: 11,3673 62014 BOF INCR,1
057494,000818: 11,3674 00342 MIDFLAG
057495,000819: 11,3675 23220 NBRANCH
057496,000820: 11,3676 77771 DEC -6 B-14
057497,000821: 11,3677 70744 LXC,2 DLOAD*
057498,000822: 11,3700 02150 PBODY
057499,000823: 11,3701 50044 MUEARTH -2,2
057500,000824: 11,3702 36210 STCALL BETAM
057501,000825: 11,3703 23713 DOW..1
057502,000826: 11,3704 50414 BON VSR6
057503,000827: 11,3705 00303 MOONFLAG
057504,000828: 11,3706 23707 +1
057505,000829: 11,3707 77655 VAD
057506,000830: 11,3710 02202 FV
057507,000831: 11,3711 36202 STCALL FV
057508,000832: 11,3712 23220 NBRANCH
057509,000833: 11,3713 60575 DOW..1 VLOAD VSR4
057510,000834: 11,3714 02152 ALPHAV
057511,000835: 11,3715 53513 PDVL* UNIT
057512,000836: 11,3716 02217 VECTAB,1
057513,000837: 11,3717 46315 PDVL VPROJ
057514,000838: 11,3720 02152 ALPHAV
057515,000839: 11,3721 52361 VXSC VSU
057516,000840: 11,3722 23764 3/4
057517,000841: 11,3723 60325 PDDL NORM
057518,000842: 11,3724 00045 36D
057519,000843: 11,3725 00052 S2
057520,000844: 11,3726 63406 PUSH DSQ
057521,000845: 11,3727 77605 DMP
057522,000846: 11,3730 65301 NORM PDDL
057523,000847: 11,3731 00043 34D
057524,000848: 11,3732 02210 BETAM
057525,000849: 11,3733 56342 SR1 DDV
057526,000850: 11,3734 77761 VXSC
057527,000851: 11,3735 57154 LXA,2 XAD,2
057528,000852: 11,3736 00051 S2
057529,000853: 11,3737 00051 S2
057530,000854: 11,3740 57074 XAD,2 XAD,2
057531,000855: 11,3741 00051 S2
057532,000856: 11,3742 00042 34D
057533,000857: 11,3743 43457 VSL* RVQ
|
|
Page 1353
|
057535,000859: 11,3744 57606 0 -8D,2
057536,000860:
057537,000861: 11,2000 SETLOC ORBITAL1
057538,000862: 11,2000 BANK
057539,000863:
057540,000864: 11,3745 04631 23146 3/5 2DEC .6 B-2
057541,000865: 11,3747 14000 00000 THREE/8 2DEC .375
057542,000866: 11,3751 02314 31463 .3D 2DEC .3 B-2
057543,000867: 11,3753 01400 00000 3/64 2DEC 3 B-6
057544,000868: 11,3755 10000 00000 DP1/4 2DEC .25
057545,000869: 11,3757 11,3755 DQUARTER EQUALS DP1/4
057546,000870: 11,3757 11,3755 POS1/4 EQUALS DP1/4
057547,000871: 11,3757 03000 00000 3/32 2DEC 3 B-5
057548,000872: 11,3761 36000 00000 15/16 2DEC 15. B-4
057549,000873: 11,3763 30000 00000 3/4 2DEC 3.0 B-2
057550,000874: 11,3765 22525 12525 7/12 2DEC .5833333333
057551,000875: 11,3767 22000 00000 9/16 2DEC 9 B-4
057552,000876: 11,3771 01200 00000 5/128 2DEC 5 B-7
057553,000877: 11,3773 04,3562 DPZERO EQUALS ZEROVEC
057554,000878: 11,3773 25252 25253 DP2/3 2DEC .6666666667
057555,000879: 11,3775 11,3773 2/3 EQUALS DP2/3
057556,000880: 11,3775 00027 OCT27 OCT 27
057557,000881: # LM504 IS TEMPORARY
057558,000882: 13,3714 BANK 13
057559,000883: 13,2000 SETLOC ORBITAL2
057560,000884: 13,2000 BANK
057561,000885: # IT IS VITAL THAT THE FOLLOWING CONSTANTS NOT BE SHUFFLED
057562,000886: 13,3714 77764 DEC -11 B-14
057563,000887: 13,3715 77775 DEC -2 B-14
057564,000888: 13,3716 77766 DEC -9 B-14
057565,000889: 13,3717 77771 DEC -6 B-14
057566,000890: 13,3720 77775 DEC -2 B-14
057567,000891: 13,3721 77775 DEC -2 B-14
057568,000892: 13,3722 00000 DEC 0 B-14
057569,000893: 13,3723 77763 DEC -12 B-14
057570,000894: 13,3724 77766 DEC -9 B-14
057571,000895: 13,3725 77773 DEC -4 B-14
057572,000896: 13,3726 77770 ASCALE DEC -7 B-14
057573,000897: 13,3727 77771 DEC -6 B-14
|
|
Page 1354
|
057575,000899: 13,3730 27446 14620 2DEC* 1.32715445 E16 B-54* # S
057576,000900: 13,3732 16471 01352 2DEC* 4.9027780 E8 B-30* # M
057577,000901: 13,3734 22437 16067 MUEARTH 2DEC* 3.986032 E10 B-36*
|
|
Reconstruction: As decribed in an earlier annotation
above the same R-2 model changes made between Comanche 51 and 55 have been
backported into Comanche 45. The following line is one of those associated changes.
|
057581,000905: 13,3736 00000 00000 2DEC 0 B-28
057582,000906: 13,3740 02302 24736 J4REQ/J3 2DEC* .4991607391 E7 B-26*
057583,000907: 13,3742 77651 76237 2DEC -176236.02 B-25
057584,000908: 13,3744 77776 53032 2J3RE/J2 2DEC* -.1355426363 E5 B-27*
057585,000909: 13,3746 10407 05344 2DEC* .3067493316 E18 B-60*
057586,000910: 13,3750 13710 35320 J2REQSQ 2DEC* 1.75501139 E21 B-72*
057587,000911: 13,3752 12160 12124 3J22R2MU 2DEC* 9.20479048 E16 B-58*
057588,000912: 13,3754 24000 00000 5/8 2DEC 5 B-3
057589,000913: 13,3756 74631 63145 -1/12 2DEC -.1
057590,000914: 13,3760 13,3732 MUM = MUEARTH -2
057591,000915: 13,3760 00243 32703 RECRATIO 2DEC .01
057592,000916: 13,3762 03654 21000 RSPHERE 2DEC 64373.76 E3 B-29
057593,000917: 13,3764 03654 21000 RDM 2DEC 16093.44 E3 B-27
057594,000918: 13,3766 04627 25200 RDE 2DEC 80467.20 E3 B-29
057595,000919: 13,3770 RATT EQUALS 00
057596,000920: 13,3770 VATT EQUALS 6D
057597,000921: 13,3770 TAT EQUALS 12D
057598,000922: 13,3770 RATT1 EQUALS 14D
057599,000923: 13,3770 VATT1 EQUALS 20D
057600,000924: 13,3770 MU(P) EQUALS 26D
057601,000925: 13,3770 TDEC1 EQUALS 32D
057602,000926: 13,3770 URPV EQUALS 14D
057603,000927: 13,3770 0022 COSPHI/2 EQUALS URPV +4
057604,000928: 13,3770 UZ EQUALS 20D
057605,000929: 13,3770 TVEC EQUALS 26D
057606,000930:
057607,000931:
057608,000932:
End of include-file ORBITAL_INTEGRATION.agc. Parent file is MAIN.agc