Trailing-Edge
-
PDP-10 Archives
-
BB-4157D-BM
-
sources/cnstcm.mac
There are 12 other files named cnstcm.mac in the archive. Click here to see a list.
TITLE CNSTCM - CONSTANT COMBINE MODULE
SUBTTL S. MURPHY/SRM/HPW/NEA/HPW/SJW/DCE
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (C) 1972,1977 BY DIGITAL EQUIPMENT CORPORATION
INTERN CNSTCV
CNSTCV= BYTE (3)0(9)5(6)0(18)^D67 ;VERSION DATE: 11-AUG-77
SUBTTL REVISION HISTORY
;54 ----- ----- FIX CONVERSION OF LITERALS
;55 ----- ----- ADD CONVERSION ROUTINE TO
; CMPLX WITH CONSTANT ARGUMENTS
; AT KILFBR+1
;56 ----- ----- ADD ROUTINES TO FOLD INTEGER EXPONENTIATION
;57 ----- ----- ADD SPECIFIC DISPATCH KDPINT FOR REAL TO INTEGER
; TRUNCATION
;58 ----- ----- PATCH CALL TO WARNERR
;59 ----- ----- ADD CODE FOR INLINE DABS
;60 ----- ----- ADD CODE FOR SQUARE OF DP
;61 ----- ----- ADD CODE FOR EXPONEN OF DP
;62 ----- ----- REMOVE CODE FOR SQUARE,CUBE,P4 (THEY ARE NOW
; ALL UNDER EXPCIOP)
;63 ----- ----- FIX BUG IN "EXPRL" (REAL NUMBER TO INTEGER
; POWER) -WHEN CALL KADPML, C1H-C1L MUST
; CONTAIN THE FIRST ARG TO BE MULTIPLIED
;64 ----- ----- IN "EXPINT" AND "EXPRL" MUSTCHECK FOR THE
; POWER EQUAL TO 0 (AND SET RESULT TO 1 IN
; THAT CASE)
;65 275 ----- FOR FLOATING UNDEFLOW, CHECK UNDERFLOW AND NOT
; OVERFLOW + DIVIDE CHECK BECAUSE OVERFLOW IS SET
;************ VERSION 5
;66 413 ----- DON'T USE FADL IN INTDP IF NOT ON KA10
;************ VERSION 5A
;67 606 22795 CATCH ALL OVERFLOWS AND UNDERFLOWS IN EXPRL
SUBTTL COMBIND CONSTANTS
HISEG
;TO COMBINE CONSTANTS AT RUN TIME
;CALLED WITH THE GLOBALS
; C1H - HIGH ORDER WD OF 1ST CONSTANT
; C1L - LOW ORDER WD OF 1ST CONSTANTS
; C2H - HIGH ORDER WD OF 2ND CONSTNT (HIGH ORDER WD OF RESULT
; IS LEFT HERE)
; C2L - LOW ORDER WD OF 2ND CONSTANT (LOW ORDER WD OF RESULT IS
; LEFT HERE)
; COPRIX - TABLE INDEX FOR OPERATION TO BE PERFORMED
; FOR ARITH OPERATIONS - 2 BITS FOR OP FOLLOWED
; BY 2 BITS FOR VALUE-TYPE
; FOR TYPE CONVERSIONS - "KTYPCB" (BASE IN TABLE FOR TYPE
; CONV) PLUS 2 BITS FOR SOURCE TYPE FOLLOWED
; BY 2 BITS FOR DESTINATION TYPE
; FOR BOOLEAN OPERATIONS - "KBOOLB" (BASE IN TABLE FOR
; BOOLEANS) PLUS 2 BITS SPECIFYING
; THE OPERATION
;
ENTRY CNSTCM
EXTERN