Source Code

These source-code files were obtained by digitally photographing an Artemis 72 (Apollo 15-17 Command Module) program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Photography was by Ron Burkey, and transcription was performed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images may be available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971
Note that the date is the date of the printout, not the date of the program revision.

053591,000002:                                                                                                  ## Copyright:   Public domain.
053592,000003:                                                                                                  ## Filename:    MEASUREMENT_INCORPORATION.agc
053593,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
053594,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM) 
053595,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for 
053596,000007:                                                                                                  ##              Apollo 15-17.
053597,000008:                                                                                                  ## Assembler:   yaYUL
053598,000009:                                                                                                  ## Contact:     Sergio Navarro <sergionavarrog@gmail.com>
053599,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
053600,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
053601,000012:                                                                                                  ## Mod history: 2009-09-03 SN   Adapted from corresponding Comanche 055 file.
053602,000013:                                                                                                  ##              2009-09-04 JL   Fixed typos.
053603,000014:                                                                                                  ##              2009-09-06 JL   Fixed typos.
053604,000015:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
053605,000016:                                                                                                  ##              2017-02-05 RSB  Proofed comment text by diff'ing vs Comanche 55
053606,000017:                                                                                                  ##                              and corrected errors found.
053607,000018:                                                                                                  ##              2021-05-30 ABS  ZEROD -> ZEROO
053608,000019: 

Page 1252

053610,000021:                                                                                                  #   INCORP1--PERFORMS THE SIX DIMENSIONAL STATE VECTOR DEVIATION FOR POSITI
053611,000022:                                                                                                  #  ON AND VELOCITY OR THE NINE DIMENSIONAL DEVIATION OF POSITION,VELOCITY,A
053612,000023:                                                                                                  #  ND RADAR OR LANDMARK BIAS.THE OUTPUT OF THE BVECTOR ROUTINE ALONG WITH T
053613,000024:                                                                                                  #  HE ERROR TRANSITION MATRIX(W) ARE USED AS INPUT TO THE ROUTINE.THE DEVIA
053614,000025:                                                                                                  #  TION IS OBTAINED BY COMPUTING AN ESTIMATED TRACKING MEASUREMENT FROM THE
053615,000026:                                                                                                  #  CURRENT STATE VECTOR AND COMPARING IT WITH AN ACTUAL TRACKING MEASUREMEN
053616,000027:                                                                                                  #  T AND APPLYING A STATISTICAL WEIGHTING VECTOR.
053617,000028: 
053618,000029:                                                                                                  #  INPUT
053619,000030:                                                                                                  #         DMENFLG = 0 6DIMENSIONAL BVECTOR  1= 9DIMENSIONAL
053620,000031:                                                                                                  #               W = ERROR TRANSITION MATRIX 6X6 OR 9X9
053621,000032:                                                                                                  #        VARIANCE = VARIANCE (SCALAR)
053622,000033:                                                                                                  #          DELTAQ = MEASURED DEVIATION (SCALAR)
053623,000034:                                                                                                  #         BVECTOR = 6 OR 9 DIMENSIONAL BVECTOR
053624,000035: 
053625,000036:                                                                                                  #  OUTPUT
053626,000037:                                                                                                  #          DELTAX = STATE VECTOR DEVIATIONS 6 OR 9 DIMENSIONAL
053627,000038:                                                                                                  #              ZI = VECTOR USED FOR THE INCORPORATION 6 OR 9 DIMENSIONAL
053628,000039:                                                                                                  #           GAMMA = SCALAR
053629,000040:                                                                                                  #           OMEGA = OMEGA WEIGHTING VECTOR 6 OR 9 DIMENTIONAL
053630,000041: 
053631,000042:                                                                                                  #  CALLING SEQUENCE
053632,000043:                                                                                                  #        L       CALL    INCORP1
053633,000044: 
053634,000045:                                                                                                  #  NORMAL EXIT
053635,000046:                                                                                                  #        L+1 OF CALLING SEQUENCE
053636,000047: 
053637,000048: 36,2000                                           SETLOC   MEASINC                               
053638,000049: 36,2000                                           BANK                                           
053639,000050: 
053640,000051: 36,3260                                           COUNT*   $$/INCOR                              
053641,000052: 
053642,000053: 36,3260  E5,1400                                  EBANK=   W                                     
053643,000054: 
053644,000055: 36,3260           77620        INCORP1            STQ                                            
053645,000056: 36,3261           02310                                    EGRESS                                
053646,000057: 36,3262           66370                           AXT,1    SSP                                   
053647,000058: 36,3263           00066                                    54D                                   
053648,000059: 36,3264           00051                                    S1                                    
053649,000060: 36,3265           00022                                    18D                                   #  IX1 = 54      S1= 18
053650,000061: 36,3266           66374                           AXT,2    SSP                                   
053651,000062: 36,3267           00022                                    18D                                   
053652,000063: 36,3270           00052                                    S2                                    
053653,000064: 36,3271           00006                                    6                                     #  IX2 = 18      S2=6
053654,000065: 36,3272           63775        Z123               VLOAD    MXV*                                  
053655,000066: 36,3273           03502                                    BVECTOR                               #  BVECTOR (0)
053656,000067: 36,3274           02467                                    W          +54D,1                     
053657,000068: 36,3275           12731                           STORE    ZI         +18D,2                     
053658,000069: 36,3276           77775                           VLOAD                                          
053659,000070: 36,3277           03510                                    BVECTOR    +6                         #  BVECTOR (1)
053660,000071: 36,3300           52717                           MXV*     VAD*                                  

Page 1253

053662,000073: 36,3301           02555                                    W          +108D,1                    
053663,000074: 36,3302           75046                                    ZI         +18D,2                     
053664,000075: 36,3303           12731                           STORE    ZI         +18D,2                     
053665,000076: 36,3304           77775                           VLOAD                                          
053666,000077: 36,3305           03516                                    BVECTOR    +12D                       #  BVECTOR (2)
053667,000078: 36,3306           52717                           MXV*     VAD*                                  
053668,000079: 36,3307           02643                                    W          +162D,1                    
053669,000080: 36,3310           75046                                    ZI         +18D,2                     #  B(0)*W+B(1)*(W+54)+B(2)*(W+108) FIRST PAS
053670,000081: 36,3311           12731                           STORE    ZI         +18D,2                     #  ZI THEN Z2 THEN Z3
053671,000082: 36,3312           77700                           TIX,1                                          
053672,000083: 36,3313           75314                                    INCOR1                                
053673,000084: 36,3314           43104        INCOR1             TIX,2    BON                                   
053674,000085: 36,3315           75272                                    Z123                                  #  LOOP FOR Z1,Z2,Z3
053675,000086: 36,3316           02706                                    DMENFLG                               
053676,000087: 36,3317           75323                                    INCOR1A                               
053677,000088: 36,3320           77775                           VLOAD                                          
053678,000089: 36,3321           15336                                    ZEROVECS                              
053679,000090: 36,3322           02723                           STORE    ZI         +12D                       
053680,000091: 36,3323           77201        INCOR1A            SETPD    VLOAD                                 
053681,000092: 36,3324           00001                                    0                                     
053682,000093: 36,3325           02707                                    ZI                                    
053683,000094: 36,3326           47036                           VSQ      RTB                                   
053684,000095: 36,3327           45657                                    TPMODE                                
053685,000096: 36,3330           47515                           PDVL     VSQ                                   
053686,000097: 36,3331           02715                                    ZI         +6                         
053687,000098: 36,3332           76234                           RTB      TAD                                   
053688,000099: 36,3333           45657                                    TPMODE                                
053689,000100: 36,3334           47515                           PDVL     VSQ                                   
053690,000101: 36,3335           02723                                    ZI         +12D                       
053691,000102: 36,3336           76234                           RTB      TAD                                   
053692,000103: 36,3337           45657                                    TPMODE                                
053693,000104: 36,3340           77171                           TAD      AXT,2                                 
053694,000105: 36,3341           03526                                    VARIANCE                              
053695,000106: 36,3342           00000                                    0                                     
053696,000107: 36,3343           01114                           STORE    TRIPA                                 #  ZI*2 + Z2*2 + Z3*2 + VARIANCE
053697,000108: 36,3344           40151                           TLOAD    BOV                                   
053698,000109: 36,3345           03526                                    VARIANCE                              #  CLEAR OVFIND
053699,000110: 36,3346           75347                                    +1                                    
053700,000111: 36,3347           01117                           STORE    TEMPVAR                               #  TEMP STORAGE FOR VARIANCE
053701,000112: 36,3350           77654                           BZE                                            
053702,000113: 36,3351           75360                                    INCOR1C                               
053703,000114: 36,3352           40112        INCOR1B            SL2      BOV                                   
053704,000115: 36,3353           75360                                    INCOR1C                               
053705,000116: 36,3354           01117                           STORE    TEMPVAR                               
053706,000117: 36,3355           52114                           INCR,2   GOTO                                  
053707,000118: 36,3356           00001                           DEC      1          B-14                       
053708,000119: 36,3357           75352                                    INCOR1B                               
053709,000120: 36,3360           61551        INCOR1C            TLOAD    ROUND                                 
053710,000121: 36,3361           01114                                    TRIPA                                 
053711,000122: 36,3362           75405                           DMP      SQRT                                  

Page 1254

053713,000124: 36,3363           01117                                    TEMPVAR                               
053714,000125: 36,3364           76257                           SL*      TAD                                   
053715,000126: 36,3365           57576                                    0,2                                   
053716,000127: 36,3366           01114                                    TRIPA                                 
053717,000128: 36,3367           63101                           NORM     INCR,2                                
053718,000129: 36,3370           00050                                    X2                                    
053719,000130: 36,3371           77775                           DEC      -2         B-14                       
053720,000131: 36,3372           77134                           SXA,2    AXT,2                                 
053721,000132: 36,3373           02214                                    NORMGAM                               #  NORMALIZATION COUNT -2 FOR GAMMA
053722,000133: 36,3374           00242                                    162D                                  
053723,000134: 36,3375           40265                           BDDV     SETPD                                 
053724,000135: 36,3376           15326                                    DP1/4TH                               
053725,000136: 36,3377           00001                                    0                                     
053726,000137: 36,3400           03456                           STORE    GAMMA                                 
053727,000138: 36,3401           60351                           TLOAD    NORM                                  
053728,000139: 36,3402           01114                                    TRIPA                                 
053729,000140: 36,3403           00047                                    X1                                    
053730,000141: 36,3404           65345                           DLOAD    PDDL                                  #  PD 0-1 = NORM (A)
053731,000142: 36,3405           00155                                    MPAC                                  
053732,000143: 36,3406           03524                                    DELTAQ                                
053733,000144: 36,3407           77701                           NORM                                           
053734,000145: 36,3410           00051                                    S1                                    
053735,000146: 36,3411           70460                           XSU,1    SR1                                   
053736,000147: 36,3412           00050                                    S1                                    
053737,000148: 36,3413           41471                           DDV      PUSH                                  #  PD 0-1 = DELTAQ/A
053738,000149: 36,3414           77650                           GOTO                                           
053739,000150: 36,3415           63705                                    NEWZCOMP                              
053740,000151: 36,3416           77731                 -3        SSP                                            
053741,000152: 36,3417           00052                                    S2                                    
053742,000153: 36,3420           00066                                    54D                                   
053743,000154: 36,3421           60775        INCOR2             VLOAD    VXM*                                  #  COMPUTE OMEGA1,2,3
053744,000155: 36,3422           02707                                    ZI                                    
053745,000156: 36,3423           75134                                    W          +162D,2                    
053746,000157: 36,3424           77206                           PUSH     VLOAD                                 
053747,000158: 36,3425           02715                                    ZI         +6                         
053748,000159: 36,3426           53303                           VXM*     VAD                                   
053749,000160: 36,3427           75112                                    W          +180D,2                    
053750,000161: 36,3430           77206                           PUSH     VLOAD                                 
053751,000162: 36,3431           02723                                    ZI         +12D                       
053752,000163: 36,3432           53303                           VXM*     VAD                                   
053753,000164: 36,3433           75070                                    W          +198D,2                    
053754,000165: 36,3434           61006                           PUSH     TIX,2                                 #  PD 2-7=OMEGA1,8-13=OMEGA2,14-19=OMEGA3
053755,000166: 36,3435           75421                                    INCOR2                                
053756,000167: 36,3436           45575                           VLOAD    STADR                                 
053757,000168: 36,3437           74303                           STORE    OMEGA      +12D                       
053758,000169: 36,3440           45575                           VLOAD    STADR                                 
053759,000170: 36,3441           74311                           STORE    OMEGA      +6                         
053760,000171: 36,3442           45575                           VLOAD    STADR                                 
053761,000172: 36,3443           74317                           STORE    OMEGA                                 
053762,000173: 36,3444           77214                           BON      VLOAD                                 

Page 1255

053764,000175: 36,3445           02706                                    DMENFLG                               
053765,000176: 36,3446           75451                                    INCOR2AB                              
053766,000177: 36,3447           15336                                    ZEROVECS                              
053767,000178: 36,3450           03474                           STORE    OMEGA      +12D                       
053768,000179: 36,3451           66374        INCOR2AB           AXT,2    SSP                                   
053769,000180: 36,3452           00022                                    18D                                   
053770,000181: 36,3453           00052                                    S2                                    
053771,000182: 36,3454           00006                                    6                                     
053772,000183: 36,3455           77773        INCOR3             VLOAD*                                         
053773,000184: 36,3456           74275                                    OMEGA      +18D,2                     
053774,000185: 36,3457           53761                           VXSC     VSL*                                  
053775,000186: 36,3460           00001                                    0                                     #  DELTAQ/A
053776,000187: 36,3461           20201                                    0,1                                   
053777,000188: 36,3462           11136                           STORE    DELTAX     +18D,2                     
053778,000189: 36,3463           77304                           TIX,2    VLOAD                                 
053779,000190: 36,3464           75455                                    INCOR3                                
053780,000191: 36,3465           01122                                    DELTAX     +6                         
053781,000192: 36,3466           77732                           VSL3                                           
053782,000193: 36,3467           01122                           STORE    DELTAX     +6                         
053783,000194: 36,3470           77650                           GOTO                                           
053784,000195: 36,3471           02310                                    EGRESS                                
053785,000196: 

Page 1256

053787,000198:                                                                                                  #  INCORP2 - INCORPORATES THE COMPUTED STATE VECTOR DEVIATIONS INTO THE
053788,000199:                                                                                                  #  ESTIMATED STATE VECTOR. THE STATE VECTOR UPDATED MAY BE FOR EITHER THE
053789,000200:                                                                                                  #  LEM OR THE CSM. DETERMINED BY FLAG VEHUPFLG. (ZERO = LEM) (1 = CSM)
053790,000201: 
053791,000202:                                                                                                  #  INPUT
053792,000203:                                                                                                  #        PERMANENT STATE VECTOR FOR EITHER THE LEM OR CSM
053793,000204:                                                                                                  #        VEHUPFLG = UPDATE VEHICLE 0=LEM  1=CSM
053794,000205:                                                                                                  #        W =        ERROR TRANSITION MATRIX
053795,000206:                                                                                                  #        DELTAX  =  COMPUTED STATE VECTOR DEVIATIONS
053796,000207:                                                                                                  #        DMENFLG =  SIZE OF W MATRIX (ZERO=6X6) (1=9X9)
053797,000208:                                                                                                  #        GAMMA   =  SCALAR FOR INCORPORATION
053798,000209:                                                                                                  #        ZI      =  VECTOR USED IN INCORPORATION
053799,000210:                                                                                                  #        OMEGA   =  WEIGHTING VECTOR
053800,000211: 
053801,000212:                                                                                                  #  OUTPUT
053802,000213:                                                                                                  #        UPDATED PERMANENT STATE VECTOR
053803,000214: 
053804,000215:                                                                                                  #  CALLING SEQUENCE
053805,000216:                                                                                                  #        L       CALL    INCORP2
053806,000217: 
053807,000218:                                                                                                  #  NORMAL EXIT
053808,000219:                                                                                                  #        L+1 OF CALLING SEQUENCE
053809,000220: 
053810,000221: 
053811,000222: 36,2000                                           SETLOC   MEASINC1                              
053812,000223: 36,2000                                           BANK                                           
053813,000224: 
053814,000225: 36,3472                                           COUNT*   $$/INCOR                              
053815,000226: 
053816,000227: 36,3472           45020        INCORP2            STQ      CALL                                  
053817,000228: 36,3473           02310                                    EGRESS                                
053818,000229: 36,3474           27516                                    INTSTALL                              
053819,000230: 36,3475           74375                           VLOAD    VXSC                                  #  CALC. GAMMA * OMEGA1,2,3
053820,000231: 36,3476           03460                                    OMEGA                                 
053821,000232: 36,3477           03456                                    GAMMA                                 
053822,000233: 36,3500           26643                           STOVL    OMEGAM1                               
053823,000234: 36,3501           03466                                    OMEGA      +6                         
053824,000235: 36,3502           77761                           VXSC                                           
053825,000236: 36,3503           03456                                    GAMMA                                 
053826,000237: 36,3504           26651                           STOVL    OMEGAM2                               
053827,000238: 36,3505           03474                                    OMEGA      +12D                       
053828,000239: 36,3506           77761                           VXSC                                           
053829,000240: 36,3507           03456                                    GAMMA                                 
053830,000241: 36,3510           02657                           STORE    OMEGAM3                               
053831,000242: 36,3511           77776                           EXIT                                           
053832,000243: 36,3512           33763                           CAF      54DD                                  #  INITIAL IX 1 SETTING FOR W MATRIX
053833,000244: 36,3513           55107                           TS       WIXA                                  
053834,000245: 36,3514           55110                           TS       WIXB                                  
053835,000246: 36,3515           34772                           CAF      ZERO                                  
053836,000247: 36,3516           55111                           TS       ZIXA                                  #  INITIAL IX 2 SETTING FOR Z COMPONENT
053837,000248: 36,3517           55112                           TS       ZIXB                                  
053838,000249: 36,3520           05402        FAZA               TC       PHASCHNG                              

Page 1257

053840,000251: 36,3521           04022                           OCT      04022                                 
053841,000252: 36,3522           05547                           TC       UPFLAG                                
053842,000253: 36,3523           00230                           ADRES    REINTFLG                              
053843,000254: 36,3524           31110        FAZA1              CA       WIXB                                  #  START FIRST PHASE OF INCORP2
053844,000255: 36,3525           55107                           TS       WIXA                                  #   TO UPDATE 6 OR 9 DIM. W MATRIX IN TEMP
053845,000256: 36,3526           31112                           CA       ZIXB                                  
053846,000257: 36,3527           55111                           TS       ZIXA                                  
053847,000258: 36,3530           06006                           TC       INTPRET                               
053848,000259: 36,3531           73150                           LXA,1    LXA,2                                 
053849,000260: 36,3532           01107                                    WIXA                                  
053850,000261: 36,3533           01111                                    ZIXA                                  
053851,000262: 36,3534           70731                           SSP      DLOAD*                                
053852,000263: 36,3535           00051                                    S1                                    
053853,000264: 36,3536           00006                                    6                                     
053854,000265: 36,3537           75070                                    ZI,2                                  
053855,000266: 36,3540           60276                           DCOMP    NORM                                  #  CALC UPPER 3X9 PARTITION OF W MATRIX
053856,000267: 36,3541           00052                                    S2                                    
053857,000268: 36,3542           45161                           VXSC     CALL                                  
053858,000269: 36,3543           02643                                    OMEGAM1                               
053859,000270: 36,3544           75753                                    FAZA2                                 
053860,000271: 36,3545           77653                           VAD*                                           
053861,000272: 36,3546           02467                                    W          +54D,1                     
053862,000273: 36,3547           02665                           STORE    HOLDW                                 
053863,000274: 36,3550           57543                           DLOAD*   DCOMP                                 #  CALC MIDDLE 3X9 PARTITION OF W MATRIX
053864,000275: 36,3551           75070                                    ZI,2                                  
053865,000276: 36,3552           74301                           NORM     VXSC                                  
053866,000277: 36,3553           00052                                    S2                                    
053867,000278: 36,3554           02651                                    OMEGAM2                               
053868,000279: 36,3555           77624                           CALL                                           
053869,000280: 36,3556           75753                                    FAZA2                                 
053870,000281: 36,3557           77653                           VAD*                                           
053871,000282: 36,3560           02555                                    W          +108D,1                    
053872,000283: 36,3561           02673                           STORE    HOLDW      +6                         
053873,000284: 36,3562           77614                           BOFF                                           
053874,000285: 36,3563           02746                                    DMENFLG                               #  BRANCH IF 6 DIMENSIONAL
053875,000286: 36,3564           75577                                    FAZB                                  
053876,000287: 36,3565           57543                           DLOAD*   DCOMP                                 #  CALC LOWER 3X9 PARTITION OF W MATRIX
053877,000288: 36,3566           75070                                    ZI,2                                  
053878,000289: 36,3567           74301                           NORM     VXSC                                  
053879,000290: 36,3570           00052                                    S2                                    
053880,000291: 36,3571           02657                                    OMEGAM3                               
053881,000292: 36,3572           77624                           CALL                                           
053882,000293: 36,3573           75753                                    FAZA2                                 
053883,000294: 36,3574           77653                           VAD*                                           
053884,000295: 36,3575           02643                                    W          +162D,1                    
053885,000296: 36,3576           02701                           STORE    HOLDW      +12D                       
053886,000297: 36,3577           77624        FAZB               CALL                                           
053887,000298: 36,3600           22327                                    GRP2PC                                
053888,000299: 36,3601           77776                           EXIT                                           
053889,000300: 36,3602           31107        FAZB1              CA       WIXA                                  #  START 2ND PHASE OF INCORP2 TO TRANSFER

Page 1258

053891,000302: 36,3603           63764                           AD       6DD                                   #        TEMP REG TO PERM W MATRIX
053892,000303: 36,3604           55110                           TS       WIXB                                  
053893,000304: 36,3605           31111                           CA       ZIXA                                  
053894,000305: 36,3606           67701                           AD       MINUS2                                
053895,000306: 36,3607           55112                           TS       ZIXB                                  
053896,000307: 36,3610           06006                           TC       INTPRET                               
053897,000308: 36,3611           66350                           LXA,1    SSP                                   
053898,000309: 36,3612           01107                                    WIXA                                  
053899,000310: 36,3613           00051                                    S1                                    
053900,000311: 36,3614           00006                                    6                                     
053901,000312: 36,3615           77775                           VLOAD                                          
053902,000313: 36,3616           02665                                    HOLDW                                 
053903,000314: 36,3617           06467                           STORE    W          +54D,1                     
053904,000315: 36,3620           77775                           VLOAD                                          
053905,000316: 36,3621           02673                                    HOLDW      +6                         
053906,000317: 36,3622           06555                           STORE    W          +108D,1                    
053907,000318: 36,3623           77214                           BOFF     VLOAD                                 
053908,000319: 36,3624           02746                                    DMENFLG                               
053909,000320: 36,3625           75635                                    FAZB5                                 
053910,000321: 36,3626           02701                                    HOLDW      +12D                       
053911,000322: 36,3627           06643                           STORE    W          +162D,1                    
053912,000323: 36,3630           52100        FAZB2              TIX,1    GOTO                                  
053913,000324: 36,3631           75633                                    +2                                    
053914,000325: 36,3632           75643                                    FAZC                                  #  DONE WITH W MATRIX. UPDATE STATE VECTOR
053915,000326: 36,3633           77634                           RTB                                            
053916,000327: 36,3634           75520                                    FAZA                                  
053917,000328: 36,3635           43335        FAZB5              SLOAD    DAD                                   
053918,000329: 36,3636           01113                                    ZIXB                                  
053919,000330: 36,3637           35766                                    12DD                                  
053920,000331: 36,3640           52030                           BHIZ     GOTO                                  
053921,000332: 36,3641           75643                                    FAZC                                  
053922,000333: 36,3642           75630                                    FAZB2                                 
053923,000334: 36,3643           77624        FAZC               CALL                                           
053924,000335: 36,3644           22327                                    GRP2PC                                
053925,000336: 36,3645           53375                           VLOAD    VAD                                   #  START 3RD PHASE OF INCORP2
053926,000337: 36,3646           01701                                    X789                                  #  7TH,8TH,9TH,COMPONENT OF STATE VECTOR
053927,000338: 36,3647           01130                                    DELTAX     +12D                       #  INCORPORATION FOR X789
053928,000339: 36,3650           03450                           STORE    TX789                                 
053929,000340: 36,3651           47014                           BON      RTB                                   
053930,000341: 36,3652           00707                                    VEHUPFLG                              
053931,000342: 36,3653           75743                                    DOCSM                                 
053932,000343: 36,3654           27070                                    MOVEPLEM                              
053933,000344: 36,3655           77004        FAZAB              BOVB     AXT,2                                 
053934,000345: 36,3656           57544                                    TCDANZIG                              
053935,000346: 36,3657           00000                                    0                                     
053936,000347: 36,3660           77014                           BOFF     AXT,2                                 
053937,000348: 36,3661           04343                                    MOONTHIS                              
053938,000349: 36,3662           75664                                    +2                                    
053939,000350: 36,3663           00002                                    2                                     
053940,000351: 36,3664           53775                           VLOAD    VSR*                                  

Page 1259

053942,000353: 36,3665           01114                                    DELTAX                                #  B27 IF MOON ORBIT, B29 IF EARTH
053943,000354: 36,3666           57205                                    0          -7,2                       
053944,000355: 36,3667           40055                           VAD      BOV                                   
053945,000356: 36,3670           01521                                    TDELTAV                               
053946,000357: 36,3671           75703                                    FAZAB1                                
053947,000358: 36,3672           25521                           STOVL    TDELTAV                               
053948,000359: 36,3673           01122                                    DELTAX     +6                         #  B5 IF MOON ORBIT, B7 IF EARTH
053949,000360: 36,3674           53257                           VSR*     VAD                                   
053950,000361: 36,3675           57202                                    0          -4,2                       
053951,000362: 36,3676           01527                                    TNUV                                  
053952,000363: 36,3677           77600                           BOV                                            
053953,000364: 36,3700           75707                                    FAZAB2                                
053954,000365: 36,3701           35527                           STCALL   TNUV                                  
053955,000366: 36,3702           75716                                    FAZAB3                                
053956,000367: 36,3703           53375        FAZAB1             VLOAD    VAD                                   
053957,000368: 36,3704           01535                                    RCV                                   
053958,000369: 36,3705           01114                                    DELTAX                                
053959,000370: 36,3706           01535                           STORE    RCV                                   
053960,000371: 36,3707           53375        FAZAB2             VLOAD    VAD                                   
053961,000372: 36,3710           01543                                    VCV                                   
053962,000373: 36,3711           01122                                    DELTAX     +6                         
053963,000374: 36,3712           01543                           STORE    VCV                                   
053964,000375: 36,3713           45134                           SXA,2    CALL                                  
053965,000376: 36,3714           02150                                    PBODY                                 
053966,000377: 36,3715           23420                                    RECTIFY                               
053967,000378: 36,3716           77624        FAZAB3             CALL                                           
053968,000379: 36,3717           22327                                    GRP2PC                                
053969,000380: 36,3720           47014                           BON      RTB                                   
053970,000381: 36,3721           00707                                    VEHUPFLG                              
053971,000382: 36,3722           75746                                    DOCSM1                                
053972,000383: 36,3723           27047                                    MOVEALEM                              
053973,000384: 36,3724           77624                           CALL                                           
053974,000385: 36,3725           20264                                    SVDWN2                                #  STORE DOWNLINK STATE VECTOR
053975,000386: 36,3726           77624        FAZAB4             CALL                                           
053976,000387: 36,3727           22327                                    GRP2PC                                #  PHASE CHANGE
053977,000388: 36,3730           77214                           BOFF     VLOAD                                 
053978,000389: 36,3731           02746                                    DMENFLG                               
053979,000390: 36,3732           75735                                    FAZAB5                                #  6 DIMENSIONAL
053980,000391: 36,3733           03450                                    TX789                                 #  9 DIMENSIONAL
053981,000392: 36,3734           01701                           STORE    X789                                  
053982,000393: 36,3735           66150        FAZAB5             LXA,1    SXA,1                                 
053983,000394: 36,3736           02310                                    EGRESS                                
053984,000395: 36,3737           00052                                    QPRET                                 
053985,000396: 36,3740           77776                           EXIT                                           
053986,000397: 36,3741           04655                           TC       POSTJUMP                              #  EXIT
053987,000398: 36,3742           27527                           CADR     INTWAKE                               
053988,000399: 36,3743           52034        DOCSM              RTB      GOTO                                  
053989,000400: 36,3744           27023                                    MOVEPCSM                              
053990,000401: 36,3745           75655                                    FAZAB                                 
053991,000402: 36,3746           45034        DOCSM1             RTB      CALL                                  

Page 1260

053993,000404: 36,3747           26774                                    MOVEACSM                              
053994,000405: 36,3750           20240                                    SVDWN1                                #  STORE DOWNLINK STATE VECTOR
053995,000406: 36,3751           77650                           GOTO                                           
053996,000407: 36,3752           75726                                    FAZAB4                                
053997,000408: 36,3753           71124        FAZA2              XCHX,2   LXC,2                                 
053998,000409: 36,3754           00051                                    S2                                    
053999,000410: 36,3755           00047                                    X2                                    
054000,000411: 36,3756           53674                           XAD,2    VSL*                                  
054001,000412: 36,3757           02214                                    NORMGAM                               
054002,000413: 36,3760           57576                                    0,2                                   
054003,000414: 36,3761           43524                           XCHX,2   RVQ                                   
054004,000415: 36,3762           00051                                    S2                                    
054005,000416: 36,3763  26,3335               ZEROO              =        ZEROVECS                              
054006,000417: 36,3763           00066        54DD               DEC      54         B-14                       
054007,000418: 36,3764           77771        6DD                DEC      -6         B-14                       
054008,000419: 36,3765           00014        12DD               DEC      12         B-14                       
054009,000420: 
054010,000421: 
054011,000422: 31,2000                                           SETLOC   MEASINC3                              
054012,000423: 31,2000                                           BANK                                           
054013,000424: 31,3705                                           COUNT*   $$/INCOR                              
054014,000425: 
054015,000426: 31,3705           51575        NEWZCOMP           VLOAD    ABVAL                                 
054016,000427: 31,3706           02707                                    ZI                                    
054017,000428: 31,3707           24045                           STOVL    NORMZI                                
054018,000429: 31,3710           02715                                    ZI         +6                         
054019,000430: 31,3711           41446                           ABVAL    PUSH                                  
054020,000431: 31,3712           50025                           DSU      BMN                                   
054021,000432: 31,3713           00045                                    NORMZI                                
054022,000433: 31,3714           63717                                    +3                                    
054023,000434: 31,3715           45545                           DLOAD    STADR                                 
054024,000435: 31,3716           77732                           STORE    NORMZI                                
054025,000436: 31,3717           51575                           VLOAD    ABVAL                                 
054026,000437: 31,3720           02723                                    ZI         +12D                       
054027,000438: 31,3721           45206                           PUSH     DSU                                   
054028,000439: 31,3722           00045                                    NORMZI                                
054029,000440: 31,3723           71240                           BMN      DLOAD                                 
054030,000441: 31,3724           63730                                    NEWZCMP1                              
054031,000442: 31,3725           77626                           STADR                                          
054032,000443: 31,3726           43732                           STCALL   NORMZI                                #  LARGEST ABVAL
054033,000444: 31,3727           63730                                    NEWZCMP1                              
054034,000445: 
054035,000446: 31,3730           66145        NEWZCMP1           DLOAD    SXA,1                                 
054036,000447: 31,3731           00045                                    NORMZI                                
054037,000448: 31,3732           00044                                    NORMZI                                #  SAVE X1
054038,000449: 31,3733           62101                           NORM     INCR,1                                
054039,000450: 31,3734           00047                                    X1                                    
054040,000451: 31,3735           00002                           DEC      2          B-14                       
054041,000452: 31,3736           53775                           VLOAD    VSL*                                  

Page 1261

054043,000454: 31,3737           02707                                    ZI                                    
054044,000455: 31,3740           20201                                    0,1                                   
054045,000456: 31,3741           26707                           STOVL    ZI                                    
054046,000457: 31,3742           02715                                    ZI         +6                         
054047,000458: 31,3743           77657                           VSL*                                           
054048,000459: 31,3744           20201                                    0,1                                   
054049,000460: 31,3745           26715                           STOVL    ZI         +6                         
054050,000461: 31,3746           02723                                    ZI         +12D                       
054051,000462: 31,3747           66057                           VSL*     SXA,1                                 
054052,000463: 31,3750           20201                                    0,1                                   
054053,000464: 31,3751           00045                                    NORMZI     +1                         #  SAVE SHIFT
054054,000465: 31,3752           02723                           STORE    ZI         +12D                       
054055,000466: 31,3753           54150                           LXA,1    XSU,1                                 
054056,000467: 31,3754           02214                                    NORMGAM                               
054057,000468: 31,3755           00045                                    NORMZI     +1                         
054058,000469: 31,3756           77660                           XSU,1                                          
054059,000470: 31,3757           00045                                    NORMZI     +1                         
054060,000471: 31,3760           70130                           SXA,1    LXC,1                                 
054061,000472: 31,3761           02214                                    NORMGAM                               
054062,000473: 31,3762           00045                                    NORMZI     +1                         
054063,000474: 31,3763           40270                           XAD,1    SETPD                                 
054064,000475: 31,3764           00044                                    NORMZI                                
054065,000476: 31,3765           00003                                    2D                                    
054066,000477: 31,3766           77650                           GOTO                                           
054067,000478: 31,3767           75416                                    INCOR2     -3                         
054068,000479: 31,3770                        NORMZI             =        36D                                   

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