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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [binutils-2.20.1/] [gas/] [testsuite/] [gas/] [m68hc11/] [lbranch.s] - Blame information for rev 301

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

Line No. Rev Author Line
1 205 julius 
# Test for the 68HC11 long branch switch
2 
        .text
3 
        .globl  _rcall
4 
        .globl _start
5 
_start:
6 
_rcall:
7 
        ldaa    #0x10           ;86 10
8 
        jbra    Lend            ; Must be switched to a jmp
9 
        jbsr    toto            ; -> to a jsr
10 
        jbne    toto            ; -> to a beq+jmp
11 
        jbeq    toto            ; -> to a bne+jmp
12 
        jbcs    toto            ; -> to a bcc+jmp
13 
        jbcc    toto            ; -> to a bcs+jmp
14 
        xgdx
15 
        xgdx
16 
        beq     bidule          ; -> to a bne+jmp
17 
        bcs     bidule          ; -> to a bcc+jmp
18 
        bcc     bidule          ; -> to a bcs+jmp
19 
        xgdx
20 
        jbra    200
21 
        jbsr    1923
22 
        bne     Lend            ; -> to a beq+jmp
23 
        jbsr    toto
24 
        jbeq    toto
25 
        .skip 200
26 
        ldaa    *dir            ;96 33
27 
Lend:
28 
        bhi     external_op
29 
        bls     external_op
30 
        bsr     out
31 
        ldx     #12
32 
toto:
33 
        rts
34 
        .skip 100
35 
bidule:
36 
        rts
37 
        .sect ".page0"
38 
dir:
39 
        .long 0
40 
 
41 
        ; END

powered by: WebSVN 2.1.0

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