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

Subversion Repositories eco32

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

Details | Compare with Previous | View Log


          LOC   Data_Segment
x0        GREG  @
X0        IS    @
N         IS    100
 
j         IS    $0
m         IS    $1
kk        IS    $2
xk        IS    $3
t         IS    $255
          LOC   #100
Maximum   SL    kk,$0,3
          LDO   m,x0,kk
          JMP   ChangeJ
Loop      LDO   xk,x0,kk
          CMP   t,m,xk
          PBN   t,DecreaseK
ChangeM   SET   m,xk
ChangeJ   SR    j,kk,3
DecreaseK SUB   kk,kk,8
          PBP   kk,Loop
          POP   2,0
 
Main      GETA  t,8F
          TRAP  0,Fopen,StdIn
          GETA  t,9F
          TRAP  0,Fread,StdIn
          SET   $0,N<<3
1H        SR    $2,$0,3
          PUSHJ 1,Maximum
          TRAP  0,Halt,0
9H        OCTA  X0+1<<3,N<<3
8H        OCTA  7F,TextRead
7H        BYTE  "sort.dat",0

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`

Browse

Tools

Subversion Repositories eco32

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