org 0000h
jmp
henky
org 23h
jmp hao
henky: mov scon,#50h
mov tmod,#20h
mov th1 ,#0fdh
mov pcon,#00h
setb tr1
setb es
setb ea
sjmp $
hao: mov a,sbuf
clr ri
ling: cjne a,#30h,yi
mov p2,#11000000b
clr ri
jmp duo
yi: cjne a,#31h,er
mov p2,#11111001b
clr ri
jmp duo
er: cjne a,#31h,san
mov p2,#11111001b
clr ri
jmp duo
san:
cjne a,#30h,si
mov p2,#11000000b
clr ri
jmp duo
si:
cjne a,#39h,wu
mov p2,#10011000b
clr ri
jmp duo
wu:
cjne a,#34h,duo
mov p2,#10011001b
clr ri
jmp duo
duo:
mov sbuf ,a
jnb TI, $
clr TI
retI
end
No comments:
Post a Comment