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.

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

Page 1222

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

Page 1223

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

Page 1224

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

Page 1225

053595,000202: 36,3434           77214                           BON      VLOAD                                 
053596,000203: 36,3435           02706                                    DMENFLG                               
053597,000204: 36,3436           75441                                    INCOR2AB                              
053598,000205: 36,3437           15332                                    ZEROVECS                              
053599,000206: 36,3440           03474                           STORE    OMEGA      +12D                       
053600,000207: 36,3441           66374        INCOR2AB           AXT,2    SSP                                   
053601,000208: 36,3442           00022                                    18D                                   
053602,000209: 36,3443           00052                                    S2                                    
053603,000210: 36,3444           00006                                    6                                     
053604,000211: 36,3445           77773        INCOR3             VLOAD*                                         
053605,000212: 36,3446           74275                                    OMEGA      +18D,2                     
053606,000213: 36,3447           53761                           VXSC     VSL*                                  
053607,000214: 36,3450           00001                                    0                                     #  DELTAQ/A
053608,000215: 36,3451           20201                                    0,1                                   
053609,000216: 36,3452           11301                           STORE    DELTAX     +18D,2                     
053610,000217: 36,3453           77304                           TIX,2    VLOAD                                 
053611,000218: 36,3454           75445                                    INCOR3                                
053612,000219: 36,3455           01265                                    DELTAX     +6                         
053613,000220: 36,3456           77732                           VSL3                                           
053614,000221: 36,3457           01265                           STORE    DELTAX     +6                         
053615,000222: 36,3460           77650                           GOTO                                           
053616,000223: 36,3461           02317                                    EGRESS                                
053617,000224: 

Page 1226

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

Page 1227

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

Page 1228

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

Page 1229

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

Page 1230

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

Page 1231

053877,000484: 37,3724           00047                                    X1                                    
053878,000485: 37,3725           00002                           DEC      2          B-14                       
053879,000486: 37,3726           53775                           VLOAD    VSL*                                  
053880,000487: 37,3727           02723                                    ZI                                    
053881,000488: 37,3730           20201                                    0,1                                   
053882,000489: 37,3731           26723                           STOVL    ZI                                    
053883,000490: 37,3732           02731                                    ZI         +6                         
053884,000491: 37,3733           77657                           VSL*                                           
053885,000492: 37,3734           20201                                    0,1                                   
053886,000493: 37,3735           26731                           STOVL    ZI         +6                         
053887,000494: 37,3736           02737                                    ZI         +12D                       
053888,000495: 37,3737           66057                           VSL*     SXA,1                                 
053889,000496: 37,3740           20201                                    0,1                                   
053890,000497: 37,3741           00045                                    NORMZI     +1                         #  SAVE SHIFT
053891,000498: 37,3742           02737                           STORE    ZI         +12D                       
053892,000499: 37,3743           54150                           LXA,1    XSU,1                                 
053893,000500: 37,3744           02215                                    NORMGAM                               
053894,000501: 37,3745           00045                                    NORMZI     +1                         
053895,000502: 37,3746           77660                           XSU,1                                          
053896,000503: 37,3747           00045                                    NORMZI     +1                         
053897,000504: 37,3750           70130                           SXA,1    LXC,1                                 
053898,000505: 37,3751           02215                                    NORMGAM                               
053899,000506: 37,3752           00045                                    NORMZI     +1                         
053900,000507: 37,3753           40270                           XAD,1    SETPD                                 
053901,000508: 37,3754           00044                                    NORMZI                                
053902,000509: 37,3755           00003                                    2D                                    
053903,000510: 37,3756           77650                           GOTO                                           
053904,000511: 37,3757           75406                                    INCOR2     -3                         
053905,000512: 37,3760                        NORMZI             =        36D                                   
053906,000513: 
053907,000514: 
053908,000515: 
053909,000516: 

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