MOV B,#100
DIV AB
MOV 38H,A
MOV 37H,B
XCH A,B
MOV B,#10
DIV AB
MOV 37H,A
MOV 36H,B
RET
DISP: SETB RS0
MOV R0, #36H
MOV R7, #3
LOOPP:MOV A, @R0
MOV DPTR, #TAB
MOVC A, @A+DPTR
MOV SBUF, A
JNB TI, $
CLR TI
INC R0
DJNZ R7, LOOPP
CLR RS0
RET
TAB: DB 11H, 0D7H, 32H, 92H, 0D4H, 98H, 18H, 0D1H, 10H, 90H ,0FFH, 070H, 0FEH
; 延时子程序
T12MS: SETB RS1
MOV R7, #18H
TM: MOV R6, #0FFH
TM6: DJNZ R6, TM6
DJNZ R7, TM
CLR RS1
RET
; 开机延时程序
T1S: SETB RS1
MOV R6, #3
LSP:ACALL T12MS
DJNZ R6, LSP
CLR RS1
RET
END
