mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-09-06 18:54:30 +00:00
87 lines
2.9 KiB
Plaintext
87 lines
2.9 KiB
Plaintext
|
;EASE$$$ READ ONLY COPY of file <20>FP68K.a<>
|
|||
|
|
; 1.1 CCH 11/11/1988 Fixed Header.
|
|||
|
|
; 1.0 CCH 11/ 9/1988 Adding to EASE.
|
|||
|
|
; OLD REVISIONS BELOW
|
|||
|
|
;<3B>1.1 CCH 9/23/1988 Got rid of inc.sum.d and empty nFiles
|
|||
|
|
; 1.0 BBM 2/12/88 Adding file for the first time into EASE<53>
|
|||
|
|
; END EASE MODIFICATION HISTORY
|
|||
|
|
; File: FP68K.a
|
|||
|
|
|
|||
|
|
;-----------------------------------------------------------
|
|||
|
|
; Copyright Apple Computer, Inc. 1982, 1983, 1984, 1985, 1986
|
|||
|
|
; All Rights Reserved
|
|||
|
|
; 07JUL82: WRITTEN BY JEROME COONEN
|
|||
|
|
; PUT TOGETHER THE FLOATING-POINT PACKAGE
|
|||
|
|
; 28DEC82: ADD FILE FPSLOG.TEXT (JTC).
|
|||
|
|
; 13APR83: CHANGE SEMI-TRAP SYSTEM TO TRUE HALTS. UNTIL NOW
|
|||
|
|
; TRAPS HAVE BEEN ILL-SPECIFIED FOR THIS SOFTWARE,
|
|||
|
|
; SINCE THERE HAS BEEN NO INTENTION TO SUPPORT IEEE
|
|||
|
|
; TRAPS IN HIGH-LEVEL LANGUAGES. NOW, A "TRAPPED"
|
|||
|
|
; EXCEPTION WILL HAVE THE DEFAULT RESULT DELIVERED TO
|
|||
|
|
; THE DESTINATION, WITH AN ALTERNATIVE EXIT TO THE
|
|||
|
|
; SAVED PROCEDURE POINTER IN THE FLOATING-POINT STATE.
|
|||
|
|
; THE PRINCIPAL CHANGES WERE TO FPCOERCE, IN WHICH
|
|||
|
|
; TRAPPED EXCEPTIONS BYPASSED THE DEFAULT PROCESSING.
|
|||
|
|
; (JTC)
|
|||
|
|
; 27APR83: INCLUDE NEG AS AN ODDS OPERATION. (JTC)
|
|||
|
|
; 09MAY83: MAJOR CHANGES:
|
|||
|
|
; CEASE USING A5, USE A6 AS A STACK LINK
|
|||
|
|
; ADD REENTRANCY POINT REFP68K
|
|||
|
|
; CHANGE TO PASCAL INTERFACE FOR HALT CALL JTC
|
|||
|
|
; 09JUL83: ADD ENTRY/EXIT PROTOCOLS AND TESTXCP (JTC)
|
|||
|
|
; 04AUG83: FIX BUG IN REM, BAD INTEGER QUO (JTC)
|
|||
|
|
; 26AUG83: MOVE COND ASSEM FLAGS TO FPEQUS (JTC)
|
|||
|
|
; 29NOV83: RENAMED FP68K.TEXT (JTC)
|
|||
|
|
; 18FEB84: BUG FIXES A LA HOUGH (JTC)
|
|||
|
|
; 15APR84: BUG FIXES AND CLEANUP A LA HOUGH (JTC)
|
|||
|
|
; 14JAN85: MDS (JTC)
|
|||
|
|
; 14FEB85: NAMED RSRC (JTC)
|
|||
|
|
; 26MAR85: COLLECTED FILES: (JTC)
|
|||
|
|
; FP68K, FPEQUS,
|
|||
|
|
; FPCTRL = CONTROL + UNPACK + NANS + COERCE + PACK
|
|||
|
|
; FPOPS = ADD + MUL + DIV + REM + CMP + CVT + SQRT + SLOG + ODDS
|
|||
|
|
; FPBD = D2B + PTEN + B2D
|
|||
|
|
; 03APR85: CURRENT THINKING IS TO HAVE BUT ONE VERSION OF THE PACKAGE, SO THE ROM <03APR85>
|
|||
|
|
; VERSION IS ALLOWED TO LOCK/UNLOCK ITSELF SPURIOUSLY. <03APR85>
|
|||
|
|
; 31JUL85: BACK TO PORKSHOP (JTC) <31JUL85>
|
|||
|
|
;-----------------------------------------------------------
|
|||
|
|
; 18may86: moved to MPW (BBM)
|
|||
|
|
; <C206/09oct86> bbm Modified to mpw aincludes.
|
|||
|
|
;-----------------------------------------------------------
|
|||
|
|
|
|||
|
|
;-----------------------------------------------------------
|
|||
|
|
; CONDITIONAL ASSEMBLY FLAGS
|
|||
|
|
;-----------------------------------------------------------
|
|||
|
|
|
|||
|
|
|
|||
|
|
BLANKS ON
|
|||
|
|
STRING ASIS
|
|||
|
|
|
|||
|
|
ROMRSRC EQU 0 ; IF 1, THEN AVOID LOCKING PACKS -- BUT LEAVE IT ZERO! <03APR85>
|
|||
|
|
|
|||
|
|
FPFORMAC EQU 1 ; FLAG FOR MAC PACKAGE VERSION
|
|||
|
|
FPFORDEB EQU 0 ; FLAG FOR DEBUG (ON LISA)
|
|||
|
|
FPFORDEBUG EQU FPFORDEB
|
|||
|
|
FPFORLISA EQU 0 ; LISA LIBRARY ASSEMBLY
|
|||
|
|
|
|||
|
|
; EQUATE <31JUL85>
|
|||
|
|
PRINT OFF
|
|||
|
|
LOAD 'StandardEqu.d'
|
|||
|
|
INCLUDE 'SANEMACS.a'
|
|||
|
|
INCLUDE 'FPEQUS.a'
|
|||
|
|
EJECT
|
|||
|
|
|
|||
|
|
FP68K PROC EXPORT ; <31JUL85>
|
|||
|
|
|
|||
|
|
; RESOURCE 'PACK' 4 '' 16 <31JUL85>
|
|||
|
|
|
|||
|
|
EJECT
|
|||
|
|
INCLUDE 'FPCTRL.a'
|
|||
|
|
EJECT
|
|||
|
|
INCLUDE 'FPOPS.a'
|
|||
|
|
EJECT
|
|||
|
|
INCLUDE 'FPBD.a'
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
|