GAP: ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011 19:02 NOV. 25,1968Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were transcribed from scans made from Don Eyles's personal
copy of Luminary 069. They were scanned at archive.org's Boston
facility, and the scanning was sponsored by Onno Hommes. The code was transcribed
from these scans by a team of volunteers who are referenced in the program
comments. Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". In some cases, where
similar code blocks exist in previously-transcribed AGC programs (primarily
Luminary 99, from Apollo 11) those code blocks were used as a starting point and
then corrected to agree with the Luminary 69 scans. The full scans are available
at the Virtual AGC
project's collection at archive.org, while more-convenient reduced-size (but reduced-quality)
images are available at
the main Virtual AGC website. Report any errors noted by creating an
issue report at the Virtual AGC
project's GitHub repository. Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011 19:02 NOV. 25,1968Note that the date is the date of the printout, not the date of the program revision. |
049395,000002: ## Copyright: Public domain.
049396,000003: ## Filename: MEASUREMENT_INCORPORATION.agc
049397,000004: ## Purpose: The main source file for Luminary revision 069.
049398,000005: ## It is part of the source code for the original release
049399,000006: ## of the flight software for the Lunar Module's (LM) Apollo
049400,000007: ## Guidance Computer (AGC) for Apollo 10. The actual flown
049401,000008: ## version was Luminary 69 revision 2, which included a
049402,000009: ## newer lunar gravity model and only affected module 2.
049403,000010: ## This file is intended to be a faithful transcription, except
049404,000011: ## that the code format has been changed to conform to the
049405,000012: ## requirements of the yaYUL assembler rather than the
049406,000013: ## original YUL assembler.
049407,000014: ## Reference: pp. 1144-1153
049408,000015: ## Assembler: yaYUL
049409,000016: ## Contact: Ron Burkey <info@sandroid.org>.
049410,000017: ## Website: www.ibiblio.org/apollo/index.html
049411,000018: ## Mod history: 2016-12-13 MAS Created from Luminary 99.
049412,000019: ## 2016-12-18 MAS Updated from comment-proofed Luminary 99 version.
049413,000020: ## 2017-01-17 RRB Updated for Luminary 69.
049414,000021: ## 2017-01-28 RSB Proofed comment text using octopus/prooferComments
049415,000022: ## but no errors found.
049416,000023:
|
|
Page 1144 |
049418,000025: # INCORP1--PERFORMS THE SIX DIMENSIONAL STATE VECTOR DEVIATION FOR POSITI
049419,000026: # ON AND VELOCITY OR THE NINE DIMENSIONAL DEVIATION OF POSITION,VELOCITY,A
049420,000027: # ND RADAR OR LANDMARK BIAS.THE OUTPUT OF THE BVECTOR ROUTINE ALONG WITH T
049421,000028: # HE ERROR TRANSITION MATRIX(W) ARE USED AS INPUT TO THE ROUTINE.THE DEVIA
049422,000029: # TION IS OBTAINED BY COMPUTING AN ESTIMATED TRACKING MEASUREMENT FROM THE
049423,000030: # CURRENT STATE VECTOR AND COMPARING IT WITH AN ACTUAL TRACKING MEASUREMEN
049424,000031: # T AND APPLYING A STATISTICAL WEIGHTING VECTOR.
049425,000032:
049426,000033: # INPUT
049427,000034: # DMENFLG = 0 6DIMENSIONAL BVECTOR 1=9DIMENSIONAL
049428,000035: # W = ERROR TRANSITION MATRIX 6X6 OR 9X9
049429,000036: # VARIANCE = VARIANCE (SCALAR)
049430,000037: # DELTAQ = MEASURED DEVIATION (SCALAR)
049431,000038: # BVECTOR = 6 OR 9 DIMENSIONAL BVECTOR
049432,000039:
049433,000040: # OUTPUT
049434,000041: # DELTAX = STATE VECTOR DEVIATIONS 6 OR 9 DIMENSIONAL
049435,000042: # ZI = VECTOR USED FOR THE INCORPORATION 6 OR 9 DIMENSIONAL
049436,000043: # GAMMA = SCALAR
049437,000044: # OMEGA = OMEGA WEIGHTING VECTOR 6 OR 9 DIMENTIONAL
049438,000045: # CALLING SEQUENCE
049439,000046: # L CALL INCORP1
049440,000047:
049441,000048: # NORMAL EXIT
049442,000049: # L+1 OF CALLING SEQUENCE
049443,000050:
049444,000051: 37,3641 BANK 37
049445,000052: 23,2000 SETLOC MEASINC
049446,000053: 23,2000 BANK
049447,000054:
049448,000055: 23,2433 COUNT* $$/INCOR
049449,000056:
049450,000057: 23,2433 E5,1400 EBANK= W
049451,000058:
049452,000059: 23,2433 77620 INCORP1 STQ
049453,000060: 23,2434 02772 EGRESS
049454,000061: 23,2435 66370 AXT,1 SSP
049455,000062: 23,2436 00066 54D
049456,000063: 23,2437 00051 S1
049457,000064: 23,2440 00022 18D # IX1 = 54 S1= 18
049458,000065: 23,2441 66374 AXT,2 SSP
049459,000066: 23,2442 00022 18D
049460,000067: 23,2443 00052 S2
049461,000068: 23,2444 00006 6 # IX2 = 18 S2=6
049462,000069: 23,2445 63775 Z123 VLOAD MXV*
049463,000070: 23,2446 03523 BVECTOR # BVECTOR (0)
049464,000071: 23,2447 02467 W +54D,1
049465,000072: 23,2450 12665 STORE ZI +18D,2
049466,000073: 23,2451 77775 VLOAD
049467,000074: 23,2452 03531 BVECTOR +6 # BVECTOR (1)
|
|
Page 1145 |
049469,000076: 23,2453 52717 MXV* VAD*
049470,000077: 23,2454 02555 W +108D,1
049471,000078: 23,2455 75112 ZI +18D,2
049472,000079: 23,2456 12665 STORE ZI +18D,2
049473,000080: 23,2457 77775 VLOAD
049474,000081: 23,2460 03537 BVECTOR +12D # BVECTOR (2)
049475,000082: 23,2461 52717 MXV* VAD*
049476,000083: 23,2462 02643 W +162D,1
049477,000084: 23,2463 75112 ZI +18D,2 # B(0)*W+B(1)*(W+54)+B(2)*(W+108) FIRST PAS
049478,000085: 23,2464 12665 STORE ZI +18D,2 # ZI THEN Z2 THEN Z3
049479,000086: 23,2465 77700 TIX,1
049480,000087: 23,2466 46467 INCOR1
049481,000088: 23,2467 43104 INCOR1 TIX,2 BON
049482,000089: 23,2470 46445 Z123 # LOOP FOR Z1,Z2,Z3
049483,000090: 23,2471 02706 DMENFLG
049484,000091: 23,2472 46476 INCOR1A
049485,000092: 23,2473 77775 VLOAD
049486,000093: 23,2474 06424 ZEROVECS
049487,000094: 23,2475 02657 STORE ZI +12D
049488,000095: 23,2476 77201 INCOR1A SETPD VLOAD
049489,000096: 23,2477 00001 0
049490,000097: 23,2500 02643 ZI
049491,000098: 23,2501 47036 VSQ RTB
049492,000099: 23,2502 21537 TPMODE
049493,000100: 23,2503 47515 PDVL VSQ
049494,000101: 23,2504 02651 ZI +6
049495,000102: 23,2505 76234 RTB TAD
049496,000103: 23,2506 21537 TPMODE
049497,000104: 23,2507 47515 PDVL VSQ
049498,000105: 23,2510 02657 ZI +12D
049499,000106: 23,2511 76234 RTB TAD
049500,000107: 23,2512 21537 TPMODE
049501,000108: 23,2513 77171 TAD AXT,2
049502,000109: 23,2514 02707 VARIANCE
049503,000110: 23,2515 00000 0
049504,000111: 23,2516 02665 STORE TRIPA # ZI*2 + Z2*2 + Z3*2 + VARIANCE
049505,000112: 23,2517 40151 TLOAD BOV
049506,000113: 23,2520 02707 VARIANCE # CLEAR OVFIND
049507,000114: 23,2521 46522 +1
049508,000115: 23,2522 02670 STORE TEMPVAR # TEMP STORAGE FOR VARIANCE
049509,000116: 23,2523 77654 BZE
049510,000117: 23,2524 46533 INCOR1C
049511,000118: 23,2525 40112 INCOR1B SL2 BOV
049512,000119: 23,2526 46533 INCOR1C
049513,000120: 23,2527 02670 STORE TEMPVAR
049514,000121: 23,2530 52114 INCR,2 GOTO
049515,000122: 23,2531 00001 DEC 1 B-14
049516,000123: 23,2532 46525 INCOR1B
049517,000124: 23,2533 61551 INCOR1C TLOAD ROUND
049518,000125: 23,2534 02665 TRIPA
|
|
Page 1146 |
049520,000127: 23,2535 75405 DMP SQRT
049521,000128: 23,2536 02670 TEMPVAR
049522,000129: 23,2537 76257 SL* TAD
049523,000130: 23,2540 57576 0,2
049524,000131: 23,2541 02665 TRIPA
049525,000132: 23,2542 63101 NORM INCR,2
049526,000133: 23,2543 00050 X2
049527,000134: 23,2544 77775 DEC -2 B-14
049528,000135: 23,2545 77134 SXA,2 AXT,2
049529,000136: 23,2546 02103 NORMGAM # NORMALIZATION COUNT -2 FOR GAMMA
049530,000137: 23,2547 00242 162D
049531,000138: 23,2550 40265 BDDV SETPD
049532,000139: 23,2551 06414 DP1/4TH
049533,000140: 23,2552 00001 0
049534,000141: 23,2553 03476 STORE GAMMA
049535,000142: 23,2554 60351 TLOAD NORM
049536,000143: 23,2555 02665 TRIPA
049537,000144: 23,2556 00047 X1
049538,000145: 23,2557 65345 DLOAD PDDL # PD 0-1 = NORM (A)
049539,000146: 23,2560 00155 MPAC
049540,000147: 23,2561 03545 DELTAQ
049541,000148: 23,2562 77701 NORM
049542,000149: 23,2563 00051 S1
049543,000150: 23,2564 70460 XSU,1 SR1
049544,000151: 23,2565 00050 S1
049545,000152: 23,2566 41471 DDV PUSH # PD 0-1 = DELTAQ/A
049546,000153: 23,2567 77650 GOTO
049547,000154: 23,2570 45647 NEWZCOMP
049548,000155: 23,2571 77731 -3 SSP
049549,000156: 23,2572 00052 S2
049550,000157: 23,2573 00066 54D
049551,000158: 23,2574 60775 INCOR2 VLOAD VXM* # COMPUTE OMEGA1,2,3
049552,000159: 23,2575 02643 ZI
049553,000160: 23,2576 75134 W +162D,2
049554,000161: 23,2577 77206 PUSH VLOAD
049555,000162: 23,2600 02651 ZI +6
049556,000163: 23,2601 53303 VXM* VAD
049557,000164: 23,2602 75112 W +180D,2
049558,000165: 23,2603 77206 PUSH VLOAD
049559,000166: 23,2604 02657 ZI +12D
049560,000167: 23,2605 53303 VXM* VAD
049561,000168: 23,2606 75070 W +198D,2
049562,000169: 23,2607 61006 PUSH TIX,2 # PD 2-7=OMEGA1, 8-13=OMEGA2, 14-19=OMEGA3
049563,000170: 23,2610 46574 INCOR2
049564,000171: 23,2611 45575 VLOAD STADR
049565,000172: 23,2612 74262 STORE OMEGA +12D
049566,000173: 23,2613 45575 VLOAD STADR
049567,000174: 23,2614 74270 STORE OMEGA +6
049568,000175: 23,2615 45575 VLOAD STADR
049569,000176: 23,2616 74276 STORE OMEGA
|
|
Page 1147 |
049571,000178: 23,2617 77214 BON VLOAD
049572,000179: 23,2620 02706 DMENFLG
049573,000180: 23,2621 46624 INCOR2AB
049574,000181: 23,2622 06424 ZEROVECS
049575,000182: 23,2623 03515 STORE OMEGA +12D
049576,000183: 23,2624 66374 INCOR2AB AXT,2 SSP
049577,000184: 23,2625 00022 18D
049578,000185: 23,2626 00052 S2
049579,000186: 23,2627 00006 6
049580,000187: 23,2630 77773 INCOR3 VLOAD*
049581,000188: 23,2631 74254 OMEGA +18D,2
049582,000189: 23,2632 53761 VXSC VSL*
049583,000190: 23,2633 00001 0 # DELTAQ/A
049584,000191: 23,2634 20201 0,1
049585,000192: 23,2635 12707 STORE DELTAX +18D,2
049586,000193: 23,2636 77304 TIX,2 VLOAD
049587,000194: 23,2637 46630 INCOR3
049588,000195: 23,2640 02673 DELTAX +6
049589,000196: 23,2641 77732 VSL3
049590,000197: 23,2642 02673 STORE DELTAX +6
049591,000198: 23,2643 77650 GOTO
049592,000199: 23,2644 02772 EGRESS
049593,000200:
|
|
Page 1148 |
049595,000202: # INCORP2 -INCORPORATES THE COMPUTED STATE VECTOR DEVIATIONS INTO THE
049596,000203: # ESTIMATED STATE VECTOR. THE STATE VECTOR UPDATED MAY BE FOR EITHER THE
049597,000204: # LEM OR THE CSM. DETERMINED BY FLAG VEHUPFLG. (ZERO = LEM) (1 = CSM)
049598,000205:
049599,000206: # INPUT
049600,000207: # PERMANENT STATE VECTOR FOR EITHER THE LEM OR CSM
049601,000208: # VEHUPFLG = UPDATE VEHICLE 0=LEM 1=CSM
049602,000209: # W = ERROR TRANSITION MATRIX
049603,000210: # DELTAX = COMPUTED STATE VECTOR DEVIATIONS
049604,000211: # DMENFLG = SIZE OF W MATRIX (ZERO=6X6) (1=9X9)
049605,000212: # GAMMA = SCALAR FOR INCORPORATION
049606,000213: # ZI = VECTOR USED IN INCORPORATION
049607,000214: # OMEGA = WEIGHTING VECTOR
049608,000215:
049609,000216: # OUTPUT
049610,000217: # UPDATED PERMANENT STATE VECTOR
049611,000218:
049612,000219: # CALLING SEQUENCE
049613,000220: # L CALL INCORP2
049614,000221:
049615,000222: # NORMAL EXIT
049616,000223: # L+1 OF CALLING SEQUENCE
049617,000224:
049618,000225:
049619,000226: 23,2000 SETLOC MEASINC1
049620,000227: 23,2000 BANK
049621,000228:
049622,000229: 23,2645 COUNT* $$/INCOR
049623,000230:
049624,000231: 23,2645 45020 INCORP2 STQ CALL
049625,000232: 23,2646 02772 EGRESS
049626,000233: 23,2647 27412 INTSTALL
049627,000234: 23,2650 74375 VLOAD VXSC # CALC. GAMMA * OMEGA1,2,3
049628,000235: 23,2651 03501 OMEGA
049629,000236: 23,2652 03476 GAMMA
049630,000237: 23,2653 26713 STOVL OMEGAM1
049631,000238: 23,2654 03507 OMEGA +6
049632,000239: 23,2655 77761 VXSC
049633,000240: 23,2656 03476 GAMMA
049634,000241: 23,2657 26721 STOVL OMEGAM2
049635,000242: 23,2660 03515 OMEGA +12D
049636,000243: 23,2661 77761 VXSC
049637,000244: 23,2662 03476 GAMMA
049638,000245: 23,2663 02727 STORE OMEGAM3
049639,000246: 23,2664 77776 EXIT
049640,000247: 23,2665 33146 CAF 54DD # INITIAL IX 1 SETTING FOR W MATRIX
049641,000248: 23,2666 55320 TS WIXA
049642,000249: 23,2667 55321 TS WIXB
049643,000250: 23,2670 34755 CAF ZERO
049644,000251: 23,2671 55322 TS ZIXA # INITIAL IX 2 SETTING FOR Z COMPONENT
049645,000252: 23,2672 55323 TS ZIXB
049646,000253: 23,2673 05353 FAZA TC PHASCHNG
|
|
Page 1149 |
049648,000255: 23,2674 04022 OCT 04022
049649,000256: 23,2675 05504 TC UPFLAG
049650,000257: 23,2676 00236 ADRES REINTFLG
049651,000258: 23,2677 31321 FAZA1 CA WIXB # START FIRST PHASE OF INCORP2
049652,000259: 23,2700 55320 TS WIXA # TO UPDATE 6 OR 9 DIM. W MATRIX IN TEMP
049653,000260: 23,2701 31323 CA ZIXB
049654,000261: 23,2702 55322 TS ZIXA
049655,000262: 23,2703 06036 TC INTPRET
049656,000263: 23,2704 73150 LXA,1 LXA,2
049657,000264: 23,2705 01320 WIXA
049658,000265: 23,2706 01322 ZIXA
049659,000266: 23,2707 70731 SSP DLOAD*
049660,000267: 23,2710 00051 S1
049661,000268: 23,2711 00006 6
049662,000269: 23,2712 75134 ZI,2
049663,000270: 23,2713 60276 DCOMP NORM # CALC UPPER 3X9 PARTITION OF W MATRIX
049664,000271: 23,2714 00052 S2
049665,000272: 23,2715 65161 VXSC XCHX,2
049666,000273: 23,2716 02713 OMEGAM1
049667,000274: 23,2717 00051 S2
049668,000275: 23,2720 57144 LXC,2 XAD,2
049669,000276: 23,2721 00047 X2
049670,000277: 23,2722 02103 NORMGAM
049671,000278: 23,2723 65057 VSL* XCHX,2
049672,000279: 23,2724 57576 0,2
049673,000280: 23,2725 00051 S2
049674,000281: 23,2726 77653 VAD*
049675,000282: 23,2727 02467 W +54D,1
049676,000283: 23,2730 02735 STORE HOLDW
049677,000284: 23,2731 57543 DLOAD* DCOMP # CALC MIDDLE 3X9 PARTITION OF W MATRIX
049678,000285: 23,2732 75134 ZI,2
049679,000286: 23,2733 74301 NORM VXSC
049680,000287: 23,2734 00052 S2
049681,000288: 23,2735 02721 OMEGAM2
049682,000289: 23,2736 71124 XCHX,2 LXC,2
049683,000290: 23,2737 00051 S2
049684,000291: 23,2740 00047 X2
049685,000292: 23,2741 53674 XAD,2 VSL*
049686,000293: 23,2742 02103 NORMGAM
049687,000294: 23,2743 57576 0,2
049688,000295: 23,2744 52724 XCHX,2 VAD*
049689,000296: 23,2745 00051 S2
049690,000297: 23,2746 02555 W +108D,1
049691,000298: 23,2747 02743 STORE HOLDW +6
049692,000299: 23,2750 77614 BOFF
049693,000300: 23,2751 02746 DMENFLG # BRANCH IF 6 DIMENSIONAL
049694,000301: 23,2752 46772 FAZB
049695,000302: 23,2753 57543 DLOAD* DCOMP # CALC LOWER 3X9 PARTITION OF W MATRIX
049696,000303: 23,2754 75134 ZI,2
049697,000304: 23,2755 74301 NORM VXSC
|
|
Page 1150 |
049699,000306: 23,2756 00052 S2
049700,000307: 23,2757 02727 OMEGAM3
049701,000308: 23,2760 71124 XCHX,2 LXC,2
049702,000309: 23,2761 00051 S2
049703,000310: 23,2762 00047 X2
049704,000311: 23,2763 53674 XAD,2 VSL*
049705,000312: 23,2764 02103 NORMGAM
049706,000313: 23,2765 57576 0,2
049707,000314: 23,2766 52724 XCHX,2 VAD*
049708,000315: 23,2767 00051 S2
049709,000316: 23,2770 02643 W +162D,1
049710,000317: 23,2771 02751 STORE HOLDW +12D
049711,000318: 23,2772 77624 FAZB CALL
049712,000319: 23,2773 11165 GRP2PC
049713,000320: 23,2774 77776 EXIT
049714,000321: 23,2775 31320 FAZB1 CA WIXA # START 2ND PHASE OF INCORP2 TO TRANSFER
049715,000322: 23,2776 63147 AD 6DD # TEMP REG TO PERM W MATRIX
049716,000323: 23,2777 55321 TS WIXB
049717,000324: 23,3000 31322 CA ZIXA
049718,000325: 23,3001 67745 AD MINUS2
049719,000326: 23,3002 55323 TS ZIXB
049720,000327: 23,3003 06036 TC INTPRET
049721,000328: 23,3004 66350 LXA,1 SSP
049722,000329: 23,3005 01320 WIXA
049723,000330: 23,3006 00051 S1
049724,000331: 23,3007 00006 6
049725,000332: 23,3010 77775 VLOAD
049726,000333: 23,3011 02735 HOLDW
049727,000334: 23,3012 06467 STORE W +54D,1
049728,000335: 23,3013 77775 VLOAD
049729,000336: 23,3014 02743 HOLDW +6
049730,000337: 23,3015 06555 STORE W +108D,1
049731,000338: 23,3016 77214 BOFF VLOAD
049732,000339: 23,3017 02746 DMENFLG
049733,000340: 23,3020 47030 FAZB5
049734,000341: 23,3021 02751 HOLDW +12D
049735,000342: 23,3022 06643 STORE W +162D,1
049736,000343: 23,3023 52100 FAZB2 TIX,1 GOTO
049737,000344: 23,3024 47026 +2
049738,000345: 23,3025 47036 FAZC # DONE WITH W MATRIX. UPDATE STATE VECTOR
049739,000346: 23,3026 77634 RTB
049740,000347: 23,3027 46673 FAZA
049741,000348: 23,3030 43335 FAZB5 SLOAD DAD
049742,000349: 23,3031 01324 ZIXB
049743,000350: 23,3032 07151 12DD
049744,000351: 23,3033 52030 BHIZ GOTO
049745,000352: 23,3034 47036 FAZC
049746,000353: 23,3035 47023 FAZB2
049747,000354: 23,3036 77624 FAZC CALL
049748,000355: 23,3037 11165 GRP2PC
|
|
Page 1151 |
049750,000357: 23,3040 53375 VLOAD VAD # START 3RD PHASE OF INCORP2
049751,000358: 23,3041 01701 X789 # 7TH,8TH,9TH,COMPONENT OF STATE VECTOR
049752,000359: 23,3042 02701 DELTAX +12D # INCORPORATION FOR X789
049753,000360: 23,3043 03470 STORE TX789
049754,000361: 23,3044 47014 BON RTB
049755,000362: 23,3045 00707 VEHUPFLG
049756,000363: 23,3046 47136 DOCSM
049757,000364: 23,3047 26770 MOVEPLEM
049758,000365: 23,3050 77004 FAZAB BOVB AXT,2
049759,000366: 23,3051 57725 TCDANZIG
049760,000367: 23,3052 00000 0
049761,000368: 23,3053 77014 BOFF AXT,2
049762,000369: 23,3054 04344 MOONTHIS
049763,000370: 23,3055 47057 +2
049764,000371: 23,3056 00002 2
049765,000372: 23,3057 53775 VLOAD VSR*
049766,000373: 23,3060 02665 DELTAX # B27 IF MOON ORBIT, B29 IF EARTH
049767,000374: 23,3061 57205 0 -7,2
049768,000375: 23,3062 40055 VAD BOV
049769,000376: 23,3063 01521 TDELTAV
049770,000377: 23,3064 47076 FAZAB1
049771,000378: 23,3065 25521 STOVL TDELTAV
049772,000379: 23,3066 02673 DELTAX +6 # B5 IF MOON ORBIT, B7 IF EARTH
049773,000380: 23,3067 53257 VSR* VAD
049774,000381: 23,3070 57202 0 -4,2
049775,000382: 23,3071 01527 TNUV
049776,000383: 23,3072 77600 BOV
049777,000384: 23,3073 47102 FAZAB2
049778,000385: 23,3074 35527 STCALL TNUV
049779,000386: 23,3075 47111 FAZAB3
049780,000387: 23,3076 53375 FAZAB1 VLOAD VAD
049781,000388: 23,3077 01535 RCV
049782,000389: 23,3100 02665 DELTAX
049783,000390: 23,3101 01535 STORE RCV
049784,000391: 23,3102 53375 FAZAB2 VLOAD VAD
049785,000392: 23,3103 01543 VCV
049786,000393: 23,3104 02673 DELTAX +6
049787,000394: 23,3105 01543 STORE VCV
049788,000395: 23,3106 45134 SXA,2 CALL
049789,000396: 23,3107 02030 PBODY
049790,000397: 23,3110 23345 RECTIFY
049791,000398: 23,3111 77624 FAZAB3 CALL
049792,000399: 23,3112 11165 GRP2PC
049793,000400: 23,3113 47014 BON RTB
049794,000401: 23,3114 00707 VEHUPFLG
049795,000402: 23,3115 47141 DOCSM1
049796,000403: 23,3116 26747 MOVEALEM
049797,000404: 23,3117 77624 CALL
049798,000405: 23,3120 26070 SVDWN2 # STORE DOWNLINK STATE VECTOR
049799,000406: 23,3121 77624 FAZAB4 CALL
|
|
Page 1152 |
049801,000408: 23,3122 11165 GRP2PC # PHASE CHANGE
049802,000409: 23,3123 77214 BOFF VLOAD
049803,000410: 23,3124 02746 DMENFLG
049804,000411: 23,3125 47130 FAZAB5 # 6 DIMENSIONAL
049805,000412: 23,3126 03470 TX789 # 9 DIMENSIONAL
049806,000413: 23,3127 01701 STORE X789
049807,000414: 23,3130 66150 FAZAB5 LXA,1 SXA,1
049808,000415: 23,3131 02772 EGRESS
049809,000416: 23,3132 00052 QPRET
049810,000417: 23,3133 77776 EXIT
049811,000418: 23,3134 04635 TC POSTJUMP # EXIT
049812,000419: 23,3135 27427 CADR INTWAKE
049813,000420: 23,3136 52034 DOCSM RTB GOTO
049814,000421: 23,3137 26723 MOVEPCSM
049815,000422: 23,3140 47050 FAZAB
049816,000423: 23,3141 45034 DOCSM1 RTB CALL
049817,000424: 23,3142 26674 MOVEACSM
049818,000425: 23,3143 26114 SVDWN1 # STORE DOWNLINK STATE VECTOR
049819,000426: 23,3144 77650 GOTO
049820,000427: 23,3145 47121 FAZAB4
049821,000428: 23,3146 23,2423 ZEROO = ZEROVECS
049822,000429: 23,3146 00066 54DD DEC 54 B-14
049823,000430: 23,3147 77771 6DD DEC -6 B-14
049824,000431: 23,3150 00014 12DD DEC 12 B-14
049825,000432:
049826,000433: 22,2000 SETLOC RENDEZ
049827,000434: 22,2000 BANK
049828,000435: 22,3647 COUNT* $$/INCOR
049829,000436:
049830,000437: 22,3647 51575 NEWZCOMP VLOAD ABVAL
049831,000438: 22,3650 02643 ZI
049832,000439: 22,3651 24045 STOVL NORMZI
049833,000440: 22,3652 02651 ZI +6
049834,000441: 22,3653 41446 ABVAL PUSH
049835,000442: 22,3654 50025 DSU BMN
049836,000443: 22,3655 00045 NORMZI
049837,000444: 22,3656 45661 +3
049838,000445: 22,3657 45545 DLOAD STADR
049839,000446: 22,3660 77732 STORE NORMZI
049840,000447: 22,3661 51575 VLOAD ABVAL
049841,000448: 22,3662 02657 ZI +12D
049842,000449: 22,3663 45206 PUSH DSU
049843,000450: 22,3664 00045 NORMZI
049844,000451: 22,3665 71240 BMN DLOAD
049845,000452: 22,3666 45671 +3
049846,000453: 22,3667 77626 STADR
049847,000454: 22,3670 77732 STORE NORMZI # LARGEST ABVAL
049848,000455: 22,3671 66145 DLOAD SXA,1
049849,000456: 22,3672 00045 NORMZI
049850,000457: 22,3673 00044 NORMZI # SAVE X1
049851,000458: 22,3674 62101 NORM INCR,1
|
|
Page 1153 |
049853,000460: 22,3675 00047 X1
049854,000461: 22,3676 00002 DEC 2 B-14
049855,000462: 22,3677 53775 VLOAD VSL*
049856,000463: 22,3700 02643 ZI
049857,000464: 22,3701 20201 0,1
049858,000465: 22,3702 26643 STOVL ZI
049859,000466: 22,3703 02651 ZI +6
049860,000467: 22,3704 77657 VSL*
049861,000468: 22,3705 20201 0,1
049862,000469: 22,3706 26651 STOVL ZI +6
049863,000470: 22,3707 02657 ZI +12D
049864,000471: 22,3710 66057 VSL* SXA,1
049865,000472: 22,3711 20201 0,1
049866,000473: 22,3712 00045 NORMZI +1 # SAVE SHIFT
049867,000474: 22,3713 02657 STORE ZI +12D
049868,000475: 22,3714 54150 LXA,1 XSU,1
049869,000476: 22,3715 02103 NORMGAM
049870,000477: 22,3716 00045 NORMZI +1
049871,000478: 22,3717 77660 XSU,1
049872,000479: 22,3720 00045 NORMZI +1
049873,000480: 22,3721 70130 SXA,1 LXC,1
049874,000481: 22,3722 02103 NORMGAM
049875,000482: 22,3723 00045 NORMZI +1
049876,000483: 22,3724 40270 XAD,1 SETPD
049877,000484: 22,3725 00044 NORMZI
049878,000485: 22,3726 00003 2D
049879,000486: 22,3727 77650 GOTO
049880,000487: 22,3730 46571 INCOR2 -3
049881,000488: 22,3731 NORMZI = 36D
049882,000489:
049883,000490:
End of include-file MEASUREMENT_INCORPORATION.agc. Parent file is MAIN.agc