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

Subversion Repositories eco32

[/] [eco32/] [trunk/] [fp/] [implementation/] [mmix/] [zero.mms] - Rev 251

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

     LOC #100
a IS $0
n IS $1
z IS $2
t IS $255

1H   STB   z,a,0
     SUB   n,n,1
     ADD   a,a,1
Zero BZ    n,9F
     SET   z,0
     AND   t,a,7
     BNZ   t,1B
     CMP   t,n,64
     PBNN  t,3F
     JMP   5F
2H   STCO  0,a,0
     SUB   n,n,8
     ADD   a,a,8
3H   AND   t,a,63
     PBNZ  t,2B
     CMP   t,n,64
     BN    t,5F
4H   PREST 63,a,0
     SUB   n,n,64
     CMP   t,n,64
     STCO  0,a,0
     STCO  0,a,8
     STCO  0,a,16
     STCO  0,a,24
     STCO  0,a,32
     STCO  0,a,40
     STCO  0,a,48
     STCO  0,a,56
     ADD   a,a,64
     PBNN  t,4B
5H   CMP   t,n,8
     BN    t,7F
6H   STCO  0,a,0
     SUB   n,n,8
     ADD   a,a,8
     CMP   t,n,8
     PBNN  t,6B
7H   BZ    n,9F
8H   STB   z,a,0
     SUB   n,n,1
     ADD   a,a,1
     PBNZ  n,8B
9H   POP

Main SET   a+1,#fff7
     SET   n+1,146
     PUSHJ 0,Zero

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

powered by: WebSVN 2.1.0

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