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

Subversion Repositories eco32

[/] [eco32/] [trunk/] [fp/] [implementation/] [mmix/] [sub1.mms] - Blame information for rev 320

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 IS $0 ;m IS $1 ;kk IS $2 ;xk IS $3
10
Max100 SETL kk,100*8
11
       LDO  m,x0,kk
12
       JMP  2F
13
3H     LDO  xk,x0,kk
14
       CMP  t,xk,m
15
       PBNP t,5F
16
       SET  m,xk
17
2H     SR   j,kk,3
18
5H     SUB  kk,kk,8
19
       PBP  kk,3B
20
6H     POP  2,0
21
 
22
Main  PUSHJ 0,Max100

powered by: WebSVN 2.1.0

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