PIC16F877A İçin Başlangıç Düzeyi Assembly Uygulama Örnekleri

[schlaincher]

Herkese kolay gelsin.
B.M 3. Sınıf öğrencisiyim. Mikroişlemciler dersimiz var. Daha önce Pic ile haşır neşir olmadım.
Şuan bilgim teorik düzeyde. Uygulama yapabilmek için DEKA v6 deney seti aldım.
Sizden ricam assembly kullanılan basit örnekleriniz varsa yönlendirebilir misiniz?

[onurumsunuz]

Karaşimşek devresi için assembly kodları ra0 den bir girişe göre başlatıyor(8 ledli). Daha kolay yolları vardır ben bu şekilde yaptım. Tabi bu 16F84A için sen 877 için değiştir öğrenmiş olursun
LIST P=16F84A
INCLUDE <P16F84A.INC>
      CLRF PORTB
      BCF STATUS,0
      BSF STATUS,5
      CLRF TRISB
      BCF STATUS,5
SAYAC1 EQU H'20'
SAYAC2 EQU H'21'
SAYAC3 EQU H'22'

BASLA
      BTFSS PORTA,0
      GOTO BASLA
      GOTO LED1
LED1
      BSF PORTB,0
      CALL GECIKME
      BCF PORTB,0
LED2
      BSF PORTB,1
      CALL GECIKME
      BCF PORTB,1
LED3
      BSF PORTB,2
      CALL GECIKME
      BCF PORTB,2
LED4
      BSF PORTB,3
      CALL GECIKME
      BCF PORTB,3
LED5
      BSF PORTB,4
      CALL GECIKME
      BCF PORTB,4
LED6
      BSF PORTB,5
      CALL GECIKME
      BCF PORTB,5
LED7
      BSF PORTB,6
      CALL GECIKME
      BCF PORTB,6
LED8
      BSF PORTB,7
      CALL GECIKME
      BCF PORTB,7
LED9
      BSF PORTB,6
      CALL GECIKME
      BCF PORTB,6
LED10
      BSF PORTB,5
      CALL GECIKME
      BCF PORTB,5
LED11
      BSF PORTB,4
      CALL GECIKME
      BCF PORTB,4
LED12
      BSF PORTB,3
      CALL GECIKME
      BCF PORTB,3
LED13
      BSF PORTB,2
      CALL GECIKME
      BCF PORTB,2
LED14
      BSF PORTB,1
      CALL GECIKME
      BCF PORTB,1
GOTO LED1
GECIKME
  MOVLW   H'22'
  MOVWF   SAYAC3
  DONGU3
  MOVLW   H'22'
  MOVWF   SAYAC1
  DONGU1
  MOVLW   H'22'
  MOVWF   SAYAC2
  DONGU2
  DECFSZ   SAYAC2,F
  GOTO   DONGU2
  DECFSZ   SAYAC1,F
  GOTO   DONGU1
  DECFSZ   SAYAC3,F
  GOTO   DONGU3
  RETURN

END

Kolay gelsin

[muhittin_kaplan]

[coe] kodlar kodlar kodlar [ code] kullansanız daha güzel ve okunaklı olur.