;Z8 ASSEMBLER DI IK1WJQ
    ;PRO1.ASM  Z86E04/8 - PROGRAMMA TRASFORMAZIONE IMPULSI DI COMANDO
    ;IN USCITA PASSO PASSO PER COMANDO RELE' DI POTENZA
    ;USO PORTE: INGRESSO P3.1  USCITA P0.0 LED - P0.1 COMANDO IRF540

            ORG    000CH

             INI:  LD P01M,#4     ; P0 USCENTE
                   LD RP,#0       ; R0-R3 COME PORTE P0-P3
                   CLR R0         
                   LD SPL,#127
                   LD P3M,#1      ; P3 INGRESSO DIGITALE
                   LD P2M,#255    ; P2 INGRESSI
            PART:  OR R0,#1       ; LED ACCESO
                   TM R3,#2       ; CONTROLLO SEGNALE P3.1 
                   JR Z,PART      ; ASPETTA SEGNALE
                   AND R0,#254    ; LED SPENTO
                   CALL RIT
                   TM R3,#2
                   JR Z,PART      ; CONTROLLO SUCESSIVO
                   TM R0,#2       ; CONTROLLO STATO RELE'
                   JR Z,RELE1
                   AND R0,#253    ; RELE' CADUTO
            RITX:  CALL RIT
                   CALL RIT
                   CALL RIT
                   JP PART        ; RITORNA ATTESA SEGNALE
            RELE1: OR R0,#2       ; RELE' ATTRATTO
                   JP RITX

            RIT:   LD R15,#0      ; RITARDO 1,5 SEC. QUARZO 8 MHZ
            RIT1:  LD R14,#0
            RIT2:  NOP
                   NOP
                   DJNZ R14,RIT2
            RIT3:  NOP
                   NOP
                   DJNZ R14,RIT3
                   DJNZ R15,RIT1
                   RET
                   
                   END

Vai a pagina1