Source Code

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