【正文】 。0~99 state equ 37h 。設(shè)定溫度 temp0 equ 39h a_l equ 3ah a_h equ 3bh water equ 40h 。檢測到的水位 STATUS_REG DATA 10H WREN_INST DATA 06H WRDI_INST DATA 04H WRSR_INST DATA 01H RDSR_INST DATA 05H WRITE_INST DATA 02H READ_INST DATA 03H MAX_POLL DATA 200 ORG 0000H LJMP BEGIN nop nop reti nop nop reti BEGIN: LCALL RET_WDOG lcall delay MOV PSW,00H MOV TMOD,10H MOV TH1,00H 。8 mov led2,08h 。剛上電顯示 88 djnz r7,main2 main: MOV R5,20H LCALL READ mov temper_set,a 。水位 clr tr1 。檢測水溫 lcall test_water 。**按鍵檢測 ***************************** test_key: mov a,p1 cpl a anl a,7fh jz key_ret00 lcall delay 。保存按鍵值 cjne a,01h,test20 setb out_c 。置用水標(biāo)記 clr out 。已經(jīng)在用水，關(guān)水 ljmp test_key_ret test20: cjne a,02h,test30 mov a,state cjne a,01h,test21 setb LEDW 。=1。關(guān)溫度燈 ljmp test_key_ret test30: cjne a,04h,test40 。關(guān)水位燈亮 mov state,00h ljmp test_key_ret test31: mov state,02h setb LEDW 。水溫?zé)袅? clr LEDT ljmp test_key_ret test40: cjne a,08h,test50 。修改水位 cjne a,02h,test41 mov water,50h mov a,water mov r5,21H 。水位，保存修改后的值 lcall WRITE ljmp test44 test42: cjne a,08h,test43 mov water,10h mov a,water mov r5,21H 。水位，保存修改后的值 lcall WRITE ljmp test44 test44: lcall test_water 。修改溫度 mov a,temper_set lcall bcdtoh 。水溫，保存修改后的值 lcall WRITE ljmp test44 test4a: mov state,00h ljmp test_key_ret test50: cjne a,10h,test60 。變?yōu)?16進(jìn)制 cjne a,00,test56 mov a,99 ljmp test58 test56: jc test57 mov a,00h ljmp test58 test57: dec a test58: lcall htobcd mov temper_set,a mov r5,20H 。100%。加水 ljmp key_ret test61: setb out_w clr kw_bj ljmp key_ret test70: cjne a,40h,key_ret jb kc_bj,test71 clr out_c setb kc_bj ljmp key_ret test71: setb out_c clr kc_bj ljmp key_ret test_key_ret: lcall dipkey key_ret: ret bcdtoh: mov b,10h div ab mov r6,b mov b,0ah mul ab add a,r6 ret htobcd: mov b,0ah div ab swap a add a,b ret 。100% ljmp act_w test_w1: jb ,test_w2 mov water_num,08h 。50% ljmp act_w test_w3: jb ,test_w4 mov water_num,02h 。判斷是否加水。循環(huán)檢測水位 w_err: setb LS 。循環(huán)檢測水位 test_water_ret: ret 。溫度控制 cjne a,temper_set,act_c1 act_c1: jc act_c2 setb out_c 。******************************************************* 。STATUS_REG LCALL OUTBYT CLR SCK5 SETB CS5 LCALL WIP_POLL POP ACC SETB EA RET OUTBYT: PUSH 07h MOV R7,08H clr SI5 byt0: CLR SCK5 RLC A MOV SI5,C SETB SCK5 DJNZ R7,byt0 CLR SI5 POP 07h RET INBYT: PUSH 07h MOV R7,08H CLR C byt2: SETB SCK5 CLR SCK5 MOV C,SO5 RLC A DJNZ R7,byt2 mov b,a POP 07h RET RDSR: CLR SCK5 CLR CS5 。讀一個(gè)字節(jié)數(shù)到 A中，地址在 R5 中 CLR SCK CLR CS5 MOV A,0BH LCALL OUTBYT MOV A,R5 LCALL OUTBYT LCALL INBYT CLR SCK5 SETB CS5 SETB EA RET WRITE: CLR EA PUSH b 。把 A中的數(shù)寫到地址 R5 中 CLR CS5 MOV B,A LCALL WREN 。02H 。R0=DATA {START ADDRESS} LCALL OUTBYT CLR SCK5 SETB CS5 LCALL WIP_POLL 。=200 WIP_POLL1: LCALL RDSR 。WIP=0? DJNZ R1,WIP_POLL1 ERR_5045: mov led1,05h 。E 報(bào)錯(cuò)提示，看門狗問題 LCALL RET_WDOG lcall display ljmp ERR_5045 WIP_POLL2: pop acc pop 01h RET 。自檢 5045 CHECK_5045: PUSH 05H PUSH ACC MOV R5,00H check1: LCALL READ CJNE A,55H,check2 check0: POP ACC POP 05H RET check2: mov a,55h 。水溫設(shè)定值，初始 40 度 mov r5,20H lcall WRITE mov a,50H mov r5,21H 。********************************************************** 。 push acc loop2: SETB DQ LCALL INIT_1820 TSS2: MOV A,0CCH 。Convert Temperature(溫度變換