$lib "mcsbyte.lbx"
$regfile = "m32DEF.DAT"
$crystal = 16000000
Config Spi = Soft , Dout = Portc.2 , Clock = Portc.4 , Ss = Portc.3
Dim X As Word ,
Spiinit
'inicjacja MAx-a
X = &H000F : Spiout X , 2
X = &H010C : Spiout X , 2
X = &H070B : Spiout X , 2
X = &H0009 : Spiout X , 2
X = Makeint(&H0a , 2) : Spiout X , 2
'wygaszenie
X = Makeint(&H08 , 0) : Spiout X , 2
X = Makeint(&H07 , 0) : Spiout X , 2
X = Makeint(&H06 , 0) : Spiout X , 2
X = Makeint(&H05 , 0) : Spiout X , 2
X = Makeint(&H04 , 0) : Spiout X , 2
X = Makeint(&H03 , 0) : Spiout X , 2
X = Makeint(&H02 , 0) : Spiout X , 2
X = Makeint(&H01 , 0) : Spiout X , 2
'
Waitms 900
Sound Portb.3 , 100 , 550
X = Makeint(&H05 , &B00111110) : Spiout X , 2
X = Makeint(&H04 , &B01001001) : Spiout X , 2
X = Makeint(&H03 , &B01001001) : Spiout X , 2
X = Makeint(&H02 , &B01001001) : Spiout X , 2
X = Makeint(&H01 , &B00100110) : Spiout X , 2
X = Makeint(&H05 , &B01110010) : Spiout X , 4
X = Makeint(&H04 , &B01010001) : Spiout X , 4
X = Makeint(&H03 , &B01010001) : Spiout X , 4
X = Makeint(&H02 , &B01010001) : Spiout X , 4
X = Makeint(&H01 , &B01001110) : Spiout X , 4
X = Makeint(&H05 , &B00001100) : Spiout X , 6
X = Makeint(&H04 , &B00010100) : Spiout X , 6
X = Makeint(&H03 , &B00100100) : Spiout X , 6
X = Makeint(&H02 , &B01111111) : Spiout X , 6
X = Makeint(&H01 , &B00000100) : Spiout X , 6
X = Makeint(&H05 , &B00100010) : Spiout X , 8
X = Makeint(&H04 , &B01000001) : Spiout X , 8
X = Makeint(&H03 , &B01001001) : Spiout X , 8
X = Makeint(&H02 , &B01001001) : Spiout X , 8
X = Makeint(&H01 , &B00110110) : Spiout X , 8
X = Makeint(&H05 , &B00100001) : Spiout X , 10
X = Makeint(&H04 , &B01000011) : Spiout X , 10
X = Makeint(&H03 , &B01000101) : Spiout X , 10
X = Makeint(&H02 , &B01001001) : Spiout X , 10
X = Makeint(&H01 , &B00110001) : Spiout X , 10
X = Makeint(&H05 , &B00000000) : Spiout X , 12
X = Makeint(&H04 , &B00100001) : Spiout X , 12
X = Makeint(&H03 , &B01111111) : Spiout X , 12
X = Makeint(&H02 , &B00000001) : Spiout X , 12
X = Makeint(&H01 , &B00000000) : Spiout X , 12
End