

	title	'RSX to fix DATE Continuous 2 May 85'


serial:
	db	0,0,0,0,0,0
start:
	jmp	update$clock
next:
	jmp	0
	dw	0			; previous pointer
	db	0ffh			; remove flag set
	db	0			; nonbank
	db	'DATE-C  '
	db	0			; loader flag
	db	0,0			; reserved area

;
;
;
update$clock:
	mov	a,c
	cpi	11			; console status function?
	jnz	next			; no, then just exit
					; yes, update the time
	lxi	h,0
	dad	sp
	shld	ret$stack
	lxi	sp,local$stack
	push	d
	push	b
	lxi	d,time$area
	mvi	c,105
	call	next
	pop	b
	pop	d
	lhld	ret$stack
	sphl
	jmp	next


time$area:
	ds	4
ret$stack:
	ds	2
	ds	32
local$stack:

