Microcontroller code for dot matrix

ORG 00H

MOV P3,#00000000B     

MOV P1,#00000000B

        

MAIN: MOV P3,#00000000B

      MOV P1,#11111110B

        LCALL DELAY

      MOV P3,#11101111B

      MOV P1,#00000001B

         LCALL DELAY

      MOV P3,#11110111B

      MOV P1,#11111011B

         LCALL DELAY

      MOV P3,#11111011B

      MOV P1,#11110111B

         LCALL DELAY

      MOV P3,#11111101B

      MOV P1,#11101111B

         LCALL DELAY

      MOV P3,#11111110B

      MOV P1,#11011111B

         LCALL DELAY

      MOV P3,#11111001B

      MOV P1,#11011111B

         LCALL DELAY

      MOV P3,#11110111B

      MOV P1,#10111111B

        LCALL DELAY

      MOV P3,#11011111B

      MOV P1,#11111101B

        LCALL DELAY

      MOV P3,#10111111B

      MOV P1,#11110011B

     LCALL DELAY

      MOV P3,#11011111B

      MOV P1,#11101111B

      LCALL DELAY

      SJMP MAIN   

  

    

DELAY: MOV R6,#200d    

HERE: DJNZ R6,HERE

;               ACALL DE1

;               DE1: MOV R2,#2d    

;               HERE1: DJNZ R2,HERE1

      RET

END