mit spi:

$regfile = "m8def.dat"
$crystal = 8000000

Config Spi = Hard , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 64 , Noss = 1

Dim A As Byte
Dim B As Byte

Config Portd.6 = Output

Spiinit

A = &B0101
B = &B11111111

Spiout A , 1

Portd.6 = 1

Spiout B , 1

Portd.6 = 0

End


------------------------------------------------------------------------------------------------
ablaufsteuerung:

$regfile = "m8def.dat"
$crystal = 8000000


Config Portd.7 = Output
Config Portd.6 = Output
Config Portd.5 = Output

Dim W As Byte

D Alias Portd.5
E Alias Portd.6
C Alias Portd.7

W = 2

E = 0
C = 0
D = 0

Waitus W

C = 1

Waitus W

C = 0
D = 1

Waitus W

C = 1

Waitus W

C = 0
D = 0

Waitus W

C = 1

Waitus W

C = 0
D = 1

Waitus W

C = 1

Waitus W

C = 0
D = 1

Waitus W

E = 1

Waitus W

C = 1

Waitus W

C = 0

Waitus W

C = 1

Waitus W

C = 0

Waitus W

C = 1

Waitus W

C = 0

Waitus W

C = 1

Waitus W

C = 0

Waitus W

C = 1

Waitus W

C = 0

Waitus W

C = 1

Waitus W

C = 0

Waitus W

C = 1

Waitus W

C = 0

Waitus W

C = 1

Waitus W

C = 0
E = 0
D = 0





End