ifpsp060/src/isp.S

288 set EXC_D2,		EXC_DREGS+(2*4)		# offset of d2
1336 	movm.l		&0x3c00,-(%sp)		# save d2-d5
1344 	mov.l		%d2,-(%sp)		# save old d2
1356 	mov.l		%d0,%d2
1357 	rol.w		&0x7,%d2
1358 	andi.l		&0x3,%d2		# extract scale value
1360 	lsl.l		%d2,%d1			# shift index by scale
1366 	mov.l		(%sp)+,%d2		# restore old d2
1452 	movm.l		&0x3c00,-(%sp)		# save d2-d5
1460 	mov.l		%d2,-(%sp)		# create a temp register
1472 	mov.l		%d0,%d2			# make extword copy
1473 	rol.w		&0x7,%d2		# rotate scale value into place
1474 	andi.l		&0x3,%d2		# extract scale value
1476 	lsl.l		%d2,%d1			# shift index by scale
1482 	mov.l		(%sp)+,%d2		# restore temp register
1490 # d2 = index		(internal "     "    )
1497 	clr.l		%d2			# yes, so index = 0
1500 	bfextu		%d5{&16:&4},%d2
1501 	mov.l		(EXC_DREGS,%a6,%d2.w*4),%d2
1504 	ext.l		%d2
1507 	lsl.l		%d0,%d2
1579 	add.l		%d2,%d0			# <ea> += index
1584 	add.l		%d2,%d3			# preindexing
1595 	add.l		%d2,%d3			# ea = (base + bd) + index
1600 	movm.l		(%sp)+,&0x003c		# restore d2-d5
1678 	mov.l		%d0,%d2			# store data
1680 	rol.l		&0x8,%d2
1681 	mov.l		%d2,%d0
1690 	rol.l		&0x8,%d2
1691 	mov.l		%d2,%d0
1700 	rol.l		&0x8,%d2
1701 	mov.l		%d2,%d0
1710 	rol.l		&0x8,%d2
1711 	mov.l		%d2,%d0
1723 	mov.l		%d0,%d2			# store data
1734 	mov.l		%d2,%d0
1758 	mov.l		%d0,%d2
1768 	lsl.w		&0x8,%d2
1769 	mov.b		%d0,%d2			# append bytes
1779 	lsl.l		&0x8,%d2
1780 	mov.b		%d0,%d2			# append bytes
1790 	lsl.l		&0x8,%d2
1791 	mov.b		%d0,%d2			# append bytes
1797 	mov.l		%d2,(EXC_DREGS,%a6,%d1.w*4) # store dx
1810 	mov.l		%d0,%d2
1820 	lsl.w		&0x8,%d2
1821 	mov.b		%d0,%d2			# append bytes
1827 	mov.w		%d2,(EXC_DREGS+2,%a6,%d1.w*4) # store dx
1901 	mov.l		(EXC_DREGS,%a6,%d0.w*4), %d2 # get regval
1949 	ext.l		%d2			# sign extend data word
1973 	extb.l		%d2			# sign extend data byte
1983 	sub.l		%d0, %d2		# (Rn - lo)
1987 	cmp.l		%d1,%d2			# ((hi - lo) - (Rn - hi))
2293 	mov.l		%d5, %d2		# dividend mslw
2294 	swap		%d2
2296 	cmp.w		%d2, %d3		# V1 = U1 ?
2315 	mov.l		%d1, %d2
2316 	mulu.w		%d7, %d2		# V2q
2332 	cmp.l		%d2, %d4
2344 	mov.l		%d5, %d2		# now %d2,%d3 are trial*divisor
2349 	subx.l		%d2, %d5		# subtract double precision
2355 	clr.l		%d2
2360 	addx.l		%d2, %d5
2400 # destroys %d2,%d3,%d4.
2403 	mov.l		%d6, %d2
2410 	mulu.w		%d4, %d2		# %d2 <- msw-source*lsw-dest
2417 	add.w		%d2, %d6		# add in lsw of other m*l product
2421 	clr.w		%d2			# lsw of two mixed products used,
2423 	swap		%d2
2424 	add.l		%d2, %d5
2528 	mov.w		EXC_EXTWORD(%a6), %d2	# fetch ext word
2530 	mov.b		%d2, %d1		# grab Dh
2531 	rol.w		&0x4, %d2		# align Dl byte
2532 	andi.w		&0x7, %d2		# extract Dl
2534 	mov.l		(EXC_DREGS,%a6,%d2.w*4), %d4 # get multiplicand
2632 	mov.l		%d3, (EXC_DREGS,%a6,%d2.w*4) # save lo(result)
2653 	clr.l		(EXC_DREGS,%a6,%d2.w*4) # save lo(result)
2798 	mov.l		(EXC_DREGS,%a6,%d0.w*4),%d2 # fetch Compare1 Op
2850 	cmp.w		%d0,%d2
2862 	mov.w		DC1(%a6),%d2		# fetch Dc1
2863 	mov.w		%d0,(2+EXC_DREGS,%a6,%d2.w*4) # store new Compare1 Op
2867 	sne		%d2
2868 	mov.l		%d2,%d0			# pass mode
2873 	mov.l		%d2,%d0			# pass mode
2881 	cmp.l		%d0,%d2
2893 	mov.w		DC1(%a6),%d2		# fetch Dc1
2894 	mov.l		%d0,(EXC_DREGS,%a6,%d2.w*4) # store new Compare1 Op
2898 	sne		%d2
2899 	mov.l		%d2,%d0			# pass mode
2904 	mov.l		%d2,%d0			# pass mode
3027 	mov.l		(EXC_DREGS,%a6,%d0.w*4),%d2 # get update operand
3352 	cmp.l		%d0,%d2			# Dest1 - Compare1
3443 	cmp.l		%d0,%d2			# Dest1 - Compare1
3503 	cmp.l		%d0,%d2			# Dest1 - Compare1
3652 	cmp.w		%d0,%d2			# Dest1 - Compare1
3743 	cmp.w		%d0,%d2			# Dest1 - Compare1
3887 	mov.l		%d2,%d3			# d3 = update[7:0]
3888 	lsr.w		&0x8,%d2		# d2 = update[15:8]
3944 	movs.b		%d2,(%a0)+		# Update[15:8] -> DEST
4045 	mov.l		%d2,%d3			# d3 = update[15:0]
4046 	swap		%d2			# d2 = update[31:16]
4100 	movs.w		%d2,(%a0)+		# Update[31:16] -> DEST
4189 	mov.l		%d2,%d5			# d5 = Update[7:0]
4190 	lsr.l		&0x8,%d2
4191 	mov.l		%d2,%d3			# d3 = Update[23:8]
4192 	swap		%d2			# d2 = Update[31:24]
4248 	movs.b		%d2,(%a0)+		# Update[31:24] -> DEST