Macintosh-SW/supermario
1
0
Fork 0
mirror of https://github.com/elliotnunn/supermario.git synced 2025-01-20 22:30:04 +00:00
Code Issues Projects Releases Wiki Activity
supermario/bin/MPW-3.2.3/Interfaces/AIncludes/SANEMacs.a
Elliot Nunn 93dfc883a1 Include build script, System and MPW
2019-06-29 22:17:03 +08:00

1571 lines
37 KiB
Plaintext
Raw Blame History

; Version: 1.02
; Created: Tuesday, August 2, 1988 at 9:48:22 PM
; File: SANEMacs.a
;
; Copyright Apple Computer, Inc. 1984, 1985, 1986, 1987, 1989, 1990, 1991
; All Rights Reserved
;
; SANE Numerics -- This file defines the assembly language
; access to the 68K floating-point arithmetic routines. It is
; documented in the Apple Numerics Manual.
;
;************************************************************
;———————————————————————————————————————————————————————————
; Operation code masks.
;———————————————————————————————————————————————————————————
FOADD EQU $0000 ; add
FOSUB EQU $0002 ; subtract
FOMUL EQU $0004 ; multiply
FODIV EQU $0006 ; divide
FOCMP EQU $0008 ; compare, no exception from unordered
FOCPX EQU $000A ; compare, signal invalid if unordered
FOREM EQU $000C ; remainder
FOZ2X EQU $000E ; convert to extended
FOX2Z EQU $0010 ; convert from extended
FOSQRT EQU $0012 ; square root
FORTI EQU $0014 ; round to integral value
FOTTI EQU $0016 ; truncate to integral value
FOSCALB EQU $0018 ; binary scale
FOLOGB EQU $001A ; binary log
FOCLASS EQU $001C ; classify
; UNDEFINED EQU $001E
FOSETENV EQU $0001 ; set environment
FOGETENV EQU $0003 ; get environment
FOSETHV EQU $0005 ; set halt vector
FOGETHV EQU $0007 ; get halt vector
FOD2B EQU $0009 ; convert decimal to binary
FOB2D EQU $000B ; convert binary to decimal
FONEG EQU $000D ; negate
FOABS EQU $000F ; absolute
FOCPYSGN EQU $0011 ; copy sign
FONEXT EQU $0013 ; next-after
FOSETXCP EQU $0015 ; set exception
FOPROCENTRY EQU $0017 ; procedure entry
FOPROCEXIT EQU $0019 ; procedure exit
FOTESTXCP EQU $001B ; test exception
; UNDEFINED EQU $001D
; UNDEFINED EQU $001F
;———————————————————————————————————————————————————————————
; Operand format masks.
;———————————————————————————————————————————————————————————
FFEXT EQU $0000 ; extended -- 80-bit float
FFEXT96 EQU $0020 ; extended -- 96-bit float
FFDBL EQU $0800 ; double -- 64-bit float
FFSGL EQU $1000 ; single -- 32-bit float
FFINT EQU $2000 ; integer -- 16-bit integer
FFLNG EQU $2800 ; long int -- 32-bit integer
FFCOMP EQU $3000 ; comp -- 64-bit integer
;———————————————————————————————————————————————————————————
; Operations: operand addresses should already be on
; the stack, with the destination address on top. The
; suffix X, D, S, C, I, or L determines the format of the
; source operand -- extended, double, single, comp,
; integer, or long integer, respectively; the destination
; operand is always extended.
;———————————————————————————————————————————————————————————
;———————————————————————————————————————————————————————————
; Addition.
;———————————————————————————————————————————————————————————
; 80-bit extended format
MACRO
FADDX
MOVE.W #FFEXT+FOADD,-(SP)
_FP68K
ENDM
MACRO
FADDD
MOVE.W #FFDBL+FOADD,-(SP)
_FP68K
ENDM
MACRO
FADDS
MOVE.W #FFSGL+FOADD,-(SP)
_FP68K
ENDM
MACRO
FADDC
MOVE.W #FFCOMP+FOADD,-(SP)
_FP68K
ENDM
MACRO
FADDI
MOVE.W #FFINT+FOADD,-(SP)
_FP68K
ENDM
MACRO
FADDL
MOVE.W #FFLNG+FOADD,-(SP)
_FP68K
ENDM
; 96-bit extended format
MACRO
FADDX96
MOVE.W #FFEXT96+FOADD,-(SP)
_FP68K
ENDM
MACRO
FADDD96
MOVE.W #FFDBL+FFEXT96+FOADD,-(SP)
_FP68K
ENDM
MACRO
FADDS96
MOVE.W #FFSGL+FFEXT96+FOADD,-(SP)
_FP68K
ENDM
MACRO
FADDC96
MOVE.W #FFCOMP+FFEXT96+FOADD,-(SP)
_FP68K
ENDM
MACRO
FADDI96
MOVE.W #FFINT+FFEXT96+FOADD,-(SP)
_FP68K
ENDM
MACRO
FADDL96
MOVE.W #FFLNG+FFEXT96+FOADD,-(SP)
_FP68K
ENDM
;———————————————————————————————————————————————————————————
; Subtraction.
;———————————————————————————————————————————————————————————
; 80-bit extended format
MACRO
FSUBX
MOVE.W #FFEXT+FOSUB,-(SP)
_FP68K
ENDM
MACRO
FSUBD
MOVE.W #FFDBL+FOSUB,-(SP)
_FP68K
ENDM
MACRO
FSUBS
MOVE.W #FFSGL+FOSUB,-(SP)
_FP68K
ENDM
MACRO
FSUBC
MOVE.W #FFCOMP+FOSUB,-(SP)
_FP68K
ENDM
MACRO
FSUBI
MOVE.W #FFINT+FOSUB,-(SP)
_FP68K
ENDM
MACRO
FSUBL
MOVE.W #FFLNG+FOSUB,-(SP)
_FP68K
ENDM
; 96-bit extended format
MACRO
FSUBX96
MOVE.W #FFEXT96+FOSUB,-(SP)
_FP68K
ENDM
MACRO
FSUBD96
MOVE.W #FFDBL+FFEXT96+FOSUB,-(SP)
_FP68K
ENDM
MACRO
FSUBS96
MOVE.W #FFSGL+FFEXT96+FOSUB,-(SP)
_FP68K
ENDM
MACRO
FSUBC96
MOVE.W #FFCOMP+FFEXT96+FOSUB,-(SP)
_FP68K
ENDM
MACRO
FSUBI96
MOVE.W #FFINT+FFEXT96+FOSUB,-(SP)
_FP68K
ENDM
MACRO
FSUBL96
MOVE.W #FFLNG+FFEXT96+FOSUB,-(SP)
_FP68K
ENDM
;———————————————————————————————————————————————————————————
; Multiplication.
;———————————————————————————————————————————————————————————
; 80-bit extended format
MACRO
FMULX
MOVE.W #FFEXT+FOMUL,-(SP)
_FP68K
ENDM
MACRO
FMULD
MOVE.W #FFDBL+FOMUL,-(SP)
_FP68K
ENDM
MACRO
FMULS
MOVE.W #FFSGL+FOMUL,-(SP)
_FP68K
ENDM
MACRO
FMULC
MOVE.W #FFCOMP+FOMUL,-(SP)
_FP68K
ENDM
MACRO
FMULI
MOVE.W #FFINT+FOMUL,-(SP)
_FP68K
ENDM
MACRO
FMULL
MOVE.W #FFLNG+FOMUL,-(SP)
_FP68K
ENDM
; 96-bit extended format
MACRO
FMULX96
MOVE.W #FFEXT96+FOMUL,-(SP)
_FP68K
ENDM
MACRO
FMULD96
MOVE.W #FFDBL+FFEXT96+FOMUL,-(SP)
_FP68K
ENDM
MACRO
FMULS96
MOVE.W #FFSGL+FFEXT96+FOMUL,-(SP)
_FP68K
ENDM
MACRO
FMULC96
MOVE.W #FFCOMP+FFEXT96+FOMUL,-(SP)
_FP68K
ENDM
MACRO
FMULI96
MOVE.W #FFINT+FFEXT96+FOMUL,-(SP)
_FP68K
ENDM
MACRO
FMULL96
MOVE.W #FFLNG+FFEXT96+FOMUL,-(SP)
_FP68K
ENDM
;———————————————————————————————————————————————————————————
; Division.
;———————————————————————————————————————————————————————————
; 80-bit extended format
MACRO
FDIVX
MOVE.W #FFEXT+FODIV,-(SP)
_FP68K
ENDM
MACRO
FDIVD
MOVE.W #FFDBL+FODIV,-(SP)
_FP68K
ENDM
MACRO
FDIVS
MOVE.W #FFSGL+FODIV,-(SP)
_FP68K
ENDM
MACRO
FDIVC
MOVE.W #FFCOMP+FODIV,-(SP)
_FP68K
ENDM
MACRO
FDIVI
MOVE.W #FFINT+FODIV,-(SP)
_FP68K
ENDM
MACRO
FDIVL
MOVE.W #FFLNG+FODIV,-(SP)
_FP68K
ENDM
; 96-bit extended format
MACRO
FDIVX96
MOVE.W #FFEXT96+FODIV,-(SP)
_FP68K
ENDM
MACRO
FDIVD96
MOVE.W #FFDBL+FFEXT96+FODIV,-(SP)
_FP68K
ENDM
MACRO
FDIVS96
MOVE.W #FFSGL+FFEXT96+FODIV,-(SP)
_FP68K
ENDM
MACRO
FDIVC96
MOVE.W #FFCOMP+FFEXT96+FODIV,-(SP)
_FP68K
ENDM
MACRO
FDIVI96
MOVE.W #FFINT+FFEXT96+FODIV,-(SP)
_FP68K
ENDM
MACRO
FDIVL96
MOVE.W #FFLNG+FFEXT96+FODIV,-(SP)
_FP68K
ENDM
;———————————————————————————————————————————————————————————
; Square root.
;———————————————————————————————————————————————————————————
; 80-bit extended format
MACRO
FSQRTX
MOVE.W #FOSQRT,-(SP)
_FP68K
ENDM
; 96-bit extended format
MACRO
FSQRTX96
MOVE.W #FFEXT96+FOSQRT,-(SP)
_FP68K
ENDM
;———————————————————————————————————————————————————————————
; Round to integer, according to the current rounding mode.
;———————————————————————————————————————————————————————————
; 80-bit extended format
MACRO
FRINTX
MOVE.W #FORTI,-(SP)
_FP68K
ENDM
; 96-bit extended format
MACRO
FRINTX96
MOVE.W #FFEXT96+FORTI,-(SP)
_FP68K
ENDM
;———————————————————————————————————————————————————————————
; Truncate to integer, using round toward zero.
;———————————————————————————————————————————————————————————
; 80-bit extended format
MACRO
FTINTX
MOVE.W #FOTTI,-(SP)
_FP68K
ENDM
; 96-bit extended format
MACRO
FTINTX96
MOVE.W #FFEXT96+FOTTI,-(SP)
_FP68K
ENDM
;———————————————————————————————————————————————————————————
; Remainder.
;———————————————————————————————————————————————————————————
; 80-bit extended format
MACRO
FREMX
MOVE.W #FFEXT+FOREM,-(SP)
_FP68K
ENDM
MACRO
FREMD
MOVE.W #FFDBL+FOREM,-(SP)
_FP68K
ENDM
MACRO
FREMS
MOVE.W #FFSGL+FOREM,-(SP)
_FP68K
ENDM
MACRO
FREMC
MOVE.W #FFCOMP+FOREM,-(SP)
_FP68K
ENDM
MACRO
FREMI
MOVE.W #FFINT+FOREM,-(SP)
_FP68K
ENDM
MACRO
FREML
MOVE.W #FFLNG+FOREM,-(SP)
_FP68K
ENDM
; 96-bit extended format
MACRO
FREMX96
MOVE.W #FFEXT96+FOREM,-(SP)
_FP68K
ENDM
MACRO
FREMD96
MOVE.W #FFDBL+FFEXT96+FOREM,-(SP)
_FP68K
ENDM
MACRO
FREMS96
MOVE.W #FFSGL+FFEXT96+FOREM,-(SP)
_FP68K
ENDM
MACRO
FREMC96
MOVE.W #FFCOMP+FFEXT96+FOREM,-(SP)
_FP68K
ENDM
MACRO
FREMI96
MOVE.W #FFINT+FFEXT96+FOREM,-(SP)
_FP68K
ENDM
MACRO
FREML96
MOVE.W #FFLNG+FFEXT96+FOREM,-(SP)
_FP68K
ENDM
;———————————————————————————————————————————————————————————
; Logb.
;———————————————————————————————————————————————————————————
; 80-bit extended format
MACRO
FLOGBX
MOVE.W #FOLOGB,-(SP)
_FP68K
ENDM
; 96-bit extended format
MACRO
FLOGBX96
MOVE.W #FFEXT96+FOLOGB,-(SP)
_FP68K
ENDM
;———————————————————————————————————————————————————————————
; Scalb.
;———————————————————————————————————————————————————————————
; 80-bit extended format
MACRO
FSCALBX
MOVE.W #FFINT+FOSCALB,-(SP)
_FP68K
ENDM
; 96-bit extended format
MACRO
FSCALBX96
MOVE.W #FFINT+FFEXT96+FOSCALB,-(SP)
_FP68K
ENDM
;———————————————————————————————————————————————————————————
; Copy-sign.
;———————————————————————————————————————————————————————————
; 80-bit extended format
MACRO
FCPYSGNX
MOVE.W #FOCPYSGN,-(SP)
_FP68K
ENDM
; 96-bit extended format
MACRO
FCPYSGNX96
MOVE.W #FFEXT96+FOCPYSGN,-(SP)
_FP68K
ENDM
;———————————————————————————————————————————————————————————
; Negate.
;———————————————————————————————————————————————————————————
; 80-bit extended format
MACRO
FNEGX
MOVE.W #FONEG,-(SP)
_FP68K
ENDM
; 96-bit extended format
MACRO
FNEGX96
MOVE.W #FFEXT96+FONEG,-(SP)
_FP68K
ENDM
;———————————————————————————————————————————————————————————
; Absolute value.
;———————————————————————————————————————————————————————————
; 80-bit extended format
MACRO
FABSX
MOVE.W #FOABS,-(SP)
_FP68K
ENDM
; 96-bit extended format
MACRO
FABSX96
MOVE.W #FFEXT96+FOABS,-(SP)
_FP68K
ENDM
;———————————————————————————————————————————————————————————
; Next-after. NOTE: both operands are of the same
; format, as specified by the usual suffix.
;———————————————————————————————————————————————————————————
MACRO
FNEXTS
MOVE.W #FFSGL+FONEXT,-(SP)
_FP68K
ENDM
MACRO
FNEXTD
MOVE.W #FFDBL+FONEXT,-(SP)
_FP68K
ENDM
; 80-bit extended format
MACRO
FNEXTX
MOVE.W #FFEXT+FONEXT,-(SP)
_FP68K
ENDM
; 96-bit extended format
MACRO
FNEXTX96
MOVE.W #FFEXT96+FONEXT,-(SP)
_FP68K
ENDM
;———————————————————————————————————————————————————————————
; Conversion to 80-bit extended.
;———————————————————————————————————————————————————————————
MACRO
FX2X
MOVE.W #FFEXT+FOZ2X,-(SP)
_FP68K
ENDM
MACRO
FD2X
MOVE.W #FFDBL+FOZ2X,-(SP)
_FP68K
ENDM
MACRO
FS2X
MOVE.W #FFSGL+FOZ2X,-(SP)
_FP68K
ENDM
MACRO
FI2X
MOVE.W #FFINT+FOZ2X,-(SP)
_FP68K
ENDM
MACRO
FL2X
MOVE.W #FFLNG+FOZ2X,-(SP)
_FP68K
ENDM
MACRO
FC2X
MOVE.W #FFCOMP+FOZ2X,-(SP)
_FP68K
ENDM
;———————————————————————————————————————————————————————————
; Conversion to 96-bit extended.
;———————————————————————————————————————————————————————————
MACRO
FX2X96
MOVE.W #FFEXT96+FOZ2X,-(SP)
_FP68K
ENDM
MACRO
FD2X96
MOVE.W #FFDBL+FFEXT96+FOZ2X,-(SP)
_FP68K
ENDM
MACRO
FS2X96
MOVE.W #FFSGL+FFEXT96+FOZ2X,-(SP)
_FP68K
ENDM
MACRO
FI2X96
MOVE.W #FFINT+FFEXT96+FOZ2X,-(SP)
_FP68K
ENDM
MACRO
FL2X96
MOVE.W #FFLNG+FFEXT96+FOZ2X,-(SP)
_FP68K
ENDM
MACRO
FC2X96
MOVE.W #FFCOMP+FFEXT96+FOZ2X,-(SP)
_FP68K
ENDM
;———————————————————————————————————————————————————————————
; Conversion from 80-bit extended.
;———————————————————————————————————————————————————————————
MACRO
FX2D
MOVE.W #FFDBL+FOX2Z,-(SP)
_FP68K
ENDM
MACRO
FX2S
MOVE.W #FFSGL+FOX2Z,-(SP)
_FP68K
ENDM
MACRO
FX2I
MOVE.W #FFINT+FOX2Z,-(SP)
_FP68K
ENDM
MACRO
FX2L
MOVE.W #FFLNG+FOX2Z,-(SP)
_FP68K
ENDM
MACRO
FX2C
MOVE.W #FFCOMP+FOX2Z,-(SP)
_FP68K
ENDM
;———————————————————————————————————————————————————————————
; Conversion from 96-bit extended.
;———————————————————————————————————————————————————————————
MACRO
FX2D96
MOVE.W #FFDBL+FFEXT96+FOX2Z,-(SP)
_FP68K
ENDM
MACRO
FX2S96
MOVE.W #FFSGL+FFEXT96+FOX2Z,-(SP)
_FP68K
ENDM
MACRO
FX2I96
MOVE.W #FFINT+FFEXT96+FOX2Z,-(SP)
_FP68K
ENDM
MACRO
FX2L96
MOVE.W #FFLNG+FFEXT96+FOX2Z,-(SP)
_FP68K
ENDM
MACRO
FX2C96
MOVE.W #FFCOMP+FFEXT96+FOX2Z,-(SP)
_FP68K
ENDM
;———————————————————————————————————————————————————————————
; Binary to decimal conversion.
;———————————————————————————————————————————————————————————
; 80-bit extended format
MACRO
FX2DEC
MOVE.W #FFEXT+FOB2D,-(SP)
_FP68K
ENDM
; 96-bit extended format
MACRO
FX2DEC96
MOVE.W #FFEXT96+FOB2D,-(SP)
_FP68K
ENDM
MACRO
FD2DEC
MOVE.W #FFDBL+FOB2D,-(SP)
_FP68K
ENDM
MACRO
FS2DEC
MOVE.W #FFSGL+FOB2D,-(SP)
_FP68K
ENDM
MACRO
FC2DEC
MOVE.W #FFCOMP+FOB2D,-(SP)
_FP68K
ENDM
MACRO
FI2DEC
MOVE.W #FFINT+FOB2D,-(SP)
_FP68K
ENDM
MACRO
FL2DEC
MOVE.W #FFLNG+FOB2D,-(SP)
_FP68K
ENDM
;———————————————————————————————————————————————————————————
; Decimal to binary conversion.
;———————————————————————————————————————————————————————————
; 80-bit extended format
MACRO
FDEC2X
MOVE.W #FFEXT+FOD2B,-(SP)
_FP68K
ENDM
; 96-bit extended format
MACRO
FDEC2X96
MOVE.W #FFEXT96+FOD2B,-(SP)
_FP68K
ENDM
MACRO
FDEC2D
MOVE.W #FFDBL+FOD2B,-(SP)
_FP68K
ENDM
MACRO
FDEC2S
MOVE.W #FFSGL+FOD2B,-(SP)
_FP68K
ENDM
MACRO
FDEC2C
MOVE.W #FFCOMP+FOD2B,-(SP)
_FP68K
ENDM
MACRO
FDEC2I
MOVE.W #FFINT+FOD2B,-(SP)
_FP68K
ENDM
MACRO
FDEC2L
MOVE.W #FFLNG+FOD2B,-(SP)
_FP68K
ENDM
;———————————————————————————————————————————————————————————
; Compare, not signaling invalid on unordered.
;———————————————————————————————————————————————————————————
; 80-bit extended format
MACRO
FCMPX
MOVE.W #FFEXT+FOCMP,-(SP)
_FP68K
ENDM
MACRO
FCMPD
MOVE.W #FFDBL+FOCMP,-(SP)
_FP68K
ENDM
MACRO
FCMPS
MOVE.W #FFSGL+FOCMP,-(SP)
_FP68K
ENDM
MACRO
FCMPC
MOVE.W #FFCOMP+FOCMP,-(SP)
_FP68K
ENDM
MACRO
FCMPI
MOVE.W #FFINT+FOCMP,-(SP)
_FP68K
ENDM
MACRO
FCMPL
MOVE.W #FFLNG+FOCMP,-(SP)
_FP68K
ENDM
; 96-bit extended format
MACRO
FCMPX96
MOVE.W #FFEXT96+FOCMP,-(SP)
_FP68K
ENDM
MACRO
FCMPD96
MOVE.W #FFDBL+FFEXT96+FOCMP,-(SP)
_FP68K
ENDM
MACRO
FCMPS96
MOVE.W #FFSGL+FFEXT96+FOCMP,-(SP)
_FP68K
ENDM
MACRO
FCMPC96
MOVE.W #FFCOMP+FFEXT96+FOCMP,-(SP)
_FP68K
ENDM
MACRO
FCMPI96
MOVE.W #FFINT+FFEXT96+FOCMP,-(SP)
_FP68K
ENDM
MACRO
FCMPL96
MOVE.W #FFLNG+FFEXT96+FOCMP,-(SP)
_FP68K
ENDM
;———————————————————————————————————————————————————————————
; Compare, signaling invalid on unordered.
;———————————————————————————————————————————————————————————
; 80-bit extended format
MACRO
FCPXX
MOVE.W #FFEXT+FOCPX,-(SP)
_FP68K
ENDM
MACRO
FCPXD
MOVE.W #FFDBL+FOCPX,-(SP)
_FP68K
ENDM
MACRO
FCPXS
MOVE.W #FFSGL+FOCPX,-(SP)
_FP68K
ENDM
MACRO
FCPXC
MOVE.W #FFCOMP+FOCPX,-(SP)
_FP68K
ENDM
MACRO
FCPXI
MOVE.W #FFINT+FOCPX,-(SP)
_FP68K
ENDM
MACRO
FCPXL
MOVE.W #FFLNG+FOCPX,-(SP)
_FP68K
ENDM
; 96-bit extended format
MACRO
FCPXX96
MOVE.W #FFEXT96+FOCPX,-(SP)
_FP68K
ENDM
MACRO
FCPXD96
MOVE.W #FFDBL+FFEXT96+FOCPX,-(SP)
_FP68K
ENDM
MACRO
FCPXS96
MOVE.W #FFSGL+FFEXT96+FOCPX,-(SP)
_FP68K
ENDM
MACRO
FCPXC96
MOVE.W #FFCOMP+FFEXT96+FOCPX,-(SP)
_FP68K
ENDM
MACRO
FCPXI96
MOVE.W #FFINT+FFEXT96+FOCPX,-(SP)
_FP68K
ENDM
MACRO
FCPXL96
MOVE.W #FFLNG+FFEXT96+FOCPX,-(SP)
_FP68K
ENDM
;———————————————————————————————————————————————————————————
; The following defines a set of so-called floating
; branches. They presume that an appropriate compare
; operation, FCMPz, FCMPz96, FCPXz or FCPXz96, precedes.
;———————————————————————————————————————————————————————————
MACRO
FBEQL
BEQ &SYSLIST[1]
ENDM
MACRO
FBLTL
BCS &SYSLIST[1]
ENDM
MACRO
FBLEL
BLS &SYSLIST[1]
ENDM
MACRO
FBGTL
BGT &SYSLIST[1]
ENDM
MACRO
FBGEL
BGE &SYSLIST[1]
ENDM
MACRO
FBULTL
BLT &SYSLIST[1]
ENDM
MACRO
FBULEL
BLE &SYSLIST[1]
ENDM
MACRO
FBUGTL
BHI &SYSLIST[1]
ENDM
MACRO
FBUGEL
BCC &SYSLIST[1]
ENDM
MACRO
FBUL
BVS &SYSLIST[1]
ENDM
MACRO
FBOL
BVC &SYSLIST[1]
ENDM
MACRO
FBNEL
BNE &SYSLIST[1]
ENDM
MACRO
FBUEL
BEQ &SYSLIST[1]
BVS &SYSLIST[1]
ENDM
MACRO
FBLGL
BCS &SYSLIST[1]
BGT &SYSLIST[1]
ENDM
;———————————————————————————————————————————————————————————
; Short branch versions.
;———————————————————————————————————————————————————————————
MACRO
FBEQS
BEQ.S &SYSLIST[1]
ENDM
MACRO
FBLTS
BCS.S &SYSLIST[1]
ENDM
MACRO
FBLES
BLS.S &SYSLIST[1]
ENDM
MACRO
FBGTS
BGT.S &SYSLIST[1]
ENDM
MACRO
FBGES
BGE.S &SYSLIST[1]
ENDM
MACRO
FBULTS
BLT.S &SYSLIST[1]
ENDM
MACRO
FBULES
BLE.S &SYSLIST[1]
ENDM
MACRO
FBUGTS
BHI.S &SYSLIST[1]
ENDM
MACRO
FBUGES
BCC.S &SYSLIST[1]
ENDM
MACRO
FBUS
BVS.S &SYSLIST[1]
ENDM
MACRO
FBOS
BVC.S &SYSLIST[1]
ENDM
MACRO
FBNES
BNE.S &SYSLIST[1]
ENDM
MACRO
FBUES
BEQ.S &SYSLIST[1]
BVS.S &SYSLIST[1]
ENDM
MACRO
FBLGS
BCS.S &SYSLIST[1]
BGT.S &SYSLIST[1]
ENDM
;———————————————————————————————————————————————————————————
; Class and sign inquiries.
;———————————————————————————————————————————————————————————
FCSNAN EQU 1 ; signaling NAN
FCQNAN EQU 2 ; quiet NAN
FCINF EQU 3 ; infinity
FCZERO EQU 4 ; zero
FCNORM EQU 5 ; normal number
FCDENORM EQU 6 ; denormal number
MACRO
FCLASSC
MOVE.W #FFCOMP+FOCLASS,-(SP)
_FP68K
ENDM
MACRO
FCLASSS
MOVE.W #FFSGL+FOCLASS,-(SP)
_FP68K
ENDM
MACRO
FCLASSD
MOVE.W #FFDBL+FOCLASS,-(SP)
_FP68K
ENDM
; 80-bit extended format
MACRO
FCLASSX
MOVE.W #FFEXT+FOCLASS,-(SP)
_FP68K
ENDM
; 96-bit extended format
MACRO
FCLASSX96
MOVE.W #FFEXT96+FOCLASS,-(SP)
_FP68K
ENDM
;———————————————————————————————————————————————————————————
; Bit indexes for bytes of floating point environment word.
;———————————————————————————————————————————————————————————
FBINVALID EQU 0 ; invalid operation
FBUFLOW EQU 1 ; underflow
FBOFLOW EQU 2 ; overflow
FBDIVZER EQU 3 ; division by zero
FBINEXACT EQU 4 ; inexact
FBRNDLO EQU 5 ; low bit of rounding mode
FBRNDHI EQU 6 ; high bit of rounding mode
FBLSTRND EQU 7 ; last round result bit
FBDBL EQU 5 ; double precision control
FBSGL EQU 6 ; single precision control
;———————————————————————————————————————————————————————————
; Get and set environment.
;———————————————————————————————————————————————————————————
MACRO
FGETENV
MOVE.W #FOGETENV,-(SP)
_FP68K
ENDM
MACRO
FSETENV
MOVE.W #FOSETENV,-(SP)
_FP68K
ENDM
;———————————————————————————————————————————————————————————
; Test and set exception.
;———————————————————————————————————————————————————————————
MACRO
FTESTXCP
MOVE.W #FOTESTXCP,-(SP)
_FP68K
ENDM
MACRO
FSETXCP
MOVE.W #FOSETXCP,-(SP)
_FP68K
ENDM
;———————————————————————————————————————————————————————————
; Procedure entry and exit.
;———————————————————————————————————————————————————————————
MACRO
FPROCENTRY
MOVE.W #FOPROCENTRY,-(SP)
_FP68K
ENDM
MACRO
FPROCEXIT
MOVE.W #FOPROCEXIT,-(SP)
_FP68K
ENDM
;———————————————————————————————————————————————————————————
; Get and set halt vector.
;———————————————————————————————————————————————————————————
MACRO
FGETHV
MOVE.W #FOGETHV,-(SP)
_FP68K
ENDM
MACRO
FSETHV
MOVE.W #FOSETHV,-(SP)
_FP68K
ENDM
;———————————————————————————————————————————————————————————
; Elementary function operation code masks.
;———————————————————————————————————————————————————————————
ELEXT96 EQU $0080 ; 96-bit extended format
FOLNX EQU $0000 ; base-e log
FOLOG2X EQU $0002 ; base-2 log
FOLN1X EQU $0004 ; ln (1 + x)
FOLOG21X EQU $0006 ; log2 (1 + x)
FOEXPX EQU $0008 ; base-e exponential
FOEXP2X EQU $000A ; base-2 exponential
FOEXP1X EQU $000C ; exp (x) - 1
FOEXP21X EQU $000E ; exp2 (x) - 1
FOXPWRI EQU $8010 ; integer exponentiation
FOXPWRY EQU $8012 ; general exponentiation
FOCOMPOUND EQU $C014 ; compound
FOANNUITY EQU $C016 ; annuity
FOSINX EQU $0018 ; sine
FOCOSX EQU $001A ; cosine
FOTANX EQU $001C ; tangent
FOATANX EQU $001E ; arctangent
FORANDX EQU $0020 ; random
;———————————————————————————————————————————————————————————
; Elementary functions.
;———————————————————————————————————————————————————————————
; 80-bit extended format
MACRO
FLNX ; base-e log
MOVE.W #FOLNX,-(SP)
_ELEMS68K
ENDM
MACRO
FLOG2X ; base-2 log
MOVE.W #FOLOG2X,-(SP)
_ELEMS68K
ENDM
MACRO
FLN1X ; ln (1 + x)
MOVE.W #FOLN1X,-(SP)
_ELEMS68K
ENDM
MACRO
FLOG21X ; log2 (1 + x)
MOVE.W #FOLOG21X,-(SP)
_ELEMS68K
ENDM
MACRO
FEXPX ; base-e exponential
MOVE.W #FOEXPX,-(SP)
_ELEMS68K
ENDM
MACRO
FEXP2X ; base-2 exponential
MOVE.W #FOEXP2X,-(SP)
_ELEMS68K
ENDM
MACRO
FEXP1X ; exp (x) - 1
MOVE.W #FOEXP1X,-(SP)
_ELEMS68K
ENDM
MACRO
FEXP21X ; exp2 (x) - 1
MOVE.W #FOEXP21X,-(SP)
_ELEMS68K
ENDM
MACRO
FXPWRI ; integer exponential
MOVE.W #FOXPWRI,-(SP)
_ELEMS68K
ENDM
MACRO
FXPWRY ; general exponential
MOVE.W #FOXPWRY,-(SP)
_ELEMS68K
ENDM
MACRO
FCOMPOUND ; compound
MOVE.W #FOCOMPOUND,-(SP)
_ELEMS68K
ENDM
MACRO
FANNUITY ; annuity
MOVE.W #FOANNUITY,-(SP)
_ELEMS68K
ENDM
MACRO
FSINX ; sine
MOVE.W #FOSINX,-(SP)
_ELEMS68K
ENDM
MACRO
FCOSX ; cosine
MOVE.W #FOCOSX,-(SP)
_ELEMS68K
ENDM
MACRO
FTANX ; tangent
MOVE.W #FOTANX,-(SP)
_ELEMS68K
ENDM
MACRO
FATANX ; arctangent
MOVE.W #FOATANX,-(SP)
_ELEMS68K
ENDM
MACRO
FRANDX ; random number generator
MOVE.W #FORANDX,-(SP)
_ELEMS68K
ENDM
; 96-bit extended format
MACRO
FLNX96 ; base-e log
MOVE.W #ELEXT96+FOLNX,-(SP)
_ELEMS68K
ENDM
MACRO
FLOG2X96 ; base-2 log
MOVE.W #ELEXT96+FOLOG2X,-(SP)
_ELEMS68K
ENDM
MACRO
FLN1X96 ; ln (1 + x)
MOVE.W #ELEXT96+FOLN1X,-(SP)
_ELEMS68K
ENDM
MACRO
FLOG21X96 ; log2 (1 + x)
MOVE.W #ELEXT96+FOLOG21X,-(SP)
_ELEMS68K
ENDM
MACRO
FEXPX96 ; base-e exponential
MOVE.W #ELEXT96+FOEXPX,-(SP)
_ELEMS68K
ENDM
MACRO
FEXP2X96 ; base-2 exponential
MOVE.W #ELEXT96+FOEXP2X,-(SP)
_ELEMS68K
ENDM
MACRO
FEXP1X96 ; exp (x) - 1
MOVE.W #ELEXT96+FOEXP1X,-(SP)
_ELEMS68K
ENDM
MACRO
FEXP21X96 ; exp2 (x) - 1
MOVE.W #ELEXT96+FOEXP21X,-(SP)
_ELEMS68K
ENDM
MACRO
FXPWRI96 ; integer exponential
MOVE.W #ELEXT96+FOXPWRI,-(SP)
_ELEMS68K
ENDM
MACRO
FXPWRY96 ; general exponential
MOVE.W #ELEXT96+FOXPWRY,-(SP)
_ELEMS68K
ENDM
MACRO
FCOMPOUND96 ; compound
MOVE.W #ELEXT96+FOCOMPOUND,-(SP)
_ELEMS68K
ENDM
MACRO
FANNUITY96 ; annuity
MOVE.W #ELEXT96+FOANNUITY,-(SP)
_ELEMS68K
ENDM
MACRO
FSINX96 ; sine
MOVE.W #ELEXT96+FOSINX,-(SP)
_ELEMS68K
ENDM
MACRO
FCOSX96 ; cosine
MOVE.W #ELEXT96+FOCOSX,-(SP)
_ELEMS68K
ENDM
MACRO
FTANX96 ; tangent
MOVE.W #ELEXT96+FOTANX,-(SP)
_ELEMS68K
ENDM
MACRO
FATANX96 ; arctangent
MOVE.W #ELEXT96+FOATANX,-(SP)
_ELEMS68K
ENDM
MACRO
FRANDX96 ; random number generator
MOVE.W #ELEXT96+FORANDX,-(SP)
_ELEMS68K
ENDM
;———————————————————————————————————————————————————————————
; Scanner and formatter operation code masks
;———————————————————————————————————————————————————————————
FOPSTR2DEC EQU $0002 ;Pascal string to decimal record
FOCSTR2DEC EQU $0004 ;C string to decimal record
FODEC2STR EQU $0003 ;decimal record to Pascal string
;———————————————————————————————————————————————————————————
; Scanner and formatter functions
;———————————————————————————————————————————————————————————
;Pascal string to decimal record
MACRO
FPSTR2DEC
MOVE.W #FOPSTR2DEC, -(SP)
_DecStr68K
ENDM
;C string to decimal record
MACRO
FCSTR2DEC
MOVE.W #FOCSTR2DEC, -(SP)
_DecStr68K
ENDM
;decimal record to Pascal string
MACRO
FDEC2STR
MOVE.W #FODEC2STR, -(SP)
_DecStr68K
ENDM
;———————————————————————————————————————————————————————————
; NaN codes.
;———————————————————————————————————————————————————————————
NANSQRT EQU 1 ; Invalid square root such as sqrt(-1).
NANADD EQU 2 ; Invalid addition such as +INF - +INF.
NANDIV EQU 4 ; Invalid division such as 0/0.
NANMUL EQU 8 ; Invalid multiply such as 0 * INF.
NANREM EQU 9 ; Invalid remainder or mod such as x REM 0.
NANASCBIN EQU 17 ; Attempt to convert invalid ASCII string.
NANCOMP EQU 20 ; Result of converting comp NaN to floating.
NANZERO EQU 21 ; Attempt to create a NaN with a zero code.
NANTRIG EQU 33 ; Invalid argument to trig routine.
NANINVTRIG EQU 34 ; Invalid argument to inverse trig routine.
NANLOG EQU 36 ; Invalid argument to log routine.
NANPOWER EQU 37 ; Invalid argument to x^i or x^y routine.
NANFINAN EQU 38 ; Invalid argument to financial function.
NANINIT EQU 255 ; Uninitialized storage.
Reference in New Issue View Git Blame Copy Permalink