LIST P=16F84A
INCLUDE "P16F84A.INC"
CLRF h'06'
BSF h'83',5
CLRF h'86'
BCF h'83',5
TEKRAR
MOVLW h'00'
MOVWF h'06'
CALL GECIKME
GOTO TEKRAR
GECIKME
MOVLW h'FF'
MOVWF h'0C'
DONGU1
MOVLW h'FF'
MOVWF h'0B'
DONGU2
DECFSZ h'OB',F
GOTO DONGU2
DECFSZ h'0C',F
GOTO DONGU1
RETURN
END
END
LIST P=16F84A
INCLUDE "P16F84A.INC"
CLRF h'06'
BSF h'83',5
CLRF h'86'
BCF h'83',5
MOVLW h'00'
MOVWF h'06'
TEKRAR
INCF h'06'
CALL GECIKME
GOTO TEKRAR
GECIKME
MOVLW h'FF'
MOVWF h'0C'
DONGU1
MOVLW h'FF'
MOVWF h'0B'
DONGU2
DECFSZ h'OB',F
GOTO DONGU2
DECFSZ h'0C',F
GOTO DONGU1
RETURN
END
LIST P=16F84A
INCLUDE "P16F84A.INC"
CLRF h'06'
BSF h'83',5
CLRF h'86'
BCF h'83',5
MOVLW h'01'
MOVWF h'06'
CALL GECIKME
TEKRAR
BCF STATUS,0
RLF h'06',F
CALL GECIKME
GOTO TEKRAR
GECIKME
MOVLW h'FF'
MOVWF h'0C'
DONGU1
MOVLW h'FF'
MOVWF h'0B'
DONGU2
DECFSZ h'OB',F
GOTO DONGU2
DECFSZ h'0C',F
GOTO DONGU1
RETURN
END
GECIKME
MOVLW h'FF'
MOVWF h'0C'
DONGU1
MOVLW h'FF'
MOVWF h'0B'
DONGU2
DECFSZ h'OB',F
GOTO DONGU2
DECFSZ h'0C',F
GOTO DONGU1
RETURN