4 трудных задачи на вычисление и нахождение ... (Assembler)

[metqqq]

необходимо решить 4 задачи,эти задачи будут на предстоящем экзамене в четверг, очень нужна ваша помощь
скрин заданий

[challengerr]

Вариант 13. (Надеюсь, что правильно)
m и n задаются непосредственно в коде
Компилятор: masm
Строка компиляции: ml /c /coff /Cp msgbox.asm
Строка сборки: link /SUBSYSTEM:WINDOWS /LIBPATH:c:\masm32\lib msgbox.obj

.386
.model flat,stdcall
option casemap:none

include \masm32\include\windows.inc
include \masm32\include\user32.inc
include \masm32\include\kernel32.inc
include \masm32\include\gdi32.inc
includelib \masm32\lib\user32.lib
includelib \masm32\lib\kernel32.lib
includelib \masm32\lib\gdi32.lib

.data
template db "%d", 0
MsgCaption      db "Iczelion's tutorial no.2",0

.data?
i dd ?
j dd ?
m dd ?
n dd ?
r dd ?
c1 dd ?
c2 dd ?
c3 dd ?

buffer db 512 dup(?)

.code
start:

; вариант 13
mov c3, 0
mov c2, 0

mov m, 3
mov n, 4

mov i, 1   ; i = 1

u2:
mov ecx, m   ; eax = m
cmp ecx, i    ; i <= m ?      ; eax  - i
jz u3 ; выход из внешнего цикла если число ноль(ZF=1) или отрицательное(SF=1)
       ; jump если  eax - 1 <= 0  zf = 1 or sf = 1

mov j, 1   ; инициализация счетчика внутреннего цикла

u1:
mov ebx, n
sub ebx, i   ; ebx = n - i
cmp ebx, j  ;  j <=  n - i   ?
jz u4 ; выход из внутреннего цикла

mov eax, j
mul m    ; m * j
mov c1, eax   ; c1 =  m * j
mov eax, 2
mul i   ; i * 2
add c1, eax  ;   c1 = c1 +  i * 2

inc j  ; j++

mov eax, c1
add c2, eax   ; c2 = c2 + c1

jmp u1

u4:
inc i    ; i++

mov eax, c2
add c3, eax   ; c3 = c3 + c2

jmp u2

u3:

invoke wsprintf, ADDR buffer, ADDR template, c3
invoke MessageBox, NULL, ADDR buffer, ADDR MsgCaption, MB_OK


end start

[challengerr]

Вариант 12 ( мог ошибиться, но надеюсь, что правильно)

.386
.model flat,stdcall
option casemap:none

include \masm32\include\windows.inc
include \masm32\include\user32.inc
include \masm32\include\kernel32.inc
include \masm32\include\gdi32.inc
includelib \masm32\lib\user32.lib
includelib \masm32\lib\kernel32.lib
includelib \masm32\lib\gdi32.lib

.data
template db "%d", 0
MsgCaption      db "Iczelion's tutorial no.2",0

.data?
k dd ?
l dd ?
m dd ?
n dd ?
c1 dd ?
c2 dd ?
c3 dd ?
buffer db 512 dup(?)

.code
start:

; вариант 12
mov c3, 0
mov c2, 0

mov m, 7
mov n, 9

mov k, 5   ; k = 5

u2:
mov ecx, m   ; ecx = m
cmp ecx, k    ; k <= m ?      ; ecx  - k
jz u3 ; выход из внешнего цикла

mov l, 1   ; инициализация счетчика внутреннего цикла

u1:
mov ebx, n
sub ebx, k   ; ebx = n - k
cmp ebx, l  ;  l <=  n - k   ?
jz u4 ; выход из внутреннего цикла

mov eax, k
mov c1, eax   ; c1 =  k
mov eax, l
add c1, eax  ;   c1 = c1 +  l

inc l  ; l++

mov eax, c1
add c2, eax   ; c2 = c2 + c1

jmp u1

u4:

mov eax, c2
mul k      ; c2 * k
mov c2, eax    ; c2 = eax

inc k    ; k++

mov eax, c2
add c3, eax   ; c3 = c3 + c2

jmp u2

u3:

invoke wsprintf, ADDR buffer, ADDR template, c3
invoke MessageBox, NULL, ADDR buffer, ADDR MsgCaption, MB_OK


end start

[alexcoder]

Контакты ниже.

[metqqq]

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

Вариант 12,13

спасибо большое )

[metqqq]

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

Вариант 12 ( мог ошибиться, но надеюсь, что правильно)

.386
.model flat,stdcall
option casemap:none

include \masm32\include\windows.inc
include \masm32\include\user32.inc
include \masm32\include\kernel32.inc
include \masm32\include\gdi32.inc
includelib \masm32\lib\user32.lib
includelib \masm32\lib\kernel32.lib
includelib \masm32\lib\gdi32.lib

.data
template db "%d", 0
MsgCaption      db "Iczelion's tutorial no.2",0

.data?
k dd ?
l dd ?
m dd ?
n dd ?
c1 dd ?
c2 dd ?
c3 dd ?
buffer db 512 dup(?)

.code
start:

; вариант 12
mov c3, 0
mov c2, 0

mov m, 7
mov n, 9

mov k, 5   ; k = 5

u2:
mov ecx, m   ; ecx = m
cmp ecx, k    ; k <= m ?      ; ecx  - k
jz u3 ; выход из внешнего цикла

mov l, 1   ; инициализация счетчика внутреннего цикла

u1:
mov ebx, n
sub ebx, k   ; ebx = n - k
cmp ebx, l  ;  l <=  n - k   ?
jz u4 ; выход из внутреннего цикла

mov eax, k
mov c1, eax   ; c1 =  k
mov eax, l
add c1, eax  ;   c1 = c1 +  l

inc l  ; l++

mov eax, c1
add c2, eax   ; c2 = c2 + c1

jmp u1

u4:

mov eax, c2
mul k      ; c2 * k
mov c2, eax    ; c2 = eax

inc k    ; k++

mov eax, c2
add c3, eax   ; c3 = c3 + c2

jmp u2

u3:

invoke wsprintf, ADDR buffer, ADDR template, c3
invoke MessageBox, NULL, ADDR buffer, ADDR MsgCaption, MB_OK


end start

прочитал что MASM, TASM и emu8086 (в котором мы работаем) имеют совместимость, но при копировании кода появляется куча ошибок, и я не знаю как переписать этот код под emu8086 (без всяких окон, кнопок и прочих прелестей программирования), поможешь ?
p.s 13 вариант тоже нужно переделать

[challengerr]

emu8086
вариант 13
результат в регистре BH

name "var13"

org 100h

mov bl, 0
mov bh, 0

mov dl, 3
mov dh, 4

mov cl, 1   ; i = 1

u2:
mov ah, dh   ; ah = m
add ah, 1
cmp ah, cl    ; i <= m ?
jz u3 
mov ch, 1

u1:
mov ah, dh
sub ah, cl   ; ah = n - i
add ah, 1
cmp ah, ch  ;  j <=  n - i   ?
jz u4 

mov al, ch
mul dl    ; m * j
add bh, al   ; c1 =  m * j  
mov al, 2
mul cl   ; i * 2  
add bh, al  ;   c1 = c1 +  i * 2

inc ch  ; j++

jmp u1

u4:
inc cl    ; i++

jmp u2

u3:
; 

ret

[challengerr]

12 не понимаю, так как происходит переполнение 8 битного регистра, а как сбросить из 8 битного в 16 битный я не понимаю

12 примерно следующим образом

name "var12"

org 100h

mov bl, 0
mov bh, 0

mov dl, 5
mov dh, 6

mov cl, 5   ; k = 5

u2:
mov ah, dl   ; ah = m
add ah, 1
cmp ah, cl    ; k <= m ?
jz u3 
mov ch, 1

u1:
mov ah, dh
sub ah, cl   ; ah = n - k
add ah, 1
cmp ah, ch  ; l  <=  n - k   ?
jz u4 

add bl, cl 
add bl, ch

inc ch  ; l++

jmp u1

u4: 

mov al, bl
mul cl

add bh, al  


inc cl    ; i++ 

jmp u2

u3:
 

ret

[metqqq]

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

12 не понимаю, так как происходит переполнение 8 битного регистра, а как сбросить из 8 битного в 16 битный я не понимаю

12 примерно следующим образом

name "var12"

org 100h

mov bl, 0
mov bh, 0

mov dl, 5
mov dh, 6

mov cl, 5   ; k = 5

u2:
mov ah, dl   ; ah = m
add ah, 1
cmp ah, cl    ; k <= m ?
jz u3 
mov ch, 1

u1:
mov ah, dh
sub ah, cl   ; ah = n - k
add ah, 1
cmp ah, ch  ; l  <=  n - k   ?
jz u4 

add bl, cl 
add bl, ch

inc ch  ; l++

jmp u1

u4: 

mov al, bl
mul cl

add bh, al  


inc cl    ; i++ 

jmp u2

u3:
 

ret

а тут в какой ячейке ответ ? (не шарю совсем =( )
P.S. хотел написать тебе ЛС но не нашел такой функции на этом форуме, можешь связаться со мной по любому из этих контактов ?:
ICQ 414754600
VK vk.com/metqqq

[challengerr]

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

а тут в какой ячейке ответ ?

В регистре bh.

Про задачу с совершенными числами (вариант 11) есть здесь: http://forum.xakep.ru/m_2412871/tm.htm

Про задачу с поиском простых чисел (вариант 10) есть здесь: http://habrahabr.ru/post/165397/

Возможно будет полезной страница здесь: http://citforum.ru/programming/asm.shtml

Список ресурсов для изучения ассемблера:
http://habrahabr.ru/post/131971/