Source Code
|
These source-code files were obtained by digitally photographing
a Solarium 55 (Apollo 6) program listing from the American Computer Museum in
Bozeman, Montana. Photography was by Ron Burkey, with assistance from
museum curator George Keremedjiev and Montana
State University curator Kim Scott. The listing originally belonged to Eldon C. Hall,
who donated it to the museum. Volunteers then manually typed in the
source code or else modified similar pre-existing Colossus 249
(Apollo 9) source files to incorporate changes, although this transcription was
principally done by Jim Lawton and corrected by Ron Burkey.
Notations on the program listing read, in part:
YUL SYSTEM FOR AGC4: REVISION 0 OF PROGRAM SOLRUM55
BY NASA 1021108-021 DEC. 4, 1966
Note that the date is the date of the printout, not the date of the program revision.
Due to statements by Jay Sampson, the original contractor from AC Electronics
who created Solarium 54 (Apollo 4)
from the earlier Corona (AS-202 mission) program, it is believed that Solarium 54 and
Solarium 55 (Apollo 6) are actually identical programs. The change in numbering,
from 54 to 55, is believed to be for some administrative purpose. Thus, it is believed
that the source-code represented here is equally appropriate for both Apollo 4 and
Apollo 6 missions.
|
006309,000002: ## Copyright: Public domain.
006310,000003: ## Filename: T4RUPT_OUTPUT_CONTROL_PROGRAMS.agc
006311,000004: ## Purpose: Part of the source code for Solarium build 55. This
006312,000005: ## is for the Command Module's (CM) Apollo Guidance
006313,000006: ## Computer (AGC), for Apollo 6.
006314,000007: ## Assembler: yaYUL --block1
006315,000008: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
006316,000009: ## Website: www.ibiblio.org/apollo/index.html
006317,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Solarium055/
006318,000011: ## Mod history: 2009-10-02 JL Created.
006319,000012: ## 2016-08-18 RSB Typo.
006320,000013: ## 2016-08-23 RSB More of the same.
006321,000014: ## 2016-12-28 RSB Proofed comment text using octopus/ProoferComments,
006322,000015: ## and fixed errors found.
006323,000016:
|
|
Page 159
|
006325,000018: 2630 BANK 1
006326,000019: 2630 35501 T4RUPT CAF ZERO # ALONSO THINKS THIS SHOULD BE TURNED OFF
006327,000020: 2631 50010 TS OUT0 # EVERY 60 MS AS A MATTER OF COURSE.
006328,000021: 2632 10033 CCS DSRUPTSW # SEE IF THIS IS A SPECIAL RUPT TO
006329,000022: 2633 02643 TC REGRUPT +1 # ZERO OUT0 20MS AFTER IT WAS DRIVEN BY
006330,000023: 2634 02642 TC REGRUPT # DSPOUT. IF SO, DSRUPTSW IS NNZ.
006331,000024:
006332,000025: 2635 64516 AD ONE # RESTORE DSRUPTSW TO ITS POSITIVE VALUE.
006333,000026: 2636 50033 TS DSRUPTSW
006334,000027:
006335,000028: 2637 32651 CAF 40MSRUPT # SET TIME4 TO INTERRUPT 40 MS FROM NOW.
006336,000029: 2640 50040 TS TIME4 # RE-ESTABLISHING THE REGULAR 60 MS
006337,000030: 2641 02266 TC NBRESUME # PATTERN. THEN DO NO-BANK-SWITCH RESUME.
006338,000031:
006339,000032: 2642 35362 REGRUPT CAF SEVEN # REGULAR 60 MS RUPT - COUNT DOWN ON
006340,000033: 2643 50033 +1 TS DSRUPTSW # DSRUPTSW.
006341,000034:
006342,000035: 2644 32650 CAF LT4RUPTA # CALL IN APPROPRIATE BANK.
006343,000036: 2645 30015 XCH BANKREG # SAVE BANKREG FOR RESUME.
006344,000037: 2646 50030 TS BANKRUPT
006345,000038: 2647 06115 TC T4RUPTA
006346,000039:
006347,000040: 2650 20115 LT4RUPTA CADR T4RUPTA
006348,000041:
006349,000042: 2651 37774 40MSRUPT OCT 37774 # INTERRUPT IN 40 MS.
006350,000043:
006351,000044:
006352,000045: # RELTAB IS A PACKED TABLE. RELAYWORD CODE IN UPPER 4 BITS, RELAY CODE
006353,000046: # IN LOWER 5 BITS.
006354,000047:
006355,000048: 2652 04025 RELTAB OCT 04025
006356,000049: 2653 10003 OCT 10003
006357,000050: 2654 14031 OCT 14031
006358,000051: 2655 20033 OCT 20033
006359,000052: 2656 24017 OCT 24017
006360,000053: 2657 30036 OCT 30036
006361,000054: 2660 34034 OCT 34034
006362,000055: 2661 40023 OCT 40023
006363,000056: 2662 44035 OCT 44035
006364,000057: 2663 50037 OCT 50037
006365,000058: 2664 54000 OCT 54000
006366,000059: 2665 60000 RELTAB11 OCT 60000
006367,000060: 2666 64000 OCT 64000
006368,000061: 2667 70000 70K OCT 70000 # ALSO USEFUL AS A BANK-SWITCHING MASK.
006369,000062:
|
|
Page 160
|
006371,000064:
006372,000065: # ROUTINE TO ZERO (OR PSEUDO-ZERO) THE OPTICS COUNTERS.
006373,000066:
006374,000067: 2670 35501 ZEROOCTR CAF ZERO
006375,000068: 2671 50052 TS OPTX
006376,000069: # RIGHT HERE WE USED TO TEST BIT 13 OF WASOPSET. NOW ASSUME
006377,000070: # UNCONDITIONALLY THAT SXT POWER IS ON (BIT 13 = 1).
006378,000071: 2672 42675 CS 20DEGS # SET OPTY APPROX -20 DEGS (SXT ON)
006379,000072: 2673 50053 TS OPTY
006380,000073: 2674 00001 TC Q
006381,000074:
006382,000075: 2675 16037 20DEGS DEC 7199 B-14
006383,000076:
|
|
Page 161
|
006385,000078:
006386,000079: # SWITCHED-BANK PORTION OF T4RUPT.
006387,000080:
006388,000081: 10,6115 BANK 10
006389,000082: 10,6115 30034 T4RUPTA XCH OVCTR # SAVE OVCTR.
006390,000083: 10,6116 50031 TS OVRUPT
006391,000084:
006392,000085: 10,6117 37047 CAF 60MSRUPT # T4 NORMALLY INTERRUPTS EVERY 60 MS.
006393,000086: 10,6120 50040 TS TIME4
006394,000087:
006395,000088: 10,6121 30004 XCH IN0 # RESET IN0 TO PRESENT VALUE OF DESCRETES.
006396,000089: 10,6122 36140 CAF DSKYMASK # RESET DOUBLE-ENTRY INTERLOCK IF KEYCODE
006397,000090: 10,6123 70004 MASK IN0 # HAS DISAPPEARED.
006398,000091: 10,6124 10000 CCS A
006399,000092: 10,6125 06133 TC DSKYON
006400,000093: 10,6126 06130 TC +2 # RESET.
006401,000094: 10,6127 06133 TC DSKYON
006402,000095:
006403,000096: 10,6130 44512 CS BIT5
006404,000097: 10,6131 70645 MASK STATE
006405,000098: 10,6132 50645 TS STATE
006406,000099:
006407,000100: 10,6133 10677 DSKYON CCS CDUIND # DO AN IMU-CDU IF DESIRED.
006408,000101: 10,6134 06142 TC DOIMUCDU +1 # WITH NEW CDUIND IN A.
006409,000102: 10,6135 06141 TC DOIMUCDU # SET COUNT TO 2.
006410,000103:
006411,000104: 10,6136 06223 TC DSRUPTBR # NO CDU. NNZ MEANS CDUS ARE RESERVED.
006412,000105: 10,6137 06223 TC DSRUPTBR # -0 MEANS THEY ARE AVAILABLE.
006413,000106:
006414,000107:
006415,000108:
006416,000109: 10,6140 40037 DSKYMASK OCT 40037 # INCLUDES KEYCODE AND MARK BIT.
006417,000110:
|
|
Page 162
|
006419,000112:
006420,000113: # T4RUPT IMU CDU DRIVE - SERVICED EVERY 60 MS.
006421,000114:
006422,000115: 10,6141 35503 DOIMUCDU CAF TWO # SET CDUIND BACK TO 2.
006423,000116: 10,6142 50677 +1 TS CDUIND
006424,000117:
006425,000118: 10,6143 30003 XCH LP # SAVE LP FOR IMU CDU DRIVE ONLY.
006426,000119: 10,6144 50032 TS LPRUPT
006427,000120:
006428,000121: 10,6145 20677 INDEX CDUIND # 0 FOR X, 1 FOR Y, AND 2 FOR Z.
006429,000122: 10,6146 40700 CS THETAD # PICK UP DESIRED ANGLE.
006430,000123: 10,6147 50600 TS ITEMP2
006431,000124:
006432,000125: 10,6150 20677 INDEX CDUIND
006433,000126: 10,6151 40047 CS CDUX # READ AND SAVE CDU COUNTER.
006434,000127: 10,6152 07410 TC 2SCOMDIF # DIFFERENCE WITH -0 UNEQUAL TO +0.
006435,000128:
006436,000129: 10,6153 25777 EXTEND # RETURNS WITH DIFFERENCE IN A.
006437,000130: 10,6154 46215 MP KG
006438,000131: 10,6155 50577 TS ITEMP1 # COMMAND TO TEMP STORAGE
006439,000132: 10,6156 10000 CCS A # CHECK SIGNUM OF COMMAND
006440,000133: 10,6157 06166 TC POSCOM2
006441,000134: 10,6160 06220 TC CDURSM
006442,000135: 10,6161 06163 TC NEGCOM2
006443,000136: 10,6162 06220 TC CDURSM
|
|
Page 163
|
006445,000138:
006446,000139: 10,6163 50577 NEGCOM2 TS ITEMP1 # SAVE CCS OF COMMAND.
006447,000140: 10,6164 40677 CS CDUIND # USE NEGATIVE TO SELECT OUT2 PATTERN.
006448,000141: 10,6165 06171 TC CDUOUT
006449,000142:
006450,000143: 10,6166 50577 POSCOM2 TS ITEMP1 # SAME AS ABOVE EXCEPT 1+CDUIND SELECTS.
006451,000144: 10,6167 34516 CAF ONE
006452,000145: 10,6170 60677 AD CDUIND
006453,000146:
006454,000147: 10,6171 50034 CDUOUT TS OVCTR
006455,000148: 10,6172 36200 CAF DUMCODE # CODE WHICH INTERRUPTS OUT2 PULSES DURING
006456,000149: 10,6173 30012 XCH OUT2 # OUT2 MODIFICATION, BUT ALLOWS DETEC-
006457,000150: 10,6174 77465 MASK LOW8 # TION OF THE VERY RARE EVENT THAT THE
006458,000151: 10,6175 30012 XCH OUT2 # PULSE THATRESETS ANOTHER FIELD OF OUT2
006459,000152: 10,6176 66201 AD -DUMCODE # WAS REQUESTED DURING THE ORIGINAL
006460,000153: 10,6177 10000 CCS A # XCH OUT2.
006461,000154: 10,6200 02040 DUMCODE OCT 02040 # INCOMPLETE OUT2 SETTINGS (X AND OPTX).
006462,000155: 10,6201 75737 -DUMCODE OCT -2040
006463,000156: 10,6202 07377 TC JACKPOT # THE PROBABILITY OF THIS IS ABOUT ZERO.
006464,000157:
006465,000158: 10,6203 40577 CS ITEMP1 # FORM 1.0 - ABS(COMMAND).
006466,000159: 10,6204 64476 AD POSMAX
006467,000160: 10,6205 50042 TS OUTCR1
006468,000161:
006469,000162: 10,6206 36200 CAF DUMCODE
006470,000163: 10,6207 30012 XCH OUT2 # NOW ENABLE OUTCR1 BY SETTING OUT2.
006471,000164: 10,6210 20034 INDEX OVCTR
006472,000165: 10,6211 67452 AD CDUCODES +2
006473,000166: 10,6212 30012 XCH OUT2
006474,000167: 10,6213 66201 AD -DUMCODE
006475,000168: 10,6214 10000 CCS A
006476,000169:
006477,000170: 10,6215 05605 KG DEC .18 # CDU DRIVING GAIN
006478,000171: 10,6216 03062 TC CCSHOLE
006479,000172: 10,6217 07377 TC JACKPOT
006480,000173:
006481,000174: 10,6220 34516 CDURSM CAF ONE # RESTORE LP.
006482,000175: 10,6221 25777 EXTEND
006483,000176: 10,6222 40032 MP LPRUPT
006484,000177:
|
|
Page 164
|
006486,000179:
006487,000180: # BRANCH ACCORDING TO DSRUPTSW AND PERFORM THE APPROPRIATE DSRUPT FUNCTIONS.
006488,000181:
006489,000182: 10,6223 20033 DSRUPTBR INDEX DSRUPTSW # JUMP ON DSRUPTSW.
006490,000183: 10,6224 06225 TC +1
006491,000184: 10,6225 06701 TC TMCHECK # =0
006492,000185: 10,6226 06447 TC LOSCAN # LOOK FOR LIFT OFF EVERY 480 MS.
006493,000186: 10,6227 06701 TC TMCHECK
006494,000187: 10,6230 06355 TC NWALM # INITIATE NIGHT WATCHMAN JOB.
006495,000188: 10,6231 06701 TC TMCHECK # =4
006496,000189: 10,6232 06501 TC OPTTEST # =5 SERVICE OPTICS CDUS.
006497,000190: 10,6233 06701 TC TMCHECK # =6
006498,000191:
|
|
Page 165
|
006500,000193:
006501,000194: # SYSTEM FAILURE INPUT BITS MONITOR - ENTERED EVERY 480 MS BY T4RUPT.
006502,000195:
006503,000196: 10,6234 10726 ERRORMON CCS OLDERR # IGNORE BITS IF C(OLDERR) = 40000
006504,000197: 10,6235 06240 TC ERRMON # ORDINARILY POSITIVE.
006505,000198: 10,6236 06240 TC ERRMON
006506,000199: 10,6237 06463 TC ENDT4ERR
006507,000200:
006508,000201: 10,6240 30006 ERRMON XCH IN2 # REFRESH LAST-SAMPLED-ERRORS REGISTER.
006509,000202: 10,6241 30006 XCH IN2
006510,000203: 10,6242 76252 MASK ERRMASK
006511,000204: 10,6243 50600 TS ITEMP2
006512,000205: 10,6244 36252 CAF ERRMASK
006513,000206: 10,6245 70726 MASK OLDERR
006514,000207: 10,6246 40000 COM
006515,000208: 10,6247 60600 AD ITEMP2
006516,000209: 10,6250 10000 CCS A
006517,000210: 10,6251 06255 TC ERRCHANG # CHANGED.
006518,000211: 10,6252 07000 ERRMASK OCT 07000 # IMU, CDU, AND PIPA FAIL.
006519,000212: 10,6253 06255 TC ERRCHANG
006520,000213: 10,6254 06463 TC ENDT4ERR # EXIT - NO CHANGE HAS TAKEN PLACE.
006521,000214:
006522,000215: 10,6255 46252 ERRCHANG CS ERRMASK # UPDATE IMU FAIL BITS IN OLDERR.
006523,000216: 10,6256 70726 MASK OLDERR
006524,000217: 10,6257 60600 AD ITEMP2
006525,000218: 10,6260 50726 TS OLDERR
006526,000219:
006527,000220: 10,6261 36277 CAF LITESOUT
006528,000221: 10,6262 70723 MASK DSPTAB +11D
006529,000222: 10,6263 64500 AD BIT15 # TO INDICATE CHANGE.
006530,000223: 10,6264 50723 TS DSPTAB +11D
006531,000224:
006532,000225: 10,6265 35503 CAF TWO # TURN ON LIGHTS ACCORDING TO C(OLDERR).
006533,000226: 10,6266 50600 ERRSCAN TS ITEMP2
006534,000227: 10,6267 20000 INDEX A
006535,000228: 10,6270 34503 CAF BIT12 # SELECT BIT IN OLDERR.
006536,000229: 10,6271 70726 MASK OLDERR
006537,000230: 10,6272 10000 CCS A
006538,000231: 10,6273 06300 TC BITON # BIT IS PRESENT.
006539,000232:
006540,000233: 10,6274 10600 ERRSCAN3 CCS ITEMP2 # LOOP THREE TIMES THROUGH.
006541,000234: 10,6275 06266 TC ERRSCAN
006542,000235:
006543,000236: 10,6276 06463 TC ENDT4ERR # FINISHED.
006544,000237:
006545,000238: 10,6277 37437 LITESOUT OCT 37437
006546,000239:
|
|
Page 166
|
006548,000241:
006549,000242: # PROCESS ERROR SIGNALS PRESENT. NOTE THAT C(WASKSET) INDICATES THE STATE OF THE SYSTEM SINCE NO RELAYS
006550,000243: # HAVE BEEN SWITCHED IN THE LAST 120 MS, AND KSAMP WAS EXECUTED 60 MS AGO.
006551,000244:
006552,000245: 10,6300 20600 BITON INDEX ITEMP2 # 2, 1, OR 0.
006553,000246: 10,6301 06302 TC +1
006554,000247: 10,6302 06305 TC IMUFAIL
006555,000248: 10,6303 06346 TC PIPAFAIL
006556,000249: 10,6304 06327 TC CDUFAIL
006557,000250:
006558,000251: 10,6305 10727 IMUFAIL CCS WASKSET # FAILURE NOT LEGITMATE IF IN COARSE ALIGN
006559,000252: 10,6306 06316 TC IMUFAIL2 # PURSUE THIS ONE.
006560,000253: 10,6307 06350 TC NOFAIL # NO MODE-DEPENDENT FAILURE MONITORING
006561,000254: 10,6310 06350 TC NOFAIL # IF MODING FAILURE OR PROCEDURAL FAILURE.
006562,000255: 10,6311 06350 TC NOFAIL
006563,000256:
006564,000257: 10,6312 34507 IMUFAIL3 CAF BIT8 # TURN ON IMU FAIL LIGHT.
006565,000258: 10,6313 60723 FAILITON AD DSPTAB +11D # (WHICH HAD BEEN ZEROED IN ALL LIGHT
006566,000259: 10,6314 50723 TS DSPTAB +11D # POSITIONS).
006567,000260: 10,6315 06274 TC ERRSCAN3 # PROCESS NEXT INPUT BIT.
006568,000261:
006569,000262: 10,6316 64516 IMUFAIL2 AD ONE # SEE IF COASE ALIGN ACHIEVED.
006570,000263: 10,6317 74515 MASK BIT2
006571,000264: 10,6320 10000 CCS A
006572,000265: 10,6321 06350 TC NOFAIL
006573,000266: 10,6322 34513 CAF BIT4 # SEE IF WITHIN 5 SECONDS OF COARSE ALIGN.
006574,000267: 10,6323 70726 MASK OLDERR
006575,000268: 10,6324 10000 CCS A
006576,000269: 10,6325 06350 TC NOFAIL # IF SO.
006577,000270: 10,6326 06312 TC IMUFAIL3 # FAILED.
006578,000271:
006579,000272: 10,6327 10727 CDUFAIL CCS WASKSET
006580,000273: 10,6330 06336 TC CDUFAIL2 # FAILURE ONLY IF IN FINE ALIGN.
006581,000274: 10,6331 06350 TC NOFAIL # (SEE NOTE FOR IMUFAIL).
006582,000275: 10,6332 06350 TC NOFAIL
006583,000276: 10,6333 06350 TC NOFAIL
006584,000277:
006585,000278: 10,6334 34511 CDUFAIL3 CAF BIT6 # CDU FAIL LIGHT ON.
006586,000279: 10,6335 06313 TC FAILITON
006587,000280:
006588,000281: 10,6336 44511 CDUFAIL2 CS BIT6 # TURN ON FAIL LIGHT ONLY IF IN FINE ALIGN
006589,000282: 10,6337 70727 MASK WASKSET
006590,000283: 10,6340 66343 AD -BIT4
006591,000284: 10,6341 10000 CCS A
006592,000285: 10,6342 06350 TC NOFAIL
006593,000286: 10,6343 77767 -BIT4 OCT -10
006594,000287: 10,6344 06350 TC NOFAIL
006595,000288: 10,6345 06334 TC CDUFAIL3 # TURN ON THE LIGHT.
006596,000289:
006597,000290: 10,6346 34510 PIPAFAIL CAF BIT7 # TURN ON FAIL LIGHT UNCONDITIONALLY.
006598,000291: 10,6347 06313 TC FAILITON
|
|
Page 167
|
006600,000293:
006601,000294: 10,6350 20600 NOFAIL INDEX ITEMP2 # COMES HERE IF PRESENT MODE INHIBITS FAIL
006602,000295: 10,6351 44503 CS BIT12 # BITS. THIS MAINTAINS PRESENT ACTUAL
006603,000296: 10,6352 70726 MASK OLDERR # ERRORS IN OLDERR FOR THE NIGHT WATCH-
006604,000297: 10,6353 50726 TS OLDERR # MANS BENEFIT, IN PARTICULAR.
006605,000298: 10,6354 06274 TC ERRSCAN3
006606,000299:
|
|
Page 168
|
006608,000301:
006609,000302: # NIGHT-WATCHMAN ALARM, SERVICED EVERY 480 MS BY T4RUPT.
006610,000303:
006611,000304: 10,6355 32171 NWALM CAF PRIO36
006612,000305: 10,6356 02052 TC NOVAC
006613,000306: 10,6357 20364 CADR NWJOB
006614,000307:
006615,000308: 10,6360 44505 CS BIT10 # RESET BLOCK-ENDPULSE EVERY HALF SECOND.
006616,000309: 10,6361 70011 MASK OUT1
006617,000310: 10,6362 50011 TS OUT1
006618,000311:
006619,000312: 10,6363 06463 TC S4BSCAN
006620,000313:
006621,000314:
006622,000315:
006623,000316: # NIGHT-WATCHMAN JOB - DIDDLES TMALM FOR 24 MICRO-SEC AFTER VERIFYING THAT NEWJOB IS BEING TESTED.
006624,000317:
006625,000318: 10,6364 37503 NWJOB CAF NWMASK # DONT ISSUE SIGNAL IF IMU, PIPA, OR
006626,000319: 10,6365 20017 INHINT
006627,000320: 10,6366 70726 MASK OLDERR # RESTART FAIL IS ON.
006628,000321: 10,6367 10000 CCS A
006629,000322: 10,6370 06405 TC NONNWJOB
006630,000323: 10,6371 44513 DONW CS BIT4
006631,000324: 10,6372 70011 MASK OUT1
006632,000325: 10,6373 50001 TS Q
006633,000326: 10,6374 40011 CS OUT1
006634,000327: 10,6375 74513 MASK BIT4
006635,000328: 10,6376 60001 AD Q
006636,000329: 10,6377 30011 XCH OUT1
006637,000330: 10,6400 50011 TS OUT1
006638,000331: 10,6401 44514 CS BIT3 # RESET INHIBIT INDICATOR.
006639,000332: 10,6402 70726 MASK OLDERR
006640,000333: 10,6403 50726 TS OLDERR
006641,000334: 10,6404 02124 TC ENDOFJOB
006642,000335:
006643,000336: 10,6405 62261 NONNWJOB AD BANKMASK # SEE IF PIPA FAIL ONLY PROBLEM.
006644,000337: 10,6406 10000 CCS A
006645,000338: 10,6407 06427 TC NOINH
006646,000339: 10,6410 06427 TC NOINH
006647,000340: 10,6411 06427 TC NOINH
006648,000341:
006649,000342: 10,6412 45362 CS SEVEN # CHECK FOR MODES 22 - 27.
006650,000343: 10,6413 70612 MASK MODREG
006651,000344: 10,6414 66417 AD -MODE20
006652,000345: 10,6415 10000 CCS A
006653,000346: 10,6416 06427 TC NOINH
006654,000347: 10,6417 77757 -MODE20 OCT -20
006655,000348: 10,6420 06427 TC NOINH
006656,000349:
006657,000350: 10,6421 46425 CS MODE21 # NO MODE 20.
006658,000351: 10,6422 60612 AD MODREG
|
|
Page 169
|
006660,000353: 10,6423 10000 CCS A
006661,000354: 10,6424 06371 TC DONW
006662,000355: 10,6425 00021 MODE21 OCT 21
006663,000356: 10,6426 06371 TC DONW
006664,000357:
006665,000358: 10,6427 44514 NOINH CS BIT3 # SEE IF WE HAVE HAD TWO CONSECUTIVE
006666,000359: 10,6430 70726 MASK OLDERR # CONSECUTIVE INHIBITS.
006667,000360: 10,6431 64514 AD BIT3
006668,000361: 10,6432 30726 XCH OLDERR
006669,000362: 10,6433 74514 MASK BIT3
006670,000363: 10,6434 10000 CCS A
006671,000364: 10,6435 06437 TC +2
006672,000365: 10,6436 02124 TC ENDOFJOB
006673,000366: 10,6437 20016 RELINT
006674,000367: 10,6440 02346 TC CHECKMM # SET MM 77 IF REQUIRED.
006675,000368: 10,6441 00077 OCT 77
006676,000369: 10,6442 06444 TC +2
006677,000370: 10,6443 02124 TC ENDOFJOB
006678,000371: 10,6444 02362 TC NEWMODE
006679,000372: 10,6445 00077 OCT 77 # G AND N FLUSHED.
006680,000373: 10,6446 02124 TC ENDOFJOB
006681,000374:
|
|
Page 170
|
006683,000376:
006684,000377: # SCAN FOR LIFT-OFF EVERY 480 MS.
006685,000378:
006686,000379: 10,6447 40006 LOSCAN CS IN2
006687,000380: 10,6450 40006 CS IN2
006688,000381: 10,6451 74512 MASK BIT5
006689,000382: 10,6452 10000 CCS A
006690,000383: 10,6453 06463 TC S4BSCAN
006691,000384: 10,6454 34515 CAF BIT2 # SEE IF SIGNAL ALREADY RECEIVED.
006692,000385: 10,6455 70646 MASK FLAGWRD1
006693,000386: 10,6456 10000 CCS A
006694,000387: 10,6457 06463 TC S4BSCAN
006695,000388:
006696,000389: 10,6460 32157 CAF PRIO24
006697,000390: 10,6461 02046 TC FINDVAC
006698,000391: 10,6462 64000 CADR LIFTOFF
006699,000392:
006700,000393: # S4B SEPARATE SCANNER - ENTERED EVERY 120 MS.
006701,000394:
006702,000395: 10,6463 30006 S4BSCAN XCH IN2
006703,000396: 10,6464 30006 XCH IN2
006704,000397: 10,6465 74507 MASK BIT8
006705,000398: 10,6466 10000 CCS A
006706,000399: 10,6467 06471 TC +2 # IF BIT ON.
006707,000400: 10,6470 06534 TC CDRVE # NORMAL CASE.
006708,000401:
006709,000402: 10,6471 34507 CAF BIT8 # SEE IF FIRST TIME BIT ON.
006710,000403: 10,6472 70646 MASK STATE +1
006711,000404: 10,6473 10000 CCS A
006712,000405: 10,6474 06534 TC CDRVE # NO ACTION UNLESS FIRST TIME ON.
006713,000406:
006714,000407: 10,6475 32160 CAF PRIO25
006715,000408: 10,6476 02046 TC FINDVAC
006716,000409: 10,6477 64336 CADR S4BSMSEP
006717,000410: 10,6500 06534 TC CDRVE
006718,000411:
006719,000412: 10,6501 10,6463 NOOPTCDU EQUALS S4BSCAN
006720,000413: 10,6501 10,6463 ENDT4ERR EQUALS S4BSCAN
006721,000414:
|
|
Page 171
|
006723,000416:
006724,000417: # OPTICS CDU DRIVING PROGRAM, SERVICED EVERY 480 MS BY DSRUPT.
006725,000418:
006726,000419: 10,6501 10703 OPTTEST CCS OPTIND # PNZ FOR ACTIVE, NEGATIVE FOR INACTIVE.
006727,000420: 10,6502 06507 TC +5 # DRIVE CDU.
006728,000421: 10,6503 06506 TC +3 # DRIVE CDU.
006729,000422: 10,6504 06463 TC NOOPTCDU # NNZ MEANS RESERVED.
006730,000423: 10,6505 06463 TC NOOPTCDU # -0 MEANS AVAILABLE.
006731,000424:
006732,000425: 10,6506 34516 +3 CAF ONE # GOES 1(-1)0.
006733,000426: 10,6507 50703 +5 TS OPTIND
006734,000427:
006735,000428: 10,6510 50637 TS RUPTREG1 # SET UP OUT2SUB TO START OUT-COUNTER.
006736,000429: 10,6511 34516 CAF ONE # (TO ADDRESS OUTCR2).
006737,000430: 10,6512 50640 TS RUPTREG2
006738,000431:
006739,000432: 10,6513 10703 CCS OPTIND # DRIVE OPTICS Y DIFFERENT THAN OTHERS.
006740,000433: 10,6514 06525 TC BLIVOT3 # OVF UNCORRECTION WONT WORK FOR OPTY.
006741,000434:
006742,000435: 10,6515 20703 REGDIFF INDEX OPTIND
006743,000436: 10,6516 40704 CS DESOPTX # DESIRED ANGLES.
006744,000437: 10,6517 50600 TS ITEMP2
006745,000438:
006746,000439: 10,6520 20703 INDEX OPTIND
006747,000440: 10,6521 40052 CS OPTX # READ COUNTER.
006748,000441: 10,6522 07410 TC 2SCOMDIF # TAKES DIFFERENCE WITH -0 UNEQUAL TO +0.
006749,000442:
006750,000443: 10,6523 06631 OPTOUT TC OUT2SUB
006751,000444:
006752,000445: 10,6524 06463 TC S4BSCAN
006753,000446:
006754,000447: 10,6525 40053 BLIVOT3 CS OPTY # IF THE DIFFERENCE OVERFLOWS, THE ERROR
006755,000448: 10,6526 60705 AD DESOPTX +1 # ERROR SIGNAL IS GREATER THAN 16383, SO
006756,000449: 10,6527 50001 TS Q # JUST THROW IN POSMAX WITH THE RIGHT
006757,000450: 10,6530 06515 TC REGDIFF # SIGN AND CALL IT A DAY. OTHERWISE FOLL-
006758,000451:
006759,000452: 10,6531 20000 INDEX A # THE USUAL PROCEDURES.
006760,000453: 10,6532 44477 CS LIMITS
006761,000454: 10,6533 06523 TC OPTOUT
006762,000455:
|
|
Page 172
|
006764,000457:
006765,000458: # CDRVE CHANGES A BANK OF C RELAYS IF ANY CHANGE IS INDICATED IN THE C-RELAY PORTION OF DSPTAB.
006766,000459:
006767,000460: 10,6534 10725 CDRVE CCS DSPTAB +13D # SPACECRAFT RELAYS HAVE HIGHEST PRIORITY.
006768,000461: 10,6535 06544 TC CDRVE1
006769,000462: 10,6536 06544 TC CDRVE1
006770,000463:
006771,000464: 10,6537 34302 CAF LOW11
006772,000465: 10,6540 70725 MASK DSPTAB +13D
006773,000466: 10,6541 50725 TS DSPTAB +13D
006774,000467: 10,6542 62667 AD RELTAB11 +2
006775,000468: 10,6543 06623 TC DSPLAYC
006776,000469:
006777,000470: 10,6544 10723 CDRVE1 CCS DSPTAB +11D # IMU AND CAUTION LIGHTS.
006778,000471: 10,6545 06554 TC CDRVE2
006779,000472: 10,6546 06554 TC CDRVE2
006780,000473:
006781,000474: 10,6547 34302 CAF LOW11
006782,000475: 10,6550 70723 MASK DSPTAB +11D
006783,000476: 10,6551 50723 TS DSPTAB +11D
006784,000477: 10,6552 62665 AD RELTAB11
006785,000478: 10,6553 06623 TC DSPLAYC
006786,000479:
006787,000480: 10,6554 10724 CDRVE2 CCS DSPTAB +12D # OPTICS.
006788,000481: 10,6555 06564 TC DSPOUT
006789,000482: 10,6556 06564 TC DSPOUT
006790,000483:
006791,000484: 10,6557 34302 CAF LOW11
006792,000485: 10,6560 70724 MASK DSPTAB +12D
006793,000486: 10,6561 50724 TS DSPTAB +12D
006794,000487: 10,6562 62666 AD RELTAB11 +1
006795,000488: 10,6563 06623 TC DSPLAYC
006796,000489:
006797,000490: 10,6564 10707 DSPOUT CCS NOUT # ENTERED IN INTERRUPTED STATE AT END OF
006798,000491: 10,6565 06567 TC +2 # DSRUPT
006799,000492: 10,6566 02262 TC LVDSRUPT
006800,000493: 10,6567 50707 TS NOUT
006801,000494: 10,6570 45501 CS ZERO
006802,000495: 10,6571 50600 TS DSRUPTEM # SET TO -0 FOR 1ST PASS THRU DSPTAB
006803,000496: 10,6572 30706 XCH DSPCNT
006804,000497: 10,6573 65504 AD NEG0 # TO PREVENT +0
006805,000498: 10,6574 50706 TS DSPCNT
006806,000499: 10,6575 20706 DSPSCAN INDEX DSPCNT
006807,000500: 10,6576 10710 CCS DSPTAB
006808,000501: 10,6577 10706 CCS DSPCNT # IF DSPTAB ENTRY +, SKIP
006809,000502: 10,6600 06573 TC DSPSCAN -2 # IF DSPCNT +, AGAIN
006810,000503: 10,6601 06612 TC DSPLAY # IF DSPTAB ENTRY -, DISPLAY
006811,000504: 10,6602 00012 TABLNTH OCT 12 # DEC 10 LENGTH OF DSPTAB
006812,000505: 10,6603 10600 CCS DSRUPTEM # IF DSRUPTEM=+0,2ND PASS THRU DSPTAB
006813,000506: 10,6604 03062 TC CCSHOLE # (DSPCNT=0). +0 INTO NOUT, RESUME.
006814,000507: 10,6605 50707 TS NOUT
|
|
Page 173
|
006816,000509: 10,6606 02262 TC LVDSRUPT
006817,000510: 10,6607 50600 TS DSRUPTEM # IF DSRUPTEM=-0,1ST PASS THRU DSPTAB
006818,000511: 10,6610 36602 CAF TABLNTH # (DSPCNT=0). +0 INTO DSRUPTEM. PASS AGAIN
006819,000512: 10,6611 06574 TC DSPSCAN -1
006820,000513:
006821,000514: 10,6612 64516 DSPLAY AD ONE
006822,000515: 10,6613 20706 INDEX DSPCNT
006823,000516: 10,6614 50710 TS DSPTAB # REPLACE POSITIVELY
006824,000517: 10,6615 74302 MASK LOW11 # REMOVE BITS 12 TO 15
006825,000518: 10,6616 50600 TS DSRUPTEM
006826,000519: 10,6617 32261 CAF HI5
006827,000520: 10,6620 20706 INDEX DSPCNT
006828,000521: 10,6621 72652 MASK RELTAB # PICK UP BITS 12 TO 15 OF RELTAB ENTRY
006829,000522: 10,6622 60600 AD DSRUPTEM
006830,000523: 10,6623 50010 DSPLAYC TS OUT0
006831,000524: 10,6624 37126 CAF 20MSRUPT # SET T4 TO INTERRUPT IN 20 MS SO OUT0 MAY
006832,000525: 10,6625 50040 TS TIME4 # BE TURNED OFF AS SOON AS POSSIBLE. WHEN
006833,000526: 10,6626 40033 CS DSRUPTSW # THIS RUPT OCCURS, T4 IS RESET TO FIRE
006834,000527: 10,6627 50033 TS DSRUPTSW # IN 40MS, RE-ESTABLISHING THE REGULAR 60.
006835,000528:
006836,000529: 10,6630 02262 TC LVDSRUPT
006837,000530:
006838,000531: 10,6631 2262 LVDSRUPT EQUALS OVRESUME
006839,000532:
|
|
Page 174
|
006841,000534:
006842,000535: # OUT2SUB IS USED BY THE GYRO DRIVE AND THE OPTICS CDU DRIVE TO SET THE PROPER SECTION OF OUT2 AND THE
006843,000536: # PROPER OUT-COUNTER TO DELIVER THE COMMAND ARRIVING IN A.
006844,000537:
006845,000538: 10,6631 50577 OUT2SUB TS ITEMP1 # SIGNED COMMAND.
006846,000539: 10,6632 30001 XCH Q
006847,000540: 10,6633 50600 TS ITEMP2
006848,000541: 10,6634 10577 CCS ITEMP1
006849,000542: 10,6635 06644 TC POSCOM
006850,000543: 10,6636 00600 TC ITEMP2 # RETURN TO CALLER ON EITHER ZERO.
006851,000544: 10,6637 06641 TC NEGCOM
006852,000545: 10,6640 00600 TC ITEMP2
006853,000546:
006854,000547: 10,6641 50577 NEGCOM TS ITEMP1 # CCS OF COMMAND LEFT IN ITEMP1
006855,000548: 10,6642 40637 CS RUPTREG1 # 0 AND 1 FOR OPTICS - 2, 3, AND 4 FOR GYR
006856,000549: 10,6643 06647 TC SETOUT2
006857,000550:
006858,000551: 10,6644 50577 POSCOM TS ITEMP1 # CCS OF COMMAND.
006859,000552: 10,6645 34516 CAF ONE
006860,000553: 10,6646 60637 AD RUPTREG1
006861,000554:
|
|
Page 175
|
006863,000556:
006864,000557: 10,6647 50642 SETOUT2 TS RUPTREG4
006865,000558: 10,6650 36200 CAF DUMCODE # FOR A DESCRIPTION OF THIS OUT2 PROCEDURE
006866,000559: 10,6651 30012 XCH OUT2 # SEE THE IMUCDU DRIVE PROGRAM EARLIER IN
006867,000560: 10,6652 20640 INDEX RUPTREG2 # T4RUPT.
006868,000561: 10,6653 77465 MASK OUT2MASK
006869,000562: 10,6654 30012 XCH OUT2
006870,000563: 10,6655 66201 AD -DUMCODE
006871,000564: 10,6656 10000 CCS A
006872,000565: 10,6657 03062 TC CCSHOLE
006873,000566: 10,6660 03062 TC CCSHOLE
006874,000567: 10,6661 07377 TC JACKPOT
006875,000568:
006876,000569: 10,6662 40577 CS ITEMP1 # ABS(COMMAND) - 1.
006877,000570: 10,6663 64476 AD POSMAX # FORMS 1.0 - ABS(COMMAND).
006878,000571: 10,6664 20640 INDEX RUPTREG2
006879,000572: 10,6665 50042 TS OUTCR1
006880,000573:
006881,000574: 10,6666 36200 CAF DUMCODE # ENABLE THE APPROPRIATE OUTCR BY SETTING
006882,000575: 10,6667 30012 XCH OUT2 # THE PROPER CODE IN OUT2
006883,000576: 10,6670 20642 INDEX RUPTREG4
006884,000577: 10,6671 67473 AD OPTCODES +1
006885,000578: 10,6672 30012 XCH OUT2
006886,000579: 10,6673 66201 AD -DUMCODE
006887,000580: 10,6674 10000 CCS A
006888,000581: 10,6675 03062 TC CCSHOLE
006889,000582: 10,6676 03062 TC CCSHOLE
006890,000583: 10,6677 07377 TC JACKPOT
006891,000584:
006892,000585: 10,6700 00600 TC ITEMP2
006893,000586:
006894,000587: 10,6701 NOGYROC EQUALS
006895,000588:
006896,000589: 10,6701 ENDGYROC EQUALS
006897,000590:
|
|
Page 176
|
006899,000592:
006900,000593: # ALTERNATE 120 MS LEG OF T4RUPT.
006901,000594:
006902,000595: 10,6701 35362 TMCHECK CAF SEVEN # ALLOW UP TO SEVEN TM WORDS UNTIL NEXT
006903,000596: 10,6702 30670 XCH TELCOUNT # DSRUPT0 EXECUTION. CHECK LAST TM PERIOD
006904,000597: 10,6703 66705 AD NEG7 # TO SEE IF AT LEAST ONE WORD WENT OUT.
006905,000598: 10,6704 10000 CCS A # THIS SATISFIES BOTH HIGH- AND LOW-POWER.
006906,000599:
006907,000600: 10,6705 77770 NEG7 DEC -7 B-14
006908,000601: 10,6706 03062 TC CCSHOLE
006909,000602: 10,6707 06711 TC +2 # OK - PROCEED.
006910,000603: 10,6710 02571 TC TMFAIL # TURN ON TM FAIL LIGHT BEFORE KSAMP.
006911,000604:
006912,000605: 10,6711 30007 MODESAMP XCH IN3 # SAMPLE MODE BITS AND TUCK THEM AWAY
006913,000606: 10,6712 30007 XCH IN3 # FOR KSAMP AND OPTSAMP.
006914,000607: 10,6713 50637 TS KSAMPTEM
006915,000608: 10,6714 74720 MASK LOW7
006916,000609: 10,6715 30637 XCH KSAMPTEM
006917,000610: 10,6716 76770 MASK OPTBITS
006918,000611: 10,6717 50640 TS OSAMPTEM
006919,000612: 10,6720 30004 XCH IN0 # THIS CLEARS THE KEY CODE WITHIN 120MS
006920,000613: # OF THE TIME THE KEY WAS RELEASED.
006921,000614:
006922,000615: 10,6721 50034 TS OVCTR # SEE IF INHIBIT UP-SYNC BIT IS ON.
006923,000616: 10,6722 74510 MASK BIT7
006924,000617: 10,6723 10000 CCS A
006925,000618: 10,6724 02571 TC TMFAIL # IF SO, TURN ON TELEMETRY FAIL LIGHT.
006926,000619:
006927,000620: 10,6725 10034 CCS OVCTR # SEE IF MARK BUTTON DOWN.
006928,000621: 10,6726 06734 TC OPTSAMP
006929,000622: 10,6727 06734 TC OPTSAMP
006930,000623: 10,6730 06731 TC +1
006931,000624: 10,6731 37003 CAF NOMKACPT # DONT INCLUDE MARK ACCEPT INFORMATION.
006932,000625: 10,6732 70640 MASK OSAMPTEM
006933,000626: 10,6733 50640 TS OSAMPTEM
006934,000627:
|
|
Page 177
|
006936,000629:
006937,000630: # OPTICS MODE SAMPLING.
006938,000631:
006939,000632: 10,6734 10732 OPTSAMP CCS DESOPSET # IS COMPUTER COMMANDING
006940,000633: 10,6735 06751 TC OPTCOMM # YES
006941,000634: 10,6736 07043 TC NOOPCOM # NO
006942,000635:
006943,000636: 10,6737 34503 CAF BIT12 # MAKE SURE WE ARE STILL ZEROING
006944,000637: 10,6740 70640 MASK OSAMPTEM # (THIS PORTION ENTERED FOR 30 SEC. DURING
006945,000638: 10,6741 60730 AD WASOPSET # MANUAL OPTICS ZERO).
006946,000639: 10,6742 74503 MASK BIT12 # SEE IF CDU-ZERO BIT HAS CHANGED.
006947,000640: 10,6743 10000 CCS A # ALARM IF SO.
006948,000641: 10,6744 06746 TC +2
006949,000642: 10,6745 07074 TC LVOPTSMP
006950,000643:
006951,000644: 10,6746 03007 TC ALARM # IF NOT, ALARM ON
006952,000645: 10,6747 00101 OCT 00101 # OPTICS ALARM NO. 1.
006953,000646: 10,6750 07074 TC LVOPTSMP
006954,000647:
006955,000648: 10,6751 34501 OPTCOMM CAF BIT14 # SEE IF COMPUTER-ON SWITCH JUST CHANGED.
006956,000649: 10,6752 70730 MASK WASOPSET # FORM WAS BIT14 - IS BIT14.
006957,000650: 10,6753 50001 TS Q
006958,000651: 10,6754 34501 CAF BIT14
006959,000652: 10,6755 70640 MASK OSAMPTEM # PRESENT INPUT BITS.
006960,000653: 10,6756 40000 COM
006961,000654: 10,6757 60001 AD Q
006962,000655: 10,6760 10000 CCS A
006963,000656: 10,6761 07010 TC COMP.OFF # SWITCH JUST TURNED OFF.
006964,000657: 10,6762 34760 OFFMASK OCT 34760 # USED FOR SETTING IMU C-RELAYS.
006965,000658: 10,6763 07017 TC COMP.ON # SWITCH JUST TURNED ON.
006966,000659:
006967,000660: 10,6764 40732 OPTCOMM2 CS DESOPSET # SEE IF DESIRED MODE ACHIEVED.
006968,000661: 10,6765 60640 AD OSAMPTEM
006969,000662: 10,6766 10000 CCS A
006970,000663: 10,6767 06773 TC OPTCTEST # COMMAND NOT EQUAL TO ACTUAL
006971,000664: 10,6770 35000 OPTBITS OCT 35000
006972,000665: 10,6771 07000 TC OPTCOMM3 # NO MATCH - SEE IF COMP ON ONLY MISMATCH.
006973,000666: 10,6772 07074 TC LVOPTSMP # DONE IF MODES AGREE.
006974,000667:
006975,000668: 10,6773 10724 OPTCTEST CCS DSPTAB +12D # IS CHANGE COMING.
006976,000669: 10,6774 07027 TC OPTCFAIL # NO - C-RELAY FAILURE OR UNWANTED MANUAL
006977,000670: 10,6775 07027 TC OPTCFAIL # INTERVENTION.
006978,000671:
006979,000672: 10,6776 35501 CAF ZERO # LEAVE WAITING FLAG IN WASOPSET.
006980,000673: 10,6777 07075 TC LVOPTSMP +1
006981,000674:
006982,000675: 10,7000 67176 OPTCOMM3 AD -BIT14+1 # NO ERROR IF COMPUTER-ON ONLY ONE DIFF.
006983,000676: 10,7001 10000 CCS A
006984,000677: 10,7002 06773 TC OPTCTEST
006985,000678: 10,7003 31000 NOMKACPT OCT 31000
006986,000679: 10,7004 06773 TC OPTCTEST
|
|
Page 178
|
006988,000681: 10,7005 34501 CAF BIT14 # IN THIS CASE, SET COMP.ON BIT TO 1 IN
006989,000682: 10,7006 60640 AD OSAMPTEM # WASOPSET TO PREVENT +0 FOR CORRECT MODES
006990,000683: 10,7007 07075 TC LVOPTSMP +1
006991,000684:
006992,000685: 10,7010 10703 COMP.OFF CCS OPTIND # TAKE AGC OUT OF CDU LOOP IF APPROPRIATE.
006993,000686: 10,7011 07013 TC +2
006994,000687: 10,7012 07013 TC +1 # POSITIVE MEANS COMPUTER WAS IN LOOP.
006995,000688: 10,7013 34516 CAF ONE # LEAVE CDUS RESERVED (RARE).
006996,000689: 10,7014 40000 COM # -0 REVERTS TO -0.
006997,000690: 10,7015 50703 TS OPTIND
006998,000691:
006999,000692: 10,7016 06764 TC OPTCOMM2 # DO MODE CHECK.
007000,000693:
007001,000694: 10,7017 10703 COMP.ON CCS OPTIND # PUT AGC BACK INTO CDU LOOP IF DESIRED.
007002,000695: 10,7020 07023 TC ONALARM # (THIS SHOULD NEVER HAPPEN).
007003,000696: 10,7021 07023 TC ONALARM
007004,000697: 10,7022 07041 TC ONOK # CDUS HAD BEEN RESERVED.
007005,000698:
007006,000699: 10,7023 07034 ONALARM TC OFAILTST # SEE IF FAIL FLAG ALREADY SET.
007007,000700: 10,7024 03007 TC ALARM # ALARM AND SET FAILURE FLAG.
007008,000701: 10,7025 00104 OCT 00104
007009,000702: 10,7026 07032 TC OFAILSET
007010,000703:
007011,000704: 10,7027 07034 OPTCFAIL TC OFAILTST # SEE IF ALARM ALREADY SOUNDED.
007012,000705: 10,7030 03007 TC ALARM # ALARM AND SET FAIL FLAG IF NOT.
007013,000706: 10,7031 00102 OCT 00102
007014,000707:
007015,000708: 10,7032 45501 OFAILSET CS ZERO
007016,000709: 10,7033 07075 TC LVOPTSMP +1 # SET FAIL FLAG AND EXIT.
007017,000710:
007018,000711: 10,7034 10730 OFAILTST CCS WASOPSET # RETURNS TO CALLER IF NO FAILURE ALARM
007019,000712: 10,7035 00001 TC Q # GIVEN. EXITS WITHOUT CHANGING WASOPSET
007020,000713: 10,7036 00001 TC Q # IF SO.
007021,000714: 10,7037 07076 TC NOOPRSET
007022,000715: 10,7040 07076 TC NOOPRSET
007023,000716:
007024,000717: 10,7041 50703 ONOK TS OPTIND # SET OPTIND TO +0 TO ACTIVE CDU DRIVE.
007025,000718: 10,7042 06764 TC OPTCOMM2 # DO MODE AGREEMENT CHECK.
007026,000719:
007027,000720: 10,7043 40730 NOOPCOM CS WASOPSET # ENTERS HERE IF COMPUTER NOT COMMANDING.
007028,000721: 10,7044 60640 AD OSAMPTEM # SEE IF ANY CHANGES SINCE LAST LOCK.
007029,000722: 10,7045 10000 CCS A
007030,000723: 10,7046 07052 TC NOOPCOM1 # CHANGED.
007031,000724: 10,7047 37772 60MSRUPT OCT 37772 # UNUSED CCS BRANCH.
007032,000725: 10,7050 07052 TC NOOPCOM1 # CHANGED.
007033,000726: 10,7051 07074 TC LVOPTSMP # NO CHANGE - NORMAL EXIT IN MANUAL.
007034,000727:
007035,000728: 10,7052 40730 NOOPCOM1 CS WASOPSET # SEE IF MANUAL CDU-ZERO JUST REQUESTED.
007036,000729: 10,7053 74503 MASK BIT12
007037,000730: 10,7054 70640 MASK OSAMPTEM
|
|
Page 179
|
007039,000732: 10,7055 10000 CCS A
007040,000733: 10,7056 07360 TC MANOPTZ # CALL MANUAL OPTICS ZERO SUBROUTINE.
007041,000734: # (THIS RECONCILES OPTICS-ZERO C-RELAY).
007042,000735:
007043,000736: # WE USED TO TEST HERE TO SEE IF THE SXT-ON SWITCH HAS CHANGED.
007044,000737: # SINCE IN BLOCK 50 - 100 IT IS ALWAYS ON, WE DON;T NOW.
007045,000738: 10,7057 34505 RECONTRK CAF BIT10 # RECONCILE TRKR-ON C-RELAY.
007046,000739: 10,7060 70640 MASK OSAMPTEM
007047,000740: 10,7061 10000 CCS A
007048,000741: 10,7062 34515 CAF BIT2 # TURN ON TRKR-ON C-RELAY.
007049,000742: 10,7063 64500 AD BIT15
007050,000743: 10,7064 30724 XCH DSPTAB +12D
007051,000744: 10,7065 77254 MASK OCT37775 # CHANGE BITS 2 AND 15.
007052,000745: 10,7066 60724 AD DSPTAB +12D
007053,000746: 10,7067 50724 TS DSPTAB +12D
007054,000747:
007055,000748: 10,7070 30640 XCH OSAMPTEM # SET WASOPSET AND CALL SETZLIT TO
007056,000749: 10,7071 50730 TS WASOPSET # SET ZERO-ENCODER LIGHT.
007057,000750: 10,7072 02743 TC SETZLIT
007058,000751: 10,7073 07076 TC NOOPRSET
007059,000752:
007060,000753: 10,7074 30640 LVOPTSMP XCH OSAMPTEM
007061,000754: 10,7075 50730 TS WASOPSET
007062,000755:
007063,000756: 10,7076 NOOPRSET EQUALS # DONT RESET WASOPSET.
007064,000757:
|
|
Page 180
|
007066,000759:
007067,000760: # KSAMP ENTERED EVERY 120 MS DURING T4RUPT. SAMPLES STATUS OF
007068,000761: # ----- IMU MODE SWITCHES.
007069,000762: # SETS C(WASKSET)=C(DESKSET) FOR SUCCESSFUL COMP. COMM.
007070,000763: # =+0 FOR WAITING(START-UP,CONTACT BOUNCE)
007071,000764: # =-X FOR ASTRONAUT COMM. IGNORE
007072,000765: # =-0 FOR SYSTEM FAILURE
007073,000766:
007074,000767:
007075,000768:
007076,000769: 10,7076 10727 KSAMP CCS WASKSET # TEST FOR IGNORE
007077,000770: 10,7077 07102 TC +3
007078,000771: 10,7100 07102 TC +2
007079,000772: 10,7101 02262 TC ENDKSAMP
007080,000773:
007081,000774: 10,7102 10731 CCS DESKSET # C(DESKSET)=DESIRED K RELAY SETTING
007082,000775: 10,7103 07250 TC KSAMP1 # =+0 FOR COMPUTER NOT COMM.
007083,000776: 10,7104 07117 TC KSAMP4 # -DESIRED K SETTING FOR MAN 0.
007084,000777:
007085,000778: 10,7105 34516 CAF BIT1 # ENTERS HERE TO BE SURE MANUAL CDU ZERO
007086,000779: 10,7106 70637 MASK KSAMPTEM # LASTS AT LEAST 30 SEC.
007087,000780: 10,7107 60727 AD WASKSET # ALARM IF CDU-ZERO SWITCH CHANGED STATE.
007088,000781: 10,7110 74516 MASK BIT1
007089,000782: 10,7111 10000 CCS A
007090,000783: 10,7112 07114 TC +2
007091,000784: 10,7113 07260 TC LVKSAMP
007092,000785:
007093,000786: 10,7114 03007 TC ALARM
007094,000787: 10,7115 00201 OCT 00201 # CDU NOT ZEROED PROPERLY.
007095,000788: 10,7116 07260 TC LVKSAMP
007096,000789:
007097,000790: 10,7117 30637 KSAMP4 XCH KSAMPTEM # NO COMPUTER COMMAND.
007098,000791: 10,7120 30727 XCH WASKSET # CURRENT STATUS TO WASKSET
007099,000792: 10,7121 50637 TS KSAMPTEM # (FOR EVENTUAL USE BY MANUAL ZERO TEST).
007100,000793: 10,7122 40000 CS A
007101,000794: 10,7123 60727 AD WASKSET
007102,000795: 10,7124 10000 CCS A
007103,000796: 10,7125 07211 TC KSAMP2B # SEE IF TRNSW JUST ON AND IS ONLY CHANGE.
007104,000797: 10,7126 37776 20MSRUPT OCT 37776 # UNUSED CCS BRANCH - USED TO CAUSE 0 OUT0
007105,000798: 10,7127 07131 TC KSAMP2
007106,000799: 10,7130 02262 TC ENDKSAMP # EXIT ON NO CHANGE IN MODE.
007107,000800:
007108,000801: 10,7131 34511 KSAMP2 CAF BIT6 # CHANGE IN MODE
007109,000802: 10,7132 70727 MASK WASKSET
007110,000803: 10,7133 10000 CCS A # IS TRNSW ON MANUAL
007111,000804: 10,7134 07217 TC TRNSWON # SEE IF START-UP OR PILOTS BUTTON ON.
007112,000805:
007113,000806: 10,7135 40727 CS WASKSET # TEST FOR START UP SEQUENCE
007114,000807: 10,7136 77336 MASK FINE+CRS # START-UP=FINE AND COARSE IN MANUAL.
007115,000808: 10,7137 10000 CCS A
007116,000809: 10,7140 07145 TC MANZTEST
|
|
Page 181
|
007118,000811:
007119,000812: 10,7141 36762 SETCOARS CAF OFFMASK
007120,000813: 10,7142 70723 MASK DSPTAB +11D
007121,000814: 10,7143 64656 AD OCT40002
007122,000815: 10,7144 07206 TC SETC +3
007123,000816:
007124,000817: 10,7145 40637 MANZTEST CS KSAMPTEM # SEE IF MANUAL ZERO SWITCH JUST ON.
007125,000818: 10,7146 74516 MASK BIT1
007126,000819: 10,7147 70727 MASK WASKSET
007127,000820: 10,7150 10000 CCS A
007128,000821: 10,7151 07337 TC MANCDU # MANUAL IMU CDU ZERO JUST REQUESTED.
007129,000822:
007130,000823: 10,7152 40637 CS KSAMPTEM # IF PREVIOUS MODE WAS COARSE ALIGN,
007131,000824: 10,7153 74515 MASK BIT2 # DISABLE IMU FAIL FOR THE NEXT 5 SECS.
007132,000825: 10,7154 10000 CCS A
007133,000826: 10,7155 07165 TC PRERECON
007134,000827:
007135,000828: 10,7156 44513 CS BIT4
007136,000829: 10,7157 70726 MASK OLDERR
007137,000830: 10,7160 64513 AD BIT4
007138,000831: 10,7161 50726 TS OLDERR
007139,000832:
007140,000833: 10,7162 34505 CAF BIT10
007141,000834: 10,7163 02173 TC WAITLIST
007142,000835: 10,7164 30201 CADR IFAILOK
007143,000836:
007144,000837: 10,7165 36762 PRERECON CAF OFFMASK # MANUAL MODE CHANGE
007145,000838: 10,7166 70723 MASK DSPTAB +11D # SO THE C-RELAYS MUST BE UPDATED.
007146,000839: 10,7167 64500 AD BIT15 # ALL ARE TURNED OFF AND THE RIGHT ONES
007147,000840: 10,7170 50723 TS DSPTAB +11D # ARE TURNED ON BY SCANNING IN3.
007148,000841:
007149,000842: 10,7171 40727 CS WASKSET # UPDATE C-RELAYS SO THEY AGREE WITH THE
007150,000843: 10,7172 50034 TS OVCTR # CURRENT MODE. THE SCAN IS FROM LEFT TO
007151,000844: 10,7173 34475 CAF SIX # RIGHT SO THE PILOTS BUTTON WORKS OK.
007152,000845:
007153,000846: 10,7174 50637 RECONCIL TS KSAMPTEM
007154,000847: 10,7175 30034 XCH OVCTR # NEXT BIT INTO POSITION.
007155,000848: 10,7176 60000 -BIT14+1 DOUBLE
007156,000849: 10,7177 50034 TS OVCTR
007157,000850: 10,7200 74507 MASK BIT8
007158,000851: 10,7201 10000 CCS A
007159,000852: 10,7202 07243 TC RECONLUP # LOOP TO EXAMINE NEXT BIT.
007160,000853:
007161,000854: 10,7203 20637 SETC INDEX KSAMPTEM
007162,000855: 10,7204 37456 CAF MODECHNG # NEW IMU C-RELAY SETTINGS.
007163,000856: 10,7205 60723 AD DSPTAB +11D
007164,000857: 10,7206 50723 +3 TS DSPTAB +11D
007165,000858: 10,7207 02743 TC SETZLIT # UPDATE THE ZERO ENCODER LAMP.
007166,000859: 10,7210 02262 TC ENDKSAMP
007167,000860:
007168,000861: 10,7211 67214 KSAMP2B AD LOW5BAR # NO ERROR IF TRNSW JUST ON IS ONLY CHANGE
|
|
Page 182
|
007170,000863: 10,7212 10000 CCS A
007171,000864: 10,7213 07131 TC KSAMP2
007172,000865: 10,7214 77740 LOW5BAR OCT -37
007173,000866: 10,7215 07131 TC KSAMP2
007174,000867: 10,7216 02262 TC ENDKSAMP # ORIGINAL DIFFERENCE WAS JUST BIT 6.
007175,000868:
007176,000869: 10,7217 37335 TRNSWON CAF OCT14 # THE PILOTS BUTTON HAS CHANGED IF THERE
007177,000870: 10,7220 70727 MASK WASKSET # HAS BEEN A CHANGE IN THE FINE ALIGN OR
007178,000871: 10,7221 60637 AD KSAMPTEM # LOCK CDU BITS WITH THE SYSTEM IN ATTI-
007179,000872: 10,7222 77335 MASK OCT14 # TUDE CONTROL AS WELL.
007180,000873: 10,7223 10000 CCS A
007181,000874: 10,7224 07226 TC +2
007182,000875: 10,7225 07233 TC STARTCHK # NO - SEE IF SYSTEM CYCLING UP.
007183,000876:
007184,000877: 10,7226 34512 CAF BIT5 # OK SO FAR ON PILOTS BUTTON. SEE IF
007185,000878: 10,7227 70727 MASK WASKSET # SYSTEM WAS AND IS IN ATTITUDE CONTROL.
007186,000879: 10,7230 70637 MASK KSAMPTEM
007187,000880: 10,7231 10000 CCS A
007188,000881: 10,7232 02262 TC ENDKSAMP # YES - LEAVE THE C-RELAYS IN ATTITUDE C.
007189,000882:
007190,000883: 10,7233 40637 STARTCHK CS KSAMPTEM # SEE IF COARSE-ALIGN JUST ON. IF SO,
007191,000884: 10,7234 74515 MASK BIT2 # IF SO, THE SYSTEM IS CYCLING UP SO SET
007192,000885: 10,7235 70727 MASK WASKSET # THE C-RELAYS FOR COARSE ALIGN.
007193,000886: 10,7236 10000 CCS A
007194,000887: 10,7237 07141 TC SETCOARS # USUAL RECONCILING WOULDNT WORK HERE.
007195,000888:
007196,000889: 10,7240 03007 MODALARM TC ALARM # UN-CALLED-FOR MODE CHANGE WITH COMPUTER
007197,000890: 10,7241 00204 OCT 00204 # DOING MODE SWITCHING.
007198,000891: 10,7242 02262 TC ENDKSAMP
007199,000892:
007200,000893: 10,7243 10637 RECONLUP CCS KSAMPTEM
007201,000894: 10,7244 07174 TC RECONCIL
007202,000895:
007203,000896: 10,7245 03007 TC ALARM # NO IMU MODE INDICATION BITS GIVEN.
007204,000897: 10,7246 00203 OCT 00203
007205,000898: 10,7247 02262 TC ENDKSAMP
007206,000899:
007207,000900:
007208,000901:
007209,000902: 10,7250 40731 KSAMP1 CS DESKSET # IS PRESENT MODE = COMMANDED
007210,000903: 10,7251 60637 AD KSAMPTEM
007211,000904: 10,7252 10000 CCS A
007212,000905: 10,7253 07263 TC KSAMP1A
007213,000906: 10,7254 37775 OCT37775 OCT 37775 # UNUSED CCS BRANCH - USED TO SET TRKR-ON.
007214,000907: 10,7255 07263 TC KSAMP1A
007215,000908:
007216,000909: 10,7256 10726 CCS OLDERR # TURN OFF THE PILOTS BUTTON BIT IF ON.
007217,000910: 10,7257 07331 TC PIBUTOFF
007218,000911:
007219,000912: 10,7260 30637 LVKSAMP XCH KSAMPTEM # YES
|
|
Page 183
|
007221,000914: 10,7261 50727 TS WASKSET
007222,000915: 10,7262 02262 TC ENDKSAMP
007223,000916:
007224,000917: 10,7263 34516 KSAMP1A CAF BIT1 # IS COMPUTER TRYING TO ZERO CDU AND
007225,000918: 10,7264 70731 MASK DESKSET # GETTING COARSE ALIGN.
007226,000919: 10,7265 60000 DOUBLE
007227,000920: 10,7266 70637 MASK KSAMPTEM
007228,000921: 10,7267 10000 CCS A
007229,000922: 10,7270 07322 TC IMUSTART # YES.
007230,000923:
007231,000924: 10,7271 37315 CAF OCT60 # SEE IF PILOTS BUTTON IS ON.
007232,000925: 10,7272 70731 MASK DESKSET # CHECK THAT TRNSW ON AND ATTITUDE CONTROL
007233,000926: 10,7273 70637 MASK KSAMPTEM # ARE DESIRED AND ACTUAL AND THAT EITHER
007234,000927: 10,7274 40000 COM # FINE ALIGN (FOLLOW) OR LOCK CDU (HOLD)
007235,000928: 10,7275 77315 MASK OCT60 # ARE PRESENT IN ADDITION. IF SO, SET BIT
007236,000929: 10,7276 10000 CCS A # 1 OF OLDERR TO INDICATE THIS CONDITION.
007237,000930: 10,7277 07312 TC KSAMP2A # MISSION PROGRAMS WILL DETECT THIS CON-
007238,000931: 10,7300 37335 CAF OCT14 # DITION WHEN THEY TEST OLDERR AS THEY DO
007239,000932: 10,7301 70637 MASK KSAMPTEM # PERIODICALLY.
007240,000933: 10,7302 10000 CCS A
007241,000934: 10,7303 07305 TC +2
007242,000935: 10,7304 07312 TC KSAMP2A
007243,000936:
007244,000937: 10,7305 44516 CS ONE
007245,000938: 10,7306 70726 MASK OLDERR
007246,000939: 10,7307 64516 AD ONE
007247,000940: 10,7310 50726 TS OLDERR
007248,000941: 10,7311 07260 TC LVKSAMP
007249,000942:
007250,000943: 10,7312 10727 KSAMP2A CCS WASKSET # CHECK ON PREVIOUS ACTIVITIES
007251,000944: 10,7313 07317 TC KSAMP3A # NORMAL OPERATION
007252,000945: 10,7314 07317 TC KSAMP3A # WAITING
007253,000946: 10,7315 00060 OCT60 OCT 60
007254,000947: 10,7316 02262 TC ENDKSAMP # SYSTEM FAILURE
007255,000948:
007256,000949: 10,7317 10723 KSAMP3A CCS DSPTAB +11D # SEE IF BANK IS TO BE CHANGED.
007257,000950: 10,7320 07324 TC SYSFAIL # NO - SYSTEM FAILURE.
007258,000951: 10,7321 07324 TC SYSFAIL
007259,000952:
007260,000953: 10,7322 35501 IMUSTART CAF WAITFLAG # SET WAITING FLAG AND EXIT.
007261,000954: 10,7323 07261 TC LVKSAMP +1
007262,000955:
007263,000956: 10,7324 45501 SYSFAIL CS ZERO # IMU SYSTEM FAILURE.
007264,000957: 10,7325 50727 TS WASKSET
007265,000958: 10,7326 03007 TC ALARM # CALL ALARM SUBROUTINE FOR DISPLAY.
007266,000959: 10,7327 00202 OCT 00202
007267,000960: 10,7330 02262 TC ENDKSAMP
007268,000961:
007269,000962: 10,7331 44516 PIBUTOFF CS ONE
007270,000963: 10,7332 70726 MASK OLDERR # BIT 1 OF OLDERR IS 1 IF THE PILOTS
|
|
Page 184
|
007272,000965: 10,7333 50726 TS OLDERR # BUTTON IS ON WHILE THE COMPUTERS
007273,000966: 10,7334 07260 TC LVKSAMP # COMMANDING.
007274,000967:
007275,000968: 10,7335 00014 OCT14 OCT 14
007276,000969: 10,7336 00012 FINE+CRS OCT 12
007277,000970: 10,7337 5501 WAITFLAG EQUALS ZERO
007278,000971:
007279,000972: 10,7337 2262 ENDKSAMP EQUALS LVDSRUPT
007280,000973:
|
|
Page 185
|
007282,000975:
007283,000976: # MANUAL CDU-ZERO PROGRAMS FOR IMU AND OPTICS CDUS.
007284,000977:
007285,000978: 10,7337 45503 MANCDU CS TWO # INITIATE MANUAL CDU ZERO MONITOR.
007286,000979: 10,7340 50731 TS DESKSET # (C-RELAYS WILL BE SET BY RECONCIL).
007287,000980: 10,7341 37501 CAF 35SCNDS
007288,000981: 10,7342 02173 TC WAITLIST
007289,000982: 10,7343 21350 CADR MANIZD
007290,000983:
007291,000984: 10,7344 36762 CAF OFFMASK # USUAL RECONCILING WOULDNT WORK HERE
007292,000985: 10,7345 70723 MASK DSPTAB +11D # SINCE THE SCAN IS FROM LEFT TO RIGHT.
007293,000986: 10,7346 67456 AD MODECHNG
007294,000987: 10,7347 07206 TC SETC +3
007295,000988:
007296,000989: # WAITLIST TASK TO COMPLETE MANUAL ZERO. TURNS OFF LIGHT TO INDICCATE COMPLETION.
007297,000990:
007298,000991: 10,7350 02731 MANIZD TC ZEROICTR # ZERO COUNTERS.
007299,000992: 10,7351 10731 CCS DESKSET # SET DESKSET TO +0 TO RESUME MANUAL
007300,000993: 10,7352 07356 TC +4 # MODE MONITORING UNLESS THE SYSTEM WAS
007301,000994: 10,7353 07356 TC +3 # PLACED UNDER COMPUTER CONTROL BY ANOTHER
007302,000995: 10,7354 35501 CAF ZERO # PROGRAM DURING THE 35 SEC. WAIT.
007303,000996: 10,7355 50731 TS DESKSET
007304,000997: 10,7356 02743 TC SETZLIT # TURN OFF LIGHT IF APPROPRIATE.
007305,000998: 10,7357 02256 TC TASKOVER
007306,000999:
|
|
Page 186
|
007308,001001:
007309,001002: # MANUAL OPTICS ZEROING PROCEDURES.
007310,001003: 10,7360 37502 MANOPTZ CAF 60SCNDS # MANUAL OPTICS ZEROING ROUTINE.
007311,001004: 10,7361 02173 TC WAITLIST # CALL WAITLIST FOR 30 SEC. WAIT
007312,001005: 10,7362 21372 CADR MANOZD
007313,001006: 10,7363 45503 CS TWO # SET ZEROING FLAG IN DESOPSET.
007314,001007: 10,7364 50732 TS DESOPSET
007315,001008: 10,7365 44664 CS CSQ # RECONCILE ZERO OPTICS C RELAY
007316,001009: 10,7366 70724 MASK DSPTAB +12D
007317,001010: 10,7367 64664 AD CSQ
007318,001011: 10,7370 50724 TS DSPTAB +12D
007319,001012: 10,7371 07057 TC RECONTRK
007320,001013:
007321,001014: # WAITLIST TASK TO COMPLETE MANUAL OPTICS ZERO.
007322,001015:
007323,001016: 10,7372 35501 MANOZD CAF ZERO
007324,001017: 10,7373 50732 TS DESOPSET # LEAVE MANUAL ZERO MONITOR
007325,001018: 10,7374 02671 TC ZEROOCTR +1 # SET OPTICS COUNTERS.
007326,001019: 10,7375 02743 TC SETZLIT # TURN OFF LIGHT (POSSIBLY) AS SIGNAL.
007327,001020: 10,7376 02256 TC TASKOVER
007328,001021:
|
|
Page 187
|
007330,001023:
007331,001024: # PROCEDURE TO TURN OFF AN OUTCR WHOSE RESET PULSE WAS INITIATED DURING THE FIRST OF TWO XCH OUT2 IN-
007332,001025:
007333,001026: # STRUCTIONS USED IN UPDATING THE CONTENTS OF OUT2. THE OCCURENCE OF THIS IS EXTREMELY RARE.
007334,001027:
007335,001028: 10,7377 74511 JACKPOT MASK BIT6 # SEE WHICH FIELD TURNED OFF UNEXPECTEDLY.
007336,001029: 10,7400 10000 CCS A
007337,001030: 10,7401 37406 CAF OCT00767 # IMU - MAKE UP MASK OCT 00377 .
007338,001031: 10,7402 67407 AD OCT77407 # OPTICS - MAKE UP MASK OCT 77407 .
007339,001032: 10,7403 70012 MASK OUT2 # THE PROBLEM WILL NOT RECUR HERE SINCE
007340,001033: 10,7404 50012 TS OUT2 # THIS IS WITHIN 26 MCT OF THE LAST PULSE.
007341,001034: 10,7405 00001 TC Q
007342,001035:
007343,001036: 10,7406 00767 OCT00767 OCT 00767
007344,001037: 10,7407 77407 OCT77407 OCT 77407
007345,001038:
|
|
Page 188
|
007347,001040:
007348,001041: # THE FOLLOWING PROGRAM TAKES A 2S COMPLEMENT DIFFERENCE BETWEEN THE ACTUAL CDU COUNTER AND THE DESIRED
007349,001042: # SETTING. THE AGC AD INSTRUCTION BY ITSELF CANNOT BE USED SINCE +0 = -0 THERE. TO COMPENSATE, IF THE SIGNS OF
007350,001043: # THE OPERANDS ARE DIFFERENT AND THE ROTATION NECESSARY TO NULL OUT THE ERROR PASSES THROUGH ZERO (NO OVERFLOW
007351,001044: # OCCURS IN DIFFERENCING THE DESIRED AND ACTUAL), A ONE WITH THE SIGN OF THE DESIRED ANGLE IS ADDEDTO THE DIFFER-
007352,001045: # ENCE.
007353,001046:
007354,001047: 10,7410 50577 2SCOMDIF TS ITEMP1 # NEGATIVE OF CDU COUNTER ARRIVES IN A.
007355,001048: 10,7411 30001 XCH Q
007356,001049: 10,7412 50574 TS ITEMP3
007357,001050: 10,7413 40600 CS ITEMP2 # C(ITEMP2) = -THE APPROPRIATE DES. ANGLE.
007358,001051: 10,7414 60577 AD ITEMP1
007359,001052: 10,7415 50034 TS OVCTR
007360,001053: 10,7416 07423 TC 2SCOM2 # IF NO OVERFLOW, SEE IF +-1 MUST BE ADDED
007361,001054:
007362,001055: 10,7417 20000 UNCOROVF INDEX A # IF OVERFLOW, SIMPLY DO OVERFLOW UNCOR-
007363,001056: 10,7420 34477 CAF LIMITS # RECTION AND EXIT.
007364,001057: 10,7421 60034 AD OVCTR
007365,001058: 10,7422 00574 TC ITEMP3
007366,001059:
007367,001060: 10,7423 10577 2SCOM2 CCS ITEMP1 # NO OVERFLOW - SEE IF SIGNS OF INPUTS ARE
007368,001061: 10,7424 07435 TC EXAM2 # DIFFERENT.
007369,001062: 10,7425 07435 TC EXAM2
007370,001063: 10,7426 07427 TC +1
007371,001064: 10,7427 10600 CCS ITEMP2
007372,001065: 10,7430 07443 TC INCEX- # ADD -1 AND EXIT HERE.
007373,001066: 10,7431 07443 TC INCEX-
007374,001067: 10,7432 07433 TC +1
007375,001068:
007376,001069: 10,7433 30034 DIFEX XCH OVCTR # ORIGINAL DIFFERENCE IS OK IF SIGNS SAME.
007377,001070: 10,7434 00574 TC ITEMP3
007378,001071:
007379,001072: 10,7435 10600 EXAM2 CCS ITEMP2
007380,001073: 10,7436 07433 TC DIFEX # SIGNS SAME HERE.
007381,001074: 10,7437 07433 TC DIFEX
007382,001075: 10,7440 07441 TC +1 # ADD +1 TO DIFFERENCE HERE.
007383,001076:
007384,001077: 10,7441 34516 CAF ONE
007385,001078: 10,7442 07444 TC +2
007386,001079: 10,7443 44516 INCEX- CS ONE
007387,001080: 10,7444 60034 AD OVCTR
007388,001081: 10,7445 50034 TS OVCTR
007389,001082: 10,7446 00574 TC ITEMP3 # NORMAL TRAIN OF EVENTS.
007390,001083: 10,7447 07417 TC UNCOROVF # THIS ONLY HAPPENS AT 180 DEGREES.
007391,001084:
|
|
Page 189
|
007393,001086:
007394,001087: # OUTCTR SETTINGS FOR OUT2, AND C-RELAY SETTING CONSTANTS FOR IMU MODES.
007395,001088:
007396,001089: 10,7450 50400 CDUCODES OCT 50400 # -Z CDU
007397,001090: 10,7451 51000 OCT 51000 # -Y CDU
007398,001091: 10,7452 52000 OCT 52000 # -X CDU
007399,001092: 10,7453 32000 OCT 32000 # +X CDU
007400,001093: 10,7454 31000 OCT 31000 # +Y CDU
007401,001094: 10,7455 30400 OCT 30400 # +Z CDU
007402,001095:
007403,001096: 10,7456 40011 MODECHNG OCT 40011 # (THIS CONSTANT IS NEVER USED BY RECONCIL
007404,001097: 10,7457 00002 OCT 00002 # BUT ONLY BY THE MANUAL ZEROING PROG.)
007405,001098: 10,7460 00004 OCT 00004
007406,001099: 10,7461 00010 OCT 00010
007407,001100: 10,7462 01000 OCT 01000
007408,001101: 10,7463 00000 OCT 00000 # (TRANSFER SWITCH - NOT USED).
007409,001102: 10,7464 02000 OCT 02000
007410,001103:
007411,001104: # ZERO-ENCODER LIGHT NOT COVERED HERE.
007412,001105:
007413,001106: 10,7465 00377 LOW8 OCT 377
007414,001107: 10,7466 10,7465 OUT2MASK EQUALS LOW8
007415,001108: 10,7466 77407 OPTMASK OCT 77407 # COMPLEMENT OF OUTCR2 ACTIVITY BITS.
007416,001109:
007417,001110: 10,7467 44400 OCT 44400 # -Z GYRO
007418,001111: 10,7470 45000 OCT 45000 # -Y GYRO
007419,001112: 10,7471 46000 OCT 46000 # -X GYRO.
007420,001113:
007421,001114: 10,7472 00220 OPTCODES OCT 00220 # -Y OPTICS CDU.
007422,001115: 10,7473 00240 OCT 00240 # -X OPTICS CDU.
007423,001116: 10,7474 00140 OCT 00140 # +X OPTICS CDU.
007424,001117: 10,7475 00120 OCT 00120 # +Y OPTICS CDU.
007425,001118:
007426,001119: 10,7476 26000 OCT 26000 # +X GYRO
007427,001120: 10,7477 25000 OCT 25000 # +Y GYRO
007428,001121: 10,7500 24400 OCT 24400 # +Z GYRO.
007429,001122:
007430,001123: 10,7501 06654 35SCNDS DEC 35. E2 # FOR MANUAL IMUCDU ZEROING.
007431,001124: 10,7502 13560 60SCNDS DEC 60. E2 # FOR MANUAL OPTICS ZEROING.
007432,001125: 10,7503 06022 NWMASK OCT 06022 # IMU, PIPA, RESTART FAIL AND CURTAINS.
007433,001126: 10,7504 2261 HI5 EQUALS BANKMASK
End of include-file T4RUPT_OUTPUT_CONTROL_PROGRAMS.agc. Parent file is MAIN.agc