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