Mercurial > hg > Members > kono > os9 > sbc09

comparison examples/bench09.asm @ 57:2088fd998865

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sbc09 directry clean up
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 23 Jul 2018 16:07:12 +0900
parents
children
comparison
equal deleted inserted replaced
56:4fa2bdb0c457 57:2088fd998865
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