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 / SUD2.Z80 < prev    next >
Text File  |  2000-06-30  |  640b  |  48 lines
  1. ;
  2. ; SYSLIB Module Name:  SUD2
  3. ; Author:  Richard Conn
  4. ; SYSLIB Version Number:  3.6
  5. ; Module Version Number:  1.2
  6.  
  7.     public    logud
  8.  
  9. ;
  10. ;  CONSTANTS
  11. ;
  12. BDOS    EQU    5    ; BDOS ENTRY
  13.  
  14. ;
  15. ;  MACROS
  16. ;
  17. PUTRG    MACRO
  18.     PUSH    AF
  19.     PUSH    BC
  20.     PUSH    DE
  21.     PUSH    HL
  22.     ENDM
  23.  
  24. GETRG    MACRO
  25.     POP    HL
  26.     POP    DE
  27.     POP    BC
  28.     POP    AF
  29.     ENDM
  30.  
  31. ;
  32. ;  LOGUD -- LOG IN USER/DISK, WHERE C=USER AND B=DISK
  33. ;
  34. LOGUD:
  35.     PUTRG
  36.     LD    E,C    ; SELECT USER
  37.     LD    C,32
  38.     PUSH    BC
  39.     CALL    BDOS
  40.     POP    BC
  41.     LD    E,B    ; SELECT DISK
  42.     LD    C,14
  43.     CALL    BDOS
  44.     GETRG
  45.     RET
  46.  
  47.     END
  48.