[Окоза-Окоза]

waleri, Эту проблему я исправил, и вопрос поменялся все-таки решился использовать 4 видеорежим. код поменялся:

org 900h
include 'LIB\BASE_FUNC.asm'
start:
  clear_scr
        xor bp, bp
        call setvideo
        jmp drawback
metka:
     ;   call setgraphicscur
        call settextcur
        call drawgrap
        jmp wtkeys


       jmp $

settextcur:
        mov ah, 02h
        mov bh, 0
        mov dh, 3
        mov dl, 4
        int 10h
        ret

drawgrap:
        mov ah, 0Eh
        mov al, 'N'
        mov bh, 0
        mov bl, 02h
        int 10h
        ret

;setgraphicscur:
 ;       mov ax, 4
  ;      mov cx, 100
   ;     mov dx, 150
    ;    int 33h
     ;   ret

setvideo:
        mov ah, 00h
        mov al, 4
        int 10h
        ret

drawback:
        mov ah, 0Bh
        mov bh, 00h
        mov bl, 02h
        int 10h
        jmp drawline

drawline:
        cmp bp, 100
        jz metka
        mov ah, 0Ch
        mov al, 04h
        mov bh, 0
        mov cx, bp
        mov dx, bp
        int 10h
        add bp, 1
        jmp drawline

wtkeys:
             mov ah,10h
        int 16h
        cmp al, 1Bh     ;Если нажата клавиша Esc - выход из приложения
        jz Esc
    jmp wtkeys

Esc:
     mov ah, 00h
     mov al, 2
     int 10h
     jmp 0000:0500h





times 512 - ($ - $$) db 0