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 / CR24OZ8D.LBR / CR24OZ8D.ZZ0 / CR24OZ8D.Z80
Text File  |  1991-02-10  |  1KB  |  50 lines
  1. ;************************************************
  2. ;
  3. ;    CR24OZ8D.Z80
  4. ;    7/18/88
  5. ;    Gene Nolan
  6. ;
  7. ;    This is an overlay file for CRUNCH24 that
  8. ;    adds support for Z80DOS time-stamping. It will
  9. ;    carry the create date of the source file(s) to the
  10. ;    crunched destination file(s).
  11. ;
  12. ;    Assemble to a .HEX file and use MLOAD:
  13. ;
  14. ;    MLOAD CRUNCH=CRUNCH24.COM,CR24OZ8D
  15. ;
  16. ;***********************************************
  17.  
  18.     org    0d7dh
  19.     call    openem
  20.  
  21.     org    0e81h
  22.     call    makem
  23.  
  24.     org    1900h        ; Patch above to here
  25.  
  26. openem:
  27.     call    103ah        ; Call BDOS
  28.     cp    0ffh        ; Open ok?
  29.     ret    z        ; Z=no
  30.     push    bc
  31.     push    hl
  32.     ld    hl,(1859h)
  33.     ld    (hlhold),hl
  34.     ld    c,54        ; Z80DOS call GETSTAMP
  35.     call    103ah
  36.     ld    hl,(hlhold)
  37.     ld    (1859h),hl
  38.     pop    hl
  39.     pop    bc
  40.     ret
  41. makem:
  42.     push    bc
  43.     ld    c,55        ; Z80DOS call for use stamp
  44.     call    103ah
  45.     pop    bc
  46.     jp    103ah        ; And do requested function
  47.  
  48. hlhold:    dw    0        ; Hold value returned by BDOS call
  49.  
  50.     end