Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ; Zadanie z lab5.pdf - https://imgur.com/a/imBf9sM - tylko na dwóch timerach - przerobione na edsim51
- CZAS EQU 19456 ; 50ms
- DIODA EQU P1.7
- CZAS_H EQU 0x4C
- CZAS_L EQU 0
- ORG 0
- MOV P1, #0
- MOV TMOD, #00010001b ; tryb pierwszy, timer0 i timer1
- SETB TR0
- SETB TR1
- LOOP:
- SETB DIODA
- MOV R0, #6
- CALL DELAY_T0
- CLR DIODA
- MOV R1, #4
- CALL DELAY_T1
- SETB DIODA
- MOV R0, #3
- CALL DELAY_T0
- CLR DIODA
- MOV R1, #17
- CALL DELAY_T1
- SJMP LOOP
- DELAY_T0: ; opóźnienie R0 * 50ms
- ;MOV TL0, #LOW CZAS
- ;MOV TH0, #HIGH CZAS
- MOV TL0, #CZAS_L
- MOV TH0, #CZAS_H
- JNB TF0, $
- CLR TF0
- DJNZ R0, DELAY_T0
- RET
- DELAY_T1: ; opóźnienie R0 * 50ms
- ;MOV TL1, #LOW CZAS
- ;MOV TH1, #HIGH CZAS
- MOV TL1, #CZAS_L
- MOV TH1, #CZAS_H
- JNB TF1, $
- CLR TF1
- DJNZ R1, DELAY_T1
- RET
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement