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
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
;
page 80,132
;
title CP/DOS DosQCurDir mapper
buffer segment word public 'buffer'
CurrentDirectoryBuffer db 128 dup(?)
buffer ends
dosxxx segment byte public 'dos'
assume cs:dosxxx,ds:nothing,es:nothing,ss:nothing
;**********************************************************************
;*
;* MODULE: dosqcurdir
;*
;* FILE NAME: dos036.asm
;*
;* CALLING SEQUENCE:
;*
;* push word drive number (0=default, 1=a, etc.)
;* push@ other dirpath
;* push@ other dirpathlen
;*
;* call doqcurdir
;*
;* MODULES CALLED: PC-DOS Int 21h, ah=47h, get current directory
;*
;*********************************************************************
public dosqcurdir
.sall
include macros.inc
str struc
old_bp dw ?
return dd ?
BufferLengthPtr dd ? ; directory path buffer length pointer
BufferPtr dd ? ; directory path buffer pointer
Drive dw ? ; driver number
str ends
dosqcurdir proc far
Enter Dosqcurdir ; push registers
mov ax,seg buffer ; set temporary buffer to receive
mov ds,ax ; dircetory path information
assume ds:buffer
mov si,offset buffer:CurrentDirectoryBuffer
mov dx,[bp].drive ; set driver number
mov ah,47h
int 21h ; get directory path information
jc ErrorExit ; check for error
mov di,ds
mov es,di
assume es:buffer
; next calculate the size of the path name just received
mov di,offset buffer:CurrentDirectoryBuffer
mov cx,128
mov al,0 ; look for the non-ascii chara
cld ; in the buffer indciates the
repne scasb ; end of the path.
mov dx,128
sub dx,cx ; calculate actual path length
les di,[bp].BufferLengthPtr ; set path buffer lenght pointer
assume es:nothing
mov cx,es:[di] ; check for directory path
; buffe size
cmp cx,dx ; compare with needed length
jnc HaveThePathLength ; branch if length is ok
mov ax,8 ; else, set error code
jmp ErrorExit ; return
HaveThePathLength:
mov cx,dx
mov es:[di],dx ; return path length
les di,[bp].BufferPtr ; prepare to move directory path name
; into return buffer
mov si,offset buffer:CurrentDirectoryBuffer
rep movsb ; copy dir path to return buffer
sub ax,ax ; set good return
ErrorExit:
mexit ; pop registers
ret size str - 6 ; return
dosqcurdir endp
dosxxx ends
end
|
