Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!lll-crg!styx!ames!ucbcad!ucbvax!sdcsvax!nosc!marlin!aburto
From: aburto@marlin.UUCP (Alfred A. Aburto)
Newsgroups: comp.sys.amiga
Subject: Re: 68881 to C interface
Message-ID: <848@marlin.UUCP>
Date: Thu, 20-Nov-86 17:48:00 EST
Article-I.D.: marlin.848
Posted: Thu Nov 20 17:48:00 1986
Date-Received: Thu, 20-Nov-86 23:51:55 EST
References: <846@marlin.UUCP>
Reply-To: aburto@marlin.UUCP (Alfred A. Aburto)
Distribution: net
Organization: Naval Ocean Systems Center, San Diego
Lines: 73
Keywords: 68020, 68881, Turbo-Amiga

This is the 68020/68881 Amiga Assembly program source which can be compiled
and then linked to the C sample program....
**************************************
*     68020/68881 Assembly program   *
**************************************
		XDEF     _FPCP
		SECTION  TEXT

_FPCP		LINK     A6,#$FFFC
		MOVE.L   $08(A6),D0		;mc    (the int mc)
		MOVE.L   $0C(A6),A0             ;&ua   (the address of ua)
		MOVE.L   $10(A6),A1             ;ub   (the address of ub)

FADDS:          CMPI.B   #$01,D0
		BNE      FSUBS
		DC.L     $F2104400              ;FMOVE.S  (A0),FP0
		DC.L     $F2114422              ;FADD.S   (A1),FP0
		DC.L     $F2006400              ;FMOVE.S   FP0,D0
		UNLK     A6
                RTS

FSUBS:          CMPI.B   #$02,D0
		BNE      FMULS
		DC.L     $F2104400              ;FMOVE.S  (A0),FP0
		DC.L     $F2114428              ;FSUB.S   (A1),FP0
		DC.L     $F2006400              ;FMOVE.S   FP0,D0
		UNLK     A6
		RTS

FMULS:          CMPI.B   #$03,D0
		BNE      FDIVS
		DC.L     $F2104400              ;FMOVE.S  (A0),FP0
		DC.L     $F2114423              ;FMUL.S   (A1),FP0
		DC.L     $F2006400              ;FMOVE.S   FP0,D0
		UNLK     A6
		RTS

FDIVS:          CMPI.B   #$04,D0
		BNE      FSINS
		DC.L     $F2104400              ;FMOVE.S  (A0),FP0
		DC.L     $F2114420              ;FDIV.S   (A1),FP0
		DC.L     $F2006400              ;FMOVE.S   FP0,D0
		UNLK     A6
		RTS

FSINS:          CMPI.B   #$05,D0
		BNE      FCOSS
		DC.L     $F210440E              ;FSIN.S   (A0),FP0
		DC.L     $F2006400              ;FMOVE.S   FP0,D0
		UNLK     A6
		RTS

FCOSS:          CMPI.B   #$06,D0
		BNE      FSINCOSS
		DC.L     $F210441D              ;FCOS.S   (A0),FP0
		DC.L     $F2006400              ;FMOVE.S   FP0,D0
		UNLK     A6
		RTS

FSINCOSS:       CMPI.B   #$07,D0               
		BNE      QUIT
		DC.L     $F2104431              ;FSINCOS.S (A0),FP1:FP0
		DC.L     $F2006400              ;FMOVE.S    FP0,D0
		DC.L     $F2116480              ;FMOVE.S    FP1,(A1)

QUIT:           UNLK     A6
		RTS

                END

___________________ End of assembly Program ______________________________

Al Aburto