Assembly listing generated by yaYUL

Source Code

These source-code files are part of a reconstructed copy of Skylark 048, the Block II Command Module (CM) Apollo Guidance Computer (AGC) software for the Skylab-2, Skylab-3, Skylab-4, and Apollo-Soyuz Test Project missions.

They have been created via disassembly of binary dumps of the original core rope memory modules actually flown on Skylab-2, part numbers 2010802-541, 2010802-551, 2010802-561, 2010802-571, 2010802-581, and 2010802-591. Access to these modules was provided by the New Mexico Museum of Space History, who we are much indebted to.

The source code for the Apollo 15, 16, and 17 software, Artemis 072, was used as a starting point. Heavy use was made of TRW 4900.5-244, Programmed Guidance Equations for Skylark Command Module Earth Orbital Program, dated 14 February 1972. This document contains pseudocode of essentially all of Skylark, using original program labels which have been copied for this source reconstruction.

Since only binary dumps (rather than listings) of Skylark are available as source material, all comments and labels are approximate. They have been taken from the Programmed Guidance Equations or other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

005911,000002: 005912,000003: 005913,000004: 005914,000005: 005915,000006: 005916,000007: 005917,000008: 005918,000009: 005919,000010: 005920,000011: 005921,000012: 005922,000013: 005923,000014: 005924,000015: 005925,000016: 005926,000017: 005927,000018: 06,2000 005928,000019: 06,2000 005929,000020: 005930,000021: 06,2000 005945,000036: 005946,000037: 005947,000038: 005948,000039: 005949,000040: 005950,000041: 4000 005951,000042: 4000 005952,000043: 4063 < 005974,000065: 06,2013 005975,000066: 06,2014 005976,000067: 005977,000068: 06,2015 005978,000069: 06,2016 005979,000070: 06,2017 005980,000071: 06,2020 005981,000072: 06,2021 005982,000073: 06,2022 005983,000074: 06,2023 005984,000075: 005985,000076: 005986,000077: 005987,000078: < < 006317,000408: 06,2321 006318,000409: 06,2322 006319,000410: 06,2323 006320,000411: 06,2324 006321,000412: 06,2325 006322,000413: 006323,000414: 06,2326 006324,000415: 06,2327 006325,000416: 06,2330 006326,000417: 006327,000418: 06,2331 006328,000419: 006329,000420: 06,2332 006330,000421: 06,2333 006331,000422: 06,2334 006332,000423: 006333,000424: 06,2335 006334,000425: 06,2336 006335,000426: 06,2337 E3,1474 006336,000427: 06,2337 006337,000428: 06,2341 006338,000429: < 006708,000799: 06,2621 006709,000800: 006710,000801: 06,2622 006711,000802: 06,2623 006712,000803: 06,2624 006713,000804: 006714,000805: 06,2625 006715,000806: 06,2626 006716,000807: 006717,000808: 06,2627 006718,000809: 06,2630 006719,000810: 06,2631 006720,000811: 006721,000812: 06,2632 006722,000813: 06,2633 006723,000814: 06,2634 006724,000815: 06,2635 006725,000816: 06,2636 006726,000817: 06,2637 006727,000818: 06,2640 006728,000819: 06,2641 006729,000820: 06,2642 006730,000821: 006731,000822: 06,2643 006732,000823: 06,2644 006733,000824: 06,2645 006734,000825: < < < < 007148,001239: 007149,001240: 007150,001241: 007151,001242: 10,2000 007152,001243: 10,2000 007153,001244: 10,2000 007154,001245: 007155,001246: 007156,001247: < 007172,001263: 10,2017 007173,001264: 10,2020 < ## Copyright: Public domain. ## Filename: T4RUPT_PROGRAM.agc ## Purpose: A section of Skylark revision 048. ## It is part of the source code for the Apollo Guidance Computer (AGC) ## for Skylab-2, Skylab-3, Skylab-4, and ASTP. No original listings of ## this software are available; instead, this file was created via ## disassembly of dumps of the core rope modules actually flown on ## Skylab-2. Access to these modules was provided by the New Mexico ## Museum of Space History. ## Assembler: yaYUL ## Contact: Ron Burkey <info@sandroid.org>. ## Website: www.ibiblio.org/apollo/index.html ## Mod history: 2023-09-04 MAS Created from Artemis 072. ## 2024-03-05 MAS Updated for Skylark 48. SETLOC T4RUP BANK COUNT* $$/T4RPT >005931,000022: 06,2000 54016 T4RUPT TS BANKRUPT 00006 EXTEND 22012 QXCH QRUPT 11312 CCS DSRUPTSW # GOES 3(-1)0 AROUND AND AROUND 12010 TCF NORMT4 +1 12007 TCF NORMT4 12132 TCF QUIKDSP >005941,000032: 06,2007 36214 NORMT4 CAF THREE 54070 TS RUPTREG1 55312 TS DSRUPTSW 06,2012 7675 74K = HIGH4 # RELTAB IS A PACKED TABLE. RELAYWORD CODE IN UPPER 4 BITS, RELAY CODE # IN LOWER 5 BITS. SETLOC FFTAG12 BANK COUNT* $$/PIN >005953,000044: 4063 04025 RELTAB OCT 04025 10003 OCT 10003 14031 OCT 14031 20033 OCT 20033 24017 OCT 24017 30036 OCT 30036 34034 OCT 34034 40023 OCT 40023 44035 OCT 44035 50037 OCT 50037 54000 OCT 54000 131">005964,000055: 4076 60000 RELTAB11 OCT 60000 # SWITCHED-BANK PORTION. SETLOC T4RUP BANK COUNT* $$/T4RPT /a>005973,000064: 06,2012 11231 CDRVE CCS DSPTAB +11D 02063 TC DSPOUT 02063 TC DSPOUT 57231 XCH DSPTAB +11D 74347 MASK LOW11 55231 TS DSPTAB +11D 64076 AD RELTAB11 00006 EXTEND 01010 WRITE OUT0 02072 TC HANG20 # DSPOUT PROGRAM. PUTS OUT DISPLAYS. 342">005988,000079: 06,2024 55211 DSPOUTSB TS NOUT 45003 CS ZERO 54073 TS DSRUPTEM # SET TO -0 FOR 1ST PASS THRU DSPTAB 57171 XCH DSPCNT 65002 AD NEG0 # TO PREVENT +0 55171 TS DSPCNT E">005994,000085: 06,2032 51171 DSPSCAN INDEX DSPCNT 11216 CCS DSPTAB 11171 CCS DSPCNT # IF DSPTAB ENTRY +, SKIP 12030 TCF DSPSCAN -2 # IF DSPCNT +, AGAIN 12047 TCF DSPLAY # IF DSPTAB ENTRY -, DISPLAY 9">005999,000090: 06,2037 22400 11,14,9 OCT 22400 # CANNOT GET HERE 10073 CCS DSRUPTEM # IF DSRUPTEM=+0, 2ND PASS THRU DSPTAB 054">006001,000092: 06,2041 37764 120MRUPT DEC 16372 B-14 # (DSPCNT = 0). +0 INTO NOUT. 55211 TS NOUT 00002 TC Q 54073 TS DSRUPTEM # IF DSRUPTEM=-0, 1ST PASS THRU DSPTAB 34355 CAF TABLNTH # (DSPCNT=0). +0 INTO DSRUPTEM. PASS AGAIN 12031 TCF DSPSCAN -1 >006008,000099: 06,2047 65001 DSPLAY AD ONE 51171 INDEX DSPCNT 55216 TS DSPTAB # REPLACE POSITIVELY 74347 MASK LOW11 # REMOVE BITS 12 TO 15 54073 TS DSRUPTEM 34344 CAF HI5 51171 INDEX DSPCNT 74063 MASK RELTAB # PICK UP BITS 12 TO 15 OF RELTAB ENTRY 60073 AD DSRUPTEM 00006 EXTEND 01010 WRITE OUT0 # WRITE CHANNEL 10 16706 TCF Q+1 # *** NORMAL RETURN SKIPS ONE /a>006021,000112: 06,2063 5017 OCT54 EQUALS LTHVACA 8">006022,000113: 06,2063 4355 TABLNTH EQUALS BINCON # DEC 10 LENGTH OF DSPTAB >006023,000114: 06,2063 30101 DSPOUT CA FLAGWRD5 74763 MASK DSKYBIT 00006 EXTEND 12126 BZF NODSPOUT 11211 CCS NOUT 02024 TC DSPOUTSB 12126 TCF NODSPOUT # NO DISPLAY REQUESTS >006030,000121: 06,2072 42037 HANG20 CS 11,14,9 27312 ADS DSRUPTSW 37663 CAF 20MRUPT 534">006034,000125: 06,2075 54027 SETTIME4 TS TIME4 # THE STATUS OF THE PROCEED PUSHBUTTON IS MONITORED EVERY 120 MILLISECONDS VIA THE CHANNEL 32 BIT 14 INBIT. # THE STATE OF THIS INBIT IS COMPARED WITH ITS STATE DURING THE PREVIOUS T4RUPT AND IS PROCESSED AS FOLLOWS. # IF PREV ON AND NOW ON - BYPASS # IF PREV ON AND NOW OFF - UPDATE IMODES33 # IF PREV OFF AND NOW ON - UPDATE IMODES33 AND PROCESS VIA PINBALL # IF PREV OFF AND NOW OFF - BYPASS # THE LOGIC EMPLOYED REQUIRES ONLY 9 MCT (APPROX. 108 MICROSECONDS) OF COMPUTER TIME WHEN NO CHANGES OCCUR. 445">006044,000135: 06,2076 31324 PROCEEDE CA IMODES33 # MONITIOR FOR PROCEED BUTTON 00006 EXTEND 06032 RXOR CHAN32 # CHECK IF BIT 14 DIFFERENT 74764 MASK PROCDBIT 00006 EXTEND 12116 BZF T4JUMP # NO CHANGE 23324 LXCH IMODES33 00006 EXTEND 06001 RXOR LCHAN 55324 TS IMODES33 # UPDATE IMODES33 74764 MASK PROCDBIT 10000 CCS A 12116 TCF T4JUMP # WAS ON - NOW OFF 05133 TC NOVAC30 # WAS OFF - NOW ON 1172 EBANK= DSPCOUNT 03313 60102 2CADR PROCKEY # JUMP TO APPROPRIATE ONCE-PER SECOND (.96 SEC ACTUALLY) ACTIVITY >006065,000156: 06,2116 50070 T4JUMP INDEX RUPTREG1 12120 TCF +1 12124 TCF OPTTEST 13001 TCF OPTMON 12124 TCF OPTTEST 12167 TCF IMUMON 4">006072,000163: 06,2124 04725 OPTTEST TC IBNKCALL 20000 CADR OPTDRIVE 4">006075,000166: 06,2126 7663 20MRUPT = OCT37776 # (DEC 16382) 554">006076,000167: 06,2126 00006 NODSPOUT EXTEND # TURN OFF RELAYS 01010 WRITE OUT0 32041 CAF 120MRUPT # SET FOR NEXT CDRVE 12075 TCF SETTIME4 0">006082,000173: 06,2132 34764 QUIKDSP CAF BIT14 71312 MASK DSRUPTSW 00006 EXTEND 12163 BZF QUIKOFF # WROTE LAST TIME, NOW TURN OFF RELAYS. 11211 CCS NOUT 02024 TC DSPOUTSB 12150 TCF NODSPY # NOUT=0 OR BAD RETURN FROM DSPOUTSB 44764 CS BIT14 # GOOD RETURN (WE DISPLAYED SOMETHING) 054">006091,000182: 06,2142 27312 QUIKRUPT ADS DSRUPTSW 37663 CAF 20MRUPT 54027 TS TIME4 34771 CAF BIT9 27312 ADS DSRUPTSW 05336 TC RESUME >006101,000192: 06,2150 00006 NODSPY EXTEND 01010 WRITE OUT0 >006104,000195: 06,2152 37663 SYNCT4 CAF 20MRUPT 26027 ADS TIME4 34771 CAF BIT9 27312 ADS DSRUPTSW 11312 CCS DSRUPTSW 05336 TC RESUME 337">006111,000202: 06,2160 37737 OCT37737 OCT 37737 02152 TC SYNCT4 05336 TC RESUME 6">006115,000206: 06,2163 00006 QUIKOFF EXTEND 01010 WRITE OUT0 34764 CAF BIT14 # RESET DSRUPTSW TO SEND DISPLAY NEXT PASS 12142 TCF QUIKRUPT # PROGRAM NAME: IMUMON # FUNCTIONAL DESCRIPTION: THIS PROGRAM IS ENTERED EVERY 480 MS. IT DETECTS CHANGES OF THE IMU STATUS BITS IN # CHANNEL 30 AND CALLS THE APPROPRIATE SUBROUTINES. THE BITS PROCESSED AND THEIR RELEVANT SUBROUTINES ARE: # FUNCTION BIT SUBROUTINE CALLED # -------- --- ----------------- # TEMP IN LIMITS 15 TLIM # ISS TURN-ON REQUEST 14 ITURNON # IMU FAIL 13 IMUFAIL (SETISSW) # IMU CDU FAIL 12 ICDUFAIL (SETISSW) # IMU CAGE 11 IMUCAGE # IMU OPERATE 9 IMUOP # THE LAST SAMPLED STATE OF THESE BITS IS LEFT IN IMODES30. ALSO, EACH SUBROUTINE CALLED FINDS THE NEW # VALUE OF THE BIT IN A, WITH Q SET TO THE PROPER RETURN LOCATION, NXTIFAIL. # CALLING SEQUENCE: T4RUPT EVERY 480 MILLISECONDS. # JOBS OR TASKS INITIATED: NONE. # SUBROUTINES CALLED: TLIM, ITURNON, SETISSW, IMUCAGE, IMUOP. # ERASABLE INITIALIZATION: # FRESH START OR RESTART WITH NO GROUPS ACTIVE: C(IMODES30) = OCT 37411. # RESTART WITH ACTIVE GROUPS: C(IMODES30) = (B(IMODES30)AND(OCT 00035)) PLUS OCT 37400. # THIS LEAVES IMU FAIL BITS INTACT. # ALARMS: NONE. # EXIT: TNONTEST. # OUTPUT: UPDATED IMODES30 WITH CHANGES PROCESSED BY APPROPRIATE SUBROUTINE. >006154,000245: 06,2167 31323 IMUMON CA IMODES30 # SEE IF THERE HAS BEEN A CHANGE IN THE 00006 EXTEND # RELEVANT BITS OF CHAN 30. 06030 RXOR CHAN30 # CHECK IF BITS 9,11-15 CHANGED 72764 MASK 30RDMSK 00006 EXTEND 12224 BZF TNONTEST # NO CHANGE IN STATUS. 54070 TS RUPTREG1 # SAVE BITS WHICH HAVE CHANGED. 23323 LXCH IMODES30 # UPDATE IMODES30. 00006 EXTEND 06001 RXOR LCHAN 55323 TS IMODES30 45001 CS ONE 56070 XCH RUPTREG1 00006 EXTEND 62517 BZMF TLIM # CHANGE IN IMU TEMP. 12210 TCF NXTIFBIT # BEGIN BIT SCAN. 65001 -1 AD ONE # (RE-ENTERS HERE FROM NXTIFAIL.) 954">006174,000265: 06,2210 24070 NXTIFBIT INCR RUPTREG1 # ADVANCE BIT POSITION NUMBER. 60000 +1 DOUBLE 54000 TS A # SKIP IF OVERFLOW. 12210 TCF NXTIFBIT # LOOK FOR BIT. 56071 XCH RUPTREG2 # SAVE OVERFLOW-CORRECTED DATA. 50070 INDEX RUPTREG1 # SELECT NEW VALUE OF THIS BIT. 34764 CAF TONISSBT 71323 MASK IMODES30 50070 INDEX RUPTREG1 02760 TC IFAILJMP 94C">006186,000277: 06,2222 10071 NXTIFAIL CCS RUPTREG2 # PROCESS ANY ADDITIONAL CHANGES. 12207 TCF NXTIFBIT -1 # PROGRAM NAME: TNONTEST. # FUNCTIONAL DESCRIPTION: THIS PROGRAM HONORS REQUESTS FOR ISS INITIALIZATION. ISS TURN-ON (CHANNEL 30 BIT 14) # AND ISS OPERATE (CHANNEL 30 BIT 9) REQUESTS ARE TREATED AS A PAIR AND PROCESSING TAKES PLACE .480 SECONDS # AFTER EITHER ONE APPEARS. THIS INITIALIZATION TAKES ON ONE OF THE FOLLOWING THREE FORMS: # 1) ISS TURN-ON: IN THIS SITUATION THE COMPUTER IS OPERATING WHEN THE ISS IS TURNED ON. NOMINALLY, # BOTH ISS TURN-ON AND ISS OPERATE APPEAR. THE PLATFORM IS CAGED FOR 90 SECONDS AND THE ICDU'S ZEROED # SO THAT AT THE END OF THE PROCESS THE GIMBAL LOCK MONITOR WILL FUNCTION PROPERLY. # 2) ICDU INITIALIZATION: IN THIS CASE THE COMPUTER WAS PROBABLY TURNED ON WITH THE ISS IN OPERATE OR # A FRESH START WAS DONE WITH THE ISS IN OPERATE. IN THIS CASE ONLY ISS OPERATE IS ON. THE ICDU'S ARE # ZEROED SO THE GIMBAL LOCK MONITOR WILL FUNCTION. AN EXCEPTION IS IF THE ISS IS IN GIMBAL LOCK AFTER # A RESTART, THE ICDU'S WILL NOT BE ZEROED. # 3) RESTART WITH RESTARTABLE PROGRAM USING THE IMU: IN THIS CASE, NO INITIALIZATION TAKES PLACE SINCE # IT IS ASSUMED THAT THE USING PROGRAM DID THE INITIALIZATION AND THEREFORE T4RUPT SHOULD NOT INTERFERE. # IMODES30 BIT 7 IS SET = 1 BY THE FIRST BIT (CHANNEL 30 BIT 14 OR 9) WHICH ARRIVES. FOLLOWING THIS. TNONTEST IS # ENTERED, FINDS BIT 7 = 1 BUT BIT 8 = 0, SO IT SETS BIT 8 = 1 AND EXITS. THE NEXT TIME IT FINDS BIT 8 = 1 AND # PROCEEDS, SETTING BITS 8 AND 7 = 0. AT PROCTNON, IF ISS TURN-ON REQUEST IS PRESENT, THE ISS IS CAGED (ZERO + # COARSE). IF ISS OPERATE IS NOT PRESENT PROGRAM ALARM 00213 IS ISSUED. AT THE END OF A 90 SECOND CAGE, BIT 2 # OF IMODES30 IS TESTED. IF IT IS = 1, ISS TURN-ON WAS NOT PRESENT FOR THE ENTIRE 90 SECONDS. IN THAT CASE, IF # THE ISS TURN-ON REQUEST IS PRESENT THE 90 SECOND WAIT IS REPEATED, OTHERWISE NO ACTION OCCURS UNLESS A PROGRAM # WAS WAITING FOR THE INITIALIZATION IN WHICH CASE THE PROGRAM IS GIVEN AN IMUSTALL ERROR RETURN. IF THE DELAY # WENT PROPERLY, THE ISS DELAY OUTBIT IS SENT AND THE ICDU'S ZEROED. A TASK IS INITIATED TO REMOVE THE PIPA FAIL # INHIBIT BIT IN 10.24 SECONDS. IF A MISSION PROGRAM WAS WAITING IT IS INFORMED VIA ENDIMU. # AT PROCTNON, IF ONLY ISS OPERATE IS PRESENT (OPONLY), THE CDU'S ARE ZEROED UNLESS THE PLATFORM IS IN COARSE # ALIGN (= GIMBAL LOCK HERE) OR A MISSION PROGRAM IS USING THE IMU (IMUSEFLG = 1). # CALLING SEQUENCE: T4RUPT EVERY 480 MILLISECONDS AFTER IMUMON. # JOBS OR TASKS INITIATED: 1) ENDTNON, 90 SECONDS AFTER CAGING STARTED. 2) ISSUP, 4 SECONDS AFTER CAGING DONE. # 3) PFAILOK, 10.24 SECONDS AFTER INITIALIZATION COMPLETED. 4) UNZ2, 320 MILLISECONDS AFTER ZEROING # STARTED. # SUBROUTINES CALLED: CAGESUB, CAGESUB2, ZEROICDU, ENDIMU, IMUBAD, NOATTOFF, SETISSW, VARDELAY. # ERASABLE INITIALIZATION: SEE IMUMON. # ALARMS: PROGRAM ALARM 00213 IF ISS TURN-ON REQUESTED WITHOUT ISS OPERATE. # EXIT: ENDTNON EXITS TO C33TEST. TASKS HAVING TO DO WITH INITIALIZATION EXIT AS FOLLOWS: MISSION PROGRAM # WAITING AND INITIALIZATION COMPLETE, EXIT TO ENDIMU, MISSION PROGRAM WAITING AND INITIALIZATION FAILED, EXIT TO # IMUBAD, IMU NOT IN USE, EXIT TO TASKOVER. # OUTPUT: ISS INITIALIZED. 354">006238,000329: 06,2224 41323 TNONTEST CS IMODES30 # AFTER PROCESSING ALL CHANGES, SEE IF IT 74773 MASK ITNON1BT # IS TIME TO ACT ON TURN-ON REQUEST 10000 CCS A 12366 TCF C33TEST # NO - EXAMINE CHANNEL 33. 34772 CAF ITNON2BT # SEE IF FIRST OR 2ND SAMPLE 71323 MASK IMODES30 10000 CCS A 12237 TCF PROCTNON # REACT AFTER SECOND SAMPLE. 34772 CAF ITNON2BT # IF FIRST SAMPLE, SET BIT TO REACT 27323 ADS IMODES30 # TIME. 12366 TCF C33TEST # PROCESS IMU TURN-ON REQUESTS AFTER WAITING 1 SAMPLE FOR ALL SIGNALS TO ARRIVE. F4E">006254,000345: 06,2237 34772 PROCTNON CA ITNON2BT 64773 AD ITNON1BT 40000 COM 71323 MASK IMODES30 55323 TS IMODES30 74764 MASK TONISSBT # SEE IF TURN-ON REQUEST 10000 CCS A 12342 TCF OPONLY # OPERATE ON ONLY. 41323 CS IMODES30 # IF TURN-ON REQUEST, WE SHOULD HAVE IMU 74771 MASK IMUOPBIT # OPERATE. 10000 CCS A 12255 TCF +3 05644 TC ALARM # ALARM IF NOT. 00213 OCT 213 02740 +3 TC CAGESUB 33665 CAF 90SECS 05246 TC WAITLIST EBANK= CDUIND 02265 14063 2CADR ENDTNON 12366 TCF C33TEST >006280,000371: 06,2263 33665 RETNON CAF 90SECS 05273 TC VARDELAY E">006283,000374: 06,2265 45000 ENDTNON CS DLAYFAIL # RESET TURN-ON REQUEST FAILBIT 71323 MASK IMODES30 57323 XCH IMODES30 75000 MASK DLAYFAIL # IF IT WAS OFF, SEND ISS DELAY COMPLETE 00006 EXTEND 12305 BZF ENDTNON2 34764 CAF TONISSBT # IF IT WAS ON AND TURN-ON REQUEST NOW 71323 MASK IMODES30 # PRESENT, RE-ENTER 90 SEC DELAY IN WL. 00006 EXTEND 12263 BZF RETNON 40074 CS FLAGWRD0 # IF IT IS NOT ON NOW, SEE IF A PROG WAS 74772 MASK IMUSEFLG # WAITING. 10000 CCS A 15327 TCF TASKOVER 04666 TC POSTJUMP 17556 CADR IMUBAD # UNSUCCESSFUL TURN-ON. E32">006301,000392: 06,2305 34763 ENDTNON2 CAF BIT15 # SEND ISS DELAY COMPLETE. 00006 EXTEND 05012 WOR CHAN12 # TURN OFF ISS DELAY COUNTER 04725 TC IBNKCALL # TURN OFF NO ATT LAMP. 17140 CADR NOATTOFF >006307,000398: 06,2312 05524 UNZ2 TC ZEROICDU 45012 CS BITS4&5 # REMOVE ZERO AND COARSE. 00006 EXTEND 03012 WAND CHAN12 35040 CAF 7.9SEC # WAIT 7.9 SEC FOR CTRS TO FIND GIMBALS 05273 TC VARDELAY /a>006316,000407: 06,2320 34774 ISSUP CA IMUNITBT 64776 AD IMUFINHT 64777 AD ICDUINHT 40000 COM # REMOVE CAGING, IMUFAIL INHIBIT, AND 71323 MASK IMODES30 # ICDUFAIL INHIBIT FLAGS. 55323 TS IMODES30 44774 CS NOIMUDAP # ENABLE DAP 71324 MASK IMODES33 55324 TS IMODES33 02706 TC SETISSW # ISS WARNING MIGHT HAVE BEEN INHIBITED. 44763 CS BIT15 # REMOVE IMU DELAY COMPLETE DISCRETE. 00006 EXTEND 03012 WAND CHAN12 35033 CAF 4SECS # DONT ENABLE PROG ALARM ON PIP FAIL FOR 05246 TC WAITLIST # ANOTHER 4 SECS. EBANK= CDUIND 03126 16063 2CADR PFAILOK 15327 TCF TASKOVER >006339,000430: 06,2342 34776 OPONLY CAF BIT4 00006 EXTEND # IF OPERATE ON ONLY AND WE ARE IN COARSE 02012 RAND CHAN12 # ALIGN, DONT ZERO THE CDUS BECAUSE WE 10000 CCS A # MIGHT BE IN GIMBAL LOCK. USE V41N20 TO 12366 TCF C33TEST # RECOVER. 34772 CAF IMUSEFLG # OTHERWISE, ZERO THE COUNTERS 70074 MASK STATE # UNLESS SOMEONE IS USING THE IMU. 10000 CCS A 12366 TCF C33TEST 02751 TC CAGESUB2 # SET TURNON FLAGS. F">006352,000443: 06,2354 04725 ISSZERO TC IBNKCALL # TURN OFF NO ATT LAMP 17140 CADR NOATTOFF # IMU CAGE OFF ENTRY 34775 CAF BIT5 # ISS CDU ZERO 00006 EXTEND 05012 WOR CHAN12 05524 TC ZEROICDU 34774 CAF BIT6 # WAIT 300 MS FOR AGS TO RECEIVE SIGNAL. 05236 TC TWIDDLE 02312 ADRES UNZ2 12366 TCF C33TEST # PROGRAM NAME: C33TEST # FUNCTIONAL DESCRIPTION: THIS PROGRAM MONITORS THREE FLIP-FLOP INBITS OF CHANNEL 33 AND CALLS THE APPROPRIATE # SUBROUTINE TO PROCESS A CHANGE. IT IS ANALOGOUS TO IMUMON, WHICH MONITORS CHANNEL 30, EXCEPT THAT IT READS # CHANNEL 33 WITH A WAND INSTRUCTION BECAUSE A 'WRITE' PULSE IS REQUIRED TO RESET THE FLIP-FLOPS. THE BITS # PROCESSED AND THE SUBROUTINES CALLED ARE: # BIT FUNCTION SUBROUTINE # --- -------- ---------- # 13 PIPA FAIL PIPFAIL # 12 DOWNLINK TOO FAST DNTMFAST # 11 UPLINK TOO FAST UPTMFAST # UPON ENTRY TO THE SUBROUTINE, THE NEW BIT STATE IS IN A. # CALLING SEQUENCE: EVERY 480 MILLISECONDS AFTER TNONTEST. # JOBS OR TASKS INITIATED: NONE. # SUBROUTINES CALLED: PIPFAIL, DNTMFAST AND UPTMFAST ON BIT CHANGES. # ERASABLE INITIALIZATION: C(IMODES33) = OCT 16000 ON A FRESH START OR RESTART, THEREFORE, THESE ALARMS WILL # REAPPEAR IF THE CONDITIONS PERSIST. # ALARMS: NONE. # EXIT: GLOCKMON. # OUTPUT: UPDATED BITS 13, 12 AND 11 OF IMODES33 WITH CHANGES PROCESSED. 4">006395,000486: 06,2366 31324 C33TEST CA IMODES33 # SEE IF RELEVANT CHAN33 BITS HAVE 75067 MASK 33RDMSK 54001 TS L # CHANGED. 35067 CAF 33RDMSK 00006 EXTEND 03033 WAND CHAN33 # RESETS FLIP-FLOP INPUTS. 00006 EXTEND 06001 RXOR LCHAN 00006 EXTEND 12426 BZF GLOCKMON # ON NO CHANGE. 54070 TS RUPTREG1 # SAVE BITS WHICH HAVE CHANGED. 23324 LXCH IMODES33 00006 EXTEND 06001 RXOR LCHAN 55324 TS IMODES33 # UPDATED IMODES33. 35003 CAF ZERO 56070 XCH RUPTREG1 60000 DOUBLE 12413 TCF NXTIBT +1 # SCAN FOR BIT CHANGES. 65001 -1 AD ONE >006418,000509: 06,2412 24070 NXTIBT INCR RUPTREG1 60000 +1 DOUBLE 54000 TS A # (CODING IDENTICAL TO CHAN 30). 12412 TCF NXTIBT 56071 XCH RUPTREG2 50070 INDEX RUPTREG1 # GET NEW VALUE OF BIT WHICH CHANGED. 34765 CAF PIP2FLBT 71324 MASK IMODES33 50070 INDEX RUPTREG1 02766 TC C33JMP 3">006430,000521: 06,2424 10071 NXTFL33 CCS RUPTREG2 # PROCESS POSSIBLE ADDITIONAL CHANGES. 12411 TCF NXTIBT -1 # PROGRAM NAME: GLOCKMON # FUNCTIONAL DESCRIPTION: THIS PROGRAM MONITORS THE CDUZ COUNTER TO DETERMINE WHETHER THE ISS IS IN GIMBAL LOCK # AND TAKES ACTION IF IT IS. THREE REGIONS OF MIDDLE GIMBAL ANGLE (MGA) ARE USED: # 1) ABS(MGA) LESS THAN OR EQUAL TO 70 DEGREES - NORMAL MODE. # 2) ABS(MGA) GREATER THAN 70 DEGREES AND LESS THAN OR EQUAL TO 85 DEGREES - GIMBAL LOCK LAMP TURNED ON. # 3) ABS(MGA) GREATER THAN 85 DEGREES - ISS PUT IN COARSE ALIGN AND NO ATT LAMP TURNED ON. # CALLING SEQUENCE: EVERY 480 MILLISECONDS AFTER C33TEST. # JOBS OR TASKS INITIATED: NONE. # SUBROUTINES CALLED: 1) SETCOARS WHEN ABS(MGA) GREATER THAN 85 DEGREES AND ISS NOT IN COARSE ALIGN. # 2) LAMPTEST BEFORE TURNING OFF GIMBAL LOCK LAMP. # ERASABLE INITIALIZATION: # 1) FRESH START OR RESTART WITH NO GROUPS ACTIVE: C(CDUZ) = 0, IMODES30 BIT 6 = 0, IMODES33 BIT 1 = 0. # 2) RESTART WITH GROUPS ACTIVE: SAME AS FRESH START EXCEPT C(CDUZ) NOT CHANGED SO GIMBAL MONITOR # PROCEEDS AS BEFORE. # ALARMS: 1) MGA REGION (2) CAUSES GIMBAL LOCK LAMP TO BE LIT. # 2) MGA REGION (3) CAUSES THE ISS TO BE PUT IN COARSE ALIGN AND THE NO ATT LAMP TO BE LIT IF EITHER NOT # SO ALREADY. F4E">006458,000549: 06,2426 10034 GLOCKMON CCS CDUZ 12433 TCF GLOCKCHK # SEE IF MAGNITUDE OF MGA IS GREATER THAN 12471 TCF SETGLOCK # 70 DEGREES. 12433 TCF GLOCKCHK 12471 TCF SETGLOCK 84B">006464,000555: 06,2433 62516 GLOCKCHK AD -70DEGS 00006 EXTEND 62470 BZMF SETGLOCK -1 # NO LOCK. 63554 AD -15DEGS # SEE IF ABS(MGA) GREATER THAN 85 DEGS. 00006 EXTEND 62466 BZMF NOGIMRUN 34776 CAF BIT4 # IF SO, SYSTEM SHOULD BE IN COARSE ALIGN 00006 EXTEND # TO PREVENT GIMBAL RUN-AWAY. 02012 RAND CHAN12 10000 CCS A 12466 TCF NOGIMRUN EBANK= DAPDATR1 35057 CAF EBANK6 54003 TS EBANK 41514 CS DAPDATR1 74346 MASK PRIO30 10000 CCS A 12460 TCF CALLCRS # NO 35001 CAF AVEGBIT # YES, IS AVEG ON 70075 MASK FLAGWRD1 10000 CCS A 12466 TCF NOGIMRUN # YES, DON'T COARSE ALIGN 3">006491,000582: 06,2460 04725 CALLCRS TC IBNKCALL # GO INTO COARSE ALIGN 17021 CADR SETCOARS 36211 CAF SIX # ENABLE ISS ERROR COUNTERS IN 60 MS 05246 TC WAITLIST EBANK= CDUIND 03015 16063 2CADR CA+ECE 54E">006499,000590: 06,2466 34774 NOGIMRUN CAF BIT6 # TURN ON GIMBAL LOCK LAMP. 12471 TCF SETGLOCK 35003 -1 CAF ZERO 34B">006503,000594: 06,2471 61231 SETGLOCK AD DSPTAB +11D # SEE IF PRESENT STATE OF GIMBAL LOCK LAMP 74774 MASK BIT6 # AGREES WITH DESIRED STATE BY HALF ADDING 00006 EXTEND # THE TWO. 15336 BZF GLOCKOK # OK AS IS. 71231 MASK DSPTAB +11D # IF OFF, DONT TURN ON IF IMU BEING CAGED. 10000 CCS A 12513 TCF GLAMPTST # TURN OFF UNLESS LAMP TEST IN PROGRESS. 34774 CAF IMUNITBT 71323 MASK IMODES30 10000 CCS A 15336 TCF GLOCKOK 254">006517,000608: 06,2504 41231 GLINVERT CS DSPTAB +11D # INVERT GIMBAL LOCK LAMP. 74774 MASK BIT6 64763 AD BIT15 # TO INDICATE CHANGE IN DSPTAB +11D. 57231 XCH DSPTAB +11D 72160 MASK OCT37737 27231 ADS DSPTAB +11D 15336 TCF GLOCKOK 354">006525,000616: 06,2513 02771 GLAMPTST TC LAMPTEST # TURN OFF UNLESS LAMP TEST IN PROGRESS. 15336 TCF GLOCKOK 12504 TCF GLINVERT 3">006529,000620: 06,2516 63434 -70DEGS DEC -.38888 # -70 DEGREES SCALED IN HALF-REVOLUTIONS. 3">006530,000621: 06,2517 06,3554 -15DEGS EQUALS OCT75252 # SAME AS -.08333 DEC # PROGRAM NAME: TLIM. # FUNCTIONAL DESCRIPTION: THIS PROGRAM MAINTAINS THE TEMP LAMP (BIT 4 OF CHANNEL 11) ON THE DSKY TO AGREE WITH # THE TEMP SIGNAL FROM THE ISS (BIT 15 OF CHANNEL 30). HOWEVER, THE LIGHT WILL NOT BE TURNED OFF IF A LAMP TEST # IS IN PROGRESS. # CALLING SEQUENCE: CALLED BY IMUMON ON A CHANGE OF BIT 15 OF CHANNEL 30. # JOBS OR TASKS INITIATED: NONE. # SUBROUTINES CALLED: LAMPTEST. # ERASABLE INITIALIZATION: FRESH START AND RESTART TURN THE TEMP LAMP OFF. # ALARMS: TEMP LAMP TURNED ON WHEN IMU TEMP GOES OUT OF LIMITS. # EXIT: NXTIFAIL. # OUTPUT: SERVICE OF TEMP LAMP. IN A, EXCEPT FOR TLIM. >006552,000643: 06,2517 74761 TLIM MASK POSMAX # REMOVE BIT FROM WORD OF CHANGES AND SET 54071 TS RUPTREG2 # DSKY TEMP LAMP ACCORDINGLY. 31323 CA IMODES30 74763 MASK TLIMBIT 00006 EXTEND 12531 BZF TEMPOK 34776 CAF BIT4 # TURN ON LAMP. 00006 EXTEND 05011 WOR DSALMOUT 12222 TCF NXTIFAIL >006565,000656: 06,2531 02771 TEMPOK TC LAMPTEST # IF TEMP NOW OK, DONT TURN OFF LAMP IF 12222 TCF NXTIFAIL # LAMP TEST IN PROGRESS. 44776 CS BIT4 00006 EXTEND 03011 WAND DSALMOUT # TURN OFF TEMP CAUTION 12222 TCF NXTIFAIL # PROGRAM NAME: ITURNON. # FUNCTIONAL DESCRIPTION: THIS PROGRAM IS CALLED BY IMUMON WHEN A CHANGE OF BIT 14 OF CHANNEL 30 (ISS TURN-ON # REQUEST) IS DETECTED. UPON ENTRY, ITURNON CHECKS IF A TURN-ON DELAY SEQUENCE HAS FAILED, AND IF SO, IT EXITS. # IF NOT, IT CHECKS WHETHER THE TURN-ON REQUEST CHANGE IS TO ON OR OFF. IF ON, IT SETS BIT 7 OF IMODES30 TO 1 SO # THAT TNONTEST WILL INITIATE THE ISS INITIALIZATION SEQUENCE. IF OFF, THE TURN-ON DELAY SIGNAL, CHANNEL 12 BIT # 15, IS CHECKED AND IF IT IS ON, ITURNON EXITS. IF THE DELAY SIGNAL IS OFF, PROGRAM ALARM 00207 IS ISSUED, BIT 2 # OF IMODES30 IS SET TO 1 AND THE PROGRAM EXITS. # THE SETTING OF BIT 2 OF IMODES30 (ISS DELAY SEQUENCE FAIL) INHIBITS THIS ROUTINE AND IMUOP FROM # PROCESSING ANY CHANGES. THIS BIT WILL BE RESET BY THE ENDTNON ROUTINE WHEN THE CURRENT 90 SECOND DELAY PERIOD # ENDS. # CALLING SEQUENCE: FROM IMUMOM WHEN ISS TURN-ON REQUEST CHANGES STATE. # JOBS OR TASKS INITIATED: NONE. # SUBROUTINES CALLED: ALARM, IF THE ISS TURN-ON REQUEST IS NOT PRESENT FOR 90 SECONDS. # ERASABLE INITIALIZATION: FRESH START AND RESTART SET BIT 15 OF CHANNEL 12 AND BITS 2 AND 7 OF IMODES30 TO 0, # AND BIT 14 OF IMODES30 TO 1. # ALARMS: PROGRAM ALARM 00207 IS ISSUED IF THE ISS TURN-ON REQUEST SIGNAL IS NOT PRESENT FOR 90 SECONDS. # EXIT: NXTIFAIL. # OUTPUT: BIT 7 OF IMODES30 TO START ISS INITIALIZATION, OR BIT 2 OF IMODES30 AND PROGRAM ALARM 00207 TO INDICATE # A FAILED TURN-ON SEQUENCE. E">006602,000693: 06,2537 35000 ITURNON CAF DLAYFAIL # IF DELAY REQUEST HAS GONE OFF 71323 MASK IMODES30 # PREMATURELY, DO NOT PROCESS ANY CHANGES 10000 CCS A # UNTIL THE CURRENT 90 SEC WAIT EXPIRES. 12222 TCF NXTIFAIL 34764 CAF TONISSBT # SEE IF JUST ON OR OFF 71323 MASK IMODES30 00006 EXTEND 12562 BZF ITURNON2 # IF JUST ON. 34763 CAF BIT15 00006 EXTEND # SEE IF DELAY PRESENT DISCRETE HAS BEEN 02012 RAND CHAN12 # SENT. IF SO, ACTION COMPLETE. 00006 EXTEND 12555 BZF +2 12222 TCF NXTIFAIL 35000 CAF DLAYFAIL # IF NOT, SET BIT TO INDICATE REQUEST NOT 27323 ADS IMODES30 # PRESENT FOR FULL DURATION. 05644 TC ALARM 00207 OCT 207 12222 TCF NXTIFAIL E32">006625,000716: 06,2562 41323 ITURNON2 CS IMODES30 # SET BIT7 TO INDICATE WAIT OF 1 SAMPLE 74773 MASK ITNON1BT 27323 ADS IMODES30 12222 TCF NXTIFAIL # PROGRAM NAME: IMUCAGE. # FUNCTIONAL DESCRIPTION: THIS PROGRAM PROCESSES CHANGES OF THE IMUCAGE INBIT, CHANNEL 30 BIT 11. IF THE BIT # CHANGES TO 0 (CAGE BUTTON PRESSED), THE ISS IS CAGED (ICDU ZERO + COARSE ALIGN + NO ATT LAMP) UNTIL THE # ASTRONAUT SELECTS ANOTHER PROGRAM TO ALIGN THE ISS. ANY PULSE TRAINS TO THE ICDU'S AND GYRO'S ARE TERMINATED, # THE ASSOCIATED OUTCOUNTERS ARE ZEROED AND THE GYRO'S ARE DE-SELECTED. NO ACTION OCCURS WHEN THE BUTTON IS # RELEASED (INBIT CHANGES TO 1). # CALLING SEQUENCE: BY IMUMON WHEN IMU CAGE BIT CHANGES. # JOBS OR TASKS INITIATED: NONE. # SUBROUTINES CALLED: CAGESUB. # ERASABLE INITIALIZATION: FRESH START AND RESTART SET BIT 11 OF IMODES30 TO 1. # ALARMS: NONE. # EXIT: NXTIFAIL. # OUTPUT: ISS CAGED, COUNTERS ZEROED, PULSE TRAINS TERMINATED AND NO ATT LAMP LIT. 5">006652,000743: 06,2566 10000 IMUCAGE CCS A # NO ACTION IF GOING OFF. 12354 TCF ISSZERO 35034 CA LOW9 # TERMINATE ICDU, OPTICS, GYRO PULSE TRAINS 00006 EXTEND 03014 WAND CHAN14 42774 CS OCT272 # KNOCK DOWN TVC ENABLE, IMU ERROR COUNTER 00006 EXTEND # ENABLE, ZERO ICDU, COARSE ALIGN 03012 WAND CHAN12 # ENABLE, OPTICS ERR CNTR ENABLE 44773 CS ENGONBIT # CLEAR ENGINE ON FLAG 70101 MASK FLAGWRD5 54101 TS FLAGWRD5 44765 CS BIT13 # TURN OFF ENGINE 00006 EXTEND 03011 WAND DSALMOUT 02746 TC CAGESUB1 04725 TC IBNKCALL # KNOCK DOWN TRACK, REFSMMAT, DRIFT FLAGS 17052 CADR RNDREFDR 45003 CS ZERO # ZERO COMMAND OUT-COUNTERS 54050 TS CDUXCMD 54051 TS CDUYCMD 54052 TS CDUZCMD 54047 TS GYROCMD 42777 CS OCT740 # HAVING WAITED AT LEAST 27 MCT FROM 00006 EXTEND # GYRO PULSE TRAIN TERMINATION, WE CAN 03014 WAND CHAN14 # DE-SELECT THE GYROS. 12222 TCF NXTIFAIL # PROGRAM NAME: IMUOP. # FUNCTIONAL DESCRIPTION: THIS PROGRAM PROCESSES CHANGES IN THE ISS OPERATE DISCRETE, BIT 9 OF CHANNEL 30. # IF THE INBIT CHANGES TO 0, INDICATING ISS ON, IMUOP GENERALLY SETS BIT 7 OF IMODES30 TO 1 TO REQUEST ISS # INITIALIZATION VIA TNONTEST. AN EXCEPTION IS DURING A FAILED ISS DELAY DURING WHICH BIT 2 OF IMODES30 IS SET # TO 1 AND NO FURTHER INITIALIZATION IS REQUIRED. WHEN THE INBIT CHANGES TO 1, INDICATING ISS OFF, IMUSEFLG IS # TESTED TO SEE IF ANY PROGRAM WAS USING THE ISS. IF SO, PROGRAM ALARM 00214 IS ISSUED. # CALLING SEQUENCE: BY IMUMON WHEN BIT 9 OF CHANNEL 30 CHANGES. # JOBS OR TASKS INITIATED: NONE. # SUBROUTINES CALLED: ALARM, IF ISS IS TURNED OFF WHILE IN USE. # ERASABLE INITIALIZATION: ON FRESH START AND RESTART, BIT 9 OF IMODES30 IS SET TO 1 EXCEPT WHEN THE GIMBAL LOCK # LAMP IS ON, IN WHICH CASE IT IS SET TO 0. THIS PREVENTS ICDU ZERO BY TNONTEST WITH THE ISS IN GIMBAL LOCK. # ALARMS: PROGRAM ALARM 00214 IF THE ISS IS TURNED OFF WHILE IN USE. # EXIT: NXTIFAIL. # OUTPUT: ISS INITIALIZATION REQUEST (IMODES30 BIT 7) OR PROGRAM ALARM 00214. /a>006707,000798: 06,2620 00006 IMUOP EXTEND # IF OPERATE JUST ON, WAIT 1 SAMPLE. 12646 BZF IMUOP2 41324 CS IMODES33 # DISABLE DAP 74774 MASK NOIMUDAP 27324 ADS IMODES33 04725 TC IBNKCALL # KNOCK DOWN TRACK, REFSMMAT, DRIFT FLAGS 17052 CADR RNDREFDR 44771 CS UTBIT 70104 MASK FLAGWRD8 54104 TS FLAGWRD8 34773 CA RNDVZBIT # TURN OFF FLAGS 64772 AD IMUSEBIT 40000 COM 70074 MASK FLAGWRD0 56074 XCH FLAGWRD0 # IF GOING OFF, ALARM IF PROG USING IMU 40000 COM 74772 MASK IMUSEFLG 10000 CCS A 12222 TCF NXTIFAIL 05644 TC ALARM 00214 OCT 214 12222 TCF NXTIFAIL >006735,000826: 06,2646 35000 IMUOP2 CAF DLAYFAIL 71323 MASK IMODES30 10000 CCS A 12222 TCF NXTIFAIL # IF SO, DONT PROCESS UNTIL PRESENT 90 12562 TCF ITURNON2 # SECONDS EXPIRES. # PROGRAM NAME: PIPFAIL # FUNCTIONAL DESCRIPTION: THIS PROGRAM PROCESSES CHANGES OF BIT 13 OF CHANNEL 33, PIPA FAIL. IT SETS BIT 10 OF # IMODES30 TO AGREE. IT CALLS SETISSW IN CASE A PIPA FAIL NECESSITATES AN ISS WARNING. IF NOT, I.E., IMODES30 # BIT 1 = 1, AND A PIPA FAIL IS PRESENT AND THE ISS IS NOT BEING INITIALIZED, PROGRAM ALARM 00212 IS ISSUED. # CALLING SEQUENCE: BY C33TEST ON CHANGES OF CHANNEL 33 BIT 13. # JOBS OR TASKS INITIATED: NONE. # SUBROUTINES CALLED: 1) SETISSW, AND 2) ALARM (SEE FUNCTIONAL DESCRIPTION). # ERASABLE INITIALIZATION: SEE IMUMON FOR INITIALIZATION OF IMODES30. THE RELAVANT BITS ARE 5, 7, 8, 9, AND 10. # ALARMS: PROGRAM ALARM 00212 IF PIPA FAIL IS PRESENT BUT NEITHER ISS WARNING IS TO BE ISSUED NOR THE ISS IS # BEING INITIALIZED. # EXIT: NXTFL33. # OUTPUT: PROGRAM ALARM 00212 AND ISS WARNING MAINTENANCE. C">006762,000853: 06,2653 10000 PIPFAIL CCS A # SET BIT10 IN IMODES30 SO ALL ISS WARNING 34770 CAF PIPAFLBT # INFO IS IN ONE REGISTER 57323 XCH IMODES30 73000 MASK -BIT10 27323 ADS IMODES30 02706 TC SETISSW 41323 CS IMODES30 # IF PIP FAIL DOESNT LIGHT ISS WARNING, DO 75001 MASK ACCFINHT # A PROGRAM ALARM IF IMU OPERATING BUT NOT 10000 CCS A # CAGED OR BEING TURNED ON. 12424 TCF NXTFL33 31323 CA IMODES30 72776 MASK OCT1720 10000 CCS A 12424 TCF NXTFL33 # ABOVE CONDITION NOT MET. 05644 TC ALARM 00212 OCT 212 12424 TCF NXTFL33 # PROGRAM NAMES: DNTMFAST, UPTMFAST # FUNCTIONAL DESCRIPTION: THESE PROGRAMS PROCESS CHANGES OF BITS 12 AND 11 OF CHANNEL 33. IF A BIT CHANGES TO A # 0, A PROGRAM ALARM IS ISSUED. THE ALARMS ARE: # BIT ALARM CAUSE # --- ----- ----- # 12 01105 DOWNLINK TOO FAST # 11 01106 UPLINK TOO FAST # CALLING SEQUENCE: BY C33TEST ON A BIT CHANGE. # SUBROUTINES CALLED: ALARM, IF A BIT CHANGES TO A 0. # ERASABLE INITIALIZATION: FRESH START OR RESTART, BITS 12 AND 11 OF IMODES33 ARE SET TO 1. # ALARMS: SEE FUNCTIONAL DESCRIPTION. # EXIT: NXTFL33. # OUTPUT: PROGRAM ALARM ON A BIT CHANGE TO 0. 354">006806,000897: 06,2674 10000 DNTMFAST CCS A # DO PROG ALARM IF TM TOO FAST. 12424 TCF NXTFL33 05644 TC ALARM 01105 OCT 1105 12424 TCF NXTFL33 354">006813,000904: 06,2701 10000 UPTMFAST CCS A # SAME AS DNLINK TOO FAST WITH DIFFERENT 12424 TCF NXTFL33 # ALARM CODE. 05644 TC ALARM 01106 OCT 1106 12424 TCF NXTFL33 # PROGRAM NAME: SETISSW # FUNCTIONAL DESCRIPTION: THIS PROGRAM TURNS THE ISS WARNING LAMP ON AND OFF (CHANNEL 11 BIT 1 = 1 FOR ON, # 0 FOR OFF) DEPENDING ON THE STATUS OF IMODES30 BITS 13 (IMU FAIL) AND 4 (INHIBIT IMU FAIL), 12 (ICDU FAIL) AND # 3 (INHIBIT ICDU FAIL), AND 10 (PIPA FAIL) AND 1 (INHIBIT PIPA FAIL). THE LAMP IS LEFT ON IF A LAMP TEST IS IN # PROGRESS. # CALLING SEQUENCE: CALLED BY IMUMON ON CHANGES TO IMU FAIL AND ICDU FAIL. CALLED BY IFAILOK AND PFAILOK UPON # REMOVAL OF THE FAIL INHIBITS. CALLED BY PIPFAIL WHEN THE PIPA FAIL DISCRETE CHANGES. IT IS CALLED BY PIPUSE # SINCE THE PIPA FAIL PROGRAM ALARM MAY NECESSITATE AN ISS WARNING, AND LIKEWISE BY PIPFREE WHEN THE ALARM DEPARTS # AND IT IS CALLED BY IMUZERO3 AND ISSUP AFTER THE FAIL INHIBITS HAVE BEEN REMOVED. # JOBS OR TASKS INITIATED: NONE. # SUBROUTINES CALLED: NONE. # ERASABLE INITIALIZATION: # 1) IMODES30 - SEE IMUMON. # 2) IMODES33 BIT 1 = 0 (LAMP TEST NOT IN PROGRESS). # ALARMS: ISS WARNING. # EXIT: VIA Q. # OUTPUT: ISS WARNING LAMP SET PROPERLY. 7">006847,000938: 06,2706 35007 SETISSW CAF OCT15 # SET ISS WARNING USING THE FAIL BITS IN 71323 MASK IMODES30 # BITS 13, 12, AND 10 OF IMODES30 AND THE 00006 EXTEND # FAILURE INHIBIT BITS IN POSITIONS 74770 MP BIT10 # 4, 3, AND 1. 31323 CA IMODES30 00006 EXTEND 04001 ROR LCHAN # 0 INDICATES FAILURE. 40000 COM 75066 MASK OCT15000 10000 CCS A 12731 TCF ISSWON # FAILURE. 6">006859,000950: 06,2721 35001 ISSWOFF CAF LMPTSTBT # DONT TURN OFF ISS WARNING IF LAMP TEST 71324 MASK IMODES33 # IN PROGRESS. 10000 CCS A 00002 TC Q 45001 CS BIT1 00006 EXTEND 03011 WAND DSALMOUT # TURN OFF ISS WARNING 00002 TC Q >006869,000960: 06,2731 00006 ISSWON EXTEND 22066 QXCH ITEMP6 05743 TC VARALARM # TELL EVERYONE WHAT CAUSED THE ISSWARNING 35001 CAF BIT1 00006 EXTEND 05011 WOR DSALMOUT # TURN ON ISS WARNING 00066 TC ITEMP6 2">006876,000967: 06,2740 47667 CAGESUB CS BIT15+6 # SET OUTBITS + INTERNAL FLAGS FOR 00006 EXTEND # SYSTEM TURN-ON OR CAGE. DISABLE THE 03012 WAND CHAN12 # ERROR COUNTER AND REMOVE IMU DELAY COMP. 35012 CAF BITS4&5 # SEND ZERO AND COARSE. 00006 EXTEND 05012 WOR CHAN12 231">006883,000974: 06,2746 41231 CAGESUB1 CS DSPTAB +11D # TURN ON NO ATT LAMP 77664 MASK OC40010 27231 ADS DSPTAB +11D 232">006887,000978: 06,2751 41323 CAGESUB2 CS IMODES30 # SET FLAGS TO INDICATE CAGING OR TURN-ON 75024 MASK OCT75 # AND INHIBIT ALL ISS WARNING INFO 27323 ADS IMODES30 41324 CS IMODES33 # DISABLE DAP AUTO AND HOLD MODES 74774 MASK NOIMUDAP 27324 ADS IMODES33 00002 TC Q C">006897,000988: 06,2760 06,2706 IMUFAIL EQUALS SETISSW 94C">006898,000989: 06,2760 06,2706 ICDUFAIL EQUALS SETISSW # JUMP TABLES AND CONSTANTS. D50">006902,000993: 06,2760 12537 IFAILJMP TCF ITURNON # CHANNEL 30 DISPATCH. 12706 TCF IMUFAIL 12706 TCF ICDUFAIL 12566 TCF IMUCAGE B">006906,000997: 06,2764 76400 30RDMSK OCT 76400 # (BIT 10 NOT SAMPLED HERE). 12620 TCF IMUOP >006909,001000: 06,2766 12653 C33JMP TCF PIPFAIL # CHANNEL 33 DISPATCH. 12674 TCF DNTMFAST 12701 TCF UPTMFAST # SUBROUTINE TO SKIP IF LAMP TEST NOT IN PROGRESS. 354">006915,001006: 06,2771 41324 LAMPTEST CS IMODES33 # BIT 1 OF IMODES33 = 1 IF LAMP TEST IN 75001 MASK LMPTSTBT # PROGRESS 15624 TCF INCRQCK B">006918,001009: 06,2774 5067 33RDMSK EQUALS PRIO16 0">006919,001010: 06,2774 7664 OC40010 EQUALS OT40010 >006920,001011: 06,2774 00272 OCT272 OCT 00272 8">006921,001012: 06,2775 00300 BITS7&8 OCT 300 0">006922,001013: 06,2776 01720 OCT1720 OCT 1720 >006923,001014: 06,2777 00740 OCT740 OCT 00740 030">006924,001015: 06,3000 5066 OCT15000 EQUALS PRIO15 >006925,001016: 06,3000 76777 -BIT10 OCT -1000 /a>006927,001018: 06,3001 5750 120MS = OCT14 # (DEC 12) B">006928,001019: 06,3001 5336 GLOCKOK EQUALS RESUME # OPTICS MONITORING AND ZERO ROUTINES >006931,001022: 06,3001 31327 OPTMON CA OPTMODES # MONITOR OPTICS INBITS IN CHAN 30 AND 33 00006 EXTEND 06030 RXOR CHAN30 # LOOK FOR OCDU FAIL BIT CHANGE 74773 MASK OCDUFBIT 54070 TS RUPTREG1 # STORE CHANGE BIT 10000 CCS A 03216 TC OCDUFTST # PROCESS OCDUFAIL BIT CHANGE F4E">006939,001030: 06,3010 11313 33OPTMON CCS OPTIND # BYPASS IF TVC TAKEOVER 13015 TCF +4 13015 TCF +3 03253 TC OPDISAB # DISABLE OPTICS ERR CNTRS 15336 TCF RESUME 31327 CA OPTMODES # LOOK FOR OPTICS MODE SWITCH CHANGE 00006 EXTEND 06033 RXOR CHAN33 75012 MASK OCTHIRTY 26070 ADS RUPTREG1 # STORE INBIT CHANGES 23327 LXCH OPTMODES 00006 EXTEND 06001 RXOR LCHAN 55327 TS OPTMODES # UPDATE OPTMODES TO SHOW BIT CHANGES 30373 CA C31FLWRD 75012 MASK OCTHIRTY 00006 EXTEND 13037 BZF +6 54001 TS L # USE FAILWORD INDICATORS 45012 CS OCTHIRTY 71327 MASK OPTMODES 60001 AD L 55327 TS OPTMODES 41327 CS OPTMODES # SAMPLE CURRENT SWITCH SETTING 75012 MASK OCTHIRTY 00006 EXTEND 13047 BZF SETSAMP # MANUAL-SET ZERO IN SWSAMPLE 74775 MASK OPMD1BIT # SEE IF CSC 10000 CCS A 03047 TC +2 # CSC-SET SWSAMPLE POS 37702 CAF NEGONE # ZOPTICS-SET SWSAMPLE (-1) 0">006973,001064: 06,3047 55346 SETSAMP TS SWSAMPLE # CURRENT OPTICS SWITCH SETTING 357">006975,001066: 06,3050 11320 PROCESSW CCS DESOPMOD # BRANCH ON PREVIOUS SETTING 03143 TC CSCDES # CSC 03115 TC MANUDES # MANUAL 3">006978,001069: 06,3053 11346 ZOPTDES CCS SWSAMPLE # IS SWITCH STILL AT ZOPTICS 03132 TC ZTOCSC # NOW AT CSC 03071 TC ZTOMAN # MANUAL 03101 TC ZOPFINI # ZOPTICS-SEE IF ZOPT PROCESSING 03124 TC SETDESMD # ZOPT NOT PROCESSING-NO ACTION 11322 CCS ZOPTCNT # ZOPT PROCESSING-CHECK COUNTER 03123 TC SETCNT # 32 SAMPLE NOT FINISHED-SET COUNTER E44">006986,001077: 06,3062 35001 SETZOEND CAF BIT1 # 32 SAMPLE WAIT COMPLETED-SET UP ENDZOPT 00006 EXTEND 05012 WOR CHAN12 # SEND OCDU ZERO 34124 CAF 200MS # HOLD FOR 200MS 05236 TC TWIDDLE 03166 ADRES ENDZOPT 03124 TC SETDESMD >006993,001084: 06,3071 03101 ZTOMAN TC ZOPFINI # ZOP TO MANUAL-IS ZOPT DONE 03154 TC CSCTOMAN # YES 24D">006995,001086: 06,3073 05644 ZOPALARM TC ALARM # ALARM-SWITCHED ALTERED WHILE ZOPTICS 00116 OCT 00116 35006 CAF OCT13 # PROCESSING-SET RETURN OPTION 55321 TS WTOPTION 03104 TC CANZOPT # CANCEL ZOPT 03154 TC CSCTOMAN # BIT 1 OF OPTMODES HAS BEEN ELIMINATED. # IF T4RUPT TIMING IS REDUCED, IT WILL # BE NECESSARY TO REINSTATE THE BIT AS # BEFORE, BUT PREVENT OPTICS LOCKOUT. 9">007007,001098: 06,3101 34777 ZOPFINI CAF ZOPTCS 2">007008,001099: 06,3102 71327 ZOPFIN2 MASK OPTMODES # RETURNS TO L+1 PROCESSING AND 15624 TCF INCRQCK # L+2 IF NOT 4">007010,001101: 06,3104 34777 CANZOPT CAF ZOPTCS # CANCEL ZERO OPTICS 65000 AD OCDUINHT 40000 COM 71327 MASK OPTMODES # ZERO ZOPT PROCESSING BIT-ENABLE OCDUFAIL 55327 TS OPTMODES 45001 CS BIT1 # MAKE SURE ZERO OCDU IS OFF 00006 EXTEND 03012 WAND CHAN12 00002 TC Q 3">007020,001111: 06,3115 11346 MANUDES CCS SWSAMPLE # SEE IF SWITCH STILL IN MANUAL MODE 03137 TC MANTOCSC # NOW AT CSC 03127 TC MANTOMAN # STILL MANUAL 11321 CCS WTOPTION # ZOPTICS-LOOK AT ZOPTICS RETURN OPTION 03150 TC CSCTOZOP +2 # 5 SEC RETURN GOOD- CONTINUE ZOPTICS 03146 TC CSCTOZOP >007026,001117: 06,3123 55322 SETCNT TS ZOPTCNT D44">007027,001118: 06,3124 31346 SETDESMD CA SWSAMPLE # SET CURRENT SWITCH INDICATOR- RESUME 55320 TS DESOPMOD 05336 TC RESUME 14E">007030,001121: 06,3127 11321 MANTOMAN CCS WTOPTION # DECREMENT RETURN OPTION TIME 55321 TS WTOPTION 03124 TC SETDESMD >007034,001125: 06,3132 03101 ZTOCSC TC ZOPFINI # SEE IF ZOPT PROCESSING 03142 TC MANTOCSC +3 # NO- RETURN TO COARS OPT 05644 TC ALARM # ZOPT PROCESSING- ALARM 00116 OCT 00116 03104 TC CANZOPT # CANCEL ZOPT 343">007039,001130: 06,3137 35003 MANTOCSC CAF ZERO # CANCEL ZOPT RETURN OPTION IF SET 55321 TS WTOPTION 55322 TS ZOPTCNT 03154 +3 TC CSCTOMAN >007044,001135: 06,3143 11346 CSCDES CCS SWSAMPLE # SEE IF SWITCH STILL AT CSC 03124 TC SETDESMD # STILL AT CSC 03154 TC CSCTOMAN # MANUAL F50">007047,001138: 06,3146 34774 CSCTOZOP CAF OCT40 # ZOPTICS-INITIALIZE FOR ZOPT 55322 TS ZOPTCNT 03210 +2 TC INITZOPT 04077 TC NOOPRATE 03254 TC ECDISAB 03124 TC SETDESMD 14E">007053,001144: 06,3154 11313 CSCTOMAN CCS OPTIND # IS THE OPTICS IN USE 03161 TC CANCOARS # YES DISABLE OPTICS ERR CNTRS, SET TVC 03161 TC CANCOARS # ENABLE BIT IF IN MANUAL AND REENABLE 03160 TC +1 # OPTICS ERR CNTRS 03124 TC SETDESMD # NO NORMAL EXIT 253">007058,001149: 06,3161 03254 CANCOARS TC ECDISAB # DISABLE OP ERR CNTRS 36211 CA SIX # ENABLE ERR CNTRS AFTER 60 MS 05236 TC TWIDDLE 03260 ADRES ECENAB 03124 TC SETDESMD 4">007063,001154: 06,3166 35003 ENDZOPT CA ZERO 54036 TS CDUS # ZERO IN CDUS, -20 IN CDUT 55317 TS ZONE # INITIALIZE SHAFT MONITOR ZONE 43666 CS 20DEGS 54035 TS CDUT 45001 CS BIT1 # TURN OFF ZERO OCDU 00006 EXTEND 03012 WAND CHAN12 34124 CAF 200MS # DELAY 200MS FOR CDUS TO RESYNCHRONIZE 05273 TC VARDELAY 41327 CS OPTMODES # SHOW ZOPTICS SINCE LAST FRESH START 74770 MASK ZROPTFIN # OR RESTART 27327 ADS OPTMODES 46211 CS SIX 71327 MASK OPTMODES 55327 TS OPTMODES 03216 TC OCDUFTST # CHECK OCDU FAIL BIT AFTER ENABLE 05327 TC TASKOVER 054">007086,001177: 06,3210 35003 INITZOPT CAF ZERO # INITIALIZE ZOPTICS-INHIBIT OCDUFAIL 55321 TS WTOPTION # AND SHOW OPTICS PROCESSING 41327 CS OPTMODES # SET ZERO OPTICS PROCESSING 76211 MASK SIX # OPTICS CDU FAIL INHIBITED 27327 ADS OPTMODES 00002 TC Q 354">007093,001184: 06,3216 34773 OCDUFTST CAF BIT7 # SEE IF OCDUFAIL ON OR OFF 00006 EXTEND 02030 RAND CHAN30 10000 CCS A 13244 TCF OPFAILOF # OCDUFAIL LIGHT OFF 35000 CAF OCDUINHT # OCDUFAIL LIGHT ON UNLESS INHIBITED 71327 MASK OPTMODES 10000 CCS A 00002 TC Q # OCDUFAIL INHIBITED F4E">007104,001195: 06,3227 34772 OPFAILON CAF BIT8 # ON BIT 61231 AD DSPTAB +11D 74772 MASK BIT8 >007107,001198: 06,3232 00006 SETOFF EXTEND 16711 BZF TCQ # NO CHANGE 54001 TS L 31231 CA DSPTAB +11D 00006 EXTEND 06001 RXOR LCHAN 74761 MASK POSMAX 64763 AD BIT15 # SHOW ACTION WANTED 55231 TS DSPTAB +11D 00002 TC Q F46">007119,001210: 06,3244 35001 OPFAILOF CAF LMPTSTBT # DONT TURN OFF IF LAMP TEST 71324 MASK IMODES33 10000 CCS A 00002 TC Q # LAMP TEST IN PROGRESS 34772 CAF BIT8 # TURN OFF OCDUFAIL LIGHT 71231 MASK DSPTAB +11D 13232 TCF SETOFF 2">007128,001219: 06,3253 24002 OPDISAB INCR Q 2">007129,001220: 06,3254 45000 ECDISAB CS BIT2 00006 EXTEND 03012 WAND CHAN12 00002 TC Q >007133,001224: 06,3260 31346 ECENAB CA SWSAMPLE 00006 EXTEND 13264 BZF +2 # MANUAL SET TVC ENABLE 13267 TCF ECENAB1 34772 CAF BIT8 00006 EXTEND 05012 WOR CHAN12 1">007140,001231: 06,3267 35000 ECENAB1 CAF BIT2 00006 EXTEND 05012 WOR CHAN12 05327 TC TASKOVER /a>007144,001235: 06,3273 5006 OCT13 = ELEVEN 459">007145,001236: 06,3273 5012 OCTHIRTY EQUALS BITS4&5 /a>007146,001237: 06,3273 4774 OCT40 EQUALS BIT6 /a>007147,001238: 06,3273 4124 200MS EQUALS OCT24 # OPTICS CDU DRIVING PROGRAM SETLOC OPTDRV BANK COUNT* $$/SXT # SHAFT STOP MONITOR-ZONE UPDATE 645">007157,001248: 10,2000 30036 OPTDRIVE CA CDUS # GRAB OPTIC SHAFT CDU 54001 TS L 10000 CCS A # GET ABS(CDUS) 67673 AD 13,14,15 12006 TCF +2 # ABS(CDUS) - 45 DEG 12003 TCF -2 00006 EXTEND 62016 BZMF OZONE # LESS THAN 45 DEG-SET ZONE 0 31317 CA ZONE # IF ZONE ZERO, CHANGE TO + OR - OTHERWISE 00006 EXTEND # DONT MESS WITH ZONE 12014 BZF +2 12020 TCF CONTDRVE # JUST CONTINUE 56001 XCH L # GREATER THAN 45 DEG-SET ZONE TO SIGN CDU 12017 TCF OZONE +1 /a>007171,001262: 10,2016 35003 OZONE CAF ZERO # ABS(CDUS) LESS THEN 90 DEG-ZONE ZERO 55317 TS ZONE COUNT* $$/T4RPT 645">007174,001265: 10,2020 11313 CONTDRVE CCS OPTIND 02025 TC +4 # WORK COARS OPTICS 02025 TC +3 # WORK COARS OPTICS 04077 TC NOOPRATE # NO OPT DISABLE TVC 05336 TC RESUME # NO OPT 31346 CA SWSAMPLE # SEE IF SWITCH AT CMC 00006 EXTEND 12214 BZF TVCBCK 00006 EXTEND 65336 BZMF RESUME 631">007185,001276: 10,2032 34770 RATEDRV1 CAF ZROPTFIN # SEE IF OCDUS ZEROED SINCE LAST FSTART 71327 MASK OPTMODES 10000 CCS A 02040 TC +3 05644 TC ALARM # OPTICS NOT ZEROED 00120 OCT 00120 35000 CA BIT2 # SEE IF ERR CNTS ENABLED 00006 EXTEND 02012 RAND CHAN12 00006 EXTEND 12202 BZF SETBIT # CNTS NOT ENABLED-DO IT AND RESUME 35001 CAF ONE # INITIALIZE OPTIND >007199,001290: 10,2046 55313 OPT2 TS OPTIND D44">007200,001291: 10,2047 51313 GETOPCMD INDEX OPTIND 31302 CA DESOPTT # PICK UP DESIRED OPT ANGLE 00006 EXTEND 51313 INDEX OPTIND 20035 MSU CDUT # GET DIFFERENCE 00006 EXTEND 74765 MP BIT13 56001 XCH L 60000 DOUBLE 54061 TS ITEMP1 12063 TCF +2 # NO OVFL 26001 ADS L # WITH OVFL 4">007213,001304: 10,2063 51313 STORCMD INDEX OPTIND 23315 LXCH COMMANDO # STORE COMMAND 11313 CCS OPTIND 12136 TCF TRUNCMD # GET TRUN COMMAND 54061 TS ITEMP1 # INITIALIZE SEND INDICATOR TO ZERO COUNT* $$/SXT # SHAFT STOP AVOIDANCE 10036 CCS CDUS # IF CDUS GREATER THAN + OR - 90 DEG CHECK 64762 AD NEG1/2 # FOR POSSIBLE STOP PROBLEM 12074 TCF +2 12071 TCF -2 00006 EXTEND 62122 BZMF CMDSETUP # CDUS LESS THAN 90 DEG, NO PROBLEMS 31317 CA ZONE 00006 EXTEND 12122 BZF CMDSETUP # ZONE=3, NORMAL COMMAND 74763 MASK BIT15 # GRAB SIGN OF ZONE 54001 TS L 31316 CA COMMANDO +1 74763 MASK BIT15 # GRAB SIGN OF SHAFT COMMAND 00006 EXTEND 06001 RXOR LCHAN 10000 CCS A 12122 TCF CMDSETUP # SIGN ZONE NOT EQUAL TO SIGN COMMAND 11303 CCS DESOPTS # SEE IF DESOPTS BETWEEN -90 AND +90 64762 AD NEG1/2 12115 TCF +2 # ABS(DESOPTS) - 90 DEG 12112 TCF -2 00006 EXTEND 62120 BZMF +2 # DESOPTS IN FIRST OR FOURTH QUAD 12122 TCF CMDSETUP 41316 CS COMMANDO +1 # REVERSE REGULAR COMMAND 55316 TS COMMANDO +1 COUNT* $$/T4RPT 550">007251,001342: 10,2122 31346 CMDSETUP CA SWSAMPLE 00006 EXTEND 12210 BZF RATEDRV2 04077 TC NOOPRATE # DISABLE TVC DAP BIT 35001 CAF ONE # SET OPTIND >007256,001347: 10,2127 55313 CMDSET TS OPTIND 50000 INDEX A 11315 CCS COMMANDO # GET SIGN OF COMMAND 02151 TC POSOPCMD 02156 TC NEXTOPT +1 # ZERO COMMAND-SKIP SEND INDICATOR 02166 TC NEGOPCMD 02156 TC NEXTOPT +1 # ZERO COMMAND 4">007264,001355: 10,2136 55313 TRUNCMD TS OPTIND 40035 CS CDUT # IF COMMAND GREATER THAN 45 DEG-COMMAND 61302 AD DESOPTT # 45 DEG 54002 TS Q 02047 TC GETOPCMD # LESS THAN 45 DEG-NORMAL OPERATION 10000 CCS A # GREATER THAN 45 DEG-USE OPSMAX WITH 34761 CA POSMAX # CORRECT SIGN 02147 TC +2 44761 CS POSMAX 54001 TS L 02063 TC STORCMD D44">007276,001367: 10,2151 62207 POSOPCMD AD MAXPLS1 00006 EXTEND 62173 BZMF DELOPCMD # COMMAND LESS THAN MAX PULSE 42206 CS MAXPLS # GREATER THAN MAX PULSE-USE MAX PULSE 4">007281,001372: 10,2155 24061 NEXTOPT INCR ITEMP1 # SET SEND INDICATOR 65002 +1 AD NEG0 # MAKE SURE ZERO COMMAND IS -ZERO 51313 INDEX OPTIND 54053 TS CDUTCMD # STORE PULSE IN SEND REG 11313 CCS OPTIND 02127 TC CMDSET # GET NEXT OPT 10061 CCS ITEMP1 # ARE ANY PULSES TO GO 12176 TCF SENDOCMD # YES-SEND EM 05336 TC RESUME # NO D44">007292,001383: 10,2166 62207 NEGOPCMD AD MAXPLS1 00006 EXTEND 62173 BZMF DELOPCMD # LESS THAN MAX PULSE 32206 CA MAXPLS # MAX PULSES 12155 TCF NEXTOPT D44">007297,001388: 10,2173 51313 DELOPCMD INDEX OPTIND 57315 XCH COMMANDO # SET UP SMALL COMMAND 12155 TCF NEXTOPT D44">007301,001392: 10,2176 35062 SENDOCMD CAF 11,12 # SEND OCDU DRIVE COMMANDS 00006 EXTEND 05014 WOR CHAN14 05336 TC RESUME >007306,001397: 10,2202 35000 SETBIT CAF BIT2 # ENABLE OCDU ERR CNTS 00006 EXTEND 05012 WOR CHAN12 05336 TC RESUME # START COARS NEXT TIME AROUND >007311,001402: 10,2206 77654 MAXPLS DEC -83 B-14 # WAS -165 1">007312,001403: 10,2207 77655 MAXPLS1 DEC -82 B-14 # WAS -164 /a>007313,001404: 10,2210 5062 11,12 EQUALS PRIO6 632">007314,001405: 10,2210 45003 RATEDRV2 CS ZERO 54001 TS L 52054 DXCH CDUTCMD 02176 TC SENDOCMD >007318,001409: 10,2214 34772 TVCBCK CAF BIT8 # IS TVC BIT ENABLED 00006 EXTEND 02012 RAND CHAN12 00006 EXTEND 12222 BZF +2 02032 TC RATEDRV1 34772 CAF BIT8 # NO TURN IT ON 00006 EXTEND 05012 WOR CHAN12 05336 TC RESUME SETLOC STOPRAT BANK COUNT* $$/T4RPT 445">007331,001422: 4077 44772 NOOPRATE CS BIT8 00006 EXTEND 03012 WAND CHAN12 00002 TC Q T4RUPT_PROGRAM.agc. Parent file is MAIN.agc