1602液晶屏驱动源程序6.txt

来自「液晶显示器1602显示编程范例」· 文本 代码 · 共 129 行

1602液晶屏驱动源程序6 
     

      ;lcd display program
      RS BIT P3.0
      R_W BIT P3.1
      ENABLE BIT P3.2 
      LCDDATA DATA P1


      ;******************************************

      ORG 0000H
      AJMP MAIN
      ;ORG 000BH
      ;AJMP INSERS

      ORG 0050H
      MAIN:
      ;MOV TMOD,#00H
      ;MOV TL0,#00H
      ;MOV TH0,#00H
      ;SETB EA
      ;SETB ET0
      ;SETB TR0
      ;MOV R5,#50
      ;CLR P3.2
      ;SETB P3.1
      MOV SP,#60H
      LCALL INITIAL
      MOV A,#10000000B
      LCALL WRITE_INSTRUCTION
      MOV DPTR,#LINE1
      LCALL PR_STRING
      MOV A,#11000000B
      LCALL WRITE_INSTRUCTION
      MOV DPTR,#LINE2
      LCALL PR_STRING
      AJMP $
      LINE1:
      DB "LCD testing____", 00H
      LINE2:
      DB "Easy learning it.", 00H

      ;MOV TL0,#00H
      ;MOV TH0,#00H
      ;DJNZ R5,L0
      ;MOV R5,#50
      ;CPL P3.2
      ;CPL P3.1
      ;L0:
      ;RETI

      INITIAL:
      MOV A,#00111000B
      LCALL WRITE_INSTRUCTION
      MOV A,#00001110B
      LCALL WRITE_INSTRUCTION
      MOV A,#00000110B
      LCALL WRITE_INSTRUCTION
      RET

      CHECKBUSY:
      PUSH ACC
      CHECKBUSYLOOP:
      CLR ENABLE
      SETB R_W
      CLR RS
      SETB ENABLE
      MOV A,LCDDATA
      CLR ENABLE
      JB ACC.7,CHECKBUSYLOOP
      POP ACC
      RET

      WRITE_INSTRUCTION:
      LCALL CHECKBUSY
      CLR ENABLE
      CLR R_W
      CLR RS 
      SETB ENABLE
      MOV LCDDATA,A
      CLR ENABLE
      LCALL DELAY
      RET

      WRITELCDDATA:
      LCALL CHECKBUSY
      CLR ENABLE
      CLR R_W
      SETB RS
      SETB ENABLE
      MOV LCDDATA,A
      CLR ENABLE
      RET

      CLS:
      MOV A,#01H
      LCALL WRITE_INSTRUCTION
      RET

      PR_STRING:
      PUSH ACC
      PR_LOOP:
      CLR A
      MOVC A,@A+DPTR
      JZ END_PR
      LCALL WRITELCDDATA
      INC DPTR
      AJMP PR_LOOP

      END_PR:
      POP ACC
      RET

      DELAY:
      MOV R5,#05H
      L1:
      MOV R6,#0F8H
      L2:
      DJNZ R6,L2
      DJNZ R5,L1
      RET

      END