MOV XX,#0BAH
ACALL H1
MOV CODE0,#00H
MOV DPTR,#TAB28
MOV XX,#0BCH
ACALL H1
MOV XX,#0BEH
ACALL H1
LCALL DEL
HSJ15: LCALL CLEAR ;第15幅图
MOV CODE0,#00H
MOV DPTR,#TAB29
MOV XX,#0B8H
ACALL H1
MOV XX,#0BAH
ACALL H1
MOV CODE0,#00H
MOV DPTR,#TAB30
MOV XX,#0BCH
ACALL H1
MOV XX,#0BEH
ACALL H1
LCALL DEL
AJMP HSJ1
H1: MOV R7,#02H ;R7=2，显示两页
MOV X,XX ;页
MOV Y,#40H ;列
LP1: MOV COUNT,#64 ;一次送显示64个数据
LCALL DISP
DJNZ R7,ITX1
RET
ITX1: INC XX
MOV X,XX ;页
AJMP LP1
DISP: MOV COM,X ;设置页地址
LCALL INST
MOV COM,Y ;设置列地址
LCALL INST
W: MOV A,CODE0 ;显示数据
MOV C A,@A+DPTR
MOV DAT,A
LCALL DATA_
INC CODE0
DJNZ COUNT,W
RET
INST: LCALL BUSY ;写指令
SETB E
CLR D_I
CLR R_W
MOV DB0_DB7,COM
CLR E
RET
DATA_: LCALL BUSY ;写数据
SETB E
SETB D_I
CLR R_W
MOV DB0_DB7,DAT
CLR E
RET
BUSY: CLR D_I ;测忙
SETB R_W
BUSY1: MOV DB0_DB7,#0FFH
SETB E
MOV A,DB0_DB7
CLR E
JB ACC.7,BUSY1
RET
CLEAR: MOV R4,#00H ;清屏
CLEAR1: MOV A,R4
ORL A,#0B8H
MOV COM,A
ACALL INST
MOV COM,#40H
ACALL INST
MOV R3,#40H
CLEAR2: MOV DAT,#00H
LCALL DATA_
DJNZ R3,CLEAR2
INC R4
CJNE R4,#08H,CLEAR1
RET
INT: MOV COM,#0C0H ;初始化
ACALL INST
MOV COM,#3FH
ACALL INST
RET
;*******延时0.25S********
DEL: MOV R7,#02H
DEL1: MOV R6,#0FFH
DEL2: MOV R5,#0FFH
DJNZ R5,$
DJNZ R6,DEL2
DJNZ R7,DEL1
RET
DEL1S: MOV R0,#0FH
DEL1S1: CALL DEL
DJNZ R0,DEL1S1
RET
TAB1:
DB 00H,00H,00H,00H,00H,00H,00H,00H,38H,78H,0FCH,0FCH,0FEH,0FEH,0FEH,0FEH ;
DB 0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FCH,0FCH,0F8H,78H,00H,00H,00H,00H,00H,00H ;
DB 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H ;
DB 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H ;
DB 00H,00H,00H,00H,00H,00H,80H,80H,80H,80H,80H,0C1H,0C3H,0EFH,0FEH,0FEH ;
DB 0FEH,0FFH,0FFH,0FFH,0FFH,0FEH,0FAH,0F9H,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0BCH,3CH ;
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 下一页
本文关键字：程序 51单片机，单片机-工控设备 - 51单片机
