Source Code

These source-code files were obtained by digitally photographing the Colossus 237 program listing from the private collection of original AGC developer Fred Martin, and then modifying pre-existing Colossus 249 (Apollo 9) source files to incorporate changes. Note that the page images presented online are of reduced quality, and that additional images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS 
	BY NASA 2021111-031  1:17 AUG. 24, 1968

005668,000002:                                                                                                 #  Copyright:     Public domain.
005669,000003:                                                                                                 #  Filename:      T4RUPT_PROGRAM.agc
005670,000004:                                                                                                 #  Purpose:       Part of the source code for Colossus build 237.  
005671,000005:                                                                                                 #                 This is for the Command Module's (CM) Apollo Guidance
005672,000006:                                                                                                 #                 Computer (AGC), we believe for Apollo 8.
005673,000007:                                                                                                 #  Assembler:     yaYUL
005674,000008:                                                                                                 #  Reference:     pp. 128-165
005675,000009:                                                                                                 #  Contact:       Jim Lawton <jim DOT lawton AT gmail DOT com>
005676,000010:                                                                                                 #  Website:       www.ibiblio.org/apollo.
005677,000011:                                                                                                 #  Mod history:   2010-12-04 JL   Adapted from similar Colossus 249 file.
005678,000012: 
005679,000013:                                                                                                 # # Page 128
005680,000014: 12,2000                                          BANK     12                                    
005681,000015: 06,2000                                          SETLOC   T4RUP                                 
005682,000016: 06,2000                                          BANK                                           
005683,000017: 
005684,000018: 06,2000                                          COUNT    06/T4RPT                              
005685,000019: 
005686,000020: 06,2000           54016        T4RUPT            TS       BANKRUPT                              
005687,000021: 06,2001           00006                          EXTEND                                         
005688,000022: 06,2002           22012                          QXCH     QRUPT                                 
005689,000023: 
005690,000024: 06,2003           11302                          CCS      DSRUPTSW                              #  GOES 7(-1)0 AROUND AND AROUND
005691,000025: 06,2004           12010                          TCF      NORMT4     +1                         
005692,000026: 06,2005           12007                          TCF      NORMT4                                
005693,000027: 
005694,000028: 06,2006           12136                          TCF      QUIKDSP                               
005695,000029: 
005696,000030: 06,2007           34716        NORMT4            CAF      SEVEN                                 
005697,000031: 06,2010           54070                          TS       RUPTREG1                              
005698,000032: 06,2011           55302                          TS       DSRUPTSW                              
005699,000033: 
005700,000034: 06,2012                                          COUNT    02/T4RPT                              
005701,000035: 
005702,000036: 06,2012     7711               74K               =        HIGH4                                 
005703,000037:                                                                                                 #  RELTAB IS A PACKED TABLE. RELAYWORD CODE IN UPPER 4 BITS, RELAY CODE
005704,000038:                                                                                                 #  IN LOWER 5 BITS.
005705,000039: 
005706,000040:    4072                                          BLOCK    02                                    
005707,000041:    4000                                          SETLOC   FFTAG12                               
005708,000042:    4000                                          BANK                                           
005709,000043:    4072           04025        RELTAB            OCT      04025                                 
005710,000044:    4073           10003                          OCT      10003                                 
005711,000045:    4074           14031                          OCT      14031                                 
005712,000046:    4075           20033                          OCT      20033                                 
005713,000047:    4076           24017                          OCT      24017                                 
005714,000048:    4077           30036                          OCT      30036                                 
005715,000049:    4100           34034                          OCT      34034                                 
005716,000050:    4101           40023                          OCT      40023                                 
005717,000051:    4102           44035                          OCT      44035                                 
005718,000052:    4103           50037                          OCT      50037                                 
005719,000053:    4104           54000                          OCT      54000                                 
005720,000054:    4105           60000        RELTAB11          OCT      60000                                 
005721,000055: 
005722,000056:                                                                                                 # # Page 129
005723,000057: 
005724,000058:                                                                                                 #  SWITCHED-BANK PORTION.
005725,000059: 
005726,000060: 12,2000                                          BANK     12                                    
005727,000061: 06,2000                                          SETLOC   T4RUP                                 
005728,000062: 06,2000                                          BANK                                           
005729,000063: 
005730,000064: 06,2012                                          COUNT    06/T4RPT                              
005731,000065: 
005732,000066: 06,2012           11036        CDRVE             CCS      DSPTAB     +11D                       
005733,000067: 06,2013           02063                          TC       DSPOUT                                
005734,000068: 06,2014           02063                          TC       DSPOUT                                
005735,000069: 
005736,000070: 06,2015           57036                          XCH      DSPTAB     +11D                       
005737,000071: 06,2016           74372                          MASK     LOW11                                 
005738,000072: 06,2017           55036                          TS       DSPTAB     +11D                       
005739,000073: 06,2020           64105                          AD       RELTAB11                              
005740,000074: 06,2021           00006                          EXTEND                                         
005741,000075: 06,2022           01010                          WRITE    OUT0                                  
005742,000076: 06,2023           02071                          TC       HANG20                                
005743,000077: 
005744,000078:                                                                                                 # # Page 130
005745,000079: 
005746,000080:                                                                                                 #  DSPOUT PROGRAM, PUTS OUT DISPLAYS.
005747,000081: 
005748,000082: 06,2024           55016        DSPOUTSB          TS       NOUT                                  
005749,000083: 06,2025           44714                          CS       ZERO                                  
005750,000084: 06,2026           54073                          TS       DSRUPTEM                              #  SET TO -0 FOR 1ST PASS THRU DSPTAB
005751,000085: 06,2027           56776                          XCH      DSPCNT                                
005752,000086: 06,2030           64713                          AD       NEG0                                  #  TO PREVENT +0
005753,000087: 06,2031           54776                          TS       DSPCNT                                
005754,000088: 06,2032           50776        DSPSCAN           INDEX    DSPCNT                                
005755,000089: 06,2033           11023                          CCS      DSPTAB                                
005756,000090: 06,2034           10776                          CCS      DSPCNT                                #  IF DSPTAB ENTRY +, SKIP
005757,000091: 06,2035           12030                          TCF      DSPSCAN    -2                         #  IF DSPCNT +, AGAIN
005758,000092: 06,2036           12047                          TCF      DSPLAY                                #  IF DSPTAB ENTRY -, DISPLAY
005759,000093: 06,2037           00012        TABLNTH           OCT      12                                    #  DEC 10   LENGTH OF DSPTAB
005760,000094: 06,2040           10073                          CCS      DSRUPTEM                              #  IF DSRUPTEM=+0,2ND PASS THRU DSPTAB
005761,000095: 06,2041           37764        120MRUPT          DEC      16372      B-14                       #  (DSPCNT = 0). +0 INTO NOUT.
005762,000096: 06,2042           55016                          TS       NOUT                                  
005763,000097: 06,2043           00002                          TC       Q                                     
005764,000098: 06,2044           54073                          TS       DSRUPTEM                              #  IF DSRUPTEM=-0,1ST PASS THRU DSPTAB
005765,000099: 06,2045           32037                          CAF      TABLNTH                               #  (DSPCNT=0). +0 INTO DSRUPTEM. PASS AGAIN
005766,000100: 06,2046           12031                          TCF      DSPSCAN    -1                         
005767,000101: 
005768,000102: 06,2047           64712        DSPLAY            AD       ONE                                   
005769,000103: 06,2050           50776                          INDEX    DSPCNT                                
005770,000104: 06,2051           55023                          TS       DSPTAB                                #  REPLACE POSITIVELY
005771,000105: 06,2052           74372                          MASK     LOW11                                 #  REMOVE BITS 12 TO 15
005772,000106: 06,2053           54073                          TS       DSRUPTEM                              
005773,000107: 06,2054           34364                          CAF      HI5                                   
005774,000108: 06,2055           50776                          INDEX    DSPCNT                                
005775,000109: 06,2056           74072                          MASK     RELTAB                                #  PICK UP BITS 12 TO 15 OF RELTAB ENTRY
005776,000110: 06,2057           60073                          AD       DSRUPTEM                              
005777,000111: 06,2060           00006                          EXTEND                                         
005778,000112: 06,2061           01010                          WRITE    OUT0                                  #  WRITE CHANNEL 10
005779,000113: 06,2062           16706                          TCF      Q+1                                   #  ***NORMAL RETURN SKIPS ONE
005780,000114: 
005781,000115: 06,2063           10101        DSPOUT            CCS      FLAGWRD5                              #  DONT DISPLAY UNLESS DSKY FLAG ON
005782,000116: 06,2064           34714                          CAF      ZERO                                  
005783,000117: 06,2065           12132                          TCF      NODSPOUT                              
005784,000118: 06,2066           11016                          CCS      NOUT                                  
005785,000119: 06,2067           02024                          TC       DSPOUTSB                              
005786,000120: 06,2070           12132                          TCF      NODSPOUT                              #  NO DISPLAY REQUESTS
005787,000121: 06,2071           42173        HANG20            CS       11,14,9                               
005788,000122: 06,2072           27302                          ADS      DSRUPTSW                              
005789,000123: 
005790,000124: 06,2073           37700                          CAF      20MRUPT                               
005791,000125: 06,2074           54027        SETTIME4          TS       TIME4                                 
005792,000126: 
005793,000127:                                                                                                 # # Page 131
005794,000128: 
005795,000129:                                                                                                 #  THE STATUS OF THE PROCEED PUSHBUTTON IS MONITORED EVERY 120 MILLISECONDS VIA THE CHANNEL 32 BIT 14 INBIT.
005796,000130:                                                                                                 #  THE STATE OF THIS INBIT IS COMPARED WITH ITS STATE DURING THE PREVIOUS T4RUPT AND IS PROCESSED AS FOLLOWS.
005797,000131: 
005798,000132:                                                                                                 #     IF PREV ON AND NOW ON    -   BYPASS
005799,000133:                                                                                                 #     IF PREV ON AND NOW OFF   -   UPDATE IMODES33
005800,000134:                                                                                                 #     IF PREV OFF AND NOW ON   -   UPDATE IMODES33 AND PROCESS VIA PINBALL
005801,000135:                                                                                                 #     IF PREV OFF AND NOW OFF  -   BYPASS
005802,000136: 
005803,000137:                                                                                                 #  THE LOGIC EMPLOYED REQUIRES ONLY 9 MCT (APPROX. 108 MICROSECONDS) OF COMPUTER TIME WHEN NO CHANGES OCCUR.
005804,000138: 
005805,000139: 06,2075           31321        PROCEEDE          CA       IMODES33                              #  MONITOR FOR PROCEED BUTTON
005806,000140: 06,2076           00006                          EXTEND                                         
005807,000141: 06,2077           06032                          RXOR     CHAN32                                
005808,000142: 06,2100           74675                          MASK     BIT14                                 
005809,000143: 06,2101           00006                          EXTEND                                         
005810,000144: 06,2102           12116                          BZF      T4JUMP                                #  NO CHANGE
005811,000145: 
005812,000146: 06,2103           23321                          LXCH     IMODES33                              
005813,000147: 06,2104           00006                          EXTEND                                         
005814,000148: 06,2105           06001                          RXOR     LCHAN                                 
005815,000149: 06,2106           55321                          TS       IMODES33                              #  UPDATE IMODES33
005816,000150: 06,2107           74675                          MASK     BIT14                                 
005817,000151: 06,2110           10000                          CCS      A                                     
005818,000152: 06,2111           12116                          TCF      T4JUMP                                #  WAS ON - NOW OFF
005819,000153: 
005820,000154: 06,2112           34371                          CAF      CHRPRIO                               #  WAS OFF - NOW ON
005821,000155: 06,2113           05027                          TC       NOVAC                                 
005822,000156: 06,2114     0777                                 EBANK=   DSPCOUNT                              
005823,000157: 06,2114           03353 60101                    2CADR    PROCKEY                               
005824,000158: 
005825,000159:                                                                                                 # # Page 132
005826,000160: 
005827,000161:                                                                                                 #         JUMP TO APPROPRIATE ONCE-PER SECOND (.96 SEC ACTUALLY) ACTIVITY
005828,000162: 
005829,000163: 06,2116           50070        T4JUMP            INDEX    RUPTREG1                              
005830,000164: 06,2117           12120                          TCF      +1                                    
005831,000165: 
005832,000166: 06,2120           12130                          TCF      OPTTEST                               
005833,000167: 06,2121           12765                          TCF      OPTMON                                
005834,000168: 06,2122           12174                          TCF      IMUMON                                
005835,000169: 06,2123           15222                          TCF      RESUME                                
005836,000170: 06,2124           12130                          TCF      OPTTEST                               
005837,000171: 06,2125           12765                          TCF      OPTMON                                
005838,000172: 06,2126           12174                          TCF      IMUMON                                
005839,000173: 06,2127           15222                          TCF      RESUME                                
005840,000174: 
005841,000175: 06,2130           04633        OPTTEST           TC       IBNKCALL                              
005842,000176: 06,2131           20000                          CADR     OPTDRIVE                              
005843,000177: 
005844,000178: 06,2132     7700               20MRUPT           =        OCT37776                              #  (DEC 16382)
005845,000179: 06,2132           00006        NODSPOUT          EXTEND                                         #  TURN OFF RELAYS
005846,000180: 06,2133           01010                          WRITE    OUT0                                  
005847,000181: 
005848,000182: 06,2134           32041                          CAF      120MRUPT                              #  SET FOR NEXT CDRVE
005849,000183: 06,2135           12074                          TCF      SETTIME4                              
005850,000184: 
005851,000185: 06,2136           34675        QUIKDSP           CAF      BIT14                                 
005852,000186: 06,2137           71302                          MASK     DSRUPTSW                              
005853,000187: 06,2140           00006                          EXTEND                                         
005854,000188: 06,2141           12167                          BZF      QUIKOFF                               #  WROTE LAST TIME, NOW TURN OFF RELAYS.
005855,000189: 
005856,000190: 06,2142           11016                          CCS      NOUT                                  
005857,000191: 06,2143           02024                          TC       DSPOUTSB                              
005858,000192: 06,2144           12154                          TCF      NODSPY                                #  NOUT=0 OR BAD RETURN FROM DSPOUTSB
005859,000193: 06,2145           44675                          CS       BIT14                                 #  GOOD RETURN (WE DISPLAYED SOMETHING)
005860,000194: 06,2146           27302        QUIKRUPT          ADS      DSRUPTSW                              
005861,000195: 
005862,000196: 06,2147           37700                          CAF      20MRUPT                               
005863,000197: 06,2150           54027                          TS       TIME4                                 
005864,000198: 
005865,000199: 06,2151           34702                          CAF      BIT9                                  
005866,000200: 06,2152           27302                          ADS      DSRUPTSW                              
005867,000201: 
005868,000202: 06,2153           05222                          TC       RESUME                                
005869,000203: 
005870,000204: 06,2154           00006        NODSPY            EXTEND                                         
005871,000205: 06,2155           01010                          WRITE    OUT0                                  
005872,000206: 
005873,000207: 06,2156           37700        SYNCT4            CAF      20MRUPT                               
005874,000208: 06,2157           26027                          ADS      TIME4                                 
005875,000209: 
005876,000210: 06,2160           34702                          CAF      BIT9                                  
005877,000211:                                                                                                 # # Page 133
005878,000212: 06,2161           27302                          ADS      DSRUPTSW                              
005879,000213: 06,2162           11302                          CCS      DSRUPTSW                              
005880,000214: 06,2163           05222                          TC       RESUME                                
005881,000215: 06,2164           37737        OCT37737          OCT      37737                                 
005882,000216: 06,2165           02156                          TC       SYNCT4                                
005883,000217: 06,2166           05222                          TC       RESUME                                
005884,000218: 
005885,000219: 06,2167           00006        QUIKOFF           EXTEND                                         
005886,000220: 06,2170           01010                          WRITE    OUT0                                  
005887,000221: 06,2171           34675                          CAF      BIT14                                 #  RESET DSRUPTSW TO SEND DISPLAY NEXT PASS
005888,000222: 06,2172           12146                          TCF      QUIKRUPT                              
005889,000223: 
005890,000224: 06,2173           22400        11,14,9           OCT      22400                                 
005891,000225: 
005892,000226:                                                                                                 # # Page 134
005893,000227: 
005894,000228:                                                                                                 #  PROGRAM NAME:  IMUMON
005895,000229: 
005896,000230:                                                                                                 #  FUNCTIONAL DESCRIPTION:  THIS PROGRAM IS ENTERED EVERY 480 MS.  IT DETECTS CHANGES OF THE IMU STATUS BITS IN
005897,000231:                                                                                                 #  CHANNEL 30 AND CALLS THE APPROPRIATE SUBROUTINES.  THE BITS PROCESSED AND THEIR RELEVANT SUROUTINES ARE:
005898,000232: 
005899,000233:                                                                                                 #            FUNCTION               BIT    SUBROUTINE CALLED
005900,000234:                                                                                                 #            --------               ---    -----------------
005901,000235:                                                                                                 #            TEMP IN LIMITS          15    TLIM
005902,000236:                                                                                                 #            ISS TURN-ON REQUEST     14    ITURNON
005903,000237:                                                                                                 #            IMU FAIL                13    IMUFAIL (SETISSW)
005904,000238:                                                                                                 #            IMU CDU FAIL            12    ICDUFAIL (SETISSW)
005905,000239:                                                                                                 #            IMU CAGE                11    IMUCAGE
005906,000240:                                                                                                 #            IMU OPERATE              9    IMUOP
005907,000241: 
005908,000242:                                                                                                 #            THE LAST SAMPLED STATE OF THESE BITS IS LEFT IN IMODES30.  ALSO, EACH SUBROUTINE CALLED FINDS THE NEW
005909,000243:                                                                                                 #  VALUE OF THE BIT IN A, WITH Q SET TO THE PROPER RETURN LOCATION, NXTIFAIL.
005910,000244: 
005911,000245:                                                                                                 #  CALLING SEQUENCE:  T4RUPT EVERY 480 MILLISECONDS.
005912,000246: 
005913,000247:                                                                                                 #  JOBS OR TASKS INITIATED:  NONE.
005914,000248: 
005915,000249:                                                                                                 #  SUBROUTINES CALLED:  TLIM, ITURNON, SETISSW, IMUCAGE, IMUOP.
005916,000250: 
005917,000251:                                                                                                 #  ERASABLE INITIALIZATION:
005918,000252:                                                                                                 #            FRESH START OR RESTART WITH NO GROUPS ACTIVE:  C(IMODES30) = OCT 37411.
005919,000253:                                                                                                 #            RESTART WITH ACTIVE GROUPS:  C(IMODES30) = (B(IMODES30)AND(OCT 00035)) PLUS OCT 37400.
005920,000254:                                                                                                 #                                         THIS LEAVES IMU FAIL BITS INTACT.
005921,000255: 
005922,000256:                                                                                                 #  ALARMS:  NONE.
005923,000257: 
005924,000258:                                                                                                 #  EXIT:  TNONTEST.
005925,000259: 
005926,000260:                                                                                                 #  OUTPUT:  UPDATED IMODES30 WITH CHANGES PROCESSED BY APPROPRIATE SUBROUTINE.
005927,000261: 
005928,000262: 06,2174           31320        IMUMON            CA       IMODES30                              #  SEE IF THERE HAS BEEN A CHANGE IN THE
005929,000263: 06,2175           00006                          EXTEND                                         #  RELEVANT BITS OF CHAN 30.
005930,000264: 06,2176           06030                          RXOR     CHAN30                                #  CHECK IF BITS 9,11-15 CHANGED
005931,000265: 06,2177           72743                          MASK     30RDMSK                               
005932,000266: 06,2200           00006                          EXTEND                                         
005933,000267: 06,2201           12231                          BZF      TNONTEST                              #  NO CHANGE IN STATUS.
005934,000268: 
005935,000269: 06,2202           54070                          TS       RUPTREG1                              #  SAVE BITS WHICH HAVE CHANGED.
005936,000270: 06,2203           23320                          LXCH     IMODES30                              #  UPDATE IMODES30.
005937,000271: 06,2204           00006                          EXTEND                                         
005938,000272: 06,2205           06001                          RXOR     LCHAN                                 
005939,000273: 06,2206           55320                          TS       IMODES30                              
005940,000274: 
005941,000275: 06,2207           44712                          CS       ONE                                   
005942,000276: 06,2210           56070                          XCH      RUPTREG1                              
005943,000277: 06,2211           00006                          EXTEND                                         
005944,000278:                                                                                                 # # Page 135
005945,000279: 06,2212           62507                          BZMF     TLIM                                  #  CHANGE IN IMU TEMP.
005946,000280: 06,2213           12215                          TCF      NXTIFBIT                              #  BEGIN BIT SCAN.
005947,000281: 
005948,000282: 06,2214           64712                 -1       AD       ONE                                   #  (RE-ENTERS HERE FROM NXTIFAIL.)
005949,000283: 06,2215           24070        NXTIFBIT          INCR     RUPTREG1                              #  ADVANCE BIT POSITION NUMBER.
005950,000284: 06,2216           60000                 +1       DOUBLE                                         
005951,000285: 06,2217           54000                          TS       A                                     #  SKIP IF OVERFLOW.
005952,000286: 06,2220           12215                          TCF      NXTIFBIT                              #  LOOK FOR BIT.
005953,000287: 
005954,000288: 06,2221           56071                          XCH      RUPTREG2                              #  SAVE OVERFLOW-CORRECTED DATA.
005955,000289: 06,2222           50070                          INDEX    RUPTREG1                              #  SELECT NEW VALUE OF THIS BIT.
005956,000290: 06,2223           34675                          CAF      BIT14                                 
005957,000291: 06,2224           71320                          MASK     IMODES30                              
005958,000292: 06,2225           50070                          INDEX    RUPTREG1                              
005959,000293: 06,2226           02737                          TC       IFAILJMP                              
005960,000294: 
005961,000295: 06,2227           10071        NXTIFAIL          CCS      RUPTREG2                              #  PROCESS ANY ADDITIONAL CHANGES.
005962,000296: 06,2230           12214                          TCF      NXTIFBIT   -1                         
005963,000297: 
005964,000298:                                                                                                 # # Page 136
005965,000299: 
005966,000300:                                                                                                 #  PROGRAM NAME:  TNONTEST.
005967,000301: 
005968,000302:                                                                                                 #  FUNCTIONAL DESCRIPTION:  THIS PROGRAM HONORS REQUESTS FOR ISS INITIALIZATION.  ISS TURN-ON (CHANNEL 30 BIT 14)
005969,000303:                                                                                                 #  AND ISS OPERATE (CHANNEL 30 BIT 9) REQUESTS ARE TREATED AS A PAIR AND PROCESSING TAKES PLACE .480 SECONDS
005970,000304:                                                                                                 #  AFTER EITHER ONE APPEARS.  THIS INITIALIZATION TAKES ON ONE OF THE FOLLOWING THREE FORMS:
005971,000305: 
005972,000306:                                                                                                 #         1)  ISS TURN-ON:  IN THIS SITUATION THE COMPUTER IS OPERATING WHEN THE ISS IS TURNED ON.  NOMINALLY,
005973,000307:                                                                                                 #         BOTH ISS TURN-ON AND ISS OPERATE APPEAR.  THE PLATFORM IS CAGED FOR 90 SECONDS AND THE ICDU'S ZEROED
005974,000308:                                                                                                 #         SO THAT AT THE END OF THE PROCESS THE GIMBAL LOCK MONITOR WILL FUNCTION PROPERLY.
005975,000309: 
005976,000310:                                                                                                 #         2)  ICDU INITIALIZATION:  IN THIS CASE THE COMPUTER WAS PROBABLY TURNED ON WITH THE ISS IN OPERATE OR
005977,000311:                                                                                                 #         A FRESH START WAS DONE WIT THE ISS IN OPERATE.  IN THIS CASE ONLY ISS OPERATE IS ON.  THE ICDU'S ARE
005978,000312:                                                                                                 #         ZEROED SO THE GIMBAL LOCK MONITOR WILL FUNCTION.  AN EXCEPTION IS IF THE ISS IS IN GIMBAL LOCK AFTER
005979,000313:                                                                                                 #         A RESTART, THE ICDU'S WILL NOT BE ZEROED.
005980,000314: 
005981,000315:                                                                                                 #         3)  RESTART WITH RESTARTABLE PROGRAM USING THE IMU:  IN THIS CASE, NO INITIALIZATION TAKES PLACE SINCE
005982,000316:                                                                                                 #         IT IS ASSUMED THAT THE USING PROGRAM DID THE INITIALIZATION AND THEREFORE T4RUPT SHOULD NOT INTERFERE.
005983,000317: 
005984,000318:                                                                                                 #  IMODES30 BIT 7 IS SET = 1 BY THE FIRST BIT (CHANNEL 30 BIT 14 OR 9) WHICH ARRIVES.  FOLLOWING THIS, TNONTEST IS
005985,000319:                                                                                                 #  ENTERED, FINDS BIT 7 = 1 BUT BIT 8 = 0, SO IT SETS BIT 8 = 1 AND EXITS.  THE NEXT TIME IT FINDS BIT 8 = 1 AND
005986,000320:                                                                                                 #  PROCEEDS, SETTING BITS 8 AND 7 = 0.  AT PROCTNON, IF ISS TURN-ON REQUEST IS PRESENT, THE ISS IS CAGED (ZERO +
005987,000321:                                                                                                 #  COARSE).  IF ISS OPERATE IS NOT PRESENT PROGRAM ALARM 00213 IS ISSUED.  AT THE END OF A 90 SECOND CAGE, BIT 2
005988,000322:                                                                                                 #  OF IMODES30 IS TESTED.  IF IT IS = 1, ISS TURN-ON WAS NOT PRESENT FOR THE ENTIRE 90 SECONDS.  IN THAT CASE, IF
005989,000323:                                                                                                 #  THE ISS TURN-ON REQUEST IS PRESENT THE 90 SECOND WAIT IS REPEATED.  OTHERWISE NO ACTION OCCURS UNLESS A PROGRAM
005990,000324:                                                                                                 #  WAS WAITING FOR THE INITIALIZATION IN WHICH CASE THE PROGRAM IS GIVEN AN IMUSTALL ERROR RETURN.  IF THE DELAY
005991,000325:                                                                                                 #  WENT PROPERLY, THE ISS DELAY OUTBIT IS SENT AND THE ICDU'S ZEROED.  A TASK IS INITIATED TO REMOVE THE PIPA FAIL
005992,000326:                                                                                                 #  INHIBIT BIT IN 10.24 SECONDS.  IF A MISSION PROGRAM WAS WAITING IT IS INFORMED VIA ENDIMU.
005993,000327: 
005994,000328:                                                                                                 #  AT PROCTNON, IF ONLY ISS OPERATE IS PRESENT (OPONLY), THE CDU'S ARE ZEROED UNLESS THE PLATFORM IS IN COARSE
005995,000329:                                                                                                 #  ALIGN (= GIMBAL LOCK HERE) OR A MISSIN PROGRAM IS USING THE IMU (IMUSEFLG = 1).
005996,000330: 
005997,000331:                                                                                                 #  CALLING SEQUENCE:  T4RUPT EVERY 480 MILLISECONDS AFTER IMUMON.
005998,000332: 
005999,000333:                                                                                                 #  JOBS OR TASKS INITIATED:  1) ENDTMON, 90 SECONDS AFTER CAGING STARTED.  2) ISSUP, 4 SECONDS AFTER CAGING DONE.
006000,000334:                                                                                                 #            3) PFAILOK, 10.24 SECONDS AFTER INITIALIZATION COMPLETED.  4) UNZ2, 320 MILLISECONDS AFTER ZEROING
006001,000335:                                                                                                 #            STARTED.
006002,000336: 
006003,000337:                                                                                                 #  SUBROUTINES CALLED:  CAGESUB, CAGESUB2, ZEROICDU, ENDIMU, IMUBAD, NOATTOFF, SETISSW, VARDELAY.
006004,000338: 
006005,000339:                                                                                                 #  ERASABLE INITIALIZATION:  SEE IMUMON.
006006,000340: 
006007,000341:                                                                                                 #  ALARMS:  PROGRAM ALARM 00213 IF ISS TURN-ON REQUESTED WITHOUT ISS OPERATE.
006008,000342: 
006009,000343:                                                                                                 #  EXIT:  ENDTNON EXITS TO C33TEST.  TASKS HAVING TO DO WITH INITIALIZATION EXIT AS FOLLOWS:  MISSION PROGRAM
006010,000344:                                                                                                 #  WAITING AND INITIALIZATION COMPLETE, EXIT TO ENDIMU, MISSION PROGRAM WAITING AND INITIALIZATION FAILED, EXIT TO
006011,000345:                                                                                                 #  IMUBAD, IMU NOT IN USE, EXIT TO TASKOVER.
006012,000346: 
006013,000347:                                                                                                 #  OUTPUT:  ISS INITIALIZED.
006014,000348: 
006015,000349: 06,2231           41320        TNONTEST          CS       IMODES30                              #  AFTER PROCESSING ALL CHANGES, SEE IF IT
006016,000350:                                                                                                 # # Page 137
006017,000351: 06,2232           74704                          MASK     BIT7                                  #  IS TIME TO ACT ON A TURN-ON SEQUENCE.
006018,000352: 06,2233           10000                          CCS      A                                     
006019,000353: 06,2234           12367                          TCF      C33TEST                               #  NO - EXAMINE CHANNEL 33.
006020,000354: 
006021,000355: 06,2235           34703                          CAF      BIT8                                  #  SEE IF FIRST SAMPLE OR SECOND.
006022,000356: 06,2236           71320                          MASK     IMODES30                              
006023,000357: 06,2237           10000                          CCS      A                                     
006024,000358: 06,2240           12244                          TCF      PROCTNON                              #  REACT AFTER SECOND SAMPLE.
006025,000359: 
006026,000360: 06,2241           34703                          CAF      BIT8                                  #  IF FIRST SAMPLE, SET BIT TO REACT NEXT
006027,000361: 06,2242           27320                          ADS      IMODES30                              #  TIME.
006028,000362: 06,2243           12367                          TCF      C33TEST                               
006029,000363: 
006030,000364:                                                                                                 #         PROCESS IMU TURN-ON REQUESTS AFTER WAITING 1 SAMPLE FOR ALL SIGNALS TO ARRIVE.
006031,000365: 
006032,000366: 06,2244           42757        PROCTNON          CS       BITS7&8                               
006033,000367: 06,2245           71320                          MASK     IMODES30                              
006034,000368: 06,2246           55320                          TS       IMODES30                              
006035,000369: 06,2247           74675                          MASK     BIT14                                 #  SEE IF TURN-ON REQUEST.
006036,000370: 06,2250           10000                          CCS      A                                     
006037,000371: 06,2251           12342                          TCF      OPONLY                                #  OPERATE ON ONLY.
006038,000372: 
006039,000373: 06,2252           41320                          CS       IMODES30                              #  IF TURN-ON REQUEST, WE SHOULD HAVE IMU
006040,000374: 06,2253           74702                          MASK     BIT9                                  #  OPERATE.
006041,000375: 06,2254           10000                          CCS      A                                     
006042,000376: 06,2255           12260                          TCF      +3                                    
006043,000377: 
006044,000378: 06,2256           05537                          TC       ALARM                                 #  ALARM IF NOT
006045,000379: 06,2257           00213                          OCT      213                                   
006046,000380: 
006047,000381: 06,2260           02717                 +3       TC       CAGESUB                               
006048,000382: 06,2261           32764                          CAF      90SECS                                
006049,000383: 06,2262           05140                          TC       WAITLIST                              
006050,000384: 06,2263  E3,1474                                 EBANK=   CDUIND                                
006051,000385: 06,2263           02270 14063                    2CADR    ENDTNON                               
006052,000386: 
006053,000387: 06,2265           12367                          TCF      C33TEST                               
006054,000388: 
006055,000389: 06,2266           32764        RETNON            CAF      90SECS                                
006056,000390: 06,2267           05161                          TC       VARDELAY                              
006057,000391: 
006058,000392: 06,2270           44711        ENDTNON           CS       BIT2                                  #  RESET TURN-ON REQUEST FAIL BIT.
006059,000393: 06,2271           71320                          MASK     IMODES30                              
006060,000394: 06,2272           57320                          XCH      IMODES30                              
006061,000395: 06,2273           74711                          MASK     BIT2                                  #  IF IT WAS OFF, SEND ISS DELAY COMPLETE.
006062,000396: 06,2274           00006                          EXTEND                                         
006063,000397: 06,2275           12310                          BZF      ENDTNON2                              
006064,000398:                                                                                                 # # Page 138
006065,000399: 06,2276           34675                          CAF      BIT14                                 #  IF IT WAS ON AND TURN-ON REQUEST NOW
006066,000400: 06,2277           71320                          MASK     IMODES30                              #  PRESENT, RE-ENTER 90 SEC DELAY IN WL.
006067,000401: 06,2300           00006                          EXTEND                                         
006068,000402: 06,2301           12266                          BZF      RETNON                                
006069,000403: 
006070,000404: 06,2302           40074                          CS       STATE                                 #  IF IT IS NOT ON NOW, SEE IF A PROG WAS
006071,000405: 06,2303           74703                          MASK     IMUSEFLG                              #  WAITING.
006072,000406: 06,2304           10000                          CCS      A                                     
006073,000407: 06,2305           15213                          TCF      TASKOVER                              
006074,000408: 06,2306           04574                          TC       POSTJUMP                              
006075,000409: 06,2307           17441                          CADR     IMUBAD                                #  UNSUCCESSFUL TURN-ON.
006076,000410: 
006077,000411: 06,2310           34674        ENDTNON2          CAF      BIT15                                 #  SEND ISS DELAY COMPLETE.
006078,000412: 06,2311           00006                          EXTEND                                         
006079,000413: 06,2312           05012                          WOR      CHAN12                                #  TURN OFF ISS DELAY COUNTER
006080,000414: 06,2313           04633                          TC       IBNKCALL                              #  TURN OFF NO ATT LAMP.
006081,000415: 06,2314           17070                          CADR     NOATTOFF                              
006082,000416: 
006083,000417: 06,2315           05410        UNZ2              TC       ZEROICDU                              
006084,000418: 
006085,000419: 06,2316           44722                          CS       BITS4&5                               #  REMOVE ZERO AND COARSE.
006086,000420: 06,2317           00006                          EXTEND                                         
006087,000421: 06,2320           03012                          WAND     CHAN12                                
006088,000422: 
006089,000423: 06,2321           34700                          CAF      BIT11                                 #  WAIT 10 SECS FOR CTRS TO FIND GIMBALS
006090,000424: 06,2322           05161                          TC       VARDELAY                              
006091,000425: 
006092,000426: 06,2323           42754        ISSUP             CS       OCT54                                 #  REMOVE CAGING, IMU FAIL INHIBIT, AND
006093,000427: 06,2324           71320                          MASK     IMODES30                              #  ICDUFAIL INHIBIT FLAGS.
006094,000428: 06,2325           55320                          TS       IMODES30                              
006095,000429: 
006096,000430: 06,2326           44705                          CS       BIT6                                  #  ENABLE DAP
006097,000431: 06,2327           71321                          MASK     IMODES33                              
006098,000432: 06,2330           55321                          TS       IMODES33                              
006099,000433: 
006100,000434: 06,2331           02665                          TC       SETISSW                               #  ISS WARNING MIGHT HAVE BEEN INHIBITED.
006101,000435: 
006102,000436: 06,2332           44674                          CS       BIT15                                 #  REMOVE IMU DELAY COMPLETE DISCRETE.
006103,000437: 06,2333           00006                          EXTEND                                         
006104,000438: 06,2334           03012                          WAND     CHAN12                                
006105,000439: 
006106,000440: 06,2335           34740                          CAF      4SECS                                 #  DONT ENABLE PROG ALARM ON PIP FAIL FOR
006107,000441: 06,2336           05140                          TC       WAITLIST                              #  ANOTHER 4 SECS.
006108,000442: 06,2337  E3,1474                                 EBANK=   CDUIND                                
006109,000443: 06,2337           03056 16063                    2CADR    PFAILOK                               
006110,000444: 
006111,000445: 06,2341           15213                          TCF      TASKOVER                              
006112,000446: 
006113,000447: 06,2342           34707        OPONLY            CAF      BIT4                                  
006114,000448:                                                                                                 # # Page 139
006115,000449: 06,2343           00006                          EXTEND                                         #  IF OPERATE ON ONLY AND WE ARE IN COARSE
006116,000450: 06,2344           02012                          RAND     CHAN12                                #  ALIGN, DONT ZERO THE CDUS BECAUSE WE
006117,000451: 06,2345           10000                          CCS      A                                     #  MIGHT BE IN GIMBAL LOCK. USE V41N20 TO
006118,000452: 06,2346           12367                          TCF      C33TEST                               #  RECOVER.
006119,000453: 
006120,000454: 06,2347           34703                          CAF      IMUSEFLG                              #  OTHERWISE, ZERO THE COUNTERS
006121,000455: 06,2350           70074                          MASK     STATE                                 #  UNLESS SOMEONE IS USING THE IMU.
006122,000456: 06,2351           10000                          CCS      A                                     
006123,000457: 06,2352           12367                          TCF      C33TEST                               
006124,000458: 
006125,000459: 06,2353           02730                          TC       CAGESUB2                              #  SET TURNON FLAGS.
006126,000460: 
006127,000461: 06,2354           04633        ISSZERO           TC       IBNKCALL                              #  TURN OFF NO ATT LAMP
006128,000462: 06,2355           17070                          CADR     NOATTOFF                              #      IMU CAGE OFF ENTRY
006129,000463: 
006130,000464: 06,2356           34706                          CAF      BIT5                                  #  ISS CDU ZERO
006131,000465: 06,2357           00006                          EXTEND                                         
006132,000466: 06,2360           05012                          WOR      CHAN12                                
006133,000467: 
006134,000468: 06,2361           05410                          TC       ZEROICDU                              
006135,000469: 06,2362           34705                          CAF      BIT6                                  #  WAIT 300 MS FOR AGS TO RECEIVE SIGNAL.
006136,000470: 06,2363           05140                          TC       WAITLIST                              
006137,000471: 06,2364     1331                                 EBANK=   OPTMODES                              
006138,000472: 06,2364           02315 14062                    2CADR    UNZ2                                  
006139,000473: 
006140,000474: 06,2366           12367                          TCF      C33TEST                               
006141,000475: 
006142,000476:                                                                                                 # # Page 140
006143,000477: 
006144,000478:                                                                                                 #  PROGRAM NAME:  C33TEST
006145,000479: 
006146,000480:                                                                                                 #  FUNCTIONAL DESCRIPTION:  THIS PROGRAM MONITORS THREE FLIP-FLOP INBITS OF CHANNEL 33 AND CALLS THE APPROPRIATE
006147,000481:                                                                                                 #  SUBROUTINE TO PROCESS A CHANGE.  IT IS ANALOGOUS TO IMUMON, WHICH MONITORS CHANNEL 30, EXCEPT THAT IT READS
006148,000482:                                                                                                 #  CHANNEL 33 WITH A WAND INSTRUCTION BECAUSE A 'WRITE' PULSE IS REQUIRED TO RESET THE FLIP-FLOPS.  THE BITS
006149,000483:                                                                                                 #  PROCESSED AND THE SUBROUTINES CALLED ARE:
006150,000484: 
006151,000485:                                                                                                 #            BIT    FUNCTION                SUBROUTINE
006152,000486:                                                                                                 #            ---    --------                ----------
006153,000487:                                                                                                 #             13    PIPA FAIL               PIPFAIL
006154,000488:                                                                                                 #             12    DOWNLINK TOO FAST       DNTMFAST
006155,000489:                                                                                                 #             11    UPLINK TOO FAST         UPTMFAST
006156,000490: 
006157,000491:                                                                                                 #  UPON ENTRY TO THE SUBROUTINE, THE NEW BIT STATE IS IN A.
006158,000492: 
006159,000493:                                                                                                 #  CALLING SEQUENCE:  EVERY 480 MILLISECONDS AFTER TNONTEST.
006160,000494: 
006161,000495:                                                                                                 #  JOBS OR TASKS INITIATED:  NONE.
006162,000496: 
006163,000497:                                                                                                 #  SUBROUTINES CALLED:  PIPFAIL, DNTMFAST AND UPTMFAST ON BIT CHANGES.
006164,000498: 
006165,000499:                                                                                                 #  ERASABLE INITIALIZATION:  C(IMODES33) = OCT 16000 ON A FRESH START OR RESTART, THEREFORE, THESE ALARMS WILL
006166,000500:                                                                                                 #  REAPPEAR IF THE CONDITIONS PERSIST.
006167,000501: 
006168,000502:                                                                                                 #  ALARMS:  NONE.
006169,000503: 
006170,000504:                                                                                                 #  EXIT:  GLOCKMON.
006171,000505: 
006172,000506:                                                                                                 #  OUTPUT:  UPDATED BITS 13, 12, AND 11 OF IMODES33 WITH CHANGES PROCESSED.
006173,000507: 
006174,000508: 06,2367           31321        C33TEST           CA       IMODES33                              #  SEE IF RELEVANT CHAN33 BITS HAVE
006175,000509: 06,2370           74763                          MASK     33RDMSK                               
006176,000510: 06,2371           54001                          TS       L                                     #  CHANGED.
006177,000511: 06,2372           34763                          CAF      33RDMSK                               
006178,000512: 06,2373           00006                          EXTEND                                         
006179,000513: 06,2374           03033                          WAND     CHAN33                                #  RESETS FLIP-FLOP INPUTS.
006180,000514: 06,2375           00006                          EXTEND                                         
006181,000515: 06,2376           06001                          RXOR     LCHAN                                 
006182,000516: 06,2377           00006                          EXTEND                                         
006183,000517: 06,2400           12427                          BZF      GLOCKMON                              #  ON NO CHANGE.
006184,000518: 
006185,000519: 06,2401           54070                          TS       RUPTREG1                              #  SAVE BITS WHICH HAVE CHANGED.
006186,000520: 06,2402           23321                          LXCH     IMODES33                              
006187,000521: 06,2403           00006                          EXTEND                                         
006188,000522: 06,2404           06001                          RXOR     LCHAN                                 
006189,000523: 06,2405           55321                          TS       IMODES33                              #  UPDATED IMODES33.
006190,000524: 
006191,000525: 06,2406           34714                          CAF      ZERO                                  
006192,000526: 06,2407           56070                          XCH      RUPTREG1                              
006193,000527: 06,2410           60000                          DOUBLE                                         
006194,000528:                                                                                                 # # Page 141
006195,000529: 06,2411           12414                          TCF      NXTIBT     +1                         #  SCAN FOR BIT CHANGES.
006196,000530: 
006197,000531: 06,2412           64712                 -1       AD       ONE                                   
006198,000532: 06,2413           24070        NXTIBT            INCR     RUPTREG1                              
006199,000533: 06,2414           60000                 +1       DOUBLE                                         
006200,000534: 06,2415           54000                          TS       A                                     #  (CODING IDENTICAL TO CHAN 30).
006201,000535: 06,2416           12413                          TCF      NXTIBT                                
006202,000536: 
006203,000537: 06,2417           56071                          XCH      RUPTREG2                              
006204,000538: 06,2420           50070                          INDEX    RUPTREG1                              #  GET NEW VALUE OF BIT WHICH CHANGED.
006205,000539: 06,2421           34676                          CAF      BIT13                                 
006206,000540: 06,2422           71321                          MASK     IMODES33                              
006207,000541: 06,2423           50070                          INDEX    RUPTREG1                              
006208,000542: 06,2424           02745                          TC       C33JMP                                
006209,000543: 
006210,000544: 06,2425           10071        NXTFL33           CCS      RUPTREG2                              #  PROCESS POSSIBLE ADDITIONAL CHANGES.
006211,000545: 06,2426           12412                          TCF      NXTIBT     -1                         
006212,000546: 
006213,000547:                                                                                                 # # Page 142
006214,000548: 
006215,000549:                                                                                                 #  PROGRAM NAME:  GLOCKMON
006216,000550: 
006217,000551:                                                                                                 #  FUNCTIONAL DESCRIPTION:  THIS PROGRAM MONITORS THE CDUZ COUNTER TO DETERMINE WHETHER THE ISS IS IN GIMBAL LOCK
006218,000552:                                                                                                 #  AND TAKES ACTION IF IT IS.  THREE REGIONS OF MIDDLE GIMBAL ANGLE (MGA) ARE USED:
006219,000553: 
006220,000554:                                                                                                 #            1) ABS(MGA) LESS THAN OR EQUAL TO 70 DEGREES - NORMAL MODE.
006221,000555:                                                                                                 #            2) ABS(MGA) GREATER THAN 70 DEGREES AND LESS THAN OR EQUAL TO 85 DEGREES - GIMBAL LOCK LAMP TURNED ON.
006222,000556:                                                                                                 #            3) ABS(MGA) GREATER THAN 85 DEGREES - ISS PUT IN COARSE ALIGN AND NO ATT LAMP TURNED ON.
006223,000557: 
006224,000558:                                                                                                 #  CALLING SEQUENCE:  EVERY 480 MILLISECONDS AFTER C33TEST.
006225,000559: 
006226,000560:                                                                                                 #  JOBS OR TASKS INITIATED:  NONE.
006227,000561: 
006228,000562:                                                                                                 #  SUBROUTINES CALLED:    1) SETCOARS WHEN ABS(MGA) GREATER THAN 85 DEGREES AND ISS NOT IN COARSE ALIGN.
006229,000563:                                                                                                 #                         2) LAMPTEST BEFORE TURNING OFF GIMBAL LOCK LAMP.
006230,000564: 
006231,000565:                                                                                                 #  ERASABLE INITIALIZATION:
006232,000566:                                                                                                 #            1) FRESH START OR RESTART WITH NO GROUPS ACTIVE:  C(CDUZ) = 0, IMODES30 BIT 6 = 0, IMODES33 BIT 1 = 0.
006233,000567:                                                                                                 #            2) RESTART WTIH GROUPS ACTIVE:  SAME AS FRESH START EXCEPT C(CDUZ) NOT CHANGED SO GIMBAL MONITOR
006234,000568:                                                                                                 #                                            PROCEEDS AS BEFORE.
006235,000569: 
006236,000570:                                                                                                 #  ALARMS:  1) MGA REGION (2) CAUSES GIMBAL LOCK LAMP TO BE LIT.
006237,000571:                                                                                                 #            2) MGA REGION (3) CAUSES THE ISS TO BE PUT IN COARSE ALIGN AND THE NO ATT LAMP TO BE LIT IF EITHER NOT
006238,000572:                                                                                                 #               SO ALREADY.
006239,000573: 
006240,000574: 06,2427           10034        GLOCKMON          CCS      CDUZ                                  
006241,000575: 06,2430           12434                          TCF      GLOCKCHK                              #  SEE IF MAGNITUDE OF MGA IS GREATER THAN
006242,000576: 06,2431           12460                          TCF      SETGLOCK                              #  70 DEGREES.
006243,000577: 06,2432           12434                          TCF      GLOCKCHK                              
006244,000578: 06,2433           12460                          TCF      SETGLOCK                              
006245,000579: 
006246,000580: 06,2434           62505        GLOCKCHK          AD       -70DEGS                               
006247,000581: 06,2435           00006                          EXTEND                                         
006248,000582: 06,2436           62457                          BZMF     SETGLOCK   -1                         #  NO LOCK.
006249,000583: 
006250,000584: 06,2437           62506                          AD       -15DEGS                               #  SEE IF ABS(MGA) GREATER THAN 85 DEGS.
006251,000585: 06,2440           00006                          EXTEND                                         
006252,000586: 06,2441           62455                          BZMF     NOGIMRUN                              
006253,000587: 
006254,000588: 06,2442           34707                          CAF      BIT4                                  #  IF SO, SYSTEM SHOULD BE IN COARSE ALIGN
006255,000589: 06,2443           00006                          EXTEND                                         #  TO PREVENT GIMBAL RUN-AWAY.
006256,000590: 06,2444           02012                          RAND     CHAN12                                
006257,000591: 06,2445           10000                          CCS      A                                     
006258,000592: 06,2446           12455                          TCF      NOGIMRUN                              
006259,000593: 
006260,000594: 06,2447           04633                          TC       IBNKCALL                              #  GO INTO COARSE ALIGN.
006261,000595: 06,2450           16746                          CADR     SETCOARS                              
006262,000596: 
006263,000597: 06,2451           36211                          CAF      SIX                                   #  ENABLE ISS ERROR COUNTERS IN 60 MS
006264,000598: 06,2452           05140                          TC       WAITLIST                              
006265,000599:                                                                                                 # # Page 143
006266,000600: 06,2453  E3,1474                                 EBANK=   CDUIND                                
006267,000601: 06,2453           02742 16063                    2CADR    CA+ECE                                
006268,000602: 
006269,000603: 06,2455           34705        NOGIMRUN          CAF      BIT6                                  #  TURN ON GIMBAL LOCK LAMP.
006270,000604: 06,2456           12460                          TCF      SETGLOCK                              
006271,000605: 
006272,000606: 06,2457           34714                 -1       CAF      ZERO                                  
006273,000607: 06,2460           61036        SETGLOCK          AD       DSPTAB     +11D                       #  SEE IF PRESENT STATE OF GIMBAL LOCK LAMP
006274,000608: 06,2461           74705                          MASK     BIT6                                  #  AGREES WITH DESIRED STATE BY HALF ADDING
006275,000609: 06,2462           00006                          EXTEND                                         #  THE TWO.
006276,000610: 06,2463           15222                          BZF      GLOCKOK                               #  OK AS IS.
006277,000611: 
006278,000612: 06,2464           71036                          MASK     DSPTAB     +11D                       #  IF OFF, DONT TURN ON IF IMU BEING CAGED.
006279,000613: 06,2465           10000                          CCS      A                                     
006280,000614: 06,2466           12502                          TCF      GLAMPTST                              #  TURN OFF UNLESS LAMP TEST IN PROGRESS.
006281,000615: 
006282,000616: 06,2467           34705                          CAF      BIT6                                  
006283,000617: 06,2470           71320                          MASK     IMODES30                              
006284,000618: 06,2471           10000                          CCS      A                                     
006285,000619: 06,2472           15222                          TCF      GLOCKOK                               
006286,000620: 
006287,000621: 06,2473           41036        GLINVERT          CS       DSPTAB     +11D                       #  INVERT GIMBAL LOCK LAMP.
006288,000622: 06,2474           74705                          MASK     BIT6                                  
006289,000623: 06,2475           64674                          AD       BIT15                                 #  TO INDICATE CHANGE IN DSPTAB +11D.
006290,000624: 06,2476           57036                          XCH      DSPTAB     +11D                       
006291,000625: 06,2477           72164                          MASK     OCT37737                              
006292,000626: 06,2500           27036                          ADS      DSPTAB     +11D                       
006293,000627: 06,2501           15222                          TCF      GLOCKOK                               
006294,000628: 
006295,000629: 06,2502           02750        GLAMPTST          TC       LAMPTEST                              #  TURN OFF UNLESS LAMP TEST IN PROGRESS.
006296,000630: 06,2503           15222                          TCF      GLOCKOK                               
006297,000631: 06,2504           12473                          TCF      GLINVERT                              
006298,000632: 
006299,000633: 06,2505           63434        -70DEGS           DEC      -.38888                               #  -70 DEGREES SCALED IN HALF-REVOLUTIONS.
006300,000634: 06,2506           75252        -15DEGS           DEC      -.08333                               
006301,000635: 
006302,000636:                                                                                                 # # Page 144
006303,000637: 
006304,000638:                                                                                                 #  PROGRAM NAME:  TLIM.
006305,000639: 
006306,000640:                                                                                                 #  FUNCTIONAL DESCRIPTION:  THIS PROGRAM MAINTAINS THE TEMP LAMP (BIT 4 OF CHANNEL 11) ON THE DSKY TO AGREE WITH
006307,000641:                                                                                                 #  THE TEMP SIGNAL FROM THE ISS (BIT 15 OF CHANNEL 30).  HOWEVER, THE LIGHT WILL NOT BE TURNED OFF IF A LAMP TEST
006308,000642:                                                                                                 #  IS IN PROGRESS.
006309,000643: 
006310,000644:                                                                                                 #  CALLING SEQUENCE:  CALLED BY IMUMON ON A CHANGE OF BIT 15 OF CHANNEL 30.
006311,000645: 
006312,000646:                                                                                                 #  JOBS OR TASKS INITIATED:  NONE.
006313,000647: 
006314,000648:                                                                                                 #  SUBROUTINES CALLED:  LAMPTEST.
006315,000649: 
006316,000650:                                                                                                 #  ERASABLE INITIALIZATION:  FRESH START AND RESTART TURN THE TEMP LAMP OFF.
006317,000651: 
006318,000652:                                                                                                 #  ALARMS:  TEMP LAMP TURNED ON WHEN THE IMU TEMP GOES OUT OF LIMITS.
006319,000653: 
006320,000654:                                                                                                 #  EXIT:  NXTIFAIL.
006321,000655: 
006322,000656:                                                                                                 #  OUTPUT:  SERVICE OF TEMP LAMP.         # IN A, EXCEPT FOR TLIM.
006323,000657: 
006324,000658: 06,2507           74672        TLIM              MASK     POSMAX                                #  REMOVE BIT FROM WORD OF CHANGES AND SET
006325,000659: 06,2510           54071                          TS       RUPTREG2                              #  DSKY TEMP LAMP ACCORDINGLY.
006326,000660: 
006327,000661: 06,2511           11320                          CCS      IMODES30                              
006328,000662: 06,2512           12520                          TCF      TEMPOK                                
006329,000663: 06,2513           12520                          TCF      TEMPOK                                
006330,000664: 
006331,000665: 06,2514           34707                          CAF      BIT4                                  #  TURN ON LAMP.
006332,000666: 06,2515           00006                          EXTEND                                         
006333,000667: 06,2516           05011                          WOR      DSALMOUT                              
006334,000668: 06,2517           12227                          TCF      NXTIFAIL                              
006335,000669: 
006336,000670: 06,2520           02750        TEMPOK            TC       LAMPTEST                              #  IF TEMP NOW OK, DONT TURN OFF LAMP IF
006337,000671: 06,2521           12227                          TCF      NXTIFAIL                              #  LAMP TEST IN PROGRESS.
006338,000672: 
006339,000673: 06,2522           44707                          CS       BIT4                                  
006340,000674: 06,2523           00006                          EXTEND                                         
006341,000675: 06,2524           03011                          WAND     DSALMOUT                              #  TURN OFF TEMP CAUTION
006342,000676: 06,2525           12227                          TCF      NXTIFAIL                              
006343,000677: 
006344,000678:                                                                                                 # # Page 145
006345,000679: 
006346,000680:                                                                                                 #  PROGRAM NAME:  ITURNON.
006347,000681: 
006348,000682:                                                                                                 #  FUNCTIONAL DESCRIPTION:  THIS PROGRAM IS CALLED BY IMUMON WHEN A CHANGE OF BIT 14 OF CHANNEL 30 (ISS TURN-ON
006349,000683:                                                                                                 #  REQUEST) IS DETECTED.  UPON ENTRY, ITURNON CHECKS IF A TURN-ON DELAY SEQUENCE HAS FAILED, AND IF SO, IT EXITS.
006350,000684:                                                                                                 #  IF NOT, IT CHECKS WHETHER THE TURN-ON REQUEST CHANGE IS TO ON OR OFF.  IF ON, IT SETS BIT 7 OF IMODES30 TO 1 SO
006351,000685:                                                                                                 #  THAT TNONTEST WILL INITIATE THE ISS INITIALIZATION SEQUENCE.  IF OFF, THE TURN-ON DELAY SIGNAL, CHANNEL 12 BIT
006352,000686:                                                                                                 #  15, IS CHECKED AND IF IT IS ON, ITURNON EXITS.  IF THE DEALY SIGNAL IS OFF, PROGRAM ALARM 00207 IS ISSUED, BIT 2
006353,000687:                                                                                                 #  OF IMODES30 IS SET TO 1 AND THE PROGRAM EXITS.
006354,000688:                                                                                                 #            THE SETTING OF BIT 2 OF IMODES30 (ISS DELAY SEQUENCE FAIL) INHIBITS THIS ROUTINE AND IMUOP FROM
006355,000689:                                                                                                 #  PROCESSING ANY CHANGES.  THIS BIT WILL BE RESET BY THE ENDTNON ROUTINE WHEN THE CURRENT 90 SECOND DELAY PERIOD
006356,000690:                                                                                                 #  ENDS.
006357,000691: 
006358,000692:                                                                                                 #  CALLING SEQUENCE:  FROM IMUMON WHEN ISS TURN-ON REQUEST CHANGES STATE.
006359,000693: 
006360,000694:                                                                                                 #  JOBS OR TASKS INITIATED:  NONE.
006361,000695: 
006362,000696:                                                                                                 #  SUBROUTINES CALLED:  ALARM, IF THE ISS TURN-ON REQUEST IS NOT PRESENT FOR 90 SECONDS.
006363,000697: 
006364,000698:                                                                                                 #  ERASABLE INITIALIZATION:  FRESH START AND RESTART SET BIT 15 OF CHANNEL 12 AND BITS 2 AND 7 OF IMODES30 TO 0,
006365,000699:                                                                                                 #  AND BIT 14 OF IMODES30 TO 1.
006366,000700: 
006367,000701:                                                                                                 #  ALARMS: PROGRAM ALARM 00207 IS ISSUED IF THE ISS TURN-ON REQUEST SIGNAL IS NOT PRESENT FOR 90 SECONDS.
006368,000702: 
006369,000703:                                                                                                 #  EXIT:  NXTIFAIL.
006370,000704: 
006371,000705:                                                                                                 #  OUTPUT:  BIT 7 OF IMODES30 TO START ISS INITIALIZATION, OR BIT 2 OF IMODES30 AND PROGRAM ALARM 00207 TO INDICATE
006372,000706:                                                                                                 #  A FAILED TURN-ON SEQUENCE.
006373,000707: 
006374,000708: 06,2526           34711        ITURNON           CAF      BIT2                                  #  IF DELAY REQUEST HAS GONE OFF
006375,000709: 06,2527           71320                          MASK     IMODES30                              #  PREMATURELY, DO NOT PROCESS ANY CHANGES
006376,000710: 06,2530           10000                          CCS      A                                     #  UNTIL THE CURRENT 90 SEC WAIT EXPIRES.
006377,000711: 06,2531           12227                          TCF      NXTIFAIL                              
006378,000712: 
006379,000713: 06,2532           34675                          CAF      BIT14                                 #  SEE IF JUST ON OR OFF.
006380,000714: 06,2533           71320                          MASK     IMODES30                              
006381,000715: 06,2534           00006                          EXTEND                                         
006382,000716: 06,2535           12551                          BZF      ITURNON2                              #  IF JUST ON.
006383,000717: 
006384,000718: 06,2536           34674                          CAF      BIT15                                 
006385,000719: 06,2537           00006                          EXTEND                                         #  SEE IF DELAY PRESENT DISCRETE HAS BEEN
006386,000720: 06,2540           02012                          RAND     CHAN12                                #  SENT. IF SO, ACTION COMPLETE.
006387,000721: 06,2541           00006                          EXTEND                                         
006388,000722: 06,2542           12544                          BZF      +2                                    
006389,000723: 06,2543           12227                          TCF      NXTIFAIL                              
006390,000724: 
006391,000725: 06,2544           34711                          CAF      BIT2                                  #  IF NOT, SET BIT TO INDICATE REQUEST NOT
006392,000726: 06,2545           27320                          ADS      IMODES30                              #  PRESENT FOR FULL DURATION.
006393,000727: 06,2546           05537                          TC       ALARM                                 
006394,000728: 06,2547           00207                          OCT      207                                   
006395,000729: 06,2550           12227                          TCF      NXTIFAIL                              
006396,000730: 
006397,000731:                                                                                                 # # Page 146
006398,000732: 06,2551           41320        ITURNON2          CS       IMODES30                              #  SET BIT7 TO INDICATE WAIT OF 1 SAMPLE
006399,000733: 06,2552           74704                          MASK     BIT7                                  
006400,000734: 06,2553           27320                          ADS      IMODES30                              
006401,000735: 06,2554           12227                          TCF      NXTIFAIL                              
006402,000736: 
006403,000737:                                                                                                 # # Page 147
006404,000738: 
006405,000739:                                                                                                 #  PROGRAM NAME:  IMUCAGE.
006406,000740: 
006407,000741:                                                                                                 #  FUNCTIONAL DESCRIPTION:  THIS PROGRAM PROCESSES CHANGES OF THE IMUCAGE INBIT, CHANNEL 30 BIT 11.  IF THE BIT
006408,000742:                                                                                                 #  CHANGES TO 0 (CAGE BUTTON PRESSED), THE ISS IS CAGED (ICDU ZERO + COARSE ALIGN + NO ATT LAMP) UNTIL THE
006409,000743:                                                                                                 #  ASTRONAUT SELECTS ANOTHER PROGRAM TO ALIGN THE ISS.  ANY PULSE TRAINS TO THE ICDU'S AND GYRO'S ARE TERMINATED,
006410,000744:                                                                                                 #  THE ASSOCIATE OUTCOUNTERS ARE ZEROED AND THE GYRO'S ARE DE-SELECTED.  NO ACTION OCCURS WHEN THE BUTTON IS
006411,000745:                                                                                                 #  RELEASED (INBIT CHANGES TO 1).
006412,000746: 
006413,000747:                                                                                                 #  CALLING SEQUENCE:  BY IMUMON WHEN IMU CAGE BIT CHANGES.
006414,000748: 
006415,000749:                                                                                                 #  JOBS OR TASKS INITIATED:  NONE.
006416,000750: 
006417,000751:                                                                                                 #  SUBROUTINES CALLED:  CAGESUB.
006418,000752: 
006419,000753:                                                                                                 #  ERASABLE INITIALZATION:  FRESH START AND RESTART SET BIT 11 OF IMODES30 TO 1.
006420,000754: 
006421,000755:                                                                                                 #  ALARMS: NONE.
006422,000756: 
006423,000757:                                                                                                 #  EXIT:  NXTIFAIL.
006424,000758: 
006425,000759:                                                                                                 #  OUTPUT:  ISS CAGED, COUNTERS ZEROED, PULSE TRAINS TERMINATED AND NO ATT LAMP LIT.
006426,000760: 
006427,000761: 06,2555           10000        IMUCAGE           CCS      A                                     #  NO ACTION IF GOING OFF.
006428,000762: 06,2556           12354                          TCF      ISSZERO                               
006429,000763: 06,2557           42762                          CS       OCT77000                              #  TERMINATE ICDU,OPTICS,GYRO PULSE TRAINS
006430,000764: 06,2560           00006                          EXTEND                                         
006431,000765: 06,2561           03014                          WAND     CHAN14                                
006432,000766: 
006433,000767: 06,2562           42756                          CS       OCT272                                #  KNOCK DOWN TVC ENABLE, IMU ERROR COUNTER
006434,000768: 06,2563           00006                          EXTEND                                         #      ENABLE, ZERO ICDU, COARSE ALIGN
006435,000769: 06,2564           03012                          WAND     CHAN12                                #       ENABLE, OPTICS ERR CNTR ENABLE
006436,000770: 
006437,000771: 06,2565           44676                          CS       BIT13                                 #  TURN OFF ENGINE
006438,000772: 06,2566           00006                          EXTEND                                         
006439,000773: 06,2567           03011                          WAND     DSALMOUT                              
006440,000774: 
006441,000775: 06,2570           02725                          TC       CAGESUB1                              
006442,000776: 
006443,000777: 06,2571           04633                          TC       IBNKCALL                              #  KNOCK DOWN TRACK, REFSMMAT, DRIFT FLAGS
006444,000778: 06,2572           16777                          CADR     RNDREFDR                              
006445,000779: 
006446,000780: 06,2573           44714                          CS       ZERO                                  #  ZERO COMMAND OUT-COUNTERS
006447,000781: 06,2574           54050                          TS       CDUXCMD                               
006448,000782: 06,2575           54051                          TS       CDUYCMD                               
006449,000783: 06,2576           54052                          TS       CDUZCMD                               
006450,000784: 06,2577           54047                          TS       GYROCMD                               
006451,000785: 
006452,000786: 06,2600           42761                          CS       OCT740                                #  HAVING WAITED AT LEAST 27 MCT FROM
006453,000787: 06,2601           00006                          EXTEND                                         #  GYRO PULSE TRAIN TERMINATION, WE CAN
006454,000788: 06,2602           03014                          WAND     CHAN14                                #  D-SELECT THE GYROS.
006455,000789:                                                                                                 # # Page 148
006456,000790: 06,2603           12227                          TCF      NXTIFAIL                              
006457,000791: 
006458,000792:                                                                                                 # # Page 149
006459,000793: 
006460,000794:                                                                                                 #  PROGRAM NAME:  IMUOP.
006461,000795: 
006462,000796:                                                                                                 #  FUNCTIONAL DESCRIPTION:  THIS PROGRAM PROCESSES CHANGES IN THE ISS OPERATE DISCRETE, BIT 9 OF CHANNEL 30.
006463,000797:                                                                                                 #  IF THE INBIT CHANGES TO 0, INDICATING ISS ON, IMUOP GENERALLY SETS BIT 7 OF IMODES30 TO 1 TO REQUEST ISS
006464,000798:                                                                                                 #  INITIALIZATION VIA TNONTEST.  AN EXCEPTION IS DURING A FAILED ISS DELAY DURING WHICH BIT 2 OF IMODES30 IS SET
006465,000799:                                                                                                 #  TO 1 AND NO FURTHER INITIALIZATION IS REQUIRED.  WHEN THE INBIT CHANGES TO 1, INDICATING ISS OFF, IMUSEFLG IS
006466,000800:                                                                                                 #  TESTED TO SEE IF ANY PROGRAM WAS USING THE ISS.  IF SO, PROGRAM ALARM 00214 IS ISSUED.
006467,000801: 
006468,000802:                                                                                                 #  CALLING SEQUENCE:  BY IMUMON WHEN BIT 9 OF CHANNEL 30 CHANGES.
006469,000803: 
006470,000804:                                                                                                 #  JOBS OR TASKS INITIATED:  NONE.
006471,000805: 
006472,000806:                                                                                                 #  SUBROUTINES CALLED:  ALARM, IF ISS IS TURNED OFF WHILE IN USE.
006473,000807: 
006474,000808:                                                                                                 #  ERASABLE INITIALIZATION:  ON FRESH START AND RESTART, BIT 9 OF IMODES30 IS SET TO 1 EXCEPT WHEN THE GIMBAL LOCK
006475,000809:                                                                                                 #  LAMP IS ON, IN WHICH CASE IT IS SET TO 0.  THIS PREVENTS ICDU ZERO BY TNONTEST WITH THE ISS IN GIMBAL LOCK.
006476,000810: 
006477,000811:                                                                                                 #  ALARMS:  PROGRAM ALARM 00214 IF THE ISS IS TURNED OFF WHILE IN USE.
006478,000812: 
006479,000813:                                                                                                 #  EXIT:  NXTIFAIL.
006480,000814: 
006481,000815:                                                                                                 #  OUTPUT:  ISS INITIALIZATION REQUEST (IMODES30 BIT 7) OR PROGRAM ALARM 00214.
006482,000816: 
006483,000817: 06,2604           00006        IMUOP             EXTEND                                         #  IF OPERATE JUST ON, WAIT 1 SAMPLE.
006484,000818: 06,2605           12625                          BZF      IMUOP2                                
006485,000819: 
006486,000820: 06,2606           41321                          CS       IMODES33                              #  DISABLE DAP
006487,000821: 06,2607           74705                          MASK     BIT6                                  
006488,000822: 06,2610           27321                          ADS      IMODES33                              
006489,000823: 
006490,000824: 06,2611           04633                          TC       IBNKCALL                              #  KNOCK DOWN TRACK, REFSMMAT, DRIFT FLAGS
006491,000825: 06,2612           16777                          CADR     RNDREFDR                              
006492,000826: 
006493,000827: 06,2613           42757                          CS       BITS7&8                               #  KNOCK DOWN RENDEVOUS, IMUUSE FLAGS
006494,000828: 06,2614           70074                          MASK     STATE                                 
006495,000829: 06,2615           56074                          XCH      STATE                                 #  IF GOING OFF, ALARM IF PROG USING IMU
006496,000830: 06,2616           40000                          COM                                            
006497,000831: 06,2617           74703                          MASK     IMUSEFLG                              
006498,000832: 06,2620           10000                          CCS      A                                     
006499,000833: 06,2621           12227                          TCF      NXTIFAIL                              
006500,000834: 
006501,000835: 06,2622           05537                          TC       ALARM                                 
006502,000836: 06,2623           00214                          OCT      214                                   
006503,000837: 06,2624           12227                          TCF      NXTIFAIL                              
006504,000838: 
006505,000839: 06,2625           34711        IMUOP2            CAF      BIT2                                  #  SEE IF FAILED ISS TURN-ON SEQ IN PROG.
006506,000840: 06,2626           71320                          MASK     IMODES30                              
006507,000841: 06,2627           10000                          CCS      A                                     
006508,000842: 06,2630           12227                          TCF      NXTIFAIL                              #  IF SO, DONT PROCESS UNTIL PRESENT 90
006509,000843: 06,2631           12551                          TCF      ITURNON2                              #  SECONDS EXPIRES.
006510,000844: 
006511,000845:                                                                                                 # # Page 150
006512,000846: 
006513,000847:                                                                                                 #  PROGRAM NAME:  PIPFAIL
006514,000848: 
006515,000849:                                                                                                 #  FUNCTIONAL DESCRIPTION:  THIS PROGRAM PROCESSES CHANGES OF BIT 13 OF CHANNEL 33, PIPA FAIL.  IT SETS BIT 10 OF
006516,000850:                                                                                                 #  IMODES30 TO AGREE.  IT CALLS SETISSW IN CASE A PIPA FAIL NECESSITATES AN ISS WARNING.  IF NOT,I.E., IMODES30
006517,000851:                                                                                                 #  BIT 1 = 1, AND A PIPA FAIL IS PRESENT AND THE ISS NOT BEING INITIALIZED, PROGRAM ALARM 0212 IS ISSUED.
006518,000852: 
006519,000853:                                                                                                 #  CALLING SEQUENCE:  BY C33TEST ON CHANGES OF CHANNEL 33 BIT 13.
006520,000854: 
006521,000855:                                                                                                 #  JOBS OR TASKS INITIATED:  NONE.
006522,000856: 
006523,000857:                                                                                                 #  SUBROUTINES CALLED:  1) SETISSW, AND 2) ALARM (SEE FUNCITONAL DESCRIPTION).
006524,000858: 
006525,000859:                                                                                                 #  ERASABLE INITIALZIZATION:  SEE IMUMON FOR INITIALIZATION OF IMODES30.  THE RELAVANT BITS ARE 5, 7, 8, 9, AND 10.
006526,000860: 
006527,000861:                                                                                                 #  ALARMS:  PROGRAM ALARM 00212 IF PIPA FAIL IS PRESENT BUT NEITHER ISS WARNING IS TO BE ISSUED NOR THE ISS IS
006528,000862:                                                                                                 #  BEING INITIALIZED.
006529,000863: 
006530,000864:                                                                                                 #  EXIT:  NXTFL33.
006531,000865: 
006532,000866:                                                                                                 #  OUTPUT:  PROGRAM ALARM 00212 AND ISS WARNING MAINTENANCE.
006533,000867: 
006534,000868: 06,2632           10000        PIPFAIL           CCS      A                                     #  SET BIT10 IN IMODES30 SO ALL ISS WARNING
006535,000869: 06,2633           34701                          CAF      BIT10                                 #  INFO IS IN ONE REGISTER.
006536,000870: 06,2634           57320                          XCH      IMODES30                              
006537,000871: 06,2635           72763                          MASK     -BIT10                                
006538,000872: 06,2636           27320                          ADS      IMODES30                              
006539,000873: 
006540,000874: 06,2637           02665                          TC       SETISSW                               
006541,000875: 
006542,000876: 06,2640           41320                          CS       IMODES30                              #  IF PIP FAIL DOESNT LIGHT ISSWARNING, DO
006543,000877: 06,2641           74712                          MASK     BIT1                                  #  A PROGRAM ALARM IF IMU OPERATING BUT NOT
006544,000878: 06,2642           10000                          CCS      A                                     #  CAGED OR BEING TURNED ON.
006545,000879: 06,2643           12425                          TCF      NXTFL33                               
006546,000880: 
006547,000881: 06,2644           31320                          CA       IMODES30                              
006548,000882: 06,2645           72760                          MASK     OCT1720                               
006549,000883: 06,2646           10000                          CCS      A                                     
006550,000884: 06,2647           12425                          TCF      NXTFL33                               #  ABOVE CONDITION NOT MET.
006551,000885: 
006552,000886: 06,2650           05537                          TC       ALARM                                 
006553,000887: 06,2651           00212                          OCT      212                                   
006554,000888: 06,2652           12425                          TCF      NXTFL33                               
006555,000889: 
006556,000890:                                                                                                 # # Page 151
006557,000891: 
006558,000892:                                                                                                 #  PROGRAM NAMES:  DNTMFAST, UPTMFAST
006559,000893: 
006560,000894:                                                                                                 #  FUNCTIONAL DESCRIPTION:  THESE PROGRAMS PROCESS CHANGES OF BITS 12 AND 11 OF CHANNEL 33.  IF A BIT CHANGES TO A
006561,000895:                                                                                                 #  0, A PROGRAM ALARM IS ISSUED.  THE ALARMS ARE:
006562,000896: 
006563,000897:                                                                                                 #            BIT    ALARM           CAUSE
006564,000898:                                                                                                 #            ---    -----           -----
006565,000899:                                                                                                 #             12    01105           DOWNLINK TOO FAST
006566,000900:                                                                                                 #             11    01106           UPLINK TOO FAST
006567,000901: 
006568,000902:                                                                                                 #  CALLING SEQUENCE:  BY C33TEST ON A BIT CHANGE.
006569,000903: 
006570,000904:                                                                                                 #  SUBROUTINES CALLED:  ALARM, IF A BIT CHANGES TO A 0.
006571,000905: 
006572,000906:                                                                                                 #  ERASABLE INITIALIZATION:  FRESH START OR RESTART, BITS 12 AND 11 OF IMODES33 ARE SET TO 1.
006573,000907: 
006574,000908:                                                                                                 #  ALARMS:  SET FUNCTIONAL DESCRIPTION.
006575,000909: 
006576,000910:                                                                                                 #  EXIT:  NXTFL33.
006577,000911: 
006578,000912:                                                                                                 #  OUTPUT:  PROGRAM ALARM ON A BIT CHANGE TO 0.
006579,000913: 
006580,000914: 06,2653           10000        DNTMFAST          CCS      A                                     #  DO PROG ALARM IF TM TOO FAST.
006581,000915: 06,2654           12425                          TCF      NXTFL33                               
006582,000916: 
006583,000917: 06,2655           05537                          TC       ALARM                                 
006584,000918: 06,2656           01105                          OCT      1105                                  
006585,000919: 06,2657           12425                          TCF      NXTFL33                               
006586,000920: 
006587,000921: 06,2660           10000        UPTMFAST          CCS      A                                     #  SAME AS DNLINK TOO FAST WITH DIFFERENT
006588,000922: 06,2661           12425                          TCF      NXTFL33                               #  ALARM CODE.
006589,000923: 
006590,000924: 06,2662           05537                          TC       ALARM                                 
006591,000925: 06,2663           01106                          OCT      1106                                  
006592,000926: 06,2664           12425                          TCF      NXTFL33                               
006593,000927: 
006594,000928:                                                                                                 # # Page 152
006595,000929: 
006596,000930:                                                                                                 #  PROGRAM NAME:  SETISSW
006597,000931: 
006598,000932:                                                                                                 #  FUNCTIONAL DESCRIPTION:  THIS PROGRAM TURNS THE ISS WARNING LAMP ON AND OFF (CHANNEL 11 BIT 1 = 1 FOR ON,
006599,000933:                                                                                                 #  0 FOR OFF) DEPENDING ON THE STATUS OF IMODES30 BITS 13 (IMU FAIL) AND 4 (INHIBIT IMU FAIL), 12 (ICDU FAIL) AND
006600,000934:                                                                                                 #  3 (INHIBIT ICDU FAIL), AND 10 (PIPA FAIL) AND 1 (INHIBIT PIPA FAIL).  THE LAMP IS LEFT ON IF A LAMP TEST IS IN
006601,000935:                                                                                                 #  PROGRESS.
006602,000936: 
006603,000937:                                                                                                 #  CALLING SEQUENCE:  CALLED BY IMUMON ON CHANGES TO IMU FAIL AND ICDU FAIL.  CALLED BY IFAILOK AND PFAILOK UPON
006604,000938:                                                                                                 #  REMOVAL OF THE FAIL INHIBITS.  CALLED BY PIPFAIL WHEN THE PIPA FAIL DISCRETE CHANGES.  IT IS CALLED BY PIPUSE
006605,000939:                                                                                                 #  SINCE THE PIPA FAIL PROGRAM ALARM MAY NECESSITATE AN ISS WARNING, AND LIKEWISE BY PIPFREE WHEN THE ALARM DEPARTS
006606,000940:                                                                                                 #  AND IT IS CALLED BY IMUZERO3 AND ISSUP AFTER THE FAIL INHIBITS HAVE BEEN REMOVED.
006607,000941: 
006608,000942:                                                                                                 #  JOBS OR TASKS INITIAZTED:  NONE.
006609,000943: 
006610,000944:                                                                                                 #  SUBROUTINES CALLED:  NONE.
006611,000945: 
006612,000946:                                                                                                 #  ERASABLE INITIALIZATION:
006613,000947: 
006614,000948:                                                                                                 #            1) IMODES30 - SEE IMUMON.
006615,000949:                                                                                                 #            2) IMODES33 BIT 1 = 0 (LAMP TEST NOT IN PROGRESS).
006616,000950: 
006617,000951:                                                                                                 #  ALARMS:  ISS WARNING.
006618,000952: 
006619,000953:                                                                                                 #  EXIT: VIA Q.
006620,000954: 
006621,000955:                                                                                                 #  OUTPUT: ISS WARNING LAMP SET PROPERLY.
006622,000956: 
006623,000957: 06,2665           34720        SETISSW           CAF      OCT15                                 #  SET ISS WARNING USING THE FAIL BITS IN
006624,000958: 06,2666           71320                          MASK     IMODES30                              #  BITS 13, 12, AND 10 OF IMODES30 AND THE
006625,000959: 06,2667           00006                          EXTEND                                         #  FAILURE INHIBIT BITS IN POSITIONS
006626,000960: 06,2670           74701                          MP       BIT10                                 #  4, 3, AND 1.
006627,000961: 06,2671           31320                          CA       IMODES30                              
006628,000962: 06,2672           00006                          EXTEND                                         
006629,000963: 06,2673           04001                          ROR      LCHAN                                 #  0 INDICATES FAILURE.
006630,000964: 06,2674           40000                          COM                                            
006631,000965: 06,2675           74762                          MASK     OCT15000                              
006632,000966: 06,2676           10000                          CCS      A                                     
006633,000967: 06,2677           12710                          TCF      ISSWON                                #  FAILURE.
006634,000968: 
006635,000969: 06,2700           34712        ISSWOFF           CAF      BIT1                                  #  DONT TURN OFF ISS WARNING IF LAMP TEST
006636,000970: 06,2701           71321                          MASK     IMODES33                              #  IN PROGRESS.
006637,000971: 06,2702           10000                          CCS      A                                     
006638,000972: 06,2703           00002                          TC       Q                                     
006639,000973: 
006640,000974: 06,2704           44712                          CS       BIT1                                  
006641,000975: 06,2705           00006                          EXTEND                                         
006642,000976: 06,2706           03011                          WAND     DSALMOUT                              #  TURN OFF ISS WARNING
006643,000977: 06,2707           00002                          TC       Q                                     
006644,000978: 
006645,000979: 06,2710           00006        ISSWON            EXTEND                                         
006646,000980:                                                                                                 # # Page 153
006647,000981: 06,2711           22066                          QXCH     ITEMP6                                
006648,000982: 06,2712           05653                          TC       VARALARM                              #  TELL EVERYONE WHAT CAUSED THE ISSWARNING
006649,000983: 06,2713           34712                          CAF      BIT1                                  
006650,000984: 06,2714           00006                          EXTEND                                         
006651,000985: 06,2715           05011                          WOR      DSALMOUT                              #  TURN ON ISS WARNING
006652,000986: 06,2716           00066                          TC       ITEMP6                                
006653,000987: 06,2717           47703        CAGESUB           CS       BIT15+6                               #  SET OUTBITS + INTERNAL FLAGS FOR
006654,000988: 06,2720           00006                          EXTEND                                         #  SYSTEM TURN-ON OR CAGE. DISABLE THE
006655,000989: 06,2721           03012                          WAND     CHAN12                                #  ERROR COUNTER AND REMOVE THE IMU DELAY COMP.
006656,000990: 06,2722           34722                          CAF      BITS4&5                               #  SEND ZERO AND COARSE.
006657,000991: 06,2723           00006                          EXTEND                                         
006658,000992: 06,2724           05012                          WOR      CHAN12                                
006659,000993: 
006660,000994: 06,2725           41036        CAGESUB1          CS       DSPTAB     +11D                       #  TURN ON NO ATT LAMP
006661,000995: 06,2726           72753                          MASK     OC40010                               
006662,000996: 06,2727           27036                          ADS      DSPTAB     +11D                       
006663,000997: 
006664,000998: 06,2730           41320        CAGESUB2          CS       IMODES30                              #  SET FLAGS TO INDICATE CAGING OR TURN-ON
006665,000999: 06,2731           72755                          MASK     OCT75                                 #      AND INHIBIT ALL ISS WARNING INFO
006666,001000: 06,2732           27320                          ADS      IMODES30                              
006667,001001: 
006668,001002: 06,2733           41321                          CS       IMODES33                              #  DISABLE DAP AUTO AND HOLD MODES
006669,001003: 06,2734           74705                          MASK     BIT6                                  
006670,001004: 06,2735           27321                          ADS      IMODES33                              
006671,001005: 
006672,001006: 06,2736           00002                          TC       Q                                     
006673,001007: 
006674,001008: 06,2737  06,2665               IMUFAIL           EQUALS   SETISSW                               
006675,001009: 06,2737  06,2665               ICDUFAIL          EQUALS   SETISSW                               
006676,001010: 
006677,001011:                                                                                                 # # Page 154
006678,001012: 
006679,001013:                                                                                                 #  JUMP TABLES AND CONSTANTS.
006680,001014: 
006681,001015: 06,2737           12526        IFAILJMP          TCF      ITURNON                               #  CHANNEL 30 DISPATCH.
006682,001016: 06,2740           12665                          TCF      IMUFAIL                               
006683,001017: 06,2741           12665                          TCF      ICDUFAIL                              
006684,001018: 06,2742           12555                          TCF      IMUCAGE                               
006685,001019: 06,2743           76400        30RDMSK           OCT      76400                                 #  (BIT 10 NOT SAMPLED HERE).
006686,001020: 06,2744           12604                          TCF      IMUOP                                 
006687,001021: 
006688,001022: 06,2745           12632        C33JMP            TCF      PIPFAIL                               #  CHANNEL 33 DISPATCH.
006689,001023: 06,2746           12653                          TCF      DNTMFAST                              
006690,001024: 06,2747           12660                          TCF      UPTMFAST                              
006691,001025: 
006692,001026:                                                                                                 #  SUBROUTINE TO SKIP IF LAMP TEST NOT IN PROGRESS.
006693,001027: 06,2750           41321        LAMPTEST          CS       IMODES33                              #  BIT 1 OF IMODES33 = 1 IF LAMP TEST IN
006694,001028: 06,2751           74712                          MASK     BIT1                                  #  PROGRESS.
006695,001029: 06,2752           13065                          TCF      ZOPFIN3                               
006696,001030: 
006697,001031: 06,2753     4763               33RDMSK           EQUALS   PRIO16                                
006698,001032: 06,2753           40010        OC40010           OCT      40010                                 
006699,001033: 06,2754           00054        OCT54             OCT      54                                    
006700,001034: 06,2755           00075        OCT75             OCT      75                                    
006701,001035: 06,2756           00272        OCT272            OCT      00272                                 
006702,001036: 06,2757           00300        BITS7&8           OCT      300                                   
006703,001037: 06,2760           01720        OCT1720           OCT      1720                                  
006704,001038: 06,2761           00740        OCT740            OCT      00740                                 
006705,001039: 06,2762     4762               OCT15000          EQUALS   PRIO15                                
006706,001040: 06,2762           77000        OCT77000          OCT      77000                                 
006707,001041: 06,2763           76777        -BIT10            OCT      -1000                                 
006708,001042: 
006709,001043: 06,2764           21450        90SECS            DEC      9000       B-14                       
006710,001044: 06,2765     5660               120MS             =        OCT14                                 #  (DEC 12)
006711,001045: 06,2765     5222               GLOCKOK           EQUALS   RESUME                                
006712,001046: 
006713,001047:                                                                                                 # # Page 155
006714,001048: 
006715,001049:                                                                                                 #  OPTICS MONITORING AND ZERO ROUTINES
006716,001050: 06,2765           31331        OPTMON            CA       OPTMODES                              #  MONITOR OPTICS INBITS IN CHAN 30 AND 33
006717,001051: 06,2766           00006                          EXTEND                                         
006718,001052: 06,2767           06030                          RXOR     CHAN30                                #  LOOK FOR OCDU FAIL BIT CHANGE
006719,001053: 06,2770           74704                          MASK     BIT7                                  
006720,001054: 06,2771           54070                          TS       RUPTREG1                              #  STORE CHANGE BIT
006721,001055: 06,2772           10000                          CCS      A                                     
006722,001056: 06,2773           03224                          TC       OCDUFTST                              #  PROCESS OCDUFAIL BIT CHANGE
006723,001057: 
006724,001058: 06,2774           11303        33OPTMON          CCS      OPTIND                                #  BYPASS IF TVC TAKEOVER
006725,001059: 06,2775           13001                          TCF      +4                                    
006726,001060: 06,2776           13001                          TCF      +3                                    
006727,001061: 06,2777           13001                          TCF      +2                                    
006728,001062: 06,3000           15222                          TCF      RESUME                                
006729,001063: 
006730,001064: 06,3001           31331                          CA       OPTMODES                              #  LOOK FOR OPTICS MODE SWITCH CHANGE
006731,001065: 06,3002           00006                          EXTEND                                         
006732,001066: 06,3003           06033                          RXOR     CHAN33                                
006733,001067: 06,3004           74722                          MASK     OCTHIRTY                              
006734,001068: 06,3005           26070                          ADS      RUPTREG1                              #  STORE INBIT CHANGES
006735,001069: 06,3006           23331                          LXCH     OPTMODES                              
006736,001070: 06,3007           00006                          EXTEND                                         
006737,001071: 06,3010           06001                          RXOR     LCHAN                                 
006738,001072: 06,3011           55331                          TS       OPTMODES                              #  UPDATE OPTMODES TO SHOW BIT  CHANGES
006739,001073: 
006740,001074: 06,3012           40000                          COM                                            #  SAMPLE CURRENT SWITCH SETTING
006741,001075: 06,3013           74722                          MASK     OCTHIRTY                              
006742,001076: 06,3014           00006                          EXTEND                                         
006743,001077: 06,3015           13022                          BZF      SETSAMP                               #  MANUAL-SET ZERO IN SWSAMPLE
006744,001078: 
006745,001079: 06,3016           74706                          MASK     BIT5                                  #  SEE IF CSC
006746,001080: 06,3017           10000                          CCS      A                                     
006747,001081: 06,3020           03022                          TC       +2                                    #  CSC-SET SWSAMPLE POS
006748,001082: 06,3021           37716                          CAF      NEGONE                                #  ZOPTICS-SET SWSAMPLE (-1)
006749,001083: 06,3022           55314        SETSAMP           TS       SWSAMPLE                              #  CURRENT OPTICS SWITCH SETTING
006750,001084: 
006751,001085: 06,3023           11315        PROCESSW          CCS      DESOPMOD                              #  BRANCH ON PREVIOUS SETTING
006752,001086: 06,3024           03125                          TC       CSCDES                                #  CSC
006753,001087: 06,3025           03077                          TC       MANUDES                               #  MANUAL
006754,001088: 06,3026           03027                          TC       ZOPTDES                               #  ZERO OPTICS
006755,001089:                                                                                                 # # Page 156
006756,001090: 06,3027           11314        ZOPTDES           CCS      SWSAMPLE                              #  IS SWITCH STILL AT ZOPTICS
006757,001091: 06,3030           03047                          TC       ZTOCSC                                #  NOW AT CSC
006758,001092: 06,3031           03037                          TC       ZTOMAN                                #  MANUAL
006759,001093: 06,3032           03057                          TC       ZOPFIN1                               #  ZOPTICS-SEE IF ZOPT PROCESSING
006760,001094: 06,3033           03154                          TC       SETDESMD                              #  ZOPT NOT PROCESSING-NO ACTION
006761,001095: 
006762,001096: 06,3034           11317                          CCS      ZOPTCNT                               #  ZOPT PROCESSING-CHECK COUNTER
006763,001097: 06,3035           03153                          TC       SETCNT                                #  32 SAMPLE NOT FINISHED-SET COUNTER
006764,001098: 06,3036           03157                          TC       SETZOEND                              #  32 SAMPLE WAIT COMPLETED-SET UP ZOP END
006765,001099: 
006766,001100: 06,3037           03057        ZTOMAN            TC       ZOPFIN1                               #  ZOP TO MANUAL-IS ZOPT DONE
006767,001101: 06,3040           03154                          TC       SETDESMD                              #  YES-NORMAL EXIT
006768,001102: 
006769,001103: 06,3041           05537        ZOPALARM          TC       ALARM                                 #  ALARM-SWITCHED ALTERED WHILE ZOPTICS
006770,001104: 06,3042           00116                          OCT      00116                                 
006771,001105: 06,3043           34717                          CAF      OCT13                                 #  PROCESSING-SET RETURN OPTION
006772,001106: 06,3044           55316                          TS       WTOPTION                              
006773,001107: 
006774,001108: 06,3045           03070                          TC       CANZOPT                               #  CANCEL ZOPT
006775,001109: 
006776,001110: 06,3046           03154                          TC       SETDESMD                              
006777,001111: 
006778,001112: 06,3047           03057        ZTOCSC            TC       ZOPFIN1                               #  SEE IF ZOPT PROCESSING
006779,001113: 06,3050           03115                          TC       MANTOCSC   +3                         #  NO-CHECK RETURN TO COARS OPT
006780,001114: 06,3051           05537                          TC       ALARM                                 #  ZOPT PROCESSING-ALARM
006781,001115: 06,3052           00116                          OCT      00116                                 
006782,001116: 06,3053           03070                          TC       CANZOPT                               #  CANCEL ZOPT
006783,001117: 06,3054           03112                          TC       MANTOCSC                              #  ZERO CNT-LOOK FOR COARS OPT RETURN
006784,001118: 
006785,001119: 06,3055           34702        COARSLOK          CAF      BIT9                                  #  IF COARS OPT SINCE FSTART GO TO L+2
006786,001120: 06,3056           13064                          TCF      ZOPFIN2                               #  IF NOT GO TO L+1
006787,001121: 06,3057           34712        ZOPFIN1           CAF      BIT1                                  #  SEE IF END ZOPT TASK WORKING
006788,001122: 06,3060           71331                          MASK     OPTMODES                              
006789,001123: 06,3061           10000                          CCS      A                                     
006790,001124: 06,3062           05222                          TC       RESUME                                #  ZOPT TASK WORKING-WAIT ONE SAMPLE PERIOD
006791,001125: 
006792,001126: 06,3063           34710                          CAF      BIT3                                  #  TEST IF ZOPTICS PROCESSING
006793,001127: 06,3064           71331        ZOPFIN2           MASK     OPTMODES                              #  RETURNS TO L+1 PROCESSING AND
006794,001128: 06,3065           10000        ZOPFIN3           CCS      A                                     
006795,001129: 06,3066           24002                          INCR     Q                                     #  L+2 IF NOT
006796,001130: 06,3067           00002                          TC       Q                                     
006797,001131: 
006798,001132: 06,3070           46211        CANZOPT           CS       SIX                                   #  CANCEL ZERO OPTICS
006799,001133: 06,3071           71331                          MASK     OPTMODES                              #  ZERO ZOPT PROCESSING BIT-ENABLE OCDUFAIL
006800,001134: 06,3072           55331                          TS       OPTMODES                              
006801,001135: 06,3073           44712                          CS       BIT1                                  #  MAKE SURE ZERO OCDU IS OFF
006802,001136: 06,3074           00006                          EXTEND                                         
006803,001137: 06,3075           03012                          WAND     CHAN12                                
006804,001138: 06,3076           00002                          TC       Q                                     
006805,001139: 
006806,001140:                                                                                                 # # Page 157
006807,001141: 06,3077           11314        MANUDES           CCS      SWSAMPLE                              #  SEE IF SWITCH STILL IN MANUAL MODE
006808,001142: 06,3100           03112                          TC       MANTOCSC                              #  NOW AT CSC
006809,001143: 06,3101           03107                          TC       MANTOMAN                              #  STILL MANUAL
006810,001144: 06,3102           11316                          CCS      WTOPTION                              #  ZOPTICS-LOOK AT ZOPTICS RETURN OPTION
006811,001145: 06,3103           03105                          TC       +2                                    #  5 SEC RETURN GOOD-CONTINUE ZOPTICS
006812,001146: 06,3104           03151                          TC       OPTZERO                               #  ZOPTICS MUST START ANEW
006813,001147: 
006814,001148: 06,3105           03216                          TC       INITZOPT                              #  SHOW ZERO OPTICS PROCESSING
006815,001149: 06,3106           03154                          TC       SETDESMD                              #  NORMAL EXIT
006816,001150: 
006817,001151: 06,3107           11316        MANTOMAN          CCS      WTOPTION                              #  DECREMENT RETURN OPTION TIME
006818,001152: 06,3110           55316                          TS       WTOPTION                              
006819,001153: 06,3111           03154                          TC       SETDESMD                              
006820,001154: 
006821,001155: 06,3112           34714        MANTOCSC          CAF      ZERO                                  #  CANCEL ZOPT RETURN OPTION IF SET
006822,001156: 06,3113           55316                          TS       WTOPTION                              
006823,001157: 06,3114           55317                          TS       ZOPTCNT                               
006824,001158: 
006825,001159: 06,3115           03055                          TC       COARSLOK                              #  CHECK FOR COARS OPT RETURN
006826,001160: 06,3116           03154                          TC       SETDESMD                              #  NO COARS TASK-NO ACTION
006827,001161: 
006828,001162: 06,3117           34712                          CAF      ONE                                   #  SET COARS OPT WORKING
006829,001163: 06,3120           55303                          TS       OPTIND                                
006830,001164: 06,3121           34711                          CAF      BIT2                                  #  ENABLE OPTICS CDU ERROR CNTS
006831,001165: 06,3122           00006                          EXTEND                                         
006832,001166: 06,3123           05012                          WOR      CHAN12                                
006833,001167: 
006834,001168: 06,3124           03154                          TC       SETDESMD                              
006835,001169: 
006836,001170: 06,3125           11314        CSCDES            CCS      SWSAMPLE                              #  SEE IF SWITCH STILL AT CSC
006837,001171: 06,3126           03154                          TC       SETDESMD                              #  STILL AT CSC
006838,001172: 06,3127           03133                          TC       CSCTOMAN                              #  MANUAL
006839,001173: 06,3130           34705        CSCTOZOP          CAF      OCT40                                 #  ZOPTICS-INITIALIZE FOR ZOPT
006840,001174: 06,3131           55317                          TS       ZOPTCNT                               
006841,001175: 06,3132           03216                          TC       INITZOPT                              
006842,001176: 
006843,001177: 06,3133           11303        CSCTOMAN          CCS      OPTIND                                #  SEE IF COARS WORKING
006844,001178: 06,3134           03140                          TC       CANCOARS                              #  COARS WORKING-SWITCH NOT CSC-KILL COARS
006845,001179: 06,3135           03140                          TC       CANCOARS                              
006846,001180: 06,3136           03137                          TC       +1                                    #  NO COARS-NORMAL EXIT
006847,001181: 06,3137           03154                          TC       SETDESMD                              
006848,001182:                                                                                                 # # Page 158
006849,001183: 06,3140           37716        CANCOARS          CA       NEGONE                                
006850,001184: 06,3141           55303                          TS       OPTIND                                #  SET OPTIND (-1) TO SHOW NOT WORKING
006851,001185: 06,3142           44711                          CS       BIT2                                  #  DISABLE OCDU ERR CNTS
006852,001186: 06,3143           00006                          EXTEND                                         
006853,001187: 06,3144           03012                          WAND     CHAN12                                
006854,001188: 06,3145           41331                          CS       OPTMODES                              #  SET RETURN-TO-COARS BIT
006855,001189: 06,3146           74702                          MASK     BIT9                                  
006856,001190: 06,3147           27331                          ADS      OPTMODES                              
006857,001191: 
006858,001192: 06,3150           03154                          TC       SETDESMD                              
006859,001193: 06,3151           03216        OPTZERO           TC       INITZOPT                              #  INITIALIZE ZERO OPTICS
006860,001194: 
006861,001195: 06,3152           34705                          CA       OCT40                                 #  SET UP 32 SAMPLE WAIT
006862,001196: 06,3153           55317        SETCNT            TS       ZOPTCNT                               
006863,001197: 06,3154           31314        SETDESMD          CA       SWSAMPLE                              #  SET CURRENT SWITCH INDICATION-RESUME
006864,001198: 06,3155           55315                          TS       DESOPMOD                              
006865,001199: 06,3156           05222                          TC       RESUME                                
006866,001200: 
006867,001201: 06,3157           34712        SETZOEND          CAF      BIT1                                  #  SEND ZERO OPTICS CDU
006868,001202: 06,3160           00006                          EXTEND                                         
006869,001203: 06,3161           05012                          WOR      CHAN12                                
006870,001204: 06,3162           34112                          CA       200MS                                 #  HOLD ZERO CDU FOR 200 MS
006871,001205: 06,3163           05140                          TC       WAITLIST                              
006872,001206: 06,3164     1331                                 EBANK=   OPTMODES                              
006873,001207: 06,3164           03172 14062                    2CADR    ENDZOPT                               
006874,001208: 
006875,001209: 06,3166           41331                          CS       OPTMODES                              #  SHOW ZOPTICS TASK WORKING
006876,001210: 06,3167           74712                          MASK     BIT1                                  
006877,001211: 06,3170           27331                          ADS      OPTMODES                              
006878,001212: 
006879,001213: 06,3171           03154                          TC       SETDESMD                              
006880,001214: 
006881,001215: 06,3172           03210        ENDZOPT           TC       ZEROPCDU                              #  ZERO OCDU COUNTERS
006882,001216: 06,3173           44712                          CS       BIT1                                  #  TURN OFF ZERO OCDU
006883,001217: 06,3174           00006                          EXTEND                                         
006884,001218: 06,3175           03012                          WAND     CHAN12                                
006885,001219: 06,3176           34112                          CAF      200MS                                 #  DELAY 200MS FOR CDUS TO RESYNCHRONIZE
006886,001220: 06,3177           05161                          TC       VARDELAY                              
006887,001221: 
006888,001222: 06,3200           41331                          CS       OPTMODES                              #  SHOW ZOPTICS SINCE LAST FRESH START
006889,001223: 06,3201           74701                          MASK     BIT10                                 #      OR RESTART
006890,001224: 06,3202           27331                          ADS      OPTMODES                              
006891,001225: 
006892,001226: 06,3203           44716                          CS       SEVEN                                 #  ENABLE OCDUFAIL-SHOW OPTICS COMPLETE
006893,001227: 06,3204           71331                          MASK     OPTMODES                              
006894,001228: 06,3205           55331                          TS       OPTMODES                              
006895,001229: 
006896,001230: 06,3206           03224                          TC       OCDUFTST                              #  CHECK OCDU FAIL BIT AFTER ENABLE
006897,001231:                                                                                                 # # Page 159
006898,001232: 06,3207           05213                          TC       TASKOVER                              
006899,001233: 
006900,001234: 06,3210           34714        ZEROPCDU          CAF      ZERO                                  
006901,001235: 06,3211           54036                          TS       CDUS                                  #  ZERO IN CDUS,-20 IN CDUT
006902,001236: 06,3212           55307                          TS       ZONE                                  #  INITIALZE SHAFT MONITOR ZONE
006903,001237: 06,3213           43261                          CS       20DEGS                                
006904,001238: 06,3214           54035                          TS       CDUT                                  
006905,001239: 06,3215           00002                          TC       Q                                     
006906,001240: 
006907,001241: 06,3216           34714        INITZOPT          CAF      ZERO                                  #  INITIALIZE ZOPTICS-INHIBIT OCDUFAIL
006908,001242: 06,3217           55316                          TS       WTOPTION                              #  AND SHOW OPTICS PROCESSING
006909,001243: 06,3220           41331                          CS       OPTMODES                              #  SET ZERO OPTICS PROCESSING
006910,001244: 06,3221           76211                          MASK     SIX                                   #      OPTICS CDU FAIL INHIBITED
006911,001245: 06,3222           27331                          ADS      OPTMODES                              
006912,001246: 06,3223           00002                          TC       Q                                     
006913,001247: 
006914,001248:                                                                                                 # # Page 160
006915,001249: 
006916,001250: 06,3224           34704        OCDUFTST          CAF      BIT7                                  #  SEE IF OCDUFAIL ON OR OFF
006917,001251: 06,3225           00006                          EXTEND                                         
006918,001252: 06,3226           02030                          RAND     CHAN30                                
006919,001253: 06,3227           10000                          CCS      A                                     
006920,001254: 06,3230           13252                          TCF      OPFAILOF                              #  OCDUFAIL LIGHT OFF
006921,001255: 
006922,001256: 06,3231           34711                          CAF      BIT2                                  #  OCDUFAIL LIGHT ON UNLESS INHIBITED
006923,001257: 06,3232           71331                          MASK     OPTMODES                              
006924,001258: 06,3233           10000                          CCS      A                                     
006925,001259: 06,3234           00002                          TC       Q                                     #  OCDUFAIL INHIBITED
006926,001260: 
006927,001261: 06,3235           34703        OPFAILON          CAF      BIT8                                  #  ON BIT
006928,001262: 06,3236           61036                          AD       DSPTAB     +11D                       
006929,001263: 06,3237           74703                          MASK     BIT8                                  
006930,001264: 06,3240           00006        SETOFF            EXTEND                                         
006931,001265: 06,3241           16711                          BZF      TCQ                                   #  NO CHANGE
006932,001266: 
006933,001267: 06,3242           54001                          TS       L                                     
006934,001268: 06,3243           31036                          CA       DSPTAB     +11D                       
006935,001269: 06,3244           00006                          EXTEND                                         
006936,001270: 06,3245           06001                          RXOR     LCHAN                                 
006937,001271: 06,3246           74672                          MASK     POSMAX                                
006938,001272: 06,3247           64674                          AD       BIT15                                 #  SHOW ACTION WANTED
006939,001273: 06,3250           55036                          TS       DSPTAB     +11D                       
006940,001274: 06,3251           00002                          TC       Q                                     
006941,001275: 
006942,001276: 06,3252           34712        OPFAILOF          CAF      BIT1                                  #  DONT TURN OFF IF LAMP TEST
006943,001277: 06,3253           71321                          MASK     IMODES33                              
006944,001278: 06,3254           10000                          CCS      A                                     
006945,001279: 06,3255           00002                          TC       Q                                     #  LAMP TEST IN PROGRESS
006946,001280: 
006947,001281: 06,3256           34703                          CAF      BIT8                                  #  TURN OFF OCDUFAIL LIGHT
006948,001282: 06,3257           71036                          MASK     DSPTAB     +11D                       
006949,001283: 06,3260           13240                          TCF      SETOFF                                
006950,001284: 
006951,001285: 06,3261     4717               OCT13             =        ELEVEN                                
006952,001286: 06,3261     4722               OCTHIRTY          EQUALS   BITS4&5                               
006953,001287: 06,3261           16037        20DEGS            DEC      7199       B-14                       
006954,001288: 06,3262     4705               OCT40             EQUALS   BIT6                                  
006955,001289: 06,3262     4112               200MS             EQUALS   OCT24                                 
006956,001290: 
006957,001291:                                                                                                 # # Page 161
006958,001292: 
006959,001293:                                                                                                 #  OPTICS CDU DRIVING PROGRAM
006960,001294: 
006961,001295: 10,2000                                          BANK     10                                    
006962,001296: 10,2000                                          SETLOC   OPTDRV                                
006963,001297: 10,2000                                          BANK                                           
006964,001298: 10,2000                                          COUNT*   $$/SXT                                
006965,001299: 
006966,001300:                                                                                                 #  SHAFT STOP MONITOR-ZONE UPDATE
006967,001301: 
006968,001302: 10,2000           30036        OPTDRIVE          CA       CDUS                                  #  GRAB OPTIC SHAFT CDU
006969,001303: 10,2001           54001                          TS       L                                     
006970,001304: 10,2002           10000                          CCS      A                                     #  GET ABS(CDUS)
006971,001305: 10,2003           67707                          AD       13,14,15                              
006972,001306: 10,2004           12006                          TCF      +2                                    #  ABS(CDUS) - 45 DEG
006973,001307: 10,2005           12003                          TCF      -2                                    
006974,001308: 10,2006           00006                          EXTEND                                         
006975,001309: 10,2007           62016                          BZMF     OZONE                                 #  LESS THAN 45 DEG-SET ZONE 0
006976,001310: 10,2010           31307                          CA       ZONE                                  #  IF ZONE ZERO, CHANGE TO + OR - OTHERWISE
006977,001311: 10,2011           00006                          EXTEND                                         #  DONT MESS WITH ZONE
006978,001312: 10,2012           12014                          BZF      +2                                    
006979,001313: 10,2013           12020                          TCF      CONTDRVE                              #  JUST CONTINUE
006980,001314: 10,2014           56001                          XCH      L                                     #  GREATER THAN 45 DEG-SET ZONE TO SIGN CDU
006981,001315: 10,2015           12017                          TCF      OZONE      +1                         
006982,001316: 10,2016           34714        OZONE             CAF      ZERO                                  #  ABS(CDUS) LESS THAN 90 DEG-ZONE ZERO
006983,001317: 10,2017           55307                          TS       ZONE                                  
006984,001318: 10,2020                                          COUNT*   $$/T4RUPT                             
006985,001319: 10,2020           11303        CONTDRVE          CCS      OPTIND                                
006986,001320: 10,2021           02025                          TC       +4                                    #  WORK COARS OPTICS
006987,001321: 10,2022           02025                          TC       +3                                    #  WORK COARS OPTICS
006988,001322: 10,2023           05222                          TC       RESUME                                #  NO OPT
006989,001323: 10,2024           05222                          TC       RESUME                                #  NO OPT
006990,001324: 
006991,001325: 10,2025           31314                          CA       SWSAMPLE                              #  SEE IF SWITCH AT CMC
006992,001326: 10,2026           00006                          EXTEND                                         
006993,001327: 10,2027           65222                          BZMF     RESUME                                #  ZERO  (-1)         MANUAL  (+0)
006994,001328: 
006995,001329: 10,2030           34701                          CAF      BIT10                                 #  SEE IF OCDUS ZEROED SINCE LAST FSTART
006996,001330: 10,2031           71331                          MASK     OPTMODES                              
006997,001331: 10,2032           10000                          CCS      A                                     
006998,001332: 10,2033           02036                          TC       +3                                    
006999,001333: 10,2034           05537                          TC       ALARM                                 #  OPTICS NOT ZEROED
007000,001334: 10,2035           00120                          OCT      00120                                 
007001,001335: 
007002,001336: 10,2036           34711                          CA       BIT2                                  #  SEE IF ERR CNTS ENABLED
007003,001337: 10,2037           00006                          EXTEND                                         
007004,001338: 10,2040           02012                          RAND     CHAN12                                
007005,001339: 10,2041           00006                          EXTEND                                         
007006,001340: 10,2042           12175                          BZF      SETBIT                                #  CNTS NOT ENABLED-DO IT AND RESUME
007007,001341: 
007008,001342: 10,2043           34712                          CAF      ONE                                   #  INITIALIZE OPTIND
007009,001343:                                                                                                 # # Page 162
007010,001344: 10,2044           55303        OPT2              TS       OPTIND                                
007011,001345: 10,2045           00006                          EXTEND                                         
007012,001346: 10,2046           12132                          BZF      TRUNCMD                               #  CHECK TRUNION COMMAND
007013,001347: 
007014,001348: 10,2047           51303        GETOPCMD          INDEX    OPTIND                                
007015,001349: 10,2050           31160                          CA       DESOPTT                               #  PICK UP DESIRED OPT ANGLE
007016,001350: 10,2051           00006                          EXTEND                                         
007017,001351: 10,2052           51303                          INDEX    OPTIND                                
007018,001352: 10,2053           20035                          MSU      CDUT                                  #  GET DIFFERENCE
007019,001353: 10,2054           00006                          EXTEND                                         
007020,001354: 10,2055           74676                          MP       BIT13                                 
007021,001355: 10,2056           56001                          XCH      L                                     
007022,001356: 10,2057           60000                          DOUBLE                                         
007023,001357: 10,2060           54061                          TS       ITEMP1                                
007024,001358: 10,2061           12063                          TCF      +2                                    #  NO OVFL
007025,001359: 
007026,001360: 10,2062           26001                          ADS      L                                     #  WITH OVFL
007027,001361: 10,2063           51303        STORCMD           INDEX    OPTIND                                
007028,001362: 10,2064           23305                          LXCH     COMMANDO                              #  STORE COMMAND
007029,001363: 10,2065           11303                          CCS      OPTIND                                
007030,001364: 10,2066           12044                          TCF      OPT2                                  #  GET NEXT COMMAND
007031,001365: 
007032,001366: 10,2067           54061                          TS       ITEMP1                                #  INITIALIZE SEND INDICATOR TO ZERO
007033,001367: 10,2070                                          COUNT*   $$/SXT                                
007034,001368: 
007035,001369:                                                                                                 #  SHAFT STOP AVOIDANCE
007036,001370: 
007037,001371: 10,2070           10036                          CCS      CDUS                                  #  IF CDUS GREATER THAN +OR- 90 DEG CHECK
007038,001372: 10,2071           64673                          AD       NEG1/2                                #  FOR POSSIBLE STOP PROBLEM
007039,001373: 10,2072           12074                          TCF      +2                                    
007040,001374: 10,2073           12071                          TCF      -2                                    
007041,001375: 10,2074           00006                          EXTEND                                         
007042,001376: 10,2075           62122                          BZMF     CMDSETUP                              #  CDU LESS THAN 90 DEG, NO PROBLEMS
007043,001377: 
007044,001378: 10,2076           31307                          CA       ZONE                                  
007045,001379: 10,2077           00006                          EXTEND                                         
007046,001380: 10,2100           12122                          BZF      CMDSETUP                              #  ZONE=3,NORMAL COMMAND
007047,001381: 10,2101           74674                          MASK     BIT15                                 #  GRAB SIGN OF ZONE
007048,001382: 10,2102           54001                          TS       L                                     
007049,001383: 10,2103           31306                          CA       COMMANDO   +1                         
007050,001384: 10,2104           74674                          MASK     BIT15                                 #  GRAB SIGN OF SHAFT COMMAND
007051,001385: 10,2105           00006                          EXTEND                                         
007052,001386: 10,2106           06001                          RXOR     LCHAN                                 
007053,001387: 10,2107           10000                          CCS      A                                     
007054,001388: 10,2110           12122                          TCF      CMDSETUP                              #  SIGN ZONE NOT EQUAL TO SIGN COMMAND
007055,001389: 10,2111           11161                          CCS      DESOPTS                               #  SEE IF DESOPTS BETWEEN -90 AND +90
007056,001390: 10,2112           64673                          AD       NEG1/2                                
007057,001391: 10,2113           12115                          TCF      +2                                    #  ABS(DESOPTS) - 90 DEG
007058,001392: 10,2114           12112                          TCF      -2                                    
007059,001393: 10,2115           00006                          EXTEND                                         
007060,001394:                                                                                                 # # Page 163
007061,001395: 10,2116           62120                          BZMF     +2                                    #  DESOPTS IN FIRST OR FOURTH QUAD
007062,001396: 10,2117           12122                          TCF      CMDSETUP                              
007063,001397: 10,2120           41306                          CS       COMMANDO   +1                         #  REVERSE REGULAR COMMAND
007064,001398: 10,2121           55306                          TS       COMMANDO   +1                         
007065,001399: 
007066,001400: 10,2122                                          COUNT*   $$/T4RPT                              
007067,001401: 
007068,001402: 10,2122           34712        CMDSETUP          CAF      ONE                                   #  SET OPTIND
007069,001403: 10,2123           55303                          TS       OPTIND                                
007070,001404: 10,2124           50000                          INDEX    A                                     
007071,001405: 10,2125           11305                          CCS      COMMANDO                              #  GET SIGN OF COMMAND
007072,001406: 10,2126           02144                          TC       POSOPCMD                              
007073,001407: 10,2127           02151                          TC       NEXTOPT    +1                         #  ZERO COMMAND-SKIP SEND INDICATOR
007074,001408: 10,2130           02161                          TC       NEGOPCMD                              
007075,001409: 10,2131           02151                          TC       NEXTOPT    +1                         #  ZERO COMMAND
007076,001410: 
007077,001411: 10,2132           40035        TRUNCMD           CS       CDUT                                  #  IF COMMAND GREATER THAN 45 DEG-COMMAND
007078,001412: 10,2133           61160                          AD       DESOPTT                               #  45 DEG
007079,001413: 10,2134           54002                          TS       Q                                     
007080,001414: 10,2135           02047                          TC       GETOPCMD                              #  LESS THAN 45 DEG-NORMAL OPERATION
007081,001415: 
007082,001416: 10,2136           10000                          CCS      A                                     #  GREATER THAN 45 DEG-USE OPSMAX WITH
007083,001417: 10,2137           34672                          CA       POSMAX                                #  CORRECT SIGN
007084,001418: 10,2140           02142                          TC       +2                                    
007085,001419: 10,2141           44672                          CS       POSMAX                                
007086,001420: 10,2142           54001                          TS       L                                     
007087,001421: 10,2143           02063                          TC       STORCMD                               
007088,001422: 10,2144           62202        POSOPCMD          AD       MAXPLS1                               
007089,001423: 10,2145           00006                          EXTEND                                         
007090,001424: 10,2146           62166                          BZMF     DELOPCMD                              #  COMMAND LESS THAN MAX PULSE
007091,001425: 10,2147           42201                          CS       MAXPLS                                #  GREATER THAN MAX PULSE-USE MAX PULSE
007092,001426: 
007093,001427: 10,2150           24061        NEXTOPT           INCR     ITEMP1                                #  SET SEND INDICATOR
007094,001428: 10,2151           64713                          AD       NEG0                                  #  MAKE SURE ZERO COMMAND IS -ZERO
007095,001429: 10,2152           51303                          INDEX    OPTIND                                
007096,001430: 10,2153           54053                          TS       CDUTCMD                               #  STORE PULSE IN SEND REG
007097,001431: 
007098,001432: 10,2154           11303                          CCS      OPTIND                                
007099,001433: 10,2155           02123                          TC       CMDSETUP   +1                         #  GET NEXT OPT
007100,001434: 
007101,001435: 10,2156           10061                          CCS      ITEMP1                                #  ARE ANY PULSES TO GO
007102,001436: 10,2157           12171                          TCF      SENDOCMD                              #  YES-SEND EM
007103,001437: 10,2160           05222                          TC       RESUME                                #  NO
007104,001438: 
007105,001439: 10,2161           62202        NEGOPCMD          AD       MAXPLS1                               
007106,001440: 10,2162           00006                          EXTEND                                         
007107,001441: 10,2163           62166                          BZMF     DELOPCMD                              #  LESS THAN MAX PULSE
007108,001442: 10,2164           32201                          CA       MAXPLS                                #  MAX PULSES
007109,001443: 10,2165           12150                          TCF      NEXTOPT                               
007110,001444:                                                                                                 # # Page 164
007111,001445: 10,2166           51303        DELOPCMD          INDEX    OPTIND                                
007112,001446: 10,2167           57305                          XCH      COMMANDO                              #  SET UP SMALL COMMAND
007113,001447: 10,2170           12150                          TCF      NEXTOPT                               
007114,001448: 
007115,001449: 10,2171           34755        SENDOCMD          CAF      11,12                                 #  SEND OCDU DRIVE COMMANDS
007116,001450: 10,2172           00006                          EXTEND                                         
007117,001451: 10,2173           05014                          WOR      CHAN14                                
007118,001452: 10,2174           05222                          TC       RESUME                                
007119,001453: 
007120,001454: 10,2175           34711        SETBIT            CAF      BIT2                                  #  ENABLE OCDU ERR CNTS
007121,001455: 10,2176           00006                          EXTEND                                         
007122,001456: 10,2177           05012                          WOR      CHAN12                                
007123,001457: 10,2200           05222                          TC       RESUME                                #  START COARS NEXT TIME AROUND
007124,001458: 
007125,001459: 10,2201           77532        MAXPLS            DEC      -165       B-14                       #  WAS -80
007126,001460: 10,2202           77533        MAXPLS1           DEC      -164       B-14                       #  WAS -79
007127,001461: 10,2203     4755               11,12             EQUALS   PRIO6                                 

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