Advertisement
Guest User

Untitled

a guest
Jun 10th, 2017
362
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.09 KB | None | 0 0
  1. LED EQU P1.7
  2. TIME EQU 30H
  3.  
  4. ;********* Ustawienie TIMERów *********
  5. ;TIMER 0
  6. T0_G EQU 0 ;GATE
  7. T0_C EQU 0 ;COUNTER/-TIMER
  8. T0_M EQU 1 ;MODE (0..3)
  9. TIM0 EQU T0_M+T0_C*4+T0_G*8
  10. ;TIMER 1
  11. T1_G EQU 0 ;GATE
  12. T1_C EQU 0 ;COUNTER/-TIMER
  13. T1_M EQU 1 ;MODE (0..3)
  14. TIM1 EQU T1_M+T1_C*4+T1_G*8
  15.  
  16. TMOD_SET EQU TIM0+TIM1*16
  17.  
  18. ;50[ms] = 50 000[ŠS]*(11.0592[MHz]/12) =
  19. ; = 46 080 cykli = 180 * 256
  20. TH0_SET EQU 256-180
  21. TL0_SET EQU 0
  22. ;**************************************
  23.  
  24. LJMP START
  25.  
  26. ;********* Przerwanie Timer 0 *********
  27. ORG 0BH
  28. PUSH PSW
  29. PUSH ACC
  30. MOV TH0,#TH0_SET ;TH0 na 50ms
  31. DJNZ TIME,NO_1SEK ;czy minęła 1 sek
  32.  
  33. CPL LED ;mruganie diody TEST
  34. MOV TIME,#20 ;odczekaj kolejny czas
  35. ;20*50ms=1s
  36. NO_1SEK:
  37. POP ACC
  38. POP PSW
  39. RETI
  40.  
  41. ;**************************************
  42. ORG 100H
  43. START:
  44. SETB LED ;zerowanie diody
  45. LCALL WAIT_KEY ;czekaj na klawisz
  46. CJNE A,#02H,START
  47. MRUGANIE:
  48. MOV TMOD,#TMOD_SET
  49. MOV TH0,#TH0_SET
  50. MOV TL0,#TL0_SET
  51. SETB TR0 ;start Timera 0
  52. SETB EA
  53. SETB ET0
  54. CZEKAJ:
  55. LCALL WAIT_KEY
  56. CJNE A,#01H,CZEKAJ
  57. CLR ET0
  58. CLR TR0
  59. LJMP START
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement