Работа с 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

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

[Rocket]

Написал программы для передающей машины (out1.txt) и принимаюшей (inp1.txt).
Как реализовать следующие моменты:

1.

;передающая машина

	call GetTime	
	
	mov cx,4

mm: 	add dx,5
mm1: 	in al,dx
	and al, 01100000b
	cmp al, 01100000b
	jnz mm1
	;в al  записать очередной символ
	sub dx,5
	out dx,al
	loop mm

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

2.

;принимающая машина
	mov cx,4

mm:	add dx,5
mm1:    in al,dx
	test al,00000001b
	jz mm1
	sub dx,5
	in al,dx
	;сохранить этот символ
	loop mm
 	
	call SetTime

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