;=========================================================== 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