PIC16F84A Вычитание двух 2-х разрядных двоичных чисел

@toha060999 · Регистрация: 25.05.2015

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

Помогите с кодом для PiC16f84a со следующими функциями:
Вычитание двух 2-х разрядных двоичных чисел. Каждое число вводить через порт путем нажатия кнопок с фиксацией sb0 и sb1 факт ввода первого числа инициируется при нажатии кнопки SB2 , а второго sb3. Полученный результат прри нажатии кнопки SB4 Вывести на 7-сегментный дисплей. При этом если результат отрицательный загорается светодиод.Заранее спасибо.
С помощью смог накидать пока это :

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
LIST        p=16F84A
             #DEFINE      FLAG_DIG     REG.FL,0
;
             #DEFINE      SB0          PORTA,0
             #DEFINE      SB1          PORTA,1
 
 
 
;
;
INV          MACRO        REG,BIT1
             MOVLW        1<<BIT1
             XORWF        REG,F
             ENDM
 
             CBLOCK       0x20      ;BANK0
REG.FL
REG_A,REG_B
REG_IND
 
             ENDC
;
             CBLOCK       0x70      ;ALL BANK
REG.AL
REZ.L,REZ.H
Q.REG.L
             ENDC
;
             ORG          0x00
INIT
;
;
;
;
MAIN
             BTFSC        SB2
             GOTO         M1.1
                                    ;
             MOVF         PORTA,W
             ANDLW        03H
             MOVWF        REG_A
                                    ;
M1.1         BTFSC        SB3
             GOTO         M1.2
                                    ;
             MOVF         PORTA,W
             ANDLW        03H
             MOVWF        REG_B
;
M1.2
             BTFSC        SB4
             GOTO         M2.0
                                    ; REG_A - REG_B
             MOVF         REG_B,W
             SUBWF        REG_A,W
             BCF          LED_RED
             BTFSS        STATUS,C
             BSF          LED_RED
             BTFSS        STATUS,C
             SUBLW        .0
                                    ;
             MOVWF        REG_IND
;
M2.0
             MOVF         REG_IND,W
             MOVWF        REG.AL
             CALL         BIN2BCD8
;
             INV          FLAG_DIG
             BTFSC        FLAG_DIG
             GOTO         M2.1
;
             MOVF         REZ.L,W
             ANDLW        0FH
 
             BCF          P.DIG1
             CALL         SET.SEG
             MOVWF        PORTB
             BSF          P.DIG0
             GOTO         M2.0.OUT
;
M2.1
             SWAPF        REZ.L,W
             ANDLW        0FH
;
             BCF          P.DIG0
             CALL         SET.SEG
             MOVWF        PORTB
             BSF          P.DIG1
             ;GOTO         M2.0.OUT
;
;
M2.0.OUT
;
;
;
             GOTO         MAIN
;
;
;
SET.SEG
             ANDWF        PCL,F
;
             RETLW        SEG_0
             RETLW        SEG_1
             RETLW        SEG_2
             RETLW        SEG_3
             RETLW        SEG_4
             RETLW        SEG_5
             RETLW        SEG_6
             RETLW        SEG_7
             RETLW        SEG_8
             RETLW        SEG_9
;
;
;
BIN2BCD8
 ;in: REG.AL - BIN
;out: REZ.H, REZ.L - BCD (PACKED) 
  ;
             MOVLW        .8        ; Q.BIT IN
             MOVWF        Q.REG.L
;
             CLRF         REZ.H
             CLRF         REZ.L
             GOTO         B2B1
;
ADJDEC       MOVLW        .51
             ADDWF        REZ.H,F
             ADDWF        REZ.L,F
;
             MOVLW        .3
             BTFSS        REZ.H,3
             SUBWF        REZ.H,F
             BTFSS        REZ.L,3
             SUBWF        REZ.L,F
;
             MOVLW        .48
             BTFSS        REZ.H,7
             SUBWF        REZ.H,F
             BTFSS        REZ.L,7
             SUBWF        REZ.L,F
;
B2B1         RLF          REG.AL,F
             RLF          REZ.L,F
             RLF          REZ.H,F
             DECFSZ       Q.REG.L,F
             GOTO         ADJDEC
             RETURN
;
;

Vovka · 19.02.2018, 19:02

Так на {del} уже написали...
Или это тест, какой форум лучше?

@toha060999 · 19.02.2018, 19:15 **[ТС]**

Нет).Просто интересно узнать может что то не так.

Vovka · 19.02.2018, 19:27

А самому начать разбираться в готовом, запустив отладичк слабо?

@toha060999 · 19.02.2018, 19:28 **[ТС]**

Хорошо,подскажите хороший отладчик

@pyzhman · 20.02.2018, 07:41

Не по теме:

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

смог накидать

Да, освоить Ctrl+C и Ctrl+V тоже надо суметь.

@toha060999 · 20.02.2018, 17:18 **[ТС]**

Топ форум тролей(учитесь шутить юмор плоский как забор)

@northener · 21.02.2018, 01:49

toha060999, вы бы честно попросили разъяснить сей "надыбанный" вами на просторах рунета код. Уверен, что вам наверняка помогли бы.

Новые блоги и статьи Все статьи Все блоги /
Blazor и контроллер сервопривода IoT Meadow Maple Wired 11.07.2025 Я решил разобраться, как можно соединить современные веб-технологии с миром "железа". Интересная комбинация получилась из Blazor в качестве веб-интерфейса и микроконтроллера Meadow с его веб-сервером. . .	Генерация OpenQASM из кода Q# EggHead 10.07.2025 Летом 2024-го я начал эксперименты с библиотекой Q# Bridge, и знаете что? Она оказалась просто находкой для тех, кто работает на стыке разных квантовых экосистем. Основная фишка этой библиотеки -. . .	Изучаем новый шаблон ИИ-чата .NET AI Chat Web App stackOverflow 10.07.2025 В . NET появилось интересное обновление - новый шаблон ИИ-чата под названием . NET AI Chat Web App. Когда я впервые наткнулся на анонс этого шаблона, то сразу понял, что Microsoft наконец-то. . .	Результаты исследования от команды ARP (июль 2025 г.) Programma_Boinc 10.07.2025 Результаты исследования от команды ARP (июль 2025 г. ) Африканский проект по дождям (ARP) World Community Grid снова запущен! Мы рады поделиться обновленной информацией о нашем прогрессе с осени. . .	Angular vs Svelte - что лучше? Reangularity 09.07.2025 Сегодня рынок разделился на несколько четких категорий: тяжеловесы корпоративного уровня (Angular), гибкие универсалы (React), прогрессивные решения (Vue) и новая волна компилируемых фреймворков. . .
Code First и Database First в Entity Framework UnmanagedCoder 09.07.2025 Entity Framework дает нам свободу выбора, предлагая как Code First, так и Database First подходы. Но эта свобода порождает вечный вопрос — какой подход выбрать? Entity Framework — это. . .	Как использовать Bluetooth-модуль HC-05 с Arduino Wired 08.07.2025 Bluetooth - это технология, созданная чтобы заменить кабельные соединения. Обычно ее используют для связи небольших устройств: мобильных телефонов, ноутбуков, наушников и т. д. Работает она на частоте. . .	Руководство по структурам данных Python AI_Generated 08.07.2025 Я отчетливо помню свои первые серьезные проекты на Python - я писал код, он работал, заказчики были относительно довольны. Но однажды мой наставник, взглянув на мою реализацию поиска по огромному. . .	Тестирование энергоэффективности и скорости вычислений видеокарт в BOINC проектах Programma_Boinc 08.07.2025 Тестирование энергоэффективности и скорости вычислений видеокарт в BOINC проектах Опубликовано: 07. 07. 2025 Рубрика: Uncategorized Автор: AlexA Статья размещается на сайте с разрешения. . .	Раскрываем внутренние механики Android с помощью контекста и манифеста mobDevWorks 07.07.2025 Каждый Android-разработчик сталкивается с Context и манифестом буквально в первый день работы. Но много ли мы задумываемся о том, что скрывается за этими обыденными элементами? Я, честно говоря,. . .

Vovka 38 / 38 / 11 Регистрация: 27.09.2014 Сообщений: 486
	19.02.2018, 19:02
	Так на {del} уже написали... Или это тест, какой форум лучше? 0

@toha060999 0 / 0 / 0 Регистрация: 25.05.2015 Сообщений: 10
	19.02.2018, 19:15 [ТС]
	Нет).Просто интересно узнать может что то не так. 0

Vovka 38 / 38 / 11 Регистрация: 27.09.2014 Сообщений: 486
	19.02.2018, 19:27
	А самому начать разбираться в готовом, запустив отладичк слабо? 0

@toha060999 0 / 0 / 0 Регистрация: 25.05.2015 Сообщений: 10
	19.02.2018, 19:28 [ТС]
	Хорошо,подскажите хороший отладчик 0

@toha060999 0 / 0 / 0 Регистрация: 25.05.2015 Сообщений: 10
	20.02.2018, 17:18 [ТС]
	Топ форум тролей(учитесь шутить юмор плоский как забор) 0

@northener пофигист широкого профиля 4765 / 3201 / 861 Регистрация: 15.07.2013 Сообщений: 18,584
	21.02.2018, 01:49
	toha060999, вы бы честно попросили разъяснить сей "надыбанный" вами на просторах рунета код. Уверен, что вам наверняка помогли бы. 0

Опции темы