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