Source Code
|
These source-code files are part of a reconstructed copy of Luminary 69/2,
the flown, final release of the Apollo 10 Lunar Module (LM) Apollo Guidance Computer (AGC) software.
The reconstruction is based on the source code of Luminary 69 — i.e., the
initial, unflown version, "revision 0" — of which
a contemporary listing was available. The code was then updated by incorporating the
differences between Luminary 69 and Luminary 69/2, known from other contemporary
documentation. The only such difference is the implementation in
Luminary 69/2 of the "R-2 Lunar Potential Model", the source code for which was taken
from program Luminary 99/1 (Apollo 11 LM), of which a contemporary listing was also available.
Finally, the now-reconstructed Luminary 69/2 was then validated by assembling it to
executable form and verifying that its memory banks had the correct checksums,
known from still other contemporary documentation.
Note that page numbers in the reconstructed code match those in the original Luminary 69
program listing, or in the ORBITAL INTEGRATION log section, in Luminary 99/1. Page numbers
would certainly differ somewhat in a contemporary Luminary 69/2 listing.
Moreover, annotations that were not present in the contemporary source code have been added
to the reconstructed code to justify each change in Luminary 69/2 relative to
Luminary 69. Here's a guide to the Apollo documentation referenced in those annotations:
Comments from 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.
|
049040,000002: ## Copyright: Public domain.
049041,000003: ## Filename: MEASUREMENT_INCORPORATION.agc
049042,000004: ## Purpose: A section of LUM69 revision 2.
049043,000005: ## It is part of the reconstructed source code for the flown
049044,000006: ## version of the flight software for the Lunar Module's (LM)
049045,000007: ## Apollo Guidance Computer (AGC) for Apollo 10. The code has
049046,000008: ## been recreated from a copy of Luminary revsion 069, using
049047,000009: ## changes present in Luminary 099 which were described in
049048,000010: ## Luminary memos 75 and 78. The code has been adapted such
049049,000011: ## that the resulting bugger words exactly match those specified
049050,000012: ## for LUM69 revision 2 in NASA drawing 2021152B, which gives
049051,000013: ## relatively high confidence that the reconstruction is correct.
049052,000014: ## Reference: pp. 1144-1153
049053,000015: ## Assembler: yaYUL
049054,000016: ## Contact: Ron Burkey <info@sandroid.org>.
049055,000017: ## Website: www.ibiblio.org/apollo/index.html
049056,000018: ## Mod history: 2019-07-27 MAS Created from Luminary 69.
049057,000019:
|
|
Page 1144
|
049059,000021: # INCORP1--PERFORMS THE SIX DIMENSIONAL STATE VECTOR DEVIATION FOR POSITI
049060,000022: # ON AND VELOCITY OR THE NINE DIMENSIONAL DEVIATION OF POSITION,VELOCITY,A
049061,000023: # ND RADAR OR LANDMARK BIAS.THE OUTPUT OF THE BVECTOR ROUTINE ALONG WITH T
049062,000024: # HE ERROR TRANSITION MATRIX(W) ARE USED AS INPUT TO THE ROUTINE.THE DEVIA
049063,000025: # TION IS OBTAINED BY COMPUTING AN ESTIMATED TRACKING MEASUREMENT FROM THE
049064,000026: # CURRENT STATE VECTOR AND COMPARING IT WITH AN ACTUAL TRACKING MEASUREMEN
049065,000027: # T AND APPLYING A STATISTICAL WEIGHTING VECTOR.
049066,000028:
049067,000029: # INPUT
049068,000030: # DMENFLG = 0 6DIMENSIONAL BVECTOR 1=9DIMENSIONAL
049069,000031: # W = ERROR TRANSITION MATRIX 6X6 OR 9X9
049070,000032: # VARIANCE = VARIANCE (SCALAR)
049071,000033: # DELTAQ = MEASURED DEVIATION (SCALAR)
049072,000034: # BVECTOR = 6 OR 9 DIMENSIONAL BVECTOR
049073,000035:
049074,000036: # OUTPUT
049075,000037: # DELTAX = STATE VECTOR DEVIATIONS 6 OR 9 DIMENSIONAL
049076,000038: # ZI = VECTOR USED FOR THE INCORPORATION 6 OR 9 DIMENSIONAL
049077,000039: # GAMMA = SCALAR
049078,000040: # OMEGA = OMEGA WEIGHTING VECTOR 6 OR 9 DIMENTIONAL
049079,000041: # CALLING SEQUENCE
049080,000042: # L CALL INCORP1
049081,000043:
049082,000044: # NORMAL EXIT
049083,000045: # L+1 OF CALLING SEQUENCE
049084,000046:
049085,000047: 37,3641 BANK 37
049086,000048: 23,2000 SETLOC MEASINC
049087,000049: 23,2000 BANK
049088,000050:
049089,000051: 23,2433 COUNT* $$/INCOR
049090,000052:
049091,000053: 23,2433 E5,1400 EBANK= W
049092,000054:
049093,000055: 23,2433 77620 INCORP1 STQ
049094,000056: 23,2434 02772 EGRESS
049095,000057: 23,2435 66370 AXT,1 SSP
049096,000058: 23,2436 00066 54D
049097,000059: 23,2437 00051 S1
049098,000060: 23,2440 00022 18D # IX1 = 54 S1= 18
049099,000061: 23,2441 66374 AXT,2 SSP
049100,000062: 23,2442 00022 18D
049101,000063: 23,2443 00052 S2
049102,000064: 23,2444 00006 6 # IX2 = 18 S2=6
049103,000065: 23,2445 63775 Z123 VLOAD MXV*
049104,000066: 23,2446 03523 BVECTOR # BVECTOR (0)
049105,000067: 23,2447 02467 W +54D,1
049106,000068: 23,2450 12665 STORE ZI +18D,2
049107,000069: 23,2451 77775 VLOAD
049108,000070: 23,2452 03531 BVECTOR +6 # BVECTOR (1)
|
|
Page 1145
|
049110,000072: 23,2453 52717 MXV* VAD*
049111,000073: 23,2454 02555 W +108D,1
049112,000074: 23,2455 75112 ZI +18D,2
049113,000075: 23,2456 12665 STORE ZI +18D,2
049114,000076: 23,2457 77775 VLOAD
049115,000077: 23,2460 03537 BVECTOR +12D # BVECTOR (2)
049116,000078: 23,2461 52717 MXV* VAD*
049117,000079: 23,2462 02643 W +162D,1
049118,000080: 23,2463 75112 ZI +18D,2 # B(0)*W+B(1)*(W+54)+B(2)*(W+108) FIRST PAS
049119,000081: 23,2464 12665 STORE ZI +18D,2 # ZI THEN Z2 THEN Z3
049120,000082: 23,2465 77700 TIX,1
049121,000083: 23,2466 46467 INCOR1
049122,000084: 23,2467 43104 INCOR1 TIX,2 BON
049123,000085: 23,2470 46445 Z123 # LOOP FOR Z1,Z2,Z3
049124,000086: 23,2471 02706 DMENFLG
049125,000087: 23,2472 46476 INCOR1A
049126,000088: 23,2473 77775 VLOAD
049127,000089: 23,2474 06424 ZEROVECS
049128,000090: 23,2475 02657 STORE ZI +12D
049129,000091: 23,2476 77201 INCOR1A SETPD VLOAD
049130,000092: 23,2477 00001 0
049131,000093: 23,2500 02643 ZI
049132,000094: 23,2501 47036 VSQ RTB
049133,000095: 23,2502 21537 TPMODE
049134,000096: 23,2503 47515 PDVL VSQ
049135,000097: 23,2504 02651 ZI +6
049136,000098: 23,2505 76234 RTB TAD
049137,000099: 23,2506 21537 TPMODE
049138,000100: 23,2507 47515 PDVL VSQ
049139,000101: 23,2510 02657 ZI +12D
049140,000102: 23,2511 76234 RTB TAD
049141,000103: 23,2512 21537 TPMODE
049142,000104: 23,2513 77171 TAD AXT,2
049143,000105: 23,2514 02707 VARIANCE
049144,000106: 23,2515 00000 0
049145,000107: 23,2516 02665 STORE TRIPA # ZI*2 + Z2*2 + Z3*2 + VARIANCE
049146,000108: 23,2517 40151 TLOAD BOV
049147,000109: 23,2520 02707 VARIANCE # CLEAR OVFIND
049148,000110: 23,2521 46522 +1
049149,000111: 23,2522 02670 STORE TEMPVAR # TEMP STORAGE FOR VARIANCE
049150,000112: 23,2523 77654 BZE
049151,000113: 23,2524 46533 INCOR1C
049152,000114: 23,2525 40112 INCOR1B SL2 BOV
049153,000115: 23,2526 46533 INCOR1C
049154,000116: 23,2527 02670 STORE TEMPVAR
049155,000117: 23,2530 52114 INCR,2 GOTO
049156,000118: 23,2531 00001 DEC 1 B-14
049157,000119: 23,2532 46525 INCOR1B
049158,000120: 23,2533 61551 INCOR1C TLOAD ROUND
049159,000121: 23,2534 02665 TRIPA
|
|
Page 1146
|
049161,000123: 23,2535 75405 DMP SQRT
049162,000124: 23,2536 02670 TEMPVAR
049163,000125: 23,2537 76257 SL* TAD
049164,000126: 23,2540 57576 0,2
049165,000127: 23,2541 02665 TRIPA
049166,000128: 23,2542 63101 NORM INCR,2
049167,000129: 23,2543 00050 X2
049168,000130: 23,2544 77775 DEC -2 B-14
049169,000131: 23,2545 77134 SXA,2 AXT,2
049170,000132: 23,2546 02103 NORMGAM # NORMALIZATION COUNT -2 FOR GAMMA
049171,000133: 23,2547 00242 162D
049172,000134: 23,2550 40265 BDDV SETPD
049173,000135: 23,2551 06414 DP1/4TH
049174,000136: 23,2552 00001 0
049175,000137: 23,2553 03476 STORE GAMMA
049176,000138: 23,2554 60351 TLOAD NORM
049177,000139: 23,2555 02665 TRIPA
049178,000140: 23,2556 00047 X1
049179,000141: 23,2557 65345 DLOAD PDDL # PD 0-1 = NORM (A)
049180,000142: 23,2560 00155 MPAC
049181,000143: 23,2561 03545 DELTAQ
049182,000144: 23,2562 77701 NORM
049183,000145: 23,2563 00051 S1
049184,000146: 23,2564 70460 XSU,1 SR1
049185,000147: 23,2565 00050 S1
049186,000148: 23,2566 41471 DDV PUSH # PD 0-1 = DELTAQ/A
049187,000149: 23,2567 77650 GOTO
049188,000150: 23,2570 45647 NEWZCOMP
049189,000151: 23,2571 77731 -3 SSP
049190,000152: 23,2572 00052 S2
049191,000153: 23,2573 00066 54D
049192,000154: 23,2574 60775 INCOR2 VLOAD VXM* # COMPUTE OMEGA1,2,3
049193,000155: 23,2575 02643 ZI
049194,000156: 23,2576 75134 W +162D,2
049195,000157: 23,2577 77206 PUSH VLOAD
049196,000158: 23,2600 02651 ZI +6
049197,000159: 23,2601 53303 VXM* VAD
049198,000160: 23,2602 75112 W +180D,2
049199,000161: 23,2603 77206 PUSH VLOAD
049200,000162: 23,2604 02657 ZI +12D
049201,000163: 23,2605 53303 VXM* VAD
049202,000164: 23,2606 75070 W +198D,2
049203,000165: 23,2607 61006 PUSH TIX,2 # PD 2-7=OMEGA1, 8-13=OMEGA2, 14-19=OMEGA3
049204,000166: 23,2610 46574 INCOR2
049205,000167: 23,2611 45575 VLOAD STADR
049206,000168: 23,2612 74262 STORE OMEGA +12D
049207,000169: 23,2613 45575 VLOAD STADR
049208,000170: 23,2614 74270 STORE OMEGA +6
049209,000171: 23,2615 45575 VLOAD STADR
049210,000172: 23,2616 74276 STORE OMEGA
|
|
Page 1147
|
049212,000174: 23,2617 77214 BON VLOAD
049213,000175: 23,2620 02706 DMENFLG
049214,000176: 23,2621 46624 INCOR2AB
049215,000177: 23,2622 06424 ZEROVECS
049216,000178: 23,2623 03515 STORE OMEGA +12D
049217,000179: 23,2624 66374 INCOR2AB AXT,2 SSP
049218,000180: 23,2625 00022 18D
049219,000181: 23,2626 00052 S2
049220,000182: 23,2627 00006 6
049221,000183: 23,2630 77773 INCOR3 VLOAD*
049222,000184: 23,2631 74254 OMEGA +18D,2
049223,000185: 23,2632 53761 VXSC VSL*
049224,000186: 23,2633 00001 0 # DELTAQ/A
049225,000187: 23,2634 20201 0,1
049226,000188: 23,2635 12707 STORE DELTAX +18D,2
049227,000189: 23,2636 77304 TIX,2 VLOAD
049228,000190: 23,2637 46630 INCOR3
049229,000191: 23,2640 02673 DELTAX +6
049230,000192: 23,2641 77732 VSL3
049231,000193: 23,2642 02673 STORE DELTAX +6
049232,000194: 23,2643 77650 GOTO
049233,000195: 23,2644 02772 EGRESS
049234,000196:
|
|
Page 1148
|
049236,000198: # INCORP2 -INCORPORATES THE COMPUTED STATE VECTOR DEVIATIONS INTO THE
049237,000199: # ESTIMATED STATE VECTOR. THE STATE VECTOR UPDATED MAY BE FOR EITHER THE
049238,000200: # LEM OR THE CSM. DETERMINED BY FLAG VEHUPFLG. (ZERO = LEM) (1 = CSM)
049239,000201:
049240,000202: # INPUT
049241,000203: # PERMANENT STATE VECTOR FOR EITHER THE LEM OR CSM
049242,000204: # VEHUPFLG = UPDATE VEHICLE 0=LEM 1=CSM
049243,000205: # W = ERROR TRANSITION MATRIX
049244,000206: # DELTAX = COMPUTED STATE VECTOR DEVIATIONS
049245,000207: # DMENFLG = SIZE OF W MATRIX (ZERO=6X6) (1=9X9)
049246,000208: # GAMMA = SCALAR FOR INCORPORATION
049247,000209: # ZI = VECTOR USED IN INCORPORATION
049248,000210: # OMEGA = WEIGHTING VECTOR
049249,000211:
049250,000212: # OUTPUT
049251,000213: # UPDATED PERMANENT STATE VECTOR
049252,000214:
049253,000215: # CALLING SEQUENCE
049254,000216: # L CALL INCORP2
049255,000217:
049256,000218: # NORMAL EXIT
049257,000219: # L+1 OF CALLING SEQUENCE
049258,000220:
049259,000221:
049260,000222: 23,2000 SETLOC MEASINC1
049261,000223: 23,2000 BANK
049262,000224:
049263,000225: 23,2645 COUNT* $$/INCOR
049264,000226:
049265,000227: 23,2645 45020 INCORP2 STQ CALL
049266,000228: 23,2646 02772 EGRESS
049267,000229: 23,2647 27412 INTSTALL
049268,000230: 23,2650 74375 VLOAD VXSC # CALC. GAMMA * OMEGA1,2,3
049269,000231: 23,2651 03501 OMEGA
049270,000232: 23,2652 03476 GAMMA
049271,000233: 23,2653 26713 STOVL OMEGAM1
049272,000234: 23,2654 03507 OMEGA +6
049273,000235: 23,2655 77761 VXSC
049274,000236: 23,2656 03476 GAMMA
049275,000237: 23,2657 26721 STOVL OMEGAM2
049276,000238: 23,2660 03515 OMEGA +12D
049277,000239: 23,2661 77761 VXSC
049278,000240: 23,2662 03476 GAMMA
049279,000241: 23,2663 02727 STORE OMEGAM3
049280,000242: 23,2664 77776 EXIT
049281,000243: 23,2665 33146 CAF 54DD # INITIAL IX 1 SETTING FOR W MATRIX
049282,000244: 23,2666 55320 TS WIXA
049283,000245: 23,2667 55321 TS WIXB
049284,000246: 23,2670 34755 CAF ZERO
049285,000247: 23,2671 55322 TS ZIXA # INITIAL IX 2 SETTING FOR Z COMPONENT
049286,000248: 23,2672 55323 TS ZIXB
049287,000249: 23,2673 05353 FAZA TC PHASCHNG
|
|
Page 1149
|
049289,000251: 23,2674 04022 OCT 04022
049290,000252: 23,2675 05504 TC UPFLAG
049291,000253: 23,2676 00236 ADRES REINTFLG
049292,000254: 23,2677 31321 FAZA1 CA WIXB # START FIRST PHASE OF INCORP2
049293,000255: 23,2700 55320 TS WIXA # TO UPDATE 6 OR 9 DIM. W MATRIX IN TEMP
049294,000256: 23,2701 31323 CA ZIXB
049295,000257: 23,2702 55322 TS ZIXA
049296,000258: 23,2703 06036 TC INTPRET
049297,000259: 23,2704 73150 LXA,1 LXA,2
049298,000260: 23,2705 01320 WIXA
049299,000261: 23,2706 01322 ZIXA
049300,000262: 23,2707 70731 SSP DLOAD*
049301,000263: 23,2710 00051 S1
049302,000264: 23,2711 00006 6
049303,000265: 23,2712 75134 ZI,2
049304,000266: 23,2713 60276 DCOMP NORM # CALC UPPER 3X9 PARTITION OF W MATRIX
049305,000267: 23,2714 00052 S2
049306,000268: 23,2715 65161 VXSC XCHX,2
049307,000269: 23,2716 02713 OMEGAM1
049308,000270: 23,2717 00051 S2
049309,000271: 23,2720 57144 LXC,2 XAD,2
049310,000272: 23,2721 00047 X2
049311,000273: 23,2722 02103 NORMGAM
049312,000274: 23,2723 65057 VSL* XCHX,2
049313,000275: 23,2724 57576 0,2
049314,000276: 23,2725 00051 S2
049315,000277: 23,2726 77653 VAD*
049316,000278: 23,2727 02467 W +54D,1
049317,000279: 23,2730 02735 STORE HOLDW
049318,000280: 23,2731 57543 DLOAD* DCOMP # CALC MIDDLE 3X9 PARTITION OF W MATRIX
049319,000281: 23,2732 75134 ZI,2
049320,000282: 23,2733 74301 NORM VXSC
049321,000283: 23,2734 00052 S2
049322,000284: 23,2735 02721 OMEGAM2
049323,000285: 23,2736 71124 XCHX,2 LXC,2
049324,000286: 23,2737 00051 S2
049325,000287: 23,2740 00047 X2
049326,000288: 23,2741 53674 XAD,2 VSL*
049327,000289: 23,2742 02103 NORMGAM
049328,000290: 23,2743 57576 0,2
049329,000291: 23,2744 52724 XCHX,2 VAD*
049330,000292: 23,2745 00051 S2
049331,000293: 23,2746 02555 W +108D,1
049332,000294: 23,2747 02743 STORE HOLDW +6
049333,000295: 23,2750 77614 BOFF
049334,000296: 23,2751 02746 DMENFLG # BRANCH IF 6 DIMENSIONAL
049335,000297: 23,2752 46772 FAZB
049336,000298: 23,2753 57543 DLOAD* DCOMP # CALC LOWER 3X9 PARTITION OF W MATRIX
049337,000299: 23,2754 75134 ZI,2
049338,000300: 23,2755 74301 NORM VXSC
|
|
Page 1150
|
049340,000302: 23,2756 00052 S2
049341,000303: 23,2757 02727 OMEGAM3
049342,000304: 23,2760 71124 XCHX,2 LXC,2
049343,000305: 23,2761 00051 S2
049344,000306: 23,2762 00047 X2
049345,000307: 23,2763 53674 XAD,2 VSL*
049346,000308: 23,2764 02103 NORMGAM
049347,000309: 23,2765 57576 0,2
049348,000310: 23,2766 52724 XCHX,2 VAD*
049349,000311: 23,2767 00051 S2
049350,000312: 23,2770 02643 W +162D,1
049351,000313: 23,2771 02751 STORE HOLDW +12D
049352,000314: 23,2772 77624 FAZB CALL
049353,000315: 23,2773 11165 GRP2PC
049354,000316: 23,2774 77776 EXIT
049355,000317: 23,2775 31320 FAZB1 CA WIXA # START 2ND PHASE OF INCORP2 TO TRANSFER
049356,000318: 23,2776 63147 AD 6DD # TEMP REG TO PERM W MATRIX
049357,000319: 23,2777 55321 TS WIXB
049358,000320: 23,3000 31322 CA ZIXA
049359,000321: 23,3001 67745 AD MINUS2
049360,000322: 23,3002 55323 TS ZIXB
049361,000323: 23,3003 06036 TC INTPRET
049362,000324: 23,3004 66350 LXA,1 SSP
049363,000325: 23,3005 01320 WIXA
049364,000326: 23,3006 00051 S1
049365,000327: 23,3007 00006 6
049366,000328: 23,3010 77775 VLOAD
049367,000329: 23,3011 02735 HOLDW
049368,000330: 23,3012 06467 STORE W +54D,1
049369,000331: 23,3013 77775 VLOAD
049370,000332: 23,3014 02743 HOLDW +6
049371,000333: 23,3015 06555 STORE W +108D,1
049372,000334: 23,3016 77214 BOFF VLOAD
049373,000335: 23,3017 02746 DMENFLG
049374,000336: 23,3020 47030 FAZB5
049375,000337: 23,3021 02751 HOLDW +12D
049376,000338: 23,3022 06643 STORE W +162D,1
049377,000339: 23,3023 52100 FAZB2 TIX,1 GOTO
049378,000340: 23,3024 47026 +2
049379,000341: 23,3025 47036 FAZC # DONE WITH W MATRIX. UPDATE STATE VECTOR
049380,000342: 23,3026 77634 RTB
049381,000343: 23,3027 46673 FAZA
049382,000344: 23,3030 43335 FAZB5 SLOAD DAD
049383,000345: 23,3031 01324 ZIXB
049384,000346: 23,3032 07151 12DD
049385,000347: 23,3033 52030 BHIZ GOTO
049386,000348: 23,3034 47036 FAZC
049387,000349: 23,3035 47023 FAZB2
049388,000350: 23,3036 77624 FAZC CALL
049389,000351: 23,3037 11165 GRP2PC
|
|
Page 1151
|
049391,000353: 23,3040 53375 VLOAD VAD # START 3RD PHASE OF INCORP2
049392,000354: 23,3041 01701 X789 # 7TH,8TH,9TH,COMPONENT OF STATE VECTOR
049393,000355: 23,3042 02701 DELTAX +12D # INCORPORATION FOR X789
049394,000356: 23,3043 03470 STORE TX789
049395,000357: 23,3044 47014 BON RTB
049396,000358: 23,3045 00707 VEHUPFLG
049397,000359: 23,3046 47136 DOCSM
049398,000360: 23,3047 26770 MOVEPLEM
049399,000361: 23,3050 77004 FAZAB BOVB AXT,2
049400,000362: 23,3051 57725 TCDANZIG
049401,000363: 23,3052 00000 0
049402,000364: 23,3053 77014 BOFF AXT,2
049403,000365: 23,3054 04344 MOONTHIS
049404,000366: 23,3055 47057 +2
049405,000367: 23,3056 00002 2
049406,000368: 23,3057 53775 VLOAD VSR*
049407,000369: 23,3060 02665 DELTAX # B27 IF MOON ORBIT, B29 IF EARTH
049408,000370: 23,3061 57205 0 -7,2
049409,000371: 23,3062 40055 VAD BOV
049410,000372: 23,3063 01521 TDELTAV
049411,000373: 23,3064 47076 FAZAB1
049412,000374: 23,3065 25521 STOVL TDELTAV
049413,000375: 23,3066 02673 DELTAX +6 # B5 IF MOON ORBIT, B7 IF EARTH
049414,000376: 23,3067 53257 VSR* VAD
049415,000377: 23,3070 57202 0 -4,2
049416,000378: 23,3071 01527 TNUV
049417,000379: 23,3072 77600 BOV
049418,000380: 23,3073 47102 FAZAB2
049419,000381: 23,3074 35527 STCALL TNUV
049420,000382: 23,3075 47111 FAZAB3
049421,000383: 23,3076 53375 FAZAB1 VLOAD VAD
049422,000384: 23,3077 01535 RCV
049423,000385: 23,3100 02665 DELTAX
049424,000386: 23,3101 01535 STORE RCV
049425,000387: 23,3102 53375 FAZAB2 VLOAD VAD
049426,000388: 23,3103 01543 VCV
049427,000389: 23,3104 02673 DELTAX +6
049428,000390: 23,3105 01543 STORE VCV
049429,000391: 23,3106 45134 SXA,2 CALL
049430,000392: 23,3107 02030 PBODY
049431,000393: 23,3110 23345 RECTIFY
049432,000394: 23,3111 77624 FAZAB3 CALL
049433,000395: 23,3112 11165 GRP2PC
049434,000396: 23,3113 47014 BON RTB
049435,000397: 23,3114 00707 VEHUPFLG
049436,000398: 23,3115 47141 DOCSM1
049437,000399: 23,3116 26747 MOVEALEM
049438,000400: 23,3117 77624 CALL
049439,000401: 23,3120 26070 SVDWN2 # STORE DOWNLINK STATE VECTOR
049440,000402: 23,3121 77624 FAZAB4 CALL
|
|
Page 1152
|
049442,000404: 23,3122 11165 GRP2PC # PHASE CHANGE
049443,000405: 23,3123 77214 BOFF VLOAD
049444,000406: 23,3124 02746 DMENFLG
049445,000407: 23,3125 47130 FAZAB5 # 6 DIMENSIONAL
049446,000408: 23,3126 03470 TX789 # 9 DIMENSIONAL
049447,000409: 23,3127 01701 STORE X789
049448,000410: 23,3130 66150 FAZAB5 LXA,1 SXA,1
049449,000411: 23,3131 02772 EGRESS
049450,000412: 23,3132 00052 QPRET
049451,000413: 23,3133 77776 EXIT
049452,000414: 23,3134 04635 TC POSTJUMP # EXIT
049453,000415: 23,3135 27427 CADR INTWAKE
049454,000416: 23,3136 52034 DOCSM RTB GOTO
049455,000417: 23,3137 26723 MOVEPCSM
049456,000418: 23,3140 47050 FAZAB
049457,000419: 23,3141 45034 DOCSM1 RTB CALL
049458,000420: 23,3142 26674 MOVEACSM
049459,000421: 23,3143 26114 SVDWN1 # STORE DOWNLINK STATE VECTOR
049460,000422: 23,3144 77650 GOTO
049461,000423: 23,3145 47121 FAZAB4
049462,000424: 23,3146 23,2423 ZEROO = ZEROVECS
049463,000425: 23,3146 00066 54DD DEC 54 B-14
049464,000426: 23,3147 77771 6DD DEC -6 B-14
049465,000427: 23,3150 00014 12DD DEC 12 B-14
049466,000428:
049467,000429: 22,2000 SETLOC RENDEZ
049468,000430: 22,2000 BANK
049469,000431: 22,3647 COUNT* $$/INCOR
049470,000432:
049471,000433: 22,3647 51575 NEWZCOMP VLOAD ABVAL
049472,000434: 22,3650 02643 ZI
049473,000435: 22,3651 24045 STOVL NORMZI
049474,000436: 22,3652 02651 ZI +6
049475,000437: 22,3653 41446 ABVAL PUSH
049476,000438: 22,3654 50025 DSU BMN
049477,000439: 22,3655 00045 NORMZI
049478,000440: 22,3656 45661 +3
049479,000441: 22,3657 45545 DLOAD STADR
049480,000442: 22,3660 77732 STORE NORMZI
049481,000443: 22,3661 51575 VLOAD ABVAL
049482,000444: 22,3662 02657 ZI +12D
049483,000445: 22,3663 45206 PUSH DSU
049484,000446: 22,3664 00045 NORMZI
049485,000447: 22,3665 71240 BMN DLOAD
049486,000448: 22,3666 45671 +3
049487,000449: 22,3667 77626 STADR
049488,000450: 22,3670 77732 STORE NORMZI # LARGEST ABVAL
049489,000451: 22,3671 66145 DLOAD SXA,1
049490,000452: 22,3672 00045 NORMZI
049491,000453: 22,3673 00044 NORMZI # SAVE X1
049492,000454: 22,3674 62101 NORM INCR,1
|
|
Page 1153
|
049494,000456: 22,3675 00047 X1
049495,000457: 22,3676 00002 DEC 2 B-14
049496,000458: 22,3677 53775 VLOAD VSL*
049497,000459: 22,3700 02643 ZI
049498,000460: 22,3701 20201 0,1
049499,000461: 22,3702 26643 STOVL ZI
049500,000462: 22,3703 02651 ZI +6
049501,000463: 22,3704 77657 VSL*
049502,000464: 22,3705 20201 0,1
049503,000465: 22,3706 26651 STOVL ZI +6
049504,000466: 22,3707 02657 ZI +12D
049505,000467: 22,3710 66057 VSL* SXA,1
049506,000468: 22,3711 20201 0,1
049507,000469: 22,3712 00045 NORMZI +1 # SAVE SHIFT
049508,000470: 22,3713 02657 STORE ZI +12D
049509,000471: 22,3714 54150 LXA,1 XSU,1
049510,000472: 22,3715 02103 NORMGAM
049511,000473: 22,3716 00045 NORMZI +1
049512,000474: 22,3717 77660 XSU,1
049513,000475: 22,3720 00045 NORMZI +1
049514,000476: 22,3721 70130 SXA,1 LXC,1
049515,000477: 22,3722 02103 NORMGAM
049516,000478: 22,3723 00045 NORMZI +1
049517,000479: 22,3724 40270 XAD,1 SETPD
049518,000480: 22,3725 00044 NORMZI
049519,000481: 22,3726 00003 2D
049520,000482: 22,3727 77650 GOTO
049521,000483: 22,3730 46571 INCOR2 -3
049522,000484: 22,3731 NORMZI = 36D
049523,000485:
049524,000486:
End of include-file MEASUREMENT_INCORPORATION.agc. Parent file is MAIN.agc