URL
https://opencores.org/ocsvn/eco32/eco32/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 15 |
Rev 248 |
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,xk,m
|
CMP t,xk,m
|
PBNP t,DecreaseK
|
PBNP 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,9F
|
Main 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
|
LDO $3,x0,$0
|
LDO $3,x0,$0
|
SL $2,$2,3
|
SL $2,$2,3
|
STO $1,x0,$0
|
STO $1,x0,$0
|
STO $3,x0,$2
|
STO $3,x0,$2
|
SUB $0,$0,1<<3
|
SUB $0,$0,1<<3
|
PBNZ $0,1B
|
PBNZ $0,1B
|
GETA t,9F
|
GETA t,9F
|
TRAP 0,Fwrite,StdOut
|
TRAP 0,Fwrite,StdOut
|
TRAP 0,Halt,0
|
TRAP 0,Halt,0
|
9H OCTA X0+1<<3,N<<3
|
9H OCTA X0+1<<3,N<<3
|
|
|
|
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.