Текстовый редактор

; редактор
.model small
.stack 100h
.data
    InfoMess db 'Text editor.',0ah,0dh
             db 'Any key - run programm',0ah,0dh,'$'
    Xmax equ 80  
    Ymax equ 25
    
    cOff dw 0
.code
 
MoveCursor proc; dh-стр, dl-стл
    cmp dl,0
    jge mc_next1; >=0
    mov dl,Xmax-1
    dec dh
    cmp dh,0
    jge test_cur; >=0
    xor dx,dx
    jmp test_cur        
mc_next1:
    cmp dl,Xmax-1 
    jle mc_next2 ;<=
    xor dl,dl
    inc dh
    cmp dh,Ymax-1
    jle mov_cur;<=
    mov dl,Xmax-1
    mov dh,Ymax-1
    jmp test_cur    
mc_next2:   
    cmp dh,0
    jge mc_next3;>=
    xor dh,dh
    jmp test_cur
mc_next3:   
    cmp dh,Ymax-1
    jle test_cur;<=
    mov dh,Ymax-1   
test_cur:
    call AddrSym
    cmp si,bp
    jg no_move
mov_cur:
    xor bx,bx
    mov ax,0200h
    int 10h
    ret
no_move:
    mov dx,bx
    ret
MoveCursor endp
 
DelSym proc ;dh-стр, dl-стл Удаление символа с позиции курсора
    call AddrSym
    ;проветить нажата ли инсерт или нет
    ;если нет
    dec bp
    mov cx,bp
    sub cx,si
    mov di,si
    inc si
    shl si,1
    shl di,1
    push ds
    push es
    pop ds
    cld
    rep movsw
    pop ds
    mov word ptr es:[di],0720h
    ret
DelSym endp
 
InsSym proc; dh-стр, dl-стл, al-символ Вставка симола в позицию курсора
    cmp bp, 80*25
    jae  exit_InsSym
    call AddrSym
    ;проветить нажата ли инсерт или нет
    ;если нет
    mov cx,bp
    sub cx,si
    
    jcxz no_sym
    push si
    mov di,bp
    mov si,bp
    dec si
    shl si,1
    shl di,1
    push ds
    push es
    pop ds
    std
    rep movsw
    pop ds
    pop si
no_sym:
    shl si,1
    mov word ptr es:[si],ax
    inc dl
    inc bp
    call MoveCursor 
exit_InsSym:    
    ret
InsSym endp
 
AddrSym proc; dh-стр, dl-стл; SI адрес в поле 80х25
    push cx
    push ax
    push bx
 
    mov si,dx
    xor ax,ax
    xor bx,bx
    and si,00ffh
    mov bl,dh
    mov al,dh
    shl al,1
    shl al,1
    mov cx,4
    add ax, bx
    shl ax, cl
    
    add si,ax
 
    pop bx
    pop ax
    pop cx
    ret
AddrSym endp
 
.startup
    mov dx,offset InfoMess ; вывести информационное сообщение
    mov ax,0900h
    int 21h
    mov ax,0c07h ; ожидаем нажатие клавиши для запуска программы
    int 21h
run:
    mov ax,0f00h ;чтение информации о режиме экрана
    int 10h
    mov ah,bh 
    push ax
    
    mov ax,0003h ; 3 режим 80х25 
    int 10h
;   mov ax,0500h ; 2 страница активная
;   int 10h
 
    mov ax,0b800h
    mov es,ax
    xor dx,dx;начальное положение курсора
    xor bp,bp;счетчик символов 
getchar:
    mov ax,0700h ; ожидаем нажатие на клавишу
    int 21h
 
    cmp al,27;Esc   
    jne edit
    jmp exit
    
edit:
    mov bx,dx;запомнить старое положение курсора
    cmp al,8; BS
    jne edit0
    test dx,dx
    jz getchar;край экрана
        
    dec dl;сдвинуть курсор влево 
    call MoveCursor
    
    call DelSym;удалить символ под курсором
    jmp getchar
edit0:  
    cmp al,20h
    jb edit1
    cmp al,7dh
    ja edit1
    call InsSym 
    jmp getchar
 
edit1:
    cmp al,0; расширенный ASCII
    jne getchar
    mov ax,0700h
    int 21h 
    
    ;mov bx,dx;запомнить старое положение курсора
    ;cmp al,53;Del
    
    cmp al,48h; стрелка вверх
    jne kDown   
    dec dh
    jmp lSetCursor
kDown:
    cmp al,50h; стрелка вниз
    jne kLeft
    inc dh 
    jmp lSetCursor
kLeft:  
    cmp al,4bh; стрелка влево
    jne kRigth
    dec dl
    jmp lSetCursor
kRigth:
    cmp al,4dh; стрелка вправо 
    jne getchar
    inc dl
 
lSetCursor:
    call MoveCursor
    jmp getchar ; вернутся к опросу клавиатуры
exit:
    pop dx ;восстанавливаем режим экрана
    mov ax,0000h
    mov al,dl
    int 10h
    mov ax,0500h ;восстанавливаем активную страницу
    mov al,dh
    int 10h
exit1:
    mov ax, 4c00h ; закончить программу
    int 21h
end