home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / bbsing / bbs / emx-util.lbr / SETUSR.MZC / SETUSR.MAC
Text File  |  1988-01-30  |  768b  |  39 lines
  1.  
  2. ; Ssets values back to user that were set to Sysop with SETSYS
  3. ;
  4. ; ==> Does not need EMXSUBS.REL <==
  5. ; ==> Ignore any L80 generated errors that reference 'undefined globals'
  6. ;
  7. TMPLEV    EQU    00057H        ; Pick address of 5 free bytes somewhere
  8. ;
  9.     ASEG
  10.     .Z80
  11.     ORG    100H
  12. ;
  13.     JP    START
  14. ;
  15.     INCLUDE    EMXHDR.MAC
  16. ;
  17. START::    LD    HL,0
  18.     ADD    HL,SP
  19.     LD    (CCPSTK),HL
  20.     LD    SP,STACK
  21. ;
  22.     LD    A,(TMPLEV)    ; Match address selected in setsys
  23.     LD    (LOCK),A    ; Reinstate it
  24.     LD    HL,(TMPLEV+1)    ; Get user area map
  25.     LD    (USRMAP),HL    ; In place
  26.     LD    HL,(TMPLEV+3)    ; And drives
  27.     LD    (DRVMAP),HL    ; In place
  28. ;
  29.     LD    HL,(CCPSTK)
  30.     LD    SP,HL
  31.     RET
  32. ;
  33.     DS    16
  34. ;
  35. STACK::    DW    0
  36. CCPSTK::DW    0
  37. ;
  38.     END
  39.