Advertisement
Udo01

Flasher

Sep 16th, 2017
3,225
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. '******************+*
  2. '*   Udo Lorenz     *
  3. '*   16.09.2017     *
  4. '* ATtiny85 Flasher *
  5. '* (ELO-Flasher     *
  6. '********************
  7. 'Unbeding Fuses setzen!
  8.  'Low Fuse (0xE4)
  9.  'High Fuse (0xDF)
  10.  'Lockbits (0x03)
  11.  'VCC = 3V
  12.  
  13. '$sim
  14. $regfile = "attiny85.dat"                                   'sollte auch weiterhinn mit dem ATtiny13 funktionieren
  15. $crystal = 128000                                           ' Oszillator Frequenz 128 kHz
  16. $hwstack = 16
  17. $swstack = 16
  18. $framesize = 32
  19.  
  20.  Ddrb = &B00000111                                          'b.0,1,2  als Ausgang, die restlichen als Eingang (1 = Ausgang, 0 = Eingang)
  21. Portb = &B00011000                                          'PullUps von PortB 4 + 5 aktivieren
  22. Portb = &B00000111                                          'PIN 0 - 2 auf H
  23. Waitms 25                                                   '25 ms Ein
  24. Portb = &B00000000                                          'PIN 0 - 2 auf L
  25.  
  26. 'Start Watchdog
  27.  Wdtcr = &B00101001                                         'Watchdog Config und Watchdog On
  28.  Config Powermode = Powerdown                               'Powerdown und "Schlafen" f³r ca. 8 Sekunden
  29.  
  30.  
  31. End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement