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

Subversion Repositories eco32

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

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

Rev 15 Rev 270
x0 GREG Data_Segment
x0 GREG Data_Segment
t IS $255
t IS $255
 LOC Data_Segment+8
 LOC Data_Segment+8
 OCTA 1,3,2,3
 OCTA 1,3,2,3
 LOC Data_Segment+8*100
 LOC Data_Segment+8*100
 OCTA -1
 OCTA -1
 LOC #100
 LOC #100
* Maximum of X[1..100]
* Maximum of X[1..100]
j IS $0 ;m IS $1 ;kk IS $2 ;xk IS $3
j IS $0 ;m IS $1 ;kk IS $2 ;xk IS $3
Max100 SETL kk,100*8
Max100 SETL kk,100*8
       LDO  m,x0,kk
       LDO  m,x0,kk
       JMP  2F
       JMP  2F
3H     LDO  xk,x0,kk
3H     LDO  xk,x0,kk
       CMP  t,xk,m
       CMP  t,xk,m
       PBNP t,5F
       PBNP t,5F
       SET  m,xk
       SET  m,xk
2H     SR   j,kk,3
2H     SR   j,kk,3
5H     SUB  kk,kk,8
5H     SUB  kk,kk,8
       PBP  kk,3B
       PBP  kk,3B
6H     POP  2,0
6H     POP  2,0
Main  PUSHJ 0,Max100
Main  PUSHJ 0,Max100
 
 

powered by: WebSVN 2.1.0

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