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