home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / asmutl / buffers.lbr / GSUSER.MAC < prev    next >
Encoding:
Text File  |  1987-01-15  |  256 b   |  19 lines
  1.     extrn    .dos
  2. ;
  3. @user    equ    32
  4. ;
  5. ; get current user
  6. ; a,f
  7. .getusr::
  8.     mvi    a,0ffh
  9. ;    "    "
  10. ; setuser # a
  11. ; a,f
  12. .setusr::
  13.     push    d
  14.     mov    e,a
  15.     mvi    a,@user
  16.     call    .dos
  17.     pop    d
  18.     ret
  19. ƒ