Source Code
|
These source-code files are part of a reconstructed copy of Sunrise 69, the
final release of the Block I Command Module (CM) Apollo Guidance Computer
(AGC) system test software.
They have been created via disassembly of binary dumps of original core rope
memory modules, part numbers 1003133-18, 1003133-19, 1003133-20, and 1003733-071.
Corresponding portions of code have been copied from Solarium 55 where applicable.
Extensive use was also made of the AGC Information Series documents, which were specifically
written about the Sunrise software.
Since only binary dumps (rather than listings) of Sunrise are available as source material,
all comments and labels are approximate.
They have been taken from other AGC programs where possible, or, in some places, written
from scratch to match what we believe would have been in the original listing.
|
004324,000002: ## Copyright: Public domain.
004325,000003: ## Filename: T4RUPT_OUTPUT_CONTROL_PROGRAMS.agc
004326,000004: ## Purpose: A section of Sunrise 69.
004327,000005: ## It is part of the reconstructed source code for the final
004328,000006: ## release of the Block I Command Module system test software. No
004329,000007: ## original listings of this program are available; instead, this
004330,000008: ## file was created via disassembly of dumps of Sunrise core rope
004331,000009: ## memory modules and comparison with the later Block I program
004332,000010: ## Solarium 55.
004333,000011: ## Assembler: yaYUL --block1
004334,000012: ## Contact: Ron Burkey <info@sandroid.org>.
004335,000013: ## Website: www.ibiblio.org/apollo/index.html
004336,000014: ## Mod history: 2023-06-19 MAS Created from Sunrise 45.
004337,000015:
004338,000016: 2427 BANK 1
004339,000017: 2427 35500 T4RUPT CAF ZERO # ALONSO THINKS THIS SHOULD BE TURNED OFF
004340,000018: 2430 50010 TS OUT0 # EVERY 60 MS AS A MATTER OF COURSE.
004341,000019: 2431 10703 CCS DSRUPTSW # SEE IF THIS IS A SPECIAL RUPT TO
004342,000020: 2432 02442 TC REGRUPT +1 # ZERO OUT0 20MS AFTER IT WAS DRIVEN BY
004343,000021: 2433 02441 TC REGRUPT # DSPOUT. IF SO, DSRUPTSW IS NNZ.
004344,000022:
004345,000023: 2434 64516 AD ONE # RESTORE DSRUPTSW TO ITS POSITIVE VALUE.
004346,000024: 2435 50703 TS DSRUPTSW
004347,000025:
004348,000026: 2436 32450 CAF 40MSRUPT # SET TIME4 TO INTERRUPT 40 MS FROM NOW.
004349,000027: 2437 50040 TS TIME4 # RE-ESTABLISHING THE REGULAR 60 MS
004350,000028: 2440 02213 TC NBRESUME # PATTERN. THEN DO NO-BANK-SWITCH RESUME.
004351,000029:
004352,000030: 2441 35361 REGRUPT CAF SEVEN # REGULAR 60 MS RUPT - COUNT DOWN ON
004353,000031: 2442 50703 +1 TS DSRUPTSW # DSRUPTSW.
004354,000032:
004355,000033: 2443 32447 CAF LT4RUPTA # CALL IN APPROPRIATE BANK.
004356,000034: 2444 30015 XCH BANKREG # SAVE BANKREG FOR RESUME.
004357,000035: 2445 50575 TS BANKRUPT
004358,000036: 2446 06000 TC T4RUPTA
004359,000037:
004360,000038: 2447 20000 LT4RUPTA CADR T4RUPTA
004361,000039:
004362,000040: 2450 37774 40MSRUPT OCT 37774 # INTERRUPT IN 40 MS.
004363,000041:
004364,000042:
004365,000043: # RELTAB IS A PACKED TABLE. RELAYWORD CODE IN UPPER 4 BITS, RELAY CODE
004366,000044: # IN LOWER 5 BITS.
004367,000045:
004368,000046: 2451 04025 RELTAB OCT 04025
004369,000047: 2452 10003 OCT 10003
004370,000048: 2453 14031 OCT 14031
004371,000049: 2454 20033 OCT 20033
004372,000050: 2455 24017 OCT 24017
004373,000051: 2456 30036 OCT 30036
004374,000052: 2457 34034 OCT 34034
004375,000053: 2460 40023 OCT 40023
004376,000054: 2461 44035 OCT 44035
004377,000055: 2462 50037 OCT 50037
004378,000056: 2463 54000 OCT 54000
004379,000057: 2464 60000 RELTAB11 OCT 60000
004380,000058: 2465 64000 OCT 64000
004381,000059: 2466 70000 OCT 70000 # ALSO USEFUL AS A BANK-SWITCHING MASK.
004382,000060:
004383,000061: # SWITCHED-BANK PORTION OF T4RUPT.
004384,000062:
004385,000063: 10,6000 BANK 10
004386,000064: 10,6000 30034 T4RUPTA XCH OVCTR # SAVE OVCTR.
004387,000065: 10,6001 50576 TS OVRUPT
004388,000066:
004389,000067: 10,6002 36522 CAF 60MSRUPT # T4 NORMALLY INTERRUPTS EVERY 60 MS.
004390,000068: 10,6003 50040 TS TIME4
004391,000069:
004392,000070: 10,6004 10704 DSKYON CCS CDUIND # DO AN IMU-CDU IF DESIRED.
004393,000071: 10,6005 06012 TC DOIMUCDU +1 # WITH NEW CDUIND IN A.
004394,000072: 10,6006 06011 TC DOIMUCDU # SET COUNT TO 2.
004395,000073:
004396,000074: 10,6007 06070 TC DSRUPTBR # NO CDU. NNZ MEANS CDUS ARE RESERVED.
004397,000075: 10,6010 06070 TC DSRUPTBR # -0 MEANS THEY ARE AVAILABLE.
004398,000076:
004399,000077:
004400,000078: # T4RUPT IMU CDU DRIVE - SERVICED EVERY 60 MS.
004401,000079:
004402,000080: 10,6011 35502 DOIMUCDU CAF TWO # SET CDUIND BACK TO 2.
004403,000081: 10,6012 50704 +1 TS CDUIND
004404,000082:
004405,000083: 10,6013 30003 XCH LP # SAVE LP FOR IMU CDU DRIVE ONLY.
004406,000084: 10,6014 50577 TS LPRUPT
004407,000085:
004408,000086: 10,6015 20704 INDEX CDUIND # 0 FOR X, 1 FOR Y, AND 2 FOR Z.
004409,000087: 10,6016 40705 CS THETAD # PICK UP DESIRED ANGLE.
004410,000088: 10,6017 40000 COM
004411,000089: 10,6020 50573 TS ITEMP2
004412,000090:
004413,000091: 10,6021 20704 INDEX CDUIND
004414,000092: 10,6022 40047 CS CDUX # READ AND SAVE CDU COUNTER.
004415,000093: 10,6023 06770 TC 2SCOMDIF # DIFFERENCE WITH -0 UNEQUAL TO +0.
004416,000094:
004417,000095: 10,6024 25777 EXTEND # RETURNS WITH DIFFERENCE IN A.
004418,000096: 10,6025 40713 MP KG
004419,000097: 10,6026 20704 INDEX CDUIND
004420,000098: 10,6027 30710 XCH COMMAND
004421,000099: 10,6030 25777 EXTEND
004422,000100: 10,6031 40714 MP KH
004423,000101: 10,6032 20704 INDEX CDUIND
004424,000102: 10,6033 60710 AD COMMAND
004425,000103: 10,6034 20704 INDEX CDUIND
004426,000104: 10,6035 50710 TS COMMAND
004427,000105: 10,6036 50572 TS ITEMP1 # COMMAND TO TEMP STORAGE
004428,000106: 10,6037 10000 CCS A # CHECK SIGNUM OF COMMAND
004429,000107: 10,6040 06047 TC POSCOM2
004430,000108: 10,6041 06065 TC CDURSM
004431,000109: 10,6042 06044 TC NEGCOM2
004432,000110: 10,6043 06065 TC CDURSM
004433,000111:
004434,000112: 10,6044 50572 NEGCOM2 TS ITEMP1 # SAVE CCS OF COMMAND.
004435,000113: 10,6045 40704 CS CDUIND # USE NEGATIVE TO SELECT OUT2 PATTERN.
004436,000114: 10,6046 06052 TC CDUOUT
004437,000115:
004438,000116: 10,6047 50572 POSCOM2 TS ITEMP1 # SAME AS ABOVE EXCEPT 1+CDUIND SELECTS.
004439,000117: 10,6050 34516 CAF ONE
004440,000118: 10,6051 60704 AD CDUIND
004441,000119:
004442,000120: 10,6052 50001 CDUOUT TS Q
004443,000121: 10,6053 37040 CAF LOW8 # INTERRUPT OUT2 PULSES DURING OUT
004444,000122: 10,6054 70012 MASK OUT2 # OUT2 MODIFICATION.
004445,000123: 10,6055 50012 TS OUT2
004446,000124:
004447,000125: 10,6056 40572 CS ITEMP1 # FORM 1.0 - ABS(COMMAND).
004448,000126: 10,6057 64476 AD POSMAX
004449,000127: 10,6060 50042 TS OUTCR1
004450,000128:
004451,000129: 10,6061 20001 INDEX Q
004452,000130: 10,6062 37025 CAF CDUCODES +2
004453,000131: 10,6063 60012 AD OUT2
004454,000132: 10,6064 50012 TS OUT2
004455,000133:
004456,000134: 10,6065 34516 CDURSM CAF ONE # RESTORE LP.
004457,000135: 10,6066 25777 EXTEND
004458,000136: 10,6067 40577 MP LPRUPT
004459,000137:
004460,000138:
004461,000139: # BRANCH ACCORDING TO DSRUPTSW AND PERFORM THE APPROPRIATE DSRUPT FUNCTIONS.
004462,000140:
004463,000141: 10,6070 20703 DSRUPTBR INDEX DSRUPTSW # JUMP ON DSRUPTSW.
004464,000142: 10,6071 06072 TC +1
004465,000143: 10,6072 06352 TC TMCHECK # =0
004466,000144: 10,6073 06220 TC CDRVE # =1
004467,000145: 10,6074 06352 TC TMCHECK # =2
004468,000146: 10,6075 06220 TC CDRVE # =3
004469,000147: 10,6076 06352 TC TMCHECK # =4
004470,000148: 10,6077 06176 TC OPTTEST # =5 SERVICE OPTICS CDUS.
004471,000149: 10,6100 06352 TC TMCHECK # =6
004472,000150:
004473,000151:
004474,000152: # SYSTEM FAILURE INPUT BITS MONITOR - ENTERED EVERY 480 MS BY T4RUPT.
004475,000153:
004476,000154: 10,6101 10746 ERRORMON CCS OLDERR # IGNORE BITS IF C(OLDERR) = 40000
004477,000155: 10,6102 06105 TC ERRMON # ORDINARILY POSITIVE.
004478,000156: 10,6103 06105 TC ERRMON
004479,000157: 10,6104 06220 TC ENDT4ERR
004480,000158:
004481,000159: 10,6105 30006 ERRMON XCH IN2 # REFRESH LAST-SAMPLED-ERRORS REGISTER.
004482,000160: 10,6106 30006 XCH IN2
004483,000161: 10,6107 76115 MASK ERRMASK
004484,000162: 10,6110 30746 XCH OLDERR
004485,000163: 10,6111 40000 COM
004486,000164: 10,6112 60746 AD OLDERR
004487,000165: 10,6113 10000 CCS A
004488,000166: 10,6114 06120 TC ERRCHANG # CHANGED.
004489,000167: 10,6115 07000 ERRMASK OCT 07000 # IMU, CDU, AND PIPA FAIL.
004490,000168: 10,6116 06120 TC ERRCHANG
004491,000169: 10,6117 06220 TC ENDT4ERR # EXIT - NO CHANGE HAS TAKEN PLACE.
004492,000170:
004493,000171: 10,6120 36136 ERRCHANG CAF LITESOUT
004494,000172: 10,6121 70743 MASK DSPTAB +11D
004495,000173: 10,6122 64500 AD BIT15 # TO INDICATE CHANGE.
004496,000174: 10,6123 50743 TS DSPTAB +11D
004497,000175:
004498,000176: 10,6124 35502 CAF TWO # TURN ON LIGHTS ACCORDING TO C(OLDERR).
004499,000177: 10,6125 50573 ERRSCAN TS ITEMP2
004500,000178: 10,6126 20000 INDEX A
004501,000179: 10,6127 34503 CAF BIT12 # SELECT BIT IN OLDERR.
004502,000180: 10,6130 70746 MASK OLDERR
004503,000181: 10,6131 10000 CCS A
004504,000182: 10,6132 06137 TC BITON # BIT IS PRESENT.
004505,000183:
004506,000184: 10,6133 10573 ERRSCAN3 CCS ITEMP2 # LOOP THREE TIMES THROUGH.
004507,000185: 10,6134 06125 TC ERRSCAN
004508,000186:
004509,000187: 10,6135 06220 TC ENDT4ERR # FINISHED.
004510,000188:
004511,000189: 10,6136 37437 LITESOUT OCT 37437
004512,000190:
004513,000191:
004514,000192: # PROCESS ERROR SIGNALS PRESENT. NOTE THAT C(WASKSET) INDICATES THE STATE OF THE SYSTEM SINCE NO RELAYS
004515,000193: # HAVE BEEN SWITCHED IN THE LAST 120 MS, AND KSAMP WAS EXECUTED 60 MS AGO.
004516,000194:
004517,000195: 10,6137 20573 BITON INDEX ITEMP2 # 2, 1, OR 0.
004518,000196: 10,6140 06141 TC +1
004519,000197: 10,6141 06144 TC IMUFAIL
004520,000198: 10,6142 06174 TC PIPAFAIL
004521,000199: 10,6143 06161 TC CDUFAIL
004522,000200:
004523,000201: 10,6144 10747 IMUFAIL CCS WASKSET # FAILURE NOT LEGITMATE IF IN COARSE ALIGN
004524,000202: 10,6145 06154 TC IMUFAIL2 # PURSUE THIS ONE.
004525,000203: 10,6146 06150 TC IMUFAIL3
004526,000204: 10,6147 06150 TC IMUFAIL3
004527,000205:
004528,000206: 10,6150 34507 IMUFAIL3 CAF BIT8 # TURN ON IMU FAIL LIGHT.
004529,000207: 10,6151 60743 FAILITON AD DSPTAB +11D # (WHICH HAD BEEN ZEROED IN ALL LIGHT
004530,000208: 10,6152 50743 TS DSPTAB +11D # POSITIONS).
004531,000209: 10,6153 06133 TC ERRSCAN3 # PROCESS NEXT INPUT BIT.
004532,000210:
004533,000211: 10,6154 64516 IMUFAIL2 AD ONE # SEE IF COASE ALIGN ACHIEVED.
004534,000212: 10,6155 74515 MASK BIT2
004535,000213: 10,6156 10000 CCS A
004536,000214: 10,6157 06133 TC ERRSCAN3
004537,000215: 10,6160 06150 TC IMUFAIL3 # FAILED.
004538,000216:
004539,000217: 10,6161 10747 CDUFAIL CCS WASKSET
004540,000218: 10,6162 07723 TC CDUFAIL2 # FAILURE ONLY IF IN FINE ALIGN.
004541,000219: 10,6163 06165 TC CDUFAIL3
004542,000220: 10,6164 06165 TC CDUFAIL3
004543,000221:
004544,000222: 10,6165 34511 CDUFAIL3 CAF BIT6 # CDU FAIL LIGHT ON.
004545,000223: 10,6166 06151 TC FAILITON
004546,000224:
004547,000225: 10,6167 64516 AD ONE
004548,000226: 10,6170 74516 MASK BIT1
004549,000227: 10,6171 10000 CCS A
004550,000228: 10,6172 06133 TC ERRSCAN3
004551,000229: 10,6173 06165 TC CDUFAIL3
004552,000230:
004553,000231: 10,6174 34510 PIPAFAIL CAF BIT7 # TURN ON FAIL LIGHT UNCONDITIONALLY.
004554,000232: 10,6175 06151 TC FAILITON
004555,000233:
004556,000234: 10,6176 10,6220 NOOPTCDU EQUALS CDRVE
004557,000235: 10,6176 10,6220 ENDT4ERR EQUALS CDRVE
004558,000236:
004559,000237:
004560,000238: # OPTICS CDU DRIVING PROGRAM, SERVICED EVERY 480 MS BY DSRUPT.
004561,000239:
004562,000240: 10,6176 10723 OPTTEST CCS OPTIND # PNZ FOR ACTIVE, NEGATIVE FOR INACTIVE.
004563,000241: 10,6177 06204 TC +5 # DRIVE CDU.
004564,000242: 10,6200 06203 TC +3 # DRIVE CDU.
004565,000243: 10,6201 06220 TC NOOPTCDU # NNZ MEANS RESERVED.
004566,000244: 10,6202 06220 TC NOOPTCDU # -0 MEANS AVAILABLE.
004567,000245:
004568,000246: 10,6203 34516 +3 CAF ONE # GOES 1(-1)0.
004569,000247: 10,6204 50723 +5 TS OPTIND
004570,000248:
004571,000249: 10,6205 50600 TS RUPTREG1 # SET UP OUT2SUB TO START OUT-COUNTER.
004572,000250: 10,6206 34516 CAF ONE # (TO ADDRESS OUTCR2).
004573,000251: 10,6207 50601 TS RUPTREG2
004574,000252:
004575,000253: 10,6210 10723 CCS OPTIND # DRIVE OPTICS Y DIFFERENT THAN OTHERS.
004576,000254: 10,6211 07757 TC BLIVOT3 # OVF UNCORRECTION WONT WORK FOR OPTY.
004577,000255:
004578,000256: 10,6212 60724 AD DESOPTX # DESIRED ANGLES.
004579,000257: 10,6213 50573 TS ITEMP2
004580,000258:
004581,000259: 10,6214 20723 INDEX OPTIND
004582,000260: 10,6215 40052 CS OPTX # READ COUNTER.
004583,000261: 10,6216 06770 TC 2SCOMDIF # TAKES DIFFERENCE WITH -0 UNEQUAL TO +0.
004584,000262:
004585,000263: 10,6217 06316 OPTOUT TC OUT2SUB
004586,000264:
004587,000265: # CDRVE CHANGES A BANK OF C RELAYS IF ANY CHANGE IS INDICATED IN THE C-RELAY PORTION OF DSPTAB.
004588,000266:
004589,000267: 10,6220 10743 CDRVE CCS DSPTAB +11D # IMU AND CAUTION LIGHTS.
004590,000268: 10,6221 06230 TC CDRVE1
004591,000269: 10,6222 06230 TC CDRVE1
004592,000270:
004593,000271: 10,6223 30743 XCH DSPTAB +11D
004594,000272: 10,6224 74302 MASK LOW11
004595,000273: 10,6225 50743 TS DSPTAB +11D
004596,000274: 10,6226 62464 AD RELTAB11
004597,000275: 10,6227 06307 TC DSPLAYC
004598,000276:
004599,000277: 10,6230 10744 CDRVE1 CCS DSPTAB +12D # OPTICS.
004600,000278: 10,6231 06240 TC CDRVE2
004601,000279: 10,6232 06240 TC CDRVE2
004602,000280:
004603,000281: 10,6233 30744 XCH DSPTAB +12D
004604,000282: 10,6234 74302 MASK LOW11
004605,000283: 10,6235 50744 TS DSPTAB +12D
004606,000284: 10,6236 62465 AD RELTAB11 +1
004607,000285: 10,6237 06307 TC DSPLAYC
004608,000286:
004609,000287: 10,6240 10745 CDRVE2 CCS DSPTAB +13D # SPACECRAFT RELAYS.
004610,000288: 10,6241 06250 TC DSPOUT
004611,000289: 10,6242 06250 TC DSPOUT
004612,000290:
004613,000291: 10,6243 30745 XCH DSPTAB +13D
004614,000292: 10,6244 74302 MASK LOW11
004615,000293: 10,6245 50745 TS DSPTAB +13D
004616,000294: 10,6246 62466 AD RELTAB11 +2
004617,000295: 10,6247 06307 TC DSPLAYC
004618,000296:
004619,000297: 10,6250 10727 DSPOUT CCS NOUT # ENTERED IN INTERRUPTED STATE AT END OF
004620,000298: 10,6251 06253 TC +2 # DSRUPT
004621,000299: 10,6252 02207 TC LVDSRUPT
004622,000300: 10,6253 50727 TS NOUT
004623,000301: 10,6254 45500 CS ZERO
004624,000302: 10,6255 50573 TS DSRUPTEM # SET TO -0 FOR 1ST PASS THRU DSPTAB
004625,000303: 10,6256 30726 XCH DSPCNT
004626,000304: 10,6257 65503 AD NEG0 # TO PREVENT +0
004627,000305: 10,6260 50726 TS DSPCNT
004628,000306: 10,6261 20726 DSPSCAN INDEX DSPCNT
004629,000307: 10,6262 10730 CCS DSPTAB
004630,000308: 10,6263 10726 CCS DSPCNT # IF DSPTAB ENTRY +, SKIP
004631,000309: 10,6264 06257 TC DSPSCAN -2 # IF DSPCNT +, AGAIN
004632,000310: 10,6265 06276 TC DSPLAY # IF DSPTAB ENTRY -, DISPLAY
004633,000311: 10,6266 00012 TABLNTH OCT 12 # DEC 10 LENGTH OF DSPTAB
004634,000312: 10,6267 10573 CCS DSRUPTEM # IF DSRUPTEM=+0,2ND PASS THRU DSPTAB
004635,000313: 10,6271 LOC +1 # (DSPCNT=0). +0 INTO NOUT, RESUME.
004636,000314: 10,6271 50727 TS NOUT
004637,000315: 10,6272 02207 TC LVDSRUPT
004638,000316: 10,6273 50573 TS DSRUPTEM # IF DSRUPTEM=-0,1ST PASS THRU DSPTAB
004639,000317: 10,6274 36266 CAF TABLNTH # (DSPCNT=0). +0 INTO DSRUPTEM. PASS AGAIN
004640,000318: 10,6275 06260 TC DSPSCAN -1
004641,000319:
004642,000320: 10,6276 64516 DSPLAY AD ONE
004643,000321: 10,6277 20726 INDEX DSPCNT
004644,000322: 10,6300 50730 TS DSPTAB # REPLACE POSITIVELY
004645,000323: 10,6301 74302 MASK LOW11 # REMOVE BITS 12 TO 15
004646,000324: 10,6302 50573 TS DSRUPTEM
004647,000325: 10,6303 32206 CAF HI5
004648,000326: 10,6304 20726 INDEX DSPCNT
004649,000327: 10,6305 72451 MASK RELTAB # PICK UP BITS 12 TO 15 OF RELTAB ENTRY
004650,000328: 10,6306 60573 AD DSRUPTEM
004651,000329: 10,6307 50010 DSPLAYC TS OUT0
004652,000330: 10,6310 50676 TS DISPBUF
004653,000331: 10,6311 36607 CAF 20MSRUPT # SET T4 TO INTERRUPT IN 20 MS SO OUT0 MAY
004654,000332: 10,6312 50040 TS TIME4 # BE TURNED OFF AS SOON AS POSSIBLE. WHEN
004655,000333: 10,6313 40703 CS DSRUPTSW # THIS RUPT OCCURS, T4 IS RESET TO FIRE
004656,000334: 10,6314 50703 TS DSRUPTSW # IN 40MS, RE-ESTABLISHING THE REGULAR 60.
004657,000335:
004658,000336: 10,6315 02207 TC LVDSRUPT
004659,000337:
004660,000338: 10,6316 2207 LVDSRUPT EQUALS OVRESUME
004661,000339:
004662,000340:
004663,000341: # OUT2SUB IS USED BY THE GYRO DRIVE AND THE OPTICS CDU DRIVE TO SET THE PROPER SECTION OF OUT2 AND THE
004664,000342: # PROPER OUT-COUNTER TO DELIVER THE COMMAND ARRIVING IN A.
004665,000343:
004666,000344: 10,6316 50572 OUT2SUB TS ITEMP1 # SIGNED COMMAND.
004667,000345: 10,6317 30001 XCH Q
004668,000346: 10,6320 50573 TS ITEMP2
004669,000347: 10,6321 10572 CCS ITEMP1
004670,000348: 10,6322 06331 TC POSCOM
004671,000349: 10,6323 00573 TC ITEMP2 # RETURN TO CALLER ON EITHER ZERO.
004672,000350: 10,6324 06326 TC NEGCOM
004673,000351: 10,6325 00573 TC ITEMP2
004674,000352:
004675,000353: 10,6326 50572 NEGCOM TS ITEMP1 # CCS OF COMMAND LEFT IN ITEMP1
004676,000354: 10,6327 40600 CS RUPTREG1 # 0 AND 1 FOR OPTICS - 2, 3, AND 4 FOR GYR
004677,000355: 10,6330 06334 TC SETOUT2
004678,000356:
004679,000357: 10,6331 50572 POSCOM TS ITEMP1 # CCS OF COMMAND.
004680,000358: 10,6332 34516 CAF ONE
004681,000359: 10,6333 60600 AD RUPTREG1
004682,000360:
004683,000361:
004684,000362: 10,6334 50001 SETOUT2 TS Q
004685,000363: 10,6335 20601 INDEX RUPTREG2
004686,000364: 10,6336 37040 CAF OUT2MASK
004687,000365: 10,6337 70012 MASK OUT2
004688,000366: 10,6340 50012 TS OUT2
004689,000367:
004690,000368: 10,6341 40572 CS ITEMP1 # ABS(COMMAND) - 1.
004691,000369: 10,6342 64476 AD POSMAX # FORMS 1.0 - ABS(COMMAND).
004692,000370: 10,6343 20601 INDEX RUPTREG2
004693,000371: 10,6344 50042 TS OUTCR1
004694,000372:
004695,000373: 10,6345 20001 INDEX Q # ENABLE THE APPROPRIATE OUTCR BY SETTING
004696,000374: 10,6346 37046 CAF OPTCODES +1 # THE PROPER CODE IN OUT2
004697,000375: 10,6347 60012 AD OUT2
004698,000376: 10,6350 50012 TS OUT2
004699,000377:
004700,000378: 10,6351 00573 TC ITEMP2
004701,000379:
004702,000380: # ALTERNATE 120 MS LEG OF T4RUPT.
004703,000381:
004704,000382: 10,6352 35361 TMCHECK CAF SEVEN # ALLOW UP TO SEVEN TM WORDS UNTIL NEXT
004705,000383: 10,6353 30675 XCH TELCOUNT # DSRUPT0 EXECUTION. CHECK LAST TM PERIOD
004706,000384: 10,6354 66356 AD NEG7 # TO SEE IF AT LEAST ONE WORD WENT OUT.
004707,000385: 10,6355 10000 CCS A # THIS SATISFIES BOTH HIGH- AND LOW-POWER.
004708,000386:
004709,000387: 10,6356 77770 NEG7 DEC -7 B-14
004710,000388: 10,6360 LOC +1
004711,000389: 10,6360 06362 TC +2 # OK - PROCEED.
004712,000390: 10,6361 02361 TC TMFAIL # TURN ON TM FAIL LIGHT BEFORE KSAMP.
004713,000391:
004714,000392: 10,6362 30007 MODESAMP XCH IN3 # SAMPLE MODE BITS AND TUCK THEM AWAY
004715,000393: 10,6363 30007 XCH IN3 # FOR KSAMP AND OPTSAMP.
004716,000394: 10,6364 50600 TS KSAMPTEM
004717,000395: 10,6365 74717 MASK LOW7
004718,000396: 10,6366 30600 XCH KSAMPTEM
004719,000397: 10,6367 76441 MASK OPTBITS
004720,000398: 10,6370 50601 TS OSAMPTEM
004721,000399: 10,6371 30004 XCH IN0 # THIS CLEARS THE KEY CODE WITHIN 120MS
004722,000400: # OF THE TIME THE KEY WAS RELEASED.
004723,000401:
004724,000402: 10,6372 74510 MASK BIT7
004725,000403: 10,6373 50034 TS OVCTR # SEE IF INHIBIT UP-SYNC BIT IS ON.
004726,000404: 10,6374 10000 CCS A
004727,000405: 10,6375 02361 TC TMFAIL # IF SO, TURN ON TELEMETRY FAIL LIGHT.
004728,000406:
004729,000407: 10,6376 10034 CCS OVCTR # SEE IF MARK BUTTON DOWN.
004730,000408: 10,6377 06405 TC OPTSAMP
004731,000409: 10,6400 06405 TC OPTSAMP
004732,000410: 10,6401 06402 TC +1
004733,000411: 10,6402 36453 CAF NOMKACPT # DONT INCLUDE MARK ACCEPT INFORMATION.
004734,000412: 10,6403 70601 MASK OSAMPTEM
004735,000413: 10,6404 50601 TS OSAMPTEM
004736,000414:
004737,000415:
004738,000416: # OPTICS MODE SAMPLING.
004739,000417:
004740,000418: 10,6405 10752 OPTSAMP CCS DESOPSET # IS COMPUTER COMMANDING
004741,000419: 10,6406 06422 TC OPTCOMM # YES
004742,000420: 10,6407 06516 TC NOOPCOM # NO
004743,000421:
004744,000422: 10,6410 34503 CAF BIT12 # MAKE SURE WE ARE STILL ZEROING
004745,000423: 10,6411 70601 MASK OSAMPTEM # (THIS PORTION ENTERED FOR 30 SEC. DURING
004746,000424: 10,6412 60750 AD WASOPSET # MANUAL OPTICS ZERO).
004747,000425: 10,6413 74503 MASK BIT12 # SEE IF CDU-ZERO BIT HAS CHANGED.
004748,000426: 10,6414 10000 CCS A # ALARM IF SO.
004749,000427: 10,6415 06417 TC +2
004750,000428: 10,6416 06561 TC LVOPTSMP
004751,000429:
004752,000430: 10,6417 02605 TC ALARM # IF NOT, ALARM ON
004753,000431: 10,6420 00101 OCT 00101 # OPTICS ALARM NO. 1.
004754,000432: 10,6421 06561 TC LVOPTSMP
004755,000433:
004756,000434: 10,6422 34501 OPTCOMM CAF BIT14 # SEE IF COMPUTER-ON SWITCH JUST CHANGED.
004757,000435: 10,6423 70750 MASK WASOPSET # FORM WAS BIT14 - IS BIT14.
004758,000436: 10,6424 50001 TS Q
004759,000437: 10,6425 34501 CAF BIT14
004760,000438: 10,6426 70601 MASK OSAMPTEM # PRESENT INPUT BITS.
004761,000439: 10,6427 40000 COM
004762,000440: 10,6430 60001 AD Q
004763,000441: 10,6431 10000 CCS A
004764,000442: 10,6432 06460 TC COMP.OFF # SWITCH JUST TURNED OFF.
004765,000443: 10,6433 34760 OFFMASK OCT 34760 # USED FOR SETTING IMU C-RELAYS.
004766,000444: 10,6434 06467 TC COMP.ON # SWITCH JUST TURNED ON.
004767,000445:
004768,000446: 10,6435 40752 OPTCOMM2 CS DESOPSET # SEE IF DESIRED MODE ACHIEVED.
004769,000447: 10,6436 60601 AD OSAMPTEM
004770,000448: 10,6437 10000 CCS A
004771,000449: 10,6440 06443 TC OPTCTEST # COMMAND NOT EQUAL TO ACTUAL
004772,000450: 10,6441 35000 OPTBITS OCT 35000
004773,000451: 10,6442 06450 TC OPTCOMM3 # NO MATCH - SEE IF COMP ON ONLY MISMATCH.
004774,000452:
004775,000453: 10,6443 10744 OPTCTEST CCS DSPTAB +12D # IS CHANGE COMING.
004776,000454: 10,6444 06477 TC OPTCFAIL # NO - C-RELAY FAILURE OR UNWANTED MANUAL
004777,000455: 10,6445 06477 TC OPTCFAIL # INTERVENTION.
004778,000456:
004779,000457: 10,6446 35500 CAF ZERO # LEAVE WAITING FLAG IN WASOPSET.
004780,000458: 10,6447 06562 TC LVOPTSMP +1
004781,000459:
004782,000460: 10,6450 66665 OPTCOMM3 AD -BIT14+1 # NO ERROR IF COMPUTER-ON ONLY ONE DIFF.
004783,000461: 10,6451 10000 CCS A
004784,000462: 10,6452 06443 TC OPTCTEST
004785,000463: 10,6453 31000 NOMKACPT OCT 31000
004786,000464: 10,6454 06443 TC OPTCTEST
004787,000465: 10,6455 34501 CAF BIT14 # IN THIS CASE, SET COMP.ON BIT TO 1 IN
004788,000466: 10,6456 60601 AD OSAMPTEM # WASOPSET TO PREVENT +0 FOR CORRECT MODES
004789,000467: 10,6457 06562 TC LVOPTSMP +1
004790,000468:
004791,000469: 10,6460 10723 COMP.OFF CCS OPTIND # TAKE AGC OUT OF CDU LOOP IF APPROPRIATE.
004792,000470: 10,6461 06463 TC +2
004793,000471: 10,6462 06463 TC +1 # POSITIVE MEANS COMPUTER WAS IN LOOP.
004794,000472: 10,6463 34516 CAF ONE # LEAVE CDUS RESERVED (RARE).
004795,000473: 10,6464 40000 COM # -0 REVERTS TO -0.
004796,000474: 10,6465 50723 TS OPTIND
004797,000475:
004798,000476: 10,6466 06435 TC OPTCOMM2 # DO MODE CHECK.
004799,000477:
004800,000478: 10,6467 10723 COMP.ON CCS OPTIND # PUT AGC BACK INTO CDU LOOP IF DESIRED.
004801,000479: 10,6470 06473 TC ONALARM # (THIS SHOULD NEVER HAPPEN).
004802,000480: 10,6471 06473 TC ONALARM
004803,000481: 10,6472 06514 TC ONOK # CDUS HAD BEEN RESERVED.
004804,000482:
004805,000483: 10,6473 06504 ONALARM TC OFAILTST # SEE IF FAIL FLAG ALREADY SET.
004806,000484: 10,6474 02605 TC ALARM # ALARM AND SET FAILURE FLAG.
004807,000485: 10,6475 00104 OCT 00104
004808,000486: 10,6476 06502 TC OFAILSET
004809,000487:
004810,000488: 10,6477 06504 OPTCFAIL TC OFAILTST # SEE IF ALARM ALREADY SOUNDED.
004811,000489: 10,6500 02605 TC ALARM # ALARM AND SET FAIL FLAG IF NOT.
004812,000490: 10,6501 00102 OCT 00102
004813,000491:
004814,000492: 10,6502 45500 OFAILSET CS ZERO
004815,000493: 10,6503 06562 TC LVOPTSMP +1 # SET FAIL FLAG AND EXIT.
004816,000494:
004817,000495: 10,6504 10750 OFAILTST CCS WASOPSET # RETURNS TO CALLER IF NO FAILURE ALARM
004818,000496: 10,6505 00001 TC Q # GIVEN. EXITS WITHOUT CHANGING WASOPSET
004819,000497: 10,6506 00001 TC Q # IF SO.
004820,000498: 10,6507 06563 TC NOOPRSET
004821,000499: 10,6510 06563 TC NOOPRSET
004822,000500:
004823,000501: 10,6511 02605 NOZALARM TC ALARM
004824,000502: 10,6512 00103 OCT 00103
004825,000503: 10,6513 06544 TC RECONTRK
004826,000504:
004827,000505: 10,6514 50723 ONOK TS OPTIND # SET OPTIND TO +0 TO ACTIVE CDU DRIVE.
004828,000506: 10,6515 06435 TC OPTCOMM2 # DO MODE AGREEMENT CHECK.
004829,000507:
004830,000508: 10,6516 40750 NOOPCOM CS WASOPSET # ENTERS HERE IF COMPUTER NOT COMMANDING.
004831,000509: 10,6517 60601 AD OSAMPTEM # SEE IF ANY CHANGES SINCE LAST LOCK.
004832,000510: 10,6520 10000 CCS A
004833,000511: 10,6521 06525 TC NOOPCOM1 # CHANGED.
004834,000512: 10,6522 37772 60MSRUPT OCT 37772 # UNUSED CCS BRANCH.
004835,000513: 10,6523 06525 TC NOOPCOM1 # CHANGED.
004836,000514: 10,6524 06561 TC LVOPTSMP # NO CHANGE - NORMAL EXIT IN MANUAL.
004837,000515:
004838,000516: 10,6525 40750 NOOPCOM1 CS WASOPSET # SEE IF MANUAL CDU-ZERO JUST REQUESTED.
004839,000517: 10,6526 74503 MASK BIT12
004840,000518: 10,6527 70601 MASK OSAMPTEM
004841,000519: 10,6530 10000 CCS A
004842,000520: 10,6531 06740 TC MANOPTZ # CALL MANUAL OPTICS ZERO SUBROUTINE.
004843,000521: # (THIS RECONCILES OPTICS-ZERO C-RELAY).
004844,000522:
004845,000523: 10,6532 34503 CAF BIT12
004846,000524: 10,6533 70601 MASK OSAMPTEM
004847,000525: 10,6534 10000 CCS A
004848,000526: 10,6535 06544 TC RECONTRK
004849,000527: 10,6536 34502 CAF BIT13
004850,000528: 10,6537 70601 MASK OSAMPTEM
004851,000529: 10,6540 60750 AD WASOPSET
004852,000530: 10,6541 74502 MASK BIT13
004853,000531: 10,6542 10000 CCS A
004854,000532: 10,6543 06511 TC NOZALARM
004855,000533:
004856,000534: # WE USED TO TEST HERE TO SEE IF THE SXT-ON SWITCH HAS CHANGED.
004857,000535: # SINCE IN BLOCK 50 - 100 IT IS ALWAYS ON, WE DON;T NOW.
004858,000536: 10,6544 34505 RECONTRK CAF BIT10 # RECONCILE TRKR-ON C-RELAY.
004859,000537: 10,6545 70601 MASK OSAMPTEM
004860,000538: 10,6546 10000 CCS A
004861,000539: 10,6547 34515 CAF BIT2 # TURN ON TRKR-ON C-RELAY.
004862,000540: 10,6550 64500 AD BIT15
004863,000541: 10,6551 30744 XCH DSPTAB +12D
004864,000542: 10,6552 76674 MASK OCT37775 # CHANGE BITS 2 AND 15.
004865,000543: 10,6553 60744 AD DSPTAB +12D
004866,000544: 10,6554 50744 TS DSPTAB +12D
004867,000545:
004868,000546: 10,6555 30601 XCH OSAMPTEM # SET WASOPSET AND CALL SETZLIT TO
004869,000547: 10,6556 50750 TS WASOPSET # SET ZERO-ENCODER LIGHT.
004870,000548: 10,6557 07236 TC SETZLIT
004871,000549: 10,6560 06563 TC NOOPRSET
004872,000550:
004873,000551: 10,6561 30601 LVOPTSMP XCH OSAMPTEM
004874,000552: 10,6562 50750 TS WASOPSET
004875,000553:
004876,000554: 10,6563 NOOPRSET EQUALS # DONT RESET WASOPSET.
004877,000555:
004878,000556:
004879,000557: # KSAMP ENTERED EVERY 120 MS DURING T4RUPT. SAMPLES STATUS OF
004880,000558: # ----- IMU MODE SWITCHES.
004881,000559: # SETS C(WASKSET)=C(DESKSET) FOR SUCCESSFUL COMP. COMM.
004882,000560: # =+0 FOR WAITING(START-UP,CONTACT BOUNCE)
004883,000561: # =-X FOR ASTRONAUT COMM. IGNORE
004884,000562: # =-0 FOR SYSTEM FAILURE
004885,000563:
004886,000564:
004887,000565:
004888,000566: 10,6563 10751 KSAMP CCS DESKSET # C(DESKSET)=DESIRED K RELAY SETTING
004889,000567: 10,6564 06670 TC KSAMP1 # =+0 FOR COMPUTER NOT COMM.
004890,000568: 10,6565 06600 TC KSAMP4 # -DESIRED K SETTING FOR MAN 0.
004891,000569:
004892,000570: 10,6566 34516 CAF BIT1 # ENTERS HERE TO BE SURE MANUAL CDU ZERO
004893,000571: 10,6567 70600 MASK KSAMPTEM # LASTS AT LEAST 30 SEC.
004894,000572: 10,6570 60747 AD WASKSET # ALARM IF CDU-ZERO SWITCH CHANGED STATE.
004895,000573: 10,6571 74516 MASK BIT1
004896,000574: 10,6572 10000 CCS A
004897,000575: 10,6573 06575 TC +2
004898,000576: 10,6574 06676 TC LVKSAMP
004899,000577:
004900,000578: 10,6575 02605 TC ALARM
004901,000579: 10,6576 00201 OCT 00201 # CDU NOT ZEROED PROPERLY.
004902,000580: 10,6577 06676 TC LVKSAMP
004903,000581:
004904,000582: 10,6600 30600 KSAMP4 XCH KSAMPTEM # NO COMPUTER COMMAND.
004905,000583: 10,6601 30747 XCH WASKSET # CURRENT STATUS TO WASKSET
004906,000584: 10,6602 50600 TS KSAMPTEM # (FOR EVENTUAL USE BY MANUAL ZERO TEST).
004907,000585: 10,6603 40000 CS A
004908,000586: 10,6604 60747 AD WASKSET
004909,000587: 10,6605 10000 CCS A
004910,000588: 10,6606 06646 TC KSAMP2B # SEE IF TRNSW JUST ON AND IS ONLY CHANGE.
004911,000589: 10,6607 37776 20MSRUPT OCT 37776 # UNUSED CCS BRANCH - USED TO CAUSE 0 OUT0
004912,000590: 10,6610 06612 TC KSAMP2
004913,000591: 10,6611 02207 TC ENDKSAMP # EXIT ON NO CHANGE IN MODE.
004914,000592:
004915,000593: 10,6612 34511 KSAMP2 CAF BIT6 # CHANGE IN MODE
004916,000594: 10,6613 70747 MASK WASKSET
004917,000595: 10,6614 10000 CCS A # IS TRNSW ON MANUAL
004918,000596: 10,6615 06654 TC MODALARM
004919,000597:
004920,000598: 10,6616 40600 MANZTEST CS KSAMPTEM # SEE IF MANUAL ZERO SWITCH JUST ON.
004921,000599: 10,6617 74516 MASK BIT1
004922,000600: 10,6620 70747 MASK WASKSET
004923,000601: 10,6621 10000 CCS A
004924,000602: 10,6622 06726 TC MANCDU # MANUAL IMU CDU ZERO JUST REQUESTED.
004925,000603:
004926,000604: 10,6623 36433 PRERECON CAF OFFMASK # MANUAL MODE CHANGE
004927,000605: 10,6624 70743 MASK DSPTAB +11D # SO THE C-RELAYS MUST BE UPDATED.
004928,000606: 10,6625 64500 AD BIT15 # ALL ARE TURNED OFF AND THE RIGHT ONES
004929,000607: 10,6626 50743 TS DSPTAB +11D # ARE TURNED ON BY SCANNING IN3.
004930,000608:
004931,000609: 10,6627 40747 CS WASKSET # UPDATE C-RELAYS SO THEY AGREE WITH THE
004932,000610: 10,6630 60000 DOUBLE # CURRENT MODE. THE SCAN IS FROM LEFT TO
004933,000611: 10,6631 30021 XCH SR # RIGHT SO THE PILOTS BUTTON WORKS OK.
004934,000612: 10,6632 50567 TS SRRUPT
004935,000613: 10,6633 34475 CAF SIX
004936,000614:
004937,000615: 10,6634 50600 RECONCIL TS KSAMPTEM
004938,000616: 10,6635 40021 CS SR # NEXT BIT INTO POSITION.
004939,000617: 10,6636 74516 MASK BIT1
004940,000618: 10,6637 10000 CCS A
004941,000619: 10,6640 06657 TC SETC
004942,000620:
004943,000621: 10,6641 10600 CCS KSAMPTEM
004944,000622: 10,6642 06634 TC RECONCIL
004945,000623:
004946,000624: 10,6643 02605 TC ALARM
004947,000625: 10,6644 00203 OCT 00203
004948,000626:
004949,000627: 10,6645 06664 TC LVRECON
004950,000628:
004951,000629: 10,6646 66651 KSAMP2B AD LOW5BAR # NO ERROR IF TRNSW JUST ON IS ONLY CHANGE
004952,000630: 10,6647 10000 CCS A
004953,000631: 10,6650 06612 TC KSAMP2
004954,000632: 10,6651 77740 LOW5BAR OCT -37
004955,000633: 10,6652 06612 TC KSAMP2
004956,000634: 10,6653 02207 TC ENDKSAMP # ORIGINAL DIFFERENCE WAS JUST BIT 6.
004957,000635:
004958,000636: 10,6654 02605 MODALARM TC ALARM # UN-CALLED-FOR MODE CHANGE WITH COMPUTER
004959,000637: 10,6655 00204 OCT 00204 # DOING MODE SWITCHING.
004960,000638: 10,6656 02207 TC ENDKSAMP
004961,000639:
004962,000640: 10,6657 20600 SETC INDEX KSAMPTEM
004963,000641: 10,6660 37031 CAF MODECHNG # NEW IMU C-RELAY SETTINGS.
004964,000642: 10,6661 60743 AD DSPTAB +11D
004965,000643: 10,6662 50743 +3 TS DSPTAB +11D
004966,000644: 10,6663 07236 TC SETZLIT # UPDATE THE ZERO ENCODER LAMP.
004967,000645: 10,6664 30567 LVRECON XCH SRRUPT
004968,000646: 10,6665 60000 -BIT14+1 DOUBLE
004969,000647: 10,6666 50021 TS SR
004970,000648: 10,6667 02207 TC ENDKSAMP
004971,000649:
004972,000650: 10,6670 40751 KSAMP1 CS DESKSET # IS PRESENT MODE = COMMANDED
004973,000651: 10,6671 60600 AD KSAMPTEM
004974,000652: 10,6672 10000 CCS A
004975,000653: 10,6673 06701 TC KSAMP1A
004976,000654: 10,6674 37775 OCT37775 OCT 37775 # UNUSED CCS BRANCH - USED TO SET TRKR-ON.
004977,000655: 10,6675 06701 TC KSAMP1A
004978,000656:
004979,000657: 10,6676 30600 LVKSAMP XCH KSAMPTEM # YES
004980,000658: 10,6677 50747 TS WASKSET
004981,000659: 10,6700 02207 TC ENDKSAMP
004982,000660:
004983,000661: 10,6701 34516 KSAMP1A CAF BIT1 # IS COMPUTER TRYING TO ZERO CDU AND
004984,000662: 10,6702 70751 MASK DESKSET # GETTING COARSE ALIGN.
004985,000663: 10,6703 60000 DOUBLE
004986,000664: 10,6704 70600 MASK KSAMPTEM
004987,000665: 10,6705 10000 CCS A
004988,000666: 10,6706 06717 TC IMUSTART # YES.
004989,000667:
004990,000668: 10,6707 10747 KSAMP2A CCS WASKSET # CHECK ON PREVIOUS ACTIVITIES
004991,000669: 10,6710 06714 TC KSAMP3A # NORMAL OPERATION
004992,000670: 10,6711 06714 TC KSAMP3A # WAITING
004993,000671: 10,6712 02207 TC ENDKSAMP # SYSTEM FAILURE
004994,000672: 10,6713 02207 TC ENDKSAMP # SYSTEM FAILURE
004995,000673:
004996,000674: 10,6714 10743 KSAMP3A CCS DSPTAB +11D # SEE IF BANK IS TO BE CHANGED.
004997,000675: 10,6715 06721 TC SYSFAIL # NO - SYSTEM FAILURE.
004998,000676: 10,6716 06721 TC SYSFAIL
004999,000677:
005000,000678: 10,6717 35500 IMUSTART CAF WAITFLAG # SET WAITING FLAG AND EXIT.
005001,000679: 10,6720 06677 TC LVKSAMP +1
005002,000680:
005003,000681: 10,6721 45500 SYSFAIL CS ZERO # IMU SYSTEM FAILURE.
005004,000682: 10,6722 50747 TS WASKSET
005005,000683: 10,6723 02605 TC ALARM # CALL ALARM SUBROUTINE FOR DISPLAY.
005006,000684: 10,6724 00202 OCT 00202
005007,000685: 10,6725 02207 TC ENDKSAMP
005008,000686:
005009,000687: 10,6726 5500 WAITFLAG EQUALS ZERO
005010,000688:
005011,000689: 10,6726 2207 ENDKSAMP EQUALS LVDSRUPT
005012,000690:
005013,000691:
005014,000692: # MANUAL CDU-ZERO PROGRAMS FOR IMU AND OPTICS CDUS.
005015,000693:
005016,000694: 10,6726 45502 MANCDU CS TWO # INITIATE MANUAL CDU ZERO MONITOR.
005017,000695: 10,6727 50751 TS DESKSET # (C-RELAYS WILL BE SET BY RECONCIL).
005018,000696: 10,6730 37716 CAF 40SECS
005019,000697: 10,6731 02124 TC WAITLIST
005020,000698: 10,6732 20734 CADR MANIZD
005021,000699:
005022,000700: 10,6733 06623 TC PRERECON
005023,000701:
005024,000702: # WAITLIST TASK TO COMPLETE MANUAL ZERO. TURNS OFF LIGHT TO INDICCATE COMPLETION.
005025,000703:
005026,000704: 10,6734 07306 MANIZD TC ZEROICTR # ZERO COUNTERS.
005027,000705: 10,6735 50751 TS DESKSET
005028,000706: 10,6736 07236 TC SETZLIT # TURN OFF LIGHT IF APPROPRIATE.
005029,000707: 10,6737 02203 TC TASKOVER
005030,000708:
005031,000709:
005032,000710: # MANUAL OPTICS ZEROING PROCEDURES.
005033,000711: 10,6740 37722 MANOPTZ CAF 60SECS # MANUAL OPTICS ZEROING ROUTINE.
005034,000712: 10,6741 02124 TC WAITLIST # CALL WAITLIST FOR 60 SEC. WAIT
005035,000713: 10,6742 20752 CADR MANOZD
005036,000714: 10,6743 45502 CS TWO # SET ZEROING FLAG IN DESOPSET.
005037,000715: 10,6744 50752 TS DESOPSET
005038,000716: 10,6745 44663 CS CSQ # RECONCILE ZERO OPTICS C RELAY
005039,000717: 10,6746 70744 MASK DSPTAB +12D
005040,000718: 10,6747 64663 AD CSQ
005041,000719: 10,6750 50744 TS DSPTAB +12D
005042,000720: 10,6751 06544 TC RECONTRK
005043,000721:
005044,000722: # WAITLIST TASK TO COMPLETE MANUAL OPTICS ZERO.
005045,000723:
005046,000724: 10,6752 35500 MANOZD CAF ZERO
005047,000725: 10,6753 50752 TS DESOPSET # LEAVE MANUAL ZERO MONITOR
005048,000726: 10,6754 06760 TC ZEROOCTR +1 # SET OPTICS COUNTERS.
005049,000727: 10,6755 07236 TC SETZLIT # TURN OFF LIGHT (POSSIBLY) AS SIGNAL.
005050,000728: 10,6756 02203 TC TASKOVER
005051,000729:
005052,000730: 10,6757 35500 ZEROOCTR CAF ZERO
005053,000731: 10,6760 50052 TS OPTX
005054,000732: 10,6761 34502 CAF BIT13
005055,000733: 10,6762 70750 MASK WASOPSET
005056,000734: 10,6763 10000 CCS A
005057,000735: 10,6764 46767 CS 20DEGS
005058,000736: 10,6765 50053 TS OPTY
005059,000737: 10,6766 00001 TC Q
005060,000738:
005061,000739: 10,6767 16037 20DEGS DEC 7199 B-14
005062,000740:
005063,000741: # THE FOLLOWING PROGRAM TAKES A 2S COMPLEMENT DIFFERENCE BETWEEN THE ACTUAL CDU COUNTER AND THE DESIRED
005064,000742: # SETTING. THE AGC AD INSTRUCTION BY ITSELF CANNOT BE USED SINCE +0 = -0 THERE. TO COMPENSATE, IF THE SIGNS OF
005065,000743: # THE OPERANDS ARE DIFFERENT AND THE ROTATION NECESSARY TO NULL OUT THE ERROR PASSES THROUGH ZERO (NO OVERFLOW
005066,000744: # OCCURS IN DIFFERENCING THE DESIRED AND ACTUAL), A ONE WITH THE SIGN OF THE DESIRED ANGLE IS ADDEDTO THE DIFFER-
005067,000745: # ENCE.
005068,000746:
005069,000747: 10,6770 50572 2SCOMDIF TS ITEMP1 # NEGATIVE OF CDU COUNTER ARRIVES IN A.
005070,000748: 10,6771 30001 XCH Q
005071,000749: 10,6772 50567 TS ITEMP3
005072,000750:
005073,000751: 10,6773 10572 2SCOM2 CCS ITEMP1 # NO OVERFLOW - SEE IF SIGNS OF INPUTS ARE
005074,000752: 10,6774 07005 TC EXAM2 # DIFFERENT.
005075,000753: 10,6775 07005 TC EXAM2
005076,000754: 10,6776 06777 TC +1
005077,000755: 10,6777 10573 CCS ITEMP2
005078,000756: 10,7000 35500 CAF ZERO
005079,000757: 10,7001 07013 TC INCEX-
005080,000758: 10,7002 07003 TC +1
005081,000759: 10,7003 44516 CS ONE
005082,000760: 10,7004 07013 TC INCEX- # ADD -1 AND EXIT HERE.
005083,000761:
005084,000762: 10,7005 10573 EXAM2 CCS ITEMP2
005085,000763: 10,7006 07012 TC +4
005086,000764: 10,7007 07012 TC +3
005087,000765: 10,7010 35500 CAF ZERO
005088,000766: 10,7011 07013 TC INCEX-
005089,000767:
005090,000768: 10,7012 34516 CAF ONE
005091,000769: 10,7013 60572 INCEX- AD ITEMP1
005092,000770: 10,7014 60573 AD ITEMP2
005093,000771: 10,7015 50572 TS ITEMP1
005094,000772: 10,7016 00567 TC ITEMP3 # NORMAL TRAIN OF EVENTS.
005095,000773: 10,7017 20000 INDEX A # IF OVERFLOW, SIMPLY DO OVERFLOW UNCOR-
005096,000774: 10,7020 34477 CAF LIMITS # RECTION AND EXIT.
005097,000775: 10,7021 60572 AD ITEMP1
005098,000776: 10,7022 00567 TC ITEMP3
005099,000777:
005100,000778:
005101,000779: # OUTCTR SETTINGS FOR OUT2, AND C-RELAY SETTING CONSTANTS FOR IMU MODES.
005102,000780:
005103,000781: 10,7023 50400 CDUCODES OCT 50400 # -Z CDU
005104,000782: 10,7024 51000 OCT 51000 # -Y CDU
005105,000783: 10,7025 52000 OCT 52000 # -X CDU
005106,000784: 10,7026 32000 OCT 32000 # +X CDU
005107,000785: 10,7027 31000 OCT 31000 # +Y CDU
005108,000786: 10,7030 30400 OCT 30400 # +Z CDU
005109,000787:
005110,000788: 10,7031 02000 MODECHNG OCT 02000
005111,000789: 10,7032 00000 OCT 00000 # (TRANSFER SWITCH - NOT USED).
005112,000790: 10,7033 01000 OCT 01000
005113,000791: 10,7034 00010 OCT 00010
005114,000792: 10,7035 00004 OCT 00004
005115,000793: 10,7036 00002 OCT 00002
005116,000794: 10,7037 00011 OCT 00011
005117,000795:
005118,000796: # ZERO-ENCODER LIGHT NOT COVERED HERE.
005119,000797:
005120,000798: 10,7040 00377 LOW8 OCT 377
005121,000799: 10,7041 10,7040 OUT2MASK EQUALS LOW8
005122,000800: 10,7041 77407 OPTMASK OCT 77407 # COMPLEMENT OF OUTCR2 ACTIVITY BITS.
005123,000801:
005124,000802: 10,7042 44400 OCT 44400 # -Z GYRO
005125,000803: 10,7043 45000 OCT 45000 # -Y GYRO
005126,000804: 10,7044 46000 OCT 46000 # -X GYRO.
005127,000805:
005128,000806: 10,7045 00220 OPTCODES OCT 00220 # -Y OPTICS CDU.
005129,000807: 10,7046 00240 OCT 00240 # -X OPTICS CDU.
005130,000808: 10,7047 00140 OCT 00140 # +X OPTICS CDU.
005131,000809: 10,7050 00120 OCT 00120 # +Y OPTICS CDU.
005132,000810:
005133,000811: 10,7051 26000 OCT 26000 # +X GYRO
005134,000812: 10,7052 25000 OCT 25000 # +Y GYRO
005135,000813: 10,7053 24400 OCT 24400 # +Z GYRO.
005136,000814:
005137,000815: 10,7054 2206 HI5 EQUALS BANKMASK
End of include-file T4RUPT_OUTPUT_CONTROL_PROGRAMS.agc. Parent file is MAIN.agc