1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
| ;DOS, TASM, COM-файл
;
;Компиляция СОМ-файла:
;tasm.exe /m filename.asm
;tlink.exe /t /x filename.obj
;Выход: filename.com
;
.model tiny
.code
.386
ORG 100h
START:
;часы будут выводиться в видеопамять
;ES на буфер в видеопамяти
push 0B800h
pop es
mov ax,3 ;очистить экран
int 10h
call GETTIME ;вызвать процедуру взятия текущего времени
lea dx,TIME
mov ah,09h
int 21h ;вывести время на экран
lea dx,msg1
mov ah,09h
int 21h ;вывод сообщений
lea dx,msg2
mov ah,09h
int 21h
mov ah,01
mov cx,2000h ;ch=столбец cl-строка
int 10h ;убрать курсор (что бы не мерцал)
;получить с клавиатуры вребя будильника
L2:
mov ah,06h
mov dl,-1 ;= 0ffH запрос ввода со стандартного ввода
int 21h ;считать нажатую клавишу в al
jz short L2
cmp al,27 ;если esp
je short exit ;на выход
cmp [count],4 ;сравнить счетчик ввода
jae short L2 ;если больше 4 то таймер введен
inc [count] ;счетчик +1
mov dl,al ;поместить в dl нажатый символ
mov ah,02h
int 21h ;вывести на экран символ
mov ax,[TIMER] ;поместить текущее значение таймера
rol ax,4 ;сдвиг влево на 4 бита
sub dl,'0' ;преобразовать символ в цифру
or al,dl ;добавить к al
mov [TIMER],ax ;сохранить в переменную
cmp [count],2 ;сравнить счетчик с введеными 2 символами
jne short next ;продолжить если не равно
mov dl,':' ;вывести разделитель
mov ah,02h
int 21h ;вывод символа ':'
next:
cmp [count],4
je short setalarm ;если введены 4 символа установить таймер
jmp short L2 ;иначе продолжать цикл ввода и вывода времени
setalarm:
lea dx,msg3 ;вывести wait
mov ah,9
int 21h
;замена вектора прерывания 4Ah на процедуру ALARM
mov dx,offset ALARM ;берем смещение процедуры
mov al,4Ah ;номер изменяемого вектора
mov ah,25h ;функция изменения вектора
int 21h ;поменять вектор
;установить сигнал часов
;В указанное время вызывается пользовательская программа
;по вектору прерывания INT 4aH
xor dx,dx ;DH = секунды в коде BCD
mov cx,[TIMER] ;CH,CL = часы,минуты в коде BCD
mov ah,06h
int 1Ah ;установить сигнал часов
L1:
call GETTIME ;взять текущее время и вывести его на экран
;проверка нажатой клавиши
mov ah,06h
mov dl,-1 ;= 0ffH запрос ввода со стандартного ввода
int 21h ;считать нажатую клавишу в al
jz short L1
cmp al,27 ;если esp
je short exit ;на выход
jmp short L1 ;перейти в начало цикла
exit:
mov ah,7 ;отключить будильник
int 1Ah
ret ;выход из программы
;взятие времени
GETTIME proc
push si ;сохранить адрес строки времени для вывода
mov ah,02h
int 1Ah ;взять время ch=часы cl=минуты в формате BCD
push cx ;сохранить в стек
lea si,TIME ;адрес переменной
mov cl,ch ;в ch и сl часы
and cx,0FF0h ;преобразовать в неупакованное BCD
ror cl,4 ;сдвиг младшей цифры часа на 4 вправо
add cx,'00' ;преобразовать в ASCII символы
mov word ptr [si],cx;записать в переменную
pop cx ;восстановить cx из стека
mov ch,cl ;в ch и сl минуты
and cx,0FF0h
ror cl,4
add cx,'00' ;преобразовать в ASCII
mov word ptr [si+3],cx;сохранить на место минут в time
mov dl,dh ;в dh и dl секунды
and dx,0FF0h
ror dl,4
add dx,'00'
mov word ptr [si+6],dx;сохранить в time на место секунд
pop si
;Вывод времени на экран
lea si,TIME ;строка
mov di,0 ;позиция на экране
mov ah,7 ;цвет символа и фона
m1:
lodsb ;прочитать символ из строки
cmp al,13
jz short m2
stosw ;записать символ и цвет на экран
jmp short m1
m2:
ret
GETTIME endp
;сигнал
ALARM proc
pusha
cli
mov al,10110110b
mov dx,43h
out dx,al
mov ax,8E8h;10CFh;96Fh ;нота Си-493,88Гц
dec dx
out dx,al
mov al,ah
out dx,al
add dx,1Fh
in al,dx ;включить динамик
or al,11b
out dx,al
sti
;-----------------------
push dx
mov ah,0
int 1Ah
add dx,18*15 ;18*3 задержка примерно на 3 секунды
adc cx,0
mov di,dx
mov si,cx
DELAY:
int 1Ah
cmp cx,si
ja short EndDELAY
cmp dx,di
jb short DELAY
EndDELAY:
pop dx
;---------------------------
cli
in al,dx ;выключить динамик
and al,11111100b
out dx,al
sti
popa
iret ;возврат из аппаратного прерывания
ALARM endp
;-----------------------------------------------------------------
TIME db '00:00:00',13,10,10,'$'
msg1 db 'PROGRAMM < ALARM >',13,10,'ESC - exit',13,10,'$'
msg2 db 'PLEASE ENTER ALARM TIME: $'
msg3 db 13,10,'WAIT$'
count db 0 ;счетчик введенных цифр
TIMER dw 0 ;переменная заданного времени
;-------------------------------------------------------------------
end start |
(
Сообщение было отмечено Taatshi как решение
