Begin:
jmp Init ;На метку инициализации

; === Процедура обработки 09h прерывания (клавиатура) ===
Int_09h_proc proc

cmp ax,9889h ;Проверка на повторную загрузку в память (см. )
jne Check_funcs

xchg ah,al ;Если это наш "позывной", то даем ответ, меняя местами
iret ;AH/AL и немедленно выходим из 21h...

Check_funcs:
pusha
in al,60h ;Получим скан-код клавиши
cmp al,58h ;Это F12?
jne No_F12 ;Нет - передаем управление оригинальному обработчику

xor cs:Num_status,1 ;Если нажали F12, то меняем местами бит 1 (on/off)

No_F12:
popa
jmp dword ptr cs:[Int_09h_vect] ;Передаем управление оригинальному
;обработчику 09h...

Int_09h_vect dd ? ;Переменная для хранения адреса 09h прерывания
Int_09h_proc endp

; ===============================================================
; Инициализация (подготовка и настройка резидента)
Init:
mov ax,9889h ;Проверим, в памяти ли мы уже или еще нет
int 09h ;9889h - наш позывной
cmp ax,8998h ;Отозвался обработчик (AH/AL должны поменяться местами)?
jne Set_resident

mov ah,9 ;Если в памяти, то выведем соответствующее сообщение
mov dx,offset In_memory
int 21h

ret ;...И вернемся в DOS

Set_resident: ;Если нас в памяти нет, то установим резидент

; Теперь 09h...
mov ax,3509h
int 21h ;Получим и сохраним адрес (вектор) 09h прерывания
mov word ptr Int_09h_vect,bx ;Вначале младшее слово (смещение)...
mov word ptr Int_09h_vect+2,es ;Затем старшее (сегмент)

mov ax,2509h
mov dx,offset Int_09h_proc
int 21h ;"Повесим" нашу процедуру на 09h прерывание

mov ah,9
mov dx,offset Mess_hello
int 21h

mov dx,offset Init
int 27h ;Оставим программу резидентной в памяти.

;================================

In_memory db 'Программа уже загружена в память!!!!',0Ah,0Dh,0Ah

Mess_hello db 'Резидент к книге "Ассемблер? Это просто! Учимся программировать", Глава № 15.',0Ah,0Dh,0Ah
db '"Горячие" клавиши: F12 - вкл./выкл. замену букв и области DTА,',0Ah,0Dh
db ' Shift+PrintScreen - запись содержимого экрана в файл.',0Ah,0Dh,0Ah
db 'Автор: Калашников Олег Александрович (Assembler@Kalashnikoff.ru),',0Ah,0Dh
db 'http://www.Kalashnikoff.ru, Россия, Москва, 2000 год.',0Ah,0Dh,'$'
Num_status db 0
cseg ends
end Begin

org 100h

Begin:
mov cx, 10
xor si,si

Next_key:
in al,60h ;Получим скан-код клавиши

;сейчас в al -скан-код клавиши
;теперь надо поместить скан-код клавиши в массив

mov mas_b[si],al ;запись в массив al
inc si ;продвижение к следующему элементу массива

call Wait_key ;Вызываем процедуру ожидания нажатия клавиши
cmp al,27 ;Пользователь нажал ESC?
je Out_prog ;Если так, то на метку Quit_prog

loop Next_key

;---открываем файл с помощью функции "создания"
LEA DX,File_name ;DS:DX указывают на путь к файлу
MOV CX,0 ;атрибуты файлы (здесь обычные)
MOV AH,3CH ;номер функции
INT 21H ;открываем файл
jc Error_file ;Ошибка открытия файла?
MOV Handle,AX ;запоминаем номер файла

;---записываем в файл 10 байтов
MOV AH,40H ;номер функции
MOV BX,Handle ;номер файла в BX
MOV CX,10 ;число байт, которые надо записать
LEA DX,mas_b ;DS:DX указывают на буфер данных
INT 21H ;записываем данные

JC Out_prog ;проверка на ошибки
CMP CX,20 ;и их обработка
JNE Out_prog ;

mov ah,3Eh ;Закрываем файл
mov bx,Handle
int 21h

mov dx,offset Mess_ok
Out_prog:
mov ah,9
int 21h

int 20h ;Выходим из программы

Error_file:
mov dx,offset Mess_error
jmp Out_prog

; === Подпрограммы ===

; --- Wait_key ---
Wait_key proc
mov ah,10h ;Функция 10h прерывания 16h - ожидание нажатия клавиши
int 16h
ret
Wait_key endp

;==== Переменные ======
Handle dw 0
Mess_ok db 'File already in memory! See in debugger!$'
Mess_error db 'Not successful to open (search) file '
File_name db 'c:\TASM\BIN\work\fileOut.out',0,'!$'

mas_b label byte
rept 10
db 00h
endm

CSEG segment
assume CS:CSEG, DS:CSEG, ES:CSEG, SS:CSEG

org 100h

Begin:
xor ax,ax ;очищаем ax

;заносим слово состояния 10110110b(0В6h) в командный регистр (порт 43h)
mov al,0B6h
out 43h,al

in al,61h ;получим значение порта 61h в al
or al,3 ;инициализируем динамик и подаем ток в порт 61h
out 61h,al

mov cx,10000 ;количество повторений тона
;------------------
musicup:
;в ax значение частоты
mov ax,tonelow
out 42h,al ;в порт 42h младшее слово ax :al
xchg al,ah ;обмен между al и ah
out 42h,al ;в порт 42h старшее слово ax:ah

loop musicup ;повторить цикл
;----------------

nosound:
in al,61h ;получим значение порта 61h в AL
and al,0FCh ;выключить динамик
out 61h,al ;в порт 61h

exit:
mov ax,4c00h ;стандартный выход
int 21h

;----------------

tonelow dw 2651 ;нижняя граница звучания = 450 Гц

Begin:
jmp Init ;На метку инициализации

; === Процедура обработки 09h прерывания (клавиатура) ===
Int_09h_proc proc

cmp ax,9889h ;Проверка на повторную загрузку в память (см. )
jne Check_funcs

xchg ah,al ;Если это наш "позывной", то даем ответ, меняя местами
iret ;AH/AL и немедленно выходим из 21h...

Check_funcs:
pusha
in al,60h ;Получим скан-код клавиши
cmp al,1h ;Это Esc?
je Out_prog ;Если так, то на метку Out_prog

;--- дадим короткий звук ----------
push ax
push cx

xor ax,ax ;очищаем ax
;заносим слово состояния 10110110b(0В6h) в командный регистр (порт 43h)
mov al,0B6h
out 43h,al

in al,61h ;получим значение порта 61h в al
or al,3 ;инициализируем динамик и подаем ток в порт 61h
out 61h,al

mov cx,10000 ;количество повторений тона
musicup:
;в ax значение частоты
mov ax,tonelow
out 42h,al ;в порт 42h младшее слово ax :al
xchg al,ah ;обмен между al и ah
out 42h,al ;в порт 42h старшее слово ax:ah

loop musicup ;повторить цикл
nosound:
in al,61h ;получим значение порта 61h в AL
and al,0FCh ;выключить динамик
out 61h,al ;в порт 61h

pop cx
pop ax

;----- конец звука-----------

popa
jmp dword ptr cs:[Int_09h_vect] ;Передаем управление оригинальному
;обработчику 09h...
Out_prog:
mov dx,offset Mess_ok
mov ah,9
int 21h

int 20h ;Выходим из программы

Int_09h_vect dd ? ;Переменная для хранения адреса 09h прерывания
Int_09h_proc endp

; ===============================================================
; Инициализация (подготовка и настройка резидента)
Init:
mov ax,9889h ;Проверим, в памяти ли мы уже или еще нет
int 09h ;9889h - наш позывной
cmp ax,8998h ;Отозвался обработчик (AH/AL должны поменяться местами)?
jne Set_resident

mov ah,9 ;Если в памяти, то выведем соответствующее сообщение
mov dx,offset In_memory
int 21h

ret ;...И вернемся в DOS

Set_resident: ;Если нас в памяти нет, то установим резидент

; Теперь 09h...
mov ax,3509h
int 21h ;Получим и сохраним адрес (вектор) 09h прерывания
mov word ptr Int_09h_vect,bx ;Вначале младшее слово (смещение)...
mov word ptr Int_09h_vect+2,es ;Затем старшее (сегмент)

mov ax,2509h
mov dx,offset Int_09h_proc
int 21h ;"Повесим" нашу процедуру на 09h прерывание

mov ah,9
mov dx,offset Mess_hello
int 21h

mov dx,offset Init
int 27h ;Оставим программу резидентной в памяти.

;================================

tonelow dw 2651 ;нижняя граница звучания = 450 Гц
In_memory db 'Program already in memory!!!!!',0Ah,0Dh,0Ah
Mess_hello db 'Resident from book "Assembler? ',0Ah,0Dh,'$'
Mess_ok db 'File already in memory! See in debugger!$'

Begin:
jmp Init ;На метку инициализации

; === Процедура обработки 09h прерывания (клавиатура) ===
Int_09h_proc proc

cmp ax,9889h ;Проверка на повторную загрузку в память (см. )
jne Check_funcs

xchg ah,al ;Если это наш "позывной", то даем ответ, меняя местами
iret ;AH/AL и немедленно выходим из 21h...

Check_funcs:
pusha
in al,60h ;Получим скан-код клавиши
cmp al,1h ;Это Esc?
je Out_prog ;Если так, то на метку Out_prog

;сейчас в al -скан-код клавиши
;теперь надо поместить скан-код клавиши в массив
push si
xor si,si
push index_mas
pop si
mov mas_b[si],al ;запись в массив al
pop si
inc index_mas ;продвижение к следующему элементу массива

;--- дадим короткий звук ----------
push ax
push cx

xor ax,ax ;очищаем ax
;заносим слово состояния 10110110b(0В6h) в командный регистр (порт 43h)
mov al,0B6h
out 43h,al

in al,61h ;получим значение порта 61h в al
or al,3 ;инициализируем динамик и подаем ток в порт 61h
out 61h,al

mov cx,10000 ;количество повторений тона
musicup:
;в ax значение частоты
mov ax,tonelow
out 42h,al ;в порт 42h младшее слово ax :al
xchg al,ah ;обмен между al и ah
out 42h,al ;в порт 42h старшее слово ax:ah

loop musicup ;повторить цикл
nosound:
in al,61h ;получим значение порта 61h в AL
and al,0FCh ;выключить динамик
out 61h,al ;в порт 61h

pop cx
pop ax

;----- конец звука-----------

popa
jmp dword ptr cs:[Int_09h_vect] ;Передаем управление оригинальному
;обработчику 09h...
Out_prog:
; mov dx,offset Mess_ok
; mov ah,9
; int 21h

int 20h ;Выходим из программы

Int_09h_vect dd ? ;Переменная для хранения адреса 09h прерывания
Int_09h_proc endp

; ===============================================================
; Инициализация (подготовка и настройка резидента)
Init:
mov ax,9889h ;Проверим, в памяти ли мы уже или еще нет
int 09h ;9889h - наш позывной
cmp ax,8998h ;Отозвался обработчик (AH/AL должны поменяться местами)?
jne Set_resident

mov ah,9 ;Если в памяти, то выведем соответствующее сообщение
mov dx,offset In_memory
int 21h

ret ;...И вернемся в DOS

Set_resident: ;Если нас в памяти нет, то установим резидент

; Теперь 09h...
mov ax,3509h
int 21h ;Получим и сохраним адрес (вектор) 09h прерывания
mov word ptr Int_09h_vect,bx ;Вначале младшее слово (смещение)...
mov word ptr Int_09h_vect+2,es ;Затем старшее (сегмент)

mov ax,2509h
mov dx,offset Int_09h_proc
int 21h ;"Повесим" нашу процедуру на 09h прерывание

mov ah,9
mov dx,offset Mess_hello
int 21h

mov dx,offset Init
int 27h ;Оставим программу резидентной в памяти.

;================================
index_mas dw 0
tonelow dw 2651 ;нижняя граница звучания = 450 Гц
In_memory db 'Program already in memory!!!!!',0Ah,0Dh,0Ah
Mess_hello db 'Resident from book "Assembler? ',0Ah,0Dh,'$'
Mess_ok db 'File already in memory! See in debugger!$'

mas_b label byte
rept 10
db 00h
endm

Begin:
jmp Init ;На метку инициализации

; === Процедура обработки 09h прерывания (клавиатура) ===
Int_09h_proc proc

cmp ax,9889h ;Проверка на повторную загрузку в память (см. )
jne Check_funcs

xchg ah,al ;Если это наш "позывной", то даем ответ, меняя местами
iret ;AH/AL и немедленно выходим из 21h...

Check_funcs:
pusha
in al,60h ;Получим скан-код клавиши
cmp al,58h ;Это Esc?
je Out_prog ;Если так, то на метку Out_prog

;сейчас в al -скан-код клавиши
;теперь надо поместить скан-код клавиши в массив
push si
xor si,si
push index_mas
pop si
mov mas_b[si],al ;запись в массив al
pop si
inc index_mas ;продвижение к следующему элементу массива

;--- дадим короткий звук ----------
push ax
push cx

xor ax,ax ;очищаем ax
;заносим слово состояния 10110110b(0В6h) в командный регистр (порт 43h)
mov al,0B6h
out 43h,al

in al,61h ;получим значение порта 61h в al
or al,3 ;инициализируем динамик и подаем ток в порт 61h
out 61h,al

mov cx,10000 ;количество повторений тона
musicup:
;в ax значение частоты
mov ax,tonelow
out 42h,al ;в порт 42h младшее слово ax :al
xchg al,ah ;обмен между al и ah
out 42h,al ;в порт 42h старшее слово ax:ah

loop musicup ;повторить цикл
nosound:
in al,61h ;получим значение порта 61h в AL
and al,0FCh ;выключить динамик
out 61h,al ;в порт 61h

pop cx
pop ax

;----- конец звука-----------

popa
jmp dword ptr cs:[Int_09h_vect] ;Передаем управление оригинальному
;обработчику 09h...
Out_prog:

;---открываем файл с помощью функции "создания"
LEA DX,File_name ;DS:DX указывают на путь к файлу
MOV CX,0 ;атрибуты файлы (здесь обычные)
MOV AH,3CH ;номер функции
INT 21H ;открываем файл
jc Error_file ;Ошибка открытия файла?
MOV Handle,AX ;запоминаем номер файла

;---записываем в файл 10 байтов
MOV AH,40H ;номер функции
MOV BX,Handle ;номер файла в BX
MOV CX,10 ;число байт, которые надо записать
LEA DX,mas_b ;DS:DX указывают на буфер данных
INT 21H ;записываем данные

JC Out_prog2 ;проверка на ошибки
CMP CX,10 ;и их обработка
JNE Out_prog2 ;

mov ah,3Eh ;Закрываем файл
mov bx,Handle
int 21h

Out_prog2:

int 20h ;Выходим из программы
Error_file:
mov dx,offset Mess_error
jmp Out_prog2

Int_09h_vect dd ? ;Переменная для хранения адреса 09h прерывания
Int_09h_proc endp

; ===============================================================
; Инициализация (подготовка и настройка резидента)
Init:
mov ax,9889h ;Проверим, в памяти ли мы уже или еще нет
int 09h ;9889h - наш позывной
cmp ax,8998h ;Отозвался обработчик (AH/AL должны поменяться местами)?
jne Set_resident

mov ah,9 ;Если в памяти, то выведем соответствующее сообщение
mov dx,offset In_memory
int 21h

ret ;...И вернемся в DOS

Set_resident: ;Если нас в памяти нет, то установим резидент

; Теперь 09h...
mov ax,3509h
int 21h ;Получим и сохраним адрес (вектор) 09h прерывания
mov word ptr Int_09h_vect,bx ;Вначале младшее слово (смещение)...
mov word ptr Int_09h_vect+2,es ;Затем старшее (сегмент)

mov ax,2509h
mov dx,offset Int_09h_proc
int 21h ;"Повесим" нашу процедуру на 09h прерывание

mov ah,9
mov dx,offset Mess_hello
int 21h

mov dx,offset Init
int 27h ;Оставим программу резидентной в памяти.

;================================
index_mas dw 0
tonelow dw 2651 ;нижняя граница звучания = 450 Гц
In_memory db 'Program already in memory!!!!!',0Ah,0Dh,0Ah
Mess_hello db 'Resident from book "Assembler? ',0Ah,0Dh,'$'
Mess_ok db 'File already in memory! See in debugger!$'
Handle dw 0
Mess_error db 'Not successful to open (search) file '
File_name db 'c:\TASM\BIN\work\fileOut.out',0,'!$'

mas_b label byte
rept 10
db 00h
endm