From e5725d36cdff4a2c59b140f460361da15a994bee Mon Sep 17 00:00:00 2001 From: dimitraz Date: Tue, 26 Oct 2021 22:25:42 +0100 Subject: [PATCH] Proof read pages 155-171 --- Luminary099/T4RUPT_PROGRAM.agc | 57 +++++++++++++++++----------------- 1 file changed, 29 insertions(+), 28 deletions(-) diff --git a/Luminary099/T4RUPT_PROGRAM.agc b/Luminary099/T4RUPT_PROGRAM.agc index 48187f8..1fb1e36 100644 --- a/Luminary099/T4RUPT_PROGRAM.agc +++ b/Luminary099/T4RUPT_PROGRAM.agc @@ -103,13 +103,13 @@ DSPSCAN INDEX DSPCNT CCS DSPCNT # IF DSPTAB ENTRY +, SKIP TCF DSPSCAN -2 # IF DSPCNT +, TRY AGAIN TCF DSPLAY # IF DSPTAB ENTRY -, DISPLAY -TABLNTH OCT 12 # DEC 10, LENGTH OF DSPTAB +TABLNTH OCT 12 # DEC 10 LENGTH OF DSPTAB CCS DSRUPTEM # IF DSRUPTEM=+0, 2ND PASS THRU DSPTAB 120MRUPT DEC 16372 # (DSPCNT = 0). +0 INTO NOUT. TS NOUT TC Q TS DSRUPTEM # IF DSRUPTEM=-0, 1ST PASS THRU DSPTAB - CAF TABLNTH # (DSPCNT=0).+0 INTO DSRUPTEM. PASS AGAIN + CAF TABLNTH # (DSPCNT=0). +0 INTO DSRUPTEM. PASS AGAIN TCF DSPSCAN -1 DSPLAY AD ONE @@ -170,7 +170,7 @@ PROCEEDE CA IMODES33 # MONITOR FOR PROCEED BUTTON 2CADR PROCKEY # Page 159 - # JUMP TO APPROPRIATE ONCE-PER SECOND (0.96 SEC ACTUALLY) ACTIVITY + # JUMP TO APPROPRIATE ONCE-PER SECOND (.96 SEC ACTUALLY) ACTIVITY T4JUMP INDEX RUPTREG1 TCF +1 @@ -192,7 +192,7 @@ T4JUMP INDEX RUPTREG1 NODSPOUT EXTEND WRITE OUT0 - CAF 120MRUPT #SET FOR NEXT CCRIVE + CAF 120MRUPT # SET FOR NEXT CDRIVE TCF SETTIME4 QUIKDSP CAF BIT14 @@ -240,7 +240,7 @@ QUIKOFF EXTEND # 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 SUROUTINES ARE: +# CHANNEL 30 AND CALLS THE APPROPRIATE SUBROUTINES. THE BITS PROCESSED AND THEIR RELEVANT SUBROUTINES ARE: # FUNCTION BIT SUBROUTINE CALLED # -------- --- ----------------- @@ -258,10 +258,10 @@ QUIKOFF EXTEND # JOBS OR TASKS INITIATED: NONE. -# SUBROUTINES CALLED: TLIM, TURNON, SETISSW, IMUCAGE, IMUOP. +# SUBROUTINES CALLED: TLIM, ITURNON SETISSW, IMUCAGE, IMUOP. # ERASABELE INITIALIZATION: -# FRESH START OR RESTART WITH NO GROUPS ACTIVE: C((MODES30) = OCT 37411). +# 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. @@ -276,7 +276,7 @@ IMUMON CA IMODES30 # SEE IF THERE HAS BEEN A CHANGE IN THE RXOR CHAN30 MASK 30RDMSK EXTEND - BZF TNONTEST # NO CHANGE IN STATUS + BZF TNONTEST # NO CHANGE IN STATUS. TS RUPTREG1 # SAVE BITS WHICH HAVE CHANGED. LXCH IMODES30 # UPDATE IMODES30. @@ -319,25 +319,25 @@ NXTIFAIL CCS RUPTREG2 # PROCESS ANY ADDITIONAL CHANGES. # 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 WIT THE ISS IN OPERATE. IN THIS CASE ONLY ISS OPERATE IS ON. THE ICDU'S ARE +# 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 THT THE USING PROGRAM DID THE INITIALIZATION AND THEREFORE T4RUPT SHOULD NOT INTERFERE. +# 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 TEH 90 SECOD WAIT IS REPEATED. OTHERWISE NO ACTION OCURS UNLESS A PROGRAM -# WAS WAITING FOR THE INITIALIZATION IN WHIC CASE TH PROGRAM IS GIVEN AN IMUSTALL ERROR RETURN. IF THE DELAY +# 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 MISSIN PROGRAM IS USING THE IMU (INUSEFLG = 1). +# ALIGN (= GIMBAL LOCK HERE) OR A MISSION PROGRAM IS USING THE IMU (IMUSEFLG = 1). # CALLING SEQUENCE: T4RUPT EVERY 480 MILLISECONDS AFTER IMUMON. @@ -386,7 +386,7 @@ PROCTNON CS BITS7&8 CCS A TCF +3 - TC ALARM # ALARM IF NOT + TC ALARM # ALARM IF NOT. OCT 213 +3 TC CAGESUB @@ -407,7 +407,7 @@ ENDTNON CS BIT2 # RESET TURN-ON REQUEST FAIL BIT. EXTEND BZF ENDTNON2 - CAF BIT14 # IF IT WAS ON AND TURN-ON REQUEST NOW. + CAF BIT14 # IF IT WAS ON AND TURN-ON REQUEST NOW # Page 165 MASK IMODES30 # PRESENT, RE-ENTER 90 SEC DELAY IN WL. EXTEND @@ -436,7 +436,7 @@ UNZ2 TC ZEROICDU CAF BIT11 # WAIT 10 SECS FOR CTRS TO FIND GIMBALS TC VARDELAY -ISSUP CS OCT54 # REMOVE CAGING, IMU FAIL INHIBIT BIT, AND +ISSUP CS OCT54 # REMOVE CAGING, IMU FAIL INHIBIT, AND MASK IMODES30 # ICDUFAIL INHIBIT FLAGS. TS IMODES30 @@ -468,26 +468,26 @@ ISSUP CS OCT54 # REMOVE CAGING, IMU FAIL INHIBIT BIT, AND OPONLY CAF BIT4 # IF OPERATE ON ONLY, AND WE ARE IN COARSE EXTEND # ALIGN, DON'T ZERO THE CDUS BECAUSE WE - RAND CHAN12 # MIGHT BE IN GIMBAL LOCK. + RAND CHAN12 # MIGHT BE IN GIMBAL LOCK CCS A TCF C33TEST CAF IMUSEBIT # OTHERWISE, ZERO THE COUNTERS. - MASK FLAGWRD0 # UNLESS SOMEONE IS USING TH IMU. + MASK FLAGWRD0 # UNLESS SOMEONE IS USING THE IMU. CCS A TCF C33TEST TC CAGESUB2 # SET TURNON FLAGS. -ISSZERO TC IBNKCALL # TURN OFF NO ATT LAMP. - CADR NOATTOFF # IMU CAGE OFF ENTRY. +ISSZERO TC IBNKCALL # TURN OFF NO ATT LAMP + CADR NOATTOFF # IMU CAGE OFF ENTRY CAF BIT5 # ISS CDU ZERO EXTEND WOR CHAN12 TC ZEROICDU - CAF BIT6 # WAIT 300 MS. FOR AGS TO RECEIVE SIGNAL. + CAF BIT6 # WAIT 300 MS FOR AGS TO RECEIVE SIGNAL. TC WAITLIST EBANK= M11 2CADR UNZ2 @@ -499,7 +499,7 @@ ISSZERO TC IBNKCALL # TURN OFF NO ATT LAMP. # # 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 +# 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 # --- -------- ---------- @@ -559,6 +559,7 @@ NXTIBT INCR RUPTREG1 MASK IMODES33 INDEX RUPTREG1 TC C33JMP + NXTFL33 CCS RUPTREG2 # PROCESS POSSIBLE ADDITIONAL CHANGES. TCF NXTIBT -1 @@ -580,7 +581,7 @@ NXTFL33 CCS RUPTREG2 # PROCESS POSSIBLE ADDITIONAL CHANGES. # 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. +# 1) FRESH START OR RESTART WITH NO GROUPS ACTIVE: C(CDUZ) = 0, IMODES30 BIT 6 = 0, IMODES33 BIT 1 = 0. # 2) RESTART WTIH GROUPS ACTIVE: SAME AS FRESH START EXCEPT C(CDUZ) NOT CHANGED SO GIMBAL MONITOR # PROCEEDS AS BEFORE. # @@ -598,7 +599,7 @@ GLOCKCHK AD -70DEGS EXTEND BZMF SETGLOCK -1 # NO LOCK. - AD -15DEGS # SEE IF ABS(MGA) GREATER THAN 85 DEGREES + AD -15DEGS # SEE IF ABS(MGA) GREATER THAN 85 DEGREES. EXTEND BZMF NOGIMRUN @@ -611,7 +612,7 @@ GLOCKCHK AD -70DEGS TC IBNKCALL CADR SETCOARS - CAF SIX # ENABLE ISS ERROR COUNTERS IN 60 MS. + CAF SIX # ENABLE ISS ERROR COUNTERS IN 60 MS TC WAITLIST # Page 170 EBANK= CDUIND @@ -659,13 +660,13 @@ GLAMPTST TC LAMPTEST # TURN OFF UNLESS LAMP TEST IN PROGRESS. # # CALLING SEQUENCE: CALLED BY IMUMON ON A CHANGE OF BIT 15 OF CHANNEL 30. # -# JOBS OR TASKS INITIATED: NON. +# 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 THE IMU TEMP GOES OUT OF LIMITS. +# ALARMS: TEMP LAMP TURNED ON WHEN IMU TEMP GOES OUT OF LIMITS. # # EXIT: NXTIFAIL. # @@ -1351,4 +1352,4 @@ GPMATRIX CAE CDUZ # SINGLE ENTRY POINT TC RESUME NORRGMON EQUALS DAPT4S -ENDDAPT4 EQUALS RESUME +ENDDAPT4 EQUALS RESUME \ No newline at end of file