diff --git a/Luminary099/RTB_OP_CODES.agc b/Luminary099/RTB_OP_CODES.agc index 9eeb91d..0667148 100644 --- a/Luminary099/RTB_OP_CODES.agc +++ b/Luminary099/RTB_OP_CODES.agc @@ -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