CLR P1.1
LCALL DEL 调用延时子程序
SETB P1.1
MOV A,R5
MOVC A,@A+DPTR 查得字形码
MOV P2,A
CLR P1.2
LCALL DEL
SETB P1.2
MOV A,R6
MOVC A,@A+DPTR
MOV P2,A
CLR P1.3
LCALL DEL
SETB P1.3
RET
KG:CLR TR0 ;
CLR ET0
S2:LCALL XS
JB P3.3,S2 ;P3.3
SETB TR0 ;
SETB ET0
RETI
DEL:
MOV R1,#10
DE:MOV R2,#60
DJNZ R2,$ 调用延时子程序 查得字形码 调用延时子程序 关闭定时器0 为跳转到S2 开定时器0 延时函数