$regfile = "m16adef.dat" $crystal = 8000000 Config Porta = Output Config Portb = Output Config Pinc.0 = Input Config Pinc.1 = Input Config Timer2 = Timer , Async = On , Prescale = 128 Enable Interrupts Enable Ovf2 Dim A As Byte Dim B As Byte Dim C As Byte Dim D As Byte Dim E As Byte Dim F As Byte Dim T As Byte Dim W As Byte Dim Q As Byte Start Timer2 On Timer2 G Do If Pinc.0 = 1 Then Incr W If Pinc.1 = 1 Then Incr Q If W = 200 Then Incr C If W = 200 Then W = 0 If Q = 200 Then Incr E If Q = 200 Then Q = 0 Porta = Lookup(a , X) Portb = &H01 Waitms 1 Porta = Lookup(b , X) Portb = &H02 Waitms 1 Porta = Lookup(c , X) Portb = &H04 Waitms 1 Porta = Lookup(d , X) Portb = &H08 Waitms 1 Porta = Lookup(e , X) Portb = &H10 Waitms 1 Porta = Lookup(f , X) Portb = &H20 Waitms 1 Loop G: T = 9 Incr A If A > 9 Then Incr B If A > 9 Then A = 0 If B > 5 Then Incr C If B > 5 Then B = 0 If C > 9 Then Incr D If C > 9 Then C = 0 If D > 5 Then Incr E If D > 5 Then D = 0 If F = 2 Then T = 3 If E > T Then Incr F If E > T Then E = 0 If F > 2 Then F = 0 Return X: Data &H40 , &H79 , &H24 , &H30 , &H19 , &H12 , &H02 , &H78 , &H00 , &H10 ,
دیدگاه