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