В левом верхнем углу экрана мы видим надпись “ НН:MM:SS” розового цвета на синем фоне, SS, MM, HH – время работы программы в часах, минутах, секундах. Программа работает 2 минуты. Если ограничение на время не ставить, после 24 часов счетчик сбросится в ноль.
2.6. Маскирование доступа к клавиатуре на 20 секунд.
IMR – регистр маски прерывания служит для хранения разрешения и запрета (маскирования) прерываний, доступен через порт 21h/A1h (маскирование клавиатуры – 1 в первом бите регистра IMR).
prog6.asm
sseg SEGMENT STACK ; сегмент стека
db 64 dup (?)
sseg ENDS
dseg SEGMENT PARA PUBLIC 'DATA'
cnt dw 0h
sec dw 0h
min dw 0h
hour dw 0h
flag dw 0h
adr8i:
ip8 dw 0h ; вектор обработчика
cs8 dw 0h
adr60i:
ip60 dw 0h ; вектор обработчика
cs60 dw 0h
msg db ' : : $'
dseg ENDS
cseg SEGMENT
main proc FAR
; связь между регистром сегмента и сегментом программы
ASSUME cs:cseg, ds:dseg, ss:sseg
work: mov ax, dseg ; инициализация сегмента данных dseg
mov ds, ax
; установка вектора прерывания int8
mov ax,3508h ; получение адреса обработчика (вектор прерывания)
int 21h
mov ip8, bx ; сохранение указателей на программу обработки
mov ax, es
mov cs8, ax
; установка вектора прерывания int60
mov ax,3560h ; получение адреса обработчика (вектор прерывания)
int 21h
mov ip60, bx ; сохранение указателей на программу обработки
mov ax, es
mov cs60, ax
push ds
mov dx, offset myint8 ; получение адреса обработчика
mov ax, seg myint8
mov ds, ax
mov ah, 25h ; установка вектора прерывания
mov al, 8h
int 21h
pop ds
push ds
mov dx, offset myint60 ; получение адреса обработчика
mov ax, seg myint60
mov ds, ax
mov ah, 25h ; установка вектора прерывания
mov al, 60h
int 21h
pop ds
; маскирование доступа к клавиатуре
mov al,2
out 21h,al
time: ; цикл, ограничивающий время работы
cmp flag,0 ; проверка на изменение секунд
je exit
mov flag,0
mov ax,sec ; преобразование количества секунд
mov bl,10
div bl
add ax,3030h ; преобразование в ASCII
mov word ptr es:msg+7,ax
mov ax,min ; преобразование количества минут
div bl
add ax,3030h ; преобразование в ASCII
mov word ptr es:msg+4,ax
mov ax,hour ; преобразование количества часов
div bl
add ax,3030h ; преобразование в ASCII
mov word ptr es:msg+1,ax
mov ax,0b800h ; цветной дисплей
mov es,ax
lea bx,msg
mov di,0 ; место отображения сообщения
mn1:
mov al,[bx]
cmp al,'$'
je exit
mov es:[di],al
inc di
inc bx
mov es:[di],word ptr 15h ; атрибуты вывода сообщения
inc di
jmp mn1
exit:
cmp sec,20
jne time
mov al,0 ; разблокировка клавиатуры (IMR)
out 21h,al
mov ax,0h
int 16h
push ds
mov dx, ip8
mov ax, cs8
mov ds, ax
mov ah, 25h
mov al, 8h
int 21h
pop ds
push ds
mov dx, ip60
mov ax, cs60
mov ds, ax
mov ah, 25h
mov al, 60h
int 21h
pop ds
mov ah,4ch ; завершение работы программы
int 21h
main ENDP
myint8 proc FAR ; обработчик прерывания
push ax ; сохранение контекста
push es
mov ax, dseg
mov es,ax
mov ax,word ptr es:cnt ; вычисление количества прерываний int8
inc ax
cmp ax,18 ; вызов int60, если поступило 18 int8
jne m0
int 60h
mov ax,0
m0:
mov word ptr es:cnt,ax
pop es
pop ax
mov ax,dseg
mov es,ax
jmp dword ptr es:adr8i ; управление - стандартному обработчику
myint8 ENDP
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.