;  zero divide trap to prevent errors in FFP version

	XDEF	_trapa
	XREF	_oldTrapCode

	Section code,CODE
_trapa:
	CMPI.L	#5,(SP)
	BNE.S		notdiv0
endtrap:
	ADDQ		#4,SP
	RTE
notdiv0:
	TST.L		_oldTrapCode
	BEQ.S		endtrap
	MOVE.L	_oldTrapCode,-(SP)
	RTS

	END