;***************************************************************************
;连线图: 
;        *DB0---P1.0* *DB4---P1.4* *A0-------------p3.7     * *E1----------p3.0
;        *DB1---P1.1* *DB5---P1.5* *WR-------------GND        *E2----------p3.1
;        *DB2---P1.2* *DB6---P1.6*                  
;        *DB3---P1.3* *DB7---P1.7* *RST------------p3.2   

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

E1 EQU P3.0
E2 equ p3.1 
A0 EQU P3.7
RST EQU P3.2
x equ 30h ;页地址
y equ 31h ;列地址
;RW =>  GND

ORG 0000H
LJMP MAIN

ORG 0003H
LJMP LINTO

ORG 0100H

MAIN: NOP
clr ea 
CLR E1
CLR E2
lcall init ;初始化模块 

;MOV 34H,#0ffH ;显示所有点 
;LCALL DISPLAY_ALL
;lcall dly100

;MOV 34H,#00H ;所有点不显示
;LCALL DISPLAY_ALL

;MOV R1,#0e3H ;reset 
;LCALL WRI

;lcall plybw ;显示黑白相间块
;lcall DLY100

  MOV 34H,#00H ;清显示
     LCALL DISPLAY_ALL

MOV R1,#0e3H ;reset 
LCALL WRI

mov 31h,#0
mov 30h,#0

MOV 30H,#2 ;x 
MOV 31H,#0 ;y 
MOV DPTR,#HZI7 ;您
LCALL outhz

MOV 30H,#2
MOV 31H,#30
MOV DPTR,#HZI8 ;好 
LCALL outhz

MOV 30H,#0
MOV 31H,#25
MOV DPTR,#HZI8 ;好 
LCALL outhz

LCALL DLY100
LJMP MAIN 

LINTO: NOP
NOP
RETI

init: CLR RST ;RESET
LCALL DLY50
LCALL DLY50
LCALL DLY50
LCALL DLY50

setb rst
MOV R1,#0aFH ;DISPLAY ON 
LCALL WRI

MOV R1,#0C0H ;START = 0 
LCALL WRI

MOV R1,#0a4H ;driver 
LCALL WRI

MOV R1,#0a9h ;duty 32 
LCALL WRI

mov    R1,#0afh                   ;display on
          lcall  WRI   

mov    R1,#0eeh                   ;
    lcall  WRI      

MOV R1,#0a0H ;adc 
LCALL WRI

MOV R1,#0e3H ;reset 
LCALL WRI

MOV 34H,#00H
LCALL DISPLAY_ALL
ret

DISPLAY_ALL: MOV R1,#0e3H ;reset 
LCALL WRI

MOV R7,#4 ;DISPLAY DATA= 34H
MOV R2,#0B8H 
LOP1: MOV A,R2
MOV R1,A ; X+1
LCALL WRI
MOV R1,#00H ; Y
LCALL WRI

MOV R5,#61
MOV R1,#0e0H ;RMW 
LCALL WRI

LOP11: MOV R1,34H
LCALL WRD 
DJNZ R5,LOP11

MOV R1,#0eeH ;end 
LCALL WRI

INC R2
DJNZ R7,LOP1

ret 

outhz: MOV R1,#0e3H ;reset 
LCALL WRI

;30h=x (0-6) 31h=y(0-63-16)
MOV R7,#2
MOV A,#0B8H
ADD A,30H ;B8+X
MOV 30H,A ;A>  >  30H
HZ2: ; MOV A,R2
MOV R1,30H ; X+1
LCALL WRI

MOV A,#00H ; Y
ADD A,31H
; MOV 31H,A ;40+Y 
MOV R1,A
LCALL WRI

MOV R5,#16
MOV R1,#0e0H ;RMW 
LCALL WRI

HZ1: MOV A,#00H 
MOVC A,@A+DPTR 
MOV R1,A 
LCALL WRD
LCALL DLY10 
INC DPTR
DJNZ R5,HZ1

MOV R1,#0eeH ;end 
LCALL WRI

INC 30H
DJNZ R7,HZ2
RET

plybw: MOV R1,#0e3H ;reset 
LCALL WRI

mov 30h,#0
mov 31h,#0
mov dptr,#bw
MOV R7,#4
MOV A,#0B8H
ADD A,30H ;B8+X
MOV 30H,A ;A>  >  30H
HZ2bw: MOV R1,30H ; X+1
LCALL WRI

MOV A,#00H ; Y
ADD A,31H
;40+Y 
MOV R1,A
LCALL WRI

MOV R5,#61
MOV R1 ......

>>返回讨论的主题