Notations on the program listing read, in part:
GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY BY NASA 2021112-161 17:11 MAR. 19,1971Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files derive from a printout of Luminary 210 (Apollo 15-17
Lunar Module guidance computer program), from the personal library of
original AGC developer Don Eyles, digitally photographed at archive.org,
financially sponsored by Jim Lawton, and transcribed to source code by a
team of volunteers. This colorized, syntax-highlighted form was created
by assembling that transcribed source code. Note that the full page images
are available on the
Virtual AGC project page at archive.org, while reduced-size images
are presented at the VirtualAGC project website. Report or fix any
transcription errors at
the Virtual AGC project code repository. Notations on the program listing read, in part: GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY BY NASA 2021112-161 17:11 MAR. 19,1971Note that the date is the date of the printout, not the date of the program revision. |
049241,000002: ## Copyright: Public domain.
049242,000003: ## Filename: MEASUREMENT_INCORPORATION.agc
049243,000004: ## Purpose: A section of Luminary revision 210.
049244,000005: ## It is part of the source code for the Lunar Module's (LM)
049245,000006: ## Apollo Guidance Computer (AGC) for Apollo 15-17.
049246,000007: ## This file is intended to be a faithful transcription, except
049247,000008: ## that the code format has been changed to conform to the
049248,000009: ## requirements of the yaYUL assembler rather than the
049249,000010: ## original YUL assembler.
049250,000011: ## Reference: pp. 1147-1156
049251,000012: ## Assembler: yaYUL
049252,000013: ## Contact: Ron Burkey <info@sandroid.org>.
049253,000014: ## Website: www.ibiblio.org/apollo/index.html
049254,000015: ## Mod history: 2016-11-17 JL Created from Luminary131 version.
049255,000016: ## 2016-12-09 JS Compared to Luminary210 images. Updated where needed.
049256,000017: ## 2016-12-26 RSB Comment-text proofed using ProoferComments
049257,000018: ## and corrected errors found.
049258,000019: ## 2021-05-30 ABS ZEROD -> ZEROO
049259,000020:
|
|
Page 1147 |
049261,000022: # INCORP1--PERFORMS THE SIX DIMENSIONAL STATE VECTOR DEVIATION FOR POSITI
049262,000023: # ON AND VELOCITY OR THE NINE DIMENSIONAL DEVIATION OF POSITION,VELOCITY,A
049263,000024: # ND RADAR OR LANDMARK BIAS.THE OUTPUT OF THE BVECTOR ROUTINE ALONG WITH T
049264,000025: # HE ERROR TRANSITION MATRIX(W) ARE USED AS INPUT TO THE ROUTINE.THE DEVIA
049265,000026: # TION IS OBTAINED BY COMPUTING AN ESTIMATED TRACKING MEASUREMENT FROM THE
049266,000027: # CURRENT STATE VECTOR AND COMPARING IT WITH AN ACTUAL TRACKING MEASUREMEN
049267,000028: # T AND APPLYING A STATISTICAL WEIGHTING VECTOR.
049268,000029: # INPUT
049269,000030: # DMENFLG = 0 6DIMENSIONAL BVECTOR 1= 9DIMENSIONAL
049270,000031: # W = ERROR TRANSITION MATRIX 6X6 OR 9X9
049271,000032: # VARIANCE = VARIANCE (SCALAR)
049272,000033: # DELTAQ = MEASURED DEVIATION (SCALAR)
049273,000034: # BVECTOR = 6 OR 9 DIMENSIONAL BVECTOR
049274,000035:
049275,000036: # OUTPUT
049276,000037: # DELTAX = STATE VECTOR DEVIATIONS 6 OR 9 DIMENSIONAL
049277,000038: # ZI = VECTOR USED FOR THE INCORPORATION 6 OR 9 DIMENSIONAL
049278,000039: # GAMMA = SCALAR
049279,000040: # OMEGA = OMEGA WEIGHTING VECTOR 6 OR 9 DIMENTIONAL
049280,000041: # CALLING SEQUENCE
049281,000042: # L CALL INCORP1
049282,000043:
049283,000044: # NORMAL EXIT
049284,000045: # L+1 OF CALLING SEQUENCE
049285,000046:
049286,000047: 37,3654 BANK 37
049287,000048: 23,2000 SETLOC MEASINC
049288,000049: 23,2000 BANK
049289,000050:
049290,000051: 23,2514 COUNT* $$/INCOR
049291,000052:
049292,000053: 23,2514 E5,1400 EBANK= W
049293,000054:
049294,000055: 23,2514 77620 INCORP1 STQ
049295,000056: 23,2515 02767 EGRESS
049296,000057: 23,2516 66370 AXT,1 SSP
049297,000058: 23,2517 00066 54D
049298,000059: 23,2520 00051 S1
049299,000060: 23,2521 00022 18D # IX1 = 54 S1= 18
049300,000061: 23,2522 66374 AXT,2 SSP
049301,000062: 23,2523 00022 18D
049302,000063: 23,2524 00052 S2
049303,000064: 23,2525 00006 6 # IX2 = 18 S2=6
049304,000065: 23,2526 63775 Z123 VLOAD MXV*
049305,000066: 23,2527 03525 BVECTOR # BVECTOR (0)
049306,000067: 23,2530 02467 W +54D,1
049307,000068: 23,2531 12665 STORE ZI +18D,2
049308,000069: 23,2532 77775 VLOAD
049309,000070: 23,2533 03533 BVECTOR +6 # BVECTOR (1)
049310,000071:
|
|
Page 1148 |
049312,000073: 23,2534 52717 MXV* VAD*
049313,000074: 23,2535 02555 W +108D,1
049314,000075: 23,2536 75112 ZI +18D,2
049315,000076: 23,2537 12665 STORE ZI +18D,2
049316,000077: 23,2540 77775 VLOAD
049317,000078: 23,2541 03541 BVECTOR +12D # BVECTOR (2)
049318,000079: 23,2542 52717 MXV* VAD*
049319,000080: 23,2543 02643 W +162D,1
049320,000081: 23,2544 75112 ZI +18D,2 # B(0)*W+B(1)*(W+54)+B(2)*(W+108)FIRST PAS
049321,000082: 23,2545 12665 STORE ZI +18D,2 # ZI THEN Z2 THEN Z3
049322,000083: 23,2546 77700 TIX,1
049323,000084: 23,2547 46550 INCOR1
049324,000085: 23,2550 43104 INCOR1 TIX,2 BON
049325,000086: 23,2551 46526 Z123 # LOOP FOR Z1,Z2,Z3
049326,000087: 23,2552 02706 DMENFLG
049327,000088: 23,2553 46557 INCOR1A
049328,000089: 23,2554 77775 VLOAD
049329,000090: 23,2555 06505 ZEROVECS
049330,000091: 23,2556 02657 STORE ZI +12D
049331,000092: 23,2557 77201 INCOR1A SETPD VLOAD
049332,000093: 23,2560 00001 0
049333,000094: 23,2561 02643 ZI
049334,000095: 23,2562 47036 VSQ RTB
049335,000096: 23,2563 21643 TPMODE
049336,000097: 23,2564 47515 PDVL VSQ
049337,000098: 23,2565 02651 ZI +6
049338,000099: 23,2566 76234 RTB TAD
049339,000100: 23,2567 21643 TPMODE
049340,000101: 23,2570 47515 PDVL VSQ
049341,000102: 23,2571 02657 ZI +12D
049342,000103: 23,2572 76234 RTB TAD
049343,000104: 23,2573 21643 TPMODE
049344,000105: 23,2574 77171 TAD AXT,2
049345,000106: 23,2575 02707 VARIANCE
049346,000107: 23,2576 00000 0
049347,000108: 23,2577 02665 STORE TRIPA # ZI*2 + Z2*2 + Z3*2 + VARIANCE
049348,000109: 23,2600 40151 TLOAD BOV
049349,000110: 23,2601 02707 VARIANCE # CLEAR OVFIND
049350,000111: 23,2602 46603 +1
049351,000112: 23,2603 02670 STORE TEMPVAR # TEMP STORAGE FOR VARIANCE
049352,000113: 23,2604 77654 BZE
049353,000114: 23,2605 46614 INCOR1C
049354,000115: 23,2606 40112 INCOR1B SL2 BOV
049355,000116: 23,2607 46614 INCOR1C
049356,000117: 23,2610 02670 STORE TEMPVAR
049357,000118: 23,2611 52114 INCR,2 GOTO
049358,000119: 23,2612 00001 DEC 1 B-14
049359,000120: 23,2613 46606 INCOR1B
049360,000121: 23,2614 61551 INCOR1C TLOAD ROUND
049361,000122: 23,2615 02665 TRIPA
049362,000123:
|
|
Page 1149 |
049364,000125: 23,2616 75405 DMP SQRT
049365,000126: 23,2617 02670 TEMPVAR
049366,000127: 23,2620 76257 SL* TAD
049367,000128: 23,2621 57576 0,2
049368,000129: 23,2622 02665 TRIPA
049369,000130: 23,2623 63101 NORM INCR,2
049370,000131: 23,2624 00050 X2
049371,000132: 23,2625 77775 DEC -2 B-14
049372,000133: 23,2626 77134 SXA,2 AXT,2
049373,000134: 23,2627 02102 NORMGAM # NORMALIZATION COUNT -2 FOR GAMMA
049374,000135: 23,2630 00242 162D
049375,000136: 23,2631 40265 BDDV SETPD
049376,000137: 23,2632 06475 DP1/4TH
049377,000138: 23,2633 00001 0
049378,000139: 23,2634 03500 STORE GAMMA
049379,000140: 23,2635 60351 TLOAD NORM
049380,000141: 23,2636 02665 TRIPA
049381,000142: 23,2637 00047 X1
049382,000143: 23,2640 65345 DLOAD PDDL # PD 0-1 = NORM (A)
049383,000144: 23,2641 00155 MPAC
049384,000145: 23,2642 03547 DELTAQ
049385,000146: 23,2643 77701 NORM
049386,000147: 23,2644 00051 S1
049387,000148: 23,2645 70460 XSU,1 SR1
049388,000149: 23,2646 00050 S1
049389,000150: 23,2647 41471 DDV PUSH # PD 0-1 = DELTAQ/A
049390,000151: 23,2650 77650 GOTO
049391,000152: 23,2651 45712 NEWZCOMP
049392,000153: 23,2652 77731 -3 SSP
049393,000154: 23,2653 00052 S2
049394,000155: 23,2654 00066 54D
049395,000156: 23,2655 60775 INCOR2 VLOAD VXM* # COMPUTE OMEGA1,2,3
049396,000157: 23,2656 02643 ZI
049397,000158: 23,2657 75134 W +162D,2
049398,000159: 23,2660 77206 PUSH VLOAD
049399,000160: 23,2661 02651 ZI +6
049400,000161: 23,2662 53303 VXM* VAD
049401,000162: 23,2663 75112 W +180D,2
049402,000163: 23,2664 77206 PUSH VLOAD
049403,000164: 23,2665 02657 ZI +12D
049404,000165: 23,2666 53303 VXM* VAD
049405,000166: 23,2667 75070 W +198D,2
049406,000167: 23,2670 61006 PUSH TIX,2 # PD 2-7=OMEGA1,8-13=OMEGA2,14-19=OMEGA3
049407,000168: 23,2671 46655 INCOR2
049408,000169: 23,2672 45575 VLOAD STADR
049409,000170: 23,2673 74260 STORE OMEGA +12D
049410,000171: 23,2674 45575 VLOAD STADR
049411,000172: 23,2675 74266 STORE OMEGA +6
049412,000173: 23,2676 45575 VLOAD STADR
049413,000174: 23,2677 74274 STORE OMEGA
049414,000175:
|
|
Page 1150 |
049416,000177: 23,2700 77214 BON VLOAD
049417,000178: 23,2701 02706 DMENFLG
049418,000179: 23,2702 46705 INCOR2AB
049419,000180: 23,2703 06505 ZEROVECS
049420,000181: 23,2704 03517 STORE OMEGA +12D
049421,000182: 23,2705 66374 INCOR2AB AXT,2 SSP
049422,000183: 23,2706 00022 18D
049423,000184: 23,2707 00052 S2
049424,000185: 23,2710 00006 6
049425,000186: 23,2711 77773 INCOR3 VLOAD*
049426,000187: 23,2712 74252 OMEGA +18D,2
049427,000188: 23,2713 53761 VXSC VSL*
049428,000189: 23,2714 00001 0 # DELTAQ/A
049429,000190: 23,2715 20201 0,1
049430,000191: 23,2716 12707 STORE DELTAX +18D,2
049431,000192: 23,2717 77304 TIX,2 VLOAD
049432,000193: 23,2720 46711 INCOR3
049433,000194: 23,2721 02673 DELTAX +6
049434,000195: 23,2722 77732 VSL3
049435,000196: 23,2723 02673 STORE DELTAX +6
049436,000197: 23,2724 77650 GOTO
049437,000198: 23,2725 02767 EGRESS
049438,000199:
|
|
Page 1151 |
049440,000201: # INCORP2 -INCORPORATES THE COMPUTED STATE VECTOR DEVIATIONS INTO THE
049441,000202: # ESTIMATED STATE VECTOR. THE STATE VECTOR UPDATED MAY BE FOR EITHER THE
049442,000203: # LEM OR THE CSM.DETERMINED BY FLAG VEHUPFLG.(ZERO = LEM) (1 = CSM)
049443,000204:
049444,000205: # INPUT
049445,000206: # PERMANENT STATE VECTOR FOR EITHER THE LEM OR CSM
049446,000207: # VEHUPFLG = UPDATE VEHICLE 0=LEM 1=CSM
049447,000208: # W = ERROR TRANSITION MATRIX
049448,000209: # DELTAX = COMPUTED STATE VECTOR DEVIATIONS
049449,000210: # DMENFLG = SIZE OF W MATRIX (ZERO =6X6) (1=9X9)
049450,000211: # GAMMA = SCALAR FOR INCORPORATION
049451,000212: # ZI = VECTOR USED IN INCORPORATION
049452,000213: # OMEGA = WEIGHTING VECTOR
049453,000214:
049454,000215: # OUTPUT
049455,000216: # UPDATED PERMANENT STATE VECTOR
049456,000217:
049457,000218: # CALLING SEQUENCE
049458,000219: # L CALL INCORP2
049459,000220:
049460,000221: # NORMAL EXIT
049461,000222: # L+1 OF CALLING SEQUENCE
049462,000223:
049463,000224:
049464,000225: 23,2000 SETLOC MEASINC1
049465,000226: 23,2000 BANK
049466,000227:
049467,000228: 23,2726 COUNT* $$/INCOR
049468,000229:
049469,000230: 23,2726 45020 INCORP2 STQ CALL
049470,000231: 23,2727 02767 EGRESS
049471,000232: 23,2730 27447 INTSTALL
049472,000233: 23,2731 74375 VLOAD VXSC # CALC. GAMMA * OMEGA1,2,3
049473,000234: 23,2732 03503 OMEGA
049474,000235: 23,2733 03500 GAMMA
049475,000236: 23,2734 26713 STOVL OMEGAM1
049476,000237: 23,2735 03511 OMEGA +6
049477,000238: 23,2736 77761 VXSC
049478,000239: 23,2737 03500 GAMMA
049479,000240: 23,2740 26721 STOVL OMEGAM2
049480,000241: 23,2741 03517 OMEGA +12D
049481,000242: 23,2742 77761 VXSC
049482,000243: 23,2743 03500 GAMMA
049483,000244: 23,2744 02727 STORE OMEGAM3
049484,000245: 23,2745 77776 EXIT
049485,000246: 23,2746 33227 CAF 54DD # INITIAL IX 1 SETTING FOR W MATRIX
049486,000247: 23,2747 55315 TS WIXA
049487,000248: 23,2750 55316 TS WIXB
049488,000249: 23,2751 34746 CAF ZERO
049489,000250: 23,2752 55317 TS ZIXA # INITIAL IX 2 SETTING FOR Z COMPONENT
049490,000251: 23,2753 55320 TS ZIXB
049491,000252: 23,2754 05355 FAZA TC PHASCHNG
049492,000253:
|
|
Page 1152 |
049494,000255: 23,2755 04022 OCT 04022
049495,000256: 23,2756 05506 TC UPFLAG
049496,000257: 23,2757 00236 ADRES REINTFLG
049497,000258: 23,2760 31316 FAZA1 CA WIXB # START FIRST PHASE OF INCORP2
049498,000259: 23,2761 55315 TS WIXA # TO UPDATE 6 OR 9 DIM. W MATRIX IN TEMP
049499,000260: 23,2762 31320 CA ZIXB
049500,000261: 23,2763 55317 TS ZIXA
049501,000262: 23,2764 06060 TC INTPRET
049502,000263: 23,2765 73150 LXA,1 LXA,2
049503,000264: 23,2766 01315 WIXA
049504,000265: 23,2767 01317 ZIXA
049505,000266: 23,2770 70731 SSP DLOAD*
049506,000267: 23,2771 00051 S1
049507,000268: 23,2772 00006 6
049508,000269: 23,2773 75134 ZI,2
049509,000270: 23,2774 60276 DCOMP NORM # CALC UPPER 3X9 PARTITION OF W MATRIX
049510,000271: 23,2775 00052 S2
049511,000272: 23,2776 65161 VXSC XCHX,2
049512,000273: 23,2777 02713 OMEGAM1
049513,000274: 23,3000 00051 S2
049514,000275: 23,3001 57144 LXC,2 XAD,2
049515,000276: 23,3002 00047 X2
049516,000277: 23,3003 02102 NORMGAM
049517,000278: 23,3004 65057 VSL* XCHX,2
049518,000279: 23,3005 57576 0,2
049519,000280: 23,3006 00051 S2
049520,000281: 23,3007 77653 VAD*
049521,000282: 23,3010 02467 W +54D,1
049522,000283: 23,3011 02735 STORE HOLDW
049523,000284: 23,3012 57543 DLOAD* DCOMP # CALC MIDDLE 3X9 PARTITION OF W MATRIX
049524,000285: 23,3013 75134 ZI,2
049525,000286: 23,3014 74301 NORM VXSC
049526,000287: 23,3015 00052 S2
049527,000288: 23,3016 02721 OMEGAM2
049528,000289: 23,3017 71124 XCHX,2 LXC,2
049529,000290: 23,3020 00051 S2
049530,000291: 23,3021 00047 X2
049531,000292: 23,3022 53674 XAD,2 VSL*
049532,000293: 23,3023 02102 NORMGAM
049533,000294: 23,3024 57576 0,2
049534,000295: 23,3025 52724 XCHX,2 VAD*
049535,000296: 23,3026 00051 S2
049536,000297: 23,3027 02555 W +108D,1
049537,000298: 23,3030 02743 STORE HOLDW +6
049538,000299: 23,3031 77614 BOFF
049539,000300: 23,3032 02746 DMENFLG # BRANCH IF 6 DIMENSIONAL
049540,000301: 23,3033 47053 FAZB
049541,000302: 23,3034 57543 DLOAD* DCOMP # CALC LOWER 3X9 PARTITION OF W MATRIX
049542,000303: 23,3035 75134 ZI,2
049543,000304: 23,3036 74301 NORM VXSC
049544,000305:
|
|
Page 1153 |
049546,000307: 23,3037 00052 S2
049547,000308: 23,3040 02727 OMEGAM3
049548,000309: 23,3041 71124 XCHX,2 LXC,2
049549,000310: 23,3042 00051 S2
049550,000311: 23,3043 00047 X2
049551,000312: 23,3044 53674 XAD,2 VSL*
049552,000313: 23,3045 02102 NORMGAM
049553,000314: 23,3046 57576 0,2
049554,000315: 23,3047 52724 XCHX,2 VAD*
049555,000316: 23,3050 00051 S2
049556,000317: 23,3051 02643 W +162D,1
049557,000318: 23,3052 02751 STORE HOLDW +12D
049558,000319: 23,3053 77624 FAZB CALL
049559,000320: 23,3054 51770 GRP2PC
049560,000321: 23,3055 77776 EXIT
049561,000322: 23,3056 31315 FAZB1 CA WIXA # START 2ND PHASE OF INCORP2 TO TRANSFER
049562,000323: 23,3057 63230 AD 6DD # TEMP REG TO PERM W MATRIX
049563,000324: 23,3060 55316 TS WIXB
049564,000325: 23,3061 31317 CA ZIXA
049565,000326: 23,3062 67767 AD MINUS2
049566,000327: 23,3063 55320 TS ZIXB
049567,000328: 23,3064 06060 TC INTPRET
049568,000329: 23,3065 66350 LXA,1 SSP
049569,000330: 23,3066 01315 WIXA
049570,000331: 23,3067 00051 S1
049571,000332: 23,3070 00006 6
049572,000333: 23,3071 77775 VLOAD
049573,000334: 23,3072 02735 HOLDW
049574,000335: 23,3073 06467 STORE W +54D,1
049575,000336: 23,3074 77775 VLOAD
049576,000337: 23,3075 02743 HOLDW +6
049577,000338: 23,3076 06555 STORE W +108D,1
049578,000339: 23,3077 77214 BOFF VLOAD
049579,000340: 23,3100 02746 DMENFLG
049580,000341: 23,3101 47111 FAZB5
049581,000342: 23,3102 02751 HOLDW +12D
049582,000343: 23,3103 06643 STORE W +162D,1
049583,000344: 23,3104 52100 FAZB2 TIX,1 GOTO
049584,000345: 23,3105 47107 +2
049585,000346: 23,3106 47117 FAZC # DONE WITH W MATRIX. UPDATE STATE VECTOR
049586,000347: 23,3107 77634 RTB
049587,000348: 23,3110 46754 FAZA
049588,000349: 23,3111 43335 FAZB5 SLOAD DAD
049589,000350: 23,3112 01321 ZIXB
049590,000351: 23,3113 07232 12DD
049591,000352: 23,3114 52030 BHIZ GOTO
049592,000353: 23,3115 47117 FAZC
049593,000354: 23,3116 47104 FAZB2
049594,000355: 23,3117 77624 FAZC CALL
049595,000356: 23,3120 51770 GRP2PC
049596,000357:
|
|
Page 1154 |
049598,000359: 23,3121 53375 VLOAD VAD # START 3RD PHASE OF INCORP2
049599,000360: 23,3122 01701 X789 # 7TH,8TH,9TH,COMPONENT OF STATE VECTOR
049600,000361: 23,3123 02701 DELTAX +12D # INCORPORATION FOR X789
049601,000362: 23,3124 03472 STORE TX789
049602,000363: 23,3125 47014 BON RTB
049603,000364: 23,3126 00707 VEHUPFLG
049604,000365: 23,3127 47217 DOCSM
049605,000366: 23,3130 27026 MOVEPLEM
049606,000367: 23,3131 77004 FAZAB BOVB AXT,2
049607,000368: 23,3132 57756 TCDANZIG
049608,000369: 23,3133 00000 0
049609,000370: 23,3134 77014 BOFF AXT,2
049610,000371: 23,3135 04344 MOONTHIS
049611,000372: 23,3136 47140 +2
049612,000373: 23,3137 00002 2
049613,000374: 23,3140 53775 VLOAD VSR*
049614,000375: 23,3141 02665 DELTAX # B27 IF MOON ORBIT, B29 IF EARTH
049615,000376: 23,3142 57205 0 -7,2
049616,000377: 23,3143 40055 VAD BOV
049617,000378: 23,3144 01521 TDELTAV
049618,000379: 23,3145 47157 FAZAB1
049619,000380: 23,3146 25521 STOVL TDELTAV
049620,000381: 23,3147 02673 DELTAX +6 # B5 IF MOON ORBIT, B7 IF EARTH
049621,000382: 23,3150 53257 VSR* VAD
049622,000383: 23,3151 57202 0 -4,2
049623,000384: 23,3152 01527 TNUV
049624,000385: 23,3153 77600 BOV
049625,000386: 23,3154 47163 FAZAB2
049626,000387: 23,3155 35527 STCALL TNUV
049627,000388: 23,3156 47172 FAZAB3
049628,000389: 23,3157 53375 FAZAB1 VLOAD VAD
049629,000390: 23,3160 01535 RCV
049630,000391: 23,3161 02665 DELTAX
049631,000392: 23,3162 01535 STORE RCV
049632,000393: 23,3163 53375 FAZAB2 VLOAD VAD
049633,000394: 23,3164 01543 VCV
049634,000395: 23,3165 02673 DELTAX +6
049635,000396: 23,3166 01543 STORE VCV
049636,000397: 23,3167 45134 SXA,2 CALL
049637,000398: 23,3170 02030 PBODY
049638,000399: 23,3171 27720 RECTIFY
049639,000400: 23,3172 77624 FAZAB3 CALL
049640,000401: 23,3173 51770 GRP2PC
049641,000402: 23,3174 47014 BON RTB
049642,000403: 23,3175 00707 VEHUPFLG
049643,000404: 23,3176 47222 DOCSM1
049644,000405: 23,3177 27005 MOVEALEM
049645,000406: 23,3200 77624 CALL
049646,000407: 23,3201 26070 SVDWN2 # STORE DOWNLINK STATE VECTOR
049647,000408: 23,3202 77624 FAZAB4 CALL
049648,000409:
|
|
Page 1155 |
049650,000411: 23,3203 51770 GRP2PC # PHASE CHANGE
049651,000412: 23,3204 77214 BOFF VLOAD
049652,000413: 23,3205 02746 DMENFLG
049653,000414: 23,3206 47211 FAZAB5 # 6 DIMENSIONAL
049654,000415: 23,3207 03472 TX789 # 9 DIMENSIONAL
049655,000416: 23,3210 01701 STORE X789
049656,000417: 23,3211 66150 FAZAB5 LXA,1 SXA,1
049657,000418: 23,3212 02767 EGRESS
049658,000419: 23,3213 00052 QPRET
049659,000420: 23,3214 77776 EXIT
049660,000421: 23,3215 04626 TC POSTJUMP # EXIT
049661,000422: 23,3216 27460 CADR INTWAKE
049662,000423: 23,3217 52034 DOCSM RTB GOTO
049663,000424: 23,3220 26761 MOVEPCSM
049664,000425: 23,3221 47131 FAZAB
049665,000426: 23,3222 45034 DOCSM1 RTB CALL
049666,000427: 23,3223 26732 MOVEACSM
049667,000428: 23,3224 26114 SVDWN1 # STORE DOWNLINK STATE VECTOR
049668,000429: 23,3225 77650 GOTO
049669,000430: 23,3226 47202 FAZAB4
049670,000431: 23,3227 23,2504 ZEROO = ZEROVECS
049671,000432: 23,3227 00066 54DD DEC 54 B-14
049672,000433: 23,3230 77771 6DD DEC -6 B-14
049673,000434: 23,3231 00014 12DD DEC 12 B-14
049674,000435:
049675,000436: 22,2000 SETLOC RENDEZ
049676,000437: 22,2000 BANK
049677,000438: 22,3712 COUNT* $$/INCOR
049678,000439:
049679,000440: 22,3712 51575 NEWZCOMP VLOAD ABVAL
049680,000441: 22,3713 02643 ZI
049681,000442: 22,3714 24045 STOVL NORMZI
049682,000443: 22,3715 02651 ZI +6
049683,000444: 22,3716 41446 ABVAL PUSH
049684,000445: 22,3717 50025 DSU BMN
049685,000446: 22,3720 00045 NORMZI
049686,000447: 22,3721 45724 +3
049687,000448: 22,3722 45545 DLOAD STADR
049688,000449: 22,3723 77732 STORE NORMZI
049689,000450: 22,3724 51575 VLOAD ABVAL
049690,000451: 22,3725 02657 ZI +12D
049691,000452: 22,3726 45206 PUSH DSU
049692,000453: 22,3727 00045 NORMZI
049693,000454: 22,3730 71240 BMN DLOAD
049694,000455: 22,3731 45734 +3
049695,000456: 22,3732 77626 STADR
049696,000457: 22,3733 77732 STORE NORMZI # LARGEST ABVAL
049697,000458: 22,3734 66145 DLOAD SXA,1
049698,000459: 22,3735 00045 NORMZI
049699,000460: 22,3736 00044 NORMZI # SAVE X1
049700,000461: 22,3737 62101 NORM INCR,1
049701,000462:
|
|
Page 1156 |
049703,000464: 22,3740 00047 X1
049704,000465: 22,3741 00002 DEC 2 B-14
049705,000466: 22,3742 53775 VLOAD VSL*
049706,000467: 22,3743 02643 ZI
049707,000468: 22,3744 20201 0,1
049708,000469: 22,3745 26643 STOVL ZI
049709,000470: 22,3746 02651 ZI +6
049710,000471: 22,3747 77657 VSL*
049711,000472: 22,3750 20201 0,1
049712,000473: 22,3751 26651 STOVL ZI +6
049713,000474: 22,3752 02657 ZI +12D
049714,000475: 22,3753 66057 VSL* SXA,1
049715,000476: 22,3754 20201 0,1
049716,000477: 22,3755 00045 NORMZI +1 # SAVE SHIFT
049717,000478: 22,3756 02657 STORE ZI +12D
049718,000479: 22,3757 54150 LXA,1 XSU,1
049719,000480: 22,3760 02102 NORMGAM
049720,000481: 22,3761 00045 NORMZI +1
049721,000482: 22,3762 77660 XSU,1
049722,000483: 22,3763 00045 NORMZI +1
049723,000484: 22,3764 70130 SXA,1 LXC,1
049724,000485: 22,3765 02102 NORMGAM
049725,000486: 22,3766 00045 NORMZI +1
049726,000487: 22,3767 40270 XAD,1 SETPD
049727,000488: 22,3770 00044 NORMZI
049728,000489: 22,3771 00003 2D
049729,000490: 22,3772 77650 GOTO
049730,000491: 22,3773 46652 INCOR2 -3
049731,000492: 22,3774 NORMZI = 36D
End of include-file MEASUREMENT_INCORPORATION.agc. Parent file is MAIN.agc