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