home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_200 / 223_02 / freeio.mac < prev    next >
Text File  |  1989-02-23  |  896b  |  33 lines
  1. ;
  2. ;    freeio(unit)    by    F.A.Scacchitti        9/12/84
  3. ;
  4. ;    mark a buffer as free.
  5. ;
  6. ;
  7.  
  8. ;
  9. NBUFS    EQU    8
  10. FCBSIZE    EQU    36    ;size, in bytes, of an FCB
  11. BUFFER    EQU    6    ;offset    to disk    sector buffer in I/O structure
  12. FLAG    EQU    33    ;file-type flag    byte (in unused    part of    FCB)
  13. FREEFLG    EQU    128    ;This I/O structure is available for the taking
  14. BUFSIZ    EQU    1024    ;how long the sector buffer is
  15. NULL    EQU    0
  16. ;
  17.  
  18. EXTRN    IOBUFS
  19. ;
  20. ;
  21. FREEIO::                ;Mod  6    May 80 rj
  22.     POP    B            ;save rtn addr
  23.     POP    H            ;get buffer addr
  24.     PUSH    H            ;put the stack back together
  25.     PUSH    B
  26.     LXI    D,FLAG            ;find flag byte
  27.     DAD    D
  28.     MVI    M,FREEFLG        ;mark buffer as    'free'
  29.     LXI    H,NULL            ;return    something
  30.     RET
  31.     END
  32.  
  33.