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

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

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

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

Assembler

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, вы бы честно попросили разъяснить сей "надыбанный" вами на просторах рунета код. Уверен, что вам наверняка помогли бы.

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

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

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

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

@pyzhman
	20.02.2018, 07:41 #6
	Не по теме: Сообщение от toha060999 смог накидать Да, освоить Ctrl+C и Ctrl+V тоже надо суметь. 0

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

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

Опции темы