PORTA karaşimşek Devresi
uygulama 2
PORT A da sıra ile yanan ledler.
bu program PORTA uçlarına bağlı olan ledlerde sırayla
0001
0010
0100
1000
verilerini gönderir.
yani pic ile karaşimşek devresi.
| LIST P=16F84 | |||
| INCLUDE | "P16F84A.INC" | ||
| __CONFIG _CP_OFF &_WDT_OFF &_XT_OSC &_PWRTE_ON | |||
| ORG 0X00 | |||
| SAYAC1 | EQU H’0C’ | ||
| SAYAC2 | EQU H’0D’ | ||
| SAYAC3 | EQU H’0E’ | ||
| CLRF | PORTA | ||
| MOVLW | 0X00 | ||
| TRIS | PORTA | ||
| MOVLW | 0X00 | ||
| MOVWF | PORTA | ||
| BSF | STATUS,RP0 | ||
| CLRF | TRISA | ||
| BCF | STATUS,5 | ||
| BAS | MOVLW | B’00001′ | |
| MOVWF | PORTA | ||
| CALL | GECIKME | ||
| MOVLW | B’10’ | ||
| MOVWF | PORTA | ||
| CALL | GECIKME | ||
| MOVLW | B’100′ | ||
| MOVWF | PORTA | ||
| CALL | GECIKME | ||
| MOVLW | B’1000′ | ||
| MOVWF | PORTA | ||
| CALL | GECIKME | ||
| GOTO BAS | |||
| GECIKME | |||
| MOVLW | D’2′ | ||
| MOVWF | SAYAC1 | ||
| DON1 | |||
| MOVLW | D’200′ | ||
| MOVWF | SAYAC2 | ||
| DON2 | |||
| MOVLW | D’250′ | ||
| MOVWF | SAYAC3 | ||
| DON3 | |||
| DECFSZ | SAYAC3,F | ||
| GOTO | DON3 | ||
| DECFSZ | SAYAC2,F | ||
| GOTO | DON2 | ||
| DECFSZ | SAYAC1,F | ||
| GOTO | DON1 | ||
| RETURN | |||
|
END |
|||