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