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

Subversion Repositories eco32

[/] [eco32/] [trunk/] [fp/] [implementation/] [mmix/] [sub2.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
x0 GREG Data_Segment
2
t IS $255
3
 LOC Data_Segment+8
4
 OCTA 1,3,2,3
5
 LOC Data_Segment+8*100
6
 OCTA -1
7
 LOC #100
8
* Maximum of X[1..100]
9
j GREG ;m GREG ;kk GREG ;xk GREG ; GREG @
10
GoMax100 SETL kk,100*8
11
       LDO  m,x0,kk
12
       JMP  1F
13
3H     LDO  xk,x0,kk
14
       CMP  t,xk,m
15
       PBNP t,5F
16
4H     SET  m,xk
17
1H     SR   j,kk,3
18
5H     SUB  kk,kk,8
19
       PBP  kk,3B
20
6H     GO   kk,$0,0
21
 
22
Main   GO   $0,GoMax100
23
 

powered by: WebSVN 2.1.0

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