; Time routines -- 8 July 88 -- MFB

cseg	segment byte
	assume cs:cseg,ds:cseg,es:cseg

	org	100h

	head	=	(5eafh-100h-ab) ; change of load point altered

	cr	=	0dh
	lf	=	0ah

start:	
	push	bx
	push	cx

	mov	head+hrs,0
	mov	head+mins,0
	mov	head+secs,0
	mov	head+hdr,0

	mov	ah,2ch
	int	21h

	mov	byte ptr (head+hrs),ch
	mov	byte ptr (head+mins),cl
	mov	byte ptr (head+secs),dh
	mov	byte ptr (head+hdr),dl

	pop	cx
	pop	bx

	push	head+hdr
	push	head+secs
	push	head+mins
	push	head+hrs
	
	db	'endproc '

;	db	'TDAT1 '

;	mov	ax,23h
;	mov	ax,34h

;	db	'endproc '

;	db	'TDAT2 '

;	mov	ax,45h
;	mov	ax,56h

;	db	'endproc '

	db	'TDAT3 '


hrs	dw	0
mins	dw	0
secs	dw	0
hdr	dw	0

	db	'endfile'

aa	equ	$

;	db	'TDAT1 '
;	db	'TDAT2 '
	db	'TDAT3 '

ab	equ	$-aa

cseg	ends
	end	start