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