Как изменить код ,что бы выводилось БЕА?

Есть такое тз. С использованием встроенного ассемблера языка Borland Pascal в графическом видеорежиме 320×200 256 цветов, при обращении напрямую к видеопамяти, вывести изображение – первую букву фамилии, имени и отчества учащегося. Высота символов должна быть не менее 2/3 высоты экрана, толщина начертания символов 20–40 пикселей. Зафиксировать изображение на экране до нажатия любой клавиши. По завершении работы программа должна восстанавливать видеорежим (установить тот режим, который был до запуска программы).

Я не особо понимаю,как я должен изменить буквы на мои ФИО, чтобы выводилось БЕА, а не НАР. Кому не тяжело, можете подсказать, что я должен изменить в программе?

var
mode:char;
begin
asm
 mov ah,$0f
 int $10
 mov mode,al
 mov ax,$13
 int $10
 
 mov ax,$a000
 mov es,ax
 mov di,10*320+10
 mov dx,180
 mov cx,30
 call @block
 mov di,85*320+40
 mov dx,30
 mov cx,30
 call @block
 mov di,10*320+70
 mov dx,180
 mov cx,30
 call @block
 
 
 mov di,55*320+115
 mov dx,135
 mov cx,30
 call @block
 mov di,85*320+145
 mov dx,30
 mov cx,30
 call @block
 mov di,55*320+175
 mov dx,135
 mov cx,30
 call @block
 mov di,10*320+160
 mov dx,45
 mov cx,1
 @2:
 call @line
 add cx,2
 add di,320-1
 dec dx
 jnz @2
 
 
 mov di,10*320+220
 mov dx,180
 mov cx,30
 call @block
 mov di,10*320+250
 mov dx,30
 mov cx,60
 call @block
 mov di,85*320+250
 mov dx,30
 mov cx,60
 call @block
 mov di,40*320+280
 mov dx,45
 mov cx,30
 call @block
 
 
 
 xor ah,ah
 int $16
 mov ah,0
 mov al,mode
 int $13
 jmp @ex
 
@block:
@1:
 call @line
 add di,320
 dec dx
 jnz @1
ret
 
@line:
 push di
 push cx
 mov al,15
 rep stosb
 pop cx
 pop di
 ret
 @ex:
 end;
 end.

Ответы (0 шт):