sed1335间接方式汇编演示程序.asm

常用液晶模块选型资料及中文数据手册

A0      EQU     P3.2
WR1	EQU	P3.0         ; /WR1
RD1     EQU     P3.1

COM     EQU     30H
DAT     EQU     31H
COUNT   EQU     32H
COUNTX  EQU     33H
COUNTY  EQU     34H
X       EQU     35H
Y       EQU     36H
        ORG	0000H
        MOV	SP,#60H
	AJMP	MAIN
	ORG	0040H

   
MAIN:   LCALL INT
MAIN1:  LCALL CLEAR

        LCALL DISPLAY

        LCALL DELAY
        LCALL DELAY
        LCALL DELAY
        LCALL DELAY
        LCALL DELAY


         LCALL DELAY
        LCALL DELAY
        LCALL DELAY
        LCALL DELAY
        LCALL DELAY
        LCALL CLEAR
        LJMP  MAIN1



;*******************
INT:   MOV  COM, #40H
       LCALL WRI
       MOV DPTR,#TABSYS
       MOV  COUNT,#8
INT1:  CLR A
       MOVC A,@A+DPTR
       LCALL WRD
       INC DPTR
       DJNZ COUNT,INT1
       MOV COM, #44H
       LCALL WRI
       MOV DPTR,#TABSCR
       MOV COUNT,#0AH
INT2:  CLR A
       MOVC A,@A+DPTR
       LCALL WRD
       INC DPTR
       DJNZ COUNT,INT2
       MOV COM,#5AH
       LCALL WRI
       MOV A,#00H
       LCALL WRD
       MOV COM,#5BH
       LCALL WRI
       MOV A,#00H
       LCALL WRD
       MOV COM,#59H
       LCALL WRI
       MOV A,#56H
       LCALL WRD
       MOV COM,#4CH
       LCALL WRI
       MOV COM,#5DH
       LCALL WRI
       MOV A,#07H
       LCALL WRD
       MOV A,#87H
       LCALL WRD
       RET
CLEAR:MOV COM,#4CH
      LCALL WRI
      MOV COM,#46H
      LCALL WRI
      MOV A,#00H
      LCALL WRD
      MOV A,#00H
      LCALL WRD
      MOV COM,#42H
      LCALL WRI
      MOV R6,#00H
      MOV R7,#00H
CLR1: MOV A,#00H
      LCALL WRD
      DJNZ R7,CLR1
      DJNZ R6,CLR1
      RET
DISPLAY:
      MOV COM,#46H
      LCALL WRI
      MOV A,#00H
      LCALL WRD
      MOV A,#00H
      LCALL WRD
      MOV COM,#59H
      LCALL WRI
      MOV A,#04h
      LCALL WRD
      MOV COM,#5BH
      LCALL WRI
      MOV A,#08H
      LCALL WRD
      MOV COM,#42H
      LCALL WRI
      MOV DPTR,#TAB1
      MOV COUNTY,#6
DISPLAY12:MOV COUNTX,#240

DISPLAY1:MOV A,#00H
      MOVC A,@A+DPTR
      LCALL WRD
      INC DPTR
      DJNZ COUNTX,DISPLAY1
      DJNZ COUNTY,DISPLAY12

      RET



;****************************
BUSY:  CLR A0
       CLR RD1
       MOV A,P1
       SETB RD1
       JB  ACC.6,BUSY
       RET

WRI: MOV P1, COM
     SETB A0
     CLR WR1
     SETB WR1
     RET
WRD: MOV P1,A
     CLR A0
     CLR WR1
     SETB WR1
     RET
DELAY:MOV R3,#50
DELAY01:LCALL DELAY1
        DJNZ R3,DELAY01
        RET
DELAY1:MOV R1,#200
DELAY2:MOV R2,#250
DELAY3:DJNZ R2,DELAY3
       DJNZ R1,DELAY2
       RET

TABSYS:DB 30H,87H,07H,27H,42H,0F0H,30H,00H
TABSCR:DB 00H,00H,0F0H,00H,40H,0F0H,00H,80H,00H,00H

CTAB1:DB 53H,65H,76H,69H,63H,65H,72H,20H,54H,45H,4CH,3AH
      DB 00H,30H,31H,30H,36H,32H,37H,38H,30H,38H,36H,36H
TAB1:
     DB"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa          "
     DB"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa         "
     DB"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa        "
     DB"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa          "
     DB"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa        "
     DB"  aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa           "
     DB"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa          "
     DB"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa        "
     DB" aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa         "
     DB"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa         "
     DB"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa          "
     DB"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa          "
     DB"  aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa         "
     DB" aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa       "
     DB"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa       "
     DB"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa                           "
     DB"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa        "
     DB"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa     "
     DB"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa          "

end