Source Code

This is the source-code for the Apollo 9 Command Module's Guidance Computer. These files were derived originally from the scan from MIT's Dibner Institute's now-discontinued website titled "History of Recent Science and Technology", which in turn was originally created by Gary Neff, though his high-quality scans were unfortunately reduced in legibility when presented online. The markings on the front of the printout imply that it was the original AGC developer Norm Brodeur's copy. A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original AGC developer Fred Martin. The source code was transcribed from those images by Ron Burkey. Note that the page images presented online are of reduced quality, and that higher-quality 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:

	ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041
	20'35 OCT. 28,1968
Note that the date is the date of the printout, not the date of the program revision.

053413,000002:                                                                                                  ## Copyright:   Public domain.
053414,000003:                                                                                                  ## Filename:    MEASUREMENT_INCORPORATION.agc
053415,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus, build 249.
053416,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
053417,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 9.
053418,000007:                                                                                                  ## Assembler:   yaYUL
053419,000008:                                                                                                  ## Reference:   Begins on p. 1222
053420,000009:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
053421,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo.
053422,000011:                                                                                                  ## Mod history: 08/28/04 RSB.   Adapted from corresponding Luminary131 file.
053423,000012:                                                                                                  ##              2010-10-24 JL   Indentation fixes.
053424,000013:                                                                                                  ##              2017-01-06 RSB  Page numbers now agree with those on the
053425,000014:                                                                                                  ##                              original harcopy, as opposed to the PDF page
053426,000015:                                                                                                  ##                              numbers in 1701.pdf.
053427,000016:                                                                                                  ##              2017-01-15 RSB  Cross-diff'd comment text (not whitespace)
053428,000017:                                                                                                  ##                              vs the already-proofed corresponding Colossus
053429,000018:                                                                                                  ##                              237 and Comanche 55 source-code files
053430,000019:                                                                                                  ##                              and corrected errors found.  No comment-text
053431,000020:                                                                                                  ##                              differences remained vs Comanche 55
053432,000021:                                                                                                  ##                              at the end, but there were differences vs
053433,000022:                                                                                                  ##                              Colossus 237.
053434,000023:                                                                                                  ##
053435,000024:                                                                                                  ## The contents of the "Colossus249" files, in general, are transcribed 
053436,000025:                                                                                                  ## from a scanned copy of the program listing.  Notations on this
053437,000026:                                                                                                  ## document read, in part:
053438,000027:                                                                                                  ##
053439,000028:                                                                                                  ##      Assemble revision 249 of AGC program Colossus by NASA
053440,000029:                                                                                                  ##      2021111-041.  October 28, 1968.  
053441,000030:                                                                                                  ##
053442,000031:                                                                                                  ##      This AGC program shall also be referred to as
053443,000032:                                                                                                  ##                              Colossus 1A
053444,000033:                                                                                                  ##
053445,000034:                                                                                                  ##      Prepared by
053446,000035:                                                                                                  ##                      Massachusetts Institute of Technology
053447,000036:                                                                                                  ##                      75 Cambridge Parkway
053448,000037:                                                                                                  ##                      Cambridge, Massachusetts
053449,000038:                                                                                                  ##      under NASA contract NAS 9-4065.
053450,000039:                                                                                                  ##
053451,000040:                                                                                                  ## Refer directly to the online document mentioned above for further information.
053452,000041:                                                                                                  ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
053453,000042:                                                                                                  ##
053454,000043:                                                                                                  ## In some cases, where the source code for Luminary 131 overlaps that of 
053455,000044:                                                                                                  ## Colossus 249, this code is instead copied from the corresponding Luminary 131
053456,000045:                                                                                                  ## source file, and then is proofed to incorporate any changes.
053457,000046: 

Page 1222

053459,000048:                                                                                                  #  INCORP1--PERFORMS THE SIX DIMENSIONAL STATE VECTOR DEVIATION FOR POSITI
053460,000049:                                                                                                  #  ON AND VELOCITY OR THE NINE DIMENSIONAL DEVIATION OF POSITION,VELOCITY,A
053461,000050:                                                                                                  #  ND RADAR OR LANDMARK BIAS.THE OUTPUT OF THE BVECTOR ROUTINE ALONG WITH T
053462,000051:                                                                                                  #  HE ERROR TRANSITION MATRIX(W) ARE USED AS INPUT TO THE ROUTINE.THE DEVIA
053463,000052:                                                                                                  #  TION IS OBTAINED BY COMPUTING AN ESTIMATED TRACKING MEASUREMENT FROM THE
053464,000053:                                                                                                  #  CURRENT STATE VECTOR AND COMPARING IT WITH AN ACTUAL TRACKING MEASUREMEN
053465,000054:                                                                                                  #  T AND APPLYING A STATISTICAL WEIGHTING VECTOR.
053466,000055: 
053467,000056:                                                                                                  #  INPUT
053468,000057:                                                                                                  #         DMENFLG = 0  6DIMENSIONAL BVECTOR 1= 9DIMENSIONAL
053469,000058:                                                                                                  #               W = ERROR TRANSITION MATRIX 6X6 OR 9X9
053470,000059:                                                                                                  #        VARIANCE = VARIANCE (SCALAR)
053471,000060:                                                                                                  #          DELTAQ = MEASURED DEVIATION (SCALAR)
053472,000061:                                                                                                  #         BVECTOR = 6 OR 9 DIMENSIONAL BVECTOR
053473,000062: 
053474,000063:                                                                                                  #  OUTPUT
053475,000064:                                                                                                  #          DELTAX = STATE VECTOR DEVIATIONS 6 OR 9 DIMENSIONAL
053476,000065:                                                                                                  #              ZI = VECTOR USED FOR THE INCORPORATION 6 OR 9 DIMENSIONAL
053477,000066:                                                                                                  #           GAMMA = SCALAR
053478,000067:                                                                                                  #           OMEGA = OMEGA WEIGHTING VECTOR 6 OR 9 DIMENTIONAL
053479,000068: 
053480,000069:                                                                                                  #  CALLING SEQUENCE
053481,000070:                                                                                                  #        L       CALL    INCORP1
053482,000071: 
053483,000072:                                                                                                  #  NORMAL EXIT
053484,000073:                                                                                                  #        L+1 OF CALLING SEQUENCE
053485,000074: 
053486,000075: 37,3676                                           BANK     37                                    
053487,000076: 36,2000                                           SETLOC   MEASINC                               
053488,000077: 36,2000                                           BANK                                           
053489,000078: 
053490,000079: 36,3250                                           COUNT*   $$/INCOR                              
053491,000080: 
053492,000081: 36,3250  E5,1400                                  EBANK=   W                                     
053493,000082: 
053494,000083: 36,3250           77620        INCORP1            STQ                                            
053495,000084: 36,3251           02317                                    EGRESS                                
053496,000085: 36,3252           66370                           AXT,1    SSP                                   
053497,000086: 36,3253           00066                                    54D                                   
053498,000087: 36,3254           00051                                    S1                                    
053499,000088: 36,3255           00022                                    18D                                   #  IX1 = 54      S1= 18
053500,000089: 36,3256           66374                           AXT,2    SSP                                   
053501,000090: 36,3257           00022                                    18D                                   
053502,000091: 36,3260           00052                                    S2                                    
053503,000092: 36,3261           00006                                    6                                     #  IX2 = 18      S2=6
053504,000093: 36,3262           63775        Z123               VLOAD    MXV*                                  
053505,000094: 36,3263           03502                                    BVECTOR                               #  BVECTOR (0)
053506,000095: 36,3264           02467                                    W          +54D,1                     
053507,000096: 36,3265           12745                           STORE    ZI         +18D,2                     
053508,000097: 36,3266           77775                           VLOAD                                          
053509,000098: 36,3267           03510                                    BVECTOR    +6                         #  BVECTOR (1)

Page 1223

053511,000100: 36,3270           52717                           MXV*     VAD*                                  
053512,000101: 36,3271           02555                                    W          +108D,1                    
053513,000102: 36,3272           75032                                    ZI         +18D,2                     
053514,000103: 36,3273           12745                           STORE    ZI         +18D,2                     
053515,000104: 36,3274           77775                           VLOAD                                          
053516,000105: 36,3275           03516                                    BVECTOR    +12D                       #  BVECTOR (2)
053517,000106: 36,3276           52717                           MXV*     VAD*                                  
053518,000107: 36,3277           02643                                    W          +162D,1                    
053519,000108: 36,3300           75032                                    ZI         +18D,2                     #  B(0)*W+B(1)*(W+54)+B(2)*(W+108) FIRST PAS
053520,000109: 36,3301           12745                           STORE    ZI         +18D,2                     #  ZI THEN Z2 THEN Z3
053521,000110: 36,3302           77700                           TIX,1                                          
053522,000111: 36,3303           75304                                    INCOR1                                
053523,000112: 36,3304           43104        INCOR1             TIX,2    BON                                   
053524,000113: 36,3305           75262                                    Z123                                  #  LOOP FOR Z1,Z2,Z3
053525,000114: 36,3306           02706                                    DMENFLG                               
053526,000115: 36,3307           75313                                    INCOR1A                               
053527,000116: 36,3310           77775                           VLOAD                                          
053528,000117: 36,3311           15332                                    ZEROVECS                              
053529,000118: 36,3312           02737                           STORE    ZI         +12D                       
053530,000119: 36,3313           77201        INCOR1A            SETPD    VLOAD                                 
053531,000120: 36,3314           00001                                    0                                     
053532,000121: 36,3315           02723                                    ZI                                    
053533,000122: 36,3316           47036                           VSQ      RTB                                   
053534,000123: 36,3317           45562                                    TPMODE                                
053535,000124: 36,3320           47515                           PDVL     VSQ                                   
053536,000125: 36,3321           02731                                    ZI         +6                         
053537,000126: 36,3322           76234                           RTB      TAD                                   
053538,000127: 36,3323           45562                                    TPMODE                                
053539,000128: 36,3324           47515                           PDVL     VSQ                                   
053540,000129: 36,3325           02737                                    ZI         +12D                       
053541,000130: 36,3326           76234                           RTB      TAD                                   
053542,000131: 36,3327           45562                                    TPMODE                                
053543,000132: 36,3330           77171                           TAD      AXT,2                                 
053544,000133: 36,3331           03526                                    VARIANCE                              
053545,000134: 36,3332           00000                                    0                                     
053546,000135: 36,3333           01257                           STORE    TRIPA                                 #  ZI*2 + Z2*2 + Z3*2 + VARIANCE
053547,000136: 36,3334           40151                           TLOAD    BOV                                   
053548,000137: 36,3335           03526                                    VARIANCE                              #  CLEAR OVFIND
053549,000138: 36,3336           75337                                    +1                                    
053550,000139: 36,3337           01262                           STORE    TEMPVAR                               #  TEMP STORAGE FOR VARIANCE
053551,000140: 36,3340           77654                           BZE                                            
053552,000141: 36,3341           75350                                    INCOR1C                               
053553,000142: 36,3342           40112        INCOR1B            SL2      BOV                                   
053554,000143: 36,3343           75350                                    INCOR1C                               
053555,000144: 36,3344           01262                           STORE    TEMPVAR                               
053556,000145: 36,3345           52114                           INCR,2   GOTO                                  
053557,000146: 36,3346           00001                           DEC      1          B-14                       
053558,000147: 36,3347           75342                                    INCOR1B                               
053559,000148: 36,3350           61551        INCOR1C            TLOAD    ROUND                                 
053560,000149: 36,3351           01257                                    TRIPA                                 

Page 1224

053562,000151: 36,3352           75405                           DMP      SQRT                                  
053563,000152: 36,3353           01262                                    TEMPVAR                               
053564,000153: 36,3354           76257                           SL*      TAD                                   
053565,000154: 36,3355           57576                                    0,2                                   
053566,000155: 36,3356           01257                                    TRIPA                                 
053567,000156: 36,3357           63101                           NORM     INCR,2                                
053568,000157: 36,3360           00050                                    X2                                    
053569,000158: 36,3361           77775                           DEC      -2         B-14                       
053570,000159: 36,3362           77134                           SXA,2    AXT,2                                 
053571,000160: 36,3363           02215                                    NORMGAM                               #  NORMALIZATION COUNT -2 FOR GAMMA
053572,000161: 36,3364           00242                                    162D                                  
053573,000162: 36,3365           40265                           BDDV     SETPD                                 
053574,000163: 36,3366           15322                                    DP1/4TH                               
053575,000164: 36,3367           00001                                    0                                     
053576,000165: 36,3370           03456                           STORE    GAMMA                                 
053577,000166: 36,3371           60351                           TLOAD    NORM                                  
053578,000167: 36,3372           01257                                    TRIPA                                 
053579,000168: 36,3373           00047                                    X1                                    
053580,000169: 36,3374           65345                           DLOAD    PDDL                                  #  PD 0-1 = NORM (A)
053581,000170: 36,3375           00155                                    MPAC                                  
053582,000171: 36,3376           03524                                    DELTAQ                                
053583,000172: 36,3377           77701                           NORM                                           
053584,000173: 36,3400           00051                                    S1                                    
053585,000174: 36,3401           70460                           XSU,1    SR1                                   
053586,000175: 36,3402           00050                                    S1                                    
053587,000176: 36,3403           41471                           DDV      PUSH                                  #  PD 0-1 = DELTAQ/A
053588,000177: 36,3404           77650                           GOTO                                           
053589,000178: 36,3405           77676                                    NEWZCOMP                              
053590,000179: 36,3406           77731                 -3        SSP                                            
053591,000180: 36,3407           00052                                    S2                                    
053592,000181: 36,3410           00066                                    54D                                   
053593,000182: 36,3411           60775        INCOR2             VLOAD    VXM*                                  #  COMPUTE OMEGA1,2,3
053594,000183: 36,3412           02723                                    ZI                                    
053595,000184: 36,3413           75134                                    W          +162D,2                    
053596,000185: 36,3414           77206                           PUSH     VLOAD                                 
053597,000186: 36,3415           02731                                    ZI         +6                         
053598,000187: 36,3416           53303                           VXM*     VAD                                   
053599,000188: 36,3417           75112                                    W          +180D,2                    
053600,000189: 36,3420           77206                           PUSH     VLOAD                                 
053601,000190: 36,3421           02737                                    ZI         +12D                       
053602,000191: 36,3422           53303                           VXM*     VAD                                   
053603,000192: 36,3423           75070                                    W          +198D,2                    
053604,000193: 36,3424           61006                           PUSH     TIX,2                                 #  PD 2-7=OMEGA1,8-13=OMEGA2,14-19=OMEGA3
053605,000194: 36,3425           75411                                    INCOR2                                
053606,000195: 36,3426           45575                           VLOAD    STADR                                 
053607,000196: 36,3427           74303                           STORE    OMEGA      +12D                       
053608,000197: 36,3430           45575                           VLOAD    STADR                                 
053609,000198: 36,3431           74311                           STORE    OMEGA      +6                         
053610,000199: 36,3432           45575                           VLOAD    STADR                                 
053611,000200: 36,3433           74317                           STORE    OMEGA                                 

Page 1225

053613,000202: 36,3434           77214                           BON      VLOAD                                 
053614,000203: 36,3435           02706                                    DMENFLG                               
053615,000204: 36,3436           75441                                    INCOR2AB                              
053616,000205: 36,3437           15332                                    ZEROVECS                              
053617,000206: 36,3440           03474                           STORE    OMEGA      +12D                       
053618,000207: 36,3441           66374        INCOR2AB           AXT,2    SSP                                   
053619,000208: 36,3442           00022                                    18D                                   
053620,000209: 36,3443           00052                                    S2                                    
053621,000210: 36,3444           00006                                    6                                     
053622,000211: 36,3445           77773        INCOR3             VLOAD*                                         
053623,000212: 36,3446           74275                                    OMEGA      +18D,2                     
053624,000213: 36,3447           53761                           VXSC     VSL*                                  
053625,000214: 36,3450           00001                                    0                                     #  DELTAQ/A
053626,000215: 36,3451           20201                                    0,1                                   
053627,000216: 36,3452           11301                           STORE    DELTAX     +18D,2                     
053628,000217: 36,3453           77304                           TIX,2    VLOAD                                 
053629,000218: 36,3454           75445                                    INCOR3                                
053630,000219: 36,3455           01265                                    DELTAX     +6                         
053631,000220: 36,3456           77732                           VSL3                                           
053632,000221: 36,3457           01265                           STORE    DELTAX     +6                         
053633,000222: 36,3460           77650                           GOTO                                           
053634,000223: 36,3461           02317                                    EGRESS                                
053635,000224: 

Page 1226

053637,000226:                                                                                                  #  INCORP2 -INCORPORATES THE COMPUTED STATE VECTOR DEVIATIONS INTO THE
053638,000227:                                                                                                  #  ESTIMATED STATE VECTOR.  THE STATE VECTOR UPDATED MAY BE FOR EITHER THE
053639,000228:                                                                                                  #  LEM OR THE CSM.  DETERMINED BY FLAG VEHUPFLG.  (ZERO = LEM) (1 = CSM)
053640,000229: 
053641,000230:                                                                                                  #  INPUT
053642,000231:                                                                                                  #        PERMANENT STATE VECTOR FOR EITHER THE LEM OR CSM
053643,000232:                                                                                                  #        VEHUPFLG = UPDATE VEHICLE 0=LEM 1=CSM
053644,000233:                                                                                                  #        W = ERROR TRANSITION MATRIX
053645,000234:                                                                                                  #        DELTAX = COMPUTED STATE VECTOR DEVIATIONS
053646,000235:                                                                                                  #        DMENFLG = SIZE OF W MATRIX (ZERO=6X6) (1=9X9)
053647,000236:                                                                                                  #        GAMMA = SCALAR FOR INCORPORATION
053648,000237:                                                                                                  #        ZI = VECTOR USED IN INCORPORATION
053649,000238:                                                                                                  #        OMEGA = WEIGHTING VECTOR
053650,000239: 
053651,000240:                                                                                                  #  OUTPUT
053652,000241:                                                                                                  #        UPDATED PERMANENT STATE VECTOR
053653,000242: 
053654,000243:                                                                                                  #  CALLING SEQUENCE
053655,000244:                                                                                                  #        L       CALL    INCORP2
053656,000245: 
053657,000246:                                                                                                  #  NORMAL EXIT
053658,000247:                                                                                                  #        L+1 OF CALLING SEQUENCE
053659,000248: 
053660,000249: 
053661,000250: 36,2000                                           SETLOC   MEASINC1                              
053662,000251: 36,2000                                           BANK                                           
053663,000252: 
053664,000253: 36,3462                                           COUNT*   $$/INCOR                              
053665,000254: 
053666,000255: 36,3462           45020        INCORP2            STQ      CALL                                  
053667,000256: 36,3463           02317                                    EGRESS                                
053668,000257: 36,3464           27371                                    INTSTALL                              
053669,000258: 36,3465           74375                           VLOAD    VXSC                                  #  CALC. GAMMA*OMEGA1,2,3
053670,000259: 36,3466           03460                                    OMEGA                                 
053671,000260: 36,3467           03456                                    GAMMA                                 
053672,000261: 36,3470           26643                           STOVL    OMEGAM1                               
053673,000262: 36,3471           03466                                    OMEGA      +6                         
053674,000263: 36,3472           77761                           VXSC                                           
053675,000264: 36,3473           03456                                    GAMMA                                 
053676,000265: 36,3474           26651                           STOVL    OMEGAM2                               
053677,000266: 36,3475           03474                                    OMEGA      +12D                       
053678,000267: 36,3476           77761                           VXSC                                           
053679,000268: 36,3477           03456                                    GAMMA                                 
053680,000269: 36,3500           02657                           STORE    OMEGAM3                               
053681,000270: 36,3501           77776                           EXIT                                           
053682,000271: 36,3502           33763                           CAF      54DD                                  #  INITIAL IX 1 SETTING FOR W MATRIX
053683,000272: 36,3503           55252                           TS       WIXA                                  
053684,000273: 36,3504           55253                           TS       WIXB                                  
053685,000274: 36,3505           34714                           CAF      ZERO                                  
053686,000275: 36,3506           55254                           TS       ZIXA                                  #  INITIAL IX 2 SETTING FOR Z COMPONENT
053687,000276: 36,3507           55255                           TS       ZIXB                                  
053688,000277: 36,3510           05301        FAZA               TC       PHASCHNG                              

Page 1227

053690,000279: 36,3511           04022                           OCT      04022                                 
053691,000280: 36,3512           05435                           TC       UPFLAG                                
053692,000281: 36,3513           00236                           ADRES    REINTFLG                              
053693,000282: 36,3514           31253        FAZA1              CA       WIXB                                  #  START FIRST PHASE OF INCORP2
053694,000283: 36,3515           55252                           TS       WIXA                                  #  TO UPDATE 6 OR 9 DIM. W MATRIX IN TEMP
053695,000284: 36,3516           31255                           CA       ZIXB                                  
053696,000285: 36,3517           55254                           TS       ZIXA                                  
053697,000286: 36,3520           06006                           TC       INTPRET                               
053698,000287: 36,3521           73150                           LXA,1    LXA,2                                 
053699,000288: 36,3522           01252                                    WIXA                                  
053700,000289: 36,3523           01254                                    ZIXA                                  
053701,000290: 36,3524           70731                           SSP      DLOAD*                                
053702,000291: 36,3525           00051                                    S1                                    
053703,000292: 36,3526           00006                                    6                                     
053704,000293: 36,3527           75054                                    ZI,2                                  
053705,000294: 36,3530           60276                           DCOMP    NORM                                  #  CALC UPPER 3X9 PARTITION OF W MATRIX
053706,000295: 36,3531           00052                                    S2                                    
053707,000296: 36,3532           65161                           VXSC     XCHX,2                                
053708,000297: 36,3533           02643                                    OMEGAM1                               
053709,000298: 36,3534           00051                                    S2                                    
053710,000299: 36,3535           57144                           LXC,2    XAD,2                                 
053711,000300: 36,3536           00047                                    X2                                    
053712,000301: 36,3537           02215                                    NORMGAM                               
053713,000302: 36,3540           65057                           VSL*     XCHX,2                                
053714,000303: 36,3541           57576                                    0,2                                   
053715,000304: 36,3542           00051                                    S2                                    
053716,000305: 36,3543           77653                           VAD*                                           
053717,000306: 36,3544           02467                                    W          +54D,1                     
053718,000307: 36,3545           02665                           STORE    HOLDW                                 
053719,000308: 36,3546           57543                           DLOAD*   DCOMP                                 #  CALC MIDDLE 3X9 PARTITION OF W MATRIX
053720,000309: 36,3547           75054                                    ZI,2                                  
053721,000310: 36,3550           74301                           NORM     VXSC                                  
053722,000311: 36,3551           00052                                    S2                                    
053723,000312: 36,3552           02651                                    OMEGAM2                               
053724,000313: 36,3553           71124                           XCHX,2   LXC,2                                 
053725,000314: 36,3554           00051                                    S2                                    
053726,000315: 36,3555           00047                                    X2                                    
053727,000316: 36,3556           53674                           XAD,2    VSL*                                  
053728,000317: 36,3557           02215                                    NORMGAM                               
053729,000318: 36,3560           57576                                    0,2                                   
053730,000319: 36,3561           52724                           XCHX,2   VAD*                                  
053731,000320: 36,3562           00051                                    S2                                    
053732,000321: 36,3563           02555                                    W          +108D,1                    
053733,000322: 36,3564           02673                           STORE    HOLDW      +6                         
053734,000323: 36,3565           77614                           BOFF                                           
053735,000324: 36,3566           02746                                    DMENFLG                               #  BRANCH IF 6 DIMENSIONAL
053736,000325: 36,3567           75607                                    FAZB                                  
053737,000326: 36,3570           57543                           DLOAD*   DCOMP                                 #  CALC LOWER 3X9 PARTITION OF W MATRIX
053738,000327: 36,3571           75054                                    ZI,2                                  
053739,000328: 36,3572           74301                           NORM     VXSC                                  

Page 1228

053741,000330: 36,3573           00052                                    S2                                    
053742,000331: 36,3574           02657                                    OMEGAM3                               
053743,000332: 36,3575           71124                           XCHX,2   LXC,2                                 
053744,000333: 36,3576           00051                                    S2                                    
053745,000334: 36,3577           00047                                    X2                                    
053746,000335: 36,3600           53674                           XAD,2    VSL*                                  
053747,000336: 36,3601           02215                                    NORMGAM                               
053748,000337: 36,3602           57576                                    0,2                                   
053749,000338: 36,3603           52724                           XCHX,2   VAD*                                  
053750,000339: 36,3604           00051                                    S2                                    
053751,000340: 36,3605           02643                                    W          +162D,1                    
053752,000341: 36,3606           02701                           STORE    HOLDW      +12D                       
053753,000342: 36,3607           77624        FAZB               CALL                                           
053754,000343: 36,3610           56741                                    GRP2PC                                
053755,000344: 36,3611           77776                           EXIT                                           
053756,000345: 36,3612           31252        FAZB1              CA       WIXA                                  #  START 2ND PHASE OF INCORP2 TO TRANSFER
053757,000346: 36,3613           63764                           AD       6DD                                   #        TEMP REG TO PERM W MATRIX
053758,000347: 36,3614           55253                           TS       WIXB                                  
053759,000348: 36,3615           31254                           CA       ZIXA                                  
053760,000349: 36,3616           67715                           AD       MINUS2                                
053761,000350: 36,3617           55255                           TS       ZIXB                                  
053762,000351: 36,3620           06006                           TC       INTPRET                               
053763,000352: 36,3621           66350                           LXA,1    SSP                                   
053764,000353: 36,3622           01252                                    WIXA                                  
053765,000354: 36,3623           00051                                    S1                                    
053766,000355: 36,3624           00006                                    6                                     
053767,000356: 36,3625           77775                           VLOAD                                          
053768,000357: 36,3626           02665                                    HOLDW                                 
053769,000358: 36,3627           06467                           STORE    W          +54D,1                     
053770,000359: 36,3630           77775                           VLOAD                                          
053771,000360: 36,3631           02673                                    HOLDW      +6                         
053772,000361: 36,3632           06555                           STORE    W          +108D,1                    
053773,000362: 36,3633           77214                           BOFF     VLOAD                                 
053774,000363: 36,3634           02746                                    DMENFLG                               
053775,000364: 36,3635           75645                                    FAZB5                                 
053776,000365: 36,3636           02701                                    HOLDW      +12D                       
053777,000366: 36,3637           06643                           STORE    W          +162D,1                    
053778,000367: 36,3640           52100        FAZB2              TIX,1    GOTO                                  
053779,000368: 36,3641           75643                                    +2                                    
053780,000369: 36,3642           75653                                    FAZC                                  #  DONE WITH W MATRIX.  UPDATE STATE VECTOR
053781,000370: 36,3643           77634                           RTB                                            
053782,000371: 36,3644           75510                                    FAZA                                  
053783,000372: 36,3645           43335        FAZB5              SLOAD    DAD                                   
053784,000373: 36,3646           01256                                    ZIXB                                  
053785,000374: 36,3647           35766                                    12DD                                  
053786,000375: 36,3650           52030                           BHIZ     GOTO                                  
053787,000376: 36,3651           75653                                    FAZC                                  
053788,000377: 36,3652           75640                                    FAZB2                                 
053789,000378: 36,3653           77624        FAZC               CALL                                           
053790,000379: 36,3654           56741                                    GRP2PC                                

Page 1229

053792,000381: 36,3655           53375                           VLOAD    VAD                                   #  START 3RD PHASE OF INCORP2
053793,000382: 36,3656           01701                                    X789                                  #  7TH,8TH,9TH,COMPONENT OF STATE VECTOR
053794,000383: 36,3657           01273                                    DELTAX     +12D                       #  INCORPORATION FOR X789
053795,000384: 36,3660           03450                           STORE    TX789                                 
053796,000385: 36,3661           47014                           BON      RTB                                   
053797,000386: 36,3662           00707                                    VEHUPFLG                              
053798,000387: 36,3663           75753                                    DOCSM                                 
053799,000388: 36,3664           26745                                    MOVEPLEM                              
053800,000389: 36,3665           77004        FAZAB              BOVB     AXT,2                                 
053801,000390: 36,3666           57343                                    TCDANZIG                              
053802,000391: 36,3667           00000                                    0                                     
053803,000392: 36,3670           77014                           BOFF     AXT,2                                 
053804,000393: 36,3671           04343                                    MOONTHIS                              
053805,000394: 36,3672           75674                                    +2                                    
053806,000395: 36,3673           00002                                    2                                     
053807,000396: 36,3674           53775                           VLOAD    VSR*                                  
053808,000397: 36,3675           01257                                    DELTAX                                #  B27 IF MOON ORBIT, B29 IF EARTH
053809,000398: 36,3676           57205                                    0          -7,2                       
053810,000399: 36,3677           40055                           VAD      BOV                                   
053811,000400: 36,3700           01521                                    TDELTAV                               
053812,000401: 36,3701           75713                                    FAZAB1                                
053813,000402: 36,3702           25521                           STOVL    TDELTAV                               
053814,000403: 36,3703           01265                                    DELTAX     +6                         #  B5 IF MOON ORBIT, B7 IF EARTH
053815,000404: 36,3704           53257                           VSR*     VAD                                   
053816,000405: 36,3705           57202                                    0          -4,2                       
053817,000406: 36,3706           01527                                    TNUV                                  
053818,000407: 36,3707           77600                           BOV                                            
053819,000408: 36,3710           75717                                    FAZAB2                                
053820,000409: 36,3711           35527                           STCALL   TNUV                                  
053821,000410: 36,3712           75726                                    FAZAB3                                
053822,000411: 36,3713           53375        FAZAB1             VLOAD    VAD                                   
053823,000412: 36,3714           01535                                    RCV                                   
053824,000413: 36,3715           01257                                    DELTAX                                
053825,000414: 36,3716           01535                           STORE    RCV                                   
053826,000415: 36,3717           53375        FAZAB2             VLOAD    VAD                                   
053827,000416: 36,3720           01543                                    VCV                                   
053828,000417: 36,3721           01265                                    DELTAX     +6                         
053829,000418: 36,3722           01543                           STORE    VCV                                   
053830,000419: 36,3723           45134                           SXA,2    CALL                                  
053831,000420: 36,3724           02150                                    PBODY                                 
053832,000421: 36,3725           23344                                    RECTIFY                               
053833,000422: 36,3726           77624        FAZAB3             CALL                                           
053834,000423: 36,3727           56741                                    GRP2PC                                
053835,000424: 36,3730           47014                           BON      RTB                                   
053836,000425: 36,3731           00707                                    VEHUPFLG                              
053837,000426: 36,3732           75756                                    DOCSM1                                
053838,000427: 36,3733           26724                                    MOVEALEM                              
053839,000428: 36,3734           77624                           CALL                                           
053840,000429: 36,3735           20263                                    SVDWN2                                #  STORE DOWNLINK STATE VECTOR
053841,000430: 36,3736           77624        FAZAB4             CALL                                           

Page 1230

053843,000432: 36,3737           56741                                    GRP2PC                                #  PHASE CHANGE
053844,000433: 36,3740           77214                           BOFF     VLOAD                                 
053845,000434: 36,3741           02746                                    DMENFLG                               
053846,000435: 36,3742           75745                                    FAZAB5                                #  6 DIMENSIONAL
053847,000436: 36,3743           03450                                    TX789                                 #  9 DIMENSIONAL
053848,000437: 36,3744           01701                           STORE    X789                                  
053849,000438: 36,3745           66150        FAZAB5             LXA,1    SXA,1                                 
053850,000439: 36,3746           02317                                    EGRESS                                
053851,000440: 36,3747           00052                                    QPRET                                 
053852,000441: 36,3750           77776                           EXIT                                           
053853,000442: 36,3751           04574                           TC       POSTJUMP                              #  EXIT
053854,000443: 36,3752           27406                           CADR     INTWAKE                               
053855,000444: 36,3753           52034        DOCSM              RTB      GOTO                                  
053856,000445: 36,3754           26700                                    MOVEPCSM                              
053857,000446: 36,3755           75665                                    FAZAB                                 
053858,000447: 36,3756           45034        DOCSM1             RTB      CALL                                  
053859,000448: 36,3757           26651                                    MOVEACSM                              
053860,000449: 36,3760           20237                                    SVDWN1                                #  STORE DOWNLINK STATE VECTOR
053861,000450: 36,3761           77650                           GOTO                                           
053862,000451: 36,3762           75736                                    FAZAB4                                
053863,000452: 36,3763  26,3331               ZEROD              =        ZEROVECS                              
053864,000453: 36,3763           00066        54DD               DEC      54         B-14                       
053865,000454: 36,3764           77771        6DD                DEC      -6         B-14                       
053866,000455: 36,3765           00014        12DD               DEC      12         B-14                       
053867,000456: 
053868,000457: 37,2000                                           SETLOC   RENDEZ                                
053869,000458: 37,2000                                           BANK                                           
053870,000459: 37,3676                                           COUNT*   $$/INCOR                              
053871,000460: 
053872,000461: 37,3676           51575        NEWZCOMP           VLOAD    ABVAL                                 
053873,000462: 37,3677           02723                                    ZI                                    
053874,000463: 37,3700           24045                           STOVL    NORMZI                                
053875,000464: 37,3701           02731                                    ZI         +6                         
053876,000465: 37,3702           41446                           ABVAL    PUSH                                  
053877,000466: 37,3703           50025                           DSU      BMN                                   
053878,000467: 37,3704           00045                                    NORMZI                                
053879,000468: 37,3705           77710                                    +3                                    
053880,000469: 37,3706           45545                           DLOAD    STADR                                 
053881,000470: 37,3707           77732                           STORE    NORMZI                                
053882,000471: 37,3710           51575                           VLOAD    ABVAL                                 
053883,000472: 37,3711           02737                                    ZI         +12D                       
053884,000473: 37,3712           45206                           PUSH     DSU                                   
053885,000474: 37,3713           00045                                    NORMZI                                
053886,000475: 37,3714           71240                           BMN      DLOAD                                 
053887,000476: 37,3715           77720                                    +3                                    
053888,000477: 37,3716           77626                           STADR                                          
053889,000478: 37,3717           77732                           STORE    NORMZI                                #  LARGEST ABVAL
053890,000479: 37,3720           66145                           DLOAD    SXA,1                                 
053891,000480: 37,3721           00045                                    NORMZI                                
053892,000481: 37,3722           00044                                    NORMZI                                #  SAVE X1
053893,000482: 37,3723           62101                           NORM     INCR,1                                

Page 1231

053895,000484: 37,3724           00047                                    X1                                    
053896,000485: 37,3725           00002                           DEC      2          B-14                       
053897,000486: 37,3726           53775                           VLOAD    VSL*                                  
053898,000487: 37,3727           02723                                    ZI                                    
053899,000488: 37,3730           20201                                    0,1                                   
053900,000489: 37,3731           26723                           STOVL    ZI                                    
053901,000490: 37,3732           02731                                    ZI         +6                         
053902,000491: 37,3733           77657                           VSL*                                           
053903,000492: 37,3734           20201                                    0,1                                   
053904,000493: 37,3735           26731                           STOVL    ZI         +6                         
053905,000494: 37,3736           02737                                    ZI         +12D                       
053906,000495: 37,3737           66057                           VSL*     SXA,1                                 
053907,000496: 37,3740           20201                                    0,1                                   
053908,000497: 37,3741           00045                                    NORMZI     +1                         #  SAVE SHIFT
053909,000498: 37,3742           02737                           STORE    ZI         +12D                       
053910,000499: 37,3743           54150                           LXA,1    XSU,1                                 
053911,000500: 37,3744           02215                                    NORMGAM                               
053912,000501: 37,3745           00045                                    NORMZI     +1                         
053913,000502: 37,3746           77660                           XSU,1                                          
053914,000503: 37,3747           00045                                    NORMZI     +1                         
053915,000504: 37,3750           70130                           SXA,1    LXC,1                                 
053916,000505: 37,3751           02215                                    NORMGAM                               
053917,000506: 37,3752           00045                                    NORMZI     +1                         
053918,000507: 37,3753           40270                           XAD,1    SETPD                                 
053919,000508: 37,3754           00044                                    NORMZI                                
053920,000509: 37,3755           00003                                    2D                                    
053921,000510: 37,3756           77650                           GOTO                                           
053922,000511: 37,3757           75406                                    INCOR2     -3                         
053923,000512: 37,3760                        NORMZI             =        36D                                   
053924,000513: 
053925,000514: 
053926,000515: 
053927,000516: 

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