lbranch.s

来自「俄罗斯高人Mamaich的Pocket gcc编译器（运行在PocketPC上）」· S 代码 · 共 42 行

# 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