proof(luminary099): RTP_OP_CODES (#697)
This commit is contained in:
parent
3676b43413
commit
05e8a67191
@ -40,7 +40,7 @@ LOADTIME EXTEND
|
||||
DCA TIME2
|
||||
TCF SLOAD2
|
||||
|
||||
# CONVERT THE SINGLE PRECISION 2'S COMPLEMENT NUMBER ARRIVING IN MPAC (SCALED IN HALF-REVOLUTIONS) TO A
|
||||
# CONVERT THE SINGLE PRECISION 2'S COMPLEMENT NUMBER ARRIVING IN MPAC (SCALED IN HALF-REVOLUTIONS) TO A
|
||||
# DP 1'S COMPLEMENT NUMBER SCALED IN REVOLUTIONS.
|
||||
|
||||
CDULOGIC CCS MPAC
|
||||
@ -57,12 +57,12 @@ CDULOGIC CCS MPAC
|
||||
DAS MPAC
|
||||
TCF DANZIG # MODE IS ALREADY AT DOUBLE-PRECISION
|
||||
|
||||
# FORCE TP SIGN AGREEMENT IN MPAC:
|
||||
# FORCE TP SIGN AGREEMENT IN MPAC:
|
||||
|
||||
SGNAGREE TC TPAGREE
|
||||
TCF DANZIG
|
||||
|
||||
# CONVERT THE DP 1'S COMPLEMENT ANGLE SCALED IN REVOLUTIONS TO A SINGLE PRECISION 2'S COMPLEMENT ANGLE
|
||||
# CONVERT THE DP 1'S COMPLEMENT ANGLE SCALED IN REVOLUTIONS TO A SINGLE PRECISION 2'S COMPLEMENT ANGLE
|
||||
# SCALED IN HALF-REVOLUTIONS.
|
||||
|
||||
1STO2S TC 1TO2SUB
|
||||
@ -70,7 +70,7 @@ SGNAGREE TC TPAGREE
|
||||
TS MPAC +1
|
||||
TCF NEWMODE
|
||||
|
||||
# DO 1STO2S ON A VECTOR OF ANGLES:
|
||||
# DO 1STO2S ON A VECTOR OF ANGLES:
|
||||
|
||||
V1STO2S TC 1TO2SUB # ANSWER ARRIVES IN A AND MPAC.
|
||||
|
||||
@ -91,7 +91,7 @@ V1STO2S TC 1TO2SUB # ANSWER ARRIVES IN A AND MPAC.
|
||||
TPMODE CAF ONE # MODE IS TP.
|
||||
TCF NEWMODE
|
||||
|
||||
# V1STO2S FOR 2 COMPONENT VECTOR. USED BY RR.
|
||||
# V1STO2S FOR 2 COMPONENT VECTOR. USED BY RR.
|
||||
|
||||
2V1STO2S TC 1TO2SUB
|
||||
DXCH MPAC +3
|
||||
@ -101,7 +101,7 @@ TPMODE CAF ONE # MODE IS TP.
|
||||
CA MPAC +3
|
||||
TCF SLOAD2
|
||||
|
||||
# SUBROUTINE TO DO DOUBLING AND 1'S TO 2'S CONVERSION:
|
||||
# SUBROUTINE TO DO DOUBLING AND 1'S TO 2'S CONVERSION:
|
||||
|
||||
1TO2SUB DXCH MPAC # FINAL MPAC +1 UNSPECIFIED.
|
||||
DDOUBL
|
||||
@ -118,11 +118,11 @@ TPMODE CAF ONE # MODE IS TP.
|
||||
ADS MPAC
|
||||
TC Q
|
||||
|
||||
# THE FOLLOWING ROUTINE INCREMENTS IN 2S COMPLEMENT THE REGISTER WHOSE ADDRESS IS IN BUF BY THE 1S COMPL.
|
||||
# QUANTITY FOUND IN TEM2. THIS MAY BE USED TO INCREMENT DESIRED IMU AND OPTICS CDU ANGLES OR ANY OTHER 2S COMPL.
|
||||
# (+0 UNEQUAL TO -0) QUANTITY. MAY BE CALLED BY BANKCALL/SWCALL.
|
||||
# THE FOLLOWING ROUTINE INCREMENTS IN 2S COMPLEMENT THE REGISTER WHOSE ADDRESS IS IN BUF BY THE 1S COMPL.
|
||||
# QUANTITY FOUND IN TEM2. THIS MAY BE USED TO INCREMENT DESIRED IMU AND OPTICS CDU ANGLES OR ANY OTHER 2S COMPL.
|
||||
# (+0 UNEQUAL TO -0) QUANTITY. MAY BE CALLED BY BANKCALL/SWCALL.
|
||||
|
||||
CDUINC TS TEM2 # 1S COMPL.QUANT. ARRIVES IN ACC. STORE IT
|
||||
CDUINC TS TEM2 # 1S COMPL.QUANT. ARRIVES IN ACC. STORE IT
|
||||
INDEX BUF
|
||||
CCS 0 # CHANGE 2S COMPL. ANGLE(IN BUF)INTO 1S
|
||||
AD ONE
|
||||
@ -132,15 +132,15 @@ CDUINC TS TEM2 # 1S COMPL.QUANT. ARRIVES IN ACC. STORE IT
|
||||
AD ONE # OVERFLOW HERE IF 2S COMPL. IS 180 DEG.
|
||||
COM
|
||||
|
||||
AD TEM2 # SULT MOVES FROM 2ND TO 3D QUAD. (OR BACK)
|
||||
AD TEM2 # SULT MOVES FROM 2ND TO 3D QUAD.(OR BACK)
|
||||
CCS A # BACK TO 2S COMPL.
|
||||
AD ONE
|
||||
TCF +2
|
||||
COM
|
||||
TS TEM2 # STORE 14BIT QUANTITY WITH PRESENT SIGN
|
||||
TCF +4
|
||||
INDEX A # SIGN.
|
||||
CAF LIMITS # FIX IT, BY ADDING IN 37777 OR 40000
|
||||
INDEX A # SIGN.
|
||||
CAF LIMITS # FIX IT,BY ADDING IN 37777 OR 40000
|
||||
AD TEM2
|
||||
|
||||
INDEX BUF
|
||||
@ -148,7 +148,7 @@ CDUINC TS TEM2 # 1S COMPL.QUANT. ARRIVES IN ACC. STORE IT
|
||||
TC Q
|
||||
|
||||
# Page 1400
|
||||
# RTB TO TORQUE GYROS, EXCEPT FOR THE CALL TO IMUSTALL. ECADR OF COMMANDS ARRIVES IN X1.
|
||||
# RTB TO TORQUE GYROS, EXCEPT FOR THE CALL TO IMUSTALL. ECADR OF COMMANDS ARRIVES IN X1.
|
||||
|
||||
PULSEIMU INDEX FIXLOC # ADDRESS OF GYRO COMMANDS SHOULD BE IN X1
|
||||
CA X1
|
||||
@ -157,16 +157,16 @@ PULSEIMU INDEX FIXLOC # ADDRESS OF GYRO COMMANDS SHOULD BE IN X1
|
||||
TCF DANZIG
|
||||
|
||||
# Page 1401
|
||||
# THE SUBROUTINE SIGNMPAC SETS C(MPAC, MPAC +1) TO SIGN(MPAC).
|
||||
# FOR THIS, ONLY THE CONTENTS OF MPAC ARE EXAMINED. ALSO +0 YIELDS POSMAX AND -0 YIELDS NEGMAX.
|
||||
# THE SUBROUTINE SIGNMPAC SETS C(MPAC, MPAC +1) TO SIGN(MPAC).
|
||||
# FOR THIS, ONLY THE CONTENTS OF MPAC ARE EXAMINED. ALSO +0 YIELDS POSMAX AND -0 YIELDS NEGMAX.
|
||||
#
|
||||
# ENTRY MAY BE BY EITHER OF THE FOLLOWING:
|
||||
# 1. LIMIT THE SIZE OF MPAC ON INTERPRETIVE OVERFLOW:
|
||||
# ENTRY: BOVB
|
||||
# SIGNMPAC
|
||||
# 2. GENERATE IN MPAC THE SIGNUM FUNCTION OF MPAC:
|
||||
# ENTRY: RTB
|
||||
# SIGNMPAC
|
||||
# 1. LIMIT THE SIZE OF MPAC ON INTERPRETIVE OVERFLOW:
|
||||
# ENTRY: BOVB
|
||||
# SIGNMPAC
|
||||
# 2. GENERATE IN MPAC THE SIGNUM FUNCTION OF MPAC:
|
||||
# ENTRY: RTB
|
||||
# SIGNMPAC
|
||||
# IN EITHER CASE, RETURN IS TO THE NEXT INTERPRETIVE INSTRUCTION IN THE CALLING SEQUENCE.
|
||||
|
||||
SIGNMPAC EXTEND
|
||||
@ -180,10 +180,10 @@ DPMODE CAF ZERO # SETS MPAC +2 TO ZERO IN THE PROCESS
|
||||
DCS DPOSMAX
|
||||
TCF SLOAD2
|
||||
|
||||
# RTB OP CODE NORMUNIT IS LIKE INTERPRETIVE INSTRUCTION UNIT, EXCEPT THAT IT CAN BE DEPENDED ON NOT TO BLOW
|
||||
# UP WHEN THE VECTOR BEING UNITIZED IS VERY SMALL -- IT WILL BLOW UP WHEN ALL COMPONENT ARE ZERO. IF NORMUNIT
|
||||
# RTB OP CODE NORMUNIT IS LIKE INTERPRETIVE INSTRUCTION UNIT, EXCEPT THAT IT CAN BE DEPENDED ON NOT TO BLOW
|
||||
# UP WHEN THE VECTOR BEING UNITIZED IS VERY SMALL -- IT WILL BLOW UP WHEN ALL COMPONENTS ARE ZERO. IF NORMUNIT
|
||||
# IS USED AND THE UPPER ORDER HALVES OF ALL COMPONENTS ARE ZERO, THE MAGNITUDE RETURNED IN 36D WILL BE TOO LARGE
|
||||
# BY A FACTOR OF 2(13) AND THE SQUARED MAGNITUDE RETURNED ATE 34D WILL BE TOO BIG BY A FACTOR OF 2(26).
|
||||
# BY A FACTOR OF 2(13) AND THE SQUARED MAGNITUDE RETURNED AT 34D WILL BE TOO BIG BY A FACTOR OF 2(26).
|
||||
|
||||
NORMUNX1 CAF ONE
|
||||
TCF NORMUNIT +1
|
||||
@ -226,7 +226,7 @@ OFFTUNIT TC POSTJUMP
|
||||
NOSHIFT CAF ZERO
|
||||
TCF OFFTUNIT -2
|
||||
|
||||
# RTB VECSGNAG ... FORCES SIGN AGREEMENT OF VECTOR IN MPAC.
|
||||
# RTB VECSGNAG ...FORCES SIGN AGREEMENT OF VECTOR IN MPAC.
|
||||
|
||||
VECSGNAG TC BANKCALL
|
||||
CADR VECAGREE
|
||||
|
Loading…
Reference in New Issue
Block a user