GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were obtained by digitally photographing
an Artemis 72 (Apollo 15-17 Command Module) program listing from a private
collection and then
modifying pre-existing Comanche 55 (Apollo 11) source files to
incorporate changes. Photography was by Ron Burkey, and transcription
was performed by a team of volunteers. Note that the page images
presented online are of reduced quality, and that additional images
may be 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 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971Note that the date is the date of the printout, not the date of the program revision. |
028589,000002: ## Copyright: Public domain.
028590,000003: ## Filename: P30-P31.agc
028591,000004: ## Purpose: Part of the source code for Artemis (i.e., Colossus 3),
028592,000005: ## build 072. This is for the Command Module's (CM)
028593,000006: ## Apollo Guidance Computer (AGC), for
028594,000007: ## Apollo 15-17.
028595,000008: ## Assembler: yaYUL
028596,000009: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
028597,000010: ## Website: www.ibiblio.org/apollo/index.html
028598,000011: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
028599,000012: ## Mod history: 2009-08-11 JL Adapted from corresponding Comanche 055 file.
028600,000013: ## 2009-09-03 JL Fixed symbol names.
028601,000014: ## 2010-02-01 JL Fixed build errors.
028602,000015: ## 2010-02-20 RSB Un-##'d this header.
028603,000016: ## 2017-02-06 RSB Proofed comment text using octopus/ProoferComments,
028604,000017: ## though the printout/scan quality is really too poor,
028605,000018: ## since no corresponding file exists in any other AGC
028606,000019: ## version against which it can be diff'd, and since
028607,000020: ## traditional proofing is so poor at catching errors.
|
|
Page 643 |
028609,000022:
028610,000023: # PROGRAM DESCRIPTION P30 DATE 5-1-69
028611,000024:
028612,000025: # MOD.I BY S. ZELDIN- TO ADD P31 AND ADAPT P30 FOR P31 USE. 22DEC67
028613,000026: # MOD.II BY P.WOLFF TO REDUCE CODING AND DELETE RESTART PROTECTION 4-30-69
028614,000027: # MOD.III BY C.BEALS TO DELETE P31 1NOV69
028615,000028:
028616,000029: # FUNCTIONAL DESCRIPTION
028617,000030: # P30 (EXTERNAL DELTA-V TARGETTING PROGRAM)
028618,000031: # ACCEPTS ASTRONAUT INPUTS OF TIG,DELV(LV) AND COMPUTES, FOR DISPLAY,
028619,000032: # APOGEE, PERIGEE, DELV(MAG), MGA ASSOCIATED WITH DESIRED MANEUVER
028620,000033:
028621,000034: # THE FOLLOWING SUBROUTINES ARE USED IN P30
028622,000035: # S30/31.1 COMPUTES APOGEE AND PERIGEE ALTITUDE
028623,000036: # P30/P31 - DISPLAYS TIG
028624,000037: # CNTUP30 - DISPLAYS DELV(LV)
028625,000038: # COMPTGO CLOCKTASK COMPUTE TTOGO
028626,000039: # LOMAT COMPUTE X,Y,Z IN LV COORDS
028627,000040: # PARAM30 - DISPLAYS APOGEE, PERIGEE, DELV(MAG), MGA, TIME FROM TIG,
028628,000041: # MARKS SINCE LAST THRUSTING MANEUVER
028629,000042:
028630,000043: # CALLING SEQUENCE VIA JOB FROM V37
028631,000044:
028632,000045: # EXIT VIA V37 CALL OR GOTOPOOH
028633,000046:
028634,000047: # OUTPUT FOR POWERED FLIGHT
028635,000048: # VTIG X
028636,000049: # RTIG
028637,000050: # DELVSIN X
028638,000051:
028639,000052: # P30 CALCULATIONS
028640,000053:
028641,000054: # P30 CALC BASED ON STORED TARGET PARAMETERS (R OF IGNITION (RTIG), V OF
028642,000055: # IGNITION (VTIG), TIME OF IGNITION (TIG), DELV(LV), COMPUTE PERIGEE ALTITUDE
028643,000056: # APOGEE ALTITUDE AND DELTA-V REQUIRED IN REF. COORDS. (DELVSIN)
028644,000057: #
028645,000058: # ERASABLE INITIALIZATION REQUIRED
028646,000059: # TIG TIME OF IGNITION DP B28CS
028647,000060: # DELVSLV SPECIFIED DELTA-V IN LOCAL VERT.
028648,000061: # COORDS. OF ACTIVE VEHICLE AT
028649,000062: # TIME OF IGNITION VCT. B+7M/CS
028650,000063:
028651,000064: # SUBROUTINES CALLED
028652,000065: # THISPREC
028653,000066:
028654,000067: # OUTPUT
028655,000068: # RTIG POSITION AT TIG VCT. B+29M
028656,000069: # VTIG VELOCITY AT TIG VCT. B+7M
028657,000070: # DELVSIN DELVSLV IN REF COORDS VCT. B+7M/CS
028658,000071:
028659,000072: # DEBRIS QTEMP TEMP. ERASABLE
028660,000073: # QPRET, MPAC
028661,000074: # PUSHLIST
028662,000075:
028663,000076: 35,2000 SETLOC P30S1
028664,000077: 35,2000 BANK
028665,000078:
|
|
Page 644 |
028667,000080: 35,3433 E7,1625 EBANK= +MGA
028668,000081:
028669,000082: 35,3433 COUNT* $$/P30
028670,000083: 35,3433 05547 P30 TC UPFLAG
028671,000084: 35,3434 00027 ADRES UPDATFLG # SET UPDATFLG
028672,000085: 35,3435 05547 TC UPFLAG
028673,000086: 35,3436 00031 ADRES TRACKFLG # SET TRACKFLG
028674,000087: 35,3437 35026 DSP0633 CAF V06N33 # DISPLAY TIME OF IGNITION
028675,000088: 35,3440 05535 TC VNFLASH
028676,000089: 35,3441 34535 CAF V06N81
028677,000090: 35,3442 05535 TC VNFLASH
028678,000091: 35,3443 05547 TC UPFLAG
028679,000092: 35,3444 00045 ADRES XDELVFLG # BIT 8 FLAG 2
028680,000093: 35,3445 06006 TC INTPRET
028681,000094: 35,3446 71214 CLEAR DLOAD
028682,000095: 35,3447 00670 UPDATFLG # RESET UPDATFLG
028683,000096: 35,3450 03413 TIG # TIME IGNITION SCALED AT 2(+28)CS
028684,000097: 35,3451 34041 STCALL TDEC1
028685,000098: 35,3452 27145 THISPREC # ENCKE ROUTINE FOR
028686,000099:
028687,000100: 35,3453 67175 VLOAD SXA,2
028688,000101: 35,3454 00007 VATT
028689,000102: 35,3455 03746 RTX2
028690,000103: 35,3456 27640 STOVL VTIG
028691,000104: 35,3457 00001 RATT
028692,000105: 35,3460 03632 STORE RTIG
028693,000106: 35,3461 03540 STORE RACT3
028694,000107: 35,3462 53435 VXV UNIT
028695,000108: 35,3463 03640 VTIG
028696,000109: 35,3464 36617 STCALL UNRM
028697,000110: 35,3465 72721 LOMAT
028698,000111: 35,3466 61375 VLOAD VXM
028699,000112: 35,3467 03405 DELVSLV
028700,000113: 35,3470 00001 0
028701,000114: 35,3471 66172 VSL1 SXA,1
028702,000115: 35,3472 03745 RTX1
028703,000116: 35,3473 03646 STORE DELVSIN
028704,000117: 35,3474 77646 ABVAL
028705,000118: 35,3475 27763 STOVL VGDISP # MAG DELV
028706,000119: 35,3476 03632 RTIG
028707,000120: 35,3477 53315 PDVL VAD
028708,000121: 35,3500 03646 DELVSIN
028709,000122: 35,3501 03640 VTIG
028710,000123: 35,3502 77624 CALL
028711,000124: 35,3503 54021 S30/31.1
028712,000125: 35,3504 77776 EXIT
028713,000126: 35,3505 33553 PARAM30 CAF V06N42 # DISPLAY HAPO, HPER, DELTAV
028714,000127: 35,3506 05535 TC VNFLASH
028715,000128: 35,3507 06006 REFTEST TC INTPRET
028716,000129: 35,3510 77214 BOFF VLOAD
|
|
Page 645 |
028718,000131: 35,3511 01742 REFSMFLG # TEST FOR REFSMFLAG ON
028719,000132: 35,3512 73544 NOTSET
028720,000133: 35,3513 03646 DELVSIN
028721,000134: 35,3514 45006 PUSH CALL
028722,000135: 35,3515 56444 GET+MGA
028723,000136: 35,3516 77776 EXIT
028724,000137: 35,3517 03525 DISPMGA TC COMPTGO
028725,000138:
028726,000139: 35,3520 34536 DISP45 CAF V16N45 # DISPLAY MARK CNT, TFI, +MGA
028727,000140: 35,3521 05535 TC VNFLASH
028728,000141: 35,3522 05561 TC DOWNFLAG
028729,000142: 35,3523 00155 ADRES TIMRFLAG # RESET TIMRFLAG
028730,000143: 35,3524 14103 TCF GOTOPOOH
028731,000144:
028732,000145: 35,3525 00006 COMPTGO EXTEND
028733,000146: 35,3526 23272 QXCH PHSPRDT6
028734,000147:
028735,000148: 35,3527 05547 TC UPFLAG # SET TIMRFLAG
028736,000149: 35,3530 00155 ADRES TIMRFLAG
028737,000150: 35,3531 34772 CAF ZERO
028738,000151: 35,3532 54777 TS NVWORD1
028739,000152:
028740,000153: 35,3533 34770 CAF ONE
028741,000154: 35,3534 05233 TC WAITLIST
028742,000155: 35,3535 E7,1412 EBANK= TIG
028743,000156: 35,3535 03225 50067 2CADR CLOKTASK
028744,000157:
028745,000158: 35,3537 05362 TC 2PHSCHNG
028746,000159: 35,3540 40036 OCT 40036 # 6.3SPOT FOR CLOKTASK
028747,000160: 35,3541 05024 OCT 05024 # GROUP 4 CONTINUES HERE
028748,000161: 35,3542 13000 OCT 13000
028749,000162:
028750,000163: 35,3543 01,2325 6P3SPT1 = 6.3SPOT
028751,000164: 35,3543 01272 TC PHSPRDT6
028752,000165:
028753,000166: 35,3544 57545 NOTSET DLOAD DCOMP
028754,000167: 35,3545 33552 MARSDP
028755,000168: 35,3546 03626 STORE +MGA
028756,000169: 35,3547 77634 RTB
028757,000170: 35,3550 73517 DISPMGA
028758,000171: 35,3551 00000 MARSDP OCT 00000 # (00000) (16440) = (+00001)
028759,000172: 35,3552 35100 OCT 35100
028760,000173: # ( .01 ) DEGREES IN THE LOW ORDER REGISTE
028761,000174:
028762,000175: 35,3553 01452 V06N42 VN 0642
028763,000176:
|
|
Page 646 |
028765,000178:
028766,000179: # S30/31.1 SUBROUTINE USED BY P30/P31 CALCULATIONS
028767,000180: # MOD NO 1 LOG SECTION P30,P37
028768,000181:
028769,000182: # FUNCTIONAL DESCRIPTION
028770,000183: # THROUGH A SERIES OF CALLS COMPUTES APOGEE AND PERIGEE ALTITUDE
028771,000184:
028772,000185: # SUBROUTINES CALLED
028773,000186: # PERIAPO1
028774,000187: # SHIFTR1
028775,000188: # MAXCHK
028776,000189:
028777,000190: # CALLING SEQUENCE
028778,000191: # L CALL
028779,000192: # L+1 S30/31.1
028780,000193:
028781,000194: # NORMAL EXIT MODE
028782,000195: # AT L+2 OR CALLING SEQUENCE
028783,000196:
028784,000197: # OUTPUT
028785,000198: # HAPO APOGEE ALT. DP B+29 M
028786,000199: # HPER PERIGEE ALT. DP B+29 M
028787,000200:
028788,000201: 26,2000 SETLOC P30S1A
028789,000202: 26,2000 BANK
028790,000203:
028791,000204: 26,2021 COUNT* $$/P30
028792,000205: 26,2021 45020 S30/31.1 STQ CALL
028793,000206: 26,2022 03657 QTEMP
028794,000207: 26,2023 45174 PERIAPO1
028795,000208: 26,2024 77624 CALL
028796,000209: 26,2025 45330 SHIFTR1
028797,000210: 26,2026 77624 CALL
028798,000211: 26,2027 46745 MAXCHK
028799,000212: 26,2030 16357 STODL HPER # PERIGEE ALT B+29
028800,000213: 26,2031 00005 4D
028801,000214: 26,2032 77624 CALL
028802,000215: 26,2033 45330 SHIFTR1
028803,000216: 26,2034 77624 CALL
028804,000217: 26,2035 46745 MAXCHK
028805,000218: 26,2036 36355 STCALL HAPO # APOGEE ALT B+29
028806,000219: 26,2037 03657 QTEMP
028807,000220:
|
|
Page 647 |
028809,000222:
028810,000223: # SUBROUTINE NAME: DELRSPL (CONTINUATION OF V 82 IN CSM IF P11 ACTI
028811,000224: # TRANSFERRED COMPLETELY FROM SUNDISK, P30S REV 33. 9 SEPT 67.
028812,000225: # MOD NO: 0 MOD BY: ZELDIN DATE:
028813,000226: # MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 11 APR 67
028814,000227: # MOD NO: 2 MOD BY: RR BAIRNSFATHER DATE: 12 MAY 67 ADD UR.RT CALC WHEN BELOW 300K FT
028815,000228: # MOD NO: 2.1 MOD BY: RR BAIRNSFATHER DATE: 5 JULY 67 FIX ERROR IN MOD. 2.
028816,000229: # MOD NO: 3 MOD BY: RR BAIRNSFATHER DATE: 12 JUL 67 CHANGE SIGN OF DISPLAYED ERROR.
028817,000230: # MOD 4 MOD BY S.ZELDIN DATE 3 APRIL 68 CHANGE EQUATIONS FOR L/D=.18 WHICH REPLA
028818,000231:
028819,000232: # FUNCTION: CALCULATE (FOR DISPLAY ON CALL) AN APPROXIMATE MEASURE OF IN-PLANE SPLASH DOWN
028820,000233: # ERROR. IF THE FREE-FALL TRANSFER ANGLE TO 300K FT ABOVE PAD RADIUS IS POSITIVE:
028821,000234: # SPLASH ERROR= -RANGE TO TARGET + FREE-FALL TRANSFER ANGLE + ESTIMATED ENTRY ANGLE.
028822,000235: # THE TARGET LOCATION AT ESTIMATED TIME OF IMPACT IS USED. IF THE FREE-FALL TRANSFER
028823,000236: # ANGLE IS NEGATIVE: SPLASH ERROR= -RANGE TO TARGET
028824,000237: # THE PRESENT TARGET LOCATION IS USED.
028825,000238:
028826,000239: # CALLING SEQUENCE CALLED AFTER SR30.1 IF IN CSM AND IF P11 OPERATING (UNDER CONTROL OF V82)
028827,000240:
028828,000241: # SUBROUTINES CALLED: VGAMCALC, TFF/TRIG, LALOTORV.
028829,000242:
028830,000243: # EXIT RETURN DIRECTLY TO V 82 PROG. AT SPLRET
028831,000244:
028832,000245: # ERASABLE INITIALIZATION LEFT BY SR30.1 AND V82GON1
028833,000246:
028834,000247: # OUTPUT: RSP-RREC RANGE IN REVOLUTIONS DSKY DISPLAY IN N. MI.
028835,000248:
028836,000249: # DEBRIS: QPRET, PDL0 ... PDL7, PDL10
028837,000250: # THETA(1)
028838,000251:
028839,000252: 32,2000 SETLOC DELRSPL1
028840,000253: 32,2000 BANK
028841,000254: 32,2027 COUNT* $$/P30 # PROGRAMS: P30 EXTERNAL DELTA V
028842,000255:
028843,000256: 32,2027 00011 DELRSPL STORE 8D
028844,000257: 32,2030 45244 BPL DSU
028845,000258: 32,2031 64077 CANTDO # GONE PAST 300K FT ALT
028846,000259: 32,2032 16425 1BITDP
028847,000260: 32,2033 45000 BOV CALL
028848,000261: 32,2034 64077 CANTDO # POSMAX INDICATES NO 300K FT SOLUTION.
028849,000262: 32,2035 55054 VGAMCALC # +GAMMA(REV) IN PMAC,V300 MAG(B-7)=PDL 0
028850,000263: 32,2036 45006 PUSH CALL
028851,000264: 32,2037 57052 TFF/TRIG
028852,000265: 32,2040 77624 CALL
028853,000266: 32,2041 64105 AUGEKUGL
028854,000267: 32,2042 65525 PDDL ACOS # T ENTRY PDL 6
028855,000268: 32,2043 00017 CDELF/2
028856,000269: 32,2044 77615 DAD
028857,000270: 32,2045 00005 4
028858,000271: 32,2046 26341 GETARG STOVL THETA(1)
028859,000272: 32,2047 03401 LAT(SPL)
028860,000273: 32,2050 14747 STODL LAT
028861,000274: 32,2051 15336 HI6ZEROS
028862,000275: 32,2052 14753 STODL ALT # ALT=0 = LAT +4
028863,000276: 32,2053 01044 PIPTIME
028864,000277: 32,2054 71214 BON DLOAD
|
|
Page 648 |
028866,000279: 32,2055 03711 V37FLAG
028867,000280: 32,2056 64060 +2
028868,000281: 32,2057 02316 TSTART82
028869,000282: 32,2060 43225 DSU DAD
028870,000283: 32,2061 00011 8D
028871,000284: 32,2062 45014 CLEAR CALL
028872,000285: 32,2063 00662 ERADFLAG
028873,000286: 32,2064 26524 LALOTORV # R RECOV. IN ALPHAV AND MPAC
028874,000287:
028875,000288: 32,2065 63256 UNIT PDVL
028876,000289: 32,2066 02320 RONE
028877,000290: 32,2067 50256 UNIT DOT
028878,000291: 32,2070 65552 SL1 ARCCOS
028879,000292: 32,2071 77621 BDSU # ERROR = THETA EST - THETA TARG
028880,000293: # NEGATIVE NUMBER SIGNIFIES THAT WILL FALL SHORT.
028881,000294: # POSITIVE NUMBER SIGNIFIES THAT WILL OVERSHOOT.
028882,000295: 32,2072 02341 THETA(1)
028883,000296: 32,2073 36347 DELRDONE STCALL RSP-RREC # DOWNRANGE RECOVERY RANGE ERROR /360
028884,000297: 32,2074 27525 INTWAKE0
028885,000298: 32,2075 77624 CALL
028886,000299: 32,2076 46616 SPLRET
028887,000300: 32,2077 65345 CANTDO DLOAD PDDL # INITIALIZE ERASE TO DOT TARGET AND UR
028888,000301: # FOR RANGE ANGLE.
028889,000302: 32,2100 15334 HIDPHALF # TO PDL 0 FOR DEN IN DDV.
028890,000303: 32,2101 15336 HI6ZEROS
028891,000304: 32,2102 77606 PUSH # ZERO TO PDL 2 FOR PHI ENTRY
028892,000305: 32,2103 34011 STCALL 8D
028893,000306: 32,2104 64046 GETARG # GO SET RSP-RREC =0
028894,000307:
028895,000308: 32,2105 77775 AUGEKUGL VLOAD
028896,000309: 32,2106 24266 X1CON -2
028897,000310: 32,2107 14045 STODL X1 -2
028898,000311: 32,2110 00001 0
028899,000312: 32,2111 50025 DSU BMN
028900,000313: 32,2112 24260 V(21K)
028901,000314: 32,2113 64140 LOOPSET
028902,000315: 32,2114 65060 XSU,1 XCHX,2
028903,000316: 32,2115 00050 S1
028904,000317: 32,2116 00046 X1
028905,000318: 32,2117 45324 XCHX,2 DSU
028906,000319: 32,2120 00050 S1
028907,000320: 32,2121 24246 V(3K)
028908,000321: 32,2122 65040 BMN XCHX,2
028909,000322: 32,2123 64140 LOOPSET
028910,000323: 32,2124 00050 S1
028911,000324: 32,2125 50025 DSU BMN
028912,000325: 32,2126 24256 V(4K)
028913,000326: 32,2127 64140 LOOPSET
028914,000327: 32,2130 65124 XCHX,2 XCHX,2
028915,000328: 32,2131 00050 S1
|
|
Page 649 |
028917,000330: 32,2132 00046 X1
028918,000331: 32,2133 50025 DSU BMN
028919,000332: 32,2134 24242 V(400)
028920,000333: 32,2135 64140 LOOPSET
028921,000334: 32,2136 77730 SXA,1
028922,000335: 32,2137 00050 S1
028923,000336: 32,2140 52110 LOOPSET INCR,1 GOTO
028924,000337: 32,2141 00001 DEC 1 B-14
028925,000338: 32,2142 64145 K1K2LOOP
028926,000339: 32,2143 77730 K2CALC SXA,1
028927,000340: 32,2144 00050 S1
028928,000341: 32,2145 44745 K1K2LOOP DLOAD DSU*
028929,000342: 32,2146 00001 0
028930,000343: 32,2147 24255 V(32K) +1,1
028931,000344: 32,2150 42603 DMP* DAD*
028932,000345: 32,2151 24241 YK1K2 +1,1
028933,000346: 32,2152 24225 CK1K2 +1,1
028934,000347: 32,2153 60125 PDDL TIX,1
028935,000348: 32,2154 00003 2
028936,000349: 32,2155 64143 K2CALC
028937,000350: 32,2156 55225 DSU BDDV
028938,000351: 32,2157 40006 PUSH BOV # PHI ENTRY PDL 4D
028939,000352: 32,2160 64203 MAXPHI
028940,000353: 32,2161 45240 BMN DSU
028941,000354: 32,2162 64203 MAXPHI
028942,000355: 32,2163 24210 MAXPHIC
028943,000356: 32,2164 77644 BPL
028944,000357: 32,2165 64203 MAXPHI
028945,000358: 32,2166 45345 PHICALC DLOAD DSU
028946,000359: 32,2167 00001 0
028947,000360: 32,2170 24266 V(26K)
028948,000361: 32,2171 71244 BPL DLOAD
028949,000362: 32,2172 64200 TGR26
028950,000363: 32,2173 24262 TLESS26
028951,000364: 32,2174 77671 DDV
028952,000365: 32,2175 00001 0
028953,000366: 32,2176 43405 TENT DMP RVQ
028954,000367: 32,2177 00005 4D
028955,000368: 32,2200 52145 TGR26 DLOAD GOTO
028956,000369: 32,2201 24264 TGR26CON
028957,000370: 32,2202 64176 TENT
028958,000371:
028959,000372: 32,2203 65345 MAXPHI DLOAD PDDL
028960,000373: 32,2204 24210 MAXPHIC
028961,000374: 32,2205 77650 GOTO
028962,000375: 32,2206 64166 PHICALC
028963,000376: 32,2207 02755 01307 MAXPHIC 2DEC .09259298 # 2000 NM FOR MAXIMUM PHI ENTRY
028964,000377:
028965,000378: 32,2211 COUNT* $$/P30
|
|
Page 650 |
028967,000380:
028968,000381:
028969,000382: # BELOW
028970,000383: # <<<< TABLE IS INDEXED. KEEP IN ORDER >>>
028971,000384:
028972,000385: 32,2211 00013 22652 2DEC 7.07304526 E-4 # 5500
028973,000386:
028974,000387: 32,2213 00005 01642 2DEC 3.08641975 E-4 # 2400
028975,000388:
028976,000389: 32,2215 00005 01642 2DEC 3.08641975 E-4 # 2400
028977,000390:
028978,000391: 32,2217 77556 53522 2DEC -8.8888888 E-3 # -3.2
028979,000392:
028980,000393: 32,2221 00055 20266 2DEC 2.7777777 E-3 # 1
028981,000394:
028982,000395: 32,2223 00155 07202 CK1K2 2DEC 6.6666666 E-3 # 2.4
028983,000396:
028984,000397: 32,2225 00000 00000 2DEC 0 B-28 # 0
028985,000398:
028986,000399: 32,2227 77730 71525 2DEC* -1.86909989 E-5 B7* # -.443
028987,000400:
028988,000401: 32,2231 00000 00000 2DEC 0 B-28
028989,000402:
028990,000403: 32,2233 04445 10102 2DEC* 1.11639691 E-3 B7* # .001225
028991,000404:
028992,000405: 32,2235 03726 31201 2DEC* 9.56911636 E-4 B7* # .00105
028993,000406:
028994,000407: 32,2237 01040 26313 YK1K2 2DEC* 2.59733157 E-4 B7* # .000285
028995,000408:
028996,000409: 32,2241 00234 01660 V(400) 2DEC 1.2192 B-7
028997,000410:
028998,000411: 32,2243 25254 01014 V(28K) 2DEC 85.344 B-7
028999,000412:
029000,000413: 32,2245 02222 15646 V(3K) 2DEC 9.144 B-7
029001,000414:
029002,000415: 32,2247 22223 16457 V(24K) 2DEC 73.152 B-7
029003,000416:
029004,000417: 32,2251 25254 01014 2DEC 85.344 B-7
029005,000418:
029006,000419: 32,2253 30304 23351 V(32K) 2DEC 97.536 B-7
029007,000420:
029008,000421: 32,2255 03030 22335 V(4K) 2DEC 12.192 B-7
029009,000422:
029010,000423: 32,2257 20001 00611 V(21K) 2DEC 64.008 B-7
029011,000424:
029012,000425: 32,2261 00033 05763 TLESS26 2DEC* 5.70146688 E7 B-35* # 8660PHI/V
029013,000426:
029014,000427: 32,2263 00053 36200 TGR26CON 2DEC 7.2 E5 B-28 # PHI/3
029015,000428:
029016,000429: 32,2265 23637 27636 V(26K) 2DEC 79.248 B-7 # 26000
029017,000430:
029018,000431: 32,2267 00012 X1CON DEC 10 B-14
029019,000432:
|
|
Page 651 |
029021,000434:
029022,000435: 32,2270 00010 DEC 8 B-14
029023,000436: 32,2271 00006 DEC 6 B-14
029024,000437: # <<<< TABLE IS INDEXED. KEEP IN ORDER >>>
029025,000438: # ABOVE
|
|
Page 652 |
029027,000440:
029028,000441: # ***** AVFLAGA/P *****
029029,000442:
029030,000443: # SUBROUTINES USED
029031,000444:
029032,000445: # UPFLAG
029033,000446: # DOWNFLAG
029034,000447:
029035,000448: 4000 SETLOC P30SUBS
029036,000449: 4000 BANK
029037,000450: 4553 COUNT* $$/P30
029038,000451: 4553 E4,1760 EBANK= SUBEXIT
029039,000452: 4553 00006 AVFLAGA EXTEND # AVFLAG = CSM
029040,000453: 4554 23760 QXCH SUBEXIT
029041,000454: 4555 05561 TC DOWNFLAG
029042,000455: 4556 00050 ADRES AVFLAG # BIT 5 FLAG 2
029043,000456: 4557 04606 TC E7SETTER
029044,000457: 4560 E7,1424 EBANK= ECSTEER
029045,000458: 4560 34754 CAF BIT13
029046,000459: 4561 55424 TS ECSTEER # SET ECSTEER = 1
029047,000460: 4562 34756 CAF EBANK4
029048,000461: 4563 54003 TS EBANK
029049,000462: 4564 E4,1760 EBANK= SUBEXIT
029050,000463: 4564 01760 TC SUBEXIT
029051,000464: 4565 00006 AVFLAGP EXTEND # AVFLAG = LEM
029052,000465: 4566 23760 QXCH SUBEXIT
029053,000466: 4567 05547 TC UPFLAG
029054,000467: 4570 00050 ADRES AVFLAG # BIT 5 FLAG 2
029055,000468: 4571 01760 TC SUBEXIT
029056,000469: 4572 00006 P20FLGON EXTEND
029057,000470: 4573 23760 QXCH SUBEXIT
029058,000471: 4574 05547 TC UPFLAG
029059,000472: 4575 00031 ADRES TRACKFLG
029060,000473: 4576 05547 TC UPFLAG
029061,000474: 4577 00027 ADRES UPDATFLG
029062,000475: 4600 05561 TC DOWNFLAG
029063,000476: 4601 00244 ADRES PCFLAG
029064,000477: 4602 01760 TC SUBEXIT
029065,000478:
|
|
Page 653 |
029067,000480:
029068,000481: 04,2000 SETLOC P31TAG
029069,000482: 04,2000 BANK
029070,000483:
029071,000484: 04,3303 COUNT* $$/P3136
029072,000485: 04,3303 04553 P31 TC AVFLAGA
029073,000486: 04,3304 04572 TC P20FLGON # SET TRACK,UPDATE, CLEAR FINAL FLAGS
029074,000487: 04,3305 06006 TC INTPRET
029075,000488: 04,3306 45014 P31ALMRT CLEAR CALL
029076,000489: 04,3307 05671 CSISFLAG
029077,000490: 04,3310 11546 INPUTDSP
029078,000491: 04,3311 74014 BOFF AXC,1
029079,000492: 04,3312 04343 CMOONFLG
029080,000493: 04,3313 11315 COMPMU
029081,000494: 04,3314 00012 10D
029082,000495: 04,3315 51575 COMPMU VLOAD ABVAL
029083,000496: 04,3316 01555 RRECTCSM
029084,000497: 04,3317 62606 PUSH PDVL* # PL AT 04D
029085,000498: 04,3320 22301 MUTABLE,1 # RTX1=1/MU B+34,B+28, RTMU=SQRT(MU)
029086,000499: 04,3321 27746 STOVL RTX1 # B-18,B-15, RTSR1/MU=1/SQRT(MU) B+17,B+14
029087,000500: 04,3322 01563 VRECTCSM
029088,000501: 04,3323 57236 VSQ DMPR
029089,000502: 04,3324 03746 RTX1 # VSQ/MU B+2 ,B+18
029090,000503: 04,3325 52405 DMP SL3 # R VSQ/MU PL AT 02D B-6
029091,000504: 04,3326 74421 BDSU SR1R
029092,000505: 04,3327 33416 D1/32 # ( 2 - R VSQ/MU ) B-7
029093,000506: 04,3330 41471 DDV PUSH # ( 2 - R VSQ/MU )/R AT 00D B+22,B+20
029094,000507: 04,3331 55366 SQRT BDDV # 2 PI R/(2 - R VSQ/MU) B-15,B-14
029095,000508: 04,3332 33430 2PISC
029096,000509: 04,3333 65205 DMP PDDL # 2PI R SQRT(MU)/(2MU-R VSQ) B-2,B-0
029097,000510: 04,3334 03752 RTSR1/MU
029098,000511: 04,3335 65301 NORM PDDL
029099,000512: 04,3336 00047 X1
029100,000513: 04,3337 56257 SL* DDV
029101,000514: 04,3340 20172 0 -7D,1 # HAFPA1 = PERIOD/2 B-28
029102,000515: 04,3341 77621 BDSU # TIG = ( TCSI - HAFPA1 ) B-28
029103,000516: 04,3342 02463 TCSI
029104,000517: 04,3343 03413 STORE TIG # TIG = ( TCSI - PERIOD/2 ) B-28
029105,000518: 04,3344 77776 EXIT
029106,000519: 04,3345 35026 CA V06N33
029107,000520: 04,3346 05535 TC VNFLASH
029108,000521: 04,3347 06006 TC INTPRET
029109,000522: 04,3350 77624 P31ONWRD CALL
029110,000523: 04,3351 11217 SELECTMU
029111,000524: 04,3352 71214 P31RECYC SET DLOAD
029112,000525: 04,3353 05470 HAFLAG
029113,000526: 04,3354 02463 TCSI
029114,000527: 04,3355 77624 CALL
029115,000528: 04,3356 11441 P31ENT
029116,000529: 04,3357 77775 P31RT VLOAD
|
|
Page 654 |
029118,000531: 04,3360 11762 ZEROVEC
029119,000532: 04,3361 17405 STODL DELVLVC
029120,000533: 04,3362 02633 DIFFALT # DELTA H AT CDH
029121,000534: 04,3363 57215 DAD DMPR
029122,000535: 04,3364 02370 HAMDELH # METERS B-29
029123,000536: 04,3365 11376 25THOUS # K = -.025 B-0
029124,000537: 04,3366 45061 SL CALL
029125,000538: 04,3367 20206 5D
029126,000539: 04,3370 24005 N90/N81
029127,000540: 04,3371 77624 CALL # X
029128,000541: 04,3372 73027 VN1645 # S32/33.1, DISPLAYS AND COMPUTES DELVLVC
029129,000542: 04,3373 77650 GOTO # AND DELVSIN.
029130,000543: 04,3374 11352 P31RECYC
029131,000544: 04,3375 56574 47556 25THOUS 2DEC* -.4114470842 E-5 B+17* # B+17
029132,000545:
029133,000546: 04,3377 13434 130DEGLO OCT 13434
029134,000547: 04,3400 16163 OCT 16163
029135,000548: 04,3401 22407 208DEGLO OCT 22407
029136,000549: 04,3402 36673 OCT 36673
029137,000550: 22,2000 SETLOC P36TAG
029138,000551: 22,2000 BANK
|
|
Page 655 |
029140,000553:
029141,000554: # PLANE CHANGE TARGETING PROGRAM P36
029142,000555: #
029143,000556: # PURPOSE
029144,000557: # TO COMPUTE PARAMETERS FOR PLANE CHANGE MANEUVER
029145,000558:
029146,000559: # INPUT
029147,000560: # TCSI
029148,000561: #
029149,000562: # OUTPUT
029150,000563: # TIG TIME OF PLANE CHANGE MANEUVER COMPUTED TO BE
029151,000564: # TCSI + 90 DEG TRANSFER TIME
029152,000565: # DELVLVC DELTA VELOCITY AT PC - LOCAL VERTICAL
029153,000566: # DELVSIN DELTA VELOCITY AT PC - REFERENCE
029154,000567:
029155,000568: 22,3334 COUNT* $$/P3136
029156,000569: 22,3334 04553 P36 TC AVFLAGA
029157,000570: 22,3335 04572 TC P20FLGON # SET TRACK,UPDATE - CLEAR PC FLAGS
029158,000571: 22,3336 05547 TC UPFLAG
029159,000572: 22,3337 00244 ADRES PCFLAG
029160,000573:
029161,000574: 22,3340 06006 TC INTPRET
029162,000575: 22,3341 77624 CALL
029163,000576: 22,3342 11217 SELECTMU
029164,000577: 22,3343 71214 P36A SET DLOAD
029165,000578: 22,3344 01067 XDELVFLG
029166,000579: 22,3345 02463 TCSI
029167,000580: 22,3346 34041 STCALL TDEC1
029168,000581: 22,3347 27170 CSMCONIC # INTEGRATE STATES TO TCSI
029169,000582: 22,3350 43145 DLOAD SET
029170,000583: 22,3351 15336 ZEROVECS
029171,000584: 22,3352 03466 RVSW
029172,000585: 22,3353 16734 STODL CSTH # COS 90 DEGREES
029173,000586: 22,3354 05547 CS359+
029174,000587: 22,3355 26732 STOVL SNTH # SINE 90 DEGREES
029175,000588: 22,3356 00001 RATT
029176,000589: 22,3357 45115 PDVL CALL
029177,000590: 22,3360 00007 VATT
029178,000591: 22,3361 45320 VECSHIFT
029179,000592: 22,3362 26746 STOVL VVEC
029180,000593: 22,3363 77626 STADR
029181,000594: 22,3364 41120 STCALL RVEC # COMPUTE TRANSFER TIME OF 90 DEG
029182,000595: 22,3365 25002 TIMETHET
029183,000596: 22,3366 77615 DAD
029184,000597: 22,3367 02463 TCSI
029185,000598: 22,3370 03413 STORE TIG
029186,000599: 22,3371 77776 EXIT
029187,000600: 22,3372 35026 CAF V06N33
029188,000601: 22,3373 05535 TC VNFLASH
029189,000602: 22,3374 06006 TC INTPRET
029190,000603: 22,3375 77624 CALL
|
|
Page 656 |
029192,000605: 22,3376 73027 VN1645
029193,000606: 22,3377 45175 P36RECYC VLOAD CALL
029194,000607: 22,3400 15336 ZEROVECS
029195,000608: 22,3401 24005 N90/N81 # DISPLAY N90,N81 COMPUTE YDOT
029196,000609: 22,3402 77624 CALL
029197,000610: 22,3403 73027 VN1645
029198,000611: 22,3404 77650 GOTO
029199,000612: 22,3405 45377 P36RECYC
029200,000613: 12,2000 SETLOC N90TAG
029201,000614: 12,2000 BANK
|
|
Page 657 |
029203,000616:
029204,000617: # ...... N90/N81 ....... COMPUTES YDOT, DISPLAYS N90 AND N81 FOR P31, P36
029205,000618: 12,2005 COUNT* $$/P3136
029206,000619: 12,2005 77620 N90/N81 STQ
029207,000620: 12,2006 02551 N90RET
029208,000621: 12,2007 17405 STODL DELVLVC
029209,000622: 12,2010 03413 TIG
029210,000623: 12,2011 34041 STCALL TDEC1
029211,000624: 12,2012 45236 PRECSET
029212,000625: 12,2013 43014 BON SET
029213,000626: 12,2014 01311 FINALFLG
029214,000627: 12,2015 24017 +2
029215,000628: 12,2016 00470 UPDATFLG
029216,000629: 12,2017 77775 +2 VLOAD
029217,000630: 12,2020 03546 VACT3
029218,000631: 12,2021 27640 STOVL VTIG
029219,000632: 12,2022 03540 RACT3
029220,000633: 12,2023 37632 STCALL RTIG
029221,000634: 12,2024 15756 DISPN90
029222,000635: 12,2025 77624 CALL
029223,000636: 12,2026 72721 LOMAT
029224,000637: 12,2027 61375 VLOAD VXM
029225,000638: 12,2030 03405 DELVLVC # ROTATE DV (LV TO REF)
029226,000639: 12,2031 00001 0D
029227,000640: 12,2032 77772 VSL1
029228,000641: 12,2033 37646 STCALL DELVSIN
029229,000642: 12,2034 02551 N90RET
End of include-file P30-P31.agc. Parent file is MAIN.agc