URL
https://opencores.org/ocsvn/eco32/eco32/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 15 |
Rev 270 |
LOC Data_Segment
|
LOC Data_Segment
|
x0 GREG @
|
x0 GREG @
|
X0 IS @
|
X0 IS @
|
N IS 100
|
N IS 100
|
|
|
j IS $0
|
j IS $0
|
m IS $1
|
m IS $1
|
kk IS $2
|
kk IS $2
|
xk IS $3
|
xk IS $3
|
t IS $255
|
t IS $255
|
LOC #100
|
LOC #100
|
Maximum SL kk,$0,3
|
Maximum SL kk,$0,3
|
LDO m,x0,kk
|
LDO m,x0,kk
|
JMP ChangeJ
|
JMP ChangeJ
|
Loop LDO xk,x0,kk
|
Loop LDO xk,x0,kk
|
CMP t,m,xk
|
CMP t,m,xk
|
PBN t,DecreaseK
|
PBN t,DecreaseK
|
ChangeM SET m,xk
|
ChangeM SET m,xk
|
ChangeJ SR j,kk,3
|
ChangeJ SR j,kk,3
|
DecreaseK SUB kk,kk,8
|
DecreaseK SUB kk,kk,8
|
PBP kk,Loop
|
PBP kk,Loop
|
POP 2,0
|
POP 2,0
|
|
|
Main GETA t,8F
|
Main GETA t,8F
|
TRAP 0,Fopen,StdIn
|
TRAP 0,Fopen,StdIn
|
GETA t,9F
|
GETA t,9F
|
TRAP 0,Fread,StdIn
|
TRAP 0,Fread,StdIn
|
SET $0,N<<3
|
SET $0,N<<3
|
1H SR $2,$0,3
|
1H SR $2,$0,3
|
PUSHJ 1,Maximum
|
PUSHJ 1,Maximum
|
TRAP 0,Halt,0
|
TRAP 0,Halt,0
|
9H OCTA X0+1<<3,N<<3
|
9H OCTA X0+1<<3,N<<3
|
8H OCTA 7F,TextRead
|
8H OCTA 7F,TextRead
|
7H BYTE "sort.dat",0
|
7H BYTE "sort.dat",0
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.