Bitwise not working

[Ioannis]

Thanks everyone for the response.

Well sayzer gave me the kick-start!

What I was needed was to keep the upper bits while setting or reseting the lower according to the counter in the for - next loop. This is done first by clearing the lower bits, then OR-ing with the new value. I was too tired to see it immediatly. But, thanks for the try...

The new code should look like this:

for i=240 to 250
temp=portb
temp=temp & $F0
temp=temp|i
portb=temp
pause 1000
next i

Thanks again,

Ioannis

[mister_e]

DEFINE OSC 20
DEFINE LOADER_USED 1
RCSTA = $90   ' Enable serial port & continuous receive
TXSTA = $20   ' Enable transmit, BRGH = 0
SPBRG = 64    ' 19200 Baud @ 0.16%
SPBRGH = 0
BAUDCON.3 = 1 ' Enable 16 bit baudrate generator

PORTB=0
TRISB=%11110000
i     var byte
Temp  var byte

Hserout ["***** Waiting PORTB.7 = 0 *****",13,10]
While PORTB.7=1 : wend

hserout ["------------------------Start",13,10]
for i = 0 to 15
  PORTB=i
  Temp=PORTB
  hserout ["PORTB=",bin8 temp,13,10]
  next
hserout ["------------------------Stop",13,10]          

Spin: goto Spin

if i hold PORTB.7=0

<img src="http://www.picbasic.co.uk/forum/attachment.php?attachmentid=1137&stc=1&d=116117525 3">

[mister_e]

looks like the attachement didn't work...

this is the copy/paste

***** Waiting PORTB.7 = 0 *****
------------------------Start
PORTB=01110000
PORTB=01110001
PORTB=01110010
PORTB=01110011
PORTB=01110100
PORTB=01110101
PORTB=01110110
PORTB=01110111
PORTB=01111000
PORTB=01111001
PORTB=01111010
PORTB=01111011
PORTB=01111100
PORTB=01111101
PORTB=01111110
PORTB=01111111
------------------------Stop