'************EEPROM V1 by Paul Baumann $sim $regfile = "m8515.dat" $crystal = 4000000 $baud = 9600 Dim Zaehler1 As Byte Dim Zaehler2 As Byte Dim Zaehler3 As Byte Dim Empfangspuffer As Byte Config Porta = Output : Config Portb = Output : Config Portc = Output On Urxc On_rxd Enable Urxc '**********Variablen zu Null setzen Zaehler1 = 0 : Zaehler2 = 0 : Zaehler3 = 0 : Empfangspuffer = 0 Do '**********Ausgeben Porta = Zaehler1 '**********Zaehler2 in Latch zwischenpuffern Portb = Zaehler2 Set Portd.5 'Latch ansteuern Waitms 1 Reset Portd.5 '**********Zwischenspeichern fertig Portb = Zaehler3 Portc = Empfangspuffer '**********Schreibimpuls an EEprom anlegen Set Portd.4 Waitms 1 Reset Portd.4 '**********Ende Schreibimpuls '**********Hochzählen Incr Zaehler1 If Zaehler1 = 255 Then Incr Zaehler2 If Zaehler2 = 255 Then Incr Zaehler3 If Zaehler3 = 16 Then Exit Do ' Loop Print "FEIERABEND!" End 'end program '*********Interrupt bei vollem Empfangspuffer On_rxd: Empfangspuffer = Udr Return