view examples/bench09.asm @ 145:55cc160f101b tl1

TL1 fix
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sat, 12 Jan 2019 15:19:33 +0900
parents 2088fd998865
children
line wrap: on
line source

	;6809 Benchmark program.

	org $100

	lds #$100	

	ldb #'a'
	jsr outc	
	
	
	ldy #0
loop	ldx #data
	lda #(enddata-data)
	clrb	
loop2:	addb ,x+
	deca
	bne loop2
	cmpb #210
	lbne error		
        leay -1,y
	bne loop

        ldb #'b'
	jsr outc
	jmp realexit 

error	ldb #'e'
	jsr outc
	jmp realexit

outc	swi2
	rts

realexit sync

data 	fcb 1,2,3,4,5,6,7,8,9,10
	fcb 11,12,13,14,15,16,17,18,19,20
enddata
  
	end