sed1335a.asm

SED1335a和ADS7843的DEMO程序

'********************
广州旭日32240显示程序
'********************
IR1335  EQU     7FFFH
DR1335  EQU     3FFFH
FDISP   BIT     02H

	ORG	0000H
	JMP	MAIN
	ORG	0030H
MAIN:   MOV     SP,#60H
	MOV	R0,#08H
L0031:  MOV	@R0,#00H
	INC	R0
        CJNE    R0,#7FH,L0031 
	CALL	DELAY1
        CALL    ST1335
;--------------------------	
MAIN1:  MOV     R5,#00H;VRAM ADDRESS HIGH
        MOV     R4,#00H;VRAM ADDRESS LOW
        MOV     R2,#00H;CODE
        MOV     R3,#04H
        CLR     FDISP
        CALL    VIDEO8;DISPLAY "0","1","2","3"
	CALL	DELAY1

        MOV     R5,#04H
        MOV     R4,#0B0H
        MOV     R2,#04H
        MOV     R3,#04H
        SETB    FDISP
        CALL    VIDEO8;DISP "4","5","6","7"
        MOV	R5,#03H
L000:   CALL	DELAY1
        DJNZ	R5,L000
	SJMP	$
;--------------------------

DELAY1:MOV	R6,#0FFH
       MOV	R7,#0FFH
       CALL	L01E0
       RET
       
L01E0: SETB	C
       MOV	A,R7
       SUBB	A,#00H
       MOV	A,R6
       SUBB	A,#00H
       JC	L01F0
       MOV	A,R7
       DEC	R7
       JNZ	L01EE
       DEC	R6
L01EE: SJMP	L01E0
L01F0: RET       

;------------------------------
ST1335: MOV     A,#40H
        MOV     DPTR,#IR1335
        MOVX    @DPTR,A
        MOV     R2,#08H
        MOV     R3,#00H
PR2:    MOV     DPTR,#SYSTAB
        MOV     A,R3
        MOVC    A,@A+DPTR
        MOV     DPTR,#DR1335
        MOVX    @DPTR,A
        INC     R3
        DJNZ    R2,PR2

        MOV     A,#44H
        MOV     DPTR,#IR1335
        MOVX    @DPTR,A
        MOV     R2,#0AH
        MOV     R3,#00H
PR3:    MOV     DPTR,#SCRTAB
        MOV     A,R3
        MOVC    A,@A+DPTR
        MOV     DPTR,#DR1335
        MOVX    @DPTR,A
        INC     R3
        DJNZ    R2,PR3

        MOV     A,#5AH
        MOV     DPTR,#IR1335
        MOVX    @DPTR,A
        MOV     A,#00H
        MOV     DPTR,#DR1335
        MOVX    @DPTR,A

        MOV     A,#5BH
        MOV     DPTR,#IR1335
        MOVX    @DPTR,A
        MOV     A,#0CH
        MOV     DPTR,#DR1335
        MOVX    @DPTR,A

        MOV     A,59H
        MOV     DPTR,#IR1335
        MOVX    @DPTR,A
        MOV     A,#16H
        MOV     DPTR,#DR1335
        MOVX    @DPTR,A

        MOV     A,#46H
        MOV     DPTR,#IR1335
        MOVX    @DPTR,A
        MOV     A,#00H
        MOV     DPTR,#DR1335
        MOVX    @DPTR,A
        MOVX    @DPTR,A

        MOV     A,#4CH
        MOV     DPTR,#IR1335
        MOVX    @DPTR,A
        RET

SYSTAB:DB       30H,87H,07H,27H,43H,0EFH,28H,00H;P1--P8
SCRTAB:DB       00H,00H,0F0H,80H,25H,0F0H,00H,4CH,00H,4CH;P1--P10
;------------------------------
VIDEO8:  MOV     R7,#00H;COUNT1
VIDEO8A: MOV     A,#46H;CURSOR ADDR R5(HIGH)R4(LOW), R2 CODE R3 NUMS
         MOV     DPTR,#IR1335
         MOVX    @DPTR,A
         MOV     A,R4
         MOV     DPTR,#DR1335
         MOVX    @DPTR,A
         MOV	 A,R5
         MOVX    @DPTR,A

         MOV    A,#4FH
	 MOV	DPTR,#IR1335
	 MOVX	@DPTR,A
	 MOV	A,#42H
	 MOVX	@DPTR,A
	 
         MOV	R6,#00H;COUNT2
VIDEO800:MOV	DPTR,#TEXTTAB
	 MOV	A,R2
	 MOV	B,#0FH
	 MUL	AB
	 ADD	A,DPL
	 MOV	DPL,A
	 MOV	A,B
	 ADDC	A,DPH
	 MOV	DPH,A

	 MOV	A,R6	 
	 MOVC	A,@A+DPTR
	 JB	FDISP,USUDISP;USU OR NOT DISP
         CPL	A
USUDISP: MOV	DPTR,#DR1335
	 MOVX	@DPTR,A
	 INC	R6
	 MOV	A,R6
	 XRL	A,#0FH
	 JZ	VIDEO801
	 JMP	VIDEO800
VIDEO801:INC	R7
	 MOV	A,R7
	 XRL	A,R3
	 JNZ	VIDEO802
	 RET
VIDEO802:INC	R2
         INC	R4
	 MOV	A,R4
	 JNZ	VIDEO803
	 INC	R5
VIDEO803:JMP	VIDEO8A	 
;----------------------------------------------------
TEXTTAB:DB  000H,000H,000H,018H,024H,042H,042H,042H;0
        DB  042H,042H,042H,024H,018H,000H,000H

        DB  000H,000H,000H,010H,070H,010H,010H,010H;1
        DB  010H,010H,010H,010H,07CH,000H,000H

        DB  000H,000H,000H,03CH,042H,042H,002H,004H;2
        DB  008H,010H,020H,042H,07EH,000H,000H

        DB  000H,000H,000H,03CH,042H,042H,004H,018H;3
        DB  004H,002H,042H,042H,03CH,000H,000H

        DB  000H,000H,000H,008H,008H,018H,028H,048H;4
        DB  048H,07EH,008H,008H,01EH,000H,000H

        DB  000H,000H,000H,07EH,040H,040H,05CH,062H;5
        DB  002H,002H,042H,042H,03CH,000H,000H

        DB  000H,000H,000H,01CH,024H,040H,040H,05CH;6
        DB  062H,042H,042H,042H,03CH,000H,000H

        DB  000H,000H,000H,07EH,044H,044H,008H,008H;7
        DB  010H,010H,010H,010H,010H,000H,000H

        DB  000H,000H,000H,03CH,042H,042H,042H,03CH;8
        DB  024H,042H,042H,042H,03CH,000H,000H

        DB  000H,000H,000H,038H,044H,042H,042H,046H;9
        DB  03AH,002H,002H,024H,038H,000H,000H

	DB  000H,000H,000H,000H,000H,000H,038H,044H;a
	DB  01CH,024H,044H,044H,03EH,000H,000H

        DB  000H,000H,000H,0C0H,040H,040H,05CH,062H;b
	DB  042H,042H,042H,042H,07CH,000H,000H

        DB  000H,000H,000H,000H,000H,000H,01CH,022H;c
	DB  040H,040H,040H,022H,01CH,000H,000H

	DB  000H,000H,000H,006H,002H,002H,03EH,042H;d
	DB  042H,042H,042H,046H,03BH,000H,000H

	DB  000H,000H,000H,000H,000H,000H,03CH,042H;e
        DB  07EH,040H,040H,042H,03CH,000H,000H

	DB  000H,000H,000H,00EH,012H,010H,07CH,010H;f
	DB  010H,010H,010H,010H,07CH,000H,000H

        DB  000H,000H,000H,000H,000H,000H,03EH,044H;g 10
	DB  044H,038H,040H,03CH,042H,042H,03CH

        DB  000H,000H,000H,0EEH,044H,044H,044H,07CH;H 11
	DB  044H,044H,044H,044H,0EEH,000H,000H

        DB  000H,000H,000H,0EEH,044H,048H,050H,070H;K 12
	DB  050H,048H,048H,044H,0EEH,000H,000H

        DB  000H,000H,000H,000H,000H,000H,0F8H,054H;m 13
	DB  054H,054H,054H,054H,0D6H,000H,000H

        DB  000H,000H,000H,000H,000H,000H,0DCH,062H;p 14
	DB  042H,042H,042H,042H,07CH,040H,0E0H

        DB  000H,000H,000H,000H,000H,000H,000H,000H;. 15
	DB  000H,000H,000H,060H,060H,000H,000H

        DB  000H,000H,000H,000H,010H,010H,010H,0FEH;+ 16
	DB  010H,010H,010H,000H,000H,000H,000H

        DB  000H,000H,000H,000H,000H,000H,000H,0FEH;- 17
	DB  000H,000H,000H,000H,000H,000H,000H

        DB  000H,000H,000H,000H,010H,010H,0D6H,038H;* 18
	DB  038H,0D6H,010H,010H,000H,000H,000H

        DB  000H,002H,004H,004H,004H,008H,008H,010H;/ 19
	DB  010H,010H,020H,020H,040H,040H,000H