$noramclear   
$hwstack = 82
$swstack = 40
$framesize = 50
$regfile = "m8def.dat"
$crystal = 12000000

Dim Spi_b As Byte
Dim Spi_b2 As Byte
Dim Spi_b3 As Byte
Dim Spi_b4 As Byte
Dim Spi_bfromslave As Byte
Dim Spi_l As Byte

Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 128

Spiinit
Do
            waitms 100

            Spi_b = 97
                
              Spi_b = Spimove(spi_b)

              Spi_b2 = 99
          
              Spi_b2 = Spimove(spi_b2)

              Spi_b3 = 101
     
              Spi_b3 = Spimove(spi_b3)

              Spi_b4 = 103
          
              Spi_b4 = Spimove(spi_b4)

Loop

$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 16
$framesize = 32
$eeprom
$data

     

Dim B As Byte , Rbit As Byte , Bsend As Byte , B_1 As Byte , B_2 As Byte
Dim W As Integer
Dim W2 As Integer
Dim V As Single

     
Config Pinb.4 = Output                     
Config Portd.0 = Output
     
Config Spi = Hard , Interrupt = On , Data Order = Msb , Master = No , Polarity = Low , Phase = 0 , Clockrate = 128       'clock rate does not matter for a slave

     
Spiinit

     
On Spi Spi_isr Nosave
     
     
Spdr = 0

Do

    If Rbit <> 0 Then
      Portd.0 = 1
     
      Enable Interrupts

       
      Rbit = 0

       If B = 97 Then
          Bsend = 1
       End If

       If B = 99 Then
         Bsend = 2
       End If

       If B = 101 Then
          Bsend = 3
       End If

       If B = 103 Then
          Bsend = 4
       End If

       

     

      Spdr = Bsend
      Portd.0 = 0                    'increase SPDR
    End If

Loop

     
Spi_isr:
    push r24
    in r24,sreg
    push r24
    B = Spdr
    Rbit = 1
    pop r24
    !out sreg,r24
    pop r24
Return