home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / asmutl / buffers.lbr / XLTUSR.MAC < prev    next >
Encoding:
Text File  |  1987-01-15  |  384 b   |  12 lines
  1.     extrn    .getusr
  2. ;
  3. ; xltusr imposes the same usr/default relationship as used for
  4. ; drives, i.e. 0 specifies default (current user), other values
  5. ; specify user number (a)-1.  Returns actual user number for dos.
  6. ; a,f
  7. .xltusr::
  8.     dcr    a
  9.     jm    .getusr;    0, return current, i.e. default
  10.     ani    01fh
  11.     ret
  12. 56