Вывод скан кода нажатой клавиши

.286
CSEG segment
assume cs: CSEG, ds: CSEG, es: CSEG, ss: CSEG
org 100h
 
Snake:
    call Init
    Start_game:
        mov ax, Current_time
        cmp ax, Step_timer
        jb Start_game
        
        mov Current_time, 0
        mov al, Last_push_button
        cmp al, 1
        je Quit
        call Show
        
        jmp Start_game
        
    
    Show proc
        push 0B900h
        pop es
        mov ah, 31
        mov al, Last_push_button
        mov es:[di], ax
        inc di
        inc di
        
        ret
    Show endp
    
    Init proc
        mov ax, 3
        int 10h
        mov ah, 2                               ;Прячем курсор
        mov bh, 0
        mov dx, 2000h
        int 10h                                 ;///
        mov ax, 0501h                           ;Переключаемся на 2-ю видеостраницу
        int 10h
        
        push 0
        pop es
        mov ax, es:[9h * 4]                     ;Получаем оригинальный вектор int 9h
        mov Orig_Int9h_off, ax
        mov ax, es:[9h * 4 + 2]
        mov Orig_Int9h_seg, ax                  ;///        
        mov ax, es:[8h * 4]                 ;Получаем оригинальный вектор int 8h
        mov Orig_Int8h_off, ax
        mov ax, es:[8h * 4 + 2]
        mov Orig_Int8h_seg, ax                  ;///    
        
        cli                                     ;Устанавливаем своё прерывание на int 9h
        mov ax, offset My_Int9h_proc
        mov es:[9h * 4], ax
        mov es:[9h * 4 + 2], cs
        mov ax, offset My_Int8h_proc            ;Устанавливаем своё прерывание на int 8h
        mov es:[8h * 4], ax
        mov es:[8h * 4 + 2], cs
        sti                                     ;///
        
        ret
    Init endp
    
    My_Int9h_proc proc
        pushf
        call dword ptr cs:[Orig_Int9h_off]
        in al, 60h
        cmp al, 5Eh                             ;Только нажатая кнопка
        jb Go_next
        iret
        Go_next:
            mov Last_push_button, al
        iret
    My_Int9h_proc endp
    
    My_Int8h_proc proc
        pushf
        call dword ptr cs:[Orig_Int8h_off]
        inc Current_time
        
        iret
    My_Int8h_proc endp
    
    Quit:
        cli                                     ;Возвращаем оригинальное прерывание int 8h
        push 0
        pop es
        mov ax, Orig_Int8h_off
        mov es:[8h * 4], ax
        mov ax, Orig_Int8h_seg
        mov es:[8h *4 + 2], ax
        mov ax, Orig_Int9h_off                  ;Возвращаем оригинальное прерывание int 9h
        mov es:[9h * 4], ax
        mov ax, Orig_Int9h_seg
        mov es:[9h *4 + 2], ax
        sti
        
        mov ax, 3
        int 10h
        mov ax, 0500h                           ;Переключаемся на 1-ю видеостраницу
        int 10h
        int 20h
    
    Orig_Int9h_off dw ?
    Orig_Int9h_seg dw ?
    Orig_Int8h_off dw ?
    Orig_Int8h_seg dw ?
    Last_push_button db 4Dh
    Step_timer dw 18
    Current_time dw 0
    
    Pos_cursor dw 0
    
CSEG ends
end Snake