Source Code

006309,000002: ## Copyright: Public domain. 006310,000003: ## Filename: T4RUPT_OUTPUT_CONTROL_PROGRAMS.agc 006311,000004: ## Purpose: Part of the source code for Solarium build 55. This 006312,000005: ## is for the Command Module's (CM) Apollo Guidance 006313,000006: ## Computer (AGC), for Apollo 6. 006314,000007: ## Assembler: yaYUL --block1 006315,000008: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com> 006316,000009: ## Website: www.ibiblio.org/apollo/index.html 006317,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Solarium055/ 006318,000011: ## Mod history: 2009-10-02 JL Created. 006319,000012: ## 2016-08-18 RSB Typo. 006320,000013: ## 2016-08-23 RSB More of the same. 006321,000014: ## 2016-12-28 RSB Proofed comment text using octopus/ProoferComments, 006322,000015: ## and fixed errors found. 006323,000016:

Page 159

006325,000018:    2630                                           BANK     1                                     
006326,000019:    2630           35501        T4RUPT             CAF      ZERO                                  #  ALONSO THINKS THIS SHOULD BE TURNED OFF
006327,000020:    2631           50010                           TS       OUT0                                  #  EVERY 60 MS AS A MATTER OF COURSE.
006328,000021:    2632           10033                           CCS      DSRUPTSW                              #  SEE IF THIS IS A SPECIAL RUPT TO
006329,000022:    2633           02643                           TC       REGRUPT    +1                         #  ZERO OUT0 20MS AFTER IT WAS DRIVEN BY
006330,000023:    2634           02642                           TC       REGRUPT                               #  DSPOUT. IF SO, DSRUPTSW IS NNZ.
006331,000024: 
006332,000025:    2635           64516                           AD       ONE                                   #  RESTORE DSRUPTSW TO ITS POSITIVE VALUE.
006333,000026:    2636           50033                           TS       DSRUPTSW                              
006334,000027: 
006335,000028:    2637           32651                           CAF      40MSRUPT                              #  SET TIME4 TO INTERRUPT 40 MS FROM NOW.
006336,000029:    2640           50040                           TS       TIME4                                 #  RE-ESTABLISHING THE REGULAR 60 MS
006337,000030:    2641           02266                           TC       NBRESUME                              #  PATTERN. THEN DO NO-BANK-SWITCH RESUME.
006338,000031: 
006339,000032:    2642           35362        REGRUPT            CAF      SEVEN                                 #  REGULAR 60 MS RUPT - COUNT DOWN ON
006340,000033:    2643           50033                 +1        TS       DSRUPTSW                              #  DSRUPTSW.
006341,000034: 
006342,000035:    2644           32650                           CAF      LT4RUPTA                              #  CALL IN APPROPRIATE BANK.
006343,000036:    2645           30015                           XCH      BANKREG                               #  SAVE BANKREG FOR RESUME.
006344,000037:    2646           50030                           TS       BANKRUPT                              
006345,000038:    2647           06115                           TC       T4RUPTA                               
006346,000039: 
006347,000040:    2650           20115        LT4RUPTA           CADR     T4RUPTA                               
006348,000041: 
006349,000042:    2651           37774        40MSRUPT           OCT      37774                                 #  INTERRUPT IN 40 MS.
006350,000043: 
006351,000044: 
006352,000045:                                                                                                  #  RELTAB IS A PACKED TABLE. RELAYWORD CODE IN UPPER 4 BITS, RELAY CODE
006353,000046:                                                                                                  #  IN LOWER 5 BITS.
006354,000047: 
006355,000048:    2652           04025        RELTAB             OCT      04025                                 
006356,000049:    2653           10003                           OCT      10003                                 
006357,000050:    2654           14031                           OCT      14031                                 
006358,000051:    2655           20033                           OCT      20033                                 
006359,000052:    2656           24017                           OCT      24017                                 
006360,000053:    2657           30036                           OCT      30036                                 
006361,000054:    2660           34034                           OCT      34034                                 
006362,000055:    2661           40023                           OCT      40023                                 
006363,000056:    2662           44035                           OCT      44035                                 
006364,000057:    2663           50037                           OCT      50037                                 
006365,000058:    2664           54000                           OCT      54000                                 
006366,000059:    2665           60000        RELTAB11           OCT      60000                                 
006367,000060:    2666           64000                           OCT      64000                                 
006368,000061:    2667           70000        70K                OCT      70000                                 #  ALSO USEFUL AS A BANK-SWITCHING MASK.
006369,000062: 

Page 160

006371,000064: 
006372,000065:                                                                                                  #        ROUTINE TO ZERO (OR PSEUDO-ZERO) THE OPTICS COUNTERS.
006373,000066: 
006374,000067:    2670           35501        ZEROOCTR           CAF      ZERO                                  
006375,000068:    2671           50052                           TS       OPTX                                  
006376,000069:                                                                                                  #  RIGHT HERE WE USED TO TEST BIT 13 OF WASOPSET. NOW ASSUME
006377,000070:                                                                                                  #  UNCONDITIONALLY THAT SXT POWER IS ON (BIT 13 = 1).
006378,000071:    2672           42675                           CS       20DEGS                                #  SET OPTY APPROX -20 DEGS (SXT ON)
006379,000072:    2673           50053                           TS       OPTY                                  
006380,000073:    2674           00001                           TC       Q                                     
006381,000074: 
006382,000075:    2675           16037        20DEGS             DEC      7199       B-14                       
006383,000076: 

Page 161

006385,000078: 
006386,000079:                                                                                                  #        SWITCHED-BANK PORTION OF T4RUPT.
006387,000080: 
006388,000081: 10,6115                                           BANK     10                                    
006389,000082: 10,6115           30034        T4RUPTA            XCH      OVCTR                                 #  SAVE OVCTR.
006390,000083: 10,6116           50031                           TS       OVRUPT                                
006391,000084: 
006392,000085: 10,6117           37047                           CAF      60MSRUPT                              #  T4 NORMALLY INTERRUPTS EVERY 60 MS.
006393,000086: 10,6120           50040                           TS       TIME4                                 
006394,000087: 
006395,000088: 10,6121           30004                           XCH      IN0                                   #  RESET IN0 TO PRESENT VALUE OF DESCRETES.
006396,000089: 10,6122           36140                           CAF      DSKYMASK                              #  RESET DOUBLE-ENTRY INTERLOCK IF KEYCODE
006397,000090: 10,6123           70004                           MASK     IN0                                   #  HAS DISAPPEARED.
006398,000091: 10,6124           10000                           CCS      A                                     
006399,000092: 10,6125           06133                           TC       DSKYON                                
006400,000093: 10,6126           06130                           TC       +2                                    #  RESET.
006401,000094: 10,6127           06133                           TC       DSKYON                                
006402,000095: 
006403,000096: 10,6130           44512                           CS       BIT5                                  
006404,000097: 10,6131           70645                           MASK     STATE                                 
006405,000098: 10,6132           50645                           TS       STATE                                 
006406,000099: 
006407,000100: 10,6133           10677        DSKYON             CCS      CDUIND                                #  DO AN IMU-CDU IF DESIRED.
006408,000101: 10,6134           06142                           TC       DOIMUCDU   +1                         #  WITH NEW CDUIND IN A.
006409,000102: 10,6135           06141                           TC       DOIMUCDU                              #  SET COUNT TO 2.
006410,000103: 
006411,000104: 10,6136           06223                           TC       DSRUPTBR                              #  NO CDU. NNZ MEANS CDUS ARE RESERVED.
006412,000105: 10,6137           06223                           TC       DSRUPTBR                              #  -0 MEANS THEY ARE AVAILABLE.
006413,000106: 
006414,000107: 
006415,000108: 
006416,000109: 10,6140           40037        DSKYMASK           OCT      40037                                 #  INCLUDES KEYCODE AND MARK BIT.
006417,000110: 

Page 162

006419,000112: 
006420,000113:                                                                                                  #        T4RUPT IMU CDU DRIVE - SERVICED EVERY 60 MS.
006421,000114: 
006422,000115: 10,6141           35503        DOIMUCDU           CAF      TWO                                   #  SET CDUIND BACK TO 2.
006423,000116: 10,6142           50677                 +1        TS       CDUIND                                
006424,000117: 
006425,000118: 10,6143           30003                           XCH      LP                                    #  SAVE LP FOR IMU CDU DRIVE ONLY.
006426,000119: 10,6144           50032                           TS       LPRUPT                                
006427,000120: 
006428,000121: 10,6145           20677                           INDEX    CDUIND                                #  0 FOR X, 1 FOR Y, AND 2 FOR Z.
006429,000122: 10,6146           40700                           CS       THETAD                                #  PICK UP DESIRED ANGLE.
006430,000123: 10,6147           50600                           TS       ITEMP2                                
006431,000124: 
006432,000125: 10,6150           20677                           INDEX    CDUIND                                
006433,000126: 10,6151           40047                           CS       CDUX                                  #  READ AND SAVE CDU COUNTER.
006434,000127: 10,6152           07410                           TC       2SCOMDIF                              #  DIFFERENCE WITH -0 UNEQUAL TO +0.
006435,000128: 
006436,000129: 10,6153           25777                           EXTEND                                         #  RETURNS WITH DIFFERENCE IN A.
006437,000130: 10,6154           46215                           MP       KG                                    
006438,000131: 10,6155           50577                           TS       ITEMP1                                #  COMMAND TO TEMP STORAGE
006439,000132: 10,6156           10000                           CCS      A                                     #  CHECK SIGNUM OF COMMAND
006440,000133: 10,6157           06166                           TC       POSCOM2                               
006441,000134: 10,6160           06220                           TC       CDURSM                                
006442,000135: 10,6161           06163                           TC       NEGCOM2                               
006443,000136: 10,6162           06220                           TC       CDURSM                                

Page 163

006445,000138: 
006446,000139: 10,6163           50577        NEGCOM2            TS       ITEMP1                                #  SAVE CCS OF COMMAND.
006447,000140: 10,6164           40677                           CS       CDUIND                                #  USE NEGATIVE TO SELECT OUT2 PATTERN.
006448,000141: 10,6165           06171                           TC       CDUOUT                                
006449,000142: 
006450,000143: 10,6166           50577        POSCOM2            TS       ITEMP1                                #  SAME AS ABOVE EXCEPT 1+CDUIND SELECTS.
006451,000144: 10,6167           34516                           CAF      ONE                                   
006452,000145: 10,6170           60677                           AD       CDUIND                                
006453,000146: 
006454,000147: 10,6171           50034        CDUOUT             TS       OVCTR                                 
006455,000148: 10,6172           36200                           CAF      DUMCODE                               #  CODE WHICH INTERRUPTS OUT2 PULSES DURING
006456,000149: 10,6173           30012                           XCH      OUT2                                  #   OUT2 MODIFICATION, BUT ALLOWS DETEC-
006457,000150: 10,6174           77465                           MASK     LOW8                                  #   TION OF THE VERY RARE EVENT THAT THE
006458,000151: 10,6175           30012                           XCH      OUT2                                  #   PULSE THATRESETS ANOTHER FIELD OF OUT2
006459,000152: 10,6176           66201                           AD       -DUMCODE                              #   WAS REQUESTED DURING THE ORIGINAL
006460,000153: 10,6177           10000                           CCS      A                                     #   XCH OUT2.
006461,000154: 10,6200           02040        DUMCODE            OCT      02040                                 #  INCOMPLETE OUT2 SETTINGS (X AND OPTX).
006462,000155: 10,6201           75737        -DUMCODE           OCT      -2040                                 
006463,000156: 10,6202           07377                           TC       JACKPOT                               #  THE PROBABILITY OF THIS IS ABOUT ZERO.
006464,000157: 
006465,000158: 10,6203           40577                           CS       ITEMP1                                #  FORM 1.0 - ABS(COMMAND).
006466,000159: 10,6204           64476                           AD       POSMAX                                
006467,000160: 10,6205           50042                           TS       OUTCR1                                
006468,000161: 
006469,000162: 10,6206           36200                           CAF      DUMCODE                               
006470,000163: 10,6207           30012                           XCH      OUT2                                  #  NOW ENABLE OUTCR1 BY SETTING OUT2.
006471,000164: 10,6210           20034                           INDEX    OVCTR                                 
006472,000165: 10,6211           67452                           AD       CDUCODES   +2                         
006473,000166: 10,6212           30012                           XCH      OUT2                                  
006474,000167: 10,6213           66201                           AD       -DUMCODE                              
006475,000168: 10,6214           10000                           CCS      A                                     
006476,000169: 
006477,000170: 10,6215           05605        KG                 DEC      .18                                   #  CDU DRIVING GAIN
006478,000171: 10,6216           03062                           TC       CCSHOLE                               
006479,000172: 10,6217           07377                           TC       JACKPOT                               
006480,000173: 
006481,000174: 10,6220           34516        CDURSM             CAF      ONE                                   #  RESTORE LP.
006482,000175: 10,6221           25777                           EXTEND                                         
006483,000176: 10,6222           40032                           MP       LPRUPT                                
006484,000177: 

Page 164

006486,000179: 
006487,000180:                                                                                                  #        BRANCH ACCORDING TO DSRUPTSW  AND PERFORM THE APPROPRIATE DSRUPT FUNCTIONS.
006488,000181: 
006489,000182: 10,6223           20033        DSRUPTBR           INDEX    DSRUPTSW                              #  JUMP ON DSRUPTSW.
006490,000183: 10,6224           06225                           TC       +1                                    
006491,000184: 10,6225           06701                           TC       TMCHECK                               #  =0
006492,000185: 10,6226           06447                           TC       LOSCAN                                #  LOOK FOR LIFT OFF EVERY 480 MS.
006493,000186: 10,6227           06701                           TC       TMCHECK                               
006494,000187: 10,6230           06355                           TC       NWALM                                 #  INITIATE NIGHT WATCHMAN JOB.
006495,000188: 10,6231           06701                           TC       TMCHECK                               #  =4
006496,000189: 10,6232           06501                           TC       OPTTEST                               #  =5    SERVICE OPTICS CDUS.
006497,000190: 10,6233           06701                           TC       TMCHECK                               #  =6
006498,000191: 

Page 165

006500,000193: 
006501,000194:                                                                                                  #        SYSTEM FAILURE INPUT BITS MONITOR - ENTERED EVERY 480 MS BY T4RUPT.
006502,000195: 
006503,000196: 10,6234           10726        ERRORMON           CCS      OLDERR                                #  IGNORE BITS IF C(OLDERR) = 40000
006504,000197: 10,6235           06240                           TC       ERRMON                                #  ORDINARILY POSITIVE.
006505,000198: 10,6236           06240                           TC       ERRMON                                
006506,000199: 10,6237           06463                           TC       ENDT4ERR                              
006507,000200: 
006508,000201: 10,6240           30006        ERRMON             XCH      IN2                                   #  REFRESH LAST-SAMPLED-ERRORS REGISTER.
006509,000202: 10,6241           30006                           XCH      IN2                                   
006510,000203: 10,6242           76252                           MASK     ERRMASK                               
006511,000204: 10,6243           50600                           TS       ITEMP2                                
006512,000205: 10,6244           36252                           CAF      ERRMASK                               
006513,000206: 10,6245           70726                           MASK     OLDERR                                
006514,000207: 10,6246           40000                           COM                                            
006515,000208: 10,6247           60600                           AD       ITEMP2                                
006516,000209: 10,6250           10000                           CCS      A                                     
006517,000210: 10,6251           06255                           TC       ERRCHANG                              #  CHANGED.
006518,000211: 10,6252           07000        ERRMASK            OCT      07000                                 #  IMU, CDU, AND PIPA FAIL.
006519,000212: 10,6253           06255                           TC       ERRCHANG                              
006520,000213: 10,6254           06463                           TC       ENDT4ERR                              #  EXIT - NO CHANGE HAS TAKEN PLACE.
006521,000214: 
006522,000215: 10,6255           46252        ERRCHANG           CS       ERRMASK                               #  UPDATE IMU FAIL BITS IN OLDERR.
006523,000216: 10,6256           70726                           MASK     OLDERR                                
006524,000217: 10,6257           60600                           AD       ITEMP2                                
006525,000218: 10,6260           50726                           TS       OLDERR                                
006526,000219: 
006527,000220: 10,6261           36277                           CAF      LITESOUT                              
006528,000221: 10,6262           70723                           MASK     DSPTAB     +11D                       
006529,000222: 10,6263           64500                           AD       BIT15                                 #  TO INDICATE CHANGE.
006530,000223: 10,6264           50723                           TS       DSPTAB     +11D                       
006531,000224: 
006532,000225: 10,6265           35503                           CAF      TWO                                   #  TURN ON LIGHTS ACCORDING TO C(OLDERR).
006533,000226: 10,6266           50600        ERRSCAN            TS       ITEMP2                                
006534,000227: 10,6267           20000                           INDEX    A                                     
006535,000228: 10,6270           34503                           CAF      BIT12                                 #  SELECT BIT IN OLDERR.
006536,000229: 10,6271           70726                           MASK     OLDERR                                
006537,000230: 10,6272           10000                           CCS      A                                     
006538,000231: 10,6273           06300                           TC       BITON                                 #  BIT IS PRESENT.
006539,000232: 
006540,000233: 10,6274           10600        ERRSCAN3           CCS      ITEMP2                                #  LOOP THREE TIMES THROUGH.
006541,000234: 10,6275           06266                           TC       ERRSCAN                               
006542,000235: 
006543,000236: 10,6276           06463                           TC       ENDT4ERR                              #  FINISHED.
006544,000237: 
006545,000238: 10,6277           37437        LITESOUT           OCT      37437                                 
006546,000239: 

Page 166

006548,000241: 
006549,000242:                                                                                                  #        PROCESS ERROR SIGNALS PRESENT. NOTE THAT C(WASKSET) INDICATES THE STATE OF THE SYSTEM SINCE NO RELAYS
006550,000243:                                                                                                  #  HAVE BEEN SWITCHED IN THE LAST 120 MS, AND KSAMP WAS EXECUTED 60 MS AGO.
006551,000244: 
006552,000245: 10,6300           20600        BITON              INDEX    ITEMP2                                #  2, 1, OR 0.
006553,000246: 10,6301           06302                           TC       +1                                    
006554,000247: 10,6302           06305                           TC       IMUFAIL                               
006555,000248: 10,6303           06346                           TC       PIPAFAIL                              
006556,000249: 10,6304           06327                           TC       CDUFAIL                               
006557,000250: 
006558,000251: 10,6305           10727        IMUFAIL            CCS      WASKSET                               #  FAILURE NOT LEGITMATE IF IN COARSE ALIGN
006559,000252: 10,6306           06316                           TC       IMUFAIL2                              #  PURSUE THIS ONE.
006560,000253: 10,6307           06350                           TC       NOFAIL                                #  NO MODE-DEPENDENT FAILURE MONITORING
006561,000254: 10,6310           06350                           TC       NOFAIL                                #  IF MODING FAILURE OR PROCEDURAL FAILURE.
006562,000255: 10,6311           06350                           TC       NOFAIL                                
006563,000256: 
006564,000257: 10,6312           34507        IMUFAIL3           CAF      BIT8                                  #  TURN ON IMU FAIL LIGHT.
006565,000258: 10,6313           60723        FAILITON           AD       DSPTAB     +11D                       #  (WHICH HAD BEEN ZEROED IN ALL LIGHT
006566,000259: 10,6314           50723                           TS       DSPTAB     +11D                       #  POSITIONS).
006567,000260: 10,6315           06274                           TC       ERRSCAN3                              #  PROCESS NEXT INPUT BIT.
006568,000261: 
006569,000262: 10,6316           64516        IMUFAIL2           AD       ONE                                   #  SEE IF COASE ALIGN ACHIEVED.
006570,000263: 10,6317           74515                           MASK     BIT2                                  
006571,000264: 10,6320           10000                           CCS      A                                     
006572,000265: 10,6321           06350                           TC       NOFAIL                                
006573,000266: 10,6322           34513                           CAF      BIT4                                  #  SEE IF WITHIN 5 SECONDS OF COARSE ALIGN.
006574,000267: 10,6323           70726                           MASK     OLDERR                                
006575,000268: 10,6324           10000                           CCS      A                                     
006576,000269: 10,6325           06350                           TC       NOFAIL                                #  IF SO.
006577,000270: 10,6326           06312                           TC       IMUFAIL3                              #  FAILED.
006578,000271: 
006579,000272: 10,6327           10727        CDUFAIL            CCS      WASKSET                               
006580,000273: 10,6330           06336                           TC       CDUFAIL2                              #  FAILURE ONLY IF IN FINE ALIGN.
006581,000274: 10,6331           06350                           TC       NOFAIL                                #  (SEE NOTE FOR IMUFAIL).
006582,000275: 10,6332           06350                           TC       NOFAIL                                
006583,000276: 10,6333           06350                           TC       NOFAIL                                
006584,000277: 
006585,000278: 10,6334           34511        CDUFAIL3           CAF      BIT6                                  #  CDU FAIL LIGHT ON.
006586,000279: 10,6335           06313                           TC       FAILITON                              
006587,000280: 
006588,000281: 10,6336           44511        CDUFAIL2           CS       BIT6                                  #  TURN ON FAIL LIGHT ONLY IF IN FINE ALIGN
006589,000282: 10,6337           70727                           MASK     WASKSET                               
006590,000283: 10,6340           66343                           AD       -BIT4                                 
006591,000284: 10,6341           10000                           CCS      A                                     
006592,000285: 10,6342           06350                           TC       NOFAIL                                
006593,000286: 10,6343           77767        -BIT4              OCT      -10                                   
006594,000287: 10,6344           06350                           TC       NOFAIL                                
006595,000288: 10,6345           06334                           TC       CDUFAIL3                              #  TURN ON THE LIGHT.
006596,000289: 
006597,000290: 10,6346           34510        PIPAFAIL           CAF      BIT7                                  #  TURN ON FAIL LIGHT UNCONDITIONALLY.
006598,000291: 10,6347           06313                           TC       FAILITON                              

Page 167

006600,000293: 
006601,000294: 10,6350           20600        NOFAIL             INDEX    ITEMP2                                #  COMES HERE IF PRESENT MODE INHIBITS FAIL
006602,000295: 10,6351           44503                           CS       BIT12                                 #  BITS. THIS MAINTAINS PRESENT ACTUAL
006603,000296: 10,6352           70726                           MASK     OLDERR                                #  ERRORS IN OLDERR FOR THE NIGHT WATCH-
006604,000297: 10,6353           50726                           TS       OLDERR                                #  MANS BENEFIT, IN PARTICULAR.
006605,000298: 10,6354           06274                           TC       ERRSCAN3                              
006606,000299: 

Page 168

006608,000301: 
006609,000302:                                                                                                  #        NIGHT-WATCHMAN ALARM, SERVICED EVERY 480 MS BY T4RUPT.
006610,000303: 
006611,000304: 10,6355           32171        NWALM              CAF      PRIO36                                
006612,000305: 10,6356           02052                           TC       NOVAC                                 
006613,000306: 10,6357           20364                           CADR     NWJOB                                 
006614,000307: 
006615,000308: 10,6360           44505                           CS       BIT10                                 #  RESET BLOCK-ENDPULSE EVERY HALF SECOND.
006616,000309: 10,6361           70011                           MASK     OUT1                                  
006617,000310: 10,6362           50011                           TS       OUT1                                  
006618,000311: 
006619,000312: 10,6363           06463                           TC       S4BSCAN                               
006620,000313: 
006621,000314: 
006622,000315: 
006623,000316:                                                                                                  #        NIGHT-WATCHMAN JOB - DIDDLES TMALM FOR 24 MICRO-SEC AFTER VERIFYING THAT NEWJOB IS BEING TESTED.
006624,000317: 
006625,000318: 10,6364           37503        NWJOB              CAF      NWMASK                                #  DONT ISSUE SIGNAL IF IMU, PIPA, OR
006626,000319: 10,6365           20017                           INHINT                                         
006627,000320: 10,6366           70726                           MASK     OLDERR                                #  RESTART FAIL IS ON.
006628,000321: 10,6367           10000                           CCS      A                                     
006629,000322: 10,6370           06405                           TC       NONNWJOB                              
006630,000323: 10,6371           44513        DONW               CS       BIT4                                  
006631,000324: 10,6372           70011                           MASK     OUT1                                  
006632,000325: 10,6373           50001                           TS       Q                                     
006633,000326: 10,6374           40011                           CS       OUT1                                  
006634,000327: 10,6375           74513                           MASK     BIT4                                  
006635,000328: 10,6376           60001                           AD       Q                                     
006636,000329: 10,6377           30011                           XCH      OUT1                                  
006637,000330: 10,6400           50011                           TS       OUT1                                  
006638,000331: 10,6401           44514                           CS       BIT3                                  #  RESET INHIBIT INDICATOR.
006639,000332: 10,6402           70726                           MASK     OLDERR                                
006640,000333: 10,6403           50726                           TS       OLDERR                                
006641,000334: 10,6404           02124                           TC       ENDOFJOB                              
006642,000335: 
006643,000336: 10,6405           62261        NONNWJOB           AD       BANKMASK                              #  SEE IF PIPA FAIL ONLY PROBLEM.
006644,000337: 10,6406           10000                           CCS      A                                     
006645,000338: 10,6407           06427                           TC       NOINH                                 
006646,000339: 10,6410           06427                           TC       NOINH                                 
006647,000340: 10,6411           06427                           TC       NOINH                                 
006648,000341: 
006649,000342: 10,6412           45362                           CS       SEVEN                                 #  CHECK FOR MODES 22 - 27.
006650,000343: 10,6413           70612                           MASK     MODREG                                
006651,000344: 10,6414           66417                           AD       -MODE20                               
006652,000345: 10,6415           10000                           CCS      A                                     
006653,000346: 10,6416           06427                           TC       NOINH                                 
006654,000347: 10,6417           77757        -MODE20            OCT      -20                                   
006655,000348: 10,6420           06427                           TC       NOINH                                 
006656,000349: 
006657,000350: 10,6421           46425                           CS       MODE21                                #  NO MODE 20.
006658,000351: 10,6422           60612                           AD       MODREG                                

Page 169

006660,000353: 10,6423           10000                           CCS      A                                     
006661,000354: 10,6424           06371                           TC       DONW                                  
006662,000355: 10,6425           00021        MODE21             OCT      21                                    
006663,000356: 10,6426           06371                           TC       DONW                                  
006664,000357: 
006665,000358: 10,6427           44514        NOINH              CS       BIT3                                  #  SEE IF WE HAVE HAD TWO CONSECUTIVE
006666,000359: 10,6430           70726                           MASK     OLDERR                                #  CONSECUTIVE INHIBITS.
006667,000360: 10,6431           64514                           AD       BIT3                                  
006668,000361: 10,6432           30726                           XCH      OLDERR                                
006669,000362: 10,6433           74514                           MASK     BIT3                                  
006670,000363: 10,6434           10000                           CCS      A                                     
006671,000364: 10,6435           06437                           TC       +2                                    
006672,000365: 10,6436           02124                           TC       ENDOFJOB                              
006673,000366: 10,6437           20016                           RELINT                                         
006674,000367: 10,6440           02346                           TC       CHECKMM                               #  SET MM 77 IF REQUIRED.
006675,000368: 10,6441           00077                           OCT      77                                    
006676,000369: 10,6442           06444                           TC       +2                                    
006677,000370: 10,6443           02124                           TC       ENDOFJOB                              
006678,000371: 10,6444           02362                           TC       NEWMODE                               
006679,000372: 10,6445           00077                           OCT      77                                    #  G AND N FLUSHED.
006680,000373: 10,6446           02124                           TC       ENDOFJOB                              
006681,000374: 

Page 170

006683,000376: 
006684,000377:                                                                                                  #        SCAN FOR LIFT-OFF EVERY 480 MS.
006685,000378: 
006686,000379: 10,6447           40006        LOSCAN             CS       IN2                                   
006687,000380: 10,6450           40006                           CS       IN2                                   
006688,000381: 10,6451           74512                           MASK     BIT5                                  
006689,000382: 10,6452           10000                           CCS      A                                     
006690,000383: 10,6453           06463                           TC       S4BSCAN                               
006691,000384: 10,6454           34515                           CAF      BIT2                                  #  SEE IF SIGNAL ALREADY RECEIVED.
006692,000385: 10,6455           70646                           MASK     FLAGWRD1                              
006693,000386: 10,6456           10000                           CCS      A                                     
006694,000387: 10,6457           06463                           TC       S4BSCAN                               
006695,000388: 
006696,000389: 10,6460           32157                           CAF      PRIO24                                
006697,000390: 10,6461           02046                           TC       FINDVAC                               
006698,000391: 10,6462           64000                           CADR     LIFTOFF                               
006699,000392: 
006700,000393:                                                                                                  #        S4B SEPARATE SCANNER - ENTERED EVERY 120 MS.
006701,000394: 
006702,000395: 10,6463           30006        S4BSCAN            XCH      IN2                                   
006703,000396: 10,6464           30006                           XCH      IN2                                   
006704,000397: 10,6465           74507                           MASK     BIT8                                  
006705,000398: 10,6466           10000                           CCS      A                                     
006706,000399: 10,6467           06471                           TC       +2                                    #  IF BIT ON.
006707,000400: 10,6470           06534                           TC       CDRVE                                 #  NORMAL CASE.
006708,000401: 
006709,000402: 10,6471           34507                           CAF      BIT8                                  #  SEE IF FIRST TIME BIT ON.
006710,000403: 10,6472           70646                           MASK     STATE      +1                         
006711,000404: 10,6473           10000                           CCS      A                                     
006712,000405: 10,6474           06534                           TC       CDRVE                                 #  NO ACTION UNLESS FIRST TIME ON.
006713,000406: 
006714,000407: 10,6475           32160                           CAF      PRIO25                                
006715,000408: 10,6476           02046                           TC       FINDVAC                               
006716,000409: 10,6477           64336                           CADR     S4BSMSEP                              
006717,000410: 10,6500           06534                           TC       CDRVE                                 
006718,000411: 
006719,000412: 10,6501  10,6463               NOOPTCDU           EQUALS   S4BSCAN                               
006720,000413: 10,6501  10,6463               ENDT4ERR           EQUALS   S4BSCAN                               
006721,000414: 

Page 171

006723,000416: 
006724,000417:                                                                                                  #        OPTICS CDU DRIVING PROGRAM, SERVICED EVERY 480 MS BY DSRUPT.
006725,000418: 
006726,000419: 10,6501           10703        OPTTEST            CCS      OPTIND                                #  PNZ FOR ACTIVE, NEGATIVE FOR INACTIVE.
006727,000420: 10,6502           06507                           TC       +5                                    #  DRIVE CDU.
006728,000421: 10,6503           06506                           TC       +3                                    #  DRIVE CDU.
006729,000422: 10,6504           06463                           TC       NOOPTCDU                              #  NNZ MEANS RESERVED.
006730,000423: 10,6505           06463                           TC       NOOPTCDU                              #  -0 MEANS AVAILABLE. 
006731,000424: 
006732,000425: 10,6506           34516                 +3        CAF      ONE                                   #  GOES 1(-1)0.
006733,000426: 10,6507           50703                 +5        TS       OPTIND                                
006734,000427: 
006735,000428: 10,6510           50637                           TS       RUPTREG1                              #  SET UP OUT2SUB TO START OUT-COUNTER.
006736,000429: 10,6511           34516                           CAF      ONE                                   #  (TO ADDRESS OUTCR2).
006737,000430: 10,6512           50640                           TS       RUPTREG2                              
006738,000431: 
006739,000432: 10,6513           10703                           CCS      OPTIND                                #  DRIVE OPTICS Y DIFFERENT THAN OTHERS.
006740,000433: 10,6514           06525                           TC       BLIVOT3                               #  OVF UNCORRECTION WONT WORK FOR OPTY.
006741,000434: 
006742,000435: 10,6515           20703        REGDIFF            INDEX    OPTIND                                
006743,000436: 10,6516           40704                           CS       DESOPTX                               #  DESIRED ANGLES.
006744,000437: 10,6517           50600                           TS       ITEMP2                                
006745,000438: 
006746,000439: 10,6520           20703                           INDEX    OPTIND                                
006747,000440: 10,6521           40052                           CS       OPTX                                  #  READ COUNTER.
006748,000441: 10,6522           07410                           TC       2SCOMDIF                              #  TAKES DIFFERENCE WITH -0 UNEQUAL TO +0.
006749,000442: 
006750,000443: 10,6523           06631        OPTOUT             TC       OUT2SUB                               
006751,000444: 
006752,000445: 10,6524           06463                           TC       S4BSCAN                               
006753,000446: 
006754,000447: 10,6525           40053        BLIVOT3            CS       OPTY                                  #  IF THE DIFFERENCE OVERFLOWS, THE ERROR
006755,000448: 10,6526           60705                           AD       DESOPTX    +1                         #   ERROR SIGNAL IS GREATER THAN 16383, SO
006756,000449: 10,6527           50001                           TS       Q                                     #   JUST THROW IN POSMAX WITH THE RIGHT 
006757,000450: 10,6530           06515                           TC       REGDIFF                               #   SIGN AND CALL IT A DAY. OTHERWISE FOLL-
006758,000451: 
006759,000452: 10,6531           20000                           INDEX    A                                     #   THE USUAL PROCEDURES.
006760,000453: 10,6532           44477                           CS       LIMITS                                
006761,000454: 10,6533           06523                           TC       OPTOUT                                
006762,000455: 

Page 172

006764,000457: 
006765,000458:                                                                                                  #        CDRVE  CHANGES A BANK OF C RELAYS IF ANY CHANGE IS INDICATED IN THE C-RELAY PORTION OF DSPTAB.
006766,000459: 
006767,000460: 10,6534           10725        CDRVE              CCS      DSPTAB     +13D                       #  SPACECRAFT RELAYS HAVE HIGHEST PRIORITY.
006768,000461: 10,6535           06544                           TC       CDRVE1                                
006769,000462: 10,6536           06544                           TC       CDRVE1                                
006770,000463: 
006771,000464: 10,6537           34302                           CAF      LOW11                                 
006772,000465: 10,6540           70725                           MASK     DSPTAB     +13D                       
006773,000466: 10,6541           50725                           TS       DSPTAB     +13D                       
006774,000467: 10,6542           62667                           AD       RELTAB11   +2                         
006775,000468: 10,6543           06623                           TC       DSPLAYC                               
006776,000469: 
006777,000470: 10,6544           10723        CDRVE1             CCS      DSPTAB     +11D                       #  IMU AND CAUTION LIGHTS.
006778,000471: 10,6545           06554                           TC       CDRVE2                                
006779,000472: 10,6546           06554                           TC       CDRVE2                                
006780,000473: 
006781,000474: 10,6547           34302                           CAF      LOW11                                 
006782,000475: 10,6550           70723                           MASK     DSPTAB     +11D                       
006783,000476: 10,6551           50723                           TS       DSPTAB     +11D                       
006784,000477: 10,6552           62665                           AD       RELTAB11                              
006785,000478: 10,6553           06623                           TC       DSPLAYC                               
006786,000479: 
006787,000480: 10,6554           10724        CDRVE2             CCS      DSPTAB     +12D                       #  OPTICS.
006788,000481: 10,6555           06564                           TC       DSPOUT                                
006789,000482: 10,6556           06564                           TC       DSPOUT                                
006790,000483: 
006791,000484: 10,6557           34302                           CAF      LOW11                                 
006792,000485: 10,6560           70724                           MASK     DSPTAB     +12D                       
006793,000486: 10,6561           50724                           TS       DSPTAB     +12D                       
006794,000487: 10,6562           62666                           AD       RELTAB11   +1                         
006795,000488: 10,6563           06623                           TC       DSPLAYC                               
006796,000489: 
006797,000490: 10,6564           10707        DSPOUT             CCS      NOUT                                  #  ENTERED IN INTERRUPTED STATE AT END OF
006798,000491: 10,6565           06567                           TC       +2                                    #                          DSRUPT
006799,000492: 10,6566           02262                           TC       LVDSRUPT                              
006800,000493: 10,6567           50707                           TS       NOUT                                  
006801,000494: 10,6570           45501                           CS       ZERO                                  
006802,000495: 10,6571           50600                           TS       DSRUPTEM                              #  SET TO -0 FOR 1ST PASS THRU DSPTAB
006803,000496: 10,6572           30706                           XCH      DSPCNT                                
006804,000497: 10,6573           65504                           AD       NEG0                                  #  TO PREVENT +0
006805,000498: 10,6574           50706                           TS       DSPCNT                                
006806,000499: 10,6575           20706        DSPSCAN            INDEX    DSPCNT                                
006807,000500: 10,6576           10710                           CCS      DSPTAB                                
006808,000501: 10,6577           10706                           CCS      DSPCNT                                #  IF DSPTAB ENTRY +, SKIP
006809,000502: 10,6600           06573                           TC       DSPSCAN    -2                         #  IF DSPCNT +, AGAIN
006810,000503: 10,6601           06612                           TC       DSPLAY                                #  IF DSPTAB ENTRY -, DISPLAY
006811,000504: 10,6602           00012        TABLNTH            OCT      12                                    #  DEC 10   LENGTH OF DSPTAB
006812,000505: 10,6603           10600                           CCS      DSRUPTEM                              #  IF DSRUPTEM=+0,2ND PASS THRU DSPTAB
006813,000506: 10,6604           03062                           TC       CCSHOLE                               #  (DSPCNT=0). +0 INTO NOUT, RESUME.
006814,000507: 10,6605           50707                           TS       NOUT                                  

Page 173

006816,000509: 10,6606           02262                           TC       LVDSRUPT                              
006817,000510: 10,6607           50600                           TS       DSRUPTEM                              #  IF DSRUPTEM=-0,1ST PASS THRU DSPTAB
006818,000511: 10,6610           36602                           CAF      TABLNTH                               #  (DSPCNT=0). +0 INTO DSRUPTEM. PASS AGAIN
006819,000512: 10,6611           06574                           TC       DSPSCAN    -1                         
006820,000513: 
006821,000514: 10,6612           64516        DSPLAY             AD       ONE                                   
006822,000515: 10,6613           20706                           INDEX    DSPCNT                                
006823,000516: 10,6614           50710                           TS       DSPTAB                                #  REPLACE POSITIVELY
006824,000517: 10,6615           74302                           MASK     LOW11                                 #  REMOVE BITS 12 TO 15
006825,000518: 10,6616           50600                           TS       DSRUPTEM                              
006826,000519: 10,6617           32261                           CAF      HI5                                   
006827,000520: 10,6620           20706                           INDEX    DSPCNT                                
006828,000521: 10,6621           72652                           MASK     RELTAB                                #  PICK UP BITS 12 TO 15 OF RELTAB ENTRY
006829,000522: 10,6622           60600                           AD       DSRUPTEM                              
006830,000523: 10,6623           50010        DSPLAYC            TS       OUT0                                  
006831,000524: 10,6624           37126                           CAF      20MSRUPT                              #  SET T4 TO INTERRUPT IN 20 MS SO OUT0 MAY
006832,000525: 10,6625           50040                           TS       TIME4                                 #  BE TURNED OFF AS SOON AS POSSIBLE. WHEN
006833,000526: 10,6626           40033                           CS       DSRUPTSW                              #  THIS RUPT OCCURS, T4 IS RESET TO FIRE
006834,000527: 10,6627           50033                           TS       DSRUPTSW                              #  IN 40MS, RE-ESTABLISHING THE REGULAR 60.
006835,000528: 
006836,000529: 10,6630           02262                           TC       LVDSRUPT                              
006837,000530: 
006838,000531: 10,6631     2262               LVDSRUPT           EQUALS   OVRESUME                              
006839,000532: 

Page 174

006841,000534: 
006842,000535:                                                                                                  #        OUT2SUB IS USED BY THE GYRO DRIVE AND THE OPTICS CDU DRIVE TO SET THE PROPER SECTION OF OUT2 AND THE
006843,000536:                                                                                                  #  PROPER OUT-COUNTER TO DELIVER THE COMMAND ARRIVING IN A.
006844,000537: 
006845,000538: 10,6631           50577        OUT2SUB            TS       ITEMP1                                #  SIGNED COMMAND.
006846,000539: 10,6632           30001                           XCH      Q                                     
006847,000540: 10,6633           50600                           TS       ITEMP2                                
006848,000541: 10,6634           10577                           CCS      ITEMP1                                
006849,000542: 10,6635           06644                           TC       POSCOM                                
006850,000543: 10,6636           00600                           TC       ITEMP2                                #  RETURN TO CALLER ON EITHER ZERO.
006851,000544: 10,6637           06641                           TC       NEGCOM                                
006852,000545: 10,6640           00600                           TC       ITEMP2                                
006853,000546: 
006854,000547: 10,6641           50577        NEGCOM             TS       ITEMP1                                #  CCS OF COMMAND LEFT IN ITEMP1
006855,000548: 10,6642           40637                           CS       RUPTREG1                              #  0 AND 1 FOR OPTICS - 2, 3, AND 4 FOR GYR
006856,000549: 10,6643           06647                           TC       SETOUT2                               
006857,000550: 
006858,000551: 10,6644           50577        POSCOM             TS       ITEMP1                                #  CCS OF COMMAND.
006859,000552: 10,6645           34516                           CAF      ONE                                   
006860,000553: 10,6646           60637                           AD       RUPTREG1                              
006861,000554: 

Page 175

006863,000556: 
006864,000557: 10,6647           50642        SETOUT2            TS       RUPTREG4                              
006865,000558: 10,6650           36200                           CAF      DUMCODE                               #  FOR A DESCRIPTION OF THIS OUT2 PROCEDURE
006866,000559: 10,6651           30012                           XCH      OUT2                                  #  SEE THE IMUCDU DRIVE PROGRAM EARLIER IN 
006867,000560: 10,6652           20640                           INDEX    RUPTREG2                              #  T4RUPT.
006868,000561: 10,6653           77465                           MASK     OUT2MASK                              
006869,000562: 10,6654           30012                           XCH      OUT2                                  
006870,000563: 10,6655           66201                           AD       -DUMCODE                              
006871,000564: 10,6656           10000                           CCS      A                                     
006872,000565: 10,6657           03062                           TC       CCSHOLE                               
006873,000566: 10,6660           03062                           TC       CCSHOLE                               
006874,000567: 10,6661           07377                           TC       JACKPOT                               
006875,000568: 
006876,000569: 10,6662           40577                           CS       ITEMP1                                #  ABS(COMMAND) - 1.
006877,000570: 10,6663           64476                           AD       POSMAX                                #  FORMS 1.0 - ABS(COMMAND).
006878,000571: 10,6664           20640                           INDEX    RUPTREG2                              
006879,000572: 10,6665           50042                           TS       OUTCR1                                
006880,000573: 
006881,000574: 10,6666           36200                           CAF      DUMCODE                               #  ENABLE THE APPROPRIATE OUTCR BY SETTING
006882,000575: 10,6667           30012                           XCH      OUT2                                  #  THE PROPER CODE IN OUT2
006883,000576: 10,6670           20642                           INDEX    RUPTREG4                              
006884,000577: 10,6671           67473                           AD       OPTCODES   +1                         
006885,000578: 10,6672           30012                           XCH      OUT2                                  
006886,000579: 10,6673           66201                           AD       -DUMCODE                              
006887,000580: 10,6674           10000                           CCS      A                                     
006888,000581: 10,6675           03062                           TC       CCSHOLE                               
006889,000582: 10,6676           03062                           TC       CCSHOLE                               
006890,000583: 10,6677           07377                           TC       JACKPOT                               
006891,000584: 
006892,000585: 10,6700           00600                           TC       ITEMP2                                
006893,000586: 
006894,000587: 10,6701                        NOGYROC            EQUALS                                         
006895,000588: 
006896,000589: 10,6701                        ENDGYROC           EQUALS                                         
006897,000590: 

Page 176

006899,000592: 
006900,000593:                                                                                                  #  ALTERNATE 120 MS LEG OF T4RUPT.
006901,000594: 
006902,000595: 10,6701           35362        TMCHECK            CAF      SEVEN                                 #  ALLOW UP TO SEVEN TM WORDS UNTIL NEXT
006903,000596: 10,6702           30670                           XCH      TELCOUNT                              #  DSRUPT0 EXECUTION. CHECK LAST TM PERIOD
006904,000597: 10,6703           66705                           AD       NEG7                                  #  TO SEE IF AT LEAST ONE WORD WENT OUT.
006905,000598: 10,6704           10000                           CCS      A                                     #  THIS SATISFIES BOTH HIGH- AND LOW-POWER.
006906,000599: 
006907,000600: 10,6705           77770        NEG7               DEC      -7         B-14                       
006908,000601: 10,6706           03062                           TC       CCSHOLE                               
006909,000602: 10,6707           06711                           TC       +2                                    #  OK - PROCEED.
006910,000603: 10,6710           02571                           TC       TMFAIL                                #  TURN ON TM FAIL LIGHT BEFORE KSAMP.
006911,000604: 
006912,000605: 10,6711           30007        MODESAMP           XCH      IN3                                   #  SAMPLE MODE BITS AND TUCK THEM AWAY
006913,000606: 10,6712           30007                           XCH      IN3                                   #  FOR KSAMP AND OPTSAMP.
006914,000607: 10,6713           50637                           TS       KSAMPTEM                              
006915,000608: 10,6714           74720                           MASK     LOW7                                  
006916,000609: 10,6715           30637                           XCH      KSAMPTEM                              
006917,000610: 10,6716           76770                           MASK     OPTBITS                               
006918,000611: 10,6717           50640                           TS       OSAMPTEM                              
006919,000612: 10,6720           30004                           XCH      IN0                                   #  THIS CLEARS THE KEY CODE WITHIN 120MS
006920,000613:                                                                                                  #   OF THE TIME THE KEY WAS RELEASED.
006921,000614: 
006922,000615: 10,6721           50034                           TS       OVCTR                                 #  SEE IF INHIBIT UP-SYNC BIT IS ON.
006923,000616: 10,6722           74510                           MASK     BIT7                                  
006924,000617: 10,6723           10000                           CCS      A                                     
006925,000618: 10,6724           02571                           TC       TMFAIL                                #  IF SO, TURN ON TELEMETRY FAIL LIGHT.
006926,000619: 
006927,000620: 10,6725           10034                           CCS      OVCTR                                 #  SEE IF MARK BUTTON DOWN.
006928,000621: 10,6726           06734                           TC       OPTSAMP                               
006929,000622: 10,6727           06734                           TC       OPTSAMP                               
006930,000623: 10,6730           06731                           TC       +1                                    
006931,000624: 10,6731           37003                           CAF      NOMKACPT                              #  DONT INCLUDE MARK ACCEPT INFORMATION.
006932,000625: 10,6732           70640                           MASK     OSAMPTEM                              
006933,000626: 10,6733           50640                           TS       OSAMPTEM                              
006934,000627: 

Page 177

006936,000629: 
006937,000630:                                                                                                  #        OPTICS MODE SAMPLING.
006938,000631: 
006939,000632: 10,6734           10732        OPTSAMP            CCS      DESOPSET                              #  IS COMPUTER COMMANDING
006940,000633: 10,6735           06751                           TC       OPTCOMM                               #  YES
006941,000634: 10,6736           07043                           TC       NOOPCOM                               #  NO
006942,000635: 
006943,000636: 10,6737           34503                           CAF      BIT12                                 #  MAKE SURE WE ARE STILL ZEROING
006944,000637: 10,6740           70640                           MASK     OSAMPTEM                              #  (THIS PORTION ENTERED FOR 30 SEC. DURING
006945,000638: 10,6741           60730                           AD       WASOPSET                              #     MANUAL OPTICS ZERO).
006946,000639: 10,6742           74503                           MASK     BIT12                                 #  SEE IF CDU-ZERO BIT HAS CHANGED.
006947,000640: 10,6743           10000                           CCS      A                                     #  ALARM IF SO.
006948,000641: 10,6744           06746                           TC       +2                                    
006949,000642: 10,6745           07074                           TC       LVOPTSMP                              
006950,000643: 
006951,000644: 10,6746           03007                           TC       ALARM                                 #  IF NOT, ALARM ON
006952,000645: 10,6747           00101                           OCT      00101                                 #  OPTICS ALARM NO. 1.
006953,000646: 10,6750           07074                           TC       LVOPTSMP                              
006954,000647: 
006955,000648: 10,6751           34501        OPTCOMM            CAF      BIT14                                 #  SEE IF COMPUTER-ON SWITCH JUST CHANGED.
006956,000649: 10,6752           70730                           MASK     WASOPSET                              #  FORM WAS BIT14 - IS BIT14.
006957,000650: 10,6753           50001                           TS       Q                                     
006958,000651: 10,6754           34501                           CAF      BIT14                                 
006959,000652: 10,6755           70640                           MASK     OSAMPTEM                              #  PRESENT INPUT BITS.
006960,000653: 10,6756           40000                           COM                                            
006961,000654: 10,6757           60001                           AD       Q                                     
006962,000655: 10,6760           10000                           CCS      A                                     
006963,000656: 10,6761           07010                           TC       COMP.OFF                              #  SWITCH JUST TURNED OFF.
006964,000657: 10,6762           34760        OFFMASK            OCT      34760                                 #  USED FOR SETTING IMU C-RELAYS.
006965,000658: 10,6763           07017                           TC       COMP.ON                               #  SWITCH JUST TURNED ON.
006966,000659: 
006967,000660: 10,6764           40732        OPTCOMM2           CS       DESOPSET                              #  SEE IF DESIRED MODE ACHIEVED.
006968,000661: 10,6765           60640                           AD       OSAMPTEM                              
006969,000662: 10,6766           10000                           CCS      A                                     
006970,000663: 10,6767           06773                           TC       OPTCTEST                              #  COMMAND NOT EQUAL TO ACTUAL
006971,000664: 10,6770           35000        OPTBITS            OCT      35000                                 
006972,000665: 10,6771           07000                           TC       OPTCOMM3                              #  NO MATCH - SEE IF COMP ON ONLY MISMATCH.
006973,000666: 10,6772           07074                           TC       LVOPTSMP                              #  DONE IF MODES AGREE. 
006974,000667: 
006975,000668: 10,6773           10724        OPTCTEST           CCS      DSPTAB     +12D                       #  IS CHANGE COMING.
006976,000669: 10,6774           07027                           TC       OPTCFAIL                              #  NO - C-RELAY FAILURE OR UNWANTED MANUAL
006977,000670: 10,6775           07027                           TC       OPTCFAIL                              #  INTERVENTION.
006978,000671: 
006979,000672: 10,6776           35501                           CAF      ZERO                                  #  LEAVE WAITING FLAG IN WASOPSET.
006980,000673: 10,6777           07075                           TC       LVOPTSMP   +1                         
006981,000674: 
006982,000675: 10,7000           67176        OPTCOMM3           AD       -BIT14+1                              #  NO ERROR IF COMPUTER-ON ONLY ONE DIFF.
006983,000676: 10,7001           10000                           CCS      A                                     
006984,000677: 10,7002           06773                           TC       OPTCTEST                              
006985,000678: 10,7003           31000        NOMKACPT           OCT      31000                                 
006986,000679: 10,7004           06773                           TC       OPTCTEST                              

Page 178

006988,000681: 10,7005           34501                           CAF      BIT14                                 #  IN THIS CASE, SET COMP.ON BIT TO 1 IN
006989,000682: 10,7006           60640                           AD       OSAMPTEM                              #  WASOPSET TO PREVENT +0 FOR CORRECT MODES
006990,000683: 10,7007           07075                           TC       LVOPTSMP   +1                         
006991,000684: 
006992,000685: 10,7010           10703        COMP.OFF           CCS      OPTIND                                #  TAKE AGC OUT OF CDU LOOP IF APPROPRIATE.
006993,000686: 10,7011           07013                           TC       +2                                    
006994,000687: 10,7012           07013                           TC       +1                                    #  POSITIVE MEANS COMPUTER WAS IN LOOP.
006995,000688: 10,7013           34516                           CAF      ONE                                   #  LEAVE CDUS RESERVED (RARE).
006996,000689: 10,7014           40000                           COM                                            #  -0 REVERTS TO -0.
006997,000690: 10,7015           50703                           TS       OPTIND                                
006998,000691: 
006999,000692: 10,7016           06764                           TC       OPTCOMM2                              #  DO MODE CHECK.
007000,000693: 
007001,000694: 10,7017           10703        COMP.ON            CCS      OPTIND                                #  PUT AGC BACK INTO CDU LOOP IF DESIRED.
007002,000695: 10,7020           07023                           TC       ONALARM                               #  (THIS SHOULD NEVER HAPPEN).
007003,000696: 10,7021           07023                           TC       ONALARM                               
007004,000697: 10,7022           07041                           TC       ONOK                                  #  CDUS HAD BEEN RESERVED.
007005,000698: 
007006,000699: 10,7023           07034        ONALARM            TC       OFAILTST                              #  SEE IF FAIL FLAG ALREADY SET.
007007,000700: 10,7024           03007                           TC       ALARM                                 #  ALARM AND SET FAILURE FLAG.
007008,000701: 10,7025           00104                           OCT      00104                                 
007009,000702: 10,7026           07032                           TC       OFAILSET                              
007010,000703: 
007011,000704: 10,7027           07034        OPTCFAIL           TC       OFAILTST                              #  SEE IF ALARM ALREADY SOUNDED.
007012,000705: 10,7030           03007                           TC       ALARM                                 #  ALARM AND SET FAIL FLAG IF NOT.
007013,000706: 10,7031           00102                           OCT      00102                                 
007014,000707: 
007015,000708: 10,7032           45501        OFAILSET           CS       ZERO                                  
007016,000709: 10,7033           07075                           TC       LVOPTSMP   +1                         #  SET FAIL FLAG AND EXIT.
007017,000710: 
007018,000711: 10,7034           10730        OFAILTST           CCS      WASOPSET                              #  RETURNS TO CALLER IF NO FAILURE ALARM
007019,000712: 10,7035           00001                           TC       Q                                     #  GIVEN. EXITS WITHOUT CHANGING WASOPSET
007020,000713: 10,7036           00001                           TC       Q                                     #  IF SO.
007021,000714: 10,7037           07076                           TC       NOOPRSET                              
007022,000715: 10,7040           07076                           TC       NOOPRSET                              
007023,000716: 
007024,000717: 10,7041           50703        ONOK               TS       OPTIND                                #  SET OPTIND TO +0 TO ACTIVE CDU DRIVE.
007025,000718: 10,7042           06764                           TC       OPTCOMM2                              #  DO MODE AGREEMENT CHECK.
007026,000719: 
007027,000720: 10,7043           40730        NOOPCOM            CS       WASOPSET                              #  ENTERS HERE IF COMPUTER NOT COMMANDING.
007028,000721: 10,7044           60640                           AD       OSAMPTEM                              #  SEE IF ANY CHANGES SINCE LAST LOCK.
007029,000722: 10,7045           10000                           CCS      A                                     
007030,000723: 10,7046           07052                           TC       NOOPCOM1                              #  CHANGED.
007031,000724: 10,7047           37772        60MSRUPT           OCT      37772                                 #  UNUSED CCS BRANCH.
007032,000725: 10,7050           07052                           TC       NOOPCOM1                              #  CHANGED.
007033,000726: 10,7051           07074                           TC       LVOPTSMP                              #  NO CHANGE - NORMAL EXIT IN MANUAL.
007034,000727: 
007035,000728: 10,7052           40730        NOOPCOM1           CS       WASOPSET                              #  SEE IF MANUAL CDU-ZERO JUST REQUESTED.
007036,000729: 10,7053           74503                           MASK     BIT12                                 
007037,000730: 10,7054           70640                           MASK     OSAMPTEM                              

Page 179

007039,000732: 10,7055           10000                           CCS      A                                     
007040,000733: 10,7056           07360                           TC       MANOPTZ                               #  CALL MANUAL OPTICS ZERO SUBROUTINE.
007041,000734:                                                                                                  #  (THIS RECONCILES OPTICS-ZERO C-RELAY).
007042,000735: 
007043,000736:                                                                                                  #  WE USED TO TEST HERE TO SEE IF THE SXT-ON SWITCH HAS CHANGED.
007044,000737:                                                                                                  #  SINCE IN BLOCK 50 - 100 IT IS ALWAYS ON, WE DON;T NOW.
007045,000738: 10,7057           34505        RECONTRK           CAF      BIT10                                 #  RECONCILE TRKR-ON C-RELAY.
007046,000739: 10,7060           70640                           MASK     OSAMPTEM                              
007047,000740: 10,7061           10000                           CCS      A                                     
007048,000741: 10,7062           34515                           CAF      BIT2                                  #  TURN ON TRKR-ON C-RELAY.
007049,000742: 10,7063           64500                           AD       BIT15                                 
007050,000743: 10,7064           30724                           XCH      DSPTAB     +12D                       
007051,000744: 10,7065           77254                           MASK     OCT37775                              #  CHANGE BITS 2 AND 15.
007052,000745: 10,7066           60724                           AD       DSPTAB     +12D                       
007053,000746: 10,7067           50724                           TS       DSPTAB     +12D                       
007054,000747: 
007055,000748: 10,7070           30640                           XCH      OSAMPTEM                              #  SET WASOPSET AND CALL SETZLIT TO 
007056,000749: 10,7071           50730                           TS       WASOPSET                              #  SET ZERO-ENCODER LIGHT. 
007057,000750: 10,7072           02743                           TC       SETZLIT                               
007058,000751: 10,7073           07076                           TC       NOOPRSET                              
007059,000752: 
007060,000753: 10,7074           30640        LVOPTSMP           XCH      OSAMPTEM                              
007061,000754: 10,7075           50730                           TS       WASOPSET                              
007062,000755: 
007063,000756: 10,7076                        NOOPRSET           EQUALS                                         #  DONT RESET WASOPSET.
007064,000757: 

Page 180

007066,000759: 
007067,000760:                                                                                                  #  KSAMP         ENTERED EVERY 120 MS DURING T4RUPT. SAMPLES STATUS OF
007068,000761:                                                                                                  #  -----         IMU MODE SWITCHES.
007069,000762:                                                                                                  #                SETS C(WASKSET)=C(DESKSET) FOR SUCCESSFUL COMP. COMM.
007070,000763:                                                                                                  #                               =+0 FOR WAITING(START-UP,CONTACT BOUNCE)
007071,000764:                                                                                                  #                               =-X FOR ASTRONAUT COMM. IGNORE
007072,000765:                                                                                                  #                               =-0 FOR SYSTEM FAILURE
007073,000766: 
007074,000767: 
007075,000768: 
007076,000769: 10,7076           10727        KSAMP              CCS      WASKSET                               #  TEST FOR IGNORE
007077,000770: 10,7077           07102                           TC       +3                                    
007078,000771: 10,7100           07102                           TC       +2                                    
007079,000772: 10,7101           02262                           TC       ENDKSAMP                              
007080,000773: 
007081,000774: 10,7102           10731                           CCS      DESKSET                               #  C(DESKSET)=DESIRED K RELAY SETTING
007082,000775: 10,7103           07250                           TC       KSAMP1                                #            =+0 FOR COMPUTER NOT COMM.
007083,000776: 10,7104           07117                           TC       KSAMP4                                #            -DESIRED K SETTING FOR MAN 0.
007084,000777: 
007085,000778: 10,7105           34516                           CAF      BIT1                                  #  ENTERS HERE TO BE SURE MANUAL CDU ZERO
007086,000779: 10,7106           70637                           MASK     KSAMPTEM                              #  LASTS AT LEAST 30 SEC.
007087,000780: 10,7107           60727                           AD       WASKSET                               #  ALARM IF CDU-ZERO SWITCH CHANGED STATE.
007088,000781: 10,7110           74516                           MASK     BIT1                                  
007089,000782: 10,7111           10000                           CCS      A                                     
007090,000783: 10,7112           07114                           TC       +2                                    
007091,000784: 10,7113           07260                           TC       LVKSAMP                               
007092,000785: 
007093,000786: 10,7114           03007                           TC       ALARM                                 
007094,000787: 10,7115           00201                           OCT      00201                                 #  CDU NOT ZEROED PROPERLY.
007095,000788: 10,7116           07260                           TC       LVKSAMP                               
007096,000789: 
007097,000790: 10,7117           30637        KSAMP4             XCH      KSAMPTEM                              #  NO COMPUTER COMMAND.
007098,000791: 10,7120           30727                           XCH      WASKSET                               #  CURRENT STATUS TO WASKSET
007099,000792: 10,7121           50637                           TS       KSAMPTEM                              #  (FOR EVENTUAL USE BY MANUAL ZERO TEST).
007100,000793: 10,7122           40000                           CS       A                                     
007101,000794: 10,7123           60727                           AD       WASKSET                               
007102,000795: 10,7124           10000                           CCS      A                                     
007103,000796: 10,7125           07211                           TC       KSAMP2B                               #  SEE IF TRNSW JUST ON AND IS ONLY CHANGE.
007104,000797: 10,7126           37776        20MSRUPT           OCT      37776                                 #  UNUSED CCS BRANCH - USED TO CAUSE 0 OUT0
007105,000798: 10,7127           07131                           TC       KSAMP2                                
007106,000799: 10,7130           02262                           TC       ENDKSAMP                              #  EXIT ON NO CHANGE IN MODE.
007107,000800: 
007108,000801: 10,7131           34511        KSAMP2             CAF      BIT6                                  #  CHANGE IN MODE
007109,000802: 10,7132           70727                           MASK     WASKSET                               
007110,000803: 10,7133           10000                           CCS      A                                     #  IS TRNSW ON MANUAL
007111,000804: 10,7134           07217                           TC       TRNSWON                               #  SEE IF START-UP OR PILOTS BUTTON ON.
007112,000805: 
007113,000806: 10,7135           40727                           CS       WASKSET                               #  TEST FOR START UP SEQUENCE
007114,000807: 10,7136           77336                           MASK     FINE+CRS                              #  START-UP=FINE AND COARSE IN MANUAL.
007115,000808: 10,7137           10000                           CCS      A                                     
007116,000809: 10,7140           07145                           TC       MANZTEST                              

Page 181

007118,000811: 
007119,000812: 10,7141           36762        SETCOARS           CAF      OFFMASK                               
007120,000813: 10,7142           70723                           MASK     DSPTAB     +11D                       
007121,000814: 10,7143           64656                           AD       OCT40002                              
007122,000815: 10,7144           07206                           TC       SETC       +3                         
007123,000816: 
007124,000817: 10,7145           40637        MANZTEST           CS       KSAMPTEM                              #  SEE IF MANUAL ZERO SWITCH JUST ON.
007125,000818: 10,7146           74516                           MASK     BIT1                                  
007126,000819: 10,7147           70727                           MASK     WASKSET                               
007127,000820: 10,7150           10000                           CCS      A                                     
007128,000821: 10,7151           07337                           TC       MANCDU                                #  MANUAL IMU CDU ZERO JUST REQUESTED.
007129,000822: 
007130,000823: 10,7152           40637                           CS       KSAMPTEM                              #  IF PREVIOUS MODE WAS COARSE ALIGN,
007131,000824: 10,7153           74515                           MASK     BIT2                                  #  DISABLE IMU FAIL FOR THE NEXT 5 SECS.
007132,000825: 10,7154           10000                           CCS      A                                     
007133,000826: 10,7155           07165                           TC       PRERECON                              
007134,000827: 
007135,000828: 10,7156           44513                           CS       BIT4                                  
007136,000829: 10,7157           70726                           MASK     OLDERR                                
007137,000830: 10,7160           64513                           AD       BIT4                                  
007138,000831: 10,7161           50726                           TS       OLDERR                                
007139,000832: 
007140,000833: 10,7162           34505                           CAF      BIT10                                 
007141,000834: 10,7163           02173                           TC       WAITLIST                              
007142,000835: 10,7164           30201                           CADR     IFAILOK                               
007143,000836: 
007144,000837: 10,7165           36762        PRERECON           CAF      OFFMASK                               #  MANUAL MODE CHANGE
007145,000838: 10,7166           70723                           MASK     DSPTAB     +11D                       #  SO THE C-RELAYS MUST BE UPDATED.
007146,000839: 10,7167           64500                           AD       BIT15                                 #  ALL ARE TURNED OFF AND THE RIGHT ONES
007147,000840: 10,7170           50723                           TS       DSPTAB     +11D                       #  ARE TURNED ON BY SCANNING IN3.
007148,000841: 
007149,000842: 10,7171           40727                           CS       WASKSET                               #  UPDATE C-RELAYS SO THEY AGREE WITH THE
007150,000843: 10,7172           50034                           TS       OVCTR                                 #  CURRENT MODE. THE SCAN IS FROM LEFT TO
007151,000844: 10,7173           34475                           CAF      SIX                                   #  RIGHT SO THE PILOTS BUTTON WORKS OK.
007152,000845: 
007153,000846: 10,7174           50637        RECONCIL           TS       KSAMPTEM                              
007154,000847: 10,7175           30034                           XCH      OVCTR                                 #  NEXT BIT INTO POSITION.
007155,000848: 10,7176           60000        -BIT14+1           DOUBLE                                         
007156,000849: 10,7177           50034                           TS       OVCTR                                 
007157,000850: 10,7200           74507                           MASK     BIT8                                  
007158,000851: 10,7201           10000                           CCS      A                                     
007159,000852: 10,7202           07243                           TC       RECONLUP                              #  LOOP TO EXAMINE NEXT BIT.
007160,000853: 
007161,000854: 10,7203           20637        SETC               INDEX    KSAMPTEM                              
007162,000855: 10,7204           37456                           CAF      MODECHNG                              #  NEW IMU C-RELAY SETTINGS.
007163,000856: 10,7205           60723                           AD       DSPTAB     +11D                       
007164,000857: 10,7206           50723                 +3        TS       DSPTAB     +11D                       
007165,000858: 10,7207           02743                           TC       SETZLIT                               #  UPDATE THE ZERO ENCODER LAMP.
007166,000859: 10,7210           02262                           TC       ENDKSAMP                              
007167,000860: 
007168,000861: 10,7211           67214        KSAMP2B            AD       LOW5BAR                               #  NO ERROR IF TRNSW JUST ON IS ONLY CHANGE

Page 182

007170,000863: 10,7212           10000                           CCS      A                                     
007171,000864: 10,7213           07131                           TC       KSAMP2                                
007172,000865: 10,7214           77740        LOW5BAR            OCT      -37                                   
007173,000866: 10,7215           07131                           TC       KSAMP2                                
007174,000867: 10,7216           02262                           TC       ENDKSAMP                              #  ORIGINAL DIFFERENCE WAS JUST BIT 6.
007175,000868: 
007176,000869: 10,7217           37335        TRNSWON            CAF      OCT14                                 #  THE PILOTS BUTTON HAS CHANGED IF THERE
007177,000870: 10,7220           70727                           MASK     WASKSET                               #  HAS BEEN A CHANGE IN THE FINE ALIGN OR
007178,000871: 10,7221           60637                           AD       KSAMPTEM                              #  LOCK CDU BITS WITH THE SYSTEM IN ATTI-
007179,000872: 10,7222           77335                           MASK     OCT14                                 #  TUDE CONTROL AS WELL.
007180,000873: 10,7223           10000                           CCS      A                                     
007181,000874: 10,7224           07226                           TC       +2                                    
007182,000875: 10,7225           07233                           TC       STARTCHK                              #  NO - SEE IF SYSTEM CYCLING UP.
007183,000876: 
007184,000877: 10,7226           34512                           CAF      BIT5                                  #  OK SO FAR ON PILOTS BUTTON. SEE IF
007185,000878: 10,7227           70727                           MASK     WASKSET                               #  SYSTEM WAS AND IS IN ATTITUDE CONTROL.
007186,000879: 10,7230           70637                           MASK     KSAMPTEM                              
007187,000880: 10,7231           10000                           CCS      A                                     
007188,000881: 10,7232           02262                           TC       ENDKSAMP                              #  YES - LEAVE THE C-RELAYS IN ATTITUDE C.
007189,000882: 
007190,000883: 10,7233           40637        STARTCHK           CS       KSAMPTEM                              #  SEE IF COARSE-ALIGN JUST ON. IF SO,
007191,000884: 10,7234           74515                           MASK     BIT2                                  #  IF SO, THE SYSTEM IS CYCLING UP SO SET
007192,000885: 10,7235           70727                           MASK     WASKSET                               #  THE C-RELAYS FOR COARSE ALIGN.
007193,000886: 10,7236           10000                           CCS      A                                     
007194,000887: 10,7237           07141                           TC       SETCOARS                              #  USUAL RECONCILING WOULDNT WORK HERE.
007195,000888: 
007196,000889: 10,7240           03007        MODALARM           TC       ALARM                                 #  UN-CALLED-FOR MODE CHANGE WITH COMPUTER
007197,000890: 10,7241           00204                           OCT      00204                                 #  DOING MODE SWITCHING.
007198,000891: 10,7242           02262                           TC       ENDKSAMP                              
007199,000892: 
007200,000893: 10,7243           10637        RECONLUP           CCS      KSAMPTEM                              
007201,000894: 10,7244           07174                           TC       RECONCIL                              
007202,000895: 
007203,000896: 10,7245           03007                           TC       ALARM                                 #  NO IMU MODE INDICATION BITS GIVEN.
007204,000897: 10,7246           00203                           OCT      00203                                 
007205,000898: 10,7247           02262                           TC       ENDKSAMP                              
007206,000899: 
007207,000900: 
007208,000901: 
007209,000902: 10,7250           40731        KSAMP1             CS       DESKSET                               #  IS PRESENT MODE = COMMANDED
007210,000903: 10,7251           60637                           AD       KSAMPTEM                              
007211,000904: 10,7252           10000                           CCS      A                                     
007212,000905: 10,7253           07263                           TC       KSAMP1A                               
007213,000906: 10,7254           37775        OCT37775           OCT      37775                                 #  UNUSED CCS BRANCH - USED TO SET TRKR-ON.
007214,000907: 10,7255           07263                           TC       KSAMP1A                               
007215,000908: 
007216,000909: 10,7256           10726                           CCS      OLDERR                                #  TURN OFF THE PILOTS BUTTON BIT IF ON.
007217,000910: 10,7257           07331                           TC       PIBUTOFF                              
007218,000911: 
007219,000912: 10,7260           30637        LVKSAMP            XCH      KSAMPTEM                              #  YES

Page 183

007221,000914: 10,7261           50727                           TS       WASKSET                               
007222,000915: 10,7262           02262                           TC       ENDKSAMP                              
007223,000916: 
007224,000917: 10,7263           34516        KSAMP1A            CAF      BIT1                                  #  IS COMPUTER TRYING TO ZERO CDU AND
007225,000918: 10,7264           70731                           MASK     DESKSET                               #  GETTING COARSE ALIGN.
007226,000919: 10,7265           60000                           DOUBLE                                         
007227,000920: 10,7266           70637                           MASK     KSAMPTEM                              
007228,000921: 10,7267           10000                           CCS      A                                     
007229,000922: 10,7270           07322                           TC       IMUSTART                              #  YES.
007230,000923: 
007231,000924: 10,7271           37315                           CAF      OCT60                                 #  SEE IF PILOTS BUTTON IS ON.
007232,000925: 10,7272           70731                           MASK     DESKSET                               #  CHECK THAT TRNSW ON AND ATTITUDE CONTROL
007233,000926: 10,7273           70637                           MASK     KSAMPTEM                              #  ARE DESIRED AND ACTUAL AND THAT EITHER 
007234,000927: 10,7274           40000                           COM                                            #  FINE ALIGN (FOLLOW) OR LOCK CDU (HOLD)
007235,000928: 10,7275           77315                           MASK     OCT60                                 #  ARE PRESENT IN ADDITION. IF SO, SET BIT
007236,000929: 10,7276           10000                           CCS      A                                     #  1 OF OLDERR TO INDICATE THIS CONDITION.
007237,000930: 10,7277           07312                           TC       KSAMP2A                               #  MISSION PROGRAMS WILL DETECT THIS CON-
007238,000931: 10,7300           37335                           CAF      OCT14                                 #  DITION WHEN THEY TEST OLDERR AS THEY DO
007239,000932: 10,7301           70637                           MASK     KSAMPTEM                              #  PERIODICALLY.
007240,000933: 10,7302           10000                           CCS      A                                     
007241,000934: 10,7303           07305                           TC       +2                                    
007242,000935: 10,7304           07312                           TC       KSAMP2A                               
007243,000936: 
007244,000937: 10,7305           44516                           CS       ONE                                   
007245,000938: 10,7306           70726                           MASK     OLDERR                                
007246,000939: 10,7307           64516                           AD       ONE                                   
007247,000940: 10,7310           50726                           TS       OLDERR                                
007248,000941: 10,7311           07260                           TC       LVKSAMP                               
007249,000942: 
007250,000943: 10,7312           10727        KSAMP2A            CCS      WASKSET                               #  CHECK ON PREVIOUS ACTIVITIES
007251,000944: 10,7313           07317                           TC       KSAMP3A                               #   NORMAL OPERATION
007252,000945: 10,7314           07317                           TC       KSAMP3A                               #  WAITING
007253,000946: 10,7315           00060        OCT60              OCT      60                                    
007254,000947: 10,7316           02262                           TC       ENDKSAMP                              #  SYSTEM FAILURE
007255,000948: 
007256,000949: 10,7317           10723        KSAMP3A            CCS      DSPTAB     +11D                       #  SEE IF BANK IS TO BE CHANGED.
007257,000950: 10,7320           07324                           TC       SYSFAIL                               #  NO - SYSTEM FAILURE.
007258,000951: 10,7321           07324                           TC       SYSFAIL                               
007259,000952: 
007260,000953: 10,7322           35501        IMUSTART           CAF      WAITFLAG                              #  SET WAITING FLAG AND EXIT.
007261,000954: 10,7323           07261                           TC       LVKSAMP    +1                         
007262,000955: 
007263,000956: 10,7324           45501        SYSFAIL            CS       ZERO                                  #  IMU SYSTEM FAILURE.
007264,000957: 10,7325           50727                           TS       WASKSET                               
007265,000958: 10,7326           03007                           TC       ALARM                                 #  CALL ALARM SUBROUTINE FOR DISPLAY.
007266,000959: 10,7327           00202                           OCT      00202                                 
007267,000960: 10,7330           02262                           TC       ENDKSAMP                              
007268,000961: 
007269,000962: 10,7331           44516        PIBUTOFF           CS       ONE                                   
007270,000963: 10,7332           70726                           MASK     OLDERR                                #  BIT 1 OF OLDERR IS 1 IF THE PILOTS

Page 184

007272,000965: 10,7333           50726                           TS       OLDERR                                #  BUTTON IS ON WHILE THE COMPUTERS
007273,000966: 10,7334           07260                           TC       LVKSAMP                               #  COMMANDING.
007274,000967: 
007275,000968: 10,7335           00014        OCT14              OCT      14                                    
007276,000969: 10,7336           00012        FINE+CRS           OCT      12                                    
007277,000970: 10,7337     5501               WAITFLAG           EQUALS   ZERO                                  
007278,000971: 
007279,000972: 10,7337     2262               ENDKSAMP           EQUALS   LVDSRUPT                              
007280,000973: 

Page 185

007282,000975: 
007283,000976:                                                                                                  #        MANUAL CDU-ZERO PROGRAMS FOR IMU AND OPTICS CDUS.
007284,000977: 
007285,000978: 10,7337           45503        MANCDU             CS       TWO                                   #  INITIATE MANUAL CDU ZERO MONITOR.
007286,000979: 10,7340           50731                           TS       DESKSET                               #  (C-RELAYS WILL BE SET BY RECONCIL).
007287,000980: 10,7341           37501                           CAF      35SCNDS                               
007288,000981: 10,7342           02173                           TC       WAITLIST                              
007289,000982: 10,7343           21350                           CADR     MANIZD                                
007290,000983: 
007291,000984: 10,7344           36762                           CAF      OFFMASK                               #  USUAL RECONCILING WOULDNT WORK HERE
007292,000985: 10,7345           70723                           MASK     DSPTAB     +11D                       #  SINCE THE SCAN IS FROM LEFT TO RIGHT.
007293,000986: 10,7346           67456                           AD       MODECHNG                              
007294,000987: 10,7347           07206                           TC       SETC       +3                         
007295,000988: 
007296,000989:                                                                                                  #        WAITLIST TASK TO COMPLETE MANUAL ZERO. TURNS OFF LIGHT TO INDICCATE COMPLETION.
007297,000990: 
007298,000991: 10,7350           02731        MANIZD             TC       ZEROICTR                              #  ZERO COUNTERS.
007299,000992: 10,7351           10731                           CCS      DESKSET                               #  SET DESKSET TO +0 TO RESUME MANUAL
007300,000993: 10,7352           07356                           TC       +4                                    #  MODE MONITORING UNLESS THE SYSTEM WAS
007301,000994: 10,7353           07356                           TC       +3                                    #  PLACED UNDER COMPUTER CONTROL BY ANOTHER
007302,000995: 10,7354           35501                           CAF      ZERO                                  #  PROGRAM DURING THE 35 SEC. WAIT.
007303,000996: 10,7355           50731                           TS       DESKSET                               
007304,000997: 10,7356           02743                           TC       SETZLIT                               #  TURN OFF LIGHT IF APPROPRIATE.
007305,000998: 10,7357           02256                           TC       TASKOVER                              
007306,000999: 

Page 186

007308,001001: 
007309,001002:                                                                                                  #        MANUAL OPTICS ZEROING PROCEDURES.
007310,001003: 10,7360           37502        MANOPTZ            CAF      60SCNDS                               #  MANUAL OPTICS ZEROING ROUTINE.
007311,001004: 10,7361           02173                           TC       WAITLIST                              #  CALL WAITLIST FOR 30 SEC. WAIT
007312,001005: 10,7362           21372                           CADR     MANOZD                                
007313,001006: 10,7363           45503                           CS       TWO                                   #  SET ZEROING FLAG IN DESOPSET.
007314,001007: 10,7364           50732                           TS       DESOPSET                              
007315,001008: 10,7365           44664                           CS       CSQ                                   #  RECONCILE ZERO OPTICS C RELAY
007316,001009: 10,7366           70724                           MASK     DSPTAB     +12D                       
007317,001010: 10,7367           64664                           AD       CSQ                                   
007318,001011: 10,7370           50724                           TS       DSPTAB     +12D                       
007319,001012: 10,7371           07057                           TC       RECONTRK                              
007320,001013: 
007321,001014:                                                                                                  #        WAITLIST TASK TO COMPLETE MANUAL OPTICS ZERO.
007322,001015: 
007323,001016: 10,7372           35501        MANOZD             CAF      ZERO                                  
007324,001017: 10,7373           50732                           TS       DESOPSET                              #  LEAVE MANUAL ZERO MONITOR
007325,001018: 10,7374           02671                           TC       ZEROOCTR   +1                         #  SET OPTICS COUNTERS.
007326,001019: 10,7375           02743                           TC       SETZLIT                               #  TURN OFF LIGHT (POSSIBLY) AS SIGNAL.
007327,001020: 10,7376           02256                           TC       TASKOVER                              
007328,001021: 

Page 187

007330,001023: 
007331,001024:                                                                                                  #        PROCEDURE TO TURN OFF AN OUTCR WHOSE RESET PULSE WAS INITIATED DURING THE FIRST OF TWO  XCH OUT2  IN-
007332,001025: 
007333,001026:                                                                                                  #  STRUCTIONS USED IN UPDATING THE CONTENTS OF OUT2. THE OCCURENCE OF THIS IS EXTREMELY RARE.
007334,001027: 
007335,001028: 10,7377           74511        JACKPOT            MASK     BIT6                                  #  SEE WHICH FIELD TURNED OFF UNEXPECTEDLY.
007336,001029: 10,7400           10000                           CCS      A                                     
007337,001030: 10,7401           37406                           CAF      OCT00767                              #  IMU - MAKE UP MASK  OCT 00377  .
007338,001031: 10,7402           67407                           AD       OCT77407                              #  OPTICS - MAKE UP MASK  OCT 77407  .
007339,001032: 10,7403           70012                           MASK     OUT2                                  #  THE PROBLEM WILL NOT RECUR HERE SINCE
007340,001033: 10,7404           50012                           TS       OUT2                                  #  THIS IS WITHIN 26 MCT OF THE LAST PULSE.
007341,001034: 10,7405           00001                           TC       Q                                     
007342,001035: 
007343,001036: 10,7406           00767        OCT00767           OCT      00767                                 
007344,001037: 10,7407           77407        OCT77407           OCT      77407                                 
007345,001038: 

Page 188

007347,001040: 
007348,001041:                                                                                                  #        THE FOLLOWING PROGRAM TAKES A 2S COMPLEMENT DIFFERENCE BETWEEN THE ACTUAL CDU COUNTER AND THE DESIRED
007349,001042:                                                                                                  #  SETTING. THE AGC AD INSTRUCTION BY ITSELF CANNOT BE USED SINCE +0 = -0 THERE. TO COMPENSATE, IF THE SIGNS OF
007350,001043:                                                                                                  #  THE OPERANDS ARE DIFFERENT AND THE ROTATION NECESSARY TO NULL OUT THE ERROR PASSES THROUGH ZERO (NO OVERFLOW
007351,001044:                                                                                                  #  OCCURS IN DIFFERENCING THE DESIRED AND ACTUAL), A ONE WITH THE SIGN OF THE DESIRED ANGLE IS ADDEDTO THE DIFFER-
007352,001045:                                                                                                  #  ENCE.
007353,001046: 
007354,001047: 10,7410           50577        2SCOMDIF           TS       ITEMP1                                #  NEGATIVE OF CDU COUNTER ARRIVES IN A.
007355,001048: 10,7411           30001                           XCH      Q                                     
007356,001049: 10,7412           50574                           TS       ITEMP3                                
007357,001050: 10,7413           40600                           CS       ITEMP2                                #  C(ITEMP2) = -THE APPROPRIATE DES. ANGLE.
007358,001051: 10,7414           60577                           AD       ITEMP1                                
007359,001052: 10,7415           50034                           TS       OVCTR                                 
007360,001053: 10,7416           07423                           TC       2SCOM2                                #  IF NO OVERFLOW, SEE IF +-1 MUST BE ADDED
007361,001054: 
007362,001055: 10,7417           20000        UNCOROVF           INDEX    A                                     #  IF OVERFLOW, SIMPLY DO OVERFLOW UNCOR-
007363,001056: 10,7420           34477                           CAF      LIMITS                                #  RECTION AND EXIT.
007364,001057: 10,7421           60034                           AD       OVCTR                                 
007365,001058: 10,7422           00574                           TC       ITEMP3                                
007366,001059: 
007367,001060: 10,7423           10577        2SCOM2             CCS      ITEMP1                                #  NO OVERFLOW - SEE IF SIGNS OF INPUTS ARE 
007368,001061: 10,7424           07435                           TC       EXAM2                                 #  DIFFERENT.
007369,001062: 10,7425           07435                           TC       EXAM2                                 
007370,001063: 10,7426           07427                           TC       +1                                    
007371,001064: 10,7427           10600                           CCS      ITEMP2                                
007372,001065: 10,7430           07443                           TC       INCEX-                                #  ADD -1 AND EXIT HERE.
007373,001066: 10,7431           07443                           TC       INCEX-                                
007374,001067: 10,7432           07433                           TC       +1                                    
007375,001068: 
007376,001069: 10,7433           30034        DIFEX              XCH      OVCTR                                 #  ORIGINAL DIFFERENCE IS OK IF SIGNS SAME.
007377,001070: 10,7434           00574                           TC       ITEMP3                                
007378,001071: 
007379,001072: 10,7435           10600        EXAM2              CCS      ITEMP2                                
007380,001073: 10,7436           07433                           TC       DIFEX                                 #  SIGNS SAME HERE.
007381,001074: 10,7437           07433                           TC       DIFEX                                 
007382,001075: 10,7440           07441                           TC       +1                                    #  ADD +1 TO DIFFERENCE HERE.
007383,001076: 
007384,001077: 10,7441           34516                           CAF      ONE                                   
007385,001078: 10,7442           07444                           TC       +2                                    
007386,001079: 10,7443           44516        INCEX-             CS       ONE                                   
007387,001080: 10,7444           60034                           AD       OVCTR                                 
007388,001081: 10,7445           50034                           TS       OVCTR                                 
007389,001082: 10,7446           00574                           TC       ITEMP3                                #  NORMAL TRAIN OF EVENTS.
007390,001083: 10,7447           07417                           TC       UNCOROVF                              #  THIS ONLY HAPPENS AT 180 DEGREES.
007391,001084: 

Page 189

007393,001086: 
007394,001087:                                                                                                  #        OUTCTR SETTINGS FOR OUT2, AND C-RELAY SETTING CONSTANTS FOR IMU MODES.
007395,001088: 
007396,001089: 10,7450           50400        CDUCODES           OCT      50400                                 #  -Z CDU
007397,001090: 10,7451           51000                           OCT      51000                                 #  -Y CDU
007398,001091: 10,7452           52000                           OCT      52000                                 #  -X CDU
007399,001092: 10,7453           32000                           OCT      32000                                 #  +X CDU
007400,001093: 10,7454           31000                           OCT      31000                                 #  +Y CDU
007401,001094: 10,7455           30400                           OCT      30400                                 #  +Z CDU
007402,001095: 
007403,001096: 10,7456           40011        MODECHNG           OCT      40011                                 #  (THIS CONSTANT IS NEVER USED BY RECONCIL
007404,001097: 10,7457           00002                           OCT      00002                                 #   BUT ONLY BY THE MANUAL ZEROING PROG.)
007405,001098: 10,7460           00004                           OCT      00004                                 
007406,001099: 10,7461           00010                           OCT      00010                                 
007407,001100: 10,7462           01000                           OCT      01000                                 
007408,001101: 10,7463           00000                           OCT      00000                                 #  (TRANSFER SWITCH - NOT USED).
007409,001102: 10,7464           02000                           OCT      02000                                 
007410,001103: 
007411,001104:                                                                                                  #        ZERO-ENCODER LIGHT NOT COVERED HERE.
007412,001105: 
007413,001106: 10,7465           00377        LOW8               OCT      377                                   
007414,001107: 10,7466  10,7465               OUT2MASK           EQUALS   LOW8                                  
007415,001108: 10,7466           77407        OPTMASK            OCT      77407                                 #  COMPLEMENT OF OUTCR2 ACTIVITY BITS.
007416,001109: 
007417,001110: 10,7467           44400                           OCT      44400                                 #  -Z GYRO
007418,001111: 10,7470           45000                           OCT      45000                                 #  -Y GYRO
007419,001112: 10,7471           46000                           OCT      46000                                 #  -X GYRO.
007420,001113: 
007421,001114: 10,7472           00220        OPTCODES           OCT      00220                                 #  -Y OPTICS CDU.
007422,001115: 10,7473           00240                           OCT      00240                                 #  -X OPTICS CDU.
007423,001116: 10,7474           00140                           OCT      00140                                 #  +X OPTICS CDU.
007424,001117: 10,7475           00120                           OCT      00120                                 #  +Y OPTICS CDU.
007425,001118: 
007426,001119: 10,7476           26000                           OCT      26000                                 #  +X GYRO
007427,001120: 10,7477           25000                           OCT      25000                                 #  +Y GYRO
007428,001121: 10,7500           24400                           OCT      24400                                 #  +Z GYRO.
007429,001122: 
007430,001123: 10,7501           06654        35SCNDS            DEC      35.        E2                         #  FOR MANUAL IMUCDU ZEROING.
007431,001124: 10,7502           13560        60SCNDS            DEC      60.        E2                         #  FOR MANUAL OPTICS ZEROING.
007432,001125: 10,7503           06022        NWMASK             OCT      06022                                 #  IMU, PIPA, RESTART FAIL AND CURTAINS.
007433,001126: 10,7504     2261               HI5                EQUALS   BANKMASK                              

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