LCALL WRITE     ;Calling the Write Routine
   MOV   P1,#000H  ;Clearing the P1 to confirm data written Succesfully
AGAIN:
   JB    TST,$     ;Wait until the TST button to Ground