Перенос курсора на следующую строчку с удалением из неё символов

codesg segment para 'code'
 
assume cs : codesg, ds : codesg, es : codesg, ss : codesg
 
org 100h
 
begin: jmp main
 
; –––––––– процедура обработки прерывания –––––––––––––––––––
s1 db 'Programma uje v mmory',10,13,'$'
stroka db ?
Kol db ?
rezident proc far
 
push ds di es ax bx cx dx ; сохраняем регистры в стеке
; #######################################
 
;mov ah,02h
;mov bh,0
;mov dh,12
;mov dl,40
;int 10h
 
;int 60h ; вызываем оригинальный обработчик
 
mov ah,03h
mov bh,0
int 10h
 
mov  cs:stroka, dh
mov cs:kol, dl
cmp cs:kol, 10
jne @end
 
 
;10 kolonka
 
mov ah,06h
mov ch,0
mov cl,0
mov dh,24
mov dl,79
mov al,1 
mov bh,0fh
int 10h
 
 
 
mov ah,02h
mov bh,0
;add cs:stroka,1
mov dh,cs:stroka
mov dl, 0
int 10h
@end:
 
int 60h
pop dx cx bx ax es di ds ; восстанавливаем все регистры
iret ; возврат из обработчика прерывания
finish EQU $ ; адрес первого байта за резидентной частью
rezident endp
 
; –––––––– конец процедуры обработки прерывания ––––––––––––––
 
 
 
;––––––––– инициализирующая часть ––––––––––––––––––––––––––
 
main proc near
 
; ––– 1) получаем вектор прерывания номер 9 в регистры es:bx –––––
mov ah,35h ; номер функции получения вектора
mov al,60h ; номер вектора
int 21h ; вызвать прерывание
 
cmp bx,0 
je @m1
; uje v memory
 
mov ah,09h
lea dx, s1
int 21h
 
mov ah,08
int 21h
 
ret
 
@m1: mov ah,35h
mov al,09h
int 21h
 
 
; –––– 2) переписываем полученный вектор в 60-ый вектор (пустой) ––––
 
cli ; запрещаем аппаратные прерывания
push ds ; сохраняем в стеке ds нашей программы
mov dx,bx ; переписываем bx в dx
mov ax,es ; переписываем es в ds
mov ds,ax ; через регистр ax
mov ah,25h ; номер функции установки вектора
mov al,60h ; номер вектора, куда пишем
int 21h ; вызвать прерывание
pop ds ; восстанавливаем из стека ds нашей программы
sti ; разрешаем аппаратные прерывания
 
; – 3) записываем адрес нашей процедуры обработки в вектор номер 9 –
 
lea dx,rezident ; загрузка в DS:DX адреса резидентной процедуры
mov ah,25h ; функция установки вектора
mov al,09h ; номер вектора, куда пишем
int 21h ; вызвать прерывание
 
; –– 4) прерываем программу и оставляем резидентную часть в памяти ––
 
lea dx, finish ; в dx номер первого байта за резидентной частью
 
int 27h ; вызвать прерывание
ret
main endp
codesg ends
end begin