;Z8 ASSEMBLER DI IK1WJQ
    ;PRO2.ASM  Z86E04/8 , PROGRAMMA COMANDO MULTIPLO 
    ;CONTROLLO IN SEQUENZA DEL SEGNALE IN INGRESSO DAL BASSO VERSO L'ALTO
    ;USO PORTE: INGRESSO P31 - USCITA IMPULSI P01 E P02 PER COMANDO IRF540
    ;P00 COMANDO PASSO PASSO IRF540

            CNT1   EQU  R10       ;RIFERITO A P01
            CNT2   EQU  R11       ;RIFERITO A P02

            ORG    000CH

                   LD P01M,#4     ; P0 USCENTE
                   LD RP,#0       ; R0-R3 COME PORTE
                   CLR R0         
                   LD SPL,#127
                   LD P3M,#1      ; P3 INGRESSO DIGITALE
                   LD P2M,#255    ; P2 INGRESSI
                   LD CNT1,#1     ; POSIZIONE IMPULSO D'ATTIVAZIONE P01
                   LD CNT2,#2     ; "         "       "             P02
                   AND R0,#1      ; AZZERA P01 - P02, P00 INVARIATO
           PART:   TM R3,#2       ; CONTROLLO SEGNALE P31 
                   JR Z,PART      ; ASPETTA SEGNALE
                   CALL RIT
                   TM R3,#2       ; CONTROLLO SUCESSIVO
                   JR Z,PART      
                   DEC CNT1
                   JR NZ,PAR1
                   OR R0,#2       ; ATTIVA P01
                   LD CNT1,#2
            PAR1:  DEC CNT2
                   JR NZ,PAR2
                   OR R0,#4       ; ATTIVA P02
                   LD CNT2,#2
            PAR2:  TM R0,#1       ; CONTROLLO PASSO PASSO P00
                   JR Z,RELE1
                   AND R0,#254    ; RELE' PASSO PASSO CADUTO
            RITX:  CALL RIT
                   CALL RIT
                   CALL RIT
                   AND R0,#1      ; FINE SEGNALI P01, P02 
                   JP PART        ; RITORNA ATTESA SEGNALE
            RELE1: OR R0,#1       ; RELE' PASSO PASSO 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