pic单片机驱动SM311电源开关汇编程序

longyi

1. ;LIST P=SM311, CLOCK=4MHZ, WDT=DISBALE,INT=ENABLE
   
2. ;-----------------------------------------------------------
   
3. ;     LOUDOUT  RA0  1             14  RA1  WHITE_BULB
   
4. ;   SIGNAL_IN  RB7  2             13  RA2  BLUE_BULB
   
5. ;        READ  RB6  3             12  RA3  BROWN_BULB
   
6. ;              VDD  4             11  VSS  
   
7. ;          K1  RB5  5             10  RB0  YELLOW_BULB
   
8. ;          K2  RB4  6             9   RB1  BUZ  
   
9. ;       RESET  RB3  7             8   RB2  POWER_CUT  
   
10. ;-----------------------------------------------------------
    
11. INDF            EQU    00H
    
12. TMR0            EQU    01H
    
13. PCL             EQU    02H
    
14. STATUS          EQU    03H
    
15. FSR             EQU    04H
    
16. RA              EQU    05H
    
17. ;-----------------------------------------------------------
    
18. LOUDOUT            EQU    0
    
19. WHITE_BULB        EQU    1
    
20. BLUE_BULB        EQU    2
    
21. BROWN_BULB        EQU    3
    
22. ;-----------------------------------------------------------
    
23. RB              EQU    06H
    
24. ;-----------------------------------------------------------
    
25. YELLOW_BULB            EQU    0
    
26. BUZ                EQU    1
    
27. POWER_CUT        EQU    2
    
28. K2                EQU    4
    
29. K1                EQU    5
    
30. READ                EQU    6
    
31. SIGNAL_IN        EQU    7
    
32. ;-----------------------------------------------------------
    
33. IRQM            EQU    09H
    
34. ;-----------------------------------------------------------
    
35. TM0M            EQU    0
    
36. PBM             EQU    1
    
37. INTM            EQU    7
    
38. ;-----------------------------------------------------------
    
39. IRQF            EQU    0AH
    
40. ;-----------------------------------------------------------
    
41. TM0F            EQU    0
    
42. PBF             EQU    1
    
43. ;-----------------------------------------------------------
    
44. PA_PDM          EQU    0BH
    
45. PB_PUP          EQU    0CH
    
46. PB_PDM          EQU    0DH
    
47. PB_POD          EQU    0EH
    
48. WAKEUP          EQU    0FH
    
49. ;-----------------------------------------------------------
    
50. A               EQU    0
    
51. M               EQU    1  
    
52. ;---STATUS REG----------------------------------------------
    
53. C               EQU    0
    
54. DC              EQU    1
    
55. Z               EQU    2
    
56. PD              EQU    3
    
57. TO              EQU    4
    
58. GP0             EQU    5
    
59. GP1             EQU    6
    
60. GP2             EQU    7
    
61. ;---OPTION REG----------------------------------------------
    
62. PS0             EQU    0
    
63. PS1             EQU    1
    
64. PS2             EQU    2
    
65. PSA             EQU    3
    
66. T0SE            EQU    4
    
67. T0CS            EQU    5
    
68. INTEDG          EQU    6
    
69. ;---PA_PDM REG----------------------------------------------
    
70. DB0                    EQU    0
    
71. DB1                    EQU    1
    
72. DB2                    EQU    2
    
73. EXTEN                  EQU    6
    
74. RTCEN                  EQU    7
    
75. ;---PB_POD REG----------------------------------------------
    
76. OB0                    EQU    0
    
77. OB1                    EQU    1
    
78. OB2                    EQU    2
    
79. OB4                    EQU    4
    
80. OB5                    EQU    5
    
81. OB6                    EQU    6
    
82. OB7                    EQU    7
    
83. ;---WAKEUP REG----------------------------------------------
    
84. EN0                    EQU    0
    
85. EN1                    EQU    1
    
86. EN2                    EQU    2
    
87. EN4                    EQU    4
    
88. EN5                    EQU    5
    
89. EN6                    EQU    6
    
90. EN7                    EQU    7
    
91. ;-----------------------------------------------------------
    
92. ;CONSUMER REGISTER
    
93. ;-----------------------------------------------------------
    
94. MAXDATA              EQU    .250     ; 高低电平宽度最大值
    
95. ;-----------------------------------------------------------
    
96. CODE_TOTAL         EQU          20H
    
97. LCODE           EQU            21H            ; 记录一帧码的低8位数据
    
98. MCODE           EQU            22H            ; 记录一帧码的中8位数据
    
99. HCODE           EQU            23H            ; 记录一帧码的高8位数据                                                            
    
100. ;-----------------------------------------------------------
     
101. LBIT            EQU            25H     ; 记录'0'和'1'码的低电平宽度
     
102. HBIT            EQU           26H     ; 记录'0'和'1'码的高电平宽度
     
103. 
     
104. LCODE_EE         EQU           27H     ; 记录EEPROM低8位数据
     
105. MCODE_EE         EQU           28H     ; 记录EEPROM中8位数据
     
106. HCODE_EE         EQU           29H     ; 记录EEPROM高4位数据
     
107. 
     
108. MODEREG          EQU           2AH     ; 按键定时器
     
109. SHIFT            EQU           2BH
     
110. 
     
111. KEYREG           EQU           2CH
     
112. CNT_LW           EQU           2DH     ; 定时寄存器
     
113. CNT_HI           EQU           2EH
     
114. ;-----------------------------------------------------------
     
115. FRAME            EQU           2FH     ;
     
116. ;-----------------------------------------------------------
     
117. CNT                EQU            30H
     
118. CNT2                EQU            31H
     
119. DEL1                EQU        32H
     
120. CNT_32MS        EQU        33H
     
121. CNT_4S                EQU        34H
     
122. CNT_1M                EQU        35H
     
123. 
     
124. W_REG                EQU        36H
     
125. S_REG                EQU        37H
     
126. R_BUZ                EQU        38H
     
127. ;-----------------------------------------------------------
     
128. LREG                EQU        3DH        ; 手动开关瞬间按灯闪烁顺序
     
129.                                 ; LREG值为"1":白灯亮
     
130.                                 ; LREG值为"2":白灯+蓝灯亮
     
131.                                 ; LREG值为"3":白灯+蓝灯+棕灯亮
     
132.                                 ; LREG值为"4":白灯+蓝灯+棕灯+黄灯亮
     
133. ;-----------------------------------------------------------
     
134. FREG_1            EQU            3EH
     
135. UP_FLAG                EQU        7        ; FREG_1.7 上电标志位。
     
136. DELAY_FLAG         EQU          6        ; FREG_1.6 按键延时1分钟标志
     
137. DELAY200MS_FLAG EQU          5          ; FREG_1.5 延时10秒标志位。  
     
138. REMOTE_FLAG          EQU           4          ; FREG_1.4 遥控按键成功标志位。
     
139. OUT4_FLAG        EQU        3          ; FREG_1.3 4路输出状态标志位。
     
140. OUT3_FLAG        EQU            2          ; FREG_1.2 3路输出状态标志位。
     
141. OUT2_FLAG           EQU            1          ; FREG_1.1 2路输出状态标志位。
     
142. OUT1_FLAG           EQU            0          ; FREG_1.0 1路输出状态标志位。
     
143. ;-----------------------------------------------------------
     
144. FREG_2                EQU        3FH
     
145. R_K1                EQU        0        ;'0'->延时1路输出不闪动,'1'->延时1路输出闪动
     
146. R_K2                EQU        1        ;'0'->四路遥控输出,'1'->三路输出
     
147. R_LOADOUT        EQU        2        ;'0'->无负载输出,'1'->有负载输出
     
148. R_80M                EQU        3        ;80分钟定时器，'0'->
     
149. R_AGAINST        EQU        4        ;'0'->防盗功能未开启,'1'->防盗功能已开启
     
150. R_AGAINST_L1        EQU        5        ;'0'->L1灯闪两次,'1'->L1灯闪一次
     
151. OUT_ONOFF        EQU        6        ;ON/OFF松键标志
     
152. OUT_DLEY        EQU        7        ;DLEAY松键标志
     
153. ;=======================================================
     
154. ;=======================================================
     
155.         ORG     3FFH
     
156.         LGOTO   0X00
     
157.         ORG        0X00
     
158.         LGOTO        BOOT
     
159.         ORG     3FEH
     
160.         LGOTO   INTERRUPT_TMR0
     
161. ;=======================================================
     
162. ;2262,8位地址码
     
163. ;=======================================================
     
164.         ORG        001H
     
165. LOW_ADDRESS:
     
166.         RETLA        0X30
     
167. HIGH_ADDRESS:
     
168.         RETLA        0XEF
     
169. ;========================================================
     
170. ;中断子程序
     
171. ;========================================================
     
172.         ORG        004H
     
173. INTERRUPT_TMR0:
     
174.         MOVAM        W_REG
     
175.         SWAP        STATUS,A
     
176.         MOVAM        S_REG
     
177. 
     
178. INT_TMR0_START:
     
179.         BTSC        IRQF,TM0F
     
180.         LGOTO        INT_TMR0_DEAL
     
181. 
     
182. INT_TMR0_END:
     
183.         BC        IRQF,TM0F
     
184.         SWAP        S_REG,A
     
185.         MOVAM        STATUS
     
186.         SWAP        W_REG,M
     
187.         RETI
     
188.       
     
189. INT_TMR0_DEAL:
     
190.         MOVLA        .250
     
191.         MOVAM        TMR0
     
192.       
     
193.         INC        CNT_32MS,M
     
194.         BTSC        FREG_1,REMOTE_FLAG
     
195.         INC        MODEREG,M        ;按键松键时间寄存器
     
196. 
     
197. ;        BTSC        FREG_1,DELAY200MS_FLAG
     
198. ;        INC        R_BUZ,M
     
199.       
     
200.         MOVLA        .125
     
201.         SUB        CNT_32MS,A
     
202.         BTSS        STATUS,Z
     
203.         LGOTO        INT_TMR0_END
     
204. 
     
205.         CLR        CNT_32MS
     
206.         INC        CNT_4S,M
     
207. ;        MOVLA   .1
     
208.         MOVLA        .15
     
209.         SUB        CNT_4S,A
     
210.         BTSS        STATUS,Z
     
211.         LGOTO        INT_TMR0_END
     
212. 
     
213.         CLR        CNT_4S
     
214.         INC        CNT_1M,M
     
215.         MOVLA        .100                ;80分钟定时器
     
216.         SUB        CNT_1M,A
     
217.         BTSS        STATUS,Z
     
218.         LGOTO        INT_TMR0_END
     
219. 
     
220.         CLR        CNT_32MS
     
221.         CLR        CNT_4S
     
222.         CLR        CNT_1M
     
223.         LGOTO        INT_TMR0_END
     
224. ;=======================================================      
     
225. ;延时子程序
     
226. ;=======================================================
     
227. DELAY:
     
228.        MOVLA    0XFF
     
229.        MOVAM    DEL1
     
230. LOOP_DELAY:
     
231.        CLRWDT
     
232.        LGOTO        $+1
     
233.        LGOTO        $+1
     
234.        LGOTO        $+1
     
235.        LGOTO        $+1
     
236.        LGOTO        $+1
     
237.        DECSZ    DEL1,M
     
238.        LGOTO    LOOP_DELAY
     
239.        RETLA    0X00      
     
240. ;----------------------------------
     
241. DELAY1:
     
242.         LGOTO        $+1                ;2
     
243.         LGOTO        $+1             ;2
     
244. DELAY2: NOP                     ;1
     
245. DELAY3: NOP                     ;1
     
246. DELAY4: NOP                     ;1
     
247. DELAY5: NOP                     ;1
     
248. DELAY6: NOP                     ;1
     
249. DEALY7: LGOTO        $+1             ;2
     
250. DELAY8: NOP                     ;1
     
251. DELAY9: NOP                     ;1
     
252. DEALYA: NOP                     ;1
     
253. DELAYB: NOP                     ;1
     
254.         RETLA   0X00
     
255. ;=======================================================
     
256. ;重新计时子程序
     
257. ;=======================================================
     
258. RESTART_TIME:
     
259.         MOVLA        .250
     
260.         MOVAM        TMR0
     
261.         CLR        CNT_32MS
     
262.         CLR        CNT_4S
     
263.         CLR        CNT_1M
     
264.         RETLA        0X00
     
265. ;=======================================================
     
266. ;L1灯即:WHITE_BULB,闪烁一次子程序
     
267. ;=======================================================
     
268. WHITE_BULB_FLISH:
     
269.         MOVLA        0X02                                ;按键取反让其闪烁
     
270.         XOR        RA,M
     
271. 
     
272.         MOVLA        .168
     
273.         MOVAM        SHIFT
     
274. 
     
275.         MOVLA        .255
     
276.         MOVAM        CNT
     
277.       
     
278.         NOP
     
279.         NOP
     
280.         NOP
     
281.         NOP
     
282.       
     
283.         DECSZ        CNT,M
     
284.         LGOTO        $-3
     
285.       
     
286.         DECSZ        SHIFT,M
     
287.         LGOTO        $-7
     
288. 
     
289.         RETLA        0X00
     
290. ;=======================================================
     
291. ;按键延时1与延时80分钟定时关闭子程序
     
292. ;=======================================================
     
293. TST_KEYDELAY:      
     
294.         MOVLA        .3                        ;去遥控器按键抖动
     
295.         SUB        MODEREG,A                ;松开键
     
296.         BTSS        STATUS,C
     
297.         LGOTO        TST_KEYDELAY_END
     
298.       
     
299.         MOVLA        0X07
     
300.         BTSS        FREG_2,R_K2                ;判断是三路或者是四路遥控
     
301.         MOVLA        0X0F
     
302.         AND        FREG_1,A
     
303.         BTSC        STATUS,Z
     
304.         LGOTO        OPEN_LOAD
     
305.         BC        RA,LOUDOUT
     
306.         LGOTO        LOAD_JUDGE_END
     
307.       
     
308. OPEN_LOAD:
     
309.         BS        RA,LOUDOUT                ;如果没有灯亮，打开负载
     
310.       
     
311. LOAD_JUDGE_END:      
     
312. ;        BTSS        FREG_1,DELAY200MS_FLAG
     
313. ;        LGOTO        BUZ100MS_END
     
314. ;        MOVLA        .7
     
315. ;        SUB        R_BUZ,A
     
316. ;        BTSS        STATUS,C
     
317. ;        LGOTO        OPEN_BUZPRO
     
318. ;        LGOTO        OFF_BUZPRO
     
319.       
     
320. ;OPEN_BUZPRO:
     
321. ;        BS        RB,BUZ
     
322. ;        LGOTO        BUZ100MS_END
     
323. ;OFF_BUZPRO:
     
324. ;        BC        RB,BUZ
     
325. ;        CLR        R_BUZ
     
326. ;        BC        FREG_1,DELAY200MS_FLAG
     
327.       
     
328. ;BUZ100MS_END:
     
329.         BTSS        FREG_1,REMOTE_FLAG        ;遥控成功标志检测，
     
330.         LGOTO        DLEAY_START
     
331.                
     
332. ;        BTSS        FREG_1,DELAY_FLAG
     
333. ;        LGOTO        STATE_BEGIN
     
334. ;
     
335. ;        BTSS        FREG_2,R_K1                ;检测延时L1灯，是否闪烁
     
336. ;        LGOTO        STATE_BEGIN                ;FREG_2.R_K1=0不闪烁
     
337. ;      
     
338. ;        BTSC        FREG_2,R_AGAINST
     
339. ;        LGOTO        STATE_BEGIN                ;当防盗功能开启后灯不用再闪烁
     
340. ;
     
341. ;        BTSC        FREG_1,DELAY200MS_FLAG
     
342. ;        LGOTO        STATE_BEGIN
     
343. ;      
     
344. ;        LCALL        WHITE_BULB_FLISH
     
345. ;        MOVLA        0X02                        ;按键取反让其闪烁停止
     
346. ;        XOR        RA,M
     
347. 
     
348. STATE_BEGIN:
     
349.         LCALL        RESTART_TIME
     
350.         BC        FREG_1,REMOTE_FLAG        ;设置按键松开标志
     
351.                
     
352. 
     
353. DLEAY_START:
     
354.         BTSC        FREG_1,DELAY_FLAG        ;延时按键标志=0
     
355.         LGOTO        DELAY_1M_PRO
     
356.         BTSS        FREG_2,R_AGAINST        ;检测防盗是否开启
     
357.             LGOTO        TST_KEYDELAY_END        ;防盗没有开启，直接返回
     
358.         LGOTO        AGAINST_80M_PRO                ;进入防盗功能子程序
     
359.       
     
360. DELAY_1M_PRO:
     
361.         MOV        CNT_1M,A
     
362.         BTSC        STATUS,Z
     
363.         LGOTO        TST_KEYDELAY_END        ;CNT_1M=0,未到1分钟返回
     
364. 
     
365.         MOVLA        0X1
     
366.         MOVAM        RA
     
367.         CLR        RB
     
368.         MOVLA        0XB0
     
369.         AND        FREG_1,M                ;清除四盏灯的点亮标志,和延时按键标志  
     
370.         LCALL        RESTART_TIME
     
371.         LGOTO        TST_KEYDELAY_END
     
372.       
     
373. AGAINST_80M_PRO:      
     
374.             BTSC        FREG_2,R_80M                ;0->应进入关闭的80分钟,1->应输出全部负载4分钟
     
375.             LGOTO        AGAINST_L1_SHINE4M
     
376. 
     
377.         MOVLA        .80                        ;80分钟定时
     
378. ;       MOVLA   .4
     
379.         SUB        CNT_1M,A      
     
380.         BTSS        STATUS,Z
     
381.         LGOTO        TST_KEYDELAY_END
     
382.       
     
383.           BS        FREG_2,R_80M                ;80分钟,将R_80标志置1,
     
384.           MOVLA        0X0E
     
385.         MOVAM        RA                        ;点亮L1/L2/L3
     
386.         MOVLA   0X0F
     
387.         IOR     FREG_1,A
     
388.         MOVAM   FREG_1
     
389.         LGOTO        AGAINST_L1_SHINE_CHANGE
     
390.          
     
391. AGAINST_L1_SHINE4M:
     
392.         MOVLA        .4
     
393. ;        MOVLA   .1
     
394.         SUB        CNT_1M,A                ;4分钟定时
     
395.         BTSS        STATUS,Z
     
396.         LGOTO        TST_KEYDELAY_END
     
397.       
     
398.         BC        FREG_2,R_80M
     
399.         MOVLA        0X00
     
400.         MOVAM        RA
     
401.         MOVLA        0XF8
     
402.         AND        FREG_1,A                ;清除灯的标志
     
403.         MOVAM        FREG_1
     
404.       
     
405. AGAINST_L1_SHINE_CHANGE:
     
406.         BC        FREG_1,REMOTE_FLAG
     
407.         LCALL        RESTART_TIME
     
408.         LGOTO        TST_KEYDELAY_END
     
409. 
     
410. ;=======================================================
     
411. ;掉电子程序
     
412. ;=======================================================
     
413. POWER_CUT_PRO:
     
414.         MOVLA        00H                ;关闭中断
     
415.         MOVAM        IRQM
     
416. 
     
417.         MOVLA        0X00
     
418.         MOVAM        RA                        ;熄灭白/蓝/棕三盏灯
     
419.         MOVAM        RB                        ;熄灭黄灯
     
420.       
     
421.         MOVLA        .8
     
422.         MOVAM        CNT
     
423.         LCALL        DELAY
     
424.         LCALL        DELAY
     
425.       
     
426.         DECSZ        CNT,M
     
427.         LGOTO        $-3
     
428.       
     
429.                BTSC    RB,POWER_CUT
     
430.         LGOTO        HAND_SWITCH_PRO_END
     
431.       
     
432. POWER_CUT_PRO_LOOP:
     
433.         BTSS        RB,POWER_CUT
     
434.         LGOTO        POWER_CUT_PRO_LOOP
     
435.       
     
436.         BTSS        FREG_1,UP_FLAG                ;检测掉电标志，
     
437.         LGOTO        POWER_CUT_PRO_END        ;"0"表示未掉电,"1"表示掉电
     
438.       
     
439.                INC        LREG,M                        ;手动开关的4个状态
     
440.                MOVLA        .5                        ;四路遥控
     
441.                BTSC        FREG_2,R_K2                ;判断是三路和四路遥控
     
442.                MOVLA        .4                        ;三路遥控
     
443.                SUB        LREG,A
     
444.                BTSS        STATUS,C
     
445.                LGOTO        HAND_SWITCH_PRO
     
446.                MOVLA        .1
     
447.                MOVAM        LREG
     
448.                LGOTO        HAND_SWITCH_PRO
     
449.               
     
450. POWER_CUT_PRO_END
     
451.         BS        FREG_1,UP_FLAG                ;将掉电标志设为"1"
     
452. ;        MOVLA        0X00
     
453. ;        MOVAM        RA                        ;熄灭白/蓝/棕三盏灯
     
454. ;        MOVAM        RB                        ;熄灭黄灯
     
455.         LGOTO        POWER_CUT_PRO_LOOP   
     
456. ;=======================================================
     
457. ;掉电上电后灯状态
     
458. ;=======================================================
     
459. HAND_SWITCH_PRO:
     
460.         BC        FREG_1,UP_FLAG                ;将掉电标志值为"0"
     
461.         BC        FREG_1,DELAY_FLAG        ;清除按键延时标志
     
462.         BC        FREG_2,R_AGAINST
     
463.       
     
464.         MOVLA        .1
     
465.         MOVAM        CNT
     
466.         LCALL        DELAY
     
467.         LCALL        DELAY
     
468.       
     
469.         DECSZ        CNT,M
     
470.         LGOTO        $-3
     
471.       
     
472.         MOVLA        .1
     
473.         SUB        LREG,A
     
474.         BTSC        STATUS,Z
     
475.         LGOTO        SWITCH_1_PRO
     
476. 
     
477.         MOVLA        .2
     
478.         SUB        LREG,A
     
479.         BTSC        STATUS,Z
     
480.         LGOTO        SWITCH_2_PRO
     
481. 
     
482.         MOVLA        .3
     
483.         SUB        LREG,A
     
484.         BTSC        STATUS,Z
     
485.         LGOTO        SWITCH_3_PRO
     
486. 
     
487. ;        MOVLA        0X0E                        ;点亮白/蓝/棕三盏灯
     
488. ;        MOVAM        RA
     
489. ;        MOVLA        0X01                        ;点亮黄灯
     
490. ;        MOVAM   RB
     
491.         BS        RA,WHITE_BULB
     
492.         BS        RA,BLUE_BULB
     
493.         BS        RA,BROWN_BULB
     
494.         BS        RB,YELLOW_BULB
     
495.       
     
496.         MOVLA        0X0F
     
497.         IOR        FREG_1,A
     
498.         MOVAM        FREG_1
     
499.         LGOTO        HAND_SWITCH_PRO_END
     
500.       
     
501. SWITCH_1_PRO:
     
502. ;        MOVLA        0X00
     
503. ;        MOVAM        RB
     
504. ;        MOVLA        0X02
     
505. ;        MOVAM        RA                        ;点亮白灯
     
506.         BS        RA,WHITE_BULB                ;点亮白灯
     
507.         MOVLA        0XF1
     
508.         AND        FREG_1,A
     
509.         MOVAM        FREG_1
     
510.         BS        FREG_1,OUT1_FLAG
     
511.         LGOTO        HAND_SWITCH_PRO_END
     
512.       
     
513. SWITCH_2_PRO:
     
514. ;        MOVLA        0X00
     
515. ;        MOVAM        RB
     
516. ;        MOVLA        0X06                        ;点亮白/蓝两盏灯
     
517. ;        MOVAM        RA
     
518.         BS        RA,WHITE_BULB                ;点亮白/蓝两盏灯
     
519.         BS        RA,BLUE_BULB
     
520.         MOVLA        0XF3
     
521.         AND        FREG_1,A
     
522.         MOVAM        FREG_1
     
523.         MOVLA        0X03
     
524.         IOR        FREG_1,A
     
525.         MOVAM        FREG_1
     
526.         LGOTO        HAND_SWITCH_PRO_END
     
527.       
     
528. SWITCH_3_PRO:
     
529. ;        MOVLA        0X00
     
530. ;        MOVAM        RB
     
531. ;        MOVLA        0X0E                        ;点亮白/蓝/棕三盏灯
     
532. ;        MOVAM        RA
     
533.         BS        RA,WHITE_BULB
     
534.         BS        RA,BLUE_BULB
     
535.         BS        RA,BROWN_BULB
     
536.         BC        FREG_1,OUT4_FLAG
     
537.         MOVLA        0X07
     
538.         IOR        FREG_1,A
     
539.         MOVAM        FREG_1
     
540.         LGOTO        HAND_SWITCH_PRO_END
     
541.       
     
542. HAND_SWITCH_PRO_END:
     
543.         BTSC        FREG_1,OUT1_FLAG
     
544.         BS        RA,WHITE_BULB
     
545.         BTSC        FREG_1,OUT2_FLAG
     
546.         BS        RA,BLUE_BULB
     
547.         BTSC        FREG_1,OUT3_FLAG
     
548.         BS        RA,BROWN_BULB
     
549.         BTSC        FREG_1,OUT4_FLAG
     
550.         BS        RB,YELLOW_BULB
     
551.         LCALL        RESTART_TIME
     
552.         MOVLA        81H
     
553.         MOVAM        IRQM
     
554.         LGOTO        MAIN
     
555. ;=======================================================
     
556. ;接收读码器发送的码型
     
557. ;=======================================================
     
558. RX:
     
559.         CLR        LBIT
     
560.       
     
561. REC_LOW_LEVEL:                                ;接收电平信号，并记录其宽度
     
562.         BTSC        RB,READ               
     
563.         LGOTO        RX_TOTAL
     
564.         DECSZ        LBIT,M                        ;所接收到的为，2262，A0低电平宽度
     
565.         LGOTO        REC_LOW_LEVEL
     
566.       
     
567. RX_ERROR:                                ; STATUS.C=1,返回错误信息。
     
568.         BS        STATUS,C
     
569.         RETLA        0X00
     
570.       
     
571. ;----------------------------------      
     
572. RX_TOTAL:
     
573.         MOVLA        0X08
     
574.         MOVAM         CNT
     
575.       
     
576. RX_LOOP:      
     
577.         CLR        HBIT
     
578.       
     
579. RX_HIGH_LEVEL:      
     
580.         BTSS        RB,READ
     
581.         LGOTO        RX_JUDGE
     
582.         DECSZ        HBIT,M                        ;记录高电平的宽度
     
583.         LGOTO        RX_HIGH_LEVEL
     
584.         LGOTO        RX_ERROR
     
585.       
     
586. RX_JUDGE:      
     
587.         MOV        LBIT,A
     
588.         SUB        HBIT,A                        ;HBIT>LBIT,则:A=1
     
589.         RR        MCODE,M
     
590.         RR        LCODE,M
     
591.         CLR        HBIT
     
592.       
     
593. RX_LOW_LEVEL:                                ;低电平持续时间检测
     
594.         BTSC        RB,READ
     
595.         LGOTO        RX_JUDGE_1                ;高电平，跳转RX_JUDGE_1
     
596.         DECSZ        HBIT,M
     
597.         LGOTO        RX_LOW_LEVEL
     
598.         LGOTO        RX_ERROR                ;低电平时间过长，错误返回。
     
599.       
     
600. RX_JUDGE_1:      
     
601.         MOV        LBIT,A
     
602.         SUB        HBIT,A
     
603.         RR        MCODE,M
     
604.         RR        LCODE,M
     
605.         DECSZ        CNT,M
     
606.         LGOTO        RX_LOOP
     
607. RX_OK:   
     
608.         BC        STATUS,C
     
609.         RETLA        0X00
     
610.       
     
611. ;=======================================================
     
612. ;发送码型给外在读码器
     
613. ;=======================================================
     
614. TX:  
     
615.                BS      RB,READ
     
616.                MOVLA   0X84
     
617.                IODIR   RB
     
618.                MOVLA   0X07
     
619.                MOVAM   CNT
     
620.                BC      RB,READ
     
621.                LCALL   DELAY9
     
622.                DECSZ   CNT,M
     
623.                LGOTO   $-2
     
624.                BS      RB,READ
     
625.                MOVLA   0X10
     
626.                MOVAM   CNT
     
627. BIT_OUT:
     
628.                MOVLA   0X03
     
629.                BTSC    LCODE,0
     
630.                MOVLA   0X09
     
631.                MOVAM   CNT2
     
632.                RR      MCODE,M
     
633.                RR      LCODE,M
     
634. 
     
635.                LCALL   DELAY9
     
636.                DECSZ   CNT2,M
     
637.                LGOTO   $-2
     
638. 
     
639.         CLRWDT
     
640.                MOVLA   0X40
     
641.                XOR     RB,M
     
642.                DECSZ   CNT,M
     
643.                LGOTO   BIT_OUT
     
644.                LCALL   DELAY1
     
645.                RETLA   0X00      
     
646. ;=======================================================
     
647. ;程序开始
     
648. ;=======================================================  
     
649. BOOT:
     
650.         MOVLA        0X80
     
651.         MOVAM        FREG_1                        ;上电时，将上电标志置"1"
     
652. 
     
653.         CLR     CNT_32MS
     
654.         CLR        CNT_4S
     
655.         CLR        CNT_1M
     
656.         CLR     LREG
     
657. 
     
658.         CLR        RA
     
659.         MOVLA        0X00                        ;RA0上电检测/RA1白灯/RA2蓝灯/RA3棕灯
     
660.         IODIR        RA
     
661.         CLR     RB
     
662.         MOVLA        0XF4                        ;RB6读码输入/R7信号输入/R2电源检测
     
663.         IODIR        RB
     
664. 
     
665. ;        MOVLA        0X04                        B2 掉电检测下拉
     
666. ;        MOVAM        PB_PDM               
     
667. ;        MOVLA        0X70                        ;RB6 读码上拉
     
668. ;        MOVAM        PB_PUP
     
669. 
     
670.         MOVLA        0X74                        ;RB6 读码上拉
     
671.         MOVAM        PB_PUP
     
672. 
     
673.         LCALL          DELAY
     
674.         LCALL          DELAY
     
675.         LCALL          DELAY
     
676.         LCALL          DELAY
     
677.         LCALL          DELAY
     
678.         LCALL          DELAY
     
679.         LCALL          DELAY
     
680.         LCALL          DELAY
     
681.         LCALL          DELAY
     
682.         LCALL          DELAY
     
683.         LCALL          DELAY
     
684.         LCALL          DELAY
     
685.         LCALL          DELAY
     
686.         LCALL          DELAY
     
687.         BTSS           RB,READ
     
688.         LGOTO        SEND_CODE_PRO
     
689. 
     
690. BOOT_CONTR:
     
691. 
     
692.         CLR     RB
     
693.         MOVLA        0XF4                        ;RB6读码输入/R7信号输入/R2电源检测
     
694.         IODIR        RB
     
695. 
     
696.         CLR        FREG_2
     
697.       
     
698.         MOVLA        0X02                        ;三路
     
699.         BTSS        RB,K2                        ;三路遥控或四路遥控选择
     
700.         MOVLA        0X00                        ;四路
     
701.         MOVAM        FREG_2
     
702. 
     
703.         MOVLA        0X01                        ;L1闪烁
     
704.         BTSS        RB,K1                        ;延时,L1灯是否闪烁
     
705.         MOVLA        0X00                        ;L1不闪烁
     
706.         IOR        FREG_2,A
     
707.         MOVAM        FREG_2
     
708.       
     
709.         MOVLA   .250
     
710.         MOVAM   TMR0
     
711.         MOVLA        0XC6                        ;1:128分频
     
712.         SELECT
     
713.         MOVLA        81H
     
714.         MOVAM        IRQM
     
715.         BS        RA,WHITE_BULB
     
716.         INC        LREG,M                        ;手动开关的4个状态
     
717.         BS        FREG_1,OUT1_FLAG
     
718. ;=======================================================         
     
719. MAIN:      
     
720.         LGOTO   TST_KEYDELAY
     
721. 
     
722. TST_KEYDELAY_END:
     
723.         LCALL   RECEIVE_2262
     
724.         BTSS        STATUS,C
     
725.         LGOTO        M_COMPARE
     
726. 
     
727.         BTSS        RB,POWER_CUT                ;如上电状态断电状态则，
     
728.         LGOTO        POWER_CUT_PRO                ;进入断电状态子程序
     
729.       
     
730.         LGOTO        MAIN      
     
731. ;=======================================================
     
732. ;HS2262, 接收,用两个位标识2262中的一个位，因有"F"码存在
     
733. ;=======================================================
     
734. RECEIVE_2262:
     
735.         BTSS        RB,SIGNAL_IN
     
736.         LGOTO   RECEIVE_2262_ERROR_END
     
737.         CLR     CODE_TOTAL
     
738.         CLR     HBIT
     
739.       
     
740. RECEIVE_2262_HIGH:
     
741.              INC     HBIT,M
     
742.              MOVLA   MAXDATA
     
743.              SUB     HBIT,A
     
744.              BTSC    STATUS,C
     
745.              LGOTO   RECEIVE_2262_ERROR_END           
     
746.              BTSC    RB,SIGNAL_IN
     
747.              LGOTO   RECEIVE_2262_HIGH  
     
748.             
     
749.              CLR     LBIT
     
750. 
     
751. RECEIVE_2262_JUDGE:
     
752.              INC     CODE_TOTAL,M
     
753.              MOVLA   .25
     
754.              SUB     CODE_TOTAL,A
     
755.              BTSC    STATUS,Z
     
756.              LGOTO   RECEIVE_2262_END
     
757.             
     
758. RECEIVE_2262_LOW:
     
759.              INC     LBIT,M
     
760.              MOVLA   MAXDATA
     
761.              SUB     LBIT,A
     
762.              BTSC    STATUS,C
     
763.              LGOTO   RECEIVE_2262_ERROR_END
     
764.              BTSS    RB,SIGNAL_IN
     
765.              LGOTO        RECEIVE_2262_LOW
     
766. 
     
767.              MOV     LBIT,A
     
768.              SUB     HBIT,A
     
769.              RR      HCODE,M
     
770.              RR      MCODE,M
     
771.              RR      LCODE,M
     
772.              CLR     HBIT
     
773.              LGOTO   RECEIVE_2262_HIGH
     
774. 
     
775. RECEIVE_2262_ERROR_END:
     
776.              BS      STATUS,C                ;通过STATUS.C位置，来判断是否有遥控，或解码是否真确
     
777.              RETLA   0X00                        ;"1",表示不正确
     
778. RECEIVE_2262_END:     
     
779.              BC      STATUS,C                ;STATUS.C=0，解码成功
     
780.              RETLA   0X00
     
781. ;=======================================================
     
782. ;接收到的2262码型进行比较
     
783. ;=======================================================
     
784. M_COMPARE:
     
785.         MOV     HCODE,A
     
786.         MOVAM   KEYREG
     
787. 
     
788.         LCALL   LOW_ADDRESS
     
789.         XOR     LCODE,A
     
790.         BTSS    STATUS,Z
     
791.         LGOTO   MAIN
     
792. 
     
793.         LCALL   HIGH_ADDRESS
     
794.         XOR     MCODE,A
     
795.         BTSS    STATUS,Z
     
796.         LGOTO   MAIN
     
797. 
     
798. REMOTE_KEY_JUDGE:
     
799.         CLR        MODEREG
     
800. ;        CLR        R_BUZ
     
801.         BTSC    FREG_1,REMOTE_FLAG
     
802.         LGOTO   MAIN
     
803.         BS        FREG_1,REMOTE_FLAG
     
804. ;        BS        FREG_1,DELAY200MS_FLAG
     
805. 
     
806.         MOVLA   0XC0                        ;按键"A"，键值"1",两位标识即="0XC0"
     
807.         XOR     KEYREG,A
     
808.         BTSC    STATUS,Z
     
809.         LGOTO   KEY1_PRO
     
810. 
     
811.         MOVLA   0X03                        ;按键"B"，键值"8",两位标识即="0X03"
     
812.         XOR     KEYREG,A
     
813.         BTSC    STATUS,Z
     
814.         LGOTO   KEY2_PRO
     
815. 
     
816.         MOVLA   0X0C                        ;按键"C"，键值"4",两位标识即="0X0C"
     
817.         XOR     KEYREG,A
     
818.         BTSC    STATUS,Z
     
819.         LGOTO   KEY3_PRO
     
820. 
     
821.         MOVLA   0XCC                        ;按键"D"，键值"5",两位标识即="0XCC"
     
822.         XOR     KEYREG,A
     
823.         BTSC    STATUS,Z
     
824.         LGOTO   KEY4_PRO
     
825. 
     
826.         MOVLA        0X30                        ;按键"ON/OFF"，键值"2",两位标识即="0X30"
     
827.         XOR        KEYREG,A
     
828.         BTSC        STATUS,Z
     
829.         LGOTO        KEY5_ON0FF_PRO
     
830. 
     
831.         MOVLA   0X0F                        ;按键"延时"或者"按键(B+C)"，键值"5",两位标识即="0X0F"
     
832.         XOR     KEYREG,A
     
833.         BTSC    STATUS,Z
     
834.         LGOTO   KEY6_DELAY_PRO
     
835.         LGOTO   MAIN
     
836. ;=======================================================
     
837. ;遥控按键， 遥控功能处理
     
838. ;=======================================================
     
839. KEY1_PRO:
     
840. ;        LCALL        BUZZ_200MS
     
841. ;        BS        FREG_1,DELAY200MS_FLAG
     
842.         BC        FREG_1,DELAY_FLAG        ;清除按键延时标志
     
843.         BC        FREG_2,R_AGAINST
     
844.         BTSS        FREG_1,OUT1_FLAG
     
845.         LGOTO        WHITE_BULB_ON
     
846.       
     
847.         BC        RA,WHITE_BULB
     
848.         BC        FREG_1,OUT1_FLAG
     
849.         LGOTO        MAIN
     
850.       
     
851. WHITE_BULB_ON:
     
852.         BS        RA,WHITE_BULB
     
853.         BS        FREG_1,OUT1_FLAG
     
854.         LGOTO        MAIN
     
855. ;----------------------------------      
     
856. KEY2_PRO:
     
857. ;        LCALL        BUZZ_200MS
     
858. ;        BS        FREG_1,DELAY200MS_FLAG
     
859.         BC        FREG_1,DELAY_FLAG        ;清除按键延时标志
     
860.         BC        FREG_2,R_AGAINST
     
861.         BTSS        FREG_1,OUT2_FLAG
     
862.         LGOTO        BLUE_BULB_ON
     
863. 
     
864.         BC        RA,BLUE_BULB
     
865.         BC        FREG_1,OUT2_FLAG
     
866.         LGOTO        MAIN
     
867.       
     
868. BLUE_BULB_ON:
     
869.         BS        RA,BLUE_BULB
     
870.         BS        FREG_1,OUT2_FLAG
     
871.         LGOTO        MAIN
     
872. ;----------------------------------      
     
873. KEY3_PRO:
     
874. ;        LCALL        BUZZ_200MS
     
875. ;        BS        FREG_1,DELAY200MS_FLAG
     
876.         BC        FREG_1,DELAY_FLAG        ;清除按键延时标志
     
877.         BC        FREG_2,R_AGAINST
     
878.         BTSS        FREG_1,OUT3_FLAG
     
879.         LGOTO        BROWN_BULB_ON
     
880. 
     
881.         BC        RA,BROWN_BULB
     
882.         BC        FREG_1,OUT3_FLAG
     
883.         LGOTO        MAIN
     
884.       
     
885. BROWN_BULB_ON:
     
886.         BS        RA,BROWN_BULB
     
887.         BS        FREG_1,OUT3_FLAG
     
888.         LGOTO        MAIN
     
889. ;----------------------------------
     
890. KEY4_PRO:
     
891. ;        LCALL        BUZZ_200MS
     
892.         BC        FREG_1,DELAY_FLAG        ;清除按键延时标志
     
893.         BTSC        FREG_2,R_K2                ;"三路"或"四路"电路判断
     
894.         LGOTO        AGAINST_THEFT_PR0        ;进入"三路电路"防盗键程序
     
895.         BC        FREG_2,R_AGAINST
     
896.         BTSS        FREG_1,OUT4_FLAG
     
897.         LGOTO        YELLOW_BULB_ON
     
898. 
     
899.         BC        RB,YELLOW_BULB
     
900.         BC        FREG_1,OUT4_FLAG
     
901. ;        BS        FREG_1,DELAY200MS_FLAG
     
902.         LGOTO        MAIN
     
903.       
     
904. YELLOW_BULB_ON:      
     
905.         BS        RB,YELLOW_BULB
     
906.         BS        FREG_1,OUT4_FLAG
     
907. ;        BS        FREG_1,DELAY200MS_FLAG
     
908.         LGOTO        MAIN
     
909.       
     
910. AGAINST_THEFT_PR0:
     
911.         BTSC        FREG_2,R_AGAINST
     
912.         LGOTO        AGAINST_THEFT_OFF
     
913.         LCALL        WHITE_BULB_FLISH
     
914.         LCALL        WHITE_BULB_FLISH
     
915.         LCALL        WHITE_BULB_FLISH
     
916.         MOVLA        0X02                        ;按键取反让其闪烁停止
     
917.         XOR        RA,M      
     
918.       
     
919.         MOVLA        0X07                        ;FREG_1,OUT1_FLAG/2/3/4
     
920.         AND        FREG_1,A                ;判断是否有负载输出
     
921.         BTSS        STATUS,Z
     
922.         BS        FREG_1,DELAY_FLAG        ;表有负载输出,延时1分钟后关闭
     
923.         BS        FREG_2,R_AGAINST
     
924.         LGOTO        AGAINST_THEFT_PR0_END
     
925.       
     
926. AGAINST_THEFT_OFF:
     
927.         LCALL        WHITE_BULB_FLISH
     
928.         MOVLA        0X02                        ;按键取反让其闪烁停止
     
929.         XOR        RA,M
     
930.         BC        FREG_2,R_AGAINST
     
931.         LGOTO        AGAINST_THEFT_PR0_END
     
932.       
     
933. AGAINST_THEFT_PR0_END:
     
934. ;        LCALL        RESTART_TIME
     
935.         CLR        MODEREG
     
936. ;        CLR        R_BUZ
     
937. ;        BS        FREG_1,DELAY200MS_FLAG
     
938.         LGOTO        MAIN
     
939. ;----------------------------------
     
940. KEY5_ON0FF_PRO:
     
941. ;        LCALL        BUZZ_200MS
     
942. ;        BS        FREG_1,DELAY200MS_FLAG
     
943.         BC        FREG_1,DELAY_FLAG        ;清除按键延时标志
     
944.         BC        FREG_2,R_AGAINST
     
945.         MOVLA        0X0F                        ;FREG_1,OUT1_FLAG/2/3/4
     
946.         AND        FREG_1,A
     
947.         BTSS        STATUS,Z
     
948.         LGOTO        WHOLE_BULB_OFF                ;只要有一盏灯亮，则跳，全熄灭
     
949. 
     
950.       
     
951.         MOVLA        0X0E                        ;点亮白/蓝/棕三盏灯,关闭负载
     
952.         MOVAM        RA
     
953.         MOVLA        0X00
     
954.         BTSS        FREG_2,R_K2
     
955.         MOVLA        0X01                        ;点亮黄灯
     
956.         MOVAM        RB
     
957.         MOVLA        0X0F
     
958.         IOR        FREG_1,M                ;打开四盏灯的点亮标志      
     
959.         LGOTO        MAIN
     
960.       
     
961. WHOLE_BULB_OFF:
     
962.         MOVLA        0X01
     
963.         MOVAM        RA                        ;熄灭白/蓝/棕三盏灯
     
964.         CLR        RB                        ;熄灭黄灯
     
965.         MOVLA        0XF0
     
966.         AND        FREG_1,M                ;清除四盏灯的点亮标志
     
967.         LGOTO        MAIN
     
968. ;----------------------------------
     
969. KEY6_DELAY_PRO:
     
970. ;        LCALL        BUZZ_200MS
     
971.         BC        FREG_2,R_AGAINST
     
972. ;        BS        FREG_1,DELAY200MS_FLAG
     
973.         BS        FREG_1,DELAY_FLAG        ;按键延时标志
     
974. 
     
975.         BTSS        FREG_2,R_K1                ;检测延时L1灯，是否闪烁
     
976.         LGOTO        STATE_BEGIN                ;FREG_2.R_K1=0不闪烁
     
977.       
     
978.         LCALL        WHITE_BULB_FLISH
     
979.         MOVLA        0X02                        ;按键取反让其闪烁停止
     
980.         XOR        RA,M
     
981. 
     
982.         CLR        MODEREG
     
983.       
     
984.         LGOTO        MAIN
     
985. ;=======================================================
     
986. ;读码子程序
     
987. ;=======================================================
     
988. SEND_CODE_PRO:
     
989.                MOVLA   0XC4                        ;0010,0011,READ脚设置输入
     
990.                IODIR   RB
     
991.                LGOTO   $+1
     
992. 
     
993.                BTSC    RB,READ                        ;检测低电平，高电平跳出
     
994.                LGOTO   $-1
     
995. 
     
996.                BTSS    RB,READ                        ;检测高电平，低电平跳出
     
997.                LGOTO   $-1
     
998. 
     
999.                MOVLA   0X84                        ;0010,0001,READ脚设置输输出
     
1000.                IODIR   RB
      
1001.                BC      RB,READ                        ;输出电平信号，给读码器件
      
1002.                MOVLA   0X21                        ;低电平延时33(21H)*3指令周期
      
1003.                MOVAM   CNT
      
1004. 
      
1005.                DECSZ   CNT,M
      
1006.                LGOTO   $-1
      
1007. 
      
1008.                MOVLA   0XC4                        ;1000,1100,READ脚设置输入      
      
1009.                IODIR   RB
      
1010.               
      
1011.                MOVLA   0X14                        ;20(14H)*5个指令周期是否接收
      
1012.                MOVAM   CNT                        ;到读码器发送出的高电平
      
1013.                BTSS    RB,READ
      
1014.                LGOTO   READ_CODE_SEND
      
1015.               
      
1016.                DECSZ   CNT,M
      
1017.                LGOTO   $-3
      
1018.                LGOTO   SEND_CODE_PRO                ;20*5指令周期未能收到高电平，返回重读
      
1019.               
      
1020. READ_CODE_SEND:                                       
      
1021.                BTSS    RB,READ                        ;检测低电平，高电平逃过
      
1022.                LGOTO   $-1                        ;其高电平为2262,A0
      
1023. 
      
1024.                BTSC    RB,READ                        ;检测高电平，低电平跳过
      
1025.                LGOTO   $-1                        ;其低电平为2262,A0
      
1026. 
      
1027.                LCALL   RX
      
1028.                BTSC    STATUS,C
      
1029.                LGOTO   SEND_CODE_PRO
      
1030. 
      
1031.         BTSS    RB,READ                        ;检测高电平，低电平跳出
      
1032.                LGOTO   $-1
      
1033.               
      
1034.         MOVLA        0X00
      
1035.                MOVAM        RB
      
1036.                MOVLA   0X84
      
1037.         IODIR   RB
      
1038.       
      
1039.                MOVLA   0XA3
      
1040.                XOR     LCODE,C
      
1041.                BTSS    STATUS,Z
      
1042.                LGOTO   SEND_CODE_PRO
      
1043. 
      
1044.                LCALL   DELAY1
      
1045. 
      
1046.                LCALL   LOW_ADDRESS
      
1047.                MOVAM   LCODE
      
1048.                LCALL   HIGH_ADDRESS
      
1049.                MOVAM   MCODE
      
1050.               
      
1051.                LCALL   TX
      
1052.         LGOTO   BOOT_CONTR
      
1053. ;=======================================================
      
1054. END
      
1055. ;=======================================================

复制代码