stify"> H'0C ' TEMP1, W STATUS, Z OP6 H'AC ' TEMP1 CYCLE ZERO
CALL OPT1 H'0F ' TEMP1, W STATUS, Z OP7 ZERO OP8 H'0A ' TEMP1 BSF < span align = "justify"> ZERO H'0C ' TEMP1, W STATUS, Z OP8 H'AC '
MOVWF TEMP1
OP8 DECFSZ CYCLE OP6
ZERO OP9 H'0A ' TEMP1
MOVF TEMP1, W SPI_R1 TEMP2, W SPI_R2 TEMP3, W SPI_R3 TEMP4, W SPI_R4 TEMP5, W SPI_R5
; ***************************************** *******
; п/п вставки мінуса при сформованому BCD
BTFSS MINES OP12
H'F0 ' SPI_R5, W STATUS, Z OP10 OP11
BTFSS EXP_FL OVER
OPT2 MOVLW H'F0 ' SPI_R5
; ***************************************** *******
OPT1
MOVLW H'04 '; зрушення вліво 4 рази
MOVWF CT _1 RLF SPI_R1 SPI_R2 SPI_R3 SPI_R4 SPI_R5
