Работа с com-портом, передать\ установить системное время Опции

[Rocket]

Всем привет! По заданию, мне нужно передать системное время,а затем установить в принимающей машине новое системное время, равное переданному.
Нашёл функции по взятию и установки системного времени: 2cH и 2dH, соответственно...
Вот как я их использую:

data segment

	h db ?
	m db ?
	s db ?
	ms db ?

data ends

code segment
assume cs:code, ds:data

GetTime proc

	push ax
	push cx
        push dx
	
	xor ax,ax	
	xor cx,cx
	xor dx,dx

	mov ah, 2ch 
	int 21h

	mov h, ch
	mov m, cl
	mov s, dh
	mov ms,dl

	pop dx
	pop cx
	pop ax
	ret
GetTime endp

SetTime proc

        push ax
	push cx
        push dx
	
	xor ax,ax	
	xor cx,cx
	xor dx,dx

	mov ch, 11h
	mov cl, 0
	mov dh, 0
	mov dl, 0

	mov ah, 2dh 
	int 21h
	

	pop dx
	pop cx
	pop ax
	ret
SetTime endp

start:
	mov ax, data
	mov ds, ax

	call GetTime
	call SetTime
	;call GetTime

fin: 	mov ax, 4c00h
	int 21h

code ends
end start

Почему не происходит установка нового времени?

[volvo]

как часы, минуты, сек и мсек отправить?

Как вообщем эти переменные принять и сохранить?

Вот тут лежит документ, в котором мало того, что описаны порты, так еще и приведены подпрограммы инициализации/сброса и приема/передачи данных:
http://kwp2000.boom.ru/old/koc.txt

Разбирайся...

[Rocket]

Вот тут лежит документ, в котором мало того, что описаны порты, так еще и приведены подпрограммы инициализации/сброса и приема/передачи данных:
http://kwp2000.boom.ru/old/koc.txt

Разбирайся...

Да у меня в принципе тоже есть материал по портам, но всё равно лишним не будет.

Вот что у меня получилось, опять же, для передающей машины (out1.txt) и принимающей (inp1.txt).
Если есть возможность, наличие двух портов, то протестируйте пожалуйста...уж очень интересно узнать результат моей работы