Source Code
|
These source-code files were obtained by digitally photographing
a Solarium 55 (Apollo 6) program listing from the American Computer Museum in
Bozeman, Montana. Photography was by Ron Burkey, with assistance from
museum curator George Keremedjiev and Montana
State University curator Kim Scott. The listing originally belonged to Eldon C. Hall,
who donated it to the museum. Volunteers then manually typed in the
source code or else modified similar pre-existing Colossus 249
(Apollo 9) source files to incorporate changes, although this transcription was
principally done by Jim Lawton and corrected by Ron Burkey.
Notations on the program listing read, in part:
YUL SYSTEM FOR AGC4: REVISION 0 OF PROGRAM SOLRUM55
BY NASA 1021108-021 DEC. 4, 1966
Note that the date is the date of the printout, not the date of the program revision.
Due to statements by Jay Sampson, the original contractor from AC Electronics
who created Solarium 54 (Apollo 4)
from the earlier Corona (AS-202 mission) program, it is believed that Solarium 54 and
Solarium 55 (Apollo 6) are actually identical programs. The change in numbering,
from 54 to 55, is believed to be for some administrative purpose. Thus, it is believed
that the source-code represented here is equally appropriate for both Apollo 4 and
Apollo 6 missions.
|
027707,000002: ## Copyright: Public domain.
027708,000003: ## Filename: REENTRY_CONTROL.agc
027709,000004: ## Purpose: Part of the source code for Solarium build 55. This
027710,000005: ## is for the Command Module's (CM) Apollo Guidance
027711,000006: ## Computer (AGC), for Apollo 6.
027712,000007: ## Assembler: yaYUL --block1
027713,000008: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
027714,000009: ## Website: www.ibiblio.org/apollo/index.html
027715,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Solarium055/
027716,000011: ## Mod history: 2009-09-30 JL Created.
027717,000012: ## 2016-08-20 RSB Typos.
027718,000013: ## 2016-08-21 RSB More typos.
027719,000014: ## 2016-08-24 RSB Last (code) typo in Solarium, I think!
027720,000015: ## 2016-12-28 RSB Proofed comment text using octopus/ProoferComments,
027721,000016: ## and fixed errors found.
027722,000017:
|
|
Page 698
|
027724,000019:
027725,000020: 27,6000 SETLOC 56000
027726,000021:
027727,000022: # THE PIPUP SECTION IS A TASK WHICH READS THE PIPAS EVERY .5
027728,000023: # SECONDS. ACCELERATION HISTORY OVER THE LAST TWO SECONDS (FOUR READINGS)
027729,000024: # IS MAINTAINED IN THE XPIPBUF, YPIPBUF, AND ZPIPBUF REGISTERS. EACH PIPA
027730,000025: # READING IS SUMMED INTO THE XPIPSUM ETC. REGISTERS, AND EVERY FOURTH READ
027731,000026: # ING AVERAGE G IS CALLED TO USE THE SUMMED READINGS TO UPDATE POSITION
027732,000027: # AND VELOCITY AND SET THE PIPSUM REGISTERS TO ZERO.
027733,000028:
027734,000029: # GOES THRU PIPUP ONLY EVERY 2 SEC. (ELSEWHERE MORE OFTEN.)
027735,000030:
027736,000031: 27,6000 61364 CADR REPIPASR
027737,000032: 27,6001 36000 REPIPUP CAF -1
027738,000033: 27,6002 06005 TC PIPUP +1 # REREAD PIPAS IF NECESSARY.
027739,000034:
027740,000035: 27,6003 61313 CADR PIPASR
027741,000036: 27,6004 36003 PIPUP CAF -1
027742,000037: 27,6005 05750 TC ISWCALL # GO TO PIPAREAD SUBROUTINE.
027743,000038:
027744,000039: 27,6006 33535 CAF THIRTN # PICK UP AT REDO5.13
027745,000040: 27,6007 02312 TC NEWPHASE
027746,000041: 27,6010 00005 OCT 5 # 5.13 RESTART. (NO TIME CALL.)
027747,000042:
027748,000043: 27,6011 37200 REDO5.13 CAF DT
027749,000044: 27,6012 02173 TC WAITLIST
027750,000045: 27,6013 56004 CADR PIPUP
027751,000046:
027752,000047: 27,6014 41465 CS PIPTIME +1
027753,000048: 27,6015 50667 TS TBASE5 # SAVE NEW TIME.
027754,000049:
027755,000050: 27,6016 36032 CAF IPIPDT
027756,000051: 27,6017 02173 TC WAITLIST
027757,000052: 27,6020 57147 CADR INTERPIP # READ ACCELERATION MORE OFTEN.
027758,000053:
027759,000054: 27,6021 32152 CAF PRIO16
027760,000055: 27,6022 02046 TC FINDVAC
027761,000056: 27,6023 56033 CADR ENTRYTOP
027762,000057:
027763,000058: 27,6024 35503 CAF TWO
027764,000059: 27,6025 51414 TS PIPCTR
027765,000060:
027766,000061: 27,6026 33536 CAF FOURTN # THIS WILL PICK UP AT ENTRYTOP + 3.
027767,000062: 27,6027 02312 TC NEWPHASE
027768,000063: 27,6030 00005 OCT 5 # 5.14 RESTART.
027769,000064:
027770,000065: 27,6031 02256 TC TASKOVER
027771,000066:
027772,000067:
027773,000068:
027774,000069: 27,6032 00062 IPIPDT DEC 50 B-14
027775,000070:
|
|
Page 699
|
027777,000072:
027778,000073: # JOB WHICH PROCESSES PIPA READINGS TO UPDATE POSITION AND VELOCI
027779,000074:
027780,000075: 27,6033 31350 ENTRYTOP XCH TENTRY # UPDATE ENTRY TIME.
027781,000076: 27,6034 65503 AD TWO
027782,000077: 27,6035 31350 XCH TENTRY # IN SECS SINCE START OF ENTRY.
027783,000078:
027784,000079: 27,6036 34516 CAF ONE
027785,000080: 27,6037 51035 TS PIPAGE
027786,000081:
027787,000082: 27,6040 41001 CS DELVX
027788,000083: 27,6041 51403 TS XPIPBUF +3
027789,000084: 27,6042 41003 CS DELVY
027790,000085: 27,6043 51407 TS YPIPBUF +3
027791,000086: 27,6044 41005 CS DELVZ # SAVE PIP COUNTS.
027792,000087: 27,6045 51413 TS ZPIPBUF +3
027793,000088:
027794,000089: 27,6046 02276 TC PHASCHNG
027795,000090: 27,6047 01705 OCT 01705 # 5.15 RESTART PICKS UP AT REFAZE4.
027796,000091: 27,6050 05654 TC BANKCALL # COMPENSATE THE PIPA DATA
027797,000092: 27,6051 31017 CADR 1/PIPA
027798,000093:
027799,000094: 27,6052 04000 REFAZE4 TC INTPRET
027800,000095:
027801,000096: 27,6053 76776 ITC 0 # GO TO AVERAGE G INTEGRATION ROUTINES TO
027802,000097: 27,6054 21551 CALCRVG # USE PIPA READINGS TO UPDATE POSIITON AND
027803,000098: # VELOCITY.
027804,000099: 27,6055 02276 TC PHASCHNG
027805,000100: 27,6056 02105 OCT 02105 # 5.17 RESTART AT REFAZE8.
027806,000101:
027807,000102: 27,6057 04000 REFAZE8 TC INTPRET
027808,000103:
|
|
Page 700
|
027810,000105:
027811,000106: # PROCESS AVERAGE G OUTPUT...SCALE IT AND GET INPUT DATA
027812,000107:
027813,000108: 27,6060 75776 SCALEPOP VXSC 0
027814,000109: 27,6061 00774 VPIP # KVSCALE = (12800/.3048)0(25766.1973 X2)
027815,000110: 27,6062 21132 KVSCALE # KVSCALE = .81491944
027816,000111: 27,6063 33315 STORE (V) # V VECTOR
027817,000112:
027818,000113: 27,6064 43574 TEST 2
027819,000114: 27,6065 41766 VXV VXSC # (VREL) = (V) + KWE UNITR*UNITW
027820,000115: 27,6066 50776 VAD
027821,000116: 27,6067 00010 RELVELSW # SWITCH NUMBER.
027822,000117: 27,6070 16077 GETUNITV
027823,000118: 27,6071 01016 UNITR
027824,000119: 27,6072 01044 UNITW
027825,000120: 27,6073 21154 KWE
027826,000121: 27,6074 01315 (V)
027827,000122: 27,6075 33315 STORE (V) # NEW V VECTOR IS RELATIVE.
027828,000123:
027829,000124: 27,6076 47575 GETUNITV NOLOD 1
027830,000125: 27,6077 73176 UNIT
027831,000126: 27,6100 33570 STORE UNITV # HALF MAX. OF COURSE.
027832,000127:
027833,000128: 27,6101 63776 TSLT 0
027834,000129: 27,6102 00035 28D # RESCALE MAGNITUDE SQUARED.
027835,000130: 27,6103 00003 2 # SHIFT COUNT. (2 BECAUSE HALF-LEN SQRD
027836,000131: 27,6104 33343 STORE VSQUARE # VELOCITY SQUARED. (NORMAL SCALING)
027837,000132:
027838,000133: 27,6105 66776 DSU 0 # LEQ = VSQUARE-1
027839,000134: 27,6106 01343 VSQUARE # 4 G-S FULL SCALE
027840,000135: 27,6107 21055 FOURTH
027841,000136: 27,6110 33432 STORE LEQ
027842,000137:
027843,000138: 27,6111 63776 TSLT 0
027844,000139: 27,6112 00037 30D
027845,000140: 27,6113 00002 1
027846,000141: 27,6114 33620 STORE V
027847,000142:
027848,000143: 27,6115 42775 DOT 1
027849,000144: 27,6116 63776 TSLT
027850,000145: 27,6117 01315 (V) # RDOT = V.UNITR
027851,000146: 27,6120 01016 UNITR
027852,000147: 27,6121 00002 1 # AND SCALE BACK UP, UNITS ARE 1/2.
027853,000148: 27,6122 33347 STORE RDOT
|
|
Page 701
|
027855,000150: 27,6123 45176 DMOVE 0 # SAVE OLD DRAG VALUE.
027856,000151: 27,6124 01363 D
027857,000152: 27,6125 33416 STORE DOLD
027858,000153:
027859,000154: 27,6126 71174 ABVAL 2
027860,000155: 27,6127 63722 TSLT DMP
027861,000156: 27,6130 47776 BZE
027862,000157: 27,6131 01002 DELV # KASCALE=5.85 16384/(4 .3048 805 100)
027863,000158: 27,6132 00003 2 # 2 FOR 2 SEC, 3 FOR 1 SEC, 4 FOR .5 --
027864,000159: 27,6133 21134 KASCALE # = 3. /4 /25
027865,000160: 27,6134 21024 SETMIND
027866,000161: 27,6135 33363 STORE D # ACCELERATION (DRAG, ALMOST)
027867,000162:
027868,000163: 27,6136 41775 GETUNI VXV 1 # UNI = UNIT(V*R)
027869,000164: 27,6137 73176 UNIT
027870,000165: 27,6140 01315 (V) # COULD USE UNITV.
027871,000166: 27,6141 01016 UNITR
027872,000167: 27,6142 33562 STORE UNI # INERTIAL OR RELATIVE AS IS (V).
027873,000168:
027874,000169: # SOME OF THE FOLLOWING TARGETTING MIGHT BE DONE LESS OFTEN THAN ABOVE.
027875,000170:
027876,000171: 27,6143 43575 TEST 1 # THIS TEST MIGHT BE COMBINED WITH THE
027877,000172: 27,6144 45176 DMOVE # PREVIOUS ONE IF ALL CALCULATIONS ARE
027878,000173: 27,6145 00010 RELVELSW # DONE EVERY CYCLE.
027879,000174: 27,6146 20773 GETETA
027880,000175: 27,6147 01465 PIPTIME
027881,000176: 27,6150 33145 STORE DTEAROT
027882,000177:
|
|
Page 702
|
027884,000179:
027885,000180: 27,6151 76776 UPDATERT ITC 0 # UPDATE PREDICTED TARGET VECTOR RT
027886,000181: 27,6152 13463 EARROT2
027887,000182:
027888,000183: 27,6153 47575 NOLOD 1
027889,000184: 27,6154 42771 DOT RTB # SINCE (RT) UNIT VEC, THIS IS 1/4 MAX.
027890,000185: 27,6155 01562 UNI # LATANG = RT.UNI
027891,000186: 27,6156 20265 FRESHPD
027892,000187: 27,6157 33113 STORE LATANG # LATANG = MAC LATANGLE/4 (NO 2 PI)
027893,000188: # UNUSUAL SCALING FOR LATANG. ( = ASIN L.
027894,000189:
027895,000190: 27,6160 42773 GETANGLE DOT 3 # THETA = ARCCOS(RT.UNITR)
027896,000191: 27,6161 66616 DSU BPL # RT IS UNIT VECTOR
027897,000192: 27,6162 70716 DAD TSLT
027898,000193: 27,6163 61176 ACOS
027899,000194: 27,6164 01215 RT
027900,000195: 27,6165 01016 UNITR
027901,000196: 27,6166 21064 NEAR1/4 # TO IMPROVE ACCURACY, CALC RANGE BY
027902,000197: 27,6167 21031 TINYTHET # TINYTHET IF HIGH ORDER PART OF
027903,000198: 27,6170 21064 NEAR1/4 # ARCCOS ARGUMENT IS ZERO
027904,000199: 27,6171 00002 1
027905,000200: 27,6172 33111 STORE THETAH
027906,000201:
027907,000202: 27,6173 77576 EXIT 0
027908,000203:
027909,000204: 27,6174 02276 REFAZE10 TC PHASCHNG
027910,000205: 27,6175 02205 OCT 02205 # 5.18 RESTART AT REFAZE10
027911,000206: 27,6176 04000 TC INTPRET
|
|
Page 703
|
027913,000208:
027914,000209: # JUMP TO PARTICULAR RE-ENTRY PHASE.
027915,000210:
027916,000211: 27,6177 44576 SEQUENCE ITCI 0 # BRANCHES TO VARIOUS CONTROL PHASES.
027917,000212: 27,6200 01375 GOTOADDR # ADDRESS OF PHASE EQS STORED HERE.
027918,000213:
027919,000214: # GOTOADDR CONTAINS THE ADDRESS OF THE ROLL COMMAND EQUATIONS
027920,000215: # APPROPRIATE TO THE CURRENT PHASE OF RE-ENTRY. SEQUENCING IS AS FOLLOWS:
027921,000216:
027922,000217: # INITROLL SET HERE INITIALLY. HOLDS INITIAL ROLL ATTITUDE UNTIL KAT EX-
027923,000218: # CEEDED. THEN HOLDS NEW ROLL ATTITUDE UNTIL VRTHRESH EXCEEDED.
027924,000219: # THEN BRANCHES TO
027925,000220:
027926,000221: # HUNTEST THIS SECTION CHECKS TO SEE IF THE PREDICTED RANGE AT NOMINAL
027927,000222: # L/D FROM PRESENT CONDITIONS IS LESS THAN THE DESIRED RANGE
027928,000223: # IF NOT-- A ROLL COMMAND IS GENERATED BY THE CONSTANT DRAG
027929,000224: # CONTROLLER.
027930,000225: # IF SO-- CONTROL AND GOTOADDR ARE SET TO UPCONTRL
027931,000226: # USUALLY NO ITERATION IS INVOLVED EXCEPT IF THE RANGE DESIRED IS
027932,000227: # TOO LONG ON THE FIRST PASS THRU HUNTEST.
027933,000228:
027934,000229: # UPCONTRL CONTROLS ROLL DURING THE SUPER-CIRCULAR PHASE. UPCONTRL IS TERM
027935,000230: # INATED EITHER (A) WHEN THE DRAG (AS MEASURED BY THE PIPAS)
027936,000231: # FALLS BELOW Q7 OR (B) IF RDOT IS NEGATIVE AND REFERENCE VL
027937,000232: # EXCEEDS V. IN CASE (A), GOTOADDR IS SET TO KEP2 AND IN (B) TO
027938,000233: # PREDICT3, SKIPPING THE KEPLER PHASE OF ENTRY.
027939,000234:
027940,000235: # KEP2 GOTOADDR IS SET HERE DURING THE KEPLER PHASE TO MONITOR DRAG.
027941,000236: # SPACECRAFT IS INSTANTANEOUSLY TRIMMED IN PITCH AND YAW TO THE
027942,000237: # COMPUTED RELATIVE VELOCITY VECTOR. THE LAST COMPUTED ROLL
027943,000238: # ANGLE IS MAINTAINED. WHEN THE MEASURED DRAG EXCEEDS Q7+.5,
027944,000239: # GOTOADDR IS SET TO
027945,000240:
027946,000241: # PREDICT3 THIS CONTROLS THE FINAL SUB-ORBITAL PHASE. ROLL COMMANDS CEASE
027947,000242: # WHEN V IS LESS THAN VQUIT. AN EXIT IS MADE TO TERMALT WHEN
027948,000243: # TERMINAL ALTITUDE IS REACHED.
027949,000244:
|
|
Page 704
|
027951,000246:
027952,000247: # OUT OF SEQUENCE SUBSECTION TO COMPUTE ETA.
027953,000248:
027954,000249: 30,6772 BANK 30
027955,000250: 30,6772 43575 GETETA TEST 1
027956,000251: 30,6773 64776 DMP # NOT USED AT LOW VEL WHERE THETA NEG.
027957,000252: 30,6774 00011 EGSW
027958,000253: 30,6775 21010 SUBETA # BRANCHES IF INTO EQ. GLIDE PHASE.
027959,000254: 30,6776 01111 THETAH
027960,000255: 30,6777 21136 KTETA # = 1000X2PI/(2)E14 163.84
027961,000256: 30,7000 33357 STORE ETA # DONT REALLY WANT IT, BUT NO PUSH WANTED
027962,000257:
027963,000258: 30,7001 47575 GETETA2 NOLOD 1
027964,000259: 30,7002 70776 DAD
027965,000260: 30,7003 01465 PIPTIME
027966,000261: 30,7004 33145 STORE DTEAROT
027967,000262:
027968,000263: 30,7005 76776 ITC 0
027969,000264: 30,7006 16152 UPDATERT
027970,000265:
027971,000266: 30,7007 66775 SUBETA DSU 1 # SWITCH FROM INERTIAL TO RELATIVE
027972,000267: 30,7010 43611 BPL SWITCH # VELOCITY WHEN V LESS THAN .5 VSAT.
027973,000268: 30,7011 01620 V
027974,000269: 30,7012 21055 FOURTH
027975,000270: 30,7013 21016 SUBETA2
027976,000271: 30,7014 00010 RELVELSW # SHOULD CHANGE TO OFF (NON-BRANCH) STATE
027977,000272:
027978,000273: 30,7015 64775 SUBETA2 DMP 1
027979,000274: 30,7016 62772 DDV ITC
027980,000275: 30,7017 01111 THETAH
027981,000276: 30,7020 21140 KT # KT = RE(2 PI)/ 2 VS 16384 163.84
027982,000277: 30,7021 01620 V # /2 VSAT
027983,000278: 30,7022 21002 GETETA2
027984,000279:
027985,000280: 30,7023 45176 SETMIND DMOVE 0 # MAKE D NON-ZERO.
027986,000281: 30,7024 21061 1BITDP
027987,000282: 30,7025 33363 STORE D
027988,000283:
027989,000284: 30,7026 76776 ITC 0
027990,000285: 30,7027 16137 GETUNI
027991,000286:
027992,000287: 30,7030 47573 TINYTHET NOLOD 3 # ENTER WITH X-.249
027993,000288: 30,7031 66723 DSU ABS # GET 1/4 - MPAC
027994,000289: 30,7032 63653 TSLT SQRT # SCALE UP BEFORE SQRT.
027995,000290: 30,7033 64776 DMP # HAS FACTOR FOR UP SCALING.
027996,000291: 30,7034 21062 1BITDP +1 # X = SQRT(2(1-COSX)), IN RADIANS
027997,000292: 30,7035 00016 13D # X/2PI=(1/64PI)(SQRT(((1-COSX)/4)2EXP13)
027998,000293: 30,7036 21156 KACOS
027999,000294: 30,7037 33111 STORE THETAH
028000,000295:
028001,000296: 30,7040 76576 RTB 0 # OFF TO PRE-SEQUENCER...
|
|
Page 705
|
028003,000298: 30,7041 16175 REFAZE10
028004,000299:
|
|
Page 706
|
028006,000301:
028007,000302: # MAINTAINS INITIAL ROLL UNTIL D = KAT, GOES INTO HUNTEST WHEN
028008,000303: # RDOT = VRCONT.
028009,000304:
028010,000305:
028011,000306:
028012,000307: 31,6677 BANK 31
028013,000308:
028014,000309: 31,6677 56475 KEPCADR1 CADR KEP2
028015,000310: 31,6700 63007 HUNTCADR CADR HUNTEST
028016,000311:
028017,000312: 31,6701 45176 INITROLL DMOVE 0
028018,000313: 31,6702 01576 INITL/D
028019,000314: 31,6703 33223 STORE L/D
028020,000315:
028021,000316: 31,6704 43574 TEST 2 # IF D-.05 G NEG, GO TO LIMITL/D
028022,000317: 31,6705 66756 DSU BMN # IF NOT, SET .05 G SWITCH FOR SCS
028023,000318: 31,6706 77576 EXIT
028024,000319: # RDOT = VRCONT.
028025,000320:
028026,000321:
028027,000322: 31,6707 00020 INRLSW
028028,000323: 31,6710 22770 INITRL1
028029,000324: 31,6711 01363 D
028030,000325: 31,6712 21142 .05G
028031,000326: 31,6713 16740 LIMITL/D
028032,000327:
028033,000328: 31,6714 03373 TC RELAYON # SEND .05 G SIGNAL TO SCS.
028034,000329: 31,6715 40100 OCT 40100
028035,000330: 31,6716 02362 TC NEWMODE # SET MODE TO AFTER .05 G STATE.
028036,000331: 31,6717 00064 OCT 00064
028037,000332: 31,6720 04000 TC INTPRET
028038,000333:
028039,000334: 31,6721 45176 DMOVE 0 # MAY WANT THIS IN UPDWNTST FOR 278
028040,000335: 31,6722 21144 LAD
028041,000336: 31,6723 33223 STORE L/D
028042,000337:
028043,000338: 31,6724 47576 NOLOD 0
028044,000339: 31,6725 33576 STORE INITL/D
028045,000340:
028046,000341: 31,6726 42574 SWITCH 2 # IF V-VFINAL NEG, GO TO FINAL PHASE
028047,000342: 31,6727 66616 DSU BPL
028048,000343: 31,6730 77576 EXIT
028049,000344: 31,6731 00020 INRLSW
028050,000345: 31,6732 01620 V
028051,000346: 31,6733 21230 VFINAL
028052,000347: 31,6734 22743 UPDWNTST
028053,000348:
028054,000349: 31,6735 36677 CAF KEPCADR1
028055,000350: 31,6736 51374 TS GOTOADDR
|
|
Page 707
|
028057,000352: 31,6737 04000 TC INTPRET
028058,000353:
028059,000354: 31,6740 76776 ITC 0
028060,000355: 31,6741 16740 LIMITL/D
028061,000356:
028062,000357: 31,6742 62776 UPDWNTST DDV 0
028063,000358: 31,6743 01347 RDOT
028064,000359: 31,6744 01620 V # RESULT INTO PD
028065,000360:
028066,000361: 31,6745 47571 NOLOD 5 # IF V-VFINAL+K(RDOT/V)CUBED POS,L/D=-LAD
028067,000362: 31,6746 51122 DSQ DMP
028068,000363: 31,6747 62732 DDV DSU
028069,000364: 31,6750 70746 DAD BOV
028070,000365: 31,6751 73605 BMN LODON
028071,000366: 31,6752 47176 COMP
028072,000367: 31,6753 77777 -
028073,000368: 31,6754 21226 K44
028074,000369: 31,6755 21230 VFINAL
028075,000370: 31,6756 01620 V
028076,000371: 31,6757 16740 LIMITL/D
028077,000372: 31,6760 16740 LIMITL/D
028078,000373: 31,6761 21144 LAD
028079,000374: 31,6762 33576 STORE INITL/D
028080,000375:
028081,000376: 31,6763 47576 NOLOD 0
028082,000377: 31,6764 33223 STORE L/D
028083,000378:
028084,000379: 31,6765 76776 ITC 0
028085,000380: 31,6766 16740 LIMITL/D
028086,000381:
028087,000382: 31,6767 66774 INITRL1 DSU 2 # IF KAT-D POS, GO TO OUT WITH COMMAND
028088,000383: 31,6770 43605 BPL LODON # IF NEG, L/D = LAD
028089,000384: 31,6771 45176 DMOVE
028090,000385: 31,6772 21232 KAT
028091,000386: 31,6773 01363 D
028092,000387: 31,6774 23000 VRTHRES
028093,000388: 31,6775 21144 LAD # WHEN D GREATER THAN KAT, L/D = LAD
028094,000389: 31,6776 33223 STORE L/D
028095,000390:
028096,000391: 31,6777 70775 VRTHRES DAD 1 # IF RDOT + VRCONT NEG, GO TO STEER
028097,000392: 31,7000 73775 BMN EXIT # IF POS, SET SELECTOR TO HUNTEST.
028098,000393: 31,7001 01347 RDOT
028099,000394: 31,7002 21172 VRCONT
028100,000395: 31,7003 16740 LIMITL/D # DO LATERAL CONTROL IF NEEDED.
028101,000396: # SPACER.
028102,000397: 31,7004 36700 CAF HUNTCADR
028103,000398: 31,7005 51374 TS GOTOADDR # AND FALL THRU INTO HUNTEST.
028104,000399:
|
|
Page 708
|
028106,000401:
028107,000402: # ... HUNTEST SECTION... CHECKS TO SEE WHEN PREDICTED RANGE = DESIRED ONE
028108,000403:
028109,000404: # KEEP WITH ABOVE CODING........
028110,000405:
028111,000406: 31,7006 04000 TC INTPRET
028112,000407:
028113,000408: 31,7007 45176 HUNTEST DMOVE 0
028114,000409: 31,7010 21051 LEWD1
028115,000410: 31,7011 33341 STORE LEWD
028116,000411:
028117,000412: 31,7012 66774 DSU 2
028118,000413: 31,7013 73605 BMN LODON
028119,000414: 31,7014 45176 DMOVE
028120,000415: 31,7015 01363 D
028121,000416: 31,7016 21122 C20
028122,000417: 31,7017 23026 HUNTESTA
028123,000418: 31,7020 21053 LEWD2
028124,000419: 31,7021 33341 STORE LEWD
028125,000420:
028126,000421: 31,7022 45176 DMOVE 0
028127,000422: 31,7023 01363 D # A1 = D
028128,000423: 31,7024 33101 STORE A1
028129,000424:
028130,000425: 31,7025 45176 HUNTESTA DMOVE 0 # IF RDOT POS, TEM1B = LAD
028131,000426: 31,7026 21144 LAD
028132,000427: 31,7027 33421 STORE TEM1B
028133,000428:
028134,000429: 31,7030 73775 BMN 1
028135,000430: 31,7031 41423 LODON DMOVE
028136,000431: 31,7032 01347 RDOT
028137,000432: 31,7033 23037 A0CALC
028138,000433: 31,7034 01341 LEWD
028139,000434: 31,7035 33421 STORE TEM1B
028140,000435:
028141,000436: 31,7036 62775 A0CALC DDV 1 # V1 = V + RDOT/TEM1B
028142,000437: 31,7037 70776 DAD
028143,000438: 31,7040 01347 RDOT
028144,000439: 31,7041 01421 TEM1B
028145,000440: 31,7042 01620 V
028146,000441: 31,7043 33365 STORE V1
028147,000442:
028148,000443: 31,7044 51173 DSQ 3 # A0=(V1/V)SQ(D0+RDOT SQ/(TEM1B 2 C1 HS)
028149,000444: 31,7045 62712 DDV DDV
028150,000445: 31,7046 70722 DAD DMP
028151,000446: 31,7047 64712 DMP DDV
028152,000447: 31,7050 01347 RDOT
028153,000448: 31,7051 01421 TEM1B
028154,000449: 31,7052 21220 2C1HS
028155,000450: 31,7053 01363 D
028156,000451: 31,7054 01365 V1
|
|
Page 709
|
028158,000453: 31,7055 01365 V1
028159,000454: 31,7056 01343 VSQUARE
028160,000455: 31,7057 33602 STORE A0
028161,000456:
028162,000457: 31,7060 43776 BPL 0 # IF RDOT NEG, A1 = A0
028163,000458: 31,7061 01347 RDOT
028164,000459: 31,7062 23067 TESTHSW
028165,000460:
028166,000461: 31,7063 45176 DMOVE 0
028167,000462: 31,7064 01602 A0
028168,000463: 31,7065 33101 STORE A1
028169,000464:
028170,000465: 31,7066 43575 TESTHSW TEST 1 # IF HUNTSW1 ON (BRANCH), GO TO HUNTEST1
028171,000466: 31,7067 42576 SWITCH
028172,000467: 31,7070 00012 HUNTSW1
028173,000468: 31,7071 23106 HUNTEST1
028174,000469: 31,7072 00012 HUNTSW1
028175,000470:
028176,000471: 31,7073 45176 DMOVE 0 # ZERO DIFFOLD THE FIRST TIME THRU.
028177,000472: 31,7074 21057 3ZEROS
028178,000473: 31,7075 33325 STORE DIFFOLD
028179,000474:
028180,000475: 31,7076 70776 DAD 0 # V1OLD = V1 + C18 (500FPS)
028181,000476: 31,7077 01365 V1 # MAKES OLD VCORR -500 AND NEW +500 ..
028182,000477: 31,7100 21066 C18 # INITIAL VALUE ON VCORR = -500 FPS SO
028183,000478: 31,7101 33371 STORE V1OLD # (IN+TIAL 0ALUES IF NEEDED ON 1ST PASS.
028184,000479:
028185,000480: 31,7102 45176 DMOVE 0 # Q7 = Q7F
028186,000481: 31,7103 21104 Q7F
028187,000482: 31,7104 33327 STORE Q7
028188,000483:
028189,000484: 31,7105 64774 HUNTEST1 DMP 2 # ALP = A0 2HSD/LWD / V1 V1
028190,000485: 31,7106 62771 DDV RTB
028191,000486: 31,7107 62712 DDV DDV
028192,000487: 31,7110 01602 A0
028193,000488: 31,7111 21220 2C1HS
028194,000489: 31,7112 01365 V1
028195,000490: 31,7113 20265 FRESHPD
028196,000491: 31,7114 01365 V1
028197,000492: 31,7115 01341 LEWD
028198,000493: 31,7116 33630 STORE ALP
028199,000494:
028200,000495: 31,7117 47575 NOLOD 1
028201,000496: 31,7120 65706 BDSU BDDV
028202,000497: 31,7121 21043 NEARONE # FACT1 = V1 / (1 - ALP)
028203,000498: 31,7122 01365 V1
028204,000499: 31,7123 33632 STORE FACT1
028205,000500:
028206,000501: 31,7124 66775 DSU 1
028207,000502: 31,7125 64712 DMP DDV # FACT2 = ALP(ALP - 1) / AD
|
|
Page 710
|
028209,000504: 31,7126 01630 ALP
028210,000505: 31,7127 21043 NEARONE
028211,000506: 31,7130 01630 ALP
028212,000507: 31,7131 01602 A0
028213,000508: 31,7132 33331 STORE FACT2
028214,000509:
028215,000510: 31,7133 64774 DMP 2 # VL = FACT1(1 - SQRT(ALP + Q7 FACT2))
028216,000511: 31,7134 70653 DAD SQRT
028217,000512: 31,7135 65722 BDSU DMP
028218,000513: 31,7136 01327 Q7
028219,000514: 31,7137 01331 FACT2
028220,000515: 31,7140 01630 ALP
028221,000516: 31,7141 21043 NEARONE
028222,000517: 31,7142 01632 FACT1
028223,000518: 31,7143 33616 STORE VL
028224,000519:
028225,000520: 31,7144 47574 NOLOD 2 # GAMMAL = LEWD(V1-VL)/VL
028226,000521: 31,7145 65722 BDSU DMP
028227,000522: 31,7146 62776 DDV
028228,000523: 31,7147 01365 V1
028229,000524: 31,7150 01341 LEWD
028230,000525: 31,7151 01616 VL
028231,000526: 31,7152 32027 STORE GAMMAL1 # GAMMAL1 USED IN UPCONTRL
028232,000527:
028233,000528: 31,7153 66775 DSU 1 # IF VL-VMIN NEG, GO TO SHORT
028234,000529: 31,7154 73776 BMN
028235,000530: 31,7155 01616 VL
028236,000531: 31,7156 21106 VMIN
028237,000532: 31,7157 16532 PREFINAL # PREFINAL = SHORT
028238,000533:
028239,000534: 31,7160 51176 DSQ 0 # VBARS = VL VL
028240,000535: 31,7161 01616 VL
028241,000536: 31,7162 33604 STORE VBARS
028242,000537:
028243,000538: 31,7163 66775 DSU 1 # IF VSAT - VL NEG, GO TO CONSTD.
028244,000539: 31,7164 73776 BMN
028245,000540: 31,7165 21174 HALVE # VSAT = .5
028246,000541: 31,7166 01616 VL
028247,000542: 31,7167 16405 BECONSTD # GOTOADDR MAY BE SIDETRACKED.
028248,000543: 31,7170 33440 STORE DVL # DVL = VSAT - VL
028249,000544:
028250,000545: 31,7171 45176 DMOVE 0
028251,000546: 31,7172 21174 HALVE # VS = VSAT
028252,000547: 31,7173 33612 STORE VS
028253,000548:
028254,000549: 31,7174 47574 NOLOD 2
028255,000550: 31,7175 66756 DSU BMN # IF V1 GREATER THAN VSAT, GO ON.
028256,000551: 31,7176 65776 BDSU
028257,000552: 31,7177 01365 V1
028258,000553: 31,7200 23207 GETDHOOK
|
|
Page 711
|
028260,000555: 31,7201 01440 DVL # DVL = DVL - (VSAT-V1) = V1 - VL
028261,000556: 31,7202 33440 STORE DVL
028262,000557:
028263,000558: 31,7203 45176 DMOVE 0
028264,000559: 31,7204 01365 V1
028265,000560: 31,7205 33612 STORE VS # VS = V1
028266,000561:
028267,000562: 31,7206 56773 GETDHOOK TSRT 3 # DHOOK = ((1-VS/FACT1)SQ -ALP)/FACT2
028268,000563: 31,7207 62726 DDV BDSU
028269,000564: 31,7210 63643 TSLT DSQ
028270,000565: 31,7211 66712 DSU DDV
028271,000566: 31,7212 01612 VS
028272,000567: 31,7213 00002 1
028273,000568: 31,7214 01632 FACT1
028274,000569: 31,7215 21174 HALVE
028275,000570: 31,7216 00002 1
028276,000571: 31,7217 01630 ALP
028277,000572: 31,7220 01331 FACT2
028278,000573: 31,7221 33434 STORE DHOOK
028279,000574:
028280,000575: 31,7222 56775 TSRT 1 # RESCALE BY 32.
028281,000576: 31,7223 62732 DDV DSU
028282,000577: 31,7224 01434 DHOOK
028283,000578: 31,7225 00006 5
028284,000579: 31,7226 01327 Q7
028285,000580: 31,7227 21160 CHOOK
028286,000581: 31,7230 33436 STORE AHOOKDV
028287,000582:
028288,000583: 31,7231 47572 NOLOD 4
028289,000584: 31,7232 70722 DAD DMP # GAMMAL = GAMMAL1-CH1 DVLSQ(1+AHOOK DVL
028290,000585: 31,7233 64722 DMP DMP # /DHOOK VBARS
028291,000586: 31,7234 62712 DDV DDV
028292,000587: 31,7235 65756 BDSU BMN
028293,000588: 31,7236 21162 1/8TH
028294,000589: 31,7237 21164 CH1
028295,000590: 31,7240 01440 DVL
028296,000591: 31,7241 01440 DVL
028297,000592: 31,7242 01434 DHOOK
028298,000593: 31,7243 01604 VBARS
028299,000594: 31,7244 00027 GAMMAL1
028300,000595: 31,7245 23450 NEGAMA # FIND CONDITIONS FOR GAMMAL = 0.
028301,000596: 31,7246 33610 STORE GAMMAL
|
|
Page 712
|
028303,000598:
028304,000599: # ... PREDICT RANGES FOR EACH PHASE OF TRAJECTORY...
028305,000600:
028306,000601: 31,7247 51175 RANGER DSQ 1
028307,000602: 31,7250 56726 TSRT BDSU # COSG = 1-GAMMAL SQ/2 , TRUNCATED SERIES
028308,000603: 31,7251 01610 GAMMAL
028309,000604: 31,7252 00003 2
028310,000605: 31,7253 21174 HALVE
028311,000606: 31,7254 33606 STORE COSG/2
028312,000607:
028313,000608: 31,7255 66773 DSU 3
028314,000609: 31,7256 64722 DMP DMP # E=SQRT(1+VBARS-2)VBARS COSG COSG)
028315,000610: 31,7257 64716 DMP TSLT
028316,000611: 31,7260 70653 DAD SQRT
028317,000612: 31,7261 01604 VBARS
028318,000613: 31,7262 21174 HALVE
028319,000614: 31,7263 01604 VBARS
028320,000615: 31,7264 01606 COSG/2
028321,000616: 31,7265 01606 COSG/2
028322,000617: 31,7266 00003 2 # MULT BY 4
028323,000618: 31,7267 21072 C1/16 # E (E/4 REALLY) INTO PD.
028324,000619:
028325,000620: 31,7270 64774 DMP 2 # ASKEP/2 = ARCSIN(VBARS COSG SING/E)
028326,000621: 31,7271 64712 DMP DDV
028327,000622: 31,7272 63116 ASIN TSLT
028328,000623: 31,7273 01604 VBARS
028329,000624: 31,7274 01606 COSG/2
028330,000625: 31,7275 01610 GAMMAL
028331,000626: 31,7276 77777 - # E FROM PD.
028332,000627: 31,7277 00002 1 # ASKEP INTO PD.
028333,000628:
028334,000629: 31,7300 64775 DMP 1 # ASP1 = Q2 +Q3(VL-Q4) = Q2' + Q3 VL
028335,000630: 31,7301 70742 DAD DAD
028336,000631: 31,7302 01616 VL
028337,000632: 31,7303 21076 Q3
028338,000633: 31,7304 21074 Q2 # ASP1 + ASKEP INTO PD.
028339,000634:
028340,000635: 31,7305 64776 DMP 0 # MODIFY GAMMAL1
028341,000636: 31,7306 00027 GAMMAL1
028342,000637: 31,7307 21234 POINT8
028343,000638: 31,7310 64775 DMP 1
028344,000639: 31,7311 70776 DAD
028345,000640: 31,7312 01610 GAMMAL
028346,000641: 31,7313 21236 POINT2
028347,000642: 31,7314 32027 STORE GAMMAL1
028348,000643:
028349,000644: 31,7315 51173 DSQ 3 # ASPUP = -C12 LOG(V1 V1 Q7/VBARS D)/GAMM
028350,000645: 31,7316 64712 DMP DDV # AL1
028351,000646: 31,7317 62771 DDV RTB
028352,000647: 31,7320 64712 DMP DDV
028353,000648: 31,7321 01365 V1
|
|
Page 713
|
028355,000650: 31,7322 01327 Q7
028356,000651: 31,7323 01604 VBARS
028357,000652: 31,7324 01602 A0
028358,000653: 31,7325 20437 LOG
028359,000654: 31,7326 21110 C12
028360,000655: 31,7327 00027 GAMMAL1 # ASPUP UNTO PD
028361,000656:
028362,000657: 31,7330 64775 DMP 1 # ASPDWN = KC3 RDOT V / A0
028363,000658: 31,7331 64712 DMP DDV
028364,000659: 31,7332 21166 KC3
028365,000660: 31,7333 01347 RDOT
028366,000661: 31,7334 01620 V
028367,000662: 31,7335 01602 A0 # ASPDWN INTO PD.
028368,000663:
028369,000664: 31,7336 66774 DSU 2 # ASP3 = Q5(Q6-GAMMAL)
028370,000665: 31,7337 64742 DMP DAD
028371,000666: 31,7340 70742 DAD DAD
028372,000667: 31,7341 21102 Q6
028373,000668: 31,7342 01610 GAMMAL # ASP = ASP1+ASKEP+ASPUP+ASP3
028374,000669: 31,7343 21100 Q5 # ASP INTO PD
028375,000670:
028376,000671: 31,7344 47575 NOLOD 1
028377,000672: 31,7345 65672 BDSU TSRT
028378,000673: 31,7346 01111 THETAH
028379,000674: 31,7347 00005 4 # DIFF = (ASP-THETA)/16
028380,000675: 31,7350 33225 STORE DIFF # END OF TEST
028381,000676:
028382,000677: 31,7351 47572 NOLOD 4
028383,000678: 31,7352 65132 ABS DSU # IF ABS((THETAH-ASP) - 25NM NEG,GOTOUPSY
028384,000679: 31,7353 73615 BMN TEST # IF HIND SET, GO TO GET LV THE REPEATWAY
028385,000680: 31,7354 41556 LODON BMN # IF DIFF NEG, GO TO CONSTD
028386,000681: 31,7355 41532 LODON DSU # VCORR = V1 - V1OLD
028387,000682: 31,7356 21124 25NM
028388,000683: 31,7357 16203 GOTOUPSY
028389,000684: 31,7360 00013 HIND
028390,000685: 31,7361 23370 GETVCOR
028391,000686: 31,7362 01225 DIFF
028392,000687: 31,7363 16377 DCONSTD # SETTING UP DIFFOLD ON THE WAY
028393,000688:
028394,000689: 31,7364 01365 V1
028395,000690: 31,7365 01371 V1OLD # VCORR = V1 - V1OLD
028396,000691: 31,7366 33600 STORE VCORR
028397,000692:
028398,000693: 31,7367 66774 GETVCOR DSU 2
028399,000694: 31,7370 56712 TSRT DDV
028400,000695: 31,7371 61672 BDDV TSRT
028401,000696: 31,7372 01325 DIFFOLD
028402,000697: 31,7373 01225 DIFF
028403,000698: 31,7374 00003 2
028404,000699: 31,7375 01600 VCORR
|
|
Page 714
|
028406,000701: 31,7376 01225 DIFF
028407,000702: 31,7377 00003 2
028408,000703: 31,7400 33600 STORE VCORR
028409,000704:
028410,000705: 31,7401 77576 EXIT 0
028411,000706:
028412,000707: 31,7402 02276 TC PHASCHNG # HAVE GROUP 3 PICK UP AT PREHUNT.
028413,000708: 31,7403 02003 OCT 02003 # 3.16 RESTART.
028414,000709:
028415,000710: 31,7404 37514 CAF ADENDEXT # SIDETRACK NEXT PASS UNTIL THIS ONE DONE.
028416,000711: 31,7405 51374 TS GOTOADDR # ONLY AFTER RESTART IS LEFT AFTER DETOUR.
028417,000712:
028418,000713: 31,7406 35501 CAF ZERO # ZERO OVFIND TO GUARD AGAINST FUTURE BOV
028419,000714: 31,7407 50122 TS OVFIND
028420,000715:
028421,000716: 31,7410 04000 TC INTPRET
028422,000717:
028423,000718: 31,7411 47574 NOLOD 2
028424,000719: 31,7412 65616 BDSU BPL # IS VCORR - 1000 POS.
028425,000720: 31,7413 70776 DAD # VCORR = 1000
028426,000721: 31,7414 21120 VCORLIM
028427,000722: 31,7415 23421 CHKVL
028428,000723: 31,7416 01600 VCORR # LEAVING VCORLIM IN MPAC
028429,000724: 31,7417 33600 STORE VCORR
028430,000725:
028431,000726: 31,7420 70774 CHKVL DAD 2
028432,000727: 31,7421 66756 DSU BMN # IF VL + VCORR - VSAT POS, VCORR=VCORR/
028433,000728: 31,7422 41472 LODON TSRT
028434,000729: 31,7423 01600 VCORR
028435,000730: 31,7424 01616 VL
028436,000731: 31,7425 21174 HALVE
028437,000732: 31,7426 23433 GETNUV1
028438,000733: 31,7427 01600 VCORR
028439,000734: 31,7430 00002 1
028440,000735: 31,7431 33600 STORE VCORR
028441,000736:
028442,000737: 31,7432 70776 GETNUV1 DAD 0
028443,000738: 31,7433 01365 V1
028444,000739: 31,7434 01600 VCORR
028445,000740: 31,7435 33365 STORE V1
028446,000741:
028447,000742: 31,7436 45176 DMOVE 0 # SAVE OLD VALUE OF ASP
028448,000743: 31,7437 01225 DIFF
028449,000744: 31,7440 33325 STORE DIFFOLD
028450,000745:
028451,000746: 31,7441 43575 TEST 1 # SET HIND AND GO TO HUNTEST1
028452,000747: 31,7442 42572 SWITCH ITC
028453,000748: 31,7443 00013 HIND
028454,000749: 31,7444 23106 HUNTEST1
028455,000750: 31,7445 00013 HIND
|
|
Page 715
|
028457,000752: 31,7446 23106 HUNTEST1
028458,000753:
028459,000754:
028460,000755:
028461,000756: 31,7447 47575 NEGAMA NOLOD 1 # ENTER WITH GAMMAL IN MPAC
028462,000757: 31,7450 64722 DMP DMP # FIND GAMMAL VL / 3
028463,000758: 31,7451 01616 VL
028464,000759: 31,7452 21045 1/3RD # .. AND PUSH DOWN PARTIAL RESULT..
028465,000760:
028466,000761: 31,7453 64776 DMP 0
028467,000762: 31,7454 01341 LEWD
028468,000763: 31,7455 21045 1/3RD # PUSH LEWD/3 ALSO
028469,000764: 31,7456 70773 DAD 3
028470,000765: 31,7457 64722 DMP DMP # DEL VL = GAMMAL VL/3)/(LEWD/3 - DVL(2/3
028471,000766: 31,7460 62712 DDV DDV # + AHOOKDV)(CH1 GS/DHOOK VL))
028472,000767: 31,7461 65706 BDSU BDDV
028473,000768: 31,7462 01436 AHOOKDV
028474,000769: 31,7463 21047 1/12TH
028475,000770: 31,7464 01440 DVL
028476,000771: 31,7465 21164 CH1
028477,000772: 31,7466 01434 DHOOK
028478,000773: 31,7467 01616 VL # 2 OUT OF ,1 INTO PUSH
028479,000774:
028480,000775: 31,7470 70776 DAD 0
028481,000776: 31,7471 01616 VL
028482,000777: 31,7472 33616 STORE VL # VL = VL + DEL VL
028483,000778:
028484,000779: 31,7473 47573 NOLOD 3 # VL IS IN MPAC
028485,000780: 31,7474 62726 DDV BDSU # Q7 = ((1-VL/FACT1)SQ - ALP)/ FACT2
028486,000781: 31,7475 51132 DSQ DSU
028487,000782: 31,7476 62776 DDV
028488,000783: 31,7477 01632 FACT1
028489,000784: 31,7500 21043 NEARONE
028490,000785: 31,7501 01630 ALP
028491,000786: 31,7502 01331 FACT2
028492,000787: 31,7503 33327 STORE Q7
028493,000788:
028494,000789: 31,7504 51176 DSQ 0 # GET NEW VBARS.
028495,000790: 31,7505 01616 VL
028496,000791: 31,7506 33604 STORE VBARS
028497,000792:
028498,000793: 31,7507 45176 DMOVE 0
028499,000794: 31,7510 21057 3ZEROS
028500,000795: 31,7511 33610 STORE GAMMAL # GAMMAL = 0
028501,000796:
028502,000797: 31,7512 76776 ITC 0
028503,000798: 31,7513 23250 RANGER
028504,000799:
|
|
Page 716
|
028506,000801:
028507,000802: 31,7514 56513 ADENDEXT CADR ENDEXIT
028508,000803:
028509,000804: 31,7515 03462 PREHUNT TC STATEUP # SET HUNTSW1 AND HIND SWITCHES
028510,000805: 31,7516 00140 OCT 00140
028511,000806:
028512,000807: 31,7517 07006 TC HUNTEST -1
028513,000808:
028514,000809: 27,6201 BANK 27
028515,000810:
028516,000811: 27,6201 56216 UPCADR CADR UPCONTRL
028517,000812:
028518,000813: 27,6202 77576 GOTOUPSY EXIT 0 # BACK TO BASIC.
028519,000814:
028520,000815: 27,6203 36201 HUNTDUMP CAF UPCADR # RESET GOTOADDR
028521,000816: 27,6204 51374 TS GOTOADDR
028522,000817: 27,6205 02362 TC NEWMODE # CHANGE MODE TO SIGNAL END OF HUNT-TEST.
028523,000818: 27,6206 00065 OCT 00065
028524,000819:
028525,000820: 27,6207 44516 CS ONE # MAKE GROUP 3 INACTIVE WHEN DONE WITH
028526,000821: 27,6210 02312 TC NEWPHASE # THE ITERATIONS.
028527,000822: 27,6211 00003 OCT 3 # GROUP 3.
028528,000823:
028529,000824: 27,6212 40067 CS FIXLOC # RESET PUSHDOWN POINTER
028530,000825: 27,6213 40000 COM
028531,000826: 27,6214 50123 TS PUSHLOC
028532,000827:
028533,000828: 27,6215 04000 TC INTPRET # ...AND FALL INTO UPCONTROL...
028534,000829:
|
|
Page 717
|
028536,000831:
028537,000832: # THIS SECTION IS THE UPCONTROL FOR THE SUPERCIRCULAR PHASE
028538,000833:
028539,000834: 27,6216 66773 UPCONTRL DSU 3 # IF V-V1 POS, GO TO DOWNCONTROL
028540,000835: 27,6217 43605 BPL LODON # IF D-Q7 NEG, GO TO KEP
028541,000836: 27,6220 66756 DSU BMN
028542,000837: 27,6221 41556 LODON BMN # IF RDOT NEG, GO TO VLTEST
028543,000838: 27,6222 01620 V # VLTEST TESTS FOR START OF FINAL PHASE
028544,000839: 27,6223 01365 V1
028545,000840: 27,6224 16442 DOWNCNTL
028546,000841: 27,6225 01363 D
028547,000842: 27,6226 01327 Q7
028548,000843: 27,6227 16470 KEP # SET CONSTS. ETC FOR BALLISTIC PHASE.
028549,000844: 27,6230 01347 RDOT
028550,000845: 27,6231 16524 VLTEST
028551,000846:
028552,000847: 27,6232 66775 CONT1 DSU 1
028553,000848: 27,6233 43776 BPL
028554,000849: 27,6234 01363 D # IF D-A0 NEG,L/D=LAD,GO TO 310
028555,000850: 27,6235 01602 A0
028556,000851: 27,6236 16671 GOPOSLAD
028557,000852: 27,6237 64774 DMP 2 # VREF=FACT1(1-SQRT(FACT2 D + ALP))
028558,000853: 27,6240 70653 DAD SQRT
028559,000854: 27,6241 65722 BDSU DMP
028560,000855: 27,6242 01363 D
028561,000856: 27,6243 01331 FACT2
028562,000857: 27,6244 01630 ALP
028563,000858: 27,6245 21043 NEARONE
028564,000859: 27,6246 01632 FACT1
028565,000860: 27,6247 33624 STORE VREF
028566,000861:
028567,000862: 27,6250 47575 NOLOD 1 # RDOTREF = LEWD(V1-VREF)
028568,000863: 27,6251 65722 BDSU DMP
028569,000864: 27,6252 01365 V1
028570,000865: 27,6253 01341 LEWD
028571,000866: 27,6254 33626 STORE RDOTREF
028572,000867:
028573,000868: 27,6255 66775 DSU 1 # IF VSAT - VREF NEG, GO TO CONTINU2
028574,000869: 27,6256 73635 BMN NOLOD # NOLOD TO PUSH DOWN (HALVE-VREF)
028575,000870: 27,6257 01612 VS
028576,000871: 27,6260 01624 VREF # NO RDHOOK UNTIL VREF LESS THAN VSAT.
028577,000872: 27,6261 16303 CONTINU2 # PUSHING DOWN IF NO BRANCH.
028578,000873:
028579,000874: 27,6262 47571 NOLOD 5 # RDHOOK=CH1(AHOOKDVL/DVL(DV+1))DV DV
028580,000875: 27,6263 64712 DMP DDV # /DHOOK VREF
028581,000876: 27,6264 70722 DAD DMP # WHERE DV = VS - VREF
028582,000877: 27,6265 64722 DMP DMP
028583,000878: 27,6266 62712 DDV DDV
028584,000879: 27,6267 65776 BDSU
028585,000880: 27,6270 01436 AHOOKDV
028586,000881: 27,6271 01440 DVL
|
|
Page 718
|
028588,000883: 27,6272 21162 1/8TH
028589,000884: 27,6273 21164 CH1
028590,000885: 27,6274 00001 0 # ABOVE SHOULD HAVE PUSHED INTO LOC 0.
028591,000886: 27,6275 77777 -
028592,000887: 27,6276 01434 DHOOK
028593,000888: 27,6277 01624 VREF
028594,000889: 27,6300 01626 RDOTREF
028595,000890: 27,6301 33626 STORE RDOTREF # RDOTREF = RDOTREF - RDHOOK
028596,000891:
028597,000892: 27,6302 66775 CONTINU2 DSU 1 # BYPASS FACTOR CALC, IF D-Q7MIN NEG.
028598,000893: 27,6303 73776 BMN
028599,000894: 27,6304 01363 D
028600,000895: 27,6305 21240 Q7MIN
028601,000896: 27,6306 16320 CONTINU3
028602,000897:
028603,000898: 27,6307 66776 DSU 0
028604,000899: 27,6310 01101 A1 # FACTOR = (D-Q7)/(A1-Q7)
028605,000900: 27,6311 01327 Q7 # PARTIAL RESULT IN PD
028606,000901:
028607,000902: 27,6312 66775 DSU 1
028608,000903: 27,6313 62776 DDV
028609,000904: 27,6314 01363 D
028610,000905: 27,6315 01327 Q7
028611,000906: 27,6316 33622 STORE FACTOR
028612,000907:
028613,000908: 27,6317 66773 CONTINU3 DSU 3 # L/D = LEWD
028614,000909: 27,6320 64712 DMP DDV # -((RDOT-RDOTREF)F1/KB1+V-VREF)F1/KB2
028615,000910: 27,6321 70732 DAD DSU
028616,000911: 27,6322 64712 DMP DDV
028617,000912: 27,6323 01347 RDOT
028618,000913: 27,6324 01626 RDOTREF
028619,000914: 27,6325 01622 FACTOR
028620,000915: 27,6326 21112 KB1
028621,000916: 27,6327 01620 V
028622,000917: 27,6330 01624 VREF
028623,000918: 27,6331 01622 FACTOR
028624,000919: 27,6332 21114 KB2 # DELTA L/D INTO PD
028625,000920:
028626,000921: 27,6333 71773 BOV 3 # NONLINEAR CIRCUIT FOR REDUCING HIGH
028627,000922: 27,6334 65132 ABS DSU # GAINS HERE
028628,000923: 27,6335 73722 BMN DMP
028629,000924: 27,6336 70656 DAD SIGN
028630,000925: 27,6337 16372 GOMXL/D1
028631,000926: 27,6340 00001 0
028632,000927: 27,6341 21242 PT1/16
028633,000928: 27,6342 16346 NEXT1
028634,000929: 27,6343 21224 POINT1
028635,000930: 27,6344 21242 PT1/16
028636,000931: 27,6345 63775 NEXT1 TSLT 1
028637,000932: 27,6346 70746 DAD BOV
|
|
Page 719
|
028639,000934: 27,6347 77777 -
028640,000935: 27,6350 00005 4
028641,000936: 27,6351 01341 LEWD
028642,000937: 27,6352 16372 GOMXL/D1 # PUSHES IF NO BRANCH, NO MATTER
028643,000938:
028644,000939: 27,6353 47576 NEGTESTS NOLOD 0
028645,000940: 27,6354 33223 STORE L/D
028646,000941:
028647,000942: 27,6355 47573 NOLOD 3 # IF L/D NEG, AND D-C20 POS, L/D = 0
028648,000943: 27,6356 43605 BPL LODON
028649,000944: 27,6357 66756 DSU BMN
028650,000945: 27,6360 64776 DMP
028651,000946: 27,6361 16740 LIMITL/D
028652,000947: 27,6362 01363 D
028653,000948: 27,6363 21122 C20
028654,000949: 27,6364 16740 LIMITL/D
028655,000950: 27,6365 21057 3ZEROS # L/D=0 NO NEG LIFT
028656,000951: 27,6366 33223 STORE L/D
028657,000952:
028658,000953: 27,6367 76776 ITC 0
028659,000954: 27,6370 16740 LIMITL/D
028660,000955:
028661,000956: 27,6371 76575 GOMXL/D1 RTB 1
028662,000957: 27,6372 64772 DMP ITC
028663,000958: 27,6373 20607 SIGNMPAC
028664,000959: 27,6374 21144 LAD
028665,000960: 27,6375 16354 NEGTESTS
028666,000961:
|
|
Page 720
|
028668,000963:
028669,000964: # CONSTANT DRAG CONTROLLER
028670,000965: 27,6376 45176 DCONSTD DMOVE 0
028671,000966: 27,6377 01225 DIFF # SAVE OLD VALUE OF DIFF FOR NEXT PASS.
028672,000967: 27,6400 33325 STORE DIFFOLD
028673,000968:
028674,000969: 27,6401 45176 DMOVE 0 # V1OLD = V1
028675,000970: 27,6402 01365 V1
028676,000971: 27,6403 33371 STORE V1OLD
028677,000972:
028678,000973: 27,6404 75575 BECONSTD AXT,1 1 # RESETS GOTOADDR TO GO TO HUNTEST
028679,000974: 27,6405 76535 RTB SXA,1
028680,000975: 27,6406 23010 HUNTEST
028681,000976: 27,6407 20265 FRESHPD
028682,000977: 27,6410 01375 GOTOADDR
028683,000978:
028684,000979: 27,6411 64776 CONSTD DMP 0
028685,000980: 27,6412 01432 LEQ
028686,000981: 27,6413 21200 C/D0 # C/D0 LEQ INTO PD
028687,000982:
028688,000983: 27,6414 64774 DMP 2
028689,000984: 27,6415 62742 DDV DAD
028690,000985: 27,6416 64742 DMP DAD
028691,000986: 27,6417 21206 2HS # RDOTREF = - 2 HS D0/V
028692,000987: 27,6420 21116 C19 # D0 = C19
028693,000988: 27,6421 01620 V
028694,000989: 27,6422 01347 RDOT
028695,000990: 27,6423 21130 K2D # C/D0 LEQ + K2D(RDOT-RDOTREF) INTO PD
028696,000991:
028697,000992: 27,6424 45176 DMOVE 0
028698,000993: 27,6425 21116 C19
028699,000994: 27,6426 66773 CONSTD1 DSU 3
028700,000995: 27,6427 64742 DMP DAD
028701,000996: 27,6430 63746 TSLT BOV
028702,000997: 27,6431 76776 ITC
028703,000998: 27,6432 01363 D
028704,000999: 27,6433 77777 -
028705,001000: 27,6434 21126 K1D
028706,001001: 27,6435 77777 -
028707,001002: 27,6436 00011 8D
028708,001003: 27,6437 16372 GOMXL/D1
028709,001004: 27,6440 16354 NEGTESTS
028710,001005:
028711,001006: 27,6441 66774 DOWNCNTL DSU 2 # RDTR = LAD(V1-V)
028712,001007: 27,6442 64742 DMP DAD
028713,001008: 27,6443 64742 DMP DAD
028714,001009: 27,6444 01620 V
028715,001010: 27,6445 01365 V1
028716,001011: 27,6446 21144 LAD
028717,001012: 27,6447 01347 RDOT
028718,001013: 27,6450 21130 K2D
|
|
Page 721
|
028720,001015: 27,6451 21146 LAD/256 # LAD + K2D(RDOT-RDTR) INTO PD
028721,001016:
028722,001017: 27,6452 66775 DSU 1
028723,001018: 27,6453 51112 DSQ DDV
028724,001019: 27,6454 01365 V1
028725,001020: 27,6455 01620 V
028726,001021: 27,6456 21222 2C1HSLAD # (V1-V)SQ/(2 C1 HS/LAD) INTO PD
028727,001022:
028728,001023: 27,6457 51174 DSQ 2 # DREF = (V/V1)SQ A0 - PD
028729,001024: 27,6460 62706 DDV BDDV
028730,001025: 27,6461 66776 DSU
028731,001026: 27,6462 01365 V1
028732,001027: 27,6463 01343 VSQUARE
028733,001028: 27,6464 01602 A0
028734,001029:
028735,001030: 27,6465 76776 ITC 0
028736,001031: 27,6466 16427 CONSTD1
028737,001032:
028738,001033: 27,6467 77576 KEP EXIT 0
028739,001034:
028740,001035: 27,6470 36521 CAF KEPCADR # SET GOTOADDR TO KEPLER PHASE.
028741,001036: 27,6471 51374 TS GOTOADDR
028742,001037: 27,6472 02362 TC NEWMODE # SET MODE TO KEPLER PHASE.
028743,001038: 27,6473 00066 OCT 00066
028744,001039:
028745,001040: 27,6474 04000 TC INTPRET
028746,001041:
028747,001042: 27,6475 66775 KEP2 DSU 1
028748,001043: 27,6476 73775 BMN EXIT
028749,001044: 27,6477 01363 D
028750,001045: 27,6500 21142 .05G
028751,001046: 27,6501 16516 NO.05G
028752,001047:
028753,001048: 27,6502 03373 TC RELAYON
028754,001049: 27,6503 40100 OCT 40100 # SEND .05G INDICATION
028755,001050: 27,6504 04000 TC INTPRET
028756,001051:
028757,001052: 27,6505 70775 KEP3 DAD 1 # IF Q7+KDMIN - D NEG, GO TO FINAL PHASE
028758,001053: 27,6506 66756 DSU BMN
028759,001054: 27,6507 01327 Q7 # MIN DRAG = Q7 + .5 FT/SEC/SEC
028760,001055: 27,6510 21070 KDMIN
028761,001056: 27,6511 01363 D
028762,001057: 27,6512 16532 PREFINAL # FALL THRU IF POS...
028763,001058:
028764,001059: 27,6513 77576 ENDEXIT EXIT 0 # GOTOADDR IS SET HERE DURING VLHUNT.
028765,001060: 27,6514 07032 TC OVERNOUT
028766,001061:
028767,001062: 27,6515 77576 NO.05G EXIT 0
028768,001063: 27,6516 03405 TC RELAYOFF # REMOVE .05G INDICATION
028769,001064: 27,6517 40100 OCT 40100
|
|
Page 722
|
028771,001066: 27,6520 06504 TC KEP3 -1
028772,001067:
028773,001068: 27,6521 56475 KEPCADR CADR KEP2
028774,001069: 27,6522 56544 P3CADR CADR PREDICT3
028775,001070:
028776,001071: 27,6523 66775 VLTEST DSU 1 # IF V-VL-C18 NEG,EGSW=1,SELECTOR=PREDIC
028777,001072: 27,6524 66616 DSU BPL # GO TO PREDICT3
028778,001073: 27,6525 01620 V
028779,001074: 27,6526 01616 VL
028780,001075: 27,6527 21066 C18
028781,001076: 27,6530 16233 CONT1
028782,001077:
028783,001078: 27,6531 42575 PREFINAL SWITCH 1 # CHANGE GOTOADDR TO PREDICT3 AND FALL
028784,001079: 27,6532 77576 EXIT # INTO PREDICT3
028785,001080: 27,6533 00011 EGSW
028786,001081:
028787,001082: 27,6534 44516 CS ONE
028788,001083: 27,6535 02312 TC NEWPHASE
028789,001084: 27,6536 00003 OCT 3
028790,001085:
028791,001086: 27,6537 36522 CAF P3CADR
028792,001087: 27,6540 51374 TS GOTOADDR # SET TO PREDICT3 PHASE.
028793,001088: 27,6541 02362 TC NEWMODE
028794,001089: 27,6542 00067 OCT 00067
028795,001090:
028796,001091: 27,6543 04000 TC INTPRET # ... AND FALL INTO PREDICT3...
028797,001092:
|
|
Page 723
|
028799,001094:
028800,001095: # SUBORBITAL CONTROL (REFERENCE TRAJECTOORY BY TABLE LOOK-UP.)
028801,001096:
028802,001097: 27,6544 66772 PREDICT3 DSU 4
028803,001098: 27,6545 73605 BMN LODON # IF V - VQUIT NEG, STOP STEERING
028804,001099: 27,6546 43576 TEST
028805,001100: 27,6547 41612 VXV DOT # IF (RT)*UNITR.UNI NEG, SET GONEPAST
028806,001101: 27,6550 73775 BMN EXIT
028807,001102: 27,6551 01620 V
028808,001103: 27,6552 21120 VQUIT
028809,001104: 27,6553 17006 STEER
028810,001105: 27,6554 00007 GONEPAST
028811,001106: 27,6555 16700 GONEGLAD
028812,001107: 27,6556 01215 RT
028813,001108: 27,6557 01016 UNITR
028814,001109: 27,6560 01562 UNI # (MIGHT SAVE THIS FROM EARLIER..
028815,001110: 27,6561 16676 SETGPAST
028816,001111:
028817,001112: 27,6562 45642 CS NEG14
028818,001113: 27,6563 51107 BACK TS JJ
028819,001114:
028820,001115: 27,6564 41617 CS V
028821,001116: 27,6565 21107 INDEX JJ
028822,001117: 27,6566 67203 AD VREFER # VREF - V, HIGHEST VREF AT END OF TABLE.
028823,001118: 27,6567 10000 CCS A # IF VREF-V POS LOOP BACK
028824,001119: 27,6570 11107 CCS JJ # DECREMENT JJ, JJ CANNOT BE ZERO
028825,001120: 27,6571 06563 TC BACK
028826,001121:
028827,001122: 27,6572 64516 AD ONE
028828,001123: 27,6573 51420 TS TEM1B # V-VREF IN TEM1B (MUST BE POSITIVE NUM)
028829,001124:
028830,001125: 27,6574 21107 INDEX JJ
028831,001126: 27,6575 47203 CS VREFER
028832,001127: 27,6576 21107 INDEX JJ
028833,001128: 27,6577 67204 AD VREFER +1 # V(K+1) - V(K) (POS NUM)
028834,001129: 27,6600 31420 XCH TEM1B
028835,001130: 27,6601 25777 EXTEND
028836,001131: 27,6602 51420 DV TEM1B
028837,001132: 27,6603 51422 TS GRAD # GRAD = (V-VREF)/(VK+1 - VK) (POS NUM
028838,001133:
028839,001134: 27,6604 34477 CAF FIVE
028840,001135: 27,6605 51421 BACK2 TS M1
028841,001136: 27,6606 37201 CAF DEC15
028842,001137: 27,6607 61107 AD JJ
028843,001138: 27,6610 51107 TS JJ
028844,001139: 27,6611 20000 INDEX A
028845,001140: 27,6612 47203 CS VREFER
028846,001141: 27,6613 21107 INDEX JJ
028847,001142: 27,6614 67204 AD VREFER +1 # X(K+1) - X(K)
028848,001143: 27,6615 25777 EXTEND
028849,001144: 27,6616 41422 MP GRAD
|
|
Page 724
|
028851,001146: 27,6617 21107 INDEX JJ
028852,001147: 27,6620 67203 AD VREFER
028853,001148: 27,6621 21421 INDEX M1
028854,001149: 27,6622 51100 TS FX # FX = AK + GRAD (AK+1 - AK)
028855,001150: 27,6623 11421 CCS M1
028856,001151: 27,6624 06605 TC BACK2
028857,001152:
028858,001153: 27,6625 41101 CS FX +1 # DON;T DESTROY FX +1
028859,001154: 27,6626 40000 COM
028860,001155: 27,6627 61362 AD D
028861,001156: 27,6630 25777 EXTEND
028862,001157: 27,6631 41105 MP FX +5 # F1
028863,001158: 27,6632 51420 TS TEM1B # TEM1B= F1(D-DREF)
028864,001159:
028865,001160: 27,6633 41346 CS RDOT # FORM RDOTREF - RDOT
028866,001161: 27,6634 60000 DOUBLE
028867,001162: 27,6635 60000 DOUBLE # SCALE UP BY 8 FOR THIS PHASE.
028868,001163: 27,6636 60000 DOUBLE
028869,001164: 27,6637 61103 AD FX +3 # RDOTREF
028870,001165: 27,6640 25777 EXTEND
028871,001166: 27,6641 41104 MP FX +4 # F2
028872,001167: 27,6642 61420 AD TEM1B # ADD F2(DADV1-DADVR)
028873,001168: 27,6643 61102 AD FX +2 # RTOGO
028874,001169: 27,6644 31106 XCH PREDANG # NO OVERFLOW SKIP PLEASE.
028875,001170: 27,6645 04000 TC INTPRET
028876,001171:
028877,001172: 27,6646 43175 SMOVE 1
028878,001173: 27,6647 56726 TSRT BDSU # THETAH - PRED ANGLE
028879,001174: 27,6650 01107 PREDANG
028880,001175: 27,6651 00004 3
028881,001176: 27,6652 01111 THETAH
028882,001177:
028883,001178: 27,6653 43173 SMOVE 3
028884,001179: 27,6654 61716 BDDV TSLT
028885,001180: 27,6655 71742 BOV DAD
028886,001181: 27,6656 71776 BOV
028887,001182: 27,6657 01101 FX # FX = DRANGE/D L/D = Y
028888,001183: 27,6660 77777 -
028889,001184: 27,6661 00006 5
028890,001185: 27,6662 16705 GOMAXL/D
028891,001186: 27,6663 21170 LOD
028892,001187: 27,6664 16705 GOMAXL/D
028893,001188: 27,6665 33223 STORE L/D
028894,001189:
028895,001190: 27,6666 76776 ITC 0
028896,001191: 27,6667 16712 GLIMITER
028897,001192:
028898,001193: 27,6670 45176 GOPOSLAD DMOVE 0
028899,001194: 27,6671 21144 LAD
028900,001195: 27,6672 33223 STORE L/D
|
|
Page 725
|
028902,001197: 27,6673 76776 ITC 0
028903,001198: 27,6674 16740 LIMITL/D
028904,001199:
028905,001200: 27,6675 42576 SETGPAST SWITCH 0 # SHOULD BE BY TARGET IF HERE.
028906,001201: 27,6676 00007 GONEPAST
028907,001202:
028908,001203: 27,6677 47176 GONEGLAD COMP 0
028909,001204: 27,6700 21144 LAD # L/D = - LAD
028910,001205: 27,6701 33223 STORE L/D
028911,001206:
028912,001207: 27,6702 76776 ITC 0
028913,001208: 27,6703 16712 GLIMITER
028914,001209:
028915,001210: 27,6704 76575 GOMAXL/D RTB 1
028916,001211: 27,6705 64776 DMP # L/D = LAD SIG(MPAC)
028917,001212: 27,6706 20607 SIGNMPAC
028918,001213: 27,6707 21144 LAD
028919,001214: 27,6710 33223 STORE L/D # AND FALLS INTO LIMITL/D SECTION.
028920,001215:
028921,001216: 27,6711 66774 GLIMITER DSU 2 # IF GMAX/2-D POS, GO TO LIMITL/D
028922,001217: 27,6712 43742 BPL DAD # IF GMAX-D NEG, GO TO GOPOSLAD
028923,001218: 27,6713 73722 BMN DMP
028924,001219: 27,6714 21202 GMAX/2
028925,001220: 27,6715 01363 D
028926,001221: 27,6716 16740 LIMITL/D
028927,001222: 27,6717 21202 GMAX/2
028928,001223: 27,6720 16671 GOPOSLAD
028929,001224: 27,6721 21206 2HS # 2HS(GMAX-D) INTO PD
028930,001225:
028931,001226: 27,6722 64775 DMP 1
028932,001227: 27,6723 70722 DAD DMP
028933,001228: 27,6724 01432 LEQ
028934,001229: 27,6725 21204 1/GMAX
028935,001230: 27,6726 21144 LAD # 2HS(GMAX-D) (LEQ/GMAX+LAD) INTO PD
028936,001231:
028937,001232: 27,6727 62774 DDV 2
028938,001233: 27,6730 70653 DAD SQRT # XLIM = SQRT(PD+(2HSGMAX/V)SQ)
028939,001234: 27,6731 70756 DAD BMN # IF RDOT+XLIM NEG, L/D=LAD
028940,001235: 27,6732 21210 2HSGMXSQ
028941,001236: 27,6733 01343 VSQUARE
028942,001237: 27,6734 77777 -
028943,001238: 27,6735 01347 RDOT # KGLIM2= -5 SCALED
028944,001239: 27,6736 16671 GOPOSLAD
028945,001240:
|
|
Page 726
|
028947,001242:
028948,001243: # COMES HERE TO COMPUTE ROLL COMMAND, CHECK LATERAL ERRORS, AND STEER
028949,001244: 27,6737 43575 LIMITL/D TEST 1 # NO LATERAL CONTROL IF PAST TARGET
028950,001245: 27,6740 64742 DMP DAD # Y = KLAT VSQUARE + LATBIAS
028951,001246: 27,6741 00007 GONEPAST
028952,001247: 27,6742 16776 L355
028953,001248: 27,6743 01343 VSQUARE
028954,001249: 27,6744 21150 KLAT
028955,001250: 27,6745 21152 LATBIAS
028956,001251: 27,6746 32025 STORE Y
028957,001252:
028958,001253: 27,6747 65172 L350 ABS 4 # IF ABS(L/D)-L/DCMINR NEG, GO TO L353
028959,001254: 27,6750 66756 DSU BMN
028960,001255: 27,6751 41456 LODON SIGN # IF K2ROLL LATANG NEG, GO TO L357
028961,001256: 27,6752 73605 BMN LODON
028962,001257: 27,6753 56776 TSRT # Y = Y/2
028963,001258: 27,6754 01223 L/D
028964,001259: 27,6755 21176 L/DCMINR
028965,001260: 27,6756 16766 L353
028966,001261: 27,6757 01113 LATANG
028967,001262: 27,6760 01373 K2ROLL
028968,001263: 27,6761 17070 L357
028969,001264: 27,6762 00025 Y
028970,001265: 27,6763 00002 1
028971,001266: 27,6764 32025 STORE Y
028972,001267:
028973,001268: 27,6765 53774 L353 SIGN 2 # IF LATANG SIGN(K2ROLL) - Y POS, SWITCH
028974,001269: 27,6766 66756 DSU BMN # IF POS, GO TO BL361 IN BASIC.
028975,001270: 27,6767 76576 RTB
028976,001271: 27,6770 01113 LATANG
028977,001272: 27,6771 01373 K2ROLL
028978,001273: 27,6772 00025 Y
028979,001274: 27,6773 16776 L355
028980,001275: 27,6774 17045 BL361
028981,001276:
028982,001277: 27,6775 62774 L355 DDV 2 # ROLLC = ACOS((L/D)/LAD)
028983,001278: 27,6776 56703 TSRT ACOS
028984,001279: 27,6777 53776 SIGN # ROLLC = ROLLC SIGN(K2ROLL)
028985,001280: 27,7000 01223 L/D
028986,001281: 27,7001 21144 LAD
028987,001282: 27,7002 00002 1
028988,001283: 27,7003 01373 K2ROLL
028989,001284: 27,7004 33473 STORE ROLLC
|
|
Page 727
|
028991,001286:
028992,001287: 27,7005 77576 STEER EXIT 0
028993,001288: 27,7006 34503 STEER2 CAF BIT12 # 1/8 TH.
028994,001289: 27,7007 25777 EXTEND
028995,001290: 27,7010 41472 MP ROLLC # SCALE ROLL OUTPUT FOR 16 SPEED.
028996,001291: 27,7011 50115 TS MPAC
028997,001292:
028998,001293: 27,7012 34504 CAF BIT11 # 1/16 TH.
028999,001294: 27,7013 25777 EXTEND
029000,001295: 27,7014 41352 MP ROLLBIAS # BIAS AOG FROM LIFT UP ORIENTATION
029001,001296: 27,7015 60115 AD MPAC # ROLL = ROLLC/8 + ROLLBIAS/16 + K1ROLL
029002,001297: 27,7016 61450 AD K1ROLL
029003,001298: 27,7017 50115 TS MPAC # AFRAID TO STORE POSS BAD NUM IN THETAD
029004,001299: 27,7020 07024 TC +4 # SKIPS ON OVERFLOW
029005,001300: 27,7021 20000 INDEX A
029006,001301: 27,7022 34477 CAF LIMITS # ALLOW OVERFLOW (GO TO NEGMAX FROM POSMX
029007,001302: 27,7023 60115 AD MPAC
029008,001303:
029009,001304: 27,7024 20017 INHINT
029010,001305: 27,7025 50700 TS THETAD # THETAD = X CDU = ROLL
029011,001306: 27,7026 44514 CS BIT3
029012,001307: 27,7027 70675 MASK TMMARKER
029013,001308: 27,7030 64514 AD BIT3 # SET BIT 3 IN TMMARKER WHEN THETAD COMP
029014,001309: 27,7031 50675 TS TMMARKER
029015,001310: 27,7032 02276 OVERNOUT TC PHASCHNG # RECYCLE GROUP 5 TO PIPUP WAIT STATE.
029016,001311: 27,7033 01405 OCT 01405 # 5.12 RESTART. (PIPUP SYNCED WITH 2 SEC)
029017,001312:
029018,001313: 27,7034 03302 TC GRABDSP
029019,001314: 27,7035 07042 TC ENDENTRY
029020,001315:
029021,001316: 27,7036 37043 CAF V06N62 # DISPLAY TIME, VELOCITY, AND THETAH
029022,001317: 27,7037 03100 TC NVSUB
029023,001318: 27,7040 03250 TC RELDSPON
029024,001319:
029025,001320: 27,7041 03362 TC FREEDSP
029026,001321:
029027,001322: 27,7042 02124 ENDENTRY TC ENDOFJOB
029028,001323:
029029,001324:
029030,001325:
029031,001326: 27,7043 00662 V06N62 OCT 00662
029032,001327:
|
|
Page 728
|
029034,001329:
029035,001330: 27,7044 41372 BL361 CS K2ROLL # K2ROLL = - K2ROLL
029036,001331: 27,7045 51372 TS K2ROLL
029037,001332:
029038,001333: 27,7046 11222 CCS L/D # IF L/D POS, EXIT
029039,001334: 27,7047 04703 TC RE-ENTER # SO IT WONT STORE IN PUSH LIST.
029040,001335: 27,7050 04703 TC RE-ENTER
029041,001336: 27,7051 07053 TC +2
029042,001337: 27,7052 04703 TC RE-ENTER
029043,001338:
029044,001339: 27,7053 11372 CCS K2ROLL # K1ROLL = K1ROLL + K3ROLL SIGN(K2ROLL)
029045,001340: 27,7054 37202 CAF K3ROLL # K3ROLL = - .125
029046,001341: 27,7055 07057 TC +2
029047,001342: 27,7056 47202 CS K3ROLL
029048,001343: 27,7057 61450 AD K1ROLL
029049,001344: 27,7060 51450 TS K1ROLL
029050,001345: 27,7061 04703 TC RE-ENTER # SKIPS THIS ON OVERFLOW.
029051,001346:
029052,001347: 27,7062 20000 INDEX A # POSMAX + 1 = NEGMAX ETC.
029053,001348: 27,7063 34477 CAF LIMITS # NO LIMIT ON NUMBER OF ROLL REVS DURING
029054,001349: 27,7064 61450 AD K1ROLL # ENTRY. (ROUTINE IS GENERAL.)
029055,001350: 27,7065 51450 TS K1ROLL # STILL DOESNT WORRY ABOUT 2SCOMP, THO.
029056,001351: 27,7066 04703 TC RE-ENTER
029057,001352:
029058,001353:
029059,001354:
029060,001355: 27,7067 53776 L357 SIGN 0
029061,001356: 27,7070 21176 L/DCMINR # L/D = L/DCMINR SIGN(L/D)
029062,001357: 27,7071 01223 L/D
029063,001358: 27,7072 33223 STORE L/D
029064,001359:
029065,001360: 27,7073 76776 ITC 0
029066,001361: 27,7074 16776 L355
029067,001362:
|
|
Page 729
|
029069,001364:
029070,001365: # ROUTINE TO PREDICT AND SET PITCH ANGLE FOR 2ND ENTRY CONDITIONS.
029071,001366:
029072,001367: 27,7075 32150 UPTHETA3 CAF PRIO14
029073,001368: 27,7076 02046 TC FINDVAC
029074,001369: 27,7077 57101 CADR UPTHETA1
029075,001370:
029076,001371: 27,7100 02256 TC TASKOVER
029077,001372:
029078,001373: 27,7101 04000 UPTHETA1 TC INTPRET # STARTS OFF IN BASIC
029079,001374:
029080,001375: 27,7102 76776 UPTHETA ITC 0 # FIND DESIRED SPACECRAFT ORIENTATION.
029081,001376: 27,7103 21244 GETUNB
029082,001377:
029083,001378: 27,7104 76776 ITC 0 # GET OGC, IGC, MGC.,GIMBAL COMMANDS
029084,001379: 27,7105 04353 CALCGTA
029085,001380:
029086,001381: 27,7106 66775 DSU 1 # GET UNCORRECTED ROLLBIAS
029087,001382: 27,7107 77576 EXIT
029088,001383: 27,7110 01521 OGC
029089,001384: 27,7111 00017 ROLLCTEM
029090,001385:
029091,001386: 27,7112 30115 XCH MPAC
029092,001387: 27,7113 60000 DOUBLE
029093,001388: 27,7114 50117 TS MPAC +2
029094,001389: 27,7115 07121 TC +4 # OVERFLOW CORRECT
029095,001390: 27,7116 20000 INDEX A
029096,001391: 27,7117 34477 CAF LIMITS
029097,001392: 27,7120 60117 AD MPAC +2
029098,001393:
029099,001394: 27,7121 31352 XCH ROLLBIAS # STORE NEW VALUE AND FETCH OLD.
029100,001395: 27,7122 40000 COM
029101,001396: 27,7123 50117 TS MPAC +2
029102,001397: 27,7124 61352 AD ROLLBIAS
029103,001398: 27,7125 50000 TS A # LIMIT CHANGE IN ROLLBIAS TO 180 DEG.
029104,001399: 27,7126 07131 TC +3
029105,001400:
029106,001401: 27,7127 40117 CS MPAC +2
029107,001402: 27,7130 51352 TS ROLLBIAS # USE OLD VALUE IF TOO BIG.
029108,001403:
029109,001404: 27,7131 41522 CS IGC
029110,001405: 27,7132 40000 COM
029111,001406: 27,7133 60000 DOUBLE
029112,001407: 27,7134 30701 XCH THETAD +1 # COMMAND PITCH ANGLE. (NO SKIPS)
029113,001408:
029114,001409: 27,7135 41524 CS MGC
029115,001410: 27,7136 40000 COM
029116,001411: 27,7137 60000 DOUBLE # CHANGE FROMINTERPRETER SCALING TO CDU
029117,001412: 27,7140 30702 XCH THETAD +2 # YAW, MG ANGLE COMMAND
029118,001413:
029119,001414: 27,7141 20017 INHINT
|
|
Page 730
|
029121,001416: 27,7142 37146 CAF PITCHDT # CALL UP ATTITUDE CONTROL LOOP PITCHDT
029122,001417: 27,7143 02173 TC WAITLIST # SECONDS AFTER FINISHING THIS TIME.
029123,001418: 27,7144 57075 CADR UPTHETA3
029124,001419:
029125,001420: 27,7145 02124 UPNOVER TC ENDOFJOB
029126,001421:
029127,001422:
029128,001423:
029129,001424: 27,7146 00003 PITCHDT DEC 3 B-14
029130,001425:
|
|
Page 731
|
029132,001427:
029133,001428: # PIPAS ARE READ (BUT NOT CLEARED) AT A HIGHER RATE HERE.
029134,001429:
029135,001430: 27,7147 40044 INTERPIP CS PIPAX
029136,001431: 27,7150 21414 INDEX PIPCTR
029137,001432: 27,7151 51400 TS XPIPBUF
029138,001433: 27,7152 40045 CS PIPAY
029139,001434: 27,7153 21414 INDEX PIPCTR
029140,001435: 27,7154 51404 TS YPIPBUF
029141,001436: 27,7155 40046 CS PIPAZ
029142,001437: 27,7156 21414 INDEX PIPCTR
029143,001438: 27,7157 51410 TS ZPIPBUF
029144,001439:
029145,001440: 27,7160 11414 CCS PIPCTR
029146,001441: 27,7161 07165 TC +4
029147,001442: 27,7162 35503 CAF TWO
029148,001443: 27,7163 51414 TS PIPCTR
029149,001444: 27,7164 02256 TC TASKOVER # WOULD GO TO PIPSETUP IF SMOOTHER WRITTEN
029150,001445: 27,7165 51414 TS PIPCTR
029151,001446:
029152,001447: 27,7166 37177 CAF IPIPDT1
029153,001448: 27,7167 02173 TC WAITLIST
029154,001449: 27,7170 57147 CADR INTERPIP
029155,001450:
029156,001451: 27,7171 02256 TC TASKOVER
029157,001452:
029158,001453:
029159,001454:
029160,001455: 27,7172 32151 PIPSETUP CAF PRIO15 # LOWER THAN AVG G - HIGHER THAN UPTHETA.
029161,001456: 27,7173 02052 TC NOVAC
029162,001457: 27,7174 57176 CADR SMOOTHER
029163,001458: 27,7175 02256 TC TASKOVER
029164,001459:
029165,001460:
029166,001461:
029167,001462: 27,7176 02124 SMOOTHER TC ENDOFJOB # WHEN WRITTEN, FIND A GOOD BANK FOR THIS.
029168,001463:
029169,001464:
029170,001465:
029171,001466: 27,7177 00062 IPIPDT1 DEC 50 B-14
029172,001467:
|
|
Page 732
|
029174,001469:
029175,001470: # DETERMINE TIME TO OPEN CHUTE HERE IF NEEDED
029176,001471:
029177,001472: 27,7200 BANK 27
029178,001473:
029179,001474: 27,7200 00310 DT DEC 200 B-14 # MAIN LOOP DT.
029180,001475: 27,7201 00017 DEC15 DEC 15 B-14
029181,001476:
029182,001477: 27,7202 73777 K3ROLL DEC -.125
029183,001478:
029184,001479: # DEFINED BY EQUALS
029185,001480:
029186,001481: 27,7203 ASP EQUALS 0
029187,001482: 27,7203 Y EQUALS 20D # TEMP
029188,001483: 27,7203 GAMMAL1 EQUALS 22D
029189,001484: 27,7203 1100 A1 EQUALS FX
029190,001485:
|
|
Page 733
|
029192,001487:
029193,001488: # TABLE USED FOR SUB-ORBITAL REFERENCE TRAJECTORY CONTROL.
029194,001489:
029195,001490:
029196,001491:
029197,001492: 27,7203 00000 VREFER DEC 0 B-14 # REFERENCE VELOCITY SCALED V/51532.3946
029198,001493: 27,7204 00153 DEC .006539 # 15 POINTS ARE STORED AS THE INDEPENDENT
029199,001494: 27,7205 00527 DEC .020958 # VARIABLE AND THEN SIX 15 POINT FUNC-
029200,001495: 27,7206 01235 DEC .040809 # TIONS OF V ARE STORED CONSECUTIVELY
029201,001496: 27,7207 02337 DEC .076107
029202,001497: 27,7210 03721 DEC .122156
029203,001498: 27,7211 05230 DEC .165546
029204,001499: 27,7212 06213 DEC .196012
029205,001500: 27,7213 10550 DEC .271945
029206,001501: 27,7214 11717 DEC .309533
029207,001502: 27,7215 13314 DEC .356222
029208,001503: 27,7216 14736 DEC .404192
029209,001504: 27,7217 16255 DEC .448067
029210,001505: 27,7220 16457 DEC .456023
029211,001506: 27,7221 25570 DEC .67918 # HIGH VELOCITY FOR SAFETY
029212,001507:
029213,001508: 27,7222 77573 DEC -.008035 # DRANGE/DA SCALED DRDA/(2700/805)
029214,001509: 27,7223 77573 DEC -.008035
029215,001510: 27,7224 77516 DEC -.010820
029216,001511: 27,7225 77360 DEC -.016550
029217,001512: 27,7226 77106 DEC -.026935
029218,001513: 27,7227 76516 DEC -.042039
029219,001514: 27,7230 76071 DEC -.058974
029220,001515: 27,7231 75570 DEC -.070721
029221,001516: 27,7232 74661 DEC -.098538
029222,001517: 27,7233 74436 DEC -.107482
029223,001518: 27,7234 73212 DEC -.147762
029224,001519: 27,7235 71640 DEC -.193289
029225,001520: 27,7236 54557 DEC -.602557
029226,001521: 27,7237 40000 DEC -.99999
029227,001522: 27,7240 40000 DEC -.99999
029228,001523:
029229,001524: 27,7241 00000 DEC 0 B-14 # -DRANGE/DRDOT
029230,001525: 27,7242 00000 DEC 0 B-14 # SCALED((2VS/8 2700) DR/DRDOT)
029231,001526: 27,7243 77632 DEC -.0494520 B-3
029232,001527: 27,7244 77563 DEC -.0683663 B-3
029233,001528: 27,7245 77354 DEC -.1343468 B-3
029234,001529: 27,7246 76712 DEC -.2759846 B-3
029235,001530: 27,7247 76066 DEC -.4731437 B-3
029236,001531: 27,7250 75322 DEC -.6472087 B-3
029237,001532: 27,7251 73237 DEC -1.171693 B-3
029238,001533: 27,7252 72104 DEC -1.466382 B-3
029239,001534: 27,7253 70301 DEC -1.905171 B-3
029240,001535: 27,7254 65635 DEC -2.547990 B-3
029241,001536: 27,7255 57311 DEC -4.151220 B-3
029242,001537: 27,7256 50575 DEC -5.813617 B-3
|
|
Page 734
|
029244,001539: 27,7257 50575 DEC -5.813617 B-3
029245,001540:
029246,001541: 27,7260 76265 DEC -.00642065 B3 # RDOTREF SCALED (8 RDT/2VS)
029247,001542: 27,7261 76265 DEC -.00642065 B3
029248,001543: 27,7262 74435 DEC -.0134426 B3
029249,001544: 27,7263 74333 DEC -.013947 B3
029250,001545: 27,7264 74433 DEC -.013462 B3
029251,001546: 27,7265 74763 DEC -.011813 B3
029252,001547: 27,7266 75432 DEC -.0095631 B3
029253,001548: 27,7267 75735 DEC -.00806946 B3
029254,001549: 27,7270 76200 DEC -.006828 B3
029255,001550: 27,7271 75735 DEC -.00806946 B3
029256,001551: 27,7272 75140 DEC -.0109791 B3
029257,001552: 27,7273 74075 DEC -.0151496 B3
029258,001553: 27,7274 73312 DEC -.0179817 B3
029259,001554: 27,7275 73732 DEC -.0159061 B3
029260,001555: 27,7276 73732 DEC -.0159061 B3
029261,001556:
029262,001557: 27,7277 00000 DEC 0 B-14 # RANGE TO GO SCALED RTOGO/2700
029263,001558: 27,7300 00000 DEC 0 B-14
029264,001559: 27,7301 00020 DEC .00100 # 2.7 NM
029265,001560: 27,7302 00066 DEC .0032963 # 8.9
029266,001561: 27,7303 00206 DEC .0081852 # 22.1
029267,001562: 27,7304 00431 DEC .017148
029268,001563: 27,7305 00712 DEC .027926
029269,001564: 27,7306 01136 DEC .037
029270,001565: 27,7307 02015 DEC .063296
029271,001566: 27,7310 02374 DEC .077889
029272,001567: 27,7311 03123 DEC .098815
029273,001568: 27,7312 04051 DEC .127519
029274,001569: 27,7313 05767 DEC .186963
029275,001570: 27,7314 07476 DEC .238148
029276,001571: 27,7315 07476 DEC .238148
029277,001572:
029278,001573: 27,7316 76511 DEC -.042360 # -AREF SCALED AREF/805
029279,001574: 27,7317 76511 DEC -.042360
029280,001575: 27,7320 76234 DEC -.052919
029281,001576: 27,7321 75472 DEC -.074534
029282,001577: 27,7322 74604 DEC -.101242
029283,001578: 27,7323 74210 DEC -.116646
029284,001579: 27,7324 74052 DEC -.122360
029285,001580: 27,7325 73735 DEC -.127081
029286,001581: 27,7326 73217 DEC -.147453
029287,001582: 27,7327 73013 DEC -.155528
029288,001583: 27,7330 73155 DEC -.149565
029289,001584: 27,7331 74151 DEC -.118509
029290,001585: 27,7332 76703 DEC -.034907
029291,001586: 27,7333 77575 DEC -.007950
029292,001587: 27,7334 77575 DEC -.007950
029293,001588:
|
|
Page 735
|
029295,001590: 27,7335 00006 DEC .000371 # DRANGE/D L/D SCALED Y/2700
029296,001591: 27,7336 00006 DEC .000371
029297,001592: 27,7337 00116 DEC .004770
029298,001593: 27,7340 00204 DEC .008081
029299,001594: 27,7341 00407 DEC .016030
029300,001595: 27,7342 01113 DEC .035815
029301,001596: 27,7343 02161 DEC .069422
029302,001597: 27,7344 03260 DEC .104519
029303,001598: 27,7345 03717 DEC .122
029304,001599: 27,7346 05411 DEC .172407
029305,001600: 27,7347 10057 DEC .252852
029306,001601: 27,7350 13476 DEC .363148
029307,001602: 27,7351 20324 DEC .512963
029308,001603: 27,7352 21677 DEC .558519
029309,001604: 27,7353 21677 DEC .558519 # END OF STORED REFERENCE
029310,001605:
|
|
Page 736
|
029312,001607:
029313,001608: # CONTINUATION OF RE-ENTRY SECTION IN 2ND BANK. (CONSTANTS AND M923=8
029314,001609:
029315,001610: 30,7042 BANK 30
029316,001611: 30,7042 37777 37777 NEARONE 2DEC .999999999
029317,001612: 30,7044 12525 12525 1/3RD 2DEC .333333333 # ONE THIRD
029318,001613: 30,7046 02525 12525 1/12TH 2DEC .0833333333 # ONE TWELFTH
029319,001614: # VSAT = 25766.1973 FT/SEC.
029320,001615:
029321,001616: # RE = 21,202,900 FEET
029322,001617:
029323,001618: 30,7050 03146 14632 LEWD1 2DEC .1
029324,001619: 30,7052 06314 31463 LEWD2 2DEC .2
029325,001620: 30,7054 10000 00000 FOURTH 2DEC .25
029326,001621: 30,7056 00000 00000 3ZEROS 2DEC 0 B-28
029327,001622: 30,7060 00000 00001 1BITDP 2OCT 0000000001 # DOUBLE PREC 1 BIT
029328,001623: 30,7062 00000 DEC 0 B-14
029329,001624: 30,7063 07777 00000 NEAR1/4 2OCT 0777700000 # 1/4 LESS 1 BIT IN UPPER PART.
029330,001625: 30,7065 00236 36763 C18 2DEC .0097026346 # 500/2VS
029331,001626: 30,7067 00012 05512 KDMIN 2DEC .00062111801 # .5/805
029332,001627: 30,7071 02000 00000 C1/16 2DEC .0625 # 1/16
029333,001628: 30,7073 76407 76670 Q2 2DEC -.046388889 # -1002/21600 =(643/21600-Q2(23500/2VS))
029334,001629: 30,7075 05260 05572 Q3 2DEC .167003132 # .07 2VS/21600
029335,001630: 30,7077 12343 21616 Q5 2DEC .326388889 # .3 23500/21600
029336,001631: 30,7101 01073 26234 Q6 2DEC .034893617 # 820/23500
029337,001632: 30,7103 00172 03571 Q7F 2DEC .0074534161 # 6/805 (VALUE OF Q7 IN FIXED MEM.)
029338,001633: 30,7105 13132 33062 VMIN 2DEC .34929485 # 18000/2VS
029339,001634: 30,7107 00160 05104 C12 2DEC .00684572901 # 32 28500/(21102900 2 PI)
029340,001635: 30,7111 11322 32265 KB1 2DEC .29411765 # 1/3.4
029341,001636: 30,7113 75047 72454 KB2 2DEC -.0057074322 B4 # -16/(.0034 2 VS)
|
|
Page 737
|
029343,001638: 30,7115 05125 33500 C19 2DEC .16149068 # 130/805
029344,001639: 30,7117 00475 35746 VCORLIM 2DEC .019405269 # 1000/2VS
029345,001640: 30,7121 30,7117 VQUIT EQUALS VCORLIM # BOTH ARE 1000 FT/SEC
029346,001641: 30,7121 06751 27515 C20 2DEC .21739130 # (175 FPSS) LIFT UP IF ABOVE C20
029347,001642: 30,7123 00001 05732 25NM 2DEC .0011574074 B-4 # 25/(21600 16) (25 NAUT MILES)
029348,001643: 30,7125 01003 06315 K1D 2DEC .0314453125 # .01 805/256
029349,001644: 30,7127 71435 75516 K2D 2DEC -.201298418 # -.001 2VS/256
029350,001645: 30,7131 32047 24367 KVSCALE 2DEC .81491944 # 12800/(2 VS .3048)
029351,001646: 30,7133 37200 05636 KASCALE 2DEC .97657358 # 5.85 16384/(4 .3048 100 805)
029352,001647: 30,7135 00046 13137 KTETA 2DEC* .383495203 E2 B-14* # 1000 2PI/16384(163.84)
029353,001648: 30,7137 00017 30730 KT 2DEC* .157788327 E2 B-14* # RE(2PI)/2VS(16384)163.84
029354,001649: 30,7141 00040 30447 .05G 2DEC .002 # .05/25
029355,001650: 30,7143 11463 06315 LAD 2DEC .3
029356,001651: 30,7145 00023 06315 LAD/256 2DEC .001171875 # .3/256
029357,001652: 30,7147 00314 31463 KLAT 2DEC .0125
029358,001653: 30,7151 00000 17565 LATBIAS 2DEC .00003 # APPRX .5 NM/ 4(21600/2 PI)
029359,001654: 30,7153 03657 00206 KWE 2DEC .120056652
029360,001655: 30,7155 00121 17460 KACOS 2DEC .004973592 # 1/32(2PI)
029361,001656: 30,7157 01000 00000 CHOOK 2DEC 1 B-5 # .25/8
029362,001657: 30,7161 04000 00000 1/8TH 2DEC .125
029363,001658: 30,7163 07534 05075 CH1 2DEC .24 # 8 CH1/25 (CH1 = .75)
029364,001659: 30,7165 75267 64700 KC3 2DEC -.082540747 # KC3 (2VS)SQ /2PI 2S 32.2 LAD R
029365,001660: 30,7167 05605 03656 LOD 2DEC .18
029366,001661: 30,7171 00336 21610 VRCONT 2DEC .0135836886 # 700/2 VSAT
029367,001662: 30,7173 20000 00000 HALVE 2DEC .5
|
|
Page 738
|
029369,001664: 30,7175 27,7202 NEG1/8 EQUALS K3ROLL # ONLY A SINGLE PRECISION NUMBER.
029370,001665: 30,7175 11207 05301 L/DCMINR 2DEC .2895 # LAD COS(15 DEG)
029371,001666: 30,7177 77700 62716 C/D0 2DEC -.00387019231
029372,001667: 30,7201 06314 31463 GMAX/2 2DEC .2 # 5/25
029373,001668: 30,7203 14631 23146 1/GMAX 2DEC .4
029374,001669: 30,7205 00433 02775 2HS 2DEC .0172786611 # 2 28500 25 32.2/(4 VS VS)
029375,001670: 30,7207 00000 31027 2HSGMXSQ 2DEC .000047768341 # ((2 28500 322/(4VS VS))SQ
029376,001671: 30,7211 04555 27667 KWIEM 2DEC .147323336 # RESULT IN METERS OVER 12800
029377,001672: 30,7213 37173 26300 COS(13) 2DEC .9763 # REAL COS OF 12.5 DEG. NOT 1/2 COSINE.
029378,001673: 30,7215 71045 73065 -SIN(13) 2DEC -.21644 # REAL SIN OF 12.5 DEG. NO FACTOR OF 1/2
029379,001674:
029380,001675:
029381,001676: 30,7217 00541 33575 2C1HS 2DEC .0215983264 # 2 1.25 28500 805/(2 VS)SQ
029382,001677: 30,7221 02233 21637 2C1HSLAD 2DEC .071994421 # 2 1.25 28500 805/(.3 4 VS VS)
029383,001678: 30,7223 03146 14632 POINT1 2DEC .1
029384,001679: 30,7225 00034 30623 K44 2DEC .00175626224 # 2 VS/(156 57.3 57.3 57.3)
029385,001680: 30,7227 17414 14575 VFINAL 2DEC .48513173 # 25000/2 VS
029386,001681: 30,7231 02436 27024 KAT 2DEC .08 # 2 G-S (2/25)
029387,001682: 30,7233 31463 06315 POINT8 2DEC .8
029388,001683: 30,7235 06314 31463 POINT2 2DEC .2
029389,001684: 30,7237 01310 13103 Q7MIN 2DEC .043478261 # 35/805
029390,001685: 30,7241 00146 14632 PT1/16 2DEC .00625
029391,001686:
029392,001687: # ... END OF RE-ENTRY CONSTANTS ...
029393,001688:
|
|
Page 739
|
029395,001690:
029396,001691: # CLOSED SUBROUTINE TO COMPUTE DESIRED NAV BASE ORIENTATION
029397,001692: # NEEDED DURING ENTRY PHASE.
029398,001693:
029399,001694: # ENTER WITH VN, UNITR, UNITW, AND ROLLC
029400,001695: # COMPUTES UXNB, UYNB, AND UZNB. (NAV BASE UNIT VECTORS)
029401,001696:
029402,001697:
029403,001698:
029404,001699: 30,7243 76573 GETUNB RTB 3 # RESET PUSH COUNTER.
029405,001700: 30,7244 41766 VXV VXSC # GET VELOCITY OF ATMOSPHERE
029406,001701: 30,7245 50753 VAD UNIT # GET UVA., RELATIVE VELOCITY
029407,001702: 30,7246 75776 VXSC # RESOLVE BY COS OF 13 DEG.
029408,001703: 30,7247 20265 FRESHPD
029409,001704: 30,7250 01016 UNITR
029410,001705: 30,7251 01044 UNITW # NEG OF REAL VEL.
029411,001706: 30,7252 21212 KWIEM # EARTH RATE CONST IN METERS X 4.
029412,001707: 30,7253 00774 VN
029413,001708: 30,7254 21214 COS(13) # UVA COS(13) INTO PD.
029414,001709:
029415,001710: 30,7255 47575 NOLOD 1
029416,001711: 30,7256 41753 VXV UNIT # UYA = UNIT(VA*RN)
029417,001712: 30,7257 01016 UNITR
029418,001713: 30,7260 32021 STORE 16D # UYA INTO LOC 16 OF VAC AREA.
029419,001714:
029420,001715: 30,7261 45176 DMOVE 0 # SAVE ROLLC SO THAT IT CANNOT CHANGE
029421,001716: 30,7262 01473 ROLLC # DURING THIS SUBROUTINE
029422,001717: 30,7263 32017 STORE ROLLCTEM # INTO LOC 14 OF PUSH LIST
029423,001718:
029424,001719: 30,7264 47575 NOLOD 1 # COS(ROLLC)
029425,001720: 30,7265 55166 COS VXSC # UYA COS(ROLLC). PUSH INTO LOC 6.
029426,001721: 30,7266 00021 16D
029427,001722:
029428,001723: 30,7267 57176 SIN 0
029429,001724: 30,7270 00017 ROLLCTEM # SIN(ROLLC) INTO PD AT LOC 12.
029430,001725:
029431,001726: 30,7271 41774 VXV 2 # UNA = UNIT(UYA*UVA)
029432,001727: 30,7272 73166 UNIT VXSC # UNB = UYA COS(ROLL) + UNA SIN(ROLL)
029433,001728: 30,7273 50753 VAD UNIT # UNIT COULD BE REPLACED BY VSLT 1.
029434,001729: 30,7274 00021 16D # UYA STORED AT LOC 16
029435,001730: 30,7275 00001 0 # UVA FIRST ITEM INTO PUSH LIST
029436,001731: 30,7276 33505 STORE UYNB # 1 SCAL AND 1 VEC FROM PD.
029437,001732:
029438,001733: 30,7277 47574 NOLOD 2
029439,001734: 30,7300 41753 VXV UNIT # UN = UNIT (UYNB*UVA)
029440,001735: 30,7301 75762 VXSC VSU # UXNB = -UN SIN(13) -UVA COS(13)
029441,001736: 30,7302 00001 0
029442,001737: 30,7303 21216 -SIN(13) # PULLS UVA COS(13) FRON PD.
029443,001738: 30,7304 33477 STORE UXNB
029444,001739:
029445,001740: 30,7305 47575 NOLOD 1
|
|
Page 740
|
029447,001742: 30,7306 41622 VXV VSLT # UZNB = UXNB*UYNB
029448,001743: 30,7307 01505 UYNB
029449,001744: 30,7310 00002 1
029450,001745: 30,7311 33513 STORE UZNB
029451,001746:
029452,001747: 30,7312 40576 ITCQ 0 # AND RETURN.
029453,001748:
029454,001749:
029455,001750:
029456,001751: 30,7313 ROLLCTEM EQUALS 14D
029457,001752:
|
|
Page 741
|
029459,001754:
029460,001755: # SUBROUTINE TO READ PIPA COUNTERS, TRYING TO BE VERY CAREFUL SO THAT
029461,001756: # IT WILL BE RESTARTABLE.
029462,001757:
029463,001758: # (ARRIVE IN INTERRUPTED STATE OR INHIBITED AFTER RESTART.)
029464,001759: # (EXIT IS THRU ISWRETRN)
029465,001760:
029466,001761: 30,7313 45501 PIPASR CS ZERO # PUT THESE INTO THE IMPOSSIBLE STATE
029467,001762: 30,7314 51031 TS TEMX # FOR THEIR INITIAL VALUES.
029468,001763: 30,7315 51032 TS TEMY
029469,001764: 30,7316 51033 TS TEMZ
029470,001765: 30,7317 35501 CAF ZERO
029471,001766: 30,7320 51002 TS DELVX +1
029472,001767: 30,7321 51004 TS DELVY +1 # PIP COUNTERS MAY NOT HAVE POS ZERO IN
029473,001768: 30,7322 51006 TS DELVZ +1
029474,001769: 30,7323 51035 TS PIPAGE # ZERO THIS TO INDICATE IN PIPA READING.
029475,001770:
029476,001771: 30,7324 02677 REPIP1 TC READTIME +1 # PROBABLY NOT NEEDED SINCE NOT MUCH
029477,001772: 30,7325 40573 CS RUPTSTOR +1 # CHANCE OF TIME1 OVERFLOWING NOW. (BUT
029478,001773: 30,7326 51465 TS PIPTIME +1 # JUST POSSIBLE IF MANY RESTARTS.
029479,001774: 30,7327 40572 CS RUPTSTOR
029480,001775: 30,7330 51464 TS PIPTIME
029481,001776:
029482,001777: 30,7331 40044 CS PIPAX
029483,001778: 30,7332 51034 TS TEMXY
029484,001779: 30,7333 31031 XCH TEMX # PUT NEGZERO INTO PIPACTRS AS READ.
029485,001780: 30,7334 30044 XCH PIPAX
029486,001781: 30,7335 51001 REPIP1B TS DELVX
029487,001782: 30,7336 51002 TS DELVX +1 # DOUBLE SAVE.
029488,001783:
029489,001784: 30,7337 40045 REPIP2 CS PIPAY
029490,001785: 30,7340 51034 TS TEMXY
029491,001786: 30,7341 31032 XCH TEMY
029492,001787: 30,7342 30045 XCH PIPAY
029493,001788: 30,7343 51003 REPIP2B TS DELVY
029494,001789: 30,7344 51004 TS DELVY +1
029495,001790:
029496,001791: 30,7345 40046 REPIP3 CS PIPAZ # REPEAT PROCESS FOR Z PIPA.
029497,001792: 30,7346 51034 TS TEMXY # SAVE NEG OF PIPA READ
029498,001793: 30,7347 31033 XCH TEMZ # SAVE HERE AS PICK UP NEGZERO
029499,001794: 30,7350 30046 XCH PIPAZ # RESETTING PIPA AS READ OUT)
029500,001795: 30,7351 51005 REPIP3B TS DELVZ # AND STORE IN Z.
029501,001796: 30,7352 51006 TS DELVZ +1 # SHOWS THAT IT REALLY MADE IT.
029502,001797:
029503,001798: 30,7353 45501 REPIP4 CS ZERO # LEAVE THESE AT NEGZERO
029504,001799: 30,7354 51002 TS DELVX +1
029505,001800: 30,7355 51004 TS DELVY +1
029506,001801: 30,7356 51006 TS DELVZ +1
029507,001802: 30,7357 44516 CS BIT1
029508,001803: 30,7360 70675 MASK TMMARKER
029509,001804: 30,7361 64516 AD BIT1 # SET BIT 1 IN TM MARKER.
|
|
Page 742
|
029511,001806: 30,7362 50675 TS TMMARKER
029512,001807: 30,7363 05761 TC ISWRETRN # AND EXIT. SHOULD HAVE COME THRU ICALL
029513,001808:
|
|
Page 743
|
029515,001810:
029516,001811: # ROUTINE TO RESTART IF READING PIPA COUNTERS.
029517,001812:
029518,001813: 30,7364 11035 REPIPASR CCS PIPAGE # WAS I READING PIPS.
029519,001814: 30,7365 07313 TC PIPASR # NO.. PIPAGE = PLUS CONST.
029520,001815: 30,7366 11006 CCS DELVZ +1 # PIPAGE = 0 (I WAS READING PIPS.)
029521,001816: 30,7367 07353 TC REPIP4 # Z WAS READ OK.
029522,001817: 30,7370 07373 TC +3 # Z NOT DONE, CHECK Y.
029523,001818: 30,7371 07353 TC REPIP4
029524,001819: 30,7372 07353 TC REPIP4
029525,001820: 30,7373 11004 CCS DELVY +1 # HAS IT CHANGED FROM ITS +ZERO INIT VALU
029526,001821: 30,7374 07377 TC +3 # YES, Y DONE. TRY TO REDO Z.
029527,001822: 30,7375 07406 TC CHKDELVX # NO, GO LOOK AT X.
029528,001823: 30,7376 07377 TC +1 # YES.
029529,001824: 30,7377 11033 CCS TEMZ # DOES TEMZ STILL = -0.
029530,001825: 30,7400 07404 TC +4 # NO TRY TO RESTORE
029531,001826: 30,7401 07404 TC +3
029532,001827: 30,7402 07404 TC +2
029533,001828: 30,7403 07345 TC REPIP3 # YES, GO BACK AND READ Z AGAIN.
029534,001829: 30,7404 41034 CS TEMXY # MUCH MORE LOGIC COULD BE INCORPORATED
029535,001830: 30,7405 07351 TC REPIP3B # TO CHECK PIPA CTR FOR SIZE.
029536,001831:
029537,001832: 30,7406 11002 CHKDELVX CCS DELVX +1 # HAS THIS CHANGED.
029538,001833: 30,7407 07412 TC +3 # YES
029539,001834: 30,7410 07421 TC CHKTEMX # NO.
029540,001835: 30,7411 07412 TC +1 # YES
029541,001836: 30,7412 11032 CCS TEMY
029542,001837: 30,7413 07417 TC +4
029543,001838: 30,7414 07417 TC +3
029544,001839: 30,7415 07417 TC +2
029545,001840: 30,7416 07337 TC REPIP2
029546,001841: 30,7417 41034 CS TEMXY
029547,001842: 30,7420 07343 TC REPIP2B
029548,001843:
029549,001844: 30,7421 11031 CHKTEMX CCS TEMX # HAS THIS CHANGED.
029550,001845: 30,7422 07426 TC +4 # YES
029551,001846: 30,7423 07426 TC +3 # YES
029552,001847: 30,7424 07426 TC +2 # YES
029553,001848: 30,7425 07324 TC REPIP1 # NO
029554,001849: 30,7426 41034 CS TEMXY
029555,001850: 30,7427 07335 TC REPIP1B
029556,001851:
|
|
Page 744
|
029558,001853:
029559,001854: # ENTRY INITIALIZATION ROUTINE.
029560,001855: # -----------------------------
029561,001856: 30,7430 02276 STARTENT TC PHASCHNG # KEEP UPTHETA RUNNING IN CASE OF RESTART.
029562,001857: 30,7431 03204 OCT 03204 # 4.26 RESTART.
029563,001858:
029564,001859: 30,7432 02276 TC PHASCHNG # PICK UP CURRENT STRING AT NEWMODE63.
029565,001860: 30,7433 02305 OCT 02305 # 5.19 RESTART. RESYNCING PIPUP ALSO.
029566,001861:
029567,001862: 30,7434 20017 INHINT
029568,001863: 30,7435 32150 CAF PRIO14 # ESTABLISH UPTHETA FOR 1ST TIME.
029569,001864: 30,7436 02046 TC FINDVAC
029570,001865: 30,7437 57101 CADR UPTHETA1 # START UPTHETA JOB.
029571,001866:
029572,001867: 30,7440 20016 RELINT
029573,001868: 30,7441 02362 NUMODE63 TC NEWMODE
029574,001869: 30,7442 00063 OCT 00063 # ENTRY PHASE = MODE 63
029575,001870:
029576,001871: 30,7443 37516 CAF INITCADR
029577,001872: 30,7444 51374 TS GOTOADDR
029578,001873: 30,7445 37517 CAF EARGCADR
029579,001874: 30,7446 51042 TS CALCG
029580,001875: 30,7447 35501 CAF ZERO
029581,001876: 30,7450 51350 TS TENTRY
029582,001877: 30,7451 51352 TS ROLLBIAS
029583,001878: 30,7452 37520 CAF NUDELTAT
029584,001879: 30,7453 51027 TS DELTAT
029585,001880: 30,7454 37521 CAF NU/PIPDT
029586,001881: 30,7455 50755 TS 1/PIPADT
029587,001882: 30,7456 47522 CS ENTMASK
029588,001883: 30,7457 20017 INHINT # INITIALIZE SWITCHES (BITS6:10,15 IN
029589,001884: 30,7460 70645 MASK STATE # STATE) 6=GONEPAST,7=RELVELSW,8=EGSW
029590,001885: 30,7461 67523 AD ENTRYSW # 9=HUNTSW1, 10=HIND, 15=INRLSW
029591,001886: 30,7462 50645 TS STATE # ALL BUT RELVELSW SET TO NON-BRANCH (1)
029592,001887: 30,7463 20016 RELINT
029593,001888: 30,7464 04000 TC INTPRET
029594,001889:
029595,001890: 30,7465 76574 RTB 2 # SET CDUX AGAIN JUST IN CASE.
029596,001891: 30,7466 41612 VXV DOT
029597,001892: 30,7467 47171 COMP RTB
029598,001893: 30,7470 20721 CDUXFIX
029599,001894: 30,7471 00774 VN
029600,001895: 30,7472 01016 UNITR
029601,001896: 30,7473 01115 RTINIT # THIS GIVES LATANG.
029602,001897: 30,7474 20607 SIGNMPAC # GETS SIGN OF MPAC
029603,001898: 30,7475 33373 STORE K2ROLL # K2ROLL = -SIGN(LATANG)
029604,001899:
029605,001900: 30,7476 42775 DOT 1
029606,001901: 30,7477 63703 TSLT ACOS
029607,001902: 30,7500 01016 UNITR
029608,001903: 30,7501 01115 RTINIT
|
|
Page 745
|
029610,001905: 30,7502 00002 1
029611,001906: 30,7503 33111 STORE THETAH
029612,001907:
029613,001908: 30,7504 75176 VMOVE 0
029614,001909: 30,7505 01215 RT
029615,001910: 30,7506 33115 STORE RTINIT
029616,001911:
029617,001912: 30,7507 47176 COMP 0
029618,001913: 30,7510 01145 DTEAROT
029619,001914: 30,7511 33145 STORE DTEAROT
029620,001915:
029621,001916: 30,7512 76776 ITC 0
029622,001917: 30,7513 13450 EARROT1
029623,001918: 30,7514 76576 RTB 0
029624,001919: 30,7515 17033 OVERNOUT # EXIT SETTING RESTART BITS TO 5.12 FOR EN
029625,001920:
029626,001921:
029627,001922:
029628,001923: 30,7516 62701 INITCADR CADR INITROLL
029629,001924: 30,7517 61664 EARGCADR CADR CALCGEAR
029630,001925: 30,7520 14400 NUDELTAT DEC 200 B5
029631,001926: 30,7521 31000 NU/PIPDT DEC 200 B6
029632,001927: 30,7522 01741 ENTMASK OCT 01741
029633,001928: 30,7523 01341 ENTRYSW OCT 01341
End of include-file REENTRY_CONTROL.agc. Parent file is MAIN.agc