п/п індикації переповнення
MOVLW H'FF ' PORTC TEMP2 SPI1 SPI1 SPI1 SPI1 SPI1 SSPCON, SSPEN H'FF ' PORTC
$
; ***************************************** ***********
; п/п виведення +/- MINES A7 MINES H'F0 ' SPI_R5 SPI
BCF MINES H'F0 ' SPI_R5 SPI
; ***************************************** ***********
; п/п оптимізації діагностуємих числа
OPTIM TEMP TEMP1 TEMP2 TEMP3 TEMP4 TEMP5 TEMP6 TEMP7 TEMP8 EXP_FL
; якщо EXP> 0, то приведення до EXP = 0, інакше - вставка коми
MOVLW H'7F ' EXP, W STATUS, C
; ***************************************** *******
; множення SPI_R на 10 і декремент EXP, поки EXP чи не стане = 0
OP1 MOVF EXP, W STATUS, Z OP_ZERO; EXP = 0 OPT1 EXP TEMP1, W STATUS, Z OVER OP1 OP_ZERO
; ***************************************** *******
; п/п формування нулей_ZERO
CLRF TEMP1 TEMP2 TEMP3 TEMP4 TEMP5
ZERO
H'09 '; CYCLE
OPT1
