【正文】 HTC3：MOV R5，0AHMOV R6，0FFHRETK_DELAY: SETB SETB MOV R5，0C8HJOOP1： MOV R4，0C8HJOOP2： DJNZ R4，JOOP2 DJNZ R5，JOOP1 CLR CLR RETSJCL:MOV A,R2MOV B,64HDIV ABMOV XS1，AMOV A,0AHXCH A,BDIV ABMOV XS2，AMOV XS3，BRETDIANJI:CLR CMOV A,CJDDCJNE A,SDDD,LOOP3CLR CLR AJMP TC4LOOP3：JC LOOP4SUBB A,SDDDCJNZ A,05H,LOOP5AJMP TC4LOOP5：JC TC4CLR STEB AJMP TC4LOOP4：MOV A,SDDDSUBB S,CJDDCJNE A,05H,LOOP6AJMP TC4LOOP6：JC TC4SETB CLR TC4：RETTRT: MOV TMOD,20H 。波特率設置 MOV TH1，0E8H MOV TL1，0EBH SETB TR1 MOV SCON,50H 。串行口初始化 MOV PCON,80H 。SMOD位設置RPT: MOV DPTR,4000H MOV R6，00H 。長度寄存器初始化 MOV R7，03H 。發(fā)送長度高8位 MOV R5,00H 。檢驗和寄存器初始化 MOV SBUF,R6 。發(fā)送長度低8位 MOV A,R5 。形成累加和送R5 ADD A,R6 MOV R5，AML0： JBC T1，ML1 AJMP ML0ML1： MOV SBUF,R7 。發(fā)送長度高8位 MOV A,R5 。形成累加和送R5 ADD A,R7 MOV R5，AML2: JBC T1，ML3 AJMP ML2ML3: MOV SBUF,R5 。發(fā)送校驗碼 MOV R5，00HML4： JBC T1，ML5 AJMP ML4ML5： JBC R1，ML6 。等已機回答 AJMP ML5ML6： MOV A,SBUF 。判傳送是否正確？ JZ ML7 AJMP RPTML7： MOVX A,@DPTR 。讀取數(shù)據(jù) MOV SBUF,A ADD A,R5 MOV R5，A INC DPTR 。指針加1ML8： JBC T1，ML9 。等待發(fā)完一個字節(jié) AJMP ML8ML9： DJNZ R6，ML7 。判發(fā)送完256字節(jié) DJNZ R7，ML14 。判發(fā)送結束 MOV SBUF,R5 MOV R5,00HML10： JBC T1，ML11 。發(fā)校驗碼 AJMP ML10ML11： JBC R1，ML12 。等乙機回答 AJMP ML11ML12： MOV A,SBUF JZ ML13 AJMP RPTML13： RETML14： MOV SBUF,R5 。發(fā)校驗碼 MOV R5，00HML15： JBC T1，ML7 AJMP ML15RSV: MOV TMOD,20H 。T1初始化 MOV TH1，0E8H MOV TL1，OE8H SETB TR1 MOV SCON,50H MOV PCON,80HPRT: MOV R5,00H 。累加器和寄存器清零 MOV R4,00H 。頁內(nèi)計數(shù)器清零 MOV DPTR,4000H 。初值到指針ML0： JBC R1，ML1 。接收長度低8位 AJMP ML0ML1： MOV A,SBUF MOV R6，A ADD A,R5 。形成累加和 MOV R5，AML2： JBC R1，ML3 AJMP ML2ML3： MOV A,SBUF 。接收長度高8位 MOV R7，A ADD A,R5 。形成累加和 MOV R5，AML4: JBC R1，ML5 。接收校驗碼 AJMP ML4ML5： MOV A,SBUF XRL A,R5 JZ RIGHT MOV SBUF,0FFH 。出錯WT: JBC T1，RPT AJMP WTRIGHT: MOV R5，00H MOV SBUF,00H 。正確回送ML6： JBC T1，WTD AJMP ML6WTD: JBC R1，ML7 。接收數(shù)據(jù) AJMP WTDML7: MOV A,SBUF MOV @DPTR,A INC DPTR ADD A,R5 MOV R5,A DJNZ R4,ML10 。未傳完一頁轉(zhuǎn)ML10ML8: JBC R1，ML9 。接收數(shù)據(jù) AJMP ML8ML9: MOV A,SBUF XRL A,R5 MOV R5，00H JZ ML10 SETB 。置“1”出錯標志ML10: DJNZ R6，WTD DJNZ R7，WTD MOV A,R4 JZ ML19ML11: JBC R1，ML12 AJMP ML11ML12: MOV A,SBUF XRL A,R5 JNZ ML13 AJMP ML20ML19: JB ,ML13ML20: MOV SBUF,00H 。正確回送OOHML14: JBC T1，ML15 。發(fā)送完返回 AJMP ML14ML15: RETML13： MOV SBUF,0FFH 。出錯處理ML16： JBC T1，ML17 AJMP ML16ML17: AJMP RPT DISPLAY:MOV DPTR,DISTABMOV R3，01HMOV R1，XS1DPLOP:MOV A,@R1MOVC A,@A+DPTRMOV P2，R3MOV P0,1MOV A,R3RL AMOV R3，AINC R1LCALL DS1MCJNE R3，08H,DPLOPMOV P0，000H 。一次顯示結束，P0口復位MOV P2，000H 。P2口復位RETDS1M:SETB SETB MOV R7，05HJOOP0：MOV R6，64HJOOP:DJNZ R6，JOOPDJNZ R7，JOOP0CLR CLR RET。數(shù)碼管TABDISTAB: DB O3FH。0 DB 006H。1 DB 05BH。2 DB 04FH。3 DB 066H。4 DB 06DH,5 DB 07DH。6 DB 007H。7 DB 07FH。8 DD 06FH。9 DB 000H。NONEORG 0000HSTART: MOV P3,00H ACALLDAY1S MOV P3,0FFH ACALLDAY1S MOV P3,OOH ACALLDAY1S MOV P3,0FFH ACALLDAY1S MOV P3,OFFH ACALLDAY1STEST: MOV P1,0F0H MOV A,P1 ANL A,0FH CJNZ A,00H,HAVE SJMP TESTHAVE: MOV A,01HNEXT: MOV B,A MOV P1,AREAD: MOV A,P1 ANL A,0F0H CJNZ A,00H,YES MOV A,B RL A CJNZ A,10H,NEXTYES: ACALL DAYAREAD: MOV A,P1 ANL A,0F0H MOV A,B ANL A,0FH ORL A,R2YES1: MOV B,A LJMP AJMAJM: MOV R1,00HAJM1: MOV DPTR,BTNTAB MOV A,R1 MOVC A,@A+DPTR CJNZ A,B,NEXTKEY MOV DPTR,LEDTAB MOV A,R1 MOVC A,@A+DPTR MOV P3,A LJMP TESTNEXTKEY: INC R1 CJNZ R1,10H,AJM1 LJMP TESTDAY: MOV R6,20HDL2: MOV R7,7DHDL1: NOP。 NOP。 DJNZ R7,DL1 DJNZ R6,DL2 RETDAY1S: MOV E0,32HDAY1S1: ACALL DAY DJNZ R0,DAY1S1 RETBTNTAB: DB 11H,21H,41H,81H DB 12H,22H,42H,82H DB 14H,24H,44H,84H DB 18H,28H,48H,88HLEDTAB: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H DB 80H,90H,88H,83H,0C6H,0A1H,86H,8EH,0FFH END ENＤ46