Source Code
![]() |
These source-code files were derived from scans of the
Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original
AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249
(Apollo 9 CM) source files were used as a template, and changes between Colossus 249
and Colossus 237 were manually transcribed by a team of volunteers. Note
that the page images
presented online are of reduced quality, and that additional images
are available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS BY NASA 2021111-031 1:17 AUG. 24, 1968Note that the date is the date of the printout, not the date of the program revision. |
051725,000002: ## Copyright: Public domain.
051726,000003: ## Filename: MEASUREMENT_INCORPORATION.agc
051727,000004: ## Purpose: Part of the source code for Colossus build 237.
051728,000005: ## This is for the Command Module's (CM) Apollo Guidance
051729,000006: ## Computer (AGC), for Apollo 8.
051730,000007: ## Assembler: yaYUL
051731,000008: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
051732,000009: ## Website: www.ibiblio.org/apollo/index.html
051733,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Colossus237/
051734,000011: ## Mod history: 2011-04-13 JL Adapted from corresponding Colossus 249 file.
051735,000012: ## 2011-04-27 JL Removed 2 lines.
051736,000013: ## 2017-01-01 RSB Proofed comment text using octopus/ProoferComments,
051737,000014: ## and fixed errors found.
051738,000015:
![]() |
Page 1219 |
051740,000017: # INCORP1--PERFORMS THE SIX DIMENSIONAL STATE VECTOR DEVIATION FOR POSITI
051741,000018: # ON AND VELOCITY OR THE NINE DIMENSIONAL DEVIATION OF POSITION,VELOCITY,A
051742,000019: # ND RADAR OR LANDMARK BIAS.THE OUTPUT OF THE BVECTOR ROUTINE ALONG WITH T
051743,000020: # HE ERROR TRANSITION MATRIX(W) ARE USED AS INPUT TO THE ROUTINE.THE DEVIA
051744,000021: # TION IS OBTAINED BY COMPUTING AN ESTIMATED TRACKING MEASUREMENT FROM THE
051745,000022: # CURRENT STATE VECTOR AND COMPARING IT WITH AN ACTUAL TRACKING MEASUREMEN
051746,000023: # T AND APPLYING A STATISTICAL WEIGHTING VECTOR.
051747,000024: # INPUT
051748,000025: # DMENFLG = 0 6DIMENSIONAL BVECTOR 1= 9DIMENSIONAL
051749,000026: # W = ERROR TRANSITION MATRIX 6X6 OR 9X9
051750,000027: # VARIANCE = VARIANCE (SCALAR)
051751,000028: # DELTAQ = MEASURED DEVIATION(SCALAR)
051752,000029: # BVECTOR = 6 OR 9 DIMENSIONAL BVECTOR
051753,000030:
051754,000031: # OUTPUT
051755,000032: # DELTAX = STATE VECTOR DEVIATIONS 6 OR 9 DIMENSIONAL
051756,000033: # ZI = VECTOR USED FOR THE INCORPORATION 6 OR 9 DIMENSIONAL
051757,000034: # GAMMA = SCALAR
051758,000035: # OMEGA = OMEGA WEIGHTING VECTOR 6 OR 9 DIMENTIONAL
051759,000036: # CALLING SEQUENCE
051760,000037: # L CALL INCORP1
051761,000038:
051762,000039: # NORMAL EXIT
051763,000040:
051764,000041: # L+1 OF CALLING SEQUENCE
051765,000042:
051766,000043: 37,3700 BANK 37
051767,000044: 36,2000 SETLOC MEASINC
051768,000045: 36,2000 BANK
051769,000046:
051770,000047: 36,3250 COUNT* $$/INCOR
051771,000048:
051772,000049: 36,3250 E5,1400 EBANK= W
051773,000050:
051774,000051: 36,3250 77620 INCORP1 STQ
051775,000052: 36,3251 02317 EGRESS
051776,000053: 36,3252 66370 AXT,1 SSP
051777,000054: 36,3253 00066 54D
051778,000055: 36,3254 00051 S1
051779,000056: 36,3255 00022 18D # IX1 = 54 S1= 18
051780,000057: 36,3256 66374 AXT,2 SSP
051781,000058: 36,3257 00022 18D
051782,000059: 36,3260 00052 S2
051783,000060: 36,3261 00006 6 # IX2 = 18 S2=6
051784,000061: 36,3262 63775 Z123 VLOAD MXV*
051785,000062: 36,3263 03502 BVECTOR # BVECTOR (0)
051786,000063: 36,3264 02467 W +54D,1
051787,000064: 36,3265 12745 STORE ZI +18D,2
051788,000065: 36,3266 77775 VLOAD
051789,000066: 36,3267 03510 BVECTOR +6 # BVECTOR (1)
![]() |
Page 1220 |
051791,000068: 36,3270 52717 MXV* VAD*
051792,000069: 36,3271 02555 W +108D,1
051793,000070: 36,3272 75032 ZI +18D,2
051794,000071: 36,3273 12745 STORE ZI +18D,2
051795,000072: 36,3274 77775 VLOAD
051796,000073: 36,3275 03516 BVECTOR +12D # BVECTOR (2)
051797,000074: 36,3276 52717 MXV* VAD*
051798,000075: 36,3277 02643 W +162D,1
051799,000076: 36,3300 75032 ZI +18D,2 # B(0)*W+B(1)*(W+54)+B(2)*(W+108)FIRST PAS
051800,000077: 36,3301 12745 STORE ZI +18D,2 # ZI THEN Z2 THEN Z3
051801,000078: 36,3302 77700 TIX,1
051802,000079: 36,3303 75304 INCOR1
051803,000080: 36,3304 43104 INCOR1 TIX,2 BON
051804,000081: 36,3305 75262 Z123 # LOOP FOR Z1,Z2,Z3
051805,000082: 36,3306 02706 DMENFLG
051806,000083: 36,3307 75313 INCOR1A
051807,000084: 36,3310 77775 VLOAD
051808,000085: 36,3311 15332 ZEROVECS
051809,000086: 36,3312 02737 STORE ZI +12D
051810,000087: 36,3313 77201 INCOR1A SETPD VLOAD
051811,000088: 36,3314 00001 0
051812,000089: 36,3315 02723 ZI
051813,000090: 36,3316 47036 VSQ RTB
051814,000091: 36,3317 45562 TPMODE
051815,000092: 36,3320 47515 PDVL VSQ
051816,000093: 36,3321 02731 ZI +6
051817,000094: 36,3322 76234 RTB TAD
051818,000095: 36,3323 45562 TPMODE
051819,000096: 36,3324 47515 PDVL VSQ
051820,000097: 36,3325 02737 ZI +12D
051821,000098: 36,3326 76234 RTB TAD
051822,000099: 36,3327 45562 TPMODE
051823,000100: 36,3330 77171 TAD AXT,2
051824,000101: 36,3331 03526 VARIANCE
051825,000102: 36,3332 00000 0
051826,000103: 36,3333 01257 STORE TRIPA # ZI*2 + Z2*2 + Z3*2 + VARIANCE
051827,000104: 36,3334 40151 TLOAD BOV
051828,000105: 36,3335 03526 VARIANCE # CLEAR OVFIND
051829,000106: 36,3336 75337 +1
051830,000107: 36,3337 01262 STORE TEMPVAR # TEMP STORAGE FOR VARIANCE
051831,000108: 36,3340 77654 BZE
051832,000109: 36,3341 75350 INCOR1C
051833,000110: 36,3342 40112 INCOR1B SL2 BOV
051834,000111: 36,3343 75350 INCOR1C
051835,000112: 36,3344 01262 STORE TEMPVAR
051836,000113: 36,3345 52114 INCR,2 GOTO
051837,000114: 36,3346 00001 DEC 1 B-14
051838,000115: 36,3347 75342 INCOR1B
051839,000116: 36,3350 61551 INCOR1C TLOAD ROUND
051840,000117: 36,3351 01257 TRIPA
![]() |
Page 1221 |
051842,000119: 36,3352 75405 DMP SQRT
051843,000120: 36,3353 01262 TEMPVAR
051844,000121: 36,3354 76257 SL* TAD
051845,000122: 36,3355 57576 0,2
051846,000123: 36,3356 01257 TRIPA
051847,000124: 36,3357 63101 NORM INCR,2
051848,000125: 36,3360 00050 X2
051849,000126: 36,3361 77775 DEC -2 B-14
051850,000127: 36,3362 77134 SXA,2 AXT,2
051851,000128: 36,3363 02215 NORMGAM # NORMALIZATION COUNT -2 FOR GAMMA
051852,000129: 36,3364 00242 162D
051853,000130: 36,3365 40265 BDDV SETPD
051854,000131: 36,3366 15322 DP1/4TH
051855,000132: 36,3367 00001 0
051856,000133: 36,3370 03456 STORE GAMMA
051857,000134: 36,3371 60351 TLOAD NORM
051858,000135: 36,3372 01257 TRIPA
051859,000136: 36,3373 00047 X1
051860,000137: 36,3374 65345 DLOAD PDDL # PD 0-1 = NORM (A)
051861,000138: 36,3375 00155 MPAC
051862,000139: 36,3376 03524 DELTAQ
051863,000140: 36,3377 77701 NORM
051864,000141: 36,3400 00051 S1
051865,000142: 36,3401 70460 XSU,1 SR1
051866,000143: 36,3402 00050 S1
051867,000144: 36,3403 41471 DDV PUSH # PD 0-1 = DELTAQ/A
051868,000145: 36,3404 77731 SSP
051869,000146: 36,3405 00052 S2
051870,000147: 36,3406 00066 54D
051871,000148: 36,3407 60775 INCOR2 VLOAD VXM* # COMPUTE OMEGA1,2,3
051872,000149: 36,3410 02723 ZI
051873,000150: 36,3411 75134 W +162D,2
051874,000151: 36,3412 77206 PUSH VLOAD
051875,000152: 36,3413 02731 ZI +6
051876,000153: 36,3414 53303 VXM* VAD
051877,000154: 36,3415 75112 W +180D,2
051878,000155: 36,3416 77206 PUSH VLOAD
051879,000156: 36,3417 02737 ZI +12D
051880,000157: 36,3420 53303 VXM* VAD
051881,000158: 36,3421 75070 W +198D,2
051882,000159: 36,3422 61006 PUSH TIX,2 # PD 2-7=OMEGA1,8-13=OMEGA2,14-19=OMEGA3
051883,000160: 36,3423 75407 INCOR2
051884,000161: 36,3424 45575 VLOAD STADR
051885,000162: 36,3425 74303 STORE OMEGA +12D
051886,000163: 36,3426 45575 VLOAD STADR
051887,000164: 36,3427 74311 STORE OMEGA +6
051888,000165: 36,3430 45575 VLOAD STADR
051889,000166: 36,3431 74317 STORE OMEGA
051890,000167: 36,3432 77214 BON VLOAD
051891,000168: 36,3433 02706 DMENFLG
![]() |
Page 1222 |
051893,000170: 36,3434 75437 INCOR2AB
051894,000171: 36,3435 15332 ZEROVECS
051895,000172: 36,3436 03474 STORE OMEGA +12D
051896,000173: 36,3437 66374 INCOR2AB AXT,2 SSP
051897,000174: 36,3440 00022 18D
051898,000175: 36,3441 00052 S2
051899,000176: 36,3442 00006 6
051900,000177: 36,3443 77773 INCOR3 VLOAD*
051901,000178: 36,3444 74275 OMEGA +18D,2
051902,000179: 36,3445 53761 VXSC VSL*
051903,000180: 36,3446 00001 0 # DELTAQ/A
051904,000181: 36,3447 20201 0,1
051905,000182: 36,3450 11301 STORE DELTAX +18D,2
051906,000183: 36,3451 77304 TIX,2 VLOAD
051907,000184: 36,3452 75443 INCOR3
051908,000185: 36,3453 01265 DELTAX +6
051909,000186: 36,3454 77732 VSL3
051910,000187: 36,3455 01265 STORE DELTAX +6
051911,000188: 36,3456 77650 GOTO
051912,000189: 36,3457 02317 EGRESS
051913,000190:
![]() |
Page 1223 |
051915,000192: # INCORP2 -INCORPORATES THE COMPUTED STATE VECTOR DEVIATIONS INTO THE
051916,000193: # ESTIMATED STATE VECTOR. THE STATE VECTOR UPDATED MAY BE FOR EITHER THE
051917,000194: # LEM OR THE CSM.DETERMINED BY FLAG VEHUPFLG.(ZERO = LEM) (1 = CSM)
051918,000195: # INPUT
051919,000196: # PERMANENT STATE VECTOR FOR EITHER THE LEM OR CSM
051920,000197: # VEHUPFLG = UPDATE VEHICLE 0=LEM 1=CSM
051921,000198: # W = ERROR TRANSITION MATRIX
051922,000199: # DELTAX = COMPUTED STATE VECTOR DEVIATIONS
051923,000200: # DMENFLG = SIZE OF W MATRIX (ZERO =6X6) (1=9X9)
051924,000201: # GAMMA = SCALAR FOR INCORPORATION
051925,000202: # ZI = VECTOR USED IN INCORPORATION
051926,000203: # OMEGA = WEIGHTING VECTOR
051927,000204:
051928,000205: # OUTPUT
051929,000206: # UPDATED PERMANENT STATE VECTOR
051930,000207:
051931,000208: # CALLING SEQUENCE
051932,000209: # L CALL INCORP2
051933,000210:
051934,000211: # NORMAL EXIT
051935,000212: # L+1 OF CALLING SEQUENCE
051936,000213:
051937,000214: 36,2000 SETLOC MEASINC1
051938,000215: 36,2000 BANK
051939,000216:
051940,000217: 36,3460 COUNT* $$/INCOR
051941,000218:
051942,000219: 36,3460 45020 INCORP2 STQ CALL
051943,000220: 36,3461 02317 EGRESS
051944,000221: 36,3462 27371 INTSTALL
051945,000222: 36,3463 74375 VLOAD VXSC # CALC. GAMMA * OMEGA1,2,3
051946,000223: 36,3464 03460 OMEGA
051947,000224: 36,3465 03456 GAMMA
051948,000225: 36,3466 26643 STOVL OMEGAM1
051949,000226: 36,3467 03466 OMEGA +6
051950,000227: 36,3470 77761 VXSC
051951,000228: 36,3471 03456 GAMMA
051952,000229: 36,3472 26651 STOVL OMEGAM2
051953,000230: 36,3473 03474 OMEGA +12D
051954,000231: 36,3474 77761 VXSC
051955,000232: 36,3475 03456 GAMMA
051956,000233: 36,3476 02657 STORE OMEGAM3
051957,000234: 36,3477 77776 EXIT
051958,000235: 36,3500 33761 CAF 54DD # INITIAL IX 1 SETTING FOR W MATRIX
051959,000236: 36,3501 55252 TS WIXA
051960,000237: 36,3502 55253 TS WIXB
051961,000238: 36,3503 34714 CAF ZERO
051962,000239: 36,3504 55254 TS ZIXA # INITIAL IX 2 SETTING FOR Z COMPONENT
051963,000240: 36,3505 55255 TS ZIXB
051964,000241: 36,3506 05301 FAZA TC PHASCHNG
![]() |
Page 1224 |
051966,000243: 36,3507 04022 OCT 04022
051967,000244: 36,3510 05435 TC UPFLAG
051968,000245: 36,3511 00236 ADRES REINTFLG
051969,000246: 36,3512 31253 FAZA1 CA WIXB # START FIRST PHASE OF INCORP2
051970,000247: 36,3513 55252 TS WIXA # TO UPDATE 6 OR 9 DIM. W MATRIX IN TEMP
051971,000248: 36,3514 31255 CA ZIXB
051972,000249: 36,3515 55254 TS ZIXA
051973,000250: 36,3516 06006 TC INTPRET
051974,000251: 36,3517 73150 LXA,1 LXA,2
051975,000252: 36,3520 01252 WIXA
051976,000253: 36,3521 01254 ZIXA
051977,000254: 36,3522 70731 SSP DLOAD*
051978,000255: 36,3523 00051 S1
051979,000256: 36,3524 00006 6
051980,000257: 36,3525 75054 ZI,2
051981,000258: 36,3526 60276 DCOMP NORM # CALC UPPER 3X9 PARTITION OF W MATRIX
051982,000259: 36,3527 00052 S2
051983,000260: 36,3530 65161 VXSC XCHX,2
051984,000261: 36,3531 02643 OMEGAM1
051985,000262: 36,3532 00051 S2
051986,000263: 36,3533 57144 LXC,2 XAD,2
051987,000264: 36,3534 00047 X2
051988,000265: 36,3535 02215 NORMGAM
051989,000266: 36,3536 65057 VSL* XCHX,2
051990,000267: 36,3537 57576 0,2
051991,000268: 36,3540 00051 S2
051992,000269: 36,3541 77653 VAD*
051993,000270: 36,3542 02467 W +54D,1
051994,000271: 36,3543 02665 STORE HOLDW
051995,000272: 36,3544 57543 DLOAD* DCOMP # CALC MIDDLE 3X9 PARTITION OF W MATRIX
051996,000273: 36,3545 75054 ZI,2
051997,000274: 36,3546 74301 NORM VXSC
051998,000275: 36,3547 00052 S2
051999,000276: 36,3550 02651 OMEGAM2
052000,000277: 36,3551 71124 XCHX,2 LXC,2
052001,000278: 36,3552 00051 S2
052002,000279: 36,3553 00047 X2
052003,000280: 36,3554 53674 XAD,2 VSL*
052004,000281: 36,3555 02215 NORMGAM
052005,000282: 36,3556 57576 0,2
052006,000283: 36,3557 52724 XCHX,2 VAD*
052007,000284: 36,3560 00051 S2
052008,000285: 36,3561 02555 W +108D,1
052009,000286: 36,3562 02673 STORE HOLDW +6
052010,000287: 36,3563 77614 BOFF
052011,000288: 36,3564 02746 DMENFLG # BRANCH IF 6 DIMENSIONAL
052012,000289: 36,3565 75605 FAZB
052013,000290: 36,3566 57543 DLOAD* DCOMP # CALC LOWER 3X9 PARTITION OF W MATRIX
052014,000291: 36,3567 75054 ZI,2
052015,000292: 36,3570 74301 NORM VXSC
![]() |
Page 1225 |
052017,000294: 36,3571 00052 S2
052018,000295: 36,3572 02657 OMEGAM3
052019,000296: 36,3573 71124 XCHX,2 LXC,2
052020,000297: 36,3574 00051 S2
052021,000298: 36,3575 00047 X2
052022,000299: 36,3576 53674 XAD,2 VSL*
052023,000300: 36,3577 02215 NORMGAM
052024,000301: 36,3600 57576 0,2
052025,000302: 36,3601 52724 XCHX,2 VAD*
052026,000303: 36,3602 00051 S2
052027,000304: 36,3603 02643 W +162D,1
052028,000305: 36,3604 02701 STORE HOLDW +12D
052029,000306: 36,3605 77624 FAZB CALL
052030,000307: 36,3606 56712 GRP2PC
052031,000308: 36,3607 77776 EXIT
052032,000309: 36,3610 31252 FAZB1 CA WIXA # START 2ND PHASE OF INCORP2 TO TRANSFER
052033,000310: 36,3611 63762 AD 6DD # TEMP REG TO PERM W MATRIX
052034,000311: 36,3612 55253 TS WIXB
052035,000312: 36,3613 31254 CA ZIXA
052036,000313: 36,3614 67715 AD MINUS2
052037,000314: 36,3615 55255 TS ZIXB
052038,000315: 36,3616 06006 TC INTPRET
052039,000316: 36,3617 66350 LXA,1 SSP
052040,000317: 36,3620 01252 WIXA
052041,000318: 36,3621 00051 S1
052042,000319: 36,3622 00006 6
052043,000320: 36,3623 77775 VLOAD
052044,000321: 36,3624 02665 HOLDW
052045,000322: 36,3625 06467 STORE W +54D,1
052046,000323: 36,3626 77775 VLOAD
052047,000324: 36,3627 02673 HOLDW +6
052048,000325: 36,3630 06555 STORE W +108D,1
052049,000326: 36,3631 77214 BOFF VLOAD
052050,000327: 36,3632 02746 DMENFLG
052051,000328: 36,3633 75643 FAZB5
052052,000329: 36,3634 02701 HOLDW +12D
052053,000330: 36,3635 06643 STORE W +162D,1
052054,000331: 36,3636 52100 FAZB2 TIX,1 GOTO
052055,000332: 36,3637 75641 +2
052056,000333: 36,3640 75651 FAZC # DONE WITH W MATRIX. UPDATE STATE VECTOR
052057,000334: 36,3641 77634 RTB
052058,000335: 36,3642 75506 FAZA
052059,000336: 36,3643 43335 FAZB5 SLOAD DAD
052060,000337: 36,3644 01256 ZIXB
052061,000338: 36,3645 35764 12DD
052062,000339: 36,3646 52030 BHIZ GOTO
052063,000340: 36,3647 75651 FAZC
052064,000341: 36,3650 75636 FAZB2
052065,000342: 36,3651 77624 FAZC CALL
052066,000343: 36,3652 56712 GRP2PC
![]() |
Page 1226 |
052068,000345: 36,3653 53375 VLOAD VAD # START 3RD PHASE OF INCORP2
052069,000346: 36,3654 01701 X789 # 7TH,8TH,9TH,COMPONENT OF STATE VECTOR
052070,000347: 36,3655 01273 DELTAX +12D # INCORPORATION FOR X789
052071,000348: 36,3656 03450 STORE TX789
052072,000349: 36,3657 47014 BON RTB
052073,000350: 36,3660 00707 VEHUPFLG
052074,000351: 36,3661 75751 DOCSM
052075,000352: 36,3662 26745 MOVEPLEM
052076,000353: 36,3663 77004 FAZAB BOVB AXT,2
052077,000354: 36,3664 57314 TCDANZIG
052078,000355: 36,3665 00000 0
052079,000356: 36,3666 77014 BOFF AXT,2
052080,000357: 36,3667 04343 MOONTHIS
052081,000358: 36,3670 75672 +2
052082,000359: 36,3671 00002 2
052083,000360: 36,3672 53775 VLOAD VSR*
052084,000361: 36,3673 01257 DELTAX # B27 IF MOON ORBIT, B29 IF EARTH
052085,000362: 36,3674 57205 0 -7,2
052086,000363: 36,3675 40055 VAD BOV
052087,000364: 36,3676 01521 TDELTAV
052088,000365: 36,3677 75711 FAZAB1
052089,000366: 36,3700 25521 STOVL TDELTAV
052090,000367: 36,3701 01265 DELTAX +6 # B5 IF MOON ORBIT, B7 IF EARTH
052091,000368: 36,3702 53257 VSR* VAD
052092,000369: 36,3703 57202 0 -4,2
052093,000370: 36,3704 01527 TNUV
052094,000371: 36,3705 77600 BOV
052095,000372: 36,3706 75715 FAZAB2
052096,000373: 36,3707 35527 STCALL TNUV
052097,000374: 36,3710 75724 FAZAB3
052098,000375: 36,3711 53375 FAZAB1 VLOAD VAD
052099,000376: 36,3712 01535 RCV
052100,000377: 36,3713 01257 DELTAX
052101,000378: 36,3714 01535 STORE RCV
052102,000379: 36,3715 53375 FAZAB2 VLOAD VAD
052103,000380: 36,3716 01543 VCV
052104,000381: 36,3717 01265 DELTAX +6
052105,000382: 36,3720 01543 STORE VCV
052106,000383: 36,3721 45134 SXA,2 CALL
052107,000384: 36,3722 02150 PBODY
052108,000385: 36,3723 23344 RECTIFY
052109,000386: 36,3724 77624 FAZAB3 CALL
052110,000387: 36,3725 56712 GRP2PC
052111,000388: 36,3726 47014 BON RTB
052112,000389: 36,3727 00707 VEHUPFLG
052113,000390: 36,3730 75754 DOCSM1
052114,000391: 36,3731 26724 MOVEALEM
052115,000392: 36,3732 77624 CALL
052116,000393: 36,3733 20263 SVDWN2 # STORE DOWNLINK STATE VECTOR
052117,000394: 36,3734 77624 FAZAB4 CALL
![]() |
Page 1227 |
052119,000396: 36,3735 56712 GRP2PC # PHASE CHANGE
052120,000397: 36,3736 77214 BOFF VLOAD
052121,000398: 36,3737 02746 DMENFLG
052122,000399: 36,3740 75743 FAZAB5 # 6 DIMENSIONAL
052123,000400: 36,3741 03450 TX789 # 9 DIMENSIONAL
052124,000401: 36,3742 01701 STORE X789
052125,000402: 36,3743 66150 FAZAB5 LXA,1 SXA,1
052126,000403: 36,3744 02317 EGRESS
052127,000404: 36,3745 00052 QPRET
052128,000405: 36,3746 77776 EXIT
052129,000406: 36,3747 04574 TC POSTJUMP # EXIT
052130,000407: 36,3750 27406 CADR INTWAKE
052131,000408: 36,3751 52034 DOCSM RTB GOTO
052132,000409: 36,3752 26700 MOVEPCSM
052133,000410: 36,3753 75663 FAZAB
052134,000411: 36,3754 45034 DOCSM1 RTB CALL
052135,000412: 36,3755 26651 MOVEACSM
052136,000413: 36,3756 20237 SVDWN1 # STORE DOWNLINK STATE VECTOR
052137,000414: 36,3757 77650 GOTO
052138,000415: 36,3760 75734 FAZAB4
052139,000416: 36,3761 26,3331 ZEROD = ZEROVECS
052140,000417: 36,3761 00066 54DD DEC 54 B-14
052141,000418: 36,3762 77771 6DD DEC -6 B-14
052142,000419: 36,3763 00014 12DD DEC 12 B-14
End of include-file MEASUREMENT_INCORPORATION.agc. Parent file is MAIN.agc