Proof INTERPRETER.agc (#508)
* Update Page 1107 of INTERPRETER.agc * Update Page 1108 * Proofread Page 1110 * Update INTERPRETER.agc * Proofread P1113 * Proofread P1114 * Proofread P1115 * Proofread P1116 * Proofread P1117 and P1118
This commit is contained in:
parent
a1c04d4d4d
commit
23af0c8942
@ -42,10 +42,12 @@
|
|||||||
|
|
||||||
BLOCK 03
|
BLOCK 03
|
||||||
|
|
||||||
COUNT* $$/INTER
|
COUNT 03/INTER
|
||||||
|
|
||||||
INTPRET RELINT
|
INTPRET RELINT
|
||||||
EXTEND # SET LOC TO THE WORD FOLLOWING THE TC.
|
EXTEND # SET LOC TO THE WORD FOLLOWING THE TC.
|
||||||
QXCH LOC
|
QXCH LOC
|
||||||
|
|
||||||
+2 CA BBANK # INTERPRETIVE BRANCHES FINISH HERE.
|
+2 CA BBANK # INTERPRETIVE BRANCHES FINISH HERE.
|
||||||
TS BANKSET
|
TS BANKSET
|
||||||
MASK BIT15 # GET 15TH BIT FOR INDEXABLE ADDRESSES.
|
MASK BIT15 # GET 15TH BIT FOR INDEXABLE ADDRESSES.
|
||||||
@ -55,14 +57,14 @@ INTPRET RELINT
|
|||||||
|
|
||||||
TCF NEWOPS # PICK UP OP CODE PAIR AND BEGIN.
|
TCF NEWOPS # PICK UP OP CODE PAIR AND BEGIN.
|
||||||
|
|
||||||
|
|
||||||
INTRSM LXCH BBANK # RESUME SUSPENDED INTERPRETIVE JOB
|
INTRSM LXCH BBANK # RESUME SUSPENDED INTERPRETIVE JOB
|
||||||
TCF INTPRET +3
|
TCF INTPRET +3
|
||||||
|
|
||||||
# DLOAD LOADS MPAC, MPAC +1, LEAVING ZERO IN MPAC +2.
|
# DLOAD LOADS MPAC, MPAC +1, LEAVING ZERO IN MPAC +2.
|
||||||
|
|
||||||
DLOAD EXTEND
|
DLOAD EXTEND
|
||||||
INDEX ADDRWD
|
INDEX ADDRWD
|
||||||
DCA 0 # LOAD DP C(C(ADDRWD)) INT MPAC,MPAC +1
|
DCA 0 # LOAD DP C(C(ADDRWD)) INTO MPAC,MPAX +1
|
||||||
SLOAD2 DXCH MPAC
|
SLOAD2 DXCH MPAC
|
||||||
CAF ZERO # ZERO MPAC +2
|
CAF ZERO # ZERO MPAC +2
|
||||||
|
|
||||||
@ -85,7 +87,7 @@ NOIBNKSW CCS EDOP # SEE IF AN ORDER CODE IS LEFT OVER FROM
|
|||||||
|
|
||||||
INCR LOC # ADVANCE THE LOCATION COUNTER.
|
INCR LOC # ADVANCE THE LOCATION COUNTER.
|
||||||
|
|
||||||
# ITRACE (1) REFERS TO "NEWOPS"
|
# ITRACE (1) REFERS TO "NEWOPS".
|
||||||
NEWOPS INDEX LOC # ENTRY TO BEGIN BY PICKING OP CODE PAIR.
|
NEWOPS INDEX LOC # ENTRY TO BEGIN BY PICKING OP CODE PAIR.
|
||||||
CA 0 # MAY BE AN OPCODE PAIR OR A STORE CODE.
|
CA 0 # MAY BE AN OPCODE PAIR OR A STORE CODE.
|
||||||
CCS A # TEST SIGN AND GET DABS(A).
|
CCS A # TEST SIGN AND GET DABS(A).
|
||||||
@ -238,7 +240,7 @@ PUSHUP CAF OCT23 # IF THE LOW 5 BITS OF CYR ARE LESS THAN
|
|||||||
|
|
||||||
INDEX MODE # FOR VXSC AND V/SC WE WANT THE REQUIRED
|
INDEX MODE # FOR VXSC AND V/SC WE WANT THE REQUIRED
|
||||||
CS REVCNT # PUSHLOC DECREMENT WITHOUT CHANGING THE
|
CS REVCNT # PUSHLOC DECREMENT WITHOUT CHANGING THE
|
||||||
TCF REGUP +2 # MODE AT THE IS TIME.
|
TCF REGUP +2 # MODE AT THIS TIME.
|
||||||
|
|
||||||
REGUP INDEX MODE # MOST ALL OP CODES PUSHUP HERE.
|
REGUP INDEX MODE # MOST ALL OP CODES PUSHUP HERE.
|
||||||
CS NO.WDS
|
CS NO.WDS
|
||||||
@ -258,7 +260,7 @@ OCTAL3 OCT 3 # 2 IN DP, AND 3 IN TP.
|
|||||||
# TEST THE SECOND PREFIX BIT TO SEE IF THIS IS A MISCELLANEOUS OR A UNARY/SHORT SHIFT OPERATION.
|
# TEST THE SECOND PREFIX BIT TO SEE IF THIS IS A MISCELLANEOUS OR A UNARY/SHORT SHIFT OPERATION.
|
||||||
|
|
||||||
OPJUMP2 CCS CYR # TEST SECOND PREFIX BIT.
|
OPJUMP2 CCS CYR # TEST SECOND PREFIX BIT.
|
||||||
TCF OPJUMP3 # TEST THIRD BIT TO SEE IF UNARY OR SHIFT
|
TCF OPJUMP3 # TEST THIRD BIT TO SEE IF UNARY OR SHIFT.
|
||||||
|
|
||||||
-ENDVAC DEC -45
|
-ENDVAC DEC -45
|
||||||
|
|
||||||
@ -280,8 +282,8 @@ ITR7 INDEX A
|
|||||||
# Page 1115
|
# Page 1115
|
||||||
# COMPLETE THE DISPATCHING OF UNARY AND SHORT SHIFT OPERATIONS.
|
# COMPLETE THE DISPATCHING OF UNARY AND SHORT SHIFT OPERATIONS.
|
||||||
|
|
||||||
OPJUMP3 TS FBANK # CALL IN BANK 0 (BIT5S 11-15 OF A ARE 0.)
|
OPJUMP3 TS FBANK # CALL IN BANK 0 (BITS 11-15 OF A ARE 0.)
|
||||||
|
# ITRACE (6) REFERS TO "OPJUMP3".
|
||||||
CCS CYR # TEST THIRD PREFIX BIT.
|
CCS CYR # TEST THIRD PREFIX BIT.
|
||||||
INDEX A # THE DECREMENTED UNARY CODE IS IN BITS
|
INDEX A # THE DECREMENTED UNARY CODE IS IN BITS
|
||||||
TCF UNAJUMP # 1-4 OF A (ZERO, EXIT, HAS BEEN DETECTED)
|
TCF UNAJUMP # 1-4 OF A (ZERO, EXIT, HAS BEEN DETECTED)
|
||||||
@ -304,7 +306,7 @@ INDJUMP TCF VLOAD # 00 -- LOAD MPAC WITH A VECTOR.
|
|||||||
TCF CGOTO # 04 -- COMPUTED GO TO.
|
TCF CGOTO # 04 -- COMPUTED GO TO.
|
||||||
TCF TLOAD # 05 -- LOAD MPAC WITH TRIPLE PRECISION.
|
TCF TLOAD # 05 -- LOAD MPAC WITH TRIPLE PRECISION.
|
||||||
TCF DLOAD # 06 -- LOAD MPAC WITH A DP SCALAR.
|
TCF DLOAD # 06 -- LOAD MPAC WITH A DP SCALAR.
|
||||||
TCF V/SC # 07 -- VECTOR DIVIDED BY A SCALAR.
|
TCF V/SC # 07 -- VECTOR DIVIDED BY SCALAR.
|
||||||
|
|
||||||
TCF SLOAD # 10 -- LOAD MPAC IN SINGLE PRECISION.
|
TCF SLOAD # 10 -- LOAD MPAC IN SINGLE PRECISION.
|
||||||
TCF SSP # 11 -- SET SINGLE PRECISION INTO X.
|
TCF SSP # 11 -- SET SINGLE PRECISION INTO X.
|
||||||
@ -329,7 +331,7 @@ INDJUMP TCF VLOAD # 00 -- LOAD MPAC WITH A VECTOR.
|
|||||||
TCF DSU # 32 -- DP SUBTRACT.
|
TCF DSU # 32 -- DP SUBTRACT.
|
||||||
TCF BDSU # 33 -- DP SUBTRACT FROM.
|
TCF BDSU # 33 -- DP SUBTRACT FROM.
|
||||||
TCF DAD # 34 -- DP ADD.
|
TCF DAD # 34 -- DP ADD.
|
||||||
TCF +0 # 35 -- AVAILABLE
|
TCF # 35 -- AVAILABLE
|
||||||
TCF DMP1 # 36 -- DP MULTIPLY.
|
TCF DMP1 # 36 -- DP MULTIPLY.
|
||||||
TCF SETPD # 37 -- SET PUSH DOWN POINTER (DIRECT ONLY)
|
TCF SETPD # 37 -- SET PUSH DOWN POINTER (DIRECT ONLY)
|
||||||
|
|
||||||
@ -349,7 +351,7 @@ MISCJUMP TCF AXT # 00 -- ADDRESS TO INDEX TRUE.
|
|||||||
|
|
||||||
TCF XAD # 10 -- INDEX REGISTER ADD FROM ERASABLE.
|
TCF XAD # 10 -- INDEX REGISTER ADD FROM ERASABLE.
|
||||||
TCF XSU # 11 -- INDEX SUBTRACT FROM ERASABLE.
|
TCF XSU # 11 -- INDEX SUBTRACT FROM ERASABLE.
|
||||||
TCF BZE/GOTO # 12 -- BRANCH ZERO AND GOTO
|
TCF BZE/GOTO # 12 -- BRANCH ZERO AND GOTO.
|
||||||
TCF BPL/BMN # 13 -- BRANCH PLUS AND BRANCH MINUS.
|
TCF BPL/BMN # 13 -- BRANCH PLUS AND BRANCH MINUS.
|
||||||
TCF RTB/BHIZ # 14 -- RETURN TO BASIC AND BRANCH HI ZERO.
|
TCF RTB/BHIZ # 14 -- RETURN TO BASIC AND BRANCH HI ZERO.
|
||||||
TCF CALL/ITA # 15 -- CALL AND STORE QPRET.
|
TCF CALL/ITA # 15 -- CALL AND STORE QPRET.
|
||||||
@ -358,7 +360,9 @@ MISCJUMP TCF AXT # 00 -- ADDRESS TO INDEX TRUE.
|
|||||||
|
|
||||||
# Page 1118
|
# Page 1118
|
||||||
# THE FOLLOWING JUMP TABLE APPLIES TO UNARY INSTRUCTIONS
|
# THE FOLLOWING JUMP TABLE APPLIES TO UNARY INSTRUCTIONS
|
||||||
COUNT* $$/INTER
|
|
||||||
|
COUNT 00/INTER
|
||||||
|
|
||||||
BANK 0 # 00 -- EXIT -- DETECTED EARLIER.
|
BANK 0 # 00 -- EXIT -- DETECTED EARLIER.
|
||||||
UNAJUMP TCF SQRT # 01 -- SQUARE ROOT.
|
UNAJUMP TCF SQRT # 01 -- SQUARE ROOT.
|
||||||
TCF SINE # 02 -- SIN.
|
TCF SINE # 02 -- SIN.
|
||||||
|
Loading…
Reference in New Issue
Block a user