液晶显示.asm

开发平台,任一MCS-51单片机上,很多程序,如键盘,显示,液晶驱动

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                                                                               ;;;
;;重新分配地址                                                                   ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
LCM:NOP
XIANSHI1:
         MOV     R0,#7FH
CLEAR:  MOV     @R0,#0
        DJNZ    R0,CLEAR

        CLR     REST       ;复位
        ACALL   LDELAY
        SETB    REST
       ACALL   LDELAY
       ACALL   RESET      ;初始化
       ACALL   CLEARALL   ;清屏
        SETB REST
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;调试用，应删去
        MOV SSH,#7H
        MOV SSL,#1H
        MOV SJH,#6H
        MOV SJL,#8H
        MOV TIMEH1,#8
        MOV TIMEH2,#8
        MOV TIMEL1,#8
        MOV TIMEL2,#8
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;调试用，应删去
XIANGSHI2:
MOV DPTR,#HUAN
MOV HANG,#2
MOV LIE,#3
ACALL SHANGXIAONE
MOV DPTR,#YING
MOV HANG,#2
MOV LIE,#4
ACALL SHANGXIAONE
MOV DPTR,#SHI
MOV HANG,#2
MOV LIE,#5
ACALL SHANGXIAONE
MOV DPTR,#YONG
MOV HANG,#2
MOV LIE,#6
ACALL SHANGXIAONE
MOV DPTR,#ZHIZHI
MOV HANG,#3
MOV LIE,#2
ACALL SHANGXIAONE
MOV DPTR,#KONGKONG
MOV HANG,#3
MOV LIE,#3
ACALL SHANGXIAONE
MOV DPTR,#DIDI
MOV HANG,#3
MOV LIE,#4
ACALL SHANGXIAONE
MOV DPTR,#SHISHI
MOV HANG,#3
MOV LIE,#5
ACALL SHANGXIAONE
MOV DPTR,#SISI
MOV HANG,#3
MOV LIE,#6
ACALL SHANGXIAONE
MOV DPTR,#ZUZU
MOV HANG,#3
MOV LIE,#7
ACALL SHANGXIAONE
MOV JICHUN3,#4
DONGHUA:
MOV DPTR,#TUAN1
MOV HANG,#2
MOV LIE,#2
ACALL SHANGXIAONE
MOV DPTR,#TUAN1
MOV HANG,#2
MOV LIE,#7
ACALL SHANGXIAONE
ACALL DELAY
MOV DPTR,#TU2
MOV HANG,#2
MOV LIE,#2
ACALL SHANGXIAONE
MOV DPTR,#TU2
MOV HANG,#2
MOV LIE,#7
ACALL SHANGXIAONE
ACALL DELAY
DJNZ JICHUN3,DONGHUA
ACALL CLEARALL
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
XIANGSHI3: ;;;;;实时调用
MOV DPTR,#DIAN
MOV HANG,#1
MOV LIE,#1
ACALL SHANGXIAONE
MOV DPTR,#JI
MOV HANG,#1
MOV LIE,#2
ACALL SHANGXIAONE
MOV DPTR,#KONG
MOV HANG,#1
MOV LIE,#3
ACALL SHANGXIAONE
MOV DPTR,#ZHI
MOV HANG,#1
MOV LIE,#4
ACALL SHANGXIAONE
MOV DPTR,#XIANG
MOV HANG,#1
MOV LIE,#5
ACALL SHANGXIAONE
MOV DPTR,#SHI
MOV HANG,#1
MOV LIE,#6
ACALL SHANGXIAONE
MOV DPTR,#BIAO
MOV HANG,#1
MOV LIE,#7
ACALL SHANGXIAONE
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
XIANSHI2:
MOV DPTR,#TAB1
MOV HANG,#2
MOV LIE,#1
ACALL SHANGXIAONE
MOV DPTR,#TAB2
MOV HANG,#2
MOV LIE,#2
ACALL SHANGXIAONE
MOV DPTR,#MAOHAO
MOV HANG,#2
MOV LIE,#3
ACALL SHANGXIAONE
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;***************************************
CLR C
MOV A,SSH
MOV B,#16
MUL AB
MOV DPTR,#SHU
ADD A,DPL
MOV DPL,A
MOV A,DPH
ADDC A,#00H
MOV DPH,A
MOV HANG,#2
MOV LIE,#6
ACALL SHANGXIABYTE
CLR C
MOV A,SSL
MOV B,#16
MUL AB
MOV DPTR,#SHU
ADD A,DPL
MOV DPL,A
MOV A,DPH
ADDC A,#00H
MOV DPH,A
MOV HANG,#2
MOV LIE,#7
ACALL SHANGXIABYTE
MOV DPTR,#zhuang
MOV HANG,#2
MOV LIE,#5
ACALL SHANGXIAONE
MOV DPTR,#MEI
MOV HANG,#2
MOV LIE,#6
ACALL SHANGXIAONE
MOV DPTR,#MIAO
MOV HANG,#2
MOV LIE,#7
ACALL SHANGXIAONE

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*****************************************************
MOV DPTR,#TAB3
MOV HANG,#3
MOV LIE,#1
ACALL SHANGXIAONE
MOV DPTR,#TAB2
MOV HANG,#3
MOV LIE,#2
ACALL SHANGXIAONE
MOV DPTR,#MAOHAO
MOV HANG,#3
MOV LIE,#3
ACALL SHANGXIAONE


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

CLR C
MOV A,SJH
MOV B,#16
MUL AB
MOV DPTR,#SHU
ADD A,DPL
MOV DPL,A
MOV A,DPH
ADDC A,#00H
MOV DPH,A
MOV HANG,#3
MOV LIE,#6
ACALL SHANGXIABYTE

CLR C
MOV A,SJL
MOV B,#16
MUL AB
MOV DPTR,#SHU
ADD A,DPL
MOV DPL,A
MOV A,DPH
ADDC A,#00H
MOV DPH,A
MOV HANG,#3
MOV LIE,#7
ACALL SHANGXIABYTE

MOV DPTR,#zhuang
MOV HANG,#3
MOV LIE,#5
ACALL SHANGXIAONE

MOV DPTR,#MEI
MOV HANG,#3
MOV LIE,#6
ACALL SHANGXIAONE

MOV DPTR,#MIAO
MOV HANG,#3
MOV LIE,#7
ACALL SHANGXIAONE
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

MOV DPTR,#TAB4
MOV HANG,#4
MOV LIE,#1
ACALL SHANGXIAONE

MOV DPTR,#TAB5
MOV HANG,#4
MOV LIE,#2
ACALL SHANGXIAONE

MOV DPTR,#MAOHAO
MOV HANG,#4
MOV LIE,#3
ACALL SHANGXIAONE
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
CLR C
MOV A,TIMEH1
MOV B,#16
MUL AB
MOV DPTR,#SHU
ADD A,DPL
MOV DPL,A
MOV A,DPH
ADDC A,#00H
MOV DPH,A
MOV HANG,#4
MOV LIE,#6
ACALL SHANGXIABYTE

CLR C
MOV A,TIMEH2
MOV B,#16
MUL AB
MOV DPTR,#SHU
ADD A,DPL
MOV DPL,A
MOV A,DPH
ADDC A,#00H
MOV DPH,A
MOV HANG,#4
MOV LIE,#7
ACALL SHANGXIABYTE

CLR C
MOV A,TIMEL1
MOV B,#16
MUL AB
MOV DPTR,#SHU
ADD A,DPL
MOV DPL,A
MOV A,DPH
ADDC A,#00H
MOV DPH,A
MOV HANG,#4
MOV LIE,#8
ACALL SHANGXIABYTE

CLR C
MOV A,TIMEL2
MOV B,#16
MUL AB
MOV DPTR,#SHU
ADD A,DPL
MOV DPL,A
MOV A,DPH
ADDC A,#00H
MOV DPH,A
MOV HANG,#4
MOV LIE,#9
ACALL SHANGXIABYTE

MOV DPTR,#MIAO
MOV HANG,#4
MOV LIE,#6
ACALL SHANGXIAONE


AJMP $;;;;;;;;;;;;;;;***********调用后改成RET返回

;;;;;;;;;;;;;
SHANGXIAONE:
        MOV     A,HANG;计算列地址(1-8)、页地址(1-4)
        DEC     A
        CLR     C
        RLC     A     ;一个字要占用两页，所以*2
	ANL	A,#0FH
	ORL	A,#0B0H
        MOV     YE,A
        MOV     A,LIE
        DEC     A
	ANL	A,#0FH
	ORL	A,#10H
        MOV     LIEH,A
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        MOV     A,YE    ;页地址
        CALL    OUTI
        MOV     A,LIEH  ;列地址高位
        CALL    OUTI
        MOV     DATAPAGE,#00H;字数据计数
	MOV     LIEL,#0
	MOV	LOOPNUM,#16
        ACALL   WR      ;送字上半字
        INC     YE
        MOV     A,YE    ;页地址
        CALL    OUTI
        MOV     A,LIEH  ;列地址高位
        CALL    OUTI
	MOV	LOOPNUM,#16
        ACALL   WR      ;送字下半字
        RET
;送半字
WR:     MOV     A,LIEL  ;列地址低位
        ACALL   OUTI
        MOV     A,DATAPAGE
        MOVC    A,@A+DPTR
        ACALL   OUTD
        INC     DATAPAGE
        INC     LIEL
        MOV     A,LIEL