ryan/Apollo-11
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Proof INTERPRETER.agc (#508)

Browse Source 
* 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:
秋纫
2019-11-20 10:45:12 +09:00
committed by James Harris
parent a1c04d4d4d
commit 23af0c8942
1 changed files with 19 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
Comanche055/INTERPRETER.agc
View File

@@ -42,10 +42,12 @@
BLOCK 03
COUNT* $$/INTER
COUNT 03/INTER
INTPRET RELINT
EXTEND # SET LOC TO THE WORD FOLLOWING THE TC.
QXCH LOC
+2 CA BBANK # INTERPRETIVE BRANCHES FINISH HERE.
TS BANKSET
MASK BIT15 # GET 15TH BIT FOR INDEXABLE ADDRESSES.
@@ -55,14 +57,14 @@ INTPRET RELINT
TCF NEWOPS # PICK UP OP CODE PAIR AND BEGIN.
INTRSM LXCH BBANK # RESUME SUSPENDED INTERPRETIVE JOB
TCF INTPRET +3
# DLOAD LOADS MPAC, MPAC +1, LEAVING ZERO IN MPAC +2.
DLOAD EXTEND
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
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.
# ITRACE (1) REFERS TO "NEWOPS"
# ITRACE (1) REFERS TO "NEWOPS".
NEWOPS INDEX LOC # ENTRY TO BEGIN BY PICKING OP CODE PAIR.
CA 0 # MAY BE AN OPCODE PAIR OR A STORE CODE.
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
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.
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.
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
@@ -280,8 +282,8 @@ ITR7 INDEX A
# Page 1115
# 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.
INDEX A # THE DECREMENTED UNARY CODE IS IN BITS
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 TLOAD # 05 -- LOAD MPAC WITH TRIPLE PRECISION.
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 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 BDSU # 33 -- DP SUBTRACT FROM.
TCF DAD # 34 -- DP ADD.
TCF +0 # 35 -- AVAILABLE
TCF # 35 -- AVAILABLE
TCF DMP1 # 36 -- DP MULTIPLY.
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 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 RTB/BHIZ # 14 -- RETURN TO BASIC AND BRANCH HI ZERO.
TCF CALL/ITA # 15 -- CALL AND STORE QPRET.
@@ -358,7 +360,9 @@ MISCJUMP TCF AXT # 00 -- ADDRESS TO INDEX TRUE.
# Page 1118
# THE FOLLOWING JUMP TABLE APPLIES TO UNARY INSTRUCTIONS
COUNT* $$/INTER
COUNT 00/INTER
BANK 0 # 00 -- EXIT -- DETECTED EARLIER.
UNAJUMP TCF SQRT # 01 -- SQUARE ROOT.
TCF SINE # 02 -- SIN.