cgul3365
Üye
- Katılım
- 25 May 2007
- Mesajlar
- 2
- Puanları
- 1
- Yaş
- 39
List P=16f84
Include "p16f84.inc"
Bsf Status,5
Clrf Trisb
basla
Clrwdt
Movlw B'11010111'
Movwf Option_reg
Bcf Status,5
Clrf Portb
yak
Movlw H'ff'
Movwf Protb
Call Gecikme
sondur
Clrf Portb
Call Gecikme
Goto Yak
gecikme
Clrf Tmr0
test_bit
Btfss Tmro,7
Goto Test_bit
Return
End
Include "p16f84.inc"
Bsf Status,5
Clrf Trisb
basla
Clrwdt
Movlw B'11010111'
Movwf Option_reg
Bcf Status,5
Clrf Portb
yak
Movlw H'ff'
Movwf Protb
Call Gecikme
sondur
Clrf Portb
Call Gecikme
Goto Yak
gecikme
Clrf Tmr0
test_bit
Btfss Tmro,7
Goto Test_bit
Return
End