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