Who sees my stupid mistake?

[Demon]

...If I create a loop that does nothing else than: serout2 xxx, delay 1000, I get MIDI information every second.
My main suspect is that the switch(es) are not read correctly in: if PORTB.x =1 then ...

Blinking a LED confirms if your timing is running at the speed you think it's running at.

I usually go for LED 1/2 second OFF, 1/2 second ON, just to know my OSC is running as it's supposed to.

EDIT: Hm, yeah, but you're getting a SEROUT every second already, so not sure what else to check.

[RuudNL]

I never had problems setting the config parameters in the programmer, but I will try that anyway...
I have a feeling that the problem is in the line:

  if PORTB.0 = 1 then   '<---- this line?
    Serout2 PORTB.7, 16384+12, [144, 44, 127]    ' Rewind
  endif

The strange thing is that the switch status IS correctly read in this part:

Debounce:
  Pause 20                                          ' ? shorter ?
  If (PORTB.0=1) or (PORTB.1=1) or (PORTB.2=1) or (PORTB.3=1) or (PORTB.4=1) then
    PORTB.6 = 1                                   ' ADDED TO CHECK!! 
    goto Debounce                                ' Button still pressed?
  else
    PORTB.6 = 0                                   ' ADDED TO CHECK!!
  endif  
  Goto Progstart

So PORTB.6 is high as long as a button is pressed.

And a loop Serout xxx/ Pause 1000 spits out a burst of MIDI data every second, so it doesn't look it is a config problem.

[Ioannis]

Instead of this

  if PORTB.0 = 1 then   '<---- this line?
    Serout2 PORTB.7, 16384+12, [144, 44, 127]    ' Rewind
  endif

try this

  if PORTB.0 = 1 then   '<---- this line?
    High LED
    Pause 100
    Low LED    ' Rewind
  endif

Set LED to a Port and see if it blinks.

Ioannis

[RuudNL]

It doesn't. I tried already:

  If PORTB.0 = 1 then
    PORTB.6 = 1
  else
    PORTB.6 = 0
    ' and loop...

PORTB.6 never gets high!

I can't wrap my head around it...
In the past I've written considerably more complicated code, usually with success.
I think I'll sleep on it and try again from scratch tomorrow!
Thank you everyone for your thoughts!

[Ioannis]

Then fried PIC maybe?

Ioannis

[RuudNL]

I doubt it... It is a brandnew one!
What I find extremely strange, is that it seems the status of PORTB.x is not read in:

if PORTB.0 = 1 then 
    Serout2 PORTB.7, 16384+12, [144, 44, 127]    ' Rewind
  endif

But IS read in:

Debounce:
  Pause 20                                          ' ? shorter ?
  If (PORTB.0=1) or (PORTB.1=1) or (PORTB.2=1) or (PORTB.3=1) or (PORTB.4=1) then
    PORTB.6 = 1                                   ' ADDED TO CHECK!! 
    goto Debounce                                ' Button still pressed?
  else
    PORTB.6 = 0                                   ' ADDED TO CHECK!!
  endif  
  Goto Progstart

If it was a faulty PIC, this wouldn't work in both cases.

[Ioannis]

Is it possible that you have high capacitance on the port B pins?

Try to add pause 10 every after command and see how it goes.

Ioannis