FasmWorldПрограммирование на ассемблере FASM для начинающих и не только

;ура, вроде верно
use16
org 100h

jmp start

;———————
text db ‘hello asmworld!$’
len db 15
rezult1 rb 15
rezult2 rb 15
;———————-

start:
movzx cx,[len]
xor di,di
xor bh,bh
xor bl,bl

lp1:
mov bh,cl ;сохраняем значение cl, чтобы не нарушить цикл
inc bl

cmp bl,8 ;если 8-й символ, то снова двигаем на 1 бит
jnz metka1
mov bl,1

metka1:
mov cl,bl

mov al,byte[text+di]
ror al,cl
mov byte[rezult1+di],al
add di,1

mov cl,bh ;останавливаем счетчик цикла

loop lp1
;———————

;решил вывести закодированные символы на экран
xor di,di
movzx cx,[len]
mov ah,02h

lp3:
mov dl,byte[rezult1+di]
int 21h
inc di

loop lp3
;—————————

;———расшифровка
movzx cx,[len]
xor di,di
xor bh,bh
xor bl,bl

lp2:
mov bh,cl ;сохраняем значение cl, чтобы не нарушить цикл
inc bl

cmp bl,8 ;если 8-й символ, то снова двигаем на 1 бит
jnz metka2
mov bl,1

metka2:
mov cl,bl

mov al,byte[rezult1+di]
rol al,cl
mov byte[rezult2+di],al
add di,1

mov cl,bh ;останавливаем счетчик цикла

loop lp2
;—————————
;вывод символов на экран:
xor di,di
movzx cx,[len]

mov ah,02h
mov dl,13
int 21h
mov dl,10
int 21h

lp4:
mov dl,byte[rezult2+di]
int 21h
inc di

loop lp4
;—————————-
mov ah,08h
int 21h

mov ax,4C00h
int 21h

    xor bh,bh
    xor bl,bl

    xor bx,bx

помогите пожалуйста найти ошибку в программе, надо выполнить деление натуральных чисел не используя команды div, idiv

Безбожно тупил, но кажется осилил.

use16
org 100h
jmp start
;——————————————-
string db ‘Hello_world!’
string_2 rb 12
string_3 rb 12
;——————————————-
start:
mov cx,12
mov dl,1
sub di,di

lp_kod:
mov al,[string+di]
mov bx,cx
sub cx,cx
mov cl,dl
ror al,cl
mov [string_2+di],al
cmp cl,7
je sbros
inc dl
lp:
inc di
sub ax,ax
mov cx,bx
loop lp_kod
jmp dekod

sbros:
sub dl,6
jmp lp

dekod:
mov cx,12
mov dl,7
sub di,di

lp_dekod:
mov bx,cx
mov al,[string_2+di]
mov cl,dl
ror al,cl
mov [string_3+di],al
cmp cl,1
je nabros
dec dl
lp2:
inc di
mov cx,bx
loop lp_dekod
jmp vivod

nabros:
add dl,6
jmp lp2

vivod:
sub di,di
mov cx,12
mov ah,02h

lp_vivod:
mov dl,[string_2+di]
int 21h
inc di
loop lp_vivod

sub di,di
mov cx,12
mov ah,02h
mov dl,13
int 21h
mov dl,10
int 21h

lp_vivod_2:
mov dl,[string_3+di]
int 21h
inc di
loop lp_vivod_2

mov ah,08h
int 21h

mov ax,4c00h
int 21h

    sub cx,cx
    mov cl,dl

    sub ax,ax

    cmp cl,7
    jne ne_sbros
    xor dl,dl
ne_sbros:
    inc dl
    inc di

Почему в предыдущих примерах резервируется под строковую переменную количество байтов без знака $?

Вот, что у меня получилось:

use16
org 100h
jmp start

arr db ‘Telephone$’
arrz rb 10 ;резервируем под шифровку
arrd rb 10 ;резервируем под дешифровку
l db 10
pak db 13,10,'(de)coding press any key…$’
pak1 db 13,10,’out press any key…$’
start:
mov ah,09h
mov dx,arr
int 21h ;Выводим слово на экран
mov ah,9
mov dx,pak
int 21h
mov ah,8
int 21h ;Предлагаем его (де)шифровать
movzx bx,[l]
mov cx,7
sub bx,cx
mov si,cx
shifr: dec si
mov al,[arr+si]
rol al,cl ;шифруем символы с 7 по 1
mov [arrz+si],al;сохраняем первую часть шифровки
cmp bx,cx
jna men_str ;если в строке меньше 14символов, то начнем шифровать символы >8 попозже
mov ah,[arr+si+7]
rol ah,cl ;шифруем символы с 14 по 8
jmp kon
men_str: jnz con_str ;если это последний символ строки, то записываем $
mov ah,24h
kon: mov [arrz+si+7],ah ;сохраняем вторую часть шифровки

con_str: loop shifr

mov ah,09h
mov dx,arrz
int 21h ;выводим шифровку на экран
mov ah,9
mov dx,pak
int 21h
mov ah,8
int 21h ; предлагаем опять (де)шифровать

mov cx,7
mov si,cx
deshifr: dec si ;дальше тоже самое, но со сдвигом вправо
mov al,[arrz+si]
ror al,cl
mov [arrd+si],al
cmp bx,cx
jna men_str1
mov ah,[arrz+si+7]
ror ah,cl
jmp kon1
men_str1: jnz con_str1
mov ah,24h
kon1: mov [arrd+si+7],ah

con_str1: loop deshifr

mov ah,09h
mov dx,arrd
int 21h ;выводим расшифровку
mov ah,9
mov dx,pak1
int 21h
mov ah,8
int 21h

mov ax,4C00h
int 21h ; happy end

И почему-то русские слова не показываются на экране правильно в моей программе?

Вот, написал, можно сказать, «в лоб». Два куска кода совершенно одинаковы,
отличие в одной команде. Так и не смог придумать, как избежать повтора 🙁

use16
org 100h
mov bx,msg ;в bx — адрес строки
xor si,si ;si указывает номер символа
counter_1:
mov cl,1 ;считает 7 символов
code_msg:
mov al,[bx+si] ;символ — в al
cmp al,0dh ;это конец строки ?
je print_msg_code ;да, напечатать
ror al,cl ;кодируем символ
mov [bx+si],al ;заменим символ на закодированный
inc si
inc cl
cmp cl,7 ;7 символов закодировали ?
jna code_msg ;нет еще, продолжим
jmp counter_1 ;да, кодируем след. группу символов
print_msg_code: ;печать закодированной строки
mov ah,09h
mov dx,bx
int 21h
;Декодирую, все то же самое, за исключением
;направления циклического сдвига:
xor si,si
counter_2:
mov cl,1
decode_msg:
mov al,[bx+si]
cmp al,0dh
je print_msg_decode
rol al,cl
mov [bx+si],al
inc si
inc cl
cmp cl,7
jna decode_msg
jmp counter_2
print_msg_decode: ;печать декодированной строки
int 21h
mov ax,4c00h ;выходим
int 21h
;——————————————————————-
msg db ‘Pochemu,esli ya pishu kirilitzey,’
db ‘vivoditsa kakaya-to abrakadabra ?’,0dh,0ah,’$’

Не стал использовать loop, т. к. счетчик уже занят под роры-ролы.

Как производится циклический арифметический сдвиг?

    mov al,10001111b   ;AL = 10001111b
    sar al,1  ;Арифметический сдвиг, CF=выдвинутый бит
    jc set_bit
    and al,10111111b ;Сбросить 6-й бит
    jmp continue
set_bit:
    or al,01000000b ;Установить 6-й бит
continue:
    ;Результат AL = 11000111b

use16
org 100h
jmp start
;—————————————————————
vk db ‘parolpa$’
m du 8
;—————————————————————
start:
mov si,[m] ;конец строки +1
dec si ; конец строки
mov cx,[m] ; cx =8
s4t4ik1:
mov dl,byte[vk+si]; перемешается от 7 символа к 0
cmp cx,8 ; если символ 7 перемешаемся делаем смешение 1
Jz metca ;
ror dl,cl ; смешение
mov [vk+si],dl ; сохраняем смешение
dec si ; si -1
loop s4t4ik1
mov si,[m] ; востонавливаем значения
mov cx,[m] ; для
dec si ; расшифровки
jmp s4t4ik2 ; переходим к расшифровки
;——————————
s4t4ik2:
mov dl,byte[vk+si];
cmp cx,8
Jz metca1
rol dl,cl
mov [vk+si],dl
dec si
loop s4t4ik2
jmp Print ; выводим конечный расшифрованный результат
;———————————
metca:; необходима для 7симола
mov dl,byte[vk+si]
ror dl,1
mov [vk+si],dl
dec cx
dec si
jmp s4t4ik1
;———————————
metca1:; необходима для 7симола
mov dl,byte[vk+si]
rol dl,1
mov [vk+si],dl
dec cx
dec si
jmp s4t4ik2
;———————————
Print:
mov ah,02h
mov cx,[m]
mov di ,0
s4t4ik3:
mov dl,byte[vk+di];
int 21h
inc di
loop s4t4ik3
mov ah,08h
int 21h
mov ax,4C00h
int 21h

use16
org 100h
jmp start
;————
wor_d db ‘this is word!’
code_w db 12 dup(?)
;———————
start:
mov cl,1
xor di,di

body:
mov al,byte[wor_d+di]
ror al,cl
mov byte[code_w+di],al
inc di
inc cl
cmp di,8
je cl2one
cmp di,12
je output
jmp body

cl2one:
mov cl,1
jmp body
output:
xor di,di
xor ax,ax

oloop:
mov dl,byte[wor_d+di]
mov ah,02h
int 21h
inc di
cmp di,12
jne oloop

mov dl,10
mov ah,02h
int 21h
mov dl,13
mov ah,02h
int 21h
xor di,di
oloop2:
mov dl,byte[code_w+di]
mov ah,02h
int 21h
inc di
cmp di,12
jne oloop2

mov ah,08h
int 21h
mov ax,4c00h
int 21h

я в бешенстве xrnd помоги пожалуйста почему не работает такой код:
mov [deStr+di], dl ???

use16
org 100h
jmp enCode

;==[data]===================================

enStr db «HeL1o asmworld and fasm!», 0
deStr db 32 dup (‘$’)
max db 7

;===========================================

enCode:
mov si, enStr ; адресс строки
xor di, di ; общий счетчик символов
en_loop:
xor cx, cx
mov ch, [max] ; ch = счетчик
_encode:
inc cl ; cl = для сдвига
mov dl, [si]
cmp dl, 0 ; конец строки
je Exit_encode ; подобие break
ror dl, cl
inc si
mov [deStr+di], dl ; ОШИБКА не записывает
inc di ; общий счетчик символов
dec ch
jnz _encode
jmp en_loop

Exit_encode:

; вывод закодированой строки
mov ah, 2
mov si, deStr-1

pr_deStr:
inc si
mov dl, [si]
cmp dl, ‘$’
jz Exit
int 21h
jmp pr_deStr

Exit:
mov ah, 8
int 21h

mov ax, 4c00h
int 21h

программа еще не закончена … ;((

Ура почти все работает!!! 😉 не могу тока понять почему не выводится строка
0ah, 0dh, ‘Decoded: $’ а так все работает как швейцарские часы, можно даже зашифрованые сообщения в пентагон посылать )))

use16
org 100h
jmp enCode

;==[data]===================================

source db «HeL1o asmworld and fasm!», 0
enStr db 32 dup (0)
deStr db 32 dup (0)
max db 7
str1 db «Encoded: $»
str2 db 0dh, 0ah, «Decoded: $»

;===========================================

; —[Кодирование строки]———————-

enCode:

mov si, source ; адресс строки
xor di, di ; общий счетчик символов
en_loop:
xor cx, cx
mov ch, [max] ; ch = счетчик
_encode:
inc cl ; cl = для сдвига
mov dl, [si]
cmp dl, 0 ; конец строки
je enCode_print ; подобие break
ror dl, cl
inc si
mov [enStr+di], dl
inc di ; общий счетчик символов
dec ch
jnz _encode
jmp en_loop

;-[Декодирование строки]——————

deCode: ;

mov si, enStr ; адресс закодированой строки
xor di, di ; общий счетчик символов
de_loop:
xor cx, cx
mov ch, [max] ; ch = счетчик
_decode:
inc cl
mov dl, [si]
cmp dl, 0
jz deCode_print ; вывод декодированой строки
rol dl, cl
mov [deStr+di], dl
inc si
inc di
dec ch
jnz _decode
jmp de_loop

;—[вывод закодированой строки]——
enCode_print: ;

mov ah, 9
mov dx, str1
int 21h
mov ah, 2
mov si, enStr-1

lp_enStr:
inc si
mov dl, [si]
cmp dl, 0
jz deCode ; декодируем и выводим оригинал
int 21h
jmp lp_enStr

;-[вывод декодированой строки]————

deCode_print:

mov ah, 9
mov dx, str2
int 21
mov ah, 2
mov si, deStr-1

lp_deStr:
inc si
mov dl, [si]
cmp dl, 0
jz Exit
int 21h
jmp lp_deStr

;—[Выход]—————————-

Exit:
mov ah, 8
int 21h
mov ax, 4c00h
int 21h

    mov dx, str2
    int 21

;шифровка строки по алгоритму циклического сдвига каждого байта
;строки на количество битов равное индексу кодируемого байта
;с основанием 7, т.е. 1-7,1-7,..
use16
org 100h
  jmp main
;=================================;
strDecode db ‘Пример зашифровываемой строки’,0
strBR db 10,13,0
;=================================;

;=================================;
main:
  mov bx,strDecode ;
  mov ax,bx ;
  call proc_strOut ;
  mov bx,strBR ;
  call proc_strOut ;выводим начальную строку
  mov bx,ax
  xor ax,ax ;
  call proc_strDE ;шифруем строку, выводим
  mov ah,1 ;
  call proc_strDE ;дешифруем строку, выводим
;———————————;
exit:
  mov ax,4c00h
  int 21h
;=================================;

;=================================;
;кодируем/декодируем строку
;bx — указатель на строку
;ah — флаг работы подпрограммы (0 — шифруем, 1 — дешифруем)
proc_strDE:
  xor cx,cx
  mov si,cx
get_char:
  inc cl
  js slide_more7 ;если счетчик сдвига равен 8
slide:
  mov al,[bx+si] ;получаем текущий символ
  cmp al,0
  je display_string ;если конец строки, выводим на экран
  cmp ah,0 ;проверяем флаг работы подпрограммы
  jne decode
  ror al,cl ;шифруем, если ah=0
  jmp short end_de_char
decode:
  rol al,cl ;дешифруем, если ah0
end_de_char:
  mov [bx+si],al
  inc si
  jmp short get_char
slide_more7:
  mov cx,1 ;начинаем счетчик сдвига сначала
  jmp short slide
display_string:
  mov ax,bx ;
  call proc_strOut ;
  mov bx,strBR ;
  call proc_strOut ;отображаем строку
  mov bx,ax
proc_strDE_end:
  ret
;=================================;

;=================================;
;посимвольный вывод кириллической строки на экран (0 — завершающий символ)
;bx — указатель на строку
proc_strOut:
  push ax
  push dx
  push si
  mov si,-1
proc_strOut_getChar:
  inc si mov al,[bx+si]
  cmp al,0xf0
  jb proc_strOut_charLessF0
  and al,0xef
  jmp short proc_strOut_displayChar
proc_strOut_charLessF0:
  cmp al,0xef
  ja proc_strOut_displayChar
  cmp al,0xc0
  jnb proc_strOut_charC0EF
  cmp al,0
  je proc_strOut_end
  jmp short proc_strOut_displayChar
proc_strOut_charC0EF:
  and al,0xbf
proc_strOut_displayChar:
  mov ah,02h
  mov dl,al
  int 21h
  jmp short proc_strOut_getChar
proc_strOut_end:
  pop si
  pop dx
  pop ax
  ret
;=================================;

    inc cl
    js slide_more7 ;если счетчик сдвига равен 8

use16
org 100h

jmp start

string db 13,10,’Horosho v derevne letom$’
press db 13,10,’Press any key…$’
length db 23

start:

mov ah,09h
mov dx,string
int 21h
int 21h
movzx cx,[length]
xor si,si
mov dl,1

incript:
mov ax,cx
mov cl,byte[si+1]
ror [string+si],cl
inc si
mov cx,ax
loop incript
mov ah,09h
mov dx,string
int 21h

movzx cx,[length]
xor si,si
mov dl,1

decript:
mov ax,cx
mov cl,byte[si+1]
rol [string+si],cl
inc si
mov cx,ax
loop decript

mov ah,09h
mov dx,string
int 21h
mov ah,09h
mov dx,press
int 21h
mov ah,08h
int 21h
mov ax,4c00h
int 21h