$regfile = "m8515.dat"
$crystal = 1000000
$baud = 19200
Dim X As Byte , Y As Byte
Config Portb = Output
Config Portd = Input

Set Portd
Portb = 255
Wait 1
Portb = 0

Do
 If Pind.0 <> 1 Then Portb.0 = 1 Else Portb.0 = 0
 If Pind.1 <> 1 Then Portb.1 = 1 Else Portb.1 = 0
 If Pind.2 <> 1 Then Portb.2 = 1 Else Portb.2 = 0
 If Pind.3 <> 1 Then Portb.3 = 1 Else Portb.3 = 0
 If Pind.4 <> 1 Then Portb.4 = 1 Else Portb.4 = 0
 If Pind.5 <> 1 Then Portb.5 = 1 Else Portb.5 = 0
 If Pind.6 <> 1 Then Portb.6 = 1 Else Portb.6 = 0
 If Pind.7 <> 1 Then Portb.7 = 1 Else Portb.7 = 0
Loop