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

Subversion Repositories diogenes

[/] [diogenes/] [tags/] [initial/] [old/] [slow_eratost.asm] - Blame information for rev 236

Details | Compare with Previous | View Log

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

powered by: WebSVN 2.1.0

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