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 / SLIB2.LBR / SGUA.Z80 < prev    next >
Text File  |  2000-06-30  |  640b  |  41 lines
  1. ;
  2. ; SYSLIB Module Name:  SGUA
  3. ; Author:  Richard Conn
  4. ; SYSLIB Version Number:  3.6
  5. ; Module Version Number:  1.1
  6.  
  7.     public    gua
  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    bc
  20.     push    de
  21.     push    hl
  22.     endm
  23. getrg    macro
  24.     pop    hl
  25.     pop    de
  26.     pop    bc
  27.     endm
  28.  
  29. ;
  30. ;    GUA gets the current user number.  No error code is returned.
  31. ;
  32. gua:
  33.     putrg        ; save registers
  34.     ld    e,0ffh    ; get user
  35.     ld    c,bsua    ; set user function
  36.     call    bdos
  37.     getrg        ; restore registers
  38.     ret
  39.  
  40.     end
  41.