При записи в регистр меняется содержимое соседнего (ASM, Intel 8051)

;THIS PROGRAM created  for be used for Cmc bus interchange
;Logic: it load counter of array cells, then set Data pointer to the last cell, put it to the ACC and add shift to the ACC, and result will be address of the last cell. Read last cell to the acc, and the same way find address of destination cell and load  to read shift to the acc  pointer read the last cell from ROM, put it in ACC getthe main is for
;---------------------2015-aug-07--------------------------------
;add in module
;----------------------settings section
                        .MOD51                          ;declare chip model
;--------------------------------------------------------------------------------------
                       .rseg Bts,bit                            ;start of bit section
                        .EXTRNT  Timerlongperiod
                        ;.extrnt  MCON
                        .ENDSEG                                 ;ends of bit section
;--------------------------- ;start of data section-------------------------
;======================== segment for constants and tables in ROM: =;
                        .rseg Const,code            ;declare segment Const
                        ;Table of  eight 8-bit integer value (in decimal)
                        TableByte .dcb 11,22,33,44,55,66,77,88     ;Array source 0B,16,21 2C,37,42,4D,58 transfered to hex
                        EndOfTableByte .dcb 2                       ;label array end
                        MyString1  .dcb 'MCA-51 Assembler Example', 30 ;declare string variable and load
                        EndOfMystring1 .dcb 2                       ;label array end
                        .endseg
;------------------------start data segment in RAM--------------------------
                         .RSEG uni_DATA,data
                         TableByte_dest .DSB 8      ;ARRAY in RAM of 8 elements  (if in bit, can be accessible by point avftr name:)TableByte_dest.0, TableByte_dest.1
                         IRAM_ARRAY_END .DSB 1       ;for ethereal program - end of program adreess
                        .extrn (data) Timer10sec                 ;DECLARE variable
                        .extrnb (sfrs) MCON, MSTS, MERG, MCNT, MRXA, MTXA, MBA, MBD, MCOD, MSUB, MLCL, MLCH
                        .BYTE Timer10sec                          ;data, BYTE, unsigned char
                        .TYPE   Timer10sec (.uchar)             ;îáúÿâëåíèå type unsigned char
                        .ENDSEG                                 ;ends of data section
;--------------------------------------------
                        .RSEG uni_CODE,code ;start of code section
                        .public  CmcCommand                    ;interruption processing module
                        .EXTRN (code) TransmitData, ReceiveData
;------------------------START initial settings
Init:
                        accum .SET Acc                          ;set symbol name "accum" to A register (it's just for joke and can be removed later)
  ;------------------end of tuning settings
 CmcCommand:
 ;---------------Tuning settings, must be commented in real chip work!
                        ;mov MCON, #061H                         ;initial setting MCON (just for tuning it set M-RI=1(all message is received, receive mode must be reset)) must be commented later
                        ;mov MCON, #062H                         ;initial setting MCON (just for tuning it set M-CI=1(received command, required program proceccing)) must be commented later
                        mov MCON, #06AH                         ;initial setting MCON (just for tuning it set M-CI=1, M-RW=1 (need transmit data Term-Bus)
                        mov MCOD, #005H                         ;5 data words
                        nop
                        mov MSUB, #003H                         ;3 subaddress
                        jmp CommandOverride                     ;don't recognize command interface management
 ;-------------------------recognition of command (interruption reason)------------
;command1:               cjne MCOD, #000H, command2      ;DBC - take interface control
                        nop                             ;
;command2:              ;cjne MCOD,#00000001b,command3      ;S- syncronisation
                        nop
;command3:              cjne #MCOD,#00011b,command4      ;IST - START SELF check terminal device
                        nop
;command4:              cjne MCOD,#00100b,command5      ;TS - transmitter stop
                        nop
;command4a:             cjne MCOD,#00101b,command5a     ;OTS - override transmitter stop
                        nop
;command5:              cjne MCOD,#01000b,command6      ;RRT - reset to ready
                        nop
;command6:              cjne MCOD,#10001b,command7      ;S - syncronisation with data word
                        nop
;command7:              cjne MCOD,#10100b,command8      ;STS - secondary transmitter stop
                                nop
;command8:              c      jne MCOD,#10101b,command9      ;OSTS - override secondary transmitter stop|
                        nop
 ;------------------------end of command recognition----------------
CommandOverride:          ;probably don't need to execute interface command?
                mov A, MCON                        ;check if 4 bit =1
                jnb Accum.4, Receive              ;if not "1", then go to recieveing from CMC bus
                call TransmitData               ;transmit data module
Receive:        call ReceiveData                ;receive data module
 ;--------------------------------TRANSFER Ethereal-------------------------------
 ;               MOV DPTR,#TableByte-1         ;load to data pointer start address of source array one before array starts (why?)
 ;               MOV R0,#IRAM_ARRAY_END        ;load to R0 address of the end of destination array
 ;               MOV R1,#8                     ;load element counter
 ;               INIT_IRAM_ARRAY:              ;start subroutine to transfer cells
 ;               DEC R0                        ;decremrnt adress step up the end of destination array it point to the end of array
 ;               MOV A,R1                      ;load shift to cells, started from last cell
 ;               MOVC A,@A+DPTR                ;load cell to accum from address from end of ROM array
 ;               MOV @R0,A                     ;load cell into destination cell
 ;               DJNZ R1,INIT_IRAM_ARRAY       ;loop while the first  cell will be achieved (reached)
 ;-------------------------------------end of ethereal transfer------------------
                ret
                .ENDSEG                                         ;ends of code section
                .END                                            ;äèðåêòèâà îêîí÷àíèÿ òðàíñëÿöèè