Source Code
|
These source-code files are part of a reconstructed copy of Corona 261, the
final, flown release of the Block I Command Module (CM) Apollo Guidance Computer
(AGC) software for the AS-202 mission.
They have been created via disassembly of binary dumps of the original core rope
memory modules actually flown on the mission, part numbers 1003733-171, 1003733-241,
1003733-191, 1003733-211, 1003733-221, and 1003733-241. The source code for the Apollo
4 and 6 software, Solarium 55, was used as a starting point, since it was directly
derived from Corona and (at least in theory) only minimally modified.
Since only binary dumps (rather than listings) of Corona are available as source material,
all comments and labels are approximate.
They have been taken from other AGC programs where possible, or, in some places, written
from scratch to match what we believe would have been in the original listing.
|
028451,000002: ## Copyright: Public domain.
028452,000003: ## Filename: REENTRY_CONTROL.agc
028453,000004: ## Purpose: A section of Corona revision 261.
028454,000005: ## It is part of the source code for the Apollo Guidance Computer
028455,000006: ## (AGC) for AS-202. No original listings of this software are
028456,000007: ## available; instead, this file was created via disassembly of
028457,000008: ## the core rope modules actually flown on the mission.
028458,000009: ## Assembler: yaYUL
028459,000010: ## Contact: Ron Burkey <info@sandroid.org>.
028460,000011: ## Website: www.ibiblio.org/apollo/index.html
028461,000012: ## Mod history: 2023-05-27 MAS Created from Solarium 55.
028462,000013: ## 2023-06-19 MAS Updated for Corona.
028463,000014:
028464,000015:
028465,000016: 27,6000 SETLOC 56000
028466,000017:
028467,000018: # THE PIPUP SECTION IS A TASK WHICH READS THE PIPAS EVERY .5
028468,000019: # SECONDS. ACCELERATION HISTORY OVER THE LAST TWO SECONDS (FOUR READINGS)
028469,000020: # IS MAINTAINED IN THE XPIPBUF, YPIPBUF, AND ZPIPBUF REGISTERS. EACH PIPA
028470,000021: # READING IS SUMMED INTO THE XPIPSUM ETC. REGISTERS, AND EVERY FOURTH READ
028471,000022: # ING AVERAGE G IS CALLED TO USE THE SUMMED READINGS TO UPDATE POSITION
028472,000023: # AND VELOCITY AND SET THE PIPSUM REGISTERS TO ZERO.
028473,000024:
028474,000025: # GOES THRU PIPUP ONLY EVERY 2 SEC. (ELSEWHERE MORE OFTEN.)
028475,000026:
028476,000027: 27,6000 61360 CADR REPIPASR
028477,000028: 27,6001 36000 REPIPUP CAF -1
028478,000029: 27,6002 06005 TC PIPUP +1 # REREAD PIPAS IF NECESSARY.
028479,000030:
028480,000031: 27,6003 61307 CADR PIPASR
028481,000032: 27,6004 36003 PIPUP CAF -1
028482,000033: 27,6005 05750 TC ISWCALL # GO TO PIPAREAD SUBROUTINE.
028483,000034:
028484,000035: 27,6006 33521 CAF THIRTN # PICK UP AT REDO5.13
028485,000036: 27,6007 02312 TC NEWPHASE
028486,000037: 27,6010 00005 OCT 5 # 5.13 RESTART. (NO TIME CALL.)
028487,000038:
028488,000039: 27,6011 37617 REDO5.13 CAF DT
028489,000040: 27,6012 02173 TC WAITLIST
028490,000041: 27,6013 56004 CADR PIPUP
028491,000042:
028492,000043: 27,6014 41465 CS PIPTIME +1
028493,000044: 27,6015 50667 TS TBASE5 # SAVE NEW TIME.
028494,000045:
028495,000046: 27,6016 36032 CAF IPIPDT
028496,000047: 27,6017 02173 TC WAITLIST
028497,000048: 27,6020 57566 CADR INTERPIP # READ ACCELERATION MORE OFTEN.
028498,000049:
028499,000050: 27,6021 32152 CAF PRIO16
028500,000051: 27,6022 02046 TC FINDVAC
028501,000052: 27,6023 56033 CADR ENTRYTOP
028502,000053:
028503,000054: 27,6024 35503 CAF TWO
028504,000055: 27,6025 51414 TS PIPCTR
028505,000056:
028506,000057: 27,6026 33522 CAF FOURTN # THIS WILL PICK UP AT ENTRYTOP + 3.
028507,000058: 27,6027 02312 TC NEWPHASE
028508,000059: 27,6030 00005 OCT 5 # 5.14 RESTART.
028509,000060:
028510,000061: 27,6031 02256 TC TASKOVER
028511,000062:
028512,000063:
028513,000064:
028514,000065: 27,6032 00062 IPIPDT DEC 50 B-14
028515,000066:
028516,000067:
028517,000068: # JOB WHICH PROCESSES PIPA READINGS TO UPDATE POSITION AND VELOCI
028518,000069:
028519,000070: 27,6033 31350 ENTRYTOP XCH TENTRY # UPDATE ENTRY TIME.
028520,000071: 27,6034 65503 AD TWO
028521,000072: 27,6035 31350 XCH TENTRY # IN SECS SINCE START OF ENTRY.
028522,000073:
028523,000074: 27,6036 34516 CAF ONE
028524,000075: 27,6037 51035 TS PIPAGE
028525,000076:
028526,000077: 27,6040 41001 CS DELVX
028527,000078: 27,6041 51403 TS XPIPBUF +3
028528,000079: 27,6042 41003 CS DELVY
028529,000080: 27,6043 51407 TS YPIPBUF +3
028530,000081: 27,6044 41005 CS DELVZ # SAVE PIP COUNTS.
028531,000082: 27,6045 51413 TS ZPIPBUF +3
028532,000083:
028533,000084: 27,6046 65503 AD TWO
028534,000085: 27,6047 31350 XCH TENTRY
028535,000086:
028536,000087: 27,6050 02276 TC PHASCHNG
028537,000088: 27,6051 01705 OCT 01705 # 5.15 RESTART PICKS UP AT REFAZE4.
028538,000089: 27,6052 05654 TC BANKCALL # COMPENSATE THE PIPA DATA
028539,000090: 27,6053 31007 CADR 1/PIPA
028540,000091:
028541,000092: 27,6054 04000 REFAZE4 TC INTPRET
028542,000093:
028543,000094: 27,6055 76776 ITC 0 # GO TO AVERAGE G INTEGRATION ROUTINES TO
028544,000095: 27,6056 21540 CALCRVG # USE PIPA READINGS TO UPDATE POSIITON AND
028545,000096: # VELOCITY.
028546,000097: 27,6057 02276 TC PHASCHNG
028547,000098: 27,6060 02105 OCT 02105 # 5.17 RESTART AT REFAZE8.
028548,000099:
028549,000100: 27,6061 04000 REFAZE8 TC INTPRET
028550,000101:
028551,000102:
028552,000103: # PROCESS AVERAGE G OUTPUT...SCALE IT AND GET INPUT DATA
028553,000104:
028554,000105: 27,6062 75776 SCALEPOP VXSC 0
028555,000106: 27,6063 00774 VPIP # KVSCALE = (12800/.3048)0(25766.1973 X2)
028556,000107: 27,6064 21144 KVSCALE # KVSCALE = .81491944
028557,000108: 27,6065 33315 STORE (V) # V VECTOR
028558,000109:
028559,000110: 27,6066 43574 TEST 2
028560,000111: 27,6067 41766 VXV VXSC # (VREL) = (V) + KWE UNITR*UNITW
028561,000112: 27,6070 50776 VAD
028562,000113: 27,6071 00010 RELVELSW # SWITCH NUMBER.
028563,000114: 27,6072 16101 GETUNITV
028564,000115: 27,6073 01016 UNITR
028565,000116: 27,6074 01044 UNITW
028566,000117: 27,6075 21166 KWE
028567,000118: 27,6076 01315 (V)
028568,000119: 27,6077 33315 STORE (V) # NEW V VECTOR IS RELATIVE.
028569,000120:
028570,000121: 27,6100 47575 GETUNITV NOLOD 1
028571,000122: 27,6101 73176 UNIT
028572,000123: 27,6102 33570 STORE UNITV # HALF MAX. OF COURSE.
028573,000124:
028574,000125: 27,6103 63776 TSLT 0
028575,000126: 27,6104 00035 28D # RESCALE MAGNITUDE SQUARED.
028576,000127: 27,6105 00003 2 # SHIFT COUNT. (2 BECAUSE HALF-LEN SQRD
028577,000128: 27,6106 33343 STORE VSQUARE # VELOCITY SQUARED. (NORMAL SCALING)
028578,000129:
028579,000130: 27,6107 66776 DSU 0 # LEQ = VSQUARE-1
028580,000131: 27,6110 01343 VSQUARE # 4 G-S FULL SCALE
028581,000132: 27,6111 21063 FOURTH
028582,000133: 27,6112 33432 STORE LEQ
028583,000134:
028584,000135: 27,6113 63776 TSLT 0
028585,000136: 27,6114 00037 30D
028586,000137: 27,6115 00002 1
028587,000138: 27,6116 33620 STORE V
028588,000139:
028589,000140: 27,6117 42775 DOT 1
028590,000141: 27,6120 63776 TSLT
028591,000142: 27,6121 01315 (V) # RDOT = V.UNITR
028592,000143: 27,6122 01016 UNITR
028593,000144: 27,6123 00002 1 # AND SCALE BACK UP, UNITS ARE 1/2.
028594,000145: 27,6124 33347 STORE RDOT
028595,000146: 27,6125 45176 DMOVE 0 # SAVE OLD DRAG VALUE.
028596,000147: 27,6126 01363 D
028597,000148: 27,6127 33416 STORE DOLD
028598,000149:
028599,000150: 27,6130 71174 ABVAL 2
028600,000151: 27,6131 63722 TSLT DMP
028601,000152: 27,6132 47776 BZE
028602,000153: 27,6133 01002 DELV # KASCALE=5.85 16384/(4 .3048 805 100)
028603,000154: 27,6134 00003 2 # 2 FOR 2 SEC, 3 FOR 1 SEC, 4 FOR .5 --
028604,000155: 27,6135 21146 KASCALE # = 3. /4 /25
028605,000156: 27,6136 21032 SETMIND
028606,000157: 27,6137 33363 STORE D # ACCELERATION (DRAG, ALMOST)
028607,000158:
028608,000159: 27,6140 41775 GETUNI VXV 1 # UNI = UNIT(V*R)
028609,000160: 27,6141 73176 UNIT
028610,000161: 27,6142 01315 (V) # COULD USE UNITV.
028611,000162: 27,6143 01016 UNITR
028612,000163: 27,6144 33562 STORE UNI # INERTIAL OR RELATIVE AS IS (V).
028613,000164:
028614,000165: # SOME OF THE FOLLOWING TARGETTING MIGHT BE DONE LESS OFTEN THAN ABOVE.
028615,000166:
028616,000167: 27,6145 43575 TEST 1 # THIS TEST MIGHT BE COMBINED WITH THE
028617,000168: 27,6146 45176 DMOVE # PREVIOUS ONE IF ALL CALCULATIONS ARE
028618,000169: 27,6147 00010 RELVELSW # DONE EVERY CYCLE.
028619,000170: 27,6150 21001 GETETA
028620,000171: 27,6151 01465 PIPTIME
028621,000172: 27,6152 33145 STORE DTEAROT
028622,000173:
028623,000174:
028624,000175: 27,6153 76776 UPDATERT ITC 0 # UPDATE PREDICTED TARGET VECTOR RT
028625,000176: 27,6154 13554 EARROT2
028626,000177:
028627,000178: 27,6155 47575 NOLOD 1
028628,000179: 27,6156 42771 DOT RTB # SINCE (RT) UNIT VEC, THIS IS 1/4 MAX.
028629,000180: 27,6157 01562 UNI # LATANG = RT.UNI
028630,000181: 27,6160 20264 FRESHPD
028631,000182: 27,6161 33113 STORE LATANG # LATANG = MAC LATANGLE/4 (NO 2 PI)
028632,000183: # UNUSUAL SCALING FOR LATANG. ( = ASIN L.
028633,000184:
028634,000185: 27,6162 42773 GETANGLE DOT 3 # THETA = ARCCOS(RT.UNITR)
028635,000186: 27,6163 66616 DSU BPL # RT IS UNIT VECTOR
028636,000187: 27,6164 70716 DAD TSLT
028637,000188: 27,6165 61176 ACOS
028638,000189: 27,6166 01215 RT
028639,000190: 27,6167 01016 UNITR
028640,000191: 27,6170 21072 NEAR1/4 # TO IMPROVE ACCURACY, CALC RANGE BY
028641,000192: 27,6171 21037 TINYTHET # TINYTHET IF HIGH ORDER PART OF
028642,000193: 27,6172 21072 NEAR1/4 # ARCCOS ARGUMENT IS ZERO
028643,000194: 27,6173 00002 1
028644,000195: 27,6174 33111 STORE THETAH
028645,000196:
028646,000197: 27,6175 77576 EXIT 0
028647,000198:
028648,000199: 27,6176 02276 REFAZE10 TC PHASCHNG
028649,000200: 27,6177 02205 OCT 02205 # 5.18 RESTART AT REFAZE10
028650,000201: 27,6200 04000 TC INTPRET
028651,000202:
028652,000203: # JUMP TO PARTICULAR RE-ENTRY PHASE.
028653,000204:
028654,000205: 27,6201 44576 SEQUENCE ITCI 0 # BRANCHES TO VARIOUS CONTROL PHASES.
028655,000206: 27,6202 01375 GOTOADDR # ADDRESS OF PHASE EQS STORED HERE.
028656,000207:
028657,000208: # GOTOADDR CONTAINS THE ADDRESS OF THE ROLL COMMAND EQUATIONS
028658,000209: # APPROPRIATE TO THE CURRENT PHASE OF RE-ENTRY. SEQUENCING IS AS FOLLOWS:
028659,000210:
028660,000211: # INITROLL SET HERE INITIALLY. HOLDS INITIAL ROLL ATTITUDE UNTIL KAT EX-
028661,000212: # CEEDED. THEN HOLDS NEW ROLL ATTITUDE UNTIL VRTHRESH EXCEEDED.
028662,000213: # THEN BRANCHES TO
028663,000214:
028664,000215: # HUNTEST THIS SECTION CHECKS TO SEE IF THE PREDICTED RANGE AT NOMINAL
028665,000216: # L/D FROM PRESENT CONDITIONS IS LESS THAN THE DESIRED RANGE
028666,000217: # IF NOT-- A ROLL COMMAND IS GENERATED BY THE CONSTANT DRAG
028667,000218: # CONTROLLER.
028668,000219: # IF SO-- CONTROL AND GOTOADDR ARE SET TO UPCONTRL
028669,000220: # USUALLY NO ITERATION IS INVOLVED EXCEPT IF THE RANGE DESIRED IS
028670,000221: # TOO LONG ON THE FIRST PASS THRU HUNTEST.
028671,000222:
028672,000223: # UPCONTRL CONTROLS ROLL DURING THE SUPER-CIRCULAR PHASE. UPCONTRL IS TERM
028673,000224: # INATED EITHER (A) WHEN THE DRAG (AS MEASURED BY THE PIPAS)
028674,000225: # FALLS BELOW Q7 OR (B) IF RDOT IS NEGATIVE AND REFERENCE VL
028675,000226: # EXCEEDS V. IN CASE (A), GOTOADDR IS SET TO KEP2 AND IN (B) TO
028676,000227: # PREDICT3, SKIPPING THE KEPLER PHASE OF ENTRY.
028677,000228:
028678,000229: # KEP2 GOTOADDR IS SET HERE DURING THE KEPLER PHASE TO MONITOR DRAG.
028679,000230: # SPACECRAFT IS INSTANTANEOUSLY TRIMMED IN PITCH AND YAW TO THE
028680,000231: # COMPUTED RELATIVE VELOCITY VECTOR. THE LAST COMPUTED ROLL
028681,000232: # ANGLE IS MAINTAINED. WHEN THE MEASURED DRAG EXCEEDS Q7+.5,
028682,000233: # GOTOADDR IS SET TO
028683,000234:
028684,000235: # PREDICT3 THIS CONTROLS THE FINAL SUB-ORBITAL PHASE. ROLL COMMANDS CEASE
028685,000236: # WHEN V IS LESS THAN VQUIT. AN EXIT IS MADE TO TERMALT WHEN
028686,000237: # TERMINAL ALTITUDE IS REACHED.
028687,000238:
028688,000239:
028689,000240: # OUT OF SEQUENCE SUBSECTION TO COMPUTE ETA.
028690,000241:
028691,000242: 30,7000 BANK 30
028692,000243: 30,7000 43575 GETETA TEST 1
028693,000244: 30,7001 64776 DMP # NOT USED AT LOW VEL WHERE THETA NEG.
028694,000245: 30,7002 00011 EGSW
028695,000246: 30,7003 21016 SUBETA # BRANCHES IF INTO EQ. GLIDE PHASE.
028696,000247: 30,7004 01111 THETAH
028697,000248: 30,7005 21150 KTETA # = 1000X2PI/(2)E14 163.84
028698,000249: 30,7006 33357 STORE ETA # DONT REALLY WANT IT, BUT NO PUSH WANTED
028699,000250:
028700,000251: 30,7007 47575 GETETA2 NOLOD 1
028701,000252: 30,7010 70776 DAD
028702,000253: 30,7011 01465 PIPTIME
028703,000254: 30,7012 33145 STORE DTEAROT
028704,000255:
028705,000256: 30,7013 76776 ITC 0
028706,000257: 30,7014 16154 UPDATERT
028707,000258:
028708,000259: 30,7015 66775 SUBETA DSU 1 # SWITCH FROM INERTIAL TO RELATIVE
028709,000260: 30,7016 43611 BPL SWITCH # VELOCITY WHEN V LESS THAN .5 VSAT.
028710,000261: 30,7017 01620 V
028711,000262: 30,7020 21063 FOURTH
028712,000263: 30,7021 21024 SUBETA2
028713,000264: 30,7022 00010 RELVELSW # SHOULD CHANGE TO OFF (NON-BRANCH) STATE
028714,000265:
028715,000266: 30,7023 64775 SUBETA2 DMP 1
028716,000267: 30,7024 62772 DDV ITC
028717,000268: 30,7025 01111 THETAH
028718,000269: 30,7026 21152 KT # KT = RE(2 PI)/ 2 VS 16384 163.84
028719,000270: 30,7027 01620 V # /2 VSAT
028720,000271: 30,7030 21010 GETETA2
028721,000272:
028722,000273: 30,7031 45176 SETMIND DMOVE 0 # MAKE D NON-ZERO.
028723,000274: 30,7032 21067 1BITDP
028724,000275: 30,7033 33363 STORE D
028725,000276:
028726,000277: 30,7034 76776 ITC 0
028727,000278: 30,7035 16141 GETUNI
028728,000279:
028729,000280: 30,7036 47573 TINYTHET NOLOD 3 # ENTER WITH X-.249
028730,000281: 30,7037 66723 DSU ABS # GET 1/4 - MPAC
028731,000282: 30,7040 63653 TSLT SQRT # SCALE UP BEFORE SQRT.
028732,000283: 30,7041 64776 DMP # HAS FACTOR FOR UP SCALING.
028733,000284: 30,7042 21070 1BITDP +1 # X = SQRT(2(1-COSX)), IN RADIANS
028734,000285: 30,7043 00016 13D # X/2PI=(1/64PI)(SQRT(((1-COSX)/4)2EXP13)
028735,000286: 30,7044 21170 KACOS
028736,000287: 30,7045 33111 STORE THETAH
028737,000288:
028738,000289: 30,7046 76576 RTB 0 # OFF TO PRE-SEQUENCER...
028739,000290: 30,7047 16177 REFAZE10
028740,000291:
028741,000292:
028742,000293: # MAINTAINS INITIAL ROLL UNTIL D = KAT, GOES INTO HUNTEST WHEN
028743,000294: # RDOT = VRCONT.
028744,000295:
028745,000296:
028746,000297:
028747,000298: 27,6203 BANK 27
028748,000299:
028749,000300: 27,6203 56236 HUNTCADR CADR HUNTEST
028750,000301:
028751,000302: 27,6204 66775 INITROLL DSU 1 # IF D-.05 G NEG, GO TO LIMITL/D
028752,000303: 27,6205 73775 BMN EXIT # IF NOT, SET .05 G SWITCH FOR SCS
028753,000304: 27,6206 01363 D
028754,000305: 27,6207 21154 .05G
028755,000306: 27,6210 17405 LIMITL/D
028756,000307:
028757,000308: 27,6211 03401 TC RELAYON # SEND .05 G SIGNAL TO SCS.
028758,000309: 27,6212 40100 OCT 40100
028759,000310: 27,6213 02362 TC NEWMODE # SET MODE TO AFTER .05 G STATE.
028760,000311: 27,6214 00064 OCT 00064
028761,000312: 27,6215 04000 TC INTPRET
028762,000313:
028763,000314: 27,6216 66774 DSU 2 # IF KAT-D POS, GO TO OUT WITH COMMAND
028764,000315: 27,6217 43605 BPL LODON # IF NEG, L/D = LAD
028765,000316: 27,6220 45176 DMOVE
028766,000317: 27,6221 21512 KAT
028767,000318: 27,6222 01363 D
028768,000319: 27,6223 17405 LIMITL/D
028769,000320: 27,6224 21156 LAD # WHEN D GREATER THAN KAT, L/D = LAD
028770,000321: 27,6225 33223 STORE L/D
028771,000322:
028772,000323: 27,6226 70775 DAD 1 # IF RDOT + VRCONT NEG, GO TO STEER
028773,000324: 27,6227 73775 BMN EXIT # IF POS, SET SELECTOR TO HUNTEST.
028774,000325: 27,6230 01347 RDOT
028775,000326: 27,6231 21210 VRCONT
028776,000327: 27,6232 17405 LIMITL/D # DO LATERAL CONTROL IF NEEDED.
028777,000328: # SPACER.
028778,000329: 27,6233 36203 CAF HUNTCADR
028779,000330: 27,6234 51374 TS GOTOADDR # AND FALL THRU INTO HUNTEST.
028780,000331:
028781,000332:
028782,000333: # ... HUNTEST SECTION... CHECKS TO SEE WHEN PREDICTED RANGE = DESIRED ONE
028783,000334:
028784,000335: # KEEP WITH ABOVE CODING........
028785,000336:
028786,000337: 27,6235 04000 PREHUNT TC INTPRET
028787,000338:
028788,000339: 27,6236 45176 HUNTEST DMOVE 0
028789,000340: 27,6237 01620 V
028790,000341: 27,6240 33365 STORE V1
028791,000342:
028792,000343: 27,6241 45176 DMOVE 0
028793,000344: 27,6242 01363 D # A0 = D
028794,000345: 27,6243 33602 STORE A0
028795,000346:
028796,000347: 27,6244 43775 BPL 1
028797,000348: 27,6245 62742 DDV DAD
028798,000349: 27,6246 01347 RDOT
028799,000350: 27,6247 16262 HUNTESTA
028800,000351: 27,6250 21172 LAD/KC1
028801,000352: 27,6251 01365 V1
028802,000353: 27,6252 33365 STORE V1
028803,000354:
028804,000355: 27,6253 51175 DSQ 1
028805,000356: 27,6254 62742 DDV DAD
028806,000357: 27,6255 01347 RDOT
028807,000358: 27,6256 21174 2HSL/KC2
028808,000359: 27,6257 01602 A0
028809,000360: 27,6260 33602 STORE A0
028810,000361:
028811,000362: 27,6261 43575 HUNTESTA TEST 1
028812,000363: 27,6262 45011 DMOVE SWITCH
028813,000364: 27,6263 00012 HUNTIND
028814,000365: 27,6264 16313 HUNTEST1
028815,000366: 27,6265 01602 A0
028816,000367: 27,6266 00012 HUNTIND
028817,000368: 27,6267 33614 STORE D0
028818,000369:
028819,000370: 27,6270 66775 DSU 1
028820,000371: 27,6271 73742 BMN DAD
028821,000372: 27,6272 21130 C19
028822,000373: 27,6273 01614 D0
028823,000374: 27,6274 16300 +3
028824,000375: 27,6275 01614 D0
028825,000376: 27,6276 33614 STORE D0
028826,000377:
028827,000378: 27,6277 62776 DDV 0
028828,000379: 27,6300 21216 -1/1600
028829,000380: 27,6301 01614 D0
028830,000381: 27,6302 33341 STORE -1/D0
028831,000382:
028832,000383: 27,6303 45176 DMOVE 0 # ZERO DIFFOLD THE FIRST TIME THRU.
028833,000384: 27,6304 21065 3ZEROS
028834,000385: 27,6305 33325 STORE DIFFOLD
028835,000386:
028836,000387: 27,6306 70776 DAD 0 # V1OLD = V1 + C18 (500FPS)
028837,000388: 27,6307 01365 V1 # MAKES OLD VCORR -500 AND NEW +500 ..
028838,000389: 27,6310 21074 C18 # INITIAL VALUE ON VCORR = -500 FPS SO
028839,000390: 27,6311 33371 STORE V1OLD # (IN+TIAL 0ALUES IF NEEDED ON 1ST PASS.
028840,000391:
028841,000392: 27,6312 45176 HUNTEST1 DMOVE 0 # Q7 = Q7F
028842,000393: 27,6313 21114 Q7F
028843,000394: 27,6314 33327 STORE Q7
028844,000395:
028845,000396: 27,6315 64774 DMP 2 # ALP = A0 2HSD/LWD / V1 V1
028846,000397: 27,6316 62771 DDV RTB
028847,000398: 27,6317 62776 DDV
028848,000399: 27,6320 01602 A0
028849,000400: 27,6321 21102 2HS/LEWD
028850,000401: 27,6322 01365 V1
028851,000402: 27,6323 20264 FRESHPD
028852,000403: 27,6324 01365 V1
028853,000404: 27,6325 33630 STORE ALP
028854,000405:
028855,000406: 27,6326 47575 NOLOD 1
028856,000407: 27,6327 65706 BDSU BDDV
028857,000408: 27,6330 21051 NEARONE # FACT1 = V1 / (1 - ALP)
028858,000409: 27,6331 01365 V1
028859,000410: 27,6332 33632 STORE FACT1
028860,000411:
028861,000412: 27,6333 66775 DSU 1
028862,000413: 27,6334 64712 DMP DDV # FACT2 = ALP(ALP - 1) / AD
028863,000414: 27,6335 01630 ALP
028864,000415: 27,6336 21051 NEARONE
028865,000416: 27,6337 01630 ALP
028866,000417: 27,6340 01602 A0
028867,000418: 27,6341 33331 STORE FACT2
028868,000419:
028869,000420: 27,6342 64774 DMP 2 # VL = FACT1(1 - SQRT(ALP + Q7 FACT2))
028870,000421: 27,6343 70653 DAD SQRT
028871,000422: 27,6344 65722 BDSU DMP
028872,000423: 27,6345 01327 Q7
028873,000424: 27,6346 01331 FACT2
028874,000425: 27,6347 01630 ALP
028875,000426: 27,6350 21051 NEARONE
028876,000427: 27,6351 01632 FACT1
028877,000428: 27,6352 33616 STORE VL
028878,000429:
028879,000430: 27,6353 47574 NOLOD 2 # GAMMAL = LEWD(V1-VL)/VL
028880,000431: 27,6354 65722 BDSU DMP
028881,000432: 27,6355 62776 DDV
028882,000433: 27,6356 01365 V1
028883,000434: 27,6357 21057 LEWD
028884,000435: 27,6360 01616 VL
028885,000436: 27,6361 32027 STORE GAMMAL1 # GAMMAL1 USED IN UPCONTRL
028886,000437:
028887,000438: 27,6362 66775 DSU 1 # IF VL-VMIN NEG, GO TO SHORT
028888,000439: 27,6363 73776 BMN
028889,000440: 27,6364 01616 VL
028890,000441: 27,6365 21116 VMIN
028891,000442: 27,6366 17166 PREFINAL # PREFINAL = SHORT
028892,000443:
028893,000444: 27,6367 51176 DSQ 0 # VBARS = VL VL
028894,000445: 27,6370 01616 VL
028895,000446: 27,6371 33604 STORE VBARS
028896,000447:
028897,000448: 27,6372 66775 DSU 1 # IF VSAT - VL NEG, GO TO CONSTD.
028898,000449: 27,6373 73776 BMN
028899,000450: 27,6374 21212 HALVE # VSAT = .5
028900,000451: 27,6375 01616 VL
028901,000452: 27,6376 17056 BECONSTD # GOTOADDR MAY BE SIDETRACKED.
028902,000453: 27,6377 33440 STORE DVL # DVL = VSAT - VL
028903,000454:
028904,000455: 27,6400 45176 DMOVE 0
028905,000456: 27,6401 21212 HALVE # VS = VSAT
028906,000457: 27,6402 33612 STORE VS
028907,000458:
028908,000459: 27,6403 47574 NOLOD 2
028909,000460: 27,6404 66756 DSU BMN # IF V1 GREATER THAN VSAT, GO ON.
028910,000461: 27,6405 65776 BDSU
028911,000462: 27,6406 01365 V1
028912,000463: 27,6407 16416 GETDHOOK
028913,000464: 27,6410 01440 DVL # DVL = DVL - (VSAT-V1) = V1 - VL
028914,000465: 27,6411 33440 STORE DVL
028915,000466:
028916,000467: 27,6412 45176 DMOVE 0
028917,000468: 27,6413 01365 V1
028918,000469: 27,6414 33612 STORE VS # VS = V1
028919,000470:
028920,000471: 27,6415 56773 GETDHOOK TSRT 3 # DHOOK = ((1-VS/FACT1)SQ -ALP)/FACT2
028921,000472: 27,6416 62726 DDV BDSU
028922,000473: 27,6417 63643 TSLT DSQ
028923,000474: 27,6420 66712 DSU DDV
028924,000475: 27,6421 01612 VS
028925,000476: 27,6422 00002 1
028926,000477: 27,6423 01632 FACT1
028927,000478: 27,6424 21212 HALVE
028928,000479: 27,6425 00002 1
028929,000480: 27,6426 01630 ALP
028930,000481: 27,6427 01331 FACT2
028931,000482: 27,6430 33434 STORE DHOOK
028932,000483:
028933,000484: 27,6431 56775 TSRT 1 # RESCALE BY 32.
028934,000485: 27,6432 62732 DDV DSU
028935,000486: 27,6433 01434 DHOOK
028936,000487: 27,6434 00006 5
028937,000488: 27,6435 01327 Q7
028938,000489: 27,6436 21176 CHOOK
028939,000490: 27,6437 33436 STORE AHOOKDV
028940,000491:
028941,000492: 27,6440 47572 NOLOD 4
028942,000493: 27,6441 70722 DAD DMP # GAMMAL = GAMMAL1-CH1 DVLSQ(1+AHOOK DVL
028943,000494: 27,6442 64722 DMP DMP # /DHOOK VBARS
028944,000495: 27,6443 62712 DDV DDV
028945,000496: 27,6444 65756 BDSU BMN
028946,000497: 27,6445 21200 1/8TH
028947,000498: 27,6446 21202 CH1
028948,000499: 27,6447 01440 DVL
028949,000500: 27,6450 01440 DVL
028950,000501: 27,6451 01434 DHOOK
028951,000502: 27,6452 01604 VBARS
028952,000503: 27,6453 00027 GAMMAL1
028953,000504: 27,6454 16642 NEGAMA # FIND CONDITIONS FOR GAMMAL = 0.
028954,000505: 27,6455 33610 STORE GAMMAL
028955,000506:
028956,000507: # ... PREDICT RANGES FOR EACH PHASE OF TRAJECTORY...
028957,000508:
028958,000509: 27,6456 51175 RANGER DSQ 1
028959,000510: 27,6457 56726 TSRT BDSU # COSG = 1-GAMMAL SQ/2 , TRUNCATED SERIES
028960,000511: 27,6460 01610 GAMMAL
028961,000512: 27,6461 00003 2
028962,000513: 27,6462 21212 HALVE
028963,000514: 27,6463 33606 STORE COSG/2
028964,000515:
028965,000516: 27,6464 66773 DSU 3
028966,000517: 27,6465 64722 DMP DMP # E=SQRT(1+VBARS-2)VBARS COSG COSG)
028967,000518: 27,6466 64716 DMP TSLT
028968,000519: 27,6467 70653 DAD SQRT
028969,000520: 27,6470 01604 VBARS
028970,000521: 27,6471 21212 HALVE
028971,000522: 27,6472 01604 VBARS
028972,000523: 27,6473 01606 COSG/2
028973,000524: 27,6474 01606 COSG/2
028974,000525: 27,6475 00003 2 # MULT BY 4
028975,000526: 27,6476 21100 C1/16 # E (E/4 REALLY) INTO PD.
028976,000527:
028977,000528: 27,6477 64774 DMP 2 # ASKEP/2 = ARCSIN(VBARS COSG SING/E)
028978,000529: 27,6500 64712 DMP DDV
028979,000530: 27,6501 63116 ASIN TSLT
028980,000531: 27,6502 01604 VBARS
028981,000532: 27,6503 01606 COSG/2
028982,000533: 27,6504 01610 GAMMAL
028983,000534: 27,6505 77777 - # E FROM PD.
028984,000535: 27,6506 00002 1 # ASKEP INTO PD.
028985,000536:
028986,000537: 27,6507 64775 DMP 1 # ASP1 = Q2 +Q3(VL-Q4) = Q2' + Q3 VL
028987,000538: 27,6510 70742 DAD DAD
028988,000539: 27,6511 01616 VL
028989,000540: 27,6512 21106 Q3
028990,000541: 27,6513 21104 Q2 # ASP1 + ASKEP INTO PD.
028991,000542:
028992,000543: 27,6514 51173 DSQ 3 # ASPUP = -C12 LOG(V1 V1 Q7/VBARS D)/GAMM
028993,000544: 27,6515 64712 DMP DDV # AL1
028994,000545: 27,6516 62771 DDV RTB
028995,000546: 27,6517 64712 DMP DDV
028996,000547: 27,6520 01365 V1
028997,000548: 27,6521 01327 Q7
028998,000549: 27,6522 01604 VBARS
028999,000550: 27,6523 01602 A0
029000,000551: 27,6524 20444 LOG
029001,000552: 27,6525 21120 C12
029002,000553: 27,6526 00027 GAMMAL1 # ASPUP UNTO PD
029003,000554:
029004,000555: 27,6527 64775 DMP 1 # ASPDWN = KC3 RDOT V / A0
029005,000556: 27,6530 64712 DMP DDV
029006,000557: 27,6531 21204 KC3
029007,000558: 27,6532 01347 RDOT
029008,000559: 27,6533 01620 V
029009,000560: 27,6534 01602 A0 # ASPDWN INTO PD.
029010,000561:
029011,000562: 27,6535 66774 DSU 2 # ASP3 = Q5(Q6-GAMMAL)
029012,000563: 27,6536 64742 DMP DAD
029013,000564: 27,6537 70742 DAD DAD
029014,000565: 27,6540 21112 Q6
029015,000566: 27,6541 01610 GAMMAL # ASP = ASP1+ASKEP+ASPUP+ASP3
029016,000567: 27,6542 21110 Q5 # ASP INTO PD
029017,000568:
029018,000569: 27,6543 47575 NOLOD 1
029019,000570: 27,6544 65672 BDSU TSRT
029020,000571: 27,6545 01111 THETAH
029021,000572: 27,6546 00005 4 # DIFF = (ASP-THETA)/16
029022,000573: 27,6547 33225 STORE DIFF # END OF TEST
029023,000574:
029024,000575: 27,6550 47572 NOLOD 4
029025,000576: 27,6551 65132 ABS DSU # IF ABS((THETAH-ASP) - 25NM NEG,GOTOUPSY
029026,000577: 27,6552 73615 BMN TEST # IF HIND SET, GO TO GET LV THE REPEATWAY
029027,000578: 27,6553 41556 LODON BMN # IF DIFF NEG, GO TO CONSTD
029028,000579: 27,6554 41532 LODON DSU # VCORR = V1 - V1OLD
029029,000580: 27,6555 21140 25NM
029030,000581: 27,6556 16706 GOTOUPSY
029031,000582: 27,6557 00013 HIND
029032,000583: 27,6560 16567 GETVCOR
029033,000584: 27,6561 01225 DIFF
029034,000585: 27,6562 17050 DCONSTD # SETTING UP DIFFOLD ON THE WAY
029035,000586:
029036,000587: 27,6563 01365 V1
029037,000588: 27,6564 01371 V1OLD # VCORR = V1 - V1OLD
029038,000589: 27,6565 33600 STORE VCORR
029039,000590:
029040,000591: 27,6566 66775 GETVCOR DSU 1
029041,000592: 27,6567 62706 DDV BDDV
029042,000593: 27,6570 01325 DIFFOLD
029043,000594: 27,6571 01225 DIFF
029044,000595: 27,6572 01600 VCORR
029045,000596: 27,6573 01225 DIFF
029046,000597: 27,6574 33600 STORE VCORR
029047,000598:
029048,000599: 27,6575 77576 EXIT 0
029049,000600:
029050,000601: 27,6576 02276 TC PHASCHNG # HAVE GROUP 3 PICK UP AT PREHUNT.
029051,000602: 27,6577 02003 OCT 02003 # 3.16 RESTART.
029052,000603:
029053,000604: 27,6600 37622 CAF ADENDEXT # SIDETRACK NEXT PASS UNTIL THIS ONE DONE.
029054,000605: 27,6601 51374 TS GOTOADDR # ONLY AFTER RESTART IS LEFT AFTER DETOUR.
029055,000606:
029056,000607: 27,6602 04000 TC INTPRET
029057,000608:
029058,000609: 27,6603 47574 NOLOD 2
029059,000610: 27,6604 65616 BDSU BPL # IS VCORR - 1000 POS.
029060,000611: 27,6605 70776 DAD # VCORR = 1000
029061,000612: 27,6606 21132 VCORLIM
029062,000613: 27,6607 16613 CHKVL
029063,000614: 27,6610 01600 VCORR # LEAVING VCORLIM IN MPAC
029064,000615: 27,6611 33600 STORE VCORR
029065,000616:
029066,000617: 27,6612 70774 CHKVL DAD 2
029067,000618: 27,6613 66756 DSU BMN # IF VL + VCORR - VSAT POS, VCORR=VCORR/
029068,000619: 27,6614 41472 LODON TSRT
029069,000620: 27,6615 01600 VCORR
029070,000621: 27,6616 01616 VL
029071,000622: 27,6617 21212 HALVE
029072,000623: 27,6620 16625 GETNUV1
029073,000624: 27,6621 01600 VCORR
029074,000625: 27,6622 00002 1
029075,000626: 27,6623 33600 STORE VCORR
029076,000627:
029077,000628: 27,6624 70776 GETNUV1 DAD 0
029078,000629: 27,6625 01365 V1
029079,000630: 27,6626 01600 VCORR
029080,000631: 27,6627 33365 STORE V1
029081,000632:
029082,000633: 27,6630 45176 DMOVE 0 # SAVE OLD VALUE OF ASP
029083,000634: 27,6631 01225 DIFF
029084,000635: 27,6632 33325 STORE DIFFOLD
029085,000636:
029086,000637: 27,6633 43575 TEST 1 # SET HIND AND GO TO HUNTEST1
029087,000638: 27,6634 42572 SWITCH ITC
029088,000639: 27,6635 00013 HIND
029089,000640: 27,6636 16313 HUNTEST1
029090,000641: 27,6637 00013 HIND
029091,000642: 27,6640 16313 HUNTEST1
029092,000643:
029093,000644:
029094,000645:
029095,000646: 27,6641 47575 NEGAMA NOLOD 1 # ENTER WITH GAMMAL IN MPAC
029096,000647: 27,6642 64722 DMP DMP # FIND GAMMAL VL / 3
029097,000648: 27,6643 01616 VL
029098,000649: 27,6644 21053 1/3RD # .. AND PUSH DOWN PARTIAL RESULT..
029099,000650:
029100,000651: 27,6645 70773 DAD 3
029101,000652: 27,6646 64722 DMP DMP # DEL VL = GAMMAL VL/3)/(LEWD/3 - DVL(2/3
029102,000653: 27,6647 62712 DDV DDV # + AHOOKDV)(CH1 GS/DHOOK VL))
029103,000654: 27,6650 65706 BDSU BDDV
029104,000655: 27,6651 01436 AHOOKDV
029105,000656: 27,6652 21055 1/12TH
029106,000657: 27,6653 01440 DVL
029107,000658: 27,6654 21202 CH1
029108,000659: 27,6655 01434 DHOOK
029109,000660: 27,6656 01616 VL # 2 OUT OF ,1 INTO PUSH
029110,000661: 27,6657 21061 LEWD/3
029111,000662:
029112,000663: 27,6660 70776 DAD 0
029113,000664: 27,6661 01616 VL
029114,000665: 27,6662 33616 STORE VL # VL = VL + DEL VL
029115,000666:
029116,000667: 27,6663 47573 NOLOD 3 # VL IS IN MPAC
029117,000668: 27,6664 62726 DDV BDSU # Q7 = ((1-VL/FACT1)SQ - ALP)/ FACT2
029118,000669: 27,6665 51132 DSQ DSU
029119,000670: 27,6666 62776 DDV
029120,000671: 27,6667 01632 FACT1
029121,000672: 27,6670 21051 NEARONE
029122,000673: 27,6671 01630 ALP
029123,000674: 27,6672 01331 FACT2
029124,000675: 27,6673 33327 STORE Q7
029125,000676:
029126,000677: 27,6674 51176 DSQ 0 # GET NEW VBARS.
029127,000678: 27,6675 01616 VL
029128,000679: 27,6676 33604 STORE VBARS
029129,000680:
029130,000681: 27,6677 45176 DMOVE 0
029131,000682: 27,6700 21065 3ZEROS
029132,000683: 27,6701 33610 STORE GAMMAL # GAMMAL = 0
029133,000684:
029134,000685: 27,6702 76776 ITC 0
029135,000686: 27,6703 16457 RANGER
029136,000687:
029137,000688:
029138,000689: 27,6704 56716 UPCADR CADR UPCONTRL
029139,000690:
029140,000691: 27,6705 77576 GOTOUPSY EXIT 0 # BACK TO BASIC.
029141,000692:
029142,000693: 27,6706 36704 HUNTDUMP CAF UPCADR # RESET GOTOADDR
029143,000694: 27,6707 51374 TS GOTOADDR
029144,000695: 27,6710 02362 TC NEWMODE # CHANGE MODE TO SIGNAL END OF HUNT-TEST.
029145,000696: 27,6711 00065 OCT 00065
029146,000697:
029147,000698: 27,6712 44516 CS ONE # MAKE GROUP 3 INACTIVE WHEN DONE WITH
029148,000699: 27,6713 02312 TC NEWPHASE # THE ITERATIONS.
029149,000700: 27,6714 00003 OCT 3 # GROUP 3.
029150,000701:
029151,000702: 27,6715 04000 TC INTPRET # ...AND FALL INTO UPCONTROL...
029152,000703:
029153,000704:
029154,000705: # THIS SECTION IS THE UPCONTROL FOR THE SUPERCIRCULAR PHASE
029155,000706:
029156,000707: 27,6716 66773 UPCONTRL DSU 3 # IF V-V1 POS, GO TO DOWNCONTROL
029157,000708: 27,6717 43605 BPL LODON # IF D-Q7 NEG, GO TO KEP
029158,000709: 27,6720 66756 DSU BMN
029159,000710: 27,6721 41556 LODON BMN # IF RDOT NEG, GO TO VLTEST
029160,000711: 27,6722 01620 V # VLTEST TESTS FOR START OF FINAL PHASE
029161,000712: 27,6723 01365 V1
029162,000713: 27,6724 17111 DOWNCNTL
029163,000714: 27,6725 01363 D
029164,000715: 27,6726 01327 Q7
029165,000716: 27,6727 17140 KEP # SET CONSTS. ETC FOR BALLISTIC PHASE.
029166,000717: 27,6730 01347 RDOT
029167,000718: 27,6731 17160 VLTEST
029168,000719:
029169,000720: 27,6732 66775 CONT1 DSU 1
029170,000721: 27,6733 43776 BPL
029171,000722: 27,6734 01363 D # IF D-A0 NEG,L/D=LAD,GO TO 310
029172,000723: 27,6735 01602 A0
029173,000724: 27,6736 17323 GOPOSLAD
029174,000725: 27,6737 64774 DMP 2 # VREF=FACT1(1-SQRT(FACT2 D + ALP))
029175,000726: 27,6740 70653 DAD SQRT
029176,000727: 27,6741 65722 BDSU DMP
029177,000728: 27,6742 01363 D
029178,000729: 27,6743 01331 FACT2
029179,000730: 27,6744 01630 ALP
029180,000731: 27,6745 21051 NEARONE
029181,000732: 27,6746 01632 FACT1
029182,000733: 27,6747 33624 STORE VREF
029183,000734:
029184,000735: 27,6750 47575 NOLOD 1 # RDOTREF = LEWD(V1-VREF)
029185,000736: 27,6751 65722 BDSU DMP
029186,000737: 27,6752 01365 V1
029187,000738: 27,6753 21057 LEWD
029188,000739: 27,6754 33626 STORE RDOTREF
029189,000740:
029190,000741: 27,6755 66775 DSU 1 # IF VSAT - VREF NEG, GO TO CONTINU2
029191,000742: 27,6756 73635 BMN NOLOD # NOLOD TO PUSH DOWN (HALVE-VREF)
029192,000743: 27,6757 01612 VS
029193,000744: 27,6760 01624 VREF # NO RDHOOK UNTIL VREF LESS THAN VSAT.
029194,000745: 27,6761 17003 CONTINU2 # PUSHING DOWN IF NO BRANCH.
029195,000746:
029196,000747: 27,6762 47571 NOLOD 5 # RDHOOK=CH1(AHOOKDVL/DVL(DV+1))DV DV
029197,000748: 27,6763 64712 DMP DDV # /DHOOK VREF
029198,000749: 27,6764 70722 DAD DMP # WHERE DV = VS - VREF
029199,000750: 27,6765 64722 DMP DMP
029200,000751: 27,6766 62712 DDV DDV
029201,000752: 27,6767 65776 BDSU
029202,000753: 27,6770 01436 AHOOKDV
029203,000754: 27,6771 01440 DVL
029204,000755: 27,6772 21200 1/8TH
029205,000756: 27,6773 21202 CH1
029206,000757: 27,6774 00001 0 # ABOVE SHOULD HAVE PUSHED INTO LOC 0.
029207,000758: 27,6775 77777 -
029208,000759: 27,6776 01434 DHOOK
029209,000760: 27,6777 01624 VREF
029210,000761: 27,7000 01626 RDOTREF
029211,000762: 27,7001 33626 STORE RDOTREF # RDOTREF = RDOTREF - RDHOOK
029212,000763:
029213,000764: 27,7002 66776 CONTINU2 DSU 0
029214,000765: 27,7003 01602 A0 # FACTOR = (D-Q7)/(A0-Q7)
029215,000766: 27,7004 01327 Q7 # PARTIAL RESULT IN PD
029216,000767:
029217,000768: 27,7005 66775 DSU 1
029218,000769: 27,7006 62776 DDV
029219,000770: 27,7007 01363 D
029220,000771: 27,7010 01327 Q7
029221,000772: 27,7011 33622 STORE FACTOR
029222,000773:
029223,000774: 27,7012 66772 DSU 4 # L/D = LEWD
029224,000775: 27,7013 64712 DMP DDV # -((RDOT-RDOTREF)F1/KB1+V-VREF)F1/KB2
029225,000776: 27,7014 70732 DAD DSU
029226,000777: 27,7015 64712 DMP DDV
029227,000778: 27,7016 70746 DAD BOV
029228,000779: 27,7017 01347 RDOT
029229,000780: 27,7020 01626 RDOTREF
029230,000781: 27,7021 01622 FACTOR
029231,000782: 27,7022 21124 KB1
029232,000783: 27,7023 01620 V
029233,000784: 27,7024 01624 VREF
029234,000785: 27,7025 01622 FACTOR
029235,000786: 27,7026 21126 KB2 # DELTA L/D INTO PD
029236,000787: 27,7027 21057 LEWD
029237,000788: 27,7030 17337 GOMAXL/D
029238,000789: 27,7031 33223 STORE L/D
029239,000790:
029240,000791: 27,7032 47573 NEGTEST NOLOD 3 # IF L/D NEG, AND D-C20 POS, L/D = 0
029241,000792: 27,7033 43605 BPL LODON
029242,000793: 27,7034 66756 DSU BMN
029243,000794: 27,7035 42522 SWITCH DMP
029244,000795: 27,7036 17405 LIMITL/D
029245,000796: 27,7037 01363 D
029246,000797: 27,7040 21136 C20
029247,000798: 27,7041 17405 LIMITL/D
029248,000799: 27,7042 00014 LATSW
029249,000800: 27,7043 21065 3ZEROS # L/D=0 NO NEG LIFT
029250,000801: 27,7044 33223 STORE L/D
029251,000802:
029252,000803: 27,7045 76776 ITC 0
029253,000804: 27,7046 17405 LIMITL/D
029254,000805:
029255,000806:
029256,000807: # CONSTANT DRAG CONTROLLER
029257,000808: 27,7047 45176 DCONSTD DMOVE 0
029258,000809: 27,7050 01225 DIFF # SAVE OLD VALUE OF DIFF FOR NEXT PASS.
029259,000810: 27,7051 33325 STORE DIFFOLD
029260,000811:
029261,000812: 27,7052 45176 DMOVE 0 # V1OLD = V1
029262,000813: 27,7053 01365 V1
029263,000814: 27,7054 33371 STORE V1OLD
029264,000815:
029265,000816: 27,7055 75575 BECONSTD AXT,1 1 # RESETS GOTOADDR TO GO TO HUNTEST
029266,000817: 27,7056 67576 SXA,1
029267,000818: 27,7057 16237 HUNTEST
029268,000819: 27,7060 01375 GOTOADDR
029269,000820:
029270,000821: 27,7061 64776 CONSTD DMP 0
029271,000822: 27,7062 01432 LEQ
029272,000823: 27,7063 01341 -1/D0
029273,000824:
029274,000825: 27,7064 66775 DSU 1
029275,000826: 27,7065 64742 DMP DAD
029276,000827: 27,7066 01363 D
029277,000828: 27,7067 01614 D0
029278,000829: 27,7070 21142 C16
029279,000830:
029280,000831: 27,7071 64773 DMP 3
029281,000832: 27,7072 62742 DDV DAD
029282,000833: 27,7073 64742 DMP DAD
029283,000834: 27,7074 63746 TSLT BOV
029284,000835: 27,7075 21230 2HS # RDOTREF = - 2 HS D0/V
029285,000836: 27,7076 01614 D0
029286,000837: 27,7077 01620 V
029287,000838: 27,7100 01347 RDOT
029288,000839: 27,7101 17660 C17
029289,000840: 27,7102 77777 -
029290,000841: 27,7103 00011 8D
029291,000842: 27,7104 17337 GOMAXL/D
029292,000843:
029293,000844: 27,7105 33223 STORE L/D
029294,000845:
029295,000846: 27,7106 76776 ITC 0
029296,000847: 27,7107 17033 NEGTEST
029297,000848:
029298,000849: 27,7110 66775 DOWNCNTL DSU 1 # RDTR = LAD(V1-V)
029299,000850: 27,7111 64776 DMP
029300,000851: 27,7112 01365 V1
029301,000852: 27,7113 01620 V
029302,000853: 27,7114 21172 LAD/KC1
029303,000854:
029304,000855: 27,7115 47571 NOLOD 5
029305,000856: 27,7116 51112 DSQ DDV
029306,000857: 27,7117 65726 BDSU BDSU
029307,000858: 27,7120 64732 DMP DSU
029308,000859: 27,7121 70742 DAD DAD
029309,000860: 27,7122 63746 TSLT BOV
029310,000861: 27,7123 21174 2HSL/KC2
029311,000862: 27,7124 01602 A0
029312,000863: 27,7125 01363 D
029313,000864: 27,7126 21142 C16
029314,000865: 27,7127 01347 RDOT
029315,000866: 27,7130 21160 LAD/256
029316,000867: 27,7131 77777 -
029317,000868: 27,7132 00011 8D
029318,000869: 27,7133 17337 GOMAXL/D
029319,000870: 27,7134 33223 STORE L/D
029320,000871:
029321,000872: 27,7135 76776 ITC 0
029322,000873: 27,7136 17405 LIMITL/D
029323,000874:
029324,000875: 27,7137 77576 KEP EXIT 0
029325,000876:
029326,000877: 27,7140 37155 CAF KEPCADR # SET GOTOADDR TO KEPLER PHASE.
029327,000878: 27,7141 51374 TS GOTOADDR
029328,000879: 27,7142 02362 TC NEWMODE # SET MODE TO KEPLER PHASE.
029329,000880: 27,7143 00066 OCT 00066
029330,000881:
029331,000882: 27,7144 04000 TC INTPRET
029332,000883:
029333,000884: 27,7145 70775 KEPL DAD 1 # IF Q7+KDMIN - D NEG, GO TO FINAL PHASE
029334,000885: 27,7146 66756 DSU BMN
029335,000886: 27,7147 01327 Q7 # MIN DRAG = Q7 + .5 FT/SEC/SEC
029336,000887: 27,7150 21076 KDMIN
029337,000888: 27,7151 01363 D
029338,000889: 27,7152 17166 PREFINAL # FALL THRU IF POS...
029339,000890:
029340,000891: 27,7153 77576 ENDEXIT EXIT 0 # GOTOADDR IS SET HERE DURING VLHUNT.
029341,000892: 27,7154 07477 TC OVERNOUT
029342,000893:
029343,000894: 27,7155 57145 KEPCADR CADR KEPL
029344,000895: 27,7156 57200 P3CADR CADR PREDICT3
029345,000896:
029346,000897: 27,7157 66775 VLTEST DSU 1 # IF V-VL-C18 NEG,EGSW=1,SELECTOR=PREDIC
029347,000898: 27,7160 66616 DSU BPL # GO TO PREDICT3
029348,000899: 27,7161 01620 V
029349,000900: 27,7162 01616 VL
029350,000901: 27,7163 21074 C18
029351,000902: 27,7164 16733 CONT1
029352,000903:
029353,000904: 27,7165 42575 PREFINAL SWITCH 1 # CHANGE GOTOADDR TO PREDICT3 AND FALL
029354,000905: 27,7166 77576 EXIT # INTO PREDICT3
029355,000906: 27,7167 00011 EGSW
029356,000907:
029357,000908: 27,7170 44516 CS ONE
029358,000909: 27,7171 02312 TC NEWPHASE
029359,000910: 27,7172 00003 OCT 3
029360,000911:
029361,000912: 27,7173 37156 CAF P3CADR
029362,000913: 27,7174 51374 TS GOTOADDR # SET TO PREDICT3 PHASE.
029363,000914: 27,7175 02362 TC NEWMODE
029364,000915: 27,7176 00067 OCT 00067
029365,000916:
029366,000917: 27,7177 04000 TC INTPRET # ... AND FALL INTO PREDICT3...
029367,000918:
029368,000919:
029369,000920: # SUBORBITAL CONTROL (REFERENCE TRAJECTOORY BY TABLE LOOK-UP.)
029370,000921:
029371,000922: 27,7200 66772 PREDICT3 DSU 4
029372,000923: 27,7201 73605 BMN LODON # IF V - VQUIT NEG, STOP STEERING
029373,000924: 27,7202 43576 TEST
029374,000925: 27,7203 41612 VXV DOT # IF (RT)*UNITR.UNI NEG, SET GONEPAST
029375,000926: 27,7204 73775 BMN EXIT
029376,000927: 27,7205 01620 V
029377,000928: 27,7206 21132 VQUIT
029378,000929: 27,7207 17455 STEER
029379,000930: 27,7210 00007 GONEPAST
029380,000931: 27,7211 17332 GONEGLAD
029381,000932: 27,7212 01215 RT
029382,000933: 27,7213 01016 UNITR
029383,000934: 27,7214 01562 UNI # (MIGHT SAVE THIS FROM EARLIER..
029384,000935: 27,7215 17330 SETGPAST
029385,000936:
029386,000937: 27,7216 45642 CS NEG14
029387,000938: 27,7217 51107 BACK TS JJ
029388,000939:
029389,000940: 27,7220 41617 CS V
029390,000941: 27,7221 21107 INDEX JJ
029391,000942: 27,7222 67623 AD VREFER # VREF - V, HIGHEST VREF AT END OF TABLE.
029392,000943: 27,7223 10000 CCS A # IF VREF-V POS LOOP BACK
029393,000944: 27,7224 11107 CCS JJ # DECREMENT JJ, JJ CANNOT BE ZERO
029394,000945: 27,7225 07217 TC BACK
029395,000946:
029396,000947: 27,7226 64516 AD ONE
029397,000948: 27,7227 51420 TS TEM1B # V-VREF IN TEM1B (MUST BE POSITIVE NUM)
029398,000949:
029399,000950: 27,7230 21107 INDEX JJ
029400,000951: 27,7231 47623 CS VREFER
029401,000952: 27,7232 21107 INDEX JJ
029402,000953: 27,7233 67624 AD VREFER +1 # V(K+1) - V(K) (POS NUM)
029403,000954: 27,7234 31420 XCH TEM1B
029404,000955: 27,7235 25777 EXTEND
029405,000956: 27,7236 51420 DV TEM1B
029406,000957: 27,7237 51422 TS GRAD # GRAD = (V-VREF)/(VK+1 - VK) (POS NUM
029407,000958:
029408,000959: 27,7240 34477 CAF FIVE
029409,000960: 27,7241 51421 BACK2 TS M1
029410,000961: 27,7242 37620 CAF DEC15
029411,000962: 27,7243 61107 AD JJ
029412,000963: 27,7244 51107 TS JJ
029413,000964: 27,7245 20000 INDEX A
029414,000965: 27,7246 47623 CS VREFER
029415,000966: 27,7247 21107 INDEX JJ
029416,000967: 27,7250 67624 AD VREFER +1 # X(K+1) - X(K)
029417,000968: 27,7251 25777 EXTEND
029418,000969: 27,7252 41422 MP GRAD
029419,000970: 27,7253 21107 INDEX JJ
029420,000971: 27,7254 67623 AD VREFER
029421,000972: 27,7255 21421 INDEX M1
029422,000973: 27,7256 51100 TS FX # FX = AK + GRAD (AK+1 - AK)
029423,000974: 27,7257 11421 CCS M1
029424,000975: 27,7260 07241 TC BACK2
029425,000976:
029426,000977: 27,7261 35501 CAF ZERO
029427,000978: 27,7262 31101 XCH FX +1
029428,000979: 27,7263 61362 AD D
029429,000980: 27,7264 25777 EXTEND
029430,000981: 27,7265 41105 MP FX +5 # F1
029431,000982: 27,7266 51420 TS TEM1B # TEM1B= F1(D-DREF)
029432,000983:
029433,000984: 27,7267 41346 CS RDOT # FORM RDOTREF - RDOT
029434,000985: 27,7270 60000 DOUBLE
029435,000986: 27,7271 60000 DOUBLE # SCALE UP BY 8 FOR THIS PHASE.
029436,000987: 27,7272 60000 DOUBLE
029437,000988: 27,7273 61103 AD FX +3 # RDOTREF
029438,000989: 27,7274 25777 EXTEND
029439,000990: 27,7275 41104 MP FX +4 # F2
029440,000991: 27,7276 61420 AD TEM1B # ADD F2(DADV1-DADVR)
029441,000992: 27,7277 61102 AD FX +2 # RTOGO
029442,000993: 27,7300 31106 XCH PREDANG # NO OVERFLOW SKIP PLEASE.
029443,000994: 27,7301 04000 TC INTPRET
029444,000995:
029445,000996: 27,7302 43172 SMOVE 4
029446,000997: 27,7303 56726 TSRT BDSU # THETAH - PRED ANGLE
029447,000998: 27,7304 62716 DDV TSLT
029448,000999: 27,7305 71742 BOV DAD
029449,001000: 27,7306 71776 BOV
029450,001001: 27,7307 01107 PREDANG
029451,001002: 27,7310 00004 3
029452,001003: 27,7311 01111 THETAH
029453,001004: 27,7312 01101 FX # FX = DRANGE/D L/D = Y
029454,001005: 27,7313 00006 5
029455,001006: 27,7314 17337 GOMAXL/D
029456,001007: 27,7315 21206 LOD
029457,001008: 27,7316 17337 GOMAXL/D
029458,001009: 27,7317 33223 STORE L/D
029459,001010:
029460,001011: 27,7320 76776 ITC 0
029461,001012: 27,7321 17344 GLIMITER
029462,001013:
029463,001014: 27,7322 45176 GOPOSLAD DMOVE 0
029464,001015: 27,7323 21156 LAD
029465,001016: 27,7324 33223 STORE L/D
029466,001017: 27,7325 76776 ITC 0
029467,001018: 27,7326 17405 LIMITL/D
029468,001019:
029469,001020: 27,7327 42576 SETGPAST SWITCH 0 # SHOULD BE BY TARGET IF HERE.
029470,001021: 27,7330 00007 GONEPAST
029471,001022:
029472,001023: 27,7331 47176 GONEGLAD COMP 0
029473,001024: 27,7332 21156 LAD # L/D = - LAD
029474,001025: 27,7333 33223 STORE L/D
029475,001026:
029476,001027: 27,7334 76776 ITC 0
029477,001028: 27,7335 17344 GLIMITER
029478,001029:
029479,001030: 27,7336 76575 GOMAXL/D RTB 1
029480,001031: 27,7337 64776 DMP # L/D = LAD SIG(MPAC)
029481,001032: 27,7340 20614 SIGNMPAC
029482,001033: 27,7341 21156 LAD
029483,001034: 27,7342 33223 STORE L/D # AND FALLS INTO LIMITL/D SECTION.
029484,001035:
029485,001036: 27,7343 66774 GLIMITER DSU 2 # IF GMAX/2-D POS, GO TO LIMITL/D
029486,001037: 27,7344 43742 BPL DAD # IF GMAX-D NEG, GO TO GOPOSLAD
029487,001038: 27,7345 73722 BMN DMP
029488,001039: 27,7346 21224 GMAX/2
029489,001040: 27,7347 01363 D
029490,001041: 27,7350 17405 LIMITL/D
029491,001042: 27,7351 21224 GMAX/2
029492,001043: 27,7352 17323 GOPOSLAD
029493,001044: 27,7353 21230 2HS # 2HS(GMAX-D) INTO PD
029494,001045:
029495,001046: 27,7354 64775 DMP 1
029496,001047: 27,7355 70722 DAD DMP
029497,001048: 27,7356 01432 LEQ
029498,001049: 27,7357 21226 1/GMAX
029499,001050: 27,7360 21156 LAD # 2HS(GMAX-D) (LEQ/GMAX+LAD) INTO PD
029500,001051:
029501,001052: 27,7361 62773 DDV 3
029502,001053: 27,7362 70653 DAD SQRT # XLIM = SQRT(PD+(2HSGMAX/V)SQ)
029503,001054: 27,7363 70616 DAD BPL # IF RDOT+XLIM NEG, L/D=LAD
029504,001055: 27,7364 46576 ROUND
029505,001056: 27,7365 21232 2HSGMXSQ
029506,001057: 27,7366 01343 VSQUARE
029507,001058: 27,7367 77777 -
029508,001059: 27,7370 01347 RDOT # KGLIM2= -5 SCALED
029509,001060: 27,7371 17405 LIMITL/D
029510,001061:
029511,001062: 27,7372 64774 DMP 2
029512,001063: 27,7373 70712 DAD DDV
029513,001064: 27,7374 62746 DDV BOV
029514,001065: 27,7375 21220 KGLIM1
029515,001066: 27,7376 01432 LEQ
029516,001067: 27,7377 77777 -
029517,001068: 27,7400 01363 D
029518,001069: 27,7401 21222 KGLIM2
029519,001070: 27,7402 17323 GOPOSLAD
029520,001071: 27,7403 33223 STORE L/D
029521,001072:
029522,001073: # COMES HERE TO COMPUTE ROLL COMMAND, CHECK LATERAL ERRORS, AND STEER
029523,001074: 27,7404 43575 LIMITL/D TEST 1 # NO LATERAL CONTROL IF PAST TARGET
029524,001075: 27,7405 64742 DMP DAD # Y = KLAT VSQUARE + LATBIAS
029525,001076: 27,7406 00007 GONEPAST
029526,001077: 27,7407 17445 L355
029527,001078: 27,7410 01343 VSQUARE
029528,001079: 27,7411 21162 KLAT
029529,001080: 27,7412 21164 LATBIAS
029530,001081: 27,7413 32025 STORE Y
029531,001082:
029532,001083: 27,7414 65172 L350 ABS 4 # IF ABS(L/D)-L/DCMINR NEG, GO TO L353
029533,001084: 27,7415 66756 DSU BMN
029534,001085: 27,7416 41456 LODON SIGN # IF K2ROLL LATANG NEG, GO TO L357
029535,001086: 27,7417 73605 BMN LODON
029536,001087: 27,7420 56776 TSRT # Y = Y/2
029537,001088: 27,7421 01223 L/D
029538,001089: 27,7422 21214 L/DCMINR
029539,001090: 27,7423 17433 L353
029540,001091: 27,7424 01113 LATANG
029541,001092: 27,7425 01373 K2ROLL
029542,001093: 27,7426 17526 L357
029543,001094: 27,7427 00025 Y
029544,001095: 27,7430 00002 1
029545,001096: 27,7431 32025 STORE Y
029546,001097:
029547,001098: 27,7432 53774 L353 SIGN 2 # IF LATANG SIGN(K2ROLL) - Y POS, SWITCH
029548,001099: 27,7433 66756 DSU BMN # IF POS, GO TO BL361 IN BASIC.
029549,001100: 27,7434 43571 TEST RTB
029550,001101: 27,7435 01113 LATANG
029551,001102: 27,7436 01373 K2ROLL
029552,001103: 27,7437 00025 Y
029553,001104: 27,7440 17445 L355
029554,001105: 27,7441 00014 LATSW
029555,001106: 27,7442 17445 L355
029556,001107: 27,7443 17503 BL361
029557,001108:
029558,001109: 27,7444 62774 L355 DDV 2 # ROLLC = ACOS((L/D)/LAD)
029559,001110: 27,7445 56703 TSRT ACOS
029560,001111: 27,7446 53776 SIGN # ROLLC = ROLLC SIGN(K2ROLL)
029561,001112: 27,7447 01223 L/D
029562,001113: 27,7450 21156 LAD
029563,001114: 27,7451 00002 1
029564,001115: 27,7452 01373 K2ROLL
029565,001116: 27,7453 33473 STORE ROLLC
029566,001117:
029567,001118: 27,7454 43575 STEER TEST 1
029568,001119: 27,7455 77576 EXIT
029569,001120: 27,7456 00014 LATSW
029570,001121: 27,7457 17534 L380
029571,001122: 27,7460 41472 STEER2 CS ROLLC
029572,001123: 27,7461 25777 EXTEND
029573,001124: 27,7462 47621 MP K3ROLL
029574,001125: 27,7463 61450 AD K1ROLL
029575,001126: 27,7464 50115 TS MPAC # AFRAID TO STORE POSS BAD NUM IN THETAD
029576,001127: 27,7465 07471 TC +4 # SKIPS ON OVERFLOW
029577,001128: 27,7466 20000 INDEX A
029578,001129: 27,7467 34477 CAF LIMITS # ALLOW OVERFLOW (GO TO NEGMAX FROM POSMX
029579,001130: 27,7470 60115 AD MPAC
029580,001131:
029581,001132: 27,7471 20017 INHINT
029582,001133: 27,7472 50700 TS THETAD # THETAD = X CDU = ROLL
029583,001134: 27,7473 44514 CS BIT3
029584,001135: 27,7474 70675 MASK TMMARKER
029585,001136: 27,7475 64514 AD BIT3 # SET BIT 3 IN TMMARKER WHEN THETAD COMP
029586,001137: 27,7476 50675 TS TMMARKER
029587,001138: 27,7477 02276 OVERNOUT TC PHASCHNG # RECYCLE GROUP 5 TO PIPUP WAIT STATE.
029588,001139: 27,7500 01405 OCT 01405 # 5.12 RESTART. (PIPUP SYNCED WITH 2 SEC)
029589,001140:
029590,001141: 27,7501 02124 TC ENDOFJOB
029591,001142:
029592,001143: 27,7502 41372 BL361 CS K2ROLL # K2ROLL = - K2ROLL
029593,001144: 27,7503 51372 TS K2ROLL
029594,001145:
029595,001146: 27,7504 11222 CCS L/D # IF L/D POS, EXIT
029596,001147: 27,7505 04703 TC RE-ENTER # SO IT WONT STORE IN PUSH LIST.
029597,001148: 27,7506 04703 TC RE-ENTER
029598,001149: 27,7507 07511 TC +2
029599,001150: 27,7510 04703 TC RE-ENTER
029600,001151:
029601,001152: 27,7511 11372 CCS K2ROLL # K1ROLL = K1ROLL + K3ROLL SIGN(K2ROLL)
029602,001153: 27,7512 37621 CAF K3ROLL # K3ROLL = - .125
029603,001154: 27,7513 07515 TC +2
029604,001155: 27,7514 47621 CS K3ROLL
029605,001156: 27,7515 61450 AD K1ROLL
029606,001157: 27,7516 51450 TS K1ROLL
029607,001158: 27,7517 04703 TC RE-ENTER # SKIPS THIS ON OVERFLOW.
029608,001159:
029609,001160: 27,7520 20000 INDEX A # POSMAX + 1 = NEGMAX ETC.
029610,001161: 27,7521 34477 CAF LIMITS # NO LIMIT ON NUMBER OF ROLL REVS DURING
029611,001162: 27,7522 61450 AD K1ROLL # ENTRY. (ROUTINE IS GENERAL.)
029612,001163: 27,7523 51450 TS K1ROLL # STILL DOESNT WORRY ABOUT 2SCOMP, THO.
029613,001164: 27,7524 04703 TC RE-ENTER
029614,001165:
029615,001166:
029616,001167:
029617,001168: 27,7525 53776 L357 SIGN 0
029618,001169: 27,7526 21214 L/DCMINR # L/D = L/DCMINR SIGN(L/D)
029619,001170: 27,7527 01223 L/D
029620,001171: 27,7530 33223 STORE L/D
029621,001172:
029622,001173: 27,7531 76776 ITC 0
029623,001174: 27,7532 17445 L355
029624,001175:
029625,001176: 27,7533 42575 L380 SWITCH 1
029626,001177: 27,7534 76576 RTB
029627,001178: 27,7535 00014 LATSW
029628,001179: 27,7536 17461 STEER2
029629,001180:
029630,001181:
029631,001182: # ROUTINE TO PREDICT AND SET PITCH ANGLE FOR 2ND ENTRY CONDITIONS.
029632,001183:
029633,001184: 27,7537 32150 UPTHETA3 CAF PRIO14
029634,001185: 27,7540 02046 TC FINDVAC
029635,001186: 27,7541 57543 CADR UPTHETA1
029636,001187:
029637,001188: 27,7542 02256 TC TASKOVER
029638,001189:
029639,001190: 27,7543 04000 UPTHETA1 TC INTPRET # STARTS OFF IN BASIC
029640,001191:
029641,001192: 27,7544 76776 UPTHETA ITC 0 # FIND DESIRED SPACECRAFT ORIENTATION.
029642,001193: 27,7545 21242 GETUNB
029643,001194:
029644,001195: 27,7546 76776 ITC 0 # GET OGC, IGC, MGC.,GIMBAL COMMANDS
029645,001196: 27,7547 04353 CALCGTA
029646,001197:
029647,001198: 27,7550 77576 EXIT 0
029648,001199:
029649,001200: 27,7551 41522 CS IGC
029650,001201: 27,7552 40000 COM
029651,001202: 27,7553 60000 DOUBLE
029652,001203: 27,7554 50701 TS THETAD +1 # COMMAND PITCH ANGLE. (NO SKIPS)
029653,001204:
029654,001205: 27,7555 41524 CS MGC
029655,001206: 27,7556 40000 COM
029656,001207: 27,7557 60000 DOUBLE # CHANGE FROMINTERPRETER SCALING TO CDU
029657,001208: 27,7560 50702 TS THETAD +2 # YAW, MG ANGLE COMMAND
029658,001209:
029659,001210: 27,7561 20017 INHINT
029660,001211: 27,7562 37616 CAF PITCHDT # CALL UP ATTITUDE CONTROL LOOP PITCHDT
029661,001212: 27,7563 02173 TC WAITLIST # SECONDS AFTER FINISHING THIS TIME.
029662,001213: 27,7564 57537 CADR UPTHETA3
029663,001214:
029664,001215: 27,7565 02124 UPNOVER TC ENDOFJOB
029665,001216:
029666,001217:
029667,001218:
029668,001219:
029669,001220:
029670,001221: # PIPAS ARE READ (BUT NOT CLEARED) AT A HIGHER RATE HERE.
029671,001222:
029672,001223: 27,7566 40044 INTERPIP CS PIPAX
029673,001224: 27,7567 21414 INDEX PIPCTR
029674,001225: 27,7570 51400 TS XPIPBUF
029675,001226: 27,7571 40045 CS PIPAY
029676,001227: 27,7572 21414 INDEX PIPCTR
029677,001228: 27,7573 51404 TS YPIPBUF
029678,001229: 27,7574 40046 CS PIPAZ
029679,001230: 27,7575 21414 INDEX PIPCTR
029680,001231: 27,7576 51410 TS ZPIPBUF
029681,001232:
029682,001233: 27,7577 11414 CCS PIPCTR
029683,001234: 27,7600 07604 TC +4
029684,001235: 27,7601 35503 CAF TWO
029685,001236: 27,7602 51414 TS PIPCTR
029686,001237: 27,7603 07611 TC PIPSETUP
029687,001238: 27,7604 51414 TS PIPCTR
029688,001239:
029689,001240: 27,7605 36032 CAF IPIPDT
029690,001241: 27,7606 02173 TC WAITLIST
029691,001242: 27,7607 57566 CADR INTERPIP
029692,001243:
029693,001244: 27,7610 02256 TC TASKOVER
029694,001245:
029695,001246:
029696,001247:
029697,001248: 27,7611 32151 PIPSETUP CAF PRIO15 # LOWER THAN AVG G - HIGHER THAN UPTHETA.
029698,001249: 27,7612 02052 TC NOVAC
029699,001250: 27,7613 57615 CADR SMOOTHER
029700,001251: 27,7614 02256 TC TASKOVER
029701,001252:
029702,001253:
029703,001254:
029704,001255: 27,7615 02124 SMOOTHER TC ENDOFJOB # WHEN WRITTEN, FIND A GOOD BANK FOR THIS.
029705,001256:
029706,001257: # DETERMINE TIME TO OPEN CHUTE HERE IF NEEDED
029707,001258:
029708,001259: 27,7616 00310 PITCHDT DEC 200 B-14
029709,001260: 27,7617 00310 DT DEC 200 B-14 # MAIN LOOP DT.
029710,001261: 27,7620 00017 DEC15 DEC 15 B-14
029711,001262:
029712,001263: 27,7621 73777 K3ROLL DEC -.125
029713,001264: 27,7622 57153 ADENDEXT CADR ENDEXIT
029714,001265:
029715,001266: # DEFINED BY EQUALS
029716,001267:
029717,001268: 27,7623 ASP EQUALS 0
029718,001269: 27,7623 Y EQUALS 20D # TEMP
029719,001270: 27,7623 GAMMAL1 EQUALS 22D
029720,001271: 27,7623 1100 A1 EQUALS FX
029721,001272:
029722,001273:
029723,001274: # TABLE USED FOR SUB-ORBITAL REFERENCE TRAJECTORY CONTROL.
029724,001275:
029725,001276:
029726,001277:
029727,001278: 27,7623 00000 VREFER DEC 0 B-14 # REFERENCE VELOCITY SCALED V/51532.3946
029728,001279: 27,7624 00153 DEC .006539 # 15 POINTS ARE STORED AS THE INDEPENDENT
029729,001280: 27,7625 00527 DEC .020958 # VARIABLE AND THEN SIX 15 POINT FUNC-
029730,001281: 27,7626 01235 DEC .040809 # TIONS OF V ARE STORED CONSECUTIVELY
029731,001282: 27,7627 02337 DEC .076107
029732,001283: 27,7630 03721 DEC .122156
029733,001284: 27,7631 05230 DEC .165546
029734,001285: 27,7632 06213 DEC .196012
029735,001286: 27,7633 10550 DEC .271945
029736,001287: 27,7634 11717 DEC .309533
029737,001288: 27,7635 13314 DEC .356222
029738,001289: 27,7636 14736 DEC .404192
029739,001290: 27,7637 16255 DEC .448067
029740,001291: 27,7640 16457 DEC .456023
029741,001292: 27,7641 25570 DEC .67918 # HIGH VELOCITY FOR SAFETY
029742,001293:
029743,001294: 27,7642 77573 DEC -.008035 # DRANGE/DA SCALED DRDA/(2700/805)
029744,001295: 27,7643 77573 DEC -.008035
029745,001296: 27,7644 77516 DEC -.010820
029746,001297: 27,7645 77360 DEC -.016550
029747,001298: 27,7646 77106 DEC -.026935
029748,001299: 27,7647 76516 DEC -.042039
029749,001300: 27,7650 76071 DEC -.058974
029750,001301: 27,7651 75570 DEC -.070721
029751,001302: 27,7652 74661 DEC -.098538
029752,001303: 27,7653 74436 DEC -.107482
029753,001304: 27,7654 73212 DEC -.147762
029754,001305: 27,7655 71640 DEC -.193289
029755,001306: 27,7656 54557 DEC -.602557
029756,001307: 27,7657 40000 C17 DEC -.99999
029757,001308: 27,7660 40000 DEC -.99999
029758,001309:
029759,001310: 27,7661 00000 DEC 0 B-14 # -DRANGE/DRDOT
029760,001311: 27,7662 00000 DEC 0 B-14 # SCALED((2VS/8 2700) DR/DRDOT)
029761,001312: 27,7663 77632 DEC -.0494520 B-3
029762,001313: 27,7664 77563 DEC -.0683663 B-3
029763,001314: 27,7665 77354 DEC -.1343468 B-3
029764,001315: 27,7666 76712 DEC -.2759846 B-3
029765,001316: 27,7667 76066 DEC -.4731437 B-3
029766,001317: 27,7670 75322 DEC -.6472087 B-3
029767,001318: 27,7671 73237 DEC -1.171693 B-3
029768,001319: 27,7672 72104 DEC -1.466382 B-3
029769,001320: 27,7673 70301 DEC -1.905171 B-3
029770,001321: 27,7674 65635 DEC -2.547990 B-3
029771,001322: 27,7675 57311 DEC -4.151220 B-3
029772,001323: 27,7676 50575 DEC -5.813617 B-3
029773,001324: 27,7677 50575 DEC -5.813617 B-3
029774,001325:
029775,001326: 27,7700 76265 DEC -.00642065 B3 # RDOTREF SCALED (8 RDT/2VS)
029776,001327: 27,7701 76265 DEC -.00642065 B3
029777,001328: 27,7702 74435 DEC -.0134426 B3
029778,001329: 27,7703 74333 DEC -.013947 B3
029779,001330: 27,7704 74433 DEC -.013462 B3
029780,001331: 27,7705 74763 DEC -.011813 B3
029781,001332: 27,7706 75432 DEC -.0095631 B3
029782,001333: 27,7707 75735 DEC -.00806946 B3
029783,001334: 27,7710 76200 DEC -.006828 B3
029784,001335: 27,7711 75735 DEC -.00806946 B3
029785,001336: 27,7712 75140 DEC -.0109791 B3
029786,001337: 27,7713 74075 DEC -.0151496 B3
029787,001338: 27,7714 73312 DEC -.0179817 B3
029788,001339: 27,7715 73732 DEC -.0159061 B3
029789,001340: 27,7716 73732 DEC -.0159061 B3
029790,001341:
029791,001342: 27,7717 00000 DEC 0 B-14 # RANGE TO GO SCALED RTOGO/2700
029792,001343: 27,7720 00000 DEC 0 B-14
029793,001344: 27,7721 00020 DEC .00100 # 2.7 NM
029794,001345: 27,7722 00066 DEC .0032963 # 8.9
029795,001346: 27,7723 00206 DEC .0081852 # 22.1
029796,001347: 27,7724 00431 DEC .017148
029797,001348: 27,7725 00712 DEC .027926
029798,001349: 27,7726 01136 DEC .037
029799,001350: 27,7727 02015 DEC .063296
029800,001351: 27,7730 02374 DEC .077889
029801,001352: 27,7731 03123 DEC .098815
029802,001353: 27,7732 04051 DEC .127519
029803,001354: 27,7733 05767 DEC .186963
029804,001355: 27,7734 07476 DEC .238148
029805,001356: 27,7735 07476 DEC .238148
029806,001357:
029807,001358: 27,7736 76511 DEC -.042360 # -AREF SCALED AREF/805
029808,001359: 27,7737 76511 DEC -.042360
029809,001360: 27,7740 76234 DEC -.052919
029810,001361: 27,7741 75472 DEC -.074534
029811,001362: 27,7742 74604 DEC -.101242
029812,001363: 27,7743 74210 DEC -.116646
029813,001364: 27,7744 74052 DEC -.122360
029814,001365: 27,7745 73735 DEC -.127081
029815,001366: 27,7746 73217 DEC -.147453
029816,001367: 27,7747 73013 DEC -.155528
029817,001368: 27,7750 73155 DEC -.149565
029818,001369: 27,7751 74151 DEC -.118509
029819,001370: 27,7752 76703 DEC -.034907
029820,001371: 27,7753 77575 DEC -.007950
029821,001372: 27,7754 77575 DEC -.007950
029822,001373:
029823,001374: 27,7755 00006 DEC .000371 # DRANGE/D L/D SCALED Y/2700
029824,001375: 27,7756 00006 DEC .000371
029825,001376: 27,7757 00116 DEC .004770
029826,001377: 27,7760 00204 DEC .008081
029827,001378: 27,7761 00407 DEC .016030
029828,001379: 27,7762 01113 DEC .035815
029829,001380: 27,7763 02161 DEC .069422
029830,001381: 27,7764 03260 DEC .104519
029831,001382: 27,7765 03717 DEC .122
029832,001383: 27,7766 05411 DEC .172407
029833,001384: 27,7767 10057 DEC .252852
029834,001385: 27,7770 13476 DEC .363148
029835,001386: 27,7771 20324 DEC .512963
029836,001387: 27,7772 21677 DEC .558519
029837,001388: 27,7773 21677 DEC .558519 # END OF STORED REFERENCE
029838,001389:
029839,001390:
029840,001391: # CONTINUATION OF RE-ENTRY SECTION IN 2ND BANK. (CONSTANTS AND M923=8
029841,001392:
029842,001393: 30,7050 BANK 30
029843,001394: 30,7050 37777 37777 NEARONE 2DEC .999999999
029844,001395: 30,7052 12525 12525 1/3RD 2DEC .333333333 # ONE THIRD
029845,001396: 30,7054 02525 12525 1/12TH 2DEC .0833333333 # ONE TWELFTH
029846,001397: # VSAT = 25766.1973 FT/SEC.
029847,001398:
029848,001399: # RE = 21,202,900 FEET
029849,001400:
029850,001401: 30,7056 06314 31463 LEWD 2DEC .2
029851,001402: 30,7060 02104 10421 LEWD/3 2DEC .066666666 # .2/3
029852,001403: 30,7062 10000 00000 FOURTH 2DEC .25
029853,001404: 30,7064 00000 00000 3ZEROS 2DEC 0 B-28
029854,001405: 30,7066 00000 00001 1BITDP 2OCT 0000000001 # DOUBLE PREC 1 BIT
029855,001406: 30,7070 00000 DEC 0 B-14
029856,001407: 30,7071 07777 00000 NEAR1/4 2OCT 0777700000 # 1/4 LESS 1 BIT IN UPPER PART.
029857,001408: 30,7073 00236 36763 C18 2DEC .0097026346 # 500/2VS
029858,001409: 30,7075 00012 05512 KDMIN 2DEC .00062111801 # .5/805
029859,001410: 30,7077 02000 00000 C1/16 2DEC .0625 # 1/16
029860,001411: 30,7101 02607 16762 2HS/LEWD 2DEC .0863933042 # (2 28500 25 32.2/(4 VS VS))/.2
029861,001412: 30,7103 76407 76670 Q2 2DEC -.046388889 # -1002/21600 =(643/21600-Q2(23500/2VS))
029862,001413: 30,7105 05260 05572 Q3 2DEC .167003132 # .07 2VS/21600
029863,001414: 30,7107 12343 21616 Q5 2DEC .326388889 # .3 23500/21600
029864,001415: 30,7111 01073 26234 Q6 2DEC .034893617 # 820/23500
029865,001416: 30,7113 00172 03571 Q7F 2DEC .0074534161 # 6/805 (VALUE OF Q7 IN FIXED MEM.)
029866,001417: 30,7115 13132 33062 VMIN 2DEC .34929485 # 18000/2VS
029867,001418: 30,7117 00160 05104 C12 2DEC .00684572901 # 32 28500/(21102900 2 PI)
029868,001419: 30,7121 72702 61726 NEG.16 2DEC -.16
029869,001420: 30,7123 11322 32265 KB1 2DEC .29411765 # 1/3.4
029870,001421: 30,7125 77642 57522 KB2 2DEC -.0057074322 # -1/(.0034 2 VS)
029871,001422: 30,7127 01456 03450 C19 2DEC .049689441 # 40/805
029872,001423: 30,7131 00475 35746 VCORLIM 2DEC .019405269 # 1000/2VS
029873,001424: 30,7133 30,7131 VQUIT EQUALS VCORLIM # BOTH ARE 1000 FT/SEC
029874,001425: 30,7133 00172 03571 Q7F2 2DEC 0.0074534161
029875,001426: 30,7135 06751 27515 C20 2DEC .21739130 # (175 FPSS) LIFT UP IF ABOVE C20
029876,001427: 30,7137 00001 05732 25NM 2DEC .0011574074 B-4 # 25/(21600 16) (25 NAUT MILES)
029877,001428: 30,7141 12040 00000 C16 2DEC .314453125
029878,001429: 30,7143 32047 24367 KVSCALE 2DEC .81491944 # 12800/(2 VS .3048)
029879,001430: 30,7145 37200 05636 KASCALE 2DEC .97657358 # 5.85 16384/(4 .3048 100 805)
029880,001431: 30,7147 00046 13137 KTETA 2DEC* .383495203 E2 B-14* # 1000 2PI/16384(163.84)
029881,001432: 30,7151 00017 30730 KT 2DEC* .157788327 E2 B-14* # RE(2PI)/2VS(16384)163.84
029882,001433: 30,7153 00040 30447 .05G 2DEC .002 # .05/25
029883,001434: 30,7155 11463 06315 LAD 2DEC .3
029884,001435: 30,7157 00023 06315 LAD/256 2DEC .001171875 # .3/256
029885,001436: 30,7161 00172 34122 KLAT 2DEC .0075
029886,001437: 30,7163 00000 17565 LATBIAS 2DEC .00003 # APPRX .5 NM/ 4(21600/2 PI)
029887,001438: 30,7165 03657 00206 KWE 2DEC .120056652
029888,001439: 30,7167 00121 17460 KACOS 2DEC .004973592 # 1/32(2PI)
029889,001440: 30,7171 14000 00000 LAD/KC1 2DEC .375 # .3/.8
029890,001441: 30,7173 00171 12332 2HSL/KC2 2DEC .00740514 # (2 28500 25 32.2/(4 VS VS) .3)/.7
029891,001442: 30,7175 01000 00000 CHOOK 2DEC 1 B-5 # .25/8
029892,001443: 30,7177 04000 00000 1/8TH 2DEC .125
029893,001444: 30,7201 07534 05075 CH1 2DEC .24 # 8 CH1/25 (CH1 = .75)
029894,001445: 30,7203 75267 64700 KC3 2DEC -.082540747 # KC3 (2VS)SQ /2PI 2S 32.2 LAD R
029895,001446: 30,7205 05605 03656 LOD 2DEC .18
029896,001447: 30,7207 00336 21610 VRCONT 2DEC .0135836886 # 700/2 VSAT
029897,001448: 30,7211 20000 00000 HALVE 2DEC .5
029898,001449: 30,7213 27,7621 NEG1/8 EQUALS K3ROLL # ONLY A SINGLE PRECISION NUMBER.
029899,001450: 30,7213 11207 05301 L/DCMINR 2DEC .2895 # LAD COS(15 DEG)
029900,001451: 30,7215 77765 70243 -1/1600 2DEC -.000625
029901,001452: 30,7217 00314 30014 KGLIM1 2DEC .012496993
029902,001453: 30,7221 75400 51663 KGLIM2 2DEC -.07810621
029903,001454: 30,7223 06314 31463 GMAX/2 2DEC .2 # 5/25
029904,001455: 30,7225 14631 23146 1/GMAX 2DEC .4
029905,001456: 30,7227 00433 02775 2HS 2DEC .0172786611 # 2 28500 25 32.2/(4 VS VS)
029906,001457: 30,7231 00000 31027 2HSGMXSQ 2DEC .000047768341 # ((2 28500 322/(4VS VS))SQ
029907,001458: 30,7233 04555 27667 KWIEM 2DEC .147323336 # RESULT IN METERS OVER 12800
029908,001459: 30,7235 37173 26300 COS(13) 2DEC .9763 # REAL COS OF 12.5 DEG. NOT 1/2 COSINE.
029909,001460: 30,7237 71045 73065 -SIN(13) 2DEC -.21644 # REAL SIN OF 12.5 DEG. NO FACTOR OF 1/2
029910,001461:
029911,001462: # ... END OF RE-ENTRY CONSTANTS ...
029912,001463:
029913,001464:
029914,001465: # CLOSED SUBROUTINE TO COMPUTE DESIRED NAV BASE ORIENTATION
029915,001466: # NEEDED DURING ENTRY PHASE.
029916,001467:
029917,001468: # ENTER WITH VN, UNITR, UNITW, AND ROLLC
029918,001469: # COMPUTES UXNB, UYNB, AND UZNB. (NAV BASE UNIT VECTORS)
029919,001470:
029920,001471:
029921,001472:
029922,001473: 30,7241 76573 GETUNB RTB 3 # RESET PUSH COUNTER.
029923,001474: 30,7242 41766 VXV VXSC # GET VELOCITY OF ATMOSPHERE
029924,001475: 30,7243 50753 VAD UNIT # GET UVA., RELATIVE VELOCITY
029925,001476: 30,7244 75776 VXSC # RESOLVE BY COS OF 13 DEG.
029926,001477: 30,7245 20264 FRESHPD
029927,001478: 30,7246 01016 UNITR
029928,001479: 30,7247 01044 UNITW # NEG OF REAL VEL.
029929,001480: 30,7250 21234 KWIEM # EARTH RATE CONST IN METERS X 4.
029930,001481: 30,7251 00774 VN
029931,001482: 30,7252 21236 COS(13) # UVA COS(13) INTO PD.
029932,001483:
029933,001484: 30,7253 47575 NOLOD 1
029934,001485: 30,7254 41753 VXV UNIT # UYA = UNIT(VA*RN)
029935,001486: 30,7255 01016 UNITR
029936,001487: 30,7256 32021 STORE 16D # UYA INTO LOC 16 OF VAC AREA.
029937,001488:
029938,001489: 30,7257 55175 COS 1 # COS(ROLLC)
029939,001490: 30,7260 75776 VXSC # UYA COS(ROLLC). PUSH INTO LOC 6.
029940,001491: 30,7261 01473 ROLLC
029941,001492: 30,7262 00021 16D
029942,001493:
029943,001494: 30,7263 57176 SIN 0
029944,001495: 30,7264 01473 ROLLC # SIN(ROLLC) INTO PD AT LOC 12.
029945,001496:
029946,001497: 30,7265 41774 VXV 2 # UNA = UNIT(UYA*UVA)
029947,001498: 30,7266 73166 UNIT VXSC # UNB = UYA COS(ROLL) + UNA SIN(ROLL)
029948,001499: 30,7267 50753 VAD UNIT # UNIT COULD BE REPLACED BY VSLT 1.
029949,001500: 30,7270 00021 16D # UYA STORED AT LOC 16
029950,001501: 30,7271 00001 0 # UVA FIRST ITEM INTO PUSH LIST
029951,001502: 30,7272 33505 STORE UYNB # 1 SCAL AND 1 VEC FROM PD.
029952,001503:
029953,001504: 30,7273 47574 NOLOD 2
029954,001505: 30,7274 41753 VXV UNIT # UN = UNIT (UYNB*UVA)
029955,001506: 30,7275 75762 VXSC VSU # UXNB = -UN SIN(13) -UVA COS(13)
029956,001507: 30,7276 00001 0
029957,001508: 30,7277 21240 -SIN(13) # PULLS UVA COS(13) FRON PD.
029958,001509: 30,7300 33477 STORE UXNB
029959,001510:
029960,001511: 30,7301 47575 NOLOD 1
029961,001512: 30,7302 41622 VXV VSLT # UZNB = UXNB*UYNB
029962,001513: 30,7303 01505 UYNB
029963,001514: 30,7304 00002 1
029964,001515: 30,7305 33513 STORE UZNB
029965,001516:
029966,001517: 30,7306 40576 ITCQ 0 # AND RETURN.
029967,001518:
029968,001519:
029969,001520:
029970,001521: 30,7307 ROLLCTEM EQUALS 14D
029971,001522:
029972,001523:
029973,001524: # SUBROUTINE TO READ PIPA COUNTERS, TRYING TO BE VERY CAREFUL SO THAT
029974,001525: # IT WILL BE RESTARTABLE.
029975,001526:
029976,001527: # (ARRIVE IN INTERRUPTED STATE OR INHIBITED AFTER RESTART.)
029977,001528: # (EXIT IS THRU ISWRETRN)
029978,001529:
029979,001530: 30,7307 45501 PIPASR CS ZERO # PUT THESE INTO THE IMPOSSIBLE STATE
029980,001531: 30,7310 51031 TS TEMX # FOR THEIR INITIAL VALUES.
029981,001532: 30,7311 51032 TS TEMY
029982,001533: 30,7312 51033 TS TEMZ
029983,001534: 30,7313 35501 CAF ZERO
029984,001535: 30,7314 51002 TS DELVX +1
029985,001536: 30,7315 51004 TS DELVY +1 # PIP COUNTERS MAY NOT HAVE POS ZERO IN
029986,001537: 30,7316 51006 TS DELVZ +1
029987,001538: 30,7317 51035 TS PIPAGE # ZERO THIS TO INDICATE IN PIPA READING.
029988,001539:
029989,001540: 30,7320 02700 REPIP1 TC READTIME +1 # PROBABLY NOT NEEDED SINCE NOT MUCH
029990,001541: 30,7321 40573 CS RUPTSTOR +1 # CHANCE OF TIME1 OVERFLOWING NOW. (BUT
029991,001542: 30,7322 51465 TS PIPTIME +1 # JUST POSSIBLE IF MANY RESTARTS.
029992,001543: 30,7323 40572 CS RUPTSTOR
029993,001544: 30,7324 51464 TS PIPTIME
029994,001545:
029995,001546: 30,7325 40044 CS PIPAX
029996,001547: 30,7326 51034 TS TEMXY
029997,001548: 30,7327 31031 XCH TEMX # PUT NEGZERO INTO PIPACTRS AS READ.
029998,001549: 30,7330 30044 XCH PIPAX
029999,001550: 30,7331 51001 REPIP1B TS DELVX
030000,001551: 30,7332 51002 TS DELVX +1 # DOUBLE SAVE.
030001,001552:
030002,001553: 30,7333 40045 REPIP2 CS PIPAY
030003,001554: 30,7334 51034 TS TEMXY
030004,001555: 30,7335 31032 XCH TEMY
030005,001556: 30,7336 30045 XCH PIPAY
030006,001557: 30,7337 51003 REPIP2B TS DELVY
030007,001558: 30,7340 51004 TS DELVY +1
030008,001559:
030009,001560: 30,7341 40046 REPIP3 CS PIPAZ # REPEAT PROCESS FOR Z PIPA.
030010,001561: 30,7342 51034 TS TEMXY # SAVE NEG OF PIPA READ
030011,001562: 30,7343 31033 XCH TEMZ # SAVE HERE AS PICK UP NEGZERO
030012,001563: 30,7344 30046 XCH PIPAZ # RESETTING PIPA AS READ OUT)
030013,001564: 30,7345 51005 REPIP3B TS DELVZ # AND STORE IN Z.
030014,001565: 30,7346 51006 TS DELVZ +1 # SHOWS THAT IT REALLY MADE IT.
030015,001566:
030016,001567: 30,7347 45501 REPIP4 CS ZERO # LEAVE THESE AT NEGZERO
030017,001568: 30,7350 51002 TS DELVX +1
030018,001569: 30,7351 51004 TS DELVY +1
030019,001570: 30,7352 51006 TS DELVZ +1
030020,001571: 30,7353 44516 CS BIT1
030021,001572: 30,7354 70675 MASK TMMARKER
030022,001573: 30,7355 64516 AD BIT1 # SET BIT 1 IN TM MARKER.
030023,001574: 30,7356 50675 TS TMMARKER
030024,001575: 30,7357 05761 TC ISWRETRN # AND EXIT. SHOULD HAVE COME THRU ICALL
030025,001576:
030026,001577:
030027,001578: # ROUTINE TO RESTART IF READING PIPA COUNTERS.
030028,001579:
030029,001580: 30,7360 11035 REPIPASR CCS PIPAGE # WAS I READING PIPS.
030030,001581: 30,7361 07307 TC PIPASR # NO.. PIPAGE = PLUS CONST.
030031,001582: 30,7362 11006 CCS DELVZ +1 # PIPAGE = 0 (I WAS READING PIPS.)
030032,001583: 30,7363 07347 TC REPIP4 # Z WAS READ OK.
030033,001584: 30,7364 07367 TC +3 # Z NOT DONE, CHECK Y.
030034,001585: 30,7365 07347 TC REPIP4
030035,001586: 30,7366 07347 TC REPIP4
030036,001587: 30,7367 11004 CCS DELVY +1 # HAS IT CHANGED FROM ITS +ZERO INIT VALU
030037,001588: 30,7370 07373 TC +3 # YES, Y DONE. TRY TO REDO Z.
030038,001589: 30,7371 07402 TC CHKDELVX # NO, GO LOOK AT X.
030039,001590: 30,7372 07373 TC +1 # YES.
030040,001591: 30,7373 11033 CCS TEMZ # DOES TEMZ STILL = -0.
030041,001592: 30,7374 07400 TC +4 # NO TRY TO RESTORE
030042,001593: 30,7375 07400 TC +3
030043,001594: 30,7376 07400 TC +2
030044,001595: 30,7377 07341 TC REPIP3 # YES, GO BACK AND READ Z AGAIN.
030045,001596: 30,7400 41034 CS TEMXY # MUCH MORE LOGIC COULD BE INCORPORATED
030046,001597: 30,7401 07345 TC REPIP3B # TO CHECK PIPA CTR FOR SIZE.
030047,001598:
030048,001599: 30,7402 11002 CHKDELVX CCS DELVX +1 # HAS THIS CHANGED.
030049,001600: 30,7403 07406 TC +3 # YES
030050,001601: 30,7404 07415 TC CHKTEMX # NO.
030051,001602: 30,7405 07406 TC +1 # YES
030052,001603: 30,7406 11032 CCS TEMY
030053,001604: 30,7407 07413 TC +4
030054,001605: 30,7410 07413 TC +3
030055,001606: 30,7411 07413 TC +2
030056,001607: 30,7412 07333 TC REPIP2
030057,001608: 30,7413 41034 CS TEMXY
030058,001609: 30,7414 07337 TC REPIP2B
030059,001610:
030060,001611: 30,7415 11031 CHKTEMX CCS TEMX # HAS THIS CHANGED.
030061,001612: 30,7416 07422 TC +4 # YES
030062,001613: 30,7417 07422 TC +3 # YES
030063,001614: 30,7420 07422 TC +2 # YES
030064,001615: 30,7421 07320 TC REPIP1 # NO
030065,001616: 30,7422 41034 CS TEMXY
030066,001617: 30,7423 07331 TC REPIP1B
030067,001618:
030068,001619:
030069,001620: # ENTRY INITIALIZATION ROUTINE.
030070,001621: # -----------------------------
030071,001622: 30,7424 02276 STARTENT TC PHASCHNG # KEEP UPTHETA RUNNING IN CASE OF RESTART.
030072,001623: 30,7425 03204 OCT 03204 # 4.26 RESTART.
030073,001624:
030074,001625: 30,7426 02276 TC PHASCHNG # PICK UP CURRENT STRING AT NEWMODE63.
030075,001626: 30,7427 02305 OCT 02305 # 5.19 RESTART. RESYNCING PIPUP ALSO.
030076,001627:
030077,001628: 30,7430 20017 INHINT
030078,001629: 30,7431 32150 CAF PRIO14 # ESTABLISH UPTHETA FOR 1ST TIME.
030079,001630: 30,7432 02046 TC FINDVAC
030080,001631: 30,7433 57543 CADR UPTHETA1 # START UPTHETA JOB.
030081,001632:
030082,001633: 30,7434 20016 RELINT
030083,001634: 30,7435 02362 NUMODE63 TC NEWMODE
030084,001635: 30,7436 00063 OCT 00063 # ENTRY PHASE = MODE 63
030085,001636:
030086,001637: 30,7437 37503 CAF INITCADR
030087,001638: 30,7440 51374 TS GOTOADDR
030088,001639: 30,7441 37504 CAF EARGCADR
030089,001640: 30,7442 51042 TS CALCG
030090,001641: 30,7443 35501 CAF ZERO
030091,001642: 30,7444 51350 TS TENTRY
030092,001643: 30,7445 37505 CAF NUDELTAT
030093,001644: 30,7446 51027 TS DELTAT
030094,001645: 30,7447 37506 CAF NU/PIPDT
030095,001646: 30,7450 50755 TS 1/PIPADT
030096,001647: 30,7451 04000 TC INTPRET
030097,001648:
030098,001649: 30,7452 76574 RTB 2 # SET CDUX AGAIN JUST IN CASE.
030099,001650: 30,7453 41612 VXV DOT
030100,001651: 30,7454 47171 COMP RTB
030101,001652: 30,7455 20726 CDUXFIX
030102,001653: 30,7456 00774 VN
030103,001654: 30,7457 01016 UNITR
030104,001655: 30,7460 01115 RTINIT # THIS GIVES LATANG.
030105,001656: 30,7461 20614 SIGNMPAC # GETS SIGN OF MPAC
030106,001657: 30,7462 33373 STORE K2ROLL # K2ROLL = -SIGN(LATANG)
030107,001658:
030108,001659: 30,7463 42775 DOT 1
030109,001660: 30,7464 63703 TSLT ACOS
030110,001661: 30,7465 01016 UNITR
030111,001662: 30,7466 01115 RTINIT
030112,001663: 30,7467 00002 1
030113,001664: 30,7470 33111 STORE THETAH
030114,001665:
030115,001666: 30,7471 75176 VMOVE 0
030116,001667: 30,7472 01215 RT
030117,001668: 30,7473 33115 STORE RTINIT
030118,001669:
030119,001670: 30,7474 47176 COMP 0
030120,001671: 30,7475 01145 DTEAROT
030121,001672: 30,7476 33145 STORE DTEAROT
030122,001673:
030123,001674: 30,7477 76776 ITC 0
030124,001675: 30,7500 13541 EARROT1
030125,001676: 30,7501 76576 RTB 0
030126,001677: 30,7502 17500 OVERNOUT # EXIT SETTING RESTART BITS TO 5.12 FOR EN
030127,001678:
030128,001679:
030129,001680:
030130,001681: 30,7503 56204 INITCADR CADR INITROLL
030131,001682: 30,7504 61652 EARGCADR CADR CALCGEAR
030132,001683: 30,7505 14400 NUDELTAT DEC 200 B5
030133,001684: 30,7506 31000 NU/PIPDT DEC 200 B6
030134,001685: 30,7507 11160 00000 DOWNVEL 2DEC 18.4375 B-6
030135,001686: 30,7511 00203 02234 KAT 2DEC .008
End of include-file RE-ENTRY_CONTROL.agc. Parent file is MAIN.agc