Ср дек 20, 2017 09:14:23
Ср дек 20, 2017 09:17:31
Ср дек 20, 2017 09:35:48
Ср дек 20, 2017 09:45:38
Ср дек 20, 2017 13:34:56
Илья1503 писал(а):можете сделать схему и программу с описаниями, очень прошу
Ср дек 20, 2017 13:53:27
Ср дек 20, 2017 15:28:22
Ср дек 20, 2017 16:01:09
Ср дек 20, 2017 17:12:46
Ср дек 20, 2017 18:00:03
Чт дек 21, 2017 07:49:39
Илья1503 писал(а):можете сделать схему и программу с описаниями, очень прошу
Чт дек 21, 2017 12:45:25
ДержиИлья1503 писал(а):Можно еще полностью схему и код?
Вс янв 14, 2018 19:11:34
Вт янв 23, 2018 23:53:22
Ср янв 24, 2018 05:18:11
Чт янв 25, 2018 20:21:16
Пн янв 29, 2018 17:55:35
Пн фев 19, 2018 13:30:59
Пн фев 19, 2018 13:55:34
Пн фев 19, 2018 14:56:03
;
;
#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
;
;
END