jola 

 点亮LCM的程序
RS      EQU       P3.7
            E       EQU       P3.5
            wr      EQU       P3.4
            ORG  0000H
            LJMP MAIN

            ORG  0003H
            LJMP LINTO

            ORG  0100H

       MAIN: NOP
             LCALL INIT
             MOV R1, #80H
             LCALL WRI
             MOV DPTR, #TABLE1
             LCALL WRD2
             MOV R1, #090H
             LCALL WRI
             MOV DPTR, #TABLE2
             LCALL WRD2
             
             LCALL DLY100
             LCALL CR
             LCALL DLY100

             LCALL WRD3
             LCALL CR

         L44:MOV R1,#80H   ;DDRAM ADDRES=00H
             LCALL WRI
             MOV R0,#40
             MOV R1,#41H   ;WRITE 00H TO DDRAM
        L222: LCALL WRD
              INC R1 
             DJNZ R0,L222

             MOV R1,#090H  ;DDRAM ADRDRES=40H
             LCALL WRI
             MOV R0,#40
             MOV R1,#61H   ;WRITE 00H TO DDRAM
       L332: LCALL WRD
             INC R1  
             DJNZ R0,L332
             LCALL DLY100
             LCALL CR
             LJMP MAIN     

            LINTO: NOP
                   NOP
                   RETI

      INIT: SETB E
            CLR  RS
            CLR  p3.4
            MOV R0, #03H
        L1: MOV R1, #038H
            LCALL WRI

            DJNZ R0, L1

           MOV R1,#0FH
           LCALL WRI
           MOV R1,#06H
           LCALL WRI
           MOV R1,#01H
           LCALL WRI
              RET

       WRI:SETB E
           CLR RS
           CLR p3.4
           MOV p1,R1
           CLR E                 
           LCALL DLY10 
           SETB E
           LCALL DLY10
           LCALL DLY10
           LCALL DLY10
           LCALL DLY10
           LCALL SN 
              RET

       WRD: SETB E
            SETB RS
            CLR  p3.4
            MOV p1,R1
            CLR E
            LCALL DLY10            
            SETB E
            LCALL DLY10
            LCALL DLY10
            LCALL DLY10
            LCALL DLY10
            LCALL SN 
            RET

       CR:  MOV R1,#00H
             LCALL WRI
             MOV R0,#40
             MOV R1,#20H
        L22: LCALL WRD
             DJNZ R0,L22

             MOV R1,#0C0H
             LCALL WRI
             MOV R0,#40
             MOV R1,#20H
        L33: LCALL WRD
             DJNZ R0,L33
             RET

       WRD2: MOV R0, #08H
             MOV R2, #00H
       L555: MOV A, R2
             MOVC A, @A+DPTR
             MOV R1, A
             LCALL WRD
             INC R2
             LCALL DLY100
             DJNZ R0, L555
             NOP
             RET      
           
       WRD3:  MOV R1,#00H
             LCALL WRI
             MOV R0,#40
             MOV R1,#0FFH
        L221: LCALL WRD
             DJNZ R0,L221

             MOV R1,#0C0H
             LCALL WRI
             MOV R0,#40
             MOV R1,#0FFH
        L331: LCALL WRD
             DJNZ R0,L331
             RET      
    
      DLY10:MOV R3,#01H
        DL1:MOV R4,#03H
        DL2:MOV R6,#0FFH
        DL3:DJNZ R6,DL3
            DJNZ R4,DL2
            DJNZ R3,DL1
            RET

     DLY100:MOV R3,#02H
        DL11:MOV R4,#0DFH
        DL22:MOV R6,#0FFH
        DL33:DJNZ R6,DL33
             DJNZ R4,DL22
             DJNZ R3,DL11
             RET

         SN:MOV R3, #250
         D1:MOV R4, #250
         D2:DJNZ R4,D2
            DJNZ R3,D1
            RET

        TABLE1:
        DB 57H,65H,6CH,63H,6FH,6DH,65H,20H,20H,20H,20H,20H,20H,20H
        DB 20H,20H,20H,20H,20H,20H
            
        TABLE2:            
        DB 54H,49H,4EH,53H,48H,41H,52H,50H,20H,4CH,43H,4DH,20H,20H
        DB 20H,20H,20H,20H,20H,20H
   
           END

发表时间:2004年12月20日22:02:18