С помощью прерывания нужно почитать дату и сверить со стандартной

@OLEG VT · Регистрация: 19.12.2012

Студворк — интернет-сервис помощи студентам

Как сравнить заданную дату с датой на компьютере?

@OLEG VT · 23.12.2012, 21:30 **[ТС]**

Мне нужно вводить строку с датой.

@AFP · 23.12.2012, 21:33

Понял. Надо немного времени.

@OLEG VT · 23.12.2012, 22:44 **[ТС]**

Да, кстати, сравнение это можно с помощью макрокоманды написать. Только тут я тоже не разобрался, как это сделать...

@AFP · 23.12.2012, 22:48

Assembler
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
;DOS, TASM, COM-файл
;tasm.exe /m filename.asm
;tlink.exe /t /x filename.obj
;
.model tiny
.code
.386
ORG 100h
START:
 
    mov ah,9
    lea dx,date
    int 21h
 
;ввод строки
    mov ah,10
    lea dx,str
    mov di,dx
    int 21h
    cmp byte ptr [di+1],10
    jnz er
 
;получить дату
    mov ah,4
    int 1ah
 
;число
    add di,2
    mov al,dl
    ror ax,4
    shr ah,4
    or ax,3030h
    cmp [di],ax
    jnz er
 
;месяц
    add di,3
    mov al,dh
    ror ax,4
    shr ah,4
    or ax,3030h
    cmp [di],ax
    jnz er
 
;старшая часть года
    add di,3
    mov al,ch
    ror ax,4
    shr ah,4
    or ax,3030h
    cmp [di],ax
    jnz er
 
;младшая часть года
    add di,2
    mov al,cl
    ror ax,4
    shr ah,4
    or ax,3030h
    cmp [di],ax
    jnz er
 
;
    lea dx,ok
    jmp short m1
er:
    lea dx,bad
m1:
    mov ah,9
    int 21h
 
;ждать нажатой клавиши
    xor ax,ax
    int 16h
 
    ret ;выход из программы
;----Данные-------------
date db 13,10,'Enter date (dd-mm-gggg): $'
ok   db 13,10,'Work is true$'
bad  db 13,10,'Work is false$'
str db 11
;------------------------
    end start

@tinne · 23.12.2012, 22:57

А можете поменять чтобы вместо даты, время вводилось и сравнивалось. (часы и минуты только) А то меняю и что-то не выходит. Чтобы получить время использую:
Прерывание 1Ah, функция 2h

CH = часы в BCD (например, 13h означает 13 часов)
CL = минуты в BCD

@AFP · 23.12.2012, 23:03

tinne, вам в моей проге нужно очень немногое изменить. Попробуйте сами все сделать.

@tinne · 23.12.2012, 23:06

Я понимаю. А можете тогда написать какие прерывания вы использовали для получения даты.

@AFP · 23.12.2012, 23:16

Прерывание 1Ah, функция 4h

@tinne · 23.12.2012, 23:28

Вот поменял, но всегда выдает "Work is false". В чем напортачил я?

Assembler
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
.model tiny
.code
.386
ORG 100h
START:
 
mov ah,9
lea dx,date
int 21h
 
;ввод строки
mov ah,10
lea dx,str3
mov di,dx
int 21h
cmp byte ptr [di+1],10
jnz er
 
;получить время
mov ah,2 ; функция 2h
int 1ah
 
;часы
add di,2
mov al,ch ; ch - получаем часы
ror ax,4
shr ah,4
or ax,3030h
cmp [di],ax
jnz er
 
;минуты
add di,3
mov al,cl ; cl - получаем минуты
ror ax,4
shr ah,4
or ax,3030h
cmp [di],ax
jnz er
 
;
lea dx,ok
jmp short m1
er:
lea dx,bad
m1:
mov ah,9
int 21h
 
;ждать нажатой клавиши
xor ax,ax
int 16h
 
ret ;выход из программы
;----Данные-------------
date db 13,10,'Enter time (hh-mm): $'
ok db 13,10,'Work is true$'
bad db 13,10,'Work is false$'
str3 db 6
;------------------------
end start

@AFP · 23.12.2012, 23:36

cmp byte ptr [di+1],10

@tinne · 24.12.2012, 00:01

Спасибо, исправил, все заработало.

@OLEG VT · 24.12.2012, 15:36 **[ТС]**

AFP, спасибо огромнейшее!))))

Добавлено через 15 часов 25 минут
У меня что то программа всегда Work is false выдает..

@AFP · 24.12.2012, 16:09

Регистр AH был грязный. Вчера это не проявлялось.
Исправил:

Assembler
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
;DOS, TASM, COM-файл
;tasm.exe /m filename.asm
;tlink.exe /t /x filename.obj
;
.model tiny
.code
.386
ORG 100h
START:
 
    mov ah,9
    lea dx,date
    int 21h
 
;ввод строки
    mov ah,10
    lea dx,str
    mov di,dx
    int 21h
    cmp byte ptr [di+1],10
    jnz er
 
;получить дату
    mov ah,4
    int 1ah
 
;число
    xor ah,ah
    add di,2
    mov al,dl
    ror ax,4
    shr ah,4
    or ax,3030h
    cmp [di],ax
    jnz er
 
;месяц
    xor ah,ah
    add di,3
    mov al,dh
    ror ax,4
    shr ah,4
    or ax,3030h
    cmp [di],ax
    jnz er
 
;старшая часть года
    xor ah,ah
    add di,3
    mov al,ch
    ror ax,4
    shr ah,4
    or ax,3030h
    cmp [di],ax
    jnz er
 
;младшая часть года
    xor ah,ah
    add di,2
    mov al,cl
    ror ax,4
    shr ah,4
    or ax,3030h
    cmp [di],ax
    jnz er
 
;
    lea dx,ok
    jmp short m1
er:
    lea dx,bad
m1:
    mov ah,9
    int 21h
 
;ждать нажатой клавиши
    xor ax,ax
    int 16h
 
    ret ;выход из программы
;----Данные-------------
date db 13,10,'Enter date (dd-mm-gggg): $'
ok   db 13,10,'Work is true$'
bad  db 13,10,'Work is false$'
str db 11
;------------------------
    end start

@OLEG VT · 24.12.2012, 16:23 **[ТС]**

Спасибо)))

@tinne · 24.12.2012, 20:32

А проблема была именно в том, что в регистре ah что-то оставалось? И из-за этого она работала некорректно?

@AFP · 24.12.2012, 22:23

Да из-за этого.
Теперь:

Assembler
1
2
3
    xor ah,ah    ;очистка AH=0
    add di,2
    mov al,dl    ;DL->AL AL=DL

@tinne · 27.12.2012, 19:40

А что делает этот код?

Assembler
1
2
3
    ror ax,4
    shr ah,4
    or ax,3030h

@AFP · 27.12.2012, 20:50

Assembler
1
2
3
4
5
6
7
;число
    xor ah,ah
    add di,2
    mov al,dl ;AL=27h
    ror ax,4 ;AX=7002h
    shr ah,4 ;AX=0702h
    or ax,3030h ;AX=3732h - символы 7 и 2, теперь их можно вывести на экран

@tinne · 27.12.2012, 21:35

Не понимаю, зачем делать все эти сдвиги? И почему именно 3030h?

Добавлено через 8 минут
Или это как-то с этим связано?

Assembler
1
cmp [di],ax

@OLEG VT · 27.12.2012, 21:45 **[ТС]**

А можно откомментировать эту программу? А именно вот это место:

Assembler
1
2
3
4
5
6
7
8
9
10
11
;ввод строки
    mov ah,10
    lea dx,str
    mov di,dx
    int 21h
    cmp byte ptr [di+1],10
    jnz er
 
;получить дату
    mov ah,4
    int 1ah

Новые блоги и статьи Все статьи Все блоги /
FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

@OLEG VT 4 / 4 / 0 Регистрация: 19.12.2012 Сообщений: 41

	С помощью прерывания нужно почитать дату и сверить со стандартной 21.12.2012, 00:01. Показов 4849. Ответов 54 Метки нет (Все метки) Как сравнить заданную дату с датой на компьютере? 0

@OLEG VT 4 / 4 / 0 Регистрация: 19.12.2012 Сообщений: 41
	23.12.2012, 21:30 [ТС]
	Мне нужно вводить строку с датой. 0

@AFP 650 / 337 / 37 Регистрация: 04.04.2012 Сообщений: 886
	23.12.2012, 21:33
	Понял. Надо немного времени. 2

@OLEG VT 4 / 4 / 0 Регистрация: 19.12.2012 Сообщений: 41
	23.12.2012, 22:44 [ТС]
	Да, кстати, сравнение это можно с помощью макрокоманды написать. Только тут я тоже не разобрался, как это сделать... 0

@tinne 12 / 12 / 4 Регистрация: 13.10.2012 Сообщений: 279
	23.12.2012, 22:57
	А можете поменять чтобы вместо даты, время вводилось и сравнивалось. (часы и минуты только) А то меняю и что-то не выходит. Чтобы получить время использую: Прерывание 1Ah, функция 2h CH = часы в BCD (например, 13h означает 13 часов) CL = минуты в BCD 0

@AFP 650 / 337 / 37 Регистрация: 04.04.2012 Сообщений: 886
	23.12.2012, 23:03
	tinne, вам в моей проге нужно очень немногое изменить. Попробуйте сами все сделать. 1

@tinne 12 / 12 / 4 Регистрация: 13.10.2012 Сообщений: 279
	23.12.2012, 23:06
	Я понимаю. А можете тогда написать какие прерывания вы использовали для получения даты. 0

@AFP 650 / 337 / 37 Регистрация: 04.04.2012 Сообщений: 886
	23.12.2012, 23:16
	Прерывание 1Ah, функция 4h 1

@AFP 650 / 337 / 37 Регистрация: 04.04.2012 Сообщений: 886
	23.12.2012, 23:36
	cmp byte ptr [di+1],10 1

@tinne 12 / 12 / 4 Регистрация: 13.10.2012 Сообщений: 279
	24.12.2012, 00:01
	Спасибо, исправил, все заработало. 0

@OLEG VT 4 / 4 / 0 Регистрация: 19.12.2012 Сообщений: 41
	24.12.2012, 15:36 [ТС]
	AFP, спасибо огромнейшее!)))) Добавлено через 15 часов 25 минут У меня что то программа всегда Work is false выдает.. 0

@OLEG VT 4 / 4 / 0 Регистрация: 19.12.2012 Сообщений: 41
	24.12.2012, 16:23 [ТС]
	Спасибо))) 0

@tinne 12 / 12 / 4 Регистрация: 13.10.2012 Сообщений: 279
	24.12.2012, 20:32
	А проблема была именно в том, что в регистре ah что-то оставалось? И из-за этого она работала некорректно? 0