home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol264 / zlib2.lbr / Z3PMUSER.Z80 < prev    next >
Encoding:
Text File  |  1986-03-23  |  512 b   |  29 lines
  1. ;
  2. ; Z3LIB Module Name:  Z3PMUSER
  3. ; Author:  Richard Conn
  4. ; Z3LIB  Version Number:  1.3
  5. ; Module Version Number:  1.1
  6. ;
  7.     public    putmuser
  8.  
  9.     ext    envptr
  10.  
  11. ;
  12. ;    PUTMUSER sets the maximum user in A.
  13. ;    No registers are affected.
  14. ;
  15. putmuser:
  16.     push    hl        ;save regs
  17.     push    de
  18.     push    af
  19.     ld    hl,(envptr)    ;pt to environment
  20.     ld    de,2dh        ;pt to byte address
  21.     add    hl,de
  22.     pop    af        ;get value
  23.     ld    (hl),a        ;put value
  24.     pop    de        ;restore regs
  25.     pop    hl
  26.     ret
  27.  
  28.     end
  29.