Замена символа на экране при прямом доступе к видеопамяти

@vogon_ · Регистрация: 13.02.2011

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

Нужно в процедуре обработать выведеную на экран строку следующим образом: с помощью видеопамяти загрузить символ с экрана и сравнить его с "А". Если одинаковые, то на экране заменить текущий символ тем, который перед этим ввели. Ниже код процедури, но она не правильно работает:

Assembler

obrob proc
    pushf
pr:
    mov ah,10h      ;вводим символ с клавиатуры
    int 16h
 
    mov l,ah
 
    cmp ah,esc_key
    je exit
 
    jmp obr
exit:
    mov AX,4c00h
    int 21h
 
obr:
 
    mov  ax, 0b800h
    mov  es, ax
    mov  di, 0
    mov  si, 0
 
    cld
    mov ax,0
    mov cx,13
    K:
        lodsb
        cmp al,'A'
        JE K1
        inc di
        inc si
        jmp K2
    K1:
        mov al,l
        stosb
    K2: inc di
        inc si
        loop K
    jmp pr
    iret
obrob endp

murderer · 14.02.2011, 19:11

Заменить все символы "A" на какой-нибудь другой можно таким циклом

Assembler

push 0B800h
pop  es
mov  di,3998
mov  ah,<символ для замены>
c:mov     al,'A'
  cmpxchg es:[di],ah
  sub     di,2
jnl c

Добавлено через 1 минуту
для компиляции нужна директива .486

@vogon_ · 14.02.2011, 19:42 **[ТС]**

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

для компиляции нужна директива .486

Что-то не выходит подключить... Вроде прописал вначале, а оно пишет "Expected: instruction or directive".

murderer · 14.02.2011, 19:46

Assembler

.model tiny
.code
.486
.startup
org 100h
  mov ax,3
  int 10h
  
  mov ah,9
  mov dx,offset _str
  int 21h
  
  push 0B800h
  pop  es
  mov  di,3998
  mov  ah,'B';<символ для замены>
  c:mov     al,'A'
    cmpxchg es:[di],ah
    sub     di,2
  jnl c
 
  xor ax,ax 
  int 16h
ret
 
_str db 'AsdsfA$'
end

Добавлено через 41 секунду
Надеюсь знаешь как com-программу линковать

@vogon_ · 15.02.2011, 19:05 **[ТС]**

Спасибо, murderer, вроде бы все ОК

@vogon_ 0 / 0 / 1 Регистрация: 13.02.2011 Сообщений: 8
	14.02.2011, 19:42 [ТС]	3
	Сообщение от murderer для компиляции нужна директива .486 Что-то не выходит подключить... Вроде прописал вначале, а оно пишет "Expected: instruction or directive". 0

@vogon_ 0 / 0 / 1 Регистрация: 13.02.2011 Сообщений: 8
	15.02.2011, 19:05 [ТС]	5
	Спасибо, murderer, вроде бы все ОК 0

Опции темы