12864.asm

pls see it again welcome program

;a		SYMBOLS
RS                EQU     P3.0
R_W               EQU     P3.2
E                 EQU     P3.1
CS1               EQU     P3.3
CS2               EQU     P3.4
RESTE             EQU     P3.7
PAGE_ADDRESS      EQU	  20H
COLUMN_ADDRESS	  EQU	  21H
DISPLAY_DATA	  EQU	  22H
PAGE_ADDRESS1     EQU	  23H
COLUMN_ADDRESS1   EQU	  24H
CHINESE_COUNTER   EQU	  25H
UNTER             EQU     26H
UNTER1            EQU     27H

	     ORG     0000H
	     JMP     START
             ORG     0100H
START:
        CALL    SDELAY
        MOV 	SP,#60H
	CALL    SDELAY
        CLR     RESTE
        SETB    RESTE
	CALL    SDELAY
STA:	MOV	DPTR,#DISP1
	CALL    DISPLAY
	CALL    LSDELAY
	CALL    LSDELAY
	CALL    LSDELAY

        MOV	DPTR,#DISP3
	CALL    DISPLAY
	CALL    LSDELAY
	CALL    LSDELAY

       
        MOV	DPTR,#DISP9
	CALL    DISPLAY
	CALL    LSDELAY
	CALL    LSDELAY
	SJMP    STA
DISPLAY:
;	MOV	PAGE_ADDRESS1,#0B8H
;        MOV	PAGE_ADDRESS,#0B8H
        MOV	A,#3FH
	CALL	COM1
        MOV     UNTER,#08
        MOV	A,#0C0H
        CALL	COM1
        MOV	PAGE_ADDRESS1,#0B8H
        MOV	PAGE_ADDRESS,#0B8H
DIS1:   MOV     A,PAGE_ADDRESS
        CALL	COM1
	MOV	COLUMN_ADDRESS,#40H
        MOV     A,COLUMN_ADDRESS
	CALL    COM1
        MOV     R0,#64
DIS:	CLR	A
        MOVC    A,@A+DPTR
        CALL    DATA1
	CALL    LDELAY
        INC     DPTR
	CALL    LDELAY
        DJNZ    R0,DIS
        MOV	A,#3FH
        CALL	COM2
        MOV	A,#0C0H
        CALL	COM2
        MOV     A,PAGE_ADDRESS1
        CALL	COM2
	MOV	COLUMN_ADDRESS1,#40H
        MOV     A,COLUMN_ADDRESS1
	CALL    COM2
        MOV     R1,#64
DIS3:	CLR	A
        MOVC    A,@A+DPTR
        CALL    DATA2
	CALL    LDELAY
        INC     DPTR
	CALL    LDELAY
        DJNZ    R1,DIS3
        INC     PAGE_ADDRESS
	INC     PAGE_ADDRESS1
	DJNZ	UNTER,DIS1
	CALL    LDELAY
        RET



COM1:
        SETB    CS1
        CLR     CS2
	NOP
 	CLR	RS
	NOP
	CLR	R_W
	NOP
	NOP
	SETB	E
	NOP
	NOP
	NOP
	MOV	P1,A
	NOP
	NOP
	NOP
	NOP
	NOP
	CLR	E
	NOP
;	CALL	SNOP
	RET

COM2:
        CLR     CS1
        SETB    CS2
	NOP
       	CLR	RS
	NOP
	CLR	R_W
	NOP
	SETB	E
	NOP
	NOP
	NOP
	MOV	P1,A
	NOP
	NOP
	NOP
	NOP
	CLR	E
	NOP
	RET

DATA1:
        SETB    CS1
        CLR     CS2
	NOP
   	SETB	RS
	NOP
	CLR 	R_W
	NOP
	SETB	E
	NOP
	NOP
	NOP
	MOV	P1,A
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	CLR	E
	NOP
	 RET

DATA2:
        CLR     CS1
        SETB    CS2
	NOP
	SETB	RS
	CLR	R_W
	NOP
	SETB	E
	NOP
	NOP
	NOP
	MOV	P1,A
	NOP
	NOP
	NOP
	NOP
	NOP
	CLR	E
        RET


LDELAY:
        MOV     R5,#02
L0:	MOV	R6,#05H
L1:	MOV	R7,#05H
L2:	DJNZ	R7,L2
	DJNZ	R6,L1
	DJNZ	R5,L0
        RET

LSDELAY:
     	  MOV	 R5,#04H
LS0:	  MOV	 R6,#0FFH
LS1:	  MOV	 R7,#0FFH
LS2:	  DJNZ	 R7,LS2
	  DJNZ	 R6,LS1
	  DJNZ	 R5,LS0
	  RET

SDELAY:
	  MOV	 R6,#01H
S1:	  MOV	 R7,#04H
S0:	  DJNZ	 R7,S0
	  DJNZ	 R6,S1
          RET

DISP1:
;--  调入了一幅图像：C:\Documents and Settings\Administrator\桌面\program\oldprogram,hex\HE12864测试程序OK\12864q.bmp  --
;--  宽度x高度=128x64  --
DB  0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH