capwg7hp.116_d3659&login=mangoms&domain=hotmail%2ecom&_lang=cn&country=cn&saferedirect=%26hm___ts%3d1188527396%26hm___ha%3d934c93b36cf9e3c9c9add04d2625dd18

信利屏幕汉字显示 信利屏幕汉字显示

;***************************************************************************
;连线表:  CPU=89C52                                                        *
;RS=P3.0            R/W=P3.1            CS1=P3.3        CS2=P3.5           *
;FOSC=12MHz         D0-D7=P1.0-P1.7     E=P3.2          /RSET=/(CPU RSET)  *
;***************************************************************************

RS     EQU  P3.3
RW     EQU  P3.1
EN     EQU  P3.0
CS1    EQU  P3.5
CS2    EQU  P3.4
DATBUS EQU  P1

COM    EQU  30H
DAT    EQU  31H
OX     EQU  32H
OY     EQU  33H
XPAGE  EQU  34H
CODER  EQU  35H
COUNT  EQU  36H
DOT    EQU  37H
CONT   EQU  38H

START:
       ORG   0000H
       LJMP  MAIN
       ORG   0060H

MAIN:
       MOV   SP,#60H
       LCALL DEL_20MS
       MOV   P3,#0F8H         ;CS1=H,CS2=H,无关脚置高
       LCALL INI
       MOV   CONT,#00H        ;清除显示
       LCALL CLEAR
       MOV   CONT,#0FFH       ;全显
       LCALL CLEAR
       MOV   DOT,#0AAH        ;显示网点
       LCALL WDOT
       MOV   DOT,#55H         ;错开显示网点
       LCALL WDOT
       MOV   DOT,#0FFH        ;显示竖条
       LCALL WDOT
       MOV   DOT,#00H         ;错开显示竖条
       LCALL WDOT
       MOV   CONT,#0AAH       ;显示横条
       LCALL CLEAR
       MOV   CONT,#55H        ;错开显示横条
       LCALL CLEAR
       MOV   DPTR,#PIC1
       LCALL WPIC
       MOV   DPTR,#PIC2
       LCALL WPIC
       MOV   DPTR,#PIC3
       LCALL WPIC
       LJMP  MAIN

INI:
       MOV   COM,#0C0H
       LCALL WC1
       LCALL WC2
       MOV   COM,#3FH
       LCALL WC1
       LCALL WC2
       RET

CLEAR:                       ;CLEAR和WDOT子程序是为了在测试时显示网点和横条竖条，以免漏点
       MOV   XPAGE,#00H
       MOV   R3,#8
CLEAR1:
       MOV   A,XPAGE
       ORL   A,#0B8H
       MOV   COM,A
       LCALL WC1
       LCALL WC2
       MOV   COM,#40H
       LCALL WC1
       LCALL WC2
       MOV   R2,#64
CLEAR2:
       MOV   DAT,CONT
       LCALL WD1
       LCALL WD2
       DJNZ  R2,CLEAR2
       INC   XPAGE
       DJNZ  R3,CLEAR1
       LCALL DEL_500MS
       LCALL DEL_500MS
       RET

WDOT:
       MOV   XPAGE,#00H
       MOV   R2,#8
WDOT1:
       MOV   A,XPAGE
       ORL   A,#0B8H
       MOV   COM,A
       LCALL WC1
       LCALL WC2
       MOV   COM,#40H
       LCALL WC1
       LCALL WC2
       MOV   R3,#64
       MOV   DAT,DOT
WDOT2:
       LCALL WD1
       LCALL WD2
       MOV   A,DAT
       CPL   A
       MOV   DAT,A
       DJNZ  R3,WDOT2
       INC   XPAGE
       DJNZ  R2,WDOT1
       LCALL DEL_500MS
       LCALL DEL_500MS
       RET

WPIC:  ;MOV   R7,DPL
       MOV   XPAGE,#00H
       MOV   R3,#8
WP1:
       MOV   A,XPAGE
       ORL   A,#0B8H
       PUSH  ACC
       MOV   COM,A
       LCALL WC1
       MOV   COM,#40H
       LCALL WC1
       MOV   R2,#64
WP2:
       MOV   A,#00H
       MOVC  A,@A+DPTR
       MOV   DAT,A
       INC   DPTR
       LCALL WD1
       DJNZ  R2,WP2

       POP   ACC
       MOV   COM,A
       LCALL WC2
       MOV   COM,#40H
       LCALL WC2
       MOV   R2,#64
WP3:
       MOV   A,#00H
       MOVC  A,@A+DPTR
       MOV   DAT,A
       INC   DPTR
       LCALL WD2
       DJNZ  R2,WP3
       INC   XPAGE
       INC   R7
       ;MOV   DPL,R7
       DJNZ  R3,WP1
       LCALL DEL_1500MS
       RET

WC1:
       CLR   CS1
       SETB  CS2
       CLR   RS
       SETB  RW
WC11:
       MOV   P1,#0FFH
       SETB  EN
       MOV   A,P1
       CLR   EN
       JB    ACC.7,WC11
       CLR   RW
       MOV   P1,COM
       SETB  EN
       CLR   EN
       RET

WC2:
       SETB  CS1
       CLR   CS2
       CLR   RS
       SETB  RW
WC21:
       MOV   P1,#0FFH
       SETB  EN
       MOV   A,P1
       CLR   EN
       JB    ACC.7,WC21
       CLR   RW
       MOV   P1,COM
       SETB  EN
       CLR   EN
       RET

WD1:
       CLR   CS1
       SETB  CS2
       CLR   RS
       SETB  RW
WD11:
       MOV   P1,#0FFH
       SETB  EN
       MOV   A,P1
       CLR   EN
       JB    ACC.7,WD11
       SETB  RS
       CLR   RW
       MOV   P1,DAT
       SETB  EN
       CLR   EN
       RET

WD2:
       SETB  CS1
       CLR   CS2
       CLR   RS
       SETB  RW
WD21:
       MOV   P1,#0FFH
       SETB  EN
       MOV   A,P1
       CLR   EN
       JB    ACC.7,WD21
       SETB  RS
       CLR   RW
       MOV   P1,DAT
       SETB  EN
       CLR   EN
       RET

DEL_20MS:
       MOV   R0,#20
D2:
       MOV   R1,#200