kjodle/Apollo-11
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

proof(luminary099): RTP_OP_CODES (#697)

Browse Source
This commit is contained in:
James Harris 2020-09-02 16:21:41 +01:00 committed by GitHub
parent 3676b43413
commit 05e8a67191
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 26 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
Luminary099/RTB_OP_CODES.agc
View File

@ -40,7 +40,7 @@ LOADTIME EXTEND
DCA TIME2 DCA TIME2
TCF SLOAD2 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. # DP 1'S COMPLEMENT NUMBER SCALED IN REVOLUTIONS.
CDULOGIC CCS MPAC CDULOGIC CCS MPAC
@ -57,12 +57,12 @@ CDULOGIC CCS MPAC
DAS MPAC DAS MPAC
TCF DANZIG # MODE IS ALREADY AT DOUBLE-PRECISION TCF DANZIG # MODE IS ALREADY AT DOUBLE-PRECISION
# FORCE TP SIGN AGREEMENT IN MPAC: # FORCE TP SIGN AGREEMENT IN MPAC:
SGNAGREE TC TPAGREE SGNAGREE TC TPAGREE
TCF DANZIG 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. # SCALED IN HALF-REVOLUTIONS.
1STO2S TC 1TO2SUB 1STO2S TC 1TO2SUB
@ -70,7 +70,7 @@ SGNAGREE TC TPAGREE
TS MPAC +1 TS MPAC +1
TCF NEWMODE 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. 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. TPMODE CAF ONE # MODE IS TP.
TCF NEWMODE TCF NEWMODE
# V1STO2S FOR 2 COMPONENT VECTOR. USED BY RR. # V1STO2S FOR 2 COMPONENT VECTOR. USED BY RR.
2V1STO2S TC 1TO2SUB 2V1STO2S TC 1TO2SUB
DXCH MPAC +3 DXCH MPAC +3
@ -101,7 +101,7 @@ TPMODE CAF ONE # MODE IS TP.
CA MPAC +3 CA MPAC +3
TCF SLOAD2 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. 1TO2SUB DXCH MPAC # FINAL MPAC +1 UNSPECIFIED.
DDOUBL DDOUBL
@ -118,11 +118,11 @@ TPMODE CAF ONE # MODE IS TP.
ADS MPAC ADS MPAC
TC Q TC Q
# THE FOLLOWING ROUTINE INCREMENTS IN 2S COMPLEMENT THE REGISTER WHOSE ADDRESS IS IN BUF BY THE 1S COMPL. # 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. # 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. # (+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 INDEX BUF
CCS 0 # CHANGE 2S COMPL. ANGLE(IN BUF)INTO 1S CCS 0 # CHANGE 2S COMPL. ANGLE(IN BUF)INTO 1S
AD ONE 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. AD ONE # OVERFLOW HERE IF 2S COMPL. IS 180 DEG.
COM 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. CCS A # BACK TO 2S COMPL.
AD ONE AD ONE
TCF +2 TCF +2
COM COM
TS TEM2 # STORE 14BIT QUANTITY WITH PRESENT SIGN TS TEM2 # STORE 14BIT QUANTITY WITH PRESENT SIGN
TCF +4 TCF +4
INDEX A # SIGN. INDEX A # SIGN.
CAF LIMITS # FIX IT, BY ADDING IN 37777 OR 40000 CAF LIMITS # FIX IT,BY ADDING IN 37777 OR 40000
AD TEM2 AD TEM2
INDEX BUF INDEX BUF
@ -148,7 +148,7 @@ CDUINC TS TEM2 # 1S COMPL.QUANT. ARRIVES IN ACC. STORE IT
TC Q TC Q
# Page 1400 # 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 PULSEIMU INDEX FIXLOC # ADDRESS OF GYRO COMMANDS SHOULD BE IN X1
CA X1 CA X1
@ -157,16 +157,16 @@ PULSEIMU INDEX FIXLOC # ADDRESS OF GYRO COMMANDS SHOULD BE IN X1
TCF DANZIG TCF DANZIG
# Page 1401 # Page 1401
# THE SUBROUTINE SIGNMPAC SETS C(MPAC, MPAC +1) TO SIGN(MPAC). # 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. # 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: # ENTRY MAY BE BY EITHER OF THE FOLLOWING:
# 1. LIMIT THE SIZE OF MPAC ON INTERPRETIVE OVERFLOW: # 1. LIMIT THE SIZE OF MPAC ON INTERPRETIVE OVERFLOW:
# ENTRY: BOVB # ENTRY: BOVB
# SIGNMPAC # SIGNMPAC
# 2. GENERATE IN MPAC THE SIGNUM FUNCTION OF MPAC: # 2. GENERATE IN MPAC THE SIGNUM FUNCTION OF MPAC:
# ENTRY: RTB # ENTRY: RTB
# SIGNMPAC # SIGNMPAC
# IN EITHER CASE, RETURN IS TO THE NEXT INTERPRETIVE INSTRUCTION IN THE CALLING SEQUENCE. # IN EITHER CASE, RETURN IS TO THE NEXT INTERPRETIVE INSTRUCTION IN THE CALLING SEQUENCE.
SIGNMPAC EXTEND SIGNMPAC EXTEND
@ -180,10 +180,10 @@ DPMODE CAF ZERO # SETS MPAC +2 TO ZERO IN THE PROCESS
DCS DPOSMAX DCS DPOSMAX
TCF SLOAD2 TCF SLOAD2
# RTB OP CODE NORMUNIT IS LIKE INTERPRETIVE INSTRUCTION UNIT, EXCEPT THAT IT CAN BE DEPENDED ON NOT TO BLOW # 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 # 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 # 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 NORMUNX1 CAF ONE
TCF NORMUNIT +1 TCF NORMUNIT +1
@ -226,7 +226,7 @@ OFFTUNIT TC POSTJUMP
NOSHIFT CAF ZERO NOSHIFT CAF ZERO
TCF OFFTUNIT -2 TCF OFFTUNIT -2
# RTB VECSGNAG ... FORCES SIGN AGREEMENT OF VECTOR IN MPAC. # RTB VECSGNAG ...FORCES SIGN AGREEMENT OF VECTOR IN MPAC.
VECSGNAG TC BANKCALL VECSGNAG TC BANKCALL
CADR VECAGREE CADR VECAGREE