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] - Rev 205

Compare with Previous | Blame | View Log

# Test for the 68HC11 long branch switch
	.text
	.globl	_rcall
	.globl _start
_start:
_rcall:
	ldaa	#0x10		;86 10
	jbra	Lend		; Must be switched to a jmp
	jbsr	toto		; -> to a jsr
	jbne	toto		; -> to a beq+jmp
	jbeq	toto		; -> to a bne+jmp
	jbcs	toto		; -> to a bcc+jmp
	jbcc	toto		; -> to a bcs+jmp
	xgdx
	xgdx
	beq	bidule		; -> to a bne+jmp
	bcs	bidule		; -> to a bcc+jmp
	bcc	bidule		; -> to a bcs+jmp
	xgdx
	jbra	200
	jbsr	1923
	bne	Lend		; -> to a beq+jmp
	jbsr	toto
	jbeq	toto
	.skip 200
	ldaa	*dir		;96 33
Lend:
	bhi	external_op
	bls	external_op
	bsr	out
	ldx	#12
toto:	
	rts
	.skip 100
bidule:
	rts
	.sect ".page0"
dir:
	.long 0
 
	; END
 

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.