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