	title	'Set Terminal V2.2 Status-Line Clock'
	subttl	'TR 181288'
	.z80

bdos	equ	5
esc	equ	1Bh

start:	ld	de,daten	; Zeiger auf Datenblock
	ld	c,105
	call	bdos		; BDOS Get Clock
	ld	(sec),a		; Sekunden werden in A }bergeben
	ld	a,esc
	call	coa		; ESC ausgeben
	ld	a,'m'
	call	coa		; 'm' : Set Clock (Terminal)
	ld	hl,hour
	ld	b,3
loop:	ld	a,(hl)
	add	a,' '
	call	coa
	inc	hl
	djnz	loop		; HMS mit Offset ausgeben
	ret

; Konsolen-Ausgabe aus A.

coa:	push	bc
	push	hl
	ld	e,a
	ld	c,2
	call	bdos		; BDOS Console Output
	pop	hl
	pop	bc
	ret

daten:	ds	2		; Platzhalter f}r Datum
hour:	ds	1		; Stunden (BCD)
min:	ds	1		; Minuten (BCD)
sec:	ds	1		; Sekunden (BCD)

	end
