$regfile = "M8def.dat" $crystal = 8000000 $hwstack = 100 $swstack = 100 $framesize = 100 Dim A As Byte 'Röhren Dim B As Byte 'Röhren Dim C As Byte 'Zahlen Dim D As Byte 'Zahlen Dim X As Byte Dim R0 As Byte Dim R1 As Byte Dim R2 As Byte Dim R3 As Byte Dim R4 As Byte Dim R5 As Byte Dim R6 As Byte Dim Helligkeit As Byte 'BCDa IC1 an PD2 'Röhren Bcdic1a Alias Portd.2 Config Bcdic1a = Output 'BCDb IC1 an PD3 Bcdic1b Alias Portd.3 Config Bcdic1b = Output 'BCDc IC1 an PD4 Bcdic1c Alias Portd.4 Config Bcdic1c = Output 'BCDd IC1 an PD5 Bcdic1d Alias Portd.5 Config Bcdic1d = Output 'BCDa IC2 an PB0 'Zahlen Bcdic2a Alias Portb.0 Config Bcdic2a = Output 'BCDb IC2 an PB1 Bcdic2b Alias Portb.1 Config Bcdic2b = Output 'BCDc IC2 an PB2 Bcdic2c Alias Portb.2 Config Bcdic2c = Output 'BCDd IC2 an PB3 Bcdic2d Alias Portb.3 Config Bcdic2d = Output Config Timer0 = Timer , Prescale = 8 On Timer0 On_timer0 Enable Timer0 Enable Interrupts A = 0 B = 0 C = 0 D = 0 X = 0 Helligkeit = 255 Do R0 = 0 R1 = 1 R2 = 2 R3 = 3 R4 = 4 R5 = 5 R6 = 5 Loop End On_timer0: If X = 0 Then 'Röhre A = 0 C = R0 Gosub Bcdr Timer0 = 10 - Helligkeit Elseif X = 2 Then A = 1 C = R1 Gosub Bcdr Timer0 = 10 - Helligkeit Elseif X = 4 Then A = 2 C = R2 Gosub Bcdr Timer0 = 10 - Helligkeit Elseif X = 6 Then A = 3 C = R3 Gosub Bcdr Timer0 = 10 - Helligkeit Elseif X = 8 Then A = 4 C = R4 Gosub Bcdr Timer0 = 10 - Helligkeit Elseif X = 10 Then A = 5 C = R5 Gosub Bcdr Timer0 = 10 - Helligkeit Elseif X = 12 Then A = 6 C = R6 Gosub Bcdr Timer0 = 10 - Helligkeit Else A = 15 C = 15 Waitus 500 Timer0 = Helligkeit End If If X = 14 Then X = 255 End If X = X + 1 Return Bcdr: B = Makebcd(a) 'Röhre Bcdic1a = B.0 Bcdic1b = B.1 Bcdic1c = B.2 Bcdic1d = B.3 D = Makebcd(c) 'Zahl Bcdic2a = D.0 Bcdic2b = D.1 Bcdic2c = D.2 Bcdic2d = D.3 Return