Merge branch 'master' into rename
This commit is contained in:
Alhadis
@ -78,7 +78,7 @@ DANZIG CA BANKSET # SET BBANK BEFORE TESTING NEWJOB SO THAT
|
||||
|
||||
NOIBNKSW CCS EDOP # SEE IF AN ORDER CODE IS LEFT OVER FROM
|
||||
TCF OPJUMP # THE LAST PAIR RETRIEVED. IF SO, EXECUTE.
|
||||
# EDOP IS SET TO ZERO ON ITS RE-EDITIING.
|
||||
# EDOP IS SET TO ZERO ON ITS RE-EDITING.
|
||||
|
||||
CCS NEWJOB # SEE IF A JOB OF HIGHER PRIORITY IS
|
||||
TCF CHANG2 # PRESENT, AND IF SO, CHANGE JOBS.
|
||||
@ -209,7 +209,7 @@ ITR13 INDEX CYR
|
||||
|
||||
# Page 1113
|
||||
# PUSH-UP ROUTINES. WHEN NO OPERAND ADDRESS IS GIVEN, THE APPROPRIATE OPERAND IS TAKEN FROM THE PUSH-DOWN
|
||||
# LIST. IN MOST CASES THE MODE OF THE RESULT (VECTOR OR SCALAR) OF THE LAST ARTGHMETIC OPERATION PERFORMED
|
||||
# LIST. IN MOST CASES THE MODE OF THE RESULT (VECTOR OR SCALAR) OF THE LAST ARITHMETIC OPERATION PERFORMED
|
||||
# IS THE SAME AS THE TYPE OF OPERAND DESIRED (ALL ADD/SUBTRACT ETC.). EXCEPTIONS TO THIS GENERAL RULE ARE LISTED
|
||||
# BELOW (NOTE THAT IN EVERY CASE THE MODE REGISTER IS LEFT INTACT):
|
||||
#
|
||||
@ -226,7 +226,7 @@ PUSHUP CAF OCT23 # IF THE LOW 5 BITS OF CYR ARE LESS THAN
|
||||
MASK CYR # 20, THIS OP REQUIRES SPECIAL ATTENTION.
|
||||
AD -OCT10 # (NO -0).
|
||||
CCS A
|
||||
TCF REGUP # FOR ALL CODES GREATEER THAN OCT 7.
|
||||
TCF REGUP # FOR ALL CODES GREATER THAN OCT 7.
|
||||
|
||||
-OCT10 OCT -10
|
||||
|
||||
@ -401,10 +401,10 @@ STADR CA BANKSET # THE STADR CODE (PUSHUP UP ON STORE
|
||||
INCR LOC
|
||||
ITR1 INDEX LOC # THE STORECODE WAS STORED COMPLEMENTED TO
|
||||
CS 0 # MAKE IT LOOK LIKE AN OPCODE PAIR.
|
||||
AD NEGONE # (YUL CAN'T REMOVE 1 BECAUSE OF EARLY CCS)
|
||||
AD NEGONE # (YUL CANT REMOVE 1 BECAUSE OF EARLY CCS)
|
||||
|
||||
DOSTORE TS ADDRWD
|
||||
MASK LOW11 # ENTRY FROM DISPATCHER. SAVE THE ARASABLE
|
||||
MASK LOW11 # ENTRY FROM DISPATCHER. SAVE THE ERASABLE
|
||||
XCH ADDRWD # ADDRESS AND JUMP ON THE STORE CODE NO.
|
||||
MASK B12T14
|
||||
EXTEND
|
||||
@ -518,7 +518,7 @@ TLOAD INDEX ADDRWD
|
||||
DCA 0
|
||||
DXCH MPAC
|
||||
TMODE CAF ONE
|
||||
TCF NEWMODE # DECLEARE TRIPLE PRECISION MODE.
|
||||
TCF NEWMODE # DECLARE TRIPLE PRECISION MODE.
|
||||
|
||||
SLOAD ZL # LOAD A SINGLE PRECISION NUMBER INTO
|
||||
INDEX ADDRWD # MPAC, SETTING MPAC+1,2 TO ZERO. THE
|
||||
@ -1047,7 +1047,7 @@ POLYCOM CAF LVBUF # INCOMING X WILL BE MOVED TO VBUF, SO
|
||||
DXCH VBUF # SAVING X IN VBUF
|
||||
TCF POLY2
|
||||
|
||||
POLYLOOP TS POLYCNT # SAVE DECREMENTD LOOP COUNTER
|
||||
POLYLOOP TS POLYCNT # SAVE DECREMENTED LOOP COUNTER
|
||||
CS TWO
|
||||
ADS POLISH # REGRESS COEFFICIENT POINTER
|
||||
|
||||
@ -1336,8 +1336,8 @@ UPPOS XCH L # SAVE DECREMENTED UPPER PART.
|
||||
AD HALF
|
||||
TS A # SKIPS ON OVERFLOW
|
||||
TCF +2
|
||||
INCR L # RESTORE UPPER TO ORIGINAL VALUE
|
||||
XCH L # SWAP A + L BANCK.
|
||||
INCR L # RESTORE UPPER TO ROIGINAL VALUE
|
||||
XCH L # SWAP A + L BACK.
|
||||
TC Q
|
||||
|
||||
UPNEG XCH L # SAVE COMPLEMENTED + DECREMENTED UPPER PT
|
||||
@ -1361,7 +1361,7 @@ DMPR TC DMPSUB
|
||||
TCF DANZIG
|
||||
|
||||
DDV EXTEND
|
||||
INDEX ADDRWD # MOVE DIVIDENT INTO BUF.
|
||||
INDEX ADDRWD # MOVE DIVIDEND INTO BUF.
|
||||
DCA 0
|
||||
TCF BDDV +4
|
||||
|
||||
@ -1787,7 +1787,7 @@ GENSCL CS ADDRWD # PUT ROUNDING BIT (BIT 10 OF ADDRWD) INTO
|
||||
|
||||
DDV/BDDV CS ONE # INITIALIZATION
|
||||
TS DVSIGN # +-1 FOR POSITIVE QUOTIENT -- -0 FOR NEG.
|
||||
TS DVNORMCT # DIVIDENT NORMALIZATION COUNT.
|
||||
TS DVNORMCT # DIVIDEND NORMALIZATION COUNT.
|
||||
TS MAXDVSW # NEAR-ONE DIVIDE FLAG.
|
||||
|
||||
CCS BUF # FORCE BUF POSITIVE WITH THE MAJOR PART
|
||||
@ -1803,7 +1803,7 @@ BUFZERO TS MPAC +2 # ZERO THIS.
|
||||
TCF +2
|
||||
TCF OVF+ -1 # MAJOR PART OF DIVIDEND IS NEG. NON-ZERO
|
||||
|
||||
XCH BUF +1 # SHIFT DIVIDENT AND DIVISOR LEFT 14
|
||||
XCH BUF +1 # SHIFT DIVIDEND AND DIVISOR LEFT 14
|
||||
XCH BUF
|
||||
XCH MPAC +1
|
||||
XCH MPAC
|
||||
@ -1819,7 +1819,7 @@ SGNDVOVF EXTEND
|
||||
DVOVF CAF POSMAX # ON DIVISION OVERFLOW OF ANY SORT, SET
|
||||
TS MPAC # SET DP MPAC TO +-POSMAX.
|
||||
TC FINALDV +3
|
||||
CAF ONE # SET OVEFLOW INDICATOR AND EXIT.
|
||||
CAF ONE # SET OVERFLOW INDICATOR AND EXIT.
|
||||
TS OVFIND
|
||||
TC DANZIG
|
||||
|
||||
@ -1943,7 +1943,7 @@ BUFNEG CCS A
|
||||
|
||||
DDOUBL # PROLOGUE WHICH NORMALIZES THE DIVIDEND
|
||||
DDOUBL # WHEN IT IS KNOWN THAT NO DIVISION
|
||||
DDOUBL # OVEFLOW WILL OCCUR.
|
||||
DDOUBL # OVERFLOW WILL OCCUR.
|
||||
DDOUBL
|
||||
DDOUBL
|
||||
DDOUBL
|
||||
@ -1959,7 +1959,7 @@ BUFNEG CCS A
|
||||
MAXTEST CCS MAXDVSW # 0 IF MAJORS MIGHT BE =, -1 OTHERWISE.
|
||||
BIASHI DEC .4192 B-1 # SQRT CONSTANTS.
|
||||
|
||||
TCF MAXDV # CHECK TO SEE IF THAY ARE NOW EQUAL.
|
||||
TCF MAXDV # CHECK TO SEE IF THEY ARE NOW EQUAL.
|
||||
|
||||
# Page 1167
|
||||
# THE FOLLOWING IS A GENERAL PURPOSE DOUBLE PRECISION DIVISION ROUTINE. IT DIVIDES MPAC BY BUF AND LEAVES
|
||||
@ -2287,7 +2287,7 @@ LARGE2 INDEX FIXLOC
|
||||
|
||||
# Page 1178
|
||||
# IF THE LENGTH OF THE ARGUMENT VECTOR WAS LESS THAN 2(-28), EACH COMPONENT MUST BE SHIFTED LEFT AT LEAST
|
||||
# 14 PLACES BEFORE TEH DIVIDE, NOTE THAT IN THIS CASE, THE MAJOR PART OF EACH COMPONENT IS ZERO.
|
||||
# 14 PLACES BEFORE THE DIVIDE, NOTE THAT IN THIS CASE, THE MAJOR PART OF EACH COMPONENT IS ZERO.
|
||||
|
||||
SMALL TS MPTEMP # NEGATIVE OF PRE-DIVIDE SHIFT COUNT.
|
||||
|
||||
@ -2626,7 +2626,7 @@ NORMTEST CCS CYL # SEE IF ARGUMENT NOW NORMALIZED AT
|
||||
|
||||
# Page 1187
|
||||
# TRIGONOMETRIC FUNCTION PACKAGE.
|
||||
# THE FOLLOWING TRIGONOMETRIC FUNCTIONS ARE AVAIALABLE AS INTERPRETIVE OPERATIONS:
|
||||
# THE FOLLOWING TRIGONOMETRIC FUNCTIONS ARE AVAILABLE AS INTERPRETIVE OPERATIONS:
|
||||
# 1. SIN COMPUTES (1/2)SINE(2 PI MPAC).
|
||||
# 2. COS COMPUTES (1/2)COSINE(2 PI MPAC).
|
||||
# 3. ASIN COMPUTES (1/2PI)ARCSINE(2 MPAC).
|
||||
|
||||
Reference in New Issue
Block a user