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