
     MOV R0,#30H;
          MOV R1,#30;
                  
 LOOP:   
           MOV  A,R1;
           MOV @R0,A;
            INC R0;
           DEC R1;
           DJNZ R1,LOOP;
   
             SJMP $
    END
                                                       
