;************************************************ ; ; CR24OZ8D.Z80 ; 7/18/88 ; Gene Nolan ; ; This is an overlay file for CRUNCH24 that ; adds support for Z80DOS time-stamping. It will ; carry the create date of the source file(s) to the ; crunched destination file(s). ; ; Assemble to a .HEX file and use MLOAD: ; ; MLOAD CRUNCH=CRUNCH24.COM,CR24OZ8D ; ;*********************************************** org 0d7dh call openem org 0e81h call makem org 1900h ; Patch above to here openem: call 103ah ; Call BDOS cp 0ffh ; Open ok? ret z ; Z=no push bc push hl ld hl,(1859h) ld (hlhold),hl ld c,54 ; Z80DOS call GETSTAMP call 103ah ld hl,(hlhold) ld (1859h),hl pop hl pop bc ret makem: push bc ld c,55 ; Z80DOS call for use stamp call 103ah pop bc jp 103ah ; And do requested function hlhold: dw 0 ; Hold value returned by BDOS call end