m68k/fpsp040/get_op.S

11 | for a description of the opclasses.
20 | - For a packed number (opclass 2) the number is unpacked and the
30 | - If there is a move out with a packed number (opclass 3) the
42 | a normalized number in the source and the instruction is
46 | normalized number it becomes a denormalized number.  The
47 | routine which converts the unnorm to a norm (called mk_norm)
48 | detects this and tags the number as a denorm.  The routine
49 | res_func sees the denorm tag and converts the denorm to a
102 	.long 0x40000000,0x935d8ddd,0xaaa8ac17    |ln(10)
103 	.long 0x3fff0000,0x80000000,0x00000000    |10 ^ 0
107 	.long 0x40020000,0xA0000000,0x00000000    |10 ^ 1
108 	.long 0x40050000,0xC8000000,0x00000000    |10 ^ 2
109 	.long 0x400C0000,0x9C400000,0x00000000    |10 ^ 4
110 	.long 0x40190000,0xBEBC2000,0x00000000    |10 ^ 8
111 	.long 0x40340000,0x8E1BC9BF,0x04000000    |10 ^ 16
112 	.long 0x40690000,0x9DC5ADA8,0x2B70B59E    |10 ^ 32
113 	.long 0x40D30000,0xC2781F49,0xFFCFA6D5    |10 ^ 64
114 	.long 0x41A80000,0x93BA47C9,0x80E98CE0    |10 ^ 128
115 	.long 0x43510000,0xAA7EEBFB,0x9DF9DE8E    |10 ^ 256
116 	.long 0x46A30000,0xE319A0AE,0xA60E91C7    |10 ^ 512
117 	.long 0x4D480000,0xC9767586,0x81750C17    |10 ^ 1024
118 	.long 0x5A920000,0x9E8B3B5D,0xC53D5DE5    |10 ^ 2048
119 	.long 0x75250000,0xC4605202,0x8A20979B    |10 ^ 4096
123 	.long 0x40000000,0x935d8ddd,0xaaa8ac16    |ln(10)
124 	.long 0x3fff0000,0x80000000,0x00000000    |10 ^ 0
128 	.long 0x40020000,0xA0000000,0x00000000    |10 ^ 1
129 	.long 0x40050000,0xC8000000,0x00000000    |10 ^ 2
130 	.long 0x400C0000,0x9C400000,0x00000000    |10 ^ 4
131 	.long 0x40190000,0xBEBC2000,0x00000000    |10 ^ 8
132 	.long 0x40340000,0x8E1BC9BF,0x04000000    |10 ^ 16
133 	.long 0x40690000,0x9DC5ADA8,0x2B70B59D    |10 ^ 32
134 	.long 0x40D30000,0xC2781F49,0xFFCFA6D5    |10 ^ 64
135 	.long 0x41A80000,0x93BA47C9,0x80E98CDF    |10 ^ 128
136 	.long 0x43510000,0xAA7EEBFB,0x9DF9DE8D    |10 ^ 256
137 	.long 0x46A30000,0xE319A0AE,0xA60E91C6    |10 ^ 512
138 	.long 0x4D480000,0xC9767586,0x81750C17    |10 ^ 1024
139 	.long 0x5A920000,0x9E8B3B5D,0xC53D5DE5    |10 ^ 2048
140 	.long 0x75250000,0xC4605202,0x8A20979A    |10 ^ 4096
144 	.long 0x40000000,0x935d8ddd,0xaaa8ac17    |ln(10)
145 	.long 0x3fff0000,0x80000000,0x00000000    |10 ^ 0
149 	.long 0x40020000,0xA0000000,0x00000000    |10 ^ 1
150 	.long 0x40050000,0xC8000000,0x00000000    |10 ^ 2
151 	.long 0x400C0000,0x9C400000,0x00000000    |10 ^ 4
152 	.long 0x40190000,0xBEBC2000,0x00000000    |10 ^ 8
153 	.long 0x40340000,0x8E1BC9BF,0x04000000    |10 ^ 16
154 	.long 0x40690000,0x9DC5ADA8,0x2B70B59E    |10 ^ 32
155 	.long 0x40D30000,0xC2781F49,0xFFCFA6D6    |10 ^ 64
156 	.long 0x41A80000,0x93BA47C9,0x80E98CE0    |10 ^ 128
157 	.long 0x43510000,0xAA7EEBFB,0x9DF9DE8E    |10 ^ 256
158 	.long 0x46A30000,0xE319A0AE,0xA60E91C7    |10 ^ 512
159 	.long 0x4D480000,0xC9767586,0x81750C18    |10 ^ 1024
160 	.long 0x5A920000,0x9E8B3B5D,0xC53D5DE6    |10 ^ 2048
161 	.long 0x75250000,0xC4605202,0x8A20979B    |10 ^ 4096
177 	bne	opclass3	|branch if a fmove out (any kind)
183 	beq	pack_source	|check for a packed src op, branch if so
206 	btstb	#E1,E_BYTE(%a6)	|if set, there is a packed operand
284 	movew	#0x3c01,%d1	|write the bias for a dbl denorm
321 	bsetl	%d1,%d0		|set up d0 as a dynamic register mask
349 |				;else it is a packed move out
458 	beqs	uns_den		|if clear then now have a denorm
471 	beqs	uni_den		|if clear then now have a denorm
504 	bnes	fix_nan		|if non-zero, it is a NaN
506 	bnes	fix_nan		|if non-zero, it is a NaN
556 	bnes	mfix_nan		|if non-zero, it is a NaN
558 	bnes	mfix_nan		|if non-zero, it is a NaN
656 | For a zero, set etemp_15
661 | For a norm, check if the exp <= $3fff; if so, set etemp_15