⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 mjasms.lst

📁 实现短消息发送报警功能
💻 LST
📖 第 1 页 / 共 2 页
字号:
0248  F6                		MOV		@R0,A
0249  08                		INC		R0
024A  DAF3              		DJNZ	R2,SS_41		
024C  120320               		lCALL	CHECK
024F  301713                    JNB		chr_OK,SS_6
0252  120349                 	lCALL	DELAY10MS
                          ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;      
0255  7860                      MOV     R0,#BUF_SEND
0257  9003C8                    MOV     DPTR,#TABLE_zhong
025A  7A37                      MOV     R2,#55
025C                    SS_5:
025C  E4                        CLR     A
025D  93                        MOVC    A,@A+DPTR
025E  F6                        MOV	    @R0,A
025F  A3                        INC     DPTR
0260  08                        INC     R0
0261  DAF9                      DJNZ    R2,SS_5
0263  00                		NOP
0264  00                		NOP
0265                    SS_6:
0265  7860                      MOV     R0,#BUF_SEND
0267  7A37                      MOV     R2,#55
0269  1202D3                    lCALL 	ATSEND   
026C  7880              		MOV		R0,#BUF_DATA
026E  7A0A              		MOV		R2,#10
                        		
0270                    SS_61:	
0270  1202B4            		lCALL	WAIT_RI
0273  40F0              		JC		SS_6
0275  C298              		CLR		RI
0277  E599              		MOV		A,SBUF
0279  F6                		MOV		@R0,A
027A  08                		INC		R0
027B  DAF3              		DJNZ	R2,SS_61
027D  120320                    lCALL	CHECK
0280  3017E2                    JNB		chr_OK,SS_6
0283  120349                    lCALL	DELAY10MS
0286  22                        ret
                                
                           

                         

                        ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;        
                        ;串口中断        
                        ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;        
0287                    INT_232:
0287  C2AC                  	CLR 	ES                      ;关闭串口中断
0289  C0E0              		PUSH 	ACC						;保护现场
028B  C0D0              		PUSH 	PSW
028D  C082              		PUSH	DPL
028F  C083              		PUSH	DPH
                                ;--选择1号工作区
0291  D2D3                      SETB 	RS0
0293  C2D4                      CLR 	RS1
0295  20980F                    JB 		RI,I_232_RCV
0298                    I_232_EOF:
0298  C2D3                      CLR 	RS0
029A  C2D4                      CLR 	RS1
029C  D083              		POP		DPH
029E  D082              		POP		DPL
02A0  D0D0              		POP 	PSW							;恢复现场
02A2  D0E0              		POP 	ACC
02A4  D2AC                      SETB 	ES                         	;开放串口中断
02A6  32                        RETI
02A7                    I_232_RCV:
02A7  E599              		MOV		A,SBUF				
02A9  C298              		CLR		RI

02AB  B400EA            		CJNE	A,#00H,I_232_EOF
02AE  1202B4            		lCALL	WAIT_RI

                        		
02B1  020298            		lJMP	I_232_EOF
                        ;-----------------------
                        ; WAIT_RI:
                        ;
                        ;-----------------------
02B4                    WAIT_RI:
02B4  758D00                    MOV     TH1,#00
02B7  758B00                    MOV     TL1,#00
02BA  C3                		CLR		C                
02BB  D28E                      SETB    TR1
02BD  00                        NOP
02BE  00                        NOP
02BF                    WAITR_1:
02BF  120337            		lCALL	WATCHDOG
02C2  00                		NOP
02C3  209806            		JB		RI,WAITR_2
02C6  00                		NOP
02C7  00                		NOP
02C8  308FF4                    JNB     TF1,WAITR_1     ;等待中断发送数据完毕,或超时
02CB  D3                        SETB	C
02CC                    WAITR_2:        
02CC  C28E                      CLR     TR1
02CE  C28F                      CLR		TF1
02D0  C298              		CLR		RI
02D2  22                		RET
                        ;-----------------------------------------
                        ;  AtSend:发送AT指令
                        ;     in -- R0:开始地址
                        ;           R2:发送的个数
                        ;-----------------------------------------
02D3                    AtSend:
02D3  120337            		lCALL	WATCHDOG
02D6  C299                      CLR     TI
02D8  C3                        CLR	C
02D9                    AS_1:
02D9  758DDC                    MOV     TH1,#CONST_10MSH
02DC  758B00                    MOV     TL1,#CONST_10MSL
02DF  D28E                      SETB    TR1
02E1  E6                        MOV     A,@R0
02E2  F599                      MOV     SBUF,A
02E4                    AS_2:
02E4  120337            		lCALL	WATCHDOG
02E7  209907                    JB     	TI,AS_3
02EA  308FF7                 	JNB		TF1,AS_2
02ED  D3                     	SETB	C
02EE  C28E              		CLR		TR1
02F0  22                		RET
02F1                    AS_3:        
02F1  C299                      CLR     TI
02F3  C28E              		CLR		TR1
02F5  08                		INC     R0
02F6  DAE1                      DJNZ    R2,AS_1
02F8  22                        RET

                                

                        ;-------------------------------
                        ; BYTESEND:在10MS内发送一个字节
                        ;
                        ;  IN --ACC
                        ;  OUT--CY
                        ;-------------------------------
02F9                    BYTESEND:
02F9  758DDC                    MOV     TH1,#CONST_10MSH
02FC  758B00                    MOV     TL1,#CONST_10MSL
02FF  C3                		CLR		C
0300  C299              		CLR		TI
0302  F599              		MOV		SBUF,A                
0304  D28E                      SETB    TR1
0306                    BS_1:
0306  120337            		lCALL	WATCHDOG
0309  00                		NOP
030A  209906            		JB		TI,BS_2
030D  00                		NOP
030E  00                		NOP
030F  308FF4                    JNB     TF1,BS_1     		;等待中断发送数据完毕,或超时
0312  D3                        SETB	C
0313                    BS_2:        
0313  C28E                      CLR     TR1
0315  C28F                      CLR		TF1
0317  C298              		CLR		RI
0319  C299                      CLR 	TI
031B  12033A            		LCALL 	DELAY1MS        
031E  00                		nop
031F  22                		RET	
                        	
                        	;----------------------------------------
                        ;  Check:	检查是否是"OK"或"CO"
                        ;   out- bit_ok=1   or bit_online=1
                        ;----------------------------------------
0320                    CHECK:
0320  120337            		LCALL 	WATCHDOG
0323  C217              		clr		chr_ok
                        		
0325  7880              		MOV		R0,#BUF_DATA		;!!!!!
0327  7A02              		MOV		R2,#02
0329  08                		INC		R0
032A  08                		INC		R0	
032B                    CHK_R2:
032B  E6                		MOV		A,@R0		
032C  B44F07            		CJNE	A,#4FH,CHK_eof			

032F                    CHK_R4:
032F  08                		INC		R0
0330  E6                		mov		a,@r0
0331  B44B02            		cjne	a,#4bh,chk_eof
0334  D217              		SETB	chr_ok
0336                    CHK_EOF:
                        			
                        		
                        	
0336  22                		RET
                        ;-------------------------------------------
0337                    WATCHDOG:
                        ;                MOV             WDTRST,#01EH
                        ;                MOV             WDTRST,#0E1H
0337  00                        NOP
0338  00                        NOP
0339  22                		RET
                        ;-------------------------------------------
                        ; Delay1MS:
                        ;
                        ;-------------------------------------------
033A                    Delay1MS:
033A  C051              		PUSH	_R2
033C  755162            		MOV		_R2,#98
033F                    DM11_1:		
033F  120337            		LCALL	WATCHDOG
0342  D551FA            		DJNZ	_R2,DM11_1
0345  D051              		POP		_R2
0347  00                		NOP        
0348  22                        RET
                        ;-------------------------------------------
                        ; Delay100MS:
                        ;   in -- RCNT_MS:延时值MS  (<256)
                        ;
                        ;-------------------------------------------
0349                    Delay10MS:
0349  C051              		PUSH	_R2
034B  C052              		PUSH	_R3
034D  755164            		MOV	_R2,#100
0350                    DM_1:		
0350  75523C            		MOV	_R3,#60
0353                    DM_2:
                        		;lCALL	WATCHDOG
                        		;NOP
                                ;NOP
0353  D552FD            		DJNZ	_R3,$
0356  D551F7            		DJNZ	_R2,DM_1
0359  D052              		POP	_R3
035B  D051              		POP	_R2
035D  00                		NOP        
035E  22                        RET
                        ;-------------------------------------------
                        ; Delay100MS:
                        ;   in -- 
                        ;
                        ;-------------------------------------------
035F                    Delay100MS:
035F  C050              		PUSH	_R1
0361  75500A            		MOV		_R1,#10
0364                    DM1_1:
0364  120349            		lCALL	DELAY10MS
0367  D550FA            		DJNZ	_R1,DM1_1
036A  D050              		POP		_R1
036C  00                		NOP		
036D  22                        RET
                        ;---------------------------------------------
036E                    delay1000ms:
036E  12035F            		lcall	delay100ms
0371  12035F            		lcall	delay100ms
0374  12035F            		lcall	delay100ms
0377  12035F            		lcall	delay100ms
037A  12035F            		lcall	delay100ms
037D  12035F            		lcall	delay100ms
0380  12035F            		lcall	delay100ms
0383  12035F            		lcall	delay100ms
0386  12035F            		lcall	delay100ms
0389  12035F            		lcall	delay100ms
038C  22                		ret
038D  41545A300D        table_reset		db		'A','T','Z','0',0dh	
0392  41542B434D47      TABLE_SETSMS0	DB		'A','T','+','C','M','G','F','=','0',0DH
      463D300D
039C  41542B435343      TABLE_setsms1	DB		'A','T','+','C','S','C','A','=','+','8',
      413D2B38
03A6  363133383030      				DB		'6','1','3','8','0','0','5','1','9','5','0','0',0DH	
      353139353030
      0D
03B3  41542B434F50      TABLE_gogsm		DB      'A','T','+','C','O','P','S','=','0',0DH
      533D300D
03BD  41542B434D47      table_msglen	db		'A','T','+','C','M','G','S','=','1','8',0DH							
      533D31380D
03C8  303839313638      table_zhong		db		'0','8','9','1','6','8','3','1','0','8','5'
      3331303835
03D3  303931303546      				db		'0','9','1','0','5','F','0','1','1','0','0'
      3031313030
03DE  304439313638      				db		'0','D','9','1','6','8','3','1','6','8','0'
      3331363830
03E9  313232373346      				db		'1','2','2','7','3','F','5','0','0','0','8'
      3530303038
03F4  303030323445      				db		'0','0','0','2','4','E','2','D',5EH,'z',0DH
      32445E7A0D

                        END


⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -