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