Not Mekanı Sınavdan Önce En Büyük Yardımcınız…
Assembly ile Yürüyen Led(Kayan Led)
Merhabalar, Bugün Assembly Dili ile ExpKits EX8L2 kitinde PIC16F877 mikrodenetleyicisini kullanarak Yürüyen led(kayan led) deneyinin kodlarını paylaşacağım.
Kullanacağımız Kit (EX8L2)
Kullanacağımız Mikrodenetleyici (PIC16F877)
Devre Şeması
Kod Blogu
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 | ;*************************************************************************** ;*** PROGRAM LED2.ASM ;*** PIC 16F877 ;*** Osilatör 4MHZ ;*** Fonksiyon:Ledli yürüyen ışık uygulaması ;*Hazırlayan: www.NotMekani.com ;*************************************************************************** list p=16f877a include <P16F877A.inc> __FUSES (_CP_OFF & _WDT_OFF & _XT_OSC & _PWRTE_ON & _LVP_OFF) status equ 03 ;16F877'de port yazmaçlarına ulaşabilmek için ;kullanılmaktadır. 5. bitin durumuna göre 0. veya rp0 equ 05 ;1. RAM sayfası kullanılmaktadır. portb equ 06 trisb equ 86h porta equ 05 trisa equ 85h sayı equ 20h ;bekle döngüsü için kullandığımız sayı0 equ 21h ; kaydediciler. ;************************** Reset VECTOR ********************************** org 00 ;Reset vektörü movlw 0 movwf PCLATH goto basla ;Programın başlangıç pozisyonu ;******************************************************************** ;************************** Bekle altyordamı ************************ bekle movlw .178 ;500 msn'lik gecikme movwf sayı ;altyordamı bekle1 movlw .255 movwf sayı0 bekle2 nop ;işlem yapma nop nop nop nop nop nop nop decfsz sayı0,f ;sayacı eksilt, sıfırsa sonraki komutu atla goto bekle2 decfsz sayı,f ;sayacı eksilt, sıfırsa sonraki komutu atla goto bekle1 return ;*********************************************************************** ;*************************** Programın başlangıcı ********************** basla bsf status,rp0 ;1. yazmaç bankasına geç movlw 00h movwf trisb ;B portunu çıkış yap movwf trisa bcf status,rp0 ;0. yazmaç sayfasına dön. bsf porta,0 geri movlw b'00000001' ;bilgiyi al aküye taşı movwf portb ;aküdeki bilgiyi portb ye taşı call bekle ;bekle döngüsünü çağır. sol rlf portb,f ;portb kaydedicisindeki bilgiyi bir bit sola kaydır. call bekle ;bekle döngüsünü çağır. goto sol ;sol etiketine git. end |
Assembly ile Yürüyen Led(Kayan Led) Yakma .asm Dosyasını İndir
