home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ZSYS / SIMTEL20 / SYSLIB / SLIB3.LBR / SSUA.Z80 < prev    next >
Text File  |  2000-06-30  |  640b  |  45 lines
  1. ;
  2. ; SYSLIB Module Name:  SSUA
  3. ; Author:  Richard Conn
  4. ; SYSLIB Version Number:  3.6
  5. ; Module Version Number:  1.1
  6.  
  7.     public    sua
  8.  
  9. ;
  10. ;  Equates
  11. ;
  12. bdos    equ    5
  13. bsua    equ    32    ; set user number
  14.  
  15. ;
  16. ;  Macros
  17. ;
  18. putrg    macro
  19.     push    af
  20.     push    bc
  21.     push    de
  22.     push    hl
  23.     endm
  24. getrg    macro
  25.     pop    hl
  26.     pop    de
  27.     pop    bc
  28.     pop    af
  29.     endm
  30.  
  31. ;
  32. ;    SUA sets the user number specified in the low-order 5 bytes
  33. ; of A.  No error code is returned.
  34. ;
  35. sua:
  36.     putrg        ; save registers
  37.     and    1fh    ; mask out upper 3 bits
  38.     ld    e,a    ; user area in E
  39.     ld    c,bsua    ; set user function
  40.     call    bdos
  41.     getrg        ; restore registers
  42.     ret
  43.  
  44.     end
  45.