MOV SIGN, #0
ACALL TIAOTH
; *****************************************
NET1: MOV A, S1OK
CJNE A, #1, START
MOV A, TEMPUTER
SUBB A, TEMPH
JNB ACC.7, ALEM
MOV A, TEMPUTER
SUBB A, TEMPL
JB ACC.7, ALEM
SETB P2.1
ACALL WENDU
ACALL DISP
MOV S1OK, #00H
AJMP START
ALEM: MOV 36H, #0CH
MOV 37H, #0CH
MOV 38H, #0CH
CLR P2.1
ACALL DISP
ACALL T1S
LCALL WENDU
LCALL DISP
MOV S1OK, #00H
SJMP START
;*****************************************
TIAOTL:MOV 50H, TEMPUTER
MOV 37H, TEMPL
ACALL BIN_BCD
ACALL DISP
ACALL T12MS
ACALL T12MS
ACALL T12MS
ACALL T12MS
MOV 36H, #0AH
MOV 37H, #0AH
MOV 38H, #0AH
ACALL DISP
ACALL T12MS
ACALL T12MS
ACALL T12MS
ACALL T12MS
JB S2, ADD1
ACALL T12MS
JB S2, ADD1
JNB S2, $
INC TEMPL
MOV A, TEMPL
CJNE A, #100, ADD1
MOV TEMPL, #0
ADD1: JB S3, ADD2
ACALL T12MS
&