home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol130 / usermd.mac < prev    next >
Encoding:
Text File  |  1984-04-29  |  241 b   |  20 lines
  1. title    usermd.mac version 1.0
  2.  
  3. ;    this routine will set the cp/m user number
  4. ;    user number is passed as an integeri 
  5.  
  6. setuser    equ    32
  7. bdos    equ    5
  8.     public    usermd
  9. ;
  10. ;    hl points to parameter
  11. ;
  12. usermd:
  13.     mov    e,m
  14.     mvi    c,setuser
  15.     call    bdos
  16.     ret
  17.  
  18.     end
  19.  
  20.