$regfile = "m8def.dat"                                      'ATMEGA8-Deklarationen
$crystal = 8000000
$baud = 9600



' Ein-/Ausg?nge
Config Portb = Output                                       'Port B als Ausgang
Ddrd = &B01111001



Portd = &B11111111
Portb = &B11111111                                          'vorerst auf "aus" da pnp transis noch nicht angesteuert werden m?ssen bzw sollen



'HIER NOCH VARIABLEN DEFINIEREN !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!



Do




For J = 1 To 4


'+++++++++++++++
 'jenachdem welche stelle ausg. werden muss, wird entspr. portd gesteuert (pin d2 - d5 mit x(11) bis x(15))





Portd = X(10 + J)

'++++++++++++++++++++++++++

'soll eine abgeschn. zahl an port b ausgeben - zahl im array k(j) gespeichert


 E = HIER Ziffer 0-9 !!!!                                          







  Portb = X(e + 1)

                                                'ausgabe der ziffer an portb (ziffer aus k4 schublade entspricht adresse entspr. muster der ziffer aus value table

 Waitms 3


  Portb = &B11111111
  Waitms 1

'++++++++++++++++1111111111111111111111



Next



Loop
End






Value_table:
'       0      1      2      3      4      5      6      7      8      9
Data &B1000000 , &B11111001 , &B10100100 , &B10110000 , &B10011001 , &B10010010 , &B10000010 , &B11111000 , &B10000000 , &B10010000

' hier sind die muster f?r portd definiert um die ausgabe auf die entspr. segmente zu steuern

'     Ziffer 1      Ziffer 2     Ziffer 3     Ziffer 4
Data &B10111111 , &B11110111 , &B11101111 , &B11011111