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,1970
Note 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