Программирование на Ассемблере для персональных компьютеров. Садовой Н.Н - 73 стр.

UptoLike

Составители: 

73
jz m4
cmp al, 36h ; стрелка вправо
jnz back ; неиспользуемая клавиша
mov DIRECT, 3
jmp back
m2: mov DIRECT, 1
jmp back
m3: mov DIRECT, 4
jmp back
m4: mov DIRECT, 2
back: pop es
pop ds
pop dx
pop cx
pop bx
pop ax
iret
NEW_1C endp
; Подпрограмма очистки экрана
CLS proc near
push cx
push ax
push si
xor si, si
mov ah, 7
mov dl, ' '
mov cx, 2000
CL1: mov es:[si], ax
            jz     m4
            cmp al, 36h            ; стрелка вправо
            jnz    back            ; неиспользуемая клавиша
            mov DIRECT, 3
            jmp back
m2:         mov DIRECT, 1
            jmp back
m3:         mov DIRECT, 4
            jmp back
m4:         mov DIRECT, 2
back:       pop es
            pop ds
            pop dx
            pop cx
            pop bx
            pop ax
            iret
NEW_1C endp
      ; Подпрограмма очистки экрана
CLS         proc            near
            push cx
            push ax
            push si
            xor    si, si
            mov ah, 7
            mov dl, ' '
            mov cx, 2000
CL1:        mov es:[si], ax
                                                              73