Source Code
|
These source-code files are part of a reconstructed copy of LM131 revision 1,
the final release of the Apollo 13 Lunar Module (LM) Apollo Guidance Computer
(AGC) software.
The source reconstruction began with source code of Luminary 131 previously
transcribed from a digitized copy of that program. A dump of the flight spare
core rope memory module B5, part number 2010802-171, serial number RAY 411,
was obtained. This module is the only module different between Luminary 131
and LM131 revision 1. The dump was disassembled and all changes were incorporated
into these source files. Note that page numbers in the reconstructed code match
those on the Luminary 131 printout, although the changed code would likely have
changed page numbers for a real LM131 revision 1 listing.
Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
project's GitHub repository.
|
047813,000002: ## Copyright: Public domain.
047814,000003: ## Filename: MEASUREMENT_INCORPORATION.agc
047815,000004: ## Purpose: A section of LM131 revision 1.
047816,000005: ## It is part of the reconstructed source code for the final
047817,000006: ## release of the flight software for the Lunar Module's (LM)
047818,000007: ## Apollo Guidance Computer (AGC) for Apollo 13. The code has
047819,000008: ## been reconstructed from a listing of Luminary 131 and a dump
047820,000009: ## of a core rope memory module B5, part number 2010802-171,
047821,000010: ## which is the only module different between LM131 revision 1
047822,000011: ## and Luminary 131. The executable generated from this source
047823,000012: ## has been verified against the module dump, so while the names,
047824,000013: ## comments, and ordering may not be exactly correct, the
047825,000014: ## resulting binary is.
047826,000015: ## Reference: pp. 1143-1152
047827,000016: ## Assembler: yaYUL
047828,000017: ## Contact: Ron Burkey <info@sandroid.org>.
047829,000018: ## Website: www.ibiblio.org/apollo/index.html
047830,000019: ## Mod history: 2022-10-28 MAS Created from Luminary 131.
047831,000020:
|
|
Page 1143
|
047833,000022: # INCORP1--PERFORMS THE SIX DIMENSIONAL STATE VECTOR DEVIATION FOR POSITI
047834,000023: # ON AND VELOCITY OR THE NINE DIMENSIONAL DEVIATION OF POSITION,VELOCITY,A
047835,000024: # ND RADAR OR LANDMARK BIAS.THE OUTPUT OF THE BVECTOR ROUTINE ALONG WITH T
047836,000025: # HE ERROR TRANSITION MATRIX(W) ARE USED AS INPUT TO THE ROUTINE.THE DEVIA
047837,000026: # TION IS OBTAINED BY COMPUTING AN ESTIMATED TRACKING MEASUREMENT FROM THE
047838,000027: # CURRENT STATE VECTOR AND COMPARING IT WITH AN ACTUAL TRACKING MEASUREMEN
047839,000028: # T AND APPLYING A STATISTICAL WEIGHTING VECTOR.
047840,000029:
047841,000030: # INPUT
047842,000031: # DMENFLG = 0 6DIMENSIONAL BVECTOR 1= 9DIMENSIONAL
047843,000032: # W = ERROR TRANSITION MATRIX 6X6 OR 9X9
047844,000033: # VARIANCE = VARIANCE (SCALAR)
047845,000034: # DELTAQ = MEASURED DEVIATION (SCALAR)
047846,000035: # BVECTOR = 6 OR 9 DIMENSIONAL BVECTOR
047847,000036:
047848,000037: # OUTPUT
047849,000038: # DELTAX = STATE VECTOR DEVIATIONS 6 OR 9 DIMENSIONAL
047850,000039: # ZI = VECTOR USED FOR THE INCORPORATION 6 OR 9 DIMENSIONAL
047851,000040: # GAMMA = SCALAR
047852,000041: # OMEGA = OMEGA WEIGHTING VECTOR 6 OR 9 DIMENTIONAL
047853,000042:
047854,000043: # CALLING SEQUENCE
047855,000044: # L CALL INCORP1
047856,000045:
047857,000046: # NORMAL EXIT
047858,000047: # L+1 OF CALLING SEQUENCE
047859,000048:
047860,000049: 37,3652 BANK 37
047861,000050: 23,2000 SETLOC MEASINC
047862,000051: 23,2000 BANK
047863,000052:
047864,000053: 23,2533 COUNT* $$/INCOR
047865,000054:
047866,000055: 23,2533 E5,1400 EBANK= W
047867,000056:
047868,000057: 23,2533 77620 INCORP1 STQ
047869,000058: 23,2534 02772 EGRESS
047870,000059: 23,2535 66370 AXT,1 SSP
047871,000060: 23,2536 00066 54D
047872,000061: 23,2537 00051 S1
047873,000062: 23,2540 00022 18D # IX1 = 54 S1= 18
047874,000063: 23,2541 66374 AXT,2 SSP
047875,000064: 23,2542 00022 18D
047876,000065: 23,2543 00052 S2
047877,000066: 23,2544 00006 6 # IX2 = 18 S2=6
047878,000067: 23,2545 63775 Z123 VLOAD MXV*
047879,000068: 23,2546 03525 BVECTOR # BVECTOR (0)
047880,000069: 23,2547 02467 W +54D,1
047881,000070: 23,2550 12665 STORE ZI +18D,2
047882,000071: 23,2551 77775 VLOAD
047883,000072: 23,2552 03533 BVECTOR +6 # BVECTOR (1)
|
|
Page 1144
|
047885,000074: 23,2553 52717 MXV* VAD*
047886,000075: 23,2554 02555 W +108D,1
047887,000076: 23,2555 75112 ZI +18D,2
047888,000077: 23,2556 12665 STORE ZI +18D,2
047889,000078: 23,2557 77775 VLOAD
047890,000079: 23,2560 03541 BVECTOR +12D # BVECTOR (2)
047891,000080: 23,2561 52717 MXV* VAD*
047892,000081: 23,2562 02643 W +162D,1
047893,000082: 23,2563 75112 ZI +18D,2 # B(0)*W+B(1)*(W+54)+B(2)*(W+108) FIRST PAS
047894,000083: 23,2564 12665 STORE ZI +18D,2 # ZI THEN Z2 THEN Z3
047895,000084: 23,2565 77700 TIX,1
047896,000085: 23,2566 46567 INCOR1
047897,000086: 23,2567 43104 INCOR1 TIX,2 BON
047898,000087: 23,2570 46545 Z123 # LOOP FOR Z1,Z2,Z3
047899,000088: 23,2571 02706 DMENFLG
047900,000089: 23,2572 46576 INCOR1A
047901,000090: 23,2573 77775 VLOAD
047902,000091: 23,2574 06524 ZEROVECS
047903,000092: 23,2575 02657 STORE ZI +12D
047904,000093: 23,2576 77201 INCOR1A SETPD VLOAD
047905,000094: 23,2577 00001 0
047906,000095: 23,2600 02643 ZI
047907,000096: 23,2601 47036 VSQ RTB
047908,000097: 23,2602 21634 TPMODE
047909,000098: 23,2603 47515 PDVL VSQ
047910,000099: 23,2604 02651 ZI +6
047911,000100: 23,2605 76234 RTB TAD
047912,000101: 23,2606 21634 TPMODE
047913,000102: 23,2607 47515 PDVL VSQ
047914,000103: 23,2610 02657 ZI +12D
047915,000104: 23,2611 76234 RTB TAD
047916,000105: 23,2612 21634 TPMODE
047917,000106: 23,2613 77171 TAD AXT,2
047918,000107: 23,2614 02707 VARIANCE
047919,000108: 23,2615 00000 0
047920,000109: 23,2616 02665 STORE TRIPA # ZI*2 + Z2*2 + Z3*2 + VARIANCE
047921,000110: 23,2617 40151 TLOAD BOV
047922,000111: 23,2620 02707 VARIANCE # CLEAR OVFIND
047923,000112: 23,2621 46622 +1
047924,000113: 23,2622 02670 STORE TEMPVAR # TEMP STORAGE FOR VARIANCE
047925,000114: 23,2623 77654 BZE
047926,000115: 23,2624 46633 INCOR1C
047927,000116: 23,2625 40112 INCOR1B SL2 BOV
047928,000117: 23,2626 46633 INCOR1C
047929,000118: 23,2627 02670 STORE TEMPVAR
047930,000119: 23,2630 52114 INCR,2 GOTO
047931,000120: 23,2631 00001 DEC 1 B-14
047932,000121: 23,2632 46625 INCOR1B
047933,000122: 23,2633 61551 INCOR1C TLOAD ROUND
047934,000123: 23,2634 02665 TRIPA
|
|
Page 1145
|
047936,000125: 23,2635 75405 DMP SQRT
047937,000126: 23,2636 02670 TEMPVAR
047938,000127: 23,2637 76257 SL* TAD
047939,000128: 23,2640 57576 0,2
047940,000129: 23,2641 02665 TRIPA
047941,000130: 23,2642 63101 NORM INCR,2
047942,000131: 23,2643 00050 X2
047943,000132: 23,2644 77775 DEC -2 B-14
047944,000133: 23,2645 77134 SXA,2 AXT,2
047945,000134: 23,2646 02103 NORMGAM # NORMALIZATION COUNT -2 FOR GAMMA
047946,000135: 23,2647 00242 162D
047947,000136: 23,2650 40265 BDDV SETPD
047948,000137: 23,2651 06514 DP1/4TH
047949,000138: 23,2652 00001 0
047950,000139: 23,2653 03500 STORE GAMMA
047951,000140: 23,2654 60351 TLOAD NORM
047952,000141: 23,2655 02665 TRIPA
047953,000142: 23,2656 00047 X1
047954,000143: 23,2657 65345 DLOAD PDDL # PD 0-1 = NORM (A)
047955,000144: 23,2660 00155 MPAC
047956,000145: 23,2661 03547 DELTAQ
047957,000146: 23,2662 77701 NORM
047958,000147: 23,2663 00051 S1
047959,000148: 23,2664 70460 XSU,1 SR1
047960,000149: 23,2665 00050 S1
047961,000150: 23,2666 41471 DDV PUSH # PD 0-1 = DELTAQ/A
047962,000151: 23,2667 77650 GOTO
047963,000152: 23,2670 45711 NEWZCOMP
047964,000153: 23,2671 77731 -3 SSP
047965,000154: 23,2672 00052 S2
047966,000155: 23,2673 00066 54D
047967,000156: 23,2674 60775 INCOR2 VLOAD VXM* # COMPUTE OMEGA1,2,3
047968,000157: 23,2675 02643 ZI
047969,000158: 23,2676 75134 W +162D,2
047970,000159: 23,2677 77206 PUSH VLOAD
047971,000160: 23,2700 02651 ZI +6
047972,000161: 23,2701 53303 VXM* VAD
047973,000162: 23,2702 75112 W +180D,2
047974,000163: 23,2703 77206 PUSH VLOAD
047975,000164: 23,2704 02657 ZI +12D
047976,000165: 23,2705 53303 VXM* VAD
047977,000166: 23,2706 75070 W +198D,2
047978,000167: 23,2707 61006 PUSH TIX,2 # PD 2-7=OMEGA1,8-13=OMEGA2,14-19=OMEGA3
047979,000168: 23,2710 46674 INCOR2
047980,000169: 23,2711 45575 VLOAD STADR
047981,000170: 23,2712 74260 STORE OMEGA +12D
047982,000171: 23,2713 45575 VLOAD STADR
047983,000172: 23,2714 74266 STORE OMEGA +6
047984,000173: 23,2715 45575 VLOAD STADR
047985,000174: 23,2716 74274 STORE OMEGA
|
|
Page 1146
|
047987,000176: 23,2717 77214 BON VLOAD
047988,000177: 23,2720 02706 DMENFLG
047989,000178: 23,2721 46724 INCOR2AB
047990,000179: 23,2722 06524 ZEROVECS
047991,000180: 23,2723 03517 STORE OMEGA +12D
047992,000181: 23,2724 66374 INCOR2AB AXT,2 SSP
047993,000182: 23,2725 00022 18D
047994,000183: 23,2726 00052 S2
047995,000184: 23,2727 00006 6
047996,000185: 23,2730 77773 INCOR3 VLOAD*
047997,000186: 23,2731 74252 OMEGA +18D,2
047998,000187: 23,2732 53761 VXSC VSL*
047999,000188: 23,2733 00001 0 # DELTAQ/A
048000,000189: 23,2734 20201 0,1
048001,000190: 23,2735 12707 STORE DELTAX +18D,2
048002,000191: 23,2736 77304 TIX,2 VLOAD
048003,000192: 23,2737 46730 INCOR3
048004,000193: 23,2740 02673 DELTAX +6
048005,000194: 23,2741 77732 VSL3
048006,000195: 23,2742 02673 STORE DELTAX +6
048007,000196: 23,2743 77650 GOTO
048008,000197: 23,2744 02772 EGRESS
048009,000198:
|
|
Page 1147
|
048011,000200: # INCORP2 -INCORPORATES THE COMPUTED STATE VECTOR DEVIATIONS INTO THE
048012,000201: # ESTIMATED STATE VECTOR. THE STATE VECTOR UPDATED MAY BE FOR EITHER THE
048013,000202: # LEM OR THE CSM. DETERMINED BY FLAG VEHUPFLG. (ZERO = LEM) (1 = CSM)
048014,000203:
048015,000204: # INPUT
048016,000205: # PERMANENT STATE VECTOR FOR EITHER THE LEM OR CSM
048017,000206: # VEHUPFLG = UPDATE VEHICLE 0=LEM 1=CSM
048018,000207: # W = ERROR TRANSITION MATRIX
048019,000208: # DELTAX = COMPUTED STATE VECTOR DEVIATIONS
048020,000209: # DMENFLG = SIZE OF W MATRIX (ZERO=6X6) (1=9X9)
048021,000210: # GAMMA = SCALAR FOR INCORPORATION
048022,000211: # ZI = VECTOR USED IN INCORPORATION
048023,000212: # OMEGA = WEIGHTING VECTOR
048024,000213:
048025,000214: # OUTPUT
048026,000215: # UPDATED PERMANENT STATE VECTOR
048027,000216:
048028,000217: # CALLING SEQUENCE
048029,000218: # L CALL INCORP2
048030,000219:
048031,000220: # NORMAL EXIT
048032,000221: # L+1 OF CALLING SEQUENCE
048033,000222:
048034,000223:
048035,000224: 23,2000 SETLOC MEASINC1
048036,000225: 23,2000 BANK
048037,000226:
048038,000227: 23,2745 COUNT* $$/INCOR
048039,000228:
048040,000229: 23,2745 45020 INCORP2 STQ CALL
048041,000230: 23,2746 02772 EGRESS
048042,000231: 23,2747 27410 INTSTALL
048043,000232: 23,2750 74375 VLOAD VXSC # CALC. GAMMA*OMEGA1,2,3
048044,000233: 23,2751 03503 OMEGA
048045,000234: 23,2752 03500 GAMMA
048046,000235: 23,2753 26713 STOVL OMEGAM1
048047,000236: 23,2754 03511 OMEGA +6
048048,000237: 23,2755 77761 VXSC
048049,000238: 23,2756 03500 GAMMA
048050,000239: 23,2757 26721 STOVL OMEGAM2
048051,000240: 23,2760 03517 OMEGA +12D
048052,000241: 23,2761 77761 VXSC
048053,000242: 23,2762 03500 GAMMA
048054,000243: 23,2763 02727 STORE OMEGAM3
048055,000244: 23,2764 77776 EXIT
048056,000245: 23,2765 33246 CAF 54DD # INITIAL IX 1 SETTING FOR W MATRIX
048057,000246: 23,2766 55315 TS WIXA
048058,000247: 23,2767 55316 TS WIXB
048059,000248: 23,2770 34755 CAF ZERO
048060,000249: 23,2771 55317 TS ZIXA # INITIAL IX 2 SETTING FOR Z COMPONENT
048061,000250: 23,2772 55320 TS ZIXB
048062,000251: 23,2773 05353 FAZA TC PHASCHNG
|
|
Page 1148
|
048064,000253: 23,2774 04022 OCT 04022
048065,000254: 23,2775 05504 TC UPFLAG
048066,000255: 23,2776 00236 ADRES REINTFLG
048067,000256: 23,2777 31316 FAZA1 CA WIXB # START FIRST PHASE OF INCORP2
048068,000257: 23,3000 55315 TS WIXA # TO UPDATE 6 OR 9 DIM. W MATRIX IN TEMP
048069,000258: 23,3001 31320 CA ZIXB
048070,000259: 23,3002 55317 TS ZIXA
048071,000260: 23,3003 06042 TC INTPRET
048072,000261: 23,3004 73150 LXA,1 LXA,2
048073,000262: 23,3005 01315 WIXA
048074,000263: 23,3006 01317 ZIXA
048075,000264: 23,3007 70731 SSP DLOAD*
048076,000265: 23,3010 00051 S1
048077,000266: 23,3011 00006 6
048078,000267: 23,3012 75134 ZI,2
048079,000268: 23,3013 60276 DCOMP NORM # CALC UPPER 3X9 PARTITION OF W MATRIX
048080,000269: 23,3014 00052 S2
048081,000270: 23,3015 65161 VXSC XCHX,2
048082,000271: 23,3016 02713 OMEGAM1
048083,000272: 23,3017 00051 S2
048084,000273: 23,3020 57144 LXC,2 XAD,2
048085,000274: 23,3021 00047 X2
048086,000275: 23,3022 02103 NORMGAM
048087,000276: 23,3023 65057 VSL* XCHX,2
048088,000277: 23,3024 57576 0,2
048089,000278: 23,3025 00051 S2
048090,000279: 23,3026 77653 VAD*
048091,000280: 23,3027 02467 W +54D,1
048092,000281: 23,3030 02735 STORE HOLDW
048093,000282: 23,3031 57543 DLOAD* DCOMP # CALC MIDDLE 3X9 PARTITION OF W MATRIX
048094,000283: 23,3032 75134 ZI,2
048095,000284: 23,3033 74301 NORM VXSC
048096,000285: 23,3034 00052 S2
048097,000286: 23,3035 02721 OMEGAM2
048098,000287: 23,3036 71124 XCHX,2 LXC,2
048099,000288: 23,3037 00051 S2
048100,000289: 23,3040 00047 X2
048101,000290: 23,3041 53674 XAD,2 VSL*
048102,000291: 23,3042 02103 NORMGAM
048103,000292: 23,3043 57576 0,2
048104,000293: 23,3044 52724 XCHX,2 VAD*
048105,000294: 23,3045 00051 S2
048106,000295: 23,3046 02555 W +108D,1
048107,000296: 23,3047 02743 STORE HOLDW +6
048108,000297: 23,3050 77614 BOFF
048109,000298: 23,3051 02746 DMENFLG # BRANCH IF 6 DIMENSIONAL
048110,000299: 23,3052 47072 FAZB
048111,000300: 23,3053 57543 DLOAD* DCOMP # CALC LOWER 3X9 PARTITION OF W MATRIX
048112,000301: 23,3054 75134 ZI,2
048113,000302: 23,3055 74301 NORM VXSC
|
|
Page 1149
|
048115,000304: 23,3056 00052 S2
048116,000305: 23,3057 02727 OMEGAM3
048117,000306: 23,3060 71124 XCHX,2 LXC,2
048118,000307: 23,3061 00051 S2
048119,000308: 23,3062 00047 X2
048120,000309: 23,3063 53674 XAD,2 VSL*
048121,000310: 23,3064 02103 NORMGAM
048122,000311: 23,3065 57576 0,2
048123,000312: 23,3066 52724 XCHX,2 VAD*
048124,000313: 23,3067 00051 S2
048125,000314: 23,3070 02643 W +162D,1
048126,000315: 23,3071 02751 STORE HOLDW +12D
048127,000316: 23,3072 77624 FAZB CALL
048128,000317: 23,3073 11210 GRP2PC
048129,000318: 23,3074 77776 EXIT
048130,000319: 23,3075 31315 FAZB1 CA WIXA # START 2ND PHASE OF INCORP2 TO TRANSFER
048131,000320: 23,3076 63247 AD 6DD # TEMP REG TO PERM W MATRIX
048132,000321: 23,3077 55316 TS WIXB
048133,000322: 23,3100 31317 CA ZIXA
048134,000323: 23,3101 67751 AD MINUS2
048135,000324: 23,3102 55320 TS ZIXB
048136,000325: 23,3103 06042 TC INTPRET
048137,000326: 23,3104 66350 LXA,1 SSP
048138,000327: 23,3105 01315 WIXA
048139,000328: 23,3106 00051 S1
048140,000329: 23,3107 00006 6
048141,000330: 23,3110 77775 VLOAD
048142,000331: 23,3111 02735 HOLDW
048143,000332: 23,3112 06467 STORE W +54D,1
048144,000333: 23,3113 77775 VLOAD
048145,000334: 23,3114 02743 HOLDW +6
048146,000335: 23,3115 06555 STORE W +108D,1
048147,000336: 23,3116 77214 BOFF VLOAD
048148,000337: 23,3117 02746 DMENFLG
048149,000338: 23,3120 47130 FAZB5
048150,000339: 23,3121 02751 HOLDW +12D
048151,000340: 23,3122 06643 STORE W +162D,1
048152,000341: 23,3123 52100 FAZB2 TIX,1 GOTO
048153,000342: 23,3124 47126 +2
048154,000343: 23,3125 47136 FAZC # DONE WITH W MATRIX. UPDATE STATE VECTOR
048155,000344: 23,3126 77634 RTB
048156,000345: 23,3127 46773 FAZA
048157,000346: 23,3130 43335 FAZB5 SLOAD DAD
048158,000347: 23,3131 01321 ZIXB
048159,000348: 23,3132 07251 12DD
048160,000349: 23,3133 52030 BHIZ GOTO
048161,000350: 23,3134 47136 FAZC
048162,000351: 23,3135 47123 FAZB2
048163,000352: 23,3136 77624 FAZC CALL
048164,000353: 23,3137 11210 GRP2PC
|
|
Page 1150
|
048166,000355: 23,3140 53375 VLOAD VAD # START 3RD PHASE OF INCORP2
048167,000356: 23,3141 01701 X789 # 7TH,8TH,9TH,COMPONENT OF STATE VECTOR
048168,000357: 23,3142 02701 DELTAX +12D # INCORPORATION FOR X789
048169,000358: 23,3143 03472 STORE TX789
048170,000359: 23,3144 47014 BON RTB
048171,000360: 23,3145 00707 VEHUPFLG
048172,000361: 23,3146 47236 DOCSM
048173,000362: 23,3147 26767 MOVEPLEM
048174,000363: 23,3150 77004 FAZAB BOVB AXT,2
048175,000364: 23,3151 57754 TCDANZIG
048176,000365: 23,3152 00000 0
048177,000366: 23,3153 77014 BOFF AXT,2
048178,000367: 23,3154 04344 MOONTHIS
048179,000368: 23,3155 47157 +2
048180,000369: 23,3156 00002 2
048181,000370: 23,3157 53775 VLOAD VSR*
048182,000371: 23,3160 02665 DELTAX # B27 IF MOON ORBIT, B29 IF EARTH
048183,000372: 23,3161 57205 0 -7,2
048184,000373: 23,3162 40055 VAD BOV
048185,000374: 23,3163 01521 TDELTAV
048186,000375: 23,3164 47176 FAZAB1
048187,000376: 23,3165 25521 STOVL TDELTAV
048188,000377: 23,3166 02673 DELTAX +6 # B5 IF MOON ORBIT, B7 IF EARTH
048189,000378: 23,3167 53257 VSR* VAD
048190,000379: 23,3170 57202 0 -4,2
048191,000380: 23,3171 01527 TNUV
048192,000381: 23,3172 77600 BOV
048193,000382: 23,3173 47202 FAZAB2
048194,000383: 23,3174 35527 STCALL TNUV
048195,000384: 23,3175 47211 FAZAB3
048196,000385: 23,3176 53375 FAZAB1 VLOAD VAD
048197,000386: 23,3177 01535 RCV
048198,000387: 23,3200 02665 DELTAX
048199,000388: 23,3201 01535 STORE RCV
048200,000389: 23,3202 53375 FAZAB2 VLOAD VAD
048201,000390: 23,3203 01543 VCV
048202,000391: 23,3204 02673 DELTAX +6
048203,000392: 23,3205 01543 STORE VCV
048204,000393: 23,3206 45134 SXA,2 CALL
048205,000394: 23,3207 02030 PBODY
048206,000395: 23,3210 27671 RECTIFY
048207,000396: 23,3211 77624 FAZAB3 CALL
048208,000397: 23,3212 11210 GRP2PC
048209,000398: 23,3213 47014 BON RTB
048210,000399: 23,3214 00707 VEHUPFLG
048211,000400: 23,3215 47241 DOCSM1
048212,000401: 23,3216 26746 MOVEALEM
048213,000402: 23,3217 77624 CALL
048214,000403: 23,3220 26070 SVDWN2 # STORE DOWNLINK STATE VECTOR
048215,000404: 23,3221 77624 FAZAB4 CALL
|
|
Page 1151
|
048217,000406: 23,3222 11210 GRP2PC # PHASE CHANGE
048218,000407: 23,3223 77214 BOFF VLOAD
048219,000408: 23,3224 02746 DMENFLG
048220,000409: 23,3225 47230 FAZAB5 # 6 DIMENSIONAL
048221,000410: 23,3226 03472 TX789 # 9 DIMENSIONAL
048222,000411: 23,3227 01701 STORE X789
048223,000412: 23,3230 66150 FAZAB5 LXA,1 SXA,1
048224,000413: 23,3231 02772 EGRESS
048225,000414: 23,3232 00052 QPRET
048226,000415: 23,3233 77776 EXIT
048227,000416: 23,3234 04635 TC POSTJUMP # EXIT
048228,000417: 23,3235 27421 CADR INTWAKE
048229,000418: 23,3236 52034 DOCSM RTB GOTO
048230,000419: 23,3237 26722 MOVEPCSM
048231,000420: 23,3240 47150 FAZAB
048232,000421: 23,3241 45034 DOCSM1 RTB CALL
048233,000422: 23,3242 26673 MOVEACSM
048234,000423: 23,3243 26114 SVDWN1 # STORE DOWNLINK STATE VECTOR
048235,000424: 23,3244 77650 GOTO
048236,000425: 23,3245 47221 FAZAB4
048237,000426: 23,3246 23,2523 ZEROO = ZEROVECS
048238,000427: 23,3246 00066 54DD DEC 54 B-14
048239,000428: 23,3247 77771 6DD DEC -6 B-14
048240,000429: 23,3250 00014 12DD DEC 12 B-14
048241,000430:
048242,000431: 22,2000 SETLOC RENDEZ
048243,000432: 22,2000 BANK
048244,000433: 22,3711 COUNT* $$/INCOR
048245,000434:
048246,000435: 22,3711 51575 NEWZCOMP VLOAD ABVAL
048247,000436: 22,3712 02643 ZI
048248,000437: 22,3713 24045 STOVL NORMZI
048249,000438: 22,3714 02651 ZI +6
048250,000439: 22,3715 41446 ABVAL PUSH
048251,000440: 22,3716 50025 DSU BMN
048252,000441: 22,3717 00045 NORMZI
048253,000442: 22,3720 45723 +3
048254,000443: 22,3721 45545 DLOAD STADR
048255,000444: 22,3722 77732 STORE NORMZI
048256,000445: 22,3723 51575 VLOAD ABVAL
048257,000446: 22,3724 02657 ZI +12D
048258,000447: 22,3725 45206 PUSH DSU
048259,000448: 22,3726 00045 NORMZI
048260,000449: 22,3727 71240 BMN DLOAD
048261,000450: 22,3730 45733 +3
048262,000451: 22,3731 77626 STADR
048263,000452: 22,3732 77732 STORE NORMZI # LARGEST ABVAL
048264,000453: 22,3733 66145 DLOAD SXA,1
048265,000454: 22,3734 00045 NORMZI
048266,000455: 22,3735 00044 NORMZI # SAVE X1
048267,000456: 22,3736 62101 NORM INCR,1
|
|
Page 1152
|
048269,000458: 22,3737 00047 X1
048270,000459: 22,3740 00002 DEC 2 B-14
048271,000460: 22,3741 53775 VLOAD VSL*
048272,000461: 22,3742 02643 ZI
048273,000462: 22,3743 20201 0,1
048274,000463: 22,3744 26643 STOVL ZI
048275,000464: 22,3745 02651 ZI +6
048276,000465: 22,3746 77657 VSL*
048277,000466: 22,3747 20201 0,1
048278,000467: 22,3750 26651 STOVL ZI +6
048279,000468: 22,3751 02657 ZI +12D
048280,000469: 22,3752 66057 VSL* SXA,1
048281,000470: 22,3753 20201 0,1
048282,000471: 22,3754 00045 NORMZI +1 # SAVE SHIFT
048283,000472: 22,3755 02657 STORE ZI +12D
048284,000473: 22,3756 54150 LXA,1 XSU,1
048285,000474: 22,3757 02103 NORMGAM
048286,000475: 22,3760 00045 NORMZI +1
048287,000476: 22,3761 77660 XSU,1
048288,000477: 22,3762 00045 NORMZI +1
048289,000478: 22,3763 70130 SXA,1 LXC,1
048290,000479: 22,3764 02103 NORMGAM
048291,000480: 22,3765 00045 NORMZI +1
048292,000481: 22,3766 40270 XAD,1 SETPD
048293,000482: 22,3767 00044 NORMZI
048294,000483: 22,3770 00003 2D
048295,000484: 22,3771 77650 GOTO
048296,000485: 22,3772 46671 INCOR2 -3
048297,000486: 22,3773 NORMZI = 36D
048298,000487:
048299,000488:
End of include-file MEASUREMENT_INCORPORATION.agc. Parent file is MAIN.agc