Строку из строчных и прописных букв обработать особым образом

@KillJoy · Регистрация: 21.09.2009

Author24 — интернет-сервис помощи студентам

Здравствуйте. У меня проблема с выводом в следующей программе.
Условие - дана строка из строчных и прописных букв латинского алфавита длиной 64 символа. Дана битовая строка. Исходную строку нужно обработать таким образом : если i-ый символ строки является прописной буквой и в битовой строке на i-ой позиции строит 1, то символ заносится в строку результата.
Проблема - программа ввыводит все прописные буквы, хотя, если смотреть непосредсвенно в память, то формируется правильный ответ. (см. скриншот)

Assembler

DATSEG SEGMENT
    INPUT DB 'ThiS IS a sTRing WiTh ChaRS iN dIFFerEnt casES; iT looKS preTtY!$'
    PATTERN DB '1101101000000110111011011110110000011010100010100111001100001101'
    LEN_M DB 64
    RES DB 64 DUP(0)
    MIN DB 41H
    MAX DB 5AH
DATSEG ENDS
 
STSEG SEGMENT STACK
    DB 256 DUP(?)
STSEG ENDS
 
CODSEG SEGMENT
    ASSUME CS:CODSEG, DS:DATSEG, SS:STSEG
    BEGIN:
        MOV AX, DATSEG
        MOV DS, AX
        XOR AX, AX
        JCXZ DONE
        MOV CX, WORD PTR LEN_M
        LEA SI, INPUT
        LEA DI, PATTERN
        XOR BX, BX
    COMPARE:
        DEC CX
        JCXZ DONE
        MOV AL,[SI]
        MOV DL, [DI]
        INC SI
        INC DI
        SUB DX, '0'
        CMP DX, 0
        JE COMPARE
    IFNOT:
        CMP AL, MIN
        JB COMPARE
        CMP AL, MAX
        JA COMPARE
    IFOK:
        MOV RES[BX], AL
        XOR AX, AX
        INC BX
        JMP COMPARE
    DONE:
        MOV RES[BX],'$'
        LEA DX, RES
        MOV AH, 9H
        INT 21H
        MOV AH, 4CH
        INT 21H
CODSEG ENDS
    END BEGIN

Charles Kludge · 05.10.2012, 00:00

Внимательнее. Отладчик нулит РОН перед запуском проги.

Assembler

DATSEG SEGMENT
    INPUT DB 'ThiS IS a sTRing WiTh ChaRS iN dIFFerEnt casES; iT looKS preTtY!$'
    PATTERN DB '1101101000000110111011011110110000011010100010100111001100001101'
    LEN_M DB 64
    RES DB 64 DUP(0)
    MIN DB 41H
    MAX DB 5AH
DATSEG ENDS
 
STSEG SEGMENT STACK
    DB 256 DUP(?)
STSEG ENDS
 
CODSEG SEGMENT
    ASSUME CS:CODSEG, DS:DATSEG, SS:STSEG
    BEGIN:
        MOV AX, DATSEG
        MOV DS, AX
        MOV ES, AX
        XOR AX, AX
;        JCXZ DONE
        MOV CX, WORD PTR LEN_M
        LEA SI, INPUT
        LEA DI, PATTERN
        XOR BX, BX
    COMPARE:
        DEC CX
        JCXZ DONE
        MOV AL,[SI]
        MOV DL, [DI]
        INC SI
        INC DI
        SUB DL, '0'
        CMP DL, 0
        JE COMPARE
    IFNOT:
        CMP AL, MIN
        JB COMPARE
        CMP AL, MAX
        JA COMPARE
    IFOK:
        MOV RES[BX], AL
        XOR AX, AX
        INC BX
        JMP COMPARE
    DONE:
        MOV RES[BX],'$'
        LEA DX, RES
        MOV AH, 9H
        INT 21H
        MOV AH, 4CH
        INT 21H
CODSEG ENDS
    END BEGIN

@KillJoy · 05.10.2012, 00:10 **[ТС]**

Действительно! Спасибо!

Блоги программистов
Обновление сайта www.historian.by Reglage 05.01.2025 Обещал подвести итоги 2024 года для сайта. Однако начну с того, что изменилось за неделю. Добавил краткий урок по последовательности действий при анализе вредоносных файлов и значительно улучшил урок. . .	Как использовать GraphQL в C# с HotChocolate Programming 05.01.2025 GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .	Модель полного двоичного суматора с помощью логических операций (python) AlexSky-coder 04.01.2025 def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()	Это мы не проходили, это нам не задавали...(асихронный счётчик с управляющим сигналом задержки). Hrethgir 04.01.2025 Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .	Руководство по созданию бота для Телеграм на Python IT_Exp 04.01.2025 Боты для Телеграм представляют собой автоматизированные программы, которые выполняют различные задачи, взаимодействуя с пользователями через интерфейс мессенджера. В данной статье мы рассмотрим,. . .	Применение компонентов PrimeVue в Vue.js 3 на TypeScript BasicMan 04.01.2025 Введение в PrimeVue и настройка окружения PrimeVue представляет собой мощную библиотеку компонентов пользовательского интерфейса для Vue. js 3, которая предоставляет разработчикам богатый набор. . .
Как стать Senior developer cpp_developer 04.01.2025 В современной индустрии разработки программного обеспечения позиция Senior Developer представляет собой не просто следующую ступень карьерной лестницы, а качественно новый уровень профессионального. . .	Что известно о дате выхода Windows 12 и чего от нее ждать IT_Exp 04.01.2025 В мире технологий постоянно происходят изменения, и операционные системы не являются исключением. Windows 11, выпущенная в октябре 2021 года, принесла множество инноваций и улучшений, но. . .	Что новенького в .NET Core 9 Programming 04.01.2025 Обзор ключевых изменений в . NET Core 9 Платформа . NET Core продолжает активно развиваться, и версия 9 представляет собой значительный шаг вперед в эволюции этой технологии. Новый релиз. . .	Инструкция по установке python3.13.1 в Debian 12 AlexSky-coder 03.01.2025 sudo apt update sudo apt install build-essential zlib1g-dev libncurses5-dev libgdbm-dev libnss3-dev libssl-dev libreadline-dev libffi-dev wget. . .	Затестил триггеры. архив проекта прилагаю с GOA файлами в настройках архиватора проектов. Hrethgir 03.01.2025 В этот раз нет закольцованности, потому что от неё только глюки, как я понял, логика не вырезанная. Триггеры очень быстрые если верить измерениям с помощью анализатора от Gowin. Есть ещё регистры,. . .	Python в помощь DevOps IT_Exp 03.01.2025 Причины использования Python в работе DevOps Python стал неотъемлемой частью мира DevOps, и это не случайно. Этот язык программирования обладает множеством преимуществ, которые делают его. . .

@KillJoy 58 / 58 / 29 Регистрация: 21.09.2009 Сообщений: 313 Записей в блоге: 1
	05.10.2012, 00:10 [ТС]	3
	Действительно! Спасибо! 0