s6a0069.asm

附件为字符测试程序,可驱动16*116*220*2等

           RS BIT P2.0
           RW BIT P2.1
           E BIT P2.4
           ORG 0000H
           JMP MAIN
           ORG 0300H

MAIN:  
           LCALL DEL500MS

           MOV A,#38H
           LCALL WRITECOM1
           LCALL DEL2MS
           LCALL DEL2MS
           LCALL DEL2MS
       
           MOV A,#38H
           LCALL WRITECOM1
           LCALL DEL2MS
 
           MOV A,#38H
           LCALL WRITECOM1

           MOV A,#38H
           LCALL WRITECOM

           MOV A,#01H
           LCALL WRITECOM
           LCALL DEL2MS

	   MOV A,#08H
	   LCALL WRITECOM

           MOV  A,#06H
           LCALL WRITECOM
           ;LCALL DEL2MS
           ;LCALL DEL2MS
           ;LCALL DEL2MS
           ;LCALL DEL2MS
 
MAIN1:
           MOV R2,#0AAH
	   LCALL WRCGRAM
           LCALL BMP1

	   MOV A,#0CH
	   LCALL WRITECOM
         
	   LCALL DEL500MS
 
           MOV A,#01H
           LCALL WRITECOM

           LCALL BMP2
           LCALL DEL500MS

           ;MOV A,#0CH
           ;LCALL WRITECOM
           ;LCALL DEL500MS

           ;MOV A,#08H
           ;LCALL WRITECOM
           ;LCALL DEL500MS

           LCALL BMP3
           LCALL DEL500MS


           ;LCALL KEY
           LCALL BMP5
           LCALL DEL500MS

           ;LCALL KEY
           ;LCALL BMP6
           ;LCALL DEL500MS
           ;LCALL KEY
           JMP MAIN1
WRCGRAM:    
           MOV A,#40H
           LCALL WRITECOM
           MOV R3,#16D
WRCGRAM1:   
           MOV A,R2
           CPL A
           MOV R2,A
           LCALL WRITEDAT
           DJNZ R3,WRCGRAM1
           RET  
BMP1:   
           MOV A,#80H
           LCALL WRITECOM
           MOV R3,#100D
BMP10:   
           MOV A,#00
           LCALL WRITEDAT
           MOV A,#01H
           LCALL WRITEDAT
           DJNZ R3,BMP10
           RET  
BMP2:
           MOV A,#80H
           LCALL WRITECOM
           MOV R3,#128D
BMP20:
           MOV A,#0FFH
           LCALL WRITEDAT
           DJNZ R3,BMP20
           RET
BMP3:
           MOV A,#80H
           LCALL WRITECOM
           MOV R0,#40D
           MOV A,#41H
BMP30:
           LCALL WRITEDAT
           INC A
           DJNZ R0,BMP30
           MOV R0,#40D
           MOV A,#0C0H
           LCALL WRITECOM  
           MOV A,#0B0H
BMP31:
           LCALL WRITEDAT
           INC A
           DJNZ R0,BMP31
           RET
BMP5:
           MOV A,#80H
           LCALL WRITECOM
           MOV R3,#128D
BMP50:
           MOV A,#0fdH
           LCALL WRITEDAT
           DJNZ R3,BMP50
           RET
BMP6:
           MOV A,#80H
           LCALL WRITECOM
           MOV R3,#128D
BMP60:
           MOV A,#55H
           LCALL WRITEDAT
           DJNZ R3,BMP60
           RET


WRITECOM1:
           CLR RS
           CLR RW
           CLR E
           MOV P0,A
           SETB E
           CLR E
           RET
WRITECOM:
           LCALL RFG
           CLR RS
           CLR RW
           CLR E
           MOV P0,A
           SETB E
           CLR E  
           RET
WRITEDAT:
           LCALL RFG
           SETB RS
           CLR RW
           CLR E
           MOV P0,A
           SETB E
           CLR E
           RET             
RFG:
       PUSH ACC
       CLR RS
       SETB RW
       MOV P0,#0FFH
BUSY:
       SETB E
       MOV A,P0
       CLR E
       JB ACC.7,BUSY
       POP ACC
       RET        
DEL100US:
            MOV R7,#40D
D100US1:
            DJNZ R7,D100US1
            RET
DEL2MS:
            MOV R7,#2D
D2MS1:
            MOV R6,#100D
D2MS2:
            DJNZ R6,D2MS2
            DJNZ R7,D2MS1
            RET 

DEL500MS:
          MOV R7,#18D
DEL2:     MOV R6,#150D
DEL1:     MOV R5,#150D
DEL0:     DJNZ R5,DEL0
          DJNZ R6,DEL1
          DJNZ R7,DEL2
          RET
KEY:
            JB P2.2,KEY
            LCALL DEL2MS
            JB P2.2,KEY
            LCALL DEL500MS
            RET
END