Notations on the program listing read, in part:
GAP: ASSEMBLE REVISION 116 OF AGC PROGRAM LUMINARY BY NASA 2021112-071 19:09 AUG. 11,1969Note 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 116 (the Apollo 12
Lunar Module guidance computer program), from the personal library of
original AGC developer Don Eyles, digitally photographed at archive.org,
financially sponsored by Ron Burkey, 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 116 OF AGC PROGRAM LUMINARY BY NASA 2021112-071 19:09 AUG. 11,1969Note that the date is the date of the printout, not the date of the program revision. |
048206,000002: ## Copyright: Public domain.
048207,000003: ## Filename: MEASUREMENT_INCORPORATION.agc
048208,000004: ## Purpose: A section of Luminary revision 116.
048209,000005: ## It is part of the source code for the Lunar Module's (LM)
048210,000006: ## Apollo Guidance Computer (AGC) for Apollo 12.
048211,000007: ## This file is intended to be a faithful transcription, except
048212,000008: ## that the code format has been changed to conform to the
048213,000009: ## requirements of the yaYUL assembler rather than the
048214,000010: ## original YUL assembler.
048215,000011: ## Reference: pp. 1141-1150
048216,000012: ## Assembler: yaYUL
048217,000013: ## Contact: Ron Burkey <info@sandroid.org>.
048218,000014: ## Website: www.ibiblio.org/apollo/index.html
048219,000015: ## Mod history: 2017-01-22 MAS Created from Luminary 99.
048220,000016: ## 2017-01-24 RRB Updated for Luminary 116.
048221,000017: ## 2017-03-13 RSB Proofed comment text via 3-way diff vs
048222,000018: ## Luminary 99 and 131.
048223,000019: ## 2021-05-30 ABS ZEROD -> ZEROO
048224,000020:
|
|
Page 1141 |
048226,000022: # INCORP1--PERFORMS THE SIX DIMENSIONAL STATE VECTOR DEVIATION FOR POSITI
048227,000023: # ON AND VELOCITY OR THE NINE DIMENSIONAL DEVIATION OF POSITION,VELOCITY,A
048228,000024: # ND RADAR OR LANDMARK BIAS.THE OUTPUT OF THE BVECTOR ROUTINE ALONG WITH T
048229,000025: # HE ERROR TRANSITION MATRIX(W) ARE USED AS INPUT TO THE ROUTINE.THE DEVIA
048230,000026: # TION IS OBTAINED BY COMPUTING AN ESTIMATED TRACKING MEASUREMENT FROM THE
048231,000027: # CURRENT STATE VECTOR AND COMPARING IT WITH AN ACTUAL TRACKING MEASUREMEN
048232,000028: # T AND APPLYING A STATISTICAL WEIGHTING VECTOR.
048233,000029: # INPUT
048234,000030: # DMENFLG = 0 6DIMENSIONAL BVECTOR 1=9DIMENSIONAL
048235,000031: # W = ERROR TRANSITION MATRIX 6X6 OR 9X9
048236,000032: # VARIANCE = VARIANCE (SCALAR)
048237,000033: # DELTAQ = MEASURED DEVIATION (SCALAR)
048238,000034: # BVECTOR = 6 OR 9 DIMENSIONAL BVECTOR
048239,000035:
048240,000036: # OUTPUT
048241,000037: # DELTAX = STATE VECTOR DEVIATIONS 6 OR 9 DIMENSIONAL
048242,000038: # ZI = VECTOR USED FOR THE INCORPORATION 6 OR 9 DIMENSIONAL
048243,000039: # GAMMA = SCALAR
048244,000040: # OMEGA = OMEGA WEIGHTING VECTOR 6 OR 9 DIMENTIONAL
048245,000041: # CALLING SEQUENCE
048246,000042: # L CALL INCORP1
048247,000043:
048248,000044: # NORMAL EXIT
048249,000045:
048250,000046: # L+1 OF CALLING SEQUENCE
048251,000047:
048252,000048: 37,3652 BANK 37
048253,000049: 23,2000 SETLOC MEASINC
048254,000050: 23,2000 BANK
048255,000051:
048256,000052: 23,2533 COUNT* $$/INCOR
048257,000053:
048258,000054: 23,2533 E5,1400 EBANK= W
048259,000055:
048260,000056: 23,2533 77620 INCORP1 STQ
048261,000057: 23,2534 02772 EGRESS
048262,000058: 23,2535 66370 AXT,1 SSP
048263,000059: 23,2536 00066 54D
048264,000060: 23,2537 00051 S1
048265,000061: 23,2540 00022 18D # IX1 = 54 S1= 18
048266,000062: 23,2541 66374 AXT,2 SSP
048267,000063: 23,2542 00022 18D
048268,000064: 23,2543 00052 S2
048269,000065: 23,2544 00006 6 # IX2 = 18 S2=6
048270,000066: 23,2545 63775 Z123 VLOAD MXV*
048271,000067: 23,2546 03525 BVECTOR # BVECTOR (0)
048272,000068: 23,2547 02467 W +54D,1
048273,000069: 23,2550 12665 STORE ZI +18D,2
048274,000070: 23,2551 77775 VLOAD
048275,000071: 23,2552 03533 BVECTOR +6 # BVECTOR (1)
|
|
Page 1142 |
048277,000073: 23,2553 52717 MXV* VAD*
048278,000074: 23,2554 02555 W +108D,1
048279,000075: 23,2555 75112 ZI +18D,2
048280,000076: 23,2556 12665 STORE ZI +18D,2
048281,000077: 23,2557 77775 VLOAD
048282,000078: 23,2560 03541 BVECTOR +12D # BVECTOR (2)
048283,000079: 23,2561 52717 MXV* VAD*
048284,000080: 23,2562 02643 W +162D,1
048285,000081: 23,2563 75112 ZI +18D,2 # B(0)*W+B(1)*(W+54)+B(2)*(W+108) FIRST PAS
048286,000082: 23,2564 12665 STORE ZI +18D,2 # ZI THEN Z2 THEN Z3
048287,000083: 23,2565 77700 TIX,1
048288,000084: 23,2566 46567 INCOR1
048289,000085: 23,2567 43104 INCOR1 TIX,2 BON
048290,000086: 23,2570 46545 Z123 # LOOP FOR Z1,Z2,Z3
048291,000087: 23,2571 02706 DMENFLG
048292,000088: 23,2572 46576 INCOR1A
048293,000089: 23,2573 77775 VLOAD
048294,000090: 23,2574 06524 ZEROVECS
048295,000091: 23,2575 02657 STORE ZI +12D
048296,000092: 23,2576 77201 INCOR1A SETPD VLOAD
048297,000093: 23,2577 00001 0
048298,000094: 23,2600 02643 ZI
048299,000095: 23,2601 47036 VSQ RTB
048300,000096: 23,2602 21634 TPMODE
048301,000097: 23,2603 47515 PDVL VSQ
048302,000098: 23,2604 02651 ZI +6
048303,000099: 23,2605 76234 RTB TAD
048304,000100: 23,2606 21634 TPMODE
048305,000101: 23,2607 47515 PDVL VSQ
048306,000102: 23,2610 02657 ZI +12D
048307,000103: 23,2611 76234 RTB TAD
048308,000104: 23,2612 21634 TPMODE
048309,000105: 23,2613 77171 TAD AXT,2
048310,000106: 23,2614 02707 VARIANCE
048311,000107: 23,2615 00000 0
048312,000108: 23,2616 02665 STORE TRIPA # ZI*2 + Z2*2 + Z3*2 + VARIANCE
048313,000109: 23,2617 40151 TLOAD BOV
048314,000110: 23,2620 02707 VARIANCE # CLEAR OVFIND
048315,000111: 23,2621 46622 +1
048316,000112: 23,2622 02670 STORE TEMPVAR # TEMP STORAGE FOR VARIANCE
048317,000113: 23,2623 77654 BZE
048318,000114: 23,2624 46633 INCOR1C
048319,000115: 23,2625 40112 INCOR1B SL2 BOV
048320,000116: 23,2626 46633 INCOR1C
048321,000117: 23,2627 02670 STORE TEMPVAR
048322,000118: 23,2630 52114 INCR,2 GOTO
048323,000119: 23,2631 00001 DEC 1 B-14
048324,000120: 23,2632 46625 INCOR1B
048325,000121: 23,2633 61551 INCOR1C TLOAD ROUND
048326,000122: 23,2634 02665 TRIPA
|
|
Page 1143 |
048328,000124: 23,2635 75405 DMP SQRT
048329,000125: 23,2636 02670 TEMPVAR
048330,000126: 23,2637 76257 SL* TAD
048331,000127: 23,2640 57576 0,2
048332,000128: 23,2641 02665 TRIPA
048333,000129: 23,2642 63101 NORM INCR,2
048334,000130: 23,2643 00050 X2
048335,000131: 23,2644 77775 DEC -2 B-14
048336,000132: 23,2645 77134 SXA,2 AXT,2
048337,000133: 23,2646 02103 NORMGAM # NORMALIZATION COUNT -2 FOR GAMMA
048338,000134: 23,2647 00242 162D
048339,000135: 23,2650 40265 BDDV SETPD
048340,000136: 23,2651 06514 DP1/4TH
048341,000137: 23,2652 00001 0
048342,000138: 23,2653 03500 STORE GAMMA
048343,000139: 23,2654 60351 TLOAD NORM
048344,000140: 23,2655 02665 TRIPA
048345,000141: 23,2656 00047 X1
048346,000142: 23,2657 65345 DLOAD PDDL # PD 0-1 = NORM (A)
048347,000143: 23,2660 00155 MPAC
048348,000144: 23,2661 03547 DELTAQ
048349,000145: 23,2662 77701 NORM
048350,000146: 23,2663 00051 S1
048351,000147: 23,2664 70460 XSU,1 SR1
048352,000148: 23,2665 00050 S1
048353,000149: 23,2666 41471 DDV PUSH # PD 0-1 = DELTAQ/A
048354,000150: 23,2667 77650 GOTO
048355,000151: 23,2670 45711 NEWZCOMP
048356,000152: 23,2671 77731 -3 SSP
048357,000153: 23,2672 00052 S2
048358,000154: 23,2673 00066 54D
048359,000155: 23,2674 60775 INCOR2 VLOAD VXM* # COMPUTE OMEGA1,2,3
048360,000156: 23,2675 02643 ZI
048361,000157: 23,2676 75134 W +162D,2
048362,000158: 23,2677 77206 PUSH VLOAD
048363,000159: 23,2700 02651 ZI +6
048364,000160: 23,2701 53303 VXM* VAD
048365,000161: 23,2702 75112 W +180D,2
048366,000162: 23,2703 77206 PUSH VLOAD
048367,000163: 23,2704 02657 ZI +12D
048368,000164: 23,2705 53303 VXM* VAD
048369,000165: 23,2706 75070 W +198D,2
048370,000166: 23,2707 61006 PUSH TIX,2 # PD 2-7=OMEGA1, 8-13=OMEGA2, 14-19=OMEGA3
048371,000167: 23,2710 46674 INCOR2
048372,000168: 23,2711 45575 VLOAD STADR
048373,000169: 23,2712 74260 STORE OMEGA +12D
048374,000170: 23,2713 45575 VLOAD STADR
048375,000171: 23,2714 74266 STORE OMEGA +6
048376,000172: 23,2715 45575 VLOAD STADR
048377,000173: 23,2716 74274 STORE OMEGA
|
|
Page 1144 |
048379,000175: 23,2717 77214 BON VLOAD
048380,000176: 23,2720 02706 DMENFLG
048381,000177: 23,2721 46724 INCOR2AB
048382,000178: 23,2722 06524 ZEROVECS
048383,000179: 23,2723 03517 STORE OMEGA +12D
048384,000180: 23,2724 66374 INCOR2AB AXT,2 SSP
048385,000181: 23,2725 00022 18D
048386,000182: 23,2726 00052 S2
048387,000183: 23,2727 00006 6
048388,000184: 23,2730 77773 INCOR3 VLOAD*
048389,000185: 23,2731 74252 OMEGA +18D,2
048390,000186: 23,2732 53761 VXSC VSL*
048391,000187: 23,2733 00001 0 # DELTAQ/A
048392,000188: 23,2734 20201 0,1
048393,000189: 23,2735 12707 STORE DELTAX +18D,2
048394,000190: 23,2736 77304 TIX,2 VLOAD
048395,000191: 23,2737 46730 INCOR3
048396,000192: 23,2740 02673 DELTAX +6
048397,000193: 23,2741 77732 VSL3
048398,000194: 23,2742 02673 STORE DELTAX +6
048399,000195: 23,2743 77650 GOTO
048400,000196: 23,2744 02772 EGRESS
048401,000197:
|
|
Page 1145 |
048403,000199: # INCORP2 -INCORPORATES THE COMPUTED STATE VECTOR DEVIATIONS INTO THE
048404,000200: # ESTIMATED STATE VECTOR. THE STATE VECTOR UPDATED MAY BE FOR EITHER THE
048405,000201: # LEM OR THE CSM. DETERMINED BY FLAG VEHUPFLG. (ZERO = LEM) (1 = CSM)
048406,000202:
048407,000203: # INPUT
048408,000204: # PERMANENT STATE VECTOR FOR EITHER THE LEM OR CSM
048409,000205: # VEHUPFLG = UPDATE VEHICLE 0=LEM 1=CSM
048410,000206: # W = ERROR TRANSITION MATRIX
048411,000207: # DELTAX = COMPUTED STATE VECTOR DEVIATIONS
048412,000208: # DMENFLG = SIZE OF W MATRIX (ZERO=6X6) (1=9X9)
048413,000209: # GAMMA = SCALAR FOR INCORPORATION
048414,000210: # ZI = VECTOR USED IN INCORPORATION
048415,000211: # OMEGA = WEIGHTING VECTOR
048416,000212:
048417,000213: # OUTPUT
048418,000214: # UPDATED PERMANENT STATE VECTOR
048419,000215:
048420,000216: # CALLING SEQUENCE
048421,000217: # L CALL INCORP2
048422,000218:
048423,000219: # NORMAL EXIT
048424,000220: # L+1 OF CALLING SEQUENCE
048425,000221:
048426,000222:
048427,000223: 23,2000 SETLOC MEASINC1
048428,000224: 23,2000 BANK
048429,000225:
048430,000226: 23,2745 COUNT* $$/INCOR
048431,000227:
048432,000228: 23,2745 45020 INCORP2 STQ CALL
048433,000229: 23,2746 02772 EGRESS
048434,000230: 23,2747 27412 INTSTALL
048435,000231: 23,2750 74375 VLOAD VXSC # CALC. GAMMA * OMEGA1,2,3
048436,000232: 23,2751 03503 OMEGA
048437,000233: 23,2752 03500 GAMMA
048438,000234: 23,2753 26713 STOVL OMEGAM1
048439,000235: 23,2754 03511 OMEGA +6
048440,000236: 23,2755 77761 VXSC
048441,000237: 23,2756 03500 GAMMA
048442,000238: 23,2757 26721 STOVL OMEGAM2
048443,000239: 23,2760 03517 OMEGA +12D
048444,000240: 23,2761 77761 VXSC
048445,000241: 23,2762 03500 GAMMA
048446,000242: 23,2763 02727 STORE OMEGAM3
048447,000243: 23,2764 77776 EXIT
048448,000244: 23,2765 33246 CAF 54DD # INITIAL IX 1 SETTING FOR W MATRIX
048449,000245: 23,2766 55315 TS WIXA
048450,000246: 23,2767 55316 TS WIXB
048451,000247: 23,2770 34755 CAF ZERO
048452,000248: 23,2771 55317 TS ZIXA # INITIAL IX 2 SETTING FOR Z COMPONENT
048453,000249: 23,2772 55320 TS ZIXB
048454,000250: 23,2773 05353 FAZA TC PHASCHNG
|
|
Page 1146 |
048456,000252: 23,2774 04022 OCT 04022
048457,000253: 23,2775 05504 TC UPFLAG
048458,000254: 23,2776 00236 ADRES REINTFLG
048459,000255: 23,2777 31316 FAZA1 CA WIXB # START FIRST PHASE OF INCORP2
048460,000256: 23,3000 55315 TS WIXA # TO UPDATE 6 OR 9 DIM. W MATRIX IN TEMP
048461,000257: 23,3001 31320 CA ZIXB
048462,000258: 23,3002 55317 TS ZIXA
048463,000259: 23,3003 06042 TC INTPRET
048464,000260: 23,3004 73150 LXA,1 LXA,2
048465,000261: 23,3005 01315 WIXA
048466,000262: 23,3006 01317 ZIXA
048467,000263: 23,3007 70731 SSP DLOAD*
048468,000264: 23,3010 00051 S1
048469,000265: 23,3011 00006 6
048470,000266: 23,3012 75134 ZI,2
048471,000267: 23,3013 60276 DCOMP NORM # CALC UPPER 3X9 PARTITION OF W MATRIX
048472,000268: 23,3014 00052 S2
048473,000269: 23,3015 65161 VXSC XCHX,2
048474,000270: 23,3016 02713 OMEGAM1
048475,000271: 23,3017 00051 S2
048476,000272: 23,3020 57144 LXC,2 XAD,2
048477,000273: 23,3021 00047 X2
048478,000274: 23,3022 02103 NORMGAM
048479,000275: 23,3023 65057 VSL* XCHX,2
048480,000276: 23,3024 57576 0,2
048481,000277: 23,3025 00051 S2
048482,000278: 23,3026 77653 VAD*
048483,000279: 23,3027 02467 W +54D,1
048484,000280: 23,3030 02735 STORE HOLDW
048485,000281: 23,3031 57543 DLOAD* DCOMP # CALC MIDDLE 3X9 PARTITION OF W MATRIX
048486,000282: 23,3032 75134 ZI,2
048487,000283: 23,3033 74301 NORM VXSC
048488,000284: 23,3034 00052 S2
048489,000285: 23,3035 02721 OMEGAM2
048490,000286: 23,3036 71124 XCHX,2 LXC,2
048491,000287: 23,3037 00051 S2
048492,000288: 23,3040 00047 X2
048493,000289: 23,3041 53674 XAD,2 VSL*
048494,000290: 23,3042 02103 NORMGAM
048495,000291: 23,3043 57576 0,2
048496,000292: 23,3044 52724 XCHX,2 VAD*
048497,000293: 23,3045 00051 S2
048498,000294: 23,3046 02555 W +108D,1
048499,000295: 23,3047 02743 STORE HOLDW +6
048500,000296: 23,3050 77614 BOFF
048501,000297: 23,3051 02746 DMENFLG # BRANCH IF 6 DIMENSIONAL
048502,000298: 23,3052 47072 FAZB
048503,000299: 23,3053 57543 DLOAD* DCOMP # CALC LOWER 3X9 PARTITION OF W MATRIX
048504,000300: 23,3054 75134 ZI,2
048505,000301: 23,3055 74301 NORM VXSC
|
|
Page 1147 |
048507,000303: 23,3056 00052 S2
048508,000304: 23,3057 02727 OMEGAM3
048509,000305: 23,3060 71124 XCHX,2 LXC,2
048510,000306: 23,3061 00051 S2
048511,000307: 23,3062 00047 X2
048512,000308: 23,3063 53674 XAD,2 VSL*
048513,000309: 23,3064 02103 NORMGAM
048514,000310: 23,3065 57576 0,2
048515,000311: 23,3066 52724 XCHX,2 VAD*
048516,000312: 23,3067 00051 S2
048517,000313: 23,3070 02643 W +162D,1
048518,000314: 23,3071 02751 STORE HOLDW +12D
048519,000315: 23,3072 77624 FAZB CALL
048520,000316: 23,3073 11226 GRP2PC
048521,000317: 23,3074 77776 EXIT
048522,000318: 23,3075 31315 FAZB1 CA WIXA # START 2ND PHASE OF INCORP2 TO TRANSFER
048523,000319: 23,3076 63247 AD 6DD # TEMP REG TO PERM W MATRIX
048524,000320: 23,3077 55316 TS WIXB
048525,000321: 23,3100 31317 CA ZIXA
048526,000322: 23,3101 67751 AD MINUS2
048527,000323: 23,3102 55320 TS ZIXB
048528,000324: 23,3103 06042 TC INTPRET
048529,000325: 23,3104 66350 LXA,1 SSP
048530,000326: 23,3105 01315 WIXA
048531,000327: 23,3106 00051 S1
048532,000328: 23,3107 00006 6
048533,000329: 23,3110 77775 VLOAD
048534,000330: 23,3111 02735 HOLDW
048535,000331: 23,3112 06467 STORE W +54D,1
048536,000332: 23,3113 77775 VLOAD
048537,000333: 23,3114 02743 HOLDW +6
048538,000334: 23,3115 06555 STORE W +108D,1
048539,000335: 23,3116 77214 BOFF VLOAD
048540,000336: 23,3117 02746 DMENFLG
048541,000337: 23,3120 47130 FAZB5
048542,000338: 23,3121 02751 HOLDW +12D
048543,000339: 23,3122 06643 STORE W +162D,1
048544,000340: 23,3123 52100 FAZB2 TIX,1 GOTO
048545,000341: 23,3124 47126 +2
048546,000342: 23,3125 47136 FAZC # DONE WITH W MATRIX. UPDATE STATE VECTOR
048547,000343: 23,3126 77634 RTB
048548,000344: 23,3127 46773 FAZA
048549,000345: 23,3130 43335 FAZB5 SLOAD DAD
048550,000346: 23,3131 01321 ZIXB
048551,000347: 23,3132 07251 12DD
048552,000348: 23,3133 52030 BHIZ GOTO
048553,000349: 23,3134 47136 FAZC
048554,000350: 23,3135 47123 FAZB2
048555,000351: 23,3136 77624 FAZC CALL
048556,000352: 23,3137 11226 GRP2PC
|
|
Page 1148 |
048558,000354: 23,3140 53375 VLOAD VAD # START 3RD PHASE OF INCORP2
048559,000355: 23,3141 01701 X789 # 7TH,8TH,9TH,COMPONENT OF STATE VECTOR
048560,000356: 23,3142 02701 DELTAX +12D # INCORPORATION FOR X789
048561,000357: 23,3143 03472 STORE TX789
048562,000358: 23,3144 47014 BON RTB
048563,000359: 23,3145 00707 VEHUPFLG
048564,000360: 23,3146 47236 DOCSM
048565,000361: 23,3147 26771 MOVEPLEM
048566,000362: 23,3150 77004 FAZAB BOVB AXT,2
048567,000363: 23,3151 57753 TCDANZIG
048568,000364: 23,3152 00000 0
048569,000365: 23,3153 77014 BOFF AXT,2
048570,000366: 23,3154 04344 MOONTHIS
048571,000367: 23,3155 47157 +2
048572,000368: 23,3156 00002 2
048573,000369: 23,3157 53775 VLOAD VSR*
048574,000370: 23,3160 02665 DELTAX # B27 IF MOON ORBIT, B29 IF EARTH
048575,000371: 23,3161 57205 0 -7,2
048576,000372: 23,3162 40055 VAD BOV
048577,000373: 23,3163 01521 TDELTAV
048578,000374: 23,3164 47176 FAZAB1
048579,000375: 23,3165 25521 STOVL TDELTAV
048580,000376: 23,3166 02673 DELTAX +6 # B5 IF MOON ORBIT, B7 IF EARTH
048581,000377: 23,3167 53257 VSR* VAD
048582,000378: 23,3170 57202 0 -4,2
048583,000379: 23,3171 01527 TNUV
048584,000380: 23,3172 77600 BOV
048585,000381: 23,3173 47202 FAZAB2
048586,000382: 23,3174 35527 STCALL TNUV
048587,000383: 23,3175 47211 FAZAB3
048588,000384: 23,3176 53375 FAZAB1 VLOAD VAD
048589,000385: 23,3177 01535 RCV
048590,000386: 23,3200 02665 DELTAX
048591,000387: 23,3201 01535 STORE RCV
048592,000388: 23,3202 53375 FAZAB2 VLOAD VAD
048593,000389: 23,3203 01543 VCV
048594,000390: 23,3204 02673 DELTAX +6
048595,000391: 23,3205 01543 STORE VCV
048596,000392: 23,3206 45134 SXA,2 CALL
048597,000393: 23,3207 02030 PBODY
048598,000394: 23,3210 27673 RECTIFY
048599,000395: 23,3211 77624 FAZAB3 CALL
048600,000396: 23,3212 11226 GRP2PC
048601,000397: 23,3213 47014 BON RTB
048602,000398: 23,3214 00707 VEHUPFLG
048603,000399: 23,3215 47241 DOCSM1
048604,000400: 23,3216 26750 MOVEALEM
048605,000401: 23,3217 77624 CALL
048606,000402: 23,3220 26070 SVDWN2 # STORE DOWNLINK STATE VECTOR
048607,000403: 23,3221 77624 FAZAB4 CALL
|
|
Page 1149 |
048609,000405: 23,3222 11226 GRP2PC # PHASE CHANGE
048610,000406: 23,3223 77214 BOFF VLOAD
048611,000407: 23,3224 02746 DMENFLG
048612,000408: 23,3225 47230 FAZAB5 # 6 DIMENSIONAL
048613,000409: 23,3226 03472 TX789 # 9 DIMENSIONAL
048614,000410: 23,3227 01701 STORE X789
048615,000411: 23,3230 66150 FAZAB5 LXA,1 SXA,1
048616,000412: 23,3231 02772 EGRESS
048617,000413: 23,3232 00052 QPRET
048618,000414: 23,3233 77776 EXIT
048619,000415: 23,3234 04635 TC POSTJUMP # EXIT
048620,000416: 23,3235 27423 CADR INTWAKE
048621,000417: 23,3236 52034 DOCSM RTB GOTO
048622,000418: 23,3237 26724 MOVEPCSM
048623,000419: 23,3240 47150 FAZAB
048624,000420: 23,3241 45034 DOCSM1 RTB CALL
048625,000421: 23,3242 26675 MOVEACSM
048626,000422: 23,3243 26114 SVDWN1 # STORE DOWNLINK STATE VECTOR
048627,000423: 23,3244 77650 GOTO
048628,000424: 23,3245 47221 FAZAB4
048629,000425: 23,3246 23,2523 ZEROO = ZEROVECS
048630,000426: 23,3246 00066 54DD DEC 54 B-14
048631,000427: 23,3247 77771 6DD DEC -6 B-14
048632,000428: 23,3250 00014 12DD DEC 12 B-14
048633,000429: 22,2000 SETLOC RENDEZ
048634,000430: 22,2000 BANK
048635,000431: 22,3711 COUNT* $$/INCOR
048636,000432:
048637,000433: 22,3711 51575 NEWZCOMP VLOAD ABVAL
048638,000434: 22,3712 02643 ZI
048639,000435: 22,3713 24045 STOVL NORMZI
048640,000436: 22,3714 02651 ZI +6
048641,000437: 22,3715 41446 ABVAL PUSH
048642,000438: 22,3716 50025 DSU BMN
048643,000439: 22,3717 00045 NORMZI
048644,000440: 22,3720 45723 +3
048645,000441: 22,3721 45545 DLOAD STADR
048646,000442: 22,3722 77732 STORE NORMZI
048647,000443: 22,3723 51575 VLOAD ABVAL
048648,000444: 22,3724 02657 ZI +12D
048649,000445: 22,3725 45206 PUSH DSU
048650,000446: 22,3726 00045 NORMZI
048651,000447: 22,3727 71240 BMN DLOAD
048652,000448: 22,3730 45733 +3
048653,000449: 22,3731 77626 STADR
048654,000450: 22,3732 77732 STORE NORMZI # LARGEST ABVAL
048655,000451: 22,3733 66145 DLOAD SXA,1
048656,000452: 22,3734 00045 NORMZI
048657,000453: 22,3735 00044 NORMZI # SAVE X1
048658,000454: 22,3736 62101 NORM INCR,1
|
|
Page 1150 |
048660,000456: 22,3737 00047 X1
048661,000457: 22,3740 00002 DEC 2 B-14
048662,000458: 22,3741 53775 VLOAD VSL*
048663,000459: 22,3742 02643 ZI
048664,000460: 22,3743 20201 0,1
048665,000461: 22,3744 26643 STOVL ZI
048666,000462: 22,3745 02651 ZI +6
048667,000463: 22,3746 77657 VSL*
048668,000464: 22,3747 20201 0,1
048669,000465: 22,3750 26651 STOVL ZI +6
048670,000466: 22,3751 02657 ZI +12D
048671,000467: 22,3752 66057 VSL* SXA,1
048672,000468: 22,3753 20201 0,1
048673,000469: 22,3754 00045 NORMZI +1 # SAVE SHIFT
048674,000470: 22,3755 02657 STORE ZI +12D
048675,000471: 22,3756 54150 LXA,1 XSU,1
048676,000472: 22,3757 02103 NORMGAM
048677,000473: 22,3760 00045 NORMZI +1
048678,000474: 22,3761 77660 XSU,1
048679,000475: 22,3762 00045 NORMZI +1
048680,000476: 22,3763 70130 SXA,1 LXC,1
048681,000477: 22,3764 02103 NORMGAM
048682,000478: 22,3765 00045 NORMZI +1
048683,000479: 22,3766 40270 XAD,1 SETPD
048684,000480: 22,3767 00044 NORMZI
048685,000481: 22,3770 00003 2D
048686,000482: 22,3771 77650 GOTO
048687,000483: 22,3772 46671 INCOR2 -3
048688,000484: 22,3773 NORMZI = 36D
048689,000485:
048690,000486:
End of include-file MEASUREMENT_INCORPORATION.agc. Parent file is MAIN.agc