$regfile = "m8def.dat"
$crystal = 7600000
$hwstack = 64
$swstack = 64
$framesize = 64
$baud = 9600
D2 Alias Portd.2                                            'msda output
Dim Start_byte As Byte
Dim Data_read As Byte
Datain2 Alias Pind.3                                        'msda input
Datain4 Alias Pind.4                                        'clock input
Config Pind.4 = Input
Config Pind.3 = Input
Config Portd.2 = Output
D2 = 1                                                      ' make msda = 0 (cuz of resistors output msda is inversve, 0 is 1, 1 is 0)
Waitms 5                                                    ' wait 5ms, so clock will do its inizialisation bits
D2 = 0                                                      ' put msda high
Waitus 20
Bitwait Datain4 , Reset
Waitus 5
D2 = 1
Bitwait Datain4 , Set
Waitus 1
D2 = 0
Shiftin Datain2 , Datain4 , Data_read , 7 , 8 , 40
If Data_read = &H55 Then
 Print Hex(data_read)
Else
  Print "BOOT FAIL"
End If