Преобразование регистра букв и замена пробелов на _ и цифр на *

.386
.model small
ORG 100H 
CODE SEGMENT 
;ASSUME CS:CODE, DS:CODE, SS:CODE, ES:CODE 
START: 
;очистка экрана 
MOV AX, 0600H     ;AH=06H - УСТАНОВКА ПРОКРУТКИ, AL=00 - ВО ВЕСЬ ЭКРАН 
MOV BH, 07     ;ЧЕРНО-БЕЛЫЙ ЭКРАН 
MOV CX, 0000     ;ВЕРХНЯЯ ЛЕВАЯ ПОЗИЦИЯ 
MOV DX, 184FH     ;НИЖНЯЯ ПРАВАЯ ПОЗИЦИЯ 
INT 10H     ;УПРАВЛЕНИЕ В BIOS 
 
;УСТАНОВКА КУРСОРА В ПОЗИЦИЮ 00 
MOV AH, 02     ;ЗАПРОС НА УСТАНОВКУ КУРСОРА 
MOV BH, 00     ;ВЫБОР ВИДЕОСТРАНИЦЫ 
MOV DX, 0000     ;УСТАНОВКА КУРСОРА 
INT 10H     ;УПРАВЛЕНИЕ В BIOS 
 
;ВЫВОД ПРИГЛАШЕНИЯ НА ВВОД 
MOV AH, 09     ;ФУНКЦИЯ ВЫВОДА СТРОКИ 
MOV DX, OFFSET MSG1     ;АДРЕС СТРОКИ 
INT 21H     ;ПОЛЬЗОВАТЕЛЬСКОЕ ПРЕРЫВАНИЕ 
 
;СЧИТЫВАНИЕ СИМВОЛОВ, ВВЕДЕННЫХ С КЛАВИАТУРЫ 
MOV AH, 3FH     ;ФУНКЦИЯ ВВОДА 
MOV BX, 00     ;НОМЕР ДЛЯ КЛАВИАТУРЫ 
MOV CX, 254     ;ДОПУСТИМОЕ КОЛИЧЕСТВО ВВЕДЕННЫХ СИМВОЛОВ 
MOV DX, OFFSET INBUF     ;ЗАНЕСЕНИЕ АДРЕСА БУФЕРА В РЕГИСТР DX 
INT 21H     ;ПОЛЬЗОВАТЕЛЬСКОЕ ПРЕРЫВАНИЕ 
SUB AX, 02     ;ИЗОБЩЕГО КОЛИЧЕСТВА СИМВОЛОВ ВЫЧИТАЮТСЯ СИМВОЛЫ "ВВОД" И "КОНЕЦ СТРОКИ" 
 
;ИЗМЕНЕНИЕ ЗАГЛАВНЫХ БУКВ НА СТРОЧНЫЕ 
MOV SI, OFFSET INBUF     ;В РЕГИСТР sI (ИНДЕКС ПРИЕМНИКА) ЗАНОСИМ АДРЕС ПЕРВОГО СИМВОЛА 
MOV CX, AX     ;В РЕГИСТР CX ЗАНОСИМ КОЛИЧЕСТВО СИМВОЛОВ 
L1: 
MOV BL, [SI]     ;В BL ЗАНОСИМ ПРОСМАТРИВАЕМЫЙ ФАЙЛ 
CMP BL, 64     ;СРАВНИВАЕМ С 64 65=A 
JBE VYHOD     ;ЕСЛИ МЕНЬШЕ ИЛИ РАВНО ЗАКАНЧИВАЕМ ПРОСТМОТР 
CMP BL, 90     ;СРАВНИВАЕМ С 90 90=Z 
JA STROKI     ;ЕСЛИ БОЛЬШЕ ПРОВЕРИМ НА СТРОЧНОСТЬ 
ADD BL, 32     ;ЕСЛИ ЗАГЛАВНАЯ ЛАТИНСКАЯ СДЕЛАЕМ СТРОЧНОЙ 
MOV [SI], BL     ;ВЕРНЕМ НА МЕСТО 
JMP VYHOD     ;КОНЕЦ 
STROKI: 
CMP BL, 97     ;СРАВНИВАЕМ С 97 97=a 
JB VYHOD     ;ЕСЛИ МЕНЬШЕ ЗАКАНЧИВАЕМ 
CMP BL, 122     ;СРАВНИВАЕМ С 122 122=z 
JA VYHOD     ;ЕСЛИ БОЛЬШЕ ЗАКАНЧИВАЕМ 
MOV [SI], BL     ;ВОЗВРАЩАЕМ НА МЕСТО 
VYHOD: 
INC SI     ;ПЕРЕХОД НА СЛЕДУЮЩИЙ СИМВОЛ 
LOOP L1 
MOV BL, BYTE PTR '$' 
MOV [SI], BL     ;ЗАТЫКАЕТ СТРОКУ СИМВОЛОМ $ 
 
;ВЫВОД НОВОЙ СТРОКИ 
MOV AH, 09 
MOV DX, OFFSET MSG2 
INT 21H 
MOV DX, OFFSET INBUF 
INT 21H 
 
INT 20H     ;ЗАВЕРШЕНИЕ ПРОГРАММЫ 
MSG1 DB 'ENTER STRING OF SYMBOLS:','$' 
 
MSG2 DB 'CONVERT STRING:','$' 
 
INBUF DB 256 DUP (' ') 
 
END  Code;
End Start

.data
X byte "JOAN"       ; строка
.386
.model flat, stdcall
 
option casemap: none
include \masm32\include\windows.inc
include \masm32\include\kernel32.inc
include \masm32\include\masm32.inc
include \masm32\include\debug.inc
includelib \masm32\lib\kernel32.lib
includelib \masm32\lib\masm32.lib
includelib \masm32\lib\debug.lib
 
.data
X byte "JOAN"       ; строка
.code
start:
CLD             ; сброс флага DF (обработка слева направо)
MOV  ECX,Sizeof X   ; счетчик повторений
LEA  EDI,X      ; адрес строки
mov AL,"A"      ; искомый символ
REPNE SCASB     ; сканирование
JNZ EX          ; переход если символ не найден
dec EDI         ; иначе - восстановление адреса найденного символа
mov al,"H"      ; символ для замены
STOSB           ; замена
DbgDump offset X,4  ; вывод слова с замененным символом
EX:
INVOKE ExitProcess,0
END start

format PE console 4.0
 
include 'include\win32ax.inc'
ENABLE_PROCESSED_OUTPUT  = 00000001
 
        invoke  GetStdHandle, STD_INPUT_HANDLE
        push    eax
        push    eax
        invoke  GetStdHandle, STD_OUTPUT_HANDLE
        push    eax
        invoke  SetConsoleMode, eax, ENABLE_PROCESSED_OUTPUT
        pop     eax
        invoke  WriteConsole, eax, hello, msgsz, cnt, NULL
        invoke  FlushConsoleInputBuffer
        pop     eax
        invoke  ReadConsole, eax, buf, bufsz, cnt, NULL
; вот сюда и встваляйте обработку строки
;exit:
        invoke  ExitProcess,0
 
hello   db      'Enter string',0
msgsz   =       $ - hello
cnt     dd      ?
buf     db      256 dup(?)
bufsz   =       $ - buf
; import data in the same section
 
data import
 
 library kernel32,'KERNEL32.DLL'
 
 import kernel32,\
        ExitProcess,'ExitProcess',\
        GetStdHandle,'GetStdHandle',\
        SetConsoleMode,'SetConsoleMode',\
        ReadConsole,'ReadFile',\
        WriteConsole,'WriteConsoleA',\
        FlushConsoleInputBuffer,'FlushConsoleInputBuffer'
end data

format PE console 4.0
 
include 'd:\FASM\include\win32ax.inc'
ENABLE_PROCESSED_OUTPUT  = 00000001
 
        invoke  GetStdHandle, STD_INPUT_HANDLE
        mov [sin],eax
        invoke  GetStdHandle, STD_OUTPUT_HANDLE
        mov [sout],eax
        invoke  SetConsoleMode, [sout], ENABLE_PROCESSED_OUTPUT
        invoke  WriteConsole, [sout], hello, msgsz, cnt, NULL
        invoke  FlushConsoleInputBuffer
        invoke  ReadConsole, [sin], buf, bufsz, cnt, NULL
 
; обработку строки
        xor     ebx,ebx ;bx - индекс очередного символа для обработки
        mov     ecx, [cnt] ;в ecx - размер строки для цикла обработки
loopLabel:
        mov     al, byte [buf+ebx]
        cmp     al,'A' ;проверка символа на принадлежность к буквам
        jb  next
        cmp     al,'z'
        jg  next
        cmp     al,'Z'
        jbe     convert
        cmp     al,'a'
        jb  next ;если не буква, то на метку в конеце цикла
convert: xor    al, 20h  ;сама обработка
 
next:   mov     byte [outbuf+ebx],al ;запись в выходную строку
    inc     bx
    loop    loopLabel
        invoke  WriteConsole, [sout], outbuf, [cnt], cnt, NULL
        invoke  ReadConsole, [sin], buf, 1, cnt, NULL
 
 
;exit:
        invoke  ExitProcess,0
sout    dd  ? ; STD_OUTPUT_HANDLE
sin dd  ? ; STD_INPUT_HANDLE
hello   db      'Enter string:',0
msgsz   =       $ - hello
cnt     dd      ?
buf     db      256 dup(?)
bufsz   =       $ - buf
outbuf  db  256 dup(?)
; import data in the same section
 
data import
 
 library kernel32,'KERNEL32.DLL'
 
 import kernel32,\
        ExitProcess,'ExitProcess',\
        SetConsoleCP,'SetConsoleCP',\
        SetConsoleOutputCP,'SetConsoleOutputCP',\
        GetStdHandle,'GetStdHandle',\
        SetConsoleMode,'SetConsoleMode',\
        ReadConsole,'ReadFile',\
        WriteConsole,'WriteConsoleA',\
        FreeConsole,'FreeConsole',\
        FlushConsoleInputBuffer,'FlushConsoleInputBuffer',\
        AllocConsole,'AllocConsole'
end data

format MZ
    heap    0
    stack   8000h
    entry   main:start
segment main    use16
start:  mov ax,data_segment
    mov ds,ax
    mov es,ax
    mov dx, MSG1
    mov ah, 09h
    int 21h
; read string
    mov ah, 0Ah
    mov dx, inpbuf
    int 21h
; prepare for convert
    mov si, dx
    lodsw
    mov di, si
    shr ax, 8
    mov cx, ax
    inc cx
; cx - str length, DS:SI = ES:DI -> string buf
_loop:  lodsb
    cmp al, 20h ; is <space>?
    jne l1
    mov al, 5Fh ; yeah, underscore "_"
l1: cmp al, 30h ; isdigit? "0" ?
    jb  l2
    cmp al, 39h ;  "9" ?
    ja  l2
    mov al, 2Ah ; asterisk "*"
l2: stosb   
    loop    _loop
    mov al, 24h ; '$'
    stosb
    mov bx, dx
    mov word [bx], 0A0Dh    ; cr/lf
    mov dx, MSG2
    mov ah, 09h
    int     21h
    mov dx, bx
    int 21h
    dec ah
    int 21h
    mov ah, 4Ch
    int 21h
 
segment data_segment
MSG1 DB 'ENTER STRING OF SYMBOLS:','$' 
 
MSG2 DB 'CONVERT STRING:','$' 
 
inpbuf: db  050h, 0, 80 dup (?)