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

Subversion Repositories eco32

[/] [eco32/] [trunk/] [fp/] [implementation/] [mmix/] [sortx.mms] - Blame information for rev 118

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.