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

Subversion Repositories eco32

[/] [eco32/] [trunk/] [fp/] [implementation/] [mmix/] [sortx.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
          LOC   Data_Segment
2
x0        GREG  @
3
X0        IS    @
4
N         IS    100
5
 
6
j         IS    $0
7
m         IS    $1
8
kk        IS    $2
9
xk        IS    $3
10
t         IS    $255
11
          LOC   #100
12
Maximum   SL    kk,$0,3
13
          LDO   m,x0,kk
14
          JMP   ChangeJ
15
Loop      LDO   xk,x0,kk
16
          CMP   t,m,xk
17
          PBN   t,DecreaseK
18
ChangeM   SET   m,xk
19
ChangeJ   SR    j,kk,3
20
DecreaseK SUB   kk,kk,8
21
          PBP   kk,Loop
22
          POP   2,0
23
 
24
Main      GETA  t,8F
25
          TRAP  0,Fopen,StdIn
26
          GETA  t,9F
27
          TRAP  0,Fread,StdIn
28
          SET   $0,N<<3
29
1H        SR    $2,$0,3
30
          PUSHJ 1,Maximum
31
          TRAP  0,Halt,0
32
9H        OCTA  X0+1<<3,N<<3
33
8H        OCTA  7F,TextRead
34
7H        BYTE  "sort.dat",0

powered by: WebSVN 2.1.0

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