format binary
org 100h
 start:

mov ah,01h
int 21h
mov cl,al
cmp cl,"9"
jbe cyfra11
sub cl,"A"
add cl,10
jmp endpart

cyfra11:
sub cl,"0"

endpart:
shl cl,4


mov ah,01h
int 21h
cmp al,"9"
jbe cyfra12
sub al,"A"
add al,10
jmp endfirst

cyfra12:
sub al,"0"

endfirst:
or cl,al
mov dl,cl

startsecond:
mov ah,01h
int 21h
mov ch,al
cmp ch,"9"
jbe cyfra21
sub ch,"A"
add ch,10
jmp endsecond

cyfra21:
sub ch,"0"


endsecond:
shl ch,4
mov ah,01h
int 21h
cmp al,"9"
jbe cyfra22
sub al,"A"
add al,10
jmp changeposition
cyfra22:
sub al,"0"


changeposition:

or ch,al
mov bh,0
mov dl,cl
mov dh,ch
mov ah,02h
int 10h

mov ah,02h
int 1ah
mov ah,02h


mov dl,ch
shr dl,4
add dl,"0"
int 21h
mov dl,ch
and dl,0Fh
add dl,"0"
int 21h

mov dl,":"
int 21h
mov dl,cl
shr dl,4
add dl,"0"
int 21h
mov dl,cl
and dl,0Fh
add dl,"0"
int 21h

mov dl,":"
int 21h
mov dl,dh
shr dl,4
add dl,"0"
int 21h
mov dl,dh
and dl,0Fh
add dl,"0"
int 21h

;DATE DATE DATE
mov ah,04h
int 1ah
mov cl,dl
mov ah,02h
mov dl,"R"
int 21h
int 21h
mov dl,ch
shr dl,4
add dl,"0"
int 21h
mov dl,ch
and dl,0Fh
add dl,"0"
int 21h

mov dl,cl
shr dl,4
add dl,"0"
int 21h
mov dl,cl
and dl,0Fh
add dl,"0"
int 21h

mov dl,"M"
int 21h
mov dl,dh
shr dl,4
add dl,"0"
int 21h
mov dl,dh
and dl,0Fh
add dl,"0"
int 21h

mov dl,"D"
int 21h
mov dl,ch
shr dl,4
add dl,"0"
int 21h
mov dl,ch
and dl,0Fh
add dl,"0"
int 21h





jmp start




finish:
mov ax, 4c00h
int 21h