Source Code
![]() |
This is the source-code for the Apollo 9 Command Module's Guidance Computer.
These files were derived originally from the scan from MIT's Dibner Institute's
now-discontinued website titled "History of Recent Science and Technology", which
in turn was originally created by Gary Neff, though his high-quality scans were
unfortunately reduced in legibility when presented online.
The markings on the front of the
printout imply that it was the original AGC developer Norm Brodeur's copy.
A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original
AGC developer Fred Martin. The source code was transcribed from
those images by Ron Burkey. Note that the page images
presented online are of reduced quality, and that higher-quality images
are available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041 20'35 OCT. 28,1968Note that the date is the date of the printout, not the date of the program revision. |
053413,000002: ## Copyright: Public domain.
053414,000003: ## Filename: MEASUREMENT_INCORPORATION.agc
053415,000004: ## Purpose: Part of the source code for Colossus, build 249.
053416,000005: ## It is part of the source code for the Command Module's (CM)
053417,000006: ## Apollo Guidance Computer (AGC), for Apollo 9.
053418,000007: ## Assembler: yaYUL
053419,000008: ## Reference: Begins on p. 1222
053420,000009: ## Contact: Ron Burkey <info@sandroid.org>.
053421,000010: ## Website: www.ibiblio.org/apollo.
053422,000011: ## Mod history: 08/28/04 RSB. Adapted from corresponding Luminary131 file.
053423,000012: ## 2010-10-24 JL Indentation fixes.
053424,000013: ## 2017-01-06 RSB Page numbers now agree with those on the
053425,000014: ## original harcopy, as opposed to the PDF page
053426,000015: ## numbers in 1701.pdf.
053427,000016: ## 2017-01-15 RSB Cross-diff'd comment text (not whitespace)
053428,000017: ## vs the already-proofed corresponding Colossus
053429,000018: ## 237 and Comanche 55 source-code files
053430,000019: ## and corrected errors found. No comment-text
053431,000020: ## differences remained vs Comanche 55
053432,000021: ## at the end, but there were differences vs
053433,000022: ## Colossus 237.
053434,000023: ##
053435,000024: ## The contents of the "Colossus249" files, in general, are transcribed
053436,000025: ## from a scanned copy of the program listing. Notations on this
053437,000026: ## document read, in part:
053438,000027: ##
053439,000028: ## Assemble revision 249 of AGC program Colossus by NASA
053440,000029: ## 2021111-041. October 28, 1968.
053441,000030: ##
053442,000031: ## This AGC program shall also be referred to as
053443,000032: ## Colossus 1A
053444,000033: ##
053445,000034: ## Prepared by
053446,000035: ## Massachusetts Institute of Technology
053447,000036: ## 75 Cambridge Parkway
053448,000037: ## Cambridge, Massachusetts
053449,000038: ## under NASA contract NAS 9-4065.
053450,000039: ##
053451,000040: ## Refer directly to the online document mentioned above for further information.
053452,000041: ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
053453,000042: ##
053454,000043: ## In some cases, where the source code for Luminary 131 overlaps that of
053455,000044: ## Colossus 249, this code is instead copied from the corresponding Luminary 131
053456,000045: ## source file, and then is proofed to incorporate any changes.
053457,000046:
![]() |
Page 1222 |
053459,000048: # INCORP1--PERFORMS THE SIX DIMENSIONAL STATE VECTOR DEVIATION FOR POSITI
053460,000049: # ON AND VELOCITY OR THE NINE DIMENSIONAL DEVIATION OF POSITION,VELOCITY,A
053461,000050: # ND RADAR OR LANDMARK BIAS.THE OUTPUT OF THE BVECTOR ROUTINE ALONG WITH T
053462,000051: # HE ERROR TRANSITION MATRIX(W) ARE USED AS INPUT TO THE ROUTINE.THE DEVIA
053463,000052: # TION IS OBTAINED BY COMPUTING AN ESTIMATED TRACKING MEASUREMENT FROM THE
053464,000053: # CURRENT STATE VECTOR AND COMPARING IT WITH AN ACTUAL TRACKING MEASUREMEN
053465,000054: # T AND APPLYING A STATISTICAL WEIGHTING VECTOR.
053466,000055:
053467,000056: # INPUT
053468,000057: # DMENFLG = 0 6DIMENSIONAL BVECTOR 1= 9DIMENSIONAL
053469,000058: # W = ERROR TRANSITION MATRIX 6X6 OR 9X9
053470,000059: # VARIANCE = VARIANCE (SCALAR)
053471,000060: # DELTAQ = MEASURED DEVIATION (SCALAR)
053472,000061: # BVECTOR = 6 OR 9 DIMENSIONAL BVECTOR
053473,000062:
053474,000063: # OUTPUT
053475,000064: # DELTAX = STATE VECTOR DEVIATIONS 6 OR 9 DIMENSIONAL
053476,000065: # ZI = VECTOR USED FOR THE INCORPORATION 6 OR 9 DIMENSIONAL
053477,000066: # GAMMA = SCALAR
053478,000067: # OMEGA = OMEGA WEIGHTING VECTOR 6 OR 9 DIMENTIONAL
053479,000068:
053480,000069: # CALLING SEQUENCE
053481,000070: # L CALL INCORP1
053482,000071:
053483,000072: # NORMAL EXIT
053484,000073: # L+1 OF CALLING SEQUENCE
053485,000074:
053486,000075: 37,3676 BANK 37
053487,000076: 36,2000 SETLOC MEASINC
053488,000077: 36,2000 BANK
053489,000078:
053490,000079: 36,3250 COUNT* $$/INCOR
053491,000080:
053492,000081: 36,3250 E5,1400 EBANK= W
053493,000082:
053494,000083: 36,3250 77620 INCORP1 STQ
053495,000084: 36,3251 02317 EGRESS
053496,000085: 36,3252 66370 AXT,1 SSP
053497,000086: 36,3253 00066 54D
053498,000087: 36,3254 00051 S1
053499,000088: 36,3255 00022 18D # IX1 = 54 S1= 18
053500,000089: 36,3256 66374 AXT,2 SSP
053501,000090: 36,3257 00022 18D
053502,000091: 36,3260 00052 S2
053503,000092: 36,3261 00006 6 # IX2 = 18 S2=6
053504,000093: 36,3262 63775 Z123 VLOAD MXV*
053505,000094: 36,3263 03502 BVECTOR # BVECTOR (0)
053506,000095: 36,3264 02467 W +54D,1
053507,000096: 36,3265 12745 STORE ZI +18D,2
053508,000097: 36,3266 77775 VLOAD
053509,000098: 36,3267 03510 BVECTOR +6 # BVECTOR (1)
![]() |
Page 1223 |
053511,000100: 36,3270 52717 MXV* VAD*
053512,000101: 36,3271 02555 W +108D,1
053513,000102: 36,3272 75032 ZI +18D,2
053514,000103: 36,3273 12745 STORE ZI +18D,2
053515,000104: 36,3274 77775 VLOAD
053516,000105: 36,3275 03516 BVECTOR +12D # BVECTOR (2)
053517,000106: 36,3276 52717 MXV* VAD*
053518,000107: 36,3277 02643 W +162D,1
053519,000108: 36,3300 75032 ZI +18D,2 # B(0)*W+B(1)*(W+54)+B(2)*(W+108) FIRST PAS
053520,000109: 36,3301 12745 STORE ZI +18D,2 # ZI THEN Z2 THEN Z3
053521,000110: 36,3302 77700 TIX,1
053522,000111: 36,3303 75304 INCOR1
053523,000112: 36,3304 43104 INCOR1 TIX,2 BON
053524,000113: 36,3305 75262 Z123 # LOOP FOR Z1,Z2,Z3
053525,000114: 36,3306 02706 DMENFLG
053526,000115: 36,3307 75313 INCOR1A
053527,000116: 36,3310 77775 VLOAD
053528,000117: 36,3311 15332 ZEROVECS
053529,000118: 36,3312 02737 STORE ZI +12D
053530,000119: 36,3313 77201 INCOR1A SETPD VLOAD
053531,000120: 36,3314 00001 0
053532,000121: 36,3315 02723 ZI
053533,000122: 36,3316 47036 VSQ RTB
053534,000123: 36,3317 45562 TPMODE
053535,000124: 36,3320 47515 PDVL VSQ
053536,000125: 36,3321 02731 ZI +6
053537,000126: 36,3322 76234 RTB TAD
053538,000127: 36,3323 45562 TPMODE
053539,000128: 36,3324 47515 PDVL VSQ
053540,000129: 36,3325 02737 ZI +12D
053541,000130: 36,3326 76234 RTB TAD
053542,000131: 36,3327 45562 TPMODE
053543,000132: 36,3330 77171 TAD AXT,2
053544,000133: 36,3331 03526 VARIANCE
053545,000134: 36,3332 00000 0
053546,000135: 36,3333 01257 STORE TRIPA # ZI*2 + Z2*2 + Z3*2 + VARIANCE
053547,000136: 36,3334 40151 TLOAD BOV
053548,000137: 36,3335 03526 VARIANCE # CLEAR OVFIND
053549,000138: 36,3336 75337 +1
053550,000139: 36,3337 01262 STORE TEMPVAR # TEMP STORAGE FOR VARIANCE
053551,000140: 36,3340 77654 BZE
053552,000141: 36,3341 75350 INCOR1C
053553,000142: 36,3342 40112 INCOR1B SL2 BOV
053554,000143: 36,3343 75350 INCOR1C
053555,000144: 36,3344 01262 STORE TEMPVAR
053556,000145: 36,3345 52114 INCR,2 GOTO
053557,000146: 36,3346 00001 DEC 1 B-14
053558,000147: 36,3347 75342 INCOR1B
053559,000148: 36,3350 61551 INCOR1C TLOAD ROUND
053560,000149: 36,3351 01257 TRIPA
![]() |
Page 1224 |
053562,000151: 36,3352 75405 DMP SQRT
053563,000152: 36,3353 01262 TEMPVAR
053564,000153: 36,3354 76257 SL* TAD
053565,000154: 36,3355 57576 0,2
053566,000155: 36,3356 01257 TRIPA
053567,000156: 36,3357 63101 NORM INCR,2
053568,000157: 36,3360 00050 X2
053569,000158: 36,3361 77775 DEC -2 B-14
053570,000159: 36,3362 77134 SXA,2 AXT,2
053571,000160: 36,3363 02215 NORMGAM # NORMALIZATION COUNT -2 FOR GAMMA
053572,000161: 36,3364 00242 162D
053573,000162: 36,3365 40265 BDDV SETPD
053574,000163: 36,3366 15322 DP1/4TH
053575,000164: 36,3367 00001 0
053576,000165: 36,3370 03456 STORE GAMMA
053577,000166: 36,3371 60351 TLOAD NORM
053578,000167: 36,3372 01257 TRIPA
053579,000168: 36,3373 00047 X1
053580,000169: 36,3374 65345 DLOAD PDDL # PD 0-1 = NORM (A)
053581,000170: 36,3375 00155 MPAC
053582,000171: 36,3376 03524 DELTAQ
053583,000172: 36,3377 77701 NORM
053584,000173: 36,3400 00051 S1
053585,000174: 36,3401 70460 XSU,1 SR1
053586,000175: 36,3402 00050 S1
053587,000176: 36,3403 41471 DDV PUSH # PD 0-1 = DELTAQ/A
053588,000177: 36,3404 77650 GOTO
053589,000178: 36,3405 77676 NEWZCOMP
053590,000179: 36,3406 77731 -3 SSP
053591,000180: 36,3407 00052 S2
053592,000181: 36,3410 00066 54D
053593,000182: 36,3411 60775 INCOR2 VLOAD VXM* # COMPUTE OMEGA1,2,3
053594,000183: 36,3412 02723 ZI
053595,000184: 36,3413 75134 W +162D,2
053596,000185: 36,3414 77206 PUSH VLOAD
053597,000186: 36,3415 02731 ZI +6
053598,000187: 36,3416 53303 VXM* VAD
053599,000188: 36,3417 75112 W +180D,2
053600,000189: 36,3420 77206 PUSH VLOAD
053601,000190: 36,3421 02737 ZI +12D
053602,000191: 36,3422 53303 VXM* VAD
053603,000192: 36,3423 75070 W +198D,2
053604,000193: 36,3424 61006 PUSH TIX,2 # PD 2-7=OMEGA1,8-13=OMEGA2,14-19=OMEGA3
053605,000194: 36,3425 75411 INCOR2
053606,000195: 36,3426 45575 VLOAD STADR
053607,000196: 36,3427 74303 STORE OMEGA +12D
053608,000197: 36,3430 45575 VLOAD STADR
053609,000198: 36,3431 74311 STORE OMEGA +6
053610,000199: 36,3432 45575 VLOAD STADR
053611,000200: 36,3433 74317 STORE OMEGA
![]() |
Page 1225 |
053613,000202: 36,3434 77214 BON VLOAD
053614,000203: 36,3435 02706 DMENFLG
053615,000204: 36,3436 75441 INCOR2AB
053616,000205: 36,3437 15332 ZEROVECS
053617,000206: 36,3440 03474 STORE OMEGA +12D
053618,000207: 36,3441 66374 INCOR2AB AXT,2 SSP
053619,000208: 36,3442 00022 18D
053620,000209: 36,3443 00052 S2
053621,000210: 36,3444 00006 6
053622,000211: 36,3445 77773 INCOR3 VLOAD*
053623,000212: 36,3446 74275 OMEGA +18D,2
053624,000213: 36,3447 53761 VXSC VSL*
053625,000214: 36,3450 00001 0 # DELTAQ/A
053626,000215: 36,3451 20201 0,1
053627,000216: 36,3452 11301 STORE DELTAX +18D,2
053628,000217: 36,3453 77304 TIX,2 VLOAD
053629,000218: 36,3454 75445 INCOR3
053630,000219: 36,3455 01265 DELTAX +6
053631,000220: 36,3456 77732 VSL3
053632,000221: 36,3457 01265 STORE DELTAX +6
053633,000222: 36,3460 77650 GOTO
053634,000223: 36,3461 02317 EGRESS
053635,000224:
![]() |
Page 1226 |
053637,000226: # INCORP2 -INCORPORATES THE COMPUTED STATE VECTOR DEVIATIONS INTO THE
053638,000227: # ESTIMATED STATE VECTOR. THE STATE VECTOR UPDATED MAY BE FOR EITHER THE
053639,000228: # LEM OR THE CSM. DETERMINED BY FLAG VEHUPFLG. (ZERO = LEM) (1 = CSM)
053640,000229:
053641,000230: # INPUT
053642,000231: # PERMANENT STATE VECTOR FOR EITHER THE LEM OR CSM
053643,000232: # VEHUPFLG = UPDATE VEHICLE 0=LEM 1=CSM
053644,000233: # W = ERROR TRANSITION MATRIX
053645,000234: # DELTAX = COMPUTED STATE VECTOR DEVIATIONS
053646,000235: # DMENFLG = SIZE OF W MATRIX (ZERO=6X6) (1=9X9)
053647,000236: # GAMMA = SCALAR FOR INCORPORATION
053648,000237: # ZI = VECTOR USED IN INCORPORATION
053649,000238: # OMEGA = WEIGHTING VECTOR
053650,000239:
053651,000240: # OUTPUT
053652,000241: # UPDATED PERMANENT STATE VECTOR
053653,000242:
053654,000243: # CALLING SEQUENCE
053655,000244: # L CALL INCORP2
053656,000245:
053657,000246: # NORMAL EXIT
053658,000247: # L+1 OF CALLING SEQUENCE
053659,000248:
053660,000249:
053661,000250: 36,2000 SETLOC MEASINC1
053662,000251: 36,2000 BANK
053663,000252:
053664,000253: 36,3462 COUNT* $$/INCOR
053665,000254:
053666,000255: 36,3462 45020 INCORP2 STQ CALL
053667,000256: 36,3463 02317 EGRESS
053668,000257: 36,3464 27371 INTSTALL
053669,000258: 36,3465 74375 VLOAD VXSC # CALC. GAMMA*OMEGA1,2,3
053670,000259: 36,3466 03460 OMEGA
053671,000260: 36,3467 03456 GAMMA
053672,000261: 36,3470 26643 STOVL OMEGAM1
053673,000262: 36,3471 03466 OMEGA +6
053674,000263: 36,3472 77761 VXSC
053675,000264: 36,3473 03456 GAMMA
053676,000265: 36,3474 26651 STOVL OMEGAM2
053677,000266: 36,3475 03474 OMEGA +12D
053678,000267: 36,3476 77761 VXSC
053679,000268: 36,3477 03456 GAMMA
053680,000269: 36,3500 02657 STORE OMEGAM3
053681,000270: 36,3501 77776 EXIT
053682,000271: 36,3502 33763 CAF 54DD # INITIAL IX 1 SETTING FOR W MATRIX
053683,000272: 36,3503 55252 TS WIXA
053684,000273: 36,3504 55253 TS WIXB
053685,000274: 36,3505 34714 CAF ZERO
053686,000275: 36,3506 55254 TS ZIXA # INITIAL IX 2 SETTING FOR Z COMPONENT
053687,000276: 36,3507 55255 TS ZIXB
053688,000277: 36,3510 05301 FAZA TC PHASCHNG
![]() |
Page 1227 |
053690,000279: 36,3511 04022 OCT 04022
053691,000280: 36,3512 05435 TC UPFLAG
053692,000281: 36,3513 00236 ADRES REINTFLG
053693,000282: 36,3514 31253 FAZA1 CA WIXB # START FIRST PHASE OF INCORP2
053694,000283: 36,3515 55252 TS WIXA # TO UPDATE 6 OR 9 DIM. W MATRIX IN TEMP
053695,000284: 36,3516 31255 CA ZIXB
053696,000285: 36,3517 55254 TS ZIXA
053697,000286: 36,3520 06006 TC INTPRET
053698,000287: 36,3521 73150 LXA,1 LXA,2
053699,000288: 36,3522 01252 WIXA
053700,000289: 36,3523 01254 ZIXA
053701,000290: 36,3524 70731 SSP DLOAD*
053702,000291: 36,3525 00051 S1
053703,000292: 36,3526 00006 6
053704,000293: 36,3527 75054 ZI,2
053705,000294: 36,3530 60276 DCOMP NORM # CALC UPPER 3X9 PARTITION OF W MATRIX
053706,000295: 36,3531 00052 S2
053707,000296: 36,3532 65161 VXSC XCHX,2
053708,000297: 36,3533 02643 OMEGAM1
053709,000298: 36,3534 00051 S2
053710,000299: 36,3535 57144 LXC,2 XAD,2
053711,000300: 36,3536 00047 X2
053712,000301: 36,3537 02215 NORMGAM
053713,000302: 36,3540 65057 VSL* XCHX,2
053714,000303: 36,3541 57576 0,2
053715,000304: 36,3542 00051 S2
053716,000305: 36,3543 77653 VAD*
053717,000306: 36,3544 02467 W +54D,1
053718,000307: 36,3545 02665 STORE HOLDW
053719,000308: 36,3546 57543 DLOAD* DCOMP # CALC MIDDLE 3X9 PARTITION OF W MATRIX
053720,000309: 36,3547 75054 ZI,2
053721,000310: 36,3550 74301 NORM VXSC
053722,000311: 36,3551 00052 S2
053723,000312: 36,3552 02651 OMEGAM2
053724,000313: 36,3553 71124 XCHX,2 LXC,2
053725,000314: 36,3554 00051 S2
053726,000315: 36,3555 00047 X2
053727,000316: 36,3556 53674 XAD,2 VSL*
053728,000317: 36,3557 02215 NORMGAM
053729,000318: 36,3560 57576 0,2
053730,000319: 36,3561 52724 XCHX,2 VAD*
053731,000320: 36,3562 00051 S2
053732,000321: 36,3563 02555 W +108D,1
053733,000322: 36,3564 02673 STORE HOLDW +6
053734,000323: 36,3565 77614 BOFF
053735,000324: 36,3566 02746 DMENFLG # BRANCH IF 6 DIMENSIONAL
053736,000325: 36,3567 75607 FAZB
053737,000326: 36,3570 57543 DLOAD* DCOMP # CALC LOWER 3X9 PARTITION OF W MATRIX
053738,000327: 36,3571 75054 ZI,2
053739,000328: 36,3572 74301 NORM VXSC
![]() |
Page 1228 |
053741,000330: 36,3573 00052 S2
053742,000331: 36,3574 02657 OMEGAM3
053743,000332: 36,3575 71124 XCHX,2 LXC,2
053744,000333: 36,3576 00051 S2
053745,000334: 36,3577 00047 X2
053746,000335: 36,3600 53674 XAD,2 VSL*
053747,000336: 36,3601 02215 NORMGAM
053748,000337: 36,3602 57576 0,2
053749,000338: 36,3603 52724 XCHX,2 VAD*
053750,000339: 36,3604 00051 S2
053751,000340: 36,3605 02643 W +162D,1
053752,000341: 36,3606 02701 STORE HOLDW +12D
053753,000342: 36,3607 77624 FAZB CALL
053754,000343: 36,3610 56741 GRP2PC
053755,000344: 36,3611 77776 EXIT
053756,000345: 36,3612 31252 FAZB1 CA WIXA # START 2ND PHASE OF INCORP2 TO TRANSFER
053757,000346: 36,3613 63764 AD 6DD # TEMP REG TO PERM W MATRIX
053758,000347: 36,3614 55253 TS WIXB
053759,000348: 36,3615 31254 CA ZIXA
053760,000349: 36,3616 67715 AD MINUS2
053761,000350: 36,3617 55255 TS ZIXB
053762,000351: 36,3620 06006 TC INTPRET
053763,000352: 36,3621 66350 LXA,1 SSP
053764,000353: 36,3622 01252 WIXA
053765,000354: 36,3623 00051 S1
053766,000355: 36,3624 00006 6
053767,000356: 36,3625 77775 VLOAD
053768,000357: 36,3626 02665 HOLDW
053769,000358: 36,3627 06467 STORE W +54D,1
053770,000359: 36,3630 77775 VLOAD
053771,000360: 36,3631 02673 HOLDW +6
053772,000361: 36,3632 06555 STORE W +108D,1
053773,000362: 36,3633 77214 BOFF VLOAD
053774,000363: 36,3634 02746 DMENFLG
053775,000364: 36,3635 75645 FAZB5
053776,000365: 36,3636 02701 HOLDW +12D
053777,000366: 36,3637 06643 STORE W +162D,1
053778,000367: 36,3640 52100 FAZB2 TIX,1 GOTO
053779,000368: 36,3641 75643 +2
053780,000369: 36,3642 75653 FAZC # DONE WITH W MATRIX. UPDATE STATE VECTOR
053781,000370: 36,3643 77634 RTB
053782,000371: 36,3644 75510 FAZA
053783,000372: 36,3645 43335 FAZB5 SLOAD DAD
053784,000373: 36,3646 01256 ZIXB
053785,000374: 36,3647 35766 12DD
053786,000375: 36,3650 52030 BHIZ GOTO
053787,000376: 36,3651 75653 FAZC
053788,000377: 36,3652 75640 FAZB2
053789,000378: 36,3653 77624 FAZC CALL
053790,000379: 36,3654 56741 GRP2PC
![]() |
Page 1229 |
053792,000381: 36,3655 53375 VLOAD VAD # START 3RD PHASE OF INCORP2
053793,000382: 36,3656 01701 X789 # 7TH,8TH,9TH,COMPONENT OF STATE VECTOR
053794,000383: 36,3657 01273 DELTAX +12D # INCORPORATION FOR X789
053795,000384: 36,3660 03450 STORE TX789
053796,000385: 36,3661 47014 BON RTB
053797,000386: 36,3662 00707 VEHUPFLG
053798,000387: 36,3663 75753 DOCSM
053799,000388: 36,3664 26745 MOVEPLEM
053800,000389: 36,3665 77004 FAZAB BOVB AXT,2
053801,000390: 36,3666 57343 TCDANZIG
053802,000391: 36,3667 00000 0
053803,000392: 36,3670 77014 BOFF AXT,2
053804,000393: 36,3671 04343 MOONTHIS
053805,000394: 36,3672 75674 +2
053806,000395: 36,3673 00002 2
053807,000396: 36,3674 53775 VLOAD VSR*
053808,000397: 36,3675 01257 DELTAX # B27 IF MOON ORBIT, B29 IF EARTH
053809,000398: 36,3676 57205 0 -7,2
053810,000399: 36,3677 40055 VAD BOV
053811,000400: 36,3700 01521 TDELTAV
053812,000401: 36,3701 75713 FAZAB1
053813,000402: 36,3702 25521 STOVL TDELTAV
053814,000403: 36,3703 01265 DELTAX +6 # B5 IF MOON ORBIT, B7 IF EARTH
053815,000404: 36,3704 53257 VSR* VAD
053816,000405: 36,3705 57202 0 -4,2
053817,000406: 36,3706 01527 TNUV
053818,000407: 36,3707 77600 BOV
053819,000408: 36,3710 75717 FAZAB2
053820,000409: 36,3711 35527 STCALL TNUV
053821,000410: 36,3712 75726 FAZAB3
053822,000411: 36,3713 53375 FAZAB1 VLOAD VAD
053823,000412: 36,3714 01535 RCV
053824,000413: 36,3715 01257 DELTAX
053825,000414: 36,3716 01535 STORE RCV
053826,000415: 36,3717 53375 FAZAB2 VLOAD VAD
053827,000416: 36,3720 01543 VCV
053828,000417: 36,3721 01265 DELTAX +6
053829,000418: 36,3722 01543 STORE VCV
053830,000419: 36,3723 45134 SXA,2 CALL
053831,000420: 36,3724 02150 PBODY
053832,000421: 36,3725 23344 RECTIFY
053833,000422: 36,3726 77624 FAZAB3 CALL
053834,000423: 36,3727 56741 GRP2PC
053835,000424: 36,3730 47014 BON RTB
053836,000425: 36,3731 00707 VEHUPFLG
053837,000426: 36,3732 75756 DOCSM1
053838,000427: 36,3733 26724 MOVEALEM
053839,000428: 36,3734 77624 CALL
053840,000429: 36,3735 20263 SVDWN2 # STORE DOWNLINK STATE VECTOR
053841,000430: 36,3736 77624 FAZAB4 CALL
![]() |
Page 1230 |
053843,000432: 36,3737 56741 GRP2PC # PHASE CHANGE
053844,000433: 36,3740 77214 BOFF VLOAD
053845,000434: 36,3741 02746 DMENFLG
053846,000435: 36,3742 75745 FAZAB5 # 6 DIMENSIONAL
053847,000436: 36,3743 03450 TX789 # 9 DIMENSIONAL
053848,000437: 36,3744 01701 STORE X789
053849,000438: 36,3745 66150 FAZAB5 LXA,1 SXA,1
053850,000439: 36,3746 02317 EGRESS
053851,000440: 36,3747 00052 QPRET
053852,000441: 36,3750 77776 EXIT
053853,000442: 36,3751 04574 TC POSTJUMP # EXIT
053854,000443: 36,3752 27406 CADR INTWAKE
053855,000444: 36,3753 52034 DOCSM RTB GOTO
053856,000445: 36,3754 26700 MOVEPCSM
053857,000446: 36,3755 75665 FAZAB
053858,000447: 36,3756 45034 DOCSM1 RTB CALL
053859,000448: 36,3757 26651 MOVEACSM
053860,000449: 36,3760 20237 SVDWN1 # STORE DOWNLINK STATE VECTOR
053861,000450: 36,3761 77650 GOTO
053862,000451: 36,3762 75736 FAZAB4
053863,000452: 36,3763 26,3331 ZEROD = ZEROVECS
053864,000453: 36,3763 00066 54DD DEC 54 B-14
053865,000454: 36,3764 77771 6DD DEC -6 B-14
053866,000455: 36,3765 00014 12DD DEC 12 B-14
053867,000456:
053868,000457: 37,2000 SETLOC RENDEZ
053869,000458: 37,2000 BANK
053870,000459: 37,3676 COUNT* $$/INCOR
053871,000460:
053872,000461: 37,3676 51575 NEWZCOMP VLOAD ABVAL
053873,000462: 37,3677 02723 ZI
053874,000463: 37,3700 24045 STOVL NORMZI
053875,000464: 37,3701 02731 ZI +6
053876,000465: 37,3702 41446 ABVAL PUSH
053877,000466: 37,3703 50025 DSU BMN
053878,000467: 37,3704 00045 NORMZI
053879,000468: 37,3705 77710 +3
053880,000469: 37,3706 45545 DLOAD STADR
053881,000470: 37,3707 77732 STORE NORMZI
053882,000471: 37,3710 51575 VLOAD ABVAL
053883,000472: 37,3711 02737 ZI +12D
053884,000473: 37,3712 45206 PUSH DSU
053885,000474: 37,3713 00045 NORMZI
053886,000475: 37,3714 71240 BMN DLOAD
053887,000476: 37,3715 77720 +3
053888,000477: 37,3716 77626 STADR
053889,000478: 37,3717 77732 STORE NORMZI # LARGEST ABVAL
053890,000479: 37,3720 66145 DLOAD SXA,1
053891,000480: 37,3721 00045 NORMZI
053892,000481: 37,3722 00044 NORMZI # SAVE X1
053893,000482: 37,3723 62101 NORM INCR,1
![]() |
Page 1231 |
053895,000484: 37,3724 00047 X1
053896,000485: 37,3725 00002 DEC 2 B-14
053897,000486: 37,3726 53775 VLOAD VSL*
053898,000487: 37,3727 02723 ZI
053899,000488: 37,3730 20201 0,1
053900,000489: 37,3731 26723 STOVL ZI
053901,000490: 37,3732 02731 ZI +6
053902,000491: 37,3733 77657 VSL*
053903,000492: 37,3734 20201 0,1
053904,000493: 37,3735 26731 STOVL ZI +6
053905,000494: 37,3736 02737 ZI +12D
053906,000495: 37,3737 66057 VSL* SXA,1
053907,000496: 37,3740 20201 0,1
053908,000497: 37,3741 00045 NORMZI +1 # SAVE SHIFT
053909,000498: 37,3742 02737 STORE ZI +12D
053910,000499: 37,3743 54150 LXA,1 XSU,1
053911,000500: 37,3744 02215 NORMGAM
053912,000501: 37,3745 00045 NORMZI +1
053913,000502: 37,3746 77660 XSU,1
053914,000503: 37,3747 00045 NORMZI +1
053915,000504: 37,3750 70130 SXA,1 LXC,1
053916,000505: 37,3751 02215 NORMGAM
053917,000506: 37,3752 00045 NORMZI +1
053918,000507: 37,3753 40270 XAD,1 SETPD
053919,000508: 37,3754 00044 NORMZI
053920,000509: 37,3755 00003 2D
053921,000510: 37,3756 77650 GOTO
053922,000511: 37,3757 75406 INCOR2 -3
053923,000512: 37,3760 NORMZI = 36D
053924,000513:
053925,000514:
053926,000515:
053927,000516:
End of include-file MEASUREMENT_INCORPORATION.agc. Parent file is MAIN.agc