;以下为串口写指令和数据的子程序：
;This program is for 12232-9 串行
; CS--------P2.0
; SID-------P2.1
; CLK---------P2.2
    CS EQU P2.0
    SID EQU P2.1
    CLK EQU P2.2
    ORG 0000H
    AJMP START
    ORG 0010H    
START:
    LCALL SETUP
    LCALL DEF_CHAR
     MOV  A,#80H
    LCALL WRITE_COM
     MOV  R3,#8
TEST11:
     MOV  DPTR,#CGRAM1 ;CGRAM TEST
    LCALL WRITE_CGRAM
    DJNZ R3,TEST11
     MOV  A,#90H
    LCALL WRITE_COM
     MOV  R3,#8
TEST12:
     MOV  DPTR,#CGRAM1
    LCALL WRITE_CGRAM
    DJNZ R3,TEST12
    LCALL DELAY
    LCALL DELAY
    LCALL DELAY
    LCALL DELAY
    LCALL DELAY
     MOV  A,#80H
    LCALL WRITE_COM
     MOV  R3,#8
TEST21:
     MOV  DPTR,#CGRAM2
    LCALL WRITE_CGRAM
    DJNZ R3,TEST21
     MOV  A,#90H
    LCALL WRITE_COM
     MOV  R3,#8
TEST22:
     MOV  DPTR,#CGRAM2
    LCALL WRITE_CGRAM
    DJNZ R3,TEST22
    LCALL DELAY
    LCALL DELAY
    LCALL DELAY
    LCALL DELAY
    LCALL DELAY
     MOV  A,#80H
    LCALL WRITE_COM
     MOV  R3,#8
TEST31:
     MOV  DPTR,#CGRAM3
    LCALL WRITE_CGRAM
    DJNZ R3,TEST31
     MOV  A,#90H
    LCALL WRITE_COM
     MOV  R3,#8
TEST32:
     MOV  DPTR,#CGRAM3
    LCALL WRITE_CGRAM
    DJNZ R3,TEST32
    LCALL DELAY
    LCALL DELAY
    LCALL DELAY
    LCALL DELAY
    LCALL DELAY
     MOV  A,#80H
    LCALL WRITE_COM
     MOV  R3,#8
TEST41:
     MOV  DPTR,#CGRAM4
    LCALL WRITE_CGRAM
    DJNZ R3,TEST41
     MOV  A,#90H
    LCALL WRITE_COM
     MOV  R3,#8
TEST42:
     MOV  DPTR,#CGRAM4
    LCALL WRITE_CGRAM
    DJNZ R3,TEST42
    LCALL DELAY
    LCALL DELAY
    LCALL DELAY
    LCALL DELAY
    LCALL DELAY
     MOV  A,#80H ;WORD TEST
    LCALL WRITE_COM
     MOV  DPTR,#CHINESE
    LCALL WRITE_Hz
     MOV  A,#90H
    LCALL WRITE_COM
     MOV  DPTR,#TABLE1
    LCALL WRITE_ASCII
    LCALL DELAY
    LCALL DELAY
    LCALL DELAY
    LCALL DELAY
    LCALL DELAY
    LCALL DELAY
    LCALL DELAY
    LCALL DELAY
    LCALL DELAY
     MOV  A,#80H
    LCALL WRITE_COM
     MOV  DPTR,#table1
    LCALL WRITE_ascii
     MOV  A,#90H
    LCALL WRITE_COM
     MOV  DPTR,#chinese
    LCALL WRITE_hz
    LCALL DELAY
    LCALL DELAY
    LCALL DELAY
    LCALL DELAY
    LCALL DELAY
    LCALL DELAY
    LCALL DELAY
    LCALL DELAY
    LCALL DELAY
AAA:    LJMP START
SETUP:
    LCALL DELAY
    LCALL DELAY
    LCALL DELAY
     MOV  A,#01H ;CLEAR DISPLAY
    LCALL WRITE_COM
     MOV  A,#00110000B ;FUNCTION SETTING
    LCALL WRITE_COM
     MOV  A,#00000010B ;DDRAM SET TO ’00H’
    LCALL WRITE_COM
     MOV  A,#00000100B ;
    LCALL WRITE_COM
     MOV  A,#00001100B ;DISPLAY ON
    LCALL WRITE_COM
     MOV  A,#00000001B ;CLEARING SCREEN
    LCALL WRITE_COM
     MOV  A,#10000000B ;SET DDRAM ADDRESS
    LCALL WRITE_COM
    RET
WRITE_COM:
    LCALL DELAY1 ;INSTEAD OF CHECKING BF STATE
    SETB CS
    PUSH ACC
     MOV  R0,#8
     MOV  A,#11111000B
COMM1:
    CLR C
    RLC A
     MOV  SID,C
    CLR CLK
    SETB CLK
    DJNZ R0,COMM1
    POP ACC
     MOV  R5,A
    ANL A,#0F0H
     MOV  R0,#8
COMM2:  CLR C
    RLC A
     MOV  SID,C
    CLR CLK
    SETB CLK
    DJNZ R0,COMM2
     MOV  A,R5
    SWAP A
    ANL A,#0F0H
     MOV  R0,#8
COMM3:  CLR C
    RLC A
     MOV  SID,C
    CLR CLK
    SETB CLK
    DJNZ R0,COMM3
    CLR CS
    RET
    WRITE_DAT:
    LCALL DELAY1
    SETB CS
    PUSH ACC
     MOV  R0,#8
     MOV  A,#11111010B
DATA1:  CLR C
    RLC A
     MOV  SID,C
    CLR CLK
    SETB CLK
    DJNZ R0,DATA1
    POP ACC
     MOV  R5,A
    ANL A,#0F0H
     MOV  R0,#8
    DATA2: CLR C
    RLC A
     MOV  SID,C
    CLR CLK
    SETB CLK
    DJNZ R0,DATA2
     MOV  A,R5
    SWAP A
    ANL A,#0F0H
     MOV  R0,#8
    DATA3: CLR C
    RLC A
     MOV  SID,C
    CLR CLK
    SETB CLK
    DJNZ R0,DATA3
    CLR CS
    RET
DELAY1:
     MOV  R7,#010H
D11:    
    MOV  R6,#010H
    DJNZ R6,$
    DJNZ R7,D11
    RET
DELAY:
     MOV  R1,#00H
D2:     
    MOV  R2,#00H
    DJNZ R2,$
    DJNZ R1,D2
    RET

DEF_CHAR: ;WRITE TO CGRAM
     MOV  A,#01000000B ;SET CGRAM ADDRESS
    LCALL WRITE_COM
     MOV  R3,#8
DEF1:
     MOV  A,#000H
    LCALL WRITE_DAT
    LCALL WRITE_DAT
     MOV  A,#0FFH
    LCALL WRITE_DAT
    LCALL WRITE_DAT
    DJNZ R3,DEF1
     MOV  R3,#8
DEF2:
     MOV  A,#0AAH
    LCALL WRITE_DAT
    LCALL WRITE_DAT
     MOV  A,#0AAH
    LCALL WRITE_DAT
    LCALL WRITE_DAT
    DJNZ R3,DEF2
     MOV  R3,#8
DEF3:
     MOV  A,#055H
    LCALL WRITE_DAT
    LCALL WRITE_DAT
     MOV  A,#0AAH
    LCALL WRITE_DAT
    LCALL WRITE_DAT
    DJNZ R3,DEF3
     MOV  R3,#8
DEF4:
     MOV  A,#0FFH
    LCALL WRITE_DAT
    LCALL WRITE_DAT
    LCALL WRITE_DAT
    LCALL WRITE_DAT
    DJNZ R3,DEF4
    RET
WRITE_ASCII:
     MOV  R4,#16
DDDD:   CLR A
     MOV C A,@A+DPTR
    LCALL WRITE_DAT
    INC DPTR
    DJNZ R4,DDDD
    RET
WRITE_HZ: ;WRITE 8 CHINESE TO LCD
     MOV  R4,#8
DD:     
    CLR A
     MOV C A,@A+DPTR
    INC DPTR
    LCALL WRITE_DAT
    CLR A
     MOV C A,@A+DPTR
    INC DPTR
    LCALL WRITE_DAT
    DJNZ R4,DD
    RET
WRITE_CGRAM: ;CGRAM TESTING
    CLR A
     MOV C A,@A+DPTR
    LCALL WRITE_DAT
    INC DPTR
    CLR A
     MOV C A,@A+DPTR
    LCALL WRITE_DAT
    RET
TABLE1:
DB 0x30,0x31,0x32,0x33,0x34,0x35,0x36,0x37
DB 0x38,0x39,0x3A,0x3B,0x3C,0x3D,0x3E,0x3F

;“这里是16*8 点阵的字符代码”
CGRAM1: DB 00H,00H ;这里是自造字符地址表
CGRAM2: DB 00H,02H
CGRAM3: DB 00H,04H
CGRAM4: DB 00H,06H
CHINESE:
DB 0B3H,0A7H,0B3H,0A8H,0B3H,0A9H,0B3H,0AAH,0B3H,0ABH,0B3H,0ACH
;“这里是16*16 点阵的汉字代码表”
    END