область памяти XDATA для микроконтроллера MSC-51 (i8051, АТ89С52)

;Общие для модуля директивы
$NOMOD51
$NOLIST
$INCLUDE(REG52.INC)                    ; или #include <reg52.h>
$LIST
 
?STACK SEGMENT  IDATA              ; размещение сегмента стека ?STACK в главном модуле
       RSEG     ?STACK
       DS   20
 
xdata_seg  SEGMENT XDATA            
        RSEG    xdata_seg          
arr:        dd 1,2,3,4,5           ; в области памяти XDATA задан массив целых беззнаковых двухбайтных чисел arr[i]               
 
;переход на стартовый адрес (0) в главном модуле
CSEG AT 0
LJMP START
 
START:      MOV SP,#?STACK-1           ; установка начала стека
 
;здесь размещается остальной код
 
CSEG AT 0
 
END                                    ; конец файла

#include "AT89X52.H"
 
#define Array_Size  (Array_Source_End-Array_Source)
#define Array_Count (Array_Size/2)
 
CSEG    AT  0x0000
        LJMP    Startup
 
?STACK      SEGMENT IDATA
RSEG        ?STACK
Stack:      DS  20
 
?C_ARRAY    SEGMENT CODE
RSEG        ?C_ARRAY
Array_Source:   DW  1,2,3,4,5
Array_Source_End:
 
?X_ARRAY    SEGMENT XDATA
RSEG        ?X_ARRAY
Array:      DS  Array_Size
 
?STARTUP    SEGMENT CODE
RSEG        ?STARTUP
 
Startup:
    CLR EA
    MOV SP,#?STACK-1
 
//здесь надо написать код для копирования из Array_Source в Array
 
//здесь размещается остальной код
 
    LJMP    Startup
 
    END

$NOMOD51
$NOLIST
$INCLUDE(REG52.INC)                
$LIST
 
?stack segment idata               
       rseg ?stack
       ds 20
         
x_array segment xdata         
       rseg x_array    
buf: ds 10
 
cseg at 0
ljmp start
 
arr: dw 1122h,3344h,5566h,7788h,9900h
arr_end:
 
start:
clr ea
mov sp,#?stack-1
 
mov dptr,#buf
mov r0,#arr
mov r1,#10
init:
mov A, @R0
    
end

    MOV R0,#0
Copy:
    MOV A,R0
    MOV DPTR,#arr
    MOVC    A,@A+DPTR
    PUSH    ACC
    MOV A,R0
    ADD A,#LOW(buf)
    MOV DPL,A
    CLR A
    ADDC    A,#HIGH(buf)
    MOV DPH,A
    POP ACC
    MOVX    @DPTR,A
    INC R0
    CJNE    R0,#10,Copy

$NOMOD51
$NOLIST
$INCLUDE(REG52.INC)                
$LIST
 
?STACK SEGMENT IDATA               
       RSEG ?STACK
       DS 20
 
?C_ARRAY SEGMENT CODE
       RSEG ?C_ARRAY
ARR: DW 1122h,3344h,5566h,7788h,9090h
         
?X_ARRAY SEGMENT XDATA        
       RSEG ?X_ARRAY       
BUF: DS 10
 
CSEG AT 0
LJMP START
 
START:
MOV SP,#?STACK-1
 
MOV R0,#0
COPY:
MOV A,R0
MOV DPTR,#ARR
MOVC A,@A+DPTR
 
PUSH ACC
 
MOV A,R0
ADD A,#LOW(BUF)
MOV DPL,A
CLR A
ADDC A,#HIGH(buf)
MOV DPH,A
    
POP ACC
 
MOVX @DPTR,A
    
INC R0
CJNE R0,#10,COPY
    
END

CSEG AT 0   //Сегмент кода по адресу 0
LJMP START //Весь сегмент состоит из одной инструкции, размер сегмента 3 байта
 
?STARTUP SEGMENT CODE //Сегмент кода. Адрес ему назначит линкер.
       RSEG ?STARTUP
START:
MOV SP,#?STACK-1

FIRST:
.....
.....
.....
;R0=0x02
;2H=0x0002
CJNE R0,#2H,FIRST

$NOMOD51
$NOLIST
$INCLUDE(REG52.INC)                
$LIST
 
?STACK SEGMENT IDATA               
       RSEG ?STACK
       DS 20
 
?C_ARRAY SEGMENT CODE
       RSEG ?C_ARRAY
ARR: DW 1122h,3344h,5566h,7788h,9090h
         
?X_ARRAY SEGMENT XDATA        
       RSEG ?X_ARRAY       
BUF: DS 10
RESULT: DS 9
 
CSEG AT 0
LJMP START
 
?STARTUP SEGMENT CODE
       RSEG ?STARTUP
 
START:
MOV SP,#?STACK-1
;------------------------------;
MOV R0,#0
COPY:
MOV A,R0
MOV DPTR,#ARR
MOVC A,@A+DPTR
 
PUSH ACC
 
MOV A,R0
ADD A,#LOW(BUF)
MOV DPL,A
CLR A
ADDC A,#HIGH(BUF)
MOV DPH,A
    
POP ACC
 
MOVX @DPTR,A
    
INC R0
CJNE R0,#10,COPY
;------------------------------;
 
MOV R0,#0
MOV R1,#1
FIRST:
MOV A,R0
ADD A,#LOW(BUF)
MOV DPL,A
CLR A
ADDC A,#HIGH(BUF)
MOV DPH,A
 
MOVX A,@DPTR
 
PUSH ACC
 
MOV A,R1
ADD A,#LOW(RESULT)
MOV DPL,A
CLR A
ADDC A,#HIGH(RESULT)
MOV DPH,A
    
POP ACC
 
MOVX @DPTR,A
    
INC R0
INC R1
CJNE R0,#2H,FIRST
 
END

CJNE R0,#2H,FIRST
JMP $  // $ - это текущий адрес. JMP $ - это вечный цикл без выхода.
END

PUSH PSW.7
.....
POP PSW.7

PUSH PSW
.....
POP PSW