MOV RA,#62H
LJMP XQZURRLL01
;---------------------- 一 -------------
XQZURRLL10: LCALL SS50mS
JNB P3.6,XQZURRLL10;如果为0(不放键)等待 MOV 05H,#00H
LCALL DINGSHIZU;清除全部颜色选定
XQZURRLL11:
JNB P3.7,XQZUADD10;按加键加
JNB P3.6,XQZURRLL20 ;按RRLL换下一个或返回；================= MOV 05H,#70H ;选定要调的颜色 LCALL DINGSHIZU2 ;选定要调的颜色 LJMP XQZURRLL11 ;循环
XQZUADD10:
JNB P3.7,XQZUADD10 ;加键有用吗? XQZUADD11: ;有用加一次 LCALL DINGSHIZU2 MOV A,#62H
CJNE A,RA1,FG10 MOV RA1,#60H
LJMP XQZURRLL11 FG10:
MOV RA1,#62H
LJMP XQZURRLL11 ;--------------- 二 XQZURRLL20:
LCALL SS50mS
JNB P3.6,XQZURRLL20;如果为0(不放键)等待 MOV 05H,#00H
LCALL DINGSHIZU;清除全部颜色选定
XQZURRLL21:
JNB P3.7,XQZUADD20;按加键加
JNB P3.6,XQZURRLL30 ;按RRLL换下一个或返回；== MOV 05H,#70H ;选定要调的颜色
LCALL DINGSHIZU3 ;选定要调的颜色 LJMP XQZURRLL21 ;循环
;--------
XQZUADD20:
JNB P3.7,XQZUADD20 ;加键有用吗? XQZUADD21: ;有用加一次 LCALL DINGSHIZU3 MOV A,#64H
CJNE A,RA2,XQZURRLL210 MOV RA2,#60H
LJMP XQZURRLL21 XQZURRLL210: MOV RA2,#64H
LJMP XQZURRLL21 ;--------------- 三
XQZURRLL30: LCALL SS50mS
JNB P3.6,XQZURRLL30;如果为0(不放键)等待 MOV 05H,#00H
LCALL DINGSHIZU;清除全部颜色选定
XQZURRLL31:
JNB P3.7,XQZUADD30;按加键加
JNB P3.6,XQZURRLL40 ;按RRLL换下一个或返回；== MOV 05H,#70H ;选定要调的颜色 LCALL DINGSHIZU4 ;选定要调的颜色 LJMP XQZURRLL31 ;循环
XQZUADD30:
JNB P3.7,XQZUADD30 ;加键有用吗? XQZUADD31: ;有用加一次 LCALL DINGSHIZU4 MOV A,#66H
CJNE A,RA3,XQZURRLL310 MOV RA3,#60H
LJMP XQZURRLL31 XQZURRLL310: MOV RA3,#66H
LJMP XQZURRLL31 ;--------------- 四
XQZURRLL40:
LCALL SS50mS
JNB P3.6,XQZURRLL40;如果为0(不放键)等待 MOV 05H,#00H
LCALL DINGSHIZU;清除全部颜色选定
XQZURRLL41:
JNB P3.7,XQZUADD40;按加键加
JNB P3.6,XQZURRLL50 ;按RRLL换下一个或返回；== MOV 05H,#70H ;选定要调的颜色 LCALL DINGSHIZU5 ;选定要调的颜色 LJMP XQZURRLL41 ;循环
XQZUADD40:
JNB P3.7,XQZUADD40 ;加键有用吗? XQZUADD41: ;有用加一次 LCALL DINGSHIZU5 MOV A,#68H
CJNE A,RA4,XQZURRLL410 MOV RA4,#60H
LJMP XQZURRLL41 XQZURRLL410: MOV RA4,#68H
LJMP XQZURRLL41 ;--------------- 五
XQZURRLL50: LCALL SS50mS
JNB P3.6,XQZURRLL50;如果为0(不放键)等待 MOV 05H,#00H
LCALL DINGSHIZU;清除全部颜色选定 XQZURRLL51:
JNB P3.7,XQZUADD50;按加键加
JNB P3.6,XQZURRLL60 ;按RRLL换下一个或返回；== MOV 05H,#70H ;选定要调的颜色 LCALL DINGSHIZU6 ;选定要调的颜色 LJMP XQZURRLL51 ;循环
XQZUADD50:
JNB P3.7,XQZUADD50 ;加键有用吗? XQZUADD51: ;有用加一次 LCALL DINGSHIZU6
MOV A,#6AH
CJNE A,RA5,XQZURRLL510 MOV RA5,#60H
LJMP XQZURRLL51 XQZURRLL510: MOV RA5,#6AH
LJMP XQZURRLL51 ;--------------- 六
XQZURRLL60: LCALL SS50mS
JNB P3.6,XQZURRLL60;如果为0(不放键)等待 MOV 05H,#00H
LCALL DINGSHIZU;清除全部颜色选定
XQZURRLL61:
JNB P3.7,XQZUADD60;按加键加
JNB P3.6,XQZURRLL70 ;按RRLL换下一个或返回；== MOV 05H,#70H ;选定要调的颜色 LCALL DINGSHIZU7 ;选定要调的颜色 LJMP XQZURRLL61 ;循环 XQZUADD60:
JNB P3.7,XQZUADD60 XQZUADD61:
;加键有用吗?
;有用加一次
LCALL DINGSHIZU7 MOV A,#6CH
CJNE A,RA6,XQZURRLL610 MOV RA6,#60H
LJMP XQZURRLL61 XQZURRLL610: MOV RA6,#6CH
LJMP XQZURRLL61 ;--------------- 日
XQZURRLL70: LCALL SS50mS
JNB P3.6,XQZURRLL70;如果为0(不放键)等待 MOV 05H,#00H
LCALL DINGSHIZU;清除全部颜色选定 XQZURRLL71:
JNB P3.7,XQZUADD70;按加键加
JNB P3.6,XQZURRLL80 ;按RRLL换下一个或返回；== MOV 05H,#70H ;选定要调的颜色 LCALL DINGSHIZU8 ;选定要调的颜色 LJMP XQZURRLL71 ;循环
XQZURRLL80: LCALL BCXH LJMP ALSET1 XQZUADD70:
JNB P3.7,XQZUADD70 ;加键有用吗? XQZUADD71: ;有用加一次 LCALL DINGSHIZU8
MOV A,#6EH
CJNE A,RA7,XQZURRLL710 MOV RA7,#60H
LJMP XQZURRLL71 XQZURRLL710: MOV RA7,#6EH
LJMP XQZURRLL71
;++++++++++++写入显示++++++++++++ XRXS:
MOV A,#62H
CJNE A,RA,XRXS1 MOV DPTR,#10H LCALL XRXSB RET
XRXS1:
MOV A,#64H
CJNE A,RA,XRXS2 MOV DPTR,#20H LCALL XRXSB RET
XRXS2:
MOV A,#66H
CJNE A,RA,XRXS3 MOV DPTR,#30H LCALL XRXSB