设置.asm

红外抄表器.rar

;========================================================================================设置状态=========================
TSTATE3:CJNE A,#03H,TSTAT30
        LJMP DSTATE3
TSTAT30:LJMP TSTATE4
DSTATE3:LCALL SCANKEY     ;设置状态
        MOV A,KEYNUM
        CJNE A,#0FFH,DKEY31
        LCALL DLY10MS
        LJMP SCAN         ;无键按下

DKEY31: CJNE A,#02H,DKEY32  
;-----------------------------------------------------------------------设置状态-设置键-----------------------
CKEY31: 
        JB FINISH,KEY311
        LJMP BGPRN          ;调设置程序
KEY311: LJMP SCAN

DKEY32: CJNE A,#03H,DKEY33
;-----------------------------------------------------------------------设置状态-百位键-----------------------
        JNB FINISH,KEY321
        LJMP EDSCAN
KEY321: LCALL KEYBW ;调百位键处理函数
        LJMP EDSCAN         ;户号百位无效


DKEY33: CJNE A,#04H,DKEY34
;-----------------------------------------------------------------------设置状态-十位键------------------------
        JNB FINISH,KEY331
        LJMP EDSCAN
KEY331: LCALL KEYSW     ;调十位键处理函数
        LJMP EDSCAN

DKEY34: CJNE A,#05H,DKEY35
;-----------------------------------------------------------------------设置状态-个位键--------------------------
        JNB FINISH,KEY341  ;个位键
        LJMP EDSCAN
KEY341: LCALL KEYGW     ;调个位键处理函数
        LJMP EDSCAN

DKEY35: CJNE A,#06H,DKEY36
;----------------------------------------------------------------------设置状态-清除键----------------------------
CKEY35: 
        JNB FINISH,KEY351
        LJMP SCAN
KEY351: MOV JIHAOH,#00H
        MOV JIHAOL,#01H
        SETB DISMOD
        LCALL DISJIHAO
        LJMP SCAN

DKEY36: CJNE A,#07H,DKEY37
;---------------------------------------------------------------------设置状态-返回键--------------------------
CKEY36: 
        MOV STATE,#00H
        MOV JIHAOH,#00H
        MOV JIHAOL,#01H
        CLR ES
        CLR EA
        LCALL CLEAR
        LCALL DISTITL
        LJMP SCAN

DKEY37: CJNE A,#08H,KEY370
;---------------------------------------------------------------------设置状态-确认键--------------------
        LJMP CKEY37
KEY370: LJMP SCAN
CKEY37: 
        JNB FINISH,KEY372
        JNB SUCCESS,REPRN
REPRN:  CLR FINISH
        CLR SUCCESS
        LCALL CLEAR
        CLR DISMOD
        LCALL DISJH
        SETB DISMOD
        LCALL DISJIHAO
        CLR DISMOD
        MOV O_YL,#00H
        MOV O_XL,#00H
        MOV CODE,#13H
        LCALL CCW_PR      ;"设"
        MOV O_YL,#00H
        MOV O_XL,#10H
        MOV CODE,#14H
        LCALL CCW_PR      ;"置"
        LJMP SCAN

KEY372: 
        LJMP BGPRN		
		
;#######################设置子程序################################

BGPRN:  
        SETB FINISH
        CLR SUCCESS
        clr DISMOD
        lcall DISJIHAO
        MOV A,JIHAOH
        JNZ BGIRN1
        MOV A,JIHAOL
        JNZ BGPRN1
        LJMP FAIL3
BGPRN1: MOV O_YL,#00H
        MOV O_XL,#00H
        MOV CODE,#0AH
        LCALL CCW_PR      ;"正"
        MOV O_YL,#00H
        MOV O_XL,#10H
        MOV CODE,#0BH
        LCALL CCW_PR      ;"在"
        MOV O_YL,#00H
        MOV O_XL,#20H
        MOV CODE,#13H
        LCALL CCW_PR      ;"设"
        MOV O_YL,#00H
        MOV O_XL,#30H
        MOV CODE,#14H
        LCALL CCW_PR      ;"置"
		
        MOV R3,#32H
		 MOV R4,#03H
		 LCALL IRT     	;调红外发射程序
		 
		 COMPRN3:SETB SUCCESS
        CLR DISMOD
        MOV O_YL,#00H
        MOV O_XL,#00H
        MOV CODE,#13H
        LCALL CCW_PR      ;"设"
        MOV O_YL,#00H
        MOV O_XL,#10H
        MOV CODE,#14H
        LCALL CCW_PR      ;"置"
        MOV O_YL,#00H
        MOV O_XL,#20H
        MOV CODE,#15H
        LCALL CCW_PR      ;"完"
        MOV O_YL,#00H
        MOV O_XL,#30H
        MOV CODE,#0FH
        LCALL CCW_PR      ;"成"
       
	    LCALL DISJH
		setb DISMOD
		LCALL DISJIHAO
		 CLR DISMOD
        LJMP SCAN