Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Низкоуровневое программирование > Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.05.2009, 18:20   #1
AntonBV
Новичок
Джуниор
 
Регистрация: 10.05.2009
Сообщений: 2
По умолчанию Код на асме TMS320C6x

Помогите написать программный код на асме TMS320C6x!
В ЯП 28 разместить сумму положительных и чётных по номеру слов, а в ЯП 29 сумму отрицательных и нечётных по номеру слов.
AntonBV вне форума Ответить с цитированием
Старый 11.05.2009, 15:15   #2
AntonBV
Новичок
Джуниор
 
Регистрация: 10.05.2009
Сообщений: 2
По умолчанию правильный код?

Код:
Stk  SEGMENT Stack   'STACK'
dw 128 
Stk ENDS
data SEGMENT word public 'DATA'
mas dw 1000, 20000, -20000, 30000, -6000, -10000
I en equ ($-mas)/2 
Mas1   dw len dup(O) 
data ENDS
text SEGMENT word public 'CODE'
ASSUME csrtext, DS: data, ss: stk 
start:
mov AX, data
mov DS, AX
;zadaniel
mov SI, offset mas 
mov DI, [SI] 
push DI
mov DI,[SI+2*len-2] 
push Dl 
mov Dl, SI 
xor вх,вх 
xor BP,BP 
mov cx, len 
S4itaem:
mov AX,[si] 
OR AX,AX 
js otr 
jmp poloj
otr:
inc BX
jmp dalee 
polоj:
inc BP dalee:
add SI,2
Loop s4itaem 
; est' li u nas i +, i -?
cmp BX,0
je exit
cmp BP,0
je exit
mov cx, BX
mov DI, offset mas
cikl:
mov SI,DI
na4alo:
mov AX,[si]
OR AX,AX
js met add SI,2 jmp na4alo
met:
mov DI, SI
NAME:
cmp si, offset mas 
je nameste mov AX,  [Sl-2]
OR AX,AX
js nameste 
mov AX, [Sl-2]
mov BX,  [SI] 
mov [SI], AX 
mov [SI-2], BX
sub SI, 2 jmp name
nameste:
add DI, 2 Loop cikl
exit:
;zadani e2
mov SI, offset mas mov AX,  [SI]
cwd
mov BP, DX mov BX, AX
mov cx, len-1 
metka:
mov AX,  [SI+2]
add SI, 2
cwd
add BX, AX 
adc BP, DX 
loop metka
mov DX, BP 
mov AX, BX
mov DI, word ptr Ten 
idiv DI
;sravnim
mov si, offset mas
mov DI, offset mas1
mov CX, len 
poisk:
cmp [si],AX
nenashli
mov BX,  [si]
mov [DI], BX
add DI, 2 nenashli:
add si, 2
Loop poisk
mov AX,4c00h lnt 21h
text ENDS
END START

Последний раз редактировалось rpy3uH; 11.05.2009 в 18:22.
AntonBV вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поиск в записи (во встроенном асме Delphi) EThread Помощь студентам 1 06.05.2009 10:03
Код игры на Паскале и на Делфи сильно отличается? Как переписать код с Паскаля в Делфи? Mclaren Помощь студентам 2 27.04.2009 22:37
Как мне в асме прочитать данные из файла? lelicman Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 2 10.10.2007 09:24
как на асме реализовать алгоритм манчестерского кодирования Lanches Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 0 17.07.2007 13:50
Загрузка программ из др. программ в АСМе Shacal Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 7 05.02.2007 08:53