;===========================================================
Xport                Equ         06000H
XRead                Equ         0A000H
;===========================================================
                     org         0000H
                     Ajmp        main
;===========================================================
                     Mov         R6,#40
Delay:               Mov         R7,#0
Delay1:              Djnz        R7,Delay1
                     Djnz        R6,Delay
                     Ret
;===========================================================                    
main:
mainloop:
                     Mov         Dptr,#XRead
                     MovX        A,@Dptr
                     Mov         Dptr,#Xport
                     MovX        @Dptr,A                    
                     Ajmp        mainloop     
;===========================================================
                     End