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.

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

Page 1252

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

Page 1253

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

Page 1254

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

Page 1255

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

Page 1256

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

Page 1257

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

Page 1258

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

Page 1259

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

Page 1260

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

Page 1261

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

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