home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / vdmutils.zip / SFILEINF.ASM < prev    next >
Assembly Source File  |  1997-10-01  |  1KB  |  36 lines
  1. ; Subroutine to set the extended attributes of an open file.
  2. ; Copyright (C) 1996, David W. Noon
  3.            .286
  4.            .287
  5. ;          OPTION   CASEMAP:ALL
  6.            ASSUME   CS:_TEXT
  7. _TEXT      SEGMENT  PARA READONLY PUBLIC 'CODE'
  8.            PUBLIC   DWNSETFILEINFO
  9. DWNSETFILEINFO PROC FAR PASCAL
  10.            PUSH     BP          ; Stack housekeeping
  11.            MOV      BP,SP       ;
  12.  
  13.            PUSH     ES          ; Save working ...
  14.            PUSH     DI          ; ... registers.
  15.  
  16.            MOV      AX,5703H    ;  Set up the parameter list:
  17.            MOV      BX,14[BP]   ;     File handle
  18.            MOV      DX,12[BP]   ;     Info. level
  19.            LES      DI,8[BP]    ;     Address of buffer area
  20.            MOV      CX,6[BP]    ;     Buffer size
  21.  
  22.            INT      21H         ; Issue the multiplex interrupt
  23.            JC       SHORT $+4   ; If an error occurred leave rc intact
  24.            XOR      AX,AX       ; Set rc to zero
  25.  
  26.            POP      DI          ; Restore working ...
  27.            POP      ES          ; ... registers.
  28.  
  29.            MOV      SP,BP       ; Restore stack
  30.            POP      BP          ;
  31.  
  32.            RETF     10          ; Clean up 10 bytes of parameter pointers
  33. DWNSETFILEINFO ENDP
  34. _TEXT      ENDS
  35.            END
  36.