;IK1WJQ PROGRAMMA ASSEMBLER Z8
    ;XTAL.ASM  Z86E04/8 DIVISORE DI FREQUENZA (FX/10.000)PER PROVA QUARZO O 
    ;OSCILLATORE A BOBINA - USCITA PER FREQUENZIMETRO DI BASSA FREQUENZA
    ;PORTE:FREQ.  USCITA P00-P02 - LED P20 - QUARZO MAX >25 MHZ

            ORG    000AH              ;INT T1
            WORD   #USC               ;SALTO IRQ5 = USC

            ORG    000CH               

                   LD P01M,#4          ; P0 USCENTE
                   CLR RP              ; R0-R3 PUNTANO P0-P3
                   CLR R0         
                   LD SPL,#127
                   LD P3M,#1           ; P3 INGRESSO DIGITALE
                   LD P2M,#0           ; P2 USCITA
                   LD PRE1,#00010111B  ;PRE1=5 CLOCK INTERNO, CONTINUO
                   LD T1,#125          ;XTAL / 8 X 5 X 125 = X/5000
                   OR TMR,#0CH         ;CARICA E ABILITA T1
                   DI                  ;NO INT
                   OR IMR,#20H         ;ABILITA INT T1 DIVISORE
                   EI
             CONT: LD R2,#1            ;LED ACCESO
                   LD R9,#32
             PAU1: CALL RIT
                   DJNZ R9,PAU1
                   CLR R2              ;LED SPENTO
                   LD R9,#32
             PAU2: CALL RIT
                   DJNZ R9,PAU2
                   JR CONT

            USC:   COM R0              ;COMPLEMENTO USCITE P00-P02
                   IRET                ;F.USCITA = FX/10000

            RIT:   LD R8,#0
             PAU:  NOP
                   NOP
                   NOP
                   NOP
                   DJNZ R8,PAU
                   RET

                   END 



Vai a pagina1