【正文】 MOV A，DPTR CMP A，30H JNZ MAIN MOV @R0,A ；存貯 INC R0 INC PRECNT MOV A,DPH RR A ；求下一個顯示位地址 MOV DPH,A PUSH DPH ；保護下一位顯示地址 PUSH DPL RETI ；中斷返回顯示產(chǎn)品數(shù)字程序：DISPLAY： MOV A,LED1 ；取要顯示的數(shù) MOV DPTR,SEGTBL MOVC A,@A+DPTR ；取顯示碼 MOVX @DPTR,A MOV DPTR,LEDADD1 ；顯示百位 MOVX @DPTR,A MOV A,LED2 MOV DPTR,SEGTBL MOVC A,@A+DPTR MOV DPTR,8001H MOVX @DPTR,A MOV DPTR,LEDADD2 ；顯示十位 MOV @DPTR,A MOV A,LED3 MOV DPTR,SEGTBL MOVC A,@A+DPTR MOV DPTR,8001H MOVX @DPTR,A MOV DPTR,LEDADD3 ；顯示個位 MOVX @DPTR,A RETSEGTBL： DB 3FH, 06H, 5BH,4FH, 66H, 6DH, 7DH, 07H, 7FH, 67H ；產(chǎn)品加1子程序：PORTADD1： MOV R0,LED3 MOV A,@R0 ；顯示個位數(shù) ADD A,01H ；個位加1 DA A ；BCD碼調(diào)整 JB 24H,ADD5 ；不等于個位所表示的最大數(shù)則轉(zhuǎn) RET ；返回主程序ADD5： CLR 14H ；個位的進位清零 DEC R0 ；顯示十位數(shù) MOV A, @R0 ADD A,01H ；十位加1 DA A ；BCD碼調(diào)整 JB 1CH,ADD6 ；不等于十位所表示的最大數(shù)則跳轉(zhuǎn) RET ；返回主程序ADD3： CLR 1CH ；十位的進位清零 DEC R0 ；顯示百位數(shù) MOV A,@R0 ADD A,01H ；百位加1 DA A ；BCD碼調(diào)整 JB 14H,ADD4 ；不等于百位所表示的最大數(shù)則轉(zhuǎn)移 RETADD4： CLR 24H ；清百位進位 MOV R0,00H RET產(chǎn)品數(shù)比較子程序：PORTCOMP： MOV R0,PARTS MOV R1,LED1 ；百位數(shù)送R1 CJNE R2,03H ；比較3次COMP1： MOV A,@R0 MOV BUFF,@R1 ；保存給定值 CJNE A,BUFF,COMP2 ；兩者不相同則跳轉(zhuǎn) INC R0 ；產(chǎn)品數(shù)十位 INC R1 ；給定值十位 DJNZ R2,COMP1 SETB 08H ；產(chǎn)品標志單元 RETCOMP3： CLR 08H ；清產(chǎn)品標志單元 RETCOMP2： JNC COMP3 ；判斷有無進位標志 LJMP ALARM ；有進位則報警產(chǎn)品加1子程序： BOXADD1： MOV R0,BOX3 MOV A,@R0 ADD A,01H ；包裝箱個位加1 DA A ；BCD碼調(diào)整 JB 3CH,ADD2 ；不大于個位顯示最大值則跳轉(zhuǎn) RETADD2： CLR 14H DEC R0 ；十位數(shù)加1 MOV A, @R0 ADD A,00H DA A ；BCD碼調(diào)整 JB 34H,ADD3 RETADD3： CLR 2CH ；清百位進位 DEC R0 ；百位比較 MOV A,@R0 ADD A,00H DA A ；BCD碼調(diào)整 JB 2CH,ADD4 RETADD4： CLR 2CH ；清進位標志 MOV R0,00H RET包裝箱數(shù)比較子程序：BOXCOMP： MOV R0,PARTS MOV R1,LED1 ；百位數(shù)送R1 CJNE R2,03H ；比較3次COMP4： MOV A,@R0 MOV BUFF,@R1 CJNE A,BUFF,COMP5 INC R0 ；給定值十位數(shù) INC R1 ；包裝箱十位數(shù) DJNZ R2,COMP4 SETB 09H ；包裝箱計數(shù)單元置1 RETCOMP6： CLR 09H ；清包裝箱計數(shù)單元 RETCOMP5： JNC COMP6 LJMP ALARM ；超過給定值，則報警報警處理子程序：ALARM:： SETB 02H ；報警標志單元置1 CLR 00H ；停電機1 CLR 01H ；停電機2 CLR 03H ；清正常運行標志單元 MOV A,20H ；將標志單元存入A中 MOV DPTR,8002H MOVX @DPTR,A ；將標志單元送入8255A的C口 LJMP MAIN延時子程序：DELAY： MOV R3，B9H ；延時的次數(shù) DEC R3 ；自減 NOP ；空操作 NOP CMP R3，00H ；是否達到延時次數(shù) JNZ DELAY ；沒有則繼續(xù)延時 RET ；返回主程序第 36 頁 共 35 頁