projects
/
calu.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
c03df084ea3f8ce97ce947940f4c482c3de535c1
[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
85
andx r1, 0x3
86
87
cmpi r1, 1
88
addideq r3, r3, 3
89
subideq r2, r2, 12
90
breq- loop1
91
92
cmpi r1, 2
93
addideq r3, r3, 2
94
subideq r2, r2, 8
95
breq- loop2
96
97
cmpi r1, 3
98
addideq r3, r3, 1
99
subideq r2, r2, 4
100
breq- loop3
101
102
addi r3, r3, 4
103
loop:
104
subi r3, r3, 4
105
retzs-
106
ldw r4, 0(r2)
107
add r0, r0, r4
108
109
loop3:
110
ldw r4, 4(r2)
111
add r0, r0, r4
112
113
loop2:
114
ldw r4, 8(r2)
115
add r0, r0, r4
116
117
loop1:
118
ldw r4, 12(r2)
119
add r0, r0, r4
120
121
addi r2, r2, 4*4
122
br+ loop