.model tiny
.code
org 2Ch
envseg dw ?
org 100h
begin:
old_int09h:
jmp short initialize
dw 0
int09h_handler proc far
in al,60h
cmp al,32h
je short re2
mov ah,2
mov dl,33h
int 21h
re2:
jmp dword ptr cs:old_int09h
int09h_handler endp
initialize proc near
mov ax,3509h
int 21h
mov word ptr old_int09h,bx
mov word ptr old_int09h+2,es
mov ax,2509h
mov dx,offset int09h_handler
int 21h
mov ah,49h
mov es,word ptr envseg
int 21h
mov dx,offset initialize
int 27h
initialize endp
end begin
in al, 60h
cmp al, 32h
je short re2
int09h_handler proc far
push ax, dx
in al, 60h
cmp al, 03h
je short re2
;Тут должна быть очистка буфера.
re2:
pop dx, ax
jmp dword ptr cs:old_int09h
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.