diff examples/bench09.asm @ 57:2088fd998865

sbc09 directry clean up
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 23 Jul 2018 16:07:12 +0900
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/examples/bench09.asm	Mon Jul 23 16:07:12 2018 +0900
@@ -0,0 +1,40 @@
+	;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