masm

    .model  tiny
    .386
    .code
    org 100h
begin:
    xor ax, ax
    mov es, ax
    mov AX,13h
    int 10h
 
    mov CX, 160         ;столбец, X
    mov DX, 100         ;строка, Y
    int 10h
 
key_loop:
 
    xor ax,ax           ;ждем символ с клавиатуры
    int 16h
    cmp ah,1            ; Нажали Esc?
    je  quit            ; Да, выход
    cmp ah,50h          ;сравнение со стрелкой вниз
    je  key_down        ;переход в обработчик
    cmp ah,48h          ;сравнение со стрелкой вверх
    je  key_up          ;переход в обработчик
    cmp ah,4bh
    je  key_l
    cmp ah,4dh
    je  key_r
    cmp ah, 4Eh     ;gray+
    jz  scrl_up
    cmp ah, 4Ah     ;gray-
    jz  scrl_dn
 
draw:
 
    MOV AH,0CH
    MOV AL,3
    int 10h
    jmp key_loop
 
key_down:
    inc dx
    jmp draw
key_up:
    dec dx
    jmp draw
key_l: dec cx
    jmp draw
key_r: inc cx
    jmp draw
scrl_up:
    sub dx, es:[485h]
    pusha
    mov ax, 0601h
scrl:   xor bx, bx
    xor cx, cx
    mov dh,es:[484h]    ; rows
    mov dl,es:[44Ah]    ; columns
    int 10h
    popa
    jmp key_loop
scrl_dn:
    add dx, es:[485h]
    pusha
    mov ax, 0701h
    jmp     scrl
quit:
    mov ax,3
    int 10h
    ret
    end begin