home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / MISC / THELPPAT.ZIP / FFS.ASM < prev    next >
Encoding:
Assembly Source File  |  1990-08-02  |  4.2 KB  |  86 lines
  1. ;------ FindFirst() -------------------------------------------- COMPACT ------
  2. ;
  3. ;       by Christopher Antos
  4. ;
  5. ;       This is a replacement function for the Turbo C++ findfirst() function,
  6. ;       which has a problem with setting the _doserrno global variable after an
  7. ;       unsuccessful search.  As packaged with Turbo C++, the function sets
  8. ;       _doserrno to 87, no matter what the error is (or even if there is no
  9. ;       error).
  10. ;
  11. ;       This replacement routine performs the same function as the original
  12. ;       findfirst() routine, but it correctly sets _doserrno if there is an
  13. ;       error.  If there is no error, _doserrno retains its former value.
  14. ;       The global variable _errno is not set by this function.
  15. ;
  16. ;
  17. ;       int FindFirst( char *pathname, struct ffblk *fb, int attrib )
  18. ;
  19. ;------------------------------------------------------------------------------
  20.  
  21.  
  22.         DOSSEG                                          ; select Turbo C++ segment ordering
  23.         .MODEL  small,C                                 ; select small model (near code near data)
  24.  
  25.  
  26.         .DATA                                           ; external data
  27.         EXTRN   C       _doserrno:WORD                  ; Turbo C++ global variable
  28.  
  29.  
  30.         .CODE
  31.         PUBLIC  C       FindFirst                       ; so C++ program can use this function
  32.  
  33. FindFirst       PROC    C       NEAR
  34.  
  35.         ; declare arguments, allocate local variables, and save stack context
  36.         ARG     pathname:WORD, fb:WORD, attrib:WORD     ; arguments passed to function
  37.         LOCAL   DTAoffset:WORD, DTAsegment:WORD = LSIZE ; declare local variables
  38.  
  39.         ; save address of DTA
  40.         mov     ah,2fh                                  ; DOS function 2Fh
  41.         int     21h                                     ; get current DTA address
  42.         mov     [DTAoffset],bx                          ; save DTA offset
  43.         mov     [DTAsegment],es                         ; save DTA segment
  44.  
  45.         ; point new DTA to [fb]
  46.         mov     ah,1ah                                  ; DOS function 1Ah
  47.         mov     dx,WORD PTR [fb]                        ; load offset of new DTA
  48.         int     21h                                     ; set new DTA
  49.  
  50.         ; call the DOS "Find first file" function
  51.         mov     ah,4eh                                  ; DOS function 4Eh
  52.         mov     cx,[attrib]                             ; give attributes to match
  53.         mov     dx,WORD PTR [pathname]                  ; give offset of ASCIIZ pathname buffer
  54.         int     21h                                     ; find first file matching given attributes and wildcard
  55.         jc      @@error                                 ; if carry set, handle error
  56.         xor     ax,ax                                   ; zero ax register (FindFirst()==0 on success)
  57.         push    ax                                      ; push return value on stack
  58.         jmp     @@exit                                  ; return
  59.  
  60.         ; set _doserrno and return -1
  61. @@error:
  62.         mov     [_doserrno],ax                          ; load _doserrno with error code
  63.         mov     ax,-1                                   ; set ax to -1 (FindFirst()==-1 on error)
  64.         push    ax                                      ; push return value on stack
  65.  
  66.         ; restore DTA and stack context, then return
  67. @@exit:
  68.         push    ds                                      ; save ds
  69.         mov     ah,1ah                                  ; DOS function 1Ah
  70.         mov     dx,[DTAoffset]                          ; load DTA offset
  71.         mov     ds,[DTAsegment]                         ; load DTA segment
  72.         int     21h                                     ; restore DTA address
  73.         pop     ds                                      ; restore ds
  74.         pop     ax                                      ; load return value from stack into ax
  75.  
  76.         ; return (TASM automatically restores stack context and deallocates local variables)
  77.         ret                                             ; return to caller
  78.  
  79. FindFirst       ENDP
  80.  
  81.  
  82.         END                                             ; end of assembly source file
  83.  
  84.  
  85. ;------ EOF -------------------------------------------------------- EOF ------
  86.