yejing.txt

大家可以参考下...具体的我还没有调通..有4个错误

;***************THIS IS PROGRAM(12864)****************
;P3.0  P3.1   P3.2    P3.4    P3.5
;WR    RD     C/D     SET     FS1
;*****************************************************
WR  EQU P3.0
RD  EQU P3.1
C/D EQU P3.2
SET EQU P3.4
FS1 EQU P3.5
X   EQU 30H
Y   EQU 31H
;*******************************************************
ORG 0000H
        SETB SET
	MOV R5,#01H
REST:   CLR SET
    	LCALL T1
	SETB SET
	TCALL T1
	DJNZ R5,REST
	SETB WR
	SETB RD
	SETB C/D
	CLR  FS1
;------------INIT SET0
MAIN:LCALL AA3
	MOV P1,#00H
	LCALL DAT
	MOV P1,#00H
	LCALL DAT
	MOV P1,#42H
	LCALL INS
	MOV R6,#40H
;------------CLEAR 00
	MOV P1,#98H
	LCALL INS
MOV P1,#80H
LCALL INS
LCALL AA3
MOV R6,#80H
LOOP1:MOV DPTR,#TAB6
LCALL A5
DJNZ R6,LOOP1
MOV P1,#00H
LCALL DAT
MOV P1,#00H
LCALL DAT
MOV P1,#24H
LCALL INS
MOV P1,#0F0H
LCALL INS
;-------FULL GRAP
MOV P1,#98H
LCALL INS
MOV P1,#80H
LCALL INS
LCALL AA3
MOV R6,#80H
LOOP2:MOV DPTR,#TAB5
LCALL A5
DJNZ R6,LOOP2
;------ONE MEI HUA
MOV P1,#98H
LCALL INS
MOV P1,#80H
LCALL AA3
MOV R6,#40H
LOP:MOV DPTR,#TAP7
LCALL AAA5
DJNZ R6,LOP
;------CLP ONE MEI HUA
MOV P1,#98H
LCALL INS
MOV P1,#80H
LCALL AA3
MOV R6,#40H
LOP24:MOV DPTR,#TAB8
LCALL AAA5
DJNZ R6,LOP24
;------FOUR MEI HUA
CLR FS1
MOV P1,#98H
LCALL INS
MOV P1,#80H
LCALL AA3
MOV R6,#20H
LOP23:MOV DPTR,#TAB9
LCALL AAA6
DJNZ R6,LOP23
;-------CLP FOUR MEI HUA
CLR FSI
MOV P1,#98H
LCALL INS
MOV P1,#80H
LCALL AA3
MOV R6,#20H
LOP22:MOV DPTR,#TAB10
LCALL AAA6
DJNZ R6,LOP22
;---------DISP1,2,3...
;---------SETB IBYTE,CURSOR ON
SETB FS1
MOV P1,#97H
LCALL INS
MOV P1,#80H
LCALL INS
MOV P1,#0A7H
LCALL INS
MOV Y,#00H
LCALL AA1
MOV R6,#10H
LOOP3:MOV DPTR,#TAB1
LCALL AA5
INC Y
DJNZ R6,LOOP3
MOV P1,#27H
LCALL DAT
MOV P1,#0FH
LCALL DAT
MOV P1,#21H
LCALL INS
MOV P1,#00H
LCALL DAT
MOV P1,#10H
LCALL DAT
MOV P1,#24H
LCALL INS
MOV P1,#0FAH
LCALL INS
LCALL T3
;---------SET ATTRBUTE THREE MODE
MOV P1,#98H
LCALL INS
MOV P1,#80H
LCALL INS 
LCALL AA3
MOV R6,#0C8H
LOOP4:MOV P1,#05H
LCALL DAT
MOV P1,#0C0H
LCALL INS
DJNZ R6,LOOP4
MOV R6,#0C8H
LOOP5:MOV P1,#08H
LCALL DAT
MOV P1,#0C0H
LCALL INS
DJNZ R6,LOOP5
MOV R6,#0F0H
LOOP6:MOV P1,#03H
LCALL DAT
MOV P1,#0C0H
LCALL INS
DJNZ R6,LOOP6
MOV P1,#9CH
LCALL INS
MOV P1,#84H
LCALL INS
LCALL T3
LCALL T3
;--------20 CHAR MOVE
MOV R6,#14H
MOV R3,#00H
LOOP7:MOV P1,R3
LCALL DAT
MOV P1,#18H
LCALL DAT
MOV P1,#40H
LCALL INS
INC R3
DJNZ R6,LOOP7
LCALL T3
;---------DISPLAY SHEN ZHEN JING HUA
CLR FS1
LCALL AAAA
MOV P1,#00H
LCALL DAT
MOV P1,#00H
LCALL DAT
MOV P1,#24H
LCALL INS
MOV R6,#80H
MOV DPTR,#TAB11
LOPP2:LCALL ZZZ
DJNZ R6,LOPP2
AJMP MAIN
;----------
ZZZ:CLR A
MOV R5,#1EH
ZZZZ:CLR C/D
CLR A
MOVC A,@A+DPTR
MOV P1,A
CLR WR
SETB WR
LCALL T1
INC DPTR
SET C/D
MOV P1,#0C0H
CLR WR
SETB WR
DJNZ R5,ZZZZ
RET
;****************
DAT:CLR C/D
CLR WR
SETB WR
RET
INS:SETB C/D
CLR WR
SETB WR
LCALL T1
RET
AA1:MOV P1,#0FFH;SET CHAR MODE
LCALL DAT
MOV P1,#17H
LCALL DAT
MOV P1,#40H
LCALL INS
MOV P1,#0FFH
LCALL DAT
MOV P1,#17H
LCALL DAT
MOV P1,#24H
LCALL INS
MOV P1,#28H
LCALL DAT
MOV P1,#00H
LCALL DAT
MOV P1,#41H
LCALL INS
RET
AA3:MOV P1,#00H;SET GRAPHIC MODE
LCALL DAT
MOV P1,#00H
LCALL DAT
MOV P1,#42H
LCALL INS
MOV P1,#00H
LCALL DAT
MOV P1,#00H
LCALL DAT
MOV P1,#24H
LCALL INS
MOV P1,#28H
LCALL DAT
MOV P1,#00H
LCALL DAT
MOV P1,#43H
LCALL INS 
RET
AAAA:MOV P1,#98H
LCALL INS
MOV P1,#80H
LCALL INS
MOV P1,#00H
LCALL DAT
MOV P1,#00H
LCALL DAT
MOV P1,#24H
LCALL INS
MOV P1,#1EH
LCALL DAT
MOV P1,#00H
LCALL DAT
MOV P1,#43H
LCALL INS
RET
AA5:CLR A;MOV 40 BYTE
MOV R5,#28H
MOV X,#00H
CDJ2:CLR A
INC X
MOVC A,@A+DPTR
MOV P1,A
LCALL DAT
MOV P1,#0C0H
INC DPTR
LCALL INS
MOV P1,X
LCALL DAT
MOV P1,Y
LCALL DAT
MOV P1,#21H
LCALL INS
DJNZ R5,CDJ2
RET
;**********
A5:CLR A
MOV R5,#28H
ADJ2:CLR C/D
CLR A
MOVC A,@A+DPTR
MOV P1,A
CLR WR
SETB WR
LCALL T1
INC DPTR
SETB C/D
MOV P1,#0C0H
CLR WR
SETB WR
DJNZ R5,ADJ2
RET
;***************
AAA5:CLR A
MOV R5,#50H
ZDJ2:CLR C/D
CLR A
MOVC A,@A+DPTR
MOV P1,A
CLR WR
SETB WR
LCALL T1
INC DPTR
SETB C/D
MOV P1,#0C0H
CLR WR
SETB WR
DJNZ R5,ZDJ2
RET
;************
AAA6:CLR A
MOV R5,#0AOH
ZDJ6:CLR C/D
CLR A
MOVC A,@A+DPTR
MOV P1,A
CLR WR
SETB WR
LCALL T1
INC DPTR
SETB C/D
MOV P1,#0C0H
CLR WR
SETB WR
DJNZ R5,ZDJ6
RET
;****************
 ;          DELAY 1MS
;*****************
T2:MOV R7,#04H
TTT2:MOV R2,#0FFH
TTT1:DJNZ R2,TTT1
DJNZ R7,TTT2
RET
;*************
;DELAY 64MS
;*************
T3:MOV R7,#0FFH
TTT3:MOV R2,#0FFH
TTT4:DJNZ R2,TTT4
DJNZ R7,TTT3
RET
;**************
; DELAY 0.25MS
;**********
T1:MOV R7,#01H
TT2:MOV R2,#0FH
TT1:DJNZ R2,TT1
DJNZ R7,TT2
RET
;**************
;       DELAY 2S
;***************
T4:MOV R7,#20H
TTTT3:MOV R2,#0FFH
TTTT2:MOV R3,#0FFH
TTTT1:DJNZ R3,TTTT1
DJNZ R2,TTTT2
DJNZ R7,TTTT3
RET
;******************
TAB1:DB 11H,12H,13H,14H,15H,16H,17H,18H
DB 19H,21H,22H,23H,24H,25H,26H,27H
DB 28H,29H,2AH,2BH,2CH,2DH,2EH,2FH
DB 30H,31H,32H,33H,34H,35H,36H,37H
DB 38H,39H,3AH,3BH,3CH,3DH,3EH,3FH
TAB5:DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
TAB6:DB 00H,00H,00H,00H,00H,00H,00H,00H
DB 00H,00H,00H,00H,00H,00H,00H,00H
DB 00H,00H,00H,00H,00H,00H,00H,00H
DB 00H,00H,00H,00H,00H,00H,00H,00H
TAB7:DB 0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
DB 0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
DB 0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
DB 0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
DB 55H,55H,55H,55H,55H,55H,55H,55H,55H,55H
DB 55H,55H,55H,55H,55H,55H,55H,55H,55H,55H
DB 55H,55H,55H,55H,55H,55H,55H,55H,55H,55H
DB 55H,55H,55H,55H,55H,55H,55H,55H,55H,55H
TAB8:DB 55H,55H,55H,55H,55H,55H,55H,55H,55H,55H
DB 55H,55H,55H,55H,55H,55H,55H,55H,55H,55H
DB 55H,55H,55H,55H,55H,55H,55H,55H,55H,55H
DB 55H,55H,55H,55H,55H,55H,55H,55H,55H,55H
DB 0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
DB 0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
DB 0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
DB 0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH,0AAH
TAB9:DB 0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH
DB 0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH
DB 0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH
DB 0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH
DB 0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH
DB 0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH
DB 0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH
DB 0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH
DB 33H,33H,33H,33H,33H,33H,33H,33H,33H,33H
DB 33H,33H,33H,33H,33H,33H,33H,33H,33H,33H
DB 33H,33H,33H,33H,33H,33H,33H,33H,33H,33H
DB 33H,33H,33H,33H,33H,33H,33H,33H,33H,33H
DB 33H,33H,33H,33H,33H,33H,33H,33H,33H,33H
DB 33H,33H,33H,33H,33H,33H,33H,33H,33H,33H
DB 33H,33H,33H,33H,33H,33H,33H,33H,33H,33H
DB 33H,33H,33H,33H,33H,33H,33H,33H,33H,33H
TAB10:DB 33H,33H,33H,33H,33H,33H,33H,33H,33H,33H
DB 33H,33H,33H,33H,33H,33H,33H,33H,33H,33H
DB 33H,33H,33H,33H,33H,33H,33H,33H,33H,33H
DB 33H,33H,33H,33H,33H,33H,33H,33H,33H,33H
DB 33H,33H,33H,33H,33H,33H,33H,33H,33H,33H
DB 33H,33H,33H,33H,33H,33H,33H,33H,33H,33H
DB 33H,33H,33H,33H,33H,33H,33H,33H,33H,33H
DB 33H,33H,33H,33H,33H,33H,33H,33H,33H,33H
DB 0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH
DB 0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH
DB 0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH
DB 0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH
DB 0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH
DB 0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH
DB 0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH
DB 0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH,0CCH
END