Таймер для светофора на микропроцессоре intel 8051

@PaFrCh · Регистрация: 05.12.2016

Студворк — интернет-сервис помощи студентам

Реализовать модель светофора, если принять что включение каждой лампы обусловливается «1» на одном из первых трех контактах P1. Использовать прерывание от Т/С 1. Основную программу написал, сейчас проблема в том что не знаю как организовать задержку для каждого из сигналов, потому такое количество секунд не предусмотренно для таймера. Была идея сделать цикл в котором счетчик отсчитывает каждую секунду, а в это время работает таймер на 1 секунду и так для каждого сигнала, то есть например таймер работает на 1 секунду, но он вызывается 50 секунд. К сожалению, уже не могу сообразить как это организовать в своей программе, мозги набекрень от ассемблера, тем более я больше по вебу. Помогите пожалуйста написать)

Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
;*****************************************************************************
;***   Constants                                                           ***
;*****************************************************************************
F_OSC               EQU         12              ; OSC Frequency, [MHz]
Red         EQU     P1.0
Yellow          EQU     P1.1
Green           EQU     P1.2
;*****************************************************************************
;***   Bit addressable data segment                                        ***
;*****************************************************************************
BSEG
MyBitVar:       DBIT    1               ; Define a bit variable
 
;*****************************************************************************
;***   Byte addressable data segment                                       ***
;*****************************************************************************
DSEG AT 30h
;MyVar:          DS      1               ; Define a single-byte variable
;MyVar32:        DS      4               ; Define a 4-byte variable
 
;*****************************************************************************
;***    Indirect addressable data segment                                  ***
;*****************************************************************************
ISEG AT 60h
Stack:          DS      20h             ; Stack top
 
;*****************************************************************************
;***    Code segment                                                       ***
;*****************************************************************************
CSEG
;*****************************************************************************
;***    Table of interrupt vectors                                         ***
;*****************************************************************************
        ORG     0000h
        LJMP    Start                   ; Power on
        ORG     0003h
        LJMP    Interrupt_0             ; INT0 Interrupt
        ORG     000Bh
        LJMP    Timer_0                 ; Timer/Counter 0 Interrupt
        ORG     0013h
        LJMP    Interrupt_1             ; INT1 Interrupt
        ORG     001Bh
        LJMP    Timer_1                 ; Timer/Counter 1 Interrupt
        ORG     0023h
        LJMP    UART                    ; Serial port Interrupt
 
;*****************************************************************************
;***    INT0 Interrupt                                                     ***
;*****************************************************************************
Interrupt_0:
        RETI                            ; Return from interrupt
 
;*****************************************************************************
;***    Timer/Counter 0 Interrupt                                          ***
;*****************************************************************************
Timer_0:
        RETI                            ; Return from interrupt
 
;*****************************************************************************
;***    INT1 Interrupt                                                     ***
;*****************************************************************************
Interrupt_1:
        RETI                            ; Return from interrupt
 
;*****************************************************************************
;***    Timer/Counter 1 Interrupt                                          ***
;*****************************************************************************
Timer_1:
        clr     TF1
loop:
        djnz        R1, exit
        mov     R1, #50
        djnz        R0, exit
        mov     R0, #50
 
;   Red -> A = 0
;   Red+Yellow -> A = 1
;   Green -> A = 2
;   Yellow -> A = 3
 
;if Green now       
        cjne        A, #2, YR
        setb        Yellow
        clr     Green
        mov     A, #3
 
        jmp     exit
        
;if need Yellow -> Red
YR:     cjne        A, #3, GR
        setb        Red
        clr     Yellow
        mov     A, #0
        jmp     exit
        
;if Yellow + Red now
GR:     cjne        A, #1, RY
        setb        Green
        clr     Red
        clr     Yellow
        mov     A, #2
        jmp     exit
        
;if Red now, it's nessesary to have Red + Yellow
RY:     cjne        A, #0, exit
        setb        Yellow
        mov     A, #1
        jmp     exit
        
exit:       mov     TH1, #high(-16960)
        mov     TL1, #low(-16960)
        cjne A,R2, loop
        RETI                            ; Return from interrupt
 
;*****************************************************************************
;***    Serial port Interrupt                                              ***
;*****************************************************************************
UART:
        RETI                            ; Return from interrupt
 
;*****************************************************************************
;***    Power on                                                           ***
;*****************************************************************************
Start:
        mov     P1, 0
        setb        P1.0
        mov     A, 0
        mov     R0, #50
        mov     R1, #50
        mov     TH1, #high(-16960)
        mov     TL1, #low(-16960)
        mov     TMOD, #001bh
        
        setb    ET1
        setb    EA
        setb    TR1
    
        LJMP    $                       ; Endless loop
 
        END                             ; End of file

@pyzhman · 10.05.2017, 10:44

;*************************************** **************************************
;*** Timer/Counter 1 Interrupt ***
;*************************************** **************************************
если Время, то Время--;
иначе
{//прошла 1 сек
Время= N;
// управляем цветами
}

@paskal · 10.05.2017, 22:29

Сообщение от PaFrCh

сейчас проблема в том что не знаю как организовать задержку для каждого из сигналов, потому такое количество секунд не предусмотренно для таймера.

Так у вас это уже сделано программным методом:

Assembler
1
2
3
4
5
loop:
     djnz      R1, exit
     mov       R1, #50
     djnz      R0, exit
     mov       R0, #50

Сначала в 50 раз увеличивается задержка, и дальше еще в 50 раз. В 2500 получается.

@pyzhman · 11.05.2017, 08:01

Сообщение от paskal

сделано

Засада в том, что не определен регистр R2 на выходе.

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

@pyzhman 1184 / 672 / 113 Регистрация: 15.05.2012 Сообщений: 4,085
	10.05.2017, 10:44
	;************************************* ********************************** ;* Timer/Counter 1 Interrupt * ;*********************************** ************************************ если Время, то Время--; иначе {//прошла 1 сек Время= N; // управляем цветами } 0