home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / asmutl / buffers.lbr / FNCOPY.MAC < prev    next >
Encoding:
Text File  |  1987-01-15  |  384 b   |  21 lines
  1. ;
  2. ; copy file name from hl^ to de^ fcbs (name/ext only)
  3. ; removing any attribute bits.
  4. ; a,f
  5. .fncpy::
  6.     push    b
  7.     push    d
  8.     push    h
  9.     mvi    b,11;        chars total
  10. fncpy1:    inx    d;        advance to fn/ft fields
  11.     inx    h;        or just advance after 1st
  12.     mov    a,m
  13.     ani    07fh
  14.     stax    d
  15.     dcr    b
  16.     jnz    fncpy1
  17.     pop    h
  18.     pop    d
  19.     pop    b
  20.     ret
  21. ∙l