Bitwise not working

[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">