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
88
89
|
; 0
page 80,132
title CP/DOS DosSetFileInfo mapper
FileAttributeSegment segment word public 'fat'
extrn FileAttributeTable:word
FileAttributeSegment ends
dosxxx segment byte public 'dos'
assume cs:dosxxx,ds:nothing,es:nothing,ss:nothing
;
;**********************************************************************
;*
;* MODULE: dossetfileinfo
;*
;* FUNCTION: set file information
;*
;* CALLING SEQUENCE:
;*
;* push word file handle
;* push word info level
;* push@ other file info buffer
;* push word file buffer size
;* call dossetfileinfo
;*
;* MODULES CALLED: PC-DOS Int 21h, ah=57h, set file's date/time
;*
;*********************************************************************
public dossetfileinfo
.sall
.xlist
include macros.inc
.list
str struc
old_bp dw ?
return dd ?
BufferSize dw ? ; file info buufer size
BufferPtr dd ? ; file info buffer
Level dw ? ; file info level
Handle dw ? ; file handle
str ends
dossetfileinfo proc far
Enter dossetfileinfo ; push registers
mov bx,[bp].Handle ; fill registers for function call
lds si,[bp].BufferPtr ; date/time pointer
mov dx,word ptr [si]+8 ; date to be set
mov cx,word ptr [si]+10 ; time to be set
mov ax,5701h
int 21h
jc ErrorExit ; check for error
; This code should be un-commented when the attribute can be set from
; the setfileinfo call
; lds si,[bp].BufferPtr
; mov ax,ds:[si].the offset to the attribute word
; mov bx,seg FileAttributeSegment
; mov ds,bx
; assume ds:FileAttributeSegment
; mov bx,[bp].Handle
; add bx,bx
; mov FileAttributeTable[bx],ax
sub ax,ax ; set good return code
ErrorExit:
mexit ; pop registers
ret size str - 6 ; return
dossetfileinfo endp
dosxxx ends
end
|
