Source Code

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