OpenCores
URL https://opencores.org/ocsvn/diogenes/diogenes/trunk

Subversion Repositories diogenes

[/] [diogenes/] [trunk/] [old/] [eratost.asm] - Blame information for rev 236

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 106 fellnhofer 
ldi     l7, 10
2 
mov             l5, l7
3 
ldi             l4, 0
4 
ldi     l0, 0
5 
ldi             l1, 1
6 
1:
7 
  st    l0, [l4]
8 
  adi   l4, 1
9 
  brnz  l5, :1
10 
  adi   l5, -1
11 
  ldi   l4, 2
12 
  mov   l5, l7
13 
2:
14 
  mov   l2, l4
15 
3:
16 
  add   l2, l2, l4
17 
  cmpl  l6, l2, l5
18 
  brz   l6, :4
19 
  nop
20 
  brnz  l6, :3
21 
  st    l1, [l2]
22 
4:
23 
  adi   l4, 1
24 
  cmpg  l3, l4, l5
25 
  brnz  l3, :10
26 
  ld    l3, [l4]
27 
  brnz  l3, :4
28 
  nop
29 
  brz   l3, :2
30 
  nop
31 
10:
32 
  ldi   l3, 1
33 
11:
34 
  adi   l3, 1
35 
  cmpl  l4, l3, l7
36 
  brz   l4, :99
37 
  ld    l5, [l3]
38 
  brnz  l5, :11
39 
  nop
40 
  LDL   h0, :22
41 
  call  h7,    @ 0x23
42 
  mov   l0, l3
43 
  brz   l5, :11
44 
  nop
45 
 
46 
 
47 
@ This is a function:
48 
 
49 
22:
50 
  ldi   h3, 15
51 
  ldi   h1, 48
52 
  ldi   h2, 10
53 
  shi   h0, l0, -4
54 
  and   l1, h0, h3
55 
  cmpl  h4, l1, h2
56 
  brnz  h4, :23
57 
  nop
58 
  adi   l1, 7
59 
23:
60 
  add   l1, l1, h1
61 
  stio  l1, [l1]
62 
  and   l1, l0, h3
63 
  cmpl  h4, l1, h2
64 
  brnz  h4, :24
65 
  nop
66 
  adi   l1, 7
67 
24:
68 
  add   l1, l1, h1
69 
  stio  l1, [l1]
70 
  ldi   l1, 32
71 
  jump
72 
  stio  l1, [l1]
73 
99:
74 
  ldi   l1, 10
75 
  stio  l1, [l1]
76 
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.