Source Code
![]() |
These source-code files were transcribed from a printout in Don Eyles's personal
collection, scanned by archive.org, and financially sponsored by Linden Sims.
A team of volunteers performed the transcription and proof-reading. The scanned
page images are available at
the Virtual AGC Project website, as well as higher-quality (but much larger)
images at
the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating
"issues" at
the Virtual AGC Project's GitHub Repository. Notations on the program listing read, in part: GAP: ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER 9:12 OCT. 21,1970Note that the date is the date of the printout, not the date of the program revision. |
049644,000002: ## Copyright: Public domain.
049645,000003: ## Filename: MEASUREMENT_INCORPORATION.agc
049646,000004: ## Purpose: A log section of Zerlina 56, the final revision of
049647,000005: ## Don Eyles's offline development program for the variable
049648,000006: ## guidance period servicer. It also includes a new P66 with LPD
049649,000007: ## (Landing Point Designator) capability, based on an idea of John
049650,000008: ## Young's. Neither of these advanced features were actually flown,
049651,000009: ## but Zerlina was also the birthplace of other big improvements to
049652,000010: ## Luminary including the terrain model and new (Luminary 1E)
049653,000011: ## analog display programs. Zerlina was branched off of Luminary 145,
049654,000012: ## and revision 56 includes all changes up to and including Luminary
049655,000013: ## 183. It is therefore quite close to the Apollo 14 program,
049656,000014: ## Luminary 178, where not modified with new features.
049657,000015: ## Reference: pp. 1140-1149
049658,000016: ## Assembler: yaYUL
049659,000017: ## Contact: Ron Burkey <info@sandroid.org>.
049660,000018: ## Website: www.ibiblio.org/apollo/index.html
049661,000019: ## Mod history: 2017-07-28 MAS Created from Luminary 210.
049662,000020: ## 2017-08-28 MAS Updated for Zerlina 56.
049663,000021:
![]() |
Page 1140 |
049665,000023: # INCORP1--PERFORMS THE SIX DIMENSIONAL STATE VECTOR DEVIATION FOR POSITI
049666,000024: # ON AND VELOCITY OR THE NINE DIMENSIONAL DEVIATION OF POSITION,VELOCITY,A
049667,000025: # ND RADAR OR LANDMARK BIAS.THE OUTPUT OF THE BVECTOR ROUTINE ALONG WITH T
049668,000026: # HE ERROR TRANSITION MATRIX(W) ARE USED AS INPUT TO THE ROUTINE.THE DEVIA
049669,000027: # TION IS OBTAINED BY COMPUTING AN ESTIMATED TRACKING MEASUREMENT FROM THE
049670,000028: # CURRENT STATE VECTOR AND COMPARING IT WITH AN ACTUAL TRACKING MEASUREMEN
049671,000029: # T AND APPLYING A STATISTICAL WEIGHTING VECTOR.
049672,000030: # INPUT
049673,000031: # DMENFLG = 0 6DIMENSIONAL BVECTOR 1= 9DIMENSIONAL
049674,000032: # W = ERROR TRANSITION MATRIX 6X6 OR 9X9
049675,000033: # VARIANCE = VARIANCE (SCALAR)
049676,000034: # DELTAQ = MEASURED DEVIATION(SCALAR)
049677,000035: # BVECTOR = 6 OR 9 DIMENSIONAL BVECTOR
049678,000036:
049679,000037: # OUTPUT
049680,000038: # DELTAX = STATE VECTOR DEVIATIONS 6 OR 9 DIMENSIONAL
049681,000039: # ZI = VECTOR USED FOR THE INCORPORATION 6 OR 9 DIMENSIONAL
049682,000040: # GAMMA = SCALAR
049683,000041: # OMEGA = OMEGA WEIGHTING VECTOR 6 OR 9 DIMENTIONAL
049684,000042: # CALLING SEQUENCE
049685,000043: # L CALL INCORP1
049686,000044:
049687,000045: # NORMAL EXIT
049688,000046:
049689,000047: # L+1 OF CALLING SEQUENCE
049690,000048:
049691,000049: 37,3654 BANK 37
049692,000050: 23,2000 SETLOC MEASINC
049693,000051: 23,2000 BANK
049694,000052:
049695,000053: 23,2527 COUNT* $$/INCOR
049696,000054:
049697,000055: 23,2527 E5,1400 EBANK= W
049698,000056:
049699,000057: 23,2527 77620 INCORP1 STQ
049700,000058: 23,2530 02767 EGRESS
049701,000059: 23,2531 66370 AXT,1 SSP
049702,000060: 23,2532 00066 54D
049703,000061: 23,2533 00051 S1
049704,000062: 23,2534 00022 18D # IX1 = 54 S1= 18
049705,000063: 23,2535 66374 AXT,2 SSP
049706,000064: 23,2536 00022 18D
049707,000065: 23,2537 00052 S2
049708,000066: 23,2540 00006 6 # IX2 = 18 S2=6
049709,000067: 23,2541 63775 Z123 VLOAD MXV*
049710,000068: 23,2542 03525 BVECTOR # BVECTOR (0)
049711,000069: 23,2543 02467 W +54D,1
049712,000070: 23,2544 12665 STORE ZI +18D,2
049713,000071: 23,2545 77775 VLOAD
049714,000072: 23,2546 03533 BVECTOR +6 # BVECTOR (1)
![]() |
Page 1141 |
049716,000074: 23,2547 52717 MXV* VAD*
049717,000075: 23,2550 02555 W +108D,1
049718,000076: 23,2551 75112 ZI +18D,2
049719,000077: 23,2552 12665 STORE ZI +18D,2
049720,000078: 23,2553 77775 VLOAD
049721,000079: 23,2554 03541 BVECTOR +12D # BVECTOR (2)
049722,000080: 23,2555 52717 MXV* VAD*
049723,000081: 23,2556 02643 W +162D,1
049724,000082: 23,2557 75112 ZI +18D,2 # B(0)*W+B(1)*(W+54)+B(2)*(W+108)FIRST PAS
049725,000083: 23,2560 12665 STORE ZI +18D,2 # ZI THEN Z2 THEN Z3
049726,000084: 23,2561 77700 TIX,1
049727,000085: 23,2562 46563 INCOR1
049728,000086: 23,2563 43104 INCOR1 TIX,2 BON
049729,000087: 23,2564 46541 Z123 # LOOP FOR Z1,Z2,Z3
049730,000088: 23,2565 02706 DMENFLG
049731,000089: 23,2566 46572 INCOR1A
049732,000090: 23,2567 77775 VLOAD
049733,000091: 23,2570 06520 ZEROVECS
049734,000092: 23,2571 02657 STORE ZI +12D
049735,000093: 23,2572 77201 INCOR1A SETPD VLOAD
049736,000094: 23,2573 00001 0
049737,000095: 23,2574 02643 ZI
049738,000096: 23,2575 47036 VSQ RTB
049739,000097: 23,2576 21615 TPMODE
049740,000098: 23,2577 47515 PDVL VSQ
049741,000099: 23,2600 02651 ZI +6
049742,000100: 23,2601 76234 RTB TAD
049743,000101: 23,2602 21615 TPMODE
049744,000102: 23,2603 47515 PDVL VSQ
049745,000103: 23,2604 02657 ZI +12D
049746,000104: 23,2605 76234 RTB TAD
049747,000105: 23,2606 21615 TPMODE
049748,000106: 23,2607 77171 TAD AXT,2
049749,000107: 23,2610 02707 VARIANCE
049750,000108: 23,2611 00000 0
049751,000109: 23,2612 02665 STORE TRIPA # ZI*2 + Z2*2 + Z3*2 + VARIANCE
049752,000110: 23,2613 40151 TLOAD BOV
049753,000111: 23,2614 02707 VARIANCE # CLEAR OVFIND
049754,000112: 23,2615 46616 +1
049755,000113: 23,2616 02670 STORE TEMPVAR # TEMP STORAGE FOR VARIANCE
049756,000114: 23,2617 77654 BZE
049757,000115: 23,2620 46627 INCOR1C
049758,000116: 23,2621 40112 INCOR1B SL2 BOV
049759,000117: 23,2622 46627 INCOR1C
049760,000118: 23,2623 02670 STORE TEMPVAR
049761,000119: 23,2624 52114 INCR,2 GOTO
049762,000120: 23,2625 00001 DEC 1 B-14
049763,000121: 23,2626 46621 INCOR1B
049764,000122: 23,2627 61551 INCOR1C TLOAD ROUND
049765,000123: 23,2630 02665 TRIPA
![]() |
Page 1142 |
049767,000125: 23,2631 75405 DMP SQRT
049768,000126: 23,2632 02670 TEMPVAR
049769,000127: 23,2633 76257 SL* TAD
049770,000128: 23,2634 57576 0,2
049771,000129: 23,2635 02665 TRIPA
049772,000130: 23,2636 63101 NORM INCR,2
049773,000131: 23,2637 00050 X2
049774,000132: 23,2640 77775 DEC -2 B-14
049775,000133: 23,2641 77134 SXA,2 AXT,2
049776,000134: 23,2642 02102 NORMGAM # NORMALIZATION COUNT -2 FOR GAMMA
049777,000135: 23,2643 00242 162D
049778,000136: 23,2644 40265 BDDV SETPD
049779,000137: 23,2645 06510 DP1/4TH
049780,000138: 23,2646 00001 0
049781,000139: 23,2647 03500 STORE GAMMA
049782,000140: 23,2650 60351 TLOAD NORM
049783,000141: 23,2651 02665 TRIPA
049784,000142: 23,2652 00047 X1
049785,000143: 23,2653 65345 DLOAD PDDL # PD 0-1 = NORM (A)
049786,000144: 23,2654 00155 MPAC
049787,000145: 23,2655 03547 DELTAQ
049788,000146: 23,2656 77701 NORM
049789,000147: 23,2657 00051 S1
049790,000148: 23,2660 70460 XSU,1 SR1
049791,000149: 23,2661 00050 S1
049792,000150: 23,2662 41471 DDV PUSH # PD 0-1 = DELTAQ/A
049793,000151: 23,2663 77650 GOTO
049794,000152: 23,2664 45663 NEWZCOMP
049795,000153: 23,2665 77731 -3 SSP
049796,000154: 23,2666 00052 S2
049797,000155: 23,2667 00066 54D
049798,000156: 23,2670 60775 INCOR2 VLOAD VXM* # COMPUTE OMEGA1,2,3
049799,000157: 23,2671 02643 ZI
049800,000158: 23,2672 75134 W +162D,2
049801,000159: 23,2673 77206 PUSH VLOAD
049802,000160: 23,2674 02651 ZI +6
049803,000161: 23,2675 53303 VXM* VAD
049804,000162: 23,2676 75112 W +180D,2
049805,000163: 23,2677 77206 PUSH VLOAD
049806,000164: 23,2700 02657 ZI +12D
049807,000165: 23,2701 53303 VXM* VAD
049808,000166: 23,2702 75070 W +198D,2
049809,000167: 23,2703 61006 PUSH TIX,2 # PD 2-7=OMEGA1,8-13=OMEGA2,14-19=OMEGA3
049810,000168: 23,2704 46670 INCOR2
049811,000169: 23,2705 45575 VLOAD STADR
049812,000170: 23,2706 74260 STORE OMEGA +12D
049813,000171: 23,2707 45575 VLOAD STADR
049814,000172: 23,2710 74266 STORE OMEGA +6
049815,000173: 23,2711 45575 VLOAD STADR
049816,000174: 23,2712 74274 STORE OMEGA
![]() |
Page 1143 |
049818,000176: 23,2713 77214 BON VLOAD
049819,000177: 23,2714 02706 DMENFLG
049820,000178: 23,2715 46720 INCOR2AB
049821,000179: 23,2716 06520 ZEROVECS
049822,000180: 23,2717 03517 STORE OMEGA +12D
049823,000181: 23,2720 66374 INCOR2AB AXT,2 SSP
049824,000182: 23,2721 00022 18D
049825,000183: 23,2722 00052 S2
049826,000184: 23,2723 00006 6
049827,000185: 23,2724 77773 INCOR3 VLOAD*
049828,000186: 23,2725 74252 OMEGA +18D,2
049829,000187: 23,2726 53761 VXSC VSL*
049830,000188: 23,2727 00001 0 # DELTAQ/A
049831,000189: 23,2730 20201 0,1
049832,000190: 23,2731 12707 STORE DELTAX +18D,2
049833,000191: 23,2732 77304 TIX,2 VLOAD
049834,000192: 23,2733 46724 INCOR3
049835,000193: 23,2734 02673 DELTAX +6
049836,000194: 23,2735 77732 VSL3
049837,000195: 23,2736 02673 STORE DELTAX +6
049838,000196: 23,2737 77650 GOTO
049839,000197: 23,2740 02767 EGRESS
049840,000198:
![]() |
Page 1144 |
049842,000200: # INCORP2 -INCORPORATES THE COMPUTED STATE VECTOR DEVIATIONS INTO THE
049843,000201: # ESTIMATED STATE VECTOR. THE STATE VECTOR UPDATED MAY BE FOR EITHER THE
049844,000202: # LEM OR THE CSM.DETERMINED BY FLAG VEHUPFLG.(ZERO = LEM) (1 = CSM)
049845,000203: # INPUT
049846,000204: # PERMANENT STATE VECTOR FOR EITHER THE LEM OR CSM
049847,000205: # VEHUPFLG = UPDATE VEHICLE 0=LEM 1=CSM
049848,000206: # W = ERROR TRANSITION MATRIX
049849,000207: # DELTAX = COMPUTED STATE VECTOR DEVIATIONS
049850,000208: # DMENFLG = SIZE OF W MATRIX (ZERO =6X6) (1=9X9)
049851,000209: # GAMMA = SCALAR FOR INCORPORATION
049852,000210: # ZI = VECTOR USED IN INCORPORATION
049853,000211: # OMEGA = WEIGHTING VECTOR
049854,000212:
049855,000213: # OUTPUT
049856,000214: # UPDATED PERMANENT STATE VECTOR
049857,000215:
049858,000216: # CALLING SEQUENCE
049859,000217: # L CALL INCORP2
049860,000218:
049861,000219: # NORMAL EXIT
049862,000220: # L+1 OF CALLING SEQUENCE
049863,000221:
049864,000222: 23,2000 SETLOC MEASINC1
049865,000223: 23,2000 BANK
049866,000224:
049867,000225: 23,2741 COUNT* $$/INCOR
049868,000226:
049869,000227: 23,2741 45020 INCORP2 STQ CALL
049870,000228: 23,2742 02767 EGRESS
049871,000229: 23,2743 27410 INTSTALL
049872,000230: 23,2744 74375 VLOAD VXSC # CALC. GAMMA * OMEGA1,2,3
049873,000231: 23,2745 03503 OMEGA
049874,000232: 23,2746 03500 GAMMA
049875,000233: 23,2747 26713 STOVL OMEGAM1
049876,000234: 23,2750 03511 OMEGA +6
049877,000235: 23,2751 77761 VXSC
049878,000236: 23,2752 03500 GAMMA
049879,000237: 23,2753 26721 STOVL OMEGAM2
049880,000238: 23,2754 03517 OMEGA +12D
049881,000239: 23,2755 77761 VXSC
049882,000240: 23,2756 03500 GAMMA
049883,000241: 23,2757 02727 STORE OMEGAM3
049884,000242: 23,2760 77776 EXIT
049885,000243: 23,2761 33242 CAF 54DD # INITIAL IX 1 SETTING FOR W MATRIX
049886,000244: 23,2762 55315 TS WIXA
049887,000245: 23,2763 55316 TS WIXB
049888,000246: 23,2764 34755 CAF ZERO
049889,000247: 23,2765 55317 TS ZIXA # INITIAL IX 2 SETTING FOR Z COMPONENT
049890,000248: 23,2766 55320 TS ZIXB
049891,000249: 23,2767 05364 FAZA TC PHASCHNG
![]() |
Page 1145 |
049893,000251: 23,2770 04022 OCT 04022
049894,000252: 23,2771 05515 TC UPFLAG
049895,000253: 23,2772 00236 ADRES REINTFLG
049896,000254: 23,2773 31316 FAZA1 CA WIXB # START FIRST PHASE OF INCORP2
049897,000255: 23,2774 55315 TS WIXA # TO UPDATE 6 OR 9 DIM. W MATRIX IN TEMP
049898,000256: 23,2775 31320 CA ZIXB
049899,000257: 23,2776 55317 TS ZIXA
049900,000258: 23,2777 06051 TC INTPRET
049901,000259: 23,3000 73150 LXA,1 LXA,2
049902,000260: 23,3001 01315 WIXA
049903,000261: 23,3002 01317 ZIXA
049904,000262: 23,3003 70731 SSP DLOAD*
049905,000263: 23,3004 00051 S1
049906,000264: 23,3005 00006 6
049907,000265: 23,3006 75134 ZI,2
049908,000266: 23,3007 60276 DCOMP NORM # CALC UPPER 3X9 PARTITION OF W MATRIX
049909,000267: 23,3010 00052 S2
049910,000268: 23,3011 65161 VXSC XCHX,2
049911,000269: 23,3012 02713 OMEGAM1
049912,000270: 23,3013 00051 S2
049913,000271: 23,3014 57144 LXC,2 XAD,2
049914,000272: 23,3015 00047 X2
049915,000273: 23,3016 02102 NORMGAM
049916,000274: 23,3017 65057 VSL* XCHX,2
049917,000275: 23,3020 57576 0,2
049918,000276: 23,3021 00051 S2
049919,000277: 23,3022 77653 VAD*
049920,000278: 23,3023 02467 W +54D,1
049921,000279: 23,3024 02735 STORE HOLDW
049922,000280: 23,3025 57543 DLOAD* DCOMP # CALC MIDDLE 3X9 PARTITION OF W MATRIX
049923,000281: 23,3026 75134 ZI,2
049924,000282: 23,3027 74301 NORM VXSC
049925,000283: 23,3030 00052 S2
049926,000284: 23,3031 02721 OMEGAM2
049927,000285: 23,3032 71124 XCHX,2 LXC,2
049928,000286: 23,3033 00051 S2
049929,000287: 23,3034 00047 X2
049930,000288: 23,3035 53674 XAD,2 VSL*
049931,000289: 23,3036 02102 NORMGAM
049932,000290: 23,3037 57576 0,2
049933,000291: 23,3040 52724 XCHX,2 VAD*
049934,000292: 23,3041 00051 S2
049935,000293: 23,3042 02555 W +108D,1
049936,000294: 23,3043 02743 STORE HOLDW +6
049937,000295: 23,3044 77614 BOFF
049938,000296: 23,3045 02746 DMENFLG # BRANCH IF 6 DIMENSIONAL
049939,000297: 23,3046 47066 FAZB
049940,000298: 23,3047 57543 DLOAD* DCOMP # CALC LOWER 3X9 PARTITION OF W MATRIX
049941,000299: 23,3050 75134 ZI,2
049942,000300: 23,3051 74301 NORM VXSC
![]() |
Page 1146 |
049944,000302: 23,3052 00052 S2
049945,000303: 23,3053 02727 OMEGAM3
049946,000304: 23,3054 71124 XCHX,2 LXC,2
049947,000305: 23,3055 00051 S2
049948,000306: 23,3056 00047 X2
049949,000307: 23,3057 53674 XAD,2 VSL*
049950,000308: 23,3060 02102 NORMGAM
049951,000309: 23,3061 57576 0,2
049952,000310: 23,3062 52724 XCHX,2 VAD*
049953,000311: 23,3063 00051 S2
049954,000312: 23,3064 02643 W +162D,1
049955,000313: 23,3065 02751 STORE HOLDW +12D
049956,000314: 23,3066 77624 FAZB CALL
049957,000315: 23,3067 11216 GRP2PC
049958,000316: 23,3070 77776 EXIT
049959,000317: 23,3071 31315 FAZB1 CA WIXA # START 2ND PHASE OF INCORP2 TO TRANSFER
049960,000318: 23,3072 63243 AD 6DD # TEMP REG TO PERM W MATRIX
049961,000319: 23,3073 55316 TS WIXB
049962,000320: 23,3074 31317 CA ZIXA
049963,000321: 23,3075 67760 AD MINUS2
049964,000322: 23,3076 55320 TS ZIXB
049965,000323: 23,3077 06051 TC INTPRET
049966,000324: 23,3100 66350 LXA,1 SSP
049967,000325: 23,3101 01315 WIXA
049968,000326: 23,3102 00051 S1
049969,000327: 23,3103 00006 6
049970,000328: 23,3104 77775 VLOAD
049971,000329: 23,3105 02735 HOLDW
049972,000330: 23,3106 06467 STORE W +54D,1
049973,000331: 23,3107 77775 VLOAD
049974,000332: 23,3110 02743 HOLDW +6
049975,000333: 23,3111 06555 STORE W +108D,1
049976,000334: 23,3112 77214 BOFF VLOAD
049977,000335: 23,3113 02746 DMENFLG
049978,000336: 23,3114 47124 FAZB5
049979,000337: 23,3115 02751 HOLDW +12D
049980,000338: 23,3116 06643 STORE W +162D,1
049981,000339: 23,3117 52100 FAZB2 TIX,1 GOTO
049982,000340: 23,3120 47122 +2
049983,000341: 23,3121 47132 FAZC # DONE WITH W MATRIX. UPDATE STATE VECTOR
049984,000342: 23,3122 77634 RTB
049985,000343: 23,3123 46767 FAZA
049986,000344: 23,3124 43335 FAZB5 SLOAD DAD
049987,000345: 23,3125 01321 ZIXB
049988,000346: 23,3126 07245 12DD
049989,000347: 23,3127 52030 BHIZ GOTO
049990,000348: 23,3130 47132 FAZC
049991,000349: 23,3131 47117 FAZB2
049992,000350: 23,3132 77624 FAZC CALL
049993,000351: 23,3133 11216 GRP2PC
![]() |
Page 1147 |
049995,000353: 23,3134 53375 VLOAD VAD # START 3RD PHASE OF INCORP2
049996,000354: 23,3135 01701 X789 # 7TH,8TH,9TH,COMPONENT OF STATE VECTOR
049997,000355: 23,3136 02701 DELTAX +12D # INCORPORATION FOR X789
049998,000356: 23,3137 03472 STORE TX789
049999,000357: 23,3140 47014 BON RTB
050000,000358: 23,3141 00707 VEHUPFLG
050001,000359: 23,3142 47232 DOCSM
050002,000360: 23,3143 26767 MOVEPLEM
050003,000361: 23,3144 77004 FAZAB BOVB AXT,2
050004,000362: 23,3145 57735 TCDANZIG
050005,000363: 23,3146 00000 0
050006,000364: 23,3147 77014 BOFF AXT,2
050007,000365: 23,3150 04344 MOONTHIS
050008,000366: 23,3151 47153 +2
050009,000367: 23,3152 00002 2
050010,000368: 23,3153 53775 VLOAD VSR*
050011,000369: 23,3154 02665 DELTAX # B27 IF MOON ORBIT, B29 IF EARTH
050012,000370: 23,3155 57205 0 -7,2
050013,000371: 23,3156 40055 VAD BOV
050014,000372: 23,3157 01521 TDELTAV
050015,000373: 23,3160 47172 FAZAB1
050016,000374: 23,3161 25521 STOVL TDELTAV
050017,000375: 23,3162 02673 DELTAX +6 # B5 IF MOON ORBIT, B7 IF EARTH
050018,000376: 23,3163 53257 VSR* VAD
050019,000377: 23,3164 57202 0 -4,2
050020,000378: 23,3165 01527 TNUV
050021,000379: 23,3166 77600 BOV
050022,000380: 23,3167 47176 FAZAB2
050023,000381: 23,3170 35527 STCALL TNUV
050024,000382: 23,3171 47205 FAZAB3
050025,000383: 23,3172 53375 FAZAB1 VLOAD VAD
050026,000384: 23,3173 01535 RCV
050027,000385: 23,3174 02665 DELTAX
050028,000386: 23,3175 01535 STORE RCV
050029,000387: 23,3176 53375 FAZAB2 VLOAD VAD
050030,000388: 23,3177 01543 VCV
050031,000389: 23,3200 02673 DELTAX +6
050032,000390: 23,3201 01543 STORE VCV
050033,000391: 23,3202 45134 SXA,2 CALL
050034,000392: 23,3203 02030 PBODY
050035,000393: 23,3204 27671 RECTIFY
050036,000394: 23,3205 77624 FAZAB3 CALL
050037,000395: 23,3206 11216 GRP2PC
050038,000396: 23,3207 47014 BON RTB
050039,000397: 23,3210 00707 VEHUPFLG
050040,000398: 23,3211 47235 DOCSM1
050041,000399: 23,3212 26746 MOVEALEM
050042,000400: 23,3213 77624 CALL
050043,000401: 23,3214 26070 SVDWN2 # STORE DOWNLINK STATE VECTOR
050044,000402: 23,3215 77624 FAZAB4 CALL
![]() |
Page 1148 |
050046,000404: 23,3216 11216 GRP2PC # PHASE CHANGE
050047,000405: 23,3217 77214 BOFF VLOAD
050048,000406: 23,3220 02746 DMENFLG
050049,000407: 23,3221 47224 FAZAB5 # 6 DIMENSIONAL
050050,000408: 23,3222 03472 TX789 # 9 DIMENSIONAL
050051,000409: 23,3223 01701 STORE X789
050052,000410: 23,3224 66150 FAZAB5 LXA,1 SXA,1
050053,000411: 23,3225 02767 EGRESS
050054,000412: 23,3226 00052 QPRET
050055,000413: 23,3227 77776 EXIT
050056,000414: 23,3230 04635 TC POSTJUMP # EXIT
050057,000415: 23,3231 27421 CADR INTWAKE
050058,000416: 23,3232 52034 DOCSM RTB GOTO
050059,000417: 23,3233 26722 MOVEPCSM
050060,000418: 23,3234 47144 FAZAB
050061,000419: 23,3235 45034 DOCSM1 RTB CALL
050062,000420: 23,3236 26673 MOVEACSM
050063,000421: 23,3237 26114 SVDWN1 # STORE DOWNLINK STATE VECTOR
050064,000422: 23,3240 77650 GOTO
050065,000423: 23,3241 47215 FAZAB4
050066,000424: 23,3242 23,2517 ZEROD = ZEROVECS
050067,000425: 23,3242 00066 54DD DEC 54 B-14
050068,000426: 23,3243 77771 6DD DEC -6 B-14
050069,000427: 23,3244 00014 12DD DEC 12 B-14
050070,000428: 22,2000 SETLOC RENDEZ
050071,000429: 22,2000 BANK
050072,000430: 22,3663 COUNT* $$/INCOR
050073,000431:
050074,000432: 22,3663 51575 NEWZCOMP VLOAD ABVAL
050075,000433: 22,3664 02643 ZI
050076,000434: 22,3665 24045 STOVL NORMZI
050077,000435: 22,3666 02651 ZI +6
050078,000436: 22,3667 41446 ABVAL PUSH
050079,000437: 22,3670 50025 DSU BMN
050080,000438: 22,3671 00045 NORMZI
050081,000439: 22,3672 45675 +3
050082,000440: 22,3673 45545 DLOAD STADR
050083,000441: 22,3674 77732 STORE NORMZI
050084,000442: 22,3675 51575 VLOAD ABVAL
050085,000443: 22,3676 02657 ZI +12D
050086,000444: 22,3677 45206 PUSH DSU
050087,000445: 22,3700 00045 NORMZI
050088,000446: 22,3701 71240 BMN DLOAD
050089,000447: 22,3702 45705 +3
050090,000448: 22,3703 77626 STADR
050091,000449: 22,3704 77732 STORE NORMZI # LARGEST ABVAL
050092,000450: 22,3705 66145 DLOAD SXA,1
050093,000451: 22,3706 00045 NORMZI
050094,000452: 22,3707 00044 NORMZI # SAVE X1
050095,000453: 22,3710 62101 NORM INCR,1
![]() |
Page 1149 |
050097,000455: 22,3711 00047 X1
050098,000456: 22,3712 00002 DEC 2 B-14
050099,000457: 22,3713 53775 VLOAD VSL*
050100,000458: 22,3714 02643 ZI
050101,000459: 22,3715 20201 0,1
050102,000460: 22,3716 26643 STOVL ZI
050103,000461: 22,3717 02651 ZI +6
050104,000462: 22,3720 77657 VSL*
050105,000463: 22,3721 20201 0,1
050106,000464: 22,3722 26651 STOVL ZI +6
050107,000465: 22,3723 02657 ZI +12D
050108,000466: 22,3724 66057 VSL* SXA,1
050109,000467: 22,3725 20201 0,1
050110,000468: 22,3726 00045 NORMZI +1 # SAVE SHIFT
050111,000469: 22,3727 02657 STORE ZI +12D
050112,000470: 22,3730 54150 LXA,1 XSU,1
050113,000471: 22,3731 02102 NORMGAM
050114,000472: 22,3732 00045 NORMZI +1
050115,000473: 22,3733 77660 XSU,1
050116,000474: 22,3734 00045 NORMZI +1
050117,000475: 22,3735 70130 SXA,1 LXC,1
050118,000476: 22,3736 02102 NORMGAM
050119,000477: 22,3737 00045 NORMZI +1
050120,000478: 22,3740 40270 XAD,1 SETPD
050121,000479: 22,3741 00044 NORMZI
050122,000480: 22,3742 00003 2D
050123,000481: 22,3743 77650 GOTO
050124,000482: 22,3744 46665 INCOR2 -3
050125,000483: 22,3745 NORMZI = 36D
End of include-file MEASUREMENT_INCORPORATION.agc. Parent file is MAIN.agc