Source Code
![]() |
These source-code files were obtained by digitally photographing the
Colossus 237 program listing from the private collection of original
AGC developer Fred Martin, and then modifying pre-existing Colossus 249
(Apollo 9) source files to incorporate changes. 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, 1968 |
051432,000002: # Copyright: Public domain.
051433,000003: # Filename: MEASUREMENT_INCORPORATION.agc
051434,000004: # Purpose: Part of the source code for Colossus build 237.
051435,000005: # This is for the Command Module's (CM) Apollo Guidance
051436,000006: # Computer (AGC), we believe for Apollo 8.
051437,000007: # Assembler: yaYUL
051438,000008: # Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
051439,000009: # Website: www.ibiblio.org/apollo/index.html
051440,000010: # Page scans: www.ibiblio.org/apollo/ScansForConversion/Colossus237/
051441,000011: # Mod history: 2011-04-13 JL Adapted from corresponding Colossus 249 file.
051442,000012: # 2011-04-27 JL Removed 2 lines.
051443,000013:
051444,000014: # # Page 1219
051445,000015: # INCORP1--PERFORMS THE SIX DIMENSIONAL STATE VECTOR DEVIATION FOR POSITI
051446,000016: # ON AND VELOCITY OR THE NINE DIMENSIONAL DEVIATION OF POSITION,VELOCITY,A
051447,000017: # ND RADAR OR LANDMARK BIAS.THE OUTPUT OF THE BVECTOR ROUTINE ALONG WITH T
051448,000018: # HE ERROR TRANSITION MATRIX(W) ARE USED AS INPUT TO THE ROUTINE.THE DEVIA
051449,000019: # TION IS OBTAINED BY COMPUTING AN ESTIMATED TRACKING MEASUREMENT FROM THE
051450,000020: # CURRENT STATE VECTOR AND COMPARING IT WITH AN ACTUAL TRACKING MEASUREMEN
051451,000021: # T AND APPLYING A STATISTICAL WEIGHTING VECTOR.
051452,000022: # INPUT
051453,000023: # DMENFLG = 0 6DIMENSIONAL BVECTOR 1= 9DIMENSIONAL
051454,000024: # W = ERROR TRANSITION MATRIX 6X6 OR 9X9
051455,000025: # VARIANCE = VARIANCE (SCALAR)
051456,000026: # DELTAQ = MEASURED DEVIATION(SCALAR)
051457,000027: # BVECTOR = 6 OR 9 DIMENSIONAL BVECTOR
051458,000028:
051459,000029: # OUTPUT
051460,000030: # DELTAX = STATE VECTOR DEVIATIONS 6 OR 9 DIMENSIONAL
051461,000031: # ZI = VECTOR USED FOR THE INCORPORATION 6 OR 9 DIMENSIONAL
051462,000032: # GAMMA = SCALAR
051463,000033: # OMEGA = OMEGA WEIGHTING VECTOR 6 OR 9 DIMENSIONAL
051464,000034: # CALLING SEQUENCE
051465,000035: # L CALL INCORP1
051466,000036:
051467,000037: # NORMAL EXIT
051468,000038:
051469,000039: # L+1 OF CALLING SEQUENCE
051470,000040:
051471,000041: 37,3700 BANK 37
051472,000042: 36,2000 SETLOC MEASINC
051473,000043: 36,2000 BANK
051474,000044:
051475,000045: 36,3250 COUNT* $$/INCOR
051476,000046:
051477,000047: 36,3250 0002400 EBANK= W
051478,000048:
051479,000049: 36,3250 77620 INCORP1 STQ
051480,000050: 36,3251 02317 EGRESS
051481,000051: 36,3252 66370 AXT,1 SSP
051482,000052: 36,3253 00066 54D
051483,000053: 36,3254 00051 S1
051484,000054: 36,3255 00022 18D # IX1 = 54 S1= 18
051485,000055: 36,3256 66374 AXT,2 SSP
051486,000056: 36,3257 00022 18D
051487,000057: 36,3260 00052 S2
051488,000058: 36,3261 00006 6 # IX2 = 18 S2=6
051489,000059: 36,3262 63775 Z123 VLOAD MXV*
051490,000060: 36,3263 03502 BVECTOR # BVECTOR (0)
051491,000061: 36,3264 02467 W +54D,1
051492,000062: 36,3265 12745 STORE ZI +18D,2
051493,000063: 36,3266 77775 VLOAD
051494,000064: 36,3267 03510 BVECTOR +6 # BVECTOR (1)
051495,000065: # # Page 1220
051496,000066: 36,3270 52717 MXV* VAD*
051497,000067: 36,3271 02555 W +108D,1
051498,000068: 36,3272 75032 ZI +18D,2
051499,000069: 36,3273 12745 STORE ZI +18D,2
051500,000070: 36,3274 77775 VLOAD
051501,000071: 36,3275 03516 BVECTOR +12D # BVECTOR (2)
051502,000072: 36,3276 52717 MXV* VAD*
051503,000073: 36,3277 02643 W +162D,1
051504,000074: 36,3300 75032 ZI +18D,2 # B(0)*W+B(1)*(W+54)+B(2)*(W+108)FIRST PAS
051505,000075: 36,3301 12745 STORE ZI +18D,2 # ZI THEN Z2 THEN Z3
051506,000076: 36,3302 77700 TIX,1
051507,000077: 36,3303 75304 INCOR1
051508,000078: 36,3304 43104 INCOR1 TIX,2 BON
051509,000079: 36,3305 75262 Z123 # LOOP FOR Z1,Z2,Z3
051510,000080: 36,3306 02706 DMENFLG
051511,000081: 36,3307 75313 INCOR1A
051512,000082: 36,3310 77775 VLOAD
051513,000083: 36,3311 15332 ZEROVECS
051514,000084: 36,3312 02737 STORE ZI +12D
051515,000085: 36,3313 77201 INCOR1A SETPD VLOAD
051516,000086: 36,3314 00001 0
051517,000087: 36,3315 02723 ZI
051518,000088: 36,3316 47036 VSQ RTB
051519,000089: 36,3317 45562 TPMODE
051520,000090: 36,3320 47515 PDVL VSQ
051521,000091: 36,3321 02731 ZI +6
051522,000092: 36,3322 76234 RTB TAD
051523,000093: 36,3323 45562 TPMODE
051524,000094: 36,3324 47515 PDVL VSQ
051525,000095: 36,3325 02737 ZI +12D
051526,000096: 36,3326 76234 RTB TAD
051527,000097: 36,3327 45562 TPMODE
051528,000098: 36,3330 77171 TAD AXT,2
051529,000099: 36,3331 03526 VARIANCE
051530,000100: 36,3332 00000 0
051531,000101: 36,3333 01257 STORE TRIPA # ZI*2 + Z2*2 + Z3*2 + VARIANCE
051532,000102: 36,3334 40151 TLOAD BOV
051533,000103: 36,3335 03526 VARIANCE # CLEAR OVFIND
051534,000104: 36,3336 75337 +1
051535,000105: 36,3337 01262 STORE TEMPVAR # TEMP STORAGE FOR VARIANCE
051536,000106: 36,3340 77654 BZE
051537,000107: 36,3341 75350 INCOR1C
051538,000108: 36,3342 40112 INCOR1B SL2 BOV
051539,000109: 36,3343 75350 INCOR1C
051540,000110: 36,3344 01262 STORE TEMPVAR
051541,000111: 36,3345 52114 INCR,2 GOTO
051542,000112: 36,3346 00001 DEC 1 B-14
051543,000113: 36,3347 75342 INCOR1B
051544,000114: 36,3350 61551 INCOR1C TLOAD ROUND
051545,000115: 36,3351 01257 TRIPA
051546,000116: # # Page 1221
051547,000117: 36,3352 75405 DMP SQRT
051548,000118: 36,3353 01262 TEMPVAR
051549,000119: 36,3354 76257 SL* TAD
051550,000120: 36,3355 57576 0,2
051551,000121: 36,3356 01257 TRIPA
051552,000122: 36,3357 63101 NORM INCR,2
051553,000123: 36,3360 00050 X2
051554,000124: 36,3361 77775 DEC -2 B-14
051555,000125: 36,3362 77134 SXA,2 AXT,2
051556,000126: 36,3363 02215 NORMGAM # NORMALIZATION COUNT -2 FOR GAMMA
051557,000127: 36,3364 00242 162D
051558,000128: 36,3365 40265 BDDV SETPD
051559,000129: 36,3366 15322 DP1/4TH
051560,000130: 36,3367 00001 0
051561,000131: 36,3370 03456 STORE GAMMA
051562,000132: 36,3371 60351 TLOAD NORM
051563,000133: 36,3372 01257 TRIPA
051564,000134: 36,3373 00047 X1
051565,000135: 36,3374 65345 DLOAD PDDL # PD 0-1 = NORM (A)
051566,000136: 36,3375 00155 MPAC
051567,000137: 36,3376 03524 DELTAQ
051568,000138: 36,3377 77701 NORM
051569,000139: 36,3400 00051 S1
051570,000140: 36,3401 70460 XSU,1 SR1
051571,000141: 36,3402 00050 S1
051572,000142: 36,3403 41471 DDV PUSH # PD 0-1 = DELTAQ/A
051573,000143: 36,3404 77731 SSP
051574,000144: 36,3405 00052 S2
051575,000145: 36,3406 00066 54D
051576,000146: 36,3407 60775 INCOR2 VLOAD VXM* # COMPUTE OMEGA1,2,3
051577,000147: 36,3410 02723 ZI
051578,000148: 36,3411 75134 W +162D,2
051579,000149: 36,3412 77206 PUSH VLOAD
051580,000150: 36,3413 02731 ZI +6
051581,000151: 36,3414 53303 VXM* VAD
051582,000152: 36,3415 75112 W +180D,2
051583,000153: 36,3416 77206 PUSH VLOAD
051584,000154: 36,3417 02737 ZI +12D
051585,000155: 36,3420 53303 VXM* VAD
051586,000156: 36,3421 75070 W +198D,2
051587,000157: 36,3422 61006 PUSH TIX,2 # PD 2-7=OMEGA1,8-13=OMEGA2,14-19=OMEGA3
051588,000158: 36,3423 75407 INCOR2
051589,000159: 36,3424 45575 VLOAD STADR
051590,000160: 36,3425 74303 STORE OMEGA +12D
051591,000161: 36,3426 45575 VLOAD STADR
051592,000162: 36,3427 74311 STORE OMEGA +6
051593,000163: 36,3430 45575 VLOAD STADR
051594,000164: 36,3431 74317 STORE OMEGA
051595,000165: 36,3432 77214 BON VLOAD
051596,000166: 36,3433 02706 DMENFLG
051597,000167: # # Page 1222
051598,000168: 36,3434 75437 INCOR2AB
051599,000169: 36,3435 15332 ZEROVECS
051600,000170: 36,3436 03474 STORE OMEGA +12D
051601,000171: 36,3437 66374 INCOR2AB AXT,2 SSP
051602,000172: 36,3440 00022 18D
051603,000173: 36,3441 00052 S2
051604,000174: 36,3442 00006 6
051605,000175: 36,3443 77773 INCOR3 VLOAD*
051606,000176: 36,3444 74275 OMEGA +18D,2
051607,000177: 36,3445 53761 VXSC VSL*
051608,000178: 36,3446 00001 0 # DELTAQ/A
051609,000179: 36,3447 20201 0,1
051610,000180: 36,3450 11301 STORE DELTAX +18D,2
051611,000181: 36,3451 77304 TIX,2 VLOAD
051612,000182: 36,3452 75443 INCOR3
051613,000183: 36,3453 01265 DELTAX +6
051614,000184: 36,3454 77732 VSL3
051615,000185: 36,3455 01265 STORE DELTAX +6
051616,000186: 36,3456 77650 GOTO
051617,000187: 36,3457 02317 EGRESS
051618,000188:
051619,000189: # # Page 1223
051620,000190: # INCORP2 -INCORPORATES THE COMPUTED STATE VECTOR DEVIATIONS INTO THE
051621,000191: # ESTIMATED STATE VECTOR. THE STATE VECTOR UPDATED MAY BE FOR EITHER THE
051622,000192: # LEM OR THE CSM.DETERMINED BY FLAG VEHUPFLG.(ZERO = LEM) (1 = CSM)
051623,000193: # INPUT
051624,000194: # PERMANENT STATE VECTOR FOR EITHER THE LEM OR CSM
051625,000195: # VEHUPFLG = UPDATE VEHICLE 0=LEM 1=CSM
051626,000196: # W = ERROR TRANSITION MATRIX
051627,000197: # DELTAX = COMPUTED STATE VECTOR DEVIATIONS
051628,000198: # DMENFLG = SIZE OF W MATRIX (ZERO =6X6) (1=9X9)
051629,000199: # GAMMA = SCALAR FOR INCORPORATION
051630,000200: # ZI = VECTOR USED IN INCORPORATION
051631,000201: # OMEGA = WEIGHTING VECTOR
051632,000202:
051633,000203: # OUTPUT
051634,000204: # UPDATED PERMANENT STATE VECTOR
051635,000205:
051636,000206: # CALLING SEQUENCE
051637,000207: # L CALL INCORP2
051638,000208:
051639,000209: # NORMAL EXIT
051640,000210: # L+1 OF CALLING SEQUENCE
051641,000211:
051642,000212: 36,2000 SETLOC MEASINC1
051643,000213: 36,2000 BANK
051644,000214:
051645,000215: 36,3460 COUNT* $$/INCOR
051646,000216:
051647,000217: 36,3460 45020 INCORP2 STQ CALL
051648,000218: 36,3461 02317 EGRESS
051649,000219: 36,3462 27371 INTSTALL
051650,000220: 36,3463 74375 VLOAD VXSC # CALC. GAMMA * OMEGA1,2,3
051651,000221: 36,3464 03460 OMEGA
051652,000222: 36,3465 03456 GAMMA
051653,000223: 36,3466 26643 STOVL OMEGAM1
051654,000224: 36,3467 03466 OMEGA +6
051655,000225: 36,3470 77761 VXSC
051656,000226: 36,3471 03456 GAMMA
051657,000227: 36,3472 26651 STOVL OMEGAM2
051658,000228: 36,3473 03474 OMEGA +12D
051659,000229: 36,3474 77761 VXSC
051660,000230: 36,3475 03456 GAMMA
051661,000231: 36,3476 02657 STORE OMEGAM3
051662,000232: 36,3477 77776 EXIT
051663,000233: 36,3500 33761 CAF 54DD # INITIAL IX 1 SETTING FOR W MATRIX
051664,000234: 36,3501 55252 TS WIXA
051665,000235: 36,3502 55253 TS WIXB
051666,000236: 36,3503 34714 CAF ZERO
051667,000237: 36,3504 55254 TS ZIXA # INITIAL IX 2 SETTING FOR Z COMPONENT
051668,000238: 36,3505 55255 TS ZIXB
051669,000239: 36,3506 05301 FAZA TC PHASCHNG
051670,000240: # # Page 1224
051671,000241: 36,3507 04022 OCT 04022
051672,000242: 36,3510 05435 TC UPFLAG
051673,000243: 36,3511 00236 ADRES REINTFLG
051674,000244: 36,3512 31253 FAZA1 CA WIXB # START FIRST PHASE OF INCORP2
051675,000245: 36,3513 55252 TS WIXA # TO UPDATE 6 OR 9 DIM. W MATRIX IN TEMP
051676,000246: 36,3514 31255 CA ZIXB
051677,000247: 36,3515 55254 TS ZIXA
051678,000248: 36,3516 06006 TC INTPRET
051679,000249: 36,3517 73150 LXA,1 LXA,2
051680,000250: 36,3520 01252 WIXA
051681,000251: 36,3521 01254 ZIXA
051682,000252: 36,3522 70731 SSP DLOAD*
051683,000253: 36,3523 00051 S1
051684,000254: 36,3524 00006 6
051685,000255: 36,3525 75054 ZI,2
051686,000256: 36,3526 60276 DCOMP NORM # CALC UPPER 3X9 PARTITION OF W MATRIX
051687,000257: 36,3527 00052 S2
051688,000258: 36,3530 65161 VXSC XCHX,2
051689,000259: 36,3531 02643 OMEGAM1
051690,000260: 36,3532 00051 S2
051691,000261: 36,3533 57144 LXC,2 XAD,2
051692,000262: 36,3534 00047 X2
051693,000263: 36,3535 02215 NORMGAM
051694,000264: 36,3536 65057 VSL* XCHX,2
051695,000265: 36,3537 57576 0,2
051696,000266: 36,3540 00051 S2
051697,000267: 36,3541 77653 VAD*
051698,000268: 36,3542 02467 W +54D,1
051699,000269: 36,3543 02665 STORE HOLDW
051700,000270: 36,3544 57543 DLOAD* DCOMP # CALC MIDDLE 3X9 PARTITION OF W MATRIX
051701,000271: 36,3545 75054 ZI,2
051702,000272: 36,3546 74301 NORM VXSC
051703,000273: 36,3547 00052 S2
051704,000274: 36,3550 02651 OMEGAM2
051705,000275: 36,3551 71124 XCHX,2 LXC,2
051706,000276: 36,3552 00051 S2
051707,000277: 36,3553 00047 X2
051708,000278: 36,3554 53674 XAD,2 VSL*
051709,000279: 36,3555 02215 NORMGAM
051710,000280: 36,3556 57576 0,2
051711,000281: 36,3557 52724 XCHX,2 VAD*
051712,000282: 36,3560 00051 S2
051713,000283: 36,3561 02555 W +108D,1
051714,000284: 36,3562 02673 STORE HOLDW +6
051715,000285: 36,3563 77614 BOFF
051716,000286: 36,3564 02746 DMENFLG # BRANCH IF 6 DIMENSIONAL
051717,000287: 36,3565 75605 FAZB
051718,000288: 36,3566 57543 DLOAD* DCOMP # CALC LOWER 3X9 PARTITION OF W MATRIX
051719,000289: 36,3567 75054 ZI,2
051720,000290: 36,3570 74301 NORM VXSC
051721,000291: # # Page 1225
051722,000292: 36,3571 00052 S2
051723,000293: 36,3572 02657 OMEGAM3
051724,000294: 36,3573 71124 XCHX,2 LXC,2
051725,000295: 36,3574 00051 S2
051726,000296: 36,3575 00047 X2
051727,000297: 36,3576 53674 XAD,2 VSL*
051728,000298: 36,3577 02215 NORMGAM
051729,000299: 36,3600 57576 0,2
051730,000300: 36,3601 52724 XCHX,2 VAD*
051731,000301: 36,3602 00051 S2
051732,000302: 36,3603 02643 W +162D,1
051733,000303: 36,3604 02701 STORE HOLDW +12D
051734,000304: 36,3605 77624 FAZB CALL
051735,000305: 36,3606 56712 GRP2PC
051736,000306: 36,3607 77776 EXIT
051737,000307: 36,3610 31252 FAZB1 CA WIXA # START 2ND PHASE OF INCORP2 TO TRANSFER
051738,000308: 36,3611 63762 AD 6DD # TEMP REG TO PERM W MATRIX
051739,000309: 36,3612 55253 TS WIXB
051740,000310: 36,3613 31254 CA ZIXA
051741,000311: 36,3614 67715 AD MINUS2
051742,000312: 36,3615 55255 TS ZIXB
051743,000313: 36,3616 06006 TC INTPRET
051744,000314: 36,3617 66350 LXA,1 SSP
051745,000315: 36,3620 01252 WIXA
051746,000316: 36,3621 00051 S1
051747,000317: 36,3622 00006 6
051748,000318: 36,3623 77775 VLOAD
051749,000319: 36,3624 02665 HOLDW
051750,000320: 36,3625 06467 STORE W +54D,1
051751,000321: 36,3626 77775 VLOAD
051752,000322: 36,3627 02673 HOLDW +6
051753,000323: 36,3630 06555 STORE W +108D,1
051754,000324: 36,3631 77214 BOFF VLOAD
051755,000325: 36,3632 02746 DMENFLG
051756,000326: 36,3633 75643 FAZB5
051757,000327: 36,3634 02701 HOLDW +12D
051758,000328: 36,3635 06643 STORE W +162D,1
051759,000329: 36,3636 52100 FAZB2 TIX,1 GOTO
051760,000330: 36,3637 75641 +2
051761,000331: 36,3640 75651 FAZC # DONE WITH W MATRIX. UPDATE STATE VECTOR
051762,000332: 36,3641 77634 RTB
051763,000333: 36,3642 75506 FAZA
051764,000334: 36,3643 43335 FAZB5 SLOAD DAD
051765,000335: 36,3644 01256 ZIXB
051766,000336: 36,3645 35764 12DD
051767,000337: 36,3646 52030 BHIZ GOTO
051768,000338: 36,3647 75651 FAZC
051769,000339: 36,3650 75636 FAZB2
051770,000340: 36,3651 77624 FAZC CALL
051771,000341: 36,3652 56712 GRP2PC
051772,000342: # # Page 1226
051773,000343: 36,3653 53375 VLOAD VAD # START 3RD PHASE OF INCORP2
051774,000344: 36,3654 01701 X789 # 7TH,8TH,9TH,COMPONENT OF STATE VECTOR
051775,000345: 36,3655 01273 DELTAX +12D # INCORPORATION FOR X789
051776,000346: 36,3656 03450 STORE TX789
051777,000347: 36,3657 47014 BON RTB
051778,000348: 36,3660 00707 VEHUPFLG
051779,000349: 36,3661 75751 DOCSM
051780,000350: 36,3662 26745 MOVEPLEM
051781,000351: 36,3663 77004 FAZAB BOVB AXT,2
051782,000352: 36,3664 57314 TCDANZIG
051783,000353: 36,3665 00000 0
051784,000354: 36,3666 77014 BOFF AXT,2
051785,000355: 36,3667 04343 MOONTHIS
051786,000356: 36,3670 75672 +2
051787,000357: 36,3671 00002 2
051788,000358: 36,3672 53775 VLOAD VSR*
051789,000359: 36,3673 01257 DELTAX # B27 IF MOON ORBIT, B29 IF EARTH
051790,000360: 36,3674 57205 0 -7,2
051791,000361: 36,3675 40055 VAD BOV
051792,000362: 36,3676 01521 TDELTAV
051793,000363: 36,3677 75711 FAZAB1
051794,000364: 36,3700 25521 STOVL TDELTAV
051795,000365: 36,3701 01265 DELTAX +6 # B5 IF MOON ORBIT, B7 IF EARTH
051796,000366: 36,3702 53257 VSR* VAD
051797,000367: 36,3703 57202 0 -4,2
051798,000368: 36,3704 01527 TNUV
051799,000369: 36,3705 77600 BOV
051800,000370: 36,3706 75715 FAZAB2
051801,000371: 36,3707 35527 STCALL TNUV
051802,000372: 36,3710 75724 FAZAB3
051803,000373: 36,3711 53375 FAZAB1 VLOAD VAD
051804,000374: 36,3712 01535 RCV
051805,000375: 36,3713 01257 DELTAX
051806,000376: 36,3714 01535 STORE RCV
051807,000377: 36,3715 53375 FAZAB2 VLOAD VAD
051808,000378: 36,3716 01543 VCV
051809,000379: 36,3717 01265 DELTAX +6
051810,000380: 36,3720 01543 STORE VCV
051811,000381: 36,3721 45134 SXA,2 CALL
051812,000382: 36,3722 02150 PBODY
051813,000383: 36,3723 23344 RECTIFY
051814,000384: 36,3724 77624 FAZAB3 CALL
051815,000385: 36,3725 56712 GRP2PC
051816,000386: 36,3726 47014 BON RTB
051817,000387: 36,3727 00707 VEHUPFLG
051818,000388: 36,3730 75754 DOCSM1
051819,000389: 36,3731 26724 MOVEALEM
051820,000390: 36,3732 77624 CALL
051821,000391: 36,3733 20263 SVDWN2 # STORE DOWNLINK STATE VECTOR
051822,000392: 36,3734 77624 FAZAB4 CALL
051823,000393: # # Page 1227
051824,000394: 36,3735 56712 GRP2PC # PHASE CHANGE
051825,000395: 36,3736 77214 BOFF VLOAD
051826,000396: 36,3737 02746 DMENFLG
051827,000397: 36,3740 75743 FAZAB5 # 6 DIMENSIONAL
051828,000398: 36,3741 03450 TX789 # 9 DIMENSIONAL
051829,000399: 36,3742 01701 STORE X789
051830,000400: 36,3743 66150 FAZAB5 LXA,1 SXA,1
051831,000401: 36,3744 02317 EGRESS
051832,000402: 36,3745 00052 QPRET
051833,000403: 36,3746 77776 EXIT
051834,000404: 36,3747 04574 TC POSTJUMP # EXIT
051835,000405: 36,3750 27406 CADR INTWAKE
051836,000406: 36,3751 52034 DOCSM RTB GOTO
051837,000407: 36,3752 26700 MOVEPCSM
051838,000408: 36,3753 75663 FAZAB
051839,000409: 36,3754 45034 DOCSM1 RTB CALL
051840,000410: 36,3755 26651 MOVEACSM
051841,000411: 36,3756 20237 SVDWN1 # STORE DOWNLINK STATE VECTOR
051842,000412: 36,3757 77650 GOTO
051843,000413: 36,3760 75734 FAZAB4
051844,000414: 36,3761 26,3331 ZEROD = ZEROVECS
051845,000415: 36,3761 00066 54DD DEC 54 B-14
051846,000416: 36,3762 77771 6DD DEC -6 B-14
051847,000417: 36,3763 00014 12DD DEC 12 B-14
End of include-file MEASUREMENT_INCORPORATION.agc. Parent file is MAIN.agc