mirror of
https://github.com/elliotnunn/boot3.git
synced 2024-06-09 02:29:27 +00:00
5b0f0cc134
Resource forks are included only for .rsrc files. These are DeRezzed into their data fork. 'ckid' resources, from the Projector VCS, are not included. The Tools directory, containing mostly junk, is also excluded.
87 lines
2.9 KiB
Plaintext
87 lines
2.9 KiB
Plaintext
;EASE$$$ READ ONLY COPY of file ÒFP68K.aÓ
|
|
; 1.1 CCH 11/11/1988 Fixed Header.
|
|
; 1.0 CCH 11/ 9/1988 Adding to EASE.
|
|
; OLD REVISIONS BELOW
|
|
;¥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É
|
|
; 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
|
|
|
|
|