From ae6dc116d276cc3a0ab14bc58a5812cdd1045297 Mon Sep 17 00:00:00 2001 From: mgnoonan Date: Sun, 21 Aug 2016 20:12:33 -0400 Subject: [PATCH] Typos pp. 1309-37 --- Luminary099/IMU_MODE_SWITCHING_ROUTINES.agc | 189 ++++++++++---------- 1 file changed, 92 insertions(+), 97 deletions(-) diff --git a/Luminary099/IMU_MODE_SWITCHING_ROUTINES.agc b/Luminary099/IMU_MODE_SWITCHING_ROUTINES.agc index bfd906e..4530a06 100644 --- a/Luminary099/IMU_MODE_SWITCHING_ROUTINES.agc +++ b/Luminary099/IMU_MODE_SWITCHING_ROUTINES.agc @@ -56,7 +56,7 @@ SPSCODE = BIT9 COUNT* $$/IMODE IMUZERO INHINT # ROUTINE TO ZERO ICDUS. - CS DSPTAB +11D # DON'T ZERO CDUS IS IMU IN GIMBAL LOCK AND + CS DSPTAB +11D # DON'T ZERO CDUS IF IMU IN GIMBAL LOCK AND MASK BITS4&6 # COARSE ALIGN (GIMBAL RUNAWAY PROTECTION) CCS A TCF IMUZEROA @@ -378,7 +378,7 @@ NOATTOFF CS OCT40010 # SUBROUTINE TO TURN OFF NO ATT LAMP. TC Q # Page 1318 -# ROUTINES TO INITIATE AND TERMINATE PROGRAM USE OF THE PIPAS. NO IMUSTALL REQUIRED IN EITHER CASE. +# ROUTINES TO INITIATE AND TERMINATE PROGRAM USE OF THE PIPAS. NO IMUSTALL REQUIRED IN EITHER CASE. PIPUSE CS ZERO TS PIPAX @@ -403,7 +403,7 @@ PIPFREE INHINT # PROGRAM DONE WITH PIPAS. DON'T LIGHT MASK BIT1 ADS IMODES30 - MASK BIT10 # IF PIP FAIL ON, DO PROG ALARM AND RESET + MASK BIT10 # IF PIP FAIL ON, DO PROG ALSRM AND RESET CCS A # ISS WARNING. TCF MODEEXIT @@ -415,9 +415,9 @@ PIPFREE INHINT # PROGRAM DONE WITH PIPAS. DON'T LIGHT TCF PIPFREE2 # Page 1319 -# THE FOLLOWING ROUTINE TORQUES THE IRIGS ACCORDING TO DOUBLE PRECISION INPUTS IN THE SIXE REGISTERS -# BEGINNING AT THE ECADR ARRIVING IN A. THE MINIMUM SIZE OF ANY PULSE TRAIN IS 16 PULSES (.25 CDU COUNTS). THE -# UNSENT PORTION OF THE COMMAND IS LEFT INTACT AT THE INPUT COMMAND REGISTERS. +# THE FOLLOWING ROUTINE TORQUES THE IRIGS ACCORDING TO DOUBLE PRECISION INPUTS IN THE SIX REGISTERS +# BEGINNING AT THE ECADR ARRIVING IN A. THE MINIMUM SIZE OF ANY PULSE TRAIN IS 16 PULSES (.25 CDU COUNTS). THE +# UNSENT PORTION OF THE COMMAND IS LEFT INTACT IN THE INPUT COMMAND REGISTERS. EBANK= 1400 # VARIABLE, ACTUALLY. @@ -514,7 +514,7 @@ STRTGYR2 CA LGYRO # JUMP ON PHASE COUNTER IN BITS 13-14. CAF LGWAKE # WAKE A POSSIBLE SLEEPING JOB. TC JOBWAKE -NORESET TCF IMUFINED # DO NOT RESET POWER SUPPLY. +NORESET TCF IMUFINED # DO NOT RESET POWER SUPPLY # Page 1322 -2 CS FOUR # SPECIAL ENTRY TO REGRESS LGYRO FOR X. ADS LGYRO @@ -673,7 +673,7 @@ MAJ- EXTEND # DEFINITE NEGATIVE OUTPUT. GDESELCT OCT 1700 # TURN OFF SELECT AND ACTIVITY BITS. -GYROFRAC 2DEC .215 B-21 +GYROFRAC 2DEC .215 B -21 # Page 1327 # IMU MODE SWITCHING ROUTINES COME HERE WHEN ACTION COMPLETE. @@ -701,8 +701,8 @@ CAGETSTQ CS IMODES30 # SKIP IF IMU NOT BEING CAGED. INCR Q TC Q -CAGETSTJ CS IMODES30 # IF DURING MODE SWITCH INITIALIZATION. - MASK BIT6 # IT IS FOUND THAT THE IMU IS BEING CAGED. +CAGETSTJ CS IMODES30 # IF DURING MODE SWITCH INITIALIZATION + MASK BIT6 # IT IS FOUND THAT THE IMU IS BEING CAGED, CCS A # SET IMUCADR TO -0 TO INDICATE OPERATION TC Q # COMPLETE BUT FAILED. RETURN IMMEDIATELY @@ -711,8 +711,8 @@ CAGETSTJ CS IMODES30 # IF DURING MODE SWITCH INITIALIZATION. TCF MODEEXIT # Page 1328 -# GENERALIZED MODE SWITCHING TERMINATION. ENTER AT GOODEND FOR SUCCESSFUL COMPLETION OF AN I/O OPERATION -# OR AT BADEND FOR AN UNSUCCESSFUL ONE. C(A) OR ARRIVAL =0 FOR IMU, 1 FOR OPTICS. +# GENERALIZED MODE SWITCHING TERMINATION. ENTER AT GOODEND FOR SUCCESSFUL COMPLETION OF AN I/O OPERATION +# OR AT BADEND FOR A N UNSUCCESSFUL ONE. C(A) OR ARRIVAL =0 FOR IMU, 1 FOR OPTICS. BADEND TS RUPTREG2 # DEVICE INDEX. CS ZERO # FOR FAILURE. @@ -742,60 +742,56 @@ GOODEND TS RUPTREG2 TCF TASKOVER ENDMODE CA RUPTREG3 # -0 INDICATES OPERATION COMPLETE BUT - +1 INDEX RUPTREG2 # UNSUCCESSFUL: -1 INDICATES COMPLETE AND + +1 INDEX RUPTREG2 # UNSUCCESSFUL: -1 INDICATES COMPLETE AND TS MODECADR # SUCCESSFUL. TCF TASKOVER # Page 1329 -# GENERAL STALLING ROUTINE. USING PROGRAMS COME HERE TO WAIT FOR I/O COMPLETION. +# GENERAL STALLING ROUTINE. USING PROGRAMS COME HERE TO WAIT FOR I/O COMPLETION. # -# PROGRAM DESCRIPTION DATE -- 21 FEB 1967 -# LOG SECTION IMU MODE SWITCHING -# MOD BY -- R. MELANSON TO ADD DOCUMENTATION ASSEMBLY SUNDISK REV. 82 +# PROGRAM DESCRIPTION DATE- 21 FEB 1967 +# LOG SECTION IMU MODE SWITCHING +# MOD BY- R.MELANSON TO ADD DOCUMENTATION ASSEMBLY SUNDISK REV. 82 # -# FUNCTIONAL DESCRIPTION -- +# FUNCTIONAL DESCRIPTION- # TO DELAY FURTHER EXECUTION OF THE CALLING ROUTINE UNTIL ITS SELECTED -# I/O FUNCTION IS COMPLETE. THE FOLLOWING CHECKS ON THE CALLING ROUTINES -# MODEECADR ARE MADE AND ACTED UPON. -# 1) +0 INDICATES INCOMPLETE I/O OPERATION. CALLING ROUTINE IS PUT TO -# SLEEP. -# 2) -1 INDICATES COMPLETED I/O OPERATION. STALL BYPASSES JOBSLEEP -# CALL AND RETURNS TO CALLING ROUTINE AT L+3. -# 3) -0 INDICATES COMPLETED I/O WITH FAILURE. STALL CLEARS MODECADR -# AND RETURNS TO CALLING ROUTINE AT L+2. -# 4) VALUE GREATER THAN 0 INDICATES TWO ROUTINES CALLING FOR USE OF -# SAME DEVICE. STALL EXITS TO ABORT WHICH EXECUTES A PROGRAM -# RESTART WHICH IN TURN CLEARS ALL MODECADR REGISTERS. +# I/O FUNCTION IS COMPLETE.THE FOLLOWING CHECKS ON THE CALLING ROUTINE:S +# MODECADR ARE MADE AND ACTED UPON. +# 1) +0 INDICATES INCOMPLETE I/O OPERATION.CALLING ROUTINE IS PUT TO +# SLEEP. +# 2) -1 INDICATES COMPLETED I/O OPERATION. STALL BYPASSES JOBSLEEP +# CALL AND RETURNS TO CALLING ROUTINE AT L+3 +# 3) -0 INDICATES COMPLETED I/O WITH FAILURE. STALL CLEARS MODECADR +# AND RETURNS TO CALLING ROUTINE AT L+2. +# 4) VALUE GREATER THAN 0 INDICATES TWO ROUTINES CALLING FOR USE OF +# SAME DEVICE. STALL EXITS TO ABORT WHICH EXECUTES A PROGRAM +# RESTART WHICH IN TURN CLEARS ALL MODECADR REGISTERS. # -# CALLING SEQUENCE -- -# L TC BANKCALL -# L+1 CADR (ONE OF 5 STALL ADDRESSES. I.E., IMUSTALL, OPTSTALL, RADSTALL, -# AOTSTALL, OR ATTSTALL) +# CALLING SEQUENCE- +# L TC BANKCALL +# L+1 CADR (ONE OF 5 STALL ADDRESSES I.E. IMUSTALL,OPTSTALL,RADSTALL, +# AOTSTALL,OR ATTSTALL) # -# NORMAL-EXIT MODE -- -# TCF JOBSLEEP OR TCF MODEXIT +# NORMAL-EXIT MODE- +# TCF JOBSLEEP OR TCF MODEXIT # -# ALARM OR ABORT EXIT MODE -- -# TC ABORT +# ALARM OR ABORT EXIT MODE- +# TC ABORT # -# OUTPUT -- -# MODECADR=CADR IF JOBSLEEP -# MODECADR=+0 IF I/O COMPLETE -# BUF2=L+3 IF I/O COMPLETE AND GOOD. -# BUF2=L+2 IF I/O COMPLETE BUT FAILED. +# OUTPUT- +# MODECADR= CADR IF JOBSLEEP +# MODECADR=+0 IF I/O COMPLETE +# BUF2=L+3 IF I/O COMPLETE AND GOOD. +# BUF2=L+2 IF I/O COMPLETE BUT FAILED. # -# ERASABLE INITIALIZATION -- +# ERASABLE INITIALIZATION- # BUF2 CONTAINS RETURN ADDRESS PLUS 1,(L+2) # BUF2+1 CONTAINS FBANK VALUE OF CALLING ROUTINE. -# MODECADR OF CALLING ROUTINE CONTAINS +0,-1,-0 OR CADR RETURN ADDRESS. +# MODECADR OF CALLING ROUTINE CONTAINS +0,-1,-0 OR CADR RETURN ADDRESS. # -# DEBRIS -- +# DEBRIS- # RUPTREG2 AND CALLING ROUTINE MODECADR. -## [WORKAROUND] OH 2009 - SBANK= LOWSUPER -## [WORKAROUND] - AOTSTALL CAF ONE # AOT. TC STALL @@ -815,7 +811,7 @@ STALL INHINT TCF MODESLP # OPERATION INCOMPLETE. TCF MODEGOOD # COMPLETE AND GOOD IF = -1. -MG2 INDEX RUPTREG2 # COMPLETE FAILED IF -0. RESET TO +0. +MG2 INDEX RUPTREG2 # COMPLETE AND FAILED IF -0. RESET TO +0. TS MODECADR # RETURN TO CALLER. TCF MODEEXIT @@ -823,7 +819,7 @@ MODEGOOD CCS A # MAKE SURE INITIAL STATE -1. TCF MODABORT INCR BUF2 # IF SO, INCREMENT RETURN ADDRESS AND - TCF MG2 # RETURN IMMEDIATELY, SETTIN CADR = +0. + TCF MG2 # RETURN IMMEDIATELY, SETTING CADR = +0. MODESLP TC MAKECADR # CALL FROM SWITCHABLE FIXED ONLY. INDEX RUPTREG2 @@ -849,7 +845,7 @@ GOMANUR CA ATTCADR # IS KALCMANU FREE EXTEND BZF +3 - TC P00DOO # NO + TC POODOO # NO OCT 1210 # 2 TRYING TO USE SAME DEVICE +3 EXTEND @@ -862,7 +858,7 @@ GOMANUR CA ATTCADR # IS KALCMANU FREE CA PRIORITY MASK PRIO37 - TS ATTPRIO # SAVE USER'S PRIO + TS ATTPRIO # SAVE USERS PRIO CAF KALEBCON # SET EBANK FOR KALCMAN3 TS EBANK @@ -873,34 +869,33 @@ KALEBCON ECADR BCDU # Page 1332 # PROGRAM DESCRIPTION # IMU STATUS CHECK ROUTINE R02 (SUBROUTINE UTILITY) -# MOD NO -- 1 -# MOD BY -- N.BRODEUR -# +# MOD NO - 1 +# MOD BY - N.BRODEUR # FUNCTIONAL DESCRIPTION -# TO CHECK WHETHER IMU IS ON AND IF ON WHETHER IT IS ALIGNED TO AN -# ORIENTATION KNOWN BY THE CMC. TO REQUEST SELECTION OF THE APPROPRIATE -# PROGRAM IF THE IMU IS OFF OR NOT ALIGNED TO AN ORIENTATION KNOWN BY THE -# CMC. CALLED THROUGH BANKCALL # -# CALLING SEQUENCE -- -# L TC BANKCALL -# L+1 CADR R02BOTH +# TO CHECK WHETHER IMU IS ON AND IF ON WHETHER IT IS ALIGNED TO AN +# ORIENTATION KNOWN BY THE CMC. TO REQUEST SELECTION OF THE APPROPRIATE +# PROGRAM IF THE IMU IS OFF OR NOT ALIGNED TO AN ORIENTATION KNOWN BY THE +# CMC. CALLED THROUGH BANKCALL +# CALLING SEQUENCE- # +# L TC BANKCALL +# L+1 CADR R02BOTH # SUBROUTINES CALLED -# VARALARM -# FLAGUP # +# VARALARM +# FLAGUP # NORMAL EXIT MODES -# AT L+2 OF CALLING SEQUENCE # +# AT L+2 OF CALLING SEQUENCE # ALARM OR ABORT EXIT MODES -# GOTOP00H, WITH ALARM -# +# GOTOPOOH, WITH ALARM # ERASABLE INITIALIZATION REQUIRED -# NONE # +# NONE # DEBRIS -# CENTRALS -- A,Q,L +# +# CENTRALS-A,Q,L BANK 34 SETLOC R02 @@ -920,7 +915,7 @@ R02BOTH CAF REFSMBIT AD OCT220 # SEND REFSMM ALARM TC VARALARM - TC GOTOP00H + TC GOTOPOOH R02ZERO TC UPFLAG # Page 1333 @@ -929,24 +924,24 @@ R02ZERO TC UPFLAG OCT220 OCT 220 # Page 1334 -# PROGRAM DESCRIPTION: P06 10 FEB 67 +# PROGRAM DESCRIPTION P06 10FEB67 # # TRANSFER THE ISS/CMC FROM THE OPERATE TO THE STANDBY CONDITION. # -# THE NORMAL CONDITION OF READINESS OF THE GNCS WHEN NOT IN USE IS STANDBY. IN THIS CONDITION THE IMU -# HEATER POWER IS ON. THE IMU OPERATE POWER IS OFF. THE COMPUTER POWER IS ON. THE OPTICS POWER IS OFF. THE -# CMC STANDBY ON THE MAIN AND LEB DISKYS IS ON. +# THE NORMAL CONDITION OF READINESS OF THE GNCS WHEN NOT IN USE IS STANDBY. IN THIS CONDITION THE IMU +# HEATER POWER IS ON. THE IMU OPERATE POWER IS OFF. THE COMPUTER POWER IS ON. THE OPTICS POWER IS OFF. THE +# CMC STANDBY ON THE MAIN AND LEB DISKYS IS ON. # # CALLING SEQUENCE: -# ASTRONAUT REQUEST THROUGH DSKY V37E 06E. +# ASTRONAUT REQUEST THROUGH DSKY V37E 06E. # # SUBROUTINES CALLED: -# GOPERF1 -# BANKCALL -# FLAGDOWN +# GOPERF1 +# BANKCALL +# FLAGDOWN # # Page 1335 -# PRESTAND PREPARES FOR STANDBY BY SNAPSHOTTING THE SCALER AND TIME1 TIME2. +# PRESTAND PREPARES FOR STANDBY BY SNAPSHOTTING THE SCALER AND TIME1 TIME2 # THE LOW 5 BITS OF THE SCALER ARE INSPECTED TO INSURE COMPATIBILITY # BETWEEN THE SCALER READING AND THE TIME1 TIME2 READING. @@ -961,7 +956,7 @@ P06 TC UPFLAG # SET NODOV37 BIT PRESTAND INHINT EXTEND - DCA TIME2 # SNAPSHOT TIME1 TIME2 + DCA TIME2 # SNAPSHOT TIME1TIME2 DXCH TIME2SAV TC SCALPREP TC PRESTAND # T1,T2,SCALER NOT COMPATIBLE @@ -997,15 +992,15 @@ OCT62 EQUALS .5SEC # DEC 50 = OCT 62 # THE LOW 5 BITS OF THE SCALER READS 10000 FOR THE FIRST INTERVAL AFTER A # Page 1336 -# T1 INCREMENT. IF SCALPREP DETECTS THIS INTERVAL THE T1,T2 AND SCALER +# T1 INCREMENT. IF SCALPREP DETECTS THIS INTERVAL THE T1,T2 AND SCALER # DATA ARE NOT COMPATIBLE AND RETURN IS TO L+1 FOR ANOTHER READING OF THE -# DATA. OTHERWISE, THE RETURN IS TO L+2 TO PROCEED. ROUTINE ALSO PREPARES -# THE SCALER READING FOR COMPUTATION OF THE INCREMENT TO UPDATE T1T2. (THE +# DATA. OTHERWISE, THE RETURN IS TO L+2 TO PROCEED. ROUTINE ALSO PREPARES +# THE SCALER READING FOR COMPUTATION OF THE INCREMENT TO UPDATE T1T2. (THE # 10 MS BIT (BIT 6) OF THE SCALER IS INCREMENTED 5 MS OUT OF PHASE FROM -# T1.0 ADDITION OF 5 MS (BIT 5) TO THE SCALER READING HAS THE EFFECT OF -# ADJUSTING BIT 6 IN THE SCALER TO BE IN PHASE WITH BIT 1 OF T1. THE LOW 5 +# T1.) ADDITION OF 5 MS (BIT 5) TO THE SCALER READING HAS THE EFFECT OF +# ADJUSTING BIT 6 IN THE SCALER TO BE IN PHASE WITH BIT 1 OF T1. THE LOW 5 # BITS OF THE SCALER READING ARE THEN SET TO ZERO, TO TRUNCATE THE SCALER -# DATA TO 10 MS. RESULTS ARE STORED IN MPAC, +1. +# DATA TO 10 MS. RESULTS ARE STORED IN MPAC, +1. SCALPREP EXTEND QXCH MPAC +2 @@ -1026,8 +1021,8 @@ SCALPREP EXTEND INCR MPAC +2 # NO TC MPAC +2 # YES -# POSTAND RECOVERS TIME AFTER STANDBY. THE SCALER IS SNAPSHOTTED AND THE -# TIME1 TIME2 COUNTER IS SET TO ZERO. THE LOW 5 BITS OF THE SCALER ARE +# POSTAND RECOVERS TIME AFTER STANDBY.THE SCALER IS SNAPSHOTTED AND THE +# TIME1 TIME2 COUNTER IS SET TO ZERO. THE LOW 5 BITS OF THE SCALER ARE # INSPECTED TO INSURE COMPATIBILITY BETWEEN THE SCALER READING AND THE # CLEARING OF THE TIME COUNTER. IT THEN COMPUTES THE DIFFERENCE IN SCALER # VALUES (IN DP) AND ADDS THIS TO THE PREVIOUSLY SNAPSHOTTED VALUES OF @@ -1035,32 +1030,32 @@ SCALPREP EXTEND COUNT* $$/P05 -POSTAND CS BIT11 # RECOVER TIME AFTER STANDBY +POSTAND CS BIT11 # RECOVER TIME AFTER STANDBY. EXTEND WAND CHAN13 # CLEAR STANDBY ENABLE BIT INHINT CA ZERO TS L - DXCH TIME2 # CLEAR TIME1 TIME2 + DXCH TIME2 # CLEAR TIME1TIME2 TC SCALPREP # STORE SCALER IN MPAC, MPAC+1 TC POSTAND +3 # T1,T2,SCALER NOT COMPATIBLE EXTEND # T1,T2 AND SCALER OK DCS SCALSAVE - DAS MPAC # FORM DP DIFFERENCE OF POST-STANDBY SCALER + DAS MPAC # FORM DP DIFFERENCE OF POSTSTANDBY SCALER # Page 1337 - CAF BIT10 # MINUS PRE-STANDBY SCALER AND SHIFT RIGHT - TC SHORTMP # 5 TO ALIGN BITS WITH TIME1 TIME2. + CAF BIT10 # MINUS PRESTANDBY SCALER AND SHIFT RIGHT + TC SHORTMP # 5 TO ALIGN BITS WITH TIME1TIME2. CAF ZERO TS MPAC +2 # NEEDED FOR TP AGREE TC TPAGREE # MAKE DP DIFF AGREE CCS MPAC TC POSTCOM # IF DP DIFF NET +, NO SCALER OVERFLOW TC POSTCOM # BETWEEN PRE AND POST STANDBY. - TC +1 # IF DP DIFF NET -, SCALER OVERFLOWED. ADD + TC +1 # IF DP DIFF NET -, SCALER OVERFLOWED. ADD CAF BIT10 # BIT 10 TO HIGH DIFF TO CORRECT. ADS MPAC POSTCOM EXTEND # C(MPAC,+1) IS MAGNITUDE OF DELTA SCALER. - DCA TIME2SAV # PRE-STANDBY TIME1 TIME2 + DCA TIME2SAV # PRESTANDBY TIME1TIME2 DAS MPAC TC TPAGREE # FORCE SIGN AGREEMENT DXCH MPAC # UPDATED VALUE FOR T1,T2. @@ -1068,5 +1063,5 @@ POSTCOM EXTEND # C(MPAC,+1) IS MAGNITUDE OF DELTA SCALER. TC DOWNFLAG # CLEAR NODOFLAG ADRES NODOFLAG - TC GOTOP00H + TC GOTOPOOH