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 / SLUCLOSE.Z80 < prev    next >
Text File  |  2000-06-30  |  640b  |  35 lines
  1. ;
  2. ; LULIB Module: LUCLOSE
  3. ; Author: Richard Conn
  4. ; Date: 8 August 85
  5. ; LULIB Version: 1.0
  6. ; LULIB Module Version: 1.0
  7. ;
  8.     public    luclose
  9.  
  10. ;
  11. ;    LUCLOSE closes the file within a library which was opened by LUOPEN.
  12. ;
  13. ;    On input, DE = ptr to LUD
  14. ;
  15.  
  16.     .in    luddef
  17.  
  18. luclose:
  19.     push    hl        ; save regs
  20.     push    bc
  21.     push    af
  22.     ld    hl,ludidx    ; pt to index
  23.     add    hl,de
  24.     ld    b,4        ; zero index and length
  25. loop:
  26.     ld    (hl),0        ; store zero
  27.     inc    hl        ; pt to next
  28.     djnz    loop
  29.     pop    af        ; restore regs
  30.     pop    bc
  31.     pop    hl
  32.     ret
  33.  
  34.     end
  35.