Amiga-Request@cs.odu.edu (Amiga Sources/Binaries Moderator) (04/15/90)
Submitted-by: rusty@fe2o3.UUCP (Rusty Haddock)
Posting-number: Volume 90, Issue 144
Archive-name: applications/xscheme-0.20/part06
#!/bin/sh
# This is a shell archive. Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file". To overwrite existing
# files, type "sh file -c". You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g.. If this archive is complete, you
# will see the following message at the end:
# "End of archive 6 (of 7)."
# Contents: Src/xsmath881.s
# Wrapped by tadguy@xanth on Sat Apr 14 17:07:30 1990
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'Src/xsmath881.s' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Src/xsmath881.s'\"
else
echo shar: Extracting \"'Src/xsmath881.s'\" \(36236 characters\)
sed "s/^X//" >'Src/xsmath881.s' <<'END_OF_FILE'
X;:ts=8
X far code
X far data
X mc68881
X public _xexactp
X_xexactp:
X link a5,#.2
X movem.l .3,-(sp)
X fmovem.x .4,-(sp)
X tst.l _xlargc
X ble .5
X move.l _xlsp,a0
X tst.l (a0)
X beq .8
X move.l _xlsp,a0
X btst.b #0,3(a0)
X beq .9
X move.l #3,d0
X bra .10
X.9
X move.l _xlsp,a0
X move.l (a0),a1
X move.b (a1),d0
X ext.w d0
X ext.l d0
X.10
X cmp.l #3,d0
X beq .7
X.8
X move.l _xlsp,a0
X btst.b #0,3(a0)
X beq .11
X move.l #3,d0
X bra .12
X.11
X move.l _xlsp,a0
X move.l (a0),a1
X move.b (a1),d0
X ext.w d0
X ext.l d0
X.12
X cmp.l #4,d0
X bne .6
X.7
X sub.l #1,_xlargc
X move.l _xlsp,a0
X add.l #4,_xlsp
X move.l (a0),d0
X bra .13
X.6
X move.l _xlsp,a0
X move.l (a0),-(sp)
X jsr _xlbadtype
X add.w #4,sp
X.13
X bra .14
X.5
X jsr _xltoofew
X.14
X move.l d0,-4(a5)
X tst.l _xlargc
X beq .15
X jsr _xltoomany
X.15
X move.l #0,d0
X.16
X fmovem.x (sp)+,.4
X movem.l (sp)+,.3
X unlk a5
X rts
X.2 equ -4
X.3 reg d2/d3/a6
X.4 freg
X public _xinexactp
X_xinexactp:
X link a5,#.17
X movem.l .18,-(sp)
X fmovem.x .19,-(sp)
X tst.l _xlargc
X ble .20
X move.l _xlsp,a0
X tst.l (a0)
X beq .23
X move.l _xlsp,a0
X btst.b #0,3(a0)
X beq .24
X move.l #3,d0
X bra .25
X.24
X move.l _xlsp,a0
X move.l (a0),a1
X move.b (a1),d0
X ext.w d0
X ext.l d0
X.25
X cmp.l #3,d0
X beq .22
X.23
X move.l _xlsp,a0
X btst.b #0,3(a0)
X beq .26
X move.l #3,d0
X bra .27
X.26
X move.l _xlsp,a0
X move.l (a0),a1
X move.b (a1),d0
X ext.w d0
X ext.l d0
X.27
X cmp.l #4,d0
X bne .21
X.22
X sub.l #1,_xlargc
X move.l _xlsp,a0
X add.l #4,_xlsp
X move.l (a0),d0
X bra .28
X.21
X move.l _xlsp,a0
X move.l (a0),-(sp)
X jsr _xlbadtype
X add.w #4,sp
X.28
X bra .29
X.20
X jsr _xltoofew
X.29
X move.l d0,-4(a5)
X tst.l _xlargc
X beq .30
X jsr _xltoomany
X.30
X move.l _true,d0
X.31
X fmovem.x (sp)+,.19
X movem.l (sp)+,.18
X unlk a5
X rts
X.17 equ -4
X.18 reg d2/d3/a6
X.19 freg
X public _xatan
X_xatan:
X link a5,#.32
X movem.l .33,-(sp)
X fmovem.x .34,-(sp)
X tst.l _xlargc
X ble .35
X move.l _xlsp,a0
X tst.l (a0)
X beq .38
X move.l _xlsp,a0
X btst.b #0,3(a0)
X beq .39
X move.l #3,d0
X bra .40
X.39
X move.l _xlsp,a0
X move.l (a0),a1
X move.b (a1),d0
X ext.w d0
X ext.l d0
X.40
X cmp.l #3,d0
X beq .37
X.38
X move.l _xlsp,a0
X btst.b #0,3(a0)
X beq .41
X move.l #3,d0
X bra .42
X.41
X move.l _xlsp,a0
X move.l (a0),a1
X move.b (a1),d0
X ext.w d0
X ext.l d0
X.42
X cmp.l #4,d0
X bne .36
X.37
X sub.l #1,_xlargc
X move.l _xlsp,a0
X add.l #4,_xlsp
X move.l (a0),d0
X bra .43
X.36
X move.l _xlsp,a0
X move.l (a0),-(sp)
X jsr _xlbadtype
X add.w #4,sp
X.43
X bra .44
X.35
X jsr _xltoofew
X.44
X move.l d0,-4(a5)
X tst.l _xlargc
X ble .45
X tst.l _xlargc
X ble .46
X move.l _xlsp,a0
X tst.l (a0)
X beq .49
X move.l _xlsp,a0
X btst.b #0,3(a0)
X beq .50
X move.l #3,d0
X bra .51
X.50
X move.l _xlsp,a0
X move.l (a0),a1
X move.b (a1),d0
X ext.w d0
X ext.l d0
X.51
X cmp.l #3,d0
X beq .48
X.49
X move.l _xlsp,a0
X btst.b #0,3(a0)
X beq .52
X move.l #3,d0
X bra .53
X.52
X move.l _xlsp,a0
X move.l (a0),a1
X move.b (a1),d0
X ext.w d0
X ext.l d0
X.53
X cmp.l #4,d0
X bne .47
X.48
X sub.l #1,_xlargc
X move.l _xlsp,a0
X add.l #4,_xlsp
X move.l (a0),d0
X bra .54
X.47
X move.l _xlsp,a0
X move.l (a0),-(sp)
X jsr _xlbadtype
X add.w #4,sp
X.54
X bra .55
X.46
X jsr _xltoofew
X.55
X move.l d0,-8(a5)
X tst.l _xlargc
X beq .56
X jsr _xltoomany
X.56
X move.l -8(a5),-(sp)
X jsr _toflotype
X add.w #4,sp
X fmove.d fp0,-(sp)
X move.l -4(a5),-(sp)
X jsr _toflotype
X add.w #4,sp
X fmove.d fp0,-(sp)
X jsr _atan2
X lea 16(sp),sp
X fmove.d fp0,-16(a5)
X bra .57
X.45
X move.l -4(a5),-(sp)
X jsr _toflotype
X add.w #4,sp
X fatan.x fp0
X fmove.d fp0,-16(a5)
X.57
X fmove.d -16(a5),fp0
X fmove.d fp0,-(sp)
X jsr _cvflonum
X add.w #8,sp
X.58
X fmovem.x (sp)+,.34
X movem.l (sp)+,.33
X unlk a5
X rts
X.32 equ -16
X.33 reg d2/d3/a6
X.34 freg
X public _xfloor
X_xfloor:
X link a5,#.59
X movem.l .60,-(sp)
X fmovem.x .61,-(sp)
X tst.l _xlargc
X ble .62
X sub.l #1,_xlargc
X move.l _xlsp,a0
X add.l #4,_xlsp
X move.l (a0),d0
X bra .63
X.62
X jsr _xltoofew
X.63
X move.l d0,-4(a5)
X tst.l _xlargc
X beq .64
X jsr _xltoomany
X.64
X tst.l -4(a5)
X beq .65
X btst.b #0,-1(a5)
X beq .66
X move.l #3,d0
X bra .67
X.66
X move.l -4(a5),a0
X move.b (a0),d0
X ext.w d0
X ext.l d0
X.67
X cmp.l #3,d0
X bne .65
X move.l -4(a5),d0
X.68
X fmovem.x (sp)+,.61
X movem.l (sp)+,.60
X unlk a5
X rts
X.65
X tst.l -4(a5)
X beq .69
X btst.b #0,-1(a5)
X beq .70
X move.l #3,d0
X bra .71
X.70
X move.l -4(a5),a0
X move.b (a0),d0
X ext.w d0
X ext.l d0
X.71
X cmp.l #4,d0
X bne .69
X move.l -4(a5),a0
X fmove.d 2(a0),fp0
X fmove.d fp0,-(sp)
X jsr _floor
X add.w #8,sp
X fintrz fp0
X fmove.l fp0,d0
X move.l d0,-(sp)
X jsr _cvfixnum
X add.w #4,sp
X bra .68
X.69
X move.l -4(a5),-(sp)
X jsr _xlbadtype
X add.w #4,sp
X bra .68
X.59 equ -4
X.60 reg d2/d3/a6
X.61 freg
X public _xceiling
X_xceiling:
X link a5,#.72
X movem.l .73,-(sp)
X fmovem.x .74,-(sp)
X tst.l _xlargc
X ble .75
X sub.l #1,_xlargc
X move.l _xlsp,a0
X add.l #4,_xlsp
X move.l (a0),d0
X bra .76
X.75
X jsr _xltoofew
X.76
X move.l d0,-4(a5)
X tst.l _xlargc
X beq .77
X jsr _xltoomany
X.77
X tst.l -4(a5)
X beq .78
X btst.b #0,-1(a5)
X beq .79
X move.l #3,d0
X bra .80
X.79
X move.l -4(a5),a0
X move.b (a0),d0
X ext.w d0
X ext.l d0
X.80
X cmp.l #3,d0
X bne .78
X move.l -4(a5),d0
X.81
X fmovem.x (sp)+,.74
X movem.l (sp)+,.73
X unlk a5
X rts
X.78
X tst.l -4(a5)
X beq .82
X btst.b #0,-1(a5)
X beq .83
X move.l #3,d0
X bra .84
X.83
X move.l -4(a5),a0
X move.b (a0),d0
X ext.w d0
X ext.l d0
X.84
X cmp.l #4,d0
X bne .82
X move.l -4(a5),a0
X fmove.d 2(a0),fp0
X fmove.d fp0,-(sp)
X jsr _ceil
X add.w #8,sp
X fintrz fp0
X fmove.l fp0,d0
X move.l d0,-(sp)
X jsr _cvfixnum
X add.w #4,sp
X bra .81
X.82
X move.l -4(a5),-(sp)
X jsr _xlbadtype
X add.w #4,sp
X bra .81
X.72 equ -4
X.73 reg d2/d3/a6
X.74 freg
X public _xround
X_xround:
X link a5,#.85
X movem.l .86,-(sp)
X fmovem.x .87,-(sp)
X tst.l _xlargc
X ble .88
X sub.l #1,_xlargc
X move.l _xlsp,a0
X add.l #4,_xlsp
X move.l (a0),d0
X bra .89
X.88
X jsr _xltoofew
X.89
X move.l d0,-28(a5)
X tst.l _xlargc
X beq .90
X jsr _xltoomany
X.90
X tst.l -28(a5)
X beq .91
X btst.b #0,-25(a5)
X beq .92
X move.l #3,d0
X bra .93
X.92
X move.l -28(a5),a0
X move.b (a0),d0
X ext.w d0
X ext.l d0
X.93
X cmp.l #3,d0
X bne .91
X move.l -28(a5),d0
X.94
X fmovem.x (sp)+,.87
X movem.l (sp)+,.86
X unlk a5
X rts
X.91
X tst.l -28(a5)
X beq .95
X btst.b #0,-25(a5)
X beq .96
X move.l #3,d0
X bra .97
X.96
X move.l -28(a5),a0
X move.b (a0),d0
X ext.w d0
X ext.l d0
X.97
X cmp.l #4,d0
X bne .95
X move.l -28(a5),a0
X fmove.d 2(a0),fp0
X fmove.d fp0,-8(a5)
X fmove.d -8(a5),fp0
X fmove.d fp0,-(sp)
X jsr _floor
X add.w #8,sp
X fmove.d fp0,-16(a5)
X fmove.d -8(a5),fp0
X fsub.d -16(a5),fp0
X fmove.d fp0,-24(a5)
X fmove.d -24(a5),fp0
X fcmp.d #"$3fe0000000000000",fp0
X fbne .98
X fmove.d -16(a5),fp0
X fintrz fp0
X fmove.l fp0,d0
X and.l #1,d0
X cmp.l #1,d0
X bne .99
X fmove.d -16(a5),fp0
X fadd.d #"$3ff0000000000000",fp0
X fmove.d fp0,-16(a5)
X.99
X fmove.d -16(a5),fp0
X fintrz fp0
X fmove.l fp0,d0
X move.l d0,-(sp)
X jsr _cvfixnum
X add.w #4,sp
X bra .94
X.98
X fmove.d -24(a5),fp0
X fcmp.d #"$3fe0000000000000",fp0
X fbge .100
X fmove.d -16(a5),fp0
X fintrz fp0
X fmove.l fp0,d0
X move.l d0,-(sp)
X jsr _cvfixnum
X add.w #4,sp
X bra .94
X.100
X fmove.d -16(a5),fp0
X fadd.d #"$3ff0000000000000",fp0
X fintrz fp0
X fmove.l fp0,d0
X move.l d0,-(sp)
X jsr _cvfixnum
X add.w #4,sp
X bra .94
X.95
X move.l -28(a5),-(sp)
X jsr _xlbadtype
X add.w #4,sp
X bra .94
X.85 equ -28
X.86 reg d2/d3/a6
X.87 freg
X public _xtruncate
X_xtruncate:
X link a5,#.101
X movem.l .102,-(sp)
X fmovem.x .103,-(sp)
X tst.l _xlargc
X ble .104
X sub.l #1,_xlargc
X move.l _xlsp,a0
X add.l #4,_xlsp
X move.l (a0),d0
X bra .105
X.104
X jsr _xltoofew
X.105
X move.l d0,-4(a5)
X tst.l _xlargc
X beq .106
X jsr _xltoomany
X.106
X tst.l -4(a5)
X beq .107
X btst.b #0,-1(a5)
X beq .108
X move.l #3,d0
X bra .109
X.108
X move.l -4(a5),a0
X move.b (a0),d0
X ext.w d0
X ext.l d0
X.109
X cmp.l #3,d0
X bne .107
X move.l -4(a5),d0
X.110
X fmovem.x (sp)+,.103
X movem.l (sp)+,.102
X unlk a5
X rts
X.107
X tst.l -4(a5)
X beq .111
X btst.b #0,-1(a5)
X beq .112
X move.l #3,d0
X bra .113
X.112
X move.l -4(a5),a0
X move.b (a0),d0
X ext.w d0
X ext.l d0
X.113
X cmp.l #4,d0
X bne .111
X move.l -4(a5),a0
X fmove.d 2(a0),fp0
X fintrz fp0
X fmove.l fp0,d0
X move.l d0,-(sp)
X jsr _cvfixnum
X add.w #4,sp
X bra .110
X.111
X move.l -4(a5),-(sp)
X jsr _xlbadtype
X add.w #4,sp
X bra .110
X.101 equ -4
X.102 reg d2/d3/a6
X.103 freg
X public _xadd
X_xadd:
X link a5,#.114
X movem.l .115,-(sp)
X fmovem.x .116,-(sp)
X tst.l _xlargc
X bgt .117
X clr.l -(sp)
X jsr _cvfixnum
X add.w #4,sp
X.118
X fmovem.x (sp)+,.116
X movem.l (sp)+,.115
X unlk a5
X rts
X.117
X pea 43
X jsr _binary
X add.w #4,sp
X bra .118
X.114 equ 0
X.115 reg d2/d3/a6
X.116 freg
X public _xmul
X_xmul:
X link a5,#.119
X movem.l .120,-(sp)
X fmovem.x .121,-(sp)
X tst.l _xlargc
X bgt .122
X pea 1
X jsr _cvfixnum
X add.w #4,sp
X.123
X fmovem.x (sp)+,.121
X movem.l (sp)+,.120
X unlk a5
X rts
X.122
X pea 42
X jsr _binary
X add.w #4,sp
X bra .123
X.119 equ 0
X.120 reg d2/d3/a6
X.121 freg
X public _xsub
X_xsub:
X link a5,#.124
X movem.l .125,-(sp)
X fmovem.x .126,-(sp)
X pea 45
X jsr _binary
X add.w #4,sp
X.127
X fmovem.x (sp)+,.126
X movem.l (sp)+,.125
X unlk a5
X rts
X.124 equ 0
X.125 reg d2/d3/a6
X.126 freg
X public _xdiv
X_xdiv:
X link a5,#.128
X movem.l .129,-(sp)
X fmovem.x .130,-(sp)
X pea 47
X jsr _binary
X add.w #4,sp
X.131
X fmovem.x (sp)+,.130
X movem.l (sp)+,.129
X unlk a5
X rts
X.128 equ 0
X.129 reg d2/d3/a6
X.130 freg
X public _xquo
X_xquo:
X link a5,#.132
X movem.l .133,-(sp)
X fmovem.x .134,-(sp)
X pea 81
X jsr _binary
X add.w #4,sp
X.135
X fmovem.x (sp)+,.134
X movem.l (sp)+,.133
X unlk a5
X rts
X.132 equ 0
X.133 reg d2/d3/a6
X.134 freg
X public _xrem
X_xrem:
X link a5,#.136
X movem.l .137,-(sp)
X fmovem.x .138,-(sp)
X pea 82
X jsr _binary
X add.w #4,sp
X.139
X fmovem.x (sp)+,.138
X movem.l (sp)+,.137
X unlk a5
X rts
X.136 equ 0
X.137 reg d2/d3/a6
X.138 freg
X public _xmin
X_xmin:
X link a5,#.140
X movem.l .141,-(sp)
X fmovem.x .142,-(sp)
X pea 109
X jsr _binary
X add.w #4,sp
X.143
X fmovem.x (sp)+,.142
X movem.l (sp)+,.141
X unlk a5
X rts
X.140 equ 0
X.141 reg d2/d3/a6
X.142 freg
X public _xmax
X_xmax:
X link a5,#.144
X movem.l .145,-(sp)
X fmovem.x .146,-(sp)
X pea 77
X jsr _binary
X add.w #4,sp
X.147
X fmovem.x (sp)+,.146
X movem.l (sp)+,.145
X unlk a5
X rts
X.144 equ 0
X.145 reg d2/d3/a6
X.146 freg
X public _xexpt
X_xexpt:
X link a5,#.148
X movem.l .149,-(sp)
X fmovem.x .150,-(sp)
X pea 69
X jsr _binary
X add.w #4,sp
X.151
X fmovem.x (sp)+,.150
X movem.l (sp)+,.149
X unlk a5
X rts
X.148 equ 0
X.149 reg d2/d3/a6
X.150 freg
X public _xlogand
X_xlogand:
X link a5,#.152
X movem.l .153,-(sp)
X fmovem.x .154,-(sp)
X pea 38
X jsr _binary
X add.w #4,sp
X.155
X fmovem.x (sp)+,.154
X movem.l (sp)+,.153
X unlk a5
X rts
X.152 equ 0
X.153 reg d2/d3/a6
X.154 freg
X public _xlogior
X_xlogior:
X link a5,#.156
X movem.l .157,-(sp)
X fmovem.x .158,-(sp)
X pea 124
X jsr _binary
X add.w #4,sp
X.159
X fmovem.x (sp)+,.158
X movem.l (sp)+,.157
X unlk a5
X rts
X.156 equ 0
X.157 reg d2/d3/a6
X.158 freg
X public _xlogxor
X_xlogxor:
X link a5,#.160
X movem.l .161,-(sp)
X fmovem.x .162,-(sp)
X pea 94
X jsr _binary
X add.w #4,sp
X.163
X fmovem.x (sp)+,.162
X movem.l (sp)+,.161
X unlk a5
X rts
X.160 equ 0
X.161 reg d2/d3/a6
X.162 freg
X_binary:
X link a5,#.164
X movem.l .165,-(sp)
X fmovem.x .166,-(sp)
X tst.l _xlargc
X ble .167
X sub.l #1,_xlargc
X move.l _xlsp,a0
X add.l #4,_xlsp
X move.l (a0),d0
X bra .168
X.167
X jsr _xltoofew
X.168
X move.l d0,-28(a5)
X tst.l -28(a5)
X beq .169
X btst.b #0,-25(a5)
X beq .170
X move.l #3,d0
X bra .171
X.170
X move.l -28(a5),a0
X move.b (a0),d0
X ext.w d0
X ext.l d0
X.171
X cmp.l #3,d0
X bne .169
X btst.b #0,-25(a5)
X beq .172
X move.l -28(a5),d0
X asr.l #1,d0
X bra .173
X.172
X move.l -28(a5),a0
X move.l 2(a0),d0
X.173
X move.l d0,-4(a5)
X move.l #73,-32(a5)
X bra .174
X.169
X tst.l -28(a5)
X beq .175
X btst.b #0,-25(a5)
X beq .176
X move.l #3,d0
X bra .177
X.176
X move.l -28(a5),a0
X move.b (a0),d0
X ext.w d0
X ext.l d0
X.177
X cmp.l #4,d0
X bne .175
X move.l -28(a5),a0
X fmove.d 2(a0),fp0
X fmove.d fp0,-16(a5)
X move.l #70,-32(a5)
X bra .178
X.175
X move.l -28(a5),-(sp)
X jsr _xlbadtype
X add.w #4,sp
X.178
X.174
X tst.l _xlargc
X bgt .179
X move.l 8(a5),d0
X bra .180
X.182
X move.l -32(a5),d0
X bra .183
X.185
X neg.l -4(a5)
X bra .184
X.186
X fneg.d -16(a5),fp0
X fmove.d fp0,-16(a5)
X bra .184
X.183
X sub.l #70,d0
X beq .186
X sub.l #3,d0
X beq .185
X.184
X bra .181
X.187
X move.l -32(a5),d0
X bra .188
X.190
X move.l -4(a5),-(sp)
X jsr _checkizero
X add.w #4,sp
X cmp.l #1,-4(a5)
X beq .191
X fmove.d #"$3ff0000000000000",fp0
X fdiv.l -4(a5),fp0
X fmove.d fp0,-16(a5)
X move.l #70,-32(a5)
X.191
X bra .189
X.192
X fmove.d -16(a5),fp0
X fmove.d fp0,-(sp)
X jsr _checkfzero
X add.w #8,sp
X fmove.d #"$3ff0000000000000",fp0
X fdiv.d -16(a5),fp0
X fmove.d fp0,-16(a5)
X bra .189
X.188
X sub.l #70,d0
X beq .192
X sub.l #3,d0
X beq .190
X.189
X bra .181
X.180
X sub.l #45,d0
X beq .182
X sub.l #2,d0
X beq .187
X.181
X.179
X.193
X tst.l _xlargc
X ble .194
X tst.l _xlargc
X ble .195
X sub.l #1,_xlargc
X move.l _xlsp,a0
X add.l #4,_xlsp
X move.l (a0),d0
X bra .196
X.195
X jsr _xltoofew
X.196
X move.l d0,-28(a5)
X tst.l -28(a5)
X beq .197
X btst.b #0,-25(a5)
X beq .198
X move.l #3,d0
X bra .199
X.198
X move.l -28(a5),a0
X move.b (a0),d0
X ext.w d0
X ext.l d0
X.199
X cmp.l #3,d0
X bne .197
X move.l -32(a5),d0
X bra .200
X.202
X btst.b #0,-25(a5)
X beq .203
X move.l -28(a5),d0
X asr.l #1,d0
X bra .204
X.203
X move.l -28(a5),a0
X move.l 2(a0),d0
X.204
X move.l d0,-8(a5)
X bra .201
X.205
X btst.b #0,-25(a5)
X beq .206
X move.l -28(a5),d0
X asr.l #1,d0
X bra .207
X.206
X move.l -28(a5),a0
X move.l 2(a0),d0
X.207
X fmove.l d0,fp0
X fmove.d fp0,-24(a5)
X bra .201
X.200
X sub.l #70,d0
X beq .205
X sub.l #3,d0
X beq .202
X.201
X bra .208
X.197
X tst.l -28(a5)
X beq .209
X btst.b #0,-25(a5)
X beq .210
X move.l #3,d0
X bra .211
X.210
X move.l -28(a5),a0
X move.b (a0),d0
X ext.w d0
X ext.l d0
X.211
X cmp.l #4,d0
X bne .209
X move.l -32(a5),d0
X bra .212
X.214
X fmove.l -4(a5),fp0
X fmove.d fp0,-16(a5)
X move.l -28(a5),a0
X fmove.d 2(a0),fp0
X fmove.d fp0,-24(a5)
X move.l #70,-32(a5)
X bra .213
X.215
X move.l -28(a5),a0
X fmove.d 2(a0),fp0
X fmove.d fp0,-24(a5)
X bra .213
X.212
X sub.l #70,d0
X beq .215
X sub.l #3,d0
X beq .214
X.213
X bra .216
X.209
X move.l -28(a5),-(sp)
X jsr _xlbadtype
X add.w #4,sp
X.216
X.208
X move.l -32(a5),d0
X bra .217
X.219
X move.l 8(a5),d0
X bra .220
X.222
X move.l -8(a5),d0
X add.l d0,-4(a5)
X bra .221
X.223
X move.l -8(a5),d0
X sub.l d0,-4(a5)
X bra .221
X.224
X move.l -8(a5),d1
X move.l -4(a5),d0
X jsr .mulu#
X move.l d0,-4(a5)
X bra .221
X.225
X move.l -8(a5),-(sp)
X jsr _checkizero
X add.w #4,sp
X move.l -8(a5),d1
X move.l -4(a5),d0
X jsr .mods#
X bne .226
X move.l -8(a5),d1
X move.l -4(a5),d0
X jsr .divs#
X move.l d0,-4(a5)
X bra .227
X.226
X fmove.l -4(a5),fp0
X fmove.d fp0,-16(a5)
X fmove.l -8(a5),fp0
X fmove.d fp0,-24(a5)
X fmove.d -16(a5),fp0
X fdiv.d -24(a5),fp0
X fmove.d fp0,-16(a5)
X move.l #70,-32(a5)
X.227
X bra .221
X.228
X move.l -8(a5),-(sp)
X jsr _checkizero
X add.w #4,sp
X move.l -8(a5),d1
X move.l -4(a5),d0
X jsr .divs#
X move.l d0,-4(a5)
X bra .221
X.229
X move.l -8(a5),-(sp)
X jsr _checkizero
X add.w #4,sp
X move.l -8(a5),d1
X move.l -4(a5),d0
X jsr .mods#
X move.l d0,-4(a5)
X bra .221
X.230
X move.l -8(a5),d0
X cmp.l -4(a5),d0
X ble .231
X move.l -8(a5),-4(a5)
X.231
X bra .221
X.232
X move.l -8(a5),d0
X cmp.l -4(a5),d0
X bge .233
X move.l -8(a5),-4(a5)
X.233
X bra .221
X.234
X fmove.l -8(a5),fp0
X fmove.d fp0,-(sp)
X fmove.l -4(a5),fp0
X fmove.d fp0,-(sp)
X jsr _pow
X lea 16(sp),sp
X fmove.d fp0,-(sp)
X jsr _cvflonum
X add.w #8,sp
X.235
X fmovem.x (sp)+,.166
X movem.l (sp)+,.165
X unlk a5
X rts
X.236
X move.l -8(a5),d0
X and.l d0,-4(a5)
X bra .221
X.237
X move.l -8(a5),d0
X or.l d0,-4(a5)
X bra .221
X.238
X move.l -8(a5),d0
X eor.l d0,-4(a5)
X bra .221
X.239
X jsr _badiop
X bra .221
X.240
X.220
X sub.l #38,d0
X beq .236
X sub.l #4,d0
X beq .224
X sub.l #1,d0
X beq .222
X sub.l #2,d0
X beq .223
X sub.l #2,d0
X beq .225
X sub.l #22,d0
X beq .234
X sub.l #8,d0
X beq .230
X sub.l #4,d0
X beq .228
X sub.l #1,d0
X beq .229
X sub.l #12,d0
X beq .238
X sub.l #15,d0
X beq .232
X sub.l #15,d0
X beq .237
X bra .239
X.221
X bra .218
X.242
X move.l 8(a5),d0
X bra .243
X.245
X fmove.d -16(a5),fp0
X fadd.d -24(a5),fp0
X fmove.d fp0,-16(a5)
X bra .244
X.246
X fmove.d -16(a5),fp0
X fsub.d -24(a5),fp0
X fmove.d fp0,-16(a5)
X bra .244
X.247
X fmove.d -16(a5),fp0
X fmul.d -24(a5),fp0
X fmove.d fp0,-16(a5)
X bra .244
X.248
X fmove.d -24(a5),fp0
X fmove.d fp0,-(sp)
X jsr _checkfzero
X add.w #8,sp
X fmove.d -16(a5),fp0
X fdiv.d -24(a5),fp0
X fmove.d fp0,-16(a5)
X bra .244
X.249
X fmove.d -24(a5),fp0
X fcmp.d -16(a5),fp0
X fble .250
X fmove.d -24(a5),fp0
X fmove.d fp0,-16(a5)
X.250
X bra .244
X.251
X fmove.d -24(a5),fp0
X fcmp.d -16(a5),fp0
X fbge .252
X fmove.d -24(a5),fp0
X fmove.d fp0,-16(a5)
X.252
X bra .244
X.253
X fmove.d -24(a5),fp0
X fmove.d fp0,-(sp)
X fmove.d -16(a5),fp0
X fmove.d fp0,-(sp)
X jsr _pow
X lea 16(sp),sp
X fmove.d fp0,-16(a5)
X bra .244
X.254
X jsr _badfop
X bra .244
X.255
X.243
X sub.l #42,d0
X beq .247
X sub.l #1,d0
X beq .245
X sub.l #2,d0
X beq .246
X sub.l #2,d0
X beq .248
X sub.l #22,d0
X beq .253
X sub.l #8,d0
X beq .249
X sub.l #32,d0
X beq .251
X bra .254
X.244
X bra .218
X.217
X sub.l #70,d0
X beq .242
X sub.l #3,d0
X beq .219
X.218
X bra .193
X.194
X move.l -32(a5),d0
X bra .257
X.259
X move.l -4(a5),-(sp)
X jsr _cvfixnum
X add.w #4,sp
X bra .235
X.260
X fmove.d -16(a5),fp0
X fmove.d fp0,-(sp)
X jsr _cvflonum
X add.w #8,sp
X bra .235
X.257
X sub.l #70,d0
X beq .260
X sub.l #3,d0
X beq .259
X.258
X bra .235
X.164 equ -32
X.165 reg d2/d3/a6
X.166 freg
X public _xlognot
X_xlognot:
X link a5,#.261
X movem.l .262,-(sp)
X fmovem.x .263,-(sp)
X pea 126
X jsr _unary
X add.w #4,sp
X.264
X fmovem.x (sp)+,.263
X movem.l (sp)+,.262
X unlk a5
X rts
X.261 equ 0
X.262 reg d2/d3/a6
X.263 freg
X public _xabs
X_xabs:
X link a5,#.265
X movem.l .266,-(sp)
X fmovem.x .267,-(sp)
X pea 65
X jsr _unary
X add.w #4,sp
X.268
X fmovem.x (sp)+,.267
X movem.l (sp)+,.266
X unlk a5
X rts
X.265 equ 0
X.266 reg d2/d3/a6
X.267 freg
X public _xadd1
X_xadd1:
X link a5,#.269
X movem.l .270,-(sp)
X fmovem.x .271,-(sp)
X pea 43
X jsr _unary
X add.w #4,sp
X.272
X fmovem.x (sp)+,.271
X movem.l (sp)+,.270
X unlk a5
X rts
X.269 equ 0
X.270 reg d2/d3/a6
X.271 freg
X public _xsub1
X_xsub1:
X link a5,#.273
X movem.l .274,-(sp)
X fmovem.x .275,-(sp)
X pea 45
X jsr _unary
X add.w #4,sp
X.276
X fmovem.x (sp)+,.275
X movem.l (sp)+,.274
X unlk a5
X rts
X.273 equ 0
X.274 reg d2/d3/a6
X.275 freg
X public _xsin
X_xsin:
X link a5,#.277
X movem.l .278,-(sp)
X fmovem.x .279,-(sp)
X pea 83
X jsr _unary
X add.w #4,sp
X.280
X fmovem.x (sp)+,.279
X movem.l (sp)+,.278
X unlk a5
X rts
X.277 equ 0
X.278 reg d2/d3/a6
X.279 freg
X public _xcos
X_xcos:
X link a5,#.281
X movem.l .282,-(sp)
X fmovem.x .283,-(sp)
X pea 67
X jsr _unary
X add.w #4,sp
X.284
X fmovem.x (sp)+,.283
X movem.l (sp)+,.282
X unlk a5
X rts
X.281 equ 0
X.282 reg d2/d3/a6
X.283 freg
X public _xtan
X_xtan:
X link a5,#.285
X movem.l .286,-(sp)
X fmovem.x .287,-(sp)
X pea 84
X jsr _unary
X add.w #4,sp
X.288
X fmovem.x (sp)+,.287
X movem.l (sp)+,.286
X unlk a5
X rts
X.285 equ 0
X.286 reg d2/d3/a6
X.287 freg
X public _xasin
X_xasin:
X link a5,#.289
X movem.l .290,-(sp)
X fmovem.x .291,-(sp)
X pea 115
X jsr _unary
X add.w #4,sp
X.292
X fmovem.x (sp)+,.291
X movem.l (sp)+,.290
X unlk a5
X rts
X.289 equ 0
X.290 reg d2/d3/a6
X.291 freg
X public _xacos
X_xacos:
X link a5,#.293
X movem.l .294,-(sp)
X fmovem.x .295,-(sp)
X pea 99
X jsr _unary
X add.w #4,sp
X.296
X fmovem.x (sp)+,.295
X movem.l (sp)+,.294
X unlk a5
X rts
X.293 equ 0
X.294 reg d2/d3/a6
X.295 freg
X public _xxexp
X_xxexp:
X link a5,#.297
X movem.l .298,-(sp)
X fmovem.x .299,-(sp)
X pea 69
X jsr _unary
X add.w #4,sp
X.300
X fmovem.x (sp)+,.299
X movem.l (sp)+,.298
X unlk a5
X rts
X.297 equ 0
X.298 reg d2/d3/a6
X.299 freg
X public _xsqrt
X_xsqrt:
X link a5,#.301
X movem.l .302,-(sp)
X fmovem.x .303,-(sp)
X pea 82
X jsr _unary
X add.w #4,sp
X.304
X fmovem.x (sp)+,.303
X movem.l (sp)+,.302
X unlk a5
X rts
X.301 equ 0
X.302 reg d2/d3/a6
X.303 freg
X public _xxlog
X_xxlog:
X link a5,#.305
X movem.l .306,-(sp)
X fmovem.x .307,-(sp)
X pea 76
X jsr _unary
X add.w #4,sp
X.308
X fmovem.x (sp)+,.307
X movem.l (sp)+,.306
X unlk a5
X rts
X.305 equ 0
X.306 reg d2/d3/a6
X.307 freg
X public _xrandom
X_xrandom:
X link a5,#.309
X movem.l .310,-(sp)
X fmovem.x .311,-(sp)
X pea 63
X jsr _unary
X add.w #4,sp
X.312
X fmovem.x (sp)+,.311
X movem.l (sp)+,.310
X unlk a5
X rts
X.309 equ 0
X.310 reg d2/d3/a6
X.311 freg
X_unary:
X link a5,#.313
X movem.l .314,-(sp)
X fmovem.x .315,-(sp)
X tst.l _xlargc
X ble .316
X sub.l #1,_xlargc
X move.l _xlsp,a0
X add.l #4,_xlsp
X move.l (a0),d0
X bra .317
X.316
X jsr _xltoofew
X.317
X move.l d0,-16(a5)
X tst.l _xlargc
X beq .318
X jsr _xltoomany
X.318
X tst.l -16(a5)
X beq .319
X btst.b #0,-13(a5)
X beq .320
X move.l #3,d0
X bra .321
X.320
X move.l -16(a5),a0
X move.b (a0),d0
X ext.w d0
X ext.l d0
X.321
X cmp.l #3,d0
X bne .319
X btst.b #0,-13(a5)
X beq .322
X move.l -16(a5),d0
X asr.l #1,d0
X bra .323
X.322
X move.l -16(a5),a0
X move.l 2(a0),d0
X.323
X move.l d0,-12(a5)
X move.l 8(a5),d0
X bra .324
X.326
X not.l -12(a5)
X bra .325
X.327
X tst.l -12(a5)
X bge .328
X move.l -12(a5),d0
X neg.l d0
X bra .329
X.328
X move.l -12(a5),d0
X.329
X move.l d0,-12(a5)
X bra .325
X.330
X add.l #1,-12(a5)
X bra .325
X.331
X sub.l #1,-12(a5)
X bra .325
X.332
X fsin.l -12(a5),fp0
X fmove.d fp0,-(sp)
X jsr _cvflonum
X add.w #8,sp
X.333
X fmovem.x (sp)+,.315
X movem.l (sp)+,.314
X unlk a5
X rts
X.334
X fcos.l -12(a5),fp0
X fmove.d fp0,-(sp)
X jsr _cvflonum
X add.w #8,sp
X bra .333
X.335
X ftan.l -12(a5),fp0
X fmove.d fp0,-(sp)
X jsr _cvflonum
X add.w #8,sp
X bra .333
X.336
X fasin.l -12(a5),fp0
X fmove.d fp0,-(sp)
X jsr _cvflonum
X add.w #8,sp
X bra .333
X.337
X facos.l -12(a5),fp0
X fmove.d fp0,-(sp)
X jsr _cvflonum
X add.w #8,sp
X bra .333
X.338
X fatan.l -12(a5),fp0
X fmove.d fp0,-(sp)
X jsr _cvflonum
X add.w #8,sp
X bra .333
X.339
X fetox.l -12(a5),fp0
X fmove.d fp0,-(sp)
X jsr _cvflonum
X add.w #8,sp
X bra .333
X.340
X flogn.l -12(a5),fp0
X fmove.d fp0,-(sp)
X jsr _cvflonum
X add.w #8,sp
X bra .333
X.341
X move.l -12(a5),-(sp)
X jsr _checkineg
X add.w #4,sp
X fsqrt.l -12(a5),fp0
X fmove.d fp0,-(sp)
X jsr _cvflonum
X add.w #8,sp
X bra .333
X.342
X move.l -12(a5),-(sp)
X jsr _osrand
X add.w #4,sp
X move.l d0,-12(a5)
X bra .325
X.343
X jsr _badiop
X bra .325
X.344
X.324
X sub.l #43,d0
X beq .330
X sub.l #2,d0
X beq .331
X sub.l #18,d0
X beq .342
X sub.l #2,d0
X beq .327
X sub.l #2,d0
X beq .334
X sub.l #2,d0
X beq .339
X sub.l #7,d0
X beq .340
X sub.l #6,d0
X beq .341
X sub.l #1,d0
X beq .332
X sub.l #1,d0
X beq .335
X sub.l #15,d0
X beq .337
X sub.l #16,d0
X beq .336
X sub.l #1,d0
X beq .338
X sub.l #10,d0
X beq .326
X bra .343
X.325
X move.l -12(a5),-(sp)
X jsr _cvfixnum
X add.w #4,sp
X bra .333
X.319
X tst.l -16(a5)
X beq .346
X btst.b #0,-13(a5)
X beq .347
X move.l #3,d0
X bra .348
X.347
X move.l -16(a5),a0
X move.b (a0),d0
X ext.w d0
X ext.l d0
X.348
X cmp.l #4,d0
X bne .346
X move.l -16(a5),a0
X fmove.d 2(a0),fp0
X fmove.d fp0,-8(a5)
X move.l 8(a5),d0
X bra .349
X.351
X fmove.d -8(a5),fp0
X fbge .352
X fneg.d -8(a5),fp0
X bra .353
X.352
X fmove.d -8(a5),fp0
X.353
X fmove.d fp0,-8(a5)
X bra .350
X.354
X fmove.d -8(a5),fp0
X fadd.d #"$3ff0000000000000",fp0
X fmove.d fp0,-8(a5)
X bra .350
X.355
X fmove.d -8(a5),fp0
X fsub.d #"$3ff0000000000000",fp0
X fmove.d fp0,-8(a5)
X bra .350
X.356
X fmove.d -8(a5),fp0
X fsin.x fp0
X fmove.d fp0,-8(a5)
X bra .350
X.357
X fmove.d -8(a5),fp0
X fcos.x fp0
X fmove.d fp0,-8(a5)
X bra .350
X.358
X fmove.d -8(a5),fp0
X ftan.x fp0
X fmove.d fp0,-8(a5)
X bra .350
X.359
X fmove.d -8(a5),fp0
X fasin.x fp0
X fmove.d fp0,-8(a5)
X bra .350
X.360
X fmove.d -8(a5),fp0
X facos.x fp0
X fmove.d fp0,-8(a5)
X bra .350
X.361
X fmove.d -8(a5),fp0
X fatan.x fp0
X fmove.d fp0,-8(a5)
X bra .350
X.362
X fmove.d -8(a5),fp0
X fetox.x fp0
X fmove.d fp0,-8(a5)
X bra .350
X.363
X fmove.d -8(a5),fp0
X flogn.x fp0
X fmove.d fp0,-8(a5)
X bra .350
X.364
X fmove.d -8(a5),fp0
X fmove.d fp0,-(sp)
X jsr _checkfneg
X add.w #8,sp
X fmove.d -8(a5),fp0
X fsqrt.x fp0
X fmove.d fp0,-8(a5)
X bra .350
X.365
X jsr _badfop
X bra .350
X.366
X.349
X sub.l #43,d0
X beq .354
X sub.l #2,d0
X beq .355
X sub.l #20,d0
X beq .351
X sub.l #2,d0
X beq .357
X sub.l #2,d0
X beq .362
X sub.l #7,d0
X beq .363
X sub.l #6,d0
X beq .364
X sub.l #1,d0
X beq .356
X sub.l #1,d0
X beq .358
X sub.l #15,d0
X beq .360
X sub.l #16,d0
X beq .359
X sub.l #1,d0
X beq .361
X bra .365
X.350
X fmove.d -8(a5),fp0
X fmove.d fp0,-(sp)
X jsr _cvflonum
X add.w #8,sp
X bra .333
X.346
X move.l -16(a5),-(sp)
X jsr _xlbadtype
X add.w #4,sp
X bra .333
X.313 equ -16
X.314 reg d2/d3/a6
X.315 freg
X public _xgcd
X_xgcd:
X link a5,#.368
X movem.l .369,-(sp)
X fmovem.x .370,-(sp)
X tst.l _xlargc
X bgt .371
X clr.l -(sp)
X jsr _cvfixnum
X add.w #4,sp
X.372
X fmovem.x (sp)+,.370
X movem.l (sp)+,.369
X unlk a5
X rts
X.371
X tst.l _xlargc
X ble .373
X move.l _xlsp,a0
X tst.l (a0)
X beq .374
X move.l _xlsp,a0
X btst.b #0,3(a0)
X beq .375
X move.l #3,d0
X bra .376
X.375
X move.l _xlsp,a0
X move.l (a0),a1
X move.b (a1),d0
X ext.w d0
X ext.l d0
X.376
X cmp.l #3,d0
X bne .374
X sub.l #1,_xlargc
X move.l _xlsp,a0
X add.l #4,_xlsp
X move.l (a0),d0
X bra .377
X.374
X move.l _xlsp,a0
X move.l (a0),-(sp)
X jsr _xlbadtype
X add.w #4,sp
X.377
X bra .378
X.373
X jsr _xltoofew
X.378
X move.l d0,-16(a5)
X btst.b #0,-13(a5)
X beq .379
X move.l -16(a5),d0
X asr.l #1,d0
X bra .380
X.379
X move.l -16(a5),a0
X move.l 2(a0),d0
X.380
X move.l d0,-8(a5)
X tst.l -8(a5)
X bge .381
X neg.l -8(a5)
X.381
X.382
X tst.l _xlargc
X ble .383
X tst.l _xlargc
X ble .384
X move.l _xlsp,a0
X tst.l (a0)
X beq .385
X move.l _xlsp,a0
X btst.b #0,3(a0)
X beq .386
X move.l #3,d0
X bra .387
X.386
X move.l _xlsp,a0
X move.l (a0),a1
X move.b (a1),d0
X ext.w d0
X ext.l d0
X.387
X cmp.l #3,d0
X bne .385
X sub.l #1,_xlargc
X move.l _xlsp,a0
X add.l #4,_xlsp
X move.l (a0),d0
X bra .388
X.385
X move.l _xlsp,a0
X move.l (a0),-(sp)
X jsr _xlbadtype
X add.w #4,sp
X.388
X bra .389
X.384
X jsr _xltoofew
X.389
X move.l d0,-16(a5)
X btst.b #0,-13(a5)
X beq .390
X move.l -16(a5),d0
X asr.l #1,d0
X bra .391
X.390
X move.l -16(a5),a0
X move.l 2(a0),d0
X.391
X move.l d0,-4(a5)
X tst.l -4(a5)
X bge .392
X neg.l -4(a5)
X.392
X.395
X move.l -8(a5),d1
X move.l -4(a5),d0
X jsr .mods#
X move.l d0,-12(a5)
X tst.l -12(a5)
X beq .394
X move.l -8(a5),-4(a5)
X move.l -12(a5),-8(a5)
X.393
X bra .395
X.394
X bra .382
X.383
X move.l -8(a5),-(sp)
X jsr _cvfixnum
X add.w #4,sp
X bra .372
X.368 equ -16
X.369 reg d2/d3/a6
X.370 freg
X public _xnegativep
X_xnegativep:
X link a5,#.396
X movem.l .397,-(sp)
X fmovem.x .398,-(sp)
X pea 45
X jsr _predicate
X add.w #4,sp
X.399
X fmovem.x (sp)+,.398
X movem.l (sp)+,.397
X unlk a5
X rts
X.396 equ 0
X.397 reg d2/d3/a6
X.398 freg
X public _xzerop
X_xzerop:
X link a5,#.400
X movem.l .401,-(sp)
X fmovem.x .402,-(sp)
X pea 90
X jsr _predicate
X add.w #4,sp
X.403
X fmovem.x (sp)+,.402
X movem.l (sp)+,.401
X unlk a5
X rts
X.400 equ 0
X.401 reg d2/d3/a6
X.402 freg
X public _xpositivep
X_xpositivep:
X link a5,#.404
X movem.l .405,-(sp)
X fmovem.x .406,-(sp)
X pea 43
X jsr _predicate
X add.w #4,sp
X.407
X fmovem.x (sp)+,.406
X movem.l (sp)+,.405
X unlk a5
X rts
X.404 equ 0
X.405 reg d2/d3/a6
X.406 freg
X public _xevenp
X_xevenp:
X link a5,#.408
X movem.l .409,-(sp)
X fmovem.x .410,-(sp)
X pea 69
X jsr _predicate
X add.w #4,sp
X.411
X fmovem.x (sp)+,.410
X movem.l (sp)+,.409
X unlk a5
X rts
X.408 equ 0
X.409 reg d2/d3/a6
X.410 freg
X public _xoddp
X_xoddp:
X link a5,#.412
X movem.l .413,-(sp)
X fmovem.x .414,-(sp)
X pea 79
X jsr _predicate
X add.w #4,sp
X.415
X fmovem.x (sp)+,.414
X movem.l (sp)+,.413
X unlk a5
X rts
X.412 equ 0
X.413 reg d2/d3/a6
X.414 freg
X_predicate:
X link a5,#.416
X movem.l .417,-(sp)
X fmovem.x .418,-(sp)
X tst.l _xlargc
X ble .419
X sub.l #1,_xlargc
X move.l _xlsp,a0
X add.l #4,_xlsp
X move.l (a0),d0
X bra .420
X.419
X jsr _xltoofew
X.420
X move.l d0,-16(a5)
X tst.l _xlargc
X beq .421
X jsr _xltoomany
X.421
X tst.l -16(a5)
X beq .422
X btst.b #0,-13(a5)
X beq .423
X move.l #3,d0
X bra .424
X.423
X move.l -16(a5),a0
X move.b (a0),d0
X ext.w d0
X ext.l d0
X.424
X cmp.l #3,d0
X bne .422
X btst.b #0,-13(a5)
X beq .425
X move.l -16(a5),d0
X asr.l #1,d0
X bra .426
X.425
X move.l -16(a5),a0
X move.l 2(a0),d0
X.426
X move.l d0,-12(a5)
X move.l 8(a5),d0
X bra .427
X.429
X cmp.l #0,-12(a5)
X slt d0
X and.l #1,d0
X move.l d0,-12(a5)
X bra .428
X.430
X cmp.l #0,-12(a5)
X seq d0
X and.l #1,d0
X move.l d0,-12(a5)
X bra .428
X.431
X cmp.l #0,-12(a5)
X sgt d0
X and.l #1,d0
X move.l d0,-12(a5)
X bra .428
X.432
X move.l -12(a5),d0
X and.l #1,d0
X cmp.l #0,d0
X seq d0
X and.l #1,d0
X move.l d0,-12(a5)
X bra .428
X.433
X move.l -12(a5),d0
X and.l #1,d0
X cmp.l #0,d0
X sne d0
X and.l #1,d0
X move.l d0,-12(a5)
X bra .428
X.434
X jsr _badiop
X bra .428
X.435
X.427
X sub.l #43,d0
X beq .431
X sub.l #2,d0
X beq .429
X sub.l #24,d0
X beq .432
X sub.l #10,d0
X beq .433
X sub.l #11,d0
X beq .430
X bra .434
X.428
X bra .437
X.422
X tst.l -16(a5)
X beq .438
X btst.b #0,-13(a5)
X beq .439
X move.l #3,d0
X bra .440
X.439
X move.l -16(a5),a0
X move.b (a0),d0
X ext.w d0
X ext.l d0
X.440
X cmp.l #4,d0
X bne .438
X move.l -16(a5),a0
X fmove.d 2(a0),fp0
X fmove.d fp0,-8(a5)
X move.l 8(a5),d0
X bra .441
X.443
X fmove.d -8(a5),fp0
X fcmp.d #"$0000000000000000",fp0
X fslt d0
X and.l #1,d0
X move.l d0,-12(a5)
X bra .442
X.444
X fmove.d -8(a5),fp0
X fcmp.d #"$0000000000000000",fp0
X fseq d0
X and.l #1,d0
X move.l d0,-12(a5)
X bra .442
X.445
X fmove.d -8(a5),fp0
X fcmp.d #"$0000000000000000",fp0
X fsgt d0
X and.l #1,d0
X move.l d0,-12(a5)
X bra .442
X.446
X jsr _badfop
X bra .442
X.441
X sub.l #43,d0
X beq .445
X sub.l #2,d0
X beq .443
X sub.l #45,d0
X beq .444
X bra .446
X.442
X bra .447
X.438
X move.l -16(a5),-(sp)
X jsr _xlbadtype
X add.w #4,sp
X.447
X.437
X tst.l -12(a5)
X beq .448
X move.l _true,d0
X bra .449
X.448
X move.l #0,d0
X.449
X.450
X fmovem.x (sp)+,.418
X movem.l (sp)+,.417
X unlk a5
X rts
X.416 equ -16
X.417 reg d2/d3/a6
X.418 freg
X public _xlss
X_xlss:
X link a5,#.451
X movem.l .452,-(sp)
X fmovem.x .453,-(sp)
X pea 60
X jsr _compare
X add.w #4,sp
X.454
X fmovem.x (sp)+,.453
X movem.l (sp)+,.452
X unlk a5
X rts
X.451 equ 0
X.452 reg d2/d3/a6
X.453 freg
X public _xleq
X_xleq:
X link a5,#.455
X movem.l .456,-(sp)
X fmovem.x .457,-(sp)
X pea 76
X jsr _compare
X add.w #4,sp
X.458
X fmovem.x (sp)+,.457
X movem.l (sp)+,.456
X unlk a5
X rts
X.455 equ 0
X.456 reg d2/d3/a6
X.457 freg
X public _xeql
X_xeql:
X link a5,#.459
X movem.l .460,-(sp)
X fmovem.x .461,-(sp)
X pea 61
X jsr _compare
X add.w #4,sp
X.462
X fmovem.x (sp)+,.461
X movem.l (sp)+,.460
X unlk a5
X rts
X.459 equ 0
X.460 reg d2/d3/a6
X.461 freg
X public _xgeq
X_xgeq:
X link a5,#.463
X movem.l .464,-(sp)
X fmovem.x .465,-(sp)
X pea 71
X jsr _compare
X add.w #4,sp
X.466
X fmovem.x (sp)+,.465
X movem.l (sp)+,.464
X unlk a5
X rts
X.463 equ 0
X.464 reg d2/d3/a6
X.465 freg
X public _xgtr
X_xgtr:
X link a5,#.467
X movem.l .468,-(sp)
X fmovem.x .469,-(sp)
X pea 62
X jsr _compare
X add.w #4,sp
X.470
X fmovem.x (sp)+,.469
X movem.l (sp)+,.468
X unlk a5
X rts
X.467 equ 0
X.468 reg d2/d3/a6
X.469 freg
X_compare:
X link a5,#.471
X movem.l .472,-(sp)
X fmovem.x .473,-(sp)
X tst.l _xlargc
X ble .474
X sub.l #1,_xlargc
X move.l _xlsp,a0
X add.l #4,_xlsp
X move.l (a0),d0
X bra .475
X.474
X jsr _xltoofew
X.475
X move.l d0,-40(a5)
X tst.l -40(a5)
X beq .476
X btst.b #0,-37(a5)
X beq .477
X move.l #3,d0
X bra .478
X.477
X move.l -40(a5),a0
X move.b (a0),d0
X ext.w d0
X ext.l d0
X.478
X cmp.l #3,d0
X bne .476
X btst.b #0,-37(a5)
X beq .479
X move.l -40(a5),d0
X asr.l #1,d0
X bra .480
X.479
X move.l -40(a5),a0
X move.l 2(a0),d0
X.480
X move.l d0,-8(a5)
X move.l #73,-44(a5)
X bra .481
X.476
X tst.l -40(a5)
X beq .482
X btst.b #0,-37(a5)
X beq .483
X move.l #3,d0
X bra .484
X.483
X move.l -40(a5),a0
X move.b (a0),d0
X ext.w d0
X ext.l d0
X.484
X cmp.l #4,d0
X bne .482
X move.l -40(a5),a0
X fmove.d 2(a0),fp0
X fmove.d fp0,-28(a5)
X move.l #70,-44(a5)
X bra .485
X.482
X move.l -40(a5),-(sp)
X jsr _xlbadtype
X add.w #4,sp
X.485
X.481
X move.l #1,-4(a5)
X bra .489
X.488
X tst.l _xlargc
X ble .490
X sub.l #1,_xlargc
X move.l _xlsp,a0
X add.l #4,_xlsp
X move.l (a0),d0
X bra .491
X.490
X jsr _xltoofew
X.491
X move.l d0,-40(a5)
X tst.l -40(a5)
X beq .492
X btst.b #0,-37(a5)
X beq .493
X move.l #3,d0
X bra .494
X.493
X move.l -40(a5),a0
X move.b (a0),d0
X ext.w d0
X ext.l d0
X.494
X cmp.l #3,d0
X bne .492
X move.l -44(a5),d0
X bra .495
X.497
X btst.b #0,-37(a5)
X beq .498
X move.l -40(a5),d0
X asr.l #1,d0
X bra .499
X.498
X move.l -40(a5),a0
X move.l 2(a0),d0
X.499
X move.l d0,-12(a5)
X bra .496
X.500
X btst.b #0,-37(a5)
X beq .501
X move.l -40(a5),d0
X asr.l #1,d0
X bra .502
X.501
X move.l -40(a5),a0
X move.l 2(a0),d0
X.502
X fmove.l d0,fp0
X fmove.d fp0,-36(a5)
X bra .496
X.495
X sub.l #70,d0
X beq .500
X sub.l #3,d0
X beq .497
X.496
X bra .503
X.492
X tst.l -40(a5)
X beq .504
X btst.b #0,-37(a5)
X beq .505
X move.l #3,d0
X bra .506
X.505
X move.l -40(a5),a0
X move.b (a0),d0
X ext.w d0
X ext.l d0
X.506
X cmp.l #4,d0
X bne .504
X move.l -44(a5),d0
X bra .507
X.509
X fmove.l -8(a5),fp0
X fmove.d fp0,-28(a5)
X move.l -40(a5),a0
X fmove.d 2(a0),fp0
X fmove.d fp0,-36(a5)
X move.l #70,-44(a5)
X bra .508
X.510
X move.l -40(a5),a0
X fmove.d 2(a0),fp0
X fmove.d fp0,-36(a5)
X bra .508
X.507
X sub.l #70,d0
X beq .510
X sub.l #3,d0
X beq .509
X.508
X bra .511
X.504
X move.l -40(a5),-(sp)
X jsr _xlbadtype
X add.w #4,sp
X.511
X.503
X move.l -44(a5),d0
X bra .512
X.514
X move.l -8(a5),d0
X sub.l -12(a5),d0
X move.l d0,-4(a5)
X move.l 8(a5),d0
X bra .515
X.517
X cmp.l #0,-4(a5)
X slt d0
X and.l #1,d0
X move.l d0,-4(a5)
X bra .516
X.518
X cmp.l #0,-4(a5)
X sle d0
X and.l #1,d0
X move.l d0,-4(a5)
X bra .516
X.519
X cmp.l #0,-4(a5)
X seq d0
X and.l #1,d0
X move.l d0,-4(a5)
X bra .516
X.520
X cmp.l #0,-4(a5)
X sge d0
X and.l #1,d0
X move.l d0,-4(a5)
X bra .516
X.521
X cmp.l #0,-4(a5)
X sgt d0
X and.l #1,d0
X move.l d0,-4(a5)
X bra .516
X.522
X.515
X sub.l #60,d0
X beq .517
X sub.l #1,d0
X beq .519
X sub.l #1,d0
X beq .521
X sub.l #9,d0
X beq .520
X sub.l #5,d0
X beq .518
X.516
X bra .513
X.524
X fmove.d -28(a5),fp0
X fsub.d -36(a5),fp0
X fmove.d fp0,-20(a5)
X move.l 8(a5),d0
X bra .525
X.527
X fmove.d -20(a5),fp0
X fcmp.d #"$0000000000000000",fp0
X fslt d0
X and.l #1,d0
X move.l d0,-4(a5)
X bra .526
X.528
X fmove.d -20(a5),fp0
X fcmp.d #"$0000000000000000",fp0
X fsle d0
X and.l #1,d0
X move.l d0,-4(a5)
X bra .526
X.529
X fmove.d -20(a5),fp0
X fcmp.d #"$0000000000000000",fp0
X fseq d0
X and.l #1,d0
X move.l d0,-4(a5)
X bra .526
X.530
X fmove.d -20(a5),fp0
X fcmp.d #"$0000000000000000",fp0
X fsge d0
X and.l #1,d0
X move.l d0,-4(a5)
X bra .526
X.531
X fmove.d -20(a5),fp0
X fcmp.d #"$0000000000000000",fp0
X fsgt d0
X and.l #1,d0
X move.l d0,-4(a5)
X bra .526
X.532
X.525
X sub.l #60,d0
X beq .527
X sub.l #1,d0
X beq .529
X sub.l #1,d0
X beq .531
X sub.l #9,d0
X beq .530
X sub.l #5,d0
X beq .528
X.526
X bra .513
X.512
X sub.l #70,d0
X beq .524
X sub.l #3,d0
X beq .514
X.513
X.486
X move.l -12(a5),-8(a5)
X fmove.d -36(a5),fp0
X fmove.d fp0,-28(a5)
X.489
X tst.l -4(a5)
X beq .534
X tst.l _xlargc
X bgt .488
X.534
X.487
X tst.l -4(a5)
X beq .535
X move.l _true,d0
X bra .536
X.535
X move.l #0,d0
X.536
X.537
X fmovem.x (sp)+,.473
X movem.l (sp)+,.472
X unlk a5
X rts
X.471 equ -44
X.472 reg d2/d3/a6
X.473 freg
X public _toflotype
X_toflotype:
X link a5,#.538
X movem.l .539,-(sp)
X fmovem.x .540,-(sp)
X btst.b #0,11(a5)
X beq .541
X move.l #3,d0
X bra .542
X.541
X move.l 8(a5),a0
X move.b (a0),d0
X ext.w d0
X ext.l d0
X.542
X bra .543
X.545
X btst.b #0,11(a5)
X beq .546
X move.l 8(a5),d0
X asr.l #1,d0
X bra .547
X.546
X move.l 8(a5),a0
X move.l 2(a0),d0
X.547
X fmove.l d0,fp0
X.548
X fmovem.x (sp)+,.540
X movem.l (sp)+,.539
X unlk a5
X rts
X.549
X move.l 8(a5),a0
X fmove.d 2(a0),fp0
X bra .548
X.543
X sub.l #3,d0
X beq .545
X sub.l #1,d0
X beq .549
X.544
X bra .548
X.538 equ 0
X.539 reg d2/d3/a6
X.540 freg
X public _checkizero
X_checkizero:
X link a5,#.550
X movem.l .551,-(sp)
X fmovem.x .552,-(sp)
X tst.l 8(a5)
X bne .553
X pea .1+0
X jsr _xlfail
X add.w #4,sp
X.553
X.554
X fmovem.x (sp)+,.552
X movem.l (sp)+,.551
X unlk a5
X rts
X.550 equ 0
X.551 reg d2/d3/a6
X.552 freg
X.1
X dc.b 100,105,118,105,115,105,111,110,32,98,121,32,122,101,114
X dc.b 111,0
X ds 0
X public _checkineg
X_checkineg:
X link a5,#.556
X movem.l .557,-(sp)
X fmovem.x .558,-(sp)
X tst.l 8(a5)
X bge .559
X pea .555+0
X jsr _xlfail
X add.w #4,sp
X.559
X.560
X fmovem.x (sp)+,.558
X movem.l (sp)+,.557
X unlk a5
X rts
X.556 equ 0
X.557 reg d2/d3/a6
X.558 freg
X.555
X dc.b 115,113,117,97,114,101,32,114,111,111,116,32,111,102,32
X dc.b 97,32,110,101,103,97,116,105,118,101,32,110,117,109,98
X dc.b 101,114,0
X ds 0
X public _checkfzero
X_checkfzero:
X link a5,#.562
X movem.l .563,-(sp)
X fmovem.x .564,-(sp)
X fmove.d 8(a5),fp0
X fbne .565
X pea .561+0
X jsr _xlfail
X add.w #4,sp
X.565
X.566
X fmovem.x (sp)+,.564
X movem.l (sp)+,.563
X unlk a5
X rts
X.562 equ 0
X.563 reg d2/d3/a6
X.564 freg
X.561
X dc.b 100,105,118,105,115,105,111,110,32,98,121,32,122,101,114
X dc.b 111,0
X ds 0
X public _checkfneg
X_checkfneg:
X link a5,#.568
X movem.l .569,-(sp)
X fmovem.x .570,-(sp)
X fmove.d 8(a5),fp0
X fbge .571
X pea .567+0
X jsr _xlfail
X add.w #4,sp
X.571
X.572
X fmovem.x (sp)+,.570
X movem.l (sp)+,.569
X unlk a5
X rts
X.568 equ 0
X.569 reg d2/d3/a6
X.570 freg
X.567
X dc.b 115,113,117,97,114,101,32,114,111,111,116,32,111,102,32
X dc.b 97,32,110,101,103,97,116,105,118,101,32,110,117,109,98
X dc.b 101,114,0
X ds 0
X_badiop:
X link a5,#.574
X movem.l .575,-(sp)
X fmovem.x .576,-(sp)
X pea .573+0
X jsr _xlfail
X add.w #4,sp
X.577
X fmovem.x (sp)+,.576
X movem.l (sp)+,.575
X unlk a5
X rts
X.574 equ 0
X.575 reg d2/d3/a6
X.576 freg
X.573
X dc.b 98,97,100,32,105,110,116,101,103,101,114,32,111,112,101
X dc.b 114,97,116,105,111,110,0
X ds 0
X_badfop:
X link a5,#.579
X movem.l .580,-(sp)
X fmovem.x .581,-(sp)
X pea .578+0
X jsr _xlfail
X add.w #4,sp
X.582
X fmovem.x (sp)+,.581
X movem.l (sp)+,.580
X unlk a5
X rts
X.579 equ 0
X.580 reg d2/d3/a6
X.581 freg
X.578
X dc.b 98,97,100,32,102,108,111,97,116,105,110,103,32,112,111
X dc.b 105,110,116,32,111,112,101,114,97,116,105,111,110,0
X ds 0
X public _xlfail
X public _osrand
X public _xltoomany
X public _pow
X public _ceil
X public _floor
X public _atan2
X public _xlbadtype
X public _xltoofew
X public _cvflonum
X public _cvfixnum
X public .begin
X dseg
X public _true
X public _xlargc
X public _xlsp
X end
END_OF_FILE
if test 36236 -ne `wc -c <'Src/xsmath881.s'`; then
echo shar: \"'Src/xsmath881.s'\" unpacked with wrong size!
fi
# end of 'Src/xsmath881.s'
fi
echo shar: End of archive 6 \(of 7\).
cp /dev/null ark6isdone
MISSING=""
for I in 1 2 3 4 5 6 7 ; do
if test ! -f ark${I}isdone ; then
MISSING="${MISSING} ${I}"
fi
done
if test "${MISSING}" = "" ; then
echo You have unpacked all 7 archives.
rm -f ark[1-9]isdone
else
echo You still need to unpack the following archives:
echo " " ${MISSING}
fi
## End of shell archive.
exit 0
--
Mail submissions (sources or binaries) to <amiga@cs.odu.edu>.
Mail comments to the moderator at <amiga-request@cs.odu.edu>.
Post requests for sources, and general discussion to comp.sys.amiga.