proof(luminary099): RTP_OP_CODES (#697)

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

View File

@ -132,7 +132,7 @@ 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
@ -140,7 +140,7 @@ CDUINC TS TEM2 # 1S COMPL.QUANT. ARRIVES IN ACC. STORE IT
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
@ -181,9 +181,9 @@ DPMODE CAF ZERO # SETS MPAC +2 TO ZERO IN THE PROCESS
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