Advertisement
VEndymionV

Zadanie z lab5.pdf - 2 timery - pod edsim51

Jun 16th, 2018
98
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ; Zadanie z lab5.pdf - https://imgur.com/a/imBf9sM - tylko na dwóch timerach - przerobione na edsim51
  2.     CZAS    EQU     19456 ; 50ms
  3.     DIODA   EQU     P1.7
  4.     CZAS_H  EQU     0x4C
  5.     CZAS_L  EQU     0
  6.  
  7.     ORG     0
  8.     MOV     P1, #0
  9.  
  10.     MOV     TMOD, #00010001b ; tryb pierwszy, timer0 i timer1
  11.     SETB    TR0
  12.     SETB    TR1
  13. LOOP:
  14.     SETB    DIODA
  15.     MOV     R0, #6
  16.     CALL    DELAY_T0
  17.  
  18.     CLR     DIODA
  19.     MOV     R1, #4
  20.     CALL    DELAY_T1
  21.  
  22.     SETB    DIODA
  23.     MOV     R0, #3
  24.     CALL    DELAY_T0
  25.  
  26.     CLR     DIODA
  27.     MOV     R1, #17
  28.     CALL    DELAY_T1
  29.  
  30.     SJMP    LOOP
  31.  
  32. DELAY_T0: ; opóźnienie R0 * 50ms
  33.     ;MOV        TL0, #LOW CZAS
  34.     ;MOV        TH0, #HIGH CZAS
  35.     MOV     TL0, #CZAS_L
  36.     MOV     TH0, #CZAS_H
  37.     JNB     TF0, $
  38.     CLR     TF0
  39.     DJNZ    R0, DELAY_T0
  40.     RET
  41.  
  42. DELAY_T1: ; opóźnienie R0 * 50ms
  43.     ;MOV        TL1, #LOW CZAS
  44.     ;MOV        TH1, #HIGH CZAS
  45.     MOV     TL1, #CZAS_L
  46.     MOV     TH1, #CZAS_H
  47.     JNB     TF1, $
  48.     CLR     TF1
  49.     DJNZ    R1, DELAY_T1
  50.     RET
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement