Witam Szanownych kolegów. Zwracam się z prozbą o przekompilowanie pliku
dla pica 508 .Moje próby z programem Protona się nie powiodły a procesor jest jednokrotnego programowania ,dlatego chciałbym aby zrobił to fachowiec. Program dla układu znalazłem na stronie http://marmur99.webpark.pl/ele/picus2/. i jest on własnością osoby prowadzącej tą strone. Oto ten wsad:
; Slowo konfiguracyjne 0FEA
cisza_h equ 0x22
cisza_l equ 0x55
pisk_h equ 0x03
pisk_l equ 0x6e
poczatek equ 0x10
maska equ 0x13
licznik_h equ 0x14 ; adres licznika przerwan od T1
licznik_l equ 0x15
buzzer equ 0x16
#include P12C508A.inc
START
bsf GPIO,0
movlw 0x00
movwf OSCCAL
movlw 0xfe
TRIS GPIO
movlw 0x83
OPTION
movlw poczatek
movwf FSR
movlw pisk_h
movwf INDF
incf FSR,F
movlw pisk_l
movwf INDF
incf FSR,F
movlw cisza_h
movwf INDF
movwf licznik_h
incf FSR,F
movlw cisza_l
movwf INDF
movwf licznik_l
incf FSR,F
clrf buzzer
_sleep
btfss TMR0,7
goto $-1
clrf TMR0
movlw 0x01
btfsc buzzer,0
xorwf GPIO,F
subwf licznik_l,F
btfsc STATUS,C
goto _sleep
subwf licznik_h,F
btfsc STATUS,C
goto _sleep
bsf GPIO,0
movlw maska
andwf FSR,F
movf INDF,W
movwf licznik_h
incf FSR,F
movf INDF,W
movwf licznik_l
incf FSR,F
comf buzzer,F
movlw 0x04
addwf OSCCAL,F
goto _sleep
END
dla pica 508 .Moje próby z programem Protona się nie powiodły a procesor jest jednokrotnego programowania ,dlatego chciałbym aby zrobił to fachowiec. Program dla układu znalazłem na stronie http://marmur99.webpark.pl/ele/picus2/. i jest on własnością osoby prowadzącej tą strone. Oto ten wsad:
; Slowo konfiguracyjne 0FEA
cisza_h equ 0x22
cisza_l equ 0x55
pisk_h equ 0x03
pisk_l equ 0x6e
poczatek equ 0x10
maska equ 0x13
licznik_h equ 0x14 ; adres licznika przerwan od T1
licznik_l equ 0x15
buzzer equ 0x16
#include P12C508A.inc
START
bsf GPIO,0
movlw 0x00
movwf OSCCAL
movlw 0xfe
TRIS GPIO
movlw 0x83
OPTION
movlw poczatek
movwf FSR
movlw pisk_h
movwf INDF
incf FSR,F
movlw pisk_l
movwf INDF
incf FSR,F
movlw cisza_h
movwf INDF
movwf licznik_h
incf FSR,F
movlw cisza_l
movwf INDF
movwf licznik_l
incf FSR,F
clrf buzzer
_sleep
btfss TMR0,7
goto $-1
clrf TMR0
movlw 0x01
btfsc buzzer,0
xorwf GPIO,F
subwf licznik_l,F
btfsc STATUS,C
goto _sleep
subwf licznik_h,F
btfsc STATUS,C
goto _sleep
bsf GPIO,0
movlw maska
andwf FSR,F
movf INDF,W
movwf licznik_h
incf FSR,F
movf INDF,W
movwf licznik_l
incf FSR,F
comf buzzer,F
movlw 0x04
addwf OSCCAL,F
goto _sleep
END