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

Subversion Repositories eco32

[/] [eco32/] [trunk/] [fp/] [implementation/] [mmix/] [zero.mms] - Blame information for rev 54

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 15 hellwig
     LOC #100
2
a IS $0
3
n IS $1
4
z IS $2
5
t IS $255
6
 
7
1H   STB   z,a,0
8
     SUB   n,n,1
9
     ADD   a,a,1
10
Zero BZ    n,9F
11
     SET   z,0
12
     AND   t,a,7
13
     BNZ   t,1B
14
     CMP   t,n,64
15
     PBNN  t,3F
16
     JMP   5F
17
2H   STCO  0,a,0
18
     SUB   n,n,8
19
     ADD   a,a,8
20
3H   AND   t,a,63
21
     PBNZ  t,2B
22
     CMP   t,n,64
23
     BN    t,5F
24
4H   PREST 63,a,0
25
     SUB   n,n,64
26
     CMP   t,n,64
27
     STCO  0,a,0
28
     STCO  0,a,8
29
     STCO  0,a,16
30
     STCO  0,a,24
31
     STCO  0,a,32
32
     STCO  0,a,40
33
     STCO  0,a,48
34
     STCO  0,a,56
35
     ADD   a,a,64
36
     PBNN  t,4B
37
5H   CMP   t,n,8
38
     BN    t,7F
39
6H   STCO  0,a,0
40
     SUB   n,n,8
41
     ADD   a,a,8
42
     CMP   t,n,8
43
     PBNN  t,6B
44
7H   BZ    n,9F
45
8H   STB   z,a,0
46
     SUB   n,n,1
47
     ADD   a,a,1
48
     PBNZ  n,8B
49
9H   POP
50
 
51
Main SET   a+1,#fff7
52
     SET   n+1,146
53
     PUSHJ 0,Zero

powered by: WebSVN 2.1.0

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