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 / BEEHIVE / OS / Z80DOVL.ARC / LBREOZ8D.LBR / LBREOZ8D.ZZ0 / LBREOZ8D.Z80
Text File  |  1991-02-10  |  1KB  |  68 lines
  1. ;************************************************
  2. ;
  3. ;    LBREOZ8D.Z80
  4. ;    7/25/88
  5. ;    Gene Nolan
  6. ;
  7. ;    This is an overlay file for LBREXT26 that
  8. ;    adds support for Z80DOS time-stamping.
  9. ;    It will allow LBREXT26 to carry the create
  10. ;    and alteration date of the source library
  11. ;    to the extracted file(s).
  12. ;
  13. ;    Assemble to a .HEX file and use MLOAD:
  14. ;
  15. ;    MLOAD LBRE=LBREXT26.COM,LBREOZ8D
  16. ;
  17. ;***********************************************
  18.  
  19.  
  20.     org    103Ch        ; LBREXT opens source file here
  21.     call    openem
  22.  
  23.     org    106Bh        ; LBREXT does writes to destination here
  24.     call    wrtseq
  25.  
  26.     org    1017h        ; LBREXT close's destination file here
  27.     call    closem
  28.  
  29.     org    1052h        ; LBREXT MAKE's the destination file here
  30.     call    makem
  31.  
  32.     org    1A10h        ; Patch above to here
  33.  
  34. openem:
  35.     push    de
  36.     push    bc
  37.     call    5        ; Call BDOS
  38.     pop    bc
  39.     pop    de
  40.     cp    0ffh        ; Open ok?
  41.     ret    z        ; Z=no
  42.     push    de
  43.     push    bc
  44.     push    af
  45.     ld    c,54        ; Z80DOS call for GETSTAMP
  46.     call    5
  47.     pop    af
  48.     pop    bc
  49.     pop    de
  50.     ret
  51.  
  52. wrtseq:                ; Vector MAKE,WRITE SEQ,CLOSE to here
  53. closem:
  54. makem:    push    de
  55.     push    bc
  56.     ld    c,55        ; Z80DOS call for use stamp
  57.     call    5
  58.     pop    bc
  59.     pop    de
  60.     push    bc
  61.     push    de
  62.     call    5        ; And do requested function
  63.     pop    de
  64.     pop    bc
  65.     ret
  66. buffer:                ; ACOPY's data buffer is now here, was
  67.                 ; originally at 13CEH
  68.     end