Пятница, Сентябрь 18, 2020

PIC12F629

            LIST        P=12F629
            INCLUDE     P12F629.INC
            __CONFIG    _INTRC_OSC_NOCLKOUT&_WDTE_OFF&_PWRTE_OFF&_MCLRE_OFF&_BOREN_OFF
            ERRORLEVEL  -302
            ORG         0
            CBLOCK      20H
            K
            J
            COUNT
            ENDC
            
            GOTO        START
START       
            CLRF        GPIO       ;Init GPIO
            MOVLW       07h        ;Set GP<2:0> to
            MOVWF       CMCON      ;digital IO
            BSF         STATUS,RP0 ;Bank 1
            MOVLW       00h        ;Set GP<3:2> as inputs
            MOVWF       TRISIO     ;and set GP<
            BCF         STATUS,RP0 ;Bank 0
            
            
            MOVLW       00h
            MOVWF       GPIO
            
            CALL        ZADERZKA
            
            MOVLW       01h
            MOVWF       GPIO
MAIN
            
            GOTO        MAIN          
ZADERZKA    MOVLW       .2
            MOVWF       COUNT
LOOPC       DECF        COUNT,F
            CALL        DELAY
            MOVFW       COUNT
            SUBLW       0
            BTFSS       STATUS,Z
            GOTO        LOOPC
            RETURN 
            
            
DELAY       MOVLW       .256
            MOVWF       J
LOOPJ       MOVLW       .255
            MOVWF       K
LOOPK       DECFSZ      K,F 
            GOTO        LOOPK
            DECFSZ      J,F
            GOTO        LOOPJ
            RETURN
            END   







            LIST        P=16F628A
            INCLUDE     P16F628A.INC
            __CONFIG    _INTOSC_OSC_NOCLKOUT&_WDT_OFF&_PWRTE_ON&_MCLRE_OFF&_LVP_OFF
            ERRORLEVEL  -302
            ORG         0
            CBLOCK      20H
            K
            J
            COUNT
            ENDC
            
            GOTO        START
START       
            CLRF        PORTB       ;Init GPIO
            MOVLW       07h        ;Set GP<2:0> to
            MOVWF       CMCON      ;digital IO
            BSF         STATUS,RP0 ;Bank 1
            MOVLW       00h        ;Set GP<3:2> as inputs
            MOVWF       TRISB     ;and set GP<
            BCF         STATUS,RP0 ;Bank 0
            
            
            MOVLW       00h
            MOVWF       PORTB
            
            CALL        ZADERZKA
            
            MOVLW       01h
            MOVWF       PORTB
MAIN
            GOTO        MAIN 
            
ZADERZKA    MOVLW       .40
            MOVWF       COUNT
LOOPC       DECF        COUNT,F
            CALL        DELAY
            MOVFW       COUNT
            SUBLW       0
            BTFSS       STATUS,Z
            GOTO        LOOPC
            RETURN           
            
DELAY       MOVLW       .256
            MOVWF       J
LOOPJ       MOVLW       .255
            MOVWF       K
LOOPK       DECFSZ      K,F 
            GOTO        LOOPK
            DECFSZ      J,F
            GOTO        LOOPJ
            RETURN
            END  
Back to Top