home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / vdmutils.zip / SPATHINF.ASM < prev    next >
Assembly Source File  |  1997-10-01  |  2KB  |  41 lines
  1. ; Subroutine to set the extended attributes of a path.
  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   DWNSETPATHINFO
  9. DWNSETPATHINFO PROC FAR PASCAL
  10.            PUSH     BP          ; Stack housekeeping
  11.            MOV      BP,SP       ;
  12.  
  13.            PUSH     DS          ; Save working ...
  14.            PUSH     SI          ; ... registers.
  15.            PUSH     ES          ; ...
  16.            PUSH     DI          ; ...
  17.  
  18.            MOV      AX,5703H    ;  Set up the parameter list:
  19.            MOV      BX,0FFFFH   ;     Indicator for path/filename
  20.            LDS      SI,14[BP]   ;     Address of path/filename
  21.            MOV      DX,12[BP]   ;     Info. level
  22.            LES      DI,8[BP]    ;     Address of buffer area
  23.            MOV      CX,6[BP]    ;     Buffer size
  24.  
  25.            INT      21H         ; Issue the multiplex interrupt
  26.            JC       SHORT $+4   ; If an error occurred leave rc intact
  27.            XOR      AX,AX       ; Set rc to zero
  28.  
  29.            POP      DI          ; Restore working ...
  30.            POP      ES          ; ... registers.
  31.            POP      SI          ; ...
  32.            POP      DS          ; ...
  33.  
  34.            MOV      SP,BP       ; Restore stack
  35.            POP      BP          ;
  36.  
  37.            RETF     12          ; Clean up 12 bytes of parameter pointers
  38. DWNSETPATHINFO ENDP
  39. _TEXT      ENDS
  40.            END
  41.