;************************************************
;
;	S12AOZ8D.Z80
;	1/6/89
;	Gene Nolan
;
;	This is an overlay file for SALIAS12a that
;	adds support for Z80DOS time-stamping. It will
;	allow SALIAS12a to carry the create date of
;	the source file	to the destination file.
;
;	Assemble to a .HEX file and use MLOAD:
;
;	MLOAD SAL12=SALIAS12,S12AOZ8D
;
;***********************************************


	org	1428H
	call	makem

	org	1304H
	call	openem
	ret

	org	2900h		; Patch above to here

openem:
	ld	c,0fh		; BDOS call OPEN FILE
	ld	de,5ch		; FCB
	call	5		; Call BDOS
	ld	(opnflg),a	; Save flag
	inc	a
	or	a		; If 0FF returned, no file
	ret	z		; Z=no
	push	af
	push	de
	push	hl
	ld	c,54		; Z80DOS call for GETSTAMP
	call	5
	pop	hl
	pop	de
	pop	af
	ret

makem:
	ld	a,(opnflg)	; Was the previous open ok?
	cp	0ffh
	jr	z,nomake	; Z=no, so no stamp
	ld	c,55		; Z80DOS call for use stamp
	call	5
nomake:
	ld	c,16h
	ld	de,5ch
	call	5		; And do requested function
	inc	a
	ret

opnflg:	db	0
	end