Программа на Асм

@den1ss · Регистрация: 20.05.2010

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

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
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
LIST P=16F628
#include <P16F628.INC>
 
temp0    EQU    H'20'   
temp1    EQU    H'21'   
temp2    EQU    H'22'   
temp3    EQU    H'23'   
temp4    EQU    H'24'   
temp5    EQU    H'25'   
temp6    EQU    H'26'   
temp7    EQU    H'27'   
temp8    EQU    H'28'   
i EQU   H'29'   
t    EQU    H'30'   
k    EQU    H'31'   
N0   EQU    H'32'   
N1   EQU    H'33'   
 
org  0
goto    Start
 
Start
 
clrf     PORTA  
bsf  STATUS,RP0 
movlw    B'10000000'
movwf    TRISB 
clrf     TRISA 
bcf  STATUS,RP0 
clrf     PORTB
 
k1  
clrf     temp0  
clrf     temp1  
clrf     temp2
clrf     temp3
clrf     temp4
clrf     temp5
clrf     temp6
clrf     temp7
clrf     temp8
clrf     i
clrf     t
 
call     INDIKATOR
btfss    PORTB,7 
goto     k1
 
MOVLW   1   
MOVWF   i   
 
MOVLW   1   
MOVWF   temp0   
 
call     ZVUK
goto c1
 
k2  
call     DELAY 
 
c1
call     INDIKATOR
btfsc    PORTB,7
goto     k3 
 
c2
btfss i,0 
goto c1 
 
 
k7  
call     INCTIM
goto     k2
 
k3 
btfsc    PORTB,7
goto     k3
 
movf i,0
movwf    t 
incf i 
 
btfss    t,0
goto k1
goto c2
 
 
INCTIM
movlw    0xe6 ;230 раз 
movwf    temp4
 
k8  decfsz   temp4,1
goto     k8
 
;увеличение до 0,9 сек
 
incf     temp0
movf temp0,0 
sublw    9  
btfsc    STATUS,0   
goto     I0 
clrf     temp0  
 
 
;увеличение до 9 сек
 
 
incf     temp1  
movf temp1,0
sublw    9  
btfsc    STATUS,0   
goto     I1 
clrf     temp1  
 
;увеличение до 59 сек
 
incf     temp2  
movf temp2,0
sublw    5  
btfsc    STATUS,0
goto     I2 
clrf     temp2  
 
;увеличение 10 мин
 
incf     temp3
movf temp3,0
sublw    9  
btfsc    STATUS,0   
goto     I3 
clrf     temp3  
 
return  
 
I0
nop
nop
nop
nop
nop 
 
I1
nop
nop
nop
nop
nop 
 
I2  nop
nop
nop
nop
nop 
 
I3  nop
nop
nop
nop
nop 
 
return  
 
INDIKATOR
movf     temp0,0 
call     KOD
movwf    PORTB
bsf  PORTA,0 
nop
nop
nop
nop
bcf  PORTA,0
 
movf     temp1,0
call     KOD
movwf    PORTB
bsf  PORTA,1
nop
nop
nop
nop
bcf  PORTA,1
 
movf     temp2,0
call     KOD
movwf    PORTB
bsf  PORTA,2
nop
nop
nop
nop
bcf  PORTA,2
 
movf     temp3,0
call     KOD
movwf    PORTB
bsf  PORTA,3
nop
nop
nop
nop
bcf  PORTA,3
 
return
 
KOD 
addwf    PCL
retlw    B'00111111'    ;код 0
retlw    B'00000110'    ;код 1
retlw    B'01011011'    ;код 2
retlw    B'01001111'    ;код 3
retlw    B'01100110'    ;код 4
retlw    B'01101101'    ;код 5
retlw    B'01111101'    ;код 6
retlw    B'00000111'    ;код 7
retlw    B'01111111'    ;код 8
retlw    B'01101111'    ;код 9
 
ZVUK    
movlw    100
movwf    temp4
 
k6 
btfsc    PORTB,7
goto     k6
 
bsf  PORTA,4
 
k5  
decfsz   temp4,1
goto     k5
 
bcf  PORTA,4
 
call DELAY
call     INDIKATOR
return 
 
DELAY
 
movlw    0x81 ;128
MOVWF   k    ;k=ff=255
Cycl_1  
movlw    0xff 
movwf    N0 
 
Cycl_0  
decfsz   N0,1   
goto     Cycl_0
decfsz   k,1    
goto     Cycl_1
 
return  
 
end

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

Dmitry · 24.05.2010, 11:30

ну во первых, когда вы выполнили табличное преобразование, код, полученный с помощью retlw, куда-то нужно вывести. зачастую такое используется например при реализации индикации. возможно и в вашем случае также.

а во вторых - я уже давно этим не занимался, так что советчик такой себе...

@den1ss · 26.05.2010, 23:36 **[ТС]**

Народ, подскажите, где можно найти схему подключения семисегментного индикатора к пик контроллеру?

Dmitry · 27.05.2010, 10:06

а в чем собственно проблема? подключаете выходы сегиентов (a-f) индикатора к выходам (желательно одного) порта контроллера (через токоограничительные резисторы, посчитайте номинал), а общий анод (катод) индикатора подключите к плюсу питания (земле) соответственно. удобно еще и тем, что вы можете разряды развести как угодно, рукводствуясь только лишь удобством трассировки их на плате, а декодирование кода сделать тем самым табличным преобразованием...

@denver · 27.05.2010, 11:56

Вот на примере простого термометра.

@den1ss · 27.05.2010, 17:10 **[ТС]**

Разобрался, тему можно закрыть

Спасибо еще раз denver, dmkhn. Надеюсь вам тоже не раз помогут в сложных ситуациях

Новые блоги и статьи Все статьи Все блоги /
ИИ и человечность kumehtar 21.07.2026 Забавно, что общаясь с ИИ, я замечаю, насколько он высказывается умно, и насколько верит в людей. Он умеет прощать. Он знает как отвечать не обесценивая опыт других людей, даже если сам не верит. Он. . .	Нейтральные знания ..., ... чистая наука. Пока что-то проходит модерацию на Хабре, стоит развить мысль ... Hrethgir 20.07.2026 К таким радикальным взглядам я конечно в той публикации не приходил, но чтобы скоротать вечер, решил углубиться немного. 1. Почему показания термометра заряжены целью? Цель заложена в самом. . .	Установка нескольких штампов электронной подписи в строго определенных местах файла docx ВладимирСамохин 19.07.2026 (В!) Работа с Электронной подписью - это неотъемлемая часть современного документооборота. Но что делать, если нужно поставить несколько штампов электронной подписи в строго определенных местах. . .	сукцессия 35. Научная статья о проделанной работе anaschu 19.07.2026 Написал в формате латекс и пдф
Вангую, что это не пройдёт модерацию, и на неделе я запущу свой сервер. Hrethgir 19.07.2026 Эта публикация сейчас в песочнице и ждёт приглашения. https:/ / habr. com/ ru/ sandbox/ 295048/ По ссылке 403. Не очень информативно такую ссылку постить. Запись от Usaga размещена Сегодня в 06:46 . . .	сукцессия 33. открытые вопросы от клауде anaschu 19.07.2026 "Что накопилось за эту часть А — тринадцать правок, из которых шесть пришли из ваших вопросов и каждая оказалась реальной ошибкой, а не калибровкой: односторонний симбиоз, отсутствующий листопад,. . .	32 сукцессия anaschu 19.07.2026 сукцессия 28‑мерное ядро стабилизировано Коллеги, фиксирую разбор инженерных правок и их изоморфную проекцию на экономику, меметику и половой отбор. Модель теперь не «подкручивает» сходимость —. . .	сукцессия 31: модель микоризы - это модель ещё нескольких явлений, социальных и экономических anaschu 18.07.2026 Теория «Всего»: апдейт v1. 1. 2 — 28‑мерное ядро стабилизировано Коллеги, фиксирую разбор инженерных правок и их изоморфную проекцию на экономику, меметику и половой отбор. Модель теперь не. . .

Dmitry 13441 / 7534 / 831 Регистрация: 09.09.2009 Сообщений: 29,554
	24.05.2010, 11:30
	ну во первых, когда вы выполнили табличное преобразование, код, полученный с помощью retlw, куда-то нужно вывести. зачастую такое используется например при реализации индикации. возможно и в вашем случае также. а во вторых - я уже давно этим не занимался, так что советчик такой себе... 1

@den1ss 2 / 2 / 0 Регистрация: 20.05.2010 Сообщений: 12
	26.05.2010, 23:36 [ТС]
	Народ, подскажите, где можно найти схему подключения семисегментного индикатора к пик контроллеру? 0

Dmitry 13441 / 7534 / 831 Регистрация: 09.09.2009 Сообщений: 29,554
	27.05.2010, 10:06
	а в чем собственно проблема? подключаете выходы сегиентов (a-f) индикатора к выходам (желательно одного) порта контроллера (через токоограничительные резисторы, посчитайте номинал), а общий анод (катод) индикатора подключите к плюсу питания (земле) соответственно. удобно еще и тем, что вы можете разряды развести как угодно, рукводствуясь только лишь удобством трассировки их на плате, а декодирование кода сделать тем самым табличным преобразованием... 1

@denver 1612 / 282 / 5 Регистрация: 19.09.2009 Сообщений: 700
	27.05.2010, 11:56
	Вот на примере простого термометра. Миниатюры 1

@den1ss 2 / 2 / 0 Регистрация: 20.05.2010 Сообщений: 12
	27.05.2010, 17:10 [ТС]
	Разобрался, тему можно закрыть Спасибо еще раз denver, dmkhn. Надеюсь вам тоже не раз помогут в сложных ситуациях 2

Опции темы