Source Code

These source-code files were obtained by digitally photographing a Solarium 55 (Apollo 6) program listing from the American Computer Museum in Bozeman, Montana. Photography was by Ron Burkey, with assistance from museum curator George Keremedjiev and Montana State University curator Kim Scott. The listing originally belonged to Eldon C. Hall, who donated it to the museum. Volunteers then manually typed in the source code or else modified similar pre-existing Colossus 249 (Apollo 9) source files to incorporate changes, although this transcription was principally done by Jim Lawton and corrected by Ron Burkey. Notations on the program listing read, in part:

        YUL SYSTEM FOR AGC4: REVISION 0 OF PROGRAM SOLRUM55
	BY NASA 1021108-021                    DEC. 4, 1966
Note that the date is the date of the printout, not the date of the program revision.

Due to statements by Jay Sampson, the original contractor from AC Electronics who created Solarium 54 (Apollo 4) from the earlier Corona (AS-202 mission) program, it is believed that Solarium 54 and Solarium 55 (Apollo 6) are actually identical programs. The change in numbering, from 54 to 55, is believed to be for some administrative purpose. Thus, it is believed that the source-code represented here is equally appropriate for both Apollo 4 and Apollo 6 missions.

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