超声波232译码器.xls

1 ;ID=超声波232译码器20101111功能:232扫描,0-1米输出0-5V,LED驱动
0x0 ;P51-57为七段驱动,P66`67位驱动。
3 add a,***@0xff
4 add a,***@0xff
5 jmp home
0x8
7 ks nop
8 jmp ks
9 home: call L0
10 disi
11 ZCX: wdtc ;P51-57为七段驱动,P66`67位驱动。
12 inc 0x16
13 mov a,***@8
14 sub a,0x16
15 jbs 3,0
16 jmp ZCX1
17 clr 0x16
18 call P50_cy ;,
19 call P50_cyok
20 ZCX1 call out_P63 ;P63:0-5V=0-1米.
21 call out_P63XM ;P63输出项目提取,
22 call XS ;显示0-5米:
23 call time ;计时:R21=100us
24 jmp ZCX ;R22=10ms;R23=1s
25 ;------232采样---------------------
26 P50_cy jbs 0x5,0
27 jmp P50_L ;P50低电平采样支路,
28 inc 0x14 ;P50高电平采样去路,
29 mov a,***@200 ;,
30 sub a,0x14 ;,
31 jbs 3,0 ;,
32 ret
33 clr 0x2f
34 ret
35 P50_L jbc 0x2f,0
36 ret
37 mov a,***@1
38 mov 0x1f,0
39 ret
40 ;------232正式开工采样---------------------
41 P50_cyok jbs 0x1f,0 ;开始记录波,
42 ret
43 inc 0x15
44 jbs 5,0 ;低电平不用进行,
45 ret ;据R15=,
46 mov a,0x15
47 tbl
48 jmp R11_0
49 jmp R11_1
50 jmp R11_2
51 jmp R11_3
52 ret
53 ret
54 ret
55 ret
56 ret
57 jmp R12_0
58 jmp R12_1
59 jmp R12_2
60 jmp R12_3
61 ret
62 ret
63 ret
64 ret
65 ret
66 jmp R13_0
67 jmp R13_1
68 jmp R13_2
69 jmp R13_3
70 ret
71 ret
72 ret
73 ret
74 ret
75 clr 0x15 ;任务完成,清场,
76 clr 0x1f
77 ret
78 R11_0 bs 0x11,0 ;注意清0 ,
79 ret
80 R11_1 bs 0x11,1
81 ret
82 R11_2 bs 0x11,2
83 ret
84 R11_3 bs 0x11,3
85 ret
86 R12_0 bs 0x12,0 ;注意清0 ,
87 ret
88 R12_1 bs 0x12,1
89 ret
90 R12_2 bs 0x12,2
91 ret
92 R12_3 bs 0x12,3
93 ret
94 R13_0 bs 0x13,0 ;注意清0 ,
95 ret
96 R13_1 bs 0x13,1
97 ret
98 R13_2 bs 0x13,2
99 ret
100 R13_3 bs 0x13,3
101 call XS_xm ;显示项目,在采样结束后执行,
102 ret
103 ;--------P63:0-5V=0-1米.--0-100ms占空比------
104 out_P63 djz 0x2a
105 jmp out_P63a
106 inc 0x2a
107 bc 0x6,3
108 ret
109 out_P63a bs 0x6,3
110 ret
111 ;--------P63:0-5V=0-1米.--0-100ms占空比100ms进入一次提取------
112 out_P63XM mov a,***@10
113 sub a,0x1