Occurs after 31 nothing.
In a code full cycle.
Alles anzeigen
VIDEO TEST
In a code full cycle.
BASCOM-Quellcode
- $regfile = "m128def.dat"
- $crystal = 12000000 : $hwstack = 64 : $swstack = 64 : $framesize = 80
- 'ports--------------------
- P_r1 Alias Porte.3 : Config P_r1 = Output
- P_g1 Alias Porte.4 : Config P_g1 = Output
- P_b1 Alias Porte.5 : Config P_b1 = Output
- P_r2 Alias Porte.6 : Config P_r2 = Output
- P_g2 Alias Porte.7 : Config P_g2 = Output
- P_b2 Alias Portb.0 : Config P_b2 = Output
- P_a Alias Portf.1 : Config P_a = Output
- P_b Alias Portf.0 : Config P_b = Output
- P_ckl Alias Portb.1 : Config P_ckl = Output
- P_lat Alias Portb.2 : Config P_lat = Output
- P_oe Alias Portb.6 : Config P_oe = Output
- Config Base = 0
- Dim Bit_count As Byte , Byte_count As Byte
- '$sim
- Do
- P_oe = 0
- Wait 1
- P_r1 = 1
- P_r2 = 0
- P_g1 = 0 : P_g2 = 0
- P_b1 = 0 : P_b2 = 0
- P_a = 1
- P_b = 0
- For Byte_count = 0 To 31
- For Bit_count = 0 To 7
- P_ckl = 1 : P_ckl = 0
- P_lat = 1 : P_lat = 0
- Waitms 60
- Next Bit_count
- Waitms 500
- Next Byte_count
- Waitms 500
- P_a = 0 : P_b = 0
- Waitms 500
- P_a = 0 : P_b = 1
- Waitms 500
- P_a = 1 : P_b = 1
- Toggle P_oe
- Waitms 500
- Loop
- End