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.

012913,000002:                                                                                                  ## Copyright:   Public domain.
012914,000003:                                                                                                  ## Filename:    PRELAUNCH_ALIGNMENT_PROGRAM.agc
012915,000004:                                                                                                  ## Purpose:     Part of the source code for Solarium build 55. This
012916,000005:                                                                                                  ##              is for the Command Module's (CM) Apollo Guidance
012917,000006:                                                                                                  ##              Computer (AGC), for Apollo 6.
012918,000007:                                                                                                  ## Assembler:   yaYUL --block1
012919,000008:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
012920,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
012921,000010:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Solarium055/
012922,000011:                                                                                                  ## Mod history: 2009-10-05 JL   Created.
012923,000012:                                                                                                  ##              2009-10-30 JL   Fixed filename comment.
012924,000013:                                                                                                  ##              2016-08-20 RSB  Resolved Jim's uncertainty about TP.
012925,000014:                                                                                                  ##              2016-08-23 RSB  Typos.
012926,000015:                                                                                                  ##              2016-12-28 RSB  Proofed comment text using octopus/ProoferComments,
012927,000016:                                                                                                  ##                              and fixed errors found.
012928,000017: 

Page 332

012930,000019: 
012931,000020:                                                                                                  #  THE PRELAUNCH ALIGNMENT PROGRAM CONSISTS OF TWO PARTS- VERTICAL ERECTION AND GYROCOMPASSING. IN THE FIRST CASE
012932,000021:                                                                                                  #  THE Z PIPA INPUTS ARE USED TO CONTROL THE Y GYRO IN SUCH A WAY THAT THESE INPUTS ARE NULLED. A SIMILAR SIT-
012933,000022:                                                                                                  #  UATION APPLIES TO THE Y PIPA INPUTS AND THE Z GYRO.IN THE GYROCOMPASSING CASE, THE Y PIPA INPUTS ARE USED IN
012934,000023:                                                                                                  #  EXACTLY THE SAME FASHION AS IN VERTICAL ERECTION. THE Z PIPA INPUTS ARE SPLIT BETWEEN THE Y GYRO TO HOLD THE
012935,000024:                                                                                                  #  VERTICAL AND THE X GYRO TO POINT THE Z AXIS ALONG SOME DESIRED AZIMUTH. 
012936,000025: 
012937,000026: 
012938,000027: 
012939,000028:                                                                                                  #  WHILE PRELAUNCH IS ACTIVE IT STAYS IN THE EXECUTIVE AND USES THE SLEEP/WAKE FEATURES. BY THIS MEANS MOST
012940,000029:                                                                                                  #  ERASABLE USAGE IS CONFINED TO A VAC AREA. THE ASSIGNMENT IS AS FOLLOWS-
012941,000030: 
012942,000031: 30,6252                        SINLAM             =        34D                                   #  SIN OF LATITUDE
012943,000032: 30,6252                        COSLAM             =        36D                                   #  COSINE OF LATITUDE
012944,000033: 30,6252                        SINAZ              =        2                                     #  SIN OF AZIMUTH
012945,000034: 30,6252                        COSAZ              =        4                                     #  COSINE OF AZIMUTH
012946,000035: 21,6000                                           SETLOC   42000                                 
012947,000036: 
012948,000037: 21,6000           04000        TOP1               TC       INTPRET                               
012949,000038: 
012950,000039: 21,6001           45175                           DMOVE    1                                     #  THIS START DISPLAYS ALL INPUTS FOR CHEK
012951,000040: 21,6002           76575                           RTB      EXIT                                  
012952,000041: 21,6003           01317                                    AZIMUTH                               
012953,000042: 21,6004           20325                                    1STO2S                                
012954,000043: 
012955,000044: 21,6005           03302                           TC       GRABDSP                               
012956,000045: 21,6006           03310                           TC       PREGBSY                               
012957,000046: 
012958,000047: 21,6007           30115                           XCH      MPAC                                  
012959,000048: 21,6010           50616                           TS       DSPTEM1                               
012960,000049: 21,6011           35501                           CAF      ZERO                                  
012961,000050: 21,6012           50617                           TS       DSPTEM1    +1                         
012962,000051: 
012963,000052: 21,6013           07542                           TC       CHECKNV                               #  DISPLAY AZIMUTH
012964,000053: 21,6014           00661                           OCT      00661                                 #  (N.B. CAN NOT BE MODIFIED    ...ALK)
012965,000054: 
012966,000055: 21,6015           06745                           TC       PRELEXIT   -1                         
012967,000056: 
012968,000057: 21,6016           04000                           TC       INTPRET                               
012969,000058: 
012970,000059: 21,6017           63776                           TSLT     0                                     
012971,000060: 21,6020           01315                                    LATITUDE                              
012972,000061: 21,6021           00003                                    2                                     
012973,000062: 21,6022           32620                           STORE    DSPTEM1    +1                         
012974,000063: 
012975,000064: 21,6023           45175                           DMOVE    1                                     
012976,000065: 21,6024           76575                           RTB      EXIT                                  
012977,000066: 21,6025           01353                                    VAZ                                   
012978,000067: 21,6026           20325                                    1STO2S                                
012979,000068: 
012980,000069: 21,6027           30115                           XCH      MPAC                                  

Page 333

012982,000071: 21,6030           50616                           TS       DSPTEM1                               
012983,000072: 
012984,000073: 21,6031           07542                           TC       CHECKNV                               #  DISPLAY VEHICLE AZIMUTH, LATITUDE
012985,000074: 21,6032           00661                           OCT      00661                                 #  (SEE N.B. ABOVE)
012986,000075: 
012987,000076: 21,6033           06745                           TC       PRELEXIT   -1                         
012988,000077: 
012989,000078: 21,6034           03362                           TC       FREEDSP                               #  DONE WITH DSKY.
012990,000079: 
012991,000080: 21,6035           04000                           TC       INTPRET                               
012992,000081: 
012993,000082: 21,6036           45175        TOP3               DMOVE    1                                     #  COMPUTES GIMBAL ANGLES
012994,000083: 21,6037           76565                           RTB      AXT,1                                 
012995,000084: 21,6040           15617                                    SCNBMAT    +8D                        
012996,000085: 21,6041           20271                                    ZEROVAC                               
012997,000086: 21,6042           00023                                    18D                                   
012998,000087: 21,6043           32001                           STORE    0                                     
012999,000088: 
013000,000089: 21,6044           55176                           COS      0                                     
013001,000090: 21,6045           01353                                    VAZ                                   
013002,000091: 21,6046           32011                           STORE    8D                                    
013003,000092: 
013004,000093: 21,6047           47576                           NOLOD    0                                     
013005,000094: 21,6050           32021                           STORE    16D                                   
013006,000095: 
013007,000096: 21,6051           57176                           SIN      0                                     
013008,000097: 21,6052           01353                                    VAZ                                   
013009,000098: 21,6053           32017                           STORE    14D                                   
013010,000099: 
013011,000100: 21,6054           47575                           NOLOD    1                                     
013012,000101: 21,6055           47065                           COMP     AST,1                                 
013013,000102: 21,6056           00007                                    6                                     
013014,000103: 21,6057           32013                           STORE    10D                                   
013015,000104: 
013016,000105: 21,6060           74175        TOP33              VMOVE*   1                                     
013017,000106: 21,6061           51622                           VXM      VSLT                                  
013018,000107: 21,6062           33461                                    SCNBMAT    +18D,1                     
013019,000108: 21,6063           00001                                    0                                     
013020,000109: 21,6064           00002                                    1                                     
013021,000110: 21,6065           37241                           STORE    XNB        +18D,1                     
013022,000111: 
013023,000112: 21,6066           51576                           TIX,1    0                                     
013024,000113: 21,6067           02061                                    TOP33                                 
013025,000114: 
013026,000115: 21,6070           76776                           ITC      0                                     
013027,000116: 21,6071           03446                                    MAKEXSM                               
013028,000117: 
013029,000118: 21,6072           76776                           ITC      0                                     
013030,000119: 21,6073           04644                                    CALCGA                                

Page 334

013032,000121: 21,6074           47575                           NOLOD    1                                     
013033,000122: 21,6075           77176                           TP                                             
013034,000123: 21,6076           33323                           STORE    PRELXGA                               
013035,000124: 
013036,000125: 21,6077           77576                           EXIT     0                                     
013037,000126: 
013038,000127:                                                                                                  #  ENTER AT TOP2 IF GIMBAL ANGLES, AZIMUTH, LATITUDE ALREADY KEYED IN
013039,000128: 
013040,000129: 
013041,000130: 
013042,000131: 21,6100           05654        TOP2               TC       BANKCALL                              #  GO AND START CDU ZEROING
013043,000132: 21,6101           30000                           CADR     IMUZERO                               
013044,000133: 
013045,000134: 21,6102           02362                           TC       NEWMODE                               
013046,000135: 21,6103           00001                           OCT      01                                    #  INITIALIZATION.
013047,000136: 
013048,000137: 21,6104           33543                           CAF      NINETEEN                              #  INITIALIZE ERASABLE MEMORY TO ZEROS
013049,000138: 21,6105           31446        ZEROS1             XCH      THETAY                                
013050,000139: 21,6106           35501                           CAF      ZERO                                  
013051,000140: 21,6107           21446                           INDEX    THETAY                                
013052,000141: 21,6110           51356                           TS       FILTER                                
013053,000142: 21,6111           11446                           CCS      THETAY                                
013054,000143: 21,6112           06105                           TC       ZEROS1                                
013055,000144: 
013056,000145: 21,6113           33533                           CAF      ELEVEN                                
013057,000146: 21,6114           31446        ZEROS2             XCH      THETAY                                
013058,000147: 21,6115           35501                           CAF      ZERO                                  
013059,000148: 21,6116           21446                           INDEX    THETAY                                
013060,000149: 21,6117           51446                           TS       THETAY                                
013061,000150: 21,6120           11446                           CCS      THETAY                                
013062,000151: 21,6121           06114                           TC       ZEROS2                                
013063,000152: 
013064,000153: 21,6122           33571                           CAF      SIXHNDRD                              #  INITIALIZE FOR 5 MIN VERTICAL
013065,000154: 21,6123           51320                           TS       GYROCSW                               
013066,000155: 
013067,000156: 21,6124           05654                           TC       BANKCALL                              #  INITIALIZATION COMPLETE SO STALL
013068,000157: 21,6125           30331                           CADR     IMUSTALL                              
013069,000158: 21,6126           06746                           TC       PRELEXIT                              
013070,000159: 
013071,000160: 
013072,000161: 
013073,000162: 21,6127           41322                           CS       PRELXGA                               #  LOAD DESIRED CDU ANGLES.
013074,000163: 21,6130           40000                           COM                                            
013075,000164: 21,6131           50700                           TS       THETAD                                
013076,000165: 21,6132           41323                           CS       PRELYGA                               
013077,000166: 21,6133           40000                           COM                                            
013078,000167: 21,6134           50701                           TS       THETAD     +1                         
013079,000168: 21,6135           41324                           CS       PRELZGA                               
013080,000169: 21,6136           40000                           COM                                            
013081,000170: 21,6137           50702                           TS       THETAD     +2                         

Page 335

013083,000172: 21,6140           02276                           TC       PHASCHNG                              #  GO INTO COARSE ALIGN PHASE.
013084,000173: 21,6141           02103                           OCT      02103                                 #  3.17 RESTART.
013085,000174: 
013086,000175: 21,6142           05654        REPL11             TC       BANKCALL                              
013087,000176: 21,6143           30104                           CADR     IMUCOARS                              
013088,000177: 
013089,000178: 21,6144           05654                           TC       BANKCALL                              #  NOTHING TO DO BUT SPEEP
013090,000179: 21,6145           30331                           CADR     IMUSTALL                              
013091,000180: 21,6146           06746                           TC       PRELEXIT                              
013092,000181: 
013093,000182: 
013094,000183: 
013095,000184: 21,6147           02276        STARTPL2           TC       PHASCHNG                              #  START FINE ALIGN - INITIALIZATION PHASE.
013096,000185: 21,6150           02203                           OCT      02203                                 #  3.18 RESTART.
013097,000186: 
013098,000187: 21,6151           05654        REPL12             TC       BANKCALL                              
013099,000188: 21,6152           30143                           CADR     IMUFINE                               
013100,000189: 
013101,000190: 21,6153           02676                           TC       READTIME                              
013102,000191: 21,6154           40572                           CS       RUPTSTOR                              
013103,000192: 21,6155           51370                           TS       PREVTIME                              
013104,000193: 21,6156           40573                           CS       RUPTSTOR   +1                         
013105,000194: 21,6157           51371                           TS       PREVTIME   +1                         
013106,000195: 21,6160           20016                           RELINT                                         
013107,000196: 
013108,000197: 21,6161           05654                           TC       BANKCALL                              #  SLEEP
013109,000198: 21,6162           30331                           CADR     IMUSTALL                              
013110,000199: 21,6163           06746                           TC       PRELEXIT                              
013111,000200: 
013112,000201: 
013113,000202: 
013114,000203: 21,6164           02362                           TC       NEWMODE                               #  SET MAJOR MODE TO VERTICAL ERECTION
013115,000204: 21,6165           00005                           OCT      5                                     #  (COUNTING)
013116,000205: 
013117,000206: 21,6166           35501                           CAF      ZERO                                  
013118,000207: 21,6167           51332                           TS       INFLANG                               
013119,000208: 21,6170           51333                           TS       INFLANG    +1                         
013120,000209: 21,6171           51334                           TS       INFLANG    +2                         
013121,000210: 21,6172           51335                           TS       INFLANG    +3                         
013122,000211: 21,6173           51336                           TS       INFLANG    +4                         
013123,000212: 21,6174           51337                           TS       INFLANG    +5                         
013124,000213: 21,6175           50045                           TS       PIPAY                                 #  SET ALL PIPAS TO ZERO
013125,000214: 21,6176           50046                           TS       PIPAZ                                 
013126,000215: 21,6177           50044                           TS       PIPAX                                 
013127,000216: 
013128,000217: 21,6200           33532                           CAF      NINE                                  
013129,000218: 21,6201           51321                           TS       PRELTEMP                              
013130,000219: 
013131,000220: 21,6202           37011                           CAF      PLPIPADT                              #  SET UP DELTA TIME FOR IMU COMPENSATION.
013132,000221: 21,6203           50755                           TS       1/PIPADT                              

Page 336

013134,000223: 21,6204           20017                           INHINT                                         
013135,000224: 21,6205           37002                           CAF      PRELDT                                #  SET WAITLIST TO WAKE JOB
013136,000225: 21,6206           02173                           TC       WAITLIST                              
013137,000226: 21,6207           42211                           CADR     PRELALTS                              
013138,000227: 
013139,000228: 21,6210           02124                           TC       ENDOFJOB                              
013140,000229: 

Page 337

013142,000231: 
013143,000232:                                                                                                  #        PRELAUNCH WAITLIST TASK - EXECUTED EVERY .5 SEC. IN LOOP.
013144,000233: 
013145,000234: 21,6211           36264        PRELALTS           CAF      PIPCAD21                              
013146,000235: 21,6212           05750                           TC       ISWCALL                               
013147,000236: 
013148,000237: 21,6213           33544                           CAF      TWENTY0                               
013149,000238: 21,6214           02312                           TC       NEWPHASE                              
013150,000239: 21,6215           00003                           OCT      3                                     
013151,000240: 
013152,000241: 21,6216           40036        REDO3.20           CS       TIME1                                 
013153,000242: 21,6217           50665                           TS       TBASE3                                
013154,000243: 
013155,000244: 21,6220           35503                           CAF      TWO                                   
013156,000245: 21,6221           51035                           TS       PIPAGE                                
013157,000246: 
013158,000247: 21,6222           30006                           XCH      IN2                                   #  TEST IN2 FOR GRR OR LIFT-OFF
013159,000248: 21,6223           30006                           XCH      IN2                                   
013160,000249: 21,6224           77017                           MASK     BITS56                                
013161,000250: 21,6225           10000                           CCS      A                                     
013162,000251: 21,6226           06242                           TC       PRELTERM                              
013163,000252: 
013164,000253: 21,6227           34515                           CAF      BIT2                                  #  CHECK IF LIFT-OFF HAS OCCURRED
013165,000254: 21,6230           70646                           MASK     FLAGWRD1                              
013166,000255: 21,6231           10000                           CCS      A                                     
013167,000256: 21,6232           06242                           TC       PRELTERM                              #  IT HAS. TERMINATE PRELAUNCH
013168,000257: 
013169,000258: 21,6233           37002                           CAF      PRELDT                                #  SELF-SUSTAINING WAITLIST CALL
013170,000259: 21,6234           02173                           TC       WAITLIST                              
013171,000260: 21,6235           42211                           CADR     PRELALTS                              
013172,000261: 
013173,000262: 21,6236           34501        NOPLWAIT           CAF      PRIO20                                
013174,000263: 21,6237           02046                           TC       FINDVAC                               
013175,000264: 21,6240           42270                           CADR     PRAWAKE                               
013176,000265: 
013177,000266: 21,6241           02256                           TC       TASKOVER                              #  RESUME
013178,000267: 
013179,000268: 21,6242           40573        PRELTERM           CS       RUPTSTOR   +1                         #  N.B. READTIME IS DONE IN PIPASR ABOVE
013180,000269: 21,6243           51467                           TS       TIME1GR                               
013181,000270: 21,6244           40572                           CS       RUPTSTOR                              
013182,000271: 21,6245           51466                           TS       TIME2GR                               
013183,000272: 
013184,000273: 21,6246           41467                           CS       TIME1GR                               
013185,000274: 21,6247           50667                           TS       TBASE5                                
013186,000275: 
013187,000276: 21,6250           34516                           CAF      ONE                                   
013188,000277: 21,6251           02312                           TC       NEWPHASE                              
013189,000278: 21,6252           00005                           OCT      00005                                 
013190,000279: 
013191,000280: 21,6253           10000                           CCS      A                                     
013192,000281: 21,6254           06236                           TC       NOPLWAIT                              

Page 338

013194,000283: 21,6255           06256                           TC       +1                                    
013195,000284: 
013196,000285: 21,6256           37014                           CAF      2SEC21                                #  CALL READACCS IN 2 SECS
013197,000286: 21,6257           02173                           TC       WAITLIST                              
013198,000287: 21,6260           65152                           CADR     READACCS                              
013199,000288: 
013200,000289: 21,6261           06236                           TC       NOPLWAIT                              
013201,000290: 
013202,000291: 21,6262           36265        REPRELAL           CAF      REPIP21                               
013203,000292: 21,6263           06212                           TC       PRELALTS   +1                         
013204,000293: 
013205,000294: 21,6264           61313        PIPCAD21           CADR     PIPASR                                
013206,000295: 21,6265           61364        REPIP21            CADR     REPIPASR                              
013207,000296: 

Page 339

013209,000298: 
013210,000299: 21,6266           07223        REDO3.21           TC       PRLRSTOR                              
013211,000300: 21,6267           06301                           TC       RE3.21                                
013212,000301: 
013213,000302: 21,6270           07174        PRAWAKE            TC       PRLSAVE                               
013214,000303: 
013215,000304: 21,6271           10654                           CCS      PHASE5                                #  CHECK IF GRR HAS OCCURED.
013216,000305: 21,6272           33543                           CAF      NINETEEN                              #  3.19 RESTART.
013217,000306: 21,6273           06275                           TC       +2                                    
013218,000307: 21,6274           33545                           CAF      TWENTY1                               #  3.21 RESTART.
013219,000308: 21,6275           02312                           TC       NEWPHASE                              
013220,000309: 21,6276           00003                           OCT      3                                     
013221,000310: 
013222,000311: 21,6277           05654                           TC       BANKCALL                              
013223,000312: 21,6300           31017                           CADR     1/PIPA                                
013224,000313: 
013225,000314: 21,6301           04000        RE3.21             TC       INTPRET                               
013226,000315: 
013227,000316: 21,6302           43176                           SMOVE    0                                     #  ZERO TO THEAT-SOUTH
013228,000317: 21,6303           03005                                    ZEROPR                                
013229,000318: 21,6304           33455                           STORE    THETASTH                              
013230,000319: 
013231,000320: 21,6305           47576                           NOLOD    0                                     
013232,000321: 21,6306           33457                           STORE    THETAE                                #  ZERO TO THETA EAST
013233,000322: 
013234,000323: 21,6307           76575                           RTB      1                                     
013235,000324: 21,6310           57176                           SIN                                            
013236,000325: 21,6311           20271                                    ZEROVAC                               
013237,000326: 21,6312           01315                                    LATITUDE                              
013238,000327: 21,6313           32043                           STORE    SINLAM                                
013239,000328: 
013240,000329: 21,6314           55176                           COS      0                                     
013241,000330: 21,6315           01315                                    LATITUDE                              
013242,000331: 21,6316           32045                           STORE    COSLAM                                
013243,000332: 
013244,000333: 21,6317           43175                           SMOVE    1                                     
013245,000334: 21,6320           66776                           DSU                                            
013246,000335: 21,6321           03001                                    90DEGAZ                               
013247,000336: 21,6322           01317                                    AZIMUTH                               
013248,000337: 
013249,000338: 21,6323           57176                           SIN      0                                     
013250,000339: 21,6324           00001                                    0                                     
013251,000340: 21,6325           32003                           STORE    SINAZ                                 
013252,000341: 
013253,000342: 21,6326           55176                           COS      0                                     
013254,000343: 21,6327           32005                           STORE    COSAZ                                 
013255,000344: 
013256,000345: 21,6330           77576                           EXIT     0                                     
013257,000346: 
013258,000347: 21,6331           10654                           CCS      PHASE5                                #  CHECK IF GRR HAS OCCURRED
013259,000348: 21,6332           07032                           TC       PRELTER1                              

Page 340

013261,000350: 21,6333           06334                           TC       +1                                    
013262,000351: 
013263,000352: 21,6334           02346                           TC       CHECKMM                               #  CHECK IF VERTICAL ERECTION (UNCONDIT.)
013264,000353: 21,6335           00005                           OCT      5                                     
013265,000354: 21,6336           06340                           TC       +2                                    
013266,000355: 21,6337           06451                           TC       NOGYROCM                              
013267,000356: 
013268,000357: 21,6340           02346                           TC       CHECKMM                               #  CHECK IF VERTICAL ERECTION (UNCONDIT.)
013269,000358: 21,6341           00006                           OCT      6                                     
013270,000359: 21,6342           06344                           TC       +2                                    
013271,000360: 21,6343           06457                           TC       TJL                                   
013272,000361: 
013273,000362: 21,6344           02346        DOGYROC            TC       CHECKMM                               #  CHECK IF OPTICAL VERIFICATION
013274,000363: 21,6345           00003                           OCT      3                                     
013275,000364: 21,6346           06352                           TC       DOGYROC1                              
013276,000365: 
013277,000366: 21,6347           04000        JSTERTHR           TC       INTPRET                               
013278,000367: 
013279,000368: 21,6350           76776                           ITC      0                                     
013280,000369: 21,6351           02360                                    EARTHRR                               
013281,000370: 
013282,000371: 21,6352           02362        DOGYROC1           TC       NEWMODE                               
013283,000372: 21,6353           00002                           OCT      2                                     
013284,000373: 
013285,000374: 21,6354           04000        DOGYROC2           TC       INTPRET                               
013286,000375: 
013287,000376: 21,6355           76776                           ITC      0                                     
013288,000377: 21,6356           02575                                    GYROCOM                               
013289,000378: 
013290,000379: 21,6357           76776        EARTHRR            ITC      0                                     
013291,000380: 21,6360           02515                                    EARTHRAT                              
013292,000381: 
013293,000382: 21,6361           45176        ENDOFPR            DMOVE    0                                     
013294,000383: 21,6362           01465                                    PIPTIME                               
013295,000384: 21,6363           33371                           STORE    PREVTIME                              
013296,000385: 
013297,000386: 21,6364           77576                           EXIT     0                                     
013298,000387: 
013299,000388: 21,6365           11321                           CCS      PRELTEMP                              
013300,000389: 21,6366           06436                           TC       JUMPY                                 
013301,000390: 
013302,000391: 21,6367           10764                           CCS      LGYRO                                 #  IF BUSY GO AROUND LOOP AGAIN
013303,000392: 21,6370           06437                           TC       JUMPY      +1                         #  WAIT TIL NEXT TIME.  PRELTEM = 0 STILL.
013304,000393: 
013305,000394: 21,6371           35501        PTORQUE            CAF      ZERO                                  #  INITIALIZE TORQUING REGISTERS AND RESET
013306,000395: 21,6372           31452                           XCH      THETAX                                
013307,000396: 21,6373           61333                           AD       INFLANG    +1                         
013308,000397: 21,6374           51341                           TS       GYROANG    +1                         
013309,000398: 21,6375           35501                           CAF      ZERO                                  
013310,000399: 21,6376           61332                           AD       INFLANG                               

Page 341

013312,000401: 21,6377           51340                           TS       GYROANG                               
013313,000402: 
013314,000403: 
013315,000404: 
013316,000405: 21,6400           35501                           CAF      ZERO                                  
013317,000406: 21,6401           31446                           XCH      THETAY                                
013318,000407: 21,6402           61335                           AD       INFLANG    +3                         
013319,000408: 21,6403           51343                           TS       GYROANG    +3                         
013320,000409: 21,6404           35501                           CAF      ZERO                                  
013321,000410: 21,6405           61334                           AD       INFLANG    +2                         
013322,000411: 21,6406           51342                           TS       GYROANG    +2                         
013323,000412: 
013324,000413: 21,6407           35501                           CAF      ZERO                                  
013325,000414: 21,6410           31450                           XCH      THETAZ                                
013326,000415: 21,6411           61337                           AD       INFLANG    +5                         
013327,000416: 21,6412           51345                           TS       GYROANG    +5                         
013328,000417: 21,6413           35501                           CAF      ZERO                                  
013329,000418: 21,6414           61336                           AD       INFLANG    +4                         
013330,000419: 21,6415           51344                           TS       GYROANG    +4                         
013331,000420: 
013332,000421: 21,6416           35501                           CAF      ZERO                                  
013333,000422: 21,6417           51332                           TS       INFLANG                               
013334,000423: 21,6420           51333                           TS       INFLANG    +1                         
013335,000424: 21,6421           51334                           TS       INFLANG    +2                         
013336,000425: 21,6422           51335                           TS       INFLANG    +3                         
013337,000426: 21,6423           51336                           TS       INFLANG    +4                         
013338,000427: 21,6424           51337                           TS       INFLANG    +5                         
013339,000428: 
013340,000429: 21,6425           33532                           CAF      NINE                                  
013341,000430: 21,6426           51321                           TS       PRELTEMP                              
013342,000431: 
013343,000432: 21,6427           02276                           TC       PHASCHNG                              
013344,000433: 21,6430           02603                           OCT      02603                                 
013345,000434: 
013346,000435: 21,6431           20017                           INHINT                                         #  SET UP TORQUING JOB
013347,000436: 21,6432           32162                           CAF      PRIO27                                
013348,000437: 21,6433           02052                           TC       NOVAC                                 
013349,000438: 21,6434           42442                           CADR     SPITGYRO                              
013350,000439: 21,6435           02124                           TC       ENDOFJOB                              
013351,000440: 
013352,000441: 21,6436           51321        JUMPY              TS       PRELTEMP                              
013353,000442: 
013354,000443: 21,6437           02276                           TC       PHASCHNG                              
013355,000444: 21,6440           02603                           OCT      02603                                 
013356,000445: 
013357,000446: 21,6441           02124                           TC       ENDOFJOB                              
013358,000447: 
013359,000448: 
013360,000449: 
013361,000450: 21,6442           37030        SPITGYRO           CAF      LGYROANG                              

Page 342

013363,000452: 21,6443           05654                           TC       BANKCALL                              
013364,000453: 21,6444           31433                           CADR     GYRODPNT                              
013365,000454: 
013366,000455: 21,6445           05654                           TC       BANKCALL                              
013367,000456: 21,6446           30331                           CADR     IMUSTALL                              
013368,000457: 21,6447           02124                           TC       ENDOFJOB                              
013369,000458: 21,6450           02124                           TC       ENDOFJOB                              
013370,000459: 

Page 343

013372,000461: 
013373,000462:                                                                                                  #        VERTICAL ERECTION PROCEDURES.
013374,000463: 
013375,000464: 21,6451           11320        NOGYROCM           CCS      GYROCSW                               #  COUNT DOWN FOR 5 MIN OF VERTICAL ERECT.
013376,000465: 21,6452           06456                           TC       MORE                                  #   IF MORE TO COME.
013377,000466: 21,6453           02362                           TC       NEWMODE                               #  IF NOT, GO INTO GYROCOMP. (MM 02)
013378,000467: 21,6454           00002                           OCT      2                                     
013379,000468: 
013380,000469: 21,6455           06457                           TC       +2                                    
013381,000470: 
013382,000471: 21,6456           51320        MORE               TS       GYROCSW                               
013383,000472: 
013384,000473: 21,6457           04000        TJL                TC       INTPRET                               
013385,000474: 
013386,000475: 21,6460           76776                           ITC      0                                     
013387,000476: 21,6461           02515                                    EARTHRAT                              
013388,000477: 
013389,000478: 21,6462           66775                           DSU      1                                     
013390,000479: 21,6463           64742                           DMP      DAD                                   
013391,000480: 21,6464           01004                                    DELVY                                 
013392,000481: 21,6465           01363                                    FILDELY                               
013393,000482: 21,6466           02765                                    VERECTC3                              
013394,000483: 21,6467           01363                                    FILDELY                               
013395,000484: 21,6470           33363                           STORE    FILDELY                               
013396,000485: 
013397,000486: 21,6471           53575                           AXC,1    1                                     
013398,000487: 21,6472           52572                           AXC,2    ITC                                   
013399,000488: 21,6473           00003                                    2                                     
013400,000489: 21,6474           00001                                    0                                     
013401,000490: 21,6475           02661                                    VERECT                                
013402,000491: 
013403,000492: 21,6476           66775                           DSU      1                                     
013404,000493: 21,6477           64742                           DMP      DAD                                   
013405,000494: 21,6500           01006                                    DELVZ                                 
013406,000495: 21,6501           01361                                    FILDELZ                               
013407,000496: 21,6502           02765                                    VERECTC3                              
013408,000497: 21,6503           01361                                    FILDELZ                               
013409,000498: 21,6504           33361                           STORE    FILDELZ                               
013410,000499: 
013411,000500: 21,6505           53574                           AXC,1    2                                     
013412,000501: 21,6506           47433                           NOLOD    COMP                                  
013413,000502: 21,6507           76776                           ITC                                            
013414,000503: 21,6510           00001                                    0                                     
013415,000504: 21,6511           02661                                    VERECT                                
013416,000505: 
013417,000506: 21,6512           76776                           ITC      0                                     
013418,000507: 21,6513           02362                                    ENDOFPR                               
013419,000508: 

Page 344

013421,000510: 
013422,000511:                                                                                                  #        CALCULATION OF EARTH RATE
013423,000512: 
013424,000513: 21,6514           66775        EARTHRAT           DSU      1                                     
013425,000514: 21,6515           63666                           TSLT     DMPR                                  
013426,000515: 21,6516           01465                                    PIPTIME                               
013427,000516: 21,6517           01371                                    PREVTIME                              
013428,000517: 21,6520           00014                                    11D                                   
013429,000518: 21,6521           03010                                    GOMEGA                                
013430,000519: 
013431,000520: 21,6522           64775                           DMP      1                                     #   SIN(LAMBDE).DT.LENGTH OMEGA + THETA X
013432,000521: 21,6523           63742                           TSLT     DAD                                   
013433,000522: 21,6524           00001                                    0                                     
013434,000523: 21,6525           00043                                    SINLAM                                
013435,000524: 21,6526           00002                                    1                                     
013436,000525: 21,6527           01453                                    THETAX                                
013437,000526: 21,6530           33453                           STORE    THETAX                                
013438,000527: 
013439,000528: 21,6531           64775                           DMP      1                                     #  -COS(LAMBDA).DT.LENGTH OMEGA + THETA STH
013440,000529: 21,6532           63726                           TSLT     BDSU                                  
013441,000530: 21,6533           77777                                    -                                     
013442,000531: 21,6534           00045                                    COSLAM                                
013443,000532: 21,6535           00002                                    1                                     
013444,000533: 21,6536           01455                                    THETASTH                              
013445,000534: 21,6537           33455                           STORE    THETASTH                              
013446,000535: 
013447,000536: 21,6540           64775                           DMP      1                                     #   COS(AZIMUTH). SOUTH COMPONENT
013448,000537: 21,6541           63776                           TSLT                                           
013449,000538: 21,6542           01455                                    THETASTH                              #                        TO P.D. LIST
013450,000539: 21,6543           00005                                    COSAZ                                 
013451,000540: 21,6544           00002                                    1                                     
013452,000541: 
013453,000542: 21,6545           64774                           DMP      2                                     #   Y COMPONENT = SIN(AZIMUTH).EAST COMP
013454,000543: 21,6546           63742                           TSLT     DAD                                   #                   + COS(AZIMUTH). SOUTH
013455,000544: 21,6547           70776                           DAD                                            
013456,000545: 21,6550           01457                                    THETAE                                #                                    COMP
013457,000546: 21,6551           00003                                    SINAZ                                 
013458,000547: 21,6552           00002                                    1                                     
013459,000548: 21,6553           01447                                    THETAY                                
013460,000549: 21,6554           33447                           STORE    THETAY                                
013461,000550: 
013462,000551: 21,6555           64775                           DMP      1                                     #   SIN(AZIMUTH). SOUTH COMPONENT
013463,000552: 21,6556           63776                           TSLT                                           
013464,000553: 21,6557           00003                                    SINAZ                                 #                        TO P.D. LIST
013465,000554: 21,6560           01455                                    THETASTH                              
013466,000555: 
013467,000556: 21,6561           00002                                    1                                     
013468,000557: 21,6562           64774                           DMP      2                                     #  Z COMPONENT = COS(AZIMUTH.EAST COMP
013469,000558: 21,6563           63732                           TSLT     DSU                                   
013470,000559: 21,6564           70776                           DAD                                            
013471,000560: 21,6565           00005                                    COSAZ                                 #               -SIN(AZIMUTH).SOUTH COMP

Page 345

013473,000562: 21,6566           01457                                    THETAE                                
013474,000563: 21,6567           00002                                    1                                     
013475,000564: 21,6570           77777                                    -                                     
013476,000565: 21,6571           01451                                    THETAZ                                
013477,000566: 21,6572           33451                           STORE    THETAZ                                
013478,000567: 
013479,000568: 21,6573           40576                           ITCQ     0                                     
013480,000569: 

Page 346

013482,000571: 
013483,000572:                                                                                                  #        COMPUTATION OF GYROCOMPASS COMMAND
013484,000573: 
013485,000574: 21,6574           45575        GYROCOM            ITA      1                                     
013486,000575: 21,6575           64716                           DMP      TSLT                                  
013487,000576: 21,6576           00052                                    S2                                    
013488,000577: 21,6577           01006                                    DELVZ                                 
013489,000578: 21,6600           00005                                    COSAZ                                 
013490,000579: 21,6601           00002                                    1                                     
013491,000580: 
013492,000581: 21,6602           64775                           DMP      1                                     #  DELTA-V(EAST)= COS(AZ).DELTA-V(Z)
013493,000582: 21,6603           63742                           TSLT     DAD                                   
013494,000583: 21,6604           01004                                    DELVY                                 
013495,000584: 21,6605           00003                                    SINAZ                                 
013496,000585: 21,6606           00002                                    1                                     
013497,000586: 21,6607           33361                           STORE    DELE                                  
013498,000587: 
013499,000588: 21,6610           53574                           AXC,1    2                                     
013500,000589: 21,6611           52435                           AXC,2    NOLOD                                 
013501,000590: 21,6612           47172                           COMP     ITC                                   
013502,000591: 21,6613           00007                                    6                                     
013503,000592: 21,6614           00003                                    2                                     
013504,000593: 21,6615           02661                                    VERECT                                
013505,000594: 
013506,000595: 21,6616           64775                           DMP      1                                     #  SIN(AZ).DELTA-V(Z)
013507,000596: 21,6617           63776                           TSLT                                           
013508,000597: 21,6620           01006                                    DELVZ                                 
013509,000598: 21,6621           00003                                    SINAZ                                 
013510,000599: 21,6622           00002                                    1                                     
013511,000600: 
013512,000601: 21,6623           64775                           DMP      1                                     #  DELTA-V(SOUTH= COS(AZ.DELTA-V(Y)
013513,000602: 21,6624           63732                           TSLT     DSU                                   
013514,000603: 21,6625           01004                                    DELVY                                 
013515,000604: 21,6626           00005                                    COSAZ                                 
013516,000605: 21,6627           00002                                    1                                     
013517,000606: 21,6630           33363                           STORE    DELS                                  
013518,000607: 
013519,000608: 21,6631           64776                           DMP      0                                     
013520,000609: 21,6632           01363                                    DELS                                  #   C1. DELTA-V(SOUTH) TO P.D. LIST
013521,000610: 21,6633           02767                                    GYRCMC1                               
013522,000611: 
013523,000612: 21,6634           64775                           DMP      1                                     #  FILTER = C1. DELTA-V(SOUTH)
013524,000613: 21,6635           70776                           DAD                                            #          +C2. FILTER
013525,000614: 21,6636           01357                                    FILTER                                
013526,000615: 21,6637           02771                                    GYRCMC2                               
013527,000616: 21,6640           33357                           STORE    FILTER                                
013528,000617: 
013529,000618: 21,6641           47574                           NOLOD    2                                     
013530,000619: 21,6642           64716                           DMP      TSLT                                  
013531,000620: 21,6643           70776                           DAD                                            
013532,000621: 21,6644           02773                                    GYRCMC3                               

Page 347

013534,000623: 21,6645           00010                                    7                                     
013535,000624: 21,6646           01453                                    THETAX                                
013536,000625: 21,6647           33453                           STORE    THETAX                                
013537,000626: 
013538,000627: 21,6650           64775                           DMP      1                                     #  EAST-TORQUING ANGLE = C4.FILTER
013539,000628: 21,6651           63776                           TSLT                                           
013540,000629: 21,6652           01363                                    DELS                                  
013541,000630: 21,6653           02775                                    GYRCMC4                               
013542,000631: 21,6654           00004                                    3                                     
013543,000632: 21,6655           33457                           STORE    THETAE                                
013544,000633: 
013545,000634: 21,6656           44576                           ITCI     0                                     
013546,000635: 21,6657           00052                                    S2                                    
013547,000636: 

page 348

013549,000638: 
013550,000639:                                                                                                  #  VERTICAL ERECTION SUBROUTINE
013551,000640: 
013552,000641:                                                                                                  #  VERECT - VERTICAL ERECTION      ENTERED IN INT. MODE WITH
013553,000642:                                                                                                  #                    SUBROUTINE            C(X1)= 2 FOR C(MPAC)= DEL-V Y
013554,000643:                                                                                                  #                                               = 0     C(MPAC)=-DEL-V Z
013555,000644:                                                                                                  #                                               = 6 FOR C(MPAC)=-DEL-V E
013556,000645:                                                                                                  #                                   FOR THESE THREE CASES OUTPUT WILL BE
013557,000646:                                                                                                  #                                                THETA-Z
013558,000647:                                                                                                  #                                                THETA-Y
013559,000648:                                                                                                  #                                                THETA-S RESPECTIVELY.
013560,000649:                                                                                                  #                                   LOOP CONSTANTS ARE DETERMINED BY
013561,000650:                                                                                                  #                                          C(X2)= 0 NO GYROCOMPASSING
013562,000651:                                                                                                  #                                                 2    GYROCOMPASSING
013563,000652: 
013564,000653: 
013565,000654: 
013566,000655: 21,6660           47576        VERECT             NOLOD    0                                     
013567,000656: 
013568,000657: 21,6661           32001                           STORE    0                                     
013569,000658: 
013570,000659: 21,6662           47575                           NOLOD    1                                     
013571,000660: 21,6663           70376                           DAD*                                           
013572,000661: 21,6664           02751                                    INT,1                                 #  COMPUTE INTEGRAL OF DEL-V = INT
013573,000662: 21,6665           36751                           STORE    INT,1                                 
013574,000663: 
013575,000664: 21,6666           45175                           DMOVE    1                                     
013576,000665: 21,6667           64316                           DMP*     TSLT                                  
013577,000666: 21,6670           00001                                    0                                     
013578,000667: 21,6671           05732                                    VERECTC1,2                            
013579,000668: 21,6672           00006                                    5                                     
013580,000669: 
013581,000670: 21,6673           64375                           DMP*     1                                     
013582,000671: 21,6674           70342                           DAD*     DAD                                   
013583,000672: 21,6675           02751                                    INT,1                                 #  THETA = THETA + C1 DEL-V  + C2 INT
013584,000673: 21,6676           05742                                    VERECTC2,2                            
013585,000674: 21,6677           03115                                    THETAY,1                              
013586,000675: 21,6700           37115                           STORE    THETAY,1                              
013587,000676: 
013588,000677: 21,6701           40576                           ITCQ     0                                     
013589,000678: 

Page 349

013591,000680: 
013592,000681:                                                                                                  #        PRELAUNCH MANUAL REQUEST PROCESSOR.
013593,000682: 
013594,000683: 21,6702           34501        STARTPL            CAF      PRIO20                                #  ENTER EXECUTIVE REQUEST ON START-UP.
013595,000684: 21,6703           02046                           TC       FINDVAC                               
013596,000685: 21,6704           42147                           CADR     STARTPL2                              
013597,000686: 21,6705           05702                           TC       SWRETURN                              
013598,000687: 
013599,000688: 21,6706           44513        PLSTCHK            CS       EIGHT                                 #  PRELAUNCH COMES HERE WHENEVER A PHASE
013600,000689: 21,6707           60115                           AD       MPAC                                  #  REFERENCE IS MADE TO SEE IF A MANUAL
013601,000690: 21,6710           10000                           CCS      A                                     #  REQUEST HAS BEEN ENTERED THROUGH MASTER
013602,000691: 21,6711           00001                           TC       Q                                     #  CONTROL. ALL SUCH PHASES ARE LESS THAN 8
013603,000692: 21,6712           24000        PLPRIO             OCT      24000                                 
013604,000693: 21,6713           06714                           TC       +1                                    
013605,000694: 
013606,000695: 21,6714           20115                           INDEX    MPAC                                  #  SEE WHICH MANUAL MODE REQUESTED.
013607,000696: 21,6715           06715                           TC       +0                                    
013608,000697: 21,6716           06000                           TC       TOP1                                  #  1 - INITIALIZATION 1.
013609,000698: 21,6717           06100                           TC       TOP2                                  #  2 - INITIALIZATION 2.
013610,000699: 21,6720           07252                           TC       OPTCHK                                #  3 - DO OPTICAL CHECK
013611,000700: 
013612,000701: 21,6721           10727        PLFINCHK           CCS      WASKSET                               #  SEE IF IN FINE ALIGN.
013613,000702: 21,6722           06726                           TC       3CHECK                                
013614,000703: 21,6723           06746                           TC       PRELEXIT                              #  SYSTEM IN BAD SHAPE.
013615,000704: 21,6724           06733                           TC       DOPLCHNG                              #  DO THE CHANGE ANYWAY.
013616,000705: 21,6725           06746                           TC       PRELEXIT                              #  SYSTEM IN BAD SHAPE.
013617,000706: 
013618,000707: 21,6726           66731        3CHECK             AD       -CCSFINE                              
013619,000708: 21,6727           10000                           CCS      A                                     
013620,000709: 21,6730           06000                           TC       TOP1                                  
013621,000710: 21,6731           77730        -CCSFINE           OCT      -47                                   #  WASKSET IS 50 FOR FINE ALIGN.
013622,000711: 21,6732           06000                           TC       TOP1                                  
013623,000712: 
013624,000713: 21,6733           20115        DOPLCHNG           INDEX    MPAC                                  
013625,000714: 21,6734           06732                           TC       -2                                    
013626,000715: 21,6735           06741                           TC       DOPL14                                
013627,000716: 
013628,000717: 21,6736           02362        DOPL15             TC       NEWMODE                               #  SET MAJOR MODE TO GYROCOMPASSING
013629,000718: 21,6737           00002                           OCT      2                                     
013630,000719: 
013631,000720: 21,6740           06344                           TC       DOGYROC                               
013632,000721: 
013633,000722: 21,6741           02362        DOPL14             TC       NEWMODE                               #  SET MAJOR MODE TO UNCONDITIONAL VERT-
013634,000723: 21,6742           00006                           OCT      6                                     #  ICAL ERECTION
013635,000724: 
013636,000725: 21,6743           06457                           TC       TJL                                   
013637,000726: 

Page 350

013639,000728: 
013640,000729:                                                                                                  #        PRELAUNCH GO-SEQUENCE PROCESSOR.
013641,000730: 
013642,000731:                                                                                                  #          HAS BEEN DELETED.  SEE GENERAL RESTARTS.   ...DJL
013643,000732: 
013644,000733: 21,6744           00050        FINECODE           OCT      50                                    #  FINE ALIGN AND COMPUTER CONTROL.
013645,000734: 
013646,000735:                                                                                                  #        PRELAUNCH TERMINATION.
013647,000736: 
013648,000737: 21,6745           03362                           TC       FREEDSP                               
013649,000738: 21,6746           05654        PRELEXIT           TC       BANKCALL                              #  RETURN IMU TO MANUAL CONTROL.
013650,000739: 21,6747           30241                           CADR     IMUFINIS                              
013651,000740: 
013652,000741: 21,6750           44516        ENDJ3OUT           CS       ONE                                   
013653,000742: 21,6751           02312                           TC       NEWPHASE                              
013654,000743: 21,6752           00003                           OCT      3                                     
013655,000744: 
013656,000745: 21,6753           02124                           TC       ENDOFJOB                              
013657,000746: 

Page 351

013659,000748: 
013660,000749:                                                                                                  #  PRELAUNCH BANK STORED CONSTANTS
013661,000750: 
013662,000751: 21,6754           24000 00000  VERECTC1           2DEC     20.        B-5                        #  VERTICAL LOOP CONSTANTS
013663,000752: 21,6756           02000 00000                     2DEC     2          B-5                        
013664,000753: 21,6760           14631 23146  VERECTC2           2DEC     .4                                    
013665,000754: 21,6762           00101 21116                     2DEC     .004                                  
013666,000755: 21,6764           03146 14632  VERECTC3           2DEC     .1                                    
013667,000756: 21,6766           03146 14632  GYRCMC1            2DEC     0.1                                   
013668,000757: 21,6770           34631 23146  GYRCMC2            2DEC     0.9                                   
013669,000758: 21,6772           56777 77777  GYRCMC3            2DEC     -68        B-7                        
013670,000759: 21,6774           20000 00000  GYRCMC4            2DEC     4          B-3                        
013671,000760: 21,6776           03610 01227  LABLAT             2DEC     .117678252                            #  LATITUDE OF IL-7
013672,000761: 21,7000           10000 00000  90DEGAZ            2DEC     .25                                   #  90 DEG. FROM NORTH = EAST
013673,000762: 21,7002           00062        PRELDT             DEC      .5         E2                         #  HALF SECOND PRELAUNCH CYCLE
013674,000763: 
013675,000764: 21,7003           42270        WAKEPRAD           CADR     PRAWAKE                               #  WAKING ADDRESS FOR PRELAUNCH
013676,000765: 
013677,000766: 21,7004           00000        ZEROPR             OCT      0                                     #  OUR OWN PERSONAL COPY OF ZERO
013678,000767: 
013679,000768: 21,7005           03711 33265  LOMEGA             2DEC     .12169524                             #  EARTH RATE IN IRIG PULSES PER .01 SEC.
013680,000769: 21,7007           37116 32652  GOMEGA             2DEC     0.97356192                            #  EARTH RATE IN IRIG PULSES/CS
013681,000770: 21,7011           06200        PLPIPADT           DEC      50         B+6                        
013682,000771: 21,7012           77746        -.25SC21           DEC      -25        B-14                       
013683,000772: 21,7013           77715        NEG.5SEC           DEC      -50        B-14                       
013684,000773: 
013685,000774: 21,7014           00310        2SEC21             DEC      200        B-14                       
013686,000775: 21,7015           00000 00372  DP2.5SEC           2DEC     250        B-28                       
013687,000776: 21,7017           00060        BITS56             DEC      48         B-14                       
013688,000777: 21,7020           37116 32666  SIDEDAYS           2DEC*    .011605763 E-5        B23*            #  FRACTION OF T2-T1 IN SIDEREAL DAY
013689,000778: 21,7022           13644 33772  LOCALUP            2DEC     .738876298 B-1                        
013690,000779: 21,7024           00000 00000                     2DEC     .0                                    #  VECTOR AT TIME C(T2,T1) = 0
013691,000780: 21,7026           12620 03315                     2DEC     .673841098 B-1                        

Page 352

013693,000782: 21,7030           01340        LGYROANG           ADRES    GYROANG                               
013694,000783: 21,7031           00011        IX                 DEC      9          B-14                       
013695,000784: 

Page 353

013697,000786: 
013698,000787:                                                                                                  #  PRELAUNCH TERMINATION PHASE(AFTER G.R. SIGNAL)
013699,000788: 
013700,000789: 
013701,000790: 
013702,000791: 21,7032           04000        PRELTER1           TC       INTPRET                               
013703,000792: 
013704,000793: 21,7033           70776                           DAD      0                                     
013705,000794: 21,7034           01371                                    PREVTIME                              
013706,000795: 21,7035           03016                                    DP2.5SEC                              
013707,000796: 21,7036           33371                           STORE    PREVTIME                              
013708,000797: 
013709,000798: 21,7037           76776                           ITC      0                                     
013710,000799: 21,7040           02515                                    EARTHRAT                              #  CHANGED BY MR. FIXIT.
013711,000800: 
013712,000801: 21,7041           77576                           EXIT     0                                     
013713,000802: 
013714,000803: 21,7042           35501                           CAF      ZERO                                  
013715,000804: 21,7043           51340                           TS       GYROANG                               
013716,000805: 21,7044           51342                           TS       GYROANG    +2                         
013717,000806: 21,7045           51344                           TS       GYROANG    +4                         
013718,000807: 
013719,000808: 21,7046           31452                           XCH      THETAX                                
013720,000809: 21,7047           51341                           TS       GYROANG    +1                         
013721,000810: 21,7050           31446                           XCH      THETAY                                
013722,000811: 21,7051           51343                           TS       GYROANG    +3                         
013723,000812: 21,7052           31450                           XCH      THETAZ                                
013724,000813: 21,7053           51345                           TS       GYROANG    +5                         
013725,000814: 
013726,000815: 21,7054           20017                           INHINT                                         
013727,000816: 21,7055           32164                           CAF      PRIO31                                #   CHANGED BY MR. FIXIT.
013728,000817: 21,7056           02052                           TC       NOVAC                                 
013729,000818: 21,7057           42442                           CADR     SPITGYRO                              
013730,000819: 21,7060           20016                           RELINT                                         
013731,000820: 
013732,000821: 21,7061           02362                           TC       NEWMODE                               
013733,000822: 21,7062           00004                           OCT      04                                    #  INERTIAL REFERENCE.
013734,000823: 
013735,000824: 21,7063           04000                           TC       INTPRET                               
013736,000825: 
013737,000826: 21,7064           70776                           DAD      0                                     #  FORM TIME SINCE LAUNCH VECTOR IN
013738,000827: 21,7065           01074                                    DTEPOCH                               #  INERTIAL Z-X PLANE
013739,000828: 21,7066           01467                                    TIME2GR                               
013740,000829: 21,7067           33145                           STORE    DTEAROT                               
013741,000830: 
013742,000831: 21,7070           76776                           ITC      0                                     #  BRANCH TO FORCE WT TO LESS THAN 1 REV
013743,000832: 21,7071           13463                                    EARROT2                               
013744,000833: 
013745,000834: 21,7072           57176                           SIN      0                                     #  FORM INERTIAL Z-X PLANE LOCAL VERTICAL
013746,000835: 21,7073           01315                                    LATITUDE                              

Page 354

013748,000837: 21,7074           45176                           DMOVE    0                                     
013749,000838: 21,7075           05174                                    ZERODP                                
013750,000839: 
013751,000840: 21,7076           55175                           COS      1                                     
013752,000841: 21,7077           41176                           VDEF                                           
013753,000842: 21,7100           01315                                    LATITUDE                              
013754,000843: 21,7101           32041                           STORE    VAC                                   
013755,000844: 
013756,000845: 21,7102           43576                           TEST     0                                     #  TEST IF BIT IS ON. IF NOT SET IT ON
013757,000846: 21,7103           00006                                    NBSMBIT                               
013758,000847: 21,7104           03167                                    NBITON                                
013759,000848: 
013760,000849: 21,7105           75575        ROTXY              AXT,1    1                                     #  ROTATE PROJECTION OF LOCAL VERTICAL ON
013761,000850: 21,7106           74572                           AXT,2    ITC                                   #  INERTIAL X-Y PLANE ABOUT Z-AXIS
013762,000851: 21,7107           00003                                    2                                     
013763,000852: 21,7110           00005                                    4                                     
013764,000853: 21,7111           04566                                    ACCUROT                               
013765,000854: 
013766,000855: 21,7112           47576                           NOLOD    0                                     
013767,000856: 21,7113           33052                           STORE    REFSMMAT                              #  PRESENT LOCAL VERTICAL VECTOR IS X-AXIS
013768,000857: 
013769,000858: 21,7114           45176                           DMOVE    0                                     
013770,000859: 21,7115           05174                                    ZERODP                                
013771,000860: 
013772,000861: 21,7116           45176                           DMOVE    0                                     
013773,000862: 21,7117           00041                                    VAC                                   
013774,000863: 
013775,000864: 21,7120           47175                           COMP     1                                     #  FORM UNIT EAST VECTOR AT GRR
013776,000865: 21,7121           41153                           VDEF     UNIT                                  
013777,000866: 21,7122           00043                                    VAC        +2                         
013778,000867: 
013779,000868: 21,7123           47575                           NOLOD    1                                     #  FORM UNIT SOUTH VECTOR
013780,000869: 21,7124           41753                           VXV      UNIT                                  
013781,000870: 21,7125           01052                                    REFSMMAT                              
013782,000871: 
013783,000872: 21,7126           66776                           DSU      0                                     #  FORM AZIMUTH SOUTH OF EAST AT GRR
013784,000873: 21,7127           01317                                    AZIMUTH                               
013785,000874: 21,7130           03001                                    90DEGAZ                               
013786,000875: 21,7131           32037                           STORE    30D                                   
013787,000876: 
013788,000877: 21,7132           47575                           NOLOD    1                                     
013789,000878: 21,7133           57166                           SIN      VXSC                                  
013790,000879: 21,7134           33066                           STORE    REFSMMAT   +12D                       #  (TEMPORARY STORAGE)
013791,000880: 
013792,000881: 21,7135           55174                           COS      2                                     #  FORM SM Z-AXIS
013793,000882: 21,7136           75642                           VXSC     VAD                                   
013794,000883: 21,7137           73176                           UNIT                                           
013795,000884: 21,7140           00037                                    30D                                   
013796,000885: 21,7141           77777                                    -                                     
013797,000886: 21,7142           01066                                    REFSMMAT   +12D                       

Page 355

013799,000888: 21,7143           33066                           STORE    REFSMMAT   +12D                       
013800,000889: 
013801,000890: 21,7144           47575                           NOLOD    1                                     #  FORM SM Y-AXIS BY CROSS PRODUCT
013802,000891: 21,7145           41753                           VXV      UNIT                                  
013803,000892: 21,7146           01052                                    REFSMMAT                              
013804,000893: 21,7147           33060                           STORE    REFSMMAT   +6                         
013805,000894: 
013806,000895: 21,7150           41775                           VXV      1                                     #  INITIALISE VN, GRAVITY GIVEN RN, UNITW
013807,000896: 21,7151           75776                           VXSC                                           
013808,000897: 21,7152           01044                                    UNITW                                 
013809,000898: 21,7153           00766                                    RN                                    #  SCALED AT 2(+25) METERS
013810,000899: 21,7154           03173                                    WIE                                   
013811,000900: 21,7155           32774                           STORE    VN                                    #  SCALED AT 2(+7)M/CS
013812,000901: 
013813,000902: 21,7156           75175                           VMOVE    1                                     
013814,000903: 21,7157           76776                           ITC                                            
013815,000904: 21,7160           00766                                    RN                                    
013816,000905: 21,7161           21643                                    CALCGRAV                              
013817,000906: 
013818,000907: 21,7162           77576                           EXIT     0                                     
013819,000908: 
013820,000909: 21,7163           32164                           CAF      PRIO31                                #  GUESS WHAT WE:RE DOING
013821,000910: 21,7164           50755                           TS       1/PIPADT                              #  GIVE UP  WOULD YOU BELEIVE 2 SECONDS
013822,000911: 
013823,000912: 21,7165           06750                           TC       ENDJ3OUT                              #  TERMINATE PRELAUNCH. (PHASE = INACTIVE.)
013824,000913: 
013825,000914: 
013826,000915: 
013827,000916: 21,7166           42575        NBITON             SWITCH   1                                     
013828,000917: 21,7167           76776                           ITC                                            
013829,000918: 21,7170           00006                                    NBSMBIT                               
013830,000919: 21,7171           03106                                    ROTXY                                 
013831,000920: 
013832,000921: 21,7172           14167 34104  WIE                2DEC*    7.29211505 E-7        B+19*           #  RAD/CS SCALED AT 2(-19)
013833,000922: 

Page 356

013835,000924: 
013836,000925: 21,7174           30001        PRLSAVE            XCH      Q                                     #  SAVE CURRENT VARIABLES FOR RESTARTS
013837,000926: 21,7175           50116                           TS       MPAC       +1                         
013838,000927: 
013839,000928: 21,7176           33535                           CAF      THIRTEEN                              
013840,000929: 21,7177           50115        AGAIN1             TS       MPAC                                  
013841,000930: 21,7200           20115                           INDEX    MPAC                                  
013842,000931: 21,7201           41356                           CS       FILTER                                
013843,000932: 21,7202           20115                           INDEX    MPAC                                  
013844,000933: 21,7203           51243                           TS       PTEMP                                 
013845,000934: 21,7204           10115                           CCS      MPAC                                  
013846,000935: 21,7205           07177                           TC       AGAIN1                                
013847,000936: 
013848,000937: 21,7206           33533                           CAF      ELEVEN                                
013849,000938: 21,7207           50115        AGAIN2             TS       MPAC                                  
013850,000939: 21,7210           20115                           INDEX    MPAC                                  
013851,000940: 21,7211           41446                           CS       THETAY                                
013852,000941: 21,7212           20115                           INDEX    MPAC                                  
013853,000942: 21,7213           51261                           TS       PTEMP      +14D                       
013854,000943: 21,7214           10115                           CCS      MPAC                                  
013855,000944: 21,7215           07207                           TC       AGAIN2                                
013856,000945: 
013857,000946: 21,7216           41321                           CS       PRELTEMP                              
013858,000947: 21,7217           51275                           TS       PTEMP      +26D                       
013859,000948: 21,7220           41320                           CS       GYROCSW                               
013860,000949: 21,7221           51276                           TS       PTEMP      +27D                       
013861,000950: 
013862,000951: 21,7222           00116                           TC       MPAC       +1                         
013863,000952: 
013864,000953: 21,7223           30001        PRLRSTOR           XCH      Q                                     #  RESTORE OLD VALUES OF VARIABLES
013865,000954: 21,7224           50116                           TS       MPAC       +1                         
013866,000955: 
013867,000956: 21,7225           33535                           CAF      THIRTEEN                              
013868,000957: 21,7226           50115        AGAIN3             TS       MPAC                                  
013869,000958: 21,7227           20115                           INDEX    MPAC                                  
013870,000959: 21,7230           41243                           CS       PTEMP                                 
013871,000960: 21,7231           20115                           INDEX    MPAC                                  
013872,000961: 21,7232           51356                           TS       FILTER                                
013873,000962: 21,7233           10115                           CCS      MPAC                                  
013874,000963: 21,7234           07226                           TC       AGAIN3                                
013875,000964: 
013876,000965: 21,7235           33533                           CAF      ELEVEN                                
013877,000966: 21,7236           50115        AGAIN4             TS       MPAC                                  
013878,000967: 21,7237           20115                           INDEX    MPAC                                  
013879,000968: 21,7240           41261                           CS       PTEMP      +14D                       
013880,000969: 21,7241           20115                           INDEX    MPAC                                  
013881,000970: 21,7242           51446                           TS       THETAY                                
013882,000971: 21,7243           10115                           CCS      MPAC                                  
013883,000972: 21,7244           07236                           TC       AGAIN4                                
013884,000973: 
013885,000974: 21,7245           41275                           CS       PTEMP      +26D                       

Page 357

013887,000976: 21,7246           51321                           TS       PRELTEMP                              
013888,000977: 21,7247           41276                           CS       PTEMP      +27D                       
013889,000978: 21,7250           51320                           TS       GYROCSW                               
013890,000979: 
013891,000980: 21,7251           00116                           TC       MPAC       +1                         
013892,000981: 

Page 358

013894,000983: 
013895,000984:                                                                                                  #  PRELAUNCH CHECK PROCEDURE (USES THE Z-NORTH SYSTEM OF AXES)
013896,000985: 
013897,000986: 
013898,000987: 
013899,000988: 21,7252           20017        OPTCHK             INHINT                                         
013900,000989: 21,7253           32150                           CAF      PRIO14                                
013901,000990: 21,7254           02046                           TC       FINDVAC                               #  CALL WITH PRIORITY OF TWENTY
013902,000991: 21,7255           43262                           CADR     CHKOPT                                
013903,000992: 
013904,000993: 21,7256           34514                           CAF      BIT3                                  
013905,000994: 21,7257           50115                           TS       MPAC                                  
013906,000995: 21,7260           06721                           TC       PLFINCHK                              
013907,000996: 21,7261           06354                           TC       DOGYROC2                              
013908,000997: 
013909,000998: 21,7262           03302        CHKOPT             TC       GRABDSP                               
013910,000999: 21,7263           03310                           TC       PREGBSY                               
013911,001000: 
013912,001001: 21,7264           02362                           TC       NEWMODE                               
013913,001002: 21,7265           00003                           OCT      03                                    
013914,001003: 
013915,001004: 21,7266           35501                           CAF      ZERO                                  
013916,001005: 21,7267           51400                           TS       STARS                                 
013917,001006: 21,7270           64516                           AD       ONE                                   
013918,001007: 21,7271           50620                           TS       DSPTEM1    +2                         
013919,001008: 21,7272           37540                           CAF      V06N30P                               
013920,001009: 21,7273           03100                           TC       NVSUB                                 
013921,001010: 21,7274           03315                           TC       PRENVBSY                              
013922,001011: 21,7275           21400                           INDEX    STARS                                 
013923,001012: 21,7276           31346                           XCH      TAZ                                   
013924,001013: 21,7277           50616                           TS       DSPTEM1                               
013925,001014: 21,7300           21400                           INDEX    STARS                                 
013926,001015: 21,7301           31350                           XCH      TEL                                   
013927,001016: 21,7302           50617                           TS       DSPTEM1    +1                         
013928,001017: 
013929,001018: 21,7303           07542                           TC       CHECKNV                               
013930,001019: 21,7304           00661                           OCT      00661                                 
013931,001020: 21,7305           07441                           TC       CHEXIT                                
013932,001021: 21,7306           30616                           XCH      DSPTEM1                               
013933,001022: 21,7307           21400                           INDEX    STARS                                 
013934,001023: 21,7310           51346                           TS       TAZ                                   
013935,001024: 21,7311           30617                           XCH      DSPTEM1    +1                         
013936,001025: 21,7312           21400                           INDEX    STARS                                 
013937,001026: 21,7313           51350                           TS       TEL                                   
013938,001027: 
013939,001028: 21,7314           11400                           CCS      STARS                                 
013940,001029: 21,7315           07320                           TC       +3                                    
013941,001030: 21,7316           34516                           CAF      ONE                                   
013942,001031: 21,7317           07267                           TC       CHKOPT     +5                         
013943,001032: 21,7320           50620                           TS       DSPTEM1    +2                         

Page 359

013945,001034: 21,7321           35503                           CAF      TWO                                   
013946,001035: 21,7322           50617                           TS       DSPTEM1    +1                         
013947,001036: 21,7323           34516                           CAF      ONE                                   
013948,001037: 21,7324           50616                           TS       DSPTEM1                               #  SETS UP STAR NUMBER DISPLAY
013949,001038: 
013950,001039: 21,7325           37540                           CAF      V06N30P                               
013951,001040: 21,7326           03100                           TC       NVSUB                                 
013952,001041: 21,7327           03315                           TC       PRENVBSY                              
013953,001042: 21,7330           35503                           CAF      TWO                                   
013954,001043: 21,7331           05654                           TC       BANKCALL                              
013955,001044: 21,7332           30406                           CADR     SXTMARK                               
013956,001045: 21,7333           05654                           TC       BANKCALL                              
013957,001046: 21,7334           30327                           CADR     OPTSTALL                              
013958,001047: 21,7335           07441                           TC       CHEXIT                                
013959,001048: 21,7336           04000                           TC       INTPRET                               
013960,001049: 
013961,001050: 21,7337           76776                           ITC      0                                     
013962,001051: 21,7340           03475                                    PROCTARG                              
013963,001052: 
013964,001053: 21,7341           76776                           ITC      0                                     
013965,001054: 21,7342           03446                                    MAKEXSM                               #  COMPUTE DESIRED SM ORIENTAYION IN REC
013966,001055: 
013967,001056: 21,7343           52775                           MXV      1                                     
013968,001057: 21,7344           44776                           VSLT                                           
013969,001058: 21,7345           01403                                    TARGET1                               
013970,001059: 21,7346           01425                                    XSM                                   
013971,001060: 21,7347           00002                                    1                                     
013972,001061: 21,7350           33403                           STORE    STARAD                                
013973,001062: 21,7351           52775                           MXV      1                                     
013974,001063: 21,7352           44776                           VSLT                                           
013975,001064: 21,7353           01411                                    TARGET1    +6                         
013976,001065: 21,7354           01425                                    XSM                                   
013977,001066: 21,7355           00002                                    1                                     
013978,001067: 21,7356           33411                           STORE    STARAD     +6                         
013979,001068: 
013980,001069: 21,7357           71574                           LXC,1    2                                     
013981,001070: 21,7360           74471                           AXT,2    XSU,2                                 
013982,001071: 21,7361           66572                           SXA,2    ITC                                   
013983,001072: 21,7362           00736                                    MARKSTAT                              
013984,001073: 21,7363           00003                                    2                                     
013985,001074: 21,7364           00047                                    X1                                    
013986,001075: 21,7365           00051                                    S1                                    
013987,001076: 21,7366           04733                                    SXTNB                                 
013988,001077: 
013989,001078: 21,7367           76776                           ITC      0                                     
013990,001079: 21,7370           04524                                    NBSM                                  
013991,001080: 
013992,001081: 21,7371           75176                           VMOVE    0                                     
013993,001082: 21,7372           00041                                    STARM                                 
013994,001083: 21,7373           33375                           STORE    VECTEM                                

Page 360

013996,001085: 21,7374           71574                           LXC,1    2                                     
013997,001086: 21,7375           63561                           INCR,1   AXT,2                                 
013998,001087: 21,7376           56531                           XSU,2    SXA,2                                 
013999,001088: 21,7377           00736                                    MARKSTAT                              
014000,001089: 21,7400           77771                                    -7                                    
014001,001090: 21,7401           00003                                    2                                     
014002,001091: 21,7402           00047                                    X1                                    
014003,001092: 21,7403           00051                                    S1                                    
014004,001093: 
014005,001094: 21,7404           76776                           ITC      0                                     
014006,001095: 21,7405           04733                                    SXTNB                                 
014007,001096: 
014008,001097: 21,7406           76776                           ITC      0                                     
014009,001098: 21,7407           04524                                    NBSM                                  
014010,001099: 
014011,001100: 21,7410           75176                           VMOVE    0                                     
014012,001101: 21,7411           00041                                    STARM                                 
014013,001102: 21,7412           32015                           STORE    12D                                   
014014,001103: 
014015,001104: 21,7413           75176                           VMOVE    0                                     
014016,001105: 21,7414           01375                                    VECTEM                                
014017,001106: 21,7415           32007                           STORE    6                                     #  TO AVOID ERASABLE BIND
014018,001107: 
014019,001108: 21,7416           76776                           ITC      0                                     #  FIND DESIRED SM IN PRESENT SM
014020,001109: 21,7417           04761                                    AXISGEN                               
014021,001110: 
014022,001111: 21,7420           76776                           ITC      0                                     #  CALCULATE REQUIRED PULSE TORQUE IN GYROD
014023,001112: 21,7421           04353                                    CALCGTA                               
014024,001113: 
014025,001114: 21,7422           45776                           VSRT     0                                     
014026,001115: 21,7423           01521                                    OGC                                   
014027,001116: 21,7424           00011                                    8D                                    
014028,001117: 21,7425           33521                           STORE    OGC                                   #  CHANGE UNITS FROM 2PI TO GYRO PULSES
014029,001118: 
014030,001119: 21,7426           77576                           EXIT     0                                     
014031,001120: 
014032,001121: 
014033,001122: 
014034,001123: 21,7427           05654                           TC       BANKCALL                              
014035,001124: 21,7430           30453                           CADR     MKRELEAS                              
014036,001125: 21,7431           07542                           TC       CHECKNV                               
014037,001126: 21,7432           00667                           OCT      00667                                 
014038,001127: 21,7433           07441                           TC       CHEXIT                                
014039,001128: 21,7434           04000                           TC       INTPRET                               
014040,001129: 
014041,001130: 21,7435           75176                           VMOVE    0                                     
014042,001131: 21,7436           01521                                    OGC                                   #  GETS SUMMED INTO PRELAUNCH
014043,001132: 21,7437           33333                           STORE    INFLANG                               
014044,001133: 
014045,001134: 21,7440           77576                           EXIT     0                                     

Page 361

014047,001136: 
014048,001137: 21,7441           03362        CHEXIT             TC       FREEDSP                               
014049,001138: 21,7442           02362                           TC       NEWMODE                               
014050,001139: 21,7443           00002                           OCT      02                                    
014051,001140: 21,7444           02124                           TC       ENDOFJOB                              
014052,001141: 

Page 362

014054,001143: 
014055,001144:                                                                                                  #  SUBROUTINE TO COMPUTE DESIRED SM AXES IN REC
014056,001145: 
014057,001146: 21,7445           77576        MAKEXSM            EXIT     0                                     
014058,001147: 21,7446           37541                           CAF      XVII                                  
014059,001148: 21,7447           50077                           TS       BUF                                   
014060,001149: 21,7450           35501                           CAF      ZERO                                  #  ZERO ALL OF XSM
014061,001150: 21,7451           20077                           INDEX    BUF                                   
014062,001151: 21,7452           51424                           TS       XSM                                   
014063,001152: 21,7453           10077                           CCS      BUF                                   
014064,001153: 21,7454           07447                           TC       MAKEXSM    +2                         
014065,001154: 21,7455           34522                           CAF      HALF                                  
014066,001155: 21,7456           51424                           TS       XSM                                   #  HALF UNIT MATRIX IS COMPUTED
014067,001156: 
014068,001157: 21,7457           04000                           TC       INTPRET                               
014069,001158: 
014070,001159: 21,7460           55176                           COS      0                                     
014071,001160: 21,7461           01317                                    AZIMUTH                               
014072,001161: 21,7462           33435                           STORE    XSM        +8D                        
014073,001162: 
014074,001163: 21,7463           47576                           NOLOD    0                                     
014075,001164: 21,7464           33445                           STORE    XSM        +16D                       
014076,001165: 
014077,001166: 21,7465           57176                           SIN      0                                     
014078,001167: 21,7466           01317                                    AZIMUTH                               
014079,001168: 21,7467           33443                           STORE    XSM        +14D                       
014080,001169: 
014081,001170: 21,7470           47176                           COMP     0                                     
014082,001171: 21,7471           01443                                    XSM        +14D                       
014083,001172: 21,7472           33437                           STORE    XSM        +10D                       
014084,001173: 
014085,001174: 21,7473           40576                           ITCQ     0                                     
014086,001175: 

Page 363

014088,001177: 
014089,001178:                                                                                                  #  ROUTINE TO CONVERT TARGET AZIMUTH AND ELEVATIONS TO VECTORS
014090,001179: 
014091,001180: 
014092,001181: 
014093,001182: 21,7474           75575        PROCTARG           AXT,1    1                                     
014094,001183: 21,7475           74461                           AXT,2    AST,2                                 
014095,001184: 21,7476           00002                                    1                                     
014096,001185: 21,7477           00015                                    12D                                   
014097,001186: 21,7500           00007                                    6                                     
014098,001187: 
014099,001188: 21,7501           42175        PROC1              SMOVE*   1                                     
014100,001189: 21,7502           56776                           TSRT                                           
014101,001190: 21,7503           02723                                    TEL        +1,1                       
014102,001191: 21,7504           00003                                    2                                     
014103,001192: 21,7505           32001                           STORE    0                                     
014104,001193: 
014105,001194: 21,7506           57176                           SIN      0                                     
014106,001195: 21,7507           00001                                    0                                     
014107,001196: 21,7510           37036                           STORE    TARGET1    +12D,2                     
014108,001197: 21,7511           55176                           COS      0                                     
014109,001198: 21,7512           00001                                    0                                     #  PUSH DOWN THE COSINE OF ELEVATION
014110,001199: 
014111,001200: 21,7513           42175                           SMOVE*   1                                     
014112,001201: 21,7514           76576                           RTB                                            
014113,001202: 21,7515           02717                                    TAZ        +1,1                       
014114,001203: 21,7516           20304                                    CDULOGIC                              
014115,001204: 21,7517           32003                           STORE    2                                     #  THEN Y=0.5SIN(AZ)COS(EL)
014116,001205: 
014117,001206: 21,7520           57175                           SIN      1                                     
014118,001207: 21,7521           64716                           DMP      TSLT                                  
014119,001208: 21,7522           00003                                    2                                     
014120,001209: 21,7523           00001                                    0                                     
014121,001210: 21,7524           00002                                    1                                     
014122,001211: 21,7525           37042                           STORE    TARGET1    +14D,2                     
014123,001212: 
014124,001213: 21,7526           55175                           COS      1                                     
014125,001214: 21,7527           64716                           DMP      TSLT                                  
014126,001215: 21,7530           00003                                    2                                     
014127,001216: 21,7531           77777                                    -                                     
014128,001217: 21,7532           00002                                    1                                     
014129,001218: 21,7533           37046                           STORE    TARGET1    +16D,2                     
014130,001219: 21,7534           75575                           AXT,1    1                                     
014131,001220: 21,7535           50401                           TIX,2    ITCQ                                  
014132,001221: 21,7536           00001                                    0                                     
014133,001222: 21,7537           03502                                    PROC1                                 
014134,001223: 

Page 364

014136,001225: 
014137,001226:                                                                                                  #  ROUTINE TO ROTATE COORDINATE SYSTEM BY EARTHRATE TIMES TIME           ON
014138,001227: 
014139,001228: 
014140,001229: 
014141,001230: 21,7540           00630        V06N30P            OCTAL    00630                                 
014142,001231: 21,7541           00021        XVII               DEC      17         B-14                       
014143,001232: 

Page 365

014145,001234: 
014146,001235:                                                                                                  #  ROUTINE TO DISPLAY STORED DATA FOR CHECKING AND MODIFICATION,VERB NOUN
014147,001236:                                                                                                  #  IS STORED AT L +1,RETURN IS TO L +2 FOR TERMINATE,L +3 FOR GOOD DATA OR PROCEDE
014148,001237: 
014149,001238: 
014150,001239: 
014151,001240: 21,7542           30001        CHECKNV            XCH      Q                                     
014152,001241: 21,7543           51354                           TS       CHKNVTEM                              
014153,001242: 21,7544           21354                           INDEX    CHKNVTEM                              
014154,001243: 21,7545           30000                           XCH      A                                     
014155,001244: 
014156,001245: 21,7546           03100                           TC       NVSUB                                 
014157,001246: 21,7547           07562                           TC       CHECKNV1                              
014158,001247: 21,7550           05654                           TC       BANKCALL                              
014159,001248: 21,7551           14000                           CADR     FLASHON                               
014160,001249: 
014161,001250: 21,7552           03136                           TC       ENDIDLE                               
014162,001251: 21,7553           07556                           TC       +3                                    
014163,001252: 21,7554           07560                           TC       +4                                    
014164,001253: 21,7555           07544                           TC       CHECKNV    +2                         
014165,001254: 
014166,001255: 21,7556           21354                           INDEX    CHKNVTEM                              
014167,001256: 21,7557           00001                           TC       Q                                     
014168,001257: 21,7560           21354                           INDEX    CHKNVTEM                              
014169,001258: 21,7561           00002                           TC       Z                                     
014170,001259: 
014171,001260: 21,7562           37564        CHECKNV1           CAF      CHECKNV2                              
014172,001261: 21,7563           03320                           TC       NVSUBUSY                              
014173,001262: 21,7564           43544        CHECKNV2           CADR     CHECKNV    +2                         

End of include-file PRELAUNCH_ALIGNMENT_PROGRAM.agc.  Parent file is MAIN.agc