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

Subversion Repositories amber

[/] [amber/] [trunk/] [hw/] [tests/] [adc.S] - Diff between revs 2 and 35

Go to most recent revision | Only display areas with differences | Details | Blame | View Log

Rev 2 Rev 35
/*****************************************************************
/*****************************************************************
//                                                              //
//                                                              //
//  Amber 2 Core Instruction Test                               //
//  Amber 2 Core Instruction Test                               //
//                                                              //
//                                                              //
//  This file is part of the Amber project                      //
//  This file is part of the Amber project                      //
//  http://www.opencores.org/project,amber                      //
//  http://www.opencores.org/project,amber                      //
//                                                              //
//                                                              //
//  Description                                                 //
//  Description                                                 //
//  Tests add with carry                                        //
//  Tests add with carry                                        //
//                                                              //
//                                                              //
//  Author(s):                                                  //
//  Author(s):                                                  //
//      - Conor Santifort, csantifort.amber@gmail.com           //
//      - Conor Santifort, csantifort.amber@gmail.com           //
//                                                              //
//                                                              //
//////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////
//                                                              //
//                                                              //
// Copyright (C) 2010 Authors and OPENCORES.ORG                 //
// Copyright (C) 2010 Authors and OPENCORES.ORG                 //
//                                                              //
//                                                              //
// This source file may be used and distributed without         //
// This source file may be used and distributed without         //
// restriction provided that this copyright statement is not    //
// restriction provided that this copyright statement is not    //
// removed from the file and that any derivative work contains  //
// removed from the file and that any derivative work contains  //
// the original copyright notice and the associated disclaimer. //
// the original copyright notice and the associated disclaimer. //
//                                                              //
//                                                              //
// This source file is free software; you can redistribute it   //
// This source file is free software; you can redistribute it   //
// and/or modify it under the terms of the GNU Lesser General   //
// and/or modify it under the terms of the GNU Lesser General   //
// Public License as published by the Free Software Foundation; //
// Public License as published by the Free Software Foundation; //
// either version 2.1 of the License, or (at your option) any   //
// either version 2.1 of the License, or (at your option) any   //
// later version.                                               //
// later version.                                               //
//                                                              //
//                                                              //
// This source is distributed in the hope that it will be       //
// This source is distributed in the hope that it will be       //
// useful, but WITHOUT ANY WARRANTY; without even the implied   //
// useful, but WITHOUT ANY WARRANTY; without even the implied   //
// warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR      //
// warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR      //
// PURPOSE.  See the GNU Lesser General Public License for more //
// PURPOSE.  See the GNU Lesser General Public License for more //
// details.                                                     //
// details.                                                     //
//                                                              //
//                                                              //
// You should have received a copy of the GNU Lesser General    //
// You should have received a copy of the GNU Lesser General    //
// Public License along with this source; if not, download it   //
// Public License along with this source; if not, download it   //
// from http://www.opencores.org/lgpl.shtml                     //
// from http://www.opencores.org/lgpl.shtml                     //
//                                                              //
//                                                              //
*****************************************************************/
*****************************************************************/
#include "amber_registers.h"
#include "amber_registers.h"
 
#include "amber_macros.h"
 
 
        .section .text
        .section .text
        .globl  main
        .globl  main
main:
main:
        ldr     r0, Data0
        ldr     r0, Data0
        ldr     r1, Data1
        ldr     r1, Data1
        ldr     r2, Data2
        ldr     r2, Data2
        ldr     r3, Data3
        ldr     r3, Data3
        ldr     r4, Result0
        ldr     r4, Result0
        adcs    r8, r0, r1
        adcs    r8, r0, r1
        adc     r8, r8, r3
        adc     r8, r8, r3
        @ check that overflow flag has been set
        @ check that overflow flag has been set
        mov     r5, pc
        mov     r5, pc
        and     r5, r5, #0xf0000000 @ clear non-flag bits
        and     r5, r5, #0xf0000000 @ clear non-flag bits
        cmp     r5,     #0x90000000 @ negative and overflow flags set
        expect  r5, 0x90000000, __LINE__
        movne   r10, #10
 
        bne     testfail
 
 
 
        @ check the result
 
        cmp     r8, r4
 
        movne   r10, #20
 
        bne     testfail
 
 
 
 
        @ fail if r4 not equal to r8
 
        compare r8, r4, __LINE__
 
 
        b       testpass
        b       testpass
testfail:
testfail:
        ldr     r11, AdrTestStatus
        ldr     r11, AdrTestStatus
        str     r10, [r11]
        str     r10, [r11]
        b       testfail
        b       testfail
testpass:
testpass:
        ldr     r11, AdrTestStatus
        ldr     r11, AdrTestStatus
        mov     r10, #17
        mov     r10, #17
        str     r10, [r11]
        str     r10, [r11]
        b       testpass
        b       testpass
/* Write 17 to this address to generate a Test Passed message */
/* Write 17 to this address to generate a Test Passed message */
AdrTestStatus:  .word  ADR_AMBER_TEST_STATUS
AdrTestStatus:  .word  ADR_AMBER_TEST_STATUS
Data0:          .word  0x40000000
Data0:          .word  0x40000000
Data1:          .word  0x40000000
Data1:          .word  0x40000000
Data2:          .word  0x10000000
Data2:          .word  0x10000000
Data3:          .word  0x10000000
Data3:          .word  0x10000000
Result0:        .word  0x90000000
Result0:        .word  0x90000000
/* ========================================================================= */
/* ========================================================================= */
/* ========================================================================= */
/* ========================================================================= */
 
 

powered by: WebSVN 2.1.0

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