PIC16F628A ile yürüyen ışık nam-ı diğer Kara Şimşek devresi.
PIC Assembly kodlarken IDE olarak MPLAB kullandım.
Derleyici olarak MPASMWIN kullandım.
Proteus versiyonum 7.1 SP2
Size devrenin ISIS çiziminiASM dosyasını ve HEX dosyasını vereceğim.
Devreden bir görüntü:
kodları
===YURUYENLEDLER.ASM===08/09/2011============================================== =
;Coded By yücelyılmaz
;yucelz.blogspot.com
LIST P=16F628A
INCLUDE "P16F628A.INC"
__CONFIG _XT_OSC & _WDT_OFF & _PWRTE_ON & _MCLRE_ON & _BODEN_OFF & _LVP_OFF & _DATA_CP_OFF & _CP_OFF
;--------------------------------------------------------------------------------
ORG H'0000'
SAY1 EQU H'20'
SAY2 EQU H'21'
BANKSEL TRISB
CLRF TRISB
BASLA
BANKSEL PORTB
CLRF PORTB
MOVLW B'00000001'
MOVWF PORTB
CALL GECIKME
MOVLW B'00000010'
MOVWF PORTB
CALL GECIKME
MOVLW B'00000100'
MOVWF PORTB
CALL GECIKME
MOVLW B'00001000'
MOVWF PORTB
CALL GECIKME
MOVLW B'00010000'
MOVWF PORTB
CALL GECIKME
MOVLW B'00100000'
MOVWF PORTB
CALL GECIKME
MOVLW B'01000000'
MOVWF PORTB
CALL GECIKME
MOVLW B'10000000'
MOVWF PORTB
CALL GECIKME
GOTO BASLA
GECIKME
MOVLW H'FF'
MOVWF SAY1
DONGU1
MOVLW H'FF'
MOVWF SAY2
DONGU2
DECFSZ SAY2F
GOTO DONGU2
DECFSZ SAY1F
GOTO DONGU1
RETURN
END
alıntıdır