Okay; finally, it works.
Here is my code I had to correct according to Sougata's example.
	Code:
	' Fuses
@ DEVICE PIC16F88,INTRC_OSC_NOCLKOUT
@ DEVICE PIC16F88,PROTECT_OFF
@ DEVICE PIC16F88,WDT_OFF
@ DEVICE PIC16F88,PWRT_ON
@ DEVICE PIC16F88,MCLR_ON
@ DEVICE PIC16F88,BOD_OFF
@ DEVICE PIC16F88,LVP_OFF
@ DEVICE PIC16F88,CPD_OFF
@ DEVICE PIC16F88,DEBUG_OFF
@ DEVICE PIC16F88,CCPMX_OFF
'-------------------------------------------------------------------------------
' Registers   76543210
OSCCON     = %01100000  '4MHz
OPTION_REG = %10000000  'D I S A B L E PORTB's Pull-Ups for buttons
'ANSEL      = %00000000  'Disable Analogue Inputs
TRISA      = %00000000  'Inputs/Outputs
TRISB      = %00100000  'Inputs/Outputs
'-------------------------------------------------------------------------------
' Variables
Led0  var PORTA.0
Led1  var PORTA.1
HiLow var PORTB.5   'this port is TTL only
InOut var TRISB.5
Time  var byte
time  = 2
'-------------------------------------------------------------------------------
' Program
MAIN:
    inout = 0
    hilow = 0
    pause time
    inout = 1
    pause time
    if hilow = 1 then led1 = 1 : goto main
    led1  = 0
    inout = 0
    hilow = 1
    pause time
    inout = 1
    if hilow = 0 then led0 = 1 : goto main
    led0 = 0
    Goto MAIN
    end
 ANSEL or not, it works.
I changed the 0,1µF cap for a 0,01µF and reduced the pause time to 2 so it goes drastically faster.
Thanks a lot for your patience.
In fact, I was stuck in my mind thinking this problem would have to be resolved another way than by a software routine...
				
			
Bookmarks