Переименовать файл primer.txt и установить дату создания 1.01.2001

.model small
.data
f_name db 'primer.txt', 0
hendle dw 0
.code
begin :
mov ax, @data
mov ds, ax
mov ah, 56h
lea dx, file1
lea dx, file2
int 21h
ret
file1 db 'primer.txt',0
file2 db 'primer1.txt',0
mov ah, 3dh
mov al, 1
mov dx, offset f_name
mov cl, 00100000b
int 21h
mov hendle, ax
mov ax, 5701h
mov bx, hendle
mov cx, 1011100101000000b
mov dx, 0011001110011110b
int 21h
mov ah, 3eh
int 21h
mov ax, 4c00h
int 21h
end begin

;FASM renf.asm renf.obj
;wlink sys dos4g fi renf.obj,D:\WC11\lib386\dos\CMAIN386.OBJ lib clib3s.lib
format ms coff
include 'private\proc.inc'
extrn   __CMain 
extrn   rename
extrn   printf
extrn   open
extrn   close
extrn   _dos_settime
extrn exit
O_RDWR  =   2
public  main
section '_TEXT' code
main:
    ccall   rename, oldf, newf
    ccall   printf, msg, oldf, newf
    ccall   open, newf, O_RDWR
;   call    _dos_settime
    mov     bx,ax
    push    ax
    mov     ax, 5701h
    xor     cx, cx
    mov     dx, 2A21h
    int     21h
    pop     bx
;   ccall   close, eax
    mov     ah, 3Eh
    int     21h
    ccall   exit,0
section '_DATA' data
oldf    db  'primer.txt',0
newf    db  'primer1.txt',0
msg db  'renaming %s to %s',0

.model small
.data
file1 db 'primer.txt',0
file2 db 'primer1.txt',0
.code
begin :
mov ax, @data
mov ds, ax
mov es, ax
mov ah, 56h
lea dx, file1
lea di, file2
int 21h
ret
mov ah, 3dh
mov al, 1
mov dx, offset file2
mov cl, 00100000b
int 21h
mov bx, ax
mov ax, 5701h
mov cx, 1011100101000000b
mov dx, 0011001110011110b
int 21h
mov ah, 3eh
int 21h
mov ax, 4c00h
int 21h
end begin