lcd1027 by bozi.txt

LCD1207显示

RS EQU P3.2
RW EQU P3.3
E  EQU P3.4
CS1 EQU P3.1
CS2 EQU P3.5
X   EQU 30H
Y   EQU 31H
ORG 0000H
AJMP MAIN
ORG 0100H
MAIN: MOV R0,#3FH       ;启动lcd
      ACALL WI
      MOV R0,#0C0H
      ACALL WI
      MOV DPTR,#TAB
      SETB CS1
      CLR CS2
      ACALL DISP
      AJMP $
WI:   ACALL YS10MS
      CLR RS    ;写指令
      CLR RW
      SETB E
      MOV P1,R0
      ACALL YS10MS
      CLR E
      ACALL YS10MS
      RET

WD:   ACALL YS10MS
      SETB RS    ;写数据
      CLR RW
      SETB E
      MOV P1,R0
      ACALL YS10MS
      CLR E
      ACALL YS10MS
      RET

DISP:
      MOV R1,#0
      MOV X,#40H
      MOV Y,#0B8H

      MOV 21H,#16
D2:   MOV R0,X
      ACALL WI
      MOV 20H,#2
D1:   MOV R0,Y
      ACALL WI
      MOV A,R1
      MOVC A,@A+DPTR
      MOV R0,A
      ACALL WD

      MOV A,Y
      INC A
      MOV Y,A
      CJNE A,#0C0H,YY
      MOV Y,#0B0H
YY:   MOV A,R1
      INC A
      MOV R1,A
      DJNZ 20H,D1
      MOV A,X
      INC A
      MOV X,A
      CJNE A,#4AH,XX
      MOV X,#40H
XX:   DJNZ 21H,D2

       RET
YS10MS:   MOV 25H,#10
Y1:       MOV 26H,#250
Y2:       NOP
          NOP
          DJNZ 26H,Y2
          DJNZ 25H,Y1
          RET

TAB:    DB 00H,00H,0F0H,10H,10H,50H,50H,54H
        DB 0E8H,50H,50H,50H,0F0H,10H,80H,00H,
        DB 40H,30H,0FH,01H,79H,55H,55H,55H
        DB 57H,55H,55H,55H,7BH,01H,00H,00H