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

Subversion Repositories eco32

[/] [eco32/] [trunk/] [fp/] [implementation/] [mmix/] [sub2.mms] - Rev 78

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

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

Main   GO   $0,GoMax100

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.