.Z80
;UHRPROGRAMM FUER D004
;CTC0-ZEITGEBER VT 256 / T 125
;   1-ZAEHLER            T 125 - SEKUNDEN-INTERRUPT
;
CTC0	EQU	0FCH
CTC1	EQU	CTC0+1
CTC2	EQU	CTC1+1
TADR	EQU	0FFFDH
INTAD	EQU	8
BDOS	EQU	5
;
START:	LD	HL,URON
	LD	DE,INTAD
	LD	BC,UROFF-URON
	LDIR
	LD	HL,UHR
	LD	(0FBE2H),HL
	LD	HL,TADR+2
	LD	M,0
	DEC	HL
	LD	M,0
	DEC	HL
	LD	M,0
	DI
	LD	A,27H
	OUT	(CTC0),A
	LD	A,125
	OUT	(CTC0),A
	LD	A,0C7H
	OUT	(CTC1),A
	LD	A,125
	OUT	(CTC1),A
ENDE:	EI
	RET
;
URON	EQU	$
	.PHASE	INTAD	 	 		
UHR:	LD	(STACK),SP
	LD	SP,NEWSP
	PUSH	AF
	PUSH	HL
	LD	HL,TADR+2
	LD	A,M
	ADD	A,1
	DAA
	LD	M,A
	LD	A,60H
	CP	M
	JR	NZ,UREND
	LD	M,0
	DEC	HL
	LD	A,M
	ADD	A,1
	DAA
	LD	M,A
	LD	A,60H
	CP	M
	JR	NZ,UREND
	LD	M,0
	DEC	HL
	LD	A,M
	ADD	A,1
	DAA
	LD	M,A
	LD	A,25
	CP	M
	JR	NZ,UREND
	LD	M,0
UREND:	POP	HL
	POP	AF
	LD	SP,(STACK)
	EI
	RETI
STACK:	DEFW	0
	DEFW	0
	DEFW	0
	DEFW	0
NEWSP	EQU	$
	.DEPHASE
UROFF	EQU	$
	END