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