MOV TMOD,#20H
MOV TH1, #-3
MOV SCON, #50H
SETB TR1
AGAIN: MOV A, # "M"
ACALL TRANS
MOV A, #"S"
ACALL TRANS
MOV A, #"B"
ACALL TRANS
MOV A, #"T"
ACALL TRANS
MOV A "E"
A CALL TRANS
SJMP AGAIN
TRANS: MOV SBUF, A
HERE: JNB T1, HERE
CLR T1
RET
END
MOV TMOD,#20H
MOV TH1, #-3
MOV SCON, #50H
SETB TR1
AGAIN: MOV A, # "M"
ACALL TRANS
MOV A, #"S"
ACALL TRANS
MOV A, #"B"
ACALL TRANS
MOV A, #"T"
ACALL TRANS
MOV A "E"
A CALL TRANS
SJMP AGAIN
TRANS: MOV SBUF, A
HERE: JNB T1, HERE
CLR T1
RET
END