Чтение из порта 60h

        jmp     work
Old_i15 dw      0,0
Str_    db  0h,0h
pushall proc    near
    jmp pushwrk
Save    dw  0, 0
pushwrk:
    pop [Save]
    pop [Save +2]
    push    ax
    push    bx
    push    cx
    push    dx
    push    ds
    push    es
    push    si
    push    di
    push    bp
    push    [Save +2]
    push    [Save]
    ret
pushall endp
 
popall  proc    near
    jmp popwrk
Rest    dw  0, 0
popwrk:
    pop [Rest]
    pop [Rest +2]
    pop bp
    pop di
    pop si
    pop es
    pop ds
    pop dx
    pop cx
    pop bx
    pop ax
    push    [Rest +2]
    push    [Rest]
    ret
popall  endp
 
get proc    near
    mov ah, al
    mov cl, 4
    shr ah, cl
    and al, 0Fh
 
    add ah, 30h
    cmp ah, 3Ah
    jl  prd_1
    add ah, 7h
prd_1:  mov cs:[Str_], ah
    add al, 30h
    cmp al, 3Ah
    jl  prd_2
    add al, 7h
prd_2:  mov cs:[Str_ +1], al
    ret
get endp
 
write   proc    near
    mov ah, 0fh
    int 10h
    push    cs
    pop es
    lea bp, cs:Str_
    mov cx, 2
    mov dx, 0000h
    mov bl, 70h
    mov ax, 1300h
    int 10h
        ret
write   endp
 
New_i15:
    call    pushall
    call    get
    call    write
    call    popall
    iret
 
work:
        push    cs
        pop     ds
        mov     ax, 3515h
        int     21h
        mov     [Old_i15], bx
        mov     [Old_i15 +2], es
        lea     dx, New_i15
        mov     ax, 2515h
        int     21h
        lea     dx, work
        int     27h

Int_15h_entry   proc    far
        pushf
        cmp ah,4Fh          ; Keyboard intercept ?
        jz  $$1         ; yes, processing
        popf
        jmp dword ptr cs:Old_isr15  ; go back
;
; Mode Toggle Section
;
 
$$1:
        cmp al,0ffh
        jnz $$001
        mov ax,$VER$
        popf
        clc
        retf    2
$$001:
        call    dword ptr cs:Old_isr15
        pusha
        push    ds          ;
        push    es          ;
 
        push    cs          ;
        pop ds          ;   ds = cs
        push    ax
        xor ax,ax           ;; set up BIOS data seg
        mov es,ax           ;;
        mov dx,word ptr es:Kb_flags_1_
        mov ax,dx
        mov bl,byte ptr es:Kb_flags_3_
        and bl,0ch
        AND ah,0f3h
        or  ah,bl
        and ax,0            ; This mask will be defined during startup
K_mask      equ $ - 2
 
        cmp ax,word ptr K_mask
        jnz $$3
$$03:       xor byte ptr ds:Cyrillic,0ffh ; Yes,toggle mode
        mov bx,300h
        jnz $$2         ;
        or  bx,550h         ; for Russ/Lat
$$2:        mov ax,Tone_r       ; beep
        call    ax
;$$2:       call    ds:Tone_r       ;; ??? KL - 02-27-93 02:55pm
$$3:
        pop ax
;
; Encoding Section
;