From 83163204e1232160f42fa1ff68e4ae5cd2a2efdd Mon Sep 17 00:00:00 2001 From: Isha Date: Sat, 31 Oct 2020 00:21:53 -0400 Subject: [PATCH] Proof Page #0155-0165 --- Luminary099/T4RUPT_PROGRAM.agc | 72 +++++++++++++++++----------------- 1 file changed, 36 insertions(+), 36 deletions(-) diff --git a/Luminary099/T4RUPT_PROGRAM.agc b/Luminary099/T4RUPT_PROGRAM.agc index 48187f8..1451165 100644 --- a/Luminary099/T4RUPT_PROGRAM.agc +++ b/Luminary099/T4RUPT_PROGRAM.agc @@ -53,8 +53,8 @@ NORMT4 CAF SEVEN COUNT* $$/T4RPT 100MRUPT = OCT37766 # (DEC 16374) - # RELTAB IS A PACKED TABLE. RELAYWORD CODE IN UPPER 4 BITS, RELAY CODE - # IN LOWER 5 BITS. +# RELTAB IS A PACKED TABLE. RELAYWORD CODE IN UPPER 4 BITS, RELAY CODE +# IN LOWER 5 BITS. RELTAB OCT 04025 OCT 10003 @@ -70,7 +70,7 @@ RELTAB OCT 04025 RELTAB11 OCT 60000 # Page 156 - # SWITCHED-BANK PORTION +# SWITCHED-BANK PORTION BANK 12 SETLOC T4RUP @@ -90,7 +90,7 @@ CDRVE CCS DSPTAB +11D TC HANG20 # Page 157 - # DSPOUT PROGRAM, PUTS OUT DISPLAYS +# DSPOUT PROGRAM. PUTS OUT DISPLAYS. DSPOUTSB TS NOUT CS ZERO @@ -109,7 +109,7 @@ TABLNTH OCT 12 # DEC 10, LENGTH OF DSPTAB 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 @@ -141,13 +141,13 @@ HANG20 CS 14,11,9 SETTIME4 TS TIME4 # Page 158 - # 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. +# 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. PROCEEDE CA IMODES33 # MONITOR FOR PROCEED BUTTON EXTEND @@ -162,15 +162,15 @@ PROCEEDE CA IMODES33 # MONITOR FOR PROCEED BUTTON TS IMODES33 # UPDATE IMODES33 MASK BIT14 CCS A - TCF T4JUMP # WAS ON -- NOW OFF + TCF T4JUMP # WAS ON - NOW OFF - CAF CHRPRIO # WAS OFF -- NOW ON + CAF CHRPRIO # WAS OFF - NOW ON TC NOVAC EBANK= DSPCOUNT 2CADR PROCKEY # Page 159 - # JUMP TO APPROPRIATE ONCE-PER SECOND (0.96 SEC ACTUALLY) ACTIVITY + # JUMP TO APPROPRIATE ONCE-PER SECOND (0.96 SEC ACTUALLY) ACTIVITY T4JUMP INDEX RUPTREG1 TCF +1 @@ -187,12 +187,12 @@ T4JUMP INDEX RUPTREG1 20MRUPT = OCT37776 # (DEC 16382) # Page 160 - # ADDITIONAL ROUTINES FOR 20MS. KEYBOARD ACTIVITY + # ADDITIONAL ROUTINES FOR 20MS. KEYBOARD ACTIVITY NODSPOUT EXTEND WRITE OUT0 - CAF 120MRUPT #SET FOR NEXT CCRIVE + CAF 120MRUPT #SET FOR NEXT CDRIVE TCF SETTIME4 QUIKDSP CAF BIT14 @@ -251,17 +251,17 @@ QUIKOFF EXTEND # 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. +# 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, 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). +# 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. @@ -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. @@ -314,34 +314,34 @@ NXTIFAIL CCS RUPTREG2 # PROCESS ANY ADDITIONAL CHANGES. # 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, +# 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 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. +# 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 TEH 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. -# JOBS OR TASKS INITIATED: 1) ENDTNON, 90 SECONDS AFER CAGING STARTED. 2) ISSUP, 4 SECONDS AFTER CAGING DONE. +# 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. @@ -372,7 +372,7 @@ TNONTEST CS IMODES30 # AFTER PROCESSING ALL CHANGES, SEE IF IT ADS IMODES30 # TIME. TCF C33TEST - # PROCESS IMU TURN-ON REQUESTS AFTER WAITING 1 SAMPLE FOR ALL SIGNALS TO ARRIVE. + # PROCESS IMU TURN-ON REQUESTS AFTER WAITING 1 SAMPLE FOR ALL SIGNALS TO ARRIVE. PROCTNON CS BITS7&8 MASK IMODES30 @@ -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 @@ -413,7 +413,7 @@ ENDTNON CS BIT2 # RESET TURN-ON REQUEST FAIL BIT. EXTEND BZF RETNON - CS FLAGWRD0 # IF IT IS NOT ON NOW, SEE IF A PROG WAS + CS FLAGWRDD # IF IT IS NOT ON NOW, SEE IF A PROG WAS MASK IMUSEBIT # WAITING. CCS A TCF TASKOVER @@ -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 @@ -458,7 +458,7 @@ ISSUP CS OCT54 # REMOVE CAGING, IMU FAIL INHIBIT BIT, AND EXTEND WAND CHAN12 - CAF 4SECS # DON'T ENABLE PROG ALARM ON PIP FAIL FOR + CAF 4SECS # DONT ENABLE PROG ALARM ON PIP FAIL FOR # Page 166 TC WAITLIST # ANOTHER 4 SECS. EBANK= CDUIND