scalerobotics, Here is it, but not whole code.
Code:
define OSC 4
'RTC
SYMBOL SCL = PORTC.3
SYMBOL SDA = PORTC.6
symbol CLCK_Alrm = portc.7
input clck_alrm
'Input
symbol In1 = PORTA.1
symbol In2 = PORTA.0
symbol In3 = PORTA.5
symbol In4 = PORTC.5
INPUT PORTA.1
INPUT PORTA.0
INPUT PORTA.5
INPUT PORTC.5
'Pull
symbol Pull= PORTA.4
OUTPUT Pull
output portc.4 'just for testing
OSCCON=%01010110
OSCCON2.2=0
ANSEL=0
ANSELH=0
SLRCON=0
RCON.7=1
UCON.3=0 ' disable usb, to alow use of ra0 and ra1
IOCA=3 ' set ioc on ra0 and ra1 EDIT: bits 0 and 1 must be set, to use ra0, ra1...
INTCON=0
INTCON2=%10000000
INTCON3=%00000000
PIR1=0
PIR2=0
PIE1=0
PIE2=0
IPR1=0
IPR2=0
disable
PWR_On:
pause 10
I2CWrite sda,scl,$a2,$02,[1,1,1,1,1,1,1] ' just put some valid time/date in rtc
I2CWrite SDA,SCL,$A2,1,[%00000010]
I2CWrite SDA,SCL,$A2,$0D,[%10000010] 'enable clockout @ 32Hz
enable
INTCON=%10010000 'enable interrapt's
on interrupt goto int
Start:
sleep 60 'sleep until int0
goto start
disable interrupt
Int:
pull=1 'enable pull up
Toggle portc.4 'do something :)
'Read/write to portst etc.
pull=0 ' disable pull up
INTCON=%10010000
goto start
end
In file ppb/18F13K50.INC I'm just put OFF where ON was
Code:
__CONFIG _CONFIG1L, _CPUDIV_NOCLKDIV_1L & _USBDIV_OFF_1L
__CONFIG _CONFIG1H, _FOSC_IRC_1H & _PLLEN_OFF_1H & _PCLKEN_OFF_1H & _FCMEN_OFF_1H & _IESO_OFF_1H
__CONFIG _CONFIG2L, _PWRTEN_OFF_2L
__CONFIG _CONFIG2H, _WDTEN_OFF_2H & _WDTPS_512_2H
__CONFIG _CONFIG3H, _MCLRE_OFF_3H
__CONFIG _CONFIG4L, _STVREN_OFF_4L & _LVP_OFF_4L & _BBSIZ_OFF_4L & _XINST_OFF_4L
Still I wonder why TMR0 was not stable...
Code is a similar, i just enabled tmr0osc and overflow interrupt.
Edit2: I'm using UNI-T UT81B
Bookmarks