Add files via upload
This commit is contained in:
Jason Bou-Samra
@@ -0,0 +1,604 @@
|
||||
* Sane Toolset macros.
|
||||
* by Dave Klimas
|
||||
;
|
||||
; Copyright Apple Computer, Inc. 1986, 1987
|
||||
; and Roger Wagner Publishing, Inc. 1988
|
||||
; All Rights Reserved
|
||||
;
|
||||
_SANEBootInit MAC
|
||||
Tool $10A
|
||||
<<<
|
||||
~SANEStartUp MAC
|
||||
PHW ]1
|
||||
_SANEStartUp MAC
|
||||
Tool $20A
|
||||
<<<
|
||||
_SANEShutDown MAC
|
||||
Tool $30A
|
||||
<<<
|
||||
~SANEVersion MAC
|
||||
PHA
|
||||
_SANEVersion MAC
|
||||
Tool $40A
|
||||
<<<
|
||||
_SANEReset MAC
|
||||
Tool $50A
|
||||
<<<
|
||||
~SANEStatus MAC
|
||||
PHA
|
||||
_SANEStatus MAC
|
||||
Tool $60A
|
||||
<<<
|
||||
_SANEFP816 MAC
|
||||
Tool $90A
|
||||
<<<
|
||||
_SANEDecStr816 MAC
|
||||
Tool $A0A
|
||||
<<<
|
||||
_SANEElems816 MAC
|
||||
Tool $B0A
|
||||
<<<
|
||||
~qSANEStartUp MAC
|
||||
NextDP ]1;$100
|
||||
Tool $20A
|
||||
<<<
|
||||
* Auxiliary macros
|
||||
|
||||
FOPRF MAC ;call FP
|
||||
PEA ]1
|
||||
_SANEFP816
|
||||
<<<
|
||||
FOPRD MAC ;call DecStr
|
||||
PEA ]1
|
||||
_SANEDecStr816
|
||||
<<<
|
||||
FOPRE MAC ;call Elems
|
||||
PEA ]1
|
||||
_SANEElems816
|
||||
<<<
|
||||
* Addition
|
||||
|
||||
FADDX MAC
|
||||
FOPRF 0
|
||||
<<<
|
||||
FADDD MAC
|
||||
FOPRF $100
|
||||
<<<
|
||||
FADDS MAC
|
||||
FOPRF $200
|
||||
<<<
|
||||
FADDC MAC
|
||||
FOPRF $500
|
||||
<<<
|
||||
FADDI MAC
|
||||
FOPRF $400
|
||||
<<<
|
||||
FADDL MAC
|
||||
FOPRF $300
|
||||
<<<
|
||||
* Subtraction
|
||||
|
||||
FSUBX MAC
|
||||
FOPRF $002
|
||||
<<<
|
||||
FSUBD MAC
|
||||
FOPRF $102
|
||||
<<<
|
||||
FSUBS MAC
|
||||
FOPRF $202
|
||||
<<<
|
||||
FSUBC MAC
|
||||
FOPRF $502
|
||||
<<<
|
||||
FSUBI MAC
|
||||
FOPRF $402
|
||||
<<<
|
||||
FSUBL MAC
|
||||
FOPRF $302
|
||||
<<<
|
||||
* Multiplication
|
||||
|
||||
FMULX MAC
|
||||
FOPRF $004
|
||||
<<<
|
||||
FMULD MAC
|
||||
FOPRF $104
|
||||
<<<
|
||||
FMULS MAC
|
||||
FOPRF $204
|
||||
<<<
|
||||
FMULC MAC
|
||||
FOPRF $504
|
||||
<<<
|
||||
FMULI MAC
|
||||
FOPRF $404
|
||||
<<<
|
||||
FMULL MAC
|
||||
FOPRF $304
|
||||
<<<
|
||||
* Division
|
||||
|
||||
FDIVX MAC
|
||||
FOPRF $006
|
||||
<<<
|
||||
FDIVD MAC
|
||||
FOPRF $106
|
||||
<<<
|
||||
FDIVS MAC
|
||||
FOPRF $206
|
||||
<<<
|
||||
FDIVC MAC
|
||||
FOPRF $506
|
||||
<<<
|
||||
FDIVI MAC
|
||||
FOPRF $406
|
||||
<<<
|
||||
FDIVL MAC
|
||||
FOPRF $306
|
||||
<<<
|
||||
* Square root
|
||||
|
||||
FSQRTX MAC
|
||||
FOPRF $12
|
||||
<<<
|
||||
|
||||
* Round to integer, according to the current rounding mode
|
||||
|
||||
FRINTX MAC
|
||||
FOPRF $14
|
||||
<<<
|
||||
|
||||
* Truncate to integer, using round toward zero.
|
||||
|
||||
FTINTX MAC
|
||||
FOPRF $16
|
||||
<<<
|
||||
* Remainder
|
||||
|
||||
FREMX MAC
|
||||
FOPRF $00C
|
||||
<<<
|
||||
FREMD MAC
|
||||
FOPRF $10C
|
||||
<<<
|
||||
FREMS MAC
|
||||
FOPRF $20C
|
||||
<<<
|
||||
FREMC MAC
|
||||
FOPRF $50C
|
||||
<<<
|
||||
FREMI MAC
|
||||
FOPRF $40C
|
||||
<<<
|
||||
FREML MAC
|
||||
FOPRF $30C
|
||||
<<<
|
||||
* Logb
|
||||
|
||||
FLOGBX MAC
|
||||
FOPRF $1A
|
||||
<<<
|
||||
* Scalb
|
||||
|
||||
FSCALBX MAC
|
||||
FOPRF $18
|
||||
<<<
|
||||
* Copy-sign
|
||||
|
||||
FCPYSGNX MAC
|
||||
FOPRF $011
|
||||
<<<
|
||||
FCPYSGND MAC
|
||||
FOPRF $111
|
||||
<<<
|
||||
FCPYSGNS MAC
|
||||
FOPRF $211
|
||||
<<<
|
||||
FCPYSGNC MAC
|
||||
FOPRF $511
|
||||
<<<
|
||||
FCPYSGNI MAC
|
||||
FOPRF $411
|
||||
<<<
|
||||
FCPYSGNL MAC
|
||||
FOPRF $311
|
||||
<<<
|
||||
* Negate
|
||||
|
||||
FNEGX MAC
|
||||
FOPRF $0D
|
||||
<<<
|
||||
|
||||
* Absolute value
|
||||
|
||||
FABSX MAC
|
||||
FOPRF $0F
|
||||
<<<
|
||||
|
||||
* Next-after. NOTE: both operands are of the
|
||||
* the same format, as specified by the usual suffix.
|
||||
|
||||
FNEXTS MAC
|
||||
FOPRF $21E
|
||||
<<<
|
||||
FNEXTD MAC
|
||||
FOPRF $11E
|
||||
<<<
|
||||
FNEXTX MAC
|
||||
FOPRF $01E
|
||||
<<<
|
||||
|
||||
* Conversion to extended
|
||||
|
||||
FX2X MAC
|
||||
FOPRF $00E
|
||||
<<<
|
||||
FD2X MAC
|
||||
FOPRF $10E
|
||||
<<<
|
||||
FS2X MAC
|
||||
FOPRF $20E
|
||||
<<<
|
||||
|
||||
* 16-bit integer, by address
|
||||
|
||||
FI2X MAC
|
||||
FOPRF $40E
|
||||
<<<
|
||||
|
||||
* 32-bit integer, by address
|
||||
|
||||
FL2X MAC
|
||||
FOPRF $30E
|
||||
<<<
|
||||
FC2X MAC
|
||||
FOPRF $50E
|
||||
<<<
|
||||
|
||||
* Conversion from extended
|
||||
|
||||
FX2D MAC
|
||||
FOPRF $110
|
||||
<<<
|
||||
FX2S MAC
|
||||
FOPRF $210
|
||||
<<<
|
||||
FX2I MAC
|
||||
FOPRF $410
|
||||
<<<
|
||||
FX2L MAC
|
||||
FOPRF $310
|
||||
<<<
|
||||
FX2C MAC
|
||||
FOPRF $510
|
||||
<<<
|
||||
|
||||
* Binary to decimal conversion
|
||||
|
||||
FX2DEC MAC
|
||||
FOPRF $00B
|
||||
<<<
|
||||
FD2DEC MAC
|
||||
FOPRF $10B
|
||||
<<<
|
||||
FS2DEC MAC
|
||||
FOPRF $20B
|
||||
<<<
|
||||
FC2DEC MAC
|
||||
FOPRF $50B
|
||||
<<<
|
||||
FI2DEC MAC
|
||||
FOPRF $40B
|
||||
<<<
|
||||
FL2DEC MAC
|
||||
FOPRF $30B
|
||||
<<<
|
||||
|
||||
* Decimal to binary conversion
|
||||
|
||||
FDEC2X MAC
|
||||
FOPRF $009
|
||||
<<<
|
||||
FDEC2D MAC
|
||||
FOPRF $109
|
||||
<<<
|
||||
FDEC2S MAC
|
||||
FOPRF $209
|
||||
<<<
|
||||
FDEC2C MAC
|
||||
FOPRF $509
|
||||
<<<
|
||||
FDEC2I MAC
|
||||
FOPRF $409
|
||||
<<<
|
||||
FDEC2L MAC
|
||||
FOPRF $309
|
||||
<<<
|
||||
|
||||
* Compare, not signaling invalid on unordered
|
||||
|
||||
FCMPX MAC
|
||||
FOPRF $008
|
||||
<<<
|
||||
FCMPD MAC
|
||||
FOPRF $108
|
||||
<<<
|
||||
FCMPS MAC
|
||||
FOPRF $208
|
||||
<<<
|
||||
FCMPC MAC
|
||||
FOPRF $508
|
||||
<<<
|
||||
FCMPI MAC
|
||||
FOPRF $408
|
||||
<<<
|
||||
FCMPL MAC
|
||||
FOPRF $308
|
||||
<<<
|
||||
|
||||
* Compare, signaling invalid on unordered
|
||||
|
||||
FCPXX MAC
|
||||
FOPRF $00A
|
||||
<<<
|
||||
FCPXD MAC
|
||||
FOPRF $10A
|
||||
<<<
|
||||
FCPXS MAC
|
||||
FOPRF $20A
|
||||
<<<
|
||||
FCPXC MAC
|
||||
FOPRF $50A
|
||||
<<<
|
||||
FCPXI MAC
|
||||
FOPRF $40A
|
||||
<<<
|
||||
FCPXL MAC
|
||||
FOPRF $30A
|
||||
<<<
|
||||
|
||||
* The following macros define a set of so-called floating
|
||||
* branches. They presume that the appropriate compare
|
||||
* operation, macro FCMPz or FCPXz, precedes.
|
||||
|
||||
FBEQ MAC
|
||||
BEQ ]1
|
||||
<<<
|
||||
FBLT MAC ;less
|
||||
BMI ]1
|
||||
<<<
|
||||
FBLE MAC ;less or equal
|
||||
BMI ]1
|
||||
BEQ ]1
|
||||
<<<
|
||||
FBGT MAC ;greater
|
||||
BVS ]1
|
||||
<<<
|
||||
FBGE MAC ;greater or equal
|
||||
BVS ]1
|
||||
BEQ ]1
|
||||
<<<
|
||||
FBULT MAC ;less or unordered
|
||||
BMI ]1
|
||||
BVS *+4
|
||||
BNE ]1
|
||||
<<<
|
||||
FBULE MAC ;unordered, less, or equal
|
||||
BMI ]1
|
||||
BEQ ]1
|
||||
BVC ]1
|
||||
<<<
|
||||
FBUGT MAC ;unordered or greater
|
||||
BVS ]1
|
||||
BMI *+4
|
||||
BNE ]1
|
||||
<<<
|
||||
FBUGE MAC ;unordered, greater, or equal
|
||||
BVS ]1
|
||||
BEQ ]1
|
||||
BPL ]1
|
||||
<<<
|
||||
FBU MAC ;unordered
|
||||
BVS *+6
|
||||
BMI *+4
|
||||
BNE ]1
|
||||
<<<
|
||||
FBO MAC ;ordered
|
||||
BMI ]1
|
||||
BVS ]1
|
||||
BEQ ]1
|
||||
<<<
|
||||
FBNE MAC ;not equal
|
||||
BMI ]1
|
||||
BVS ]1
|
||||
BNE ]1
|
||||
<<<
|
||||
FBUE MAC ;unordered, equal
|
||||
BEQ ]1
|
||||
BMI *+4
|
||||
BVC ]1
|
||||
<<<
|
||||
FBLG MAC ;less or greater
|
||||
BMI ]1
|
||||
BVS ]1
|
||||
<<<
|
||||
|
||||
FCLASSS MAC
|
||||
FOPRF $21C
|
||||
<<<
|
||||
FCLASSD MAC
|
||||
FOPRF $11C
|
||||
<<<
|
||||
FCLASSX MAC
|
||||
FOPRF $01C
|
||||
<<<
|
||||
FCLASSC MAC
|
||||
FOPRF $51C
|
||||
<<<
|
||||
FCLASSI MAC
|
||||
FOPRF $41C
|
||||
<<<
|
||||
FCLASSL MAC
|
||||
FOPRF $31C
|
||||
<<<
|
||||
|
||||
* The following macros provide branches based on the
|
||||
* the result of a FCLASSz macro.
|
||||
|
||||
FBSNAN MAC ;signaling NaN
|
||||
TXA
|
||||
ASL
|
||||
CMP #2*$FC
|
||||
BEQ ]1
|
||||
<<<
|
||||
FBQNAN MAC ;quiet NaN
|
||||
TXA
|
||||
ASL
|
||||
CMP #2*$FD
|
||||
BEQ ]1
|
||||
<<<
|
||||
FBINF MAC ;infinite
|
||||
TXA
|
||||
ASL
|
||||
CMP #2*$FE
|
||||
BEQ ]1
|
||||
<<<
|
||||
FBZERO MAC ;zero
|
||||
TXA
|
||||
ASL
|
||||
CMP #2*$FF
|
||||
BEQ ]1
|
||||
<<<
|
||||
FBNORM MAC ;normal
|
||||
TXA
|
||||
ASL
|
||||
BEQ ]1
|
||||
<<<
|
||||
FBDENORM MAC ;denormal
|
||||
TXA
|
||||
ASL
|
||||
CMP #2*1
|
||||
BEQ ]1
|
||||
<<<
|
||||
FBNZENUM MAC ;non-zero num (norm or denorm)
|
||||
TXA
|
||||
XBA
|
||||
ASL
|
||||
BCC ]1
|
||||
<<<
|
||||
FBNUM MAC ;number (zero, norm or denorm)
|
||||
TXA
|
||||
INC A
|
||||
XBA
|
||||
ASL
|
||||
BCC ]1
|
||||
<<<
|
||||
FBMINUS MAC ;minus sign
|
||||
BMI ]1
|
||||
<<<
|
||||
FBPLUS MAC ;plus sign
|
||||
BPL ]1
|
||||
<<<
|
||||
|
||||
* Get and set environment
|
||||
|
||||
FGETENV MAC
|
||||
FOPRF $03
|
||||
<<<
|
||||
FSETENV MAC
|
||||
FOPRF $01
|
||||
<<<
|
||||
|
||||
* Test and set exception
|
||||
|
||||
FTESTXCP MAC
|
||||
FOPRF $1B
|
||||
<<<
|
||||
FSETXCP MAC
|
||||
FOPRF $15
|
||||
<<<
|
||||
|
||||
* Procedure entry and exit
|
||||
|
||||
FPROCENTRY MAC
|
||||
FOPRF $17
|
||||
<<<
|
||||
FPROCEXIT MAC
|
||||
FOPRF $19
|
||||
<<<
|
||||
|
||||
* Get and set halt vector
|
||||
|
||||
FGETHV MAC
|
||||
FOPRF $07
|
||||
<<<
|
||||
FSETHV MAC
|
||||
FOPRF $05
|
||||
<<<
|
||||
|
||||
* Elementary function macros
|
||||
|
||||
FLNX MAC ;natural (base-e) log
|
||||
FOPRE $00
|
||||
<<<
|
||||
FLOG2X MAC ;base-2 log
|
||||
FOPRE $02
|
||||
<<<
|
||||
FLN1X MAC ;ln (1 + x)
|
||||
FOPRE $04
|
||||
<<<
|
||||
FLOG21X MAC ;log2 (1 +x)
|
||||
FOPRE $06
|
||||
<<<
|
||||
FEXPX MAC ;base-e exponential
|
||||
FOPRE $08
|
||||
<<<
|
||||
FEXP2X MAC ;base-2 exponential
|
||||
FOPRE $0A
|
||||
<<<
|
||||
FEXP1X MAC ;exp (x) - 1
|
||||
FOPRE $0C
|
||||
<<<
|
||||
FEXP21X MAC ;exp2 (x) - 1
|
||||
FOPRE $0E
|
||||
<<<
|
||||
FXPWRI MAC ;integer exponential
|
||||
FOPRE $10
|
||||
<<<
|
||||
FXPWRY MAC ;general exponential
|
||||
FOPRE $12
|
||||
<<<
|
||||
FCOMPOUND MAC ;compound
|
||||
FOPRE $14
|
||||
<<<
|
||||
FANNUITY MAC ;annuity
|
||||
FOPRE $16
|
||||
<<<
|
||||
FATANX MAC ;arctangent
|
||||
FOPRE $18
|
||||
<<<
|
||||
FSINX MAC ;sine
|
||||
FOPRE $1A
|
||||
<<<
|
||||
FCOSX MAC ;cosine
|
||||
FOPRE $1C
|
||||
<<<
|
||||
FTANX MAC ;tangent
|
||||
FOPRE $1E
|
||||
<<<
|
||||
FRANDX MAC ;random number generator
|
||||
FOPRE $20
|
||||
<<<
|
||||
|
||||
* Scanner and formatter function macros
|
||||
|
||||
FPSTR2DEC MAC ;pascal string to decimal record
|
||||
FOPRD 0
|
||||
<<<
|
||||
FDEC2STR MAC ;decimal record to pascal string
|
||||
FOPRD 1
|
||||
<<<
|
||||
FCSTR2DEC MAC ;C string to decimal record
|
||||
FOPRD 2
|
||||
<<<
|
||||
|
||||
Reference in New Issue
Block a user