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