Форум на Исходниках.RU

.MODEL Tiny .286 .CODE ORG 100h INTNO equ 08h ; Номер прерывания MIN equ 12 Start: ; ________ Начало программы ________ jmp SetIntVec ; Прыжок на установщик вектора ;--------------------------------------------------------------------------; ; ____________________ Начало основной TSR программы. ____________________ ; ;--------------------------------------------------------------------------; Timer DB 0 Handler: ; Обработчик прерывания inc cs:Timer jnz RealInt pusha ; Сохранить все регистры mov cx,255 RepL: mov dx,3C7h mov al,cl out dx,al add dx,2 in al,dx mov ah,al in al,dx mov bl,al in al,dx mov bh,al cmp ah,MIN jb NextBL dec ah NextBL: cmp bl,MIN jb NextBH dec bl NextBH: cmp bh,MIN jb Next dec bh Next: mov al,cl dec dx out dx,al inc dx mov al,ah out dx,al mov al,bl out dx,al mov al,bh out dx,al loop RepL popa ; Восстановить все регистры RealInt: db 0EAh,0,0,0,0 ; Возвращение управления INTNO ;--------------------------------------------------------------------------; ; _________________________ Конец TSR программы. _________________________ ; ;--------------------------------------------------------------------------; SetIntVec: mov ax,3500h + INTNO ; Получить вектор int 21h ; прерывания INTNO mov WORD PTR RealInt[1],bx ; Сохранить адрес mov WORD PTR RealInt[3],es ; старого обработчика mov ah,25h ; Установить вектор mov dx,OFFSET Handler ; прерывания INTNO по int 21h ; адресу Handler'а mov ah,9 lea dx,Message int 21h ; Выводим мессаг mov ah,49h mov es,ds:[2Ch] int 21h mov dx,OFFSET SetIntVec ; Установка резидентной int 27h ; части программы ;--------------------------------------------------------------------------; Message DB 13,10,'+---------------------------+' DB 13,10,'¦ _________ LDown _________ ¦' DB 13,10,'¦ Автор Красников Е.П, 1997 ¦' DB 13,10,'+---------------------------+' DB 13,10,24h END Start