call again
call delay
jmp trans2
trans2: MOV r0,#09 ;设定呼叫站号
MOV r1,#15
call again
call delay
jmp trans3
trans3: MOV r0,#24 ;设定交谈模式
MOV r1,#05
call again
call delay
jmp scan0
again: MOV a,r0 ;至table1取码
MOV dptr,#table1
MOV c a,@a+dptr
MOV sbuf,a ;发送给tnc
cpl a
MOV p2,a ;输出至p2显示
wait: jbc ti,ok ;发送完毕否?是则跳至ok并清除ti
jmp wait
ok: inc r0 ;取下一个码
djnz r1,again
ret
delay: MOV r5,#200
d1: MOV r6,#248
djnz r6,$
djnz r5,d1
ret
table: db 30h,31h,32h,33h ;0,1,2,3
db 34h,35h,36h,37h ;4,5,6,7
db 38h,39h,41h,42h ;8,9,a,b
db 43h,44h,45h,0dh ;c,d,e,entet
table1: db 4dh,59h,20h,42h ;mybu2FP
db 56h,32h,46h,50h,0dh
db 4dh,59h,43h,41h,4ch,4ch ;mycall bu2fp-1(enter)
db 20h,42h,56h,32h,46h,50h
db 2dh,31h,0dh
db 43h,4fh,4eh,56h,0dh ;conv(enter)
end
上一页 [1] [2]
本文关键字:程序 51单片机,单片机-工控设备 - 51单片机