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