home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol130 / setfmd.mac < prev    next >
Encoding:
Text File  |  1984-04-29  |  491 b   |  29 lines
  1. title    setfmd.mac version 1.0
  2. ;    this will set the the file attributes on the FCB passed 
  3. ;    from the calling program
  4.  
  5. ;    by Dick Lieber    1/3/81
  6.  
  7.  
  8. bdos    equ    5
  9. wrcon    equ    2
  10. wrbuf    equ    9
  11. setattr    equ    30    ;set flags
  12.  
  13. entry    setfmd        ;set flags module
  14.  
  15. setfmd:
  16. ;    process passed parameter 
  17. ;    makes hl point to passed string
  18. ;
  19.     inx    h    ;pass length byte
  20.     mov    e,m
  21.     inx    h    ;get address of passed string into de
  22.     mov    d,m    ;de points to file name (actually begining
  23.             ;of a FCB
  24.     mvi    c,setattr
  25.     call    bdos
  26.     ret
  27.     
  28.     end
  29.