Mercurial > hg > Members > kono > os9 > sbc09

view examples/input.asm @ 80:33ef6aeeac3c os9-game09

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added tag current for changeset 8f3c0906adb9
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Tue, 07 Aug 2018 12:31:41 +0900
parents 2088fd998865
children
line wrap: on
line source

	;6809 Benchmark program.

	org $100

	lds #$100	

	ldb #'a'
	jsr outc	
	
	
	ldx #40
inloop	jsr inc
	jsr outc
	leax -1,x
	bne inloop
	
        ldb #'b'
	jsr outc
	jmp realexit 

error	ldb #'e'
	jsr outc
	jmp realexit

outc	swi2
	rts

inc	swi3
	rts

realexit sync

enddata
  
	end