Mercurial > hg > Members > kono > os9 > sbc09
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