Подсчитать вес двоичного вектора и другое на Ассемблер

[Alexandra42]

Здравствуйте, уважаемые программисты.
Не могу после Паскаля/Дельфи вникнуть в Ассемблер, а нужно по учебе решить две задачки:

1. Подсчитать вес двоичного вектора и сохранить результат

;Сегменты не более 64 Кб.
.Model small

;сегмент стека
Sseg SEGMENT 'stack'
     db 256 dup(?)
Sseg ends

;сегмент данных
Dseg SEGMENT 'data'
...
Dseg ends

;Сегмент кода
Cseg SEGMENT 'code'
Assume CS:Cseg, DS:Dseg, SS:Sseg

;Основная программа
Main PROC FAR

;Подготовка к возврату в операционную систему
  PUSH DS
  Mov AX,0
  PUSH AX

;Настроим DS на наш сегмент данных
  Mov AX,Dseg
  Mov DS,AX

;Выполнение операций
...

;Передача управления первому оператору в PSP
  RET

Main ENDP
Cseg ends
end Main

Код должен быть такого типа. Т.е. все должно реализоваться без подпрограмм в разделе ;Выполнение операций. Должны использоваться либо циклы, либо условия if then. Исходное число (числа) хранится в двухбайтовой ячейке (ячейках) сегмента данных, результат необходимо сохранить в однобайтовую ячейку сегмента данных.

2. Найти логическую сумму положительных элементов массива и записать ее в Rg AX, и логическую сумму отрицательных элементов массива, записать ее в Rg ВХ (формат элементов массива - байт).

;Сегменты не более 64 Кб.
.Model small

;сегмент стека
Sseg SEGMENT 'stack'
     db 256 dup(?)
Sseg ends

;сегмент данных
Dseg SEGMENT 'data'
...
Dseg ends

;Сегмент кода
Cseg SEGMENT 'code'
Assume CS:Cseg, DS:Dseg, SS:Sseg

;Основная программа
Main PROC FAR

;Подготовка к возврату в операционную систему
push DS
MOV AX, 0
push AX

;Настроим DS на наш сегмент данных
MOV AX, Dseg
MOV DS, AX

;Выполнение операций
...

;Передача управления первому оператору в PSP
RET
Main ENDP
Cseg ends
end Main

Результаты необходимо сохранить в РОНы.

Вроде все. Заранее спасибо Вам.

[Alexandra42]

Закройте или удалите тему. Уже не нужно.