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

Subversion Repositories eco32

[/] [eco32/] [tags/] [eco32-0.26/] [fp/] [implementation/] [mmix/] [zero.mms] - Diff between revs 15 and 270

Only display areas with differences | Details | Blame | View Log

Rev 15 Rev 270
     LOC #100
     LOC #100
a IS $0
a IS $0
n IS $1
n IS $1
z IS $2
z IS $2
t IS $255
t IS $255
1H   STB   z,a,0
1H   STB   z,a,0
     SUB   n,n,1
     SUB   n,n,1
     ADD   a,a,1
     ADD   a,a,1
Zero BZ    n,9F
Zero BZ    n,9F
     SET   z,0
     SET   z,0
     AND   t,a,7
     AND   t,a,7
     BNZ   t,1B
     BNZ   t,1B
     CMP   t,n,64
     CMP   t,n,64
     PBNN  t,3F
     PBNN  t,3F
     JMP   5F
     JMP   5F
2H   STCO  0,a,0
2H   STCO  0,a,0
     SUB   n,n,8
     SUB   n,n,8
     ADD   a,a,8
     ADD   a,a,8
3H   AND   t,a,63
3H   AND   t,a,63
     PBNZ  t,2B
     PBNZ  t,2B
     CMP   t,n,64
     CMP   t,n,64
     BN    t,5F
     BN    t,5F
4H   PREST 63,a,0
4H   PREST 63,a,0
     SUB   n,n,64
     SUB   n,n,64
     CMP   t,n,64
     CMP   t,n,64
     STCO  0,a,0
     STCO  0,a,0
     STCO  0,a,8
     STCO  0,a,8
     STCO  0,a,16
     STCO  0,a,16
     STCO  0,a,24
     STCO  0,a,24
     STCO  0,a,32
     STCO  0,a,32
     STCO  0,a,40
     STCO  0,a,40
     STCO  0,a,48
     STCO  0,a,48
     STCO  0,a,56
     STCO  0,a,56
     ADD   a,a,64
     ADD   a,a,64
     PBNN  t,4B
     PBNN  t,4B
5H   CMP   t,n,8
5H   CMP   t,n,8
     BN    t,7F
     BN    t,7F
6H   STCO  0,a,0
6H   STCO  0,a,0
     SUB   n,n,8
     SUB   n,n,8
     ADD   a,a,8
     ADD   a,a,8
     CMP   t,n,8
     CMP   t,n,8
     PBNN  t,6B
     PBNN  t,6B
7H   BZ    n,9F
7H   BZ    n,9F
8H   STB   z,a,0
8H   STB   z,a,0
     SUB   n,n,1
     SUB   n,n,1
     ADD   a,a,1
     ADD   a,a,1
     PBNZ  n,8B
     PBNZ  n,8B
9H   POP
9H   POP
Main SET   a+1,#fff7
Main SET   a+1,#fff7
     SET   n+1,146
     SET   n+1,146
     PUSHJ 0,Zero
     PUSHJ 0,Zero
 
 

powered by: WebSVN 2.1.0

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