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

Subversion Repositories diogenes

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 130 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
  nop
30
  brnz  l3, :4
31
  nop
32
  brz   l3, :2
33
  nop
34
10:
35
  ldi   l3, 1
36
@  stio  l3, [l3]
37
11:
38
  adi   l3, 1
39
  cmpl  l4, l3, l7
40
  brz   l4, :99
41
  ld    l5, [l3]
42
  nop
43
  brnz  l5, :11
44
  nop
45
  nop
46
  ldi   h4, 0x1
47
  lsi   h4, 0
48
  lsi   h4, 0
49
@  lsi   h4, 0
50
  ldi   h1, 0
51
@  LDL   h5, :40
52
@  call h6, 
53
  stio  l3, [l0]
54
  lsi   h4, 0
55
32:
56
  cmpl  h0, h1, h4
57
  brnz  h0, :32
58
  adi   h1, 1
59
  brz   h0, :11
60
  nop
61
99:
62
  brnz  l1, :99
63
  nop
64
  nop
65
  nop
66
  nop
67
  nop
68
  nop
69
40:
70
@  shi   h3, l3, -1
71
  stio  l3, [l0]
72
  nop
73
  jump  
74
  nop
75
  nop
76
  nop
77
  stop
78
 

powered by: WebSVN 2.1.0

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