projects
/
calu.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
progs: added remaining benchmarks and offset correction for timer
[calu.git]
/
progs
/
sum.s
1
#include "dt_inc.s"
2
.data
3
.org 0x0
4
arr:
5
.fill 2
6
.fill 3
7
.fill 5
8
.fill 7
9
.fill 11
10
.fill 13
11
.fill 17
12
.fill 19
13
.fill 23
14
.fill 29
15
.fill 31
16
.fill 37
17
.fill 41
18
.fill 43
19
.fill 47
20
.fill 53
21
str:
22
.ascii "hier das ergebnis: "
23
.text
24
.org 0x0
25
start:
26
br+ main
27
br+ main
28
ret
29
main:
30
call+ u_init
31
call+ u_recv_byte
32
call u_send_newline
33
34
; benchprolog
35
call t_init
36
call t_stop
37
ldis r1, 0
38
call t_valset
39
call t_start
40
; /benchprolog
41
42
; sum start
43
ldis r1, 16
44
ldis r2, arr@lo
45
ldih r2, arr@hi
46
call+ sum
47
; sum ende
48
49
; benchepilog
50
push r0
51
call+ t_init
52
call+ t_stop
53
call+ t_valget
54
subi r0, r0, 0xc ; offset abziehen
55
pop r3
56
push r0
57
push r3
58
; /benchepilog
59
60
call u_init ; weil r10 ueberschrieben wird
61
ldis r1, str@lo
62
ldih r1, str@hi
63
ldis r2, 19
64
call u_send_string
65
66
pop r1
67
call+ u_send_uint
68
call u_send_newline
69
pop r1
70
call+ u_send_uint
71
call u_send_newline
72
73
br+ main
74
75
sum:
76
;r1 = len
77
;r2 = arr
78
;r3 = i
79
;r0 = sum
80
;r4 arr data
81
ldis r0, 0
82
addi r3, r1, 0
83
retzs- ; check len != 0
84
loop:
85
;load arr data
86
ldw r4, 0(r2)
87
;sum += arr[i];
88
add r0, r0, r4
89
addi r2, r2, 4
90
subi r3, r3, 1
91
brnz+ loop
92
ret