Source Code

These source-code files were obtained by digitally photographing the Colossus 237 program listing from the private collection of original AGC developer Fred Martin, and then modifying pre-existing Colossus 249 (Apollo 9) source files to incorporate changes. Note that the page images presented online are of reduced quality, and that additional images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS 
	BY NASA 2021111-031  1:17 AUG. 24, 1968

051432,000002:                                                                                                 #  Copyright:    Public domain.
051433,000003:                                                                                                 #  Filename:      MEASUREMENT_INCORPORATION.agc
051434,000004:                                                                                                 #  Purpose:      Part of the source code for Colossus build 237.
051435,000005:                                                                                                 #                This is for the Command Module's (CM) Apollo Guidance
051436,000006:                                                                                                 #                Computer (AGC), we believe for Apollo 8.
051437,000007:                                                                                                 #  Assembler:    yaYUL
051438,000008:                                                                                                 #  Contact:      Jim Lawton <jim DOT lawton AT gmail DOT com>
051439,000009:                                                                                                 #  Website:      www.ibiblio.org/apollo/index.html
051440,000010:                                                                                                 #  Page scans:   www.ibiblio.org/apollo/ScansForConversion/Colossus237/
051441,000011:                                                                                                 #  Mod history:  2011-04-13 JL    Adapted from corresponding Colossus 249 file.
051442,000012:                                                                                                 #                 2011-04-27 JL   Removed 2 lines.
051443,000013: 
051444,000014:                                                                                                 # # Page 1219
051445,000015:                                                                                                 #   INCORP1--PERFORMS THE SIX DIMENSIONAL STATE VECTOR DEVIATION FOR POSITI
051446,000016:                                                                                                 #  ON AND VELOCITY OR THE NINE DIMENSIONAL DEVIATION OF POSITION,VELOCITY,A
051447,000017:                                                                                                 #  ND RADAR OR LANDMARK BIAS.THE OUTPUT OF THE BVECTOR ROUTINE ALONG WITH T
051448,000018:                                                                                                 #  HE ERROR TRANSITION MATRIX(W) ARE USED AS INPUT TO THE ROUTINE.THE DEVIA
051449,000019:                                                                                                 #  TION IS OBTAINED BY COMPUTING AN ESTIMATED TRACKING MEASUREMENT FROM THE
051450,000020:                                                                                                 #  CURRENT STATE VECTOR AND COMPARING IT WITH AN ACTUAL TRACKING MEASUREMEN
051451,000021:                                                                                                 #  T AND APPLYING A STATISTICAL WEIGHTING VECTOR.
051452,000022:                                                                                                 #  INPUT
051453,000023:                                                                                                 #      DMENFLG = 0 6DIMENSIONAL BVECTOR  1= 9DIMENSIONAL
051454,000024:                                                                                                 #             W = ERROR TRANSITION MATRIX 6X6 OR 9X9
051455,000025:                                                                                                 #      VARIANCE = VARIANCE (SCALAR)
051456,000026:                                                                                                 #        DELTAQ = MEASURED DEVIATION(SCALAR)
051457,000027:                                                                                                 #       BVECTOR = 6 OR 9 DIMENSIONAL BVECTOR
051458,000028: 
051459,000029:                                                                                                 #  OUTPUT
051460,000030:                                                                                                 #       DELTAX = STATE VECTOR DEVIATIONS 6 OR 9 DIMENSIONAL
051461,000031:                                                                                                 #           ZI = VECTOR USED FOR THE INCORPORATION 6 OR 9 DIMENSIONAL
051462,000032:                                                                                                 #      GAMMA = SCALAR
051463,000033:                                                                                                 #      OMEGA = OMEGA WEIGHTING VECTOR 6 OR 9 DIMENSIONAL
051464,000034:                                                                                                 #  CALLING SEQUENCE
051465,000035:                                                                                                 #     L  CALL INCORP1
051466,000036: 
051467,000037:                                                                                                 #  NORMAL EXIT
051468,000038: 
051469,000039:                                                                                                 #     L+1 OF CALLING SEQUENCE
051470,000040: 
051471,000041: 37,3700                                          BANK     37                                    
051472,000042: 36,2000                                          SETLOC   MEASINC                               
051473,000043: 36,2000                                          BANK                                           
051474,000044: 
051475,000045: 36,3250                                          COUNT*   $$/INCOR                              
051476,000046: 
051477,000047: 36,3250  0002400                                 EBANK=   W                                     
051478,000048: 
051479,000049: 36,3250           77620        INCORP1           STQ                                            
051480,000050: 36,3251           02317                                   EGRESS                                
051481,000051: 36,3252           66370                          AXT,1    SSP                                   
051482,000052: 36,3253           00066                                   54D                                   
051483,000053: 36,3254           00051                                   S1                                    
051484,000054: 36,3255           00022                                   18D                                   #  IX1 = 54  S1= 18
051485,000055: 36,3256           66374                          AXT,2    SSP                                   
051486,000056: 36,3257           00022                                   18D                                   
051487,000057: 36,3260           00052                                   S2                                    
051488,000058: 36,3261           00006                                   6                                     #  IX2 = 18  S2=6
051489,000059: 36,3262           63775        Z123              VLOAD    MXV*                                  
051490,000060: 36,3263           03502                                   BVECTOR                               #  BVECTOR (0)
051491,000061: 36,3264           02467                                   W          +54D,1                     
051492,000062: 36,3265           12745                          STORE    ZI         +18D,2                     
051493,000063: 36,3266           77775                          VLOAD                                          
051494,000064: 36,3267           03510                                   BVECTOR    +6                         #  BVECTOR (1)
051495,000065:                                                                                                 # # Page 1220
051496,000066: 36,3270           52717                          MXV*     VAD*                                  
051497,000067: 36,3271           02555                                   W          +108D,1                    
051498,000068: 36,3272           75032                                   ZI         +18D,2                     
051499,000069: 36,3273           12745                          STORE    ZI         +18D,2                     
051500,000070: 36,3274           77775                          VLOAD                                          
051501,000071: 36,3275           03516                                   BVECTOR    +12D                       #  BVECTOR (2)
051502,000072: 36,3276           52717                          MXV*     VAD*                                  
051503,000073: 36,3277           02643                                   W          +162D,1                    
051504,000074: 36,3300           75032                                   ZI         +18D,2                     #  B(0)*W+B(1)*(W+54)+B(2)*(W+108)FIRST PAS
051505,000075: 36,3301           12745                          STORE    ZI         +18D,2                     #  ZI THEN Z2 THEN Z3
051506,000076: 36,3302           77700                          TIX,1                                          
051507,000077: 36,3303           75304                                   INCOR1                                
051508,000078: 36,3304           43104        INCOR1            TIX,2    BON                                   
051509,000079: 36,3305           75262                                   Z123                                  #  LOOP FOR Z1,Z2,Z3
051510,000080: 36,3306           02706                                   DMENFLG                               
051511,000081: 36,3307           75313                                   INCOR1A                               
051512,000082: 36,3310           77775                          VLOAD                                          
051513,000083: 36,3311           15332                                   ZEROVECS                              
051514,000084: 36,3312           02737                          STORE    ZI         +12D                       
051515,000085: 36,3313           77201        INCOR1A           SETPD    VLOAD                                 
051516,000086: 36,3314           00001                                   0                                     
051517,000087: 36,3315           02723                                   ZI                                    
051518,000088: 36,3316           47036                          VSQ      RTB                                   
051519,000089: 36,3317           45562                                   TPMODE                                
051520,000090: 36,3320           47515                          PDVL     VSQ                                   
051521,000091: 36,3321           02731                                   ZI         +6                         
051522,000092: 36,3322           76234                          RTB      TAD                                   
051523,000093: 36,3323           45562                                   TPMODE                                
051524,000094: 36,3324           47515                          PDVL     VSQ                                   
051525,000095: 36,3325           02737                                   ZI         +12D                       
051526,000096: 36,3326           76234                          RTB      TAD                                   
051527,000097: 36,3327           45562                                   TPMODE                                
051528,000098: 36,3330           77171                          TAD      AXT,2                                 
051529,000099: 36,3331           03526                                   VARIANCE                              
051530,000100: 36,3332           00000                                   0                                     
051531,000101: 36,3333           01257                          STORE    TRIPA                                 #  ZI*2 + Z2*2 + Z3*2 + VARIANCE
051532,000102: 36,3334           40151                          TLOAD    BOV                                   
051533,000103: 36,3335           03526                                   VARIANCE                              #  CLEAR OVFIND
051534,000104: 36,3336           75337                                   +1                                    
051535,000105: 36,3337           01262                          STORE    TEMPVAR                               #  TEMP STORAGE FOR VARIANCE
051536,000106: 36,3340           77654                          BZE                                            
051537,000107: 36,3341           75350                                   INCOR1C                               
051538,000108: 36,3342           40112        INCOR1B           SL2      BOV                                   
051539,000109: 36,3343           75350                                   INCOR1C                               
051540,000110: 36,3344           01262                          STORE    TEMPVAR                               
051541,000111: 36,3345           52114                          INCR,2   GOTO                                  
051542,000112: 36,3346           00001                          DEC      1          B-14                       
051543,000113: 36,3347           75342                                   INCOR1B                               
051544,000114: 36,3350           61551        INCOR1C           TLOAD    ROUND                                 
051545,000115: 36,3351           01257                                   TRIPA                                 
051546,000116:                                                                                                 # # Page 1221
051547,000117: 36,3352           75405                          DMP      SQRT                                  
051548,000118: 36,3353           01262                                   TEMPVAR                               
051549,000119: 36,3354           76257                          SL*      TAD                                   
051550,000120: 36,3355           57576                                   0,2                                   
051551,000121: 36,3356           01257                                   TRIPA                                 
051552,000122: 36,3357           63101                          NORM     INCR,2                                
051553,000123: 36,3360           00050                                   X2                                    
051554,000124: 36,3361           77775                          DEC      -2         B-14                       
051555,000125: 36,3362           77134                          SXA,2    AXT,2                                 
051556,000126: 36,3363           02215                                   NORMGAM                               #  NORMALIZATION COUNT -2 FOR GAMMA
051557,000127: 36,3364           00242                                   162D                                  
051558,000128: 36,3365           40265                          BDDV     SETPD                                 
051559,000129: 36,3366           15322                                   DP1/4TH                               
051560,000130: 36,3367           00001                                   0                                     
051561,000131: 36,3370           03456                          STORE    GAMMA                                 
051562,000132: 36,3371           60351                          TLOAD    NORM                                  
051563,000133: 36,3372           01257                                   TRIPA                                 
051564,000134: 36,3373           00047                                   X1                                    
051565,000135: 36,3374           65345                          DLOAD    PDDL                                  #  PD 0-1 = NORM (A)
051566,000136: 36,3375           00155                                   MPAC                                  
051567,000137: 36,3376           03524                                   DELTAQ                                
051568,000138: 36,3377           77701                          NORM                                           
051569,000139: 36,3400           00051                                   S1                                    
051570,000140: 36,3401           70460                          XSU,1    SR1                                   
051571,000141: 36,3402           00050                                   S1                                    
051572,000142: 36,3403           41471                          DDV      PUSH                                  #  PD 0-1 = DELTAQ/A
051573,000143: 36,3404           77731                          SSP                                            
051574,000144: 36,3405           00052                                   S2                                    
051575,000145: 36,3406           00066                                   54D                                   
051576,000146: 36,3407           60775        INCOR2            VLOAD    VXM*                                  #  COMPUTE OMEGA1,2,3
051577,000147: 36,3410           02723                                   ZI                                    
051578,000148: 36,3411           75134                                   W          +162D,2                    
051579,000149: 36,3412           77206                          PUSH     VLOAD                                 
051580,000150: 36,3413           02731                                   ZI         +6                         
051581,000151: 36,3414           53303                          VXM*     VAD                                   
051582,000152: 36,3415           75112                                   W          +180D,2                    
051583,000153: 36,3416           77206                          PUSH     VLOAD                                 
051584,000154: 36,3417           02737                                   ZI         +12D                       
051585,000155: 36,3420           53303                          VXM*     VAD                                   
051586,000156: 36,3421           75070                                   W          +198D,2                    
051587,000157: 36,3422           61006                          PUSH     TIX,2                                 #  PD 2-7=OMEGA1,8-13=OMEGA2,14-19=OMEGA3
051588,000158: 36,3423           75407                                   INCOR2                                
051589,000159: 36,3424           45575                          VLOAD    STADR                                 
051590,000160: 36,3425           74303                          STORE    OMEGA      +12D                       
051591,000161: 36,3426           45575                          VLOAD    STADR                                 
051592,000162: 36,3427           74311                          STORE    OMEGA      +6                         
051593,000163: 36,3430           45575                          VLOAD    STADR                                 
051594,000164: 36,3431           74317                          STORE    OMEGA                                 
051595,000165: 36,3432           77214                          BON      VLOAD                                 
051596,000166: 36,3433           02706                                   DMENFLG                               
051597,000167:                                                                                                 # # Page 1222
051598,000168: 36,3434           75437                                   INCOR2AB                              
051599,000169: 36,3435           15332                                   ZEROVECS                              
051600,000170: 36,3436           03474                          STORE    OMEGA      +12D                       
051601,000171: 36,3437           66374        INCOR2AB          AXT,2    SSP                                   
051602,000172: 36,3440           00022                                   18D                                   
051603,000173: 36,3441           00052                                   S2                                    
051604,000174: 36,3442           00006                                   6                                     
051605,000175: 36,3443           77773        INCOR3            VLOAD*                                         
051606,000176: 36,3444           74275                                   OMEGA      +18D,2                     
051607,000177: 36,3445           53761                          VXSC     VSL*                                  
051608,000178: 36,3446           00001                                   0                                     #  DELTAQ/A
051609,000179: 36,3447           20201                                   0,1                                   
051610,000180: 36,3450           11301                          STORE    DELTAX     +18D,2                     
051611,000181: 36,3451           77304                          TIX,2    VLOAD                                 
051612,000182: 36,3452           75443                                   INCOR3                                
051613,000183: 36,3453           01265                                   DELTAX     +6                         
051614,000184: 36,3454           77732                          VSL3                                           
051615,000185: 36,3455           01265                          STORE    DELTAX     +6                         
051616,000186: 36,3456           77650                          GOTO                                           
051617,000187: 36,3457           02317                                   EGRESS                                
051618,000188: 
051619,000189:                                                                                                 # # Page 1223
051620,000190:                                                                                                 #   INCORP2 -INCORPORATES THE COMPUTED STATE VECTOR DEVIATIONS INTO THE
051621,000191:                                                                                                 #  ESTIMATED STATE VECTOR. THE STATE VECTOR UPDATED MAY BE FOR EITHER THE
051622,000192:                                                                                                 #  LEM OR THE CSM.DETERMINED BY FLAG VEHUPFLG.(ZERO = LEM) (1 = CSM)
051623,000193:                                                                                                 #  INPUT
051624,000194:                                                                                                 #     PERMANENT STATE VECTOR FOR EITHER THE LEM OR CSM
051625,000195:                                                                                                 #     VEHUPFLG = UPDATE VEHICLE 0=LEM  1=CSM
051626,000196:                                                                                                 #     W =        ERROR TRANSITION MATRIX
051627,000197:                                                                                                 #     DELTAX  =  COMPUTED STATE VECTOR DEVIATIONS
051628,000198:                                                                                                 #     DMENFLG =  SIZE OF W MATRIX (ZERO =6X6) (1=9X9)
051629,000199:                                                                                                 #     GAMMA   =  SCALAR FOR INCORPORATION
051630,000200:                                                                                                 #     ZI      =  VECTOR USED IN INCORPORATION
051631,000201:                                                                                                 #     OMEGA   =  WEIGHTING VECTOR
051632,000202: 
051633,000203:                                                                                                 #  OUTPUT
051634,000204:                                                                                                 #     UPDATED PERMANENT STATE VECTOR
051635,000205: 
051636,000206:                                                                                                 #  CALLING SEQUENCE
051637,000207:                                                                                                 #     L  CALL INCORP2
051638,000208: 
051639,000209:                                                                                                 #  NORMAL EXIT
051640,000210:                                                                                                 #     L+1 OF CALLING SEQUENCE
051641,000211: 
051642,000212: 36,2000                                          SETLOC   MEASINC1                              
051643,000213: 36,2000                                          BANK                                           
051644,000214: 
051645,000215: 36,3460                                          COUNT*   $$/INCOR                              
051646,000216: 
051647,000217: 36,3460           45020        INCORP2           STQ      CALL                                  
051648,000218: 36,3461           02317                                   EGRESS                                
051649,000219: 36,3462           27371                                   INTSTALL                              
051650,000220: 36,3463           74375                          VLOAD    VXSC                                  #  CALC. GAMMA * OMEGA1,2,3
051651,000221: 36,3464           03460                                   OMEGA                                 
051652,000222: 36,3465           03456                                   GAMMA                                 
051653,000223: 36,3466           26643                          STOVL    OMEGAM1                               
051654,000224: 36,3467           03466                                   OMEGA      +6                         
051655,000225: 36,3470           77761                          VXSC                                           
051656,000226: 36,3471           03456                                   GAMMA                                 
051657,000227: 36,3472           26651                          STOVL    OMEGAM2                               
051658,000228: 36,3473           03474                                   OMEGA      +12D                       
051659,000229: 36,3474           77761                          VXSC                                           
051660,000230: 36,3475           03456                                   GAMMA                                 
051661,000231: 36,3476           02657                          STORE    OMEGAM3                               
051662,000232: 36,3477           77776                          EXIT                                           
051663,000233: 36,3500           33761                          CAF      54DD                                  #  INITIAL IX 1 SETTING FOR W MATRIX
051664,000234: 36,3501           55252                          TS       WIXA                                  
051665,000235: 36,3502           55253                          TS       WIXB                                  
051666,000236: 36,3503           34714                          CAF      ZERO                                  
051667,000237: 36,3504           55254                          TS       ZIXA                                  #  INITIAL IX 2 SETTING FOR Z COMPONENT
051668,000238: 36,3505           55255                          TS       ZIXB                                  
051669,000239: 36,3506           05301        FAZA              TC       PHASCHNG                              
051670,000240:                                                                                                 # # Page 1224
051671,000241: 36,3507           04022                          OCT      04022                                 
051672,000242: 36,3510           05435                          TC       UPFLAG                                
051673,000243: 36,3511           00236                          ADRES    REINTFLG                              
051674,000244: 36,3512           31253        FAZA1             CA       WIXB                                  #  START FIRST PHASE OF INCORP2
051675,000245: 36,3513           55252                          TS       WIXA                                  #   TO UPDATE 6 OR 9 DIM. W MATRIX IN TEMP
051676,000246: 36,3514           31255                          CA       ZIXB                                  
051677,000247: 36,3515           55254                          TS       ZIXA                                  
051678,000248: 36,3516           06006                          TC       INTPRET                               
051679,000249: 36,3517           73150                          LXA,1    LXA,2                                 
051680,000250: 36,3520           01252                                   WIXA                                  
051681,000251: 36,3521           01254                                   ZIXA                                  
051682,000252: 36,3522           70731                          SSP      DLOAD*                                
051683,000253: 36,3523           00051                                   S1                                    
051684,000254: 36,3524           00006                                   6                                     
051685,000255: 36,3525           75054                                   ZI,2                                  
051686,000256: 36,3526           60276                          DCOMP    NORM                                  #  CALC UPPER 3X9 PARTITION OF W MATRIX
051687,000257: 36,3527           00052                                   S2                                    
051688,000258: 36,3530           65161                          VXSC     XCHX,2                                
051689,000259: 36,3531           02643                                   OMEGAM1                               
051690,000260: 36,3532           00051                                   S2                                    
051691,000261: 36,3533           57144                          LXC,2    XAD,2                                 
051692,000262: 36,3534           00047                                   X2                                    
051693,000263: 36,3535           02215                                   NORMGAM                               
051694,000264: 36,3536           65057                          VSL*     XCHX,2                                
051695,000265: 36,3537           57576                                   0,2                                   
051696,000266: 36,3540           00051                                   S2                                    
051697,000267: 36,3541           77653                          VAD*                                           
051698,000268: 36,3542           02467                                   W          +54D,1                     
051699,000269: 36,3543           02665                          STORE    HOLDW                                 
051700,000270: 36,3544           57543                          DLOAD*   DCOMP                                 #  CALC MIDDLE 3X9 PARTITION OF W MATRIX
051701,000271: 36,3545           75054                                   ZI,2                                  
051702,000272: 36,3546           74301                          NORM     VXSC                                  
051703,000273: 36,3547           00052                                   S2                                    
051704,000274: 36,3550           02651                                   OMEGAM2                               
051705,000275: 36,3551           71124                          XCHX,2   LXC,2                                 
051706,000276: 36,3552           00051                                   S2                                    
051707,000277: 36,3553           00047                                   X2                                    
051708,000278: 36,3554           53674                          XAD,2    VSL*                                  
051709,000279: 36,3555           02215                                   NORMGAM                               
051710,000280: 36,3556           57576                                   0,2                                   
051711,000281: 36,3557           52724                          XCHX,2   VAD*                                  
051712,000282: 36,3560           00051                                   S2                                    
051713,000283: 36,3561           02555                                   W          +108D,1                    
051714,000284: 36,3562           02673                          STORE    HOLDW      +6                         
051715,000285: 36,3563           77614                          BOFF                                           
051716,000286: 36,3564           02746                                   DMENFLG                               #  BRANCH IF 6 DIMENSIONAL
051717,000287: 36,3565           75605                                   FAZB                                  
051718,000288: 36,3566           57543                          DLOAD*   DCOMP                                 #  CALC LOWER 3X9 PARTITION OF W MATRIX
051719,000289: 36,3567           75054                                   ZI,2                                  
051720,000290: 36,3570           74301                          NORM     VXSC                                  
051721,000291:                                                                                                 # # Page 1225
051722,000292: 36,3571           00052                                   S2                                    
051723,000293: 36,3572           02657                                   OMEGAM3                               
051724,000294: 36,3573           71124                          XCHX,2   LXC,2                                 
051725,000295: 36,3574           00051                                   S2                                    
051726,000296: 36,3575           00047                                   X2                                    
051727,000297: 36,3576           53674                          XAD,2    VSL*                                  
051728,000298: 36,3577           02215                                   NORMGAM                               
051729,000299: 36,3600           57576                                   0,2                                   
051730,000300: 36,3601           52724                          XCHX,2   VAD*                                  
051731,000301: 36,3602           00051                                   S2                                    
051732,000302: 36,3603           02643                                   W          +162D,1                    
051733,000303: 36,3604           02701                          STORE    HOLDW      +12D                       
051734,000304: 36,3605           77624        FAZB              CALL                                           
051735,000305: 36,3606           56712                                   GRP2PC                                
051736,000306: 36,3607           77776                          EXIT                                           
051737,000307: 36,3610           31252        FAZB1             CA       WIXA                                  #  START 2ND PHASE OF INCORP2 TO TRANSFER
051738,000308: 36,3611           63762                          AD       6DD                                   #      TEMP REG TO PERM W MATRIX
051739,000309: 36,3612           55253                          TS       WIXB                                  
051740,000310: 36,3613           31254                          CA       ZIXA                                  
051741,000311: 36,3614           67715                          AD       MINUS2                                
051742,000312: 36,3615           55255                          TS       ZIXB                                  
051743,000313: 36,3616           06006                          TC       INTPRET                               
051744,000314: 36,3617           66350                          LXA,1    SSP                                   
051745,000315: 36,3620           01252                                   WIXA                                  
051746,000316: 36,3621           00051                                   S1                                    
051747,000317: 36,3622           00006                                   6                                     
051748,000318: 36,3623           77775                          VLOAD                                          
051749,000319: 36,3624           02665                                   HOLDW                                 
051750,000320: 36,3625           06467                          STORE    W          +54D,1                     
051751,000321: 36,3626           77775                          VLOAD                                          
051752,000322: 36,3627           02673                                   HOLDW      +6                         
051753,000323: 36,3630           06555                          STORE    W          +108D,1                    
051754,000324: 36,3631           77214                          BOFF     VLOAD                                 
051755,000325: 36,3632           02746                                   DMENFLG                               
051756,000326: 36,3633           75643                                   FAZB5                                 
051757,000327: 36,3634           02701                                   HOLDW      +12D                       
051758,000328: 36,3635           06643                          STORE    W          +162D,1                    
051759,000329: 36,3636           52100        FAZB2             TIX,1    GOTO                                  
051760,000330: 36,3637           75641                                   +2                                    
051761,000331: 36,3640           75651                                   FAZC                                  #  DONE WITH W MATRIX. UPDATE STATE VECTOR
051762,000332: 36,3641           77634                          RTB                                            
051763,000333: 36,3642           75506                                   FAZA                                  
051764,000334: 36,3643           43335        FAZB5             SLOAD    DAD                                   
051765,000335: 36,3644           01256                                   ZIXB                                  
051766,000336: 36,3645           35764                                   12DD                                  
051767,000337: 36,3646           52030                          BHIZ     GOTO                                  
051768,000338: 36,3647           75651                                   FAZC                                  
051769,000339: 36,3650           75636                                   FAZB2                                 
051770,000340: 36,3651           77624        FAZC              CALL                                           
051771,000341: 36,3652           56712                                   GRP2PC                                
051772,000342:                                                                                                 # # Page 1226
051773,000343: 36,3653           53375                          VLOAD    VAD                                   #  START 3RD PHASE OF INCORP2
051774,000344: 36,3654           01701                                   X789                                  #  7TH,8TH,9TH,COMPONENT OF STATE VECTOR
051775,000345: 36,3655           01273                                   DELTAX     +12D                       #  INCORPORATION FOR X789
051776,000346: 36,3656           03450                          STORE    TX789                                 
051777,000347: 36,3657           47014                          BON      RTB                                   
051778,000348: 36,3660           00707                                   VEHUPFLG                              
051779,000349: 36,3661           75751                                   DOCSM                                 
051780,000350: 36,3662           26745                                   MOVEPLEM                              
051781,000351: 36,3663           77004        FAZAB             BOVB     AXT,2                                 
051782,000352: 36,3664           57314                                   TCDANZIG                              
051783,000353: 36,3665           00000                                   0                                     
051784,000354: 36,3666           77014                          BOFF     AXT,2                                 
051785,000355: 36,3667           04343                                   MOONTHIS                              
051786,000356: 36,3670           75672                                   +2                                    
051787,000357: 36,3671           00002                                   2                                     
051788,000358: 36,3672           53775                          VLOAD    VSR*                                  
051789,000359: 36,3673           01257                                   DELTAX                                #  B27 IF MOON ORBIT, B29 IF EARTH
051790,000360: 36,3674           57205                                   0          -7,2                       
051791,000361: 36,3675           40055                          VAD      BOV                                   
051792,000362: 36,3676           01521                                   TDELTAV                               
051793,000363: 36,3677           75711                                   FAZAB1                                
051794,000364: 36,3700           25521                          STOVL    TDELTAV                               
051795,000365: 36,3701           01265                                   DELTAX     +6                         #  B5 IF MOON ORBIT, B7 IF EARTH
051796,000366: 36,3702           53257                          VSR*     VAD                                   
051797,000367: 36,3703           57202                                   0          -4,2                       
051798,000368: 36,3704           01527                                   TNUV                                  
051799,000369: 36,3705           77600                          BOV                                            
051800,000370: 36,3706           75715                                   FAZAB2                                
051801,000371: 36,3707           35527                          STCALL   TNUV                                  
051802,000372: 36,3710           75724                                   FAZAB3                                
051803,000373: 36,3711           53375        FAZAB1            VLOAD    VAD                                   
051804,000374: 36,3712           01535                                   RCV                                   
051805,000375: 36,3713           01257                                   DELTAX                                
051806,000376: 36,3714           01535                          STORE    RCV                                   
051807,000377: 36,3715           53375        FAZAB2            VLOAD    VAD                                   
051808,000378: 36,3716           01543                                   VCV                                   
051809,000379: 36,3717           01265                                   DELTAX     +6                         
051810,000380: 36,3720           01543                          STORE    VCV                                   
051811,000381: 36,3721           45134                          SXA,2    CALL                                  
051812,000382: 36,3722           02150                                   PBODY                                 
051813,000383: 36,3723           23344                                   RECTIFY                               
051814,000384: 36,3724           77624        FAZAB3            CALL                                           
051815,000385: 36,3725           56712                                   GRP2PC                                
051816,000386: 36,3726           47014                          BON      RTB                                   
051817,000387: 36,3727           00707                                   VEHUPFLG                              
051818,000388: 36,3730           75754                                   DOCSM1                                
051819,000389: 36,3731           26724                                   MOVEALEM                              
051820,000390: 36,3732           77624                          CALL                                           
051821,000391: 36,3733           20263                                   SVDWN2                                #  STORE DOWNLINK STATE VECTOR
051822,000392: 36,3734           77624        FAZAB4            CALL                                           
051823,000393:                                                                                                 # # Page 1227
051824,000394: 36,3735           56712                                   GRP2PC                                #  PHASE CHANGE
051825,000395: 36,3736           77214                          BOFF     VLOAD                                 
051826,000396: 36,3737           02746                                   DMENFLG                               
051827,000397: 36,3740           75743                                   FAZAB5                                #  6 DIMENSIONAL
051828,000398: 36,3741           03450                                   TX789                                 #  9 DIMENSIONAL
051829,000399: 36,3742           01701                          STORE    X789                                  
051830,000400: 36,3743           66150        FAZAB5            LXA,1    SXA,1                                 
051831,000401: 36,3744           02317                                   EGRESS                                
051832,000402: 36,3745           00052                                   QPRET                                 
051833,000403: 36,3746           77776                          EXIT                                           
051834,000404: 36,3747           04574                          TC       POSTJUMP                              #  EXIT
051835,000405: 36,3750           27406                          CADR     INTWAKE                               
051836,000406: 36,3751           52034        DOCSM             RTB      GOTO                                  
051837,000407: 36,3752           26700                                   MOVEPCSM                              
051838,000408: 36,3753           75663                                   FAZAB                                 
051839,000409: 36,3754           45034        DOCSM1            RTB      CALL                                  
051840,000410: 36,3755           26651                                   MOVEACSM                              
051841,000411: 36,3756           20237                                   SVDWN1                                #  STORE DOWNLINK STATE VECTOR
051842,000412: 36,3757           77650                          GOTO                                           
051843,000413: 36,3760           75734                                   FAZAB4                                
051844,000414: 36,3761  26,3331               ZEROD             =        ZEROVECS                              
051845,000415: 36,3761           00066        54DD              DEC      54         B-14                       
051846,000416: 36,3762           77771        6DD               DEC      -6         B-14                       
051847,000417: 36,3763           00014        12DD              DEC      12         B-14                       

End of include-file MEASUREMENT_INCORPORATION.agc.  Parent file is MAIN.agc