Работа с семисегментником (PIC18F452, MPLab, ASM)

@samPogosyan · Регистрация: 12.04.2014

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

Ребят есть схема на MPLab и программа разделенная на подпрограммы, программа должна показывать напряжение на 7-ми сегментно LED-е, помогите какие из подпрограмм нужно задействовать и какие нужно исправить чтобы заработало!!!
Вот схема и программа

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
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
#Include <p18f452.inc>
 
        CONFIG  OSC=HS,OSCS=OFF,WDT = OFF,STVR = OFF,BOR = OFF,LVP = OFF,PWRT = ON    
 
 
 
#define     Led_1       PORTC,0
#define     Led_2       PORTC,1
#define     Led_3       PORTC,2
#define     Led_4       PORTC,3
 
 
 
    cblock 0x21
RESULT_L    
RESULT_H    
RESULT_III  
RESULT_IV   
 
TenT        
Thou        
Hund        
Tens        
Ones        
 
ADD_L       
ADD_H       
ADD_III     
ADD_IV      
 
MULT_L      
MULT_H  
 
M_TEMP      
 
TEMP_L
TEMP_H
ctr
 
W_Temp
STATUS_Temp
 
K1          
K2          
K3          
K4      
 
 
i
j   
k
    endc
;*********************************************************************
        org 0x00
        goto    Start                                                                                                                                                                                                                                                        goto   Start
        org 0x08
        goto    Break
;*********************************************************************
 
 
 
 
 
 
;»ницилизаци€
;*********************************************************************
Start   nop
 
        MOVLW   B'00111111'
        MOVWF   TRISA
        MOVLW   B'11111111'
        MOVWF   TRISB
        MOVLW   B'00000000'
        MOVWF   TRISC
        MOVLW   B'00000000'
        MOVWF   TRISD
        MOVLW   B'00000111'
        MOVWF   TRISE
        MOVLW   B'10000010'     
        MOVWF   ADCON1
 
        GOTO    Prog
;*********************************************************************
 
 
;ѕрограмма
;*********************************************************************
Prog    nop
 
 
        ;Ќастроить аналоговые входы AN0     I
        MOVLW   B'10000001'         
        MOVWF   ADCON0
 
        CALL    ADC_1
 
        MOVF    RESULT_L,w
        MOVWF   PORTD
        MOVF    RESULT_H,w
        MOVWF   PORTC
 
 
 
        
;       MOVLW   h'55'
;       MOVWF   PORTC
;
;       CALL    Delay4
;   
;       MOVLW   h'77'
;       MOVWF   PORTC
;
;       CALL    Delay4
 
;       MOVLW   0x00
;       MOVWF   RESULT_L
;       MOVLW   0x01
;       MOVWF   RESULT_H
;   
;
;       CALL    convert
 
 
 
        GOTO    Prog
;*********************************************************************
 
 
 
;*********************************************************************
ADC_1   CALL    Delay2
        BSF     ADCON0,2
Adc1    BTFSC   ADCON0,2
        GOTO    Adc1
        MOVF    ADRESH,w
        MOVWF   RESULT_H
        MOVF    ADRESL,w
        MOVWF   RESULT_L
        CALL    Delay2
        RETURN
;*********************************************************************
 
 
 
 
;ѕрограмма обработки прерываний
;*********************************************************************
Break   MOVWF   W_Temp
        SWAPF   STATUS,w
        MOVWF   STATUS_Temp
;********************************
 
;********************************
br_end  SWAPF   STATUS_Temp,w
        MOVWF   STATUS
        SWAPF   W_Temp,f
        SWAPF   W_Temp,w
        BSF     INTCON,GIE
        RETURN
;*********************************************************************
 
 
 
 
;ѕрограмма задержки 43.8 мкс
;*********************************************************************
Delay1  MOVlW   0047h
        MOVWF   K1
Del1    DECFSZ  K1,f
        GOTO    Del1    
        RETURN
;*********************************************************************
;ѕрограмма задержки 134.4 мкс
;*********************************************************************
Delay2  MOVLW   0003h
        MOVWF   K2
Del2    CALL    Delay1
        DECFSZ  K2,f
        GOTO    Del2    
        RETURN
;*********************************************************************
;ѕрограмма задержки 34.4 mс
;*********************************************************************
Delay3  MOVLW   00FFh
        MOVWF   K3
Del3    CALL    Delay2
        DECFSZ  K3,f
        GOTO    Del3    
        RETURN
;*********************************************************************
;ѕрограмма задержки 516 mс
;*********************************************************************
Delay4  MOVLW   000Fh
        MOVWF   K4
Del4    CALL    Delay3
        DECFSZ  K4,f
        GOTO    Del4    
        RETURN
;*********************************************************************
 
 
 
;ѕрограмма пересчета кода из двоично-дес€тичного в двоичный
;TenT*10000+Thou*1000+Hund*100+Tens*10+Ones = RESULT(L,H,III,IV)
;*********************************************************************
n_convert   CLRF    RESULT_III
            CLRF    RESULT_IV
            CLRF    ADD_III
            CLRF    ADD_IV                   
 
            CLRF    ADD_H
            MOVF    Ones,w
            MOVWF   ADD_L
            CLRF    RESULT_H
            MOVF    Tens,w
            MOVWF   RESULT_L
            MOVLW   D'10'
            CALL    mult
            CALL    add
            MOVF    RESULT_H,w
            MOVWF   ADD_H
            MOVF    RESULT_L,w
            MOVWF   ADD_L
 
            CLRF    RESULT_H
            MOVF    Hund,w
            MOVWF   RESULT_L
            MOVLW   D'10'
            CALL    mult
            MOVLW   D'10'
            CALL    mult
            CALL    add
            MOVF    RESULT_H,w
            MOVWF   ADD_H
            MOVF    RESULT_L,w
            MOVWF   ADD_L
 
            CLRF    RESULT_H
            MOVF    Thou,w
            MOVWF   RESULT_L
            MOVLW   D'10'
            CALL    mult
            MOVLW   D'10'
            CALL    mult
            MOVLW   D'10'
            CALL    mult
            CALL    add
            MOVF    RESULT_H,w
            MOVWF   ADD_H
            MOVF    RESULT_L,w
            MOVWF   ADD_L
 
            CLRF    RESULT_H
            MOVF    TenT,w
            MOVWF   RESULT_L
            MOVLW   D'10'
            CALL    mult
            MOVLW   D'10'
            CALL    mult
            MOVLW   D'10'
            CALL    mult
            MOVLW   D'10'
            CALL    mult
            CALL    add
 
            RETURN
;*********************************************************************
 
 
;программа пересчета кода из двоичного в двоично-десятичный
;RESULT(L,H,III,IV)=TenT*10000+Thou*1000+Hund*100+Tens*10+Ones 
;*********************************************************************
convert swapf   RESULT_H,w  
        andlw   0x0F             
        addlw   0xF0            
        movwf   Thou 
        addwf   Thou,f 
        addlw   0xE2 
        movwf   Hund 
        addlw   0x32 
        movwf   Ones 
 
        movf    RESULT_H,w 
        andlw   0x0F
        addwf   Hund,f 
        addwf   Hund,f 
        addwf   Ones,f 
        addlw   0xE9 
        movwf   Tens 
        addwf   Tens,f 
        addwf   Tens,f 
 
        swapf   RESULT_L,w 
        andlw   0x0F 
        addwf   Tens,f 
        addwf   Ones,f 
 
        rlcf     Tens,f 
        rlcf     Ones,f 
        comf    Ones,f 
        rlcf     Ones,f 
 
        movf    RESULT_L,w 
        andlw   0x0F 
        addwf   Ones,f 
        rlcf     Thou,f 
 
        movlw   0x07 
        movwf   TenT 
 
                         
        movlw   0x0A                           
Conv1:  decf    Tens,f 
        addwf   Ones,f 
        btfss   STATUS,C 
        goto   Conv1 
Conv2:  decf    Hund,f 
        addwf   Tens,f 
        btfss   STATUS,C 
        goto   Conv2 
Conv3:  decf    Thou,f 
        addwf   Hund,f
        btfss   STATUS,C 
        goto   Conv3 
Conv4:  decf    TenT,f 
        addwf   Thou,f
        btfss  STATUS,C 
        goto   Conv4 
 
        retlw   0
;*********************************************************************
 
 
 
;программа суммирование 32-х разрядных чисел    
;RESULT(L,H,III,IV) = ADD(L,H,III,IV) + RESULT(L,H,III,IV)
;*********************************************************************
add     MOVF    ADD_L,w
        ADDWF   RESULT_L,f
        BTFSC   STATUS,C
        INCF    RESULT_H,f
        BTFSC   STATUS,C
        INCF    RESULT_III,f
        BTFSC   STATUS,C
        INCF    RESULT_IV,f
 
        MOVF    ADD_H,w
        ADDWF   RESULT_H,f
        BTFSC   STATUS,C
        INCF    RESULT_III,f
        BTFSC   STATUS,C
        INCF    RESULT_IV,f
 
        MOVF    ADD_III,w
        ADDWF   RESULT_III,f
        BTFSC   STATUS,C
        INCF    RESULT_IV,f
 
        MOVF    ADD_IV,w
        ADDWF   RESULT_IV,f
 
        RETURN
;*********************************************************************
 
 
 
;программа умножения 2-х 16-ти разрядных чисел
;RESULT(L,H,III,IV) = ADD(L,H) x MULT(L,H)   ( ADD_IV = 0, ADD_III = 0 )
;*********************************************************************
multiply    MOVF    ADD_H,w
            MULWF   MULT_H
            MOVF    PRODL,w
            MOVWF   RESULT_III
            MOVF    PRODH,w
            MOVWF   RESULT_IV
            MOVF    ADD_L,w
            MULWF   MULT_H
            MOVF    PRODL,w
            MOVWF   RESULT_H
            MOVF    PRODH,w
            ADDWF   RESULT_III,f
            BTFSC   STATUS,C
            INCF    RESULT_IV
            MOVF    MULT_L,w
            MULWF   ADD_H
            MOVF    PRODL,w
            ADDWF   RESULT_H,f
            BTFSC   STATUS,C
            INCF    RESULT_III
            BTFSC   STATUS,C
            INCF    RESULT_IV
            MOVF    PRODH,w
            ADDWF   RESULT_III,f
            BTFSC   STATUS,C
            INCF    RESULT_IV
            MOVF    ADD_L,w
            MULWF   MULT_L
            MOVF    PRODL,w
            MOVWF   RESULT_L
            MOVF    PRODH,w
            ADDWF   RESULT_H,f
            BTFSC   STATUS,C
            INCF    RESULT_III
            BTFSC   STATUS,C
            INCF    RESULT_IV
                        
            RETURN
;*********************************************************************
 
 
 
;программа умножения W на RESULT(L,H)
;RESULT(L,H,III,IV) = RESULT(L,H) * W
;*********************************************************************
mult    clrf    RESULT_III
        clrf    RESULT_IV
        MOVWF   M_TEMP
        MULWF   RESULT_H
        MOVF    PRODL,w
        MOVWF   RESULT_H
        MOVF    PRODH,w
        MOVWF   RESULT_III
        MOVF    M_TEMP,w
        MULWF   RESULT_L
        MOVF    PRODL,w
        MOVWF   RESULT_L
        MOVF    PRODH,w
        ADDWF   RESULT_H
        BTFSC   STATUS,C
        INCF    RESULT_III
 
        RETURN
;*********************************************************************
 
 
 
 
 
        END

raxper · 06.06.2015, 17:57

...картинка нечитабельна. Проще, быстрее и качественнее было сделать экспорт в графический формат или даже отскриншотить.

@samPogosyan · 06.06.2015, 19:21 **[ТС]**

raxp,

@samPogosyan · 06.06.2015, 19:27 **[ТС]**

raxp, сверху подается постоянный ток и сбоку где появляется разность потенциалов соответствующая черточка должна гореть, мне нужно написать допустим если там должно быть 123 то на первом должны загореться те чтобы получилась 1 на втором те, чтобы 2 и на третьем те, чтобы 3. с ассемблером не дружу, а задание именно надо на нем сделать. там вроде еще нужно подпрограмму включить умножения, если поможете буду очень благодарен

raxper · 07.06.2015, 08:56

Примеры динамической индикации обсасывались помногу раз в разделе.

@paskal · 07.06.2015, 11:51

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

помогите какие из подпрограмм нужно задействовать и какие нужно исправить чтобы заработало!!!

Надо бы уточнить как вы убедились что не работает. Спаяли реальную железку, или моделировали в протеусе?
Если в протеусе, то и не заработает! Протеус не отрабатывает динамическую индикацию - проверено!
Либо паяйте железку, либо меняйте схему под протеус со статической индикацией.

@Витальич · 07.06.2015, 13:13

Данная схема в том виде в котором есть и в железе не заработает.
ТС, нужно поставить транзисторные ключи для выбора разряда и токо ограничивающие резисторы в сегменты индикаторов.

@samPogosyan · 08.06.2015, 00:56 **[ТС]**

Витальич, мне программа главное, нужно для семисегментника написать

@paskal · 09.06.2015, 21:56

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

мне программа главное, нужно для семисегментника написать

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

Новые блоги и статьи Все статьи Все блоги /
сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и источниками (напряжения, ЭДС и тока). Найти токи и напряжения во всех элементах. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и. . .

raxper 10236 / 6614 / 498 Регистрация: 28.12.2010 Сообщений: 21,154 Записей в блоге: 1
	06.06.2015, 17:57
	...картинка нечитабельна. Проще, быстрее и качественнее было сделать экспорт в графический формат или даже отскриншотить. 0

@samPogosyan 0 / 0 / 0 Регистрация: 12.04.2014 Сообщений: 21
	06.06.2015, 19:21 [ТС]
	raxp, Миниатюры 0

@samPogosyan 0 / 0 / 0 Регистрация: 12.04.2014 Сообщений: 21
	06.06.2015, 19:27 [ТС]
	raxp, сверху подается постоянный ток и сбоку где появляется разность потенциалов соответствующая черточка должна гореть, мне нужно написать допустим если там должно быть 123 то на первом должны загореться те чтобы получилась 1 на втором те, чтобы 2 и на третьем те, чтобы 3. с ассемблером не дружу, а задание именно надо на нем сделать. там вроде еще нужно подпрограмму включить умножения, если поможете буду очень благодарен 0

raxper 10236 / 6614 / 498 Регистрация: 28.12.2010 Сообщений: 21,154 Записей в блоге: 1
	07.06.2015, 08:56
	Примеры динамической индикации обсасывались помногу раз в разделе. 0

@Витальич 1280 / 1185 / 175 Регистрация: 02.12.2013 Сообщений: 4,883
	07.06.2015, 13:13
	Сообщение было отмечено raxp как решение Решение Данная схема в том виде в котором есть и в железе не заработает. ТС, нужно поставить транзисторные ключи для выбора разряда и токо ограничивающие резисторы в сегменты индикаторов. 0

@samPogosyan 0 / 0 / 0 Регистрация: 12.04.2014 Сообщений: 21
	08.06.2015, 00:56 [ТС]
	Витальич, мне программа главное, нужно для семисегментника написать 0

Работа с семисегментником (PIC18F452, MPLab, ASM)

Решение