File: lbranch.s

package info (click to toggle)
binutils 2.32.51.20190821-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, sid
  • size: 309,676 kB
  • sloc: ansic: 1,201,497; asm: 658,869; cpp: 130,432; exp: 69,370; makefile: 56,804; sh: 23,583; lisp: 14,519; yacc: 14,467; perl: 2,111; ada: 1,681; lex: 1,649; pascal: 1,446; python: 991; cs: 879; sed: 195; xml: 95; awk: 25
file content (41 lines) | stat: -rw-r--r-- 646 bytes parent folder | download | duplicates (41)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
# 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