URL
https://opencores.org/ocsvn/amber/amber/trunk
Subversion Repositories amber
[/] [amber/] [trunk/] [hw/] [tests/] [bl.S] - Rev 2
Compare with Previous | Blame | View Log
/*****************************************************************// //// Amber 2 Core Instruction Test //// //// This file is part of the Amber project //// http://www.opencores.org/project,amber //// //// Description //// Tests branch and link instruction //// //// Author(s): //// - Conor Santifort, csantifort.amber@gmail.com //// ////////////////////////////////////////////////////////////////////// //// Copyright (C) 2010 Authors and OPENCORES.ORG //// //// This source file may be used and distributed without //// restriction provided that this copyright statement is not //// removed from the file and that any derivative work contains //// the original copyright notice and the associated disclaimer. //// //// This source file is free software; you can redistribute it //// and/or modify it under the terms of the GNU Lesser General //// Public License as published by the Free Software Foundation; //// either version 2.1 of the License, or (at your option) any //// later version. //// //// This source is distributed in the hope that it will be //// useful, but WITHOUT ANY WARRANTY; without even the implied //// warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR //// PURPOSE. See the GNU Lesser General Public License for more //// details. //// //// You should have received a copy of the GNU Lesser General //// Public License along with this source; if not, download it //// from http://www.opencores.org/lgpl.shtml //// //*****************************************************************/#include "amber_registers.h".section .text.globl mainmain:mov r10, #100mov r1, #37mov r2, #47cmp r1, r2movne r3, #42moveq r3, #0mov r5, #0@ branch and linkblne 1fret:cmp r5, #0xffmovne r10, #10bne testfailcmp r1, #37movne r10, #20bne testfailcmp r2, #47movne r10, #30bne testfailcmp r3, #42movne r10, #40bne testfailb testpassb testfailb testfail@ check that the link register gets the correct return address1: ldr r6, =retldr r7, PCMaskand r7, lr, r7cmp r6, r7movne r10, #80bne testfail@ check that the value in r5 survives the jump backmov r5, #0xffmov pc, lrb testfailb testfailtestfail:ldr r11, AdrTestStatusstr r10, [r11]b testfailtestpass:ldr r11, AdrTestStatusmov r10, #17str r10, [r11]b testpass/* Write 17 to this address to generate a Test Passed message */AdrTestStatus: .word ADR_AMBER_TEST_STATUSPCMask: .word 0x03fffffc/* ========================================================================= *//* ========================================================================= */