CTCASM 
 
 
SYS	EQU	0F003H
MOIN	EQU	XXXX
;	CS-CTC
 
CSCTC:	CALL	SYS
	DEFB	23H
	DEFM	'      CS-TEST  CTC'
	DEFW	0A0DH
	DEFM	'KANAL 0-3 WECHSEL (A0-'
	DEFM	'A1)'
	NOP
	LD	A,1
	CALL	MOIN
	LD	HL,1F8H
	RES	0,M
	LD	C,0C0H
CS0:	XOR	A
	LD	B,4
CS1:	OUT	(C),A
	INC	C
	DJNZ	CS1
	BIT	0,M
	JR	Z,CS0
	RET
 
SYS	EQU	0F003H
MOIN	EQU	XXXX
MOOUT	EQU	XXXX
MERK1	EQU	0
 
;	ZAEHLER CTC
 
ZAEHL:	CALL	SYS
	DEFB	23H
	DEFW	0C0DH
	DEFW	0A0AH
	DEFM	'CTC-ZAEHLTEST'
	DEFW	0A0DH
	DEFM	'KANAL  '
	NOP
	LD	A,1
	CALL	MOIN
	LD	A,(MERK1)
	AND	3
	CALL	SYS
	DEFB	1CH
	CALL	SYS
	DEFB	23H
	DEFW	0A0DH
	DEFM	'ZAEHLERSTAND : '
	NOP
	LD	A,(MERK1)
	AND	3
	ADD	0C0H
	LD	B,0
	LD	C,A
	LD	A,5
	OUT	(C),A
	LD	A,10H
	OUT	(C),A
ZAEHL1:	IN	A,(C)
	CALL	SYS
	DEFB	1CH
	CALL	SYS
	DEFB	23H
	DEFW	808H
	NOP
	LD	A,(IX+13)
	CP	3
	JR	Z,END
	JR	ZAEHL1
END:	CALL	MOOUT
	RET
 
SYS	EQU	0F003H
CTC	EQU	0C0H
MOON	EQU	XXXX
MOOUT	EQU	XXXX
MERK1	EQU	0
MERK2	EQU	2
MERK3	EQU	4
 
 
;	INT-TEST CTC
 
CTCINT:	LD	A,1
	CALL	MOON
	CALL	SYS
	DEFB	23H
	DEFW	0C0DH
	DEFM	'CTC INTERRUPT-TEST'
	NOP
	LD	A,(MERK1)
	AND	3
	ADD	CTC
	LD	C,A
	DI
	LD	A,0D4H
	OUT	CTC
	LD	HL,CTCI
	LD	(1D4H),HL
	LD	A,87H
	OUT	(C),A
	LD	A,40H
	OUT	(C),A
	EI
ZAE1:	LD	A,(IX+13)
	CP	3
	JR	Z,ZEND
	JR	ZAE1
ZEND:	CALL	MOOUT
	LD	A,3
	OUT	CTC
	OUT	CTC+1
	OUT	CTC+2
	OUT	CTC+3
 
CTCI:	PUSH	HL
	LD	HL,(0B7A0H)
	LD	(MERK2),HL
	LD	HL,1010H
	LD	(0B7A0H),HL
	LD	A,(MERK3)
	INC	A
	LD	(MERK3),A
	CALL	SYS
	DEFB	1CH
	LD	HL,(MERK2)
	LD	(0B7A0H),HL
	POP	HL
	EI
	RETI
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ