;TEST EQU
       ORG 00H
REGX:  EQU 10H
REGY:  EQU R1
DATAX: EQU 64H
       MOV A,#DATAX
       MOV REGX,A
       MOV REGY,REGX
;     
XADDR: DATA 10H
YADDR: DATA 11H
       MOV XADDR,#99H
       MOV A,XADDR
       MOV YADDR,A
       MOV R0,#07H
       MOV @R0,YADDR
       MOV A,#XADDR 
       SJMP XADDR  
       CLR A
       INC A
       END