Device 16F877 Include "PROTON_4.INC" Dim MYARRAY[8] As Byte 'объявляем 12-ти байтовый массив Dim NEWMYARRAY[8] As Byte Dim VAR1 As Byte Dim EX_VAR As Byte 'loop: HSerIn [Str MYARRAY] Print Str MYARRAY EX_VAR=MYARRAY[1] VAR1= GetBit EX_VAR,3 If VAR1=0 Then GoTo metka Else EX_VAR.3 =0 EndIf Cls DelayMS 200 Print BIN EX_VAR DelayMS 2000 Cls metka: NEWMYARRAY[0]=MYARRAY[0] NEWMYARRAY[1]=EX_VAR NEWMYARRAY[2]=MYARRAY[2] NEWMYARRAY[3]=MYARRAY[3] NEWMYARRAY[4]=MYARRAY[4] NEWMYARRAY[5]=MYARRAY[5] NEWMYARRAY[6]=MYARRAY[6] NEWMYARRAY[7]=MYARRAY[7] 'NEWMYARRAY[8]=MYARRAY[8] 'NEWMYARRAY[9]=MYARRAY[9] 'NEWMYARRAY[10]=MYARRAY[10] 'NEWMYARRAY[11]=MYARRAY[11] 'NEWMYARRAY[12]=MYARRAY[12] 'NEWMYARRAY[13]=MYARRAY[13] 'NEWMYARRAY[14]=MYARRAY[14] 'NEWMYARRAY[15]=MYARRAY[15] HSerOut [Str NEWMYARRAY] 'GoTo loop