массив действительных чисел от 1 до 1000

[Алексей_2012]

здравствуйте, ассемблер изучал год назад, курс был упрощенный, научили работать только со строками, дак вот, помогите пожалуйста разобраться, на работе (у меня практика на предприятии) дали задание: сформировать массив действительных чисел от 1 до 1000, вывести все числа, которые делятся на 3 без остатка, например 3, 6, 9, 12, 15 и тд до 1000, в виде строки я сделал, а как массивом это сделать не знаю, подскажите, пожалуйста, если можно пример кода, заранее благодарен. Чуть не забыл, для tasm надо

[DiemonStar]

можно попробовать режим ideal и макрокомандой:

A = 1
mass label word
rept 1000
 dw A
 A = A + 1
endm

или объявить массив и кодом его заполнить:

mass dw ?
...
mov cx, 1000
mov ax, 1
lea di, mass
rep stosw

[Алексей_2012]

а что такое rep stosw?

А через дерективу Db инициализировать не получится? И как кодом заполнить, объясните подробнее пожалуйста

вот мой пример кода, это все что я смог, а надо чтобы автоматически, при запуске ехе-файла появились цифры: 3, 6, 9,12, 15 и тд до 1000 которые делятся на 3

code segment para public 'code'
assume cs:code,ds:code,ss:code,es:code
org 100h
mov dx,code
mov ds,dx
mov ss,dx
mov es,dx

jmp m100
par1 label byte
max1 db 100
rd1 db ?
Str1 db 101 dup(?)
m100:mov ah,10
lea dx,par1
int 21h
lea si,str1
mov cx,0
mov ah,2
mov dl,0dh
int 21h
mov ah,2
mov dl,0ah
int 21h
mov cl,rd1
m5:mov ah,0
mov bx,0
mov dx,0
mov al,[si]
sub al, 30h
mov bl,3
div bx
cmp dl,0
je m1
jmp m2
m1: mov ah,2
mov dl,[si]
int 21h
m2:inc si
loop m5


mov ah,1
int 21h
mov ah, 4ch
int 21h
code ends
end

переделайте мой код, пожалуйста, как надо в задании

помогите, пожалуйста, другое решение в голову не лезет, тут в строку вводятся символы с клавиатуры, каждый символ делится на 3 и выводится только то, что делится на 3 без остатка, а мне надо чтобы при запуске исполняемого модуля сразу выводились число: 3, 6, 9, 12, 15,....,999. Спасибо))))))

[DiemonStar]

А через дерективу Db инициализировать не получится?

а каким образом вы собрались в байт поместить значение 789, например?

напишу чуть больше кода:

  jmp begin

  mass dw 1000 dup (?)

begin:
; заполняем массив
  lea di, mass
  mov cx, 1000
  mov ax, 1
cyc:
  stosw
  inc ax
  loop cyc
;проверка на делимость
  lea di, mass
  mov cx, 1000
  mov bl, 3
cyc1:
  lodsw
  mov dx,ax
  div bl
  cmp ah, 0   
  jne to_next
;вот сюда вставить вывод исходного числа (находится в dx)
to_next:
  loop cyc1

p.s. а вы с такими знаниями планируете заниматься ассемблером?

[vadimych]

jmp begin

  mass dw 1000 dup (?)

begin:
; заполняем массив
  lea di, mass
  mov cx, 1000
  mov ax, 1
cyc:
  stosw
  inc ax
  loop cyc
;проверка на делимость
  lea di, mass
  mov cx, 1000
  mov bl, 3
cyc1:
  lodsw                         ; на что указывает si ? 
  mov dx,ax
  div bl                          ; рано или поздно получаем переполнение деления
  cmp ah, 0   
  jne to_next
;вот сюда вставить вывод исходного числа (находится в dx)
to_next:
  loop cyc1

И зачем делить вообще? Начать вывод с тройки. Увеличивать выводимое значение с каждым шагом на три до 999.

[DiemonStar]

И зачем делить вообще? Начать вывод с тройки. Увеличивать выводимое значение с каждым шагом на три до 999.[/QUOTE]

тогда зачем вообще заполнять массив?)

я сторонник правильного подхода: вдруг появится между поиском и проверкой какое-нить действие с массивом...

lodsw ; на что указывает si ?

проглядел, что там si нужно заполнить, а не di

div bl ; рано или поздно получаем переполнение деления

главное, чтобы остаток посчитало.

[vadimych]

Сообщение от DiemonStar

главное, чтобы остаток посчитало.

Сто пудов считать будет. Но не долго.

[Алексей_2012]

;вот сюда вставить вывод исходного числа (находится в dx)

дело в том что в программе выложенной в следующем сообщении я тоже не могу вывести числа начиная с 10(((( хотя от 3 до 9 выводит нормально, научите выводить числа большее чем от 0 до 9) и DiemonStar, спасибо вам за код, но напишите пожалуйста всю программу, иначе я сам с ассемблером никогда не разбирусь, а в гугл сунуться-дак ничего не пойму, уже пытался

кстати можно и так, но тут тоже не оч получается(((

code segment para public 'code'
Assume CS:code, DS:code, SS:code, ES:code
org 100h
mov dx,code
mov ds,dx
mov ss,dx
mov es,dx



mov si,1
mov cx,333
m1:
mov ax,0
mov al,3
mul si
mov ah,2
mov dl,al
add dl,30h
int 21h
mov ah,2
mov dl,' '
int 21h
inc si
loop m1



mov ah,1
int 21h
mov ah,4ch
int 21h
code ends
end

p.s. а вы с такими знаниями планируете заниматься ассемблером?

я делфист, а ассемблером заниматься не планирую, это в качестве проверки знания этого языка (т.к в курс колледжа ассемблер тоже входит, а практику прохожу по языкам программирования изученными в колледже) будут проверятся делфи, ассемблер и паскаль

ну дак что? будут еще какие-нибудь предложения?

[DiemonStar]

Если честно, меня ломает писать код полностью - в таких задачах нет ничего нового. И так уже практически все написал) тем более, что нужно искать компилятор и долбагер для отладки...

[Алексей_2012]

во вложении есть компилятор, линковщик и сама прога с моим вариантом вывода чисел, исправьте вывод, пожалуйста