OpenCores
URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [linux/] [linux-2.4/] [arch/] [m68k/] [ifpsp060/] [src/] [ftest.S] - Rev 1275

Go to most recent revision | Compare with Previous | Blame | View Log

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
MOTOROLA MICROPROCESSOR & MEMORY TECHNOLOGY GROUP
M68000 Hi-Performance Microprocessor Division
M68060 Software Package
Production Release P1.00 -- October 10, 1994

 
THE SOFTWARE is provided on an "AS IS" basis and without warranty.
To the maximum extent permitted by applicable law,
MOTOROLA DISCLAIMS ALL WARRANTIES WHETHER EXPRESS OR IMPLIED, 
INCLUDING IMPLIED WARRANTIES OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE
and any warranty against infringement with regard to the SOFTWARE
(INCLUDING ANY MODIFIED VERSIONS THEREOF) and any accompanying written materials.

To the maximum extent permitted by applicable law,
IN NO EVENT SHALL MOTOROLA BE LIABLE FOR ANY DAMAGES WHATSOEVER
(INCLUDING WITHOUT LIMITATION, DAMAGES FOR LOSS OF BUSINESS PROFITS,
BUSINESS INTERRUPTION, LOSS OF BUSINESS INFORMATION, OR OTHER PECUNIARY LOSS)
ARISING OF THE USE OR INABILITY TO USE THE SOFTWARE.
Motorola assumes no responsibility for the maintenance and support of the SOFTWARE.

You are hereby granted a copyright license to use, modify, and distribute the SOFTWARE
so long as this entire notice is retained without alteration in any modified and/or
redistributed versions, and that such modified versions are clearly identified as such.
No licenses are granted by implication, estoppel or otherwise under any patents
or trademarks of Motorola, Inc.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#############################################
set     SREGS,          -64
set     IREGS,          -128
set     IFPREGS,        -224
set     SFPREGS,        -320
set     IFPCREGS,       -332
set     SFPCREGS,       -344
set     ICCR,           -346
set     SCCR,           -348
set     TESTCTR,        -352
set     DATA,           -384

#############################################
TESTTOP:
        bra.l           _060TESTS_
        short           0x0000

        bra.l           _060TESTS_unimp
        short           0x0000

        bra.l           _060TESTS_enable
        short           0x0000

start_str:
        string          "Testing 68060 FPSP started:\n"

start_str_unimp:
        string          "Testing 68060 FPSP unimplemented instruction started:\n"

start_str_enable:
        string          "Testing 68060 FPSP exception enabled started:\n"

pass_str:
        string          "passed\n"

fail_str:
        string          " failed\n"

        align           0x4
chk_test:
        tst.l           %d0
        bne.b           test_fail
test_pass:
        pea             pass_str(%pc)
        bsr.l           _print_str
        addq.l          &0x4,%sp
        rts
test_fail:
        mov.l           %d1,-(%sp)
        bsr.l           _print_num
        addq.l          &0x4,%sp

        pea             fail_str(%pc)
        bsr.l           _print_str
        addq.l          &0x4,%sp
        rts

#############################################
_060TESTS_:
        link            %a6,&-384
        
        movm.l          &0x3f3c,-(%sp)
        fmovm.x         &0xff,-(%sp)

        pea             start_str(%pc)
        bsr.l           _print_str
        addq.l          &0x4,%sp

### effadd
        clr.l           TESTCTR(%a6)
        pea             effadd_str(%pc)
        bsr.l           _print_str
        addq.l          &0x4,%sp

        bsr.l           effadd_0

        bsr.l           chk_test

### unsupp
        clr.l           TESTCTR(%a6)
        pea             unsupp_str(%pc)
        bsr.l           _print_str
        addq.l          &0x4,%sp

        bsr.l           unsupp_0

        bsr.l           chk_test

### ovfl non-maskable
        clr.l           TESTCTR(%a6)
        pea             ovfl_nm_str(%pc)
        bsr.l           _print_str
        bsr.l           ovfl_nm_0

        bsr.l           chk_test

### unfl non-maskable
        clr.l           TESTCTR(%a6)
        pea             unfl_nm_str(%pc)
        bsr.l           _print_str
        bsr.l           unfl_nm_0

        bsr.l           chk_test

        movm.l          (%sp)+,&0x3cfc
        fmovm.x         (%sp)+,&0xff

        unlk            %a6
        rts

_060TESTS_unimp:
        link            %a6,&-384
        
        movm.l          &0x3f3c,-(%sp)
        fmovm.x         &0xff,-(%sp)

        pea             start_str_unimp(%pc)
        bsr.l           _print_str
        addq.l          &0x4,%sp

### unimp
        clr.l           TESTCTR(%a6)
        pea             unimp_str(%pc)
        bsr.l           _print_str
        addq.l          &0x4,%sp

        bsr.l           unimp_0

        bsr.l           chk_test

        movm.l          (%sp)+,&0x3cfc
        fmovm.x         (%sp)+,&0xff

        unlk            %a6
        rts

_060TESTS_enable:
        link            %a6,&-384
        
        movm.l          &0x3f3c,-(%sp)
        fmovm.x         &0xff,-(%sp)

        pea             start_str_enable(%pc)
        bsr.l           _print_str
        addq.l          &0x4,%sp

### snan
        clr.l           TESTCTR(%a6)
        pea             snan_str(%pc)
        bsr.l           _print_str
        bsr.l           snan_0

        bsr.l           chk_test

### operr
        clr.l           TESTCTR(%a6)
        pea             operr_str(%pc)
        bsr.l           _print_str
        bsr.l           operr_0

        bsr.l           chk_test

### ovfl
        clr.l           TESTCTR(%a6)
        pea             ovfl_str(%pc)
        bsr.l           _print_str
        bsr.l           ovfl_0

        bsr.l           chk_test

### unfl
        clr.l           TESTCTR(%a6)
        pea             unfl_str(%pc)
        bsr.l           _print_str
        bsr.l           unfl_0

        bsr.l           chk_test

### dz
        clr.l           TESTCTR(%a6)
        pea             dz_str(%pc)
        bsr.l           _print_str
        bsr.l           dz_0

        bsr.l           chk_test

### inexact
        clr.l           TESTCTR(%a6)
        pea             inex_str(%pc)
        bsr.l           _print_str
        bsr.l           inex_0

        bsr.l           chk_test

        movm.l          (%sp)+,&0x3cfc
        fmovm.x         (%sp)+,&0xff

        unlk            %a6
        rts

#############################################
#############################################

unimp_str:
        string          "\tUnimplemented FP instructions..."

        align           0x4
unimp_0:
        addq.l          &0x1,TESTCTR(%a6)

        movm.l          DEF_REGS(%pc),&0x3fff
        fmovm.x         DEF_FPREGS(%pc),&0xff
        fmovm.l         DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar

        mov.w           &0x0000,ICCR(%a6)
        movm.l          &0x7fff,IREGS(%a6)
        fmovm.x         &0xff,IFPREGS(%a6)
        fmovm.l         %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)

        mov.l           &0x40000000,DATA+0x0(%a6)
        mov.l           &0xc90fdaa2,DATA+0x4(%a6)
        mov.l           &0x2168c235,DATA+0x8(%a6)

        mov.w           &0x0000,%cc
unimp_0_pc:
        fsin.x          DATA(%a6),%fp0

        mov.w           %cc,SCCR(%a6)
        movm.l          &0x7fff,SREGS(%a6)
        fmovm.x         &0xff,SFPREGS(%a6)
        fmovm.l         %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)

        mov.l           &0xbfbf0000,IFPREGS+0x0(%a6)
        mov.l           &0x80000000,IFPREGS+0x4(%a6)
        mov.l           &0x00000000,IFPREGS+0x8(%a6)
        mov.l           &0x08000208,IFPCREGS+0x4(%a6)
        lea             unimp_0_pc(%pc),%a0
        mov.l           %a0,IFPCREGS+0x8(%a6)

        bsr.l           chkregs
        tst.b           %d0
        bne.l           error

        bsr.l           chkfpregs
        tst.b           %d0
        bne.l           error

unimp_1:
        addq.l          &0x1,TESTCTR(%a6)

        movm.l          DEF_REGS(%pc),&0x3fff
        fmovm.x         DEF_FPREGS(%pc),&0xff
        fmovm.l         DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar

        mov.w           &0x0000,ICCR(%a6)
        movm.l          &0x7fff,IREGS(%a6)
        fmovm.x         &0xff,IFPREGS(%a6)
        fmovm.l         %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)

        mov.l           &0x3ffe0000,DATA+0x0(%a6)
        mov.l           &0xc90fdaa2,DATA+0x4(%a6)
        mov.l           &0x2168c235,DATA+0x8(%a6)

        mov.w           &0x0000,%cc
unimp_1_pc:
        ftan.x          DATA(%a6),%fp0

        mov.w           %cc,SCCR(%a6)
        movm.l          &0x7fff,SREGS(%a6)
        fmovm.x         &0xff,SFPREGS(%a6)
        fmovm.l         %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)

        mov.l           &0x3fff0000,IFPREGS+0x0(%a6)
        mov.l           &0x80000000,IFPREGS+0x4(%a6)
        mov.l           &0x00000000,IFPREGS+0x8(%a6)
        mov.l           &0x00000208,IFPCREGS+0x4(%a6)
        lea             unimp_1_pc(%pc),%a0
        mov.l           %a0,IFPCREGS+0x8(%a6)

        bsr.l           chkregs
        tst.b           %d0
        bne.l           error

        bsr.l           chkfpregs
        tst.b           %d0
        bne.l           error

# fmovecr
unimp_2:
        addq.l          &0x1,TESTCTR(%a6)

        movm.l          DEF_REGS(%pc),&0x3fff
        fmovm.x         DEF_FPREGS(%pc),&0xff
        fmovm.l         DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar

        mov.w           &0x0000,ICCR(%a6)
        movm.l          &0x7fff,IREGS(%a6)
        fmovm.x         &0xff,IFPREGS(%a6)
        fmovm.l         %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)

        mov.w           &0x0000,%cc
unimp_2_pc:
        fmovcr.x        &0x31,%fp0

        mov.w           %cc,SCCR(%a6)
        movm.l          &0x7fff,SREGS(%a6)
        fmovm.x         &0xff,SFPREGS(%a6)
        fmovm.l         %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)

        mov.l           &0x40000000,IFPREGS+0x0(%a6)
        mov.l           &0x935d8ddd,IFPREGS+0x4(%a6)
        mov.l           &0xaaa8ac17,IFPREGS+0x8(%a6)
        mov.l           &0x00000208,IFPCREGS+0x4(%a6)
        lea             unimp_2_pc(%pc),%a0
        mov.l           %a0,IFPCREGS+0x8(%a6)

        bsr.l           chkregs
        tst.b           %d0
        bne.l           error

        bsr.l           chkfpregs
        tst.b           %d0
        bne.l           error

# fscc
unimp_3:
        addq.l          &0x1,TESTCTR(%a6)

        movm.l          DEF_REGS(%pc),&0x3fff
        fmovm.x         DEF_FPREGS(%pc),&0xff
        fmovm.l         DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar

        fmov.l          &0x0f000000,%fpsr
        mov.l           &0x00,%d7

        mov.w           &0x0000,ICCR(%a6)
        movm.l          &0x7fff,IREGS(%a6)
        fmovm.x         &0xff,IFPREGS(%a6)
        fmovm.l         %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)

        mov.w           &0x0000,%cc
unimp_3_pc:
        fsgt            %d7

        mov.w           %cc,SCCR(%a6)
        movm.l          &0x7fff,SREGS(%a6)
        fmovm.x         &0xff,SFPREGS(%a6)
        fmovm.l         %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
        mov.l           &0x0f008080,IFPCREGS+0x4(%a6)
        lea             unimp_3_pc(%pc),%a0
        mov.l           %a0,IFPCREGS+0x8(%a6)

        bsr.l           chkregs
        tst.b           %d0
        bne.l           error

        bsr.l           chkfpregs
        tst.b           %d0
        bne.l           error

# fdbcc
unimp_4:
        addq.l          &0x1,TESTCTR(%a6)

        movm.l          DEF_REGS(%pc),&0x3fff
        fmovm.x         DEF_FPREGS(%pc),&0xff
        fmovm.l         DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar

        fmov.l          &0x0f000000,%fpsr
        mov.l           &0x2,%d7

        mov.w           &0x0000,ICCR(%a6)
        movm.l          &0x7fff,IREGS(%a6)
        fmovm.x         &0xff,IFPREGS(%a6)
        fmovm.l         %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)

        mov.w           &0x0000,%cc
unimp_4_pc:
        fdbgt.w         %d7,unimp_4_pc

        mov.w           %cc,SCCR(%a6)
        movm.l          &0x7fff,SREGS(%a6)
        fmovm.x         &0xff,SFPREGS(%a6)
        fmovm.l         %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
        mov.w           &0xffff,IREGS+28+2(%a6)
        mov.l           &0x0f008080,IFPCREGS+0x4(%a6)
        lea             unimp_4_pc(%pc),%a0
        mov.l           %a0,IFPCREGS+0x8(%a6)

        bsr.l           chkregs
        tst.b           %d0
        bne.l           error

        bsr.l           chkfpregs
        tst.b           %d0
        bne.l           error

# ftrapcc
unimp_5:
        addq.l          &0x1,TESTCTR(%a6)

        movm.l          DEF_REGS(%pc),&0x3fff
        fmovm.x         DEF_FPREGS(%pc),&0xff
        fmovm.l         DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar

        fmov.l          &0x0f000000,%fpsr

        mov.w           &0x0000,ICCR(%a6)
        movm.l          &0x7fff,IREGS(%a6)
        fmovm.x         &0xff,IFPREGS(%a6)
        fmovm.l         %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)

        mov.w           &0x0000,%cc
unimp_5_pc:
        ftpgt.l         &0xabcdef01

        mov.w           %cc,SCCR(%a6)
        movm.l          &0x7fff,SREGS(%a6)
        fmovm.x         &0xff,SFPREGS(%a6)
        fmovm.l         %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
        mov.l           &0x0f008080,IFPCREGS+0x4(%a6)
        lea             unimp_5_pc(%pc),%a0
        mov.l           %a0,IFPCREGS+0x8(%a6)

        bsr.l           chkregs
        tst.b           %d0
        bne.l           error

        bsr.l           chkfpregs
        tst.b           %d0
        bne.l           error

        clr.l           %d0
        rts

#############################################

effadd_str:
        string          "\tUnimplemented <ea>..."

        align           0x4
effadd_0:
        addq.l          &0x1,TESTCTR(%a6)

        movm.l          DEF_REGS(%pc),&0x3fff
        fmovm.x         DEF_FPREGS(%pc),&0xff
        fmovm.l         DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar

        mov.w           &0x0000,ICCR(%a6)
        movm.l          &0x7fff,IREGS(%a6)
        fmovm.x         &0xff,IFPREGS(%a6)
        fmovm.l         %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)

        fmov.b          &0x2,%fp0

        mov.w           &0x0000,%cc
effadd_0_pc:
        fmul.x          &0xc00000008000000000000000,%fp0

        mov.w           %cc,SCCR(%a6)
        movm.l          &0x7fff,SREGS(%a6)
        fmovm.x         &0xff,SFPREGS(%a6)
        fmovm.l         %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)

        mov.l           &0xc0010000,IFPREGS+0x0(%a6)
        mov.l           &0x80000000,IFPREGS+0x4(%a6)
        mov.l           &0x00000000,IFPREGS+0x8(%a6)
        mov.l           &0x08000000,IFPCREGS+0x4(%a6)
        lea             effadd_0_pc(%pc),%a0
        mov.l           %a0,IFPCREGS+0x8(%a6)

        bsr.l           chkregs
        tst.b           %d0
        bne.l           error

        bsr.l           chkfpregs
        tst.b           %d0
        bne.l           error

effadd_1:
        addq.l          &0x1,TESTCTR(%a6)

        movm.l          DEF_REGS(%pc),&0x3fff
        fmovm.x         DEF_FPREGS(%pc),&0xff
        fmovm.l         DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar

        mov.w           &0x0000,ICCR(%a6)
        movm.l          &0x7fff,IREGS(%a6)
        fmovm.x         &0xff,IFPREGS(%a6)
        fmovm.l         %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)

        mov.w           &0x0000,%cc
effadd_1_pc:
        fabs.p          &0xc12300012345678912345678,%fp0

        mov.w           %cc,SCCR(%a6)
        movm.l          &0x7fff,SREGS(%a6)
        fmovm.x         &0xff,SFPREGS(%a6)
        fmovm.l         %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)

        mov.l           &0x3e660000,IFPREGS+0x0(%a6)
        mov.l           &0xd0ed23e8,IFPREGS+0x4(%a6)
        mov.l           &0xd14035bc,IFPREGS+0x8(%a6)
        mov.l           &0x00000108,IFPCREGS+0x4(%a6)
        lea             effadd_1_pc(%pc),%a0
        mov.l           %a0,IFPCREGS+0x8(%a6)

        bsr.l           chkregs
        tst.b           %d0
        bne.l           error

        bsr.l           chkfpregs
        tst.b           %d0
        bne.l           error

fmovml_0:
        addq.l          &0x1,TESTCTR(%a6)

        movm.l          DEF_REGS(%pc),&0x3fff
        fmovm.x         DEF_FPREGS(%pc),&0xff
        fmovm.l         DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar

        mov.w           &0x0000,ICCR(%a6)
        mov.w           &0x0000,%cc
        movm.l          &0x7fff,IREGS(%a6)
        fmovm.x         &0xff,IFPREGS(%a6)
        fmovm.l         %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)

        fmovm.l         &0xffffffffffffffff,%fpcr,%fpsr

        mov.w           %cc,SCCR(%a6)
        movm.l          &0x7fff,SREGS(%a6)
        fmovm.x         &0xff,SFPREGS(%a6)
        fmovm.l         %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
        mov.l           &0x0000fff0,IFPCREGS+0x0(%a6)
        mov.l           &0x0ffffff8,IFPCREGS+0x4(%a6)

        bsr.l           chkregs
        tst.b           %d0
        bne.l           error

        bsr.l           chkfpregs
        tst.b           %d0
        bne.l           error

fmovml_1:
        addq.l          &0x1,TESTCTR(%a6)

        movm.l          DEF_REGS(%pc),&0x3fff
        fmovm.x         DEF_FPREGS(%pc),&0xff
        fmovm.l         DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar

        mov.w           &0x0000,ICCR(%a6)
        mov.w           &0x0000,%cc
        movm.l          &0x7fff,IREGS(%a6)
        fmovm.x         &0xff,IFPREGS(%a6)
        fmovm.l         %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)

        fmovm.l         &0xffffffffffffffff,%fpcr,%fpiar

        mov.w           %cc,SCCR(%a6)
        movm.l          &0x7fff,SREGS(%a6)
        fmovm.x         &0xff,SFPREGS(%a6)
        fmovm.l         %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
        mov.l           &0x0000fff0,IFPCREGS+0x0(%a6)
        mov.l           &0xffffffff,IFPCREGS+0x8(%a6)

        bsr.l           chkregs
        tst.b           %d0
        bne.l           error

        bsr.l           chkfpregs
        tst.b           %d0
        bne.l           error

fmovml_2:
        addq.l          &0x1,TESTCTR(%a6)

        movm.l          DEF_REGS(%pc),&0x3fff
        fmovm.x         DEF_FPREGS(%pc),&0xff
        fmovm.l         DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar

        mov.w           &0x0000,ICCR(%a6)
        mov.w           &0x0000,%cc
        movm.l          &0x7fff,IREGS(%a6)
        fmovm.x         &0xff,IFPREGS(%a6)
        fmovm.l         %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)

        fmovm.l         &0xffffffffffffffff,%fpsr,%fpiar

        mov.w           %cc,SCCR(%a6)
        movm.l          &0x7fff,SREGS(%a6)
        fmovm.x         &0xff,SFPREGS(%a6)
        fmovm.l         %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
        mov.l           &0x0ffffff8,IFPCREGS+0x4(%a6)
        mov.l           &0xffffffff,IFPCREGS+0x8(%a6)

        bsr.l           chkregs
        tst.b           %d0
        bne.l           error

        bsr.l           chkfpregs
        tst.b           %d0
        bne.l           error

fmovml_3:
        addq.l          &0x1,TESTCTR(%a6)

        movm.l          DEF_REGS(%pc),&0x3fff
        fmovm.x         DEF_FPREGS(%pc),&0xff
        fmovm.l         DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar

        mov.w           &0x0000,ICCR(%a6)
        mov.w           &0x0000,%cc
        movm.l          &0x7fff,IREGS(%a6)
        fmovm.x         &0xff,IFPREGS(%a6)
        fmovm.l         %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)

        fmovm.l         &0xffffffffffffffffffffffff,%fpcr,%fpsr,%fpiar

        mov.w           %cc,SCCR(%a6)
        movm.l          &0x7fff,SREGS(%a6)
        fmovm.x         &0xff,SFPREGS(%a6)
        fmovm.l         %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
        mov.l           &0x0000fff0,IFPCREGS+0x0(%a6)
        mov.l           &0x0ffffff8,IFPCREGS+0x4(%a6)
        mov.l           &0xffffffff,IFPCREGS+0x8(%a6)

        bsr.l           chkregs
        tst.b           %d0
        bne.l           error

        bsr.l           chkfpregs
        tst.b           %d0
        bne.l           error

# fmovmx dynamic
fmovmx_0:
        addq.l          &0x1,TESTCTR(%a6)

        movm.l          DEF_REGS(%pc),&0x3fff
        fmovm.x         DEF_FPREGS(%pc),&0xff
        fmovm.l         DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar

        fmov.b          &0x1,%fp0
        fmov.b          &0x2,%fp1
        fmov.b          &0x3,%fp2
        fmov.b          &0x4,%fp3
        fmov.b          &0x5,%fp4
        fmov.b          &0x6,%fp5
        fmov.b          &0x7,%fp6
        fmov.b          &0x8,%fp7

        fmov.l          &0x0,%fpiar
        mov.l           &0xffffffaa,%d0

        mov.w           &0x0000,ICCR(%a6)
        movm.l          &0xffff,IREGS(%a6)

        fmovm.l         %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
        fmovm.x         &0xff,IFPREGS(%a6)
        
        mov.w           &0x0000,%cc

        fmovm.x         %d0,-(%sp)

        mov.w           %cc,SCCR(%a6)

        fmovm.l         %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)

        fmov.s          &0x7f800000,%fp1
        fmov.s          &0x7f800000,%fp3
        fmov.s          &0x7f800000,%fp5
        fmov.s          &0x7f800000,%fp7

        fmov.x          (%sp)+,%fp1
        fmov.x          (%sp)+,%fp3
        fmov.x          (%sp)+,%fp5
        fmov.x          (%sp)+,%fp7

        movm.l          &0xffff,SREGS(%a6)
        fmovm.x         &0xff,SFPREGS(%a6)

        bsr.l           chkregs
        tst.b           %d0
        bne.l           error

        bsr.l           chkfpregs
        tst.b           %d0
        bne.l           error

fmovmx_1:
        addq.l          &0x1,TESTCTR(%a6)

        movm.l          DEF_REGS(%pc),&0x3fff
        fmovm.x         DEF_FPREGS(%pc),&0xff
        fmovm.l         DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar

        fmov.b          &0x1,%fp0
        fmov.b          &0x2,%fp1
        fmov.b          &0x3,%fp2
        fmov.b          &0x4,%fp3
        fmov.b          &0x5,%fp4
        fmov.b          &0x6,%fp5
        fmov.b          &0x7,%fp6
        fmov.b          &0x8,%fp7

        fmov.x          %fp6,-(%sp)
        fmov.x          %fp4,-(%sp)
        fmov.x          %fp2,-(%sp)
        fmov.x          %fp0,-(%sp)

        fmovm.x         &0xff,IFPREGS(%a6)

        fmov.s          &0x7f800000,%fp6
        fmov.s          &0x7f800000,%fp4
        fmov.s          &0x7f800000,%fp2
        fmov.s          &0x7f800000,%fp0

        fmov.l          &0x0,%fpiar
        fmov.l          &0x0,%fpsr
        mov.l           &0xffffffaa,%d0

        mov.w           &0x0000,ICCR(%a6)
        movm.l          &0xffff,IREGS(%a6)

        fmovm.l         %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
        
        mov.w           &0x0000,%cc

        fmovm.x         (%sp)+,%d0

        mov.w           %cc,SCCR(%a6)

        fmovm.l         %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)

        movm.l          &0xffff,SREGS(%a6)
        fmovm.x         &0xff,SFPREGS(%a6)

        bsr.l           chkregs
        tst.b           %d0
        bne.l           error

        bsr.l           chkfpregs
        tst.b           %d0
        bne.l           error

fmovmx_2:
        addq.l          &0x1,TESTCTR(%a6)

        movm.l          DEF_REGS(%pc),&0x3fff
        fmovm.x         DEF_FPREGS(%pc),&0xff
        fmovm.l         DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar

        fmov.b          &0x1,%fp0
        fmov.b          &0x2,%fp1
        fmov.b          &0x3,%fp2
        fmov.b          &0x4,%fp3
        fmov.b          &0x5,%fp4
        fmov.b          &0x6,%fp5
        fmov.b          &0x7,%fp6
        fmov.b          &0x8,%fp7

        fmov.l          &0x0,%fpiar
        mov.l           &0xffffff00,%d0

        mov.w           &0x0000,ICCR(%a6)
        movm.l          &0xffff,IREGS(%a6)

        fmovm.l         %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
        fmovm.x         &0xff,IFPREGS(%a6)
        
        mov.w           &0x0000,%cc

        fmovm.x         %d0,-(%sp)

        mov.w           %cc,SCCR(%a6)

        fmovm.l         %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)

        movm.l          &0xffff,SREGS(%a6)
        fmovm.x         &0xff,SFPREGS(%a6)

        bsr.l           chkregs
        tst.b           %d0
        bne.l           error

        bsr.l           chkfpregs
        tst.b           %d0
        bne.l           error

        clr.l           %d0
        rts

###########################################################

# This test will take a non-maskable overflow directly.
ovfl_nm_str:
        string          "\tNon-maskable overflow..."

        align           0x4
ovfl_nm_0:
        addq.l          &0x1,TESTCTR(%a6)

        movm.l          DEF_REGS(%pc),&0x3fff
        fmovm.x         DEF_FPREGS(%pc),&0xff
        fmovm.l         DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar

        mov.w           &0x0000,ICCR(%a6)
        movm.l          &0x7fff,IREGS(%a6)
        fmovm.x         &0xff,IFPREGS(%a6)
        fmovm.l         %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)

        fmov.b          &0x2,%fp0
        mov.l           &0x7ffe0000,DATA+0x0(%a6)
        mov.l           &0x80000000,DATA+0x4(%a6)
        mov.l           &0x00000000,DATA+0x8(%a6)

        mov.w           &0x0000,%cc
ovfl_nm_0_pc:
        fmul.x          DATA(%a6),%fp0

        mov.w           %cc,SCCR(%a6)
        movm.l          &0x7fff,SREGS(%a6)
        fmovm.x         &0xff,SFPREGS(%a6)
        fmovm.l         %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)

        mov.l           &0x7fff0000,IFPREGS+0x0(%a6)
        mov.l           &0x00000000,IFPREGS+0x4(%a6)
        mov.l           &0x00000000,IFPREGS+0x8(%a6)
        mov.l           &0x02001048,IFPCREGS+0x4(%a6)
        lea             ovfl_nm_0_pc(%pc),%a0
        mov.l           %a0,IFPCREGS+0x8(%a6)

        bsr.l           chkregs
        tst.b           %d0
        bne.l           error

        bsr.l           chkfpregs
        tst.b           %d0
        bne.l           error

        clr.l           %d0
        rts

###########################################################

# This test will take an overflow directly.
ovfl_str:
        string          "\tEnabled overflow..."

        align           0x4
ovfl_0:
        addq.l          &0x1,TESTCTR(%a6)

        movm.l          DEF_REGS(%pc),&0x3fff
        fmovm.x         DEF_FPREGS(%pc),&0xff
        fmovm.l         DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar

        mov.w           &0x0000,ICCR(%a6)
        movm.l          &0x7fff,IREGS(%a6)
        fmovm.x         &0xff,IFPREGS(%a6)
        fmov.l          &0x00001000,%fpcr
        fmovm.l         %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)

        fmov.b          &0x2,%fp0
        mov.l           &0x7ffe0000,DATA+0x0(%a6)
        mov.l           &0x80000000,DATA+0x4(%a6)
        mov.l           &0x00000000,DATA+0x8(%a6)

        mov.w           &0x0000,%cc
ovfl_0_pc:
        fmul.x          DATA(%a6),%fp0

        mov.w           %cc,SCCR(%a6)
        movm.l          &0x7fff,SREGS(%a6)
        fmovm.x         &0xff,SFPREGS(%a6)
        fmovm.l         %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)

        mov.l           &0x7fff0000,IFPREGS+0x0(%a6)
        mov.l           &0x00000000,IFPREGS+0x4(%a6)
        mov.l           &0x00000000,IFPREGS+0x8(%a6)
        mov.l           &0x02001048,IFPCREGS+0x4(%a6)
        lea             ovfl_0_pc(%pc),%a0
        mov.l           %a0,IFPCREGS+0x8(%a6)

        bsr.l           chkregs
        tst.b           %d0
        bne.l           error

        bsr.l           chkfpregs
        tst.b           %d0
        bne.l           error

        clr.l           %d0
        rts

#####################################################################

# This test will take an underflow directly.
unfl_str:
        string          "\tEnabled underflow..."

        align           0x4
unfl_0:
        addq.l          &0x1,TESTCTR(%a6)

        movm.l          DEF_REGS(%pc),&0x3fff
        fmovm.x         DEF_FPREGS(%pc),&0xff
        fmovm.l         DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar

        mov.w           &0x0000,ICCR(%a6)
        movm.l          &0x7fff,IREGS(%a6)
        fmovm.x         &0xff,IFPREGS(%a6)
        fmov.l          &0x00000800,%fpcr
        fmovm.l         %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)

        mov.l           &0x00000000,DATA+0x0(%a6)
        mov.l           &0x80000000,DATA+0x4(%a6)
        mov.l           &0x00000000,DATA+0x8(%a6)
        fmovm.x         DATA(%a6),&0x80

        mov.w           &0x0000,%cc
unfl_0_pc:
        fdiv.b          &0x2,%fp0

        mov.w           %cc,SCCR(%a6)
        movm.l          &0x7fff,SREGS(%a6)
        fmovm.x         &0xff,SFPREGS(%a6)
        fmovm.l         %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)

        mov.l           &0x00000000,IFPREGS+0x0(%a6)
        mov.l           &0x40000000,IFPREGS+0x4(%a6)
        mov.l           &0x00000000,IFPREGS+0x8(%a6)
        mov.l           &0x00000800,IFPCREGS+0x4(%a6)
        lea             unfl_0_pc(%pc),%a0
        mov.l           %a0,IFPCREGS+0x8(%a6)

        bsr.l           chkregs
        tst.b           %d0
        bne.l           error

        bsr.l           chkfpregs
        tst.b           %d0
        bne.l           error

        clr.l           %d0
        rts

#####################################################################

# This test will take a non-maskable underflow directly.
unfl_nm_str:
        string          "\tNon-maskable underflow..."

        align           0x4
unfl_nm_0:
        addq.l          &0x1,TESTCTR(%a6)

        movm.l          DEF_REGS(%pc),&0x3fff
        fmovm.x         DEF_FPREGS(%pc),&0xff
        fmovm.l         DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar

        mov.w           &0x0000,ICCR(%a6)
        movm.l          &0x7fff,IREGS(%a6)
        fmovm.x         &0xff,IFPREGS(%a6)
        fmovm.l         %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)

        mov.l           &0x00000000,DATA+0x0(%a6)
        mov.l           &0x80000000,DATA+0x4(%a6)
        mov.l           &0x00000000,DATA+0x8(%a6)
        fmovm.x         DATA(%a6),&0x80

        mov.w           &0x0000,%cc
unfl_nm_0_pc:
        fdiv.b          &0x2,%fp0

        mov.w           %cc,SCCR(%a6)
        movm.l          &0x7fff,SREGS(%a6)
        fmovm.x         &0xff,SFPREGS(%a6)
        fmovm.l         %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)

        mov.l           &0x00000000,IFPREGS+0x0(%a6)
        mov.l           &0x40000000,IFPREGS+0x4(%a6)
        mov.l           &0x00000000,IFPREGS+0x8(%a6)
        mov.l           &0x00000800,IFPCREGS+0x4(%a6)
        lea             unfl_nm_0_pc(%pc),%a0
        mov.l           %a0,IFPCREGS+0x8(%a6)

        bsr.l           chkregs
        tst.b           %d0
        bne.l           error

        bsr.l           chkfpregs
        tst.b           %d0
        bne.l           error

        clr.l           %d0
        rts

#####################################################################

inex_str:
        string          "\tEnabled inexact..."

        align           0x4
inex_0:
        addq.l          &0x1,TESTCTR(%a6)

        movm.l          DEF_REGS(%pc),&0x3fff
        fmovm.x         DEF_FPREGS(%pc),&0xff
        fmovm.l         DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar

        mov.w           &0x0000,ICCR(%a6)
        movm.l          &0x7fff,IREGS(%a6)
        fmovm.x         &0xff,IFPREGS(%a6)
        fmov.l          &0x00000200,%fpcr               # enable inexact
        fmovm.l         %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)

        mov.l           &0x50000000,DATA+0x0(%a6)
        mov.l           &0x80000000,DATA+0x4(%a6)
        mov.l           &0x00000000,DATA+0x8(%a6)
        fmovm.x         DATA(%a6),&0x80

        mov.w           &0x0000,%cc
inex_0_pc:
        fadd.b          &0x2,%fp0

        mov.w           %cc,SCCR(%a6)
        movm.l          &0x7fff,SREGS(%a6)
        fmovm.x         &0xff,SFPREGS(%a6)
        fmovm.l         %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)

        mov.l           &0x50000000,IFPREGS+0x0(%a6)
        mov.l           &0x80000000,IFPREGS+0x4(%a6)
        mov.l           &0x00000000,IFPREGS+0x8(%a6)
        mov.l           &0x00000208,IFPCREGS+0x4(%a6)
        lea             inex_0_pc(%pc),%a0
        mov.l           %a0,IFPCREGS+0x8(%a6)

        bsr.l           chkregs
        tst.b           %d0
        bne.l           error

        bsr.l           chkfpregs
        tst.b           %d0
        bne.l           error

        clr.l           %d0
        rts

#####################################################################

snan_str:
        string          "\tEnabled SNAN..."

        align           0x4
snan_0:
        addq.l          &0x1,TESTCTR(%a6)

        movm.l          DEF_REGS(%pc),&0x3fff
        fmovm.x         DEF_FPREGS(%pc),&0xff
        fmovm.l         DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar

        mov.w           &0x0000,ICCR(%a6)
        movm.l          &0x7fff,IREGS(%a6)
        fmovm.x         &0xff,IFPREGS(%a6)
        fmov.l          &0x00004000,%fpcr               # enable SNAN
        fmovm.l         %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)

        mov.l           &0xffff0000,DATA+0x0(%a6)
        mov.l           &0x00000000,DATA+0x4(%a6)
        mov.l           &0x00000001,DATA+0x8(%a6)
        fmovm.x         DATA(%a6),&0x80

        mov.w           &0x0000,%cc
snan_0_pc:
        fadd.b          &0x2,%fp0

        mov.w           %cc,SCCR(%a6)
        movm.l          &0x7fff,SREGS(%a6)
        fmovm.x         &0xff,SFPREGS(%a6)
        fmovm.l         %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)

        mov.l           &0xffff0000,IFPREGS+0x0(%a6)
        mov.l           &0x00000000,IFPREGS+0x4(%a6)
        mov.l           &0x00000001,IFPREGS+0x8(%a6)
        mov.l           &0x09004080,IFPCREGS+0x4(%a6)
        lea             snan_0_pc(%pc),%a0
        mov.l           %a0,IFPCREGS+0x8(%a6)

        bsr.l           chkregs
        tst.b           %d0
        bne.l           error

        bsr.l           chkfpregs
        tst.b           %d0
        bne.l           error

        clr.l           %d0
        rts

#####################################################################

operr_str:
        string          "\tEnabled OPERR..."

        align           0x4
operr_0:
        addq.l          &0x1,TESTCTR(%a6)

        movm.l          DEF_REGS(%pc),&0x3fff
        fmovm.x         DEF_FPREGS(%pc),&0xff
        fmovm.l         DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar

        mov.w           &0x0000,ICCR(%a6)
        movm.l          &0x7fff,IREGS(%a6)
        fmovm.x         &0xff,IFPREGS(%a6)
        fmov.l          &0x00002000,%fpcr               # enable OPERR
        fmovm.l         %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)

        mov.l           &0xffff0000,DATA+0x0(%a6)
        mov.l           &0x00000000,DATA+0x4(%a6)
        mov.l           &0x00000000,DATA+0x8(%a6)
        fmovm.x         DATA(%a6),&0x80

        mov.w           &0x0000,%cc
operr_0_pc:
        fadd.s          &0x7f800000,%fp0

        mov.w           %cc,SCCR(%a6)
        movm.l          &0x7fff,SREGS(%a6)
        fmovm.x         &0xff,SFPREGS(%a6)
        fmovm.l         %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)

        mov.l           &0xffff0000,IFPREGS+0x0(%a6)
        mov.l           &0x00000000,IFPREGS+0x4(%a6)
        mov.l           &0x00000000,IFPREGS+0x8(%a6)
        mov.l           &0x01002080,IFPCREGS+0x4(%a6)
        lea             operr_0_pc(%pc),%a0
        mov.l           %a0,IFPCREGS+0x8(%a6)

        bsr.l           chkregs
        tst.b           %d0
        bne.l           error

        bsr.l           chkfpregs
        tst.b           %d0
        bne.l           error

        clr.l           %d0
        rts

#####################################################################

dz_str:
        string          "\tEnabled DZ..."

        align           0x4
dz_0:
        addq.l          &0x1,TESTCTR(%a6)

        movm.l          DEF_REGS(%pc),&0x3fff
        fmovm.x         DEF_FPREGS(%pc),&0xff
        fmovm.l         DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar

        mov.w           &0x0000,ICCR(%a6)
        movm.l          &0x7fff,IREGS(%a6)
        fmovm.x         &0xff,IFPREGS(%a6)
        fmov.l          &0x00000400,%fpcr               # enable DZ
        fmovm.l         %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)

        mov.l           &0x40000000,DATA+0x0(%a6)
        mov.l           &0x80000000,DATA+0x4(%a6)
        mov.l           &0x00000000,DATA+0x8(%a6)
        fmovm.x         DATA(%a6),&0x80

        mov.w           &0x0000,%cc
dz_0_pc:
        fdiv.b          &0x0,%fp0

        mov.w           %cc,SCCR(%a6)
        movm.l          &0x7fff,SREGS(%a6)
        fmovm.x         &0xff,SFPREGS(%a6)
        fmovm.l         %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)

        mov.l           &0x40000000,IFPREGS+0x0(%a6)
        mov.l           &0x80000000,IFPREGS+0x4(%a6)
        mov.l           &0x00000000,IFPREGS+0x8(%a6)
        mov.l           &0x02000410,IFPCREGS+0x4(%a6)
        lea             dz_0_pc(%pc),%a0
        mov.l           %a0,IFPCREGS+0x8(%a6)

        bsr.l           chkregs
        tst.b           %d0
        bne.l           error

        bsr.l           chkfpregs
        tst.b           %d0
        bne.l           error

        clr.l           %d0
        rts

#####################################################################

unsupp_str:
        string          "\tUnimplemented data type/format..."

# an unnormalized number
        align           0x4
unsupp_0:
        addq.l          &0x1,TESTCTR(%a6)

        movm.l          DEF_REGS(%pc),&0x3fff
        fmovm.x         DEF_FPREGS(%pc),&0xff
        fmovm.l         DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar

        mov.w           &0x0000,ICCR(%a6)
        movm.l          &0x7fff,IREGS(%a6)
        fmovm.x         &0xff,IFPREGS(%a6)
        fmovm.l         %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)

        mov.l           &0xc03f0000,DATA+0x0(%a6)
        mov.l           &0x00000000,DATA+0x4(%a6)
        mov.l           &0x00000001,DATA+0x8(%a6)
        fmov.b          &0x2,%fp0
        mov.w           &0x0000,%cc
unsupp_0_pc:
        fmul.x          DATA(%a6),%fp0

        mov.w           %cc,SCCR(%a6)
        movm.l          &0x7fff,SREGS(%a6)
        fmovm.x         &0xff,SFPREGS(%a6)
        fmovm.l         %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)

        mov.l           &0xc0010000,IFPREGS+0x0(%a6)
        mov.l           &0x80000000,IFPREGS+0x4(%a6)
        mov.l           &0x00000000,IFPREGS+0x8(%a6)
        mov.l           &0x08000000,IFPCREGS+0x4(%a6)
        lea             unsupp_0_pc(%pc),%a0
        mov.l           %a0,IFPCREGS+0x8(%a6)

        bsr.l           chkregs
        tst.b           %d0
        bne.l           error

        bsr.l           chkfpregs
        tst.b           %d0
        bne.l           error

# a denormalized number
unsupp_1:
        addq.l          &0x1,TESTCTR(%a6)

        movm.l          DEF_REGS(%pc),&0x3fff
        fmovm.x         DEF_FPREGS(%pc),&0xff
        fmovm.l         DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar

        mov.w           &0x0000,ICCR(%a6)
        movm.l          &0x7fff,IREGS(%a6)
        fmovm.x         &0xff,IFPREGS(%a6)
        fmovm.l         %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)

        mov.l           &0x80000000,DATA+0x0(%a6)
        mov.l           &0x01000000,DATA+0x4(%a6)
        mov.l           &0x00000000,DATA+0x8(%a6)
        fmov.l          &0x7fffffff,%fp0

        mov.w           &0x0000,%cc
unsupp_1_pc:
        fmul.x          DATA(%a6),%fp0

        mov.w           %cc,SCCR(%a6)
        movm.l          &0x7fff,SREGS(%a6)
        fmovm.x         &0xff,SFPREGS(%a6)
        fmovm.l         %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)

        mov.l           &0x80170000,IFPREGS+0x0(%a6)
        mov.l           &0xfffffffe,IFPREGS+0x4(%a6)
        mov.l           &0x00000000,IFPREGS+0x8(%a6)
        mov.l           &0x08000000,IFPCREGS+0x4(%a6)
        lea             unsupp_1_pc(%pc),%a0
        mov.l           %a0,IFPCREGS+0x8(%a6)

        bsr.l           chkregs
        tst.b           %d0
        bne.l           error

        bsr.l           chkfpregs
        tst.b           %d0
        bne.l           error

# packed
unsupp_2:
        addq.l          &0x1,TESTCTR(%a6)

        movm.l          DEF_REGS(%pc),&0x3fff
        fmovm.x         DEF_FPREGS(%pc),&0xff
        fmovm.l         DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar

        mov.w           &0x0000,ICCR(%a6)
        movm.l          &0x7fff,IREGS(%a6)
        fmovm.x         &0xff,IFPREGS(%a6)
        fmovm.l         %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)

        mov.l           &0xc1230001,DATA+0x0(%a6)
        mov.l           &0x23456789,DATA+0x4(%a6)
        mov.l           &0x12345678,DATA+0x8(%a6)

        mov.w           &0x0000,%cc
unsupp_2_pc:
        fabs.p          DATA(%a6),%fp0

        mov.w           %cc,SCCR(%a6)
        movm.l          &0x7fff,SREGS(%a6)
        fmovm.x         &0xff,SFPREGS(%a6)
        fmovm.l         %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)

        mov.l           &0x3e660000,IFPREGS+0x0(%a6)
        mov.l           &0xd0ed23e8,IFPREGS+0x4(%a6)
        mov.l           &0xd14035bc,IFPREGS+0x8(%a6)
        mov.l           &0x00000108,IFPCREGS+0x4(%a6)
        lea             unsupp_2_pc(%pc),%a0
        mov.l           %a0,IFPCREGS+0x8(%a6)

        bsr.l           chkregs
        tst.b           %d0
        bne.l           error

        bsr.l           chkfpregs
        tst.b           %d0
        bne.l           error

        clr.l           %d0
        rts

###########################################################
###########################################################

chkregs:
        lea             IREGS(%a6),%a0
        lea             SREGS(%a6),%a1
        mov.l           &14,%d0
chkregs_loop:
        cmp.l           (%a0)+,(%a1)+
        bne.l           chkregs_error
        dbra.w          %d0,chkregs_loop

        mov.w           ICCR(%a6),%d0
        mov.w           SCCR(%a6),%d1
        cmp.w           %d0,%d1
        bne.l           chkregs_error

        clr.l           %d0
        rts

chkregs_error:
        movq.l          &0x1,%d0
        rts

error:
        mov.l           TESTCTR(%a6),%d1
        movq.l          &0x1,%d0
        rts

chkfpregs:
        lea             IFPREGS(%a6),%a0
        lea             SFPREGS(%a6),%a1
        mov.l           &23,%d0
chkfpregs_loop:
        cmp.l           (%a0)+,(%a1)+
        bne.l           chkfpregs_error
        dbra.w          %d0,chkfpregs_loop

        lea             IFPCREGS(%a6),%a0
        lea             SFPCREGS(%a6),%a1
        cmp.l           (%a0)+,(%a1)+
        bne.l           chkfpregs_error
        cmp.l           (%a0)+,(%a1)+
        bne.l           chkfpregs_error
        cmp.l           (%a0)+,(%a1)+
        bne.l           chkfpregs_error

        clr.l           %d0
        rts

chkfpregs_error:
        movq.l          &0x1,%d0
        rts

DEF_REGS:
        long            0xacacacac, 0xacacacac, 0xacacacac, 0xacacacac
        long            0xacacacac, 0xacacacac, 0xacacacac, 0xacacacac

        long            0xacacacac, 0xacacacac, 0xacacacac, 0xacacacac
        long            0xacacacac, 0xacacacac, 0xacacacac, 0xacacacac

DEF_FPREGS:
        long            0x7fff0000, 0xffffffff, 0xffffffff
        long            0x7fff0000, 0xffffffff, 0xffffffff
        long            0x7fff0000, 0xffffffff, 0xffffffff
        long            0x7fff0000, 0xffffffff, 0xffffffff
        long            0x7fff0000, 0xffffffff, 0xffffffff
        long            0x7fff0000, 0xffffffff, 0xffffffff
        long            0x7fff0000, 0xffffffff, 0xffffffff
        long            0x7fff0000, 0xffffffff, 0xffffffff

DEF_FPCREGS:
        long            0x00000000, 0x00000000, 0x00000000

############################################################

_print_str:
        mov.l           %d0,-(%sp)
        mov.l           (TESTTOP-0x80+0x0,%pc),%d0
        pea             (TESTTOP-0x80,%pc,%d0)
        mov.l           0x4(%sp),%d0
        rtd             &0x4

_print_num:
        mov.l           %d0,-(%sp)
        mov.l           (TESTTOP-0x80+0x4,%pc),%d0
        pea             (TESTTOP-0x80,%pc,%d0)
        mov.l           0x4(%sp),%d0
        rtd             &0x4

############################################################

Go to most recent revision | Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.