【文章內容簡介】 176為接收狀態(tài) jnb key_work,db_work。 setb ex1 mov yd_n100,0ah mov td_n,0s_0: anl disp_wc,0f0h mov wdt,0 。清看門狗定時器 clear_wdt mov a,yd_n100 lcall send_order JNZ s_1 mov disp_buf+5,yd_n100 mov a,td_n lcall ascii_bcd jnz s_2 mov disp_buf+4,td_n acall mov_to_disp mov wdt,0 clear_wdt mov a,75 add a,time_20ms cjne a,time_20ms,$ mov wdt,0 clear_wdt mov a,75 add a,time_20ms cjne a,time_20ms,$s_2: inc td_n mov a,td_n cjne a,8,s_0 mov td_n,0s_1: inc yd_n100 MOV A,YD_N100 cjne a,10h,s_0 mov yd_n100,0ah ajmp s_0。db_work:setb ex1 orl disp_wc,01hd_3: mov wdt,0 。清看門狗定時器 clear_wdt jb key_up,d_4 mov a,2 add a,time_20ms cjne a,time_20ms,$ jb key_up,d_4d_5: mov wdt,0 clear_wdt jnb key_up,d_5 。等待向上鍵松開。d_53: mov a,td_n cjne a,7,d_50 mov td_n,0d_52: inc yd_n100 mov a,yd_n100 cjne a,10h,d_51 mov yd_n100,0ah ajmp d_51d_50: inc td_nd_51: mov a,yd_n100 lcall send_order JNZ d_52 mov disp_buf+5,yd_n100 mov a,td_n lcall ascii_bcd jnz d_53 mov disp_buf+4,td_n acall mov_to_disp mov a,100 。2秒鐘定時設定 add a,time_20ms ajmp d_3。d_4: jb key_down,d_10 mov a,2 add a,time_20ms cjne a,time_20ms,$ jb key_down,d_3d_6: mov wdt,0 clear_wdt jnb key_down,d_6 。等待向下鍵松開。d_43: mov a,td_n cjne a,0,d_40 mov td_n,7d_42: dec yd_n100 mov a,yd_n100 cjne a,9h,d_41 mov yd_n100,0fh ajmp d_41d_40: dec td_nd_41: mov a,yd_n100 lcall send_order JNZ d_42 mov disp_buf+5,yd_n100 mov a,td_n lcall ascii_bcd jnz d_43 mov disp_buf+4,td_n acall mov_to_disp mov a,100 。2秒鐘定時設定 add a,time_20ms ajmp d_3。d_10: cjne a,time_20ms,d_30 mov a,yd_n100 lcall send_order jnz d_30 mov a,td_n lcall ascii_bcd jnz d_30 acall mov_to_dispmov a,100 add a,time_20msd_30:ajmp d_3。mov_to_disp:mov disp_buf,r1 mov disp_buf+1,r2 mov disp_buf+2,r3 mov disp_buf+3,r4 retchuhao: mov r1,1eh 。初始化等待提示 mov r2,22h mov r3,21h mov r4,1fh mov disp_buf+4,21h mov disp_buf+5,20h acall mov_to_disp mov a,75 add a,time_20ms cjne a,time_20ms,$ mov wdt,0 clear_wdt mov a,75 add a,time_20ms cjne a,time_20ms,$ ret end２、數據轉換子模塊（）。name rand_dataextrn idata (rec_buf)public ascii_bcdprog SEGMENT CODE 。定義代碼段byte_buff segment data 。定義字節(jié)數據段1byte_buffI segment idata 。定義字節(jié)數據段2bit_buff segment data bitaddressable 。定義位尋址區(qū)字節(jié)數據段 rseg prog using 0。ASCII_BCD:mov b,8 。計算該通道數據偏移首地址 mul ab add a,5 mov r0,rec_buf add a,r0 mov b,a mov r0,a acall ascii4_bcd3 mov a,b 。還原小數位數 add a,7 mov r0,a acall ascii_bin mov r6,a 。小數位數暫存在R6中 mov a,r5 jz asc_oK mov a,dpl cpl a clr c inc a mov dpl,a mov a,dph cpl a addc a,0 mov dph,a jnz asc_basc_0: mov a,dpl dec a jnz asc_b mov r1,0fh mov r2,0fh mov r3,0fh mov r4,0fh mov a,0fh ajmp asc_outasc_b: mov r1,dpl 。為負數處理 mov r2,dph acall bin_bcd mov a,b 。還原小數位數 add a,7 mov r0,a acall ascii_bin mov r6,a 。小數位數暫存r6 acall bcd2_bcd1 mov a,r4 dec a jnz asc_100 。 mov r4,23h ajmp asc_swasc_100:mov r4,23h mov r3,9 mov r2,19h mov r1,9 ajmp asc_sw_1asc_ok: acall bcd2_bcd1 。正常數據處理程序asc_sw: mov a,r4 。清除有效位前面的0 jnz asc_sw_1 mov r4,1ch mov a,r3 jnz asc_sw_1 mov r3,1chasc_sw_1:clr aasc_out:ret。每字節(jié)兩位BCD碼轉換為每字節(jié)一位BCD碼子程序。入口：r3=個位及十位BCD碼,r4=百位及千位BCD碼,r6=小數位數。出口：r1=個位BCD碼,r2=十位BCD碼,r3=百位BCD碼,r4=千位BCD碼bcd2_bcd1:mov a,r3 。個位及十位BCD數處理 anl a,0fh mov r1,a mov a,r3 anl a,0f0h swap a mov r2,a mov a,r4 。百位及千位BCD數處理 anl a,0fh mov r3,a mov a,r4 anl a,0f0h swap a mov r4,a mov a,r6 。加入小數點信息 jz bcd2_out add a,ar1 mov r0,a mov a,@r0 add a,10h mov @r0,abcd2_out:ret。ASCii4_BCD3轉換子程序。入口：r0=四字節(jié)ASCII碼首地址。出口：r5,r4,r3從高至低依次存放BCD碼（r3,r4各存2位，r5存1位）ascii4_bcd3:acall ascii4_bin2 mov dpl,r1 mov dph,r2 acall bin_bcd ret。BIN_BCD轉換子程序。入口：r1=BIN低字節(jié),r2=BIN高字節(jié) 共2字節(jié)。出口：r3=低2位BCD碼，r4=高2位BCD碼,r5=可能的最高位BCD碼 bin_bcd:PUSH ACC PUSH PSW mov r3,0 。BCD單元清0 mov r4,0 mov r5,0 mov r6,16 。設置二進制數位數 clr cbin_0: mov a,r1 rlc a mov r1,a mov a,r2 rlc a mov r2,a mov r0,ar3 mov r7,3 。設置BCD字節(jié)數bin_1: mov a,@r0 addc a,@r0 da a mov @r0,a inc r0 djnz r7,bin_1 djnz r6,bin_0 POP PSW POP ACC ret。ASCII4_BIN2轉換子程序。入口：R0=ASCII碼首地址（共四字節(jié)ASCII碼）。出口:r1=BIN碼低字節(jié)，R2=BIN碼高字節(jié)ascii4_bin2:PUSH ACC acall ascii_bin anl a,0fh swap a mov r1,a inc r0 acall ascii_bin anl a,0fh orl ar1,a inc r0 acall ascii_bin anl a,0fh swap a mov r2,a inc r0 acall ascii_bin anl a,0fh orl ar2,a POP ACC ret。ASCII_BIN轉換子程序。入口：R0=ASCII地址。出口:A=BIN碼ascii_bin:mov a,@r0 clr c subb a,