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 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ