Assembler_lab2_not_exit

.386
.MODEL FLAT, STDCALL
OPTION CASEMAP: NONE

EXTERN  WriteConsoleA@20: PROC ; Функция для вывода строки в консоль
EXTERN  ExitProcess@4: PROC ; Функция для завершения процесса

INCLUDELIB kernel32.lib ; Подключение библиотеки kernel32.lib

.DATA
    SOURCE  DB "Hello, World!", 0
    DEST    DB 255 DUP (?)
    POSITIVE_MSG DB "Palindrome exists!", 0
    NEGATIVE_MSG DB "No palindrome found.", 0

.CODE
; Определение функции lstrlenA
lstrlenA PROTO :DWORD

MAIN PROC
    CLD                     ; Устанавливаем направление копирования вперед (Clear Direction Flag)
    LEA ESI, SOURCE         ; Загружаем адрес исходной строки в регистр ESI
    LEA EDI, DEST + 254     ; Загружаем адрес конечного байта строки назначения в регистр EDI
    MOV ECX, 255            ; Задаем количество байт для копирования

    ; Копируем данные из SOURCE в DEST и инвертируем строку
    REVERSE_LOOP:
        DEC ESI             ; Уменьшаем указатель на исходную строку
        MOV AL, [ESI]       ; Загружаем байт из исходной строки
        MOV [EDI], AL       ; Сохраняем байт в инвертированной строке
        DEC EDI             ; Уменьшаем указатель на инвертированную строку
        LOOP REVERSE_LOOP   ; Повторяем цикл до достижения ECX = 0

    ; Проверяем совпадение строк
    LEA ESI, SOURCE         ; Загружаем адрес исходной строки
    LEA EDI, DEST           ; Загружаем адрес инвертированной строки
    MOV ECX, 255            ; Задаем количество байт для сравнения

    ; Сравниваем строки с использованием цикла
    REPE CMPSB

    ; Выводим результат в консоль
    JE IS_PALINDROME        ; Переходим к выводу сообщения, если строки совпали
    ; Загружаем указатель на отрицательное сообщение
    LEA EAX, NEGATIVE_MSG
    JMP PRINT_MESSAGE       ; Переходим к выводу сообщения
IS_PALINDROME:
    ; Загружаем указатель на положительное сообщение
    LEA EAX, POSITIVE_MSG

PRINT_MESSAGE:
    PUSH 0
    PUSH EAX              ; Указатель на сообщение
    CALL lstrlenA         ; Получаем длину строки
    PUSH 255              ; Максимальная длина строки
    PUSH EAX              ; Фактическая длина строки
    PUSH EAX              ; Указатель на строку
    PUSH -11              ; Хэндл устройства вывода (стандартный вывод)
    CALL WriteConsoleA@20

    ; Завершаем программу
    PUSH 0
    CALL ExitProcess@4

MAIN ENDP
END MAIN