'18LF2520 INT4MHz PWM 260518 1400 Define CONFIG1L = 0x00 Define CONFIG1H = 0x08 Define CONFIG2L = 0x1e Define CONFIG2H = 0x00 Define CONFIG3L = 0x00 Define CONFIG3H = 0x80 Define CONFIG4L = 0x80 Define CONFIG4H = 0x00 Define CONFIG5L = 0x0f Define CONFIG5H = 0xc0 Define CONFIG6L = 0x0f Define CONFIG6H = 0xe0 Define CONFIG7L = 0x0f Define CONFIG7H = 0x40 Define SIMULATION_WAITMS_VALUE = 1 'COMMENT IN FOR SIM OUT FOR CIRCUIT Dim digitalin As Byte Dim analogin As Word Dim x As Word 'DIGITALIN LOOP Dim t As Byte Dim intrcnt As Byte Symbol yled = RC1 Symbol rled = RC2 yled = 0 'YLED OFF rled = 0 'RLED OFF AllDigital 'SET PIN IN/OUT TRISA = %00100001 TRISB = %00000000 TRISC = %10010000 'SET BITS ON/OFF PORTA = %00000000 'ON/OFF PORTB = %00000000 PORTC = %00000000 PORTE = %00000000 'POSS MCLR RE3 T1CON = 0x30 T1CON.T1OSCEN = 1 T1CON.TMR1CS = 0 T1CON.TMR1ON = 1 TMR1H = 0xff '0x0b TMR1L = 0xfe '0xdc INTCON.GIE = 1 INTCON.PEIE = 1 PIE1.TMR1IE = 1 PIR1.TMR1IF = 0 'Enable???????????????????? loop: If PIR1 = 1 Then Toggle RA1 Endif Goto loop End On High Interrupt Save System PIR1.TMR1IF = 0 intrcnt = intrcnt + 1 If intrcnt = 4 Then intrcnt = 0 Toggle RA2 'Break ''' TEST ONLY,, your 1 second code here Endif TMR1H = 0xff '0x0b TMR1L = 0xfe '0xdc Resume