; EMXGT-OS.MAC - Clock routine is for the JG COMMUNICATIONS clock for
; the clock for the Osborne-1. - by Simon Ewins 05/18/84
;
; Routine must exit with labels TIME and DATE filled with ASCII time and
; date strings, and MUST supply the two 3 byte storage areas at BDATE
; and BTIME...
;
; The labels, TIME, DATE, GETTIM, BDATE and BTIME must be public so that
; L80 and the EMXSUBS.REL files can find them.
;
;----------------- WARNING -- do not change ----------------------------
;
	.Z80
;
TIME::	DB	'HH:MM:SS',0	; <<-- do not change
DATE::	DB	'MM/DD/YY',0	; <<-- do not change
BTIME::	DB	0,0,0		; <<-- do not change
BDATE::	DB	0,0,0		; <<-- do not change
;
GETTIM::			; <<-- do not change
;
;--------------- Start your clock routine here -------------------------
;
	LD	HL,(40H)	; Point to memory locations for time/date
	LD	DE,7		; Offset to ascii time
	ADD	HL,DE
	LD	DE,TIME
	LD	BC,8
	LDIR			; Move eight byte string
;
	LD	HL,(40H)
	LD	DE,19		; Offset to ascii date
	ADD	HL,DE
	LD	DE,DATE
	LD	BC,8
	LDIR			; Move eight byte string
	RET
;
;--------------------- End of your routine -----------------------------