Mercurial > hg > Members > kono > os9 > sbc09
annotate 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 |
| rev | line source |
|---|---|
| 57 | 1 ;6809 Benchmark program. |
| 2 | |
| 3 org $100 | |
| 4 | |
| 5 lds #$100 | |
| 6 | |
| 7 ldb #'a' | |
| 8 jsr outc | |
| 9 | |
| 10 | |
| 11 ldy #0 | |
| 12 loop ldx #data | |
| 13 lda #(enddata-data) | |
| 14 clrb | |
| 15 loop2: addb ,x+ | |
| 16 deca | |
| 17 bne loop2 | |
| 18 cmpb #210 | |
| 19 lbne error | |
| 20 leay -1,y | |
| 21 bne loop | |
| 22 | |
| 23 ldb #'b' | |
| 24 jsr outc | |
| 25 jmp realexit | |
| 26 | |
| 27 error ldb #'e' | |
| 28 jsr outc | |
| 29 jmp realexit | |
| 30 | |
| 31 outc swi2 | |
| 32 rts | |
| 33 | |
| 34 realexit sync | |
| 35 | |
| 36 data fcb 1,2,3,4,5,6,7,8,9,10 | |
| 37 fcb 11,12,13,14,15,16,17,18,19,20 | |
| 38 enddata | |
| 39 | |
| 40 end |