Typos pp. 1309-37
This commit is contained in:
parent
08de52dcab
commit
ae6dc116d2
@ -56,7 +56,7 @@ SPSCODE = BIT9
|
|||||||
|
|
||||||
COUNT* $$/IMODE
|
COUNT* $$/IMODE
|
||||||
IMUZERO INHINT # ROUTINE TO ZERO ICDUS.
|
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)
|
MASK BITS4&6 # COARSE ALIGN (GIMBAL RUNAWAY PROTECTION)
|
||||||
CCS A
|
CCS A
|
||||||
TCF IMUZEROA
|
TCF IMUZEROA
|
||||||
@ -378,7 +378,7 @@ NOATTOFF CS OCT40010 # SUBROUTINE TO TURN OFF NO ATT LAMP.
|
|||||||
TC Q
|
TC Q
|
||||||
|
|
||||||
# Page 1318
|
# 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
|
PIPUSE CS ZERO
|
||||||
TS PIPAX
|
TS PIPAX
|
||||||
@ -403,7 +403,7 @@ PIPFREE INHINT # PROGRAM DONE WITH PIPAS. DON'T LIGHT
|
|||||||
MASK BIT1
|
MASK BIT1
|
||||||
ADS IMODES30
|
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.
|
CCS A # ISS WARNING.
|
||||||
TCF MODEEXIT
|
TCF MODEEXIT
|
||||||
|
|
||||||
@ -415,9 +415,9 @@ PIPFREE INHINT # PROGRAM DONE WITH PIPAS. DON'T LIGHT
|
|||||||
TCF PIPFREE2
|
TCF PIPFREE2
|
||||||
|
|
||||||
# Page 1319
|
# Page 1319
|
||||||
# THE FOLLOWING ROUTINE TORQUES THE IRIGS ACCORDING TO DOUBLE PRECISION INPUTS IN THE SIXE 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
|
# 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.
|
# UNSENT PORTION OF THE COMMAND IS LEFT INTACT IN THE INPUT COMMAND REGISTERS.
|
||||||
|
|
||||||
EBANK= 1400 # VARIABLE, ACTUALLY.
|
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.
|
CAF LGWAKE # WAKE A POSSIBLE SLEEPING JOB.
|
||||||
TC JOBWAKE
|
TC JOBWAKE
|
||||||
|
|
||||||
NORESET TCF IMUFINED # DO NOT RESET POWER SUPPLY.
|
NORESET TCF IMUFINED # DO NOT RESET POWER SUPPLY
|
||||||
# Page 1322
|
# Page 1322
|
||||||
-2 CS FOUR # SPECIAL ENTRY TO REGRESS LGYRO FOR X.
|
-2 CS FOUR # SPECIAL ENTRY TO REGRESS LGYRO FOR X.
|
||||||
ADS LGYRO
|
ADS LGYRO
|
||||||
@ -673,7 +673,7 @@ MAJ- EXTEND # DEFINITE NEGATIVE OUTPUT.
|
|||||||
|
|
||||||
GDESELCT OCT 1700 # TURN OFF SELECT AND ACTIVITY BITS.
|
GDESELCT OCT 1700 # TURN OFF SELECT AND ACTIVITY BITS.
|
||||||
|
|
||||||
GYROFRAC 2DEC .215 B-21
|
GYROFRAC 2DEC .215 B -21
|
||||||
|
|
||||||
# Page 1327
|
# Page 1327
|
||||||
# IMU MODE SWITCHING ROUTINES COME HERE WHEN ACTION COMPLETE.
|
# IMU MODE SWITCHING ROUTINES COME HERE WHEN ACTION COMPLETE.
|
||||||
@ -701,8 +701,8 @@ CAGETSTQ CS IMODES30 # SKIP IF IMU NOT BEING CAGED.
|
|||||||
INCR Q
|
INCR Q
|
||||||
TC Q
|
TC Q
|
||||||
|
|
||||||
CAGETSTJ CS IMODES30 # IF DURING MODE SWITCH INITIALIZATION.
|
CAGETSTJ CS IMODES30 # IF DURING MODE SWITCH INITIALIZATION
|
||||||
MASK BIT6 # IT IS FOUND THAT THE IMU IS BEING CAGED.
|
MASK BIT6 # IT IS FOUND THAT THE IMU IS BEING CAGED,
|
||||||
CCS A # SET IMUCADR TO -0 TO INDICATE OPERATION
|
CCS A # SET IMUCADR TO -0 TO INDICATE OPERATION
|
||||||
TC Q # COMPLETE BUT FAILED. RETURN IMMEDIATELY
|
TC Q # COMPLETE BUT FAILED. RETURN IMMEDIATELY
|
||||||
|
|
||||||
@ -711,8 +711,8 @@ CAGETSTJ CS IMODES30 # IF DURING MODE SWITCH INITIALIZATION.
|
|||||||
TCF MODEEXIT
|
TCF MODEEXIT
|
||||||
|
|
||||||
# Page 1328
|
# Page 1328
|
||||||
# GENERALIZED MODE SWITCHING TERMINATION. ENTER AT GOODEND FOR SUCCESSFUL COMPLETION OF AN I/O OPERATION
|
# 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.
|
# OR AT BADEND FOR A N UNSUCCESSFUL ONE. C(A) OR ARRIVAL =0 FOR IMU, 1 FOR OPTICS.
|
||||||
|
|
||||||
BADEND TS RUPTREG2 # DEVICE INDEX.
|
BADEND TS RUPTREG2 # DEVICE INDEX.
|
||||||
CS ZERO # FOR FAILURE.
|
CS ZERO # FOR FAILURE.
|
||||||
@ -742,60 +742,56 @@ GOODEND TS RUPTREG2
|
|||||||
TCF TASKOVER
|
TCF TASKOVER
|
||||||
|
|
||||||
ENDMODE CA RUPTREG3 # -0 INDICATES OPERATION COMPLETE BUT
|
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.
|
TS MODECADR # SUCCESSFUL.
|
||||||
TCF TASKOVER
|
TCF TASKOVER
|
||||||
|
|
||||||
# Page 1329
|
# 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
|
# PROGRAM DESCRIPTION DATE- 21 FEB 1967
|
||||||
# LOG SECTION IMU MODE SWITCHING
|
# LOG SECTION IMU MODE SWITCHING
|
||||||
# MOD BY -- R. MELANSON TO ADD DOCUMENTATION ASSEMBLY SUNDISK REV. 82
|
# 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
|
# TO DELAY FURTHER EXECUTION OF THE CALLING ROUTINE UNTIL ITS SELECTED
|
||||||
# I/O FUNCTION IS COMPLETE. THE FOLLOWING CHECKS ON THE CALLING ROUTINES
|
# I/O FUNCTION IS COMPLETE.THE FOLLOWING CHECKS ON THE CALLING ROUTINE:S
|
||||||
# MODEECADR ARE MADE AND ACTED UPON.
|
# MODECADR ARE MADE AND ACTED UPON.
|
||||||
# 1) +0 INDICATES INCOMPLETE I/O OPERATION. CALLING ROUTINE IS PUT TO
|
# 1) +0 INDICATES INCOMPLETE I/O OPERATION.CALLING ROUTINE IS PUT TO
|
||||||
# SLEEP.
|
# SLEEP.
|
||||||
# 2) -1 INDICATES COMPLETED I/O OPERATION. STALL BYPASSES JOBSLEEP
|
# 2) -1 INDICATES COMPLETED I/O OPERATION. STALL BYPASSES JOBSLEEP
|
||||||
# CALL AND RETURNS TO CALLING ROUTINE AT L+3.
|
# CALL AND RETURNS TO CALLING ROUTINE AT L+3
|
||||||
# 3) -0 INDICATES COMPLETED I/O WITH FAILURE. STALL CLEARS MODECADR
|
# 3) -0 INDICATES COMPLETED I/O WITH FAILURE. STALL CLEARS MODECADR
|
||||||
# AND RETURNS TO CALLING ROUTINE AT L+2.
|
# AND RETURNS TO CALLING ROUTINE AT L+2.
|
||||||
# 4) VALUE GREATER THAN 0 INDICATES TWO ROUTINES CALLING FOR USE OF
|
# 4) VALUE GREATER THAN 0 INDICATES TWO ROUTINES CALLING FOR USE OF
|
||||||
# SAME DEVICE. STALL EXITS TO ABORT WHICH EXECUTES A PROGRAM
|
# SAME DEVICE. STALL EXITS TO ABORT WHICH EXECUTES A PROGRAM
|
||||||
# RESTART WHICH IN TURN CLEARS ALL MODECADR REGISTERS.
|
# RESTART WHICH IN TURN CLEARS ALL MODECADR REGISTERS.
|
||||||
#
|
#
|
||||||
# CALLING SEQUENCE --
|
# CALLING SEQUENCE-
|
||||||
# L TC BANKCALL
|
# L TC BANKCALL
|
||||||
# L+1 CADR (ONE OF 5 STALL ADDRESSES. I.E., IMUSTALL, OPTSTALL, RADSTALL,
|
# L+1 CADR (ONE OF 5 STALL ADDRESSES I.E. IMUSTALL,OPTSTALL,RADSTALL,
|
||||||
# AOTSTALL, OR ATTSTALL)
|
# AOTSTALL,OR ATTSTALL)
|
||||||
#
|
#
|
||||||
# NORMAL-EXIT MODE --
|
# NORMAL-EXIT MODE-
|
||||||
# TCF JOBSLEEP OR TCF MODEXIT
|
# TCF JOBSLEEP OR TCF MODEXIT
|
||||||
#
|
#
|
||||||
# ALARM OR ABORT EXIT MODE --
|
# ALARM OR ABORT EXIT MODE-
|
||||||
# TC ABORT
|
# TC ABORT
|
||||||
#
|
#
|
||||||
# OUTPUT --
|
# OUTPUT-
|
||||||
# MODECADR=CADR IF JOBSLEEP
|
# MODECADR= CADR IF JOBSLEEP
|
||||||
# MODECADR=+0 IF I/O COMPLETE
|
# MODECADR=+0 IF I/O COMPLETE
|
||||||
# BUF2=L+3 IF I/O COMPLETE AND GOOD.
|
# BUF2=L+3 IF I/O COMPLETE AND GOOD.
|
||||||
# BUF2=L+2 IF I/O COMPLETE BUT FAILED.
|
# BUF2=L+2 IF I/O COMPLETE BUT FAILED.
|
||||||
#
|
#
|
||||||
# ERASABLE INITIALIZATION --
|
# ERASABLE INITIALIZATION-
|
||||||
# BUF2 CONTAINS RETURN ADDRESS PLUS 1,(L+2)
|
# BUF2 CONTAINS RETURN ADDRESS PLUS 1,(L+2)
|
||||||
# BUF2+1 CONTAINS FBANK VALUE OF CALLING ROUTINE.
|
# 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.
|
# RUPTREG2 AND CALLING ROUTINE MODECADR.
|
||||||
|
|
||||||
## [WORKAROUND] OH 2009
|
|
||||||
SBANK= LOWSUPER
|
|
||||||
## [WORKAROUND]
|
|
||||||
|
|
||||||
AOTSTALL CAF ONE # AOT.
|
AOTSTALL CAF ONE # AOT.
|
||||||
TC STALL
|
TC STALL
|
||||||
|
|
||||||
@ -815,7 +811,7 @@ STALL INHINT
|
|||||||
TCF MODESLP # OPERATION INCOMPLETE.
|
TCF MODESLP # OPERATION INCOMPLETE.
|
||||||
TCF MODEGOOD # COMPLETE AND GOOD IF = -1.
|
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.
|
TS MODECADR # RETURN TO CALLER.
|
||||||
TCF MODEEXIT
|
TCF MODEEXIT
|
||||||
|
|
||||||
@ -823,7 +819,7 @@ MODEGOOD CCS A # MAKE SURE INITIAL STATE -1.
|
|||||||
TCF MODABORT
|
TCF MODABORT
|
||||||
|
|
||||||
INCR BUF2 # IF SO, INCREMENT RETURN ADDRESS AND
|
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.
|
MODESLP TC MAKECADR # CALL FROM SWITCHABLE FIXED ONLY.
|
||||||
INDEX RUPTREG2
|
INDEX RUPTREG2
|
||||||
@ -849,7 +845,7 @@ GOMANUR CA ATTCADR # IS KALCMANU FREE
|
|||||||
EXTEND
|
EXTEND
|
||||||
BZF +3
|
BZF +3
|
||||||
|
|
||||||
TC P00DOO # NO
|
TC POODOO # NO
|
||||||
OCT 1210 # 2 TRYING TO USE SAME DEVICE
|
OCT 1210 # 2 TRYING TO USE SAME DEVICE
|
||||||
|
|
||||||
+3 EXTEND
|
+3 EXTEND
|
||||||
@ -862,7 +858,7 @@ GOMANUR CA ATTCADR # IS KALCMANU FREE
|
|||||||
|
|
||||||
CA PRIORITY
|
CA PRIORITY
|
||||||
MASK PRIO37
|
MASK PRIO37
|
||||||
TS ATTPRIO # SAVE USER'S PRIO
|
TS ATTPRIO # SAVE USERS PRIO
|
||||||
|
|
||||||
CAF KALEBCON # SET EBANK FOR KALCMAN3
|
CAF KALEBCON # SET EBANK FOR KALCMAN3
|
||||||
TS EBANK
|
TS EBANK
|
||||||
@ -873,34 +869,33 @@ KALEBCON ECADR BCDU
|
|||||||
# Page 1332
|
# Page 1332
|
||||||
# PROGRAM DESCRIPTION
|
# PROGRAM DESCRIPTION
|
||||||
# IMU STATUS CHECK ROUTINE R02 (SUBROUTINE UTILITY)
|
# IMU STATUS CHECK ROUTINE R02 (SUBROUTINE UTILITY)
|
||||||
# MOD NO -- 1
|
# MOD NO - 1
|
||||||
# MOD BY -- N.BRODEUR
|
# MOD BY - N.BRODEUR
|
||||||
#
|
|
||||||
# FUNCTIONAL DESCRIPTION
|
# 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 --
|
# TO CHECK WHETHER IMU IS ON AND IF ON WHETHER IT IS ALIGNED TO AN
|
||||||
# L TC BANKCALL
|
# ORIENTATION KNOWN BY THE CMC. TO REQUEST SELECTION OF THE APPROPRIATE
|
||||||
# L+1 CADR R02BOTH
|
# 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
|
# SUBROUTINES CALLED
|
||||||
# VARALARM
|
|
||||||
# FLAGUP
|
|
||||||
#
|
#
|
||||||
|
# VARALARM
|
||||||
|
# FLAGUP
|
||||||
# NORMAL EXIT MODES
|
# NORMAL EXIT MODES
|
||||||
# AT L+2 OF CALLING SEQUENCE
|
|
||||||
#
|
#
|
||||||
|
# AT L+2 OF CALLING SEQUENCE
|
||||||
# ALARM OR ABORT EXIT MODES
|
# ALARM OR ABORT EXIT MODES
|
||||||
# GOTOP00H, WITH ALARM
|
# GOTOPOOH, WITH ALARM
|
||||||
#
|
|
||||||
# ERASABLE INITIALIZATION REQUIRED
|
# ERASABLE INITIALIZATION REQUIRED
|
||||||
# NONE
|
|
||||||
#
|
#
|
||||||
|
# NONE
|
||||||
# DEBRIS
|
# DEBRIS
|
||||||
# CENTRALS -- A,Q,L
|
#
|
||||||
|
# CENTRALS-A,Q,L
|
||||||
|
|
||||||
BANK 34
|
BANK 34
|
||||||
SETLOC R02
|
SETLOC R02
|
||||||
@ -920,7 +915,7 @@ R02BOTH CAF REFSMBIT
|
|||||||
AD OCT220 # SEND REFSMM ALARM
|
AD OCT220 # SEND REFSMM ALARM
|
||||||
TC VARALARM
|
TC VARALARM
|
||||||
|
|
||||||
TC GOTOP00H
|
TC GOTOPOOH
|
||||||
|
|
||||||
R02ZERO TC UPFLAG
|
R02ZERO TC UPFLAG
|
||||||
# Page 1333
|
# Page 1333
|
||||||
@ -929,24 +924,24 @@ R02ZERO TC UPFLAG
|
|||||||
OCT220 OCT 220
|
OCT220 OCT 220
|
||||||
|
|
||||||
# Page 1334
|
# Page 1334
|
||||||
# PROGRAM DESCRIPTION: P06 10 FEB 67
|
# PROGRAM DESCRIPTION P06 10FEB67
|
||||||
#
|
#
|
||||||
# TRANSFER THE ISS/CMC FROM THE OPERATE TO THE STANDBY CONDITION.
|
# 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
|
# 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
|
# 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.
|
# CMC STANDBY ON THE MAIN AND LEB DISKYS IS ON.
|
||||||
#
|
#
|
||||||
# CALLING SEQUENCE:
|
# CALLING SEQUENCE:
|
||||||
# ASTRONAUT REQUEST THROUGH DSKY V37E 06E.
|
# ASTRONAUT REQUEST THROUGH DSKY V37E 06E.
|
||||||
#
|
#
|
||||||
# SUBROUTINES CALLED:
|
# SUBROUTINES CALLED:
|
||||||
# GOPERF1
|
# GOPERF1
|
||||||
# BANKCALL
|
# BANKCALL
|
||||||
# FLAGDOWN
|
# FLAGDOWN
|
||||||
#
|
#
|
||||||
# Page 1335
|
# 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
|
# THE LOW 5 BITS OF THE SCALER ARE INSPECTED TO INSURE COMPATIBILITY
|
||||||
# BETWEEN THE SCALER READING AND THE TIME1 TIME2 READING.
|
# BETWEEN THE SCALER READING AND THE TIME1 TIME2 READING.
|
||||||
|
|
||||||
@ -961,7 +956,7 @@ P06 TC UPFLAG # SET NODOV37 BIT
|
|||||||
|
|
||||||
PRESTAND INHINT
|
PRESTAND INHINT
|
||||||
EXTEND
|
EXTEND
|
||||||
DCA TIME2 # SNAPSHOT TIME1 TIME2
|
DCA TIME2 # SNAPSHOT TIME1TIME2
|
||||||
DXCH TIME2SAV
|
DXCH TIME2SAV
|
||||||
TC SCALPREP
|
TC SCALPREP
|
||||||
TC PRESTAND # T1,T2,SCALER NOT COMPATIBLE
|
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
|
# THE LOW 5 BITS OF THE SCALER READS 10000 FOR THE FIRST INTERVAL AFTER A
|
||||||
# Page 1336
|
# 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 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
|
# 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
|
# 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
|
# 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
|
# 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
|
# 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
|
# 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
|
SCALPREP EXTEND
|
||||||
QXCH MPAC +2
|
QXCH MPAC +2
|
||||||
@ -1026,8 +1021,8 @@ SCALPREP EXTEND
|
|||||||
INCR MPAC +2 # NO
|
INCR MPAC +2 # NO
|
||||||
TC MPAC +2 # YES
|
TC MPAC +2 # YES
|
||||||
|
|
||||||
# POSTAND RECOVERS TIME AFTER STANDBY. THE SCALER IS SNAPSHOTTED AND THE
|
# 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
|
# 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
|
# INSPECTED TO INSURE COMPATIBILITY BETWEEN THE SCALER READING AND THE
|
||||||
# CLEARING OF THE TIME COUNTER. IT THEN COMPUTES THE DIFFERENCE IN SCALER
|
# CLEARING OF THE TIME COUNTER. IT THEN COMPUTES THE DIFFERENCE IN SCALER
|
||||||
# VALUES (IN DP) AND ADDS THIS TO THE PREVIOUSLY SNAPSHOTTED VALUES OF
|
# VALUES (IN DP) AND ADDS THIS TO THE PREVIOUSLY SNAPSHOTTED VALUES OF
|
||||||
@ -1035,32 +1030,32 @@ SCALPREP EXTEND
|
|||||||
|
|
||||||
COUNT* $$/P05
|
COUNT* $$/P05
|
||||||
|
|
||||||
POSTAND CS BIT11 # RECOVER TIME AFTER STANDBY
|
POSTAND CS BIT11 # RECOVER TIME AFTER STANDBY.
|
||||||
EXTEND
|
EXTEND
|
||||||
WAND CHAN13 # CLEAR STANDBY ENABLE BIT
|
WAND CHAN13 # CLEAR STANDBY ENABLE BIT
|
||||||
INHINT
|
INHINT
|
||||||
CA ZERO
|
CA ZERO
|
||||||
TS L
|
TS L
|
||||||
DXCH TIME2 # CLEAR TIME1 TIME2
|
DXCH TIME2 # CLEAR TIME1TIME2
|
||||||
TC SCALPREP # STORE SCALER IN MPAC, MPAC+1
|
TC SCALPREP # STORE SCALER IN MPAC, MPAC+1
|
||||||
TC POSTAND +3 # T1,T2,SCALER NOT COMPATIBLE
|
TC POSTAND +3 # T1,T2,SCALER NOT COMPATIBLE
|
||||||
EXTEND # T1,T2 AND SCALER OK
|
EXTEND # T1,T2 AND SCALER OK
|
||||||
DCS SCALSAVE
|
DCS SCALSAVE
|
||||||
DAS MPAC # FORM DP DIFFERENCE OF POST-STANDBY SCALER
|
DAS MPAC # FORM DP DIFFERENCE OF POSTSTANDBY SCALER
|
||||||
# Page 1337
|
# Page 1337
|
||||||
CAF BIT10 # MINUS PRE-STANDBY SCALER AND SHIFT RIGHT
|
CAF BIT10 # MINUS PRESTANDBY SCALER AND SHIFT RIGHT
|
||||||
TC SHORTMP # 5 TO ALIGN BITS WITH TIME1 TIME2.
|
TC SHORTMP # 5 TO ALIGN BITS WITH TIME1TIME2.
|
||||||
CAF ZERO
|
CAF ZERO
|
||||||
TS MPAC +2 # NEEDED FOR TP AGREE
|
TS MPAC +2 # NEEDED FOR TP AGREE
|
||||||
TC TPAGREE # MAKE DP DIFF AGREE
|
TC TPAGREE # MAKE DP DIFF AGREE
|
||||||
CCS MPAC
|
CCS MPAC
|
||||||
TC POSTCOM # IF DP DIFF NET +, NO SCALER OVERFLOW
|
TC POSTCOM # IF DP DIFF NET +, NO SCALER OVERFLOW
|
||||||
TC POSTCOM # BETWEEN PRE AND POST STANDBY.
|
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.
|
CAF BIT10 # BIT 10 TO HIGH DIFF TO CORRECT.
|
||||||
ADS MPAC
|
ADS MPAC
|
||||||
POSTCOM EXTEND # C(MPAC,+1) IS MAGNITUDE OF DELTA SCALER.
|
POSTCOM EXTEND # C(MPAC,+1) IS MAGNITUDE OF DELTA SCALER.
|
||||||
DCA TIME2SAV # PRE-STANDBY TIME1 TIME2
|
DCA TIME2SAV # PRESTANDBY TIME1TIME2
|
||||||
DAS MPAC
|
DAS MPAC
|
||||||
TC TPAGREE # FORCE SIGN AGREEMENT
|
TC TPAGREE # FORCE SIGN AGREEMENT
|
||||||
DXCH MPAC # UPDATED VALUE FOR T1,T2.
|
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
|
TC DOWNFLAG # CLEAR NODOFLAG
|
||||||
ADRES NODOFLAG
|
ADRES NODOFLAG
|
||||||
|
|
||||||
TC GOTOP00H
|
TC GOTOPOOH
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user