; NUC-TV.INS -- Televideo TS800/802/802H -- 03/18/86
;
; Note: This is an insert, NOT an overlay.
;       Set BCDBIN to YES in NUBYE.
;
;  NU-CLKTV - NUBYE clock rutine for Televideo TS802 & TS802H
;	   Version 1.0 -- 03/18/86 -- by Joe Earls
;
;  This subroutine is designed to work on a Televideo computer,
;  models 800, 802, 802H (and perhaps others).  Use the TOD
;  program to initialize the clock outside of NUBYE.
;
;  This routine obtains the date/time from the date/time routines
;  in the Televideo BIOS.  The seconds obtained are compared to the
;  seconds in the RTC buffer.  If no change, we return, else the
;  new date/time data is copied to the RTCBUF, with appropriate
;  formatting.
;
; ========
; 03/18/86   First version by Joe Earls
; ========
;
TIME:	PUSH	B
	PUSH	D
	PUSH	H
	CALL	RDCLOK		;get ts802 date/time
	LDA	TS8BUF+18	;see if seconds changed
	LXI	H,RTCBUF+2
	XRA	M
	ANI	0FH
	JZ	CLKEXIT		;no change, so exit
	LXI	H,RTCBUF+0	;reformat into RTCBUF
	LDA	TS8BUF+11
	CALL	CLOK3
	LDA	TS8BUF+12
	CALL	CLOK4
	LXI	H,RTCBUF+1
	LDA	TS8BUF+14
	CALL	CLOK3
	LDA	TS8BUF+15
	CALL	CLOK4
	LXI	H,RTCBUF+2
	LDA	TS8BUF+17
	CALL	CLOK3
	LDA	TS8BUF+18
	CALL	CLOK4
	LXI	H,RTCBUF+3
	LDA	TS8BUF+6
	CALL	CLOK3
	LDA	TS8BUF+7
	CALL	CLOK4
	LXI	H,RTCBUF+4
	LDA	TS8BUF+8
	CALL	CLOK3
	LDA	TS8BUF+9
	CALL	CLOK4
	LXI	H,RTCBUF+5
	LDA	TS8BUF+0
	CALL	CLOK3
	LDA	TS8BUF+1
	CALL	CLOK4
	LXI	H,RTCBUF+6
	LDA	TS8BUF+3
	CALL	CLOK3
	LDA	TS8BUF+4
	CALL	CLOK4
CLKEXIT:
	LDA	RTCBUF		
	CALL	BCDBIN
	STA	CCHOUR
	LDA	RTCBUF+1
	CALL	BCDBIN
	STA	CCMIN
	POP	H
	POP	D
	POP	B	
	RET
;
;  read the ts802 clock
;
RDCLOK:
	LXI	H,RDCLO2
	PUSH	H
	LHLD	27
	LXI	D,19
	DAD	D
	LXI	D,TS8BUF
	MVI	C,0
	PCHL
RDCLO2:
	RET
;
;  fmt cvt routine
;
CLOK3:
	ANI	0FH
	RLC
	RLC
	RLC
	RLC
	MOV	M,A
	RET
;
CLOK4:
	ANI	0FH
	ORA	M
	MOV	M,A
	RET
;
;  ts802 date/time buffer area
;
TS8BUF:
	DS	2	;mm
	DS	1
	DS	2	;dd
	DS	1
	DS	4	;yyyy
	DS	1
	DS	2	;hh
	DS	1
	DS	2	;mm
	DS	1
	DS	2	;ss
	DS	1
	DS	2	;tt
;
; end of insert
; -------------