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

Subversion Repositories 1664

[/] [1664/] [trunk/] [arci/] [1664/] [fonte/] [lista/] [0.lista.1664] - Blame information for rev 2

Details | Compare with Previous | View Log


;===============================================================================
;-------------------------------------------------------------------------------
.defina lista.datos 0
.defina lista.capasia {lista.datos sinia_grandia 1 * +}
.defina lista.contador {lista.datos sinia_grandia 2 * +}
.defina lista.crese {lista.datos sinia_grandia 3 * +}
 
.defina lista.grandia {sinia_grandia 4 *}
 
.defina lista.crese_minima {sinia_grandia 1 *}
.defina lista.capasia_minima {sinia_grandia 2 *}
 
;-------------------------------------------------------------------------------
eticeta_opera lista_memoria_copia ;destina, fonte, cuantia
;-------------------------------------------------------------------------------
depende_influe
str 0 3
puia sREVENI
ldri 0 {sinia_grandia 1 -}
str 0 sT0
and 0 2
sut 2 0
str 2 sT1
str 0 2
cmp 2 s_0
z yli lista_memoria_copia@sicle_bait_fini
 
@sicle_bait
ldm [1+] 1
stm [3+] 1
sut 2 s_1
n yli lista_memoria_copia@sicle_bait
 
@sicle_bait_fini
ldr 2 sT1
cmp 2 s_0
z yli lista_memoria_copia@fini
ldri 0 sinia_bitio_sh_
shr 2 0
 
@sicle_sinia
ldm [1+]
stm [3+]
sut 2 s_1
n yli lista_memoria_copia@sicle_sinia
 
@fini
tira 1
str 1 sIP
 
;===============================================================================
eticeta_opera lista_crese ;lista, cuantia
;===============================================================================
puia sREVENI
puia sR0
puia sR1
str 1 sT2
str 0 sR1
str 0 3
ldm [3+]
str 0 sT4
puia
str 3 sD0
ldm [3+]
str 0 sT0
ldm [3+]
sutr 0 sT0
cmp 0 1
c yli lista_crese@fini
sutr 0 sT0
plu 0 1
str 0 2
ldm [3]
plu 0 2
stm [sD0]
str 0 1
eseta_memoria_nova
ldr 2 sR1
stm [2]
ldr 1 sT4
ldr 2 sT2
yl lista_memoria_copia
tira_ 1
eseta_memoria_libri
 
@fini
tira_ sR1
tira sR0
tira 1
str 1 sIP
 
;===============================================================================
eticeta_opera lista_ajunta__1 ;lista, n1
;===============================================================================
puia sREVENI
puia 1
str 0 sT1
ldr 1 s_1
yl lista_crese
str 0 3
ldm [3+]
str 0 sT0
ldm [+3]
str 0 1
plu 0 sT0
str 0 2
tira
stm [2] 1
plu 1 s_1
ldr 0 1
stm [3]
 
ldr 0 sT1
tira 1
str 1 sIP
 
;===============================================================================
eticeta_opera lista_ajunta__sinia ;lista, sinia
;===============================================================================
puia sREVENI
puia 1
str 0 sT1
ldri 1 sinia_grandia
ldr 0 sT1
yl lista_crese
str 0 3
ldm [3+]
str 0 sT0
ldm [+3]
str 0 1
plu 0 sT0
str 0 2
tira
stm [2]
ldri 0 sinia_grandia
plu 0 1
ldr 0 1
stm [3]
 
ldr 0 sT1
tira 1
str 1 sIP
 
;===============================================================================
eticeta_opera lista_nova
;===============================================================================
puia sREVENI
puia sR0
eseta_memoria_nova lista.grandia
str 0 sR0
eseta_memoria_nova lista.capasia_minima
ldr 3 sR0
stm [3+]
ldri 0 lista.capasia_minima
stm [3+]
eor 0 0
stm [3+]
ldri 0 lista.crese_minima
stm [3]
 
tira sR0
tira 1
str 1 sIP
 
;===============================================================================
eticeta_opera lista_libri ;lista
;===============================================================================
puia sREVENI
puia sR0
str 0 sR0
ldm [0]
str 0 1
eseta_memoria_libri
ldr 1 sR0
eseta_memoria_libri
tira sR0
tira 1
str 1 sIP

Line No.	Rev	Author	Line
1	2	mrdmkg	`;===============================================================================`
2			`;-------------------------------------------------------------------------------`
3			`.defina lista.datos 0`
4			`.defina lista.capasia {lista.datos sinia_grandia 1 * +}`
5			`.defina lista.contador {lista.datos sinia_grandia 2 * +}`
6			`.defina lista.crese {lista.datos sinia_grandia 3 * +}`
7
8			`.defina lista.grandia {sinia_grandia 4 *}`
9
10			`.defina lista.crese_minima {sinia_grandia 1 *}`
11			`.defina lista.capasia_minima {sinia_grandia 2 *}`
12
13			`;-------------------------------------------------------------------------------`
14			`eticeta_opera lista_memoria_copia ;destina, fonte, cuantia`
15			`;-------------------------------------------------------------------------------`
16			`depende_influe`
17			`str 0 3`
18			`puia sREVENI`
19			`ldri 0 {sinia_grandia 1 -}`
20			`str 0 sT0`
21			`and 0 2`
22			`sut 2 0`
23			`str 2 sT1`
24			`str 0 2`
25			`cmp 2 s_0`
26			`z yli lista_memoria_copia@sicle_bait_fini`
27
28			`@sicle_bait`
29			`ldm [1+] 1`
30			`stm [3+] 1`
31			`sut 2 s_1`
32			`n yli lista_memoria_copia@sicle_bait`
33
34			`@sicle_bait_fini`
35			`ldr 2 sT1`
36			`cmp 2 s_0`
37			`z yli lista_memoria_copia@fini`
38			`ldri 0 sinia_bitio_sh_`
39			`shr 2 0`
40
41			`@sicle_sinia`
42			`ldm [1+]`
43			`stm [3+]`
44			`sut 2 s_1`
45			`n yli lista_memoria_copia@sicle_sinia`
46
47			`@fini`
48			`tira 1`
49			`str 1 sIP`
50
51			`;===============================================================================`
52			`eticeta_opera lista_crese ;lista, cuantia`
53			`;===============================================================================`
54			`puia sREVENI`
55			`puia sR0`
56			`puia sR1`
57			`str 1 sT2`
58			`str 0 sR1`
59			`str 0 3`
60			`ldm [3+]`
61			`str 0 sT4`
62			`puia`
63			`str 3 sD0`
64			`ldm [3+]`
65			`str 0 sT0`
66			`ldm [3+]`
67			`sutr 0 sT0`
68			`cmp 0 1`
69			`c yli lista_crese@fini`
70			`sutr 0 sT0`
71			`plu 0 1`
72			`str 0 2`
73			`ldm [3]`
74			`plu 0 2`
75			`stm [sD0]`
76			`str 0 1`
77			`eseta_memoria_nova`
78			`ldr 2 sR1`
79			`stm [2]`
80			`ldr 1 sT4`
81			`ldr 2 sT2`
82			`yl lista_memoria_copia`
83			`tira_ 1`
84			`eseta_memoria_libri`
85
86			`@fini`
87			`tira_ sR1`
88			`tira sR0`
89			`tira 1`
90			`str 1 sIP`
91
92			`;===============================================================================`
93			`eticeta_opera lista_ajunta__1 ;lista, n1`
94			`;===============================================================================`
95			`puia sREVENI`
96			`puia 1`
97			`str 0 sT1`
98			`ldr 1 s_1`
99			`yl lista_crese`
100			`str 0 3`
101			`ldm [3+]`
102			`str 0 sT0`
103			`ldm [+3]`
104			`str 0 1`
105			`plu 0 sT0`
106			`str 0 2`
107			`tira`
108			`stm [2] 1`
109			`plu 1 s_1`
110			`ldr 0 1`
111			`stm [3]`
112
113			`ldr 0 sT1`
114			`tira 1`
115			`str 1 sIP`
116
117			`;===============================================================================`
118			`eticeta_opera lista_ajunta__sinia ;lista, sinia`
119			`;===============================================================================`
120			`puia sREVENI`
121			`puia 1`
122			`str 0 sT1`
123			`ldri 1 sinia_grandia`
124			`ldr 0 sT1`
125			`yl lista_crese`
126			`str 0 3`
127			`ldm [3+]`
128			`str 0 sT0`
129			`ldm [+3]`
130			`str 0 1`
131			`plu 0 sT0`
132			`str 0 2`
133			`tira`
134			`stm [2]`
135			`ldri 0 sinia_grandia`
136			`plu 0 1`
137			`ldr 0 1`
138			`stm [3]`
139
140			`ldr 0 sT1`
141			`tira 1`
142			`str 1 sIP`
143
144			`;===============================================================================`
145			`eticeta_opera lista_nova`
146			`;===============================================================================`
147			`puia sREVENI`
148			`puia sR0`
149			`eseta_memoria_nova lista.grandia`
150			`str 0 sR0`
151			`eseta_memoria_nova lista.capasia_minima`
152			`ldr 3 sR0`
153			`stm [3+]`
154			`ldri 0 lista.capasia_minima`
155			`stm [3+]`
156			`eor 0 0`
157			`stm [3+]`
158			`ldri 0 lista.crese_minima`
159			`stm [3]`
160
161			`tira sR0`
162			`tira 1`
163			`str 1 sIP`
164
165			`;===============================================================================`
166			`eticeta_opera lista_libri ;lista`
167			`;===============================================================================`
168			`puia sREVENI`
169			`puia sR0`
170			`str 0 sR0`
171			`ldm [0]`
172			`str 0 1`
173			`eseta_memoria_libri`
174			`ldr 1 sR0`
175			`eseta_memoria_libri`
176			`tira sR0`
177			`tira 1`
178			`str 1 sIP`

Browse

Tools

Subversion Repositories 1664

[/] [1664/] [trunk/] [arci/] [1664/] [fonte/] [lista/] [0.lista.1664] - Blame information for rev 2