'************************** 'LM32C041_seigyo Ver 0.1.1 '2007.02.13 'JA4LAO_T.ito 'ATmega48-20PI 27MHz '************************** Config Portd = Output Config Portb.0 = Output Config Portb.1 = Output Config Portb.4 = Output Config Portb.5 = Output Dim A As Byte Dim I As Word Dim J As Byte Dim K As Word Dim S(4) As Byte S(1) = &B00000000 'kuro S(2) = &B11000000 'aka S(3) = &B00111000 'ao S(4) = &B00000111 'midori Set Portb.5 Set Portb.4 Reset Portb.4 For J = 1 To 3 Gosub Hsync Next J Set Portb.4 For J = 1 To 4 Gosub Hsync Next J For K = 1 To 240 Gosub Datain Next K For J = 1 To 5 Gosub Hsync Next J Reset Portb.5 Reset Portb.4 End '--------------- Dck: Set Portb.1 Reset Portb.1 Return '--------------- Hsync: Reset Portb.1 For I = 1 To 2 Gosub Dck Next I Set Portb.1 Set Portb.5 Reset Portb.1 For I = 1 To 378 Gosub Dck Next I Set Portb.1 Reset Portb.5 Return '--------------- Datain: Reset Portb.1 Reset Portb.5 For I = 1 To 2 Gosub Dck Next I Set Portb.1 Set Portb.5 Reset Portb.1 For I = 1 To 48 Gosub Dck Next I For I = 1 To 80 A = 1 Set Portb.1 Reset Portb.0 Gosub Data_settei Next I For I = 81 To 160 A = 2 Set Portb.1 Set Portb.0 Gosub Data_settei Next I For I = 161 To 240 A = 3 Set Portb.1 Reset Portb.0 Gosub Data_settei Next I For I = 241 To 320 A = 4 Set Portb.1 Reset Portb.0 Gosub Data_settei Next I For I = 1 To 10 Gosub Dck Next I Return Data_settei: Portd = S(a) Reset Portb.1 Return