Source Code
![]() |
These source-code files were obtained by digitally photographing
an Artemis 72 program listing from a private collection and then
modifying pre-existing Comanche 55 (Apollo 11) source files to
incorporate changes. Note that the page images
presented online are of reduced quality, and that additional images
may be 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 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971 THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS COLOSSUS 3 THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED IN REPORT R-577. THIS PROGRAM WAS PREPARED UNDER OSR PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT CENTER OF THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF TECHNOLOGY, CAMBRIDGE, MASS. |
006155,000002: # Copyright: Public domain.
006156,000003: # Filename: T4RUPT_PROGRAM.agc
006157,000004: # Purpose: Part of the source code for Artemis (i.e., Colossus 3),
006158,000005: # build 072. This is for the Command Module's (CM)
006159,000006: # Apollo Guidance Computer (AGC), we believe for
006160,000007: # Apollo 15-17.
006161,000008: # Assembler: yaYUL
006162,000009: # Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
006163,000010: # Website: www.ibiblio.org/apollo/index.html
006164,000011: # Page scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
006165,000012: # Mod history: 2009-08-03 JL Adapted from corresponding Comanche 055 file.
006166,000013: # 2009-09-04 JL OC40010 should be an EQUALS declaration.
006167,000014: # 2009-09-05 JL Fixed typos.
006168,000015: # 2010-01-31 JL Fixed build errors.
006169,000016: # 2010-02-02 JL Fixed page numbers.
006170,000017: # 2010-02-11 JL Fixed error on p157.
006171,000018: # 2010-02-20 RSB Un-##'d this header.
006172,000019: # 2010-07-15 JL Fixed indentation.
006173,000020: # 2010-12-29 JL Fixed indentation.
006174,000021:
006175,000022: # # Page 141
006176,000023:
006177,000024: 06,2000 SETLOC T4RUP
006178,000025: 06,2000 BANK
006179,000026:
006180,000027: 06,2000 COUNT* $$/T4RPT
006181,000028: 06,2000 54016 T4RUPT TS BANKRUPT
006182,000029: 06,2001 00006 EXTEND
006183,000030: 06,2002 22012 QXCH QRUPT
006184,000031:
006185,000032: 06,2003 11322 CCS DSRUPTSW # GOES 3(-1)0 AROUND AND AROUND
006186,000033: 06,2004 12010 TCF NORMT4 +1
006187,000034: 06,2005 12007 TCF NORMT4
006188,000035:
006189,000036: 06,2006 12132 TCF QUIKDSP
006190,000037:
006191,000038: 06,2007 36214 NORMT4 CAF THREE
006192,000039: 06,2010 54070 TS RUPTREG1
006193,000040: 06,2011 55322 TS DSRUPTSW
006194,000041:
006195,000042: 06,2012 7675 74K = HIGH4
006196,000043:
006197,000044: # RELTAB IS A PACKED TABLE. RELAYWORD CODE IN UPPER 4 BITS, RELAY CODE
006198,000045: # IN LOWER 5 BITS.
006199,000046:
006200,000047: 4000 SETLOC FFTAG12
006201,000048: 4000 BANK
006202,000049: 4063 COUNT* $$/PIN
006203,000050: 4063 04025 RELTAB OCT 04025
006204,000051: 4064 10003 OCT 10003
006205,000052: 4065 14031 OCT 14031
006206,000053: 4066 20033 OCT 20033
006207,000054: 4067 24017 OCT 24017
006208,000055: 4070 30036 OCT 30036
006209,000056: 4071 34034 OCT 34034
006210,000057: 4072 40023 OCT 40023
006211,000058: 4073 44035 OCT 44035
006212,000059: 4074 50037 OCT 50037
006213,000060: 4075 54000 OCT 54000
006214,000061: 4076 60000 RELTAB11 OCT 60000
006215,000062:
006216,000063: # # Page 142
006217,000064:
006218,000065: # SWITCHED-BANK PORTION.
006219,000066:
006220,000067: 06,2000 SETLOC T4RUP
006221,000068: 06,2000 BANK
006222,000069:
006223,000070: 06,2012 COUNT* $$/T4RPT
006224,000071: 06,2012 11241 CDRVE CCS DSPTAB +11D
006225,000072: 06,2013 02063 TC DSPOUT
006226,000073: 06,2014 02063 TC DSPOUT
006227,000074:
006228,000075: 06,2015 57241 XCH DSPTAB +11D
006229,000076: 06,2016 74347 MASK LOW11
006230,000077: 06,2017 55241 TS DSPTAB +11D
006231,000078: 06,2020 64076 AD RELTAB11
006232,000079: 06,2021 00006 EXTEND
006233,000080: 06,2022 01010 WRITE OUT0
006234,000081: 06,2023 02072 TC HANG20
006235,000082:
006236,000083: # # Page 143
006237,000084:
006238,000085: # DSPOUT PROGRAM. PUTS OUT DISPLAYS.
006239,000086:
006240,000087: 06,2024 55221 DSPOUTSB TS NOUT
006241,000088: 06,2025 44772 CS ZERO
006242,000089: 06,2026 54073 TS DSRUPTEM # SET TO -0 FOR 1ST PASS THRU DSPTAB
006243,000090: 06,2027 57201 XCH DSPCNT
006244,000091: 06,2030 64771 AD NEG0 # TO PREVENT +0
006245,000092: 06,2031 55201 TS DSPCNT
006246,000093: 06,2032 51201 DSPSCAN INDEX DSPCNT
006247,000094: 06,2033 11226 CCS DSPTAB
006248,000095: 06,2034 11201 CCS DSPCNT # IF DSPTAB ENTRY +, SKIP
006249,000096: 06,2035 12030 TCF DSPSCAN -2 # IF DSPCNT +, AGAIN
006250,000097: 06,2036 12047 TCF DSPLAY # IF DSPTAB ENTRY -, DISPLAY
006251,000098: 06,2037 22400 11,14,9 OCT 22400 # CANNOT GET HERE
006252,000099: 06,2040 10073 CCS DSRUPTEM # IF DSRUPTEM=+0, 2ND PASS THRU DSPTAB
006253,000100: 06,2041 37764 120MRUPT DEC 16372 B-14 # (DSPCNT = 0). +0 INTO NOUT.
006254,000101: 06,2042 55221 TS NOUT
006255,000102: 06,2043 00002 TC Q
006256,000103: 06,2044 54073 TS DSRUPTEM # IF DSRUPTEM=-0, 1ST PASS THRU DSPTAB
006257,000104: 06,2045 34355 CAF TABLNTH # (DSPCNT=0). +0 INTO DSRUPTEM. PASS AGAIN
006258,000105: 06,2046 12031 TCF DSPSCAN -1
006259,000106:
006260,000107: 06,2047 64770 DSPLAY AD ONE
006261,000108: 06,2050 51201 INDEX DSPCNT
006262,000109: 06,2051 55226 TS DSPTAB # REPLACE POSITIVELY
006263,000110: 06,2052 74347 MASK LOW11 # REMOVE BITS 12 TO 15
006264,000111: 06,2053 54073 TS DSRUPTEM
006265,000112: 06,2054 34344 CAF HI5
006266,000113: 06,2055 51201 INDEX DSPCNT
006267,000114: 06,2056 74063 MASK RELTAB # PICK UP BITS 12 TO 15 OF RELTAB ENTRY
006268,000115: 06,2057 60073 AD DSRUPTEM
006269,000116: 06,2060 00006 EXTEND
006270,000117: 06,2061 01010 WRITE OUT0 # WRITE CHANNEL 10
006271,000118: 06,2062 16706 TCF Q+1 # *** NORMAL RETURN SKIPS ONE
006272,000119:
006273,000120: 06,2063 5005 OCT54 EQUALS LTHVACA
006274,000121: 06,2063 4355 TABLNTH EQUALS BINCON # DEC 10 LENGTH OF DSPTAB
006275,000122: 06,2063 30101 DSPOUT CA FLAGWRD5
006276,000123: 06,2064 74752 MASK DSKYBIT
006277,000124: 06,2065 00006 EXTEND
006278,000125: 06,2066 12126 BZF NODSPOUT
006279,000126: 06,2067 11221 CCS NOUT
006280,000127: 06,2070 02024 TC DSPOUTSB
006281,000128: 06,2071 12126 TCF NODSPOUT # NO DISPLAY REQUESTS
006282,000129: 06,2072 42037 HANG20 CS 11,14,9
006283,000130: 06,2073 27322 ADS DSRUPTSW
006284,000131:
006285,000132: 06,2074 37663 CAF 20MRUPT
006286,000133: 06,2075 54027 SETTIME4 TS TIME4
006287,000134:
006288,000135: # # Page 144
006289,000136: # THE STATUS OF THE PROCEED PUSHBUTTON IS MONITORED EVERY 120 MILLISECONDS VIA THE CHANNEL 32 BIT 14 INBIT.
006290,000137: # THE STATE OF THIS INBIT IS COMPARED WITH ITS STATE DURING THE PREVIOUS T4RUPT AND IS PROCESSED AS FOLLOWS.
006291,000138: # IF PREV ON AND NOW ON - BYPASS
006292,000139: # IF PREV ON AND NOW OFF - UPDATE IMODES33
006293,000140: # IF PREV OFF AND NOW ON - UPDATE IMODES33 AND PROCESS VIA PINBALL
006294,000141: # IF PREV OFF AND NOW OFF - BYPASS
006295,000142: # THE LOGIC EMPLOYED REQUIRES ONLY 9 MCT (APPROX. 108 MICROSECONDS) OF COMPUTER TIME WHEN NO CHANGES OCCUR.
006296,000143:
006297,000144: 06,2076 31334 PROCEEDE CA IMODES33 # MONITOR FOR PROCEED BUTTON
006298,000145: 06,2077 00006 EXTEND
006299,000146: 06,2100 06032 RXOR CHAN32 # CHECK IF BIT 14 DIFFERENT
006300,000147: 06,2101 74753 MASK PROCDBIT
006301,000148: 06,2102 00006 EXTEND
006302,000149: 06,2103 12116 BZF T4JUMP # NO CHANGE
006303,000150:
006304,000151: 06,2104 23334 LXCH IMODES33
006305,000152: 06,2105 00006 EXTEND
006306,000153: 06,2106 06001 RXOR LCHAN
006307,000154: 06,2107 55334 TS IMODES33 # UPDATE IMODES33
006308,000155: 06,2110 74753 MASK PROCDBIT
006309,000156: 06,2111 10000 CCS A
006310,000157: 06,2112 12116 TCF T4JUMP # WAS ON - NOW OFF
006311,000158:
006312,000159: 06,2113 05120 TC NOVAC30 # WAS OFF - NOW ON
006313,000160: 06,2114 1202 EBANK= DSPCOUNT
006314,000161: 06,2114 03311 60102 2CADR PROCKEY
006315,000162:
006316,000163: # # Page 145
006317,000164: # JUMP TO APPROPRIATE ONCE-PER SECOND (0.96 SEC ACTUALLY) ACTIVITY
006318,000165:
006319,000166: 06,2116 50070 T4JUMP INDEX RUPTREG1
006320,000167: 06,2117 12120 TCF +1
006321,000168:
006322,000169: 06,2120 12124 TCF OPTTEST
006323,000170: 06,2121 13001 TCF OPTMON
006324,000171: 06,2122 12124 TCF OPTTEST
006325,000172: 06,2123 12167 TCF IMUMON
006326,000173: 06,2124 04714 OPTTEST TC IBNKCALL
006327,000174: 06,2125 20000 CADR OPTDRIVE
006328,000175:
006329,000176: 06,2126 7663 20MRUPT = OCT37776 # (DEC 16382)
006330,000177: 06,2126 00006 NODSPOUT EXTEND # TURN OFF RELAYS
006331,000178: 06,2127 01010 WRITE OUT0
006332,000179:
006333,000180: 06,2130 32041 CAF 120MRUPT # SET FOR NEXT CDRVE
006334,000181: 06,2131 12075 TCF SETTIME4
006335,000182:
006336,000183: 06,2132 34753 QUIKDSP CAF BIT14
006337,000184: 06,2133 71322 MASK DSRUPTSW
006338,000185: 06,2134 00006 EXTEND
006339,000186: 06,2135 12163 BZF QUIKOFF # WROTE LAST TIME, NOW TURN OFF RELAYS.
006340,000187:
006341,000188: 06,2136 11221 CCS NOUT
006342,000189: 06,2137 02024 TC DSPOUTSB
006343,000190: 06,2140 12150 TCF NODSPY # NOUT=0 OR BAD RETURN FROM DSPOUTSB
006344,000191: 06,2141 44753 CS BIT14 # GOOD RETURN (WE DISPLAYED SOMETHING)
006345,000192: 06,2142 27322 QUIKRUPT ADS DSRUPTSW
006346,000193:
006347,000194: 06,2143 37663 CAF 20MRUPT
006348,000195: 06,2144 54027 TS TIME4
006349,000196:
006350,000197: 06,2145 34760 CAF BIT9
006351,000198: 06,2146 27322 ADS DSRUPTSW
006352,000199:
006353,000200: 06,2147 05323 TC RESUME
006354,000201:
006355,000202: 06,2150 00006 NODSPY EXTEND
006356,000203: 06,2151 01010 WRITE OUT0
006357,000204:
006358,000205: 06,2152 37663 SYNCT4 CAF 20MRUPT
006359,000206: 06,2153 26027 ADS TIME4
006360,000207:
006361,000208: 06,2154 34760 CAF BIT9
006362,000209: 06,2155 27322 ADS DSRUPTSW
006363,000210: 06,2156 11322 CCS DSRUPTSW
006364,000211: 06,2157 05323 TC RESUME
006365,000212: 06,2160 37737 OCT37737 OCT 37737
006366,000213: 06,2161 02152 TC SYNCT4
006367,000214: # # Page 146
006368,000215: 06,2162 05323 TC RESUME
006369,000216:
006370,000217: 06,2163 00006 QUIKOFF EXTEND
006371,000218: 06,2164 01010 WRITE OUT0
006372,000219: 06,2165 34753 CAF BIT14 # RESET DSRUPTSW TO SEND DISPLAY NEXT PASS
006373,000220: 06,2166 12142 TCF QUIKRUPT
006374,000221:
006375,000222: # # Page 147
006376,000223: # PROGRAM NAME: IMUMON
006377,000224:
006378,000225: # FUNCTIONAL DESCRIPTION: THIS PROGRAM IS ENTERED EVERY 480 MS. IT DETECTS CHANGES OF THE IMU STATUS BITS IN
006379,000226: # CHANNEL 30 AND CALLS THE APPROPRIATE SUBROUTINES. THE BITS PROCESSED AND THEIR RELEVANT SUROUTINES ARE:
006380,000227:
006381,000228: # FUNCTION BIT SUBROUTINE CALLED
006382,000229: # -------- --- -----------------
006383,000230: # TEMP IN LIMITS 15 TLIM
006384,000231: # ISS TURN-ON REQUEST 14 ITURNON
006385,000232: # IMU FAIL 13 IMUFAIL (SETISSW)
006386,000233: # IMU CDU FAIL 12 ICDUFAIL (SETISSW)
006387,000234: # IMU CAGE 11 IMUCAGE
006388,000235: # IMU OPERATE 9 IMUOP
006389,000236:
006390,000237: # THE LAST SAMPLED STATE OF THESE BITS IS LEFT IN IMODES30. ALSO, EACH SUBROUTINE CALLED FINDS THE NEW
006391,000238: # VALUE OF THE BIT IN A, WITH Q SET TO THE PROPER RETURN LOCATION, NXTIFAIL.
006392,000239:
006393,000240: # CALLING SEQUENCE: T4RUPT EVERY 480 MILLISECONDS.
006394,000241:
006395,000242: # JOBS OR TASKS INITIATED: NONE.
006396,000243:
006397,000244: # SUBROUTINES CALLED: TLIM, ITURNON, SETISSW, IMUCAGE, IMUOP.
006398,000245:
006399,000246: # ERASABLE INITIALIZATION:
006400,000247: # FRESH START OR RESTART WITH NO GROUPS ACTIVE: C(IMODES30) = OCT 37411.
006401,000248: # RESTART WITH ACTIVE GROUPS: C(IMODES30) = (B(IMODES30)AND(OCT 00035)) PLUS OCT 37400.
006402,000249: # THIS LEAVES IMU FAIL BITS INTACT.
006403,000250:
006404,000251: # ALARMS: NONE.
006405,000252:
006406,000253: # EXIT: TNONTEST.
006407,000254:
006408,000255: # OUTPUT: UPDATED IMODES30 WITH CHANGES PROCESSED BY APPROPRIATE SUBROUTINE.
006409,000256:
006410,000257: 06,2167 31333 IMUMON CA IMODES30 # SEE IF THERE HAS BEEN A CHANGE IN THE
006411,000258: 06,2170 00006 EXTEND # RELEVANT BITS OF CHAN 30.
006412,000259: 06,2171 06030 RXOR CHAN30 # CHECK IF BITS 9,11-15 CHANGED
006413,000260: 06,2172 72764 MASK 30RDMSK
006414,000261: 06,2173 00006 EXTEND
006415,000262: 06,2174 12224 BZF TNONTEST # NO CHANGE IN STATUS.
006416,000263:
006417,000264: 06,2175 54070 TS RUPTREG1 # SAVE BITS WHICH HAVE CHANGED.
006418,000265: 06,2176 23333 LXCH IMODES30 # UPDATE IMODES30.
006419,000266: 06,2177 00006 EXTEND
006420,000267: 06,2200 06001 RXOR LCHAN
006421,000268: 06,2201 55333 TS IMODES30
006422,000269:
006423,000270: 06,2202 44770 CS ONE
006424,000271: 06,2203 56070 XCH RUPTREG1
006425,000272: 06,2204 00006 EXTEND
006426,000273: # # Page 148
006427,000274: 06,2205 62517 BZMF TLIM # CHANGE IN IMU TEMP.
006428,000275: 06,2206 12210 TCF NXTIFBIT # BEGIN BIT SCAN.
006429,000276:
006430,000277: 06,2207 64770 -1 AD ONE # (RE-ENTERS HERE FROM NXTIFAIL.)
006431,000278: 06,2210 24070 NXTIFBIT INCR RUPTREG1 # ADVANCE BIT POSITION NUMBER.
006432,000279: 06,2211 60000 +1 DOUBLE
006433,000280: 06,2212 54000 TS A # SKIP IF OVERFLOW.
006434,000281: 06,2213 12210 TCF NXTIFBIT # LOOK FOR BIT.
006435,000282:
006436,000283: 06,2214 56071 XCH RUPTREG2 # SAVE OVERFLOW-CORRECTED DATA.
006437,000284: 06,2215 50070 INDEX RUPTREG1 # SELECT NEW VALUE OF THIS BIT.
006438,000285: 06,2216 34753 CAF TONISSBT
006439,000286: 06,2217 71333 MASK IMODES30
006440,000287: 06,2220 50070 INDEX RUPTREG1
006441,000288: 06,2221 02760 TC IFAILJMP
006442,000289:
006443,000290: 06,2222 10071 NXTIFAIL CCS RUPTREG2 # PROCESS ANY ADDITIONAL CHANGES.
006444,000291: 06,2223 12207 TCF NXTIFBIT -1
006445,000292:
006446,000293: # # Page 149
006447,000294: # PROGRAM NAME: TNONTEST.
006448,000295:
006449,000296: # FUNCTIONAL DESCRIPTION: THIS PROGRAM HONORS REQUESTS FOR ISS INITIALIZATION. ISS TURN-ON (CHANNEL 30 BIT 14)
006450,000297: # AND ISS OPERATE (CHANNEL 30 BIT 9) REQUESTS ARE TREATED AS A PAIR AND PROCESSING TAKES PLACE .480 SECONDS
006451,000298: # AFTER EITHER ONE APPEARS. THIS INITIALIZATION TAKES ON ONE OF THE FOLLOWING THREE FORMS:
006452,000299:
006453,000300: # 1) ISS TURN-ON: IN THIS SITUATION THE COMPUTER IS OPERATING WHEN THE ISS IS TURNED ON. NOMINALLY,
006454,000301: # BOTH ISS TURN-ON AND ISS OPERATE APPEAR. THE PLATFORM IS CAGED FOR 90 SECONDS AND THE ICDU'S ZEROED
006455,000302: # SO THAT AT THE END OF THE PROCESS THE GIMBAL LOCK MONITOR WILL FUNCTION PROPERLY.
006456,000303:
006457,000304: # 2) ICDU INITIALIZATION: IN THIS CASE THE COMPUTER WAS PROBABLY TURNED ON WITH THE ISS IN OPERATE OR
006458,000305: # A FRESH START WAS DONE WIT THE ISS IN OPERATE. IN THIS CASE ONLY ISS OPERATE IS ON. THE ICDU'S ARE
006459,000306: # ZEROED SO THE GIMBAL LOCK MONITOR WILL FUNCTION. AN EXCEPTION IS IF THE ISS IS IN GIMBAL LOCK AFTER
006460,000307: # A RESTART, THE ICDU'S WILL NOT BE ZEROED.
006461,000308:
006462,000309: # 3) RESTART WITH RESTARTABLE PROGRAM USING THE IMU: IN THIS CASE, NO INITIALIZATION TAKES PLACE SINCE
006463,000310: # IT IS ASSUMED THAT THE USING PROGRAM DID THE INITIALIZATION AND THEREFORE T4RUPT SHOULD NOT INTERFERE.
006464,000311:
006465,000312: # IMODES30 BIT 7 IS SET = 1 BY THE FIRST BIT (CHANNEL 30 BIT 14 OR 9) WHICH ARRIVES. FOLLOWING THIS, TNONTEST IS
006466,000313: # 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
006467,000314: # PROCEEDS, SETTING BITS 8 AND 7 = 0. AT PROCTNON, IF ISS TURN-ON REQUEST IS PRESENT, THE ISS IS CAGED (ZERO +
006468,000315: # COARSE). IF ISS OPERATE IS NOT PRESENT PROGRAM ALARM 00213 IS ISSUED. AT THE END OF A 90 SECOND CAGE, BIT 2
006469,000316: # OF IMODES30 IS TESTED. IF IT IS = 1, ISS TURN-ON WAS NOT PRESENT FOR THE ENTIRE 90 SECONDS. IN THAT CASE, IF
006470,000317: # THE ISS TURN-ON REQUEST IS PRESENT THE 90 SECOND WAIT IS REPEATED, OTHERWISE NO ACTION OCCURS UNLESS A PROGRAM
006471,000318: # WAS WAITING FOR THE INITIALIZATION IN WHICH CASE THE PROGRAM IS GIVEN AN IMUSTALL ERROR RETURN. IF THE DELAY
006472,000319: # WENT PROPERLY, THE ISS DELAY OUTBIT IS SENT AND THE ICDU'S ZEROED. A TASK IS INITIATED TO REMOVE THE PIPA FAIL
006473,000320: # INHIBIT BIT IN 10.24 SECONDS. IF A MISSION PROGRAM WAS WAITING IT IS INFORMED VIA ENDIMU.
006474,000321:
006475,000322: # AT PROCTNON, IF ONLY ISS OPERATE IS PRESENT (OPONLY), THE CDU'S ARE ZEROED UNLESS THE PLATFORM IS IN COARSE
006476,000323: # ALIGN (= GIMBAL LOCK HERE) OR A MISSION PROGRAM IS USING THE IMU (INUSEFLG = 1).
006477,000324:
006478,000325: # CALLING SEQUENCE: T4RUPT EVERY 480 MILLISECONDS AFTER IMUMON.
006479,000326:
006480,000327: # JOBS OR TASKS INITIATED: 1) ENDTNON, 90 SECONDS AFTER CAGING STARTED. 2) ISSUP, 4 SECONDS AFTER CAGING DONE.
006481,000328: # 3) PFAILOK, 10.24 SECONDS AFTER INITIALIZATION COMPLETED. 4) UNZ2, 320 MILLISECONDS AFTER ZEROING
006482,000329: # STARTED.
006483,000330:
006484,000331: # SUBROUTINES CALLED: CAGESUB, CAGESUB2, ZEROICDU, ENDIMU, IMUBAD, NOATTOFF, SETISSW, VARDELAY.
006485,000332:
006486,000333: # ERASABLE INITIALIZATION: SEE IMUMON.
006487,000334:
006488,000335: # ALARMS: PROGRAM ALARM 00213 IF ISS TURN-ON REQUESTED WITHOUT ISS OPERATE.
006489,000336:
006490,000337: # EXIT: ENDTNON EXITS TO C33TEST. TASKS HAVING TO DO WITH INITIALIZATION EXIT AS FOLLOWS: MISSION PROGRAM
006491,000338: # WAITING AND INITIALIZATION COMPLETE, EXIT TO ENDIMU, MISSION PROGRAM WAITING AND INITIALIZATION FAILED, EXIT TO
006492,000339: # IMUBAD, IMU NOT IN USE, EXIT TO TASKOVER.
006493,000340:
006494,000341: # OUTPUT: ISS INITIALIZED.
006495,000342:
006496,000343: 06,2224 41333 TNONTEST CS IMODES30 # AFTER PROCESSING ALL CHANGES, SEE IF IT
006497,000344: # # Page 150
006498,000345: 06,2225 74762 MASK ITNON1BT # IS TIME TO ACT ON TURN-ON REQUEST
006499,000346: 06,2226 10000 CCS A
006500,000347: 06,2227 12366 TCF C33TEST # NO - EXAMINE CHANNEL 33.
006501,000348:
006502,000349: 06,2230 34761 CAF ITNON2BT # SEE IF FIRST OR 2ND SAMPLE
006503,000350: 06,2231 71333 MASK IMODES30
006504,000351: 06,2232 10000 CCS A
006505,000352: 06,2233 12237 TCF PROCTNON # REACT AFTER SECOND SAMPLE.
006506,000353:
006507,000354: 06,2234 34761 CAF ITNON2BT # IF FIRST SAMPLE, SET BIT TO REACT
006508,000355: 06,2235 27333 ADS IMODES30 # TIME.
006509,000356: 06,2236 12366 TCF C33TEST
006510,000357:
006511,000358: # PROCESS IMU TURN-ON REQUESTS AFTER WAITING 1 SAMPLE FOR ALL SIGNALS TO ARRIVE.
006512,000359:
006513,000360: 06,2237 34761 PROCTNON CA ITNON2BT
006514,000361: 06,2240 64762 AD ITNON1BT
006515,000362: 06,2241 40000 COM
006516,000363: 06,2242 71333 MASK IMODES30
006517,000364: 06,2243 55333 TS IMODES30
006518,000365: 06,2244 74753 MASK TONISSBT # SEE IF TURN-ON REQUEST
006519,000366: 06,2245 10000 CCS A
006520,000367: 06,2246 12342 TCF OPONLY # OPERATE ON ONLY.
006521,000368:
006522,000369: 06,2247 41333 CS IMODES30 # IF TURN-ON REQUEST, WE SHOULD HAVE IMU
006523,000370: 06,2250 74760 MASK IMUOPBIT # OPERATE.
006524,000371: 06,2251 10000 CCS A
006525,000372: 06,2252 12255 TCF +3
006526,000373:
006527,000374: 06,2253 05671 TC ALARM # ALARM IF NOT.
006528,000375: 06,2254 00213 OCT 213
006529,000376:
006530,000377: 06,2255 02740 +3 TC CAGESUB
006531,000378:
006532,000379: 06,2256 33670 CAF 90SECS
006533,000380: 06,2257 05233 TC WAITLIST
006534,000381: 06,2260 E3,1474 EBANK= CDUIND
006535,000382: 06,2260 02265 14063 2CADR ENDTNON
006536,000383:
006537,000384: 06,2262 12366 TCF C33TEST
006538,000385:
006539,000386: 06,2263 33670 RETNON CAF 90SECS
006540,000387: 06,2264 05260 TC VARDELAY
006541,000388:
006542,000389: 06,2265 44767 ENDTNON CS DLAYFAIL # RESET TURN-ON REQUEST FAILBIT
006543,000390: 06,2266 71333 MASK IMODES30
006544,000391: 06,2267 57333 XCH IMODES30
006545,000392: 06,2270 74767 MASK DLAYFAIL # IF IT WAS OFF, SEND ISS DELAY COMPLETE.
006546,000393: 06,2271 00006 EXTEND
006547,000394: # # Page 151
006548,000395: 06,2272 12305 BZF ENDTNON2
006549,000396: 06,2273 34753 CAF TONISSBT # IF IT WAS ON AND TURN-ON REQUEST NOW
006550,000397: 06,2274 71333 MASK IMODES30 # PRESENT, RE-ENTER 90 SEC DELAY IN WL.
006551,000398: 06,2275 00006 EXTEND
006552,000399: 06,2276 12263 BZF RETNON
006553,000400:
006554,000401: 06,2277 40074 CS FLAGWRD0 # IF IT IS NOT ON NOW, SEE IF A PROG WAS
006555,000402: 06,2300 74761 MASK IMUSEFLG # WAITING.
006556,000403: 06,2301 10000 CCS A
006557,000404: 06,2302 15314 TCF TASKOVER
006558,000405: 06,2303 04655 TC POSTJUMP
006559,000406: 06,2304 17625 CADR IMUBAD # UNSUCCESSFUL TURN-ON.
006560,000407:
006561,000408: 06,2305 34752 ENDTNON2 CAF BIT15 # SEND ISS DELAY COMPLETE.
006562,000409: 06,2306 00006 EXTEND
006563,000410: 06,2307 05012 WOR CHAN12 # TURN OFF ISS DELAY COUNTER
006564,000411: 06,2310 04714 TC IBNKCALL # TURN OFF NO ATT LAMP.
006565,000412: 06,2311 17207 CADR NOATTOFF
006566,000413:
006567,000414: 06,2312 05511 UNZ2 TC ZEROICDU
006568,000415:
006569,000416: 06,2313 45001 CS BITS4&5 # REMOVE ZERO AND COARSE.
006570,000417: 06,2314 00006 EXTEND
006571,000418: 06,2315 03012 WAND CHAN12
006572,000419:
006573,000420: 06,2316 35025 CAF 7.9SEC # WAIT 7.9 SEC FOR CTRS TO FIND GIMBALS
006574,000421: 06,2317 05260 TC VARDELAY
006575,000422:
006576,000423: 06,2320 34763 ISSUP CA IMUNITBT
006577,000424: 06,2321 64765 AD IMUFINHT
006578,000425: 06,2322 64766 AD ICDUINHT
006579,000426: 06,2323 40000 COM # REMOVE CAGING, IMUFAIL INHIBIT, AND
006580,000427: 06,2324 71333 MASK IMODES30 # ICDUFAIL INHIBIT FLAGS.
006581,000428: 06,2325 55333 TS IMODES30
006582,000429:
006583,000430: 06,2326 44763 CS NOIMUDAP # ENABLE DAP
006584,000431: 06,2327 71334 MASK IMODES33
006585,000432: 06,2330 55334 TS IMODES33
006586,000433:
006587,000434: 06,2331 02706 TC SETISSW # ISS WARNING MIGHT HAVE BEEN INHIBITED.
006588,000435:
006589,000436: 06,2332 44752 CS BIT15 # REMOVE IMU DELAY COMPLETE DISCRETE.
006590,000437: 06,2333 00006 EXTEND
006591,000438: 06,2334 03012 WAND CHAN12
006592,000439:
006593,000440: 06,2335 35020 CAF 4SECS # DONT ENABLE PROG ALARM ON PIP FAIL FOR
006594,000441: 06,2336 05233 TC WAITLIST # ANOTHER 4 SECS.
006595,000442: 06,2337 E3,1474 EBANK= CDUIND
006596,000443: 06,2337 03175 16063 2CADR PFAILOK
006597,000444: # # Page 152
006598,000445: 06,2341 15314 TCF TASKOVER
006599,000446:
006600,000447: 06,2342 34765 OPONLY CAF BIT4
006601,000448: 06,2343 00006 EXTEND # IF OPERATE ON ONLY AND WE ARE IN COARSE
006602,000449: 06,2344 02012 RAND CHAN12 # ALIGN, DONT ZERO THE CDUS BECAUSE WE
006603,000450: 06,2345 10000 CCS A # MIGHT BE IN GIMBAL LOCK. USE V41N20 TO
006604,000451: 06,2346 12366 TCF C33TEST # RECOVER.
006605,000452:
006606,000453: 06,2347 34761 CAF IMUSEFLG # OTHERWISE, ZERO THE COUNTERS
006607,000454: 06,2350 70074 MASK STATE # UNLESS SOMEONE IS USING THE IMU.
006608,000455: 06,2351 10000 CCS A
006609,000456: 06,2352 12366 TCF C33TEST
006610,000457:
006611,000458: 06,2353 02751 TC CAGESUB2 # SET TURNON FLAGS.
006612,000459:
006613,000460: 06,2354 04714 ISSZERO TC IBNKCALL # TURN OFF NO ATT LAMP.
006614,000461: 06,2355 17207 CADR NOATTOFF # IMU CAGE OFF ENTRY.
006615,000462:
006616,000463: 06,2356 34764 CAF BIT5 # ISS CDU ZERO
006617,000464: 06,2357 00006 EXTEND
006618,000465: 06,2360 05012 WOR CHAN12
006619,000466:
006620,000467: 06,2361 05511 TC ZEROICDU
006621,000468: 06,2362 34763 CAF BIT6 # WAIT 300 MS FOR AGS TO RECEIVE SIGNAL.
006622,000469: 06,2363 05223 TC TWIDDLE
006623,000470: 06,2364 02312 ADRES UNZ2
006624,000471: 06,2365 12366 TCF C33TEST
006625,000472:
006626,000473: # # Page 153
006627,000474: # PROGRAM NAME: C33TEST
006628,000475:
006629,000476: # FUNCTIONAL DESCRIPTION: THIS PROGRAM MONITORS THREE FLIP-FLOP INBITS OF CHANNEL 33 AND CALLS THE APPROPRIATE
006630,000477: # SUBROUTINE TO PROCESS A CHANGE. IT IS ANALOGOUS TO IMUMON, WHICH MONITORS CHANNEL 30, EXCEPT THAT IT READS
006631,000478: # CHANNEL 33 WITH A WAND INSTRUCTION BECAUSE A 'WRITE' PULSE IS REQUIRED TO RESET THE FLIP-FLOPS. THE BITS
006632,000479: # PROCESSED AND THE SUBROUTINES CALLED ARE:
006633,000480:
006634,000481: # BIT FUNCTION SUBROUTINE
006635,000482: # --- -------- ----------
006636,000483: # 13 PIPA FAIL PIPFAIL
006637,000484: # 12 DOWNLINK TOO FAST DNTMFAST
006638,000485: # 11 UPLINK TOO FAST UPTMFAST
006639,000486:
006640,000487: # UPON ENTRY TO THE SUBROUTINE, THE NEW BIT STATE IS IN A.
006641,000488:
006642,000489: # CALLING SEQUENCE: EVERY 480 MILLISECONDS AFTER TNONTEST.
006643,000490:
006644,000491: # JOBS OR TASKS INITIATED: NONE.
006645,000492:
006646,000493: # SUBROUTINES CALLED: PIPFAIL, DNTMFAST AND UPTMFAST ON BIT CHANGES.
006647,000494:
006648,000495: # ERASABLE INITIALIZATION: C(IMODES33) = OCT 16000 ON A FRESH START OR RESTART, THEREFORE, THESE ALARMS WILL
006649,000496: # REAPPEAR IF THE CONDITIONS PERSIST.
006650,000497:
006651,000498: # ALARMS: NONE.
006652,000499:
006653,000500: # EXIT: GLOCKMON.
006654,000501:
006655,000502: # OUTPUT: UPDATED BITS 13, 12, AND 11 OF IMODES33 WITH CHANGES PROCESSED.
006656,000503:
006657,000504: 06,2366 31334 C33TEST CA IMODES33 # SEE IF RELEVANT CHAN33 BITS HAVE
006658,000505: 06,2367 75055 MASK 33RDMSK
006659,000506: 06,2370 54001 TS L # CHANGED.
006660,000507: 06,2371 35055 CAF 33RDMSK
006661,000508: 06,2372 00006 EXTEND
006662,000509: 06,2373 03033 WAND CHAN33 # RESETS FLIP-FLOP INPUTS.
006663,000510: 06,2374 00006 EXTEND
006664,000511: 06,2375 06001 RXOR LCHAN
006665,000512: 06,2376 00006 EXTEND
006666,000513: 06,2377 12426 BZF GLOCKMON # ON NO CHANGE.
006667,000514:
006668,000515: 06,2400 54070 TS RUPTREG1 # SAVE BITS WHICH HAVE CHANGED
006669,000516: 06,2401 23334 LXCH IMODES33
006670,000517: 06,2402 00006 EXTEND
006671,000518: 06,2403 06001 RXOR LCHAN
006672,000519: 06,2404 55334 TS IMODES33 # UPDATED IMODES33.
006673,000520:
006674,000521: 06,2405 34772 CAF ZERO
006675,000522: 06,2406 56070 XCH RUPTREG1
006676,000523: 06,2407 60000 DOUBLE
006677,000524: # # Page 154
006678,000525: 06,2410 12413 TCF NXTIBT +1 # SCAN FOR BIT CHANGES.
006679,000526:
006680,000527: 06,2411 64770 -1 AD ONE
006681,000528: 06,2412 24070 NXTIBT INCR RUPTREG1
006682,000529: 06,2413 60000 +1 DOUBLE
006683,000530: 06,2414 54000 TS A # (CODING IDENTICAL TO CHAN 30).
006684,000531: 06,2415 12412 TCF NXTIBT
006685,000532:
006686,000533: 06,2416 56071 XCH RUPTREG2
006687,000534: 06,2417 50070 INDEX RUPTREG1 # GET NEW VALUE OF BIT WHICH CHANGED.
006688,000535: 06,2420 34754 CAF PIP2FLBT
006689,000536: 06,2421 71334 MASK IMODES33
006690,000537: 06,2422 50070 INDEX RUPTREG1
006691,000538: 06,2423 02766 TC C33JMP
006692,000539:
006693,000540: 06,2424 10071 NXTFL33 CCS RUPTREG2 # PROCESS POSSIBLE ADDITIONAL CHANGES.
006694,000541: 06,2425 12411 TCF NXTIBT -1
006695,000542:
006696,000543: # # Page 155
006697,000544: # PROGRAM NAME: GLOCKMON
006698,000545:
006699,000546: # FUNCTIONAL DESCRIPTION: THIS PROGRAM MONITORS THE CDUZ COUNTER TO DETERMINE WHETHER THE ISS IS IN GIMBAL LOCK
006700,000547: # AND TAKES ACTION IF IT IS. THREE REGIONS OF MIDDLE GIMBAL ANGLE (MGA) ARE USED:
006701,000548:
006702,000549: # 1) ABS(MGA) LESS THAN OR EQUAL TO 70 DEGREES - NORMAL MODE.
006703,000550: # 2) ABS(MGA) GREATER THAN 70 DEGREES AND LESS THAN OR EQUAL TO 85 DEGREES - GIMBAL LOCK LAMP TURNED ON.
006704,000551: # 3) ABS(MGA) GREATER THAN 85 DEGREES - ISS PUT IN COARSE ALIGN AND NO ATT LAMP TURNED ON.
006705,000552:
006706,000553: # CALLING SEQUENCE: EVERY 480 MILLISECONDS AFTER C33TEST.
006707,000554:
006708,000555: # JOBS OR TASKS INITIATED: NONE.
006709,000556:
006710,000557: # SUBROUTINES CALLED: 1) SETCOARS WHEN ABS(MGA) GREATER THEN 85 DEGREES AND ISS NOT IN COARSE ALIGN.
006711,000558: # 2) LAMPTEST BEFORE TURNING OFF GIMBAL LOCK LAMP.
006712,000559:
006713,000560: # ERASABLE INITIALIZATION:
006714,000561: # 1) FRESH START OR RESTART WITH NO GROUPS ACTIVE: C(CDUZ) = 0, IMODES30 BIT 6 = 0, IMODES33 BIT 1 = 0.
006715,000562: # 2) RESTART WTIH GROUPS ACTIVE: SAME AS FRESH START EXCEPT C(CDUZ) NOT CHANGED SO GIMBAL MONITOR
006716,000563: # PROCEEDS AS BEFORE.
006717,000564:
006718,000565: # ALARMS: 1) MGA REGION (2) CAUSES GIMBAL LOCK LAMP TO BE LIT.
006719,000566: # 2) MGA REGION (3) CAUSES THE ISS TO BE PUT IN COARSE ALIGN AND THE NO ATT LAMP TO BE LIT IF EITHER NOT
006720,000567: # SO ALREADY.
006721,000568:
006722,000569: 06,2426 10034 GLOCKMON CCS CDUZ
006723,000570: 06,2427 12433 TCF GLOCKCHK # SEE IF MAGNITUDE OF MGA IS GREATER THAN
006724,000571: 06,2430 12471 TCF SETGLOCK # 70 DEGREES.
006725,000572: 06,2431 12433 TCF GLOCKCHK
006726,000573: 06,2432 12471 TCF SETGLOCK
006727,000574:
006728,000575: 06,2433 62516 GLOCKCHK AD -70DEGS
006729,000576: 06,2434 00006 EXTEND
006730,000577: 06,2435 62470 BZMF SETGLOCK -1 # NO LOCK.
006731,000578:
006732,000579: 06,2436 63557 AD -15DEGS # SEE IF ABS(MGA) GREATER THAN 85 DEGS.
006733,000580: 06,2437 00006 EXTEND
006734,000581: 06,2440 62466 BZMF NOGIMRUN
006735,000582:
006736,000583: 06,2441 34765 CAF BIT4 # IF SO, SYSTEM SHOULD BE IN COARSE ALIGN
006737,000584: 06,2442 00006 EXTEND # TO PREVENT GIMBAL RUN-AWAY.
006738,000585: 06,2443 02012 RAND CHAN12
006739,000586: 06,2444 10000 CCS A
006740,000587: 06,2445 12466 TCF NOGIMRUN
006741,000588:
006742,000589: 06,2446 E6,1465 EBANK= DAPDATR1
006743,000590: 06,2446 35045 CAF EBANK6
006744,000591: 06,2447 54003 TS EBANK
006745,000592: 06,2450 41465 CS DAPDATR1
006746,000593: 06,2451 74346 MASK PRIO30
006747,000594: # # Page 156
006748,000595: 06,2452 10000 CCS A
006749,000596: 06,2453 12460 TCF CALLCRS # NO
006750,000597:
006751,000598: 06,2454 34770 CAF AVEGBIT # YES, IS AVEG ON
006752,000599: 06,2455 70075 MASK FLAGWRD1
006753,000600: 06,2456 10000 CCS A
006754,000601: 06,2457 12466 TCF NOGIMRUN # YES, DON'T COARSE ALIGN
006755,000602:
006756,000603: 06,2460 04714 CALLCRS TC IBNKCALL # GO INTO COARSE ALIGN.
006757,000604: 06,2461 17070 CADR SETCOARS
006758,000605:
006759,000606: 06,2462 36211 CAF SIX # ENABLE ISS ERROR COUNTERS IN 60 MS
006760,000607: 06,2463 05233 TC WAITLIST
006761,000608: 06,2464 E3,1474 EBANK= CDUIND
006762,000609: 06,2464 03064 16063 2CADR CA+ECE
006763,000610:
006764,000611: 06,2466 34763 NOGIMRUN CAF BIT6 # TURN ON GIMBAL LOCK LAMP.
006765,000612: 06,2467 12471 TCF SETGLOCK
006766,000613:
006767,000614: 06,2470 34772 -1 CAF ZERO
006768,000615: 06,2471 61241 SETGLOCK AD DSPTAB +11D # SEE IF PRESENT STATE OF GIMBAL LOCK LAMP
006769,000616: 06,2472 74763 MASK BIT6 # AGREES WITH DESIRED STATE BY HALF ADDING
006770,000617: 06,2473 00006 EXTEND # THE TWO.
006771,000618: 06,2474 15323 BZF GLOCKOK # OK AS IS.
006772,000619:
006773,000620: 06,2475 71241 MASK DSPTAB +11D # IF OFF, DON'T TURN ON IF IMU BEING CAGED.
006774,000621: 06,2476 10000 CCS A
006775,000622: 06,2477 12513 TCF GLAMPTST # TURN OFF UNLESS LAMP TEST IN PROGRESS.
006776,000623:
006777,000624: 06,2500 34763 CAF IMUNITBT
006778,000625: 06,2501 71333 MASK IMODES30
006779,000626: 06,2502 10000 CCS A
006780,000627: 06,2503 15323 TCF GLOCKOK
006781,000628:
006782,000629: 06,2504 41241 GLINVERT CS DSPTAB +11D # INVERT GIMBAL LOCK LAMP.
006783,000630: 06,2505 74763 MASK BIT6
006784,000631: 06,2506 64752 AD BIT15 # TO INDICATE CHANGE IN DSPTAB +11D.
006785,000632: 06,2507 57241 XCH DSPTAB +11D
006786,000633: 06,2510 72160 MASK OCT37737
006787,000634: 06,2511 27241 ADS DSPTAB +11D
006788,000635: 06,2512 15323 TCF GLOCKOK
006789,000636:
006790,000637: 06,2513 02771 GLAMPTST TC LAMPTEST # TURN OFF UNLESS LAMP TEST IN PROGRESS.
006791,000638: 06,2514 15323 TCF GLOCKOK
006792,000639: 06,2515 12504 TCF GLINVERT
006793,000640:
006794,000641: 06,2516 63434 -70DEGS DEC -.38888 # -70 DEGREES SCALED IN HALF-REVOLUTIONS.
006795,000642: 06,2517 06,3557 -15DEGS EQUALS OCT75252 # SAME AS -.083333 DEC
006796,000643:
006797,000644: # # Page 157
006798,000645: # PROGRAM NAME: TLIM.
006799,000646:
006800,000647: # FUNCTIONAL DESCRIPTION: THIS PROGRAM MAINTAINS THE TEMP LAMP (BIT 4 OF CHANNEL 11) ON THE DSKY TO AGREE WITH
006801,000648: # THE TEMP SIGNAL FROM THE ISS (BIT 15 OF CHANNEL 30). HOWEVER, THE LIGHT WILL NOT BE TURNED OFF IF A LAMP TEST
006802,000649: # IS IN PROGRESS.
006803,000650:
006804,000651: # CALLING SEQUENCE: CALLED BY IMUMON ON A CHANGE OF BIT 15 OF CHANNEL 30.
006805,000652:
006806,000653: # JOBS OR TASKS INITIATED: NONE.
006807,000654:
006808,000655: # SUBROUTINES CALLED: LAMPTEST.
006809,000656:
006810,000657: # ERASABLE INITIALIZATION: FRESH START AND RESTART TURN THE TEMP LAMP OFF.
006811,000658:
006812,000659: # ALARMS: TEMP LAMP TURNED ON WHEN THE IMU TEMP GOES OUT OF LIMITS.
006813,000660:
006814,000661: # EXIT: NXTIFAIL.
006815,000662:
006816,000663: # OUTPUT: SERVICE OF TEMP LAMP. IN A, EXCEPT FOR TLIM.
006817,000664:
006818,000665: 06,2517 74750 TLIM MASK POSMAX # REMOVE BIT FROM WORD OF CHANGES AND SET
006819,000666: 06,2520 54071 TS RUPTREG2 # DSKY TEMP LAMP ACCORDINGLY.
006820,000667:
006821,000668: 06,2521 31333 CA IMODES30
006822,000669: 06,2522 74752 MASK TLIMBIT
006823,000670: 06,2523 00006 EXTEND
006824,000671: 06,2524 12531 BZF TEMPOK
006825,000672:
006826,000673: 06,2525 34765 CAF BIT4 # TURN ON LAMP.
006827,000674: 06,2526 00006 EXTEND
006828,000675: 06,2527 05011 WOR DSALMOUT
006829,000676: 06,2530 12222 TCF NXTIFAIL
006830,000677:
006831,000678: 06,2531 02771 TEMPOK TC LAMPTEST # IF TEMP NOW OK, DONT TURN OFF LAMP IF
006832,000679: 06,2532 12222 TCF NXTIFAIL # LAMP TEST IN PROGRESS.
006833,000680:
006834,000681: 06,2533 44765 CS BIT4
006835,000682: 06,2534 00006 EXTEND
006836,000683: 06,2535 03011 WAND DSALMOUT # TURN OFF TEMP CAUTION
006837,000684: 06,2536 12222 TCF NXTIFAIL
006838,000685:
006839,000686: # # Page 158
006840,000687: # PROGRAM NAME: ITURNON.
006841,000688:
006842,000689: # FUNCTIONAL DESCRIPTION: THIS PROGRAM IS CALLED BY IMUMON WHEN A CHANGE OF BIT 14 OF CHANNEL 30 (ISS TURN-ON
006843,000690: # REQUEST) IS DETECTED. UPON ENTRY, ITURNON CHECKS IF A TURN-ON DELAY SEQUENCE HAS FAILED, AND IF SO, IT EXITS.
006844,000691: # 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
006845,000692: # THAT TNONTEST WILL INITIATE THE ISS INITIALIZATION SEQUENCE. IF OFF, THE TURN-ON DELAY SIGNAL, CHANNEL 12 BIT
006846,000693: # 15, IS CHECKED AND IF IT IS ON, ITURNON EXITS. IF THE DELAY SIGNAL IS OFF, PROGRAM ALARM 00207 IS ISSUED, BIT 2
006847,000694: # OF IMODES30 IS SET TO 1 AND THE PROGRAM EXITS.
006848,000695:
006849,000696: # THE SETTING OF BIT 2 OF IMODES30 (ISS DELAY SEQUENCE FAIL) INHIBITS THIS ROUTINE AND IMUOP FROM
006850,000697: # PROCESSING ANY CHANGES. THIS BIT WILL BE RESET BY THE ENDTNON ROUTINE WHEN THE CURRENT 90 SECOND DELAY PERIOD
006851,000698: # ENDS.
006852,000699:
006853,000700: # CALLING SEQUENCE: FROM IMUMON WHEN ISS TURN-ON REQUEST CHANGES STATE.
006854,000701:
006855,000702: # JOBS OR TASKS INITIATED: NONE.
006856,000703:
006857,000704: # SUBROUTINES CALLED: ALARM, IF THE ISS TURN-ON REQUEST IS NOT PRESENT FOR 90 SECONDS.
006858,000705:
006859,000706: # ERASABLE INITIALIZATION: FRESH START AND RESTART SET BIT 15 OF CHANNEL 12 AND BITS 2 AND 7 OF IMODES30 TO 0,
006860,000707: # AND BIT 14 OF IMODES30 TO 1.
006861,000708:
006862,000709: # ALARMS: PROGRAM ALARM 00207 IS ISSUED IF THE ISS TURN-ON REQUEST SIGNAL IS NOT PRESENT FOR 90 SECONDS.
006863,000710:
006864,000711: # EXIT: NXTIFAIL.
006865,000712:
006866,000713: # OUTPUT: BIT 7 OF IMODES30 TO START ISS INITIALIZATION, OR BIT 2 OF IMODES30 AND PROGRAM ALARM 00207 TO INDICATE
006867,000714: # A FAILED TURN-ON SEQUENCE.
006868,000715:
006869,000716: 06,2537 34767 ITURNON CAF DLAYFAIL # IF DELAY REQUEST HAS GONE OFF
006870,000717: 06,2540 71333 MASK IMODES30 # PREMATURELY, DO NOT PROCESS ANY CHANGES
006871,000718: 06,2541 10000 CCS A # UNTIL THE CURRENT 90 SEC WAIT EXPIRES.
006872,000719: 06,2542 12222 TCF NXTIFAIL
006873,000720:
006874,000721: 06,2543 34753 CAF TONISSBT # SEE IF JUST ON OR OFF.
006875,000722: 06,2544 71333 MASK IMODES30
006876,000723: 06,2545 00006 EXTEND
006877,000724: 06,2546 12562 BZF ITURNON2 # IF JUST ON.
006878,000725:
006879,000726: 06,2547 34752 CAF BIT15
006880,000727: 06,2550 00006 EXTEND # SEE IF DELAY PRESENT DISCRETE HAS BEEN
006881,000728: 06,2551 02012 RAND CHAN12 # SENT. IF SO, ACTION COMPLETE.
006882,000729: 06,2552 00006 EXTEND
006883,000730: 06,2553 12555 BZF +2
006884,000731: 06,2554 12222 TCF NXTIFAIL
006885,000732:
006886,000733: 06,2555 34767 CAF DLAYFAIL # IF NOT, SET BIT TO INDICATE REQUEST NOT
006887,000734: 06,2556 27333 ADS IMODES30 # PRESENT FOR FULL DURATION.
006888,000735: 06,2557 05671 TC ALARM
006889,000736: 06,2560 00207 OCT 207
006890,000737: 06,2561 12222 TCF NXTIFAIL
006891,000738:
006892,000739: # # Page 159
006893,000740: 06,2562 41333 ITURNON2 CS IMODES30 # SET BIT7 TO INDICATE WAIT OF 1 SAMPLE
006894,000741: 06,2563 74762 MASK ITNON1BT
006895,000742: 06,2564 27333 ADS IMODES30
006896,000743: 06,2565 12222 TCF NXTIFAIL
006897,000744:
006898,000745: # # Page 160
006899,000746: # PROGRAM NAME: IMUCAGE.
006900,000747:
006901,000748: # FUNCTIONAL DESCRIPTION: THIS PROGRAM PROCESSES CHANGES OF THE IMUCAGE INBIT, CHANNEL 30 BITS 11. IF THE BIT
006902,000749: # CHANGES TO 0 (CAGE BUTTON PRESSED), THE ISS IS CAGED (ICDU ZERO + COARSE ALIGN + NO ATT LAMP) UNTIL THE
006903,000750: # ASTRONAUT SELECTS ANOTHER PROGRAM TO ALIGN THE ISS. ANY PULSE TRAINS TO THE ICDU'S AND GYRO'S ARE TERMINATED,
006904,000751: # THE ASSOCIATE OUTCOUNTERS ARE ZEROED AND THE GYRO'S ARE DE-SELECTED. NO ACTION OCCURS WHEN THE BUTTON IS
006905,000752: # RELEASED (INBIT CHANGES TO 1).
006906,000753:
006907,000754: # CALLING SEQUENCE: BY IMUMON WHEN IMU CAGE BIT CHANGES.
006908,000755:
006909,000756: # JOBS OR TASKS INITIATED: NONE.
006910,000757:
006911,000758: # SUBROUTINES CALLED: CAGESUB.
006912,000759:
006913,000760: # ERASABLE INITIALZATION: FRESH START AND RESTART SET BIT 11 OF IMODES30 TO 1.
006914,000761:
006915,000762: # ALARMS: NONE.
006916,000763:
006917,000764: # EXIT: NXTIFAIL.
006918,000765:
006919,000766: # OUTPUT: ISS CAGED, COUNTERS ZEROED, PULSE TRAINS TERMINATED AND NO ATT LAMP LIT.
006920,000767:
006921,000768: 06,2566 10000 IMUCAGE CCS A # NO ACTION IF GOING OFF.
006922,000769: 06,2567 12354 TCF ISSZERO
006923,000770: 06,2570 35021 CA LOW9 # TERMINATE ICDU, OPTICS, GYRO PULSE TRAINS
006924,000771: 06,2571 00006 EXTEND
006925,000772: 06,2572 03014 WAND CHAN14
006926,000773:
006927,000774: 06,2573 42774 CS OCT272 # KNOCK DOWN TVC ENABLE, IMU ERROR COUNTER
006928,000775: 06,2574 00006 EXTEND # ENABLE, ZERO ICDU, COARSE ALIGN
006929,000776: 06,2575 03012 WAND CHAN12 # ENABLE, OPTICS ERR CNTR ENABLE
006930,000777:
006931,000778: 06,2576 44762 CS ENGONBIT # CLEAR ENGINE ON FLAG
006932,000779: 06,2577 70101 MASK FLAGWRD5
006933,000780: 06,2600 54101 TS FLAGWRD5
006934,000781: 06,2601 44754 CS BIT13 # TURN OFF ENGINE
006935,000782: 06,2602 00006 EXTEND
006936,000783: 06,2603 03011 WAND DSALMOUT
006937,000784:
006938,000785: 06,2604 02746 TC CAGESUB1
006939,000786:
006940,000787: 06,2605 04714 TC IBNKCALL # KNOCK DOWN TRACK, REFSMMAT, DRIFT FLAGS
006941,000788: 06,2606 17121 CADR RNDREFDR
006942,000789:
006943,000790: 06,2607 44772 CS ZERO # ZERO COMMAND OUT-COUNTERS
006944,000791: 06,2610 54050 TS CDUXCMD
006945,000792: 06,2611 54051 TS CDUYCMD
006946,000793: 06,2612 54052 TS CDUZCMD
006947,000794: 06,2613 54047 TS GYROCMD
006948,000795: # # Page 161
006949,000796: 06,2614 42777 CS OCT740 # HAVING WAITED AT LEAST 27 MCT FROM
006950,000797: 06,2615 00006 EXTEND # GYRO PULSE TRAIN TERMINATION, WE CAN
006951,000798: 06,2616 03014 WAND CHAN14 # DE-SELECT THE GYROS.
006952,000799: 06,2617 12222 TCF NXTIFAIL
006953,000800:
006954,000801: # # Page 162
006955,000802: # PROGRAM NAME: IMUOP.
006956,000803:
006957,000804: # FUNCTIONAL DESCRIPTION: THIS PROGRAM PROCESSES CHANGES IN THE ISS OPERATE DISCRETE, BIT 9 OF CHANNEL 30.
006958,000805: # IF THE INBIT CHANGES TO 0, INDICATING ISS ON, IMUOP GENERALLY SETS BIT 7 OF IMODES30 TO 1 TO REQUEST ISS
006959,000806: # INITIALIZATION VIA TNONTEST. AN EXCEPTION IS DURING A FAILED ISS DELAY DURING WHICH BIT 2 OF IMODES30 IS SET
006960,000807: # TO 1 AND NO FURTHER INITIALIZATION IS REQUIRED. WHEN THE INBIT CHANGES TO 1, INDICATING ISS OFF, IMUSEFLG IS
006961,000808: # TESTED TO SEE IF ANY PROGRAM WAS USING THE ISS. IF SO, PROGRAM ALARM 00214 IS ISSUED.
006962,000809:
006963,000810: # CALLING SEQUENCE: BY IMUMON WHEN BIT 9 OF CHANNEL 30 CHANGES.
006964,000811:
006965,000812: # JOBS OR TASKS INITIATED: NONE.
006966,000813:
006967,000814: # SUBROUTINES CALLED: ALARM, IF ISS IS TURNED OFF WHILE IN USE.
006968,000815:
006969,000816: # ERASABLE INITIALIZATION: ON FRESH START AND RESTART, BIT 9 OF IMODES30 IS SET TO 1 EXCEPT WHEN THE GIMBAL LOCK
006970,000817: # LAMP IS ON, IN WHICH CASE IT IS SET TO 0. THIS PREVENTS ICDU ZERO BY TNONTEST WITH THE ISS IN GIMBAL LOCK.
006971,000818:
006972,000819: # ALARMS: PROGRAM ALARM 00214 IF THE ISS IS TURNED OFF WHILE IN USE.
006973,000820:
006974,000821: # EXIT: NXTIFAIL.
006975,000822:
006976,000823: # OUTPUT: ISS INITIALIZATION REQUEST (IMODES30 BIT 7) OR PROGRAM ALARM 00214.
006977,000824:
006978,000825: 06,2620 00006 IMUOP EXTEND # IF OPERATE JUST ON, WAIT 1 SAMPLE.
006979,000826: 06,2621 12646 BZF IMUOP2
006980,000827:
006981,000828: 06,2622 41334 CS IMODES33 # DISABLE DAP
006982,000829: 06,2623 74763 MASK NOIMUDAP
006983,000830: 06,2624 27334 ADS IMODES33
006984,000831:
006985,000832: 06,2625 04714 TC IBNKCALL # KNOCK DOWN TRACK, REFSMMAT, DRIFT FLAGS
006986,000833: 06,2626 17121 CADR RNDREFDR
006987,000834:
006988,000835: 06,2627 44760 CS UTBIT
006989,000836: 06,2630 70104 MASK FLAGWRD8
006990,000837: 06,2631 54104 TS FLAGWRD8
006991,000838:
006992,000839: 06,2632 34762 CA RNDVZBIT # TURN OFF FLAGS
006993,000840: 06,2633 64761 AD IMUSEBIT
006994,000841: 06,2634 40000 COM
006995,000842: 06,2635 70074 MASK FLAGWRD0
006996,000843: 06,2636 56074 XCH FLAGWRD0 # IF GOING OFF, ALARM IF PROG USING IMU
006997,000844: 06,2637 40000 COM
006998,000845: 06,2640 74761 MASK IMUSEFLG
006999,000846: 06,2641 10000 CCS A
007000,000847: 06,2642 12222 TCF NXTIFAIL
007001,000848:
007002,000849: 06,2643 05671 TC ALARM
007003,000850: 06,2644 00214 OCT 214
007004,000851: 06,2645 12222 TCF NXTIFAIL
007005,000852:
007006,000853: # # Page 163
007007,000854: 06,2646 34767 IMUOP2 CAF DLAYFAIL
007008,000855: 06,2647 71333 MASK IMODES30
007009,000856: 06,2650 10000 CCS A
007010,000857: 06,2651 12222 TCF NXTIFAIL # IF SO, DON'T PROCESS UNTIL PRESENT 90
007011,000858: 06,2652 12562 TCF ITURNON2 # SECONDS EXPIRES.
007012,000859:
007013,000860: # # Page 164
007014,000861: # PROGRAM NAME: PIPFAIL
007015,000862:
007016,000863: # FUNCTIONAL DESCRIPTION: THIS PROGRAM PROCESSES CHANGES OF BIT 13 OF CHANNEL 33, PIPA FAIL. IT SETS BIT 10 OF
007017,000864: # IMODES30 TO AGREE. IT CALLS SETISSW IN CASE A PIPA FAIL NECESSITATES AN ISS WARNING. IF NOT, I.E., IMODES30
007018,000865: # BIT 1 = 1, AND A PIPA FAIL IS PRESENT AND THE ISS NOT BEING INITIALIZED, PROGRAM ALARM 0212 IS ISSUED.
007019,000866:
007020,000867: # CALLING SEQUENCE: BY C33TEST ON CHANGES OF CHANNEL 33 BIT 13.
007021,000868:
007022,000869: # JOBS OR TASKS INITIATED: NONE.
007023,000870:
007024,000871: # SUBROUTINES CALLED: 1) SETISSW, AND 2) ALARM (SEE FUNCITONAL DESCRIPTION).
007025,000872:
007026,000873: # ERASABLE INITIALIZATION: SEE IMUMON FOR INITIALIZATION OF IMODES30. THE RELEVANT BITS ARE 5, 7, 8, 9, AND 10.
007027,000874:
007028,000875: # ALARMS: PROGRAM ALARM 00212 IF PIPA FAIL IS PRESENT BUT NEITHER ISS WARNING IS TO BE ISSUED NOR THE ISS IS
007029,000876: # BEING INITIALIZED.
007030,000877:
007031,000878: # EXIT: NXTFL33.
007032,000879:
007033,000880: # OUTPUT: PROGRAM ALARM 00212 AND ISS WARNING MAINTENANCE.
007034,000881:
007035,000882: 06,2653 10000 PIPFAIL CCS A # SET BIT10 IN IMODES30 SO ALL ISS WARNING
007036,000883: 06,2654 34757 CAF PIPAFLBT # INFO IS IN ONE REGISTER.
007037,000884: 06,2655 57333 XCH IMODES30
007038,000885: 06,2656 73000 MASK -BIT10
007039,000886: 06,2657 27333 ADS IMODES30
007040,000887:
007041,000888: 06,2660 02706 TC SETISSW
007042,000889:
007043,000890: 06,2661 41333 CS IMODES30 # IF PIP FAIL DOESNT LIGHT ISS WARNING, DO
007044,000891: 06,2662 74770 MASK ACCFINHT # A PROGRAM ALARM IF IMU OPERATING BUT NOT
007045,000892: 06,2663 10000 CCS A # CAGED OR BEING TURNED ON.
007046,000893: 06,2664 12424 TCF NXTFL33
007047,000894:
007048,000895: 06,2665 31333 CA IMODES30
007049,000896: 06,2666 72776 MASK OCT1720
007050,000897: 06,2667 10000 CCS A
007051,000898: 06,2670 12424 TCF NXTFL33 # ABOVE CONDITION NOT MET.
007052,000899:
007053,000900: 06,2671 05671 TC ALARM
007054,000901: 06,2672 00212 OCT 212
007055,000902: 06,2673 12424 TCF NXTFL33
007056,000903:
007057,000904: # # Page 165
007058,000905: # PROGRAM NAMES: DNTMFAST, UPTMFAST
007059,000906:
007060,000907: # FUNCTIONAL DESCRIPTION: THESE PROGRAMS PROCESS CHANGES OF BITS 12 AND 11 OF CHANNEL 33. IF A BIT CHANGES TO A
007061,000908: # 0, A PROGRAM ALARM IS ISSUED. THE ALARMS ARE:
007062,000909:
007063,000910: # BIT ALARM CAUSE
007064,000911: # --- ----- -----
007065,000912: # 12 01105 DOWNLINK TOO FAST
007066,000913: # 11 01106 UPLINK TOO FAST
007067,000914:
007068,000915: # CALLING SEQUENCE: BY C33TEST ON A BIT CHANGE.
007069,000916:
007070,000917: # SUBROUTINES CALLED: ALARM, IF A BIT CHANGES TO A 0.
007071,000918:
007072,000919: # ERASABLE INITIALIZATION: FRESH START OR RESTART, BITS 12 AND 11 OF IMODES33 ARE SET TO 1.
007073,000920:
007074,000921: # ALARMS: SEE FUNCTIONAL DESCRIPTION.
007075,000922:
007076,000923: # EXIT: NXTFL33.
007077,000924:
007078,000925: # OUTPUT: PROGRAM ALARM ON A BIT CHANGE TO 0.
007079,000926:
007080,000927: 06,2674 10000 DNTMFAST CCS A # DO PROG ALARM IF TM TOO FAST.
007081,000928: 06,2675 12424 TCF NXTFL33
007082,000929:
007083,000930: 06,2676 05671 TC ALARM
007084,000931: 06,2677 01105 OCT 1105
007085,000932: 06,2700 12424 TCF NXTFL33
007086,000933:
007087,000934: 06,2701 10000 UPTMFAST CCS A # SAME AS DNLINK TOO FAST WITH DIFFERENT
007088,000935: 06,2702 12424 TCF NXTFL33 # ALARM CODE.
007089,000936:
007090,000937: 06,2703 05671 TC ALARM
007091,000938: 06,2704 01106 OCT 1106
007092,000939: 06,2705 12424 TCF NXTFL33
007093,000940:
007094,000941: # # Page 166
007095,000942: # PROGRAM NAME: SETISSW
007096,000943:
007097,000944: # FUNCTIONAL DESCRIPTION: THIS PROGRAM TURNS THE ISS WARNING LAMP ON AND OFF (CHANNEL 11 BIT 1 = 1 FOR ON,
007098,000945: # 0 FOR OFF) DEPENDING ON THE STATUS OF IMODES30 BITS 13 (IMU FAIL) AND 4 (INHIBIT IMU FAIL), 12 (ICDU FAIL) AND
007099,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
007100,000947: # PROGRESS.
007101,000948:
007102,000949: # CALLING SEQUENCE: CALLED BY IMUMON ON CHANGES TO IMU FAIL AND ICDU FAIL. CALLED BY IFAILOK AND PFAILOK UPON
007103,000950: # REMOVAL OF THE FAIL INHIBITS. CALLED BY PIPFAIL WHEN THE PIPA FAIL DISCRETE CHANGES. IT IS CALLED BY PIPUSE
007104,000951: # SINCE THE PIPA FAIL PROGRAM ALARM MAY NECESSITATE AN ISS WARNING, AND LIKEWISE BY PIPFREE WHEN THE ALARM DEPARTS
007105,000952: # AND IT IS CALLED BY IMUZERO3 AND ISSUP AFTER THE FAIL INHIBITS HAVE BEEN REMOVED.
007106,000953:
007107,000954: # JOBS OR TASKS INITIATED: NONE.
007108,000955:
007109,000956: # SUBROUTINES CALLED: NONE.
007110,000957:
007111,000958: # ERASABLE INITIALIZATION:
007112,000959:
007113,000960: # 1) IMODES30 - SEE IMUMON.
007114,000961: # 2) IMODES33 BIT 1 = 0 (LAMP TEST NOT IN PROGRESS).
007115,000962:
007116,000963: # ALARMS: ISS WARNING.
007117,000964:
007118,000965: # EXIT: VIA Q.
007119,000966:
007120,000967: # OUTPUT: ISS WARNING LAMP SET PROPERLY.
007121,000968:
007122,000969: 06,2706 34776 SETISSW CAF OCT15 # SET ISS WARNING USING THE FAIL BITS IN
007123,000970: 06,2707 71333 MASK IMODES30 # BITS 13, 12, AND 10 OF IMODES30 AND THE
007124,000971: 06,2710 00006 EXTEND # FAILURE INHIBIT BITS IN POSITIONS
007125,000972: 06,2711 74757 MP BIT10 # 4, 3, AND 1.
007126,000973: 06,2712 31333 CA IMODES30
007127,000974: 06,2713 00006 EXTEND
007128,000975: 06,2714 04001 ROR LCHAN # 0 INDICATES FAILURE
007129,000976: 06,2715 40000 COM
007130,000977: 06,2716 75054 MASK OCT15000
007131,000978: 06,2717 10000 CCS A
007132,000979: 06,2720 12731 TCF ISSWON # FAILURE.
007133,000980:
007134,000981: 06,2721 34770 ISSWOFF CAF LMPTSTBT # DONT TURN OFF ISS WARNING IF LAMP TEST
007135,000982: 06,2722 71334 MASK IMODES33 # IN PROGRESS.
007136,000983: 06,2723 10000 CCS A
007137,000984: 06,2724 00002 TC Q
007138,000985:
007139,000986: 06,2725 44770 CS BIT1
007140,000987: 06,2726 00006 EXTEND
007141,000988: 06,2727 03011 WAND DSALMOUT # TURN OFF ISS WARNING
007142,000989: 06,2730 00002 TC Q
007143,000990:
007144,000991: 06,2731 00006 ISSWON EXTEND
007145,000992: # # Page 167
007146,000993: 06,2732 22066 QXCH ITEMP6
007147,000994: 06,2733 05770 TC VARALARM # TELL EVERYONE WHAT CAUSED THE ISS WARNING
007148,000995: 06,2734 34770 CAF BIT1
007149,000996: 06,2735 00006 EXTEND
007150,000997: 06,2736 05011 WOR DSALMOUT # TURN ON ISS WARNING
007151,000998: 06,2737 00066 TC ITEMP6
007152,000999: 06,2740 47667 CAGESUB CS BIT15+6 # SET OUTBITS + INTERNAL FLAGS FOR
007153,001000: 06,2741 00006 EXTEND # SYSTEM TURN-ON OR CAGE. DISABLE THE
007154,001001: 06,2742 03012 WAND CHAN12 # ERROR COUNTER AND REMOVE IMU DELAY COMP.
007155,001002: 06,2743 35001 CAF BITS4&5 # SEND ZERO AND COARSE.
007156,001003: 06,2744 00006 EXTEND
007157,001004: 06,2745 05012 WOR CHAN12
007158,001005:
007159,001006: 06,2746 41241 CAGESUB1 CS DSPTAB +11D # TURN ON NO ATT LAMP
007160,001007: 06,2747 77664 MASK OC40010
007161,001008: 06,2750 27241 ADS DSPTAB +11D
007162,001009:
007163,001010: 06,2751 41333 CAGESUB2 CS IMODES30 # SET FLAGS TO INDICATE CAGING OR TURN-ON
007164,001011: 06,2752 75012 MASK OCT75 # AND INHIBIT ALL ISS WARNING INFO
007165,001012: 06,2753 27333 ADS IMODES30
007166,001013:
007167,001014: 06,2754 41334 CS IMODES33 # DISABLE DAP AUTO AND HOLD MODES
007168,001015: 06,2755 74763 MASK NOIMUDAP
007169,001016: 06,2756 27334 ADS IMODES33
007170,001017:
007171,001018: 06,2757 00002 TC Q
007172,001019:
007173,001020: 06,2760 06,2706 IMUFAIL EQUALS SETISSW
007174,001021: 06,2760 06,2706 ICDUFAIL EQUALS SETISSW
007175,001022:
007176,001023: # # Page 168
007177,001024: # JUMP TABLES AND CONSTANTS.
007178,001025:
007179,001026: 06,2760 12537 IFAILJMP TCF ITURNON # CHANNEL 30 DISPATCH.
007180,001027: 06,2761 12706 TCF IMUFAIL
007181,001028: 06,2762 12706 TCF ICDUFAIL
007182,001029: 06,2763 12566 TCF IMUCAGE
007183,001030: 06,2764 76400 30RDMSK OCT 76400 # (BIT 10 NOT SAMPLED HERE).
007184,001031: 06,2765 12620 TCF IMUOP
007185,001032:
007186,001033: 06,2766 12653 C33JMP TCF PIPFAIL # CHANNEL 33 DISPATCH.
007187,001034: 06,2767 12674 TCF DNTMFAST
007188,001035: 06,2770 12701 TCF UPTMFAST
007189,001036:
007190,001037: # SUBROUTINE TO SKIP IF LAMP TEST NOT IN PROGRESS.
007191,001038:
007192,001039: 06,2771 41334 LAMPTEST CS IMODES33 # BIT 1 OF IMODES33 = 1 IF LAMP TEST IN
007193,001040: 06,2772 74770 MASK LMPTSTBT # PROGRESS.
007194,001041: 06,2773 15651 TCF INCRQCK
007195,001042: 06,2774 5055 33RDMSK EQUALS PRIO16
007196,001043: 06,2774 7664 OC40010 EQUALS OT40010
007197,001044: 06,2774 00272 OCT272 OCT 00272
007198,001045: 06,2775 00300 BITS7&8 OCT 300
007199,001046: 06,2776 01720 OCT1720 OCT 1720
007200,001047: 06,2777 00740 OCT740 OCT 00740
007201,001048: 06,3000 5054 OCT15000 EQUALS PRIO15
007202,001049: 06,3000 76777 -BIT10 OCT -1000
007203,001050:
007204,001051: 06,3001 5775 120MS = OCT14 # (DEC 12)
007205,001052: 06,3001 5323 GLOCKOK EQUALS RESUME
007206,001053:
007207,001054: # # Page 169
007208,001055: # OPTICS MONITORING AND ZERO ROUTINES
007209,001056: 06,3001 31337 OPTMON CA OPTMODES # MONITOR OPTICS INBITS IN CHAN 30 AND 33
007210,001057: 06,3002 00006 EXTEND
007211,001058: 06,3003 06030 RXOR CHAN30 # LOOK FOR OCDU FAIL BIT CHANGE
007212,001059: 06,3004 74762 MASK OCDUFBIT
007213,001060: 06,3005 54070 TS RUPTREG1 # STORE CHANGE BIT
007214,001061: 06,3006 10000 CCS A
007215,001062: 06,3007 03221 TC OCDUFTST # PROCESS OCDUFAIL BIT CHANGE
007216,001063:
007217,001064: 06,3010 11323 33OPTMON CCS OPTIND # BYPASS IF TVC TAKEOVER
007218,001065: 06,3011 13015 TCF +4
007219,001066: 06,3012 13015 TCF +3
007220,001067: 06,3013 03256 TC OPDISAB # DISABLE OPTICS ERR CNTRS
007221,001068: 06,3014 15323 TCF RESUME
007222,001069:
007223,001070: 06,3015 31337 CA OPTMODES # LOOK FOR OPTICS MODE SWITCH CHANGE
007224,001071: 06,3016 00006 EXTEND
007225,001072: 06,3017 06033 RXOR CHAN33
007226,001073: 06,3020 75001 MASK OCTHIRTY
007227,001074: 06,3021 26070 ADS RUPTREG1 # STORE INBIT CHANGES
007228,001075: 06,3022 23337 LXCH OPTMODES
007229,001076: 06,3023 00006 EXTEND
007230,001077: 06,3024 06001 RXOR LCHAN
007231,001078: 06,3025 55337 TS OPTMODES # UPDATE OPTMODES TO SHOW BIT CHANGES
007232,001079:
007233,001080: 06,3026 30374 CA C31FLWRD
007234,001081: 06,3027 75001 MASK OCTHIRTY
007235,001082: 06,3030 00006 EXTEND
007236,001083: 06,3031 13037 BZF +6
007237,001084: 06,3032 54001 TS L # USE FAILWORD INDICATORS
007238,001085: 06,3033 45001 CS OCTHIRTY
007239,001086: 06,3034 71337 MASK OPTMODES
007240,001087: 06,3035 60001 AD L
007241,001088: 06,3036 55337 TS OPTMODES
007242,001089: 06,3037 41337 CS OPTMODES # SAMPLE CURRENT SWITCH SETTING
007243,001090: 06,3040 75001 MASK OCTHIRTY
007244,001091: 06,3041 00006 EXTEND
007245,001092: 06,3042 13047 BZF SETSAMP # MANUAL-SET ZERO IN SWSAMPLE
007246,001093:
007247,001094: 06,3043 74764 MASK OPMD1BIT # SEE IF CSC
007248,001095: 06,3044 10000 CCS A
007249,001096: 06,3045 03047 TC +2 # CSC-SET SWSAMPLE POS
007250,001097: 06,3046 37702 CAF NEGONE # ZOPTICS-SET SWSAMPLE (-1)
007251,001098: 06,3047 55354 SETSAMP TS SWSAMPLE # CURRENT OPTICS SWITCH SETTING
007252,001099:
007253,001100: 06,3050 11330 PROCESSW CCS DESOPMOD # BRANCH ON PREVIOUS SETTING
007254,001101: 06,3051 03143 TC CSCDES # CSC
007255,001102: 06,3052 03115 TC MANUDES # MANUAL
007256,001103: 06,3053 11354 ZOPTDES CCS SWSAMPLE # IS SWITCH STILL AT ZOPTICS
007257,001104: 06,3054 03132 TC ZTOCSC # NOW AT CSC
007258,001105: # # Page 170
007259,001106: 06,3055 03071 TC ZTOMAN # MANUAL
007260,001107: 06,3056 03101 TC ZOPFINI # ZOPTICS-SEE IF ZOPT PROCESSING
007261,001108: 06,3057 03124 TC SETDESMD # ZOPT NOT PROCESSING-NO ACTION
007262,001109:
007263,001110: 06,3060 11332 CCS ZOPTCNT # ZOPT PROCESSING-CHECK COUNTER
007264,001111: 06,3061 03123 TC SETCNT # 32 SAMPLE NOT FINISHED-SET COUNTER
007265,001112: 06,3062 34770 SETZOEND CAF BIT1 # 32 SAMPLE WAIT COMPLETED-SET UP ENDZOPT
007266,001113: 06,3063 00006 EXTEND
007267,001114: 06,3064 05012 WOR CHAN12 # SEND OCDU ZERO
007268,001115: 06,3065 34124 CAF 200MS # HOLD FOR 200MS
007269,001116: 06,3066 05223 TC TWIDDLE
007270,001117: 06,3067 03171 ADRES ENDZOPT
007271,001118: 06,3070 03124 TC SETDESMD
007272,001119: 06,3071 03101 ZTOMAN TC ZOPFINI # ZOP TO MANUAL-IS ZOPT DONE
007273,001120: 06,3072 03154 TC CSCTOMAN # YES
007274,001121: 06,3073 05671 ZOPALARM TC ALARM # ALARM-SWITCHED ALTERED WHILE ZOPTICS
007275,001122: 06,3074 00116 OCT 00116
007276,001123: 06,3075 34775 CAF OCT13 # PROCESSING-SET RETURN OPTION
007277,001124: 06,3076 55331 TS WTOPTION
007278,001125:
007279,001126: 06,3077 03104 TC CANZOPT # CANCEL ZOPT
007280,001127:
007281,001128: 06,3100 03154 TC CSCTOMAN
007282,001129: # BIT 1 OF OPTMODES HAS BEEN ELIMINATED.
007283,001130: # IF T4RUPT TIMING IS REDUCED, IT WILL
007284,001131: # BE NECESSARY TO REINSTATE THE BIT AS
007285,001132: # BEFORE, BUT PREVENT OPTICS LOCKOUT.
007286,001133: 06,3101 34766 ZOPFINI CAF ZOPTCS
007287,001134: 06,3102 71337 ZOPFIN2 MASK OPTMODES # RETURNS TO L+1 PROCESSING AND
007288,001135: 06,3103 15651 TCF INCRQCK # L+2 IF NOT
007289,001136: 06,3104 34766 CANZOPT CAF ZOPTCS # CANCEL ZERO OPTICS
007290,001137: 06,3105 64767 AD OCDUINHT
007291,001138: 06,3106 40000 COM
007292,001139: 06,3107 71337 MASK OPTMODES # ZERO ZOPT PROCESSING BIT-ENABLE OCDUFAIL
007293,001140: 06,3110 55337 TS OPTMODES
007294,001141: 06,3111 44770 CS BIT1 # MAKE SURE ZERO OCDU IS OFF
007295,001142: 06,3112 00006 EXTEND
007296,001143: 06,3113 03012 WAND CHAN12
007297,001144: 06,3114 00002 TC Q
007298,001145:
007299,001146: # # Page 171
007300,001147: 06,3115 11354 MANUDES CCS SWSAMPLE # SEE IF SWITCH STILL IN MANUAL MODE
007301,001148: 06,3116 03137 TC MANTOCSC # NOW AT CSC
007302,001149: 06,3117 03127 TC MANTOMAN # STILL MANUAL
007303,001150: 06,3120 11331 CCS WTOPTION # ZOPTICS-LOOK AT ZOPTICS RETURN OPTION
007304,001151: 06,3121 03150 TC CSCTOZOP +2 # 5 SEC RETURN GOOD- CONTINUE ZOPTICS
007305,001152: 06,3122 03146 TC CSCTOZOP
007306,001153: 06,3123 55332 SETCNT TS ZOPTCNT
007307,001154: 06,3124 31354 SETDESMD CA SWSAMPLE # SET CURRENT SWITCH INDICATOR- RESUME
007308,001155: 06,3125 55330 TS DESOPMOD
007309,001156: 06,3126 05323 TC RESUME
007310,001157: 06,3127 11331 MANTOMAN CCS WTOPTION # DECREMENT RETURN OPTION TIME
007311,001158: 06,3130 55331 TS WTOPTION
007312,001159: 06,3131 03124 TC SETDESMD
007313,001160:
007314,001161: 06,3132 03101 ZTOCSC TC ZOPFINI # SEE IF ZOPT PROCESSING
007315,001162: 06,3133 03142 TC MANTOCSC +3 # NO- RETURN TO COARS OPT
007316,001163: 06,3134 05671 TC ALARM # ZOPT PROCESSING- ALARM
007317,001164: 06,3135 00116 OCT 00116
007318,001165: 06,3136 03104 TC CANZOPT # CANCEL ZOPT
007319,001166: 06,3137 34772 MANTOCSC CAF ZERO # CANCEL ZOPT RETURN OPTION IF SET
007320,001167: 06,3140 55331 TS WTOPTION
007321,001168: 06,3141 55332 TS ZOPTCNT
007322,001169:
007323,001170: 06,3142 03154 +3 TC CSCTOMAN
007324,001171: 06,3143 11354 CSCDES CCS SWSAMPLE # SEE IF SWITCH STILL AT CSC
007325,001172: 06,3144 03124 TC SETDESMD # STILL AT CSC
007326,001173: 06,3145 03154 TC CSCTOMAN # MANUAL
007327,001174: 06,3146 34763 CSCTOZOP CAF OCT40 # ZOPTICS-INITIALIZE FOR ZOPT
007328,001175: 06,3147 55332 TS ZOPTCNT
007329,001176: 06,3150 03213 +2 TC INITZOPT
007330,001177: 06,3151 04077 TC NOOPRATE
007331,001178: 06,3152 03257 TC ECDISAB
007332,001179: 06,3153 03124 TC SETDESMD
007333,001180: 06,3154 11323 CSCTOMAN CCS OPTIND # IS THE OPTICS IN USE
007334,001181: 06,3155 03161 TC CANCOARS # YES DISABLE OPTICS ERR CNTRS, SET TVC
007335,001182: 06,3156 03161 TC CANCOARS # ENABLE BIT IF IN MANUAL AND REENABLE
007336,001183: 06,3157 03160 TC +1 # OPTICS ERR CNTRS
007337,001184: 06,3160 03124 TC SETDESMD # NO NORMAL EXIT
007338,001185: 06,3161 34772 CANCOARS CAF ZERO
007339,001186: 06,3162 54740 TS TOLD
007340,001187: 06,3163 54741 TS SOLD
007341,001188: 06,3164 03257 TC ECDISAB # DISABLE OP ERR CNTRS
007342,001189: 06,3165 36211 CA SIX # ENABLE ERR CNTRS AFTER 60 MS
007343,001190: 06,3166 05223 TC TWIDDLE
007344,001191: 06,3167 03263 ADRES ECENAB
007345,001192: 06,3170 03124 TC SETDESMD
007346,001193: 06,3171 34772 ENDZOPT CA ZERO
007347,001194: 06,3172 54036 TS CDUS # ZERO IN CDUS, -20 IN CDUT
007348,001195: 06,3173 55327 TS ZONE # INITIALIZE SHAFT MONITOR ZONE
007349,001196: 06,3174 43671 CS 20DEGS
007350,001197: # # Page 172
007351,001198: 06,3175 54035 TS CDUT
007352,001199: 06,3176 44770 CS BIT1 # TURN OFF ZERO OCDU
007353,001200: 06,3177 00006 EXTEND
007354,001201: 06,3200 03012 WAND CHAN12
007355,001202: 06,3201 34124 CAF 200MS # DELAY 200MS FOR CDUS TO RESYNCHRONIZE
007356,001203: 06,3202 05260 TC VARDELAY
007357,001204:
007358,001205: 06,3203 41337 CS OPTMODES # SHOW ZOPTICS SINCE LAST FRESH START
007359,001206: 06,3204 74757 MASK ZROPTFIN # OR RESTART
007360,001207: 06,3205 27337 ADS OPTMODES
007361,001208:
007362,001209: 06,3206 46211 CS SIX
007363,001210: 06,3207 71337 MASK OPTMODES
007364,001211: 06,3210 55337 TS OPTMODES
007365,001212:
007366,001213: 06,3211 03221 TC OCDUFTST # CHECK OCDU FAIL BIT AFTER ENABLE
007367,001214:
007368,001215: 06,3212 05314 TC TASKOVER
007369,001216:
007370,001217: 06,3213 34772 INITZOPT CAF ZERO # INITIALIZE ZOPTICS-INHIBIT OCDUFAIL
007371,001218: 06,3214 55331 TS WTOPTION # AND SHOW OPTICS PROCESSING
007372,001219: 06,3215 41337 CS OPTMODES # SET ZERO OPTICS PROCESSING
007373,001220: 06,3216 76211 MASK SIX # OPTICS CDU FAIL INHIBITED
007374,001221: 06,3217 27337 ADS OPTMODES
007375,001222: 06,3220 00002 TC Q
007376,001223:
007377,001224: # # Page 173
007378,001225: 06,3221 34762 OCDUFTST CAF BIT7 # SEE IF OCDUFAIL ON OR OFF
007379,001226: 06,3222 00006 EXTEND
007380,001227: 06,3223 02030 RAND CHAN30
007381,001228: 06,3224 10000 CCS A
007382,001229: 06,3225 13247 TCF OPFAILOF # OCDUFAIL LIGHT OFF
007383,001230:
007384,001231: 06,3226 34767 CAF OCDUINHT # OCDUFAIL LIGHT ON UNLESS INHIBITED
007385,001232: 06,3227 71337 MASK OPTMODES
007386,001233: 06,3230 10000 CCS A
007387,001234: 06,3231 00002 TC Q # OCDUFAIL INHIBITED
007388,001235:
007389,001236: 06,3232 34761 OPFAILON CAF BIT8 # ON BIT
007390,001237: 06,3233 61241 AD DSPTAB +11D
007391,001238: 06,3234 74761 MASK BIT8
007392,001239: 06,3235 00006 SETOFF EXTEND
007393,001240: 06,3236 16711 BZF TCQ # NO CHANGE
007394,001241:
007395,001242: 06,3237 54001 TS L
007396,001243: 06,3240 31241 CA DSPTAB +11D
007397,001244: 06,3241 00006 EXTEND
007398,001245: 06,3242 06001 RXOR LCHAN
007399,001246: 06,3243 74750 MASK POSMAX
007400,001247: 06,3244 64752 AD BIT15 # SHOW ACTION WANTED
007401,001248: 06,3245 55241 TS DSPTAB +11D
007402,001249: 06,3246 00002 TC Q
007403,001250:
007404,001251: 06,3247 34770 OPFAILOF CAF LMPTSTBT # DONT TURN OFF IF LAMP TEST
007405,001252: 06,3250 71334 MASK IMODES33
007406,001253: 06,3251 10000 CCS A
007407,001254: 06,3252 00002 TC Q # LAMP TEST IN PROGRESS
007408,001255:
007409,001256: 06,3253 34761 CAF BIT8 # TURN OFF OCDUFAIL LIGHT
007410,001257: 06,3254 71241 MASK DSPTAB +11D
007411,001258: 06,3255 13235 TCF SETOFF
007412,001259:
007413,001260: 06,3256 24002 OPDISAB INCR Q
007414,001261: 06,3257 44767 ECDISAB CS BIT2
007415,001262: 06,3260 00006 EXTEND
007416,001263: 06,3261 03012 WAND CHAN12
007417,001264: 06,3262 00002 TC Q
007418,001265: 06,3263 31354 ECENAB CA SWSAMPLE
007419,001266: 06,3264 00006 EXTEND
007420,001267: 06,3265 13267 BZF +2 # MANUAL SET TVC ENABLE
007421,001268: 06,3266 13272 TCF ECENAB1
007422,001269: 06,3267 34761 CAF BIT8
007423,001270: 06,3270 00006 EXTEND
007424,001271: 06,3271 05012 WOR CHAN12
007425,001272: 06,3272 34767 ECENAB1 CAF BIT2
007426,001273: 06,3273 00006 EXTEND
007427,001274: 06,3274 05012 WOR CHAN12
007428,001275: # # Page 174
007429,001276: 06,3275 05314 TC TASKOVER
007430,001277: 06,3276 4775 OCT13 = ELEVEN
007431,001278: 06,3276 5001 OCTHIRTY EQUALS BITS4&5
007432,001279: 06,3276 4763 OCT40 EQUALS BIT6
007433,001280: 06,3276 4124 200MS EQUALS OCT24
007434,001281:
007435,001282: # # Page 175
007436,001283: # OPTICS CDU DRIVING PROGRAM
007437,001284:
007438,001285: 10,2000 SETLOC OPTDRV
007439,001286: 10,2000 BANK
007440,001287: 10,2000 COUNT* $$/SXT
007441,001288:
007442,001289: # SHAFT STOP MONITOR-ZONE UPDATE
007443,001290:
007444,001291: 10,2000 30036 OPTDRIVE CA CDUS # GRAB OPTIC SHAFT CDU
007445,001292: 10,2001 54001 TS L
007446,001293: 10,2002 10000 CCS A # GET ABS(CDUS)
007447,001294: 10,2003 67673 AD 13,14,15
007448,001295: 10,2004 12006 TCF +2 # ABS(CDUS) - 45 DEG
007449,001296: 10,2005 12003 TCF -2
007450,001297: 10,2006 00006 EXTEND
007451,001298: 10,2007 62016 BZMF OZONE # LESS THAN 45 DEG-SET ZONE 0
007452,001299: 10,2010 31327 CA ZONE # IF ZONE ZERO, CHANGE TO + OR - OTHERWISE
007453,001300: 10,2011 00006 EXTEND # DON'T MESS WITH ZONE
007454,001301: 10,2012 12014 BZF +2
007455,001302: 10,2013 12020 TCF CONTDRVE # JUST CONTINUE
007456,001303: 10,2014 56001 XCH L # GREATER THAN 45 DEG-SET ZONE TO SIGN CDU
007457,001304: 10,2015 12017 TCF OZONE +1
007458,001305: 10,2016 34772 OZONE CAF ZERO # ABS(CDUS) LESS THAN 90 DEG-ZONE ZERO
007459,001306: 10,2017 55327 TS ZONE
007460,001307: 10,2020 COUNT* $$/T4RPT
007461,001308: 10,2020 11323 CONTDRVE CCS OPTIND
007462,001309: 10,2021 02025 TC +4 # WORK COARS OPTICS
007463,001310: 10,2022 02025 TC +3 # WORK COARS OPTICS
007464,001311: 10,2023 04077 TC NOOPRATE # NO OPT DISABLE TVC
007465,001312: 10,2024 05323 TC RESUME # NO OPT
007466,001313:
007467,001314: 10,2025 31354 CA SWSAMPLE # SEE IF SWITCH AT CMC
007468,001315: 10,2026 00006 EXTEND
007469,001316: 10,2027 12226 BZF TVCBCK
007470,001317: 10,2030 00006 EXTEND
007471,001318: 10,2031 65323 BZMF RESUME
007472,001319: 10,2032 34757 RATEDRV1 CAF ZROPTFIN # SEE IF OCDUS ZEROED SINCE LAST FSTART
007473,001320: 10,2033 71337 MASK OPTMODES
007474,001321: 10,2034 10000 CCS A
007475,001322: 10,2035 02040 TC +3
007476,001323: 10,2036 05671 TC ALARM # OPTICS NOT ZEROED
007477,001324: 10,2037 00120 OCT 00120
007478,001325:
007479,001326: 10,2040 34767 CA BIT2 # SEE IF ERR CNTS ENABLED
007480,001327: 10,2041 00006 EXTEND
007481,001328: 10,2042 02012 RAND CHAN12
007482,001329: 10,2043 00006 EXTEND
007483,001330: 10,2044 12204 BZF SETBIT # CNTS NOT ENABLED-DO IT AND RESUME
007484,001331:
007485,001332: 10,2045 34770 CAF ONE # INITIALIZE OPTIND
007486,001333: # # Page 176
007487,001334: 10,2046 55323 OPT2 TS OPTIND
007488,001335: 10,2047 51323 GETOPCMD INDEX OPTIND
007489,001336: 10,2050 31312 CA DESOPTT # PICK UP DESIRED OPT ANGLE
007490,001337: 10,2051 00006 EXTEND
007491,001338: 10,2052 51323 INDEX OPTIND
007492,001339: 10,2053 20035 MSU CDUT # GET DIFFERENCE
007493,001340: 10,2054 00006 EXTEND
007494,001341: 10,2055 74754 MP BIT13
007495,001342: 10,2056 56001 XCH L
007496,001343: 10,2057 60000 DOUBLE
007497,001344: 10,2060 54061 TS ITEMP1
007498,001345: 10,2061 12063 TCF +2 # NO OVFL
007499,001346:
007500,001347: 10,2062 26001 ADS L # WITH OVFL
007501,001348: 10,2063 51323 STORCMD INDEX OPTIND
007502,001349: 10,2064 23325 LXCH COMMANDO # STORE COMMAND
007503,001350: 10,2065 11323 CCS OPTIND
007504,001351: 10,2066 12140 TCF TRUNCMD # GET TRUN COMMAND
007505,001352: 10,2067 54061 TS ITEMP1 # INITIALIZE SEND INDICATOR TO ZERO
007506,001353: 10,2070 COUNT* $$/SXT
007507,001354:
007508,001355: # SHAFT STOP AVOIDANCE
007509,001356:
007510,001357: 10,2070 10036 CCS CDUS # IF CDUS GREATER THAN + OR - 90 DEG CHECK
007511,001358: 10,2071 64751 AD NEG1/2 # FOR POSSIBLE STOP PROBLEM
007512,001359: 10,2072 12074 TCF +2
007513,001360: 10,2073 12071 TCF -2
007514,001361: 10,2074 00006 EXTEND
007515,001362: 10,2075 62124 BZMF CMDSETUP # CDU LESS THAN 90 DEG, NO PROBLEMS
007516,001363:
007517,001364: 10,2076 31327 CA ZONE
007518,001365: 10,2077 00006 EXTEND
007519,001366: 10,2100 12124 BZF CMDSETUP # ZONE=3, NORMAL COMMAND
007520,001367: 10,2101 74752 MASK BIT15 # GRAB SIGN OF ZONE
007521,001368: 10,2102 54001 TS L
007522,001369: 10,2103 31326 CA COMMANDO +1
007523,001370: 10,2104 74752 MASK BIT15 # GRAB SIGN OF SHAFT COMMAND
007524,001371: 10,2105 00006 EXTEND
007525,001372: 10,2106 06001 RXOR LCHAN
007526,001373: 10,2107 10000 CCS A
007527,001374: 10,2110 12124 TCF CMDSETUP # SIGN ZONE NOT EQUAL TO SIGN COMMAND
007528,001375: 10,2111 11313 CCS DESOPTS # SEE IF DESOPTS BETWEEN -90 AND +90
007529,001376: 10,2112 64751 AD NEG1/2
007530,001377: 10,2113 12115 TCF +2 # ABS(DESOPTS) - 90 DEG
007531,001378: 10,2114 12112 TCF -2
007532,001379: 10,2115 00006 EXTEND
007533,001380: 10,2116 62120 BZMF +2 # DESOPTS IN FIRST OR FOURTH QUAD
007534,001381: 10,2117 12124 TCF CMDSETUP
007535,001382: 10,2120 41326 CS COMMANDO +1 # REVERSE REGULAR COMMAND
007536,001383: 10,2121 55326 TS COMMANDO +1
007537,001384: # # Page 177
007538,001385: 10,2122 34772 CAF ZERO # ZERO DESIRED SHAFT RATE
007539,001386: 10,2123 54736 TS SRATE
007540,001387: 10,2124 COUNT* $$/T4RPT
007541,001388:
007542,001389: 10,2124 31354 CMDSETUP CA SWSAMPLE
007543,001390: 10,2125 00006 EXTEND
007544,001391: 10,2126 12212 BZF RATEDRV2
007545,001392: 10,2127 04077 TC NOOPRATE # DISABLE TVC DAP BIT
007546,001393: 10,2130 34770 CAF ONE # SET OPTIND
007547,001394: 10,2131 55323 CMDSET TS OPTIND
007548,001395: 10,2132 50000 INDEX A
007549,001396: 10,2133 11325 CCS COMMANDO # GET SIGN OF COMMAND
007550,001397: 10,2134 02153 TC POSOPCMD
007551,001398: 10,2135 02160 TC NEXTOPT +1 # ZERO COMMAND-SKIP SEND INDICATOR
007552,001399: 10,2136 02170 TC NEGOPCMD
007553,001400: 10,2137 02160 TC NEXTOPT +1 # ZERO COMMAND
007554,001401:
007555,001402: 10,2140 55323 TRUNCMD TS OPTIND
007556,001403: 10,2141 40035 CS CDUT # IF COMMAND GREATER THAN 45 DEG-COMMAND
007557,001404: 10,2142 61312 AD DESOPTT # 45 DEG
007558,001405: 10,2143 54002 TS Q
007559,001406: 10,2144 02047 TC GETOPCMD # LESS THAN 45 DEG-NORMAL OPERATION
007560,001407:
007561,001408: 10,2145 10000 CCS A # GREATER THAN 45 DEG-USE OPSMAX WITH
007562,001409: 10,2146 34750 CA POSMAX # CORRECT SIGN
007563,001410: 10,2147 02151 TC +2
007564,001411: 10,2150 44750 CS POSMAX
007565,001412: 10,2151 54001 TS L
007566,001413: 10,2152 02063 TC STORCMD
007567,001414: 10,2153 62211 POSOPCMD AD MAXPLS1
007568,001415: 10,2154 00006 EXTEND
007569,001416: 10,2155 62175 BZMF DELOPCMD # COMMAND LESS THAN MAX PULSE
007570,001417: 10,2156 42210 CS MAXPLS # GREATER THAN MAX PULSE-USE MAX PULSE
007571,001418:
007572,001419: 10,2157 24061 NEXTOPT INCR ITEMP1 # SET SEND INDICATOR
007573,001420: 10,2160 64771 +1 AD NEG0 # MAKE SURE ZERO COMMAND IS -ZERO
007574,001421: 10,2161 51323 INDEX OPTIND
007575,001422: 10,2162 54053 TS CDUTCMD # STORE PULSE IN SEND REG
007576,001423:
007577,001424: 10,2163 11323 CCS OPTIND
007578,001425: 10,2164 02131 TC CMDSET # GET NEXT OPT
007579,001426: 10,2165 10061 CCS ITEMP1 # ARE ANY PULSES TO GO
007580,001427: 10,2166 12200 TCF SENDOCMD # YES-SEND EM
007581,001428: 10,2167 05323 TC RESUME # NO
007582,001429:
007583,001430: 10,2170 62211 NEGOPCMD AD MAXPLS1
007584,001431: 10,2171 00006 EXTEND
007585,001432: 10,2172 62175 BZMF DELOPCMD # LESS THAN MAX PULSE
007586,001433: 10,2173 32210 CA MAXPLS # MAX PULSES
007587,001434: 10,2174 12157 TCF NEXTOPT
007588,001435: # # Page 178
007589,001436: 10,2175 51323 DELOPCMD INDEX OPTIND
007590,001437: 10,2176 57325 XCH COMMANDO # SET UP SMALL COMMAND
007591,001438: 10,2177 12157 TCF NEXTOPT
007592,001439:
007593,001440: 10,2200 35050 SENDOCMD CAF 11,12 # SEND OCDU DRIVE COMMANDS
007594,001441: 10,2201 00006 EXTEND
007595,001442: 10,2202 05014 WOR CHAN14
007596,001443: 10,2203 05323 TC RESUME
007597,001444:
007598,001445: 10,2204 34767 SETBIT CAF BIT2 # ENABLE OCDU ERR CNTS
007599,001446: 10,2205 00006 EXTEND
007600,001447: 10,2206 05012 WOR CHAN12
007601,001448: 10,2207 05323 TC RESUME # START COARS NEXT TIME AROUND
007602,001449:
007603,001450: 10,2210 77654 MAXPLS DEC -83 B-14 # WAS -165
007604,001451: 10,2211 77655 MAXPLS1 DEC -82 B-14 # WAS -164
007605,001452: 10,2212 5050 11,12 EQUALS PRIO6
007606,001453: 10,2212 40741 RATEDRV2 CS SOLD
007607,001454: 10,2213 60736 AD SRATE
007608,001455: 10,2214 64771 AD NEG0
007609,001456: 10,2215 54001 TS L
007610,001457: 10,2216 40740 CS TOLD
007611,001458: 10,2217 60735 AD TRATE
007612,001459: 10,2220 64771 AD NEG0
007613,001460: 10,2221 52054 DXCH CDUTCMD
007614,001461: 10,2222 00006 EXTEND
007615,001462: 10,2223 30736 DCA TRATE
007616,001463: 10,2224 52741 DXCH TOLD
007617,001464: 10,2225 02200 TC SENDOCMD
007618,001465: 10,2226 34761 TVCBCK CAF BIT8 # IS TVC BIT ENABLED
007619,001466: 10,2227 00006 EXTEND
007620,001467: 10,2230 02012 RAND CHAN12
007621,001468: 10,2231 00006 EXTEND
007622,001469: 10,2232 12234 BZF +2
007623,001470: 10,2233 02032 TC RATEDRV1
007624,001471: 10,2234 34761 CAF BIT8 # NO TURN IT ON
007625,001472: 10,2235 00006 EXTEND
007626,001473: 10,2236 05012 WOR CHAN12
007627,001474: 10,2237 05323 TC RESUME
007628,001475: 4000 SETLOC STOPRAT
007629,001476: 4000 BANK
007630,001477: 4077 COUNT* $$/T4RPT
007631,001478: 4077 44761 NOOPRATE CS BIT8
007632,001479: 4100 00006 EXTEND
007633,001480: 4101 03012 WAND CHAN12
007634,001481: 4102 00002 TC Q
End of include-file T4RUPT_PROGRAM.agc. Parent file is MAIN.agc